diff options
83 files changed, 94600 insertions, 94050 deletions
diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 04df233f..edab65d4 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 1709375798) + (define gerbil/compiler/base::timestamp 1709457369) (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 ((__tmp98235 (list)) - (__tmp98233 - (let ((__tmp98234 + (let ((__tmp98497 (list)) + (__tmp98495 + (let ((__tmp98496 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp98234 '())))) + (cons __tmp98496 '())))) (declare (not safe)) (make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp98235 + __tmp98497 '(gensyms bindings) - __tmp98233 + __tmp98495 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _$args98186_ - (apply make-instance gxc#symbol-table::t _$args98186_))) + (lambda _$args98448_ + (apply make-instance gxc#symbol-table::t _$args98448_))) (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 (_self98184_) - (if (let ((__tmp98241 + (lambda (_self98446_) + (if (let ((__tmp98503 (let () (declare (not safe)) - (##structure-length _self98184_)))) + (##structure-length _self98446_)))) (declare (not safe)) - (##fx< '2 __tmp98241)) + (##fx< '2 __tmp98503)) (begin - (let ((__tmp98238 + (let ((__tmp98500 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp98237 + (__tmp98499 (let () (declare (not safe)) - (##structure-type _self98184_)))) + (##structure-type _self98446_)))) (declare (not safe)) (##unchecked-structure-set! - _self98184_ - __tmp98238 + _self98446_ + __tmp98500 '1 - __tmp98237 + __tmp98499 '#f)) - (let ((__tmp98240 + (let ((__tmp98502 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp98239 + (__tmp98501 (let () (declare (not safe)) - (##structure-type _self98184_)))) + (##structure-type _self98446_)))) (declare (not safe)) (##unchecked-structure-set! - _self98184_ - __tmp98240 + _self98446_ + __tmp98502 '2 - __tmp98239 + __tmp98501 '#f))) - (let ((__tmp98236 + (let ((__tmp98498 (let () (declare (not safe)) - (##vector-length _self98184_)))) + (##vector-length _self98446_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self98184_ + _self98446_ '2 - __tmp98236))))) + __tmp98498))))) (let () (declare (not safe)) (bind-method!__% @@ -121,46 +121,46 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_message98053_ _stx98054_ . _details98055_) - (let ((_ctx98060_ - (let ((_$e98057_ (gxc#current-compile-context))) - (if _$e98057_ _$e98057_ 'compile)))) + (lambda (_message98315_ _stx98316_ . _details98317_) + (let ((_ctx98322_ + (let ((_$e98319_ (gxc#current-compile-context))) + (if _$e98319_ _$e98319_ 'compile)))) (apply gx#raise-syntax-error - _ctx98060_ - _message98053_ - _stx98054_ - _details98055_)))) + _ctx98322_ + _message98315_ + _stx98316_ + _details98317_)))) (define gxc#verbose - (lambda _args98050_ + (lambda _args98312_ (if (gxc#current-compile-verbose) - (let ((__tmp98242 (lambda () (apply displayln _args98050_)))) + (let ((__tmp98504 (lambda () (apply displayln _args98312_)))) (declare (not safe)) - (with-lock gxc#+verbose-mutex+ __tmp98242)) + (with-lock gxc#+verbose-mutex+ __tmp98504)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_id98032_) - (let* ((_str98034_ - (if (let () (declare (not safe)) (symbol? _id98032_)) - (symbol->string _id98032_) - _id98032_)) - (_len98036_ (string-length _str98034_)) - (_res98038_ (make-string _len98036_))) - (let _lp98041_ ((_i98043_ '0)) - (if (fx< _i98043_ _len98036_) - (let* ((_char98045_ (string-ref _str98034_ _i98043_)) - (_xchar98047_ + (lambda (_id98294_) + (let* ((_str98296_ + (if (let () (declare (not safe)) (symbol? _id98294_)) + (symbol->string _id98294_) + _id98294_)) + (_len98298_ (string-length _str98296_)) + (_res98300_ (make-string _len98298_))) + (let _lp98303_ ((_i98305_ '0)) + (if (fx< _i98305_ _len98298_) + (let* ((_char98307_ (string-ref _str98296_ _i98305_)) + (_xchar98309_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _char98045_)) + _char98307_)) '#\_ - _char98045_))) - (string-set! _res98038_ _i98043_ _xchar98047_) - (let ((__tmp98243 - (let () (declare (not safe)) (fx+ _i98043_ '1)))) + _char98307_))) + (string-set! _res98300_ _i98305_ _xchar98309_) + (let ((__tmp98505 + (let () (declare (not safe)) (fx+ _i98305_ '1)))) (declare (not safe)) - (_lp98041_ __tmp98243))) - _res98038_))))))) + (_lp98303_ __tmp98505))) + _res98300_))))))) diff --git a/src/bootstrap/gerbil/compiler/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index 9e91defa..12cfe000 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]#_g98273_| + (define |gxc[1]#_g98535_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98275_| + (define |gxc[1]#_g98537_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98277_| + (define |gxc[1]#_g98539_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98282_| + (define |gxc[1]#_g98544_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98285_| + (define |gxc[1]#_g98547_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98290_| + (define |gxc[1]#_g98552_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98293_| + (define |gxc[1]#_g98555_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98298_| + (define |gxc[1]#_g98560_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98301_| + (define |gxc[1]#_g98563_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98306_| + (define |gxc[1]#_g98568_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g98309_| + (define |gxc[1]#_g98571_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! @@ -79,420 +79,420 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx97630_) + (lambda (_stx97892_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__% _stx97630_ 'stx-eq? 'stx-e 'quote)))) + (gx#macro-expand-syntax-case__% _stx97892_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_stx97633_) - (let* ((_g9763697660_ - (lambda (_g9763797656_) + (lambda (_stx97895_) + (let* ((_g9789897922_ + (lambda (_g9789997918_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9763797656_)))) - (_g9763597963_ - (lambda (_g9763797664_) + _g9789997918_)))) + (_g9789798225_ + (lambda (_g9789997926_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9763797664_)) - (let ((_e9764297667_ + (gx#stx-pair? _g9789997926_)) + (let ((_e9790497929_ (let () (declare (not safe)) - (gx#syntax-e _g9763797664_)))) - (let ((_hd9764197671_ + (gx#syntax-e _g9789997926_)))) + (let ((_hd9790397933_ (let () (declare (not safe)) - (##car _e9764297667_))) - (_tl9764097674_ + (##car _e9790497929_))) + (_tl9790297936_ (let () (declare (not safe)) - (##cdr _e9764297667_)))) + (##cdr _e9790497929_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9764097674_)) - (let ((_e9764597677_ + (gx#stx-pair? _tl9790297936_)) + (let ((_e9790797939_ (let () (declare (not safe)) - (gx#syntax-e _tl9764097674_)))) - (let ((_hd9764497681_ + (gx#syntax-e _tl9790297936_)))) + (let ((_hd9790697943_ (let () (declare (not safe)) - (##car _e9764597677_))) - (_tl9764397684_ + (##car _e9790797939_))) + (_tl9790597946_ (let () (declare (not safe)) - (##cdr _e9764597677_)))) + (##cdr _e9790797939_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9764397684_)) - (let ((_g98244_ + (gx#stx-pair/null? _tl9790597946_)) + (let ((_g98506_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9764397684_ + _tl9790597946_ '0)))) (begin - (let ((_g98245_ + (let ((_g98507_ (let () (declare (not safe)) - (if (##values? _g98244_) + (if (##values? _g98506_) (##vector-length - _g98244_) + _g98506_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98245_ 2))) + (##fx= _g98507_ 2))) (error "Context expects 2 values" - _g98245_))) - (let ((_target9764697687_ + _g98507_))) + (let ((_target9790897949_ (let () (declare (not safe)) - (##vector-ref _g98244_ 0))) - (_tl9764897690_ + (##vector-ref _g98506_ 0))) + (_tl9791097952_ (let () (declare (not safe)) - (##vector-ref _g98244_ 1)))) + (##vector-ref _g98506_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9764897690_)) - (letrec ((_loop9764997693_ - (lambda (_hd9764797697_ + _tl9791097952_)) + (letrec ((_loop9791197955_ + (lambda (_hd9790997959_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause9765397700_) + _clause9791597962_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9764797697_)) - (let ((_e9765097703_ + (gx#stx-pair? _hd9790997959_)) + (let ((_e9791297965_ (let () (declare (not safe)) - (gx#syntax-e _hd9764797697_)))) - (let ((_lp-hd9765197707_ + (gx#syntax-e _hd9790997959_)))) + (let ((_lp-hd9791397969_ (let () (declare (not safe)) - (##car _e9765097703_))) - (_lp-tl9765297710_ + (##car _e9791297965_))) + (_lp-tl9791497972_ (let () (declare (not safe)) - (##cdr _e9765097703_)))) - (_loop9764997693_ - _lp-tl9765297710_ + (##cdr _e9791297965_)))) + (_loop9791197955_ + _lp-tl9791497972_ (let () (declare (not safe)) - (cons _lp-hd9765197707_ _clause9765397700_))))) - (let ((_clause9765497713_ - (reverse _clause9765397700_))) - ((lambda (_L97717_ _L97719_) + (cons _lp-hd9791397969_ _clause9791597962_))))) + (let ((_clause9791697975_ + (reverse _clause9791597962_))) + ((lambda (_L97979_ _L97981_) (if (let () (declare (not safe)) - (gx#identifier-list? _L97719_)) - (let* ((_g9773897755_ - (lambda (_g9773997751_) + (gx#identifier-list? _L97981_)) + (let* ((_g9800098017_ + (lambda (_g9800198013_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9773997751_)))) - (_g9773797816_ - (lambda (_g9773997759_) + _g9800198013_)))) + (_g9799998078_ + (lambda (_g9800198021_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g9773997759_)) - (let ((_g98246_ + _g9800198021_)) + (let ((_g98508_ (let () (declare (not safe)) (gx#syntax-split-splice - _g9773997759_ + _g9800198021_ '0)))) (begin - (let ((_g98247_ + (let ((_g98509_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g98246_) - (##vector-length _g98246_) + _g98508_) + (##vector-length _g98508_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g98247_ 2))) - (error "Context expects 2 values" _g98247_))) + (##fx= _g98509_ 2))) + (error "Context expects 2 values" _g98509_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target9774197762_ + (let ((_target9800398024_ (let () (declare (not safe)) (##vector-ref - _g98246_ + _g98508_ 0))) - (_tl9774397765_ + (_tl9800598027_ (let () (declare (not safe)) (##vector-ref - _g98246_ + _g98508_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9774397765_)) - (letrec ((_loop9774497768_ + _tl9800598027_)) + (letrec ((_loop9800698030_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd9774297772_ _clause9774897775_) + (lambda (_hd9800498034_ _clause9801098037_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9774297772_)) - (let ((_e9774597778_ + (gx#stx-pair? _hd9800498034_)) + (let ((_e9800798040_ (let () (declare (not safe)) - (gx#syntax-e _hd9774297772_)))) - (let ((_lp-hd9774697782_ + (gx#syntax-e _hd9800498034_)))) + (let ((_lp-hd9800898044_ (let () (declare (not safe)) - (##car _e9774597778_))) - (_lp-tl9774797785_ + (##car _e9800798040_))) + (_lp-tl9800998047_ (let () (declare (not safe)) - (##cdr _e9774597778_)))) - (_loop9774497768_ - _lp-tl9774797785_ + (##cdr _e9800798040_)))) + (_loop9800698030_ + _lp-tl9800998047_ (let () (declare (not safe)) - (cons _lp-hd9774697782_ - _clause9774897775_))))) - (let ((_clause9774997788_ - (reverse _clause9774897775_))) - ((lambda (_L97792_) + (cons _lp-hd9800898044_ + _clause9801098037_))))) + (let ((_clause9801198050_ + (reverse _clause9801098037_))) + ((lambda (_L98054_) (let () - (let ((__tmp98259 + (let ((__tmp98521 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp98248 - (let ((__tmp98257 - (let ((__tmp98258 + (__tmp98510 + (let ((__tmp98519 + (let ((__tmp98520 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '$stx)))) (declare (not safe)) - (cons __tmp98258 '()))) + (cons __tmp98520 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp98249 - (let ((__tmp98250 - (let ((__tmp98256 + (__tmp98511 + (let ((__tmp98512 + (let ((__tmp98518 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp98251 - (let ((__tmp98255 + (__tmp98513 + (let ((__tmp98517 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx))) - (__tmp98252 - (let ((__tmp98253 - (let ((__tmp98254 - (lambda (_g9780797810_ - _g9780897813_) + (__tmp98514 + (let ((__tmp98515 + (let ((__tmp98516 + (lambda (_g9806998072_ + _g9807098075_) (let () (declare (not safe)) - (cons _g9780797810_ - _g9780897813_))))) + (cons _g9806998072_ + _g9807098075_))))) (declare (not safe)) - (foldr1 __tmp98254 '() _L97792_)))) + (foldr1 __tmp98516 '() _L98054_)))) (declare (not safe)) - (cons _L97719_ __tmp98253)))) + (cons _L97981_ __tmp98515)))) (declare (not safe)) - (cons __tmp98255 __tmp98252)))) + (cons __tmp98517 __tmp98514)))) (declare (not safe)) - (cons __tmp98256 __tmp98251)))) + (cons __tmp98518 __tmp98513)))) (declare (not safe)) - (cons __tmp98250 '())))) + (cons __tmp98512 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98257 - __tmp98249)))) + (cons __tmp98519 + __tmp98511)))) (declare (not safe)) - (cons __tmp98259 __tmp98248)))) - _clause9774997788_)))))) - (_loop9774497768_ _target9774197762_ '())) - (_g9773897755_ _g9773997759_))))) + (cons __tmp98521 __tmp98510)))) + _clause9801198050_)))))) + (_loop9800698030_ _target9800398024_ '())) + (_g9800098017_ _g9800198021_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9773897755_ - _g9773997759_))))) - (_g9773797816_ - (let ((__tmp98262 - (lambda (_clause97820_) - (let* ((___stx9818998190_ - _clause97820_) - (_g9782497851_ + (_g9800098017_ + _g9800198021_))))) + (_g9799998078_ + (let ((__tmp98524 + (lambda (_clause98082_) + (let* ((___stx9845198452_ + _clause98082_) + (_g9808698113_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx9818998190_))))) - (let ((___kont9819298193_ - (lambda (_L97936_ - _L97938_) - (let ((__tmp98263 - (let ((__tmp98264 + ___stx9845198452_))))) + (let ((___kont9845498455_ + (lambda (_L98198_ + _L98200_) + (let ((__tmp98525 + (let ((__tmp98526 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98266 + (let ((__tmp98528 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp98265 + (__tmp98527 (let () (declare (not safe)) - (cons _L97936_ '())))) + (cons _L98198_ '())))) (declare (not safe)) - (cons __tmp98266 __tmp98265)))) + (cons __tmp98528 __tmp98527)))) (declare (not safe)) - (cons __tmp98264 '())))) + (cons __tmp98526 '())))) (declare (not safe)) - (cons _L97938_ __tmp98263)))) + (cons _L98200_ __tmp98525)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont9819498195_ - (lambda (_L97888_ - _L97890_ - _L97891_) - (let ((__tmp98267 - (let ((__tmp98268 + (___kont9845698457_ + (lambda (_L98150_ + _L98152_ + _L98153_) + (let ((__tmp98529 + (let ((__tmp98530 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98269 - (let ((__tmp98271 + (let ((__tmp98531 + (let ((__tmp98533 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp98270 + (__tmp98532 (let () (declare (not safe)) - (cons _L97888_ '())))) + (cons _L98150_ '())))) (declare (not safe)) - (cons __tmp98271 __tmp98270)))) + (cons __tmp98533 __tmp98532)))) (declare (not safe)) - (cons __tmp98269 '())))) + (cons __tmp98531 '())))) (declare (not safe)) - (cons _L97890_ __tmp98268)))) + (cons _L98152_ __tmp98530)))) (declare (not safe)) - (cons _L97891_ __tmp98267))))) + (cons _L98153_ __tmp98529))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx9818998190_)) - (let ((_e9783097916_ + ___stx9845198452_)) + (let ((_e9809298178_ (let () (declare (not safe)) (gx#syntax-e - ___stx9818998190_)))) - (let ((_tl9782897923_ + ___stx9845198452_)))) + (let ((_tl9809098185_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e9783097916_))) - (_hd9782997920_ - (let () (declare (not safe)) (##car _e9783097916_)))) + (##cdr _e9809298178_))) + (_hd9809198182_ + (let () (declare (not safe)) (##car _e9809298178_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9782897923_)) - (let ((_e9783397926_ + (gx#stx-pair? _tl9809098185_)) + (let ((_e9809598188_ (let () (declare (not safe)) - (gx#syntax-e _tl9782897923_)))) - (let ((_tl9783197933_ + (gx#syntax-e _tl9809098185_)))) + (let ((_tl9809398195_ (let () (declare (not safe)) - (##cdr _e9783397926_))) - (_hd9783297930_ + (##cdr _e9809598188_))) + (_hd9809498192_ (let () (declare (not safe)) - (##car _e9783397926_)))) + (##car _e9809598188_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9783197933_)) - (___kont9819298193_ _hd9783297930_ _hd9782997920_) + (gx#stx-null? _tl9809398195_)) + (___kont9845498455_ _hd9809498192_ _hd9809198182_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9783197933_)) - (let ((_e9784597878_ + (gx#stx-pair? _tl9809398195_)) + (let ((_e9810798140_ (let () (declare (not safe)) - (gx#syntax-e _tl9783197933_)))) - (let ((_tl9784397885_ + (gx#syntax-e _tl9809398195_)))) + (let ((_tl9810598147_ (let () (declare (not safe)) - (##cdr _e9784597878_))) - (_hd9784497882_ + (##cdr _e9810798140_))) + (_hd9810698144_ (let () (declare (not safe)) - (##car _e9784597878_)))) + (##car _e9810798140_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9784397885_)) - (___kont9819498195_ - _hd9784497882_ - _hd9783297930_ - _hd9782997920_) + (gx#stx-null? _tl9810598147_)) + (___kont9845698457_ + _hd9810698144_ + _hd9809498192_ + _hd9809198182_) (let () (declare (not safe)) - (_g9782497851_))))) + (_g9808698113_))))) (let () (declare (not safe)) - (_g9782497851_)))))) - (let () (declare (not safe)) (_g9782497851_))))) + (_g9808698113_)))))) + (let () (declare (not safe)) (_g9808698113_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9782497851_))))))) - (__tmp98260 - (let ((__tmp98261 - (lambda (_g9795497957_ - _g9795597960_) + (_g9808698113_))))))) + (__tmp98522 + (let ((__tmp98523 + (lambda (_g9821698219_ + _g9821798222_) (let () (declare (not safe)) - (cons _g9795497957_ - _g9795597960_))))) + (cons _g9821698219_ + _g9821798222_))))) (declare (not safe)) - (foldr1 __tmp98261 + (foldr1 __tmp98523 '() - _L97717_)))) + _L97979_)))) (declare (not safe)) - (gx#stx-map1 __tmp98262 __tmp98260)))) - (_g9763697660_ _g9763797664_))) - _clause9765497713_ - _hd9764497681_)))))) + (gx#stx-map1 __tmp98524 __tmp98522)))) + (_g9789897922_ _g9789997926_))) + _clause9791697975_ + _hd9790697943_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9764997693_ - _target9764697687_ + (_loop9791197955_ + _target9790897949_ '())) - (_g9763697660_ - _g9763797664_))))) - (_g9763697660_ _g9763797664_)))) - (_g9763697660_ _g9763797664_)))) - (_g9763697660_ _g9763797664_))))) - (_g9763597963_ _stx97633_)))) + (_g9789897922_ + _g9789997926_))))) + (_g9789897922_ _g9789997926_)))) + (_g9789897922_ _g9789997926_)))) + (_g9789897922_ _g9789997926_))))) + (_g9789798225_ _stx97895_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj98232 + (let ((__obj98494 (let () (declare (not safe)) (##structure @@ -515,7 +515,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98232 + __obj98494 'gxc#symbol-table::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -523,7 +523,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98232 + __obj98494 'symbol-table '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -531,7 +531,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98232 + __obj98494 '(gensyms bindings) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -539,7 +539,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98232 + __obj98494 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -547,7 +547,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98232 + __obj98494 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -555,7 +555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98232 + __obj98494 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -563,7 +563,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98232 + __obj98494 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -571,205 +571,205 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98232 + __obj98494 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98272 |gxc[1]#_g98273_|)) + (let ((__tmp98534 |gxc[1]#_g98535_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98232 - __tmp98272 + __obj98494 + __tmp98534 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98274 |gxc[1]#_g98275_|)) + (let ((__tmp98536 |gxc[1]#_g98537_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98232 - __tmp98274 + __obj98494 + __tmp98536 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98276 |gxc[1]#_g98277_|)) + (let ((__tmp98538 |gxc[1]#_g98539_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98232 - __tmp98276 + __obj98494 + __tmp98538 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98278 - (let ((__tmp98283 - (let ((__tmp98284 |gxc[1]#_g98285_|)) + (let ((__tmp98540 + (let ((__tmp98545 + (let ((__tmp98546 |gxc[1]#_g98547_|)) (declare (not safe)) - (cons 'gensyms __tmp98284))) - (__tmp98279 - (let ((__tmp98280 - (let ((__tmp98281 |gxc[1]#_g98282_|)) + (cons 'gensyms __tmp98546))) + (__tmp98541 + (let ((__tmp98542 + (let ((__tmp98543 |gxc[1]#_g98544_|)) (declare (not safe)) - (cons 'bindings __tmp98281)))) + (cons 'bindings __tmp98543)))) (declare (not safe)) - (cons __tmp98280 '())))) + (cons __tmp98542 '())))) (declare (not safe)) - (cons __tmp98283 __tmp98279)))) + (cons __tmp98545 __tmp98541)))) (declare (not safe)) (##unchecked-structure-set! - __obj98232 - __tmp98278 + __obj98494 + __tmp98540 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98286 - (let ((__tmp98291 - (let ((__tmp98292 |gxc[1]#_g98293_|)) + (let ((__tmp98548 + (let ((__tmp98553 + (let ((__tmp98554 |gxc[1]#_g98555_|)) (declare (not safe)) - (cons 'gensyms __tmp98292))) - (__tmp98287 - (let ((__tmp98288 - (let ((__tmp98289 |gxc[1]#_g98290_|)) + (cons 'gensyms __tmp98554))) + (__tmp98549 + (let ((__tmp98550 + (let ((__tmp98551 |gxc[1]#_g98552_|)) (declare (not safe)) - (cons 'bindings __tmp98289)))) + (cons 'bindings __tmp98551)))) (declare (not safe)) - (cons __tmp98288 '())))) + (cons __tmp98550 '())))) (declare (not safe)) - (cons __tmp98291 __tmp98287)))) + (cons __tmp98553 __tmp98549)))) (declare (not safe)) (##unchecked-structure-set! - __obj98232 - __tmp98286 + __obj98494 + __tmp98548 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98294 - (let ((__tmp98299 - (let ((__tmp98300 |gxc[1]#_g98301_|)) + (let ((__tmp98556 + (let ((__tmp98561 + (let ((__tmp98562 |gxc[1]#_g98563_|)) (declare (not safe)) - (cons 'gensyms __tmp98300))) - (__tmp98295 - (let ((__tmp98296 - (let ((__tmp98297 |gxc[1]#_g98298_|)) + (cons 'gensyms __tmp98562))) + (__tmp98557 + (let ((__tmp98558 + (let ((__tmp98559 |gxc[1]#_g98560_|)) (declare (not safe)) - (cons 'bindings __tmp98297)))) + (cons 'bindings __tmp98559)))) (declare (not safe)) - (cons __tmp98296 '())))) + (cons __tmp98558 '())))) (declare (not safe)) - (cons __tmp98299 __tmp98295)))) + (cons __tmp98561 __tmp98557)))) (declare (not safe)) (##unchecked-structure-set! - __obj98232 - __tmp98294 + __obj98494 + __tmp98556 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp98302 - (let ((__tmp98307 - (let ((__tmp98308 |gxc[1]#_g98309_|)) + (let ((__tmp98564 + (let ((__tmp98569 + (let ((__tmp98570 |gxc[1]#_g98571_|)) (declare (not safe)) - (cons 'gensyms __tmp98308))) - (__tmp98303 - (let ((__tmp98304 - (let ((__tmp98305 |gxc[1]#_g98306_|)) + (cons 'gensyms __tmp98570))) + (__tmp98565 + (let ((__tmp98566 + (let ((__tmp98567 |gxc[1]#_g98568_|)) (declare (not safe)) - (cons 'bindings __tmp98305)))) + (cons 'bindings __tmp98567)))) (declare (not safe)) - (cons __tmp98304 '())))) + (cons __tmp98566 '())))) (declare (not safe)) - (cons __tmp98307 __tmp98303)))) + (cons __tmp98569 __tmp98565)))) (declare (not safe)) (##unchecked-structure-set! - __obj98232 - __tmp98302 + __obj98494 + __tmp98564 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj98232)) + __obj98494)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_$stx97969_) - (let* ((_g9797397987_ - (lambda (_g9797497983_) + (lambda (_$stx98231_) + (let* ((_g9823598249_ + (lambda (_g9823698245_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9797497983_)))) - (_g9797298028_ - (lambda (_g9797497991_) + _g9823698245_)))) + (_g9823498290_ + (lambda (_g9823698253_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9797497991_)) - (let ((_e9797897994_ + (gx#stx-pair? _g9823698253_)) + (let ((_e9824098256_ (let () (declare (not safe)) - (gx#syntax-e _g9797497991_)))) - (let ((_hd9797797998_ + (gx#syntax-e _g9823698253_)))) + (let ((_hd9823998260_ (let () (declare (not safe)) - (##car _e9797897994_))) - (_tl9797698001_ + (##car _e9824098256_))) + (_tl9823898263_ (let () (declare (not safe)) - (##cdr _e9797897994_)))) + (##cdr _e9824098256_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9797698001_)) - (let ((_e9798198004_ + (gx#stx-pair? _tl9823898263_)) + (let ((_e9824398266_ (let () (declare (not safe)) - (gx#syntax-e _tl9797698001_)))) - (let ((_hd9798098008_ + (gx#syntax-e _tl9823898263_)))) + (let ((_hd9824298270_ (let () (declare (not safe)) - (##car _e9798198004_))) - (_tl9797998011_ + (##car _e9824398266_))) + (_tl9824198273_ (let () (declare (not safe)) - (##cdr _e9798198004_)))) + (##cdr _e9824398266_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9797998011_)) - ((lambda (_L98014_) - (let ((__tmp98317 + (gx#stx-null? _tl9824198273_)) + ((lambda (_L98276_) + (let ((__tmp98579 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp98310 - (let ((__tmp98316 + (__tmp98572 + (let ((__tmp98578 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+verbose-mutex+))) - (__tmp98311 - (let ((__tmp98312 - (let ((__tmp98315 + (__tmp98573 + (let ((__tmp98574 + (let ((__tmp98577 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp98313 - (let ((__tmp98314 + (__tmp98575 + (let ((__tmp98576 (let () (declare (not safe)) - (cons _L98014_ '())))) + (cons _L98276_ '())))) (declare (not safe)) - (cons '() __tmp98314)))) + (cons '() __tmp98576)))) (declare (not safe)) - (cons __tmp98315 __tmp98313)))) + (cons __tmp98577 __tmp98575)))) (declare (not safe)) - (cons __tmp98312 '())))) + (cons __tmp98574 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98316 - __tmp98311)))) + (cons __tmp98578 + __tmp98573)))) (declare (not safe)) - (cons __tmp98317 __tmp98310))) - _hd9798098008_) - (_g9797397987_ _g9797497991_)))) - (_g9797397987_ _g9797497991_)))) - (_g9797397987_ _g9797497991_))))) - (_g9797298028_ _$stx97969_)))))) + (cons __tmp98579 __tmp98572))) + _hd9824298270_) + (_g9823598249_ _g9823698253_)))) + (_g9823598249_ _g9823698253_)))) + (_g9823598249_ _g9823698253_))))) + (_g9823498290_ _$stx98231_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index 7a03adf7..81b5a1c8 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -9,15 +9,15 @@ namespace: gxc (in: :gerbil/core <syntax-sugar>) (spec: (:gerbil/gambit) - (0 s32vector? 0 s32vector?) - (0 u8vector? 0 u8vector?) - (0 s64vector? 0 s64vector?) - (0 s8vector? 0 s8vector?) - (0 u16vector? 0 u16vector?) - (0 u32vector? 0 u32vector?) (0 u64vector? 0 u64vector?) - (0 f32vector? 0 f32vector?) + (0 u32vector? 0 u32vector?) + (0 u16vector? 0 u16vector?) (0 f64vector? 0 f64vector?) + (0 f32vector? 0 f32vector?) + (0 s8vector? 0 s8vector?) + (0 s64vector? 0 s64vector?) + (0 s32vector? 0 s32vector?) + (0 u8vector? 0 u8vector?) (0 s16vector? 0 s16vector?))) (%#export #t) (%#define-runtime gambit-annotations gxc#gambit-annotations) diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 0ce984f7..faba8cf0 100644 --- a/src/bootstrap/gerbil/compiler/compile__0.scm +++ b/src/bootstrap/gerbil/compiler/compile__0.scm @@ -1,51 +1,51 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1709375798) + (define gerbil/compiler/compile::timestamp 1709457369) (begin - (define gxc#_g111305_ + (define gxc#_g111567_ (gx#core-deserialize-mark - '(0 (hd . _hd109618_) (else . _else109595_)) + '(0 (hd . _hd109880_) (else . _else109857_)) (gx#current-expander-context))) - (define gxc#_g111306_ + (define gxc#_g111568_ (##structure gx#syntax-quote::t - '_hd109618_ + '_hd109880_ #f (gx#current-expander-context) - (list gxc#_g111305_))) - (define gxc#_g111311_ + (list gxc#_g111567_))) + (define gxc#_g111573_ (gx#core-deserialize-mark - '(0 (hd . _hd109679_) (else . _else109656_)) + '(0 (hd . _hd109941_) (else . _else109918_)) (gx#current-expander-context))) - (define gxc#_g111312_ + (define gxc#_g111574_ (##structure gx#syntax-quote::t - '_hd109679_ + '_hd109941_ #f (gx#current-expander-context) - (list gxc#_g111311_))) - (define gxc#_g111317_ + (list gxc#_g111573_))) + (define gxc#_g111579_ (gx#core-deserialize-mark - '(0 (hd . _hd109741_) (else . _else109718_)) + '(0 (hd . _hd110003_) (else . _else109980_)) (gx#current-expander-context))) - (define gxc#_g111318_ + (define gxc#_g111580_ (##structure gx#syntax-quote::t - '_hd109741_ + '_hd110003_ #f (gx#current-expander-context) - (list gxc#_g111317_))) - (define gxc#_g111323_ + (list gxc#_g111579_))) + (define gxc#_g111585_ (gx#core-deserialize-mark - '(0 (hd . _hd109804_) (else . _else109781_)) + '(0 (hd . _hd110066_) (else . _else110043_)) (gx#current-expander-context))) - (define gxc#_g111324_ + (define gxc#_g111586_ (##structure gx#syntax-quote::t - '_hd109804_ + '_hd110066_ #f (gx#current-expander-context) - (list gxc#_g111323_))) + (list gxc#_g111585_))) (begin (define gxc#gambit-annotations '(not gambit-scheme @@ -87,4545 +87,4545 @@ (define gxc#current-compile-boolean-context (make-parameter '#f)) (define gxc#make-bound-identifier-table (lambda () - (letrec ((_hash-e109816_ - (lambda (_id109818_) + (letrec ((_hash-e110078_ + (lambda (_id110080_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _id109818_)))))) + (let () (declare (not safe)) (gx#stx-e _id110080_)))))) (let () (declare (not safe)) (make-hash-table 'test: gx#bound-identifier=? 'hash: - _hash-e109816_))))) + _hash-e110078_))))) (define gxc#compile-e__0 - (lambda (_stx109569_) - (let* ((___stx109820109821_ _stx109569_) - (_g109572109583_ + (lambda (_stx109831_) + (let* ((___stx110082110083_ _stx109831_) + (_g109834109845_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109820109821_))))) - (let ((___kont109822109823_ - (lambda (_L109610_) - (let ((_$e109620_ - (let ((__tmp111302 (gxc#current-compile-methods)) - (__tmp111301 + ___stx110082110083_))))) + (let ((___kont110084110085_ + (lambda (_L109872_) + (let ((_$e109882_ + (let ((__tmp111564 (gxc#current-compile-methods)) + (__tmp111563 (let () (declare (not safe)) - (gx#stx-e _L109610_)))) + (gx#stx-e _L109872_)))) (declare (not safe)) - (hash-get __tmp111302 __tmp111301)))) - (if _$e109620_ - ((lambda (_method109623_) + (hash-get __tmp111564 __tmp111563)))) + (if _$e109882_ + ((lambda (_method109885_) (declare (not safe)) - (_method109623_ _stx109569_)) - _$e109620_) + (_method109885_ _stx109831_)) + _$e109882_) '#!void)))) - (___kont109824109825_ - (lambda (_L109588_) - (let ((__tmp111303 - (let ((__tmp111304 gxc#_g111306_)) + (___kont110086110087_ + (lambda (_L109850_) + (let ((__tmp111565 + (let ((__tmp111566 gxc#_g111568_)) (declare (not safe)) - (gx#datum->syntax__% __tmp111304 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp111566 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx109569_ - __tmp111303))))) + _stx109831_ + __tmp111565))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109820109821_)) - (let ((_e109577109602_ + (gx#stx-pair? ___stx110082110083_)) + (let ((_e109839109864_ (let () (declare (not safe)) - (gx#stx-e ___stx109820109821_)))) - (let ((_tl109575109607_ + (gx#stx-e ___stx110082110083_)))) + (let ((_tl109837109869_ (let () (declare (not safe)) - (##cdr _e109577109602_))) - (_hd109576109605_ + (##cdr _e109839109864_))) + (_hd109838109867_ (let () (declare (not safe)) - (##car _e109577109602_)))) - (___kont109822109823_ _hd109576109605_))) - (___kont109824109825_ ___stx109820109821_)))))) + (##car _e109839109864_)))) + (___kont110084110085_ _hd109838109867_))) + (___kont110086110087_ ___stx110082110083_)))))) (define gxc#compile-e__1 - (lambda (_stx109629_ _arg109630_) - (let* ((___stx109834109835_ _stx109629_) - (_g109633109644_ + (lambda (_stx109891_ _arg109892_) + (let* ((___stx110096110097_ _stx109891_) + (_g109895109906_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109834109835_))))) - (let ((___kont109836109837_ - (lambda (_L109671_) - (let ((_$e109681_ - (let ((__tmp111308 (gxc#current-compile-methods)) - (__tmp111307 + ___stx110096110097_))))) + (let ((___kont110098110099_ + (lambda (_L109933_) + (let ((_$e109943_ + (let ((__tmp111570 (gxc#current-compile-methods)) + (__tmp111569 (let () (declare (not safe)) - (gx#stx-e _L109671_)))) + (gx#stx-e _L109933_)))) (declare (not safe)) - (hash-get __tmp111308 __tmp111307)))) - (if _$e109681_ - ((lambda (_method109684_) + (hash-get __tmp111570 __tmp111569)))) + (if _$e109943_ + ((lambda (_method109946_) (declare (not safe)) - (_method109684_ _stx109629_ _arg109630_)) - _$e109681_) + (_method109946_ _stx109891_ _arg109892_)) + _$e109943_) '#!void)))) - (___kont109838109839_ - (lambda (_L109649_) - (let ((__tmp111309 - (let ((__tmp111310 gxc#_g111312_)) + (___kont110100110101_ + (lambda (_L109911_) + (let ((__tmp111571 + (let ((__tmp111572 gxc#_g111574_)) (declare (not safe)) - (gx#datum->syntax__% __tmp111310 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp111572 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx109629_ - __tmp111309))))) + _stx109891_ + __tmp111571))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109834109835_)) - (let ((_e109638109663_ + (gx#stx-pair? ___stx110096110097_)) + (let ((_e109900109925_ (let () (declare (not safe)) - (gx#stx-e ___stx109834109835_)))) - (let ((_tl109636109668_ + (gx#stx-e ___stx110096110097_)))) + (let ((_tl109898109930_ (let () (declare (not safe)) - (##cdr _e109638109663_))) - (_hd109637109666_ + (##cdr _e109900109925_))) + (_hd109899109928_ (let () (declare (not safe)) - (##car _e109638109663_)))) - (___kont109836109837_ _hd109637109666_))) - (___kont109838109839_ ___stx109834109835_)))))) + (##car _e109900109925_)))) + (___kont110098110099_ _hd109899109928_))) + (___kont110100110101_ ___stx110096110097_)))))) (define gxc#compile-e__2 - (lambda (_stx109690_ _arg1109691_ _arg2109692_) - (let* ((___stx109848109849_ _stx109690_) - (_g109695109706_ + (lambda (_stx109952_ _arg1109953_ _arg2109954_) + (let* ((___stx110110110111_ _stx109952_) + (_g109957109968_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109848109849_))))) - (let ((___kont109850109851_ - (lambda (_L109733_) - (let ((_$e109743_ - (let ((__tmp111314 (gxc#current-compile-methods)) - (__tmp111313 + ___stx110110110111_))))) + (let ((___kont110112110113_ + (lambda (_L109995_) + (let ((_$e110005_ + (let ((__tmp111576 (gxc#current-compile-methods)) + (__tmp111575 (let () (declare (not safe)) - (gx#stx-e _L109733_)))) + (gx#stx-e _L109995_)))) (declare (not safe)) - (hash-get __tmp111314 __tmp111313)))) - (if _$e109743_ - ((lambda (_method109746_) + (hash-get __tmp111576 __tmp111575)))) + (if _$e110005_ + ((lambda (_method110008_) (declare (not safe)) - (_method109746_ - _stx109690_ - _arg1109691_ - _arg2109692_)) - _$e109743_) + (_method110008_ + _stx109952_ + _arg1109953_ + _arg2109954_)) + _$e110005_) '#!void)))) - (___kont109852109853_ - (lambda (_L109711_) - (let ((__tmp111315 - (let ((__tmp111316 gxc#_g111318_)) + (___kont110114110115_ + (lambda (_L109973_) + (let ((__tmp111577 + (let ((__tmp111578 gxc#_g111580_)) (declare (not safe)) - (gx#datum->syntax__% __tmp111316 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp111578 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx109690_ - __tmp111315))))) + _stx109952_ + __tmp111577))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109848109849_)) - (let ((_e109700109725_ + (gx#stx-pair? ___stx110110110111_)) + (let ((_e109962109987_ (let () (declare (not safe)) - (gx#stx-e ___stx109848109849_)))) - (let ((_tl109698109730_ + (gx#stx-e ___stx110110110111_)))) + (let ((_tl109960109992_ (let () (declare (not safe)) - (##cdr _e109700109725_))) - (_hd109699109728_ + (##cdr _e109962109987_))) + (_hd109961109990_ (let () (declare (not safe)) - (##car _e109700109725_)))) - (___kont109850109851_ _hd109699109728_))) - (___kont109852109853_ ___stx109848109849_)))))) + (##car _e109962109987_)))) + (___kont110112110113_ _hd109961109990_))) + (___kont110114110115_ ___stx110110110111_)))))) (define gxc#compile-e__3 - (lambda (_stx109752_ _arg1109753_ _arg2109754_ . _args109755_) - (let* ((___stx109862109863_ _stx109752_) - (_g109758109769_ + (lambda (_stx110014_ _arg1110015_ _arg2110016_ . _args110017_) + (let* ((___stx110124110125_ _stx110014_) + (_g110020110031_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109862109863_))))) - (let ((___kont109864109865_ - (lambda (_L109796_) - (let ((_$e109806_ - (let ((__tmp111320 (gxc#current-compile-methods)) - (__tmp111319 + ___stx110124110125_))))) + (let ((___kont110126110127_ + (lambda (_L110058_) + (let ((_$e110068_ + (let ((__tmp111582 (gxc#current-compile-methods)) + (__tmp111581 (let () (declare (not safe)) - (gx#stx-e _L109796_)))) + (gx#stx-e _L110058_)))) (declare (not safe)) - (hash-get __tmp111320 __tmp111319)))) - (if _$e109806_ - ((lambda (_method109809_) + (hash-get __tmp111582 __tmp111581)))) + (if _$e110068_ + ((lambda (_method110071_) (declare (not safe)) - (apply _method109809_ - _stx109752_ - _arg1109753_ - _arg2109754_ - _args109755_)) - _$e109806_) + (apply _method110071_ + _stx110014_ + _arg1110015_ + _arg2110016_ + _args110017_)) + _$e110068_) '#!void)))) - (___kont109866109867_ - (lambda (_L109774_) - (let ((__tmp111321 - (let ((__tmp111322 gxc#_g111324_)) + (___kont110128110129_ + (lambda (_L110036_) + (let ((__tmp111583 + (let ((__tmp111584 gxc#_g111586_)) (declare (not safe)) - (gx#datum->syntax__% __tmp111322 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp111584 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx109752_ - __tmp111321))))) + _stx110014_ + __tmp111583))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109862109863_)) - (let ((_e109763109788_ + (gx#stx-pair? ___stx110124110125_)) + (let ((_e110025110050_ (let () (declare (not safe)) - (gx#stx-e ___stx109862109863_)))) - (let ((_tl109761109793_ + (gx#stx-e ___stx110124110125_)))) + (let ((_tl110023110055_ (let () (declare (not safe)) - (##cdr _e109763109788_))) - (_hd109762109791_ + (##cdr _e110025110050_))) + (_hd110024110053_ (let () (declare (not safe)) - (##car _e109763109788_)))) - (___kont109864109865_ _hd109762109791_))) - (___kont109866109867_ ___stx109862109863_)))))) + (##car _e110025110050_)))) + (___kont110126110127_ _hd110024110053_))) + (___kont110128110129_ ___stx110124110125_)))))) (define gxc#compile-e - (lambda _g111326_ - (let ((_g111325_ (let () (declare (not safe)) (##length _g111326_)))) - (cond ((let () (declare (not safe)) (##fx= _g111325_ 1)) - (apply (lambda (_stx109569_) + (lambda _g111588_ + (let ((_g111587_ (let () (declare (not safe)) (##length _g111588_)))) + (cond ((let () (declare (not safe)) (##fx= _g111587_ 1)) + (apply (lambda (_stx109831_) (let () (declare (not safe)) - (gxc#compile-e__0 _stx109569_))) - _g111326_)) - ((let () (declare (not safe)) (##fx= _g111325_ 2)) - (apply (lambda (_stx109629_ _arg109630_) + (gxc#compile-e__0 _stx109831_))) + _g111588_)) + ((let () (declare (not safe)) (##fx= _g111587_ 2)) + (apply (lambda (_stx109891_ _arg109892_) (let () (declare (not safe)) - (gxc#compile-e__1 _stx109629_ _arg109630_))) - _g111326_)) - ((let () (declare (not safe)) (##fx= _g111325_ 3)) - (apply (lambda (_stx109690_ _arg1109691_ _arg2109692_) + (gxc#compile-e__1 _stx109891_ _arg109892_))) + _g111588_)) + ((let () (declare (not safe)) (##fx= _g111587_ 3)) + (apply (lambda (_stx109952_ _arg1109953_ _arg2109954_) (let () (declare (not safe)) (gxc#compile-e__2 - _stx109690_ - _arg1109691_ - _arg2109692_))) - _g111326_)) - ((let () (declare (not safe)) (##fx>= _g111325_ 3)) - (apply gxc#compile-e__3 _g111326_)) + _stx109952_ + _arg1109953_ + _arg2109954_))) + _g111588_)) + ((let () (declare (not safe)) (##fx>= _g111587_ 3)) + (apply gxc#compile-e__3 _g111588_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g111326_)))))) - (define gxc#void-method (lambda (_stx109566_ . _args109567_) '#!void)) - (define gxc#false-method (lambda (_stx109563_ . _args109564_) '#f)) - (define gxc#true-method (lambda (_stx109560_ . _args109561_) '#t)) + _g111588_)))))) + (define gxc#void-method (lambda (_stx109828_ . _args109829_) '#!void)) + (define gxc#false-method (lambda (_stx109825_ . _args109826_) '#f)) + (define gxc#true-method (lambda (_stx109822_ . _args109823_) '#t)) (define gxc#&void-expression (make-promise (lambda () - (let ((_tbl109557_ + (let ((_tbl109819_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#begin-annotation gxc#void-method)) + (hash-put! _tbl109819_ '%#begin-annotation gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#lambda gxc#void-method)) + (hash-put! _tbl109819_ '%#lambda gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#case-lambda gxc#void-method)) + (hash-put! _tbl109819_ '%#case-lambda gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#let-values gxc#void-method)) + (hash-put! _tbl109819_ '%#let-values gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#letrec-values gxc#void-method)) + (hash-put! _tbl109819_ '%#letrec-values gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#letrec*-values gxc#void-method)) + (hash-put! _tbl109819_ '%#letrec*-values gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#quote gxc#void-method)) + (hash-put! _tbl109819_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#quote-syntax gxc#void-method)) + (hash-put! _tbl109819_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#call gxc#void-method)) + (hash-put! _tbl109819_ '%#call gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#call-unchecked gxc#void-method)) + (hash-put! _tbl109819_ '%#call-unchecked gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#if gxc#void-method)) + (hash-put! _tbl109819_ '%#if gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#ref gxc#void-method)) + (hash-put! _tbl109819_ '%#ref gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#set! gxc#void-method)) + (hash-put! _tbl109819_ '%#set! gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#struct-instance? gxc#void-method)) + (hash-put! _tbl109819_ '%#struct-instance? gxc#void-method)) (let () (declare (not safe)) (hash-put! - _tbl109557_ + _tbl109819_ '%#struct-direct-instance? gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#struct-ref gxc#void-method)) + (hash-put! _tbl109819_ '%#struct-ref gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#struct-set! gxc#void-method)) + (hash-put! _tbl109819_ '%#struct-set! gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#struct-direct-ref gxc#void-method)) + (hash-put! _tbl109819_ '%#struct-direct-ref gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#struct-direct-set! gxc#void-method)) + (hash-put! _tbl109819_ '%#struct-direct-set! gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109557_ '%#struct-unchecked-ref gxc#void-method)) + (hash-put! _tbl109819_ '%#struct-unchecked-ref gxc#void-method)) (let () (declare (not safe)) (hash-put! - _tbl109557_ + _tbl109819_ '%#struct-unchecked-set! gxc#void-method)) - _tbl109557_)))) + _tbl109819_)))) (define gxc#&void-special-form (make-promise (lambda () - (let ((_tbl109553_ + (let ((_tbl109815_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#begin gxc#void-method)) + (hash-put! _tbl109815_ '%#begin gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#begin-syntax gxc#void-method)) + (hash-put! _tbl109815_ '%#begin-syntax gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#begin-foreign gxc#void-method)) + (hash-put! _tbl109815_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#module gxc#void-method)) + (hash-put! _tbl109815_ '%#module gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#import gxc#void-method)) + (hash-put! _tbl109815_ '%#import gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#export gxc#void-method)) + (hash-put! _tbl109815_ '%#export gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#provide gxc#void-method)) + (hash-put! _tbl109815_ '%#provide gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#extern gxc#void-method)) + (hash-put! _tbl109815_ '%#extern gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#define-values gxc#void-method)) + (hash-put! _tbl109815_ '%#define-values gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#define-syntax gxc#void-method)) + (hash-put! _tbl109815_ '%#define-syntax gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#define-alias gxc#void-method)) + (hash-put! _tbl109815_ '%#define-alias gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109553_ '%#declare gxc#void-method)) - _tbl109553_)))) + (hash-put! _tbl109815_ '%#declare gxc#void-method)) + _tbl109815_)))) (define gxc#&void (make-promise (lambda () - (let ((_tbl109549_ + (let ((_tbl109811_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111327 (force gxc#&void-special-form))) + (let ((__tmp111589 (force gxc#&void-special-form))) (declare (not safe)) - (hash-merge! _tbl109549_ __tmp111327)) - (let ((__tmp111328 (force gxc#&void-expression))) + (hash-merge! _tbl109811_ __tmp111589)) + (let ((__tmp111590 (force gxc#&void-expression))) (declare (not safe)) - (hash-merge! _tbl109549_ __tmp111328)) - _tbl109549_)))) + (hash-merge! _tbl109811_ __tmp111590)) + _tbl109811_)))) (define gxc#&false-expression (make-promise (lambda () - (let ((_tbl109545_ + (let ((_tbl109807_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#begin-annotation gxc#false-method)) + (hash-put! _tbl109807_ '%#begin-annotation gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#lambda gxc#false-method)) + (hash-put! _tbl109807_ '%#lambda gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#case-lambda gxc#false-method)) + (hash-put! _tbl109807_ '%#case-lambda gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#let-values gxc#false-method)) + (hash-put! _tbl109807_ '%#let-values gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#letrec-values gxc#false-method)) + (hash-put! _tbl109807_ '%#letrec-values gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#letrec*-values gxc#false-method)) + (hash-put! _tbl109807_ '%#letrec*-values gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#quote gxc#false-method)) + (hash-put! _tbl109807_ '%#quote gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#quote-syntax gxc#false-method)) + (hash-put! _tbl109807_ '%#quote-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#call gxc#false-method)) + (hash-put! _tbl109807_ '%#call gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#call-unchecked gxc#false-method)) + (hash-put! _tbl109807_ '%#call-unchecked gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#if gxc#false-method)) + (hash-put! _tbl109807_ '%#if gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#ref gxc#false-method)) + (hash-put! _tbl109807_ '%#ref gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#set! gxc#false-method)) + (hash-put! _tbl109807_ '%#set! gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#struct-instance? gxc#false-method)) + (hash-put! _tbl109807_ '%#struct-instance? gxc#false-method)) (let () (declare (not safe)) (hash-put! - _tbl109545_ + _tbl109807_ '%#struct-direct-instance? gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#struct-ref gxc#false-method)) + (hash-put! _tbl109807_ '%#struct-ref gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#struct-set! gxc#false-method)) + (hash-put! _tbl109807_ '%#struct-set! gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#struct-direct-ref gxc#false-method)) + (hash-put! _tbl109807_ '%#struct-direct-ref gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109545_ '%#struct-direct-set! gxc#false-method)) + (hash-put! _tbl109807_ '%#struct-direct-set! gxc#false-method)) (let () (declare (not safe)) (hash-put! - _tbl109545_ + _tbl109807_ '%#struct-unchecked-ref gxc#false-method)) (let () (declare (not safe)) (hash-put! - _tbl109545_ + _tbl109807_ '%#struct-unchecked-set! gxc#false-method)) - _tbl109545_)))) + _tbl109807_)))) (define gxc#&false-special-form (make-promise (lambda () - (let ((_tbl109541_ + (let ((_tbl109803_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#begin gxc#false-method)) + (hash-put! _tbl109803_ '%#begin gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#begin-syntax gxc#false-method)) + (hash-put! _tbl109803_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#begin-foreign gxc#false-method)) + (hash-put! _tbl109803_ '%#begin-foreign gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#module gxc#false-method)) + (hash-put! _tbl109803_ '%#module gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#import gxc#false-method)) + (hash-put! _tbl109803_ '%#import gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#export gxc#false-method)) + (hash-put! _tbl109803_ '%#export gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#provide gxc#false-method)) + (hash-put! _tbl109803_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#extern gxc#false-method)) + (hash-put! _tbl109803_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#define-values gxc#false-method)) + (hash-put! _tbl109803_ '%#define-values gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#define-syntax gxc#false-method)) + (hash-put! _tbl109803_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#define-alias gxc#false-method)) + (hash-put! _tbl109803_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109541_ '%#declare gxc#false-method)) - _tbl109541_)))) + (hash-put! _tbl109803_ '%#declare gxc#false-method)) + _tbl109803_)))) (define gxc#&false (make-promise (lambda () - (let ((_tbl109537_ + (let ((_tbl109799_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111329 (force gxc#&false-special-form))) + (let ((__tmp111591 (force gxc#&false-special-form))) (declare (not safe)) - (hash-merge! _tbl109537_ __tmp111329)) - (let ((__tmp111330 (force gxc#&false-expression))) + (hash-merge! _tbl109799_ __tmp111591)) + (let ((__tmp111592 (force gxc#&false-expression))) (declare (not safe)) - (hash-merge! _tbl109537_ __tmp111330)) - _tbl109537_)))) + (hash-merge! _tbl109799_ __tmp111592)) + _tbl109799_)))) (define gxc#&collect-bindings (make-promise (lambda () - (let ((_tbl109533_ + (let ((_tbl109795_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111331 (force gxc#&void-expression))) + (let ((__tmp111593 (force gxc#&void-expression))) (declare (not safe)) - (hash-merge! _tbl109533_ __tmp111331)) - (let ((__tmp111332 (force gxc#&void-special-form))) + (hash-merge! _tbl109795_ __tmp111593)) + (let ((__tmp111594 (force gxc#&void-special-form))) (declare (not safe)) - (hash-merge! _tbl109533_ __tmp111332)) + (hash-merge! _tbl109795_ __tmp111594)) (let () (declare (not safe)) - (hash-put! _tbl109533_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl109795_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109533_ + _tbl109795_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl109533_ '%#module gxc#collect-module%)) + (hash-put! _tbl109795_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl109533_ + _tbl109795_ '%#define-values gxc#collect-bindings-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl109533_ + _tbl109795_ '%#define-syntax gxc#collect-bindings-define-syntax%)) - _tbl109533_)))) + _tbl109795_)))) (define gxc#apply-collect-bindings - (lambda (_stx109516_ . _args109518_) - (let ((__tmp111334 + (lambda (_stx109778_ . _args109780_) + (let ((__tmp111596 (lambda () (declare (not safe)) - (if (null? _args109518_) - (gxc#compile-e__0 _stx109516_) - (let ((_arg1109523_ (car _args109518_)) - (_rest109525_ (cdr _args109518_))) - (if (null? _rest109525_) - (gxc#compile-e__1 _stx109516_ _arg1109523_) - (let ((_arg2109528_ (car _rest109525_)) - (_rest109530_ (cdr _rest109525_))) - (if (null? _rest109530_) + (if (null? _args109780_) + (gxc#compile-e__0 _stx109778_) + (let ((_arg1109785_ (car _args109780_)) + (_rest109787_ (cdr _args109780_))) + (if (null? _rest109787_) + (gxc#compile-e__1 _stx109778_ _arg1109785_) + (let ((_arg2109790_ (car _rest109787_)) + (_rest109792_ (cdr _rest109787_))) + (if (null? _rest109792_) (gxc#compile-e__2 - _stx109516_ - _arg1109523_ - _arg2109528_) + _stx109778_ + _arg1109785_ + _arg2109790_) (apply gxc#compile-e - _stx109516_ - _arg1109523_ - _arg2109528_ - _rest109530_)))))))) - (__tmp111333 (force gxc#&collect-bindings))) + _stx109778_ + _arg1109785_ + _arg2109790_ + _rest109792_)))))))) + (__tmp111595 (force gxc#&collect-bindings))) (declare (not safe)) (call-with-parameters - __tmp111334 + __tmp111596 gxc#current-compile-methods - __tmp111333)))) + __tmp111595)))) (define gxc#&lift-modules (make-promise (lambda () - (let ((_tbl109513_ + (let ((_tbl109775_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111335 (force gxc#&void))) + (let ((__tmp111597 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl109513_ __tmp111335)) + (hash-merge! _tbl109775_ __tmp111597)) (let () (declare (not safe)) - (hash-put! _tbl109513_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl109775_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl109513_ '%#module gxc#lift-modules-module%)) - _tbl109513_)))) + (hash-put! _tbl109775_ '%#module gxc#lift-modules-module%)) + _tbl109775_)))) (define gxc#apply-lift-modules - (lambda (_stx109496_ . _args109498_) - (let ((__tmp111337 + (lambda (_stx109758_ . _args109760_) + (let ((__tmp111599 (lambda () (declare (not safe)) - (if (null? _args109498_) - (gxc#compile-e__0 _stx109496_) - (let ((_arg1109503_ (car _args109498_)) - (_rest109505_ (cdr _args109498_))) - (if (null? _rest109505_) - (gxc#compile-e__1 _stx109496_ _arg1109503_) - (let ((_arg2109508_ (car _rest109505_)) - (_rest109510_ (cdr _rest109505_))) - (if (null? _rest109510_) + (if (null? _args109760_) + (gxc#compile-e__0 _stx109758_) + (let ((_arg1109765_ (car _args109760_)) + (_rest109767_ (cdr _args109760_))) + (if (null? _rest109767_) + (gxc#compile-e__1 _stx109758_ _arg1109765_) + (let ((_arg2109770_ (car _rest109767_)) + (_rest109772_ (cdr _rest109767_))) + (if (null? _rest109772_) (gxc#compile-e__2 - _stx109496_ - _arg1109503_ - _arg2109508_) + _stx109758_ + _arg1109765_ + _arg2109770_) (apply gxc#compile-e - _stx109496_ - _arg1109503_ - _arg2109508_ - _rest109510_)))))))) - (__tmp111336 (force gxc#&lift-modules))) + _stx109758_ + _arg1109765_ + _arg2109770_ + _rest109772_)))))))) + (__tmp111598 (force gxc#&lift-modules))) (declare (not safe)) (call-with-parameters - __tmp111337 + __tmp111599 gxc#current-compile-methods - __tmp111336)))) + __tmp111598)))) (define gxc#&find-runtime-code (make-promise (lambda () - (let ((_tbl109493_ + (let ((_tbl109755_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#begin gxc#find-runtime-begin%)) + (hash-put! _tbl109755_ '%#begin gxc#find-runtime-begin%)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#begin-syntax gxc#false-method)) + (hash-put! _tbl109755_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#begin-foreign gxc#true-method)) + (hash-put! _tbl109755_ '%#begin-foreign gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#begin-annotation gxc#true-method)) + (hash-put! _tbl109755_ '%#begin-annotation gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#module gxc#false-method)) + (hash-put! _tbl109755_ '%#module gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#import gxc#false-method)) + (hash-put! _tbl109755_ '%#import gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#export gxc#false-method)) + (hash-put! _tbl109755_ '%#export gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#provide gxc#false-method)) + (hash-put! _tbl109755_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#extern gxc#false-method)) + (hash-put! _tbl109755_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#define-values gxc#true-method)) + (hash-put! _tbl109755_ '%#define-values gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#define-syntax gxc#false-method)) + (hash-put! _tbl109755_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#define-alias gxc#false-method)) + (hash-put! _tbl109755_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#declare gxc#false-method)) + (hash-put! _tbl109755_ '%#declare gxc#false-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#lambda gxc#true-method)) + (hash-put! _tbl109755_ '%#lambda gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#case-lambda gxc#true-method)) + (hash-put! _tbl109755_ '%#case-lambda gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#let-values gxc#true-method)) + (hash-put! _tbl109755_ '%#let-values gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#letrec-values gxc#true-method)) + (hash-put! _tbl109755_ '%#letrec-values gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#letrec*-values gxc#true-method)) + (hash-put! _tbl109755_ '%#letrec*-values gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#quote gxc#true-method)) + (hash-put! _tbl109755_ '%#quote gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#call gxc#true-method)) + (hash-put! _tbl109755_ '%#call gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#call-unchecked gxc#true-method)) + (hash-put! _tbl109755_ '%#call-unchecked gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#if gxc#true-method)) + (hash-put! _tbl109755_ '%#if gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#ref gxc#true-method)) + (hash-put! _tbl109755_ '%#ref gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#set! gxc#true-method)) + (hash-put! _tbl109755_ '%#set! gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#struct-instance? gxc#true-method)) + (hash-put! _tbl109755_ '%#struct-instance? gxc#true-method)) (let () (declare (not safe)) (hash-put! - _tbl109493_ + _tbl109755_ '%#struct-direct-instance? gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#struct-ref gxc#true-method)) + (hash-put! _tbl109755_ '%#struct-ref gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#struct-set! gxc#true-method)) + (hash-put! _tbl109755_ '%#struct-set! gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#struct-direct-ref gxc#true-method)) + (hash-put! _tbl109755_ '%#struct-direct-ref gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#struct-direct-set! gxc#true-method)) + (hash-put! _tbl109755_ '%#struct-direct-set! gxc#true-method)) (let () (declare (not safe)) - (hash-put! _tbl109493_ '%#struct-unchecked-ref gxc#true-method)) + (hash-put! _tbl109755_ '%#struct-unchecked-ref gxc#true-method)) (let () (declare (not safe)) (hash-put! - _tbl109493_ + _tbl109755_ '%#struct-unchecked-set! gxc#true-method)) - _tbl109493_)))) + _tbl109755_)))) (define gxc#apply-find-runtime-code - (lambda (_stx109476_ . _args109478_) - (let ((__tmp111339 + (lambda (_stx109738_ . _args109740_) + (let ((__tmp111601 (lambda () (declare (not safe)) - (if (null? _args109478_) - (gxc#compile-e__0 _stx109476_) - (let ((_arg1109483_ (car _args109478_)) - (_rest109485_ (cdr _args109478_))) - (if (null? _rest109485_) - (gxc#compile-e__1 _stx109476_ _arg1109483_) - (let ((_arg2109488_ (car _rest109485_)) - (_rest109490_ (cdr _rest109485_))) - (if (null? _rest109490_) + (if (null? _args109740_) + (gxc#compile-e__0 _stx109738_) + (let ((_arg1109745_ (car _args109740_)) + (_rest109747_ (cdr _args109740_))) + (if (null? _rest109747_) + (gxc#compile-e__1 _stx109738_ _arg1109745_) + (let ((_arg2109750_ (car _rest109747_)) + (_rest109752_ (cdr _rest109747_))) + (if (null? _rest109752_) (gxc#compile-e__2 - _stx109476_ - _arg1109483_ - _arg2109488_) + _stx109738_ + _arg1109745_ + _arg2109750_) (apply gxc#compile-e - _stx109476_ - _arg1109483_ - _arg2109488_ - _rest109490_)))))))) - (__tmp111338 (force gxc#&find-runtime-code))) + _stx109738_ + _arg1109745_ + _arg2109750_ + _rest109752_)))))))) + (__tmp111600 (force gxc#&find-runtime-code))) (declare (not safe)) (call-with-parameters - __tmp111339 + __tmp111601 gxc#current-compile-methods - __tmp111338)))) + __tmp111600)))) (define gxc#&find-lambda-expression (make-promise (lambda () - (let ((_tbl109473_ + (let ((_tbl109735_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111340 (force gxc#&false))) + (let ((__tmp111602 (force gxc#&false))) (declare (not safe)) - (hash-merge! _tbl109473_ __tmp111340)) + (hash-merge! _tbl109735_ __tmp111602)) (let () (declare (not safe)) (hash-put! - _tbl109473_ + _tbl109735_ '%#begin gxc#find-lambda-expression-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109473_ + _tbl109735_ '%#begin-annotation gxc#find-lambda-expression-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl109473_ '%#lambda values)) + (hash-put! _tbl109735_ '%#lambda values)) (let () (declare (not safe)) - (hash-put! _tbl109473_ '%#case-lambda values)) + (hash-put! _tbl109735_ '%#case-lambda values)) (let () (declare (not safe)) (hash-put! - _tbl109473_ + _tbl109735_ '%#let-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109473_ + _tbl109735_ '%#letrec-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109473_ + _tbl109735_ '%#letrec*-values gxc#find-lambda-expression-let-values%)) - _tbl109473_)))) + _tbl109735_)))) (define gxc#apply-find-lambda-expression - (lambda (_stx109456_ . _args109458_) - (let ((__tmp111342 + (lambda (_stx109718_ . _args109720_) + (let ((__tmp111604 (lambda () (declare (not safe)) - (if (null? _args109458_) - (gxc#compile-e__0 _stx109456_) - (let ((_arg1109463_ (car _args109458_)) - (_rest109465_ (cdr _args109458_))) - (if (null? _rest109465_) - (gxc#compile-e__1 _stx109456_ _arg1109463_) - (let ((_arg2109468_ (car _rest109465_)) - (_rest109470_ (cdr _rest109465_))) - (if (null? _rest109470_) + (if (null? _args109720_) + (gxc#compile-e__0 _stx109718_) + (let ((_arg1109725_ (car _args109720_)) + (_rest109727_ (cdr _args109720_))) + (if (null? _rest109727_) + (gxc#compile-e__1 _stx109718_ _arg1109725_) + (let ((_arg2109730_ (car _rest109727_)) + (_rest109732_ (cdr _rest109727_))) + (if (null? _rest109732_) (gxc#compile-e__2 - _stx109456_ - _arg1109463_ - _arg2109468_) + _stx109718_ + _arg1109725_ + _arg2109730_) (apply gxc#compile-e - _stx109456_ - _arg1109463_ - _arg2109468_ - _rest109470_)))))))) - (__tmp111341 (force gxc#&find-lambda-expression))) + _stx109718_ + _arg1109725_ + _arg2109730_ + _rest109732_)))))))) + (__tmp111603 (force gxc#&find-lambda-expression))) (declare (not safe)) (call-with-parameters - __tmp111342 + __tmp111604 gxc#current-compile-methods - __tmp111341)))) + __tmp111603)))) (define gxc#&count-values (make-promise (lambda () - (let ((_tbl109453_ + (let ((_tbl109715_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111343 (force gxc#&false-expression))) + (let ((__tmp111605 (force gxc#&false-expression))) (declare (not safe)) - (hash-merge! _tbl109453_ __tmp111343)) + (hash-merge! _tbl109715_ __tmp111605)) (let () (declare (not safe)) - (hash-put! _tbl109453_ '%#begin gxc#count-values-begin%)) + (hash-put! _tbl109715_ '%#begin gxc#count-values-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109453_ + _tbl109715_ '%#begin-annotation gxc#count-values-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl109453_ '%#lambda gxc#count-values-single%)) + (hash-put! _tbl109715_ '%#lambda gxc#count-values-single%)) (let () (declare (not safe)) - (hash-put! _tbl109453_ '%#case-lambda gxc#count-values-single%)) + (hash-put! _tbl109715_ '%#case-lambda gxc#count-values-single%)) (let () (declare (not safe)) (hash-put! - _tbl109453_ + _tbl109715_ '%#let-values gxc#count-values-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109453_ + _tbl109715_ '%#letrec-values gxc#count-values-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109453_ + _tbl109715_ '%#letrec*-values gxc#count-values-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl109453_ '%#quote gxc#count-values-single%)) + (hash-put! _tbl109715_ '%#quote gxc#count-values-single%)) (let () (declare (not safe)) - (hash-put! _tbl109453_ '%#call gxc#count-values-call%)) + (hash-put! _tbl109715_ '%#call gxc#count-values-call%)) (let () (declare (not safe)) (hash-put! - _tbl109453_ + _tbl109715_ '%#call-unchecked gxc#count-values-call%)) (let () (declare (not safe)) - (hash-put! _tbl109453_ '%#if gxc#count-values-if%)) - _tbl109453_)))) + (hash-put! _tbl109715_ '%#if gxc#count-values-if%)) + _tbl109715_)))) (define gxc#apply-count-values - (lambda (_stx109436_ . _args109438_) - (let ((__tmp111345 + (lambda (_stx109698_ . _args109700_) + (let ((__tmp111607 (lambda () (declare (not safe)) - (if (null? _args109438_) - (gxc#compile-e__0 _stx109436_) - (let ((_arg1109443_ (car _args109438_)) - (_rest109445_ (cdr _args109438_))) - (if (null? _rest109445_) - (gxc#compile-e__1 _stx109436_ _arg1109443_) - (let ((_arg2109448_ (car _rest109445_)) - (_rest109450_ (cdr _rest109445_))) - (if (null? _rest109450_) + (if (null? _args109700_) + (gxc#compile-e__0 _stx109698_) + (let ((_arg1109705_ (car _args109700_)) + (_rest109707_ (cdr _args109700_))) + (if (null? _rest109707_) + (gxc#compile-e__1 _stx109698_ _arg1109705_) + (let ((_arg2109710_ (car _rest109707_)) + (_rest109712_ (cdr _rest109707_))) + (if (null? _rest109712_) (gxc#compile-e__2 - _stx109436_ - _arg1109443_ - _arg2109448_) + _stx109698_ + _arg1109705_ + _arg2109710_) (apply gxc#compile-e - _stx109436_ - _arg1109443_ - _arg2109448_ - _rest109450_)))))))) - (__tmp111344 (force gxc#&count-values))) + _stx109698_ + _arg1109705_ + _arg2109710_ + _rest109712_)))))))) + (__tmp111606 (force gxc#&count-values))) (declare (not safe)) (call-with-parameters - __tmp111345 + __tmp111607 gxc#current-compile-methods - __tmp111344)))) + __tmp111606)))) (define gxc#&generate-runtime-empty (make-promise (lambda () - (let ((_tbl109433_ + (let ((_tbl109695_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#begin gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#begin gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#begin-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#begin-foreign gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#begin-annotation gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#module gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#module gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#import gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#import gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#export gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#export gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#provide gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#provide gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#extern gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#extern gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#define-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#define-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#define-alias gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#declare gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#declare gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#lambda gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#case-lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#let-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#letrec-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#letrec*-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#quote gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#quote gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#call gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#call gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#call-unchecked gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#if gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#if gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#ref gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (hash-put! _tbl109433_ '%#set! gxc#generate-runtime-empty)) + (hash-put! _tbl109695_ '%#set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#struct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#struct-direct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#struct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#struct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#struct-direct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#struct-direct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#struct-unchecked-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (hash-put! - _tbl109433_ + _tbl109695_ '%#struct-unchecked-set! gxc#generate-runtime-empty)) - _tbl109433_)))) + _tbl109695_)))) (define gxc#&generate-loader (make-promise (lambda () - (let ((_tbl109429_ + (let ((_tbl109691_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111346 (force gxc#&generate-runtime-empty))) + (let ((__tmp111608 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-merge! _tbl109429_ __tmp111346)) + (hash-merge! _tbl109691_ __tmp111608)) (let () (declare (not safe)) - (hash-put! _tbl109429_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl109691_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109429_ + _tbl109691_ '%#import gxc#generate-runtime-loader-import%)) - _tbl109429_)))) + _tbl109691_)))) (define gxc#apply-generate-loader - (lambda (_stx109412_ . _args109414_) - (let ((__tmp111348 + (lambda (_stx109674_ . _args109676_) + (let ((__tmp111610 (lambda () (declare (not safe)) - (if (null? _args109414_) - (gxc#compile-e__0 _stx109412_) - (let ((_arg1109419_ (car _args109414_)) - (_rest109421_ (cdr _args109414_))) - (if (null? _rest109421_) - (gxc#compile-e__1 _stx109412_ _arg1109419_) - (let ((_arg2109424_ (car _rest109421_)) - (_rest109426_ (cdr _rest109421_))) - (if (null? _rest109426_) + (if (null? _args109676_) + (gxc#compile-e__0 _stx109674_) + (let ((_arg1109681_ (car _args109676_)) + (_rest109683_ (cdr _args109676_))) + (if (null? _rest109683_) + (gxc#compile-e__1 _stx109674_ _arg1109681_) + (let ((_arg2109686_ (car _rest109683_)) + (_rest109688_ (cdr _rest109683_))) + (if (null? _rest109688_) (gxc#compile-e__2 - _stx109412_ - _arg1109419_ - _arg2109424_) + _stx109674_ + _arg1109681_ + _arg2109686_) (apply gxc#compile-e - _stx109412_ - _arg1109419_ - _arg2109424_ - _rest109426_)))))))) - (__tmp111347 (force gxc#&generate-loader))) + _stx109674_ + _arg1109681_ + _arg2109686_ + _rest109688_)))))))) + (__tmp111609 (force gxc#&generate-loader))) (declare (not safe)) (call-with-parameters - __tmp111348 + __tmp111610 gxc#current-compile-methods - __tmp111347)))) + __tmp111609)))) (define gxc#&generate-runtime (make-promise (lambda () - (let ((_tbl109409_ + (let ((_tbl109671_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111349 (force gxc#&generate-runtime-empty))) + (let ((__tmp111611 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-merge! _tbl109409_ __tmp111349)) + (hash-merge! _tbl109671_ __tmp111611)) (let () (declare (not safe)) - (hash-put! _tbl109409_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl109671_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#begin-foreign gxc#generate-runtime-begin-foreign%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#begin-annotation gxc#generate-runtime-begin-annotation%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#define-values gxc#generate-runtime-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#declare gxc#generate-runtime-declare%)) (let () (declare (not safe)) - (hash-put! _tbl109409_ '%#lambda gxc#generate-runtime-lambda%)) + (hash-put! _tbl109671_ '%#lambda gxc#generate-runtime-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#case-lambda gxc#generate-runtime-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#let-values gxc#generate-runtime-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#letrec-values gxc#generate-runtime-letrec-values%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#letrec*-values gxc#generate-runtime-letrec*-values%)) (let () (declare (not safe)) - (hash-put! _tbl109409_ '%#quote gxc#generate-runtime-quote%)) + (hash-put! _tbl109671_ '%#quote gxc#generate-runtime-quote%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#quote-syntax gxc#generate-runtime-quote-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl109409_ '%#call gxc#generate-runtime-call%)) + (hash-put! _tbl109671_ '%#call gxc#generate-runtime-call%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#call-unchecked gxc#generate-runtime-call-unchecked%)) (let () (declare (not safe)) - (hash-put! _tbl109409_ '%#if gxc#generate-runtime-if%)) + (hash-put! _tbl109671_ '%#if gxc#generate-runtime-if%)) (let () (declare (not safe)) - (hash-put! _tbl109409_ '%#ref gxc#generate-runtime-ref%)) + (hash-put! _tbl109671_ '%#ref gxc#generate-runtime-ref%)) (let () (declare (not safe)) - (hash-put! _tbl109409_ '%#set! gxc#generate-runtime-setq%)) + (hash-put! _tbl109671_ '%#set! gxc#generate-runtime-setq%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#struct-instance? gxc#generate-runtime-struct-instancep%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#struct-direct-instance? gxc#generate-runtime-struct-direct-instancep%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#struct-ref gxc#generate-runtime-struct-ref%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#struct-set! gxc#generate-runtime-struct-setq%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#struct-direct-ref gxc#generate-runtime-struct-direct-ref%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#struct-direct-set! gxc#generate-runtime-struct-direct-setq%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#struct-unchecked-ref gxc#generate-runtime-struct-unchecked-ref%)) (let () (declare (not safe)) (hash-put! - _tbl109409_ + _tbl109671_ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%)) - _tbl109409_)))) + _tbl109671_)))) (define gxc#apply-generate-runtime - (lambda (_stx109392_ . _args109394_) - (let ((__tmp111351 + (lambda (_stx109654_ . _args109656_) + (let ((__tmp111613 (lambda () (declare (not safe)) - (if (null? _args109394_) - (gxc#compile-e__0 _stx109392_) - (let ((_arg1109399_ (car _args109394_)) - (_rest109401_ (cdr _args109394_))) - (if (null? _rest109401_) - (gxc#compile-e__1 _stx109392_ _arg1109399_) - (let ((_arg2109404_ (car _rest109401_)) - (_rest109406_ (cdr _rest109401_))) - (if (null? _rest109406_) + (if (null? _args109656_) + (gxc#compile-e__0 _stx109654_) + (let ((_arg1109661_ (car _args109656_)) + (_rest109663_ (cdr _args109656_))) + (if (null? _rest109663_) + (gxc#compile-e__1 _stx109654_ _arg1109661_) + (let ((_arg2109666_ (car _rest109663_)) + (_rest109668_ (cdr _rest109663_))) + (if (null? _rest109668_) (gxc#compile-e__2 - _stx109392_ - _arg1109399_ - _arg2109404_) + _stx109654_ + _arg1109661_ + _arg2109666_) (apply gxc#compile-e - _stx109392_ - _arg1109399_ - _arg2109404_ - _rest109406_)))))))) - (__tmp111350 (force gxc#&generate-runtime))) + _stx109654_ + _arg1109661_ + _arg2109666_ + _rest109668_)))))))) + (__tmp111612 (force gxc#&generate-runtime))) (declare (not safe)) (call-with-parameters - __tmp111351 + __tmp111613 gxc#current-compile-methods - __tmp111350)))) + __tmp111612)))) (define gxc#&generate-runtime-phi (make-promise (lambda () - (let ((_tbl109389_ + (let ((_tbl109651_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111352 (force gxc#&generate-runtime))) + (let ((__tmp111614 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-merge! _tbl109389_ __tmp111352)) + (hash-merge! _tbl109651_ __tmp111614)) (let () (declare (not safe)) (hash-put! - _tbl109389_ + _tbl109651_ '%#define-runtime gxc#generate-runtime-phi-define-runtime%)) - _tbl109389_)))) + _tbl109651_)))) (define gxc#apply-generate-runtime-phi - (lambda (_stx109372_ . _args109374_) - (let ((__tmp111354 + (lambda (_stx109634_ . _args109636_) + (let ((__tmp111616 (lambda () (declare (not safe)) - (if (null? _args109374_) - (gxc#compile-e__0 _stx109372_) - (let ((_arg1109379_ (car _args109374_)) - (_rest109381_ (cdr _args109374_))) - (if (null? _rest109381_) - (gxc#compile-e__1 _stx109372_ _arg1109379_) - (let ((_arg2109384_ (car _rest109381_)) - (_rest109386_ (cdr _rest109381_))) - (if (null? _rest109386_) + (if (null? _args109636_) + (gxc#compile-e__0 _stx109634_) + (let ((_arg1109641_ (car _args109636_)) + (_rest109643_ (cdr _args109636_))) + (if (null? _rest109643_) + (gxc#compile-e__1 _stx109634_ _arg1109641_) + (let ((_arg2109646_ (car _rest109643_)) + (_rest109648_ (cdr _rest109643_))) + (if (null? _rest109648_) (gxc#compile-e__2 - _stx109372_ - _arg1109379_ - _arg2109384_) + _stx109634_ + _arg1109641_ + _arg2109646_) (apply gxc#compile-e - _stx109372_ - _arg1109379_ - _arg2109384_ - _rest109386_)))))))) - (__tmp111353 (force gxc#&generate-runtime-phi))) + _stx109634_ + _arg1109641_ + _arg2109646_ + _rest109648_)))))))) + (__tmp111615 (force gxc#&generate-runtime-phi))) (declare (not safe)) (call-with-parameters - __tmp111354 + __tmp111616 gxc#current-compile-methods - __tmp111353)))) + __tmp111615)))) (define gxc#&collect-expression-refs (make-promise (lambda () - (let ((_tbl109369_ + (let ((_tbl109631_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl109631_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl109631_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#quote gxc#void-method)) + (hash-put! _tbl109631_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#quote-syntax gxc#void-method)) + (hash-put! _tbl109631_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#call gxc#collect-operands)) + (hash-put! _tbl109631_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#call-unchecked gxc#collect-operands)) + (hash-put! _tbl109631_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#if gxc#collect-operands)) + (hash-put! _tbl109631_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#ref gxc#collect-refs-ref%)) + (hash-put! _tbl109631_ '%#ref gxc#collect-refs-ref%)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#set! gxc#collect-refs-setq%)) + (hash-put! _tbl109631_ '%#set! gxc#collect-refs-setq%)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl109631_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl109369_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl109631_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl109369_ + _tbl109631_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl109369_)))) + _tbl109631_)))) (define gxc#apply-collect-expression-refs - (lambda (_stx109352_ . _args109354_) - (let ((__tmp111356 + (lambda (_stx109614_ . _args109616_) + (let ((__tmp111618 (lambda () (declare (not safe)) - (if (null? _args109354_) - (gxc#compile-e__0 _stx109352_) - (let ((_arg1109359_ (car _args109354_)) - (_rest109361_ (cdr _args109354_))) - (if (null? _rest109361_) - (gxc#compile-e__1 _stx109352_ _arg1109359_) - (let ((_arg2109364_ (car _rest109361_)) - (_rest109366_ (cdr _rest109361_))) - (if (null? _rest109366_) + (if (null? _args109616_) + (gxc#compile-e__0 _stx109614_) + (let ((_arg1109621_ (car _args109616_)) + (_rest109623_ (cdr _args109616_))) + (if (null? _rest109623_) + (gxc#compile-e__1 _stx109614_ _arg1109621_) + (let ((_arg2109626_ (car _rest109623_)) + (_rest109628_ (cdr _rest109623_))) + (if (null? _rest109628_) (gxc#compile-e__2 - _stx109352_ - _arg1109359_ - _arg2109364_) + _stx109614_ + _arg1109621_ + _arg2109626_) (apply gxc#compile-e - _stx109352_ - _arg1109359_ - _arg2109364_ - _rest109366_)))))))) - (__tmp111355 (force gxc#&collect-expression-refs))) + _stx109614_ + _arg1109621_ + _arg2109626_ + _rest109628_)))))))) + (__tmp111617 (force gxc#&collect-expression-refs))) (declare (not safe)) (call-with-parameters - __tmp111356 + __tmp111618 gxc#current-compile-methods - __tmp111355)))) + __tmp111617)))) (define gxc#&generate-meta (make-promise (lambda () - (let ((_tbl109349_ + (let ((_tbl109611_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp111357 (force gxc#&void-expression))) + (let ((__tmp111619 (force gxc#&void-expression))) (declare (not safe)) - (hash-merge! _tbl109349_ __tmp111357)) + (hash-merge! _tbl109611_ __tmp111619)) (let () (declare (not safe)) - (hash-put! _tbl109349_ '%#begin gxc#generate-meta-begin%)) + (hash-put! _tbl109611_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109349_ + _tbl109611_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl109349_ '%#module gxc#generate-meta-module%)) + (hash-put! _tbl109611_ '%#module gxc#generate-meta-module%)) (let () (declare (not safe)) - (hash-put! _tbl109349_ '%#import gxc#generate-meta-import%)) + (hash-put! _tbl109611_ '%#import gxc#generate-meta-import%)) (let () (declare (not safe)) - (hash-put! _tbl109349_ '%#export gxc#generate-meta-export%)) + (hash-put! _tbl109611_ '%#export gxc#generate-meta-export%)) (let () (declare (not safe)) - (hash-put! _tbl109349_ '%#provide gxc#generate-meta-provide%)) + (hash-put! _tbl109611_ '%#provide gxc#generate-meta-provide%)) (let () (declare (not safe)) - (hash-put! _tbl109349_ '%#extern gxc#generate-meta-extern%)) + (hash-put! _tbl109611_ '%#extern gxc#generate-meta-extern%)) (let () (declare (not safe)) (hash-put! - _tbl109349_ + _tbl109611_ '%#define-values gxc#generate-meta-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl109349_ + _tbl109611_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl109349_ + _tbl109611_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) - (hash-put! _tbl109349_ '%#begin-foreign gxc#void-method)) + (hash-put! _tbl109611_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (hash-put! _tbl109349_ '%#declare gxc#void-method)) - _tbl109349_)))) + (hash-put! _tbl109611_ '%#declare gxc#void-method)) + _tbl109611_)))) (define gxc#apply-generate-meta - (lambda (_stx109332_ . _args109334_) - (let ((__tmp111359 + (lambda (_stx109594_ . _args109596_) + (let ((__tmp111621 (lambda () (declare (not safe)) - (if (null? _args109334_) - (gxc#compile-e__0 _stx109332_) - (let ((_arg1109339_ (car _args109334_)) - (_rest109341_ (cdr _args109334_))) - (if (null? _rest109341_) - (gxc#compile-e__1 _stx109332_ _arg1109339_) - (let ((_arg2109344_ (car _rest109341_)) - (_rest109346_ (cdr _rest109341_))) - (if (null? _rest109346_) + (if (null? _args109596_) + (gxc#compile-e__0 _stx109594_) + (let ((_arg1109601_ (car _args109596_)) + (_rest109603_ (cdr _args109596_))) + (if (null? _rest109603_) + (gxc#compile-e__1 _stx109594_ _arg1109601_) + (let ((_arg2109606_ (car _rest109603_)) + (_rest109608_ (cdr _rest109603_))) + (if (null? _rest109608_) (gxc#compile-e__2 - _stx109332_ - _arg1109339_ - _arg2109344_) + _stx109594_ + _arg1109601_ + _arg2109606_) (apply gxc#compile-e - _stx109332_ - _arg1109339_ - _arg2109344_ - _rest109346_)))))))) - (__tmp111358 (force gxc#&generate-meta))) + _stx109594_ + _arg1109601_ + _arg2109606_ + _rest109608_)))))))) + (__tmp111620 (force gxc#&generate-meta))) (declare (not safe)) (call-with-parameters - __tmp111359 + __tmp111621 gxc#current-compile-methods - __tmp111358)))) + __tmp111620)))) (define gxc#&generate-meta-phi (make-promise (lambda () - (let ((_tbl109329_ + (let ((_tbl109591_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl109329_ '%#begin gxc#generate-meta-begin%)) + (hash-put! _tbl109591_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#define-values gxc#generate-meta-phi-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#begin-annotation gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109329_ '%#lambda gxc#generate-meta-phi-expr)) + (hash-put! _tbl109591_ '%#lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#case-lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#let-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#letrec-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#letrec*-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109329_ '%#quote gxc#generate-meta-phi-expr)) + (hash-put! _tbl109591_ '%#quote gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#quote-syntax gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109329_ '%#call gxc#generate-meta-phi-expr)) + (hash-put! _tbl109591_ '%#call gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#call-unchecked gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109329_ '%#if gxc#generate-meta-phi-expr)) + (hash-put! _tbl109591_ '%#if gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109329_ '%#ref gxc#generate-meta-phi-expr)) + (hash-put! _tbl109591_ '%#ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109329_ '%#set! gxc#generate-meta-phi-expr)) + (hash-put! _tbl109591_ '%#set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#struct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#struct-direct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#struct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#struct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#struct-direct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#struct-direct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#struct-unchecked-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (hash-put! - _tbl109329_ + _tbl109591_ '%#struct-unchecked-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (hash-put! _tbl109329_ '%#declare gxc#void-method)) - _tbl109329_)))) + (hash-put! _tbl109591_ '%#declare gxc#void-method)) + _tbl109591_)))) (define gxc#apply-generate-meta-phi - (lambda (_stx109312_ . _args109314_) - (let ((__tmp111361 + (lambda (_stx109574_ . _args109576_) + (let ((__tmp111623 (lambda () (declare (not safe)) - (if (null? _args109314_) - (gxc#compile-e__0 _stx109312_) - (let ((_arg1109319_ (car _args109314_)) - (_rest109321_ (cdr _args109314_))) - (if (null? _rest109321_) - (gxc#compile-e__1 _stx109312_ _arg1109319_) - (let ((_arg2109324_ (car _rest109321_)) - (_rest109326_ (cdr _rest109321_))) - (if (null? _rest109326_) + (if (null? _args109576_) + (gxc#compile-e__0 _stx109574_) + (let ((_arg1109581_ (car _args109576_)) + (_rest109583_ (cdr _args109576_))) + (if (null? _rest109583_) + (gxc#compile-e__1 _stx109574_ _arg1109581_) + (let ((_arg2109586_ (car _rest109583_)) + (_rest109588_ (cdr _rest109583_))) + (if (null? _rest109588_) (gxc#compile-e__2 - _stx109312_ - _arg1109319_ - _arg2109324_) + _stx109574_ + _arg1109581_ + _arg2109586_) (apply gxc#compile-e - _stx109312_ - _arg1109319_ - _arg2109324_ - _rest109326_)))))))) - (__tmp111360 (force gxc#&generate-meta-phi))) + _stx109574_ + _arg1109581_ + _arg2109586_ + _rest109588_)))))))) + (__tmp111622 (force gxc#&generate-meta-phi))) (declare (not safe)) (call-with-parameters - __tmp111361 + __tmp111623 gxc#current-compile-methods - __tmp111360)))) + __tmp111622)))) (define gxc#collect-begin% - (lambda (_stx109262_ . _args109263_) - (let* ((_g109265109275_ - (lambda (_g109266109272_) + (lambda (_stx109524_ . _args109525_) + (let* ((_g109527109537_ + (lambda (_g109528109534_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109266109272_)))) - (_g109264109309_ - (lambda (_g109266109278_) + _g109528109534_)))) + (_g109526109571_ + (lambda (_g109528109540_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109266109278_)) - (let ((_e109270109280_ + (gx#stx-pair? _g109528109540_)) + (let ((_e109532109542_ (let () (declare (not safe)) - (gx#stx-e _g109266109278_)))) - (let ((_hd109269109283_ + (gx#stx-e _g109528109540_)))) + (let ((_hd109531109545_ (let () (declare (not safe)) - (##car _e109270109280_))) - (_tl109268109285_ + (##car _e109532109542_))) + (_tl109530109547_ (let () (declare (not safe)) - (##cdr _e109270109280_)))) - ((lambda (_L109288_) + (##cdr _e109532109542_)))) + ((lambda (_L109550_) (for-each - (lambda (_stx109298_) + (lambda (_stx109560_) (if (let () (declare (not safe)) - (null? _args109263_)) + (null? _args109525_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx109298_)) - (let ((_arg1109300_ (car _args109263_)) - (_rest109302_ (cdr _args109263_))) + (gxc#compile-e__0 _stx109560_)) + (let ((_arg1109562_ (car _args109525_)) + (_rest109564_ (cdr _args109525_))) (if (let () (declare (not safe)) - (null? _rest109302_)) + (null? _rest109564_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx109298_ - _arg1109300_)) - (let ((_arg2109305_ - (car _rest109302_)) - (_rest109307_ - (cdr _rest109302_))) + _stx109560_ + _arg1109562_)) + (let ((_arg2109567_ + (car _rest109564_)) + (_rest109569_ + (cdr _rest109564_))) (if (let () (declare (not safe)) - (null? _rest109307_)) + (null? _rest109569_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx109298_ - _arg1109300_ - _arg2109305_)) + _stx109560_ + _arg1109562_ + _arg2109567_)) (apply gxc#compile-e - _stx109298_ - _arg1109300_ - _arg2109305_ - _rest109307_))))))) + _stx109560_ + _arg1109562_ + _arg2109567_ + _rest109569_))))))) (let () (declare (not safe)) - (gx#stx-e _L109288_)))) - _tl109268109285_))) + (gx#stx-e _L109550_)))) + _tl109530109547_))) (let () (declare (not safe)) - (_g109265109275_ _g109266109278_)))))) + (_g109527109537_ _g109528109540_)))))) (declare (not safe)) - (_g109264109309_ _stx109262_)))) + (_g109526109571_ _stx109524_)))) (define gxc#collect-begin-syntax% - (lambda (_stx109258_ . _args109259_) - (let ((__tmp111364 + (lambda (_stx109520_ . _args109521_) + (let ((__tmp111626 (lambda () - (apply gxc#collect-begin% _stx109258_ _args109259_))) - (__tmp111362 - (let ((__tmp111363 (gx#current-expander-phi))) + (apply gxc#collect-begin% _stx109520_ _args109521_))) + (__tmp111624 + (let ((__tmp111625 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp111363 '1)))) + (fx+ __tmp111625 '1)))) (declare (not safe)) (call-with-parameters - __tmp111364 + __tmp111626 gx#current-expander-phi - __tmp111362)))) + __tmp111624)))) (define gxc#collect-module% - (lambda (_stx109188_ . _args109189_) - (let* ((_g109191109205_ - (lambda (_g109192109202_) + (lambda (_stx109450_ . _args109451_) + (let* ((_g109453109467_ + (lambda (_g109454109464_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109192109202_)))) - (_g109190109255_ - (lambda (_g109192109208_) + _g109454109464_)))) + (_g109452109517_ + (lambda (_g109454109470_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109192109208_)) - (let ((_e109197109210_ + (gx#stx-pair? _g109454109470_)) + (let ((_e109459109472_ (let () (declare (not safe)) - (gx#stx-e _g109192109208_)))) - (let ((_hd109196109213_ + (gx#stx-e _g109454109470_)))) + (let ((_hd109458109475_ (let () (declare (not safe)) - (##car _e109197109210_))) - (_tl109195109215_ + (##car _e109459109472_))) + (_tl109457109477_ (let () (declare (not safe)) - (##cdr _e109197109210_)))) + (##cdr _e109459109472_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109195109215_)) - (let ((_e109200109218_ + (gx#stx-pair? _tl109457109477_)) + (let ((_e109462109480_ (let () (declare (not safe)) - (gx#stx-e _tl109195109215_)))) - (let ((_hd109199109221_ + (gx#stx-e _tl109457109477_)))) + (let ((_hd109461109483_ (let () (declare (not safe)) - (##car _e109200109218_))) - (_tl109198109223_ + (##car _e109462109480_))) + (_tl109460109485_ (let () (declare (not safe)) - (##cdr _e109200109218_)))) - ((lambda (_L109226_ _L109227_) - (let* ((_ctx109240_ + (##cdr _e109462109480_)))) + ((lambda (_L109488_ _L109489_) + (let* ((_ctx109502_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L109227_))) - (_ctx-stx109242_ + _L109489_))) + (_ctx-stx109504_ (##structure-ref - _ctx109240_ + _ctx109502_ '11 gx#module-context::t '#f))) - (let ((__tmp111365 + (let ((__tmp111627 (lambda () (if (let () (declare (not safe)) - (null? _args109189_)) + (null? _args109451_)) (let () (declare (not safe)) (gxc#compile-e__0 - _ctx-stx109242_)) - (let ((_arg1109246_ - (car _args109189_)) - (_rest109248_ - (cdr _args109189_))) + _ctx-stx109504_)) + (let ((_arg1109508_ + (car _args109451_)) + (_rest109510_ + (cdr _args109451_))) (if (let () (declare (not safe)) - (null? _rest109248_)) + (null? _rest109510_)) (let () (declare (not safe)) (gxc#compile-e__1 - _ctx-stx109242_ - _arg1109246_)) - (let ((_arg2109251_ + _ctx-stx109504_ + _arg1109508_)) + (let ((_arg2109513_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _rest109248_)) - (_rest109253_ (cdr _rest109248_))) - (if (let () (declare (not safe)) (null? _rest109253_)) + (car _rest109510_)) + (_rest109515_ (cdr _rest109510_))) + (if (let () (declare (not safe)) (null? _rest109515_)) (let () (declare (not safe)) (gxc#compile-e__2 - _ctx-stx109242_ - _arg1109246_ - _arg2109251_)) + _ctx-stx109504_ + _arg1109508_ + _arg2109513_)) (apply gxc#compile-e - _ctx-stx109242_ - _arg1109246_ - _arg2109251_ - _rest109253_))))))))) + _ctx-stx109504_ + _arg1109508_ + _arg2109513_ + _rest109515_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp111365 + __tmp111627 gx#current-expander-context - _ctx109240_)))) - _tl109198109223_ - _hd109199109221_))) + _ctx109502_)))) + _tl109460109485_ + _hd109461109483_))) (let () (declare (not safe)) - (_g109191109205_ _g109192109208_))))) + (_g109453109467_ _g109454109470_))))) (let () (declare (not safe)) - (_g109191109205_ _g109192109208_)))))) + (_g109453109467_ _g109454109470_)))))) (declare (not safe)) - (_g109190109255_ _stx109188_)))) + (_g109452109517_ _stx109450_)))) (define gxc#collect-begin-annotation% - (lambda (_stx109111_ . _args109112_) - (let* ((_g109114109131_ - (lambda (_g109115109128_) + (lambda (_stx109373_ . _args109374_) + (let* ((_g109376109393_ + (lambda (_g109377109390_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109115109128_)))) - (_g109113109185_ - (lambda (_g109115109134_) + _g109377109390_)))) + (_g109375109447_ + (lambda (_g109377109396_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109115109134_)) - (let ((_e109120109136_ + (gx#stx-pair? _g109377109396_)) + (let ((_e109382109398_ (let () (declare (not safe)) - (gx#stx-e _g109115109134_)))) - (let ((_hd109119109139_ + (gx#stx-e _g109377109396_)))) + (let ((_hd109381109401_ (let () (declare (not safe)) - (##car _e109120109136_))) - (_tl109118109141_ + (##car _e109382109398_))) + (_tl109380109403_ (let () (declare (not safe)) - (##cdr _e109120109136_)))) + (##cdr _e109382109398_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109118109141_)) - (let ((_e109123109144_ + (gx#stx-pair? _tl109380109403_)) + (let ((_e109385109406_ (let () (declare (not safe)) - (gx#stx-e _tl109118109141_)))) - (let ((_hd109122109147_ + (gx#stx-e _tl109380109403_)))) + (let ((_hd109384109409_ (let () (declare (not safe)) - (##car _e109123109144_))) - (_tl109121109149_ + (##car _e109385109406_))) + (_tl109383109411_ (let () (declare (not safe)) - (##cdr _e109123109144_)))) + (##cdr _e109385109406_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109121109149_)) - (let ((_e109126109152_ + (gx#stx-pair? _tl109383109411_)) + (let ((_e109388109414_ (let () (declare (not safe)) - (gx#stx-e _tl109121109149_)))) - (let ((_hd109125109155_ + (gx#stx-e _tl109383109411_)))) + (let ((_hd109387109417_ (let () (declare (not safe)) - (##car _e109126109152_))) - (_tl109124109157_ + (##car _e109388109414_))) + (_tl109386109419_ (let () (declare (not safe)) - (##cdr _e109126109152_)))) + (##cdr _e109388109414_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl109124109157_)) - ((lambda (_L109160_ _L109161_) + _tl109386109419_)) + ((lambda (_L109422_ _L109423_) (if (let () (declare (not safe)) - (null? _args109112_)) + (null? _args109374_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L109160_)) - (let ((_arg1109176_ - (car _args109112_)) - (_rest109178_ - (cdr _args109112_))) + _L109422_)) + (let ((_arg1109438_ + (car _args109374_)) + (_rest109440_ + (cdr _args109374_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest109178_)) + (null? _rest109440_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L109160_ _arg1109176_)) - (let ((_arg2109181_ (car _rest109178_)) - (_rest109183_ (cdr _rest109178_))) - (if (let () (declare (not safe)) (null? _rest109183_)) + (gxc#compile-e__1 _L109422_ _arg1109438_)) + (let ((_arg2109443_ (car _rest109440_)) + (_rest109445_ (cdr _rest109440_))) + (if (let () (declare (not safe)) (null? _rest109445_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L109160_ - _arg1109176_ - _arg2109181_)) + _L109422_ + _arg1109438_ + _arg2109443_)) (apply gxc#compile-e - _L109160_ - _arg1109176_ - _arg2109181_ - _rest109183_))))))) + _L109422_ + _arg1109438_ + _arg2109443_ + _rest109445_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd109125109155_ - _hd109122109147_) + _hd109387109417_ + _hd109384109409_) (let () (declare (not safe)) - (_g109114109131_ - _g109115109134_))))) + (_g109376109393_ + _g109377109396_))))) (let () (declare (not safe)) - (_g109114109131_ _g109115109134_))))) + (_g109376109393_ _g109377109396_))))) (let () (declare (not safe)) - (_g109114109131_ _g109115109134_))))) + (_g109376109393_ _g109377109396_))))) (let () (declare (not safe)) - (_g109114109131_ _g109115109134_)))))) + (_g109376109393_ _g109377109396_)))))) (declare (not safe)) - (_g109113109185_ _stx109111_)))) + (_g109375109447_ _stx109373_)))) (define gxc#collect-define-values% - (lambda (_stx109034_ . _args109035_) - (let* ((_g109037109054_ - (lambda (_g109038109051_) + (lambda (_stx109296_ . _args109297_) + (let* ((_g109299109316_ + (lambda (_g109300109313_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109038109051_)))) - (_g109036109108_ - (lambda (_g109038109057_) + _g109300109313_)))) + (_g109298109370_ + (lambda (_g109300109319_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109038109057_)) - (let ((_e109043109059_ + (gx#stx-pair? _g109300109319_)) + (let ((_e109305109321_ (let () (declare (not safe)) - (gx#stx-e _g109038109057_)))) - (let ((_hd109042109062_ + (gx#stx-e _g109300109319_)))) + (let ((_hd109304109324_ (let () (declare (not safe)) - (##car _e109043109059_))) - (_tl109041109064_ + (##car _e109305109321_))) + (_tl109303109326_ (let () (declare (not safe)) - (##cdr _e109043109059_)))) + (##cdr _e109305109321_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109041109064_)) - (let ((_e109046109067_ + (gx#stx-pair? _tl109303109326_)) + (let ((_e109308109329_ (let () (declare (not safe)) - (gx#stx-e _tl109041109064_)))) - (let ((_hd109045109070_ + (gx#stx-e _tl109303109326_)))) + (let ((_hd109307109332_ (let () (declare (not safe)) - (##car _e109046109067_))) - (_tl109044109072_ + (##car _e109308109329_))) + (_tl109306109334_ (let () (declare (not safe)) - (##cdr _e109046109067_)))) + (##cdr _e109308109329_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109044109072_)) - (let ((_e109049109075_ + (gx#stx-pair? _tl109306109334_)) + (let ((_e109311109337_ (let () (declare (not safe)) - (gx#stx-e _tl109044109072_)))) - (let ((_hd109048109078_ + (gx#stx-e _tl109306109334_)))) + (let ((_hd109310109340_ (let () (declare (not safe)) - (##car _e109049109075_))) - (_tl109047109080_ + (##car _e109311109337_))) + (_tl109309109342_ (let () (declare (not safe)) - (##cdr _e109049109075_)))) + (##cdr _e109311109337_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl109047109080_)) - ((lambda (_L109083_ _L109084_) + _tl109309109342_)) + ((lambda (_L109345_ _L109346_) (if (let () (declare (not safe)) - (null? _args109035_)) + (null? _args109297_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L109083_)) - (let ((_arg1109099_ - (car _args109035_)) - (_rest109101_ - (cdr _args109035_))) + _L109345_)) + (let ((_arg1109361_ + (car _args109297_)) + (_rest109363_ + (cdr _args109297_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest109101_)) + (null? _rest109363_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L109083_ _arg1109099_)) - (let ((_arg2109104_ (car _rest109101_)) - (_rest109106_ (cdr _rest109101_))) - (if (let () (declare (not safe)) (null? _rest109106_)) + (gxc#compile-e__1 _L109345_ _arg1109361_)) + (let ((_arg2109366_ (car _rest109363_)) + (_rest109368_ (cdr _rest109363_))) + (if (let () (declare (not safe)) (null? _rest109368_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L109083_ - _arg1109099_ - _arg2109104_)) + _L109345_ + _arg1109361_ + _arg2109366_)) (apply gxc#compile-e - _L109083_ - _arg1109099_ - _arg2109104_ - _rest109106_))))))) + _L109345_ + _arg1109361_ + _arg2109366_ + _rest109368_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd109048109078_ - _hd109045109070_) + _hd109310109340_ + _hd109307109332_) (let () (declare (not safe)) - (_g109037109054_ - _g109038109057_))))) + (_g109299109316_ + _g109300109319_))))) (let () (declare (not safe)) - (_g109037109054_ _g109038109057_))))) + (_g109299109316_ _g109300109319_))))) (let () (declare (not safe)) - (_g109037109054_ _g109038109057_))))) + (_g109299109316_ _g109300109319_))))) (let () (declare (not safe)) - (_g109037109054_ _g109038109057_)))))) + (_g109299109316_ _g109300109319_)))))) (declare (not safe)) - (_g109036109108_ _stx109034_)))) + (_g109298109370_ _stx109296_)))) (define gxc#collect-define-syntax% - (lambda (_stx108956_ . _args108957_) - (let* ((_g108959108976_ - (lambda (_g108960108973_) + (lambda (_stx109218_ . _args109219_) + (let* ((_g109221109238_ + (lambda (_g109222109235_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108960108973_)))) - (_g108958109031_ - (lambda (_g108960108979_) + _g109222109235_)))) + (_g109220109293_ + (lambda (_g109222109241_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108960108979_)) - (let ((_e108965108981_ + (gx#stx-pair? _g109222109241_)) + (let ((_e109227109243_ (let () (declare (not safe)) - (gx#stx-e _g108960108979_)))) - (let ((_hd108964108984_ + (gx#stx-e _g109222109241_)))) + (let ((_hd109226109246_ (let () (declare (not safe)) - (##car _e108965108981_))) - (_tl108963108986_ + (##car _e109227109243_))) + (_tl109225109248_ (let () (declare (not safe)) - (##cdr _e108965108981_)))) + (##cdr _e109227109243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108963108986_)) - (let ((_e108968108989_ + (gx#stx-pair? _tl109225109248_)) + (let ((_e109230109251_ (let () (declare (not safe)) - (gx#stx-e _tl108963108986_)))) - (let ((_hd108967108992_ + (gx#stx-e _tl109225109248_)))) + (let ((_hd109229109254_ (let () (declare (not safe)) - (##car _e108968108989_))) - (_tl108966108994_ + (##car _e109230109251_))) + (_tl109228109256_ (let () (declare (not safe)) - (##cdr _e108968108989_)))) + (##cdr _e109230109251_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108966108994_)) - (let ((_e108971108997_ + (gx#stx-pair? _tl109228109256_)) + (let ((_e109233109259_ (let () (declare (not safe)) - (gx#stx-e _tl108966108994_)))) - (let ((_hd108970109000_ + (gx#stx-e _tl109228109256_)))) + (let ((_hd109232109262_ (let () (declare (not safe)) - (##car _e108971108997_))) - (_tl108969109002_ + (##car _e109233109259_))) + (_tl109231109264_ (let () (declare (not safe)) - (##cdr _e108971108997_)))) + (##cdr _e109233109259_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108969109002_)) - ((lambda (_L109005_ _L109006_) - (let ((__tmp111368 + _tl109231109264_)) + ((lambda (_L109267_ _L109268_) + (let ((__tmp111630 (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _args108957_)) + (null? _args109219_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L109005_)) - (let ((_arg1109022_ (car _args108957_)) - (_rest109024_ (cdr _args108957_))) + (gxc#compile-e__0 _L109267_)) + (let ((_arg1109284_ (car _args109219_)) + (_rest109286_ (cdr _args109219_))) (if (let () (declare (not safe)) - (null? _rest109024_)) + (null? _rest109286_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L109005_ _arg1109022_)) - (let ((_arg2109027_ (car _rest109024_)) - (_rest109029_ (cdr _rest109024_))) + (gxc#compile-e__1 _L109267_ _arg1109284_)) + (let ((_arg2109289_ (car _rest109286_)) + (_rest109291_ (cdr _rest109286_))) (if (let () (declare (not safe)) - (null? _rest109029_)) + (null? _rest109291_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L109005_ - _arg1109022_ - _arg2109027_)) + _L109267_ + _arg1109284_ + _arg2109289_)) (apply gxc#compile-e - _L109005_ - _arg1109022_ - _arg2109027_ - _rest109029_)))))))) - (__tmp111366 - (let ((__tmp111367 (gx#current-expander-phi))) + _L109267_ + _arg1109284_ + _arg2109289_ + _rest109291_)))))))) + (__tmp111628 + (let ((__tmp111629 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp111367 '1)))) + (fx+ __tmp111629 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp111368 + __tmp111630 gx#current-expander-phi - __tmp111366))) - _hd108970109000_ - _hd108967108992_) + __tmp111628))) + _hd109232109262_ + _hd109229109254_) (let () (declare (not safe)) - (_g108959108976_ - _g108960108979_))))) + (_g109221109238_ + _g109222109241_))))) (let () (declare (not safe)) - (_g108959108976_ _g108960108979_))))) + (_g109221109238_ _g109222109241_))))) (let () (declare (not safe)) - (_g108959108976_ _g108960108979_))))) + (_g109221109238_ _g109222109241_))))) (let () (declare (not safe)) - (_g108959108976_ _g108960108979_)))))) + (_g109221109238_ _g109222109241_)))))) (declare (not safe)) - (_g108958109031_ _stx108956_)))) + (_g109220109293_ _stx109218_)))) (define gxc#collect-body-lambda% - (lambda (_stx108879_ . _args108880_) - (let* ((_g108882108899_ - (lambda (_g108883108896_) + (lambda (_stx109141_ . _args109142_) + (let* ((_g109144109161_ + (lambda (_g109145109158_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108883108896_)))) - (_g108881108953_ - (lambda (_g108883108902_) + _g109145109158_)))) + (_g109143109215_ + (lambda (_g109145109164_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108883108902_)) - (let ((_e108888108904_ + (gx#stx-pair? _g109145109164_)) + (let ((_e109150109166_ (let () (declare (not safe)) - (gx#stx-e _g108883108902_)))) - (let ((_hd108887108907_ + (gx#stx-e _g109145109164_)))) + (let ((_hd109149109169_ (let () (declare (not safe)) - (##car _e108888108904_))) - (_tl108886108909_ + (##car _e109150109166_))) + (_tl109148109171_ (let () (declare (not safe)) - (##cdr _e108888108904_)))) + (##cdr _e109150109166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108886108909_)) - (let ((_e108891108912_ + (gx#stx-pair? _tl109148109171_)) + (let ((_e109153109174_ (let () (declare (not safe)) - (gx#stx-e _tl108886108909_)))) - (let ((_hd108890108915_ + (gx#stx-e _tl109148109171_)))) + (let ((_hd109152109177_ (let () (declare (not safe)) - (##car _e108891108912_))) - (_tl108889108917_ + (##car _e109153109174_))) + (_tl109151109179_ (let () (declare (not safe)) - (##cdr _e108891108912_)))) + (##cdr _e109153109174_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108889108917_)) - (let ((_e108894108920_ + (gx#stx-pair? _tl109151109179_)) + (let ((_e109156109182_ (let () (declare (not safe)) - (gx#stx-e _tl108889108917_)))) - (let ((_hd108893108923_ + (gx#stx-e _tl109151109179_)))) + (let ((_hd109155109185_ (let () (declare (not safe)) - (##car _e108894108920_))) - (_tl108892108925_ + (##car _e109156109182_))) + (_tl109154109187_ (let () (declare (not safe)) - (##cdr _e108894108920_)))) + (##cdr _e109156109182_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108892108925_)) - ((lambda (_L108928_ _L108929_) + _tl109154109187_)) + ((lambda (_L109190_ _L109191_) (if (let () (declare (not safe)) - (null? _args108880_)) + (null? _args109142_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L108928_)) - (let ((_arg1108944_ - (car _args108880_)) - (_rest108946_ - (cdr _args108880_))) + _L109190_)) + (let ((_arg1109206_ + (car _args109142_)) + (_rest109208_ + (cdr _args109142_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest108946_)) + (null? _rest109208_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L108928_ _arg1108944_)) - (let ((_arg2108949_ (car _rest108946_)) - (_rest108951_ (cdr _rest108946_))) - (if (let () (declare (not safe)) (null? _rest108951_)) + (gxc#compile-e__1 _L109190_ _arg1109206_)) + (let ((_arg2109211_ (car _rest109208_)) + (_rest109213_ (cdr _rest109208_))) + (if (let () (declare (not safe)) (null? _rest109213_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L108928_ - _arg1108944_ - _arg2108949_)) + _L109190_ + _arg1109206_ + _arg2109211_)) (apply gxc#compile-e - _L108928_ - _arg1108944_ - _arg2108949_ - _rest108951_))))))) + _L109190_ + _arg1109206_ + _arg2109211_ + _rest109213_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd108893108923_ - _hd108890108915_) + _hd109155109185_ + _hd109152109177_) (let () (declare (not safe)) - (_g108882108899_ - _g108883108902_))))) + (_g109144109161_ + _g109145109164_))))) (let () (declare (not safe)) - (_g108882108899_ _g108883108902_))))) + (_g109144109161_ _g109145109164_))))) (let () (declare (not safe)) - (_g108882108899_ _g108883108902_))))) + (_g109144109161_ _g109145109164_))))) (let () (declare (not safe)) - (_g108882108899_ _g108883108902_)))))) + (_g109144109161_ _g109145109164_)))))) (declare (not safe)) - (_g108881108953_ _stx108879_)))) + (_g109143109215_ _stx109141_)))) (define gxc#collect-body-case-lambda% - (lambda (_stx108754_ . _args108755_) - (let* ((_g108757108785_ - (lambda (_g108758108782_) + (lambda (_stx109016_ . _args109017_) + (let* ((_g109019109047_ + (lambda (_g109020109044_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108758108782_)))) - (_g108756108876_ - (lambda (_g108758108788_) + _g109020109044_)))) + (_g109018109138_ + (lambda (_g109020109050_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108758108788_)) - (let ((_e108763108790_ + (gx#stx-pair? _g109020109050_)) + (let ((_e109025109052_ (let () (declare (not safe)) - (gx#stx-e _g108758108788_)))) - (let ((_hd108762108793_ + (gx#stx-e _g109020109050_)))) + (let ((_hd109024109055_ (let () (declare (not safe)) - (##car _e108763108790_))) - (_tl108761108795_ + (##car _e109025109052_))) + (_tl109023109057_ (let () (declare (not safe)) - (##cdr _e108763108790_)))) + (##cdr _e109025109052_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl108761108795_)) - (let ((_g111369_ + (gx#stx-pair/null? _tl109023109057_)) + (let ((_g111631_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl108761108795_ + _tl109023109057_ '0)))) (begin - (let ((_g111370_ + (let ((_g111632_ (let () (declare (not safe)) - (if (##values? _g111369_) - (##vector-length _g111369_) + (if (##values? _g111631_) + (##vector-length _g111631_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111370_ 2))) + (##fx= _g111632_ 2))) (error "Context expects 2 values" - _g111370_))) - (let ((_target108764108798_ + _g111632_))) + (let ((_target109026109060_ (let () (declare (not safe)) - (##vector-ref _g111369_ 0))) - (_tl108766108800_ + (##vector-ref _g111631_ 0))) + (_tl109028109062_ (let () (declare (not safe)) - (##vector-ref _g111369_ 1)))) + (##vector-ref _g111631_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108766108800_)) - (letrec ((_loop108767108803_ - (lambda (_hd108765108806_ - _body108771108808_ - _hd108772108810_) + (gx#stx-null? _tl109028109062_)) + (letrec ((_loop109029109065_ + (lambda (_hd109027109068_ + _body109033109070_ + _hd109034109072_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108765108806_)) - (let ((_e108768108813_ + _hd109027109068_)) + (let ((_e109030109075_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd108765108806_)))) - (let ((_lp-hd108769108816_ + (gx#stx-e _hd109027109068_)))) + (let ((_lp-hd109031109078_ (let () (declare (not safe)) - (##car _e108768108813_))) - (_lp-tl108770108818_ + (##car _e109030109075_))) + (_lp-tl109032109080_ (let () (declare (not safe)) - (##cdr _e108768108813_)))) + (##cdr _e109030109075_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd108769108816_)) - (let ((_e108777108821_ + (gx#stx-pair? _lp-hd109031109078_)) + (let ((_e109039109083_ (let () (declare (not safe)) - (gx#stx-e _lp-hd108769108816_)))) - (let ((_hd108776108824_ + (gx#stx-e _lp-hd109031109078_)))) + (let ((_hd109038109086_ (let () (declare (not safe)) - (##car _e108777108821_))) - (_tl108775108826_ + (##car _e109039109083_))) + (_tl109037109088_ (let () (declare (not safe)) - (##cdr _e108777108821_)))) + (##cdr _e109039109083_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108775108826_)) - (let ((_e108780108829_ + (gx#stx-pair? _tl109037109088_)) + (let ((_e109042109091_ (let () (declare (not safe)) - (gx#stx-e _tl108775108826_)))) - (let ((_hd108779108832_ + (gx#stx-e _tl109037109088_)))) + (let ((_hd109041109094_ (let () (declare (not safe)) - (##car _e108780108829_))) - (_tl108778108834_ + (##car _e109042109091_))) + (_tl109040109096_ (let () (declare (not safe)) - (##cdr _e108780108829_)))) + (##cdr _e109042109091_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108778108834_)) - (let ((__tmp111373 + (gx#stx-null? _tl109040109096_)) + (let ((__tmp111635 (let () (declare (not safe)) - (cons _hd108779108832_ - _body108771108808_))) - (__tmp111372 + (cons _hd109041109094_ + _body109033109070_))) + (__tmp111634 (let () (declare (not safe)) - (cons _hd108776108824_ - _hd108772108810_)))) + (cons _hd109038109086_ + _hd109034109072_)))) (declare (not safe)) - (_loop108767108803_ - _lp-tl108770108818_ - __tmp111373 - __tmp111372)) + (_loop109029109065_ + _lp-tl109032109080_ + __tmp111635 + __tmp111634)) (let () (declare (not safe)) - (_g108757108785_ - _g108758108788_))))) + (_g109019109047_ + _g109020109050_))))) (let () (declare (not safe)) - (_g108757108785_ _g108758108788_))))) + (_g109019109047_ _g109020109050_))))) (let () (declare (not safe)) - (_g108757108785_ _g108758108788_))))) - (let ((_body108773108837_ (reverse _body108771108808_)) - (_hd108774108839_ (reverse _hd108772108810_))) - ((lambda (_L108842_ _L108843_) + (_g109019109047_ _g109020109050_))))) + (let ((_body109035109099_ (reverse _body109033109070_)) + (_hd109036109101_ (reverse _hd109034109072_))) + ((lambda (_L109104_ _L109105_) (for-each - (lambda (_stx108858_) + (lambda (_stx109120_) (if (let () (declare (not safe)) - (null? _args108755_)) + (null? _args109017_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx108858_)) - (let ((_arg1108860_ (car _args108755_)) - (_rest108862_ (cdr _args108755_))) + (gxc#compile-e__0 _stx109120_)) + (let ((_arg1109122_ (car _args109017_)) + (_rest109124_ (cdr _args109017_))) (if (let () (declare (not safe)) - (null? _rest108862_)) + (null? _rest109124_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx108858_ - _arg1108860_)) - (let ((_arg2108865_ (car _rest108862_)) - (_rest108867_ (cdr _rest108862_))) + _stx109120_ + _arg1109122_)) + (let ((_arg2109127_ (car _rest109124_)) + (_rest109129_ (cdr _rest109124_))) (if (let () (declare (not safe)) - (null? _rest108867_)) + (null? _rest109129_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx108858_ - _arg1108860_ - _arg2108865_)) + _stx109120_ + _arg1109122_ + _arg2109127_)) (apply gxc#compile-e - _stx108858_ - _arg1108860_ - _arg2108865_ - _rest108867_))))))) - (let ((__tmp111371 - (lambda (_g108868108871_ _g108869108873_) + _stx109120_ + _arg1109122_ + _arg2109127_ + _rest109129_))))))) + (let ((__tmp111633 + (lambda (_g109130109133_ _g109131109135_) (let () (declare (not safe)) - (cons _g108868108871_ _g108869108873_))))) + (cons _g109130109133_ _g109131109135_))))) (declare (not safe)) - (foldr1 __tmp111371 '() _L108842_)))) - _body108773108837_ - _hd108774108839_)))))) + (foldr1 __tmp111633 '() _L109104_)))) + _body109035109099_ + _hd109036109101_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop108767108803_ - _target108764108798_ + (_loop109029109065_ + _target109026109060_ '() '()))) (let () (declare (not safe)) - (_g108757108785_ - _g108758108788_)))))) + (_g109019109047_ + _g109020109050_)))))) (let () (declare (not safe)) - (_g108757108785_ _g108758108788_))))) + (_g109019109047_ _g109020109050_))))) (let () (declare (not safe)) - (_g108757108785_ _g108758108788_)))))) + (_g109019109047_ _g109020109050_)))))) (declare (not safe)) - (_g108756108876_ _stx108754_)))) + (_g109018109138_ _stx109016_)))) (define gxc#collect-body-let-values% - (lambda (_stx108600_ . _args108601_) - (let* ((_g108603108638_ - (lambda (_g108604108635_) + (lambda (_stx108862_ . _args108863_) + (let* ((_g108865108900_ + (lambda (_g108866108897_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108604108635_)))) - (_g108602108751_ - (lambda (_g108604108641_) + _g108866108897_)))) + (_g108864109013_ + (lambda (_g108866108903_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108604108641_)) - (let ((_e108610108643_ + (gx#stx-pair? _g108866108903_)) + (let ((_e108872108905_ (let () (declare (not safe)) - (gx#stx-e _g108604108641_)))) - (let ((_hd108609108646_ + (gx#stx-e _g108866108903_)))) + (let ((_hd108871108908_ (let () (declare (not safe)) - (##car _e108610108643_))) - (_tl108608108648_ + (##car _e108872108905_))) + (_tl108870108910_ (let () (declare (not safe)) - (##cdr _e108610108643_)))) + (##cdr _e108872108905_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108608108648_)) - (let ((_e108613108651_ + (gx#stx-pair? _tl108870108910_)) + (let ((_e108875108913_ (let () (declare (not safe)) - (gx#stx-e _tl108608108648_)))) - (let ((_hd108612108654_ + (gx#stx-e _tl108870108910_)))) + (let ((_hd108874108916_ (let () (declare (not safe)) - (##car _e108613108651_))) - (_tl108611108656_ + (##car _e108875108913_))) + (_tl108873108918_ (let () (declare (not safe)) - (##cdr _e108613108651_)))) + (##cdr _e108875108913_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd108612108654_)) - (let ((_g111374_ + (gx#stx-pair/null? _hd108874108916_)) + (let ((_g111636_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd108612108654_ + _hd108874108916_ '0)))) (begin - (let ((_g111375_ + (let ((_g111637_ (let () (declare (not safe)) - (if (##values? _g111374_) + (if (##values? _g111636_) (##vector-length - _g111374_) + _g111636_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111375_ 2))) + (##fx= _g111637_ 2))) (error "Context expects 2 values" - _g111375_))) - (let ((_target108614108659_ + _g111637_))) + (let ((_target108876108921_ (let () (declare (not safe)) (##vector-ref - _g111374_ + _g111636_ 0))) - (_tl108616108661_ + (_tl108878108923_ (let () (declare (not safe)) (##vector-ref - _g111374_ + _g111636_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108616108661_)) - (letrec ((_loop108617108664_ - (lambda (_hd108615108667_ + _tl108878108923_)) + (letrec ((_loop108879108926_ + (lambda (_hd108877108929_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr108621108669_ - _hd108622108671_) + _expr108883108931_ + _hd108884108933_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd108615108667_)) - (let ((_e108618108674_ + (gx#stx-pair? _hd108877108929_)) + (let ((_e108880108936_ (let () (declare (not safe)) - (gx#stx-e _hd108615108667_)))) - (let ((_lp-hd108619108677_ + (gx#stx-e _hd108877108929_)))) + (let ((_lp-hd108881108939_ (let () (declare (not safe)) - (##car _e108618108674_))) - (_lp-tl108620108679_ + (##car _e108880108936_))) + (_lp-tl108882108941_ (let () (declare (not safe)) - (##cdr _e108618108674_)))) + (##cdr _e108880108936_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd108619108677_)) - (let ((_e108627108682_ + (gx#stx-pair? _lp-hd108881108939_)) + (let ((_e108889108944_ (let () (declare (not safe)) - (gx#stx-e _lp-hd108619108677_)))) - (let ((_hd108626108685_ + (gx#stx-e _lp-hd108881108939_)))) + (let ((_hd108888108947_ (let () (declare (not safe)) - (##car _e108627108682_))) - (_tl108625108687_ + (##car _e108889108944_))) + (_tl108887108949_ (let () (declare (not safe)) - (##cdr _e108627108682_)))) + (##cdr _e108889108944_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108625108687_)) - (let ((_e108630108690_ + (gx#stx-pair? _tl108887108949_)) + (let ((_e108892108952_ (let () (declare (not safe)) (gx#stx-e - _tl108625108687_)))) - (let ((_hd108629108693_ + _tl108887108949_)))) + (let ((_hd108891108955_ (let () (declare (not safe)) - (##car _e108630108690_))) - (_tl108628108695_ + (##car _e108892108952_))) + (_tl108890108957_ (let () (declare (not safe)) - (##cdr _e108630108690_)))) + (##cdr _e108892108952_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108628108695_)) - (let ((__tmp111379 + _tl108890108957_)) + (let ((__tmp111641 (let () (declare (not safe)) - (cons _hd108629108693_ + (cons _hd108891108955_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr108621108669_))) - (__tmp111378 + _expr108883108931_))) + (__tmp111640 (let () (declare (not safe)) - (cons _hd108626108685_ _hd108622108671_)))) + (cons _hd108888108947_ _hd108884108933_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop108617108664_ - _lp-tl108620108679_ - __tmp111379 - __tmp111378)) + (_loop108879108926_ + _lp-tl108882108941_ + __tmp111641 + __tmp111640)) (let () (declare (not safe)) - (_g108603108638_ - _g108604108641_))))) + (_g108865108900_ + _g108866108903_))))) (let () (declare (not safe)) - (_g108603108638_ - _g108604108641_))))) + (_g108865108900_ + _g108866108903_))))) (let () (declare (not safe)) - (_g108603108638_ _g108604108641_))))) - (let ((_expr108623108698_ - (reverse _expr108621108669_)) - (_hd108624108700_ (reverse _hd108622108671_))) + (_g108865108900_ _g108866108903_))))) + (let ((_expr108885108960_ + (reverse _expr108883108931_)) + (_hd108886108962_ (reverse _hd108884108933_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108611108656_)) - (let ((_e108633108703_ + (gx#stx-pair? _tl108873108918_)) + (let ((_e108895108965_ (let () (declare (not safe)) - (gx#stx-e _tl108611108656_)))) - (let ((_hd108632108706_ + (gx#stx-e _tl108873108918_)))) + (let ((_hd108894108968_ (let () (declare (not safe)) - (##car _e108633108703_))) - (_tl108631108708_ + (##car _e108895108965_))) + (_tl108893108970_ (let () (declare (not safe)) - (##cdr _e108633108703_)))) + (##cdr _e108895108965_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108631108708_)) - ((lambda (_L108711_ - _L108712_ - _L108713_) + (gx#stx-null? _tl108893108970_)) + ((lambda (_L108973_ + _L108974_ + _L108975_) (for-each - (lambda (_stx108733_) + (lambda (_stx108995_) (if (let () (declare (not safe)) - (null? _args108601_)) + (null? _args108863_)) (let () (declare (not safe)) (gxc#compile-e__0 - _stx108733_)) - (let ((_arg1108735_ - (car _args108601_)) - (_rest108737_ - (cdr _args108601_))) + _stx108995_)) + (let ((_arg1108997_ + (car _args108863_)) + (_rest108999_ + (cdr _args108863_))) (if (let () (declare (not safe)) - (null? _rest108737_)) + (null? _rest108999_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx108733_ - _arg1108735_)) - (let ((_arg2108740_ - (car _rest108737_)) - (_rest108742_ - (cdr _rest108737_))) + _stx108995_ + _arg1108997_)) + (let ((_arg2109002_ + (car _rest108999_)) + (_rest109004_ + (cdr _rest108999_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest108742_)) + (null? _rest109004_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx108733_ - _arg1108735_ - _arg2108740_)) + _stx108995_ + _arg1108997_ + _arg2109002_)) (apply gxc#compile-e - _stx108733_ - _arg1108735_ - _arg2108740_ - _rest108742_))))))) + _stx108995_ + _arg1108997_ + _arg2109002_ + _rest109004_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp111377 - (lambda (_g108743108746_ - _g108744108748_) + (let ((__tmp111639 + (lambda (_g109005109008_ + _g109006109010_) (let () (declare (not safe)) - (cons _g108743108746_ - _g108744108748_)))) - (__tmp111376 + (cons _g109005109008_ + _g109006109010_)))) + (__tmp111638 (let () (declare (not safe)) - (cons _L108711_ '())))) + (cons _L108973_ '())))) (declare (not safe)) - (foldr1 __tmp111377 - __tmp111376 - _L108712_)))) - _hd108632108706_ - _expr108623108698_ - _hd108624108700_) + (foldr1 __tmp111639 + __tmp111638 + _L108974_)))) + _hd108894108968_ + _expr108885108960_ + _hd108886108962_) (let () (declare (not safe)) - (_g108603108638_ _g108604108641_))))) + (_g108865108900_ _g108866108903_))))) (let () (declare (not safe)) - (_g108603108638_ _g108604108641_)))))))) + (_g108865108900_ _g108866108903_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop108617108664_ - _target108614108659_ + (_loop108879108926_ + _target108876108921_ '() '()))) (let () (declare (not safe)) - (_g108603108638_ - _g108604108641_)))))) + (_g108865108900_ + _g108866108903_)))))) (let () (declare (not safe)) - (_g108603108638_ _g108604108641_))))) + (_g108865108900_ _g108866108903_))))) (let () (declare (not safe)) - (_g108603108638_ _g108604108641_))))) + (_g108865108900_ _g108866108903_))))) (let () (declare (not safe)) - (_g108603108638_ _g108604108641_)))))) + (_g108865108900_ _g108866108903_)))))) (declare (not safe)) - (_g108602108751_ _stx108600_)))) + (_g108864109013_ _stx108862_)))) (define gxc#collect-body-setq% - (lambda (_stx108523_ . _args108524_) - (let* ((_g108526108543_ - (lambda (_g108527108540_) + (lambda (_stx108785_ . _args108786_) + (let* ((_g108788108805_ + (lambda (_g108789108802_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108527108540_)))) - (_g108525108597_ - (lambda (_g108527108546_) + _g108789108802_)))) + (_g108787108859_ + (lambda (_g108789108808_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108527108546_)) - (let ((_e108532108548_ + (gx#stx-pair? _g108789108808_)) + (let ((_e108794108810_ (let () (declare (not safe)) - (gx#stx-e _g108527108546_)))) - (let ((_hd108531108551_ + (gx#stx-e _g108789108808_)))) + (let ((_hd108793108813_ (let () (declare (not safe)) - (##car _e108532108548_))) - (_tl108530108553_ + (##car _e108794108810_))) + (_tl108792108815_ (let () (declare (not safe)) - (##cdr _e108532108548_)))) + (##cdr _e108794108810_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108530108553_)) - (let ((_e108535108556_ + (gx#stx-pair? _tl108792108815_)) + (let ((_e108797108818_ (let () (declare (not safe)) - (gx#stx-e _tl108530108553_)))) - (let ((_hd108534108559_ + (gx#stx-e _tl108792108815_)))) + (let ((_hd108796108821_ (let () (declare (not safe)) - (##car _e108535108556_))) - (_tl108533108561_ + (##car _e108797108818_))) + (_tl108795108823_ (let () (declare (not safe)) - (##cdr _e108535108556_)))) + (##cdr _e108797108818_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108533108561_)) - (let ((_e108538108564_ + (gx#stx-pair? _tl108795108823_)) + (let ((_e108800108826_ (let () (declare (not safe)) - (gx#stx-e _tl108533108561_)))) - (let ((_hd108537108567_ + (gx#stx-e _tl108795108823_)))) + (let ((_hd108799108829_ (let () (declare (not safe)) - (##car _e108538108564_))) - (_tl108536108569_ + (##car _e108800108826_))) + (_tl108798108831_ (let () (declare (not safe)) - (##cdr _e108538108564_)))) + (##cdr _e108800108826_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108536108569_)) - ((lambda (_L108572_ _L108573_) + _tl108798108831_)) + ((lambda (_L108834_ _L108835_) (if (let () (declare (not safe)) - (null? _args108524_)) + (null? _args108786_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L108572_)) - (let ((_arg1108588_ - (car _args108524_)) - (_rest108590_ - (cdr _args108524_))) + _L108834_)) + (let ((_arg1108850_ + (car _args108786_)) + (_rest108852_ + (cdr _args108786_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest108590_)) + (null? _rest108852_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L108572_ _arg1108588_)) - (let ((_arg2108593_ (car _rest108590_)) - (_rest108595_ (cdr _rest108590_))) - (if (let () (declare (not safe)) (null? _rest108595_)) + (gxc#compile-e__1 _L108834_ _arg1108850_)) + (let ((_arg2108855_ (car _rest108852_)) + (_rest108857_ (cdr _rest108852_))) + (if (let () (declare (not safe)) (null? _rest108857_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L108572_ - _arg1108588_ - _arg2108593_)) + _L108834_ + _arg1108850_ + _arg2108855_)) (apply gxc#compile-e - _L108572_ - _arg1108588_ - _arg2108593_ - _rest108595_))))))) + _L108834_ + _arg1108850_ + _arg2108855_ + _rest108857_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd108537108567_ - _hd108534108559_) + _hd108799108829_ + _hd108796108821_) (let () (declare (not safe)) - (_g108526108543_ - _g108527108546_))))) + (_g108788108805_ + _g108789108808_))))) (let () (declare (not safe)) - (_g108526108543_ _g108527108546_))))) + (_g108788108805_ _g108789108808_))))) (let () (declare (not safe)) - (_g108526108543_ _g108527108546_))))) + (_g108788108805_ _g108789108808_))))) (let () (declare (not safe)) - (_g108526108543_ _g108527108546_)))))) + (_g108788108805_ _g108789108808_)))))) (declare (not safe)) - (_g108525108597_ _stx108523_)))) + (_g108787108859_ _stx108785_)))) (define gxc#collect-operands - (lambda (_stx108429_ . _args108430_) - (let* ((_g108432108451_ - (lambda (_g108433108448_) + (lambda (_stx108691_ . _args108692_) + (let* ((_g108694108713_ + (lambda (_g108695108710_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108433108448_)))) - (_g108431108520_ - (lambda (_g108433108454_) + _g108695108710_)))) + (_g108693108782_ + (lambda (_g108695108716_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108433108454_)) - (let ((_e108437108456_ + (gx#stx-pair? _g108695108716_)) + (let ((_e108699108718_ (let () (declare (not safe)) - (gx#stx-e _g108433108454_)))) - (let ((_hd108436108459_ + (gx#stx-e _g108695108716_)))) + (let ((_hd108698108721_ (let () (declare (not safe)) - (##car _e108437108456_))) - (_tl108435108461_ + (##car _e108699108718_))) + (_tl108697108723_ (let () (declare (not safe)) - (##cdr _e108437108456_)))) + (##cdr _e108699108718_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl108435108461_)) - (let ((_g111380_ + (gx#stx-pair/null? _tl108697108723_)) + (let ((_g111642_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl108435108461_ + _tl108697108723_ '0)))) (begin - (let ((_g111381_ + (let ((_g111643_ (let () (declare (not safe)) - (if (##values? _g111380_) - (##vector-length _g111380_) + (if (##values? _g111642_) + (##vector-length _g111642_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111381_ 2))) + (##fx= _g111643_ 2))) (error "Context expects 2 values" - _g111381_))) - (let ((_target108438108464_ + _g111643_))) + (let ((_target108700108726_ (let () (declare (not safe)) - (##vector-ref _g111380_ 0))) - (_tl108440108466_ + (##vector-ref _g111642_ 0))) + (_tl108702108728_ (let () (declare (not safe)) - (##vector-ref _g111380_ 1)))) + (##vector-ref _g111642_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108440108466_)) - (letrec ((_loop108441108469_ - (lambda (_hd108439108472_ - _rands108445108474_) + (gx#stx-null? _tl108702108728_)) + (letrec ((_loop108703108731_ + (lambda (_hd108701108734_ + _rands108707108736_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108439108472_)) - (let ((_e108442108477_ + _hd108701108734_)) + (let ((_e108704108739_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd108439108472_)))) - (let ((_lp-hd108443108480_ + (gx#stx-e _hd108701108734_)))) + (let ((_lp-hd108705108742_ (let () (declare (not safe)) - (##car _e108442108477_))) - (_lp-tl108444108482_ + (##car _e108704108739_))) + (_lp-tl108706108744_ (let () (declare (not safe)) - (##cdr _e108442108477_)))) - (let ((__tmp111383 + (##cdr _e108704108739_)))) + (let ((__tmp111645 (let () (declare (not safe)) - (cons _lp-hd108443108480_ - _rands108445108474_)))) + (cons _lp-hd108705108742_ + _rands108707108736_)))) (declare (not safe)) - (_loop108441108469_ _lp-tl108444108482_ __tmp111383)))) - (let ((_rands108446108485_ (reverse _rands108445108474_))) - ((lambda (_L108488_) + (_loop108703108731_ _lp-tl108706108744_ __tmp111645)))) + (let ((_rands108708108747_ (reverse _rands108707108736_))) + ((lambda (_L108750_) (for-each - (lambda (_stx108502_) + (lambda (_stx108764_) (if (let () (declare (not safe)) - (null? _args108430_)) + (null? _args108692_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx108502_)) - (let ((_arg1108504_ (car _args108430_)) - (_rest108506_ (cdr _args108430_))) + (gxc#compile-e__0 _stx108764_)) + (let ((_arg1108766_ (car _args108692_)) + (_rest108768_ (cdr _args108692_))) (if (let () (declare (not safe)) - (null? _rest108506_)) + (null? _rest108768_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx108502_ - _arg1108504_)) - (let ((_arg2108509_ (car _rest108506_)) - (_rest108511_ (cdr _rest108506_))) + _stx108764_ + _arg1108766_)) + (let ((_arg2108771_ (car _rest108768_)) + (_rest108773_ (cdr _rest108768_))) (if (let () (declare (not safe)) - (null? _rest108511_)) + (null? _rest108773_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx108502_ - _arg1108504_ - _arg2108509_)) + _stx108764_ + _arg1108766_ + _arg2108771_)) (apply gxc#compile-e - _stx108502_ - _arg1108504_ - _arg2108509_ - _rest108511_))))))) - (let ((__tmp111382 - (lambda (_g108512108515_ _g108513108517_) + _stx108764_ + _arg1108766_ + _arg2108771_ + _rest108773_))))))) + (let ((__tmp111644 + (lambda (_g108774108777_ _g108775108779_) (let () (declare (not safe)) - (cons _g108512108515_ _g108513108517_))))) + (cons _g108774108777_ _g108775108779_))))) (declare (not safe)) - (foldr1 __tmp111382 '() _L108488_)))) - _rands108446108485_)))))) + (foldr1 __tmp111644 '() _L108750_)))) + _rands108708108747_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop108441108469_ - _target108438108464_ + (_loop108703108731_ + _target108700108726_ '()))) (let () (declare (not safe)) - (_g108432108451_ - _g108433108454_)))))) + (_g108694108713_ + _g108695108716_)))))) (let () (declare (not safe)) - (_g108432108451_ _g108433108454_))))) + (_g108694108713_ _g108695108716_))))) (let () (declare (not safe)) - (_g108432108451_ _g108433108454_)))))) + (_g108694108713_ _g108695108716_)))))) (declare (not safe)) - (_g108431108520_ _stx108429_)))) + (_g108693108782_ _stx108691_)))) (define gxc#collect-bindings-define-values% - (lambda (_stx108360_) - (let* ((_g108362108379_ - (lambda (_g108363108376_) + (lambda (_stx108622_) + (let* ((_g108624108641_ + (lambda (_g108625108638_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108363108376_)))) - (_g108361108426_ - (lambda (_g108363108382_) + _g108625108638_)))) + (_g108623108688_ + (lambda (_g108625108644_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108363108382_)) - (let ((_e108368108384_ + (gx#stx-pair? _g108625108644_)) + (let ((_e108630108646_ (let () (declare (not safe)) - (gx#stx-e _g108363108382_)))) - (let ((_hd108367108387_ + (gx#stx-e _g108625108644_)))) + (let ((_hd108629108649_ (let () (declare (not safe)) - (##car _e108368108384_))) - (_tl108366108389_ + (##car _e108630108646_))) + (_tl108628108651_ (let () (declare (not safe)) - (##cdr _e108368108384_)))) + (##cdr _e108630108646_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108366108389_)) - (let ((_e108371108392_ + (gx#stx-pair? _tl108628108651_)) + (let ((_e108633108654_ (let () (declare (not safe)) - (gx#stx-e _tl108366108389_)))) - (let ((_hd108370108395_ + (gx#stx-e _tl108628108651_)))) + (let ((_hd108632108657_ (let () (declare (not safe)) - (##car _e108371108392_))) - (_tl108369108397_ + (##car _e108633108654_))) + (_tl108631108659_ (let () (declare (not safe)) - (##cdr _e108371108392_)))) + (##cdr _e108633108654_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108369108397_)) - (let ((_e108374108400_ + (gx#stx-pair? _tl108631108659_)) + (let ((_e108636108662_ (let () (declare (not safe)) - (gx#stx-e _tl108369108397_)))) - (let ((_hd108373108403_ + (gx#stx-e _tl108631108659_)))) + (let ((_hd108635108665_ (let () (declare (not safe)) - (##car _e108374108400_))) - (_tl108372108405_ + (##car _e108636108662_))) + (_tl108634108667_ (let () (declare (not safe)) - (##cdr _e108374108400_)))) + (##cdr _e108636108662_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108372108405_)) - ((lambda (_L108408_ _L108409_) - (let ((__tmp111384 - (lambda (_bind108424_) + _tl108634108667_)) + ((lambda (_L108670_ _L108671_) + (let ((__tmp111646 + (lambda (_bind108686_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _bind108424_)) + (gx#identifier? _bind108686_)) (let () (declare (not safe)) - (gxc#add-module-binding! _bind108424_ '#f)) + (gxc#add-module-binding! _bind108686_ '#f)) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp111384 - _L108409_))) - _hd108373108403_ - _hd108370108395_) + __tmp111646 + _L108671_))) + _hd108635108665_ + _hd108632108657_) (let () (declare (not safe)) - (_g108362108379_ - _g108363108382_))))) + (_g108624108641_ + _g108625108644_))))) (let () (declare (not safe)) - (_g108362108379_ _g108363108382_))))) + (_g108624108641_ _g108625108644_))))) (let () (declare (not safe)) - (_g108362108379_ _g108363108382_))))) + (_g108624108641_ _g108625108644_))))) (let () (declare (not safe)) - (_g108362108379_ _g108363108382_)))))) + (_g108624108641_ _g108625108644_)))))) (declare (not safe)) - (_g108361108426_ _stx108360_)))) + (_g108623108688_ _stx108622_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_stx108293_) - (let* ((_g108295108312_ - (lambda (_g108296108309_) + (lambda (_stx108555_) + (let* ((_g108557108574_ + (lambda (_g108558108571_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108296108309_)))) - (_g108294108357_ - (lambda (_g108296108315_) + _g108558108571_)))) + (_g108556108619_ + (lambda (_g108558108577_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108296108315_)) - (let ((_e108301108317_ + (gx#stx-pair? _g108558108577_)) + (let ((_e108563108579_ (let () (declare (not safe)) - (gx#stx-e _g108296108315_)))) - (let ((_hd108300108320_ + (gx#stx-e _g108558108577_)))) + (let ((_hd108562108582_ (let () (declare (not safe)) - (##car _e108301108317_))) - (_tl108299108322_ + (##car _e108563108579_))) + (_tl108561108584_ (let () (declare (not safe)) - (##cdr _e108301108317_)))) + (##cdr _e108563108579_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108299108322_)) - (let ((_e108304108325_ + (gx#stx-pair? _tl108561108584_)) + (let ((_e108566108587_ (let () (declare (not safe)) - (gx#stx-e _tl108299108322_)))) - (let ((_hd108303108328_ + (gx#stx-e _tl108561108584_)))) + (let ((_hd108565108590_ (let () (declare (not safe)) - (##car _e108304108325_))) - (_tl108302108330_ + (##car _e108566108587_))) + (_tl108564108592_ (let () (declare (not safe)) - (##cdr _e108304108325_)))) + (##cdr _e108566108587_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108302108330_)) - (let ((_e108307108333_ + (gx#stx-pair? _tl108564108592_)) + (let ((_e108569108595_ (let () (declare (not safe)) - (gx#stx-e _tl108302108330_)))) - (let ((_hd108306108336_ + (gx#stx-e _tl108564108592_)))) + (let ((_hd108568108598_ (let () (declare (not safe)) - (##car _e108307108333_))) - (_tl108305108338_ + (##car _e108569108595_))) + (_tl108567108600_ (let () (declare (not safe)) - (##cdr _e108307108333_)))) + (##cdr _e108569108595_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108305108338_)) - ((lambda (_L108341_ _L108342_) + _tl108567108600_)) + ((lambda (_L108603_ _L108604_) (let () (declare (not safe)) (gxc#add-module-binding! - _L108342_ + _L108604_ '#t))) - _hd108306108336_ - _hd108303108328_) + _hd108568108598_ + _hd108565108590_) (let () (declare (not safe)) - (_g108295108312_ - _g108296108315_))))) + (_g108557108574_ + _g108558108577_))))) (let () (declare (not safe)) - (_g108295108312_ _g108296108315_))))) + (_g108557108574_ _g108558108577_))))) (let () (declare (not safe)) - (_g108295108312_ _g108296108315_))))) + (_g108557108574_ _g108558108577_))))) (let () (declare (not safe)) - (_g108295108312_ _g108296108315_)))))) + (_g108557108574_ _g108558108577_)))))) (declare (not safe)) - (_g108294108357_ _stx108293_)))) + (_g108556108619_ _stx108555_)))) (define gxc#lift-modules-module% - (lambda (_stx108235_ _modules108236_) - (let* ((_g108238108252_ - (lambda (_g108239108249_) + (lambda (_stx108497_ _modules108498_) + (let* ((_g108500108514_ + (lambda (_g108501108511_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108239108249_)))) - (_g108237108290_ - (lambda (_g108239108255_) + _g108501108511_)))) + (_g108499108552_ + (lambda (_g108501108517_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108239108255_)) - (let ((_e108244108257_ + (gx#stx-pair? _g108501108517_)) + (let ((_e108506108519_ (let () (declare (not safe)) - (gx#stx-e _g108239108255_)))) - (let ((_hd108243108260_ + (gx#stx-e _g108501108517_)))) + (let ((_hd108505108522_ (let () (declare (not safe)) - (##car _e108244108257_))) - (_tl108242108262_ + (##car _e108506108519_))) + (_tl108504108524_ (let () (declare (not safe)) - (##cdr _e108244108257_)))) + (##cdr _e108506108519_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108242108262_)) - (let ((_e108247108265_ + (gx#stx-pair? _tl108504108524_)) + (let ((_e108509108527_ (let () (declare (not safe)) - (gx#stx-e _tl108242108262_)))) - (let ((_hd108246108268_ + (gx#stx-e _tl108504108524_)))) + (let ((_hd108508108530_ (let () (declare (not safe)) - (##car _e108247108265_))) - (_tl108245108270_ + (##car _e108509108527_))) + (_tl108507108532_ (let () (declare (not safe)) - (##cdr _e108247108265_)))) - ((lambda (_L108273_ _L108274_) - (let ((_ctx108287_ + (##cdr _e108509108527_)))) + ((lambda (_L108535_ _L108536_) + (let ((_ctx108549_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L108274_)))) + _L108536_)))) (set-box! - _modules108236_ - (let ((__tmp111385 - (unbox _modules108236_))) + _modules108498_ + (let ((__tmp111647 + (unbox _modules108498_))) (declare (not safe)) - (cons _ctx108287_ __tmp111385))) - (let ((__tmp111386 + (cons _ctx108549_ __tmp111647))) + (let ((__tmp111648 (lambda () - (let ((__tmp111387 + (let ((__tmp111649 (##structure-ref - _ctx108287_ + _ctx108549_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - __tmp111387 - _modules108236_))))) + __tmp111649 + _modules108498_))))) (declare (not safe)) (call-with-parameters - __tmp111386 + __tmp111648 gx#current-expander-context - _ctx108287_)))) - _tl108245108270_ - _hd108246108268_))) + _ctx108549_)))) + _tl108507108532_ + _hd108508108530_))) (let () (declare (not safe)) - (_g108238108252_ _g108239108255_))))) + (_g108500108514_ _g108501108517_))))) (let () (declare (not safe)) - (_g108238108252_ _g108239108255_)))))) + (_g108500108514_ _g108501108517_)))))) (declare (not safe)) - (_g108237108290_ _stx108235_)))) + (_g108499108552_ _stx108497_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_decls108191108193_ (gxc#current-compile-decls))) - (if _decls108191108193_ - (let ((_decls108196_ _decls108191108193_)) - (let _lp108198_ ((_rest108200_ _decls108196_)) - (let* ((_rest108201108209_ _rest108200_) - (_else108203108217_ (lambda () '#f)) - (_K108205108223_ - (lambda (_decls108220_ _decl108221_) + (let ((_decls108453108455_ (gxc#current-compile-decls))) + (if _decls108453108455_ + (let ((_decls108458_ _decls108453108455_)) + (let _lp108460_ ((_rest108462_ _decls108458_)) + (let* ((_rest108463108471_ _rest108462_) + (_else108465108479_ (lambda () '#f)) + (_K108467108485_ + (lambda (_decls108482_ _decl108483_) (if (let () (declare (not safe)) - (equal? _decl108221_ '(not safe))) + (equal? _decl108483_ '(not safe))) '#t (if (let () (declare (not safe)) - (equal? _decl108221_ '(safe))) + (equal? _decl108483_ '(safe))) '#f (let () (declare (not safe)) - (_lp108198_ _decls108220_))))))) + (_lp108460_ _decls108482_))))))) (if (let () (declare (not safe)) - (##pair? _rest108201108209_)) - (let ((_hd108206108226_ + (##pair? _rest108463108471_)) + (let ((_hd108468108488_ (let () (declare (not safe)) - (##car _rest108201108209_))) - (_tl108207108228_ + (##car _rest108463108471_))) + (_tl108469108490_ (let () (declare (not safe)) - (##cdr _rest108201108209_)))) - (let* ((_decl108231_ _hd108206108226_) - (_decls108233_ _tl108207108228_)) + (##cdr _rest108463108471_)))) + (let* ((_decl108493_ _hd108468108488_) + (_decls108495_ _tl108469108490_)) (declare (not safe)) - (_K108205108223_ _decls108233_ _decl108231_))) + (_K108467108485_ _decls108495_ _decl108493_))) (let () (declare (not safe)) - (_else108203108217_)))))) + (_else108465108479_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id108185_ _syntax?108186_) - (let ((_eid108188_ + (lambda (_id108447_ _syntax?108448_) + (let ((_eid108450_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _id108185_)) + (gx#resolve-identifier__0 _id108447_)) '1 gx#binding::t '#f)) - (_ht108189_ + (_ht108451_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid108188_) + (if (interned-symbol? _eid108450_) '#!void - (let ((__tmp111388 - (let ((__tmp111389 + (let ((__tmp111650 + (let ((__tmp111651 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid108188_)))) + _eid108450_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp111389 _syntax?108186_)))) + (gx#make-binding-id__1 __tmp111651 _syntax?108448_)))) (declare (not safe)) - (hash-put! _ht108189_ _eid108188_ __tmp111388)))))) + (hash-put! _ht108451_ _eid108450_ __tmp111650)))))) (define gxc#runtime-identifier=? - (lambda (_id1108178_ _id2108179_) - (letrec ((_symbol-e108181_ - (lambda (_id108183_) - (if (let () (declare (not safe)) (symbol? _id108183_)) - _id108183_ + (lambda (_id1108440_ _id2108441_) + (letrec ((_symbol-e108443_ + (lambda (_id108445_) + (if (let () (declare (not safe)) (symbol? _id108445_)) + _id108445_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id108183_)))))) - (let ((__tmp111391 + (gxc#generate-runtime-binding-id _id108445_)))))) + (let ((__tmp111653 (let () (declare (not safe)) - (_symbol-e108181_ _id1108178_))) - (__tmp111390 + (_symbol-e108443_ _id1108440_))) + (__tmp111652 (let () (declare (not safe)) - (_symbol-e108181_ _id2108179_)))) + (_symbol-e108443_ _id2108441_)))) (declare (not safe)) - (eq? __tmp111391 __tmp111390))))) + (eq? __tmp111653 __tmp111652))))) (define gxc#generate-runtime-binding-id - (lambda (_id108156_) - (let ((_$e108158_ + (lambda (_id108418_) + (let ((_$e108420_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id108156_ + _id108418_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _id108156_)) + (gx#resolve-identifier__0 _id108418_)) '#f))) - (if _$e108158_ - ((lambda (_bind108161_) - (let ((_eid108163_ - (##structure-ref _bind108161_ '1 gx#binding::t '#f)) - (_ht108164_ + (if _$e108420_ + ((lambda (_bind108423_) + (let ((_eid108425_ + (##structure-ref _bind108423_ '1 gx#binding::t '#f)) + (_ht108426_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid108163_) - _eid108163_ - (let ((_$e108166_ + (if (interned-symbol? _eid108425_) + _eid108425_ + (let ((_$e108428_ (let () (declare (not safe)) - (hash-get _ht108164_ _eid108163_)))) - (if _$e108166_ - (values _$e108166_) + (hash-get _ht108426_ _eid108425_)))) + (if _$e108428_ + (values _$e108428_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind108161_ + _bind108423_ 'gx#local-binding::t)) - (let ((_gid108169_ + (let ((_gid108431_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid108163_)))) + _eid108425_)))) (let () (declare (not safe)) (hash-put! - _ht108164_ - _eid108163_ - _gid108169_)) - _gid108169_) + _ht108426_ + _eid108425_ + _gid108431_)) + _gid108431_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind108161_ + _bind108423_ 'gx#module-binding::t)) - (let ((_gid108176_ - (let ((_$e108171_ + (let ((_gid108438_ + (let ((_$e108433_ (##structure-ref (##structure-ref - _bind108161_ + _bind108423_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e108171_ - ((lambda (_ns108174_) + (if _$e108433_ + ((lambda (_ns108436_) (let () (declare (not safe)) (make-symbol__1 - _ns108174_ + _ns108436_ '"#" - _eid108163_))) - _$e108171_) + _eid108425_))) + _$e108433_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid108163_)))))) + _eid108425_)))))) (let () (declare (not safe)) (hash-put! - _ht108164_ - _eid108163_ - _gid108176_)) - _gid108176_) + _ht108426_ + _eid108425_ + _gid108438_)) + _gid108438_) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id108156_ - _eid108163_ - _bind108161_))))))))) - _$e108158_) + _id108418_ + _eid108425_ + _bind108423_))))))))) + _$e108420_) (if (interned-symbol? - (let () (declare (not safe)) (gx#stx-e _id108156_))) - (let () (declare (not safe)) (gx#stx-e _id108156_)) + (let () (declare (not safe)) (gx#stx-e _id108418_))) + (let () (declare (not safe)) (gx#stx-e _id108418_)) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id108156_))))))) + _id108418_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id108154_) - (if (let () (declare (not safe)) (gx#identifier? _id108154_)) + (lambda (_id108416_) + (if (let () (declare (not safe)) (gx#identifier? _id108416_)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id108154_)) + (gxc#generate-runtime-binding-id _id108416_)) (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym108134_ _quote?108135_) - (let* ((_ht108137_ + (lambda (_sym108396_ _quote?108397_) + (let* ((_ht108399_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e108139_ + (_$e108401_ (let () (declare (not safe)) - (hash-get _ht108137_ _sym108134_)))) - (if _$e108139_ - (values _$e108139_) - (let ((_g108142_ - (if _quote?108135_ - (let ((__tmp111392 (gxc#current-compile-timestamp))) + (hash-get _ht108399_ _sym108396_)))) + (if _$e108401_ + (values _$e108401_) + (let ((_g108404_ + (if _quote?108397_ + (let ((__tmp111654 (gxc#current-compile-timestamp))) (declare (not safe)) (make-symbol__1 '"__" - _sym108134_ + _sym108396_ '"__" - __tmp111392)) + __tmp111654)) (let () (declare (not safe)) - (make-symbol__1 '"_" _sym108134_ '"_"))))) + (make-symbol__1 '"_" _sym108396_ '"_"))))) (let () (declare (not safe)) - (hash-put! _ht108137_ _sym108134_ _g108142_)) - _g108142_))))) + (hash-put! _ht108399_ _sym108396_ _g108404_)) + _g108404_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym108147_) - (let ((_quote?108149_ '#f)) + (lambda (_sym108409_) + (let ((_quote?108411_ '#f)) (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym108147_ - _quote?108149_)))) + _sym108409_ + _quote?108411_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g111394_ - (let ((_g111393_ (let () (declare (not safe)) (##length _g111394_)))) - (cond ((let () (declare (not safe)) (##fx= _g111393_ 1)) - (apply (lambda (_sym108147_) + (lambda _g111656_ + (let ((_g111655_ (let () (declare (not safe)) (##length _g111656_)))) + (cond ((let () (declare (not safe)) (##fx= _g111655_ 1)) + (apply (lambda (_sym108409_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym108147_))) - _g111394_)) - ((let () (declare (not safe)) (##fx= _g111393_ 2)) - (apply (lambda (_sym108151_ _quote?108152_) + _sym108409_))) + _g111656_)) + ((let () (declare (not safe)) (##fx= _g111655_ 2)) + (apply (lambda (_sym108413_ _quote?108414_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym108151_ - _quote?108152_))) - _g111394_)) + _sym108413_ + _quote?108414_))) + _g111656_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g111394_)))))) + _g111656_)))))) (define gxc#generate-runtime-identifier - (lambda (_id108131_) - (let ((__tmp111395 + (lambda (_id108393_) + (let ((__tmp111657 (let () (declare (not safe)) - (gx#core-identifier-key _id108131_)))) + (gx#core-identifier-key _id108393_)))) (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp111395)))) + (gxc#generate-runtime-identifier-key __tmp111657)))) (define gxc#generate-runtime-identifier-key - (lambda (_key108091_) - (if (interned-symbol? _key108091_) - _key108091_ - (if (uninterned-symbol? _key108091_) + (lambda (_key108353_) + (if (interned-symbol? _key108353_) + _key108353_ + (if (uninterned-symbol? _key108353_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _key108091_)) - (let* ((_key108092108099_ _key108091_) - (_E108094108103_ + (gxc#generate-runtime-gensym-reference__0 _key108353_)) + (let* ((_key108354108361_ _key108353_) + (_E108356108365_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _key108092108099_)))) - (_K108095108119_ - (lambda (_mark108106_ _eid108107_) - (let ((_$e108109_ + _key108354108361_)))) + (_K108357108381_ + (lambda (_mark108368_ _eid108369_) + (let ((_$e108371_ (##structure-ref - _mark108106_ + _mark108368_ '1 gx#expander-mark::t '#f))) - (if _$e108109_ - ((lambda (_ht108112_) - (let ((_$e108114_ + (if _$e108371_ + ((lambda (_ht108374_) + (let ((_$e108376_ (let () (declare (not safe)) (hash-get - _ht108112_ - _eid108107_)))) - (if _$e108114_ - ((lambda (_id108117_) - (if (interned-symbol? _id108117_) - _id108117_ + _ht108374_ + _eid108369_)))) + (if _$e108376_ + ((lambda (_id108379_) + (if (interned-symbol? _id108379_) + _id108379_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _id108117_)))) - _$e108114_) + _id108379_)))) + _$e108376_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid108107_))))) - _$e108109_) + _eid108369_))))) + _$e108371_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid108107_))))))) + _eid108369_))))))) (if (let () (declare (not safe)) - (##pair? _key108092108099_)) - (let ((_hd108096108122_ + (##pair? _key108354108361_)) + (let ((_hd108358108384_ (let () (declare (not safe)) - (##car _key108092108099_))) - (_tl108097108124_ + (##car _key108354108361_))) + (_tl108359108386_ (let () (declare (not safe)) - (##cdr _key108092108099_)))) - (let* ((_eid108127_ _hd108096108122_) - (_mark108129_ _tl108097108124_)) + (##cdr _key108354108361_)))) + (let* ((_eid108389_ _hd108358108384_) + (_mark108391_ _tl108359108386_)) (declare (not safe)) - (_K108095108119_ _mark108129_ _eid108127_))) - (let () (declare (not safe)) (_E108094108103_)))))))) + (_K108357108381_ _mark108391_ _eid108389_))) + (let () (declare (not safe)) (_E108356108365_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top108078_) - (if _top108078_ - (let ((_ns108080_ + (lambda (_top108340_) + (if _top108340_ + (let ((_ns108342_ (##structure-ref - (let ((__tmp111397 (gx#current-expander-context))) + (let ((__tmp111659 (gx#current-expander-context))) (declare (not safe)) - (gx#core-context-top__1 __tmp111397)) + (gx#core-context-top__1 __tmp111659)) '6 gx#module-context::t '#f)) - (_phi108081_ (gx#current-expander-phi))) - (if _ns108080_ - (if (fxpositive? _phi108081_) - (let ((__tmp111403 (number->string _phi108081_)) - (__tmp111402 (gensym))) + (_phi108343_ (gx#current-expander-phi))) + (if _ns108342_ + (if (fxpositive? _phi108343_) + (let ((__tmp111665 (number->string _phi108343_)) + (__tmp111664 (gensym))) (declare (not safe)) (make-symbol__1 - _ns108080_ + _ns108342_ '"[" - __tmp111403 + __tmp111665 '"]#_" - __tmp111402 + __tmp111664 '"_")) - (let ((__tmp111401 (gensym))) + (let ((__tmp111663 (gensym))) (declare (not safe)) - (make-symbol__1 _ns108080_ '"#_" __tmp111401 '"_"))) - (if (fxpositive? _phi108081_) - (let ((__tmp111400 (number->string _phi108081_)) - (__tmp111399 (gensym))) + (make-symbol__1 _ns108342_ '"#_" __tmp111663 '"_"))) + (if (fxpositive? _phi108343_) + (let ((__tmp111662 (number->string _phi108343_)) + (__tmp111661 (gensym))) (declare (not safe)) (make-symbol__1 '"[" - __tmp111400 + __tmp111662 '"]#_" - __tmp111399 + __tmp111661 '"_")) - (let ((__tmp111398 (gensym))) + (let ((__tmp111660 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp111398 '"_"))))) - (let ((__tmp111396 (gensym))) + (make-symbol__1 '"_" __tmp111660 '"_"))))) + (let ((__tmp111658 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp111396 '"_"))))) + (make-symbol__1 '"_" __tmp111658 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top108087_ '#f)) + (let ((_top108349_ '#f)) (declare (not safe)) - (gxc#generate-runtime-temporary__% _top108087_)))) + (gxc#generate-runtime-temporary__% _top108349_)))) (define gxc#generate-runtime-temporary - (lambda _g111405_ - (let ((_g111404_ (let () (declare (not safe)) (##length _g111405_)))) - (cond ((let () (declare (not safe)) (##fx= _g111404_ 0)) + (lambda _g111667_ + (let ((_g111666_ (let () (declare (not safe)) (##length _g111667_)))) + (cond ((let () (declare (not safe)) (##fx= _g111666_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - _g111405_)) - ((let () (declare (not safe)) (##fx= _g111404_ 1)) - (apply (lambda (_top108089_) + _g111667_)) + ((let () (declare (not safe)) (##fx= _g111666_ 1)) + (apply (lambda (_top108351_) (let () (declare (not safe)) - (gxc#generate-runtime-temporary__% _top108089_))) - _g111405_)) + (gxc#generate-runtime-temporary__% _top108351_))) + _g111667_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g111405_)))))) - (define gxc#generate-runtime-empty (lambda (_stx108075_) '(begin))) + _g111667_)))))) + (define gxc#generate-runtime-empty (lambda (_stx108337_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_stx107927_) - (letrec ((_simplify107929_ - (lambda (_body107973_) - (let _lp107975_ ((_rest107977_ _body107973_) - (_r107978_ '())) - (let* ((_rest107979107987_ _rest107977_) - (_else107981107995_ - (lambda () (reverse _r107978_))) - (_K107983108063_ - (lambda (_rest107998_ _hd107999_) - (let* ((_hd108000108016_ _hd107999_) - (_else108004108024_ + (lambda (_stx108189_) + (letrec ((_simplify108191_ + (lambda (_body108235_) + (let _lp108237_ ((_rest108239_ _body108235_) + (_r108240_ '())) + (let* ((_rest108241108249_ _rest108239_) + (_else108243108257_ + (lambda () (reverse _r108240_))) + (_K108245108325_ + (lambda (_rest108260_ _hd108261_) + (let* ((_hd108262108278_ _hd108261_) + (_else108266108286_ (lambda () - (let ((__tmp111406 + (let ((__tmp111668 (let () (declare (not safe)) - (cons _hd107999_ - _r107978_)))) + (cons _hd108261_ + _r108240_)))) (declare (not safe)) - (_lp107975_ - _rest107998_ - __tmp111406))))) - (let ((_K108012108053_ - (lambda (_exprs108051_) - (let ((__tmp111407 + (_lp108237_ + _rest108260_ + __tmp111668))))) + (let ((_K108274108315_ + (lambda (_exprs108313_) + (let ((__tmp111669 (let () (declare (not safe)) (foldr1 cons - _rest107998_ - _exprs108051_)))) + _rest108260_ + _exprs108313_)))) (declare (not safe)) - (_lp107975_ - __tmp111407 - _r107978_)))) - (_K108007108037_ + (_lp108237_ + __tmp111669 + _r108240_)))) + (_K108269108299_ (lambda () (if (let () (declare (not safe)) - (null? _rest107998_)) - (let ((__tmp111408 + (null? _rest108260_)) + (let ((__tmp111670 (let () (declare (not safe)) - (cons _hd107999_ - _r107978_)))) + (cons _hd108261_ + _r108240_)))) (declare (not safe)) - (_lp107975_ - _rest107998_ - __tmp111408)) + (_lp108237_ + _rest108260_ + __tmp111670)) (let () (declare (not safe)) - (_lp107975_ - _rest107998_ - _r107978_))))) - (_K108006108029_ + (_lp108237_ + _rest108260_ + _r108240_))))) + (_K108268108291_ (lambda () (if (let () (declare (not safe)) - (null? _rest107998_)) - (let ((__tmp111409 + (null? _rest108260_)) + (let ((__tmp111671 (let () (declare (not safe)) - (cons _hd107999_ - _r107978_)))) + (cons _hd108261_ + _r108240_)))) (declare (not safe)) - (_lp107975_ - _rest107998_ - __tmp111409)) + (_lp108237_ + _rest108260_ + __tmp111671)) (let () (declare (not safe)) - (_lp107975_ - _rest107998_ - _r107978_)))))) - (let ((_try-match108003108032_ + (_lp108237_ + _rest108260_ + _r108240_)))))) + (let ((_try-match108265108294_ (lambda () (if (let () (declare (not safe)) - (symbol? _hd108000108016_)) + (symbol? _hd108262108278_)) (let () (declare (not safe)) - (_K108006108029_)) + (_K108268108291_)) (let () (declare (not safe)) - (_else108004108024_)))))) + (_else108266108286_)))))) (if (let () (declare (not safe)) - (##pair? _hd108000108016_)) - (let ((_tl108014108058_ + (##pair? _hd108262108278_)) + (let ((_tl108276108320_ (let () (declare (not safe)) - (##cdr _hd108000108016_))) - (_hd108013108056_ + (##cdr _hd108262108278_))) + (_hd108275108318_ (let () (declare (not safe)) - (##car _hd108000108016_)))) + (##car _hd108262108278_)))) (if (let () (declare (not safe)) - (##eq? _hd108013108056_ + (##eq? _hd108275108318_ 'begin)) - (let ((_exprs108061_ - _tl108014108058_)) + (let ((_exprs108323_ + _tl108276108320_)) (declare (not safe)) - (_K108012108053_ - _exprs108061_)) + (_K108274108315_ + _exprs108323_)) (if (let () (declare (not safe)) - (##eq? _hd108013108056_ + (##eq? _hd108275108318_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl108014108058_)) - (let ((_tl108011108045_ + (##pair? _tl108276108320_)) + (let ((_tl108273108307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl108014108058_)))) + (##cdr _tl108276108320_)))) (if (let () (declare (not safe)) - (##null? _tl108011108045_)) - (let () (declare (not safe)) (_K108007108037_)) + (##null? _tl108273108307_)) + (let () (declare (not safe)) (_K108269108299_)) (let () (declare (not safe)) - (_try-match108003108032_)))) - (let () (declare (not safe)) (_try-match108003108032_))) - (let () (declare (not safe)) (_try-match108003108032_))))) + (_try-match108265108294_)))) + (let () (declare (not safe)) (_try-match108265108294_))) + (let () (declare (not safe)) (_try-match108265108294_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match108003108032_))))))))) + (_try-match108265108294_))))))))) (if (let () (declare (not safe)) - (##pair? _rest107979107987_)) - (let ((_hd107984108066_ + (##pair? _rest108241108249_)) + (let ((_hd108246108328_ (let () (declare (not safe)) - (##car _rest107979107987_))) - (_tl107985108068_ + (##car _rest108241108249_))) + (_tl108247108330_ (let () (declare (not safe)) - (##cdr _rest107979107987_)))) - (let* ((_hd108071_ _hd107984108066_) - (_rest108073_ _tl107985108068_)) + (##cdr _rest108241108249_)))) + (let* ((_hd108333_ _hd108246108328_) + (_rest108335_ _tl108247108330_)) (declare (not safe)) - (_K107983108063_ _rest108073_ _hd108071_))) + (_K108245108325_ _rest108335_ _hd108333_))) (let () (declare (not safe)) - (_else107981107995_)))))))) - (let* ((_g107931107941_ - (lambda (_g107932107938_) + (_else108243108257_)))))))) + (let* ((_g108193108203_ + (lambda (_g108194108200_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107932107938_)))) - (_g107930107970_ - (lambda (_g107932107944_) + _g108194108200_)))) + (_g108192108232_ + (lambda (_g108194108206_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107932107944_)) - (let ((_e107936107946_ + (gx#stx-pair? _g108194108206_)) + (let ((_e108198108208_ (let () (declare (not safe)) - (gx#stx-e _g107932107944_)))) - (let ((_hd107935107949_ + (gx#stx-e _g108194108206_)))) + (let ((_hd108197108211_ (let () (declare (not safe)) - (##car _e107936107946_))) - (_tl107934107951_ + (##car _e108198108208_))) + (_tl108196108213_ (let () (declare (not safe)) - (##cdr _e107936107946_)))) - ((lambda (_L107954_) - (let* ((_body107965_ - (map gxc#compile-e _L107954_)) - (_body107967_ + (##cdr _e108198108208_)))) + ((lambda (_L108216_) + (let* ((_body108227_ + (map gxc#compile-e _L108216_)) + (_body108229_ (let () (declare (not safe)) - (_simplify107929_ _body107965_)))) - (if (fx= (length _body107967_) '1) - (car _body107967_) + (_simplify108191_ _body108227_)))) + (if (fx= (length _body108229_) '1) + (car _body108229_) (let () (declare (not safe)) - (cons 'begin _body107967_))))) - _tl107934107951_))) + (cons 'begin _body108229_))))) + _tl108196108213_))) (let () (declare (not safe)) - (_g107931107941_ _g107932107944_)))))) + (_g108193108203_ _g108194108206_)))))) (declare (not safe)) - (_g107930107970_ _stx107927_))))) + (_g108192108232_ _stx108189_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_stx107889_) - (let* ((_g107891107901_ - (lambda (_g107892107898_) + (lambda (_stx108151_) + (let* ((_g108153108163_ + (lambda (_g108154108160_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107892107898_)))) - (_g107890107924_ - (lambda (_g107892107904_) + _g108154108160_)))) + (_g108152108186_ + (lambda (_g108154108166_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107892107904_)) - (let ((_e107896107906_ + (gx#stx-pair? _g108154108166_)) + (let ((_e108158108168_ (let () (declare (not safe)) - (gx#stx-e _g107892107904_)))) - (let ((_hd107895107909_ + (gx#stx-e _g108154108166_)))) + (let ((_hd108157108171_ (let () (declare (not safe)) - (##car _e107896107906_))) - (_tl107894107911_ + (##car _e108158108168_))) + (_tl108156108173_ (let () (declare (not safe)) - (##cdr _e107896107906_)))) - ((lambda (_L107914_) - (let ((__tmp111410 + (##cdr _e108158108168_)))) + ((lambda (_L108176_) + (let ((__tmp111672 (let () (declare (not safe)) - (gx#syntax->datum _L107914_)))) + (gx#syntax->datum _L108176_)))) (declare (not safe)) - (cons 'begin __tmp111410))) - _tl107894107911_))) + (cons 'begin __tmp111672))) + _tl108156108173_))) (let () (declare (not safe)) - (_g107891107901_ _g107892107904_)))))) + (_g108153108163_ _g108154108166_)))))) (declare (not safe)) - (_g107890107924_ _stx107889_)))) + (_g108152108186_ _stx108151_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_stx107654_) - (let* ((___stx109993109994_ _stx107654_) - (_g107658107710_ + (lambda (_stx107916_) + (let* ((___stx110255110256_ _stx107916_) + (_g107920107972_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109993109994_))))) - (let ((___kont109995109996_ - (lambda (_L107871_ _L107872_) + ___stx110255110256_))))) + (let ((___kont110257110258_ + (lambda (_L108133_ _L108134_) (let () (declare (not safe)) - (gxc#compile-e__0 _L107871_)))) - (___kont109997109998_ - (lambda (_L107819_ _L107820_ _L107821_) + (gxc#compile-e__0 _L108133_)))) + (___kont110259110260_ + (lambda (_L108081_ _L108082_ _L108083_) (let () (declare (not safe)) - (gxc#compile-e__0 _L107819_)))) - (___kont110001110002_ - (lambda (_L107739_ _L107740_) - (let ((_decls107755_ (map gx#syntax->datum _L107740_))) - (let ((__tmp111413 + (gxc#compile-e__0 _L108081_)))) + (___kont110263110264_ + (lambda (_L108001_ _L108002_) + (let ((_decls108017_ (map gx#syntax->datum _L108002_))) + (let ((__tmp111675 (lambda () - (let ((__tmp111414 - (let ((__tmp111417 + (let ((__tmp111676 + (let ((__tmp111679 (let () (declare (not safe)) - (cons 'declare _decls107755_))) - (__tmp111415 - (let ((__tmp111416 + (cons 'declare _decls108017_))) + (__tmp111677 + (let ((__tmp111678 (let () (declare (not safe)) (gxc#compile-e__0 - _L107739_)))) + _L108001_)))) (declare (not safe)) - (cons __tmp111416 '())))) + (cons __tmp111678 '())))) (declare (not safe)) - (cons __tmp111417 __tmp111415)))) + (cons __tmp111679 __tmp111677)))) (declare (not safe)) - (cons 'begin __tmp111414)))) - (__tmp111411 - (let ((__tmp111412 (gxc#current-compile-decls))) + (cons 'begin __tmp111676)))) + (__tmp111673 + (let ((__tmp111674 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp111412 _decls107755_)))) + (foldr1 cons __tmp111674 _decls108017_)))) (declare (not safe)) (call-with-parameters - __tmp111413 + __tmp111675 gxc#current-compile-decls - __tmp111411)))))) - (let* ((___match110048110049_ - (lambda (_e107676107763_ - _hd107675107766_ - _tl107674107768_ - _e107679107771_ - _hd107678107774_ - _tl107677107776_ - _e107682107779_ - _hd107681107782_ - _tl107680107784_ - ___splice109999110000_ - _target107683107787_ - _tl107685107789_) - (letrec ((_loop107686107792_ - (lambda (_hd107684107795_ - _param107690107797_) + __tmp111673)))))) + (let* ((___match110310110311_ + (lambda (_e107938108025_ + _hd107937108028_ + _tl107936108030_ + _e107941108033_ + _hd107940108036_ + _tl107939108038_ + _e107944108041_ + _hd107943108044_ + _tl107942108046_ + ___splice110261110262_ + _target107945108049_ + _tl107947108051_) + (letrec ((_loop107948108054_ + (lambda (_hd107946108057_ + _param107952108059_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107684107795_)) - (let ((_e107687107800_ + (gx#stx-pair? _hd107946108057_)) + (let ((_e107949108062_ (let () (declare (not safe)) - (gx#stx-e _hd107684107795_)))) - (let ((_lp-tl107689107805_ + (gx#stx-e _hd107946108057_)))) + (let ((_lp-tl107951108067_ (let () (declare (not safe)) - (##cdr _e107687107800_))) - (_lp-hd107688107803_ + (##cdr _e107949108062_))) + (_lp-hd107950108065_ (let () (declare (not safe)) - (##car _e107687107800_)))) - (let ((__tmp111419 + (##car _e107949108062_)))) + (let ((__tmp111681 (let () (declare (not safe)) - (cons _lp-hd107688107803_ - _param107690107797_)))) + (cons _lp-hd107950108065_ + _param107952108059_)))) (declare (not safe)) - (_loop107686107792_ - _lp-tl107689107805_ - __tmp111419)))) - (let ((_param107691107808_ - (reverse _param107690107797_))) + (_loop107948108054_ + _lp-tl107951108067_ + __tmp111681)))) + (let ((_param107953108070_ + (reverse _param107952108059_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107677107776_)) - (let ((_e107694107811_ + _tl107939108038_)) + (let ((_e107956108073_ (let () (declare (not safe)) (gx#stx-e - _tl107677107776_)))) - (let ((_tl107692107816_ + _tl107939108038_)))) + (let ((_tl107954108078_ (let () (declare (not safe)) - (##cdr _e107694107811_))) - (_hd107693107814_ + (##cdr _e107956108073_))) + (_hd107955108076_ (let () (declare (not safe)) - (##car _e107694107811_)))) + (##car _e107956108073_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107692107816_)) - (let ((_L107819_ - _hd107693107814_) - (_L107820_ - _param107691107808_) - (_L107821_ - _hd107681107782_)) + _tl107954108078_)) + (let ((_L108081_ + _hd107955108076_) + (_L108082_ + _param107953108070_) + (_L108083_ + _hd107943108044_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L107821_)) - (let ((__tmp111418 + (gx#identifier? _L108083_)) + (let ((__tmp111680 (memq (let () (declare (not safe)) - (gx#stx-e _L107821_)) + (gx#stx-e _L108083_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp111418))) - (___kont109997109998_ _L107819_ _L107820_ _L107821_) - (___kont110001110002_ _hd107693107814_ _hd107678107774_))) - (let () (declare (not safe)) (_g107658107710_))))) + (not __tmp111680))) + (___kont110259110260_ _L108081_ _L108082_ _L108083_) + (___kont110263110264_ _hd107955108076_ _hd107940108036_))) + (let () (declare (not safe)) (_g107920107972_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g107658107710_)))))))) + (_g107920107972_)))))))) (let () (declare (not safe)) - (_loop107686107792_ _target107683107787_ '()))))) - (___match110022110023_ - (lambda (_e107664107847_ - _hd107663107850_ - _tl107662107852_ - _e107667107855_ - _hd107666107858_ - _tl107665107860_ - _e107670107863_ - _hd107669107866_ - _tl107668107868_) - (let ((_L107871_ _hd107669107866_) - (_L107872_ _hd107666107858_)) + (_loop107948108054_ _target107945108049_ '()))))) + (___match110284110285_ + (lambda (_e107926108109_ + _hd107925108112_ + _tl107924108114_ + _e107929108117_ + _hd107928108120_ + _tl107927108122_ + _e107932108125_ + _hd107931108128_ + _tl107930108130_) + (let ((_L108133_ _hd107931108128_) + (_L108134_ _hd107928108120_)) (if (let () (declare (not safe)) - (gx#identifier? _L107872_)) - (___kont109995109996_ _L107871_ _L107872_) + (gx#identifier? _L108134_)) + (___kont110257110258_ _L108133_ _L108134_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107666107858_)) - (let ((_e107682107779_ + (gx#stx-pair? _hd107928108120_)) + (let ((_e107944108041_ (let () (declare (not safe)) - (gx#stx-e _hd107666107858_)))) - (let ((_tl107680107784_ + (gx#stx-e _hd107928108120_)))) + (let ((_tl107942108046_ (let () (declare (not safe)) - (##cdr _e107682107779_))) - (_hd107681107782_ + (##cdr _e107944108041_))) + (_hd107943108044_ (let () (declare (not safe)) - (##car _e107682107779_)))) + (##car _e107944108041_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl107680107784_)) - (let ((___splice109999110000_ + _tl107942108046_)) + (let ((___splice110261110262_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl107680107784_ + _tl107942108046_ '0)))) - (let ((_tl107685107789_ + (let ((_tl107947108051_ (let () (declare (not safe)) (##vector-ref - ___splice109999110000_ + ___splice110261110262_ '1))) - (_target107683107787_ + (_target107945108049_ (let () (declare (not safe)) (##vector-ref - ___splice109999110000_ + ___splice110261110262_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107685107789_)) - (___match110048110049_ - _e107664107847_ - _hd107663107850_ - _tl107662107852_ - _e107667107855_ - _hd107666107858_ - _tl107665107860_ - _e107682107779_ - _hd107681107782_ - _tl107680107784_ - ___splice109999110000_ - _target107683107787_ - _tl107685107789_) - (___kont110001110002_ - _hd107669107866_ - _hd107666107858_)))) - (___kont110001110002_ - _hd107669107866_ - _hd107666107858_)))) - (___kont110001110002_ - _hd107669107866_ - _hd107666107858_))))))) + _tl107947108051_)) + (___match110310110311_ + _e107926108109_ + _hd107925108112_ + _tl107924108114_ + _e107929108117_ + _hd107928108120_ + _tl107927108122_ + _e107944108041_ + _hd107943108044_ + _tl107942108046_ + ___splice110261110262_ + _target107945108049_ + _tl107947108051_) + (___kont110263110264_ + _hd107931108128_ + _hd107928108120_)))) + (___kont110263110264_ + _hd107931108128_ + _hd107928108120_)))) + (___kont110263110264_ + _hd107931108128_ + _hd107928108120_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109993109994_)) - (let ((_e107664107847_ + (gx#stx-pair? ___stx110255110256_)) + (let ((_e107926108109_ (let () (declare (not safe)) - (gx#stx-e ___stx109993109994_)))) - (let ((_tl107662107852_ + (gx#stx-e ___stx110255110256_)))) + (let ((_tl107924108114_ (let () (declare (not safe)) - (##cdr _e107664107847_))) - (_hd107663107850_ + (##cdr _e107926108109_))) + (_hd107925108112_ (let () (declare (not safe)) - (##car _e107664107847_)))) + (##car _e107926108109_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107662107852_)) - (let ((_e107667107855_ + (gx#stx-pair? _tl107924108114_)) + (let ((_e107929108117_ (let () (declare (not safe)) - (gx#stx-e _tl107662107852_)))) - (let ((_tl107665107860_ + (gx#stx-e _tl107924108114_)))) + (let ((_tl107927108122_ (let () (declare (not safe)) - (##cdr _e107667107855_))) - (_hd107666107858_ + (##cdr _e107929108117_))) + (_hd107928108120_ (let () (declare (not safe)) - (##car _e107667107855_)))) + (##car _e107929108117_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107665107860_)) - (let ((_e107670107863_ + (gx#stx-pair? _tl107927108122_)) + (let ((_e107932108125_ (let () (declare (not safe)) - (gx#stx-e _tl107665107860_)))) - (let ((_tl107668107868_ + (gx#stx-e _tl107927108122_)))) + (let ((_tl107930108130_ (let () (declare (not safe)) - (##cdr _e107670107863_))) - (_hd107669107866_ + (##cdr _e107932108125_))) + (_hd107931108128_ (let () (declare (not safe)) - (##car _e107670107863_)))) + (##car _e107932108125_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107668107868_)) - (___match110022110023_ - _e107664107847_ - _hd107663107850_ - _tl107662107852_ - _e107667107855_ - _hd107666107858_ - _tl107665107860_ - _e107670107863_ - _hd107669107866_ - _tl107668107868_) + (gx#stx-null? _tl107930108130_)) + (___match110284110285_ + _e107926108109_ + _hd107925108112_ + _tl107924108114_ + _e107929108117_ + _hd107928108120_ + _tl107927108122_ + _e107932108125_ + _hd107931108128_ + _tl107930108130_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd107666107858_)) - (let ((_e107682107779_ + _hd107928108120_)) + (let ((_e107944108041_ (let () (declare (not safe)) (gx#stx-e - _hd107666107858_)))) - (let ((_tl107680107784_ + _hd107928108120_)))) + (let ((_tl107942108046_ (let () (declare (not safe)) - (##cdr _e107682107779_))) - (_hd107681107782_ + (##cdr _e107944108041_))) + (_hd107943108044_ (let () (declare (not safe)) - (##car _e107682107779_)))) + (##car _e107944108041_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl107680107784_)) - (let ((___splice109999110000_ + _tl107942108046_)) + (let ((___splice110261110262_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl107680107784_ '0)))) - (let ((_tl107685107789_ + (gx#syntax-split-splice _tl107942108046_ '0)))) + (let ((_tl107947108051_ (let () (declare (not safe)) - (##vector-ref ___splice109999110000_ '1))) - (_target107683107787_ + (##vector-ref ___splice110261110262_ '1))) + (_target107945108049_ (let () (declare (not safe)) - (##vector-ref ___splice109999110000_ '0)))) + (##vector-ref ___splice110261110262_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107685107789_)) - (___match110048110049_ - _e107664107847_ - _hd107663107850_ - _tl107662107852_ - _e107667107855_ - _hd107666107858_ - _tl107665107860_ - _e107682107779_ - _hd107681107782_ - _tl107680107784_ - ___splice109999110000_ - _target107683107787_ - _tl107685107789_) - (let () (declare (not safe)) (_g107658107710_))))) - (let () (declare (not safe)) (_g107658107710_))))) + (gx#stx-null? _tl107947108051_)) + (___match110310110311_ + _e107926108109_ + _hd107925108112_ + _tl107924108114_ + _e107929108117_ + _hd107928108120_ + _tl107927108122_ + _e107944108041_ + _hd107943108044_ + _tl107942108046_ + ___splice110261110262_ + _target107945108049_ + _tl107947108051_) + (let () (declare (not safe)) (_g107920107972_))))) + (let () (declare (not safe)) (_g107920107972_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g107658107710_)))))) + (_g107920107972_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107666107858_)) - (let ((_e107682107779_ + (gx#stx-pair? _hd107928108120_)) + (let ((_e107944108041_ (let () (declare (not safe)) - (gx#stx-e _hd107666107858_)))) - (let ((_tl107680107784_ + (gx#stx-e _hd107928108120_)))) + (let ((_tl107942108046_ (let () (declare (not safe)) - (##cdr _e107682107779_))) - (_hd107681107782_ + (##cdr _e107944108041_))) + (_hd107943108044_ (let () (declare (not safe)) - (##car _e107682107779_)))) + (##car _e107944108041_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl107680107784_)) - (let ((___splice109999110000_ + _tl107942108046_)) + (let ((___splice110261110262_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl107680107784_ + _tl107942108046_ '0)))) - (let ((_tl107685107789_ + (let ((_tl107947108051_ (let () (declare (not safe)) (##vector-ref - ___splice109999110000_ + ___splice110261110262_ '1))) - (_target107683107787_ + (_target107945108049_ (let () (declare (not safe)) (##vector-ref - ___splice109999110000_ + ___splice110261110262_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107685107789_)) - (___match110048110049_ - _e107664107847_ - _hd107663107850_ - _tl107662107852_ - _e107667107855_ - _hd107666107858_ - _tl107665107860_ - _e107682107779_ - _hd107681107782_ - _tl107680107784_ - ___splice109999110000_ - _target107683107787_ - _tl107685107789_) + _tl107947108051_)) + (___match110310110311_ + _e107926108109_ + _hd107925108112_ + _tl107924108114_ + _e107929108117_ + _hd107928108120_ + _tl107927108122_ + _e107944108041_ + _hd107943108044_ + _tl107942108046_ + ___splice110261110262_ + _target107945108049_ + _tl107947108051_) (let () (declare (not safe)) - (_g107658107710_))))) + (_g107920107972_))))) (let () (declare (not safe)) - (_g107658107710_))))) + (_g107920107972_))))) (let () (declare (not safe)) - (_g107658107710_)))))) - (let () (declare (not safe)) (_g107658107710_))))) - (let () (declare (not safe)) (_g107658107710_)))))))) + (_g107920107972_)))))) + (let () (declare (not safe)) (_g107920107972_))))) + (let () (declare (not safe)) (_g107920107972_)))))))) (define gxc#generate-runtime-declare% - (lambda (_stx107614_) - (let* ((_g107616107626_ - (lambda (_g107617107623_) + (lambda (_stx107876_) + (let* ((_g107878107888_ + (lambda (_g107879107885_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107617107623_)))) - (_g107615107651_ - (lambda (_g107617107629_) + _g107879107885_)))) + (_g107877107913_ + (lambda (_g107879107891_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107617107629_)) - (let ((_e107621107631_ + (gx#stx-pair? _g107879107891_)) + (let ((_e107883107893_ (let () (declare (not safe)) - (gx#stx-e _g107617107629_)))) - (let ((_hd107620107634_ + (gx#stx-e _g107879107891_)))) + (let ((_hd107882107896_ (let () (declare (not safe)) - (##car _e107621107631_))) - (_tl107619107636_ + (##car _e107883107893_))) + (_tl107881107898_ (let () (declare (not safe)) - (##cdr _e107621107631_)))) - ((lambda (_L107639_) - (let ((_decls107649_ - (map gx#syntax->datum _L107639_))) + (##cdr _e107883107893_)))) + ((lambda (_L107901_) + (let ((_decls107911_ + (map gx#syntax->datum _L107901_))) (gxc#current-compile-decls - (let ((__tmp111420 + (let ((__tmp111682 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp111420 _decls107649_))) + (foldr1 cons __tmp111682 _decls107911_))) (let () (declare (not safe)) - (cons 'declare _decls107649_)))) - _tl107619107636_))) + (cons 'declare _decls107911_)))) + _tl107881107898_))) (let () (declare (not safe)) - (_g107616107626_ _g107617107629_)))))) + (_g107878107888_ _g107879107891_)))))) (declare (not safe)) - (_g107615107651_ _stx107614_)))) + (_g107877107913_ _stx107876_)))) (define gxc#generate-runtime-define-values% - (lambda (_stx107361_) - (let* ((_g107363107380_ - (lambda (_g107364107377_) + (lambda (_stx107623_) + (let* ((_g107625107642_ + (lambda (_g107626107639_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107364107377_)))) - (_g107362107611_ - (lambda (_g107364107383_) + _g107626107639_)))) + (_g107624107873_ + (lambda (_g107626107645_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107364107383_)) - (let ((_e107369107385_ + (gx#stx-pair? _g107626107645_)) + (let ((_e107631107647_ (let () (declare (not safe)) - (gx#stx-e _g107364107383_)))) - (let ((_hd107368107388_ + (gx#stx-e _g107626107645_)))) + (let ((_hd107630107650_ (let () (declare (not safe)) - (##car _e107369107385_))) - (_tl107367107390_ + (##car _e107631107647_))) + (_tl107629107652_ (let () (declare (not safe)) - (##cdr _e107369107385_)))) + (##cdr _e107631107647_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107367107390_)) - (let ((_e107372107393_ + (gx#stx-pair? _tl107629107652_)) + (let ((_e107634107655_ (let () (declare (not safe)) - (gx#stx-e _tl107367107390_)))) - (let ((_hd107371107396_ + (gx#stx-e _tl107629107652_)))) + (let ((_hd107633107658_ (let () (declare (not safe)) - (##car _e107372107393_))) - (_tl107370107398_ + (##car _e107634107655_))) + (_tl107632107660_ (let () (declare (not safe)) - (##cdr _e107372107393_)))) + (##cdr _e107634107655_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107370107398_)) - (let ((_e107375107401_ + (gx#stx-pair? _tl107632107660_)) + (let ((_e107637107663_ (let () (declare (not safe)) - (gx#stx-e _tl107370107398_)))) - (let ((_hd107374107404_ + (gx#stx-e _tl107632107660_)))) + (let ((_hd107636107666_ (let () (declare (not safe)) - (##car _e107375107401_))) - (_tl107373107406_ + (##car _e107637107663_))) + (_tl107635107668_ (let () (declare (not safe)) - (##cdr _e107375107401_)))) + (##cdr _e107637107663_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107373107406_)) - ((lambda (_L107409_ _L107410_) - (let* ((___stx110101110102_ - _L107410_) - (_g107427107441_ + _tl107635107668_)) + ((lambda (_L107671_ _L107672_) + (let* ((___stx110363110364_ + _L107672_) + (_g107689107703_ (lambda () (let () (declare @@ -4634,10606 +4634,10606 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110101110102_))))) + ___stx110363110364_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___kont110103110104_ + (let ((___kont110365110366_ (lambda () (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L107409_)))) - (___kont110105110106_ - (lambda (_L107573_) - (let ((_eid107582_ + (gxc#compile-e__0 _L107671_)))) + (___kont110367110368_ + (lambda (_L107835_) + (let ((_eid107844_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L107573_)))) - (let ((_lambda-expr107583107585_ + (gxc#generate-runtime-binding-id _L107835_)))) + (let ((_lambda-expr107845107847_ (let () (declare (not safe)) (gxc#apply-find-lambda-expression - _L107409_)))) - (if _lambda-expr107583107585_ - (let* ((_lambda-expr107588_ - _lambda-expr107583107585_) - (__tmp111421 + _L107671_)))) + (if _lambda-expr107845107847_ + (let* ((_lambda-expr107850_ + _lambda-expr107845107847_) + (__tmp111683 (gxc#current-compile-runtime-names))) (declare (not safe)) (hash-put! - __tmp111421 - _lambda-expr107588_ - _eid107582_)) + __tmp111683 + _lambda-expr107850_ + _eid107844_)) '#f)) - (let ((__tmp111422 - (let ((__tmp111423 - (let ((__tmp111424 + (let ((__tmp111684 + (let ((__tmp111685 + (let ((__tmp111686 (let () (declare (not safe)) - (gxc#compile-e__0 _L107409_)))) + (gxc#compile-e__0 _L107671_)))) (declare (not safe)) - (cons __tmp111424 '())))) + (cons __tmp111686 '())))) (declare (not safe)) - (cons _eid107582_ __tmp111423)))) + (cons _eid107844_ __tmp111685)))) (declare (not safe)) - (cons 'define __tmp111422))))) - (___kont110107110108_ + (cons 'define __tmp111684))))) + (___kont110369110370_ (lambda () - (let* ((_tmp107448_ + (let* ((_tmp107710_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_body107557_ - (let _lp107450_ ((_rest107452_ _L107410_) - (_k107453_ '0) - (_r107454_ '())) - (let* ((___stx110071110072_ _rest107452_) - (_g107459107476_ + (_body107819_ + (let _lp107712_ ((_rest107714_ _L107672_) + (_k107715_ '0) + (_r107716_ '())) + (let* ((___stx110333110334_ _rest107714_) + (_g107721107738_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110071110072_))))) - (let ((___kont110073110074_ - (lambda (_L107544_) - (let ((__tmp111425 + ___stx110333110334_))))) + (let ((___kont110335110336_ + (lambda (_L107806_) + (let ((__tmp111687 (let () (declare (not safe)) - (fx+ _k107453_ '1)))) + (fx+ _k107715_ '1)))) (declare (not safe)) - (_lp107450_ - _L107544_ - __tmp111425 - _r107454_)))) - (___kont110075110076_ - (lambda (_L107517_ _L107518_) - (let ((__tmp111432 + (_lp107712_ + _L107806_ + __tmp111687 + _r107716_)))) + (___kont110337110338_ + (lambda (_L107779_ _L107780_) + (let ((__tmp111694 (let () (declare (not safe)) - (fx+ _k107453_ '1))) - (__tmp111426 - (let ((__tmp111427 - (let ((__tmp111428 - (let ((__tmp111431 + (fx+ _k107715_ '1))) + (__tmp111688 + (let ((__tmp111689 + (let ((__tmp111690 + (let ((__tmp111693 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L107518_))) - (__tmp111429 - (let ((__tmp111430 + (gxc#generate-runtime-binding-id _L107780_))) + (__tmp111691 + (let ((__tmp111692 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _tmp107448_ - _k107453_ - _L107517_)))) + _tmp107710_ + _k107715_ + _L107779_)))) (declare (not safe)) - (cons __tmp111430 '())))) + (cons __tmp111692 '())))) (declare (not safe)) - (cons __tmp111431 __tmp111429)))) + (cons __tmp111693 __tmp111691)))) (declare (not safe)) - (cons 'define __tmp111428)))) + (cons 'define __tmp111690)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111427 - _r107454_)))) + (cons __tmp111689 + _r107716_)))) (declare (not safe)) - (_lp107450_ - _L107517_ - __tmp111432 - __tmp111426)))) - (___kont110077110078_ - (lambda (_L107488_) - (let ((__tmp111433 - (let ((__tmp111434 - (let ((__tmp111435 - (let ((__tmp111438 + (_lp107712_ + _L107779_ + __tmp111694 + __tmp111688)))) + (___kont110339110340_ + (lambda (_L107750_) + (let ((__tmp111695 + (let ((__tmp111696 + (let ((__tmp111697 + (let ((__tmp111700 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L107488_))) - (__tmp111436 - (let ((__tmp111437 + (gxc#generate-runtime-binding-id _L107750_))) + (__tmp111698 + (let ((__tmp111699 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _tmp107448_ - _k107453_)))) + _tmp107710_ + _k107715_)))) (declare (not safe)) - (cons __tmp111437 '())))) + (cons __tmp111699 '())))) (declare (not safe)) - (cons __tmp111438 __tmp111436)))) + (cons __tmp111700 __tmp111698)))) (declare (not safe)) - (cons 'define __tmp111435)))) + (cons 'define __tmp111697)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111434 '())))) + (cons __tmp111696 '())))) (declare (not safe)) (foldl1 cons - __tmp111433 - _r107454_)))) - (___kont110079110080_ - (lambda () (reverse _r107454_)))) - (let ((_g107457107504_ + __tmp111695 + _r107716_)))) + (___kont110341110342_ + (lambda () (reverse _r107716_)))) + (let ((_g107719107766_ (lambda () - (let ((_L107488_ - ___stx110071110072_)) + (let ((_L107750_ + ___stx110333110334_)) (if (let () (declare (not safe)) (gx#identifier? - _L107488_)) - (___kont110077110078_ - _L107488_) - (___kont110079110080_)))))) + _L107750_)) + (___kont110339110340_ + _L107750_) + (___kont110341110342_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110071110072_)) - (let ((_e107464107533_ + (gx#stx-pair? ___stx110333110334_)) + (let ((_e107726107795_ (let () (declare (not safe)) (gx#stx-e - ___stx110071110072_)))) - (let ((_tl107462107538_ + ___stx110333110334_)))) + (let ((_tl107724107800_ (let () (declare (not safe)) - (##cdr _e107464107533_))) - (_hd107463107536_ + (##cdr _e107726107795_))) + (_hd107725107798_ (let () (declare (not safe)) - (##car _e107464107533_)))) + (##car _e107726107795_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd107463107536_)) - (let ((_e107465107541_ + _hd107725107798_)) + (let ((_e107727107803_ (let () (declare (not safe)) (gx#stx-e - _hd107463107536_)))) + _hd107725107798_)))) (if (let () (declare (not safe)) - (equal? _e107465107541_ + (equal? _e107727107803_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (___kont110073110074_ _tl107462107538_) - (___kont110075110076_ _tl107462107538_ _hd107463107536_))) + (___kont110335110336_ _tl107724107800_) + (___kont110337110338_ _tl107724107800_ _hd107725107798_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110075110076_ - _tl107462107538_ - _hd107463107536_)))) + (___kont110337110338_ + _tl107724107800_ + _hd107725107798_)))) (let () (declare (not safe)) - (_g107457107504_))))))))) - (let ((__tmp111439 - (let ((__tmp111442 - (let ((__tmp111443 - (let ((__tmp111444 - (let ((__tmp111445 + (_g107719107766_))))))))) + (let ((__tmp111701 + (let ((__tmp111704 + (let ((__tmp111705 + (let ((__tmp111706 + (let ((__tmp111707 (let () (declare (not safe)) (gxc#compile-e__0 - _L107409_)))) + _L107671_)))) (declare (not safe)) - (cons __tmp111445 '())))) + (cons __tmp111707 '())))) (declare (not safe)) - (cons _tmp107448_ - __tmp111444)))) + (cons _tmp107710_ + __tmp111706)))) (declare (not safe)) - (cons 'define __tmp111443))) - (__tmp111440 - (let ((__tmp111441 + (cons 'define __tmp111705))) + (__tmp111702 + (let ((__tmp111703 (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp107448_ - _L107410_ - _L107409_)))) + _tmp107710_ + _L107672_ + _L107671_)))) (declare (not safe)) - (cons __tmp111441 _body107557_)))) + (cons __tmp111703 _body107819_)))) (declare (not safe)) - (cons __tmp111442 __tmp111440)))) + (cons __tmp111704 __tmp111702)))) (declare (not safe)) - (cons 'begin __tmp111439)))))) + (cons 'begin __tmp111701)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110101110102_)) - (let ((_e107431107595_ + (gx#stx-pair? ___stx110363110364_)) + (let ((_e107693107857_ (let () (declare (not safe)) - (gx#stx-e ___stx110101110102_)))) - (let ((_tl107429107600_ + (gx#stx-e ___stx110363110364_)))) + (let ((_tl107691107862_ (let () (declare (not safe)) - (##cdr _e107431107595_))) - (_hd107430107598_ + (##cdr _e107693107857_))) + (_hd107692107860_ (let () (declare (not safe)) - (##car _e107431107595_)))) + (##car _e107693107857_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd107430107598_)) - (let ((_e107432107603_ + (gx#stx-datum? _hd107692107860_)) + (let ((_e107694107865_ (let () (declare (not safe)) - (gx#stx-e _hd107430107598_)))) + (gx#stx-e _hd107692107860_)))) (if (let () (declare (not safe)) - (equal? _e107432107603_ '#f)) + (equal? _e107694107865_ '#f)) (if (let () (declare (not safe)) - (gx#stx-null? _tl107429107600_)) - (___kont110103110104_) - (___kont110107110108_)) + (gx#stx-null? _tl107691107862_)) + (___kont110365110366_) + (___kont110369110370_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl107429107600_)) - (___kont110105110106_ _hd107430107598_) - (___kont110107110108_)))) + (gx#stx-null? _tl107691107862_)) + (___kont110367110368_ _hd107692107860_) + (___kont110369110370_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107429107600_)) - (___kont110105110106_ _hd107430107598_) - (___kont110107110108_))))) - (___kont110107110108_))))) + (gx#stx-null? _tl107691107862_)) + (___kont110367110368_ _hd107692107860_) + (___kont110369110370_))))) + (___kont110369110370_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd107374107404_ - _hd107371107396_) + _hd107636107666_ + _hd107633107658_) (let () (declare (not safe)) - (_g107363107380_ - _g107364107383_))))) + (_g107625107642_ + _g107626107645_))))) (let () (declare (not safe)) - (_g107363107380_ _g107364107383_))))) + (_g107625107642_ _g107626107645_))))) (let () (declare (not safe)) - (_g107363107380_ _g107364107383_))))) + (_g107625107642_ _g107626107645_))))) (let () (declare (not safe)) - (_g107363107380_ _g107364107383_)))))) + (_g107625107642_ _g107626107645_)))))) (declare (not safe)) - (_g107362107611_ _stx107361_)))) + (_g107624107873_ _stx107623_)))) (define gxc#generate-runtime-check-values - (lambda (_vals107337_ _hd107338_ _expr107339_) - (let ((_$e107341_ + (lambda (_vals107599_ _hd107600_ _expr107601_) + (let ((_$e107603_ (let () (declare (not safe)) - (gxc#apply-count-values _expr107339_)))) - (if _$e107341_ - ((lambda (_count107344_) - (let ((_len107346_ + (gxc#apply-count-values _expr107601_)))) + (if _$e107603_ + ((lambda (_count107606_) + (let ((_len107608_ (let () (declare (not safe)) - (gx#stx-length _hd107338_))) - (_cmp107347_ + (gx#stx-length _hd107600_))) + (_cmp107609_ (if (let () (declare (not safe)) - (gx#stx-list? _hd107338_)) + (gx#stx-list? _hd107600_)) fx= fx>=))) - (if (or (fx= _len107346_ '0) - (_cmp107347_ _count107344_ _len107346_)) + (if (or (fx= _len107608_ '0) + (_cmp107609_ _count107606_ _len107608_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _expr107339_ - _hd107338_))))) - _$e107341_) - (let* ((_len107352_ + _expr107601_ + _hd107600_))))) + _$e107603_) + (let* ((_len107614_ (let () (declare (not safe)) - (gx#stx-length _hd107338_))) - (_cmp107354_ + (gx#stx-length _hd107600_))) + (_cmp107616_ (if (let () (declare (not safe)) - (gx#stx-list? _hd107338_)) + (gx#stx-list? _hd107600_)) '##fx= '##fx>=)) - (_errmsg107356_ + (_errmsg107618_ (string-append (if (let () (declare (not safe)) - (gx#stx-list? _hd107338_)) + (gx#stx-list? _hd107600_)) '"Context expects " '"Context expects at least ") - (number->string _len107352_) + (number->string _len107614_) '" values")) - (_count107358_ + (_count107620_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp111469 + (if (and (let ((__tmp111731 (let () (declare (not safe)) - (gx#stx-list? _hd107338_)))) + (gx#stx-list? _hd107600_)))) (declare (not safe)) - (not __tmp111469)) - (fx= _len107352_ '0)) + (not __tmp111731)) + (fx= _len107614_ '0)) '#!void - (let ((__tmp111446 - (let ((__tmp111465 - (let ((__tmp111466 - (let ((__tmp111467 - (let ((__tmp111468 + (let ((__tmp111708 + (let ((__tmp111727 + (let ((__tmp111728 + (let ((__tmp111729 + (let ((__tmp111730 (let () (declare (not safe)) (gxc#generate-runtime-values-count - _vals107337_)))) + _vals107599_)))) (declare (not safe)) - (cons __tmp111468 '())))) + (cons __tmp111730 '())))) (declare (not safe)) - (cons _count107358_ - __tmp111467)))) + (cons _count107620_ + __tmp111729)))) (declare (not safe)) - (cons __tmp111466 '()))) - (__tmp111447 - (let ((__tmp111448 - (let ((__tmp111449 - (let ((__tmp111454 - (let ((__tmp111455 - (let ((__tmp111456 + (cons __tmp111728 '()))) + (__tmp111709 + (let ((__tmp111710 + (let ((__tmp111711 + (let ((__tmp111716 + (let ((__tmp111717 + (let ((__tmp111718 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111463 - (let ((__tmp111464 + (let ((__tmp111725 + (let ((__tmp111726 (let () (declare (not safe)) - (cons _len107352_ '())))) + (cons _len107614_ '())))) (declare (not safe)) - (cons _count107358_ __tmp111464)))) + (cons _count107620_ __tmp111726)))) (declare (not safe)) - (cons _cmp107354_ __tmp111463)) - (let ((__tmp111457 - (let ((__tmp111458 - (let ((__tmp111459 - (let ((__tmp111460 - (let ((__tmp111461 + (cons _cmp107616_ __tmp111725)) + (let ((__tmp111719 + (let ((__tmp111720 + (let ((__tmp111721 + (let ((__tmp111722 + (let ((__tmp111723 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111462 + (let ((__tmp111724 (let () (declare (not safe)) - (cons _len107352_ '())))) + (cons _len107614_ '())))) (declare (not safe)) - (cons _count107358_ __tmp111462)))) + (cons _count107620_ __tmp111724)))) (declare (not safe)) - (cons _cmp107354_ __tmp111461)))) + (cons _cmp107616_ __tmp111723)))) (declare (not safe)) - (cons __tmp111460 '())))) + (cons __tmp111722 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp111459)))) + __tmp111721)))) (declare (not safe)) - (cons '() __tmp111458)))) + (cons '() __tmp111720)))) (declare (not safe)) - (cons 'let __tmp111457))))) + (cons 'let __tmp111719))))) (declare (not safe)) - (cons __tmp111456 '())))) + (cons __tmp111718 '())))) (declare (not safe)) - (cons 'not __tmp111455))) - (__tmp111450 - (let ((__tmp111451 - (let ((__tmp111452 - (let ((__tmp111453 + (cons 'not __tmp111717))) + (__tmp111712 + (let ((__tmp111713 + (let ((__tmp111714 + (let ((__tmp111715 (let () (declare (not safe)) - (cons _count107358_ '())))) + (cons _count107620_ '())))) (declare (not safe)) - (cons _errmsg107356_ __tmp111453)))) + (cons _errmsg107618_ __tmp111715)))) (declare (not safe)) - (cons 'error __tmp111452)))) + (cons 'error __tmp111714)))) (declare (not safe)) - (cons __tmp111451 '())))) + (cons __tmp111713 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111454 - __tmp111450)))) + (cons __tmp111716 + __tmp111712)))) (declare (not safe)) - (cons 'if __tmp111449)))) + (cons 'if __tmp111711)))) (declare (not safe)) - (cons __tmp111448 '())))) + (cons __tmp111710 '())))) (declare (not safe)) - (cons __tmp111465 __tmp111447)))) + (cons __tmp111727 __tmp111709)))) (declare (not safe)) - (cons 'let __tmp111446)))))))) + (cons 'let __tmp111708)))))))) (define gxc#generate-runtime-values-count - (lambda (_var107332_) - (letrec ((_generate-inline107334_ + (lambda (_var107594_) + (letrec ((_generate-inline107596_ (lambda () - (let ((__tmp111470 - (let ((__tmp111475 - (let ((__tmp111476 + (let ((__tmp111732 + (let ((__tmp111737 + (let ((__tmp111738 (let () (declare (not safe)) - (cons _var107332_ '())))) + (cons _var107594_ '())))) (declare (not safe)) - (cons '##values? __tmp111476))) - (__tmp111471 - (let ((__tmp111473 - (let ((__tmp111474 + (cons '##values? __tmp111738))) + (__tmp111733 + (let ((__tmp111735 + (let ((__tmp111736 (let () (declare (not safe)) - (cons _var107332_ '())))) + (cons _var107594_ '())))) (declare (not safe)) (cons '##vector-length - __tmp111474))) - (__tmp111472 + __tmp111736))) + (__tmp111734 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp111473 __tmp111472)))) + (cons __tmp111735 __tmp111734)))) (declare (not safe)) - (cons __tmp111475 __tmp111471)))) + (cons __tmp111737 __tmp111733)))) (declare (not safe)) - (cons 'if __tmp111470))))) + (cons 'if __tmp111732))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline107334_)) - (let ((__tmp111477 - (let ((__tmp111478 - (let ((__tmp111479 - (let ((__tmp111480 + (let () (declare (not safe)) (_generate-inline107596_)) + (let ((__tmp111739 + (let ((__tmp111740 + (let ((__tmp111741 + (let ((__tmp111742 (let () (declare (not safe)) - (_generate-inline107334_)))) + (_generate-inline107596_)))) (declare (not safe)) - (cons __tmp111480 '())))) + (cons __tmp111742 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111479)))) + (cons '(declare (not safe)) __tmp111741)))) (declare (not safe)) - (cons '() __tmp111478)))) + (cons '() __tmp111740)))) (declare (not safe)) - (cons 'let __tmp111477)))))) + (cons 'let __tmp111739)))))) (define gxc#generate-runtime-values-ref - (lambda (_var107325_ _i107326_ _rest107327_) - (letrec ((_generate-inline107329_ + (lambda (_var107587_ _i107588_ _rest107589_) + (letrec ((_generate-inline107591_ (lambda () - (if (and (fx= _i107326_ '0) - (let ((__tmp111491 + (if (and (fx= _i107588_ '0) + (let ((__tmp111753 (let () (declare (not safe)) - (gx#stx-pair? _rest107327_)))) + (gx#stx-pair? _rest107589_)))) (declare (not safe)) - (not __tmp111491))) - (let ((__tmp111483 - (let ((__tmp111489 - (let ((__tmp111490 + (not __tmp111753))) + (let ((__tmp111745 + (let ((__tmp111751 + (let ((__tmp111752 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107587_ '())))) (declare (not safe)) - (cons '##values? __tmp111490))) - (__tmp111484 - (let ((__tmp111486 - (let ((__tmp111487 - (let ((__tmp111488 + (cons '##values? __tmp111752))) + (__tmp111746 + (let ((__tmp111748 + (let ((__tmp111749 + (let ((__tmp111750 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _var107325_ __tmp111488)))) + (cons _var107587_ __tmp111750)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp111487))) - (__tmp111485 + __tmp111749))) + (__tmp111747 (let () (declare (not safe)) - (cons _var107325_ '())))) + (cons _var107587_ '())))) (declare (not safe)) - (cons __tmp111486 __tmp111485)))) + (cons __tmp111748 __tmp111747)))) (declare (not safe)) - (cons __tmp111489 __tmp111484)))) + (cons __tmp111751 __tmp111746)))) (declare (not safe)) - (cons 'if __tmp111483)) - (let ((__tmp111481 - (let ((__tmp111482 + (cons 'if __tmp111745)) + (let ((__tmp111743 + (let ((__tmp111744 (let () (declare (not safe)) - (cons _i107326_ '())))) + (cons _i107588_ '())))) (declare (not safe)) - (cons _var107325_ __tmp111482)))) + (cons _var107587_ __tmp111744)))) (declare (not safe)) - (cons '##vector-ref __tmp111481)))))) + (cons '##vector-ref __tmp111743)))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline107329_)) - (let ((__tmp111492 - (let ((__tmp111493 - (let ((__tmp111494 - (let ((__tmp111495 + (let () (declare (not safe)) (_generate-inline107591_)) + (let ((__tmp111754 + (let ((__tmp111755 + (let ((__tmp111756 + (let ((__tmp111757 (let () (declare (not safe)) - (_generate-inline107329_)))) + (_generate-inline107591_)))) (declare (not safe)) - (cons __tmp111495 '())))) + (cons __tmp111757 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111494)))) + (cons '(declare (not safe)) __tmp111756)))) (declare (not safe)) - (cons '() __tmp111493)))) + (cons '() __tmp111755)))) (declare (not safe)) - (cons 'let __tmp111492)))))) + (cons 'let __tmp111754)))))) (define gxc#generate-runtime-values->list - (lambda (_var107322_ _i107323_) - (if (fx= _i107323_ '0) + (lambda (_var107584_ _i107585_) + (if (fx= _i107585_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111543 - (let ((__tmp111550 - (let ((__tmp111551 + (let ((__tmp111805 + (let ((__tmp111812 + (let ((__tmp111813 (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##values? __tmp111551))) - (__tmp111544 - (let ((__tmp111548 - (let ((__tmp111549 + (cons '##values? __tmp111813))) + (__tmp111806 + (let ((__tmp111810 + (let ((__tmp111811 (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111549))) - (__tmp111545 - (let ((__tmp111546 - (let ((__tmp111547 + (cons '##vector->list __tmp111811))) + (__tmp111807 + (let ((__tmp111808 + (let ((__tmp111809 (let () (declare (not safe)) - (cons _var107322_ + (cons _var107584_ '())))) (declare (not safe)) - (cons 'list __tmp111547)))) + (cons 'list __tmp111809)))) (declare (not safe)) - (cons __tmp111546 '())))) + (cons __tmp111808 '())))) (declare (not safe)) - (cons __tmp111548 __tmp111545)))) + (cons __tmp111810 __tmp111807)))) (declare (not safe)) - (cons __tmp111550 __tmp111544)))) + (cons __tmp111812 __tmp111806)))) (declare (not safe)) - (cons 'if __tmp111543)) - (let ((__tmp111530 - (let ((__tmp111531 - (let ((__tmp111532 - (let ((__tmp111533 - (let ((__tmp111534 - (let ((__tmp111541 - (let ((__tmp111542 + (cons 'if __tmp111805)) + (let ((__tmp111792 + (let ((__tmp111793 + (let ((__tmp111794 + (let ((__tmp111795 + (let ((__tmp111796 + (let ((__tmp111803 + (let ((__tmp111804 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##values? __tmp111542))) - (__tmp111535 - (let ((__tmp111539 - (let ((__tmp111540 + (cons '##values? __tmp111804))) + (__tmp111797 + (let ((__tmp111801 + (let ((__tmp111802 (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111540))) - (__tmp111536 - (let ((__tmp111537 - (let ((__tmp111538 + (cons '##vector->list __tmp111802))) + (__tmp111798 + (let ((__tmp111799 + (let ((__tmp111800 (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons 'list __tmp111538)))) + (cons 'list __tmp111800)))) (declare (not safe)) - (cons __tmp111537 '())))) + (cons __tmp111799 '())))) (declare (not safe)) - (cons __tmp111539 __tmp111536)))) + (cons __tmp111801 __tmp111798)))) (declare (not safe)) - (cons __tmp111541 __tmp111535)))) + (cons __tmp111803 __tmp111797)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp111534)))) + (cons 'if __tmp111796)))) (declare (not safe)) - (cons __tmp111533 '())))) + (cons __tmp111795 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111532)))) + (cons '(declare (not safe)) __tmp111794)))) (declare (not safe)) - (cons '() __tmp111531)))) + (cons '() __tmp111793)))) (declare (not safe)) - (cons 'let __tmp111530))) - (if (fx= _i107323_ '1) + (cons 'let __tmp111792))) + (if (fx= _i107585_ '1) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111521 - (let ((__tmp111528 - (let ((__tmp111529 + (let ((__tmp111783 + (let ((__tmp111790 + (let ((__tmp111791 (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##values? __tmp111529))) - (__tmp111522 - (let ((__tmp111524 - (let ((__tmp111525 - (let ((__tmp111526 - (let ((__tmp111527 + (cons '##values? __tmp111791))) + (__tmp111784 + (let ((__tmp111786 + (let ((__tmp111787 + (let ((__tmp111788 + (let ((__tmp111789 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111527)))) + (cons '##vector->list __tmp111789)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111526 '())))) + (cons __tmp111788 '())))) (declare (not safe)) - (cons '##cdr __tmp111525))) - (__tmp111523 + (cons '##cdr __tmp111787))) + (__tmp111785 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp111524 __tmp111523)))) + (cons __tmp111786 __tmp111785)))) (declare (not safe)) - (cons __tmp111528 __tmp111522)))) + (cons __tmp111790 __tmp111784)))) (declare (not safe)) - (cons 'if __tmp111521)) - (let ((__tmp111508 - (let ((__tmp111509 - (let ((__tmp111510 - (let ((__tmp111511 - (let ((__tmp111512 - (let ((__tmp111519 - (let ((__tmp111520 + (cons 'if __tmp111783)) + (let ((__tmp111770 + (let ((__tmp111771 + (let ((__tmp111772 + (let ((__tmp111773 + (let ((__tmp111774 + (let ((__tmp111781 + (let ((__tmp111782 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##values? __tmp111520))) - (__tmp111513 - (let ((__tmp111515 - (let ((__tmp111516 - (let ((__tmp111517 - (let ((__tmp111518 + (cons '##values? __tmp111782))) + (__tmp111775 + (let ((__tmp111777 + (let ((__tmp111778 + (let ((__tmp111779 + (let ((__tmp111780 (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) (cons '##vector->list - __tmp111518)))) + __tmp111780)))) (declare (not safe)) - (cons __tmp111517 '())))) + (cons __tmp111779 '())))) (declare (not safe)) - (cons '##cdr __tmp111516))) - (__tmp111514 + (cons '##cdr __tmp111778))) + (__tmp111776 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp111515 __tmp111514)))) + (cons __tmp111777 __tmp111776)))) (declare (not safe)) - (cons __tmp111519 __tmp111513)))) + (cons __tmp111781 __tmp111775)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp111512)))) + (cons 'if __tmp111774)))) (declare (not safe)) - (cons __tmp111511 '())))) + (cons __tmp111773 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp111510)))) + __tmp111772)))) (declare (not safe)) - (cons '() __tmp111509)))) + (cons '() __tmp111771)))) (declare (not safe)) - (cons 'let __tmp111508))) + (cons 'let __tmp111770))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111504 - (let ((__tmp111506 - (let ((__tmp111507 + (let ((__tmp111766 + (let ((__tmp111768 + (let ((__tmp111769 (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111507))) - (__tmp111505 + (cons '##vector->list __tmp111769))) + (__tmp111767 (let () (declare (not safe)) - (cons _i107323_ '())))) + (cons _i107585_ '())))) (declare (not safe)) - (cons __tmp111506 __tmp111505)))) + (cons __tmp111768 __tmp111767)))) (declare (not safe)) - (cons '##list-tail __tmp111504)) - (let ((__tmp111496 - (let ((__tmp111497 - (let ((__tmp111498 - (let ((__tmp111499 - (let ((__tmp111500 - (let ((__tmp111502 - (let ((__tmp111503 + (cons '##list-tail __tmp111766)) + (let ((__tmp111758 + (let ((__tmp111759 + (let ((__tmp111760 + (let ((__tmp111761 + (let ((__tmp111762 + (let ((__tmp111764 + (let ((__tmp111765 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var107322_ '())))) + (cons _var107584_ '())))) (declare (not safe)) - (cons '##vector->list __tmp111503))) - (__tmp111501 - (let () (declare (not safe)) (cons _i107323_ '())))) + (cons '##vector->list __tmp111765))) + (__tmp111763 + (let () (declare (not safe)) (cons _i107585_ '())))) (declare (not safe)) - (cons __tmp111502 __tmp111501)))) + (cons __tmp111764 __tmp111763)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##list-tail - __tmp111500)))) + __tmp111762)))) (declare (not safe)) - (cons __tmp111499 '())))) + (cons __tmp111761 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp111498)))) + __tmp111760)))) (declare (not safe)) - (cons '() __tmp111497)))) + (cons '() __tmp111759)))) (declare (not safe)) - (cons 'let __tmp111496))))))) + (cons 'let __tmp111758))))))) (define gxc#generate-runtime-lambda% - (lambda (_stx107255_) - (let* ((_g107257107274_ - (lambda (_g107258107271_) + (lambda (_stx107517_) + (let* ((_g107519107536_ + (lambda (_g107520107533_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107258107271_)))) - (_g107256107319_ - (lambda (_g107258107277_) + _g107520107533_)))) + (_g107518107581_ + (lambda (_g107520107539_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107258107277_)) - (let ((_e107263107279_ + (gx#stx-pair? _g107520107539_)) + (let ((_e107525107541_ (let () (declare (not safe)) - (gx#stx-e _g107258107277_)))) - (let ((_hd107262107282_ + (gx#stx-e _g107520107539_)))) + (let ((_hd107524107544_ (let () (declare (not safe)) - (##car _e107263107279_))) - (_tl107261107284_ + (##car _e107525107541_))) + (_tl107523107546_ (let () (declare (not safe)) - (##cdr _e107263107279_)))) + (##cdr _e107525107541_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107261107284_)) - (let ((_e107266107287_ + (gx#stx-pair? _tl107523107546_)) + (let ((_e107528107549_ (let () (declare (not safe)) - (gx#stx-e _tl107261107284_)))) - (let ((_hd107265107290_ + (gx#stx-e _tl107523107546_)))) + (let ((_hd107527107552_ (let () (declare (not safe)) - (##car _e107266107287_))) - (_tl107264107292_ + (##car _e107528107549_))) + (_tl107526107554_ (let () (declare (not safe)) - (##cdr _e107266107287_)))) + (##cdr _e107528107549_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107264107292_)) - (let ((_e107269107295_ + (gx#stx-pair? _tl107526107554_)) + (let ((_e107531107557_ (let () (declare (not safe)) - (gx#stx-e _tl107264107292_)))) - (let ((_hd107268107298_ + (gx#stx-e _tl107526107554_)))) + (let ((_hd107530107560_ (let () (declare (not safe)) - (##car _e107269107295_))) - (_tl107267107300_ + (##car _e107531107557_))) + (_tl107529107562_ (let () (declare (not safe)) - (##cdr _e107269107295_)))) + (##cdr _e107531107557_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107267107300_)) - ((lambda (_L107303_ _L107304_) + _tl107529107562_)) + ((lambda (_L107565_ _L107566_) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _L107304_ - _L107303_))) - _hd107268107298_ - _hd107265107290_) + _L107566_ + _L107565_))) + _hd107530107560_ + _hd107527107552_) (let () (declare (not safe)) - (_g107257107274_ - _g107258107277_))))) + (_g107519107536_ + _g107520107539_))))) (let () (declare (not safe)) - (_g107257107274_ _g107258107277_))))) + (_g107519107536_ _g107520107539_))))) (let () (declare (not safe)) - (_g107257107274_ _g107258107277_))))) + (_g107519107536_ _g107520107539_))))) (let () (declare (not safe)) - (_g107257107274_ _g107258107277_)))))) + (_g107519107536_ _g107520107539_)))))) (declare (not safe)) - (_g107256107319_ _stx107255_)))) + (_g107518107581_ _stx107517_)))) (define gxc#generate-runtime-lambda-form - (lambda (_hd107215_ _body107216_) - (let* ((_hd107218_ + (lambda (_hd107477_ _body107478_) + (let* ((_hd107480_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _hd107215_))) - (_body107220_ + (gxc#generate-runtime-lambda-head _hd107477_))) + (_body107482_ (let () (declare (not safe)) - (gxc#compile-e__0 _body107216_))) - (_body107252_ - (let* ((_body107221107229_ _body107220_) - (_else107223107237_ + (gxc#compile-e__0 _body107478_))) + (_body107514_ + (let* ((_body107483107491_ _body107482_) + (_else107485107499_ (lambda () (let () (declare (not safe)) - (cons _body107220_ '())))) - (_K107225107242_ - (lambda (_exprs107240_) _exprs107240_))) + (cons _body107482_ '())))) + (_K107487107504_ + (lambda (_exprs107502_) _exprs107502_))) (if (let () (declare (not safe)) - (##pair? _body107221107229_)) - (let ((_hd107226107245_ + (##pair? _body107483107491_)) + (let ((_hd107488107507_ (let () (declare (not safe)) - (##car _body107221107229_))) - (_tl107227107247_ + (##car _body107483107491_))) + (_tl107489107509_ (let () (declare (not safe)) - (##cdr _body107221107229_)))) + (##cdr _body107483107491_)))) (if (let () (declare (not safe)) - (##eq? _hd107226107245_ 'begin)) - (let ((_exprs107250_ _tl107227107247_)) + (##eq? _hd107488107507_ 'begin)) + (let ((_exprs107512_ _tl107489107509_)) (declare (not safe)) - (_K107225107242_ _exprs107250_)) + (_K107487107504_ _exprs107512_)) (let () (declare (not safe)) - (_else107223107237_)))) - (let () (declare (not safe)) (_else107223107237_)))))) - (let ((__tmp111552 + (_else107485107499_)))) + (let () (declare (not safe)) (_else107485107499_)))))) + (let ((__tmp111814 (let () (declare (not safe)) - (cons _hd107218_ _body107252_)))) + (cons _hd107480_ _body107514_)))) (declare (not safe)) - (cons 'lambda __tmp111552))))) + (cons 'lambda __tmp111814))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd107213_) + (lambda (_hd107475_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd107213_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd107475_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_stx105756_) - (letrec ((_dispatch-case?105758_ - (lambda (_hd106443_ _body106444_) - (let* ((_form106446_ - (let ((__tmp111553 + (lambda (_stx106018_) + (letrec ((_dispatch-case?106020_ + (lambda (_hd106705_ _body106706_) + (let* ((_form106708_ + (let ((__tmp111815 (let () (declare (not safe)) - (cons _body106444_ '())))) + (cons _body106706_ '())))) (declare (not safe)) - (cons _hd106443_ __tmp111553))) - (___stx110133110134_ _form106446_) - (_g106451106608_ + (cons _hd106705_ __tmp111815))) + (___stx110395110396_ _form106708_) + (_g106713106870_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110133110134_))))) - (let ((___kont110135110136_ - (lambda (_L107133_ _L107134_ _L107135_) '#t)) - (___kont110141110142_ - (lambda (_L106921_ - _L106922_ - _L106923_ - _L106924_ - _L106925_ - _L106926_) + ___stx110395110396_))))) + (let ((___kont110397110398_ + (lambda (_L107395_ _L107396_ _L107397_) '#t)) + (___kont110403110404_ + (lambda (_L107183_ + _L107184_ + _L107185_ + _L107186_ + _L107187_ + _L107188_) '#t)) - (___kont110147110148_ - (lambda (_L106716_ - _L106717_ - _L106718_ - _L106719_) + (___kont110409110410_ + (lambda (_L106978_ + _L106979_ + _L106980_ + _L106981_) '#t)) - (___kont110149110150_ (lambda () '#f))) - (let* ((___match110274110275_ - (lambda (_e106570106620_ - _hd106569106623_ - _tl106568106625_ - _e106573106628_ - _hd106572106631_ - _tl106571106633_ - _e106576106636_ - _hd106575106639_ - _tl106574106641_ - _e106579106644_ - _hd106578106647_ - _tl106577106649_ - _e106582106652_ - _hd106581106655_ - _tl106580106657_ - _e106585106660_ - _hd106584106663_ - _tl106583106665_ - _e106588106668_ - _hd106587106671_ - _tl106586106673_ - _e106591106676_ - _hd106590106679_ - _tl106589106681_ - _e106594106684_ - _hd106593106687_ - _tl106592106689_ - _e106597106692_ - _hd106596106695_ - _tl106595106697_ - _e106600106700_ - _hd106599106703_ - _tl106598106705_ - _e106603106708_ - _hd106602106711_ - _tl106601106713_) - (let ((_L106716_ _hd106602106711_) - (_L106717_ _hd106593106687_) - (_L106718_ _hd106584106663_) - (_L106719_ _hd106569106623_)) + (___kont110411110412_ (lambda () '#f))) + (let* ((___match110536110537_ + (lambda (_e106832106882_ + _hd106831106885_ + _tl106830106887_ + _e106835106890_ + _hd106834106893_ + _tl106833106895_ + _e106838106898_ + _hd106837106901_ + _tl106836106903_ + _e106841106906_ + _hd106840106909_ + _tl106839106911_ + _e106844106914_ + _hd106843106917_ + _tl106842106919_ + _e106847106922_ + _hd106846106925_ + _tl106845106927_ + _e106850106930_ + _hd106849106933_ + _tl106848106935_ + _e106853106938_ + _hd106852106941_ + _tl106851106943_ + _e106856106946_ + _hd106855106949_ + _tl106854106951_ + _e106859106954_ + _hd106858106957_ + _tl106857106959_ + _e106862106962_ + _hd106861106965_ + _tl106860106967_ + _e106865106970_ + _hd106864106973_ + _tl106863106975_) + (let ((_L106978_ _hd106864106973_) + (_L106979_ _hd106855106949_) + (_L106980_ _hd106846106925_) + (_L106981_ _hd106831106885_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L106719_)) + (gx#identifier? _L106981_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L106718_ + _L106980_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L106719_ - _L106716_)) - (let ((__tmp111554 + _L106981_ + _L106978_)) + (let ((__tmp111816 (let () (declare (not safe)) (gx#free-identifier=? - _L106717_ - _L106719_)))) + _L106979_ + _L106981_)))) (declare (not safe)) - (not __tmp111554))) - (___kont110147110148_ - _L106716_ - _L106717_ - _L106718_ - _L106719_) - (___kont110149110150_))))) - (___match110246110247_ - (lambda (_e106570106620_ - _hd106569106623_ - _tl106568106625_ - _e106573106628_ - _hd106572106631_ - _tl106571106633_ - _e106576106636_ - _hd106575106639_ - _tl106574106641_ - _e106579106644_ - _hd106578106647_ - _tl106577106649_ - _e106582106652_ - _hd106581106655_ - _tl106580106657_ - _e106585106660_ - _hd106584106663_ - _tl106583106665_ - _e106588106668_ - _hd106587106671_ - _tl106586106673_ - _e106591106676_ - _hd106590106679_ - _tl106589106681_ - _e106594106684_ - _hd106593106687_ - _tl106592106689_) + (not __tmp111816))) + (___kont110409110410_ + _L106978_ + _L106979_ + _L106980_ + _L106981_) + (___kont110411110412_))))) + (___match110508110509_ + (lambda (_e106832106882_ + _hd106831106885_ + _tl106830106887_ + _e106835106890_ + _hd106834106893_ + _tl106833106895_ + _e106838106898_ + _hd106837106901_ + _tl106836106903_ + _e106841106906_ + _hd106840106909_ + _tl106839106911_ + _e106844106914_ + _hd106843106917_ + _tl106842106919_ + _e106847106922_ + _hd106846106925_ + _tl106845106927_ + _e106850106930_ + _hd106849106933_ + _tl106848106935_ + _e106853106938_ + _hd106852106941_ + _tl106851106943_ + _e106856106946_ + _hd106855106949_ + _tl106854106951_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106586106673_)) - (let ((_e106597106692_ + (gx#stx-pair? _tl106848106935_)) + (let ((_e106859106954_ (let () (declare (not safe)) - (gx#stx-e _tl106586106673_)))) - (let ((_tl106595106697_ + (gx#stx-e _tl106848106935_)))) + (let ((_tl106857106959_ (let () (declare (not safe)) - (##cdr _e106597106692_))) - (_hd106596106695_ + (##cdr _e106859106954_))) + (_hd106858106957_ (let () (declare (not safe)) - (##car _e106597106692_)))) + (##car _e106859106954_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106596106695_)) - (let ((_e106600106700_ + _hd106858106957_)) + (let ((_e106862106962_ (let () (declare (not safe)) (gx#stx-e - _hd106596106695_)))) - (let ((_tl106598106705_ + _hd106858106957_)))) + (let ((_tl106860106967_ (let () (declare (not safe)) - (##cdr _e106600106700_))) - (_hd106599106703_ + (##cdr _e106862106962_))) + (_hd106861106965_ (let () (declare (not safe)) - (##car _e106600106700_)))) + (##car _e106862106962_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106599106703_)) + _hd106861106965_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106599106703_)) + _hd106861106965_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl106598106705_)) - (let ((_e106603106708_ + (gx#stx-pair? _tl106860106967_)) + (let ((_e106865106970_ (let () (declare (not safe)) - (gx#stx-e _tl106598106705_)))) - (let ((_tl106601106713_ + (gx#stx-e _tl106860106967_)))) + (let ((_tl106863106975_ (let () (declare (not safe)) - (##cdr _e106603106708_))) - (_hd106602106711_ + (##cdr _e106865106970_))) + (_hd106864106973_ (let () (declare (not safe)) - (##car _e106603106708_)))) + (##car _e106865106970_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106601106713_)) + (gx#stx-null? _tl106863106975_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl106595106697_)) + (gx#stx-null? _tl106857106959_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl106571106633_)) - (___match110274110275_ - _e106570106620_ - _hd106569106623_ - _tl106568106625_ - _e106573106628_ - _hd106572106631_ - _tl106571106633_ - _e106576106636_ - _hd106575106639_ - _tl106574106641_ - _e106579106644_ - _hd106578106647_ - _tl106577106649_ - _e106582106652_ - _hd106581106655_ - _tl106580106657_ - _e106585106660_ - _hd106584106663_ - _tl106583106665_ - _e106588106668_ - _hd106587106671_ - _tl106586106673_ - _e106591106676_ - _hd106590106679_ - _tl106589106681_ - _e106594106684_ - _hd106593106687_ - _tl106592106689_ - _e106597106692_ - _hd106596106695_ - _tl106595106697_ - _e106600106700_ - _hd106599106703_ - _tl106598106705_ - _e106603106708_ - _hd106602106711_ - _tl106601106713_) - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) + (gx#stx-null? _tl106833106895_)) + (___match110536110537_ + _e106832106882_ + _hd106831106885_ + _tl106830106887_ + _e106835106890_ + _hd106834106893_ + _tl106833106895_ + _e106838106898_ + _hd106837106901_ + _tl106836106903_ + _e106841106906_ + _hd106840106909_ + _tl106839106911_ + _e106844106914_ + _hd106843106917_ + _tl106842106919_ + _e106847106922_ + _hd106846106925_ + _tl106845106927_ + _e106850106930_ + _hd106849106933_ + _tl106848106935_ + _e106853106938_ + _hd106852106941_ + _tl106851106943_ + _e106856106946_ + _hd106855106949_ + _tl106854106951_ + _e106859106954_ + _hd106858106957_ + _tl106857106959_ + _e106862106962_ + _hd106861106965_ + _tl106860106967_ + _e106865106970_ + _hd106864106973_ + _tl106863106975_) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110149110150_)))) - (___kont110149110150_)))) - (___match110176110177_ - (lambda (_e106506106761_ - _hd106505106764_ - _tl106504106766_ - ___splice110143110144_ - _target106507106769_ - _tl106509106771_) - (letrec ((_loop106510106774_ - (lambda (_hd106508106777_ - _arg106514106779_) + (___kont110411110412_)))) + (___kont110411110412_)))) + (___match110438110439_ + (lambda (_e106768107023_ + _hd106767107026_ + _tl106766107028_ + ___splice110405110406_ + _target106769107031_ + _tl106771107033_) + (letrec ((_loop106772107036_ + (lambda (_hd106770107039_ + _arg106776107041_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106508106777_)) - (let ((_e106511106782_ + _hd106770107039_)) + (let ((_e106773107044_ (let () (declare (not safe)) (gx#stx-e - _hd106508106777_)))) - (let ((_lp-tl106513106787_ + _hd106770107039_)))) + (let ((_lp-tl106775107049_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106511106782_))) - (_lp-hd106512106785_ - (let () (declare (not safe)) (##car _e106511106782_)))) - (let ((__tmp111569 + (##cdr _e106773107044_))) + (_lp-hd106774107047_ + (let () (declare (not safe)) (##car _e106773107044_)))) + (let ((__tmp111831 (let () (declare (not safe)) - (cons _lp-hd106512106785_ _arg106514106779_)))) + (cons _lp-hd106774107047_ _arg106776107041_)))) (declare (not safe)) - (_loop106510106774_ _lp-tl106513106787_ __tmp111569)))) + (_loop106772107036_ _lp-tl106775107049_ __tmp111831)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg106515106790_ - (reverse _arg106514106779_))) + (let ((_arg106777107052_ + (reverse _arg106776107041_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106504106766_)) - (let ((_e106518106793_ + _tl106766107028_)) + (let ((_e106780107055_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl106504106766_)))) - (let ((_tl106516106798_ + (gx#stx-e _tl106766107028_)))) + (let ((_tl106778107060_ (let () (declare (not safe)) - (##cdr _e106518106793_))) - (_hd106517106796_ + (##cdr _e106780107055_))) + (_hd106779107058_ (let () (declare (not safe)) - (##car _e106518106793_)))) + (##car _e106780107055_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106517106796_)) - (let ((_e106521106801_ + (gx#stx-pair? _hd106779107058_)) + (let ((_e106783107063_ (let () (declare (not safe)) - (gx#stx-e _hd106517106796_)))) - (let ((_tl106519106806_ + (gx#stx-e _hd106779107058_)))) + (let ((_tl106781107068_ (let () (declare (not safe)) - (##cdr _e106521106801_))) - (_hd106520106804_ + (##cdr _e106783107063_))) + (_hd106782107066_ (let () (declare (not safe)) - (##car _e106521106801_)))) + (##car _e106783107063_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106520106804_)) + (gx#identifier? _hd106782107066_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd106520106804_)) + (gx#stx-eq? '%#call _hd106782107066_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106519106806_)) - (let ((_e106524106809_ + (gx#stx-pair? _tl106781107068_)) + (let ((_e106786107071_ (let () (declare (not safe)) (gx#stx-e - _tl106519106806_)))) - (let ((_tl106522106814_ + _tl106781107068_)))) + (let ((_tl106784107076_ (let () (declare (not safe)) - (##cdr _e106524106809_))) - (_hd106523106812_ + (##cdr _e106786107071_))) + (_hd106785107074_ (let () (declare (not safe)) - (##car _e106524106809_)))) + (##car _e106786107071_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106523106812_)) - (let ((_e106527106817_ + _hd106785107074_)) + (let ((_e106789107079_ (let () (declare (not safe)) (gx#stx-e - _hd106523106812_)))) - (let ((_tl106525106822_ + _hd106785107074_)))) + (let ((_tl106787107084_ (let () (declare (not safe)) - (##cdr _e106527106817_))) - (_hd106526106820_ + (##cdr _e106789107079_))) + (_hd106788107082_ (let () (declare (not safe)) - (##car _e106527106817_)))) + (##car _e106789107079_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106526106820_)) + _hd106788107082_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd106526106820_)) + (gx#stx-eq? '%#ref _hd106788107082_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106525106822_)) - (let ((_e106530106825_ + (gx#stx-pair? _tl106787107084_)) + (let ((_e106792107087_ (let () (declare (not safe)) - (gx#stx-e _tl106525106822_)))) - (let ((_tl106528106830_ + (gx#stx-e _tl106787107084_)))) + (let ((_tl106790107092_ (let () (declare (not safe)) - (##cdr _e106530106825_))) - (_hd106529106828_ + (##cdr _e106792107087_))) + (_hd106791107090_ (let () (declare (not safe)) - (##car _e106530106825_)))) + (##car _e106792107087_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106528106830_)) + (gx#stx-null? _tl106790107092_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106522106814_)) - (let ((_e106533106833_ + (gx#stx-pair? _tl106784107076_)) + (let ((_e106795107095_ (let () (declare (not safe)) - (gx#stx-e _tl106522106814_)))) - (let ((_tl106531106838_ + (gx#stx-e _tl106784107076_)))) + (let ((_tl106793107100_ (let () (declare (not safe)) - (##cdr _e106533106833_))) - (_hd106532106836_ + (##cdr _e106795107095_))) + (_hd106794107098_ (let () (declare (not safe)) - (##car _e106533106833_)))) + (##car _e106795107095_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106532106836_)) - (let ((_e106536106841_ + _hd106794107098_)) + (let ((_e106798107103_ (let () (declare (not safe)) (gx#stx-e - _hd106532106836_)))) - (let ((_tl106534106846_ + _hd106794107098_)))) + (let ((_tl106796107108_ (let () (declare (not safe)) - (##cdr _e106536106841_))) - (_hd106535106844_ + (##cdr _e106798107103_))) + (_hd106797107106_ (let () (declare (not safe)) - (##car _e106536106841_)))) + (##car _e106798107103_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106535106844_)) + _hd106797107106_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106535106844_)) + _hd106797107106_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl106534106846_)) - (let ((_e106539106849_ + (gx#stx-pair? _tl106796107108_)) + (let ((_e106801107111_ (let () (declare (not safe)) - (gx#stx-e _tl106534106846_)))) - (let ((_tl106537106854_ + (gx#stx-e _tl106796107108_)))) + (let ((_tl106799107116_ (let () (declare (not safe)) - (##cdr _e106539106849_))) - (_hd106538106852_ + (##cdr _e106801107111_))) + (_hd106800107114_ (let () (declare (not safe)) - (##car _e106539106849_)))) + (##car _e106801107111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106537106854_)) + (gx#stx-null? _tl106799107116_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl106531106838_)) + (gx#stx-pair/null? _tl106793107100_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl106531106838_)) + (gx#stx-length _tl106793107100_)) '1) - (let ((___splice110145110146_ + (let ((___splice110407110408_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl106531106838_ + _tl106793107100_ '1)))) - (let ((_tl106542106859_ + (let ((_tl106804107121_ (let () (declare (not safe)) (##vector-ref - ___splice110145110146_ + ___splice110407110408_ '1))) - (_target106540106857_ + (_target106802107119_ (let () (declare (not safe)) (##vector-ref - ___splice110145110146_ + ___splice110407110408_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106542106859_)) - (let ((_e106551106862_ + _tl106804107121_)) + (let ((_e106813107124_ (let () (declare (not safe)) (gx#stx-e - _tl106542106859_)))) - (let ((_tl106549106867_ + _tl106804107121_)))) + (let ((_tl106811107129_ (let () (declare (not safe)) - (##cdr _e106551106862_))) - (_hd106550106865_ + (##cdr _e106813107124_))) + (_hd106812107127_ (let () (declare (not safe)) - (##car _e106551106862_)))) + (##car _e106813107124_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106550106865_)) - (let ((_e106554106870_ + _hd106812107127_)) + (let ((_e106816107132_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd106550106865_)))) - (let ((_tl106552106875_ - (let () (declare (not safe)) (##cdr _e106554106870_))) - (_hd106553106873_ - (let () (declare (not safe)) (##car _e106554106870_)))) + (gx#stx-e _hd106812107127_)))) + (let ((_tl106814107137_ + (let () (declare (not safe)) (##cdr _e106816107132_))) + (_hd106815107135_ + (let () (declare (not safe)) (##car _e106816107132_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106553106873_)) + (gx#identifier? _hd106815107135_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd106553106873_)) + (gx#stx-eq? '%#ref _hd106815107135_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106552106875_)) - (let ((_e106557106878_ + (gx#stx-pair? _tl106814107137_)) + (let ((_e106819107140_ (let () (declare (not safe)) - (gx#stx-e _tl106552106875_)))) - (let ((_tl106555106883_ + (gx#stx-e _tl106814107137_)))) + (let ((_tl106817107145_ (let () (declare (not safe)) - (##cdr _e106557106878_))) - (_hd106556106881_ + (##cdr _e106819107140_))) + (_hd106818107143_ (let () (declare (not safe)) - (##car _e106557106878_)))) + (##car _e106819107140_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106555106883_)) + (gx#stx-null? _tl106817107145_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl106549106867_)) - (letrec ((_loop106543106886_ - (lambda (_hd106541106889_ - _xarg106547106891_) + (gx#stx-null? _tl106811107129_)) + (letrec ((_loop106805107148_ + (lambda (_hd106803107151_ + _xarg106809107153_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106541106889_)) - (let ((_e106544106894_ + _hd106803107151_)) + (let ((_e106806107156_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd106541106889_)))) - (let ((_lp-tl106546106899_ + (gx#stx-e _hd106803107151_)))) + (let ((_lp-tl106808107161_ (let () (declare (not safe)) - (##cdr _e106544106894_))) - (_lp-hd106545106897_ + (##cdr _e106806107156_))) + (_lp-hd106807107159_ (let () (declare (not safe)) - (##car _e106544106894_)))) + (##car _e106806107156_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd106545106897_)) - (let ((_e106560106902_ + (gx#stx-pair? _lp-hd106807107159_)) + (let ((_e106822107164_ (let () (declare (not safe)) - (gx#stx-e _lp-hd106545106897_)))) - (let ((_tl106558106907_ + (gx#stx-e _lp-hd106807107159_)))) + (let ((_tl106820107169_ (let () (declare (not safe)) - (##cdr _e106560106902_))) - (_hd106559106905_ + (##cdr _e106822107164_))) + (_hd106821107167_ (let () (declare (not safe)) - (##car _e106560106902_)))) + (##car _e106822107164_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106559106905_)) + (gx#identifier? _hd106821107167_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd106559106905_)) + (gx#stx-eq? '%#ref _hd106821107167_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106558106907_)) - (let ((_e106563106910_ + (gx#stx-pair? _tl106820107169_)) + (let ((_e106825107172_ (let () (declare (not safe)) (gx#stx-e - _tl106558106907_)))) - (let ((_tl106561106915_ + _tl106820107169_)))) + (let ((_tl106823107177_ (let () (declare (not safe)) - (##cdr _e106563106910_))) - (_hd106562106913_ + (##cdr _e106825107172_))) + (_hd106824107175_ (let () (declare (not safe)) - (##car _e106563106910_)))) + (##car _e106825107172_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106561106915_)) - (let ((__tmp111568 + _tl106823107177_)) + (let ((__tmp111830 (let () (declare (not safe)) - (cons _hd106562106913_ + (cons _hd106824107175_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg106547106891_)))) + _xarg106809107153_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop106543106886_ - _lp-tl106546106899_ - __tmp111568)) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)))) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)))) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)))) - (let ((_xarg106548106918_ (reverse _xarg106547106891_))) + (_loop106805107148_ + _lp-tl106808107161_ + __tmp111830)) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)))) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)))) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)))) + (let ((_xarg106810107180_ (reverse _xarg106809107153_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106516106798_)) - (let ((_L106921_ _hd106556106881_) - (_L106922_ _xarg106548106918_) - (_L106923_ _hd106538106852_) - (_L106924_ _hd106529106828_) - (_L106925_ _tl106509106771_) - (_L106926_ _arg106515106790_)) - (if (and (let ((__tmp111566 - (let ((__tmp111567 - (lambda (_g106969106972_ - _g106970106974_) + (gx#stx-null? _tl106778107060_)) + (let ((_L107183_ _hd106818107143_) + (_L107184_ _xarg106810107180_) + (_L107185_ _hd106800107114_) + (_L107186_ _hd106791107090_) + (_L107187_ _tl106771107033_) + (_L107188_ _arg106777107052_)) + (if (and (let ((__tmp111828 + (let ((__tmp111829 + (lambda (_g107231107234_ + _g107232107236_) (let () (declare (not safe)) - (cons _g106969106972_ - _g106970106974_))))) + (cons _g107231107234_ + _g107232107236_))))) (declare (not safe)) - (foldr1 __tmp111567 + (foldr1 __tmp111829 '() - _L106926_)))) + _L107188_)))) (declare (not safe)) - (gx#identifier-list? __tmp111566)) + (gx#identifier-list? __tmp111828)) (let () (declare (not safe)) - (gx#identifier? _L106925_)) + (gx#identifier? _L107187_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L106924_ + _L107186_ 'apply)) - (fx= (length (let ((__tmp111564 - (lambda (_g106976106979_ - _g106977106981_) + (fx= (length (let ((__tmp111826 + (lambda (_g107238107241_ + _g107239107243_) (let () (declare (not safe)) - (cons _g106976106979_ + (cons _g107238107241_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g106977106981_))))) + _g107239107243_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111564 + (foldr1 __tmp111826 '() - _L106926_))) - (length (let ((__tmp111565 - (lambda (_g106983106986_ - _g106984106988_) + _L107188_))) + (length (let ((__tmp111827 + (lambda (_g107245107248_ + _g107246107250_) (let () (declare (not safe)) - (cons _g106983106986_ + (cons _g107245107248_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g106984106988_))))) + _g107246107250_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111565 + (foldr1 __tmp111827 '() - _L106922_)))) - (let ((__tmp111562 - (let ((__tmp111563 - (lambda (_g106990106993_ - _g106991106995_) + _L107184_)))) + (let ((__tmp111824 + (let ((__tmp111825 + (lambda (_g107252107255_ + _g107253107257_) (let () (declare (not safe)) - (cons _g106990106993_ - _g106991106995_))))) + (cons _g107252107255_ + _g107253107257_))))) (declare (not safe)) - (foldr1 __tmp111563 + (foldr1 __tmp111825 '() - _L106926_))) - (__tmp111560 - (let ((__tmp111561 - (lambda (_g106997107000_ - _g106998107002_) + _L107188_))) + (__tmp111822 + (let ((__tmp111823 + (lambda (_g107259107262_ + _g107260107264_) (let () (declare (not safe)) - (cons _g106997107000_ - _g106998107002_))))) + (cons _g107259107262_ + _g107260107264_))))) (declare (not safe)) - (foldr1 __tmp111561 + (foldr1 __tmp111823 '() - _L106922_)))) + _L107184_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp111562 - __tmp111560)) + __tmp111824 + __tmp111822)) (let () (declare (not safe)) (gx#free-identifier=? - _L106925_ - _L106921_)) - (let ((__tmp111555 - (let ((__tmp111559 - (lambda (_g107004107006_) + _L107187_ + _L107183_)) + (let ((__tmp111817 + (let ((__tmp111821 + (lambda (_g107266107268_) (let () (declare (not safe)) (gx#free-identifier=? - _g107004107006_ - _L106923_)))) - (__tmp111556 - (let ((__tmp111558 - (lambda (_g107008107011_ + _g107266107268_ + _L107185_)))) + (__tmp111818 + (let ((__tmp111820 + (lambda (_g107270107273_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107009107013_) + _g107271107275_) (let () (declare (not safe)) - (cons _g107008107011_ _g107009107013_)))) - (__tmp111557 - (let () (declare (not safe)) (cons _L106925_ '())))) + (cons _g107270107273_ _g107271107275_)))) + (__tmp111819 + (let () (declare (not safe)) (cons _L107187_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111558 - __tmp111557 - _L106926_)))) + (foldr1 __tmp111820 + __tmp111819 + _L107188_)))) (declare (not safe)) - (find __tmp111559 __tmp111556)))) + (find __tmp111821 __tmp111818)))) (declare (not safe)) - (not __tmp111555))) - (___kont110141110142_ - _L106921_ - _L106922_ - _L106923_ - _L106924_ - _L106925_ - _L106926_) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_))) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_))))))) + (not __tmp111817))) + (___kont110403110404_ + _L107183_ + _L107184_ + _L107185_ + _L107186_ + _L107187_ + _L107188_) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_))) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop106543106886_ - _target106540106857_ + (_loop106805107148_ + _target106802107119_ '()))) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)))) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)))) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)))) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)))) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)))) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)))) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)) - (___match110246110247_ - _e106506106761_ - _hd106505106764_ - _tl106504106766_ - _e106518106793_ - _hd106517106796_ - _tl106516106798_ - _e106521106801_ - _hd106520106804_ - _tl106519106806_ - _e106524106809_ - _hd106523106812_ - _tl106522106814_ - _e106527106817_ - _hd106526106820_ - _tl106525106822_ - _e106530106825_ - _hd106529106828_ - _tl106528106830_ - _e106533106833_ - _hd106532106836_ - _tl106531106838_ - _e106536106841_ - _hd106535106844_ - _tl106534106846_ - _e106539106849_ - _hd106538106852_ - _tl106537106854_)) - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)))) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)) + (___match110508110509_ + _e106768107023_ + _hd106767107026_ + _tl106766107028_ + _e106780107055_ + _hd106779107058_ + _tl106778107060_ + _e106783107063_ + _hd106782107066_ + _tl106781107068_ + _e106786107071_ + _hd106785107074_ + _tl106784107076_ + _e106789107079_ + _hd106788107082_ + _tl106787107084_ + _e106792107087_ + _hd106791107090_ + _tl106790107092_ + _e106795107095_ + _hd106794107098_ + _tl106793107100_ + _e106798107103_ + _hd106797107106_ + _tl106796107108_ + _e106801107111_ + _hd106800107114_ + _tl106799107116_)) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) - (___kont110149110150_)))) - (___kont110149110150_))))))) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) + (___kont110411110412_)))) + (___kont110411110412_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop106510106774_ - _target106507106769_ + (_loop106772107036_ + _target106769107031_ '()))))) - (___match110164110165_ - (lambda (_e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_) - (letrec ((_loop106462107034_ - (lambda (_hd106460107037_ - _arg106466107039_) + (___match110426110427_ + (lambda (_e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_) + (letrec ((_loop106724107296_ + (lambda (_hd106722107299_ + _arg106728107301_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106460107037_)) - (let ((_e106463107042_ + _hd106722107299_)) + (let ((_e106725107304_ (let () (declare (not safe)) (gx#stx-e - _hd106460107037_)))) - (let ((_lp-tl106465107047_ + _hd106722107299_)))) + (let ((_lp-tl106727107309_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106463107042_))) - (_lp-hd106464107045_ - (let () (declare (not safe)) (##car _e106463107042_)))) - (let ((__tmp111583 + (##cdr _e106725107304_))) + (_lp-hd106726107307_ + (let () (declare (not safe)) (##car _e106725107304_)))) + (let ((__tmp111845 (let () (declare (not safe)) - (cons _lp-hd106464107045_ _arg106466107039_)))) + (cons _lp-hd106726107307_ _arg106728107301_)))) (declare (not safe)) - (_loop106462107034_ _lp-tl106465107047_ __tmp111583)))) + (_loop106724107296_ _lp-tl106727107309_ __tmp111845)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg106467107050_ - (reverse _arg106466107039_))) + (let ((_arg106729107312_ + (reverse _arg106728107301_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106456107026_)) - (let ((_e106470107053_ + _tl106718107288_)) + (let ((_e106732107315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl106456107026_)))) - (let ((_tl106468107058_ + (gx#stx-e _tl106718107288_)))) + (let ((_tl106730107320_ (let () (declare (not safe)) - (##cdr _e106470107053_))) - (_hd106469107056_ + (##cdr _e106732107315_))) + (_hd106731107318_ (let () (declare (not safe)) - (##car _e106470107053_)))) + (##car _e106732107315_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106469107056_)) - (let ((_e106473107061_ + (gx#stx-pair? _hd106731107318_)) + (let ((_e106735107323_ (let () (declare (not safe)) - (gx#stx-e _hd106469107056_)))) - (let ((_tl106471107066_ + (gx#stx-e _hd106731107318_)))) + (let ((_tl106733107328_ (let () (declare (not safe)) - (##cdr _e106473107061_))) - (_hd106472107064_ + (##cdr _e106735107323_))) + (_hd106734107326_ (let () (declare (not safe)) - (##car _e106473107061_)))) + (##car _e106735107323_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106472107064_)) + (gx#identifier? _hd106734107326_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd106472107064_)) + (gx#stx-eq? '%#call _hd106734107326_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106471107066_)) - (let ((_e106476107069_ + (gx#stx-pair? _tl106733107328_)) + (let ((_e106738107331_ (let () (declare (not safe)) (gx#stx-e - _tl106471107066_)))) - (let ((_tl106474107074_ + _tl106733107328_)))) + (let ((_tl106736107336_ (let () (declare (not safe)) - (##cdr _e106476107069_))) - (_hd106475107072_ + (##cdr _e106738107331_))) + (_hd106737107334_ (let () (declare (not safe)) - (##car _e106476107069_)))) + (##car _e106738107331_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106475107072_)) - (let ((_e106479107077_ + _hd106737107334_)) + (let ((_e106741107339_ (let () (declare (not safe)) (gx#stx-e - _hd106475107072_)))) - (let ((_tl106477107082_ + _hd106737107334_)))) + (let ((_tl106739107344_ (let () (declare (not safe)) - (##cdr _e106479107077_))) - (_hd106478107080_ + (##cdr _e106741107339_))) + (_hd106740107342_ (let () (declare (not safe)) - (##car _e106479107077_)))) + (##car _e106741107339_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106478107080_)) + _hd106740107342_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd106478107080_)) + (gx#stx-eq? '%#ref _hd106740107342_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106477107082_)) - (let ((_e106482107085_ + (gx#stx-pair? _tl106739107344_)) + (let ((_e106744107347_ (let () (declare (not safe)) - (gx#stx-e _tl106477107082_)))) - (let ((_tl106480107090_ + (gx#stx-e _tl106739107344_)))) + (let ((_tl106742107352_ (let () (declare (not safe)) - (##cdr _e106482107085_))) - (_hd106481107088_ + (##cdr _e106744107347_))) + (_hd106743107350_ (let () (declare (not safe)) - (##car _e106482107085_)))) + (##car _e106744107347_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106480107090_)) + (gx#stx-null? _tl106742107352_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl106474107074_)) - (let ((___splice110139110140_ + (gx#stx-pair/null? _tl106736107336_)) + (let ((___splice110401110402_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl106474107074_ + _tl106736107336_ '0)))) - (let ((_tl106485107095_ + (let ((_tl106747107357_ (let () (declare (not safe)) (##vector-ref - ___splice110139110140_ + ___splice110401110402_ '1))) - (_target106483107093_ + (_target106745107355_ (let () (declare (not safe)) (##vector-ref - ___splice110139110140_ + ___splice110401110402_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106485107095_)) - (letrec ((_loop106486107098_ - (lambda (_hd106484107101_ + _tl106747107357_)) + (letrec ((_loop106748107360_ + (lambda (_hd106746107363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg106490107103_) + _xarg106752107365_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106484107101_)) - (let ((_e106487107106_ + (gx#stx-pair? _hd106746107363_)) + (let ((_e106749107368_ (let () (declare (not safe)) - (gx#stx-e _hd106484107101_)))) - (let ((_lp-tl106489107111_ + (gx#stx-e _hd106746107363_)))) + (let ((_lp-tl106751107373_ (let () (declare (not safe)) - (##cdr _e106487107106_))) - (_lp-hd106488107109_ + (##cdr _e106749107368_))) + (_lp-hd106750107371_ (let () (declare (not safe)) - (##car _e106487107106_)))) + (##car _e106749107368_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd106488107109_)) - (let ((_e106494107114_ + (gx#stx-pair? _lp-hd106750107371_)) + (let ((_e106756107376_ (let () (declare (not safe)) - (gx#stx-e _lp-hd106488107109_)))) - (let ((_tl106492107119_ + (gx#stx-e _lp-hd106750107371_)))) + (let ((_tl106754107381_ (let () (declare (not safe)) - (##cdr _e106494107114_))) - (_hd106493107117_ + (##cdr _e106756107376_))) + (_hd106755107379_ (let () (declare (not safe)) - (##car _e106494107114_)))) + (##car _e106756107376_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106493107117_)) + (gx#identifier? _hd106755107379_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106493107117_)) + _hd106755107379_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106492107119_)) - (let ((_e106497107122_ + _tl106754107381_)) + (let ((_e106759107384_ (let () (declare (not safe)) (gx#stx-e - _tl106492107119_)))) - (let ((_tl106495107127_ + _tl106754107381_)))) + (let ((_tl106757107389_ (let () (declare (not safe)) - (##cdr _e106497107122_))) - (_hd106496107125_ + (##cdr _e106759107384_))) + (_hd106758107387_ (let () (declare (not safe)) - (##car _e106497107122_)))) + (##car _e106759107384_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106495107127_)) - (let ((__tmp111582 + _tl106757107389_)) + (let ((__tmp111844 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd106496107125_ _xarg106490107103_)))) + (cons _hd106758107387_ _xarg106752107365_)))) (declare (not safe)) - (_loop106486107098_ _lp-tl106489107111_ __tmp111582)) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) + (_loop106748107360_ _lp-tl106751107373_ __tmp111844)) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) - (let ((_xarg106491107130_ (reverse _xarg106490107103_))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) + (let ((_xarg106753107392_ (reverse _xarg106752107365_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106468107058_)) - (let ((_L107133_ _xarg106491107130_) - (_L107134_ _hd106481107088_) - (_L107135_ _arg106467107050_)) - (if (and (let ((__tmp111580 - (let ((__tmp111581 - (lambda (_g107163107166_ - _g107164107168_) + (gx#stx-null? _tl106730107320_)) + (let ((_L107395_ _xarg106753107392_) + (_L107396_ _hd106743107350_) + (_L107397_ _arg106729107312_)) + (if (and (let ((__tmp111842 + (let ((__tmp111843 + (lambda (_g107425107428_ + _g107426107430_) (let () (declare (not safe)) - (cons _g107163107166_ - _g107164107168_))))) + (cons _g107425107428_ + _g107426107430_))))) (declare (not safe)) - (foldr1 __tmp111581 + (foldr1 __tmp111843 '() - _L107135_)))) + _L107397_)))) (declare (not safe)) - (gx#identifier-list? __tmp111580)) - (fx= (length (let ((__tmp111578 - (lambda (_g107170107173_ + (gx#identifier-list? __tmp111842)) + (fx= (length (let ((__tmp111840 + (lambda (_g107432107435_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107171107175_) + _g107433107437_) (let () (declare (not safe)) - (cons _g107170107173_ _g107171107175_))))) + (cons _g107432107435_ _g107433107437_))))) (declare (not safe)) - (foldr1 __tmp111578 '() _L107135_))) + (foldr1 __tmp111840 '() _L107397_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (length (let ((__tmp111579 - (lambda (_g107177107180_ + (length (let ((__tmp111841 + (lambda (_g107439107442_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107178107182_) + _g107440107444_) (let () (declare (not safe)) - (cons _g107177107180_ _g107178107182_))))) + (cons _g107439107442_ _g107440107444_))))) (declare (not safe)) - (foldr1 __tmp111579 '() _L107133_)))) + (foldr1 __tmp111841 '() _L107395_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp111576 - (let ((__tmp111577 - (lambda (_g107184107187_ - _g107185107189_) + (let ((__tmp111838 + (let ((__tmp111839 + (lambda (_g107446107449_ + _g107447107451_) (let () (declare (not safe)) - (cons _g107184107187_ - _g107185107189_))))) + (cons _g107446107449_ + _g107447107451_))))) (declare (not safe)) - (foldr1 __tmp111577 + (foldr1 __tmp111839 '() - _L107135_))) - (__tmp111574 - (let ((__tmp111575 - (lambda (_g107191107194_ - _g107192107196_) + _L107397_))) + (__tmp111836 + (let ((__tmp111837 + (lambda (_g107453107456_ + _g107454107458_) (let () (declare (not safe)) - (cons _g107191107194_ - _g107192107196_))))) + (cons _g107453107456_ + _g107454107458_))))) (declare (not safe)) - (foldr1 __tmp111575 + (foldr1 __tmp111837 '() - _L107133_)))) + _L107395_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp111576 - __tmp111574)) - (let ((__tmp111570 - (let ((__tmp111573 - (lambda (_g107198107200_) + __tmp111838 + __tmp111836)) + (let ((__tmp111832 + (let ((__tmp111835 + (lambda (_g107460107462_) (let () (declare (not safe)) (gx#free-identifier=? - _g107198107200_ - _L107134_)))) - (__tmp111571 - (let ((__tmp111572 - (lambda (_g107202107205_ + _g107460107462_ + _L107396_)))) + (__tmp111833 + (let ((__tmp111834 + (lambda (_g107464107467_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107203107207_) + _g107465107469_) (let () (declare (not safe)) - (cons _g107202107205_ _g107203107207_))))) + (cons _g107464107467_ _g107465107469_))))) (declare (not safe)) - (foldr1 __tmp111572 '() _L107135_)))) + (foldr1 __tmp111834 '() _L107397_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (find __tmp111573 - __tmp111571)))) + (find __tmp111835 + __tmp111833)))) (declare (not safe)) - (not __tmp111570))) - (___kont110135110136_ - _L107133_ - _L107134_ - _L107135_) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_))) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_))))))) + (not __tmp111832))) + (___kont110397110398_ + _L107395_ + _L107396_ + _L107397_) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop106486107098_ - _target106483107093_ + (_loop106748107360_ + _target106745107355_ '()))) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_))))))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop106462107034_ - _target106459107029_ + (_loop106724107296_ + _target106721107291_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110133110134_)) - (let ((_e106458107021_ + (gx#stx-pair? ___stx110395110396_)) + (let ((_e106720107283_ (let () (declare (not safe)) - (gx#stx-e ___stx110133110134_)))) - (let ((_tl106456107026_ + (gx#stx-e ___stx110395110396_)))) + (let ((_tl106718107288_ (let () (declare (not safe)) - (##cdr _e106458107021_))) - (_hd106457107024_ + (##cdr _e106720107283_))) + (_hd106719107286_ (let () (declare (not safe)) - (##car _e106458107021_)))) + (##car _e106720107283_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd106457107024_)) - (let ((___splice110137110138_ + (gx#stx-pair/null? _hd106719107286_)) + (let ((___splice110399110400_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd106457107024_ + _hd106719107286_ '0)))) - (let ((_tl106461107031_ + (let ((_tl106723107293_ (let () (declare (not safe)) (##vector-ref - ___splice110137110138_ + ___splice110399110400_ '1))) - (_target106459107029_ + (_target106721107291_ (let () (declare (not safe)) (##vector-ref - ___splice110137110138_ + ___splice110399110400_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106461107031_)) - (___match110164110165_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_) - (___match110176110177_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - ___splice110137110138_ - _target106459107029_ - _tl106461107031_)))) + _tl106723107293_)) + (___match110426110427_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_) + (___match110438110439_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + ___splice110399110400_ + _target106721107291_ + _tl106723107293_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106456107026_)) - (let ((_e106573106628_ + (gx#stx-pair? _tl106718107288_)) + (let ((_e106835106890_ (let () (declare (not safe)) (gx#stx-e - _tl106456107026_)))) - (let ((_tl106571106633_ + _tl106718107288_)))) + (let ((_tl106833106895_ (let () (declare (not safe)) - (##cdr _e106573106628_))) - (_hd106572106631_ + (##cdr _e106835106890_))) + (_hd106834106893_ (let () (declare (not safe)) - (##car _e106573106628_)))) + (##car _e106835106890_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106572106631_)) - (let ((_e106576106636_ + _hd106834106893_)) + (let ((_e106838106898_ (let () (declare (not safe)) (gx#stx-e - _hd106572106631_)))) - (let ((_tl106574106641_ + _hd106834106893_)))) + (let ((_tl106836106903_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106576106636_))) - (_hd106575106639_ - (let () (declare (not safe)) (##car _e106576106636_)))) + (##cdr _e106838106898_))) + (_hd106837106901_ + (let () (declare (not safe)) (##car _e106838106898_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106575106639_)) + (gx#identifier? _hd106837106901_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd106575106639_)) + (gx#stx-eq? '%#call _hd106837106901_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106574106641_)) - (let ((_e106579106644_ + (gx#stx-pair? _tl106836106903_)) + (let ((_e106841106906_ (let () (declare (not safe)) - (gx#stx-e _tl106574106641_)))) - (let ((_tl106577106649_ + (gx#stx-e _tl106836106903_)))) + (let ((_tl106839106911_ (let () (declare (not safe)) - (##cdr _e106579106644_))) - (_hd106578106647_ + (##cdr _e106841106906_))) + (_hd106840106909_ (let () (declare (not safe)) - (##car _e106579106644_)))) + (##car _e106841106906_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106578106647_)) - (let ((_e106582106652_ + (gx#stx-pair? _hd106840106909_)) + (let ((_e106844106914_ (let () (declare (not safe)) - (gx#stx-e _hd106578106647_)))) - (let ((_tl106580106657_ + (gx#stx-e _hd106840106909_)))) + (let ((_tl106842106919_ (let () (declare (not safe)) - (##cdr _e106582106652_))) - (_hd106581106655_ + (##cdr _e106844106914_))) + (_hd106843106917_ (let () (declare (not safe)) - (##car _e106582106652_)))) + (##car _e106844106914_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106581106655_)) + _hd106843106917_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106581106655_)) + _hd106843106917_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106580106657_)) - (let ((_e106585106660_ + _tl106842106919_)) + (let ((_e106847106922_ (let () (declare (not safe)) (gx#stx-e - _tl106580106657_)))) - (let ((_tl106583106665_ + _tl106842106919_)))) + (let ((_tl106845106927_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106585106660_))) - (_hd106584106663_ - (let () (declare (not safe)) (##car _e106585106660_)))) + (##cdr _e106847106922_))) + (_hd106846106925_ + (let () (declare (not safe)) (##car _e106847106922_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106583106665_)) + (gx#stx-null? _tl106845106927_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106577106649_)) - (let ((_e106588106668_ + (gx#stx-pair? _tl106839106911_)) + (let ((_e106850106930_ (let () (declare (not safe)) - (gx#stx-e _tl106577106649_)))) - (let ((_tl106586106673_ + (gx#stx-e _tl106839106911_)))) + (let ((_tl106848106935_ (let () (declare (not safe)) - (##cdr _e106588106668_))) - (_hd106587106671_ + (##cdr _e106850106930_))) + (_hd106849106933_ (let () (declare (not safe)) - (##car _e106588106668_)))) + (##car _e106850106930_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106587106671_)) - (let ((_e106591106676_ + (gx#stx-pair? _hd106849106933_)) + (let ((_e106853106938_ (let () (declare (not safe)) - (gx#stx-e _hd106587106671_)))) - (let ((_tl106589106681_ + (gx#stx-e _hd106849106933_)))) + (let ((_tl106851106943_ (let () (declare (not safe)) - (##cdr _e106591106676_))) - (_hd106590106679_ + (##cdr _e106853106938_))) + (_hd106852106941_ (let () (declare (not safe)) - (##car _e106591106676_)))) + (##car _e106853106938_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106590106679_)) + (gx#identifier? _hd106852106941_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106590106679_)) + _hd106852106941_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106589106681_)) - (let ((_e106594106684_ + _tl106851106943_)) + (let ((_e106856106946_ (let () (declare (not safe)) (gx#stx-e - _tl106589106681_)))) - (let ((_tl106592106689_ + _tl106851106943_)))) + (let ((_tl106854106951_ (let () (declare (not safe)) - (##cdr _e106594106684_))) - (_hd106593106687_ + (##cdr _e106856106946_))) + (_hd106855106949_ (let () (declare (not safe)) - (##car _e106594106684_)))) + (##car _e106856106946_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106592106689_)) + _tl106854106951_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106586106673_)) - (let ((_e106597106692_ + _tl106848106935_)) + (let ((_e106859106954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl106586106673_)))) - (let ((_tl106595106697_ + (gx#stx-e _tl106848106935_)))) + (let ((_tl106857106959_ (let () (declare (not safe)) - (##cdr _e106597106692_))) - (_hd106596106695_ + (##cdr _e106859106954_))) + (_hd106858106957_ (let () (declare (not safe)) - (##car _e106597106692_)))) + (##car _e106859106954_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106596106695_)) - (let ((_e106600106700_ + (gx#stx-pair? _hd106858106957_)) + (let ((_e106862106962_ (let () (declare (not safe)) - (gx#stx-e _hd106596106695_)))) - (let ((_tl106598106705_ + (gx#stx-e _hd106858106957_)))) + (let ((_tl106860106967_ (let () (declare (not safe)) - (##cdr _e106600106700_))) - (_hd106599106703_ + (##cdr _e106862106962_))) + (_hd106861106965_ (let () (declare (not safe)) - (##car _e106600106700_)))) + (##car _e106862106962_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106599106703_)) + (gx#identifier? _hd106861106965_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd106599106703_)) + (gx#stx-eq? '%#ref _hd106861106965_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106598106705_)) - (let ((_e106603106708_ + (gx#stx-pair? _tl106860106967_)) + (let ((_e106865106970_ (let () (declare (not safe)) (gx#stx-e - _tl106598106705_)))) - (let ((_tl106601106713_ + _tl106860106967_)))) + (let ((_tl106863106975_ (let () (declare (not safe)) - (##cdr _e106603106708_))) - (_hd106602106711_ + (##cdr _e106865106970_))) + (_hd106864106973_ (let () (declare (not safe)) - (##car _e106603106708_)))) + (##car _e106865106970_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106601106713_)) + _tl106863106975_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl106595106697_)) + _tl106857106959_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl106571106633_)) - (___match110274110275_ - _e106458107021_ - _hd106457107024_ - _tl106456107026_ - _e106573106628_ - _hd106572106631_ - _tl106571106633_ - _e106576106636_ - _hd106575106639_ - _tl106574106641_ - _e106579106644_ - _hd106578106647_ - _tl106577106649_ - _e106582106652_ - _hd106581106655_ - _tl106580106657_ - _e106585106660_ - _hd106584106663_ - _tl106583106665_ - _e106588106668_ - _hd106587106671_ - _tl106586106673_ - _e106591106676_ - _hd106590106679_ - _tl106589106681_ - _e106594106684_ - _hd106593106687_ - _tl106592106689_ - _e106597106692_ - _hd106596106695_ - _tl106595106697_ - _e106600106700_ - _hd106599106703_ - _tl106598106705_ - _e106603106708_ - _hd106602106711_ - _tl106601106713_) - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)))) + _tl106833106895_)) + (___match110536110537_ + _e106720107283_ + _hd106719107286_ + _tl106718107288_ + _e106835106890_ + _hd106834106893_ + _tl106833106895_ + _e106838106898_ + _hd106837106901_ + _tl106836106903_ + _e106841106906_ + _hd106840106909_ + _tl106839106911_ + _e106844106914_ + _hd106843106917_ + _tl106842106919_ + _e106847106922_ + _hd106846106925_ + _tl106845106927_ + _e106850106930_ + _hd106849106933_ + _tl106848106935_ + _e106853106938_ + _hd106852106941_ + _tl106851106943_ + _e106856106946_ + _hd106855106949_ + _tl106854106951_ + _e106859106954_ + _hd106858106957_ + _tl106857106959_ + _e106862106962_ + _hd106861106965_ + _tl106860106967_ + _e106865106970_ + _hd106864106973_ + _tl106863106975_) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)))) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) - (___kont110149110150_)))) - (___kont110149110150_)) - (___kont110149110150_)) - (___kont110149110150_)))) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) + (___kont110411110412_)))) + (___kont110411110412_)) + (___kont110411110412_)) + (___kont110411110412_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110149110150_)))) - (___kont110149110150_))))) - (___kont110149110150_))))))) - (_dispatch-case-e105759_ - (lambda (_hd105907_ _body105908_) - (let* ((_form105910_ - (let ((__tmp111584 + (___kont110411110412_)))) + (___kont110411110412_))))) + (___kont110411110412_))))))) + (_dispatch-case-e106021_ + (lambda (_hd106169_ _body106170_) + (let* ((_form106172_ + (let ((__tmp111846 (let () (declare (not safe)) - (cons _body105908_ '())))) + (cons _body106170_ '())))) (declare (not safe)) - (cons _hd105907_ __tmp111584))) - (___stx110277110278_ _form105910_) - (_g105914106038_ + (cons _hd106169_ __tmp111846))) + (___stx110539110540_ _form106172_) + (_g106176106300_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110277110278_))))) - (let ((___kont110279110280_ - (lambda (_L106409_ _L106410_ _L106411_) - (let ((__tmp111585 - (let ((__tmp111587 + ___stx110539110540_))))) + (let ((___kont110541110542_ + (lambda (_L106671_ _L106672_ _L106673_) + (let ((__tmp111847 + (let ((__tmp111849 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp111586 + (__tmp111848 (let () (declare (not safe)) - (cons _L106410_ '())))) + (cons _L106672_ '())))) (declare (not safe)) - (cons __tmp111587 __tmp111586)))) + (cons __tmp111849 __tmp111848)))) (declare (not safe)) - (gxc#compile-e__0 __tmp111585)))) - (___kont110285110286_ - (lambda (_L106257_ - _L106258_ - _L106259_ - _L106260_) - (let ((__tmp111588 - (let ((__tmp111590 + (gxc#compile-e__0 __tmp111847)))) + (___kont110547110548_ + (lambda (_L106519_ + _L106520_ + _L106521_ + _L106522_) + (let ((__tmp111850 + (let ((__tmp111852 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp111589 + (__tmp111851 (let () (declare (not safe)) - (cons _L106257_ '())))) + (cons _L106519_ '())))) (declare (not safe)) - (cons __tmp111590 __tmp111589)))) + (cons __tmp111852 __tmp111851)))) (declare (not safe)) - (gxc#compile-e__0 __tmp111588)))) - (___kont110289110290_ - (lambda (_L106123_ _L106124_ _L106125_) - (let ((__tmp111591 - (let ((__tmp111593 + (gxc#compile-e__0 __tmp111850)))) + (___kont110551110552_ + (lambda (_L106385_ _L106386_ _L106387_) + (let ((__tmp111853 + (let ((__tmp111855 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp111592 + (__tmp111854 (let () (declare (not safe)) - (cons _L106123_ '())))) + (cons _L106385_ '())))) (declare (not safe)) - (cons __tmp111593 __tmp111592)))) + (cons __tmp111855 __tmp111854)))) (declare (not safe)) - (gxc#compile-e__0 __tmp111591))))) - (let* ((___match110386110387_ - (lambda (_e106006106043_ - _hd106005106046_ - _tl106004106048_ - _e106009106051_ - _hd106008106054_ - _tl106007106056_ - _e106012106059_ - _hd106011106062_ - _tl106010106064_ - _e106015106067_ - _hd106014106070_ - _tl106013106072_ - _e106018106075_ - _hd106017106078_ - _tl106016106080_ - _e106021106083_ - _hd106020106086_ - _tl106019106088_ - _e106024106091_ - _hd106023106094_ - _tl106022106096_ - _e106027106099_ - _hd106026106102_ - _tl106025106104_ - _e106030106107_ - _hd106029106110_ - _tl106028106112_) + (gxc#compile-e__0 __tmp111853))))) + (let* ((___match110648110649_ + (lambda (_e106268106305_ + _hd106267106308_ + _tl106266106310_ + _e106271106313_ + _hd106270106316_ + _tl106269106318_ + _e106274106321_ + _hd106273106324_ + _tl106272106326_ + _e106277106329_ + _hd106276106332_ + _tl106275106334_ + _e106280106337_ + _hd106279106340_ + _tl106278106342_ + _e106283106345_ + _hd106282106348_ + _tl106281106350_ + _e106286106353_ + _hd106285106356_ + _tl106284106358_ + _e106289106361_ + _hd106288106364_ + _tl106287106366_ + _e106292106369_ + _hd106291106372_ + _tl106290106374_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106022106096_)) - (let ((_e106033106115_ + (gx#stx-pair? _tl106284106358_)) + (let ((_e106295106377_ (let () (declare (not safe)) - (gx#stx-e _tl106022106096_)))) - (let ((_tl106031106120_ + (gx#stx-e _tl106284106358_)))) + (let ((_tl106293106382_ (let () (declare (not safe)) - (##cdr _e106033106115_))) - (_hd106032106118_ + (##cdr _e106295106377_))) + (_hd106294106380_ (let () (declare (not safe)) - (##car _e106033106115_)))) + (##car _e106295106377_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106031106120_)) + _tl106293106382_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl106007106056_)) - (___kont110289110290_ - _hd106029106110_ - _hd106020106086_ - _hd106005106046_) + _tl106269106318_)) + (___kont110551110552_ + _hd106291106372_ + _hd106282106348_ + _hd106267106308_) (let () (declare (not safe)) - (_g105914106038_))) + (_g106176106300_))) (let () (declare (not safe)) - (_g105914106038_))))) + (_g106176106300_))))) (let () (declare (not safe)) - (_g105914106038_))))) - (___match110316110317_ - (lambda (_e105967106161_ - _hd105966106164_ - _tl105965106166_ - ___splice110287110288_ - _target105968106169_ - _tl105970106171_) - (letrec ((_loop105971106174_ - (lambda (_hd105969106177_ - _arg105975106179_) + (_g106176106300_))))) + (___match110578110579_ + (lambda (_e106229106423_ + _hd106228106426_ + _tl106227106428_ + ___splice110549110550_ + _target106230106431_ + _tl106232106433_) + (letrec ((_loop106233106436_ + (lambda (_hd106231106439_ + _arg106237106441_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105969106177_)) - (let ((_e105972106182_ + _hd106231106439_)) + (let ((_e106234106444_ (let () (declare (not safe)) (gx#stx-e - _hd105969106177_)))) - (let ((_lp-tl105974106187_ + _hd106231106439_)))) + (let ((_lp-tl106236106449_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e105972106182_))) - (_lp-hd105973106185_ - (let () (declare (not safe)) (##car _e105972106182_)))) - (let ((__tmp111594 + (##cdr _e106234106444_))) + (_lp-hd106235106447_ + (let () (declare (not safe)) (##car _e106234106444_)))) + (let ((__tmp111856 (let () (declare (not safe)) - (cons _lp-hd105973106185_ _arg105975106179_)))) + (cons _lp-hd106235106447_ _arg106237106441_)))) (declare (not safe)) - (_loop105971106174_ _lp-tl105974106187_ __tmp111594)))) + (_loop106233106436_ _lp-tl106236106449_ __tmp111856)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg105976106190_ - (reverse _arg105975106179_))) + (let ((_arg106238106452_ + (reverse _arg106237106441_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105965106166_)) - (let ((_e105979106193_ + _tl106227106428_)) + (let ((_e106241106455_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl105965106166_)))) - (let ((_tl105977106198_ + (gx#stx-e _tl106227106428_)))) + (let ((_tl106239106460_ (let () (declare (not safe)) - (##cdr _e105979106193_))) - (_hd105978106196_ + (##cdr _e106241106455_))) + (_hd106240106458_ (let () (declare (not safe)) - (##car _e105979106193_)))) + (##car _e106241106455_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd105978106196_)) - (let ((_e105982106201_ + (gx#stx-pair? _hd106240106458_)) + (let ((_e106244106463_ (let () (declare (not safe)) - (gx#stx-e _hd105978106196_)))) - (let ((_tl105980106206_ + (gx#stx-e _hd106240106458_)))) + (let ((_tl106242106468_ (let () (declare (not safe)) - (##cdr _e105982106201_))) - (_hd105981106204_ + (##cdr _e106244106463_))) + (_hd106243106466_ (let () (declare (not safe)) - (##car _e105982106201_)))) + (##car _e106244106463_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd105981106204_)) + (gx#identifier? _hd106243106466_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd105981106204_)) + (gx#stx-eq? '%#call _hd106243106466_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105980106206_)) - (let ((_e105985106209_ + (gx#stx-pair? _tl106242106468_)) + (let ((_e106247106471_ (let () (declare (not safe)) (gx#stx-e - _tl105980106206_)))) - (let ((_tl105983106214_ + _tl106242106468_)))) + (let ((_tl106245106476_ (let () (declare (not safe)) - (##cdr _e105985106209_))) - (_hd105984106212_ + (##cdr _e106247106471_))) + (_hd106246106474_ (let () (declare (not safe)) - (##car _e105985106209_)))) + (##car _e106247106471_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105984106212_)) - (let ((_e105988106217_ + _hd106246106474_)) + (let ((_e106250106479_ (let () (declare (not safe)) (gx#stx-e - _hd105984106212_)))) - (let ((_tl105986106222_ + _hd106246106474_)))) + (let ((_tl106248106484_ (let () (declare (not safe)) - (##cdr _e105988106217_))) - (_hd105987106220_ + (##cdr _e106250106479_))) + (_hd106249106482_ (let () (declare (not safe)) - (##car _e105988106217_)))) + (##car _e106250106479_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd105987106220_)) + _hd106249106482_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd105987106220_)) + (gx#stx-eq? '%#ref _hd106249106482_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105986106222_)) - (let ((_e105991106225_ + (gx#stx-pair? _tl106248106484_)) + (let ((_e106253106487_ (let () (declare (not safe)) - (gx#stx-e _tl105986106222_)))) - (let ((_tl105989106230_ + (gx#stx-e _tl106248106484_)))) + (let ((_tl106251106492_ (let () (declare (not safe)) - (##cdr _e105991106225_))) - (_hd105990106228_ + (##cdr _e106253106487_))) + (_hd106252106490_ (let () (declare (not safe)) - (##car _e105991106225_)))) + (##car _e106253106487_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105989106230_)) + (gx#stx-null? _tl106251106492_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105983106214_)) - (let ((_e105994106233_ + (gx#stx-pair? _tl106245106476_)) + (let ((_e106256106495_ (let () (declare (not safe)) - (gx#stx-e _tl105983106214_)))) - (let ((_tl105992106238_ + (gx#stx-e _tl106245106476_)))) + (let ((_tl106254106500_ (let () (declare (not safe)) - (##cdr _e105994106233_))) - (_hd105993106236_ + (##cdr _e106256106495_))) + (_hd106255106498_ (let () (declare (not safe)) - (##car _e105994106233_)))) + (##car _e106256106495_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105993106236_)) - (let ((_e105997106241_ + _hd106255106498_)) + (let ((_e106259106503_ (let () (declare (not safe)) (gx#stx-e - _hd105993106236_)))) - (let ((_tl105995106246_ + _hd106255106498_)))) + (let ((_tl106257106508_ (let () (declare (not safe)) - (##cdr _e105997106241_))) - (_hd105996106244_ + (##cdr _e106259106503_))) + (_hd106258106506_ (let () (declare (not safe)) - (##car _e105997106241_)))) + (##car _e106259106503_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd105996106244_)) + _hd106258106506_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd105996106244_)) + _hd106258106506_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl105995106246_)) - (let ((_e106000106249_ + (gx#stx-pair? _tl106257106508_)) + (let ((_e106262106511_ (let () (declare (not safe)) - (gx#stx-e _tl105995106246_)))) - (let ((_tl105998106254_ + (gx#stx-e _tl106257106508_)))) + (let ((_tl106260106516_ (let () (declare (not safe)) - (##cdr _e106000106249_))) - (_hd105999106252_ + (##cdr _e106262106511_))) + (_hd106261106514_ (let () (declare (not safe)) - (##car _e106000106249_)))) + (##car _e106262106511_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105998106254_)) + (gx#stx-null? _tl106260106516_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl105977106198_)) - (___kont110285110286_ - _hd105999106252_ - _hd105990106228_ - _tl105970106171_ - _arg105976106190_) - (___match110386110387_ - _e105967106161_ - _hd105966106164_ - _tl105965106166_ - _e105979106193_ - _hd105978106196_ - _tl105977106198_ - _e105982106201_ - _hd105981106204_ - _tl105980106206_ - _e105985106209_ - _hd105984106212_ - _tl105983106214_ - _e105988106217_ - _hd105987106220_ - _tl105986106222_ - _e105991106225_ - _hd105990106228_ - _tl105989106230_ - _e105994106233_ - _hd105993106236_ - _tl105992106238_ - _e105997106241_ - _hd105996106244_ - _tl105995106246_ - _e106000106249_ - _hd105999106252_ - _tl105998106254_)) + (gx#stx-null? _tl106239106460_)) + (___kont110547110548_ + _hd106261106514_ + _hd106252106490_ + _tl106232106433_ + _arg106238106452_) + (___match110648110649_ + _e106229106423_ + _hd106228106426_ + _tl106227106428_ + _e106241106455_ + _hd106240106458_ + _tl106239106460_ + _e106244106463_ + _hd106243106466_ + _tl106242106468_ + _e106247106471_ + _hd106246106474_ + _tl106245106476_ + _e106250106479_ + _hd106249106482_ + _tl106248106484_ + _e106253106487_ + _hd106252106490_ + _tl106251106492_ + _e106256106495_ + _hd106255106498_ + _tl106254106500_ + _e106259106503_ + _hd106258106506_ + _tl106257106508_ + _e106262106511_ + _hd106261106514_ + _tl106260106516_)) (let () (declare (not safe)) - (_g105914106038_))))) - (let () (declare (not safe)) (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))))) + (_g106176106300_))))) + (let () (declare (not safe)) (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105914106038_))))) + (_g106176106300_))))) (let () (declare (not safe)) - (_g105914106038_))) + (_g106176106300_))) (let () (declare (not safe)) - (_g105914106038_))))) - (let () (declare (not safe)) (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))))) + (_g106176106300_))))) + (let () (declare (not safe)) (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105914106038_))))) + (_g106176106300_))))) (let () (declare (not safe)) - (_g105914106038_))) + (_g106176106300_))) (let () (declare (not safe)) - (_g105914106038_))) + (_g106176106300_))) (let () (declare (not safe)) - (_g105914106038_))))) - (let () (declare (not safe)) (_g105914106038_))))) - (let () (declare (not safe)) (_g105914106038_)))))))) + (_g106176106300_))))) + (let () (declare (not safe)) (_g106176106300_))))) + (let () (declare (not safe)) (_g106176106300_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop105971106174_ - _target105968106169_ + (_loop106233106436_ + _target106230106431_ '()))))) - (___match110304110305_ - (lambda (_e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_) - (letrec ((_loop105925106310_ - (lambda (_hd105923106313_ - _arg105929106315_) + (___match110566110567_ + (lambda (_e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_) + (letrec ((_loop106187106572_ + (lambda (_hd106185106575_ + _arg106191106577_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105923106313_)) - (let ((_e105926106318_ + _hd106185106575_)) + (let ((_e106188106580_ (let () (declare (not safe)) (gx#stx-e - _hd105923106313_)))) - (let ((_lp-tl105928106323_ + _hd106185106575_)))) + (let ((_lp-tl106190106585_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e105926106318_))) - (_lp-hd105927106321_ - (let () (declare (not safe)) (##car _e105926106318_)))) - (let ((__tmp111596 + (##cdr _e106188106580_))) + (_lp-hd106189106583_ + (let () (declare (not safe)) (##car _e106188106580_)))) + (let ((__tmp111858 (let () (declare (not safe)) - (cons _lp-hd105927106321_ _arg105929106315_)))) + (cons _lp-hd106189106583_ _arg106191106577_)))) (declare (not safe)) - (_loop105925106310_ _lp-tl105928106323_ __tmp111596)))) + (_loop106187106572_ _lp-tl106190106585_ __tmp111858)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg105930106326_ - (reverse _arg105929106315_))) + (let ((_arg106192106588_ + (reverse _arg106191106577_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105919106302_)) - (let ((_e105933106329_ + _tl106181106564_)) + (let ((_e106195106591_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl105919106302_)))) - (let ((_tl105931106334_ + (gx#stx-e _tl106181106564_)))) + (let ((_tl106193106596_ (let () (declare (not safe)) - (##cdr _e105933106329_))) - (_hd105932106332_ + (##cdr _e106195106591_))) + (_hd106194106594_ (let () (declare (not safe)) - (##car _e105933106329_)))) + (##car _e106195106591_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd105932106332_)) - (let ((_e105936106337_ + (gx#stx-pair? _hd106194106594_)) + (let ((_e106198106599_ (let () (declare (not safe)) - (gx#stx-e _hd105932106332_)))) - (let ((_tl105934106342_ + (gx#stx-e _hd106194106594_)))) + (let ((_tl106196106604_ (let () (declare (not safe)) - (##cdr _e105936106337_))) - (_hd105935106340_ + (##cdr _e106198106599_))) + (_hd106197106602_ (let () (declare (not safe)) - (##car _e105936106337_)))) + (##car _e106198106599_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd105935106340_)) + (gx#identifier? _hd106197106602_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd105935106340_)) + (gx#stx-eq? '%#call _hd106197106602_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105934106342_)) - (let ((_e105939106345_ + (gx#stx-pair? _tl106196106604_)) + (let ((_e106201106607_ (let () (declare (not safe)) (gx#stx-e - _tl105934106342_)))) - (let ((_tl105937106350_ + _tl106196106604_)))) + (let ((_tl106199106612_ (let () (declare (not safe)) - (##cdr _e105939106345_))) - (_hd105938106348_ + (##cdr _e106201106607_))) + (_hd106200106610_ (let () (declare (not safe)) - (##car _e105939106345_)))) + (##car _e106201106607_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105938106348_)) - (let ((_e105942106353_ + _hd106200106610_)) + (let ((_e106204106615_ (let () (declare (not safe)) (gx#stx-e - _hd105938106348_)))) - (let ((_tl105940106358_ + _hd106200106610_)))) + (let ((_tl106202106620_ (let () (declare (not safe)) - (##cdr _e105942106353_))) - (_hd105941106356_ + (##cdr _e106204106615_))) + (_hd106203106618_ (let () (declare (not safe)) - (##car _e105942106353_)))) + (##car _e106204106615_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd105941106356_)) + _hd106203106618_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd105941106356_)) + (gx#stx-eq? '%#ref _hd106203106618_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105940106358_)) - (let ((_e105945106361_ + (gx#stx-pair? _tl106202106620_)) + (let ((_e106207106623_ (let () (declare (not safe)) - (gx#stx-e _tl105940106358_)))) - (let ((_tl105943106366_ + (gx#stx-e _tl106202106620_)))) + (let ((_tl106205106628_ (let () (declare (not safe)) - (##cdr _e105945106361_))) - (_hd105944106364_ + (##cdr _e106207106623_))) + (_hd106206106626_ (let () (declare (not safe)) - (##car _e105945106361_)))) + (##car _e106207106623_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105943106366_)) + (gx#stx-null? _tl106205106628_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl105937106350_)) - (let ((___splice110283110284_ + (gx#stx-pair/null? _tl106199106612_)) + (let ((___splice110545110546_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl105937106350_ + _tl106199106612_ '0)))) - (let ((_tl105948106371_ + (let ((_tl106210106633_ (let () (declare (not safe)) (##vector-ref - ___splice110283110284_ + ___splice110545110546_ '1))) - (_target105946106369_ + (_target106208106631_ (let () (declare (not safe)) (##vector-ref - ___splice110283110284_ + ___splice110545110546_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105948106371_)) - (letrec ((_loop105949106374_ - (lambda (_hd105947106377_ + _tl106210106633_)) + (letrec ((_loop106211106636_ + (lambda (_hd106209106639_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg105953106379_) + _xarg106215106641_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd105947106377_)) - (let ((_e105950106382_ + (gx#stx-pair? _hd106209106639_)) + (let ((_e106212106644_ (let () (declare (not safe)) - (gx#stx-e _hd105947106377_)))) - (let ((_lp-tl105952106387_ + (gx#stx-e _hd106209106639_)))) + (let ((_lp-tl106214106649_ (let () (declare (not safe)) - (##cdr _e105950106382_))) - (_lp-hd105951106385_ + (##cdr _e106212106644_))) + (_lp-hd106213106647_ (let () (declare (not safe)) - (##car _e105950106382_)))) + (##car _e106212106644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd105951106385_)) - (let ((_e105957106390_ + (gx#stx-pair? _lp-hd106213106647_)) + (let ((_e106219106652_ (let () (declare (not safe)) - (gx#stx-e _lp-hd105951106385_)))) - (let ((_tl105955106395_ + (gx#stx-e _lp-hd106213106647_)))) + (let ((_tl106217106657_ (let () (declare (not safe)) - (##cdr _e105957106390_))) - (_hd105956106393_ + (##cdr _e106219106652_))) + (_hd106218106655_ (let () (declare (not safe)) - (##car _e105957106390_)))) + (##car _e106219106652_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd105956106393_)) + (gx#identifier? _hd106218106655_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd105956106393_)) + _hd106218106655_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105955106395_)) - (let ((_e105960106398_ + _tl106217106657_)) + (let ((_e106222106660_ (let () (declare (not safe)) (gx#stx-e - _tl105955106395_)))) - (let ((_tl105958106403_ + _tl106217106657_)))) + (let ((_tl106220106665_ (let () (declare (not safe)) - (##cdr _e105960106398_))) - (_hd105959106401_ + (##cdr _e106222106660_))) + (_hd106221106663_ (let () (declare (not safe)) - (##car _e105960106398_)))) + (##car _e106222106660_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105958106403_)) - (let ((__tmp111595 + _tl106220106665_)) + (let ((__tmp111857 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd105959106401_ _xarg105953106379_)))) + (cons _hd106221106663_ _xarg106215106641_)))) (declare (not safe)) - (_loop105949106374_ _lp-tl105952106387_ __tmp111595)) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) + (_loop106211106636_ _lp-tl106214106649_ __tmp111857)) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) - (let ((_xarg105954106406_ (reverse _xarg105953106379_))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) + (let ((_xarg106216106668_ (reverse _xarg106215106641_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105931106334_)) - (___kont110279110280_ - _xarg105954106406_ - _hd105944106364_ - _arg105930106326_) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_))))))) + (gx#stx-null? _tl106193106596_)) + (___kont110541110542_ + _xarg106216106668_ + _hd106206106626_ + _arg106192106588_) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop105949106374_ - _target105946106369_ + (_loop106211106636_ + _target106208106631_ '()))) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_))))))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop105925106310_ - _target105922106305_ + (_loop106187106572_ + _target106184106567_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110277110278_)) - (let ((_e105921106297_ + (gx#stx-pair? ___stx110539110540_)) + (let ((_e106183106559_ (let () (declare (not safe)) - (gx#stx-e ___stx110277110278_)))) - (let ((_tl105919106302_ + (gx#stx-e ___stx110539110540_)))) + (let ((_tl106181106564_ (let () (declare (not safe)) - (##cdr _e105921106297_))) - (_hd105920106300_ + (##cdr _e106183106559_))) + (_hd106182106562_ (let () (declare (not safe)) - (##car _e105921106297_)))) + (##car _e106183106559_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd105920106300_)) - (let ((___splice110281110282_ + (gx#stx-pair/null? _hd106182106562_)) + (let ((___splice110543110544_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd105920106300_ + _hd106182106562_ '0)))) - (let ((_tl105924106307_ + (let ((_tl106186106569_ (let () (declare (not safe)) (##vector-ref - ___splice110281110282_ + ___splice110543110544_ '1))) - (_target105922106305_ + (_target106184106567_ (let () (declare (not safe)) (##vector-ref - ___splice110281110282_ + ___splice110543110544_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105924106307_)) - (___match110304110305_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_) - (___match110316110317_ - _e105921106297_ - _hd105920106300_ - _tl105919106302_ - ___splice110281110282_ - _target105922106305_ - _tl105924106307_)))) + _tl106186106569_)) + (___match110566110567_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_) + (___match110578110579_ + _e106183106559_ + _hd106182106562_ + _tl106181106564_ + ___splice110543110544_ + _target106184106567_ + _tl106186106569_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105919106302_)) - (let ((_e106009106051_ + (gx#stx-pair? _tl106181106564_)) + (let ((_e106271106313_ (let () (declare (not safe)) (gx#stx-e - _tl105919106302_)))) - (let ((_tl106007106056_ + _tl106181106564_)))) + (let ((_tl106269106318_ (let () (declare (not safe)) - (##cdr _e106009106051_))) - (_hd106008106054_ + (##cdr _e106271106313_))) + (_hd106270106316_ (let () (declare (not safe)) - (##car _e106009106051_)))) + (##car _e106271106313_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd106008106054_)) - (let ((_e106012106059_ + _hd106270106316_)) + (let ((_e106274106321_ (let () (declare (not safe)) (gx#stx-e - _hd106008106054_)))) - (let ((_tl106010106064_ + _hd106270106316_)))) + (let ((_tl106272106326_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106012106059_))) - (_hd106011106062_ - (let () (declare (not safe)) (##car _e106012106059_)))) + (##cdr _e106274106321_))) + (_hd106273106324_ + (let () (declare (not safe)) (##car _e106274106321_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106011106062_)) + (gx#identifier? _hd106273106324_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd106011106062_)) + (gx#stx-eq? '%#call _hd106273106324_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106010106064_)) - (let ((_e106015106067_ + (gx#stx-pair? _tl106272106326_)) + (let ((_e106277106329_ (let () (declare (not safe)) - (gx#stx-e _tl106010106064_)))) - (let ((_tl106013106072_ + (gx#stx-e _tl106272106326_)))) + (let ((_tl106275106334_ (let () (declare (not safe)) - (##cdr _e106015106067_))) - (_hd106014106070_ + (##cdr _e106277106329_))) + (_hd106276106332_ (let () (declare (not safe)) - (##car _e106015106067_)))) + (##car _e106277106329_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106014106070_)) - (let ((_e106018106075_ + (gx#stx-pair? _hd106276106332_)) + (let ((_e106280106337_ (let () (declare (not safe)) - (gx#stx-e _hd106014106070_)))) - (let ((_tl106016106080_ + (gx#stx-e _hd106276106332_)))) + (let ((_tl106278106342_ (let () (declare (not safe)) - (##cdr _e106018106075_))) - (_hd106017106078_ + (##cdr _e106280106337_))) + (_hd106279106340_ (let () (declare (not safe)) - (##car _e106018106075_)))) + (##car _e106280106337_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106017106078_)) + _hd106279106340_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106017106078_)) + _hd106279106340_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106016106080_)) - (let ((_e106021106083_ + _tl106278106342_)) + (let ((_e106283106345_ (let () (declare (not safe)) (gx#stx-e - _tl106016106080_)))) - (let ((_tl106019106088_ + _tl106278106342_)))) + (let ((_tl106281106350_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106021106083_))) - (_hd106020106086_ - (let () (declare (not safe)) (##car _e106021106083_)))) + (##cdr _e106283106345_))) + (_hd106282106348_ + (let () (declare (not safe)) (##car _e106283106345_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106019106088_)) + (gx#stx-null? _tl106281106350_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106013106072_)) - (let ((_e106024106091_ + (gx#stx-pair? _tl106275106334_)) + (let ((_e106286106353_ (let () (declare (not safe)) - (gx#stx-e _tl106013106072_)))) - (let ((_tl106022106096_ + (gx#stx-e _tl106275106334_)))) + (let ((_tl106284106358_ (let () (declare (not safe)) - (##cdr _e106024106091_))) - (_hd106023106094_ + (##cdr _e106286106353_))) + (_hd106285106356_ (let () (declare (not safe)) - (##car _e106024106091_)))) + (##car _e106286106353_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd106023106094_)) - (let ((_e106027106099_ + (gx#stx-pair? _hd106285106356_)) + (let ((_e106289106361_ (let () (declare (not safe)) - (gx#stx-e _hd106023106094_)))) - (let ((_tl106025106104_ + (gx#stx-e _hd106285106356_)))) + (let ((_tl106287106366_ (let () (declare (not safe)) - (##cdr _e106027106099_))) - (_hd106026106102_ + (##cdr _e106289106361_))) + (_hd106288106364_ (let () (declare (not safe)) - (##car _e106027106099_)))) + (##car _e106289106361_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106026106102_)) + (gx#identifier? _hd106288106364_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106026106102_)) + _hd106288106364_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106025106104_)) - (let ((_e106030106107_ + _tl106287106366_)) + (let ((_e106292106369_ (let () (declare (not safe)) (gx#stx-e - _tl106025106104_)))) - (let ((_tl106028106112_ + _tl106287106366_)))) + (let ((_tl106290106374_ (let () (declare (not safe)) - (##cdr _e106030106107_))) - (_hd106029106110_ + (##cdr _e106292106369_))) + (_hd106291106372_ (let () (declare (not safe)) - (##car _e106030106107_)))) + (##car _e106292106369_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106028106112_)) + _tl106290106374_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106022106096_)) - (let ((_e106033106115_ + _tl106284106358_)) + (let ((_e106295106377_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl106022106096_)))) - (let ((_tl106031106120_ + (gx#stx-e _tl106284106358_)))) + (let ((_tl106293106382_ (let () (declare (not safe)) - (##cdr _e106033106115_))) - (_hd106032106118_ + (##cdr _e106295106377_))) + (_hd106294106380_ (let () (declare (not safe)) - (##car _e106033106115_)))) + (##car _e106295106377_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106031106120_)) + (gx#stx-null? _tl106293106382_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl106007106056_)) - (___kont110289110290_ - _hd106029106110_ - _hd106020106086_ - _hd105920106300_) + (gx#stx-null? _tl106269106318_)) + (___kont110551110552_ + _hd106291106372_ + _hd106282106348_ + _hd106182106562_) (let () (declare (not safe)) - (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))))) - (let () (declare (not safe)) (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))))) + (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))))) + (let () (declare (not safe)) (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105914106038_))) + (_g106176106300_))) (let () (declare (not safe)) - (_g105914106038_))) + (_g106176106300_))) (let () (declare (not safe)) - (_g105914106038_))))) + (_g106176106300_))))) (let () (declare (not safe)) - (_g105914106038_))))) - (let () (declare (not safe)) (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))))) + (_g106176106300_))))) + (let () (declare (not safe)) (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105914106038_))) + (_g106176106300_))) (let () (declare (not safe)) - (_g105914106038_))) + (_g106176106300_))) (let () (declare (not safe)) - (_g105914106038_))))) + (_g106176106300_))))) (let () (declare (not safe)) - (_g105914106038_))))) - (let () (declare (not safe)) (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))) - (let () (declare (not safe)) (_g105914106038_))))) + (_g106176106300_))))) + (let () (declare (not safe)) (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))) + (let () (declare (not safe)) (_g106176106300_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105914106038_))))) + (_g106176106300_))))) (let () (declare (not safe)) - (_g105914106038_)))))) + (_g106176106300_)))))) (let () (declare (not safe)) - (_g105914106038_)))))))) - (_generate1105760_ - (lambda (_args105895_ - _arglen105896_ - _hd105897_ - _body105898_) - (let* ((_len105900_ + (_g106176106300_)))))))) + (_generate1106022_ + (lambda (_args106157_ + _arglen106158_ + _hd106159_ + _body106160_) + (let* ((_len106162_ (let () (declare (not safe)) - (gx#stx-length _hd105897_))) - (_condition105902_ + (gx#stx-length _hd106159_))) + (_condition106164_ (if (let () (declare (not safe)) - (gx#stx-list? _hd105897_)) + (gx#stx-list? _hd106159_)) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111611 - (let ((__tmp111612 + (let ((__tmp111873 + (let ((__tmp111874 (let () (declare (not safe)) - (cons _len105900_ '())))) + (cons _len106162_ '())))) (declare (not safe)) - (cons _arglen105896_ - __tmp111612)))) + (cons _arglen106158_ + __tmp111874)))) (declare (not safe)) - (cons '##fx= __tmp111611)) - (let ((__tmp111605 - (let ((__tmp111606 - (let ((__tmp111607 - (let ((__tmp111608 + (cons '##fx= __tmp111873)) + (let ((__tmp111867 + (let ((__tmp111868 + (let ((__tmp111869 + (let ((__tmp111870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111609 - (let ((__tmp111610 + (let ((__tmp111871 + (let ((__tmp111872 (let () (declare (not safe)) - (cons _len105900_ '())))) + (cons _len106162_ '())))) (declare (not safe)) - (cons _arglen105896_ __tmp111610)))) + (cons _arglen106158_ __tmp111872)))) (declare (not safe)) - (cons '##fx= __tmp111609)))) + (cons '##fx= __tmp111871)))) (declare (not safe)) - (cons __tmp111608 '())))) + (cons __tmp111870 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111607)))) + (cons '(declare (not safe)) __tmp111869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp111606)))) + (cons '() __tmp111868)))) (declare (not safe)) - (cons 'let __tmp111605))) - (if (> _len105900_ '0) + (cons 'let __tmp111867))) + (if (> _len106162_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111603 - (let ((__tmp111604 + (let ((__tmp111865 + (let ((__tmp111866 (let () (declare (not safe)) - (cons _len105900_ + (cons _len106162_ '())))) (declare (not safe)) - (cons _arglen105896_ - __tmp111604)))) + (cons _arglen106158_ + __tmp111866)))) (declare (not safe)) - (cons '##fx>= __tmp111603)) - (let ((__tmp111597 - (let ((__tmp111598 - (let ((__tmp111599 - (let ((__tmp111600 + (cons '##fx>= __tmp111865)) + (let ((__tmp111859 + (let ((__tmp111860 + (let ((__tmp111861 + (let ((__tmp111862 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111601 - (let ((__tmp111602 + (let ((__tmp111863 + (let ((__tmp111864 (let () (declare (not safe)) - (cons _len105900_ '())))) + (cons _len106162_ '())))) (declare (not safe)) - (cons _arglen105896_ __tmp111602)))) + (cons _arglen106158_ __tmp111864)))) (declare (not safe)) - (cons '##fx>= __tmp111601)))) + (cons '##fx>= __tmp111863)))) (declare (not safe)) - (cons __tmp111600 '())))) + (cons __tmp111862 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111599)))) + (cons '(declare (not safe)) __tmp111861)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp111598)))) + (cons '() __tmp111860)))) (declare (not safe)) - (cons 'let __tmp111597))) + (cons 'let __tmp111859))) '#t))) - (_dispatch105904_ + (_dispatch106166_ (if (let () (declare (not safe)) - (_dispatch-case?105758_ - _hd105897_ - _body105898_)) + (_dispatch-case?106020_ + _hd106159_ + _body106160_)) (let () (declare (not safe)) - (_dispatch-case-e105759_ - _hd105897_ - _body105898_)) + (_dispatch-case-e106021_ + _hd106159_ + _body106160_)) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _hd105897_ - _body105898_))))) - (let ((__tmp111613 - (let ((__tmp111614 - (let ((__tmp111615 - (let ((__tmp111616 + _hd106159_ + _body106160_))))) + (let ((__tmp111875 + (let ((__tmp111876 + (let ((__tmp111877 + (let ((__tmp111878 (let () (declare (not safe)) - (cons _args105895_ + (cons _args106157_ '())))) (declare (not safe)) - (cons _dispatch105904_ - __tmp111616)))) + (cons _dispatch106166_ + __tmp111878)))) (declare (not safe)) - (cons 'apply __tmp111615)))) + (cons 'apply __tmp111877)))) (declare (not safe)) - (cons __tmp111614 '())))) + (cons __tmp111876 '())))) (declare (not safe)) - (cons _condition105902_ __tmp111613)))))) - (let* ((_g105762105790_ - (lambda (_g105763105787_) + (cons _condition106164_ __tmp111875)))))) + (let* ((_g106024106052_ + (lambda (_g106025106049_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105763105787_)))) - (_g105761105892_ - (lambda (_g105763105793_) + _g106025106049_)))) + (_g106023106154_ + (lambda (_g106025106055_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105763105793_)) - (let ((_e105768105795_ + (gx#stx-pair? _g106025106055_)) + (let ((_e106030106057_ (let () (declare (not safe)) - (gx#stx-e _g105763105793_)))) - (let ((_hd105767105798_ + (gx#stx-e _g106025106055_)))) + (let ((_hd106029106060_ (let () (declare (not safe)) - (##car _e105768105795_))) - (_tl105766105800_ + (##car _e106030106057_))) + (_tl106028106062_ (let () (declare (not safe)) - (##cdr _e105768105795_)))) + (##cdr _e106030106057_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl105766105800_)) - (let ((_g111617_ + (gx#stx-pair/null? _tl106028106062_)) + (let ((_g111879_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl105766105800_ + _tl106028106062_ '0)))) (begin - (let ((_g111618_ + (let ((_g111880_ (let () (declare (not safe)) - (if (##values? _g111617_) - (##vector-length _g111617_) + (if (##values? _g111879_) + (##vector-length _g111879_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111618_ 2))) + (##fx= _g111880_ 2))) (error "Context expects 2 values" - _g111618_))) - (let ((_target105769105803_ + _g111880_))) + (let ((_target106031106065_ (let () (declare (not safe)) - (##vector-ref _g111617_ 0))) - (_tl105771105805_ + (##vector-ref _g111879_ 0))) + (_tl106033106067_ (let () (declare (not safe)) - (##vector-ref _g111617_ 1)))) + (##vector-ref _g111879_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105771105805_)) - (letrec ((_loop105772105808_ - (lambda (_hd105770105811_ - _body105776105813_ - _hd105777105815_) + (gx#stx-null? _tl106033106067_)) + (letrec ((_loop106034106070_ + (lambda (_hd106032106073_ + _body106038106075_ + _hd106039106077_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105770105811_)) - (let ((_e105773105818_ + _hd106032106073_)) + (let ((_e106035106080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd105770105811_)))) - (let ((_lp-hd105774105821_ + (gx#stx-e _hd106032106073_)))) + (let ((_lp-hd106036106083_ (let () (declare (not safe)) - (##car _e105773105818_))) - (_lp-tl105775105823_ + (##car _e106035106080_))) + (_lp-tl106037106085_ (let () (declare (not safe)) - (##cdr _e105773105818_)))) + (##cdr _e106035106080_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd105774105821_)) - (let ((_e105782105826_ + (gx#stx-pair? _lp-hd106036106083_)) + (let ((_e106044106088_ (let () (declare (not safe)) - (gx#stx-e _lp-hd105774105821_)))) - (let ((_hd105781105829_ + (gx#stx-e _lp-hd106036106083_)))) + (let ((_hd106043106091_ (let () (declare (not safe)) - (##car _e105782105826_))) - (_tl105780105831_ + (##car _e106044106088_))) + (_tl106042106093_ (let () (declare (not safe)) - (##cdr _e105782105826_)))) + (##cdr _e106044106088_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105780105831_)) - (let ((_e105785105834_ + (gx#stx-pair? _tl106042106093_)) + (let ((_e106047106096_ (let () (declare (not safe)) - (gx#stx-e _tl105780105831_)))) - (let ((_hd105784105837_ + (gx#stx-e _tl106042106093_)))) + (let ((_hd106046106099_ (let () (declare (not safe)) - (##car _e105785105834_))) - (_tl105783105839_ + (##car _e106047106096_))) + (_tl106045106101_ (let () (declare (not safe)) - (##cdr _e105785105834_)))) + (##cdr _e106047106096_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105783105839_)) - (let ((__tmp111647 + (gx#stx-null? _tl106045106101_)) + (let ((__tmp111909 (let () (declare (not safe)) - (cons _hd105784105837_ - _body105776105813_))) - (__tmp111646 + (cons _hd106046106099_ + _body106038106075_))) + (__tmp111908 (let () (declare (not safe)) - (cons _hd105781105829_ - _hd105777105815_)))) + (cons _hd106043106091_ + _hd106039106077_)))) (declare (not safe)) - (_loop105772105808_ - _lp-tl105775105823_ - __tmp111647 - __tmp111646)) + (_loop106034106070_ + _lp-tl106037106085_ + __tmp111909 + __tmp111908)) (let () (declare (not safe)) - (_g105762105790_ - _g105763105793_))))) + (_g106024106052_ + _g106025106055_))))) (let () (declare (not safe)) - (_g105762105790_ _g105763105793_))))) + (_g106024106052_ _g106025106055_))))) (let () (declare (not safe)) - (_g105762105790_ _g105763105793_))))) - (let ((_body105778105842_ (reverse _body105776105813_)) - (_hd105779105844_ (reverse _hd105777105815_))) - ((lambda (_L105847_ _L105848_) - (let ((_args105867_ + (_g106024106052_ _g106025106055_))))) + (let ((_body106040106104_ (reverse _body106038106075_)) + (_hd106041106106_ (reverse _hd106039106077_))) + ((lambda (_L106109_ _L106110_) + (let ((_args106129_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_arglen105868_ + (_arglen106130_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_name105869_ - (let ((_$e105864_ - (let ((__tmp111619 + (_name106131_ + (let ((_$e106126_ + (let ((__tmp111881 (gxc#current-compile-runtime-names))) (declare (not safe)) - (hash-get __tmp111619 _stx105756_)))) - (if _$e105864_ - _$e105864_ + (hash-get __tmp111881 _stx106018_)))) + (if _$e106126_ + _$e106126_ ''case-lambda-dispatch)))) - (let ((__tmp111620 - (let ((__tmp111621 - (let ((__tmp111622 - (let ((__tmp111623 - (let ((__tmp111636 - (let ((__tmp111637 + (let ((__tmp111882 + (let ((__tmp111883 + (let ((__tmp111884 + (let ((__tmp111885 + (let ((__tmp111898 + (let ((__tmp111899 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111638 - (let ((__tmp111639 + (let ((__tmp111900 + (let ((__tmp111901 (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111645 + (let ((__tmp111907 (let () (declare (not safe)) - (cons _args105867_ + (cons _args106129_ '())))) (declare (not safe)) - (cons '##length __tmp111645)) - (let ((__tmp111640 - (let ((__tmp111641 - (let ((__tmp111642 + (cons '##length __tmp111907)) + (let ((__tmp111902 + (let ((__tmp111903 + (let ((__tmp111904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111643 - (let ((__tmp111644 + (let ((__tmp111905 + (let ((__tmp111906 (let () (declare (not safe)) - (cons _args105867_ '())))) + (cons _args106129_ '())))) (declare (not safe)) - (cons '##length __tmp111644)))) + (cons '##length __tmp111906)))) (declare (not safe)) - (cons __tmp111643 '())))) + (cons __tmp111905 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111642)))) + (cons '(declare (not safe)) __tmp111904)))) (declare (not safe)) - (cons '() __tmp111641)))) + (cons '() __tmp111903)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp111640))))) + (cons 'let __tmp111902))))) (declare (not safe)) - (cons __tmp111639 '())))) + (cons __tmp111901 '())))) (declare (not safe)) - (cons _arglen105868_ __tmp111638)))) + (cons _arglen106130_ __tmp111900)))) (declare (not safe)) - (cons __tmp111637 '()))) - (__tmp111624 - (let ((__tmp111625 - (let ((__tmp111626 - (let ((__tmp111630 - (let ((__tmp111631 - (let ((__tmp111632 - (let ((__tmp111633 - (let ((__tmp111634 + (cons __tmp111899 '()))) + (__tmp111886 + (let ((__tmp111887 + (let ((__tmp111888 + (let ((__tmp111892 + (let ((__tmp111893 + (let ((__tmp111894 + (let ((__tmp111895 + (let ((__tmp111896 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111635 + (let ((__tmp111897 (let () (declare (not safe)) - (cons _args105867_ '())))) + (cons _args106129_ '())))) (declare (not safe)) - (cons _name105869_ __tmp111635)))) + (cons _name106131_ __tmp111897)))) (declare (not safe)) (cons '##raise-wrong-number-of-arguments-exception - __tmp111634)))) + __tmp111896)))) (declare (not safe)) - (cons __tmp111633 '())))) + (cons __tmp111895 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'else __tmp111632)))) + (cons 'else __tmp111894)))) (declare (not safe)) - (cons __tmp111631 '()))) - (__tmp111627 - (map (lambda (_g105870105873_ - _g105871105875_) + (cons __tmp111893 '()))) + (__tmp111889 + (map (lambda (_g106132106135_ + _g106133106137_) (let () (declare (not safe)) - (_generate1105760_ - _args105867_ - _arglen105868_ - _g105870105873_ - _g105871105875_))) - (let ((__tmp111628 - (lambda (_g105877105880_ - _g105878105882_) + (_generate1106022_ + _args106129_ + _arglen106130_ + _g106132106135_ + _g106133106137_))) + (let ((__tmp111890 + (lambda (_g106139106142_ + _g106140106144_) (let () (declare (not safe)) - (cons _g105877105880_ + (cons _g106139106142_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g105878105882_))))) + _g106140106144_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111628 + (foldr1 __tmp111890 '() - _L105848_)) - (let ((__tmp111629 - (lambda (_g105884105887_ - _g105885105889_) + _L106110_)) + (let ((__tmp111891 + (lambda (_g106146106149_ + _g106147106151_) (let () (declare (not safe)) - (cons _g105884105887_ + (cons _g106146106149_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g105885105889_))))) + _g106147106151_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp111629 + (foldr1 __tmp111891 '() - _L105847_))))) + _L106109_))))) (declare (not safe)) - (foldr1 cons __tmp111630 __tmp111627)))) + (foldr1 cons __tmp111892 __tmp111889)))) (declare (not safe)) - (cons 'cond __tmp111626)))) + (cons 'cond __tmp111888)))) (declare (not safe)) - (cons __tmp111625 '())))) + (cons __tmp111887 '())))) (declare (not safe)) - (cons __tmp111636 __tmp111624)))) + (cons __tmp111898 __tmp111886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp111623)))) + (cons 'let __tmp111885)))) (declare (not safe)) - (cons __tmp111622 '())))) + (cons __tmp111884 '())))) (declare (not safe)) - (cons _args105867_ __tmp111621)))) + (cons _args106129_ __tmp111883)))) (declare (not safe)) - (cons 'lambda __tmp111620)))) - _body105778105842_ - _hd105779105844_)))))) + (cons 'lambda __tmp111882)))) + _body106040106104_ + _hd106041106106_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop105772105808_ - _target105769105803_ + (_loop106034106070_ + _target106031106065_ '() '()))) (let () (declare (not safe)) - (_g105762105790_ - _g105763105793_)))))) + (_g106024106052_ + _g106025106055_)))))) (let () (declare (not safe)) - (_g105762105790_ _g105763105793_))))) + (_g106024106052_ _g106025106055_))))) (let () (declare (not safe)) - (_g105762105790_ _g105763105793_)))))) + (_g106024106052_ _g106025106055_)))))) (declare (not safe)) - (_g105761105892_ _stx105756_))))) + (_g106023106154_ _stx106018_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_stx105030_ _compiled-body?105031_) - (letrec ((_generate-simple105033_ - (lambda (_hd105743_ _body105744_) - (let ((__tmp111648 - (let ((__tmp111649 + (lambda (_stx105292_ _compiled-body?105293_) + (letrec ((_generate-simple105295_ + (lambda (_hd106005_ _body106006_) + (let ((__tmp111910 + (let ((__tmp111911 (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'let - _hd105743_ - _body105744_ - _compiled-body?105031_)))) + _hd106005_ + _body106006_ + _compiled-body?105293_)))) (declare (not safe)) - (_coalesce-let*105035_ __tmp111649)))) + (_coalesce-let*105297_ __tmp111911)))) (declare (not safe)) - (_coalesce-boolean105034_ __tmp111648)))) - (_coalesce-boolean105034_ - (lambda (_code105604_) + (_coalesce-boolean105296_ __tmp111910)))) + (_coalesce-boolean105296_ + (lambda (_code105866_) (if (gxc#current-compile-boolean-context) - (let* ((_code105605105631_ _code105604_) - (_else105607105639_ (lambda () _code105604_)) - (_K105609105676_ - (lambda (_expr2105642_ - _expr1105643_ - _id105644_) - (let* ((_expr2105645105653_ _expr2105642_) - (_else105647105661_ + (let* ((_code105867105893_ _code105866_) + (_else105869105901_ (lambda () _code105866_)) + (_K105871105938_ + (lambda (_expr2105904_ + _expr1105905_ + _id105906_) + (let* ((_expr2105907105915_ _expr2105904_) + (_else105909105923_ (lambda () - (let ((__tmp111650 - (let ((__tmp111651 + (let ((__tmp111912 + (let ((__tmp111913 (let () (declare (not safe)) - (cons _expr2105642_ + (cons _expr2105904_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _expr1105643_ __tmp111651)))) + (cons _expr1105905_ __tmp111913)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'or __tmp111650)))) - (_K105649105666_ - (lambda (_exprs105664_) - (let ((__tmp111652 + (cons 'or __tmp111912)))) + (_K105911105928_ + (lambda (_exprs105926_) + (let ((__tmp111914 (let () (declare (not safe)) - (cons _expr1105643_ - _exprs105664_)))) + (cons _expr1105905_ + _exprs105926_)))) (declare (not safe)) - (cons 'or __tmp111652))))) + (cons 'or __tmp111914))))) (if (let () (declare (not safe)) - (##pair? _expr2105645105653_)) - (let ((_hd105650105669_ + (##pair? _expr2105907105915_)) + (let ((_hd105912105931_ (let () (declare (not safe)) - (##car _expr2105645105653_))) - (_tl105651105671_ + (##car _expr2105907105915_))) + (_tl105913105933_ (let () (declare (not safe)) - (##cdr _expr2105645105653_)))) + (##cdr _expr2105907105915_)))) (if (let () (declare (not safe)) - (##eq? _hd105650105669_ 'or)) - (let ((_exprs105674_ - _tl105651105671_)) + (##eq? _hd105912105931_ 'or)) + (let ((_exprs105936_ + _tl105913105933_)) (declare (not safe)) - (_K105649105666_ - _exprs105674_)) + (_K105911105928_ + _exprs105936_)) (let () (declare (not safe)) - (_else105647105661_)))) + (_else105909105923_)))) (let () (declare (not safe)) - (_else105647105661_))))))) + (_else105909105923_))))))) (if (let () (declare (not safe)) - (##pair? _code105605105631_)) - (let ((_hd105610105679_ + (##pair? _code105867105893_)) + (let ((_hd105872105941_ (let () (declare (not safe)) - (##car _code105605105631_))) - (_tl105611105681_ + (##car _code105867105893_))) + (_tl105873105943_ (let () (declare (not safe)) - (##cdr _code105605105631_)))) + (##cdr _code105867105893_)))) (if (let () (declare (not safe)) - (##eq? _hd105610105679_ 'let)) + (##eq? _hd105872105941_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl105611105681_)) - (let ((_hd105612105684_ + (##pair? _tl105873105943_)) + (let ((_hd105874105946_ (let () (declare (not safe)) - (##car _tl105611105681_))) - (_tl105613105686_ + (##car _tl105873105943_))) + (_tl105875105948_ (let () (declare (not safe)) - (##cdr _tl105611105681_)))) + (##cdr _tl105873105943_)))) (if (let () (declare (not safe)) - (##pair? _hd105612105684_)) - (let ((_hd105624105689_ + (##pair? _hd105874105946_)) + (let ((_hd105886105951_ (let () (declare (not safe)) - (##car _hd105612105684_))) - (_tl105625105691_ + (##car _hd105874105946_))) + (_tl105887105953_ (let () (declare (not safe)) - (##cdr _hd105612105684_)))) + (##cdr _hd105874105946_)))) (if (let () (declare (not safe)) - (##pair? _hd105624105689_)) - (let ((_hd105626105694_ + (##pair? _hd105886105951_)) + (let ((_hd105888105956_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd105624105689_))) - (_tl105627105696_ - (let () (declare (not safe)) (##cdr _hd105624105689_)))) - (let ((_id105699_ _hd105626105694_)) - (if (let () (declare (not safe)) (##pair? _tl105627105696_)) - (let ((_hd105628105701_ + (##car _hd105886105951_))) + (_tl105889105958_ + (let () (declare (not safe)) (##cdr _hd105886105951_)))) + (let ((_id105961_ _hd105888105956_)) + (if (let () (declare (not safe)) (##pair? _tl105889105958_)) + (let ((_hd105890105963_ (let () (declare (not safe)) - (##car _tl105627105696_))) - (_tl105629105703_ + (##car _tl105889105958_))) + (_tl105891105965_ (let () (declare (not safe)) - (##cdr _tl105627105696_)))) - (let ((_expr1105706_ _hd105628105701_)) + (##cdr _tl105889105958_)))) + (let ((_expr1105968_ _hd105890105963_)) (if (let () (declare (not safe)) - (##null? _tl105629105703_)) + (##null? _tl105891105965_)) (if (let () (declare (not safe)) - (##null? _tl105625105691_)) + (##null? _tl105887105953_)) (if (let () (declare (not safe)) - (##pair? _tl105613105686_)) - (let ((_hd105614105708_ + (##pair? _tl105875105948_)) + (let ((_hd105876105970_ (let () (declare (not safe)) - (##car _tl105613105686_))) - (_tl105615105710_ + (##car _tl105875105948_))) + (_tl105877105972_ (let () (declare (not safe)) - (##cdr _tl105613105686_)))) + (##cdr _tl105875105948_)))) (if (let () (declare (not safe)) - (##pair? _hd105614105708_)) - (let ((_hd105616105713_ + (##pair? _hd105876105970_)) + (let ((_hd105878105975_ (let () (declare (not safe)) - (##car _hd105614105708_))) - (_tl105617105715_ + (##car _hd105876105970_))) + (_tl105879105977_ (let () (declare (not safe)) - (##cdr _hd105614105708_)))) + (##cdr _hd105876105970_)))) (if (let () (declare (not safe)) - (##eq? _hd105616105713_ + (##eq? _hd105878105975_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl105617105715_)) - (let ((_hd105618105718_ + (##pair? _tl105879105977_)) + (let ((_hd105880105980_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl105617105715_))) - (_tl105619105720_ - (let () (declare (not safe)) (##cdr _tl105617105715_)))) - (if ((lambda (_g105722105724_) + (##car _tl105879105977_))) + (_tl105881105982_ + (let () (declare (not safe)) (##cdr _tl105879105977_)))) + (if ((lambda (_g105984105986_) (let () (declare (not safe)) - (eq? _g105722105724_ _id105699_))) - _hd105618105718_) + (eq? _g105984105986_ _id105961_))) + _hd105880105980_) (if (let () (declare (not safe)) - (##pair? _tl105619105720_)) - (let ((_hd105620105727_ + (##pair? _tl105881105982_)) + (let ((_hd105882105989_ (let () (declare (not safe)) - (##car _tl105619105720_))) - (_tl105621105729_ + (##car _tl105881105982_))) + (_tl105883105991_ (let () (declare (not safe)) - (##cdr _tl105619105720_)))) - (if ((lambda (_g105731105733_) + (##cdr _tl105881105982_)))) + (if ((lambda (_g105993105995_) (let () (declare (not safe)) - (eq? _g105731105733_ _id105699_))) - _hd105620105727_) + (eq? _g105993105995_ _id105961_))) + _hd105882105989_) (if (let () (declare (not safe)) - (##pair? _tl105621105729_)) - (let ((_hd105622105736_ + (##pair? _tl105883105991_)) + (let ((_hd105884105998_ (let () (declare (not safe)) - (##car _tl105621105729_))) - (_tl105623105738_ + (##car _tl105883105991_))) + (_tl105885106000_ (let () (declare (not safe)) - (##cdr _tl105621105729_)))) - (let ((_expr2105741_ _hd105622105736_)) + (##cdr _tl105883105991_)))) + (let ((_expr2106003_ _hd105884105998_)) (if (let () (declare (not safe)) - (##null? _tl105623105738_)) + (##null? _tl105885106000_)) (if (let () (declare (not safe)) - (##null? _tl105615105710_)) + (##null? _tl105877105972_)) (let () (declare (not safe)) - (_K105609105676_ - _expr2105741_ - _expr1105706_ - _id105699_)) + (_K105871105938_ + _expr2106003_ + _expr1105968_ + _id105961_)) (let () (declare (not safe)) - (_else105607105639_))) + (_else105869105901_))) (let () (declare (not safe)) - (_else105607105639_))))) + (_else105869105901_))))) (let () (declare (not safe)) - (_else105607105639_))) + (_else105869105901_))) (let () (declare (not safe)) - (_else105607105639_)))) - (let () (declare (not safe)) (_else105607105639_))) - (let () (declare (not safe)) (_else105607105639_)))) - (let () (declare (not safe)) (_else105607105639_))) + (_else105869105901_)))) + (let () (declare (not safe)) (_else105869105901_))) + (let () (declare (not safe)) (_else105869105901_)))) + (let () (declare (not safe)) (_else105869105901_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105607105639_)))) + (_else105869105901_)))) (let () (declare (not safe)) - (_else105607105639_)))) + (_else105869105901_)))) (let () (declare (not safe)) - (_else105607105639_))) + (_else105869105901_))) (let () (declare (not safe)) - (_else105607105639_))) + (_else105869105901_))) (let () (declare (not safe)) - (_else105607105639_))))) - (let () (declare (not safe)) (_else105607105639_))))) - (let () (declare (not safe)) (_else105607105639_)))) + (_else105869105901_))))) + (let () (declare (not safe)) (_else105869105901_))))) + (let () (declare (not safe)) (_else105869105901_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105607105639_)))) + (_else105869105901_)))) (let () (declare (not safe)) - (_else105607105639_))) + (_else105869105901_))) (let () (declare (not safe)) - (_else105607105639_)))) + (_else105869105901_)))) (let () (declare (not safe)) - (_else105607105639_)))) - _code105604_))) - (_coalesce-let*105035_ - (lambda (_code105337_) - (let* ((_code105338105402_ _code105337_) - (_else105342105410_ (lambda () _code105337_))) - (let ((_K105384105555_ - (lambda (_body105551_ _expr105552_ _id105553_) - (let ((__tmp111653 - (let ((__tmp111654 - (let ((__tmp111655 - (let ((__tmp111656 + (_else105869105901_)))) + _code105866_))) + (_coalesce-let*105297_ + (lambda (_code105599_) + (let* ((_code105600105664_ _code105599_) + (_else105604105672_ (lambda () _code105599_))) + (let ((_K105646105817_ + (lambda (_body105813_ _expr105814_ _id105815_) + (let ((__tmp111915 + (let ((__tmp111916 + (let ((__tmp111917 + (let ((__tmp111918 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr105552_ '())))) + (cons _expr105814_ '())))) (declare (not safe)) - (cons _id105553_ __tmp111656)))) + (cons _id105815_ __tmp111918)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111655 '())))) + (cons __tmp111917 '())))) (declare (not safe)) - (cons __tmp111654 _body105551_)))) + (cons __tmp111916 _body105813_)))) (declare (not safe)) - (cons 'let __tmp111653)))) - (_K105361105480_ - (lambda (_body105474_ - _expr2105475_ - _id2105476_ - _expr1105477_ - _id1105478_) - (let ((__tmp111657 - (let ((__tmp111658 - (let ((__tmp111662 - (let ((__tmp111663 + (cons 'let __tmp111915)))) + (_K105623105742_ + (lambda (_body105736_ + _expr2105737_ + _id2105738_ + _expr1105739_ + _id1105740_) + (let ((__tmp111919 + (let ((__tmp111920 + (let ((__tmp111924 + (let ((__tmp111925 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1105477_ '())))) + (cons _expr1105739_ '())))) (declare (not safe)) - (cons _id1105478_ __tmp111663))) + (cons _id1105740_ __tmp111925))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111659 - (let ((__tmp111660 - (let ((__tmp111661 + (__tmp111921 + (let ((__tmp111922 + (let ((__tmp111923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr2105475_ '())))) + (cons _expr2105737_ '())))) (declare (not safe)) - (cons _id2105476_ __tmp111661)))) + (cons _id2105738_ __tmp111923)))) (declare (not safe)) - (cons __tmp111660 '())))) + (cons __tmp111922 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111662 - __tmp111659)))) + (cons __tmp111924 + __tmp111921)))) (declare (not safe)) - (cons __tmp111658 _body105474_)))) + (cons __tmp111920 _body105736_)))) (declare (not safe)) - (cons 'let* __tmp111657)))) - (_K105344105419_ - (lambda (_body105414_ - _bind105415_ - _expr1105416_ - _id1105417_) - (let ((__tmp111664 - (let ((__tmp111665 - (let ((__tmp111666 - (let ((__tmp111667 + (cons 'let* __tmp111919)))) + (_K105606105681_ + (lambda (_body105676_ + _bind105677_ + _expr1105678_ + _id1105679_) + (let ((__tmp111926 + (let ((__tmp111927 + (let ((__tmp111928 + (let ((__tmp111929 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1105416_ '())))) + (cons _expr1105678_ '())))) (declare (not safe)) - (cons _id1105417_ __tmp111667)))) + (cons _id1105679_ __tmp111929)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111666 - _bind105415_)))) + (cons __tmp111928 + _bind105677_)))) (declare (not safe)) - (cons __tmp111665 _body105414_)))) + (cons __tmp111927 _body105676_)))) (declare (not safe)) - (cons 'let* __tmp111664))))) + (cons 'let* __tmp111926))))) (if (let () (declare (not safe)) - (##pair? _code105338105402_)) - (let ((_tl105386105560_ + (##pair? _code105600105664_)) + (let ((_tl105648105822_ (let () (declare (not safe)) - (##cdr _code105338105402_))) - (_hd105385105558_ + (##cdr _code105600105664_))) + (_hd105647105820_ (let () (declare (not safe)) - (##car _code105338105402_)))) + (##car _code105600105664_)))) (if (let () (declare (not safe)) - (##eq? _hd105385105558_ 'let)) + (##eq? _hd105647105820_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl105386105560_)) - (let ((_tl105388105565_ + (##pair? _tl105648105822_)) + (let ((_tl105650105827_ (let () (declare (not safe)) - (##cdr _tl105386105560_))) - (_hd105387105563_ + (##cdr _tl105648105822_))) + (_hd105649105825_ (let () (declare (not safe)) - (##car _tl105386105560_)))) + (##car _tl105648105822_)))) (if (let () (declare (not safe)) - (##pair? _hd105387105563_)) - (let ((_tl105396105570_ + (##pair? _hd105649105825_)) + (let ((_tl105658105832_ (let () (declare (not safe)) - (##cdr _hd105387105563_))) - (_hd105395105568_ + (##cdr _hd105649105825_))) + (_hd105657105830_ (let () (declare (not safe)) - (##car _hd105387105563_)))) + (##car _hd105649105825_)))) (if (let () (declare (not safe)) - (##pair? _hd105395105568_)) - (let ((_tl105398105575_ + (##pair? _hd105657105830_)) + (let ((_tl105660105837_ (let () (declare (not safe)) - (##cdr _hd105395105568_))) - (_hd105397105573_ + (##cdr _hd105657105830_))) + (_hd105659105835_ (let () (declare (not safe)) - (##car _hd105395105568_)))) + (##car _hd105657105830_)))) (if (let () (declare (not safe)) - (##pair? _tl105398105575_)) - (let ((_tl105400105582_ + (##pair? _tl105660105837_)) + (let ((_tl105662105844_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl105398105575_))) - (_hd105399105580_ + (##cdr _tl105660105837_))) + (_hd105661105842_ (let () (declare (not safe)) - (##car _tl105398105575_)))) + (##car _tl105660105837_)))) (if (let () (declare (not safe)) - (##null? _tl105400105582_)) + (##null? _tl105662105844_)) (if (let () (declare (not safe)) - (##null? _tl105396105570_)) + (##null? _tl105658105832_)) (if (let () (declare (not safe)) - (##pair? _tl105388105565_)) - (let ((_tl105390105589_ + (##pair? _tl105650105827_)) + (let ((_tl105652105851_ (let () (declare (not safe)) - (##cdr _tl105388105565_))) - (_hd105389105587_ + (##cdr _tl105650105827_))) + (_hd105651105849_ (let () (declare (not safe)) - (##car _tl105388105565_)))) + (##car _tl105650105827_)))) (if (let () (declare (not safe)) - (##pair? _hd105389105587_)) - (let ((_tl105392105594_ + (##pair? _hd105651105849_)) + (let ((_tl105654105856_ (let () (declare (not safe)) - (##cdr _hd105389105587_))) - (_hd105391105592_ + (##cdr _hd105651105849_))) + (_hd105653105854_ (let () (declare (not safe)) - (##car _hd105389105587_)))) + (##car _hd105651105849_)))) (if (let () (declare (not safe)) - (##eq? _hd105391105592_ 'let)) + (##eq? _hd105653105854_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl105392105594_)) - (let ((_tl105394105599_ + (##pair? _tl105654105856_)) + (let ((_tl105656105861_ (let () (declare (not safe)) - (##cdr _tl105392105594_))) - (_hd105393105597_ + (##cdr _tl105654105856_))) + (_hd105655105859_ (let () (declare (not safe)) - (##car _tl105392105594_)))) + (##car _tl105654105856_)))) (if (let () (declare (not safe)) - (##null? _hd105393105597_)) + (##null? _hd105655105859_)) (if (let () (declare (not safe)) - (##null? _tl105390105589_)) - (let ((_id105578_ + (##null? _tl105652105851_)) + (let ((_id105840_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd105397105573_) - (_expr105585_ _hd105399105580_) - (_body105602_ _tl105394105599_)) + _hd105659105835_) + (_expr105847_ _hd105661105842_) + (_body105864_ _tl105656105861_)) (let () (declare (not safe)) - (_K105384105555_ _body105602_ _expr105585_ _id105578_))) - (let () (declare (not safe)) (_else105342105410_))) - (if (let () (declare (not safe)) (##pair? _hd105393105597_)) - (let ((_tl105373105529_ + (_K105646105817_ _body105864_ _expr105847_ _id105840_))) + (let () (declare (not safe)) (_else105604105672_))) + (if (let () (declare (not safe)) (##pair? _hd105655105859_)) + (let ((_tl105635105791_ (let () (declare (not safe)) - (##cdr _hd105393105597_))) - (_hd105372105527_ + (##cdr _hd105655105859_))) + (_hd105634105789_ (let () (declare (not safe)) - (##car _hd105393105597_)))) + (##car _hd105655105859_)))) (if (let () (declare (not safe)) - (##pair? _hd105372105527_)) - (let ((_tl105375105534_ + (##pair? _hd105634105789_)) + (let ((_tl105637105796_ (let () (declare (not safe)) - (##cdr _hd105372105527_))) - (_hd105374105532_ + (##cdr _hd105634105789_))) + (_hd105636105794_ (let () (declare (not safe)) - (##car _hd105372105527_)))) + (##car _hd105634105789_)))) (if (let () (declare (not safe)) - (##pair? _tl105375105534_)) - (let ((_tl105377105541_ + (##pair? _tl105637105796_)) + (let ((_tl105639105803_ (let () (declare (not safe)) - (##cdr _tl105375105534_))) - (_hd105376105539_ + (##cdr _tl105637105796_))) + (_hd105638105801_ (let () (declare (not safe)) - (##car _tl105375105534_)))) + (##car _tl105637105796_)))) (if (let () (declare (not safe)) - (##null? _tl105377105541_)) + (##null? _tl105639105803_)) (if (let () (declare (not safe)) - (##null? _tl105373105529_)) + (##null? _tl105635105791_)) (if (let () (declare (not safe)) - (##null? _tl105390105589_)) - (let ((_id1105503_ - _hd105397105573_) - (_expr1105510_ - _hd105399105580_) - (_id2105537_ - _hd105374105532_) - (_expr2105544_ - _hd105376105539_) - (_body105546_ - _tl105394105599_)) + (##null? _tl105652105851_)) + (let ((_id1105765_ + _hd105659105835_) + (_expr1105772_ + _hd105661105842_) + (_id2105799_ + _hd105636105794_) + (_expr2105806_ + _hd105638105801_) + (_body105808_ + _tl105656105861_)) (let () (declare (not safe)) - (_K105361105480_ - _body105546_ - _expr2105544_ - _id2105537_ - _expr1105510_ - _id1105503_))) + (_K105623105742_ + _body105808_ + _expr2105806_ + _id2105799_ + _expr1105772_ + _id1105765_))) (let () (declare (not safe)) - (_else105342105410_))) + (_else105604105672_))) (let () (declare (not safe)) - (_else105342105410_))) + (_else105604105672_))) (let () (declare (not safe)) - (_else105342105410_)))) + (_else105604105672_)))) (let () (declare (not safe)) - (_else105342105410_)))) - (let () (declare (not safe)) (_else105342105410_)))) - (let () (declare (not safe)) (_else105342105410_))))) + (_else105604105672_)))) + (let () (declare (not safe)) (_else105604105672_)))) + (let () (declare (not safe)) (_else105604105672_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105342105410_))) + (_else105604105672_))) (if (let () (declare (not safe)) - (##eq? _hd105391105592_ + (##eq? _hd105653105854_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl105392105594_)) - (let ((_tl105354105463_ + (##pair? _tl105654105856_)) + (let ((_tl105616105725_ (let () (declare (not safe)) - (##cdr _tl105392105594_))) - (_hd105353105461_ + (##cdr _tl105654105856_))) + (_hd105615105723_ (let () (declare (not safe)) - (##car _tl105392105594_)))) + (##car _tl105654105856_)))) (if (let () (declare (not safe)) - (##null? _tl105390105589_)) - (let ((_id1105442_ + (##null? _tl105652105851_)) + (let ((_id1105704_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd105397105573_) - (_expr1105449_ _hd105399105580_) - (_bind105466_ _hd105353105461_) - (_body105468_ _tl105354105463_)) + _hd105659105835_) + (_expr1105711_ _hd105661105842_) + (_bind105728_ _hd105615105723_) + (_body105730_ _tl105616105725_)) (let () (declare (not safe)) - (_K105344105419_ - _body105468_ - _bind105466_ - _expr1105449_ - _id1105442_))) - (let () (declare (not safe)) (_else105342105410_)))) + (_K105606105681_ + _body105730_ + _bind105728_ + _expr1105711_ + _id1105704_))) + (let () (declare (not safe)) (_else105604105672_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105342105410_))) + (_else105604105672_))) (let () (declare (not safe)) - (_else105342105410_))))) + (_else105604105672_))))) (let () (declare (not safe)) - (_else105342105410_)))) + (_else105604105672_)))) (let () (declare (not safe)) - (_else105342105410_))) - (let () (declare (not safe)) (_else105342105410_))) - (let () (declare (not safe)) (_else105342105410_)))) - (let () (declare (not safe)) (_else105342105410_)))) + (_else105604105672_))) + (let () (declare (not safe)) (_else105604105672_))) + (let () (declare (not safe)) (_else105604105672_)))) + (let () (declare (not safe)) (_else105604105672_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else105342105410_)))) + (_else105604105672_)))) (let () (declare (not safe)) - (_else105342105410_)))) + (_else105604105672_)))) (let () (declare (not safe)) - (_else105342105410_))) + (_else105604105672_))) (let () (declare (not safe)) - (_else105342105410_)))) + (_else105604105672_)))) (let () (declare (not safe)) - (_else105342105410_))))))) - (_generate-values105036_ - (lambda (_hd105150_ _body105151_) - (let _lp105153_ ((_rest105155_ _hd105150_) - (_bind105156_ '()) - (_check105157_ '()) - (_post105158_ '())) - (let* ((___stx110588110589_ _rest105155_) - (_g105161105172_ + (_else105604105672_))))))) + (_generate-values105298_ + (lambda (_hd105412_ _body105413_) + (let _lp105415_ ((_rest105417_ _hd105412_) + (_bind105418_ '()) + (_check105419_ '()) + (_post105420_ '())) + (let* ((___stx110850110851_ _rest105417_) + (_g105423105434_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110588110589_))))) - (let ((___kont110590110591_ - (lambda (_L105199_ _L105200_) - (let* ((___stx110544110545_ _L105200_) - (_g105215105240_ + ___stx110850110851_))))) + (let ((___kont110852110853_ + (lambda (_L105461_ _L105462_) + (let* ((___stx110806110807_ _L105462_) + (_g105477105502_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110544110545_))))) - (let ((___kont110546110547_ - (lambda (_L105313_ _L105314_) - (let ((_eid105328_ + ___stx110806110807_))))) + (let ((___kont110808110809_ + (lambda (_L105575_ _L105576_) + (let ((_eid105590_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L105314_))) - (_expr105329_ + _L105576_))) + (_expr105591_ (let () (declare (not safe)) (gxc#compile-e__0 - _L105313_)))) - (let ((__tmp111668 - (let ((__tmp111669 - (let ((__tmp111670 + _L105575_)))) + (let ((__tmp111930 + (let ((__tmp111931 + (let ((__tmp111932 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr105329_ '())))) + (cons _expr105591_ '())))) (declare (not safe)) - (cons _eid105328_ __tmp111670)))) + (cons _eid105590_ __tmp111932)))) (declare (not safe)) - (cons __tmp111669 _bind105156_)))) + (cons __tmp111931 _bind105418_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp105153_ - _L105199_ - __tmp111668 - _check105157_ - _post105158_))))) - (___kont110548110549_ - (lambda (_L105261_ _L105262_) - (let* ((_vals105275_ + (_lp105415_ + _L105461_ + __tmp111930 + _check105419_ + _post105420_))))) + (___kont110810110811_ + (lambda (_L105523_ _L105524_) + (let* ((_vals105537_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values105277_ + (_check-values105539_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals105275_ - _L105262_ - _L105261_))) - (_refs105279_ + _vals105537_ + _L105524_ + _L105523_))) + (_refs105541_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals105275_ - _L105262_))) - (_expr105281_ + _vals105537_ + _L105524_))) + (_expr105543_ (let () (declare (not safe)) (gxc#compile-e__0 - _L105261_)))) - (let ((__tmp111673 - (let ((__tmp111674 - (let ((__tmp111675 + _L105523_)))) + (let ((__tmp111935 + (let ((__tmp111936 + (let ((__tmp111937 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr105281_ '())))) + (cons _expr105543_ '())))) (declare (not safe)) - (cons _vals105275_ __tmp111675)))) + (cons _vals105537_ __tmp111937)))) (declare (not safe)) - (cons __tmp111674 _bind105156_))) - (__tmp111672 + (cons __tmp111936 _bind105418_))) + (__tmp111934 (let () (declare (not safe)) - (cons _check-values105277_ _check105157_))) - (__tmp111671 - (let () (declare (not safe)) (cons _refs105279_ _post105158_)))) + (cons _check-values105539_ _check105419_))) + (__tmp111933 + (let () (declare (not safe)) (cons _refs105541_ _post105420_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp105153_ - _L105199_ - __tmp111673 - __tmp111672 - __tmp111671)))))) + (_lp105415_ + _L105461_ + __tmp111935 + __tmp111934 + __tmp111933)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx110544110545_)) - (let ((_e105221105289_ + ___stx110806110807_)) + (let ((_e105483105551_ (let () (declare (not safe)) (gx#stx-e - ___stx110544110545_)))) - (let ((_tl105219105294_ + ___stx110806110807_)))) + (let ((_tl105481105556_ (let () (declare (not safe)) - (##cdr _e105221105289_))) - (_hd105220105292_ + (##cdr _e105483105551_))) + (_hd105482105554_ (let () (declare (not safe)) - (##car _e105221105289_)))) + (##car _e105483105551_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd105220105292_)) - (let ((_e105224105297_ + _hd105482105554_)) + (let ((_e105486105559_ (let () (declare (not safe)) (gx#stx-e - _hd105220105292_)))) - (let ((_tl105222105302_ + _hd105482105554_)))) + (let ((_tl105484105564_ (let () (declare (not safe)) - (##cdr _e105224105297_))) - (_hd105223105300_ + (##cdr _e105486105559_))) + (_hd105485105562_ (let () (declare (not safe)) - (##car _e105224105297_)))) + (##car _e105486105559_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105222105302_)) + _tl105484105564_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl105219105294_)) - (let ((_e105227105305_ + (gx#stx-pair? _tl105481105556_)) + (let ((_e105489105567_ (let () (declare (not safe)) - (gx#stx-e _tl105219105294_)))) - (let ((_tl105225105310_ + (gx#stx-e _tl105481105556_)))) + (let ((_tl105487105572_ (let () (declare (not safe)) - (##cdr _e105227105305_))) - (_hd105226105308_ + (##cdr _e105489105567_))) + (_hd105488105570_ (let () (declare (not safe)) - (##car _e105227105305_)))) + (##car _e105489105567_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105225105310_)) - (___kont110546110547_ - _hd105226105308_ - _hd105223105300_) + (gx#stx-null? _tl105487105572_)) + (___kont110808110809_ + _hd105488105570_ + _hd105485105562_) (let () (declare (not safe)) - (_g105215105240_))))) - (let () (declare (not safe)) (_g105215105240_))) + (_g105477105502_))))) + (let () (declare (not safe)) (_g105477105502_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105219105294_)) - (let ((_e105235105253_ + (gx#stx-pair? _tl105481105556_)) + (let ((_e105497105515_ (let () (declare (not safe)) - (gx#stx-e _tl105219105294_)))) - (let ((_tl105233105258_ + (gx#stx-e _tl105481105556_)))) + (let ((_tl105495105520_ (let () (declare (not safe)) - (##cdr _e105235105253_))) - (_hd105234105256_ + (##cdr _e105497105515_))) + (_hd105496105518_ (let () (declare (not safe)) - (##car _e105235105253_)))) + (##car _e105497105515_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105233105258_)) - (___kont110548110549_ - _hd105234105256_ - _hd105220105292_) + (gx#stx-null? _tl105495105520_)) + (___kont110810110811_ + _hd105496105518_ + _hd105482105554_) (let () (declare (not safe)) - (_g105215105240_))))) - (let () (declare (not safe)) (_g105215105240_)))))) + (_g105477105502_))))) + (let () (declare (not safe)) (_g105477105502_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl105219105294_)) - (let ((_e105235105253_ + _tl105481105556_)) + (let ((_e105497105515_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl105219105294_)))) - (let ((_tl105233105258_ - (let () (declare (not safe)) (##cdr _e105235105253_))) - (_hd105234105256_ - (let () (declare (not safe)) (##car _e105235105253_)))) + (gx#stx-e _tl105481105556_)))) + (let ((_tl105495105520_ + (let () (declare (not safe)) (##cdr _e105497105515_))) + (_hd105496105518_ + (let () (declare (not safe)) (##car _e105497105515_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105233105258_)) - (___kont110548110549_ _hd105234105256_ _hd105220105292_) - (let () (declare (not safe)) (_g105215105240_))))) - (let () (declare (not safe)) (_g105215105240_)))))) + (gx#stx-null? _tl105495105520_)) + (___kont110810110811_ _hd105496105518_ _hd105482105554_) + (let () (declare (not safe)) (_g105477105502_))))) + (let () (declare (not safe)) (_g105477105502_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105215105240_))))))) - (___kont110592110593_ + (_g105477105502_))))))) + (___kont110854110855_ (lambda () - (let* ((_body105179_ - (if _compiled-body?105031_ - _body105151_ + (let* ((_body105441_ + (if _compiled-body?105293_ + _body105413_ (let () (declare (not safe)) (gxc#compile-e__0 - _body105151_)))) - (_body105181_ + _body105413_)))) + (_body105443_ (let () (declare (not safe)) - (_generate-values-post105037_ - _post105158_ - _body105179_))) - (_body105183_ + (_generate-values-post105299_ + _post105420_ + _body105441_))) + (_body105445_ (let () (declare (not safe)) - (_generate-values-check105038_ - _check105157_ - _body105181_)))) - (let ((__tmp111676 - (let ((__tmp111678 - (reverse _bind105156_)) - (__tmp111677 + (_generate-values-check105300_ + _check105419_ + _body105443_)))) + (let ((__tmp111938 + (let ((__tmp111940 + (reverse _bind105418_)) + (__tmp111939 (let () (declare (not safe)) - (cons _body105183_ '())))) + (cons _body105445_ '())))) (declare (not safe)) - (cons __tmp111678 __tmp111677)))) + (cons __tmp111940 __tmp111939)))) (declare (not safe)) - (cons 'let __tmp111676)))))) + (cons 'let __tmp111938)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110588110589_)) - (let ((_e105167105191_ + (gx#stx-pair? ___stx110850110851_)) + (let ((_e105429105453_ (let () (declare (not safe)) - (gx#stx-e ___stx110588110589_)))) - (let ((_tl105165105196_ + (gx#stx-e ___stx110850110851_)))) + (let ((_tl105427105458_ (let () (declare (not safe)) - (##cdr _e105167105191_))) - (_hd105166105194_ + (##cdr _e105429105453_))) + (_hd105428105456_ (let () (declare (not safe)) - (##car _e105167105191_)))) - (___kont110590110591_ - _tl105165105196_ - _hd105166105194_))) - (___kont110592110593_))))))) - (_generate-values-post105037_ - (lambda (_post105109_ _body105110_) - (let _lp105112_ ((_rest105114_ _post105109_) - (_body105115_ _body105110_)) - (let* ((_rest105116105124_ _rest105114_) - (_else105118105132_ (lambda () _body105115_)) - (_K105120105138_ - (lambda (_rest105135_ _bind105136_) - (let ((__tmp111679 - (let ((__tmp111680 - (let ((__tmp111681 + (##car _e105429105453_)))) + (___kont110852110853_ + _tl105427105458_ + _hd105428105456_))) + (___kont110854110855_))))))) + (_generate-values-post105299_ + (lambda (_post105371_ _body105372_) + (let _lp105374_ ((_rest105376_ _post105371_) + (_body105377_ _body105372_)) + (let* ((_rest105378105386_ _rest105376_) + (_else105380105394_ (lambda () _body105377_)) + (_K105382105400_ + (lambda (_rest105397_ _bind105398_) + (let ((__tmp111941 + (let ((__tmp111942 + (let ((__tmp111943 (let () (declare (not safe)) - (cons _body105115_ + (cons _body105377_ '())))) (declare (not safe)) - (cons _bind105136_ - __tmp111681)))) + (cons _bind105398_ + __tmp111943)))) (declare (not safe)) - (cons 'let __tmp111680)))) + (cons 'let __tmp111942)))) (declare (not safe)) - (_lp105112_ _rest105135_ __tmp111679))))) + (_lp105374_ _rest105397_ __tmp111941))))) (if (let () (declare (not safe)) - (##pair? _rest105116105124_)) - (let ((_hd105121105141_ + (##pair? _rest105378105386_)) + (let ((_hd105383105403_ (let () (declare (not safe)) - (##car _rest105116105124_))) - (_tl105122105143_ + (##car _rest105378105386_))) + (_tl105384105405_ (let () (declare (not safe)) - (##cdr _rest105116105124_)))) - (let* ((_bind105146_ _hd105121105141_) - (_rest105148_ _tl105122105143_)) + (##cdr _rest105378105386_)))) + (let* ((_bind105408_ _hd105383105403_) + (_rest105410_ _tl105384105405_)) (declare (not safe)) - (_K105120105138_ _rest105148_ _bind105146_))) + (_K105382105400_ _rest105410_ _bind105408_))) (let () (declare (not safe)) - (_else105118105132_))))))) - (_generate-values-check105038_ - (lambda (_check105106_ _body105107_) - (let ((__tmp111682 - (let ((__tmp111684 + (_else105380105394_))))))) + (_generate-values-check105300_ + (lambda (_check105368_ _body105369_) + (let ((__tmp111944 + (let ((__tmp111946 (let () (declare (not safe)) - (cons _body105107_ '()))) - (__tmp111683 (reverse _check105106_))) + (cons _body105369_ '()))) + (__tmp111945 (reverse _check105368_))) (declare (not safe)) - (foldr1 cons __tmp111684 __tmp111683)))) + (foldr1 cons __tmp111946 __tmp111945)))) (declare (not safe)) - (cons 'begin __tmp111682))))) - (let* ((_g105040105057_ - (lambda (_g105041105054_) + (cons 'begin __tmp111944))))) + (let* ((_g105302105319_ + (lambda (_g105303105316_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105041105054_)))) - (_g105039105103_ - (lambda (_g105041105060_) + _g105303105316_)))) + (_g105301105365_ + (lambda (_g105303105322_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105041105060_)) - (let ((_e105046105062_ + (gx#stx-pair? _g105303105322_)) + (let ((_e105308105324_ (let () (declare (not safe)) - (gx#stx-e _g105041105060_)))) - (let ((_hd105045105065_ + (gx#stx-e _g105303105322_)))) + (let ((_hd105307105327_ (let () (declare (not safe)) - (##car _e105046105062_))) - (_tl105044105067_ + (##car _e105308105324_))) + (_tl105306105329_ (let () (declare (not safe)) - (##cdr _e105046105062_)))) + (##cdr _e105308105324_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105044105067_)) - (let ((_e105049105070_ + (gx#stx-pair? _tl105306105329_)) + (let ((_e105311105332_ (let () (declare (not safe)) - (gx#stx-e _tl105044105067_)))) - (let ((_hd105048105073_ + (gx#stx-e _tl105306105329_)))) + (let ((_hd105310105335_ (let () (declare (not safe)) - (##car _e105049105070_))) - (_tl105047105075_ + (##car _e105311105332_))) + (_tl105309105337_ (let () (declare (not safe)) - (##cdr _e105049105070_)))) + (##cdr _e105311105332_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105047105075_)) - (let ((_e105052105078_ + (gx#stx-pair? _tl105309105337_)) + (let ((_e105314105340_ (let () (declare (not safe)) (gx#stx-e - _tl105047105075_)))) - (let ((_hd105051105081_ + _tl105309105337_)))) + (let ((_hd105313105343_ (let () (declare (not safe)) - (##car _e105052105078_))) - (_tl105050105083_ + (##car _e105314105340_))) + (_tl105312105345_ (let () (declare (not safe)) - (##cdr _e105052105078_)))) + (##cdr _e105314105340_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105050105083_)) - ((lambda (_L105086_ - _L105087_) + _tl105312105345_)) + ((lambda (_L105348_ + _L105349_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L105087_)) + _L105349_)) (let () (declare (not safe)) - (_generate-simple105033_ - _L105087_ - _L105086_)) + (_generate-simple105295_ + _L105349_ + _L105348_)) (let () (declare (not safe)) - (_generate-values105036_ - _L105087_ - _L105086_)))) - _hd105051105081_ - _hd105048105073_) + (_generate-values105298_ + _L105349_ + _L105348_)))) + _hd105313105343_ + _hd105310105335_) (let () (declare (not safe)) - (_g105040105057_ - _g105041105060_))))) + (_g105302105319_ + _g105303105322_))))) (let () (declare (not safe)) - (_g105040105057_ - _g105041105060_))))) + (_g105302105319_ + _g105303105322_))))) (let () (declare (not safe)) - (_g105040105057_ _g105041105060_))))) + (_g105302105319_ _g105303105322_))))) (let () (declare (not safe)) - (_g105040105057_ _g105041105060_)))))) + (_g105302105319_ _g105303105322_)))))) (declare (not safe)) - (_g105039105103_ _stx105030_))))) + (_g105301105365_ _stx105292_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_stx105749_) - (let ((_compiled-body?105751_ '#f)) + (lambda (_stx106011_) + (let ((_compiled-body?106013_ '#f)) (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx105749_ - _compiled-body?105751_)))) + _stx106011_ + _compiled-body?106013_)))) (define gxc#generate-runtime-let-values% - (lambda _g111686_ - (let ((_g111685_ (let () (declare (not safe)) (##length _g111686_)))) - (cond ((let () (declare (not safe)) (##fx= _g111685_ 1)) - (apply (lambda (_stx105749_) + (lambda _g111948_ + (let ((_g111947_ (let () (declare (not safe)) (##length _g111948_)))) + (cond ((let () (declare (not safe)) (##fx= _g111947_ 1)) + (apply (lambda (_stx106011_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__0 - _stx105749_))) - _g111686_)) - ((let () (declare (not safe)) (##fx= _g111685_ 2)) - (apply (lambda (_stx105753_ _compiled-body?105754_) + _stx106011_))) + _g111948_)) + ((let () (declare (not safe)) (##fx= _g111947_ 2)) + (apply (lambda (_stx106015_ _compiled-body?106016_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx105753_ - _compiled-body?105754_))) - _g111686_)) + _stx106015_ + _compiled-body?106016_))) + _g111948_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g111686_)))))) + _g111948_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals104924_ _hd104925_) - (let _lp104927_ ((_rest104929_ _hd104925_) - (_k104930_ '0) - (_r104931_ '())) - (let* ((___stx110602110603_ _rest104929_) - (_g104936104953_ + (lambda (_vals105186_ _hd105187_) + (let _lp105189_ ((_rest105191_ _hd105187_) + (_k105192_ '0) + (_r105193_ '())) + (let* ((___stx110864110865_ _rest105191_) + (_g105198105215_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110602110603_))))) - (let ((___kont110604110605_ - (lambda (_L105016_) - (let ((__tmp111687 + ___stx110864110865_))))) + (let ((___kont110866110867_ + (lambda (_L105278_) + (let ((__tmp111949 (let () (declare (not safe)) - (fx+ _k104930_ '1)))) + (fx+ _k105192_ '1)))) (declare (not safe)) - (_lp104927_ _L105016_ __tmp111687 _r104931_)))) - (___kont110606110607_ - (lambda (_L104989_ _L104990_) - (let ((__tmp111693 - (let () (declare (not safe)) (fx+ _k104930_ '1))) - (__tmp111688 - (let ((__tmp111689 - (let ((__tmp111692 + (_lp105189_ _L105278_ __tmp111949 _r105193_)))) + (___kont110868110869_ + (lambda (_L105251_ _L105252_) + (let ((__tmp111955 + (let () (declare (not safe)) (fx+ _k105192_ '1))) + (__tmp111950 + (let ((__tmp111951 + (let ((__tmp111954 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L104990_))) - (__tmp111690 - (let ((__tmp111691 + _L105252_))) + (__tmp111952 + (let ((__tmp111953 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _vals104924_ - _k104930_ - _L104989_)))) + _vals105186_ + _k105192_ + _L105251_)))) (declare (not safe)) - (cons __tmp111691 '())))) + (cons __tmp111953 '())))) (declare (not safe)) - (cons __tmp111692 __tmp111690)))) + (cons __tmp111954 __tmp111952)))) (declare (not safe)) - (cons __tmp111689 _r104931_)))) + (cons __tmp111951 _r105193_)))) (declare (not safe)) - (_lp104927_ _L104989_ __tmp111693 __tmp111688)))) - (___kont110608110609_ - (lambda (_L104965_) - (let ((__tmp111694 - (let ((__tmp111695 - (let ((__tmp111698 + (_lp105189_ _L105251_ __tmp111955 __tmp111950)))) + (___kont110870110871_ + (lambda (_L105227_) + (let ((__tmp111956 + (let ((__tmp111957 + (let ((__tmp111960 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L104965_))) - (__tmp111696 - (let ((__tmp111697 + _L105227_))) + (__tmp111958 + (let ((__tmp111959 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _vals104924_ - _k104930_)))) + _vals105186_ + _k105192_)))) (declare (not safe)) - (cons __tmp111697 '())))) + (cons __tmp111959 '())))) (declare (not safe)) - (cons __tmp111698 __tmp111696)))) + (cons __tmp111960 __tmp111958)))) (declare (not safe)) - (cons __tmp111695 '())))) + (cons __tmp111957 '())))) (declare (not safe)) - (foldl1 cons __tmp111694 _r104931_)))) - (___kont110610110611_ (lambda () (reverse _r104931_)))) - (let ((_g104934104976_ + (foldl1 cons __tmp111956 _r105193_)))) + (___kont110872110873_ (lambda () (reverse _r105193_)))) + (let ((_g105196105238_ (lambda () - (let ((_L104965_ ___stx110602110603_)) + (let ((_L105227_ ___stx110864110865_)) (if (let () (declare (not safe)) - (gx#identifier? _L104965_)) - (___kont110608110609_ _L104965_) - (___kont110610110611_)))))) + (gx#identifier? _L105227_)) + (___kont110870110871_ _L105227_) + (___kont110872110873_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110602110603_)) - (let ((_e104941105005_ + (gx#stx-pair? ___stx110864110865_)) + (let ((_e105203105267_ (let () (declare (not safe)) - (gx#stx-e ___stx110602110603_)))) - (let ((_tl104939105010_ + (gx#stx-e ___stx110864110865_)))) + (let ((_tl105201105272_ (let () (declare (not safe)) - (##cdr _e104941105005_))) - (_hd104940105008_ + (##cdr _e105203105267_))) + (_hd105202105270_ (let () (declare (not safe)) - (##car _e104941105005_)))) + (##car _e105203105267_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd104940105008_)) - (let ((_e104942105013_ + (gx#stx-datum? _hd105202105270_)) + (let ((_e105204105275_ (let () (declare (not safe)) - (gx#stx-e _hd104940105008_)))) + (gx#stx-e _hd105202105270_)))) (if (let () (declare (not safe)) - (equal? _e104942105013_ '#f)) - (___kont110604110605_ _tl104939105010_) - (___kont110606110607_ - _tl104939105010_ - _hd104940105008_))) - (___kont110606110607_ - _tl104939105010_ - _hd104940105008_)))) - (let () (declare (not safe)) (_g104934104976_))))))))) + (equal? _e105204105275_ '#f)) + (___kont110866110867_ _tl105201105272_) + (___kont110868110869_ + _tl105201105272_ + _hd105202105270_))) + (___kont110868110869_ + _tl105201105272_ + _hd105202105270_)))) + (let () (declare (not safe)) (_g105196105238_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_stx104606_ _compiled-body?104607_) - (letrec ((_generate-simple104609_ - (lambda (_hd104911_ _body104912_) + (lambda (_stx104868_ _compiled-body?104869_) + (letrec ((_generate-simple104871_ + (lambda (_hd105173_ _body105174_) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _hd104911_ - _body104912_ - _compiled-body?104607_)))) - (_generate-values104610_ - (lambda (_hd104690_ _body104691_) - (let _lp104693_ ((_rest104695_ _hd104690_) - (_bind104696_ '()) - (_check104697_ '()) - (_post104698_ '())) - (let* ((___stx110676110677_ _rest104695_) - (_g104701104712_ + _hd105173_ + _body105174_ + _compiled-body?104869_)))) + (_generate-values104872_ + (lambda (_hd104952_ _body104953_) + (let _lp104955_ ((_rest104957_ _hd104952_) + (_bind104958_ '()) + (_check104959_ '()) + (_post104960_ '())) + (let* ((___stx110938110939_ _rest104957_) + (_g104963104974_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110676110677_))))) - (let ((___kont110678110679_ - (lambda (_L104739_ _L104740_) - (let* ((___stx110632110633_ _L104740_) - (_g104755104780_ + ___stx110938110939_))))) + (let ((___kont110940110941_ + (lambda (_L105001_ _L105002_) + (let* ((___stx110894110895_ _L105002_) + (_g105017105042_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110632110633_))))) - (let ((___kont110634110635_ - (lambda (_L104887_ _L104888_) - (let ((_eid104902_ + ___stx110894110895_))))) + (let ((___kont110896110897_ + (lambda (_L105149_ _L105150_) + (let ((_eid105164_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L104888_))) - (_expr104903_ + _L105150_))) + (_expr105165_ (let () (declare (not safe)) (gxc#compile-e__0 - _L104887_)))) - (let ((__tmp111699 - (let ((__tmp111700 - (let ((__tmp111701 + _L105149_)))) + (let ((__tmp111961 + (let ((__tmp111962 + (let ((__tmp111963 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr104903_ '())))) + (cons _expr105165_ '())))) (declare (not safe)) - (cons _eid104902_ __tmp111701)))) + (cons _eid105164_ __tmp111963)))) (declare (not safe)) - (cons __tmp111700 _bind104696_)))) + (cons __tmp111962 _bind104958_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104693_ - _L104739_ - __tmp111699 - _check104697_ - _post104698_))))) - (___kont110636110637_ - (lambda (_L104801_ _L104802_) - (let* ((_vals104815_ + (_lp104955_ + _L105001_ + __tmp111961 + _check104959_ + _post104960_))))) + (___kont110898110899_ + (lambda (_L105063_ _L105064_) + (let* ((_vals105077_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values104817_ + (_check-values105079_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals104815_ - _L104802_ - _L104801_))) - (_refs104819_ + _vals105077_ + _L105064_ + _L105063_))) + (_refs105081_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals104815_ - _L104802_))) - (_expr104821_ + _vals105077_ + _L105064_))) + (_expr105083_ (let () (declare (not safe)) (gxc#compile-e__0 - _L104801_)))) - (let ((__tmp111704 - (let ((__tmp111707 - (let ((__tmp111708 + _L105063_)))) + (let ((__tmp111966 + (let ((__tmp111969 + (let ((__tmp111970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111709 + (let ((__tmp111971 (let () (declare (not safe)) - (cons _expr104821_ '())))) + (cons _expr105083_ '())))) (declare (not safe)) - (cons _vals104815_ __tmp111709)))) + (cons _vals105077_ __tmp111971)))) (declare (not safe)) - (cons __tmp111708 _bind104696_))) - (__tmp111705 - (map (lambda (_e104823104825_) - (let* ((_g104827104836_ _e104823104825_) - (_E104829104840_ + (cons __tmp111970 _bind104958_))) + (__tmp111967 + (map (lambda (_e105085105087_) + (let* ((_g105089105098_ _e105085105087_) + (_E105091105102_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g104827104836_)))) - (_K104830104845_ - (lambda (_eid104843_) - (let ((__tmp111706 + _g105089105098_)))) + (_K105092105107_ + (lambda (_eid105105_) + (let ((__tmp111968 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons _eid104843_ __tmp111706))))) + (cons _eid105105_ __tmp111968))))) (if (let () (declare (not safe)) - (##pair? _g104827104836_)) - (let ((_hd104831104848_ + (##pair? _g105089105098_)) + (let ((_hd105093105110_ (let () (declare (not safe)) - (##car _g104827104836_))) - (_tl104832104850_ + (##car _g105089105098_))) + (_tl105094105112_ (let () (declare (not safe)) - (##cdr _g104827104836_)))) - (let ((_eid104853_ _hd104831104848_)) + (##cdr _g105089105098_)))) + (let ((_eid105115_ _hd105093105110_)) (if (let () (declare (not safe)) - (##pair? _tl104832104850_)) - (let ((_tl104834104855_ + (##pair? _tl105094105112_)) + (let ((_tl105096105117_ (let () (declare (not safe)) - (##cdr _tl104832104850_)))) + (##cdr _tl105094105112_)))) (if (let () (declare (not safe)) - (##null? _tl104834104855_)) + (##null? _tl105096105117_)) (let () (declare (not safe)) - (_K104830104845_ - _eid104853_)) + (_K105092105107_ + _eid105115_)) (let () (declare (not safe)) - (_E104829104840_)))) + (_E105091105102_)))) (let () (declare (not safe)) - (_E104829104840_))))) + (_E105091105102_))))) (let () (declare (not safe)) - (_E104829104840_))))) - _refs104819_))) + (_E105091105102_))))) + _refs105081_))) (declare (not safe)) - (foldl1 cons __tmp111707 __tmp111705))) - (__tmp111703 + (foldl1 cons __tmp111969 __tmp111967))) + (__tmp111965 (let () (declare (not safe)) - (cons _check-values104817_ _check104697_))) - (__tmp111702 + (cons _check-values105079_ _check104959_))) + (__tmp111964 (let () (declare (not safe)) - (foldl1 cons _refs104819_ _post104698_)))) + (foldl1 cons _refs105081_ _post104960_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104693_ - _L104739_ - __tmp111704 - __tmp111703 - __tmp111702)))))) + (_lp104955_ + _L105001_ + __tmp111966 + __tmp111965 + __tmp111964)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx110632110633_)) - (let ((_e104761104863_ + ___stx110894110895_)) + (let ((_e105023105125_ (let () (declare (not safe)) (gx#stx-e - ___stx110632110633_)))) - (let ((_tl104759104868_ + ___stx110894110895_)))) + (let ((_tl105021105130_ (let () (declare (not safe)) - (##cdr _e104761104863_))) - (_hd104760104866_ + (##cdr _e105023105125_))) + (_hd105022105128_ (let () (declare (not safe)) - (##car _e104761104863_)))) + (##car _e105023105125_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd104760104866_)) - (let ((_e104764104871_ + _hd105022105128_)) + (let ((_e105026105133_ (let () (declare (not safe)) (gx#stx-e - _hd104760104866_)))) - (let ((_tl104762104876_ + _hd105022105128_)))) + (let ((_tl105024105138_ (let () (declare (not safe)) - (##cdr _e104764104871_))) - (_hd104763104874_ + (##cdr _e105026105133_))) + (_hd105025105136_ (let () (declare (not safe)) - (##car _e104764104871_)))) + (##car _e105026105133_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104762104876_)) + _tl105024105138_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl104759104868_)) - (let ((_e104767104879_ + (gx#stx-pair? _tl105021105130_)) + (let ((_e105029105141_ (let () (declare (not safe)) - (gx#stx-e _tl104759104868_)))) - (let ((_tl104765104884_ + (gx#stx-e _tl105021105130_)))) + (let ((_tl105027105146_ (let () (declare (not safe)) - (##cdr _e104767104879_))) - (_hd104766104882_ + (##cdr _e105029105141_))) + (_hd105028105144_ (let () (declare (not safe)) - (##car _e104767104879_)))) + (##car _e105029105141_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104765104884_)) - (___kont110634110635_ - _hd104766104882_ - _hd104763104874_) + (gx#stx-null? _tl105027105146_)) + (___kont110896110897_ + _hd105028105144_ + _hd105025105136_) (let () (declare (not safe)) - (_g104755104780_))))) - (let () (declare (not safe)) (_g104755104780_))) + (_g105017105042_))))) + (let () (declare (not safe)) (_g105017105042_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104759104868_)) - (let ((_e104775104793_ + (gx#stx-pair? _tl105021105130_)) + (let ((_e105037105055_ (let () (declare (not safe)) - (gx#stx-e _tl104759104868_)))) - (let ((_tl104773104798_ + (gx#stx-e _tl105021105130_)))) + (let ((_tl105035105060_ (let () (declare (not safe)) - (##cdr _e104775104793_))) - (_hd104774104796_ + (##cdr _e105037105055_))) + (_hd105036105058_ (let () (declare (not safe)) - (##car _e104775104793_)))) + (##car _e105037105055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104773104798_)) - (___kont110636110637_ - _hd104774104796_ - _hd104760104866_) + (gx#stx-null? _tl105035105060_)) + (___kont110898110899_ + _hd105036105058_ + _hd105022105128_) (let () (declare (not safe)) - (_g104755104780_))))) - (let () (declare (not safe)) (_g104755104780_)))))) + (_g105017105042_))))) + (let () (declare (not safe)) (_g105017105042_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl104759104868_)) - (let ((_e104775104793_ + _tl105021105130_)) + (let ((_e105037105055_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl104759104868_)))) - (let ((_tl104773104798_ - (let () (declare (not safe)) (##cdr _e104775104793_))) - (_hd104774104796_ - (let () (declare (not safe)) (##car _e104775104793_)))) + (gx#stx-e _tl105021105130_)))) + (let ((_tl105035105060_ + (let () (declare (not safe)) (##cdr _e105037105055_))) + (_hd105036105058_ + (let () (declare (not safe)) (##car _e105037105055_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104773104798_)) - (___kont110636110637_ _hd104774104796_ _hd104760104866_) - (let () (declare (not safe)) (_g104755104780_))))) - (let () (declare (not safe)) (_g104755104780_)))))) + (gx#stx-null? _tl105035105060_)) + (___kont110898110899_ _hd105036105058_ _hd105022105128_) + (let () (declare (not safe)) (_g105017105042_))))) + (let () (declare (not safe)) (_g105017105042_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g104755104780_))))))) - (___kont110680110681_ + (_g105017105042_))))))) + (___kont110942110943_ (lambda () - (let* ((_body104719_ - (if _compiled-body?104607_ - _body104691_ + (let* ((_body104981_ + (if _compiled-body?104869_ + _body104953_ (let () (declare (not safe)) (gxc#compile-e__0 - _body104691_)))) - (_body104721_ + _body104953_)))) + (_body104983_ (let () (declare (not safe)) - (_generate-values-post104612_ - _post104698_ - _body104719_))) - (_body104723_ + (_generate-values-post104874_ + _post104960_ + _body104981_))) + (_body104985_ (let () (declare (not safe)) - (_generate-values-check104611_ - _check104697_ - _body104721_)))) - (let ((__tmp111710 - (let ((__tmp111712 - (reverse _bind104696_)) - (__tmp111711 + (_generate-values-check104873_ + _check104959_ + _body104983_)))) + (let ((__tmp111972 + (let ((__tmp111974 + (reverse _bind104958_)) + (__tmp111973 (let () (declare (not safe)) - (cons _body104723_ '())))) + (cons _body104985_ '())))) (declare (not safe)) - (cons __tmp111712 __tmp111711)))) + (cons __tmp111974 __tmp111973)))) (declare (not safe)) - (cons 'letrec __tmp111710)))))) + (cons 'letrec __tmp111972)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110676110677_)) - (let ((_e104707104731_ + (gx#stx-pair? ___stx110938110939_)) + (let ((_e104969104993_ (let () (declare (not safe)) - (gx#stx-e ___stx110676110677_)))) - (let ((_tl104705104736_ + (gx#stx-e ___stx110938110939_)))) + (let ((_tl104967104998_ (let () (declare (not safe)) - (##cdr _e104707104731_))) - (_hd104706104734_ + (##cdr _e104969104993_))) + (_hd104968104996_ (let () (declare (not safe)) - (##car _e104707104731_)))) - (___kont110678110679_ - _tl104705104736_ - _hd104706104734_))) - (___kont110680110681_))))))) - (_generate-values-check104611_ - (lambda (_check104687_ _body104688_) - (let ((__tmp111713 - (let ((__tmp111715 + (##car _e104969104993_)))) + (___kont110940110941_ + _tl104967104998_ + _hd104968104996_))) + (___kont110942110943_))))))) + (_generate-values-check104873_ + (lambda (_check104949_ _body104950_) + (let ((__tmp111975 + (let ((__tmp111977 (let () (declare (not safe)) - (cons _body104688_ '()))) - (__tmp111714 (reverse _check104687_))) + (cons _body104950_ '()))) + (__tmp111976 (reverse _check104949_))) (declare (not safe)) - (foldr1 cons __tmp111715 __tmp111714)))) + (foldr1 cons __tmp111977 __tmp111976)))) (declare (not safe)) - (cons 'begin __tmp111713)))) - (_generate-values-post104612_ - (lambda (_post104680_ _body104681_) - (let ((__tmp111716 - (let ((__tmp111718 + (cons 'begin __tmp111975)))) + (_generate-values-post104874_ + (lambda (_post104942_ _body104943_) + (let ((__tmp111978 + (let ((__tmp111980 (let () (declare (not safe)) - (cons _body104681_ '()))) - (__tmp111717 - (map (lambda (_g104682104684_) + (cons _body104943_ '()))) + (__tmp111979 + (map (lambda (_g104944104946_) (let () (declare (not safe)) - (cons 'set! _g104682104684_))) - (reverse _post104680_)))) + (cons 'set! _g104944104946_))) + (reverse _post104942_)))) (declare (not safe)) - (foldr1 cons __tmp111718 __tmp111717)))) + (foldr1 cons __tmp111980 __tmp111979)))) (declare (not safe)) - (cons 'begin __tmp111716))))) - (let* ((_g104614104631_ - (lambda (_g104615104628_) + (cons 'begin __tmp111978))))) + (let* ((_g104876104893_ + (lambda (_g104877104890_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104615104628_)))) - (_g104613104677_ - (lambda (_g104615104634_) + _g104877104890_)))) + (_g104875104939_ + (lambda (_g104877104896_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104615104634_)) - (let ((_e104620104636_ + (gx#stx-pair? _g104877104896_)) + (let ((_e104882104898_ (let () (declare (not safe)) - (gx#stx-e _g104615104634_)))) - (let ((_hd104619104639_ + (gx#stx-e _g104877104896_)))) + (let ((_hd104881104901_ (let () (declare (not safe)) - (##car _e104620104636_))) - (_tl104618104641_ + (##car _e104882104898_))) + (_tl104880104903_ (let () (declare (not safe)) - (##cdr _e104620104636_)))) + (##cdr _e104882104898_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104618104641_)) - (let ((_e104623104644_ + (gx#stx-pair? _tl104880104903_)) + (let ((_e104885104906_ (let () (declare (not safe)) - (gx#stx-e _tl104618104641_)))) - (let ((_hd104622104647_ + (gx#stx-e _tl104880104903_)))) + (let ((_hd104884104909_ (let () (declare (not safe)) - (##car _e104623104644_))) - (_tl104621104649_ + (##car _e104885104906_))) + (_tl104883104911_ (let () (declare (not safe)) - (##cdr _e104623104644_)))) + (##cdr _e104885104906_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104621104649_)) - (let ((_e104626104652_ + (gx#stx-pair? _tl104883104911_)) + (let ((_e104888104914_ (let () (declare (not safe)) (gx#stx-e - _tl104621104649_)))) - (let ((_hd104625104655_ + _tl104883104911_)))) + (let ((_hd104887104917_ (let () (declare (not safe)) - (##car _e104626104652_))) - (_tl104624104657_ + (##car _e104888104914_))) + (_tl104886104919_ (let () (declare (not safe)) - (##cdr _e104626104652_)))) + (##cdr _e104888104914_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104624104657_)) - ((lambda (_L104660_ - _L104661_) + _tl104886104919_)) + ((lambda (_L104922_ + _L104923_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L104661_)) + _L104923_)) (let () (declare (not safe)) - (_generate-simple104609_ - _L104661_ - _L104660_)) + (_generate-simple104871_ + _L104923_ + _L104922_)) (let () (declare (not safe)) - (_generate-values104610_ - _L104661_ - _L104660_)))) - _hd104625104655_ - _hd104622104647_) + (_generate-values104872_ + _L104923_ + _L104922_)))) + _hd104887104917_ + _hd104884104909_) (let () (declare (not safe)) - (_g104614104631_ - _g104615104634_))))) + (_g104876104893_ + _g104877104896_))))) (let () (declare (not safe)) - (_g104614104631_ - _g104615104634_))))) + (_g104876104893_ + _g104877104896_))))) (let () (declare (not safe)) - (_g104614104631_ _g104615104634_))))) + (_g104876104893_ _g104877104896_))))) (let () (declare (not safe)) - (_g104614104631_ _g104615104634_)))))) + (_g104876104893_ _g104877104896_)))))) (declare (not safe)) - (_g104613104677_ _stx104606_))))) + (_g104875104939_ _stx104868_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_stx104917_) - (let ((_compiled-body?104919_ '#f)) + (lambda (_stx105179_) + (let ((_compiled-body?105181_ '#f)) (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx104917_ - _compiled-body?104919_)))) + _stx105179_ + _compiled-body?105181_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g111720_ - (let ((_g111719_ (let () (declare (not safe)) (##length _g111720_)))) - (cond ((let () (declare (not safe)) (##fx= _g111719_ 1)) - (apply (lambda (_stx104917_) + (lambda _g111982_ + (let ((_g111981_ (let () (declare (not safe)) (##length _g111982_)))) + (cond ((let () (declare (not safe)) (##fx= _g111981_ 1)) + (apply (lambda (_stx105179_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__0 - _stx104917_))) - _g111720_)) - ((let () (declare (not safe)) (##fx= _g111719_ 2)) - (apply (lambda (_stx104921_ _compiled-body?104922_) + _stx105179_))) + _g111982_)) + ((let () (declare (not safe)) (##fx= _g111981_ 2)) + (apply (lambda (_stx105183_ _compiled-body?105184_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx104921_ - _compiled-body?104922_))) - _g111720_)) + _stx105183_ + _compiled-body?105184_))) + _g111982_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g111720_)))))) + _g111982_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_stx104188_) - (letrec ((_generate-values104190_ - (lambda (_hd104433_ _body104434_) - (let _lp104436_ ((_rest104438_ _hd104433_) - (_bind104439_ '())) - (let* ((_rest104440104448_ _rest104438_) - (_else104442104459_ + (lambda (_stx104450_) + (letrec ((_generate-values104452_ + (lambda (_hd104695_ _body104696_) + (let _lp104698_ ((_rest104700_ _hd104695_) + (_bind104701_ '())) + (let* ((_rest104702104710_ _rest104700_) + (_else104704104721_ (lambda () - (let ((_bind104456_ (reverse _bind104439_)) - (_body104457_ + (let ((_bind104718_ (reverse _bind104701_)) + (_body104719_ (let () (declare (not safe)) - (gxc#compile-e__0 _body104434_)))) - (let ((__tmp111721 - (let ((__tmp111722 + (gxc#compile-e__0 _body104696_)))) + (let ((__tmp111983 + (let ((__tmp111984 (let () (declare (not safe)) - (cons _body104457_ '())))) + (cons _body104719_ '())))) (declare (not safe)) - (cons _bind104456_ __tmp111722)))) + (cons _bind104718_ __tmp111984)))) (declare (not safe)) - (cons 'letrec* __tmp111721))))) - (_K104444104593_ - (lambda (_rest104462_ _hd-bind104463_) - (let* ((___stx110690110691_ _hd-bind104463_) - (_g104466104491_ + (cons 'letrec* __tmp111983))))) + (_K104706104855_ + (lambda (_rest104724_ _hd-bind104725_) + (let* ((___stx110952110953_ _hd-bind104725_) + (_g104728104753_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110690110691_))))) - (let ((___kont110692110693_ - (lambda (_L104572_ _L104573_) - (let ((_eid104587_ + ___stx110952110953_))))) + (let ((___kont110954110955_ + (lambda (_L104834_ _L104835_) + (let ((_eid104849_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L104573_))) - (_expr104588_ + _L104835_))) + (_expr104850_ (let () (declare (not safe)) (gxc#compile-e__0 - _L104572_)))) - (let ((__tmp111723 - (let ((__tmp111724 - (let ((__tmp111725 + _L104834_)))) + (let ((__tmp111985 + (let ((__tmp111986 + (let ((__tmp111987 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr104588_ '())))) + (cons _expr104850_ '())))) (declare (not safe)) - (cons _eid104587_ __tmp111725)))) + (cons _eid104849_ __tmp111987)))) (declare (not safe)) - (cons __tmp111724 _bind104439_)))) + (cons __tmp111986 _bind104701_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104436_ - _rest104462_ - __tmp111723))))) - (___kont110694110695_ - (lambda (_L104512_ _L104513_) - (let* ((_vals104532_ + (_lp104698_ + _rest104724_ + __tmp111985))))) + (___kont110956110957_ + (lambda (_L104774_ _L104775_) + (let* ((_vals104794_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_tmp104534_ + (_tmp104796_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values104536_ + (_check-values104798_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp104534_ - _L104513_ - _L104512_))) - (_refs104538_ + _tmp104796_ + _L104775_ + _L104774_))) + (_refs104800_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals104532_ - _L104513_))) - (_expr104540_ + _vals104794_ + _L104775_))) + (_expr104802_ (let () (declare (not safe)) (gxc#compile-e__0 - _L104512_)))) - (let ((__tmp111726 - (let ((__tmp111727 - (let ((__tmp111728 + _L104774_)))) + (let ((__tmp111988 + (let ((__tmp111989 + (let ((__tmp111990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111729 - (let ((__tmp111730 - (let ((__tmp111731 - (let ((__tmp111734 - (let ((__tmp111735 - (let ((__tmp111736 + (let ((__tmp111991 + (let ((__tmp111992 + (let ((__tmp111993 + (let ((__tmp111996 + (let ((__tmp111997 + (let ((__tmp111998 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr104540_ '())))) + (cons _expr104802_ '())))) (declare (not safe)) - (cons _tmp104534_ __tmp111736)))) + (cons _tmp104796_ __tmp111998)))) (declare (not safe)) - (cons __tmp111735 '()))) - (__tmp111732 - (let ((__tmp111733 - (let () (declare (not safe)) (cons _tmp104534_ '())))) + (cons __tmp111997 '()))) + (__tmp111994 + (let ((__tmp111995 + (let () (declare (not safe)) (cons _tmp104796_ '())))) (declare (not safe)) - (cons _check-values104536_ __tmp111733)))) + (cons _check-values104798_ __tmp111995)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111734 - __tmp111732)))) + (cons __tmp111996 + __tmp111994)))) (declare (not safe)) - (cons 'let __tmp111731)))) + (cons 'let __tmp111993)))) (declare (not safe)) - (cons __tmp111730 '())))) + (cons __tmp111992 '())))) (declare (not safe)) - (cons _vals104532_ __tmp111729)))) + (cons _vals104794_ __tmp111991)))) (declare (not safe)) - (cons __tmp111728 _bind104439_)))) + (cons __tmp111990 _bind104701_)))) (declare (not safe)) - (foldl1 cons __tmp111727 _refs104538_)))) + (foldl1 cons __tmp111989 _refs104800_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp104436_ - _rest104462_ - __tmp111726)))))) + (_lp104698_ + _rest104724_ + __tmp111988)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110690110691_)) - (let ((_e104472104548_ + (gx#stx-pair? ___stx110952110953_)) + (let ((_e104734104810_ (let () (declare (not safe)) (gx#stx-e - ___stx110690110691_)))) - (let ((_tl104470104553_ + ___stx110952110953_)))) + (let ((_tl104732104815_ (let () (declare (not safe)) - (##cdr _e104472104548_))) - (_hd104471104551_ + (##cdr _e104734104810_))) + (_hd104733104813_ (let () (declare (not safe)) - (##car _e104472104548_)))) + (##car _e104734104810_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd104471104551_)) - (let ((_e104475104556_ + _hd104733104813_)) + (let ((_e104737104818_ (let () (declare (not safe)) (gx#stx-e - _hd104471104551_)))) - (let ((_tl104473104561_ + _hd104733104813_)))) + (let ((_tl104735104823_ (let () (declare (not safe)) - (##cdr _e104475104556_))) - (_hd104474104559_ + (##cdr _e104737104818_))) + (_hd104736104821_ (let () (declare (not safe)) - (##car _e104475104556_)))) + (##car _e104737104818_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104473104561_)) + _tl104735104823_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl104470104553_)) - (let ((_e104478104564_ + (gx#stx-pair? _tl104732104815_)) + (let ((_e104740104826_ (let () (declare (not safe)) - (gx#stx-e _tl104470104553_)))) - (let ((_tl104476104569_ + (gx#stx-e _tl104732104815_)))) + (let ((_tl104738104831_ (let () (declare (not safe)) - (##cdr _e104478104564_))) - (_hd104477104567_ + (##cdr _e104740104826_))) + (_hd104739104829_ (let () (declare (not safe)) - (##car _e104478104564_)))) + (##car _e104740104826_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104476104569_)) - (___kont110692110693_ - _hd104477104567_ - _hd104474104559_) + (gx#stx-null? _tl104738104831_)) + (___kont110954110955_ + _hd104739104829_ + _hd104736104821_) (let () (declare (not safe)) - (_g104466104491_))))) - (let () (declare (not safe)) (_g104466104491_))) + (_g104728104753_))))) + (let () (declare (not safe)) (_g104728104753_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104470104553_)) - (let ((_e104486104504_ + (gx#stx-pair? _tl104732104815_)) + (let ((_e104748104766_ (let () (declare (not safe)) - (gx#stx-e _tl104470104553_)))) - (let ((_tl104484104509_ + (gx#stx-e _tl104732104815_)))) + (let ((_tl104746104771_ (let () (declare (not safe)) - (##cdr _e104486104504_))) - (_hd104485104507_ + (##cdr _e104748104766_))) + (_hd104747104769_ (let () (declare (not safe)) - (##car _e104486104504_)))) + (##car _e104748104766_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104484104509_)) - (___kont110694110695_ - _hd104485104507_ - _hd104471104551_) + (gx#stx-null? _tl104746104771_)) + (___kont110956110957_ + _hd104747104769_ + _hd104733104813_) (let () (declare (not safe)) - (_g104466104491_))))) - (let () (declare (not safe)) (_g104466104491_)))))) + (_g104728104753_))))) + (let () (declare (not safe)) (_g104728104753_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl104470104553_)) - (let ((_e104486104504_ + _tl104732104815_)) + (let ((_e104748104766_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl104470104553_)))) - (let ((_tl104484104509_ - (let () (declare (not safe)) (##cdr _e104486104504_))) - (_hd104485104507_ - (let () (declare (not safe)) (##car _e104486104504_)))) + (gx#stx-e _tl104732104815_)))) + (let ((_tl104746104771_ + (let () (declare (not safe)) (##cdr _e104748104766_))) + (_hd104747104769_ + (let () (declare (not safe)) (##car _e104748104766_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104484104509_)) - (___kont110694110695_ _hd104485104507_ _hd104471104551_) - (let () (declare (not safe)) (_g104466104491_))))) - (let () (declare (not safe)) (_g104466104491_)))))) + (gx#stx-null? _tl104746104771_)) + (___kont110956110957_ _hd104747104769_ _hd104733104813_) + (let () (declare (not safe)) (_g104728104753_))))) + (let () (declare (not safe)) (_g104728104753_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g104466104491_)))))))) + (_g104728104753_)))))))) (if (let () (declare (not safe)) - (##pair? _rest104440104448_)) - (let ((_hd104445104596_ + (##pair? _rest104702104710_)) + (let ((_hd104707104858_ (let () (declare (not safe)) - (##car _rest104440104448_))) - (_tl104446104598_ + (##car _rest104702104710_))) + (_tl104708104860_ (let () (declare (not safe)) - (##cdr _rest104440104448_)))) - (let* ((_hd-bind104601_ _hd104445104596_) - (_rest104603_ _tl104446104598_)) + (##cdr _rest104702104710_)))) + (let* ((_hd-bind104863_ _hd104707104858_) + (_rest104865_ _tl104708104860_)) (declare (not safe)) - (_K104444104593_ - _rest104603_ - _hd-bind104601_))) + (_K104706104855_ + _rest104865_ + _hd-bind104863_))) (let () (declare (not safe)) - (_else104442104459_))))))) - (_generate-letrec?104191_ - (lambda (_hd104323_) - (let _lp104325_ ((_rest104327_ _hd104323_)) - (let* ((_rest104328104336_ _rest104327_) - (_else104330104344_ (lambda () '#t)) - (_K104332104421_ - (lambda (_rest104347_ _hd-bind104348_) - (let* ((_g104350104367_ - (lambda (_g104351104364_) + (_else104704104721_))))))) + (_generate-letrec?104453_ + (lambda (_hd104585_) + (let _lp104587_ ((_rest104589_ _hd104585_)) + (let* ((_rest104590104598_ _rest104589_) + (_else104592104606_ (lambda () '#t)) + (_K104594104683_ + (lambda (_rest104609_ _hd-bind104610_) + (let* ((_g104612104629_ + (lambda (_g104613104626_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104351104364_)))) - (_g104349104418_ - (lambda (_g104351104370_) + _g104613104626_)))) + (_g104611104680_ + (lambda (_g104613104632_) (if (let () (declare (not safe)) (gx#stx-pair? - _g104351104370_)) - (let ((_e104356104372_ + _g104613104632_)) + (let ((_e104618104634_ (let () (declare (not safe)) (gx#stx-e - _g104351104370_)))) - (let ((_hd104355104375_ + _g104613104632_)))) + (let ((_hd104617104637_ (let () (declare (not safe)) - (##car _e104356104372_))) - (_tl104354104377_ + (##car _e104618104634_))) + (_tl104616104639_ (let () (declare (not safe)) - (##cdr _e104356104372_)))) + (##cdr _e104618104634_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd104355104375_)) - (let ((_e104359104380_ + _hd104617104637_)) + (let ((_e104621104642_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd104355104375_)))) - (let ((_hd104358104383_ - (let () (declare (not safe)) (##car _e104359104380_))) - (_tl104357104385_ + (gx#stx-e _hd104617104637_)))) + (let ((_hd104620104645_ + (let () (declare (not safe)) (##car _e104621104642_))) + (_tl104619104647_ (let () (declare (not safe)) - (##cdr _e104359104380_)))) + (##cdr _e104621104642_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104357104385_)) + (gx#stx-null? _tl104619104647_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104354104377_)) - (let ((_e104362104388_ + (gx#stx-pair? _tl104616104639_)) + (let ((_e104624104650_ (let () (declare (not safe)) - (gx#stx-e _tl104354104377_)))) - (let ((_hd104361104391_ + (gx#stx-e _tl104616104639_)))) + (let ((_hd104623104653_ (let () (declare (not safe)) - (##car _e104362104388_))) - (_tl104360104393_ + (##car _e104624104650_))) + (_tl104622104655_ (let () (declare (not safe)) - (##cdr _e104362104388_)))) + (##cdr _e104624104650_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104360104393_)) - ((lambda (_L104396_ _L104397_) + (gx#stx-null? _tl104622104655_)) + ((lambda (_L104658_ _L104659_) (if (let () (declare (not safe)) - (_is-lambda-expr?104192_ - _L104396_)) + (_is-lambda-expr?104454_ + _L104658_)) (let () (declare (not safe)) - (_lp104325_ _rest104347_)) + (_lp104587_ _rest104609_)) '#f)) - _hd104361104391_ - _hd104358104383_) + _hd104623104653_ + _hd104620104645_) (let () (declare (not safe)) - (_g104350104367_ _g104351104370_))))) + (_g104612104629_ _g104613104632_))))) (let () (declare (not safe)) - (_g104350104367_ _g104351104370_))) + (_g104612104629_ _g104613104632_))) (let () (declare (not safe)) - (_g104350104367_ _g104351104370_))))) + (_g104612104629_ _g104613104632_))))) (let () (declare (not safe)) - (_g104350104367_ _g104351104370_))))) + (_g104612104629_ _g104613104632_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g104350104367_ - _g104351104370_)))))) + (_g104612104629_ + _g104613104632_)))))) (declare (not safe)) - (_g104349104418_ _hd-bind104348_))))) + (_g104611104680_ _hd-bind104610_))))) (if (let () (declare (not safe)) - (##pair? _rest104328104336_)) - (let ((_hd104333104424_ + (##pair? _rest104590104598_)) + (let ((_hd104595104686_ (let () (declare (not safe)) - (##car _rest104328104336_))) - (_tl104334104426_ + (##car _rest104590104598_))) + (_tl104596104688_ (let () (declare (not safe)) - (##cdr _rest104328104336_)))) - (let* ((_hd-bind104429_ _hd104333104424_) - (_rest104431_ _tl104334104426_)) + (##cdr _rest104590104598_)))) + (let* ((_hd-bind104691_ _hd104595104686_) + (_rest104693_ _tl104596104688_)) (declare (not safe)) - (_K104332104421_ - _rest104431_ - _hd-bind104429_))) + (_K104594104683_ + _rest104693_ + _hd-bind104691_))) (let () (declare (not safe)) - (_else104330104344_))))))) - (_is-lambda-expr?104192_ - (lambda (_expr104260_) - (let* ((___stx110734110735_ _expr104260_) - (_g104263104277_ + (_else104592104606_))))))) + (_is-lambda-expr?104454_ + (lambda (_expr104522_) + (let* ((___stx110996110997_ _expr104522_) + (_g104525104539_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110734110735_))))) - (let ((___kont110736110737_ - (lambda (_L104305_ _L104306_) '#t)) - (___kont110738110739_ (lambda () '#f))) + ___stx110996110997_))))) + (let ((___kont110998110999_ + (lambda (_L104567_ _L104568_) '#t)) + (___kont111000111001_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110734110735_)) - (let ((_e104269104289_ + (gx#stx-pair? ___stx110996110997_)) + (let ((_e104531104551_ (let () (declare (not safe)) - (gx#stx-e ___stx110734110735_)))) - (let ((_tl104267104294_ + (gx#stx-e ___stx110996110997_)))) + (let ((_tl104529104556_ (let () (declare (not safe)) - (##cdr _e104269104289_))) - (_hd104268104292_ + (##cdr _e104531104551_))) + (_hd104530104554_ (let () (declare (not safe)) - (##car _e104269104289_)))) + (##car _e104531104551_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd104268104292_)) + (gx#identifier? _hd104530104554_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd104268104292_)) + _hd104530104554_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl104267104294_)) - (let ((_e104272104297_ + _tl104529104556_)) + (let ((_e104534104559_ (let () (declare (not safe)) (gx#stx-e - _tl104267104294_)))) - (let ((_tl104270104302_ + _tl104529104556_)))) + (let ((_tl104532104564_ (let () (declare (not safe)) - (##cdr _e104272104297_))) - (_hd104271104300_ + (##cdr _e104534104559_))) + (_hd104533104562_ (let () (declare (not safe)) - (##car _e104272104297_)))) - (___kont110736110737_ - _tl104270104302_ - _hd104271104300_))) - (___kont110738110739_)) - (___kont110738110739_)) - (___kont110738110739_)))) - (___kont110738110739_))))))) - (let* ((_g104194104211_ - (lambda (_g104195104208_) + (##car _e104534104559_)))) + (___kont110998110999_ + _tl104532104564_ + _hd104533104562_))) + (___kont111000111001_)) + (___kont111000111001_)) + (___kont111000111001_)))) + (___kont111000111001_))))))) + (let* ((_g104456104473_ + (lambda (_g104457104470_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104195104208_)))) - (_g104193104257_ - (lambda (_g104195104214_) + _g104457104470_)))) + (_g104455104519_ + (lambda (_g104457104476_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104195104214_)) - (let ((_e104200104216_ + (gx#stx-pair? _g104457104476_)) + (let ((_e104462104478_ (let () (declare (not safe)) - (gx#stx-e _g104195104214_)))) - (let ((_hd104199104219_ + (gx#stx-e _g104457104476_)))) + (let ((_hd104461104481_ (let () (declare (not safe)) - (##car _e104200104216_))) - (_tl104198104221_ + (##car _e104462104478_))) + (_tl104460104483_ (let () (declare (not safe)) - (##cdr _e104200104216_)))) + (##cdr _e104462104478_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104198104221_)) - (let ((_e104203104224_ + (gx#stx-pair? _tl104460104483_)) + (let ((_e104465104486_ (let () (declare (not safe)) - (gx#stx-e _tl104198104221_)))) - (let ((_hd104202104227_ + (gx#stx-e _tl104460104483_)))) + (let ((_hd104464104489_ (let () (declare (not safe)) - (##car _e104203104224_))) - (_tl104201104229_ + (##car _e104465104486_))) + (_tl104463104491_ (let () (declare (not safe)) - (##cdr _e104203104224_)))) + (##cdr _e104465104486_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104201104229_)) - (let ((_e104206104232_ + (gx#stx-pair? _tl104463104491_)) + (let ((_e104468104494_ (let () (declare (not safe)) (gx#stx-e - _tl104201104229_)))) - (let ((_hd104205104235_ + _tl104463104491_)))) + (let ((_hd104467104497_ (let () (declare (not safe)) - (##car _e104206104232_))) - (_tl104204104237_ + (##car _e104468104494_))) + (_tl104466104499_ (let () (declare (not safe)) - (##cdr _e104206104232_)))) + (##cdr _e104468104494_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104204104237_)) - ((lambda (_L104240_ - _L104241_) + _tl104466104499_)) + ((lambda (_L104502_ + _L104503_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L104241_)) + _L104503_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate-letrec?104191_ _L104241_)) + (_generate-letrec?104453_ _L104503_)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _L104241_ - _L104240_ + _L104503_ + _L104502_ '#f)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec* - _L104241_ - _L104240_ + _L104503_ + _L104502_ '#f))) (let () (declare (not safe)) - (_generate-values104190_ _L104241_ _L104240_)))) + (_generate-values104452_ _L104503_ _L104502_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd104205104235_ - _hd104202104227_) + _hd104467104497_ + _hd104464104489_) (let () (declare (not safe)) - (_g104194104211_ - _g104195104214_))))) + (_g104456104473_ + _g104457104476_))))) (let () (declare (not safe)) - (_g104194104211_ - _g104195104214_))))) + (_g104456104473_ + _g104457104476_))))) (let () (declare (not safe)) - (_g104194104211_ _g104195104214_))))) + (_g104456104473_ _g104457104476_))))) (let () (declare (not safe)) - (_g104194104211_ _g104195104214_)))))) + (_g104456104473_ _g104457104476_)))))) (declare (not safe)) - (_g104193104257_ _stx104188_))))) + (_g104455104519_ _stx104450_))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd104125_) - (let _lp104127_ ((_rest104129_ _hd104125_)) - (let* ((_rest104130104146_ _rest104129_) - (_else104133104154_ (lambda () '#f))) - (let ((_K104136104167_ - (lambda (_rest104165_) + (lambda (_hd104387_) + (let _lp104389_ ((_rest104391_ _hd104387_)) + (let* ((_rest104392104408_ _rest104391_) + (_else104395104416_ (lambda () '#f))) + (let ((_K104398104429_ + (lambda (_rest104427_) (let () (declare (not safe)) - (_lp104127_ _rest104165_)))) - (_K104135104159_ (lambda () '#t))) - (let ((_try-match104132104162_ + (_lp104389_ _rest104427_)))) + (_K104397104421_ (lambda () '#t))) + (let ((_try-match104394104424_ (lambda () (if (let () (declare (not safe)) - (##null? _rest104130104146_)) - (let () (declare (not safe)) (_K104135104159_)) + (##null? _rest104392104408_)) + (let () (declare (not safe)) (_K104397104421_)) (let () (declare (not safe)) - (_else104133104154_)))))) + (_else104395104416_)))))) (if (let () (declare (not safe)) - (##pair? _rest104130104146_)) - (let ((_tl104138104172_ + (##pair? _rest104392104408_)) + (let ((_tl104400104434_ (let () (declare (not safe)) - (##cdr _rest104130104146_))) - (_hd104137104170_ + (##cdr _rest104392104408_))) + (_hd104399104432_ (let () (declare (not safe)) - (##car _rest104130104146_)))) + (##car _rest104392104408_)))) (if (let () (declare (not safe)) - (##pair? _hd104137104170_)) - (let ((_tl104140104177_ + (##pair? _hd104399104432_)) + (let ((_tl104402104439_ (let () (declare (not safe)) - (##cdr _hd104137104170_))) - (_hd104139104175_ + (##cdr _hd104399104432_))) + (_hd104401104437_ (let () (declare (not safe)) - (##car _hd104137104170_)))) + (##car _hd104399104432_)))) (if (let () (declare (not safe)) - (##pair? _hd104139104175_)) - (let ((_tl104144104180_ + (##pair? _hd104401104437_)) + (let ((_tl104406104442_ (let () (declare (not safe)) - (##cdr _hd104139104175_)))) + (##cdr _hd104401104437_)))) (if (let () (declare (not safe)) - (##null? _tl104144104180_)) + (##null? _tl104406104442_)) (if (let () (declare (not safe)) - (##pair? _tl104140104177_)) - (let ((_tl104142104183_ + (##pair? _tl104402104439_)) + (let ((_tl104404104445_ (let () (declare (not safe)) - (##cdr _tl104140104177_)))) + (##cdr _tl104402104439_)))) (if (let () (declare (not safe)) - (##null? _tl104142104183_)) - (let ((_rest104186_ - _tl104138104172_)) + (##null? _tl104404104445_)) + (let ((_rest104448_ + _tl104400104434_)) (declare (not safe)) - (_lp104127_ _rest104186_)) + (_lp104389_ _rest104448_)) (let () (declare (not safe)) - (_else104133104154_)))) + (_else104395104416_)))) (let () (declare (not safe)) - (_else104133104154_))) + (_else104395104416_))) (let () (declare (not safe)) - (_else104133104154_)))) + (_else104395104416_)))) (let () (declare (not safe)) - (_else104133104154_)))) + (_else104395104416_)))) (let () (declare (not safe)) - (_else104133104154_)))) + (_else104395104416_)))) (let () (declare (not safe)) - (_try-match104132104162_))))))))) + (_try-match104394104424_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_form104037_ _hd104038_ _body104039_ _compiled-body?104040_) - (letrec ((_generate1104042_ - (lambda (_bind104081_) - (let* ((_bind104082104093_ _bind104081_) - (_E104084104097_ + (lambda (_form104299_ _hd104300_ _body104301_ _compiled-body?104302_) + (letrec ((_generate1104304_ + (lambda (_bind104343_) + (let* ((_bind104344104355_ _bind104343_) + (_E104346104359_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind104082104093_)))) - (_K104085104103_ - (lambda (_expr104100_ _id104101_) - (let ((__tmp111739 + _bind104344104355_)))) + (_K104347104365_ + (lambda (_expr104362_ _id104363_) + (let ((__tmp112001 (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _id104101_))) - (__tmp111737 - (let ((__tmp111738 + _id104363_))) + (__tmp111999 + (let ((__tmp112000 (let () (declare (not safe)) (gxc#compile-e__0 - _expr104100_)))) + _expr104362_)))) (declare (not safe)) - (cons __tmp111738 '())))) + (cons __tmp112000 '())))) (declare (not safe)) - (cons __tmp111739 __tmp111737))))) + (cons __tmp112001 __tmp111999))))) (if (let () (declare (not safe)) - (##pair? _bind104082104093_)) - (let ((_hd104086104106_ + (##pair? _bind104344104355_)) + (let ((_hd104348104368_ (let () (declare (not safe)) - (##car _bind104082104093_))) - (_tl104087104108_ + (##car _bind104344104355_))) + (_tl104349104370_ (let () (declare (not safe)) - (##cdr _bind104082104093_)))) + (##cdr _bind104344104355_)))) (if (let () (declare (not safe)) - (##pair? _hd104086104106_)) - (let ((_hd104090104111_ + (##pair? _hd104348104368_)) + (let ((_hd104352104373_ (let () (declare (not safe)) - (##car _hd104086104106_))) - (_tl104091104113_ + (##car _hd104348104368_))) + (_tl104353104375_ (let () (declare (not safe)) - (##cdr _hd104086104106_)))) - (let ((_id104116_ _hd104090104111_)) + (##cdr _hd104348104368_)))) + (let ((_id104378_ _hd104352104373_)) (if (let () (declare (not safe)) - (##null? _tl104091104113_)) + (##null? _tl104353104375_)) (if (let () (declare (not safe)) - (##pair? _tl104087104108_)) - (let ((_hd104088104118_ + (##pair? _tl104349104370_)) + (let ((_hd104350104380_ (let () (declare (not safe)) - (##car _tl104087104108_))) - (_tl104089104120_ + (##car _tl104349104370_))) + (_tl104351104382_ (let () (declare (not safe)) - (##cdr _tl104087104108_)))) - (let ((_expr104123_ - _hd104088104118_)) + (##cdr _tl104349104370_)))) + (let ((_expr104385_ + _hd104350104380_)) (if (let () (declare (not safe)) - (##null? _tl104089104120_)) + (##null? _tl104351104382_)) (let () (declare (not safe)) - (_K104085104103_ - _expr104123_ - _id104116_)) + (_K104347104365_ + _expr104385_ + _id104378_)) (let () (declare (not safe)) - (_E104084104097_))))) + (_E104346104359_))))) (let () (declare (not safe)) - (_E104084104097_))) + (_E104346104359_))) (let () (declare (not safe)) - (_E104084104097_))))) + (_E104346104359_))))) (let () (declare (not safe)) - (_E104084104097_)))) + (_E104346104359_)))) (let () (declare (not safe)) - (_E104084104097_))))))) - (let* ((_bind104044_ (map _generate1104042_ _hd104038_)) - (_body104046_ - (if _compiled-body?104040_ - _body104039_ + (_E104346104359_))))))) + (let* ((_bind104306_ (map _generate1104304_ _hd104300_)) + (_body104308_ + (if _compiled-body?104302_ + _body104301_ (let () (declare (not safe)) - (gxc#compile-e__0 _body104039_)))) - (_body104078_ - (let* ((_body104047104055_ _body104046_) - (_else104049104063_ + (gxc#compile-e__0 _body104301_)))) + (_body104340_ + (let* ((_body104309104317_ _body104308_) + (_else104311104325_ (lambda () (let () (declare (not safe)) - (cons _body104046_ '())))) - (_K104051104068_ - (lambda (_exprs104066_) _exprs104066_))) + (cons _body104308_ '())))) + (_K104313104330_ + (lambda (_exprs104328_) _exprs104328_))) (if (let () (declare (not safe)) - (##pair? _body104047104055_)) - (let ((_hd104052104071_ + (##pair? _body104309104317_)) + (let ((_hd104314104333_ (let () (declare (not safe)) - (##car _body104047104055_))) - (_tl104053104073_ + (##car _body104309104317_))) + (_tl104315104335_ (let () (declare (not safe)) - (##cdr _body104047104055_)))) + (##cdr _body104309104317_)))) (if (let () (declare (not safe)) - (##eq? _hd104052104071_ 'begin)) - (let ((_exprs104076_ _tl104053104073_)) + (##eq? _hd104314104333_ 'begin)) + (let ((_exprs104338_ _tl104315104335_)) (declare (not safe)) - (_K104051104068_ _exprs104076_)) + (_K104313104330_ _exprs104338_)) (let () (declare (not safe)) - (_else104049104063_)))) + (_else104311104325_)))) (let () (declare (not safe)) - (_else104049104063_)))))) - (let ((__tmp111740 + (_else104311104325_)))))) + (let ((__tmp112002 (let () (declare (not safe)) - (cons _bind104044_ _body104078_)))) + (cons _bind104306_ _body104340_)))) (declare (not safe)) - (cons _form104037_ __tmp111740)))))) + (cons _form104299_ __tmp112002)))))) (define gxc#generate-runtime-quote% - (lambda (_stx103945_) - (letrec ((_generate1103947_ - (lambda (_datum103999_) + (lambda (_stx104207_) + (letrec ((_generate1104209_ + (lambda (_datum104261_) (if (or (let () (declare (not safe)) - (null? _datum103999_)) - (interned-symbol? _datum103999_) + (null? _datum104261_)) + (interned-symbol? _datum104261_) (let () (declare (not safe)) - (gx#self-quoting? _datum103999_)) + (gx#self-quoting? _datum104261_)) (let () (declare (not safe)) - (eof-object? _datum103999_))) - _datum103999_ - (if (uninterned-symbol? _datum103999_) + (eof-object? _datum104261_))) + _datum104261_ + (if (uninterned-symbol? _datum104261_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _datum103999_ + _datum104261_ '#t)) (if (let () (declare (not safe)) - (pair? _datum103999_)) - (let ((__tmp111745 - (let ((__tmp111746 - (car _datum103999_))) + (pair? _datum104261_)) + (let ((__tmp112007 + (let ((__tmp112008 + (car _datum104261_))) (declare (not safe)) - (_generate1103947_ __tmp111746))) - (__tmp111743 - (let ((__tmp111744 - (cdr _datum103999_))) + (_generate1104209_ __tmp112008))) + (__tmp112005 + (let ((__tmp112006 + (cdr _datum104261_))) (declare (not safe)) - (_generate1103947_ __tmp111744)))) + (_generate1104209_ __tmp112006)))) (declare (not safe)) - (cons __tmp111745 __tmp111743)) + (cons __tmp112007 __tmp112005)) (if (let () (declare (not safe)) - (box? _datum103999_)) - (let ((__tmp111741 - (let ((__tmp111742 - (unbox _datum103999_))) + (box? _datum104261_)) + (let ((__tmp112003 + (let ((__tmp112004 + (unbox _datum104261_))) (declare (not safe)) - (_generate1103947_ - __tmp111742)))) + (_generate1104209_ + __tmp112004)))) (declare (not safe)) - (box __tmp111741)) + (box __tmp112003)) (if (let () (declare (not safe)) - (vector? _datum103999_)) + (vector? _datum104261_)) (vector-map - _generate1103947_ - _datum103999_) - (if (or (s8vector? _datum103999_) + _generate1104209_ + _datum104261_) + (if (or (s8vector? _datum104261_) (let () (declare (not safe)) - (u8vector? _datum103999_)) - (s16vector? _datum103999_) - (u16vector? _datum103999_) - (s32vector? _datum103999_) - (u32vector? _datum103999_) - (s64vector? _datum103999_) - (u64vector? _datum103999_) - (f32vector? _datum103999_) - (f64vector? _datum103999_)) - _datum103999_ + (u8vector? _datum104261_)) + (s16vector? _datum104261_) + (u16vector? _datum104261_) + (s32vector? _datum104261_) + (u32vector? _datum104261_) + (s64vector? _datum104261_) + (u64vector? _datum104261_) + (f32vector? _datum104261_) + (f64vector? _datum104261_)) + _datum104261_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx103945_))))))))))) - (let* ((_g103949103962_ - (lambda (_g103950103959_) + _stx104207_))))))))))) + (let* ((_g104211104224_ + (lambda (_g104212104221_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103950103959_)))) - (_g103948103996_ - (lambda (_g103950103965_) + _g104212104221_)))) + (_g104210104258_ + (lambda (_g104212104227_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103950103965_)) - (let ((_e103954103967_ + (gx#stx-pair? _g104212104227_)) + (let ((_e104216104229_ (let () (declare (not safe)) - (gx#stx-e _g103950103965_)))) - (let ((_hd103953103970_ + (gx#stx-e _g104212104227_)))) + (let ((_hd104215104232_ (let () (declare (not safe)) - (##car _e103954103967_))) - (_tl103952103972_ + (##car _e104216104229_))) + (_tl104214104234_ (let () (declare (not safe)) - (##cdr _e103954103967_)))) + (##cdr _e104216104229_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103952103972_)) - (let ((_e103957103975_ + (gx#stx-pair? _tl104214104234_)) + (let ((_e104219104237_ (let () (declare (not safe)) - (gx#stx-e _tl103952103972_)))) - (let ((_hd103956103978_ + (gx#stx-e _tl104214104234_)))) + (let ((_hd104218104240_ (let () (declare (not safe)) - (##car _e103957103975_))) - (_tl103955103980_ + (##car _e104219104237_))) + (_tl104217104242_ (let () (declare (not safe)) - (##cdr _e103957103975_)))) + (##cdr _e104219104237_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103955103980_)) - ((lambda (_L103983_) - (let ((__tmp111747 - (let ((__tmp111748 - (let ((__tmp111749 + (gx#stx-null? _tl104217104242_)) + ((lambda (_L104245_) + (let ((__tmp112009 + (let ((__tmp112010 + (let ((__tmp112011 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L103983_)))) + (let () (declare (not safe)) (gx#stx-e _L104245_)))) (declare (not safe)) - (_generate1103947_ __tmp111749)))) + (_generate1104209_ __tmp112011)))) (declare (not safe)) - (cons __tmp111748 '())))) + (cons __tmp112010 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'quote __tmp111747))) - _hd103956103978_) + (cons 'quote __tmp112009))) + _hd104218104240_) (let () (declare (not safe)) - (_g103949103962_ - _g103950103965_))))) + (_g104211104224_ + _g104212104227_))))) (let () (declare (not safe)) - (_g103949103962_ _g103950103965_))))) + (_g104211104224_ _g104212104227_))))) (let () (declare (not safe)) - (_g103949103962_ _g103950103965_)))))) + (_g104211104224_ _g104212104227_)))))) (declare (not safe)) - (_g103948103996_ _stx103945_))))) + (_g104210104258_ _stx104207_))))) (define gxc#generate-runtime-call% - (lambda (_stx103463_) - (letrec ((_compile-call103465_ - (lambda (_rator103689_ _rands103690_) - (let ((_rator103692_ + (lambda (_stx103725_) + (letrec ((_compile-call103727_ + (lambda (_rator103951_ _rands103952_) + (let ((_rator103954_ (let () (declare (not safe)) - (gxc#compile-e__0 _rator103689_))) - (_rands103693_ (map gxc#compile-e _rands103690_))) - (let* ((___stx110781110782_ _rator103692_) - (_g103696103748_ + (gxc#compile-e__0 _rator103951_))) + (_rands103955_ (map gxc#compile-e _rands103952_))) + (let* ((___stx111043111044_ _rator103954_) + (_g103958104010_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110781110782_))))) - (let ((___kont110783110784_ - (lambda (_L103872_ - _L103873_ - _L103874_ - _L103875_) - (if (fx= (length _rands103693_) - (length (let ((__tmp111754 - (lambda (_g103911103914_ + ___stx111043111044_))))) + (let ((___kont111045111046_ + (lambda (_L104134_ + _L104135_ + _L104136_ + _L104137_) + (if (fx= (length _rands103955_) + (length (let ((__tmp112016 + (lambda (_g104173104176_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103912103916_) + _g104174104178_) (let () (declare (not safe)) - (cons _g103911103914_ _g103912103916_))))) + (cons _g104173104176_ _g104174104178_))))) (declare (not safe)) - (foldr1 __tmp111754 '() _L103874_)))) + (foldr1 __tmp112016 '() _L104136_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_id103919_ _L103875_) - (_args103928_ - (let ((__tmp111750 - (lambda (_g103920103923_ - _g103921103925_) + (let* ((_id104181_ _L104137_) + (_args104190_ + (let ((__tmp112012 + (lambda (_g104182104185_ + _g104183104187_) (let () (declare (not safe)) - (cons _g103920103923_ - _g103921103925_))))) + (cons _g104182104185_ + _g104183104187_))))) (declare (not safe)) - (foldr1 __tmp111750 + (foldr1 __tmp112012 '() - _L103874_))) - (_body103937_ - (let ((__tmp111751 - (lambda (_g103929103932_ - _g103930103934_) + _L104136_))) + (_body104199_ + (let ((__tmp112013 + (lambda (_g104191104194_ + _g104192104196_) (let () (declare (not safe)) - (cons _g103929103932_ - _g103930103934_))))) + (cons _g104191104194_ + _g104192104196_))))) (declare (not safe)) - (foldr1 __tmp111751 + (foldr1 __tmp112013 '() - _L103873_))) - (_init103939_ + _L104135_))) + (_init104201_ (map list - _args103928_ - _rands103693_))) - (let ((__tmp111752 - (let ((__tmp111753 + _args104190_ + _rands103955_))) + (let ((__tmp112014 + (let ((__tmp112015 (let () (declare (not safe)) - (cons _init103939_ - _body103937_)))) + (cons _init104201_ + _body104199_)))) (declare (not safe)) - (cons _id103919_ - __tmp111753)))) + (cons _id104181_ + __tmp112015)))) (declare (not safe)) - (cons 'let __tmp111752))) + (cons 'let __tmp112014))) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _stx103463_))))) - (___kont110789110790_ + _stx103725_))))) + (___kont111051111052_ (lambda () (let () (declare (not safe)) - (cons _rator103692_ _rands103693_))))) - (let ((___match110848110849_ - (lambda (_e103704103760_ - _hd103703103763_ - _tl103702103765_ - _e103707103768_ - _hd103706103771_ - _tl103705103773_ - _e103710103776_ - _hd103709103779_ - _tl103708103781_ - _e103713103784_ - _hd103712103787_ - _tl103711103789_ - _e103716103792_ - _hd103715103795_ - _tl103714103797_ - _e103719103800_ - _hd103718103803_ - _tl103717103805_ - _e103722103808_ - _hd103721103811_ - _tl103720103813_ - ___splice110785110786_ - _target103723103816_ - _tl103725103818_) - (letrec ((_loop103726103821_ - (lambda (_hd103724103824_ - _arg103730103826_) + (cons _rator103954_ _rands103955_))))) + (let ((___match111110111111_ + (lambda (_e103966104022_ + _hd103965104025_ + _tl103964104027_ + _e103969104030_ + _hd103968104033_ + _tl103967104035_ + _e103972104038_ + _hd103971104041_ + _tl103970104043_ + _e103975104046_ + _hd103974104049_ + _tl103973104051_ + _e103978104054_ + _hd103977104057_ + _tl103976104059_ + _e103981104062_ + _hd103980104065_ + _tl103979104067_ + _e103984104070_ + _hd103983104073_ + _tl103982104075_ + ___splice111047111048_ + _target103985104078_ + _tl103987104080_) + (letrec ((_loop103988104083_ + (lambda (_hd103986104086_ + _arg103992104088_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd103724103824_)) - (let ((_e103727103829_ + _hd103986104086_)) + (let ((_e103989104091_ (let () (declare (not safe)) (gx#stx-e - _hd103724103824_)))) - (let ((_lp-tl103729103834_ + _hd103986104086_)))) + (let ((_lp-tl103991104096_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e103727103829_))) - (_lp-hd103728103832_ - (let () (declare (not safe)) (##car _e103727103829_)))) - (let ((__tmp111756 + (##cdr _e103989104091_))) + (_lp-hd103990104094_ + (let () (declare (not safe)) (##car _e103989104091_)))) + (let ((__tmp112018 (let () (declare (not safe)) - (cons _lp-hd103728103832_ _arg103730103826_)))) + (cons _lp-hd103990104094_ _arg103992104088_)))) (declare (not safe)) - (_loop103726103821_ _lp-tl103729103834_ __tmp111756)))) + (_loop103988104083_ _lp-tl103991104096_ __tmp112018)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg103731103837_ - (reverse _arg103730103826_))) + (let ((_arg103993104099_ + (reverse _arg103992104088_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl103720103813_)) - (let ((___splice110787110788_ + _tl103982104075_)) + (let ((___splice111049111050_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl103720103813_ '0)))) - (let ((_tl103734103842_ + (gx#syntax-split-splice _tl103982104075_ '0)))) + (let ((_tl103996104104_ (let () (declare (not safe)) - (##vector-ref ___splice110787110788_ '1))) - (_target103732103840_ + (##vector-ref ___splice111049111050_ '1))) + (_target103994104102_ (let () (declare (not safe)) - (##vector-ref ___splice110787110788_ '0)))) + (##vector-ref ___splice111049111050_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103734103842_)) - (letrec ((_loop103735103845_ - (lambda (_hd103733103848_ - _body103739103850_) + (gx#stx-null? _tl103996104104_)) + (letrec ((_loop103997104107_ + (lambda (_hd103995104110_ + _body104001104112_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103733103848_)) - (let ((_e103736103853_ + (gx#stx-pair? _hd103995104110_)) + (let ((_e103998104115_ (let () (declare (not safe)) (gx#stx-e - _hd103733103848_)))) - (let ((_lp-tl103738103858_ + _hd103995104110_)))) + (let ((_lp-tl104000104120_ (let () (declare (not safe)) - (##cdr _e103736103853_))) - (_lp-hd103737103856_ + (##cdr _e103998104115_))) + (_lp-hd103999104118_ (let () (declare (not safe)) - (##car _e103736103853_)))) - (let ((__tmp111755 + (##car _e103998104115_)))) + (let ((__tmp112017 (let () (declare (not safe)) - (cons _lp-hd103737103856_ - _body103739103850_)))) + (cons _lp-hd103999104118_ + _body104001104112_)))) (declare (not safe)) - (_loop103735103845_ - _lp-tl103738103858_ - __tmp111755)))) - (let ((_body103740103861_ - (reverse _body103739103850_))) + (_loop103997104107_ + _lp-tl104000104120_ + __tmp112017)))) + (let ((_body104002104123_ + (reverse _body104001104112_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103714103797_)) + _tl103976104059_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl103708103781_)) + _tl103970104043_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103705103773_)) - (let ((_e103743103864_ + _tl103967104035_)) + (let ((_e104005104126_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl103705103773_)))) - (let ((_tl103741103869_ + (gx#stx-e _tl103967104035_)))) + (let ((_tl104003104131_ (let () (declare (not safe)) - (##cdr _e103743103864_))) - (_hd103742103867_ + (##cdr _e104005104126_))) + (_hd104004104129_ (let () (declare (not safe)) - (##car _e103743103864_)))) + (##car _e104005104126_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103741103869_)) - (let ((_L103872_ _hd103742103867_) - (_L103873_ _body103740103861_) - (_L103874_ _arg103731103837_) - (_L103875_ _hd103712103787_)) + (gx#stx-null? _tl104003104131_)) + (let ((_L104134_ _hd104004104129_) + (_L104135_ _body104002104123_) + (_L104136_ _arg103993104099_) + (_L104137_ _hd103974104049_)) (if (let () (declare (not safe)) - (eq? _L103875_ _L103872_)) - (___kont110783110784_ - _L103872_ - _L103873_ - _L103874_ - _L103875_) - (___kont110789110790_))) - (___kont110789110790_)))) - (___kont110789110790_)) + (eq? _L104137_ _L104134_)) + (___kont111045111046_ + _L104134_ + _L104135_ + _L104136_ + _L104137_) + (___kont111051111052_))) + (___kont111051111052_)))) + (___kont111051111052_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110789110790_)) - (___kont110789110790_))))))) + (___kont111051111052_)) + (___kont111051111052_))))))) (let () (declare (not safe)) - (_loop103735103845_ _target103732103840_ '()))) - (___kont110789110790_)))) - (___kont110789110790_))))))) + (_loop103997104107_ _target103994104102_ '()))) + (___kont111051111052_)))) + (___kont111051111052_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop103726103821_ - _target103723103816_ + (_loop103988104083_ + _target103985104078_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110781110782_)) - (let ((_e103704103760_ + (gx#stx-pair? ___stx111043111044_)) + (let ((_e103966104022_ (let () (declare (not safe)) - (gx#stx-e ___stx110781110782_)))) - (let ((_tl103702103765_ + (gx#stx-e ___stx111043111044_)))) + (let ((_tl103964104027_ (let () (declare (not safe)) - (##cdr _e103704103760_))) - (_hd103703103763_ + (##cdr _e103966104022_))) + (_hd103965104025_ (let () (declare (not safe)) - (##car _e103704103760_)))) + (##car _e103966104022_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd103703103763_)) + (gx#identifier? _hd103965104025_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _hd103703103763_)) + _hd103965104025_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103702103765_)) - (let ((_e103707103768_ + _tl103964104027_)) + (let ((_e103969104030_ (let () (declare (not safe)) (gx#stx-e - _tl103702103765_)))) - (let ((_tl103705103773_ + _tl103964104027_)))) + (let ((_tl103967104035_ (let () (declare (not safe)) - (##cdr _e103707103768_))) - (_hd103706103771_ + (##cdr _e103969104030_))) + (_hd103968104033_ (let () (declare (not safe)) - (##car _e103707103768_)))) + (##car _e103969104030_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd103706103771_)) - (let ((_e103710103776_ + _hd103968104033_)) + (let ((_e103972104038_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd103706103771_)))) - (let ((_tl103708103781_ + (gx#stx-e _hd103968104033_)))) + (let ((_tl103970104043_ (let () (declare (not safe)) - (##cdr _e103710103776_))) - (_hd103709103779_ + (##cdr _e103972104038_))) + (_hd103971104041_ (let () (declare (not safe)) - (##car _e103710103776_)))) + (##car _e103972104038_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103709103779_)) - (let ((_e103713103784_ + (gx#stx-pair? _hd103971104041_)) + (let ((_e103975104046_ (let () (declare (not safe)) - (gx#stx-e _hd103709103779_)))) - (let ((_tl103711103789_ + (gx#stx-e _hd103971104041_)))) + (let ((_tl103973104051_ (let () (declare (not safe)) - (##cdr _e103713103784_))) - (_hd103712103787_ + (##cdr _e103975104046_))) + (_hd103974104049_ (let () (declare (not safe)) - (##car _e103713103784_)))) + (##car _e103975104046_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103711103789_)) - (let ((_e103716103792_ + (gx#stx-pair? _tl103973104051_)) + (let ((_e103978104054_ (let () (declare (not safe)) - (gx#stx-e _tl103711103789_)))) - (let ((_tl103714103797_ + (gx#stx-e _tl103973104051_)))) + (let ((_tl103976104059_ (let () (declare (not safe)) - (##cdr _e103716103792_))) - (_hd103715103795_ + (##cdr _e103978104054_))) + (_hd103977104057_ (let () (declare (not safe)) - (##car _e103716103792_)))) + (##car _e103978104054_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103715103795_)) - (let ((_e103719103800_ + (gx#stx-pair? _hd103977104057_)) + (let ((_e103981104062_ (let () (declare (not safe)) (gx#stx-e - _hd103715103795_)))) - (let ((_tl103717103805_ + _hd103977104057_)))) + (let ((_tl103979104067_ (let () (declare (not safe)) - (##cdr _e103719103800_))) - (_hd103718103803_ + (##cdr _e103981104062_))) + (_hd103980104065_ (let () (declare (not safe)) - (##car _e103719103800_)))) + (##car _e103981104062_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd103718103803_)) + _hd103980104065_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _hd103718103803_)) + _hd103980104065_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103717103805_)) - (let ((_e103722103808_ + _tl103979104067_)) + (let ((_e103984104070_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl103717103805_)))) - (let ((_tl103720103813_ + (gx#stx-e _tl103979104067_)))) + (let ((_tl103982104075_ (let () (declare (not safe)) - (##cdr _e103722103808_))) - (_hd103721103811_ + (##cdr _e103984104070_))) + (_hd103983104073_ (let () (declare (not safe)) - (##car _e103722103808_)))) + (##car _e103984104070_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd103721103811_)) - (let ((___splice110785110786_ + (gx#stx-pair/null? _hd103983104073_)) + (let ((___splice111047111048_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd103721103811_ + _hd103983104073_ '0)))) - (let ((_tl103725103818_ + (let ((_tl103987104080_ (let () (declare (not safe)) - (##vector-ref ___splice110785110786_ '1))) - (_target103723103816_ + (##vector-ref ___splice111047111048_ '1))) + (_target103985104078_ (let () (declare (not safe)) (##vector-ref - ___splice110785110786_ + ___splice111047111048_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103725103818_)) - (___match110848110849_ - _e103704103760_ - _hd103703103763_ - _tl103702103765_ - _e103707103768_ - _hd103706103771_ - _tl103705103773_ - _e103710103776_ - _hd103709103779_ - _tl103708103781_ - _e103713103784_ - _hd103712103787_ - _tl103711103789_ - _e103716103792_ - _hd103715103795_ - _tl103714103797_ - _e103719103800_ - _hd103718103803_ - _tl103717103805_ - _e103722103808_ - _hd103721103811_ - _tl103720103813_ - ___splice110785110786_ - _target103723103816_ - _tl103725103818_) - (___kont110789110790_)))) - (___kont110789110790_)))) - (___kont110789110790_)) - (___kont110789110790_)) + (gx#stx-null? _tl103987104080_)) + (___match111110111111_ + _e103966104022_ + _hd103965104025_ + _tl103964104027_ + _e103969104030_ + _hd103968104033_ + _tl103967104035_ + _e103972104038_ + _hd103971104041_ + _tl103970104043_ + _e103975104046_ + _hd103974104049_ + _tl103973104051_ + _e103978104054_ + _hd103977104057_ + _tl103976104059_ + _e103981104062_ + _hd103980104065_ + _tl103979104067_ + _e103984104070_ + _hd103983104073_ + _tl103982104075_ + ___splice111047111048_ + _target103985104078_ + _tl103987104080_) + (___kont111051111052_)))) + (___kont111051111052_)))) + (___kont111051111052_)) + (___kont111051111052_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110789110790_)))) - (___kont110789110790_)))) - (___kont110789110790_)))) - (___kont110789110790_)))) - (___kont110789110790_)))) + (___kont111051111052_)))) + (___kont111051111052_)))) + (___kont111051111052_)))) + (___kont111051111052_)))) + (___kont111051111052_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110789110790_)) - (___kont110789110790_)) - (___kont110789110790_)))) - (___kont110789110790_))))))))) - (let* ((_g103467103481_ - (lambda (_g103468103478_) + (___kont111051111052_)) + (___kont111051111052_)) + (___kont111051111052_)))) + (___kont111051111052_))))))))) + (let* ((_g103729103743_ + (lambda (_g103730103740_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103468103478_)))) - (_g103466103686_ - (lambda (_g103468103484_) + _g103730103740_)))) + (_g103728103948_ + (lambda (_g103730103746_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103468103484_)) - (let ((_e103473103486_ + (gx#stx-pair? _g103730103746_)) + (let ((_e103735103748_ (let () (declare (not safe)) - (gx#stx-e _g103468103484_)))) - (let ((_hd103472103489_ + (gx#stx-e _g103730103746_)))) + (let ((_hd103734103751_ (let () (declare (not safe)) - (##car _e103473103486_))) - (_tl103471103491_ + (##car _e103735103748_))) + (_tl103733103753_ (let () (declare (not safe)) - (##cdr _e103473103486_)))) + (##cdr _e103735103748_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103471103491_)) - (let ((_e103476103494_ + (gx#stx-pair? _tl103733103753_)) + (let ((_e103738103756_ (let () (declare (not safe)) - (gx#stx-e _tl103471103491_)))) - (let ((_hd103475103497_ + (gx#stx-e _tl103733103753_)))) + (let ((_hd103737103759_ (let () (declare (not safe)) - (##car _e103476103494_))) - (_tl103474103499_ + (##car _e103738103756_))) + (_tl103736103761_ (let () (declare (not safe)) - (##cdr _e103476103494_)))) - ((lambda (_L103502_ _L103503_) + (##cdr _e103738103756_)))) + ((lambda (_L103764_ _L103765_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (_compile-call103465_ - _L103503_ - _L103502_)) - (let* ((___stx110897110898_ - _L103503_) - (_g103518103530_ + (_compile-call103727_ + _L103765_ + _L103764_)) + (let* ((___stx111159111160_ + _L103765_) + (_g103780103792_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110897110898_))))) - (let ((___kont110899110900_ + ___stx111159111160_))))) + (let ((___kont111161111162_ (lambda () - (let ((_f103560_ + (let ((_f103822_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _L103503_)))) - (if (let ((__tmp111771 (symbol->string _f103560_))) + (gxc#compile-e__0 _L103765_)))) + (if (let ((__tmp112033 (symbol->string _f103822_))) (declare (not safe)) - (string-prefix? '"##" __tmp111771)) - (let _lp103562_ ((_rest103565_ (reverse _L103502_)) - (_bind103567_ '()) - (_args103568_ '())) - (let* ((_rest103569103577_ _rest103565_) - (_else103571103585_ + (string-prefix? '"##" __tmp112033)) + (let _lp103824_ ((_rest103827_ (reverse _L103764_)) + (_bind103829_ '()) + (_args103830_ '())) + (let* ((_rest103831103839_ _rest103827_) + (_else103833103847_ (lambda () - (let ((__tmp111757 - (let ((__tmp111758 - (let ((__tmp111759 - (let ((__tmp111760 + (let ((__tmp112019 + (let ((__tmp112020 + (let ((__tmp112021 + (let ((__tmp112022 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _f103560_ _args103568_)))) + (cons _f103822_ _args103830_)))) (declare (not safe)) - (cons __tmp111760 '())))) + (cons __tmp112022 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp111759)))) + __tmp112021)))) (declare (not safe)) - (cons _bind103567_ __tmp111758)))) + (cons _bind103829_ __tmp112020)))) (declare (not safe)) - (cons 'let __tmp111757)))) - (_K103573103671_ - (lambda (_rest103588_ _e103589_) - (let* ((___stx110851110852_ _e103589_) - (_g103594103612_ + (cons 'let __tmp112019)))) + (_K103835103933_ + (lambda (_rest103850_ _e103851_) + (let* ((___stx111113111114_ _e103851_) + (_g103856103874_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110851110852_))))) - (let ((___kont110853110854_ + ___stx111113111114_))))) + (let ((___kont111115111116_ (lambda () - (let ((__tmp111761 - (let ((__tmp111762 + (let ((__tmp112023 + (let ((__tmp112024 (let () (declare (not safe)) (gxc#compile-e__0 - _e103589_)))) + _e103851_)))) (declare (not safe)) - (cons __tmp111762 - _args103568_)))) + (cons __tmp112024 + _args103830_)))) (declare (not safe)) - (_lp103562_ - _rest103588_ - _bind103567_ - __tmp111761)))) - (___kont110855110856_ + (_lp103824_ + _rest103850_ + _bind103829_ + __tmp112023)))) + (___kont111117111118_ (lambda () - (let ((__tmp111763 - (let ((__tmp111764 + (let ((__tmp112025 + (let ((__tmp112026 (let () (declare (not safe)) (gxc#compile-e__0 - _e103589_)))) + _e103851_)))) (declare (not safe)) - (cons __tmp111764 - _args103568_)))) + (cons __tmp112026 + _args103830_)))) (declare (not safe)) - (_lp103562_ - _rest103588_ - _bind103567_ - __tmp111763)))) - (___kont110857110858_ + (_lp103824_ + _rest103850_ + _bind103829_ + __tmp112025)))) + (___kont111119111120_ (lambda () - (let ((_tmp103619_ - (let ((__tmp111765 + (let ((_tmp103881_ + (let ((__tmp112027 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp111765)))) - (let ((__tmp111767 - (let ((__tmp111768 - (let ((__tmp111769 + __tmp112027)))) + (let ((__tmp112029 + (let ((__tmp112030 + (let ((__tmp112031 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111770 + (let ((__tmp112032 (let () (declare (not safe)) - (gxc#compile-e__0 _e103589_)))) + (gxc#compile-e__0 _e103851_)))) (declare (not safe)) - (cons __tmp111770 '())))) + (cons __tmp112032 '())))) (declare (not safe)) - (cons _tmp103619_ __tmp111769)))) + (cons _tmp103881_ __tmp112031)))) (declare (not safe)) - (cons __tmp111768 _bind103567_))) + (cons __tmp112030 _bind103829_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp111766 + (__tmp112028 (let () (declare (not safe)) - (cons _tmp103619_ - _args103568_)))) + (cons _tmp103881_ + _args103830_)))) (declare (not safe)) - (_lp103562_ - _rest103588_ - __tmp111767 - __tmp111766)))))) + (_lp103824_ + _rest103850_ + __tmp112029 + __tmp112028)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110851110852_)) - (let ((_e103598103650_ + (gx#stx-pair? ___stx111113111114_)) + (let ((_e103860103912_ (let () (declare (not safe)) (gx#stx-e - ___stx110851110852_)))) - (let ((_tl103596103655_ + ___stx111113111114_)))) + (let ((_tl103858103917_ (let () (declare (not safe)) - (##cdr _e103598103650_))) - (_hd103597103653_ + (##cdr _e103860103912_))) + (_hd103859103915_ (let () (declare (not safe)) - (##car _e103598103650_)))) + (##car _e103860103912_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd103597103653_)) + _hd103859103915_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd103597103653_)) + _hd103859103915_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103596103655_)) - (let ((_e103601103658_ + _tl103858103917_)) + (let ((_e103863103920_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl103596103655_)))) - (let ((_tl103599103663_ + (gx#stx-e _tl103858103917_)))) + (let ((_tl103861103925_ (let () (declare (not safe)) - (##cdr _e103601103658_))) - (_hd103600103661_ + (##cdr _e103863103920_))) + (_hd103862103923_ (let () (declare (not safe)) - (##car _e103601103658_)))) + (##car _e103863103920_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103599103663_)) - (___kont110853110854_) - (___kont110857110858_)))) - (___kont110857110858_)) + (gx#stx-null? _tl103861103925_)) + (___kont111115111116_) + (___kont111119111120_)))) + (___kont111119111120_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd103597103653_)) + (gx#stx-eq? '%#quote _hd103859103915_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103596103655_)) - (let ((_e103607103635_ + (gx#stx-pair? _tl103858103917_)) + (let ((_e103869103897_ (let () (declare (not safe)) - (gx#stx-e _tl103596103655_)))) - (let ((_tl103605103640_ + (gx#stx-e _tl103858103917_)))) + (let ((_tl103867103902_ (let () (declare (not safe)) - (##cdr _e103607103635_))) - (_hd103606103638_ + (##cdr _e103869103897_))) + (_hd103868103900_ (let () (declare (not safe)) - (##car _e103607103635_)))) + (##car _e103869103897_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103605103640_)) - (___kont110855110856_) - (___kont110857110858_)))) - (___kont110857110858_)) - (___kont110857110858_))) + (gx#stx-null? _tl103867103902_)) + (___kont111117111118_) + (___kont111119111120_)))) + (___kont111119111120_)) + (___kont111119111120_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110857110858_)))) - (___kont110857110858_))))))) + (___kont111119111120_)))) + (___kont111119111120_))))))) (if (let () (declare (not safe)) - (##pair? _rest103569103577_)) - (let ((_hd103574103674_ + (##pair? _rest103831103839_)) + (let ((_hd103836103936_ (let () (declare (not safe)) - (##car _rest103569103577_))) - (_tl103575103676_ + (##car _rest103831103839_))) + (_tl103837103938_ (let () (declare (not safe)) - (##cdr _rest103569103577_)))) - (let* ((_e103679_ _hd103574103674_) - (_rest103681_ _tl103575103676_)) + (##cdr _rest103831103839_)))) + (let* ((_e103941_ _hd103836103936_) + (_rest103943_ _tl103837103938_)) (declare (not safe)) - (_K103573103671_ _rest103681_ _e103679_))) + (_K103835103933_ _rest103943_ _e103941_))) (let () (declare (not safe)) - (_else103571103585_))))) + (_else103833103847_))))) (let () (declare (not safe)) - (_compile-call103465_ _L103503_ _L103502_)))))) + (_compile-call103727_ _L103765_ _L103764_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110901110902_ + (___kont111163111164_ (lambda () (let () (declare (not safe)) - (_compile-call103465_ - _L103503_ - _L103502_))))) + (_compile-call103727_ + _L103765_ + _L103764_))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx110897110898_)) - (let ((_e103522103542_ + ___stx111159111160_)) + (let ((_e103784103804_ (let () (declare (not safe)) (gx#stx-e - ___stx110897110898_)))) - (let ((_tl103520103547_ + ___stx111159111160_)))) + (let ((_tl103782103809_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e103522103542_))) - (_hd103521103545_ - (let () (declare (not safe)) (##car _e103522103542_)))) + (##cdr _e103784103804_))) + (_hd103783103807_ + (let () (declare (not safe)) (##car _e103784103804_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd103521103545_)) + (gx#identifier? _hd103783103807_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd103521103545_)) + (gx#stx-eq? '%#ref _hd103783103807_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103520103547_)) - (let ((_e103525103550_ + (gx#stx-pair? _tl103782103809_)) + (let ((_e103787103812_ (let () (declare (not safe)) - (gx#stx-e _tl103520103547_)))) - (let ((_tl103523103555_ + (gx#stx-e _tl103782103809_)))) + (let ((_tl103785103817_ (let () (declare (not safe)) - (##cdr _e103525103550_))) - (_hd103524103553_ + (##cdr _e103787103812_))) + (_hd103786103815_ (let () (declare (not safe)) - (##car _e103525103550_)))) + (##car _e103787103812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103523103555_)) - (___kont110899110900_) - (___kont110901110902_)))) - (___kont110901110902_)) - (___kont110901110902_)) - (___kont110901110902_)))) + (gx#stx-null? _tl103785103817_)) + (___kont111161111162_) + (___kont111163111164_)))) + (___kont111163111164_)) + (___kont111163111164_)) + (___kont111163111164_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110901110902_)))))) - _tl103474103499_ - _hd103475103497_))) + (___kont111163111164_)))))) + _tl103736103761_ + _hd103737103759_))) (let () (declare (not safe)) - (_g103467103481_ _g103468103484_))))) + (_g103729103743_ _g103730103746_))))) (let () (declare (not safe)) - (_g103467103481_ _g103468103484_)))))) + (_g103729103743_ _g103730103746_)))))) (declare (not safe)) - (_g103466103686_ _stx103463_))))) + (_g103728103948_ _stx103725_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_stx103251_) - (let* ((___stx110969110970_ _stx103251_) - (_g103254103274_ + (lambda (_stx103513_) + (let* ((___stx111231111232_ _stx103513_) + (_g103516103536_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110969110970_))))) - (let ((___kont110971110972_ - (lambda (_L103318_ _L103319_) + ___stx111231111232_))))) + (let ((___kont111233111234_ + (lambda (_L103580_ _L103581_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx103251_)) - (let ((_f103337_ - (let ((__tmp111772 - (let ((__tmp111774 + (gxc#generate-runtime-call% _stx103513_)) + (let ((_f103599_ + (let ((__tmp112034 + (let ((__tmp112036 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp111773 + (__tmp112035 (let () (declare (not safe)) - (cons _L103319_ '())))) + (cons _L103581_ '())))) (declare (not safe)) - (cons __tmp111774 __tmp111773)))) + (cons __tmp112036 __tmp112035)))) (declare (not safe)) - (gxc#compile-e__0 __tmp111772)))) - (let _lp103339_ ((_rest103342_ (reverse _L103318_)) - (_bind103344_ '()) - (_args103345_ '())) - (let* ((_rest103346103354_ _rest103342_) - (_else103348103362_ + (gxc#compile-e__0 __tmp112034)))) + (let _lp103601_ ((_rest103604_ (reverse _L103580_)) + (_bind103606_ '()) + (_args103607_ '())) + (let* ((_rest103608103616_ _rest103604_) + (_else103610103624_ (lambda () - (let ((__tmp111775 - (let ((__tmp111776 - (let ((__tmp111777 - (let ((__tmp111778 + (let ((__tmp112037 + (let ((__tmp112038 + (let ((__tmp112039 + (let ((__tmp112040 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _f103337_ _args103345_)))) + (cons _f103599_ _args103607_)))) (declare (not safe)) - (cons __tmp111778 '())))) + (cons __tmp112040 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111777)))) + (cons '(declare (not safe)) __tmp112039)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind103344_ - __tmp111776)))) + (cons _bind103606_ + __tmp112038)))) (declare (not safe)) - (cons 'let __tmp111775)))) - (_K103350103448_ - (lambda (_rest103365_ _e103366_) - (let* ((___stx110923110924_ _e103366_) - (_g103371103389_ + (cons 'let __tmp112037)))) + (_K103612103710_ + (lambda (_rest103627_ _e103628_) + (let* ((___stx111185111186_ _e103628_) + (_g103633103651_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx110923110924_))))) - (let ((___kont110925110926_ + ___stx111185111186_))))) + (let ((___kont111187111188_ (lambda () - (let ((__tmp111779 - (let ((__tmp111780 + (let ((__tmp112041 + (let ((__tmp112042 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e103366_)))) + (gxc#compile-e__0 _e103628_)))) (declare (not safe)) - (cons __tmp111780 _args103345_)))) + (cons __tmp112042 _args103607_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp103339_ - _rest103365_ - _bind103344_ - __tmp111779)))) - (___kont110927110928_ + (_lp103601_ + _rest103627_ + _bind103606_ + __tmp112041)))) + (___kont111189111190_ (lambda () - (let ((__tmp111781 - (let ((__tmp111782 + (let ((__tmp112043 + (let ((__tmp112044 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e103366_)))) + (gxc#compile-e__0 _e103628_)))) (declare (not safe)) - (cons __tmp111782 _args103345_)))) + (cons __tmp112044 _args103607_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp103339_ - _rest103365_ - _bind103344_ - __tmp111781)))) - (___kont110929110930_ + (_lp103601_ + _rest103627_ + _bind103606_ + __tmp112043)))) + (___kont111191111192_ (lambda () - (let ((_tmp103396_ - (let ((__tmp111783 + (let ((_tmp103658_ + (let ((__tmp112045 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp111783)))) - (let ((__tmp111785 - (let ((__tmp111786 + __tmp112045)))) + (let ((__tmp112047 + (let ((__tmp112048 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111787 - (let ((__tmp111788 + (let ((__tmp112049 + (let ((__tmp112050 (let () (declare (not safe)) - (gxc#compile-e__0 _e103366_)))) + (gxc#compile-e__0 _e103628_)))) (declare (not safe)) - (cons __tmp111788 '())))) + (cons __tmp112050 '())))) (declare (not safe)) - (cons _tmp103396_ __tmp111787)))) + (cons _tmp103658_ __tmp112049)))) (declare (not safe)) - (cons __tmp111786 _bind103344_))) - (__tmp111784 + (cons __tmp112048 _bind103606_))) + (__tmp112046 (let () (declare (not safe)) - (cons _tmp103396_ _args103345_)))) + (cons _tmp103658_ _args103607_)))) (declare (not safe)) - (_lp103339_ _rest103365_ __tmp111785 __tmp111784)))))) + (_lp103601_ _rest103627_ __tmp112047 __tmp112046)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx110923110924_)) - (let ((_e103375103427_ + ___stx111185111186_)) + (let ((_e103637103689_ (let () (declare (not safe)) (gx#stx-e - ___stx110923110924_)))) - (let ((_tl103373103432_ + ___stx111185111186_)))) + (let ((_tl103635103694_ (let () (declare (not safe)) - (##cdr _e103375103427_))) - (_hd103374103430_ + (##cdr _e103637103689_))) + (_hd103636103692_ (let () (declare (not safe)) - (##car _e103375103427_)))) + (##car _e103637103689_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd103374103430_)) + _hd103636103692_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd103374103430_)) + _hd103636103692_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl103373103432_)) - (let ((_e103378103435_ + (gx#stx-pair? _tl103635103694_)) + (let ((_e103640103697_ (let () (declare (not safe)) - (gx#stx-e _tl103373103432_)))) - (let ((_tl103376103440_ + (gx#stx-e _tl103635103694_)))) + (let ((_tl103638103702_ (let () (declare (not safe)) - (##cdr _e103378103435_))) - (_hd103377103438_ + (##cdr _e103640103697_))) + (_hd103639103700_ (let () (declare (not safe)) - (##car _e103378103435_)))) + (##car _e103640103697_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103376103440_)) - (___kont110925110926_) - (___kont110929110930_)))) - (___kont110929110930_)) + (gx#stx-null? _tl103638103702_)) + (___kont111187111188_) + (___kont111191111192_)))) + (___kont111191111192_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd103374103430_)) + (gx#stx-eq? '%#quote _hd103636103692_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103373103432_)) - (let ((_e103384103412_ + (gx#stx-pair? _tl103635103694_)) + (let ((_e103646103674_ (let () (declare (not safe)) - (gx#stx-e _tl103373103432_)))) - (let ((_tl103382103417_ + (gx#stx-e _tl103635103694_)))) + (let ((_tl103644103679_ (let () (declare (not safe)) - (##cdr _e103384103412_))) - (_hd103383103415_ + (##cdr _e103646103674_))) + (_hd103645103677_ (let () (declare (not safe)) - (##car _e103384103412_)))) + (##car _e103646103674_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103382103417_)) - (___kont110927110928_) - (___kont110929110930_)))) - (___kont110929110930_)) - (___kont110929110930_))) - (___kont110929110930_)))) + (gx#stx-null? _tl103644103679_)) + (___kont111189111190_) + (___kont111191111192_)))) + (___kont111191111192_)) + (___kont111191111192_))) + (___kont111191111192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont110929110930_))))))) + (___kont111191111192_))))))) (if (let () (declare (not safe)) - (##pair? _rest103346103354_)) - (let ((_hd103351103451_ + (##pair? _rest103608103616_)) + (let ((_hd103613103713_ (let () (declare (not safe)) - (##car _rest103346103354_))) - (_tl103352103453_ + (##car _rest103608103616_))) + (_tl103614103715_ (let () (declare (not safe)) - (##cdr _rest103346103354_)))) - (let* ((_e103456_ _hd103351103451_) - (_rest103458_ _tl103352103453_)) + (##cdr _rest103608103616_)))) + (let* ((_e103718_ _hd103613103713_) + (_rest103720_ _tl103614103715_)) (declare (not safe)) - (_K103350103448_ - _rest103458_ - _e103456_))) + (_K103612103710_ + _rest103720_ + _e103718_))) (let () (declare (not safe)) - (_else103348103362_))))))))) - (___kont110973110974_ + (_else103610103624_))))))))) + (___kont111235111236_ (lambda () (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx103251_))))) + (gxc#generate-runtime-call% _stx103513_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx110969110970_)) - (let ((_e103260103286_ + (gx#stx-pair? ___stx111231111232_)) + (let ((_e103522103548_ (let () (declare (not safe)) - (gx#stx-e ___stx110969110970_)))) - (let ((_tl103258103291_ + (gx#stx-e ___stx111231111232_)))) + (let ((_tl103520103553_ (let () (declare (not safe)) - (##cdr _e103260103286_))) - (_hd103259103289_ + (##cdr _e103522103548_))) + (_hd103521103551_ (let () (declare (not safe)) - (##car _e103260103286_)))) + (##car _e103522103548_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103258103291_)) - (let ((_e103263103294_ + (gx#stx-pair? _tl103520103553_)) + (let ((_e103525103556_ (let () (declare (not safe)) - (gx#stx-e _tl103258103291_)))) - (let ((_tl103261103299_ + (gx#stx-e _tl103520103553_)))) + (let ((_tl103523103561_ (let () (declare (not safe)) - (##cdr _e103263103294_))) - (_hd103262103297_ + (##cdr _e103525103556_))) + (_hd103524103559_ (let () (declare (not safe)) - (##car _e103263103294_)))) + (##car _e103525103556_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103262103297_)) - (let ((_e103266103302_ + (gx#stx-pair? _hd103524103559_)) + (let ((_e103528103564_ (let () (declare (not safe)) - (gx#stx-e _hd103262103297_)))) - (let ((_tl103264103307_ + (gx#stx-e _hd103524103559_)))) + (let ((_tl103526103569_ (let () (declare (not safe)) - (##cdr _e103266103302_))) - (_hd103265103305_ + (##cdr _e103528103564_))) + (_hd103527103567_ (let () (declare (not safe)) - (##car _e103266103302_)))) + (##car _e103528103564_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd103265103305_)) + (gx#identifier? _hd103527103567_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd103265103305_)) + _hd103527103567_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103264103307_)) - (let ((_e103269103310_ + _tl103526103569_)) + (let ((_e103531103572_ (let () (declare (not safe)) (gx#stx-e - _tl103264103307_)))) - (let ((_tl103267103315_ + _tl103526103569_)))) + (let ((_tl103529103577_ (let () (declare (not safe)) - (##cdr _e103269103310_))) - (_hd103268103313_ + (##cdr _e103531103572_))) + (_hd103530103575_ (let () (declare (not safe)) - (##car _e103269103310_)))) + (##car _e103531103572_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103267103315_)) - (___kont110971110972_ - _tl103261103299_ - _hd103268103313_) - (___kont110973110974_)))) - (___kont110973110974_)) - (___kont110973110974_)) - (___kont110973110974_)))) - (___kont110973110974_)))) - (___kont110973110974_)))) - (___kont110973110974_)))))) + _tl103529103577_)) + (___kont111233111234_ + _tl103523103561_ + _hd103530103575_) + (___kont111235111236_)))) + (___kont111235111236_)) + (___kont111235111236_)) + (___kont111235111236_)))) + (___kont111235111236_)))) + (___kont111235111236_)))) + (___kont111235111236_)))))) (define gxc#generate-runtime-if% - (lambda (_stx103064_) - (letrec ((_simplify103066_ - (lambda (_code103151_) - (let* ((_code103152103170_ _code103151_) - (_else103154103178_ (lambda () _code103151_)) - (_K103156103214_ - (lambda (_expr103181_ _test103182_) - (let* ((_expr103183103191_ _expr103181_) - (_else103185103199_ + (lambda (_stx103326_) + (letrec ((_simplify103328_ + (lambda (_code103413_) + (let* ((_code103414103432_ _code103413_) + (_else103416103440_ (lambda () _code103413_)) + (_K103418103476_ + (lambda (_expr103443_ _test103444_) + (let* ((_expr103445103453_ _expr103443_) + (_else103447103461_ (lambda () - (let ((__tmp111789 - (let ((__tmp111790 + (let ((__tmp112051 + (let ((__tmp112052 (let () (declare (not safe)) - (cons _expr103181_ + (cons _expr103443_ '())))) (declare (not safe)) - (cons _test103182_ - __tmp111790)))) + (cons _test103444_ + __tmp112052)))) (declare (not safe)) - (cons 'and __tmp111789)))) - (_K103187103204_ - (lambda (_exprs103202_) - (let ((__tmp111791 + (cons 'and __tmp112051)))) + (_K103449103466_ + (lambda (_exprs103464_) + (let ((__tmp112053 (let () (declare (not safe)) - (cons _test103182_ - _exprs103202_)))) + (cons _test103444_ + _exprs103464_)))) (declare (not safe)) - (cons 'and __tmp111791))))) + (cons 'and __tmp112053))))) (if (let () (declare (not safe)) - (##pair? _expr103183103191_)) - (let ((_hd103188103207_ + (##pair? _expr103445103453_)) + (let ((_hd103450103469_ (let () (declare (not safe)) - (##car _expr103183103191_))) - (_tl103189103209_ + (##car _expr103445103453_))) + (_tl103451103471_ (let () (declare (not safe)) - (##cdr _expr103183103191_)))) + (##cdr _expr103445103453_)))) (if (let () (declare (not safe)) - (##eq? _hd103188103207_ 'and)) - (let ((_exprs103212_ - _tl103189103209_)) + (##eq? _hd103450103469_ 'and)) + (let ((_exprs103474_ + _tl103451103471_)) (declare (not safe)) - (_K103187103204_ _exprs103212_)) + (_K103449103466_ _exprs103474_)) (let () (declare (not safe)) - (_else103185103199_)))) + (_else103447103461_)))) (let () (declare (not safe)) - (_else103185103199_))))))) + (_else103447103461_))))))) (if (let () (declare (not safe)) - (##pair? _code103152103170_)) - (let ((_hd103157103217_ + (##pair? _code103414103432_)) + (let ((_hd103419103479_ (let () (declare (not safe)) - (##car _code103152103170_))) - (_tl103158103219_ + (##car _code103414103432_))) + (_tl103420103481_ (let () (declare (not safe)) - (##cdr _code103152103170_)))) + (##cdr _code103414103432_)))) (if (let () (declare (not safe)) - (##eq? _hd103157103217_ 'if)) + (##eq? _hd103419103479_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl103158103219_)) - (let ((_hd103159103222_ + (##pair? _tl103420103481_)) + (let ((_hd103421103484_ (let () (declare (not safe)) - (##car _tl103158103219_))) - (_tl103160103224_ + (##car _tl103420103481_))) + (_tl103422103486_ (let () (declare (not safe)) - (##cdr _tl103158103219_)))) - (let ((_test103227_ _hd103159103222_)) + (##cdr _tl103420103481_)))) + (let ((_test103489_ _hd103421103484_)) (if (let () (declare (not safe)) - (##pair? _tl103160103224_)) - (let ((_hd103161103229_ + (##pair? _tl103422103486_)) + (let ((_hd103423103491_ (let () (declare (not safe)) - (##car _tl103160103224_))) - (_tl103162103231_ + (##car _tl103422103486_))) + (_tl103424103493_ (let () (declare (not safe)) - (##cdr _tl103160103224_)))) - (let ((_expr103234_ - _hd103161103229_)) + (##cdr _tl103422103486_)))) + (let ((_expr103496_ + _hd103423103491_)) (if (let () (declare (not safe)) - (##pair? _tl103162103231_)) - (let ((_hd103163103236_ + (##pair? _tl103424103493_)) + (let ((_hd103425103498_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl103162103231_))) - (_tl103164103238_ - (let () (declare (not safe)) (##cdr _tl103162103231_)))) - (if (let () (declare (not safe)) (##pair? _hd103163103236_)) - (let ((_hd103165103241_ + (##car _tl103424103493_))) + (_tl103426103500_ + (let () (declare (not safe)) (##cdr _tl103424103493_)))) + (if (let () (declare (not safe)) (##pair? _hd103425103498_)) + (let ((_hd103427103503_ (let () (declare (not safe)) - (##car _hd103163103236_))) - (_tl103166103243_ + (##car _hd103425103498_))) + (_tl103428103505_ (let () (declare (not safe)) - (##cdr _hd103163103236_)))) + (##cdr _hd103425103498_)))) (if (let () (declare (not safe)) - (##eq? _hd103165103241_ 'quote)) + (##eq? _hd103427103503_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl103166103243_)) - (let ((_hd103167103246_ + (##pair? _tl103428103505_)) + (let ((_hd103429103508_ (let () (declare (not safe)) - (##car _tl103166103243_))) - (_tl103168103248_ + (##car _tl103428103505_))) + (_tl103430103510_ (let () (declare (not safe)) - (##cdr _tl103166103243_)))) + (##cdr _tl103428103505_)))) (if (let () (declare (not safe)) - (##eq? _hd103167103246_ '#f)) + (##eq? _hd103429103508_ '#f)) (if (let () (declare (not safe)) - (##null? _tl103168103248_)) + (##null? _tl103430103510_)) (if (let () (declare (not safe)) - (##null? _tl103164103238_)) + (##null? _tl103426103500_)) (let () (declare (not safe)) - (_K103156103214_ - _expr103234_ - _test103227_)) + (_K103418103476_ + _expr103496_ + _test103489_)) (let () (declare (not safe)) - (_else103154103178_))) + (_else103416103440_))) (let () (declare (not safe)) - (_else103154103178_))) + (_else103416103440_))) (let () (declare (not safe)) - (_else103154103178_)))) + (_else103416103440_)))) (let () (declare (not safe)) - (_else103154103178_))) - (let () (declare (not safe)) (_else103154103178_)))) - (let () (declare (not safe)) (_else103154103178_)))) - (let () (declare (not safe)) (_else103154103178_))))) + (_else103416103440_))) + (let () (declare (not safe)) (_else103416103440_)))) + (let () (declare (not safe)) (_else103416103440_)))) + (let () (declare (not safe)) (_else103416103440_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else103154103178_))))) + (_else103416103440_))))) (let () (declare (not safe)) - (_else103154103178_))) + (_else103416103440_))) (let () (declare (not safe)) - (_else103154103178_)))) + (_else103416103440_)))) (let () (declare (not safe)) - (_else103154103178_))))))) - (let* ((_g103068103089_ - (lambda (_g103069103086_) + (_else103416103440_))))))) + (let* ((_g103330103351_ + (lambda (_g103331103348_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103069103086_)))) - (_g103067103148_ - (lambda (_g103069103092_) + _g103331103348_)))) + (_g103329103410_ + (lambda (_g103331103354_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103069103092_)) - (let ((_e103075103094_ + (gx#stx-pair? _g103331103354_)) + (let ((_e103337103356_ (let () (declare (not safe)) - (gx#stx-e _g103069103092_)))) - (let ((_hd103074103097_ + (gx#stx-e _g103331103354_)))) + (let ((_hd103336103359_ (let () (declare (not safe)) - (##car _e103075103094_))) - (_tl103073103099_ + (##car _e103337103356_))) + (_tl103335103361_ (let () (declare (not safe)) - (##cdr _e103075103094_)))) + (##cdr _e103337103356_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103073103099_)) - (let ((_e103078103102_ + (gx#stx-pair? _tl103335103361_)) + (let ((_e103340103364_ (let () (declare (not safe)) - (gx#stx-e _tl103073103099_)))) - (let ((_hd103077103105_ + (gx#stx-e _tl103335103361_)))) + (let ((_hd103339103367_ (let () (declare (not safe)) - (##car _e103078103102_))) - (_tl103076103107_ + (##car _e103340103364_))) + (_tl103338103369_ (let () (declare (not safe)) - (##cdr _e103078103102_)))) + (##cdr _e103340103364_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103076103107_)) - (let ((_e103081103110_ + (gx#stx-pair? _tl103338103369_)) + (let ((_e103343103372_ (let () (declare (not safe)) (gx#stx-e - _tl103076103107_)))) - (let ((_hd103080103113_ + _tl103338103369_)))) + (let ((_hd103342103375_ (let () (declare (not safe)) - (##car _e103081103110_))) - (_tl103079103115_ + (##car _e103343103372_))) + (_tl103341103377_ (let () (declare (not safe)) - (##cdr _e103081103110_)))) + (##cdr _e103343103372_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103079103115_)) - (let ((_e103084103118_ + _tl103341103377_)) + (let ((_e103346103380_ (let () (declare (not safe)) (gx#stx-e - _tl103079103115_)))) - (let ((_hd103083103121_ + _tl103341103377_)))) + (let ((_hd103345103383_ (let () (declare (not safe)) - (##car _e103084103118_))) - (_tl103082103123_ + (##car _e103346103380_))) + (_tl103344103385_ (let () (declare (not safe)) - (##cdr _e103084103118_)))) + (##cdr _e103346103380_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103082103123_)) - ((lambda (_L103126_ + _tl103344103385_)) + ((lambda (_L103388_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L103127_ - _L103128_) + _L103389_ + _L103390_) (if (gxc#current-compile-boolean-context) - (let ((__tmp111799 - (let ((__tmp111800 - (let ((__tmp111805 + (let ((__tmp112061 + (let ((__tmp112062 + (let ((__tmp112067 (let () (declare (not safe)) - (gxc#compile-e__0 _L103128_))) - (__tmp111801 - (let ((__tmp111804 + (gxc#compile-e__0 _L103390_))) + (__tmp112063 + (let ((__tmp112066 (let () (declare (not safe)) (gxc#compile-e__0 - _L103127_))) - (__tmp111802 - (let ((__tmp111803 + _L103389_))) + (__tmp112064 + (let ((__tmp112065 (let () (declare (not safe)) (gxc#compile-e__0 - _L103126_)))) + _L103388_)))) (declare (not safe)) - (cons __tmp111803 + (cons __tmp112065 '())))) (declare (not safe)) - (cons __tmp111804 - __tmp111802)))) + (cons __tmp112066 + __tmp112064)))) (declare (not safe)) - (cons __tmp111805 __tmp111801)))) + (cons __tmp112067 __tmp112063)))) (declare (not safe)) - (cons 'if __tmp111800)))) + (cons 'if __tmp112062)))) (declare (not safe)) - (_simplify103066_ __tmp111799)) - (let ((__tmp111792 - (let ((__tmp111797 - (let ((__tmp111798 + (_simplify103328_ __tmp112061)) + (let ((__tmp112054 + (let ((__tmp112059 + (let ((__tmp112060 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L103128_))))) + _L103390_))))) (declare (not safe)) (call-with-parameters - __tmp111798 + __tmp112060 gxc#current-compile-boolean-context '#t))) - (__tmp111793 - (let ((__tmp111796 + (__tmp112055 + (let ((__tmp112058 (let () (declare (not safe)) - (gxc#compile-e__0 _L103127_))) - (__tmp111794 - (let ((__tmp111795 + (gxc#compile-e__0 _L103389_))) + (__tmp112056 + (let ((__tmp112057 (let () (declare (not safe)) (gxc#compile-e__0 - _L103126_)))) + _L103388_)))) (declare (not safe)) - (cons __tmp111795 '())))) + (cons __tmp112057 '())))) (declare (not safe)) - (cons __tmp111796 __tmp111794)))) + (cons __tmp112058 __tmp112056)))) (declare (not safe)) - (cons __tmp111797 __tmp111793)))) + (cons __tmp112059 __tmp112055)))) (declare (not safe)) - (cons 'if __tmp111792)))) - _hd103083103121_ - _hd103080103113_ - _hd103077103105_) + (cons 'if __tmp112054)))) + _hd103345103383_ + _hd103342103375_ + _hd103339103367_) (let () (declare (not safe)) - (_g103068103089_ _g103069103092_))))) + (_g103330103351_ _g103331103354_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g103068103089_ - _g103069103092_))))) + (_g103330103351_ + _g103331103354_))))) (let () (declare (not safe)) - (_g103068103089_ - _g103069103092_))))) + (_g103330103351_ + _g103331103354_))))) (let () (declare (not safe)) - (_g103068103089_ _g103069103092_))))) + (_g103330103351_ _g103331103354_))))) (let () (declare (not safe)) - (_g103068103089_ _g103069103092_)))))) + (_g103330103351_ _g103331103354_)))))) (declare (not safe)) - (_g103067103148_ _stx103064_))))) + (_g103329103410_ _stx103326_))))) (define gxc#generate-runtime-ref% - (lambda (_stx103013_) - (let* ((_g103015103028_ - (lambda (_g103016103025_) + (lambda (_stx103275_) + (let* ((_g103277103290_ + (lambda (_g103278103287_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103016103025_)))) - (_g103014103061_ - (lambda (_g103016103031_) + _g103278103287_)))) + (_g103276103323_ + (lambda (_g103278103293_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103016103031_)) - (let ((_e103020103033_ + (gx#stx-pair? _g103278103293_)) + (let ((_e103282103295_ (let () (declare (not safe)) - (gx#stx-e _g103016103031_)))) - (let ((_hd103019103036_ + (gx#stx-e _g103278103293_)))) + (let ((_hd103281103298_ (let () (declare (not safe)) - (##car _e103020103033_))) - (_tl103018103038_ + (##car _e103282103295_))) + (_tl103280103300_ (let () (declare (not safe)) - (##cdr _e103020103033_)))) + (##cdr _e103282103295_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103018103038_)) - (let ((_e103023103041_ + (gx#stx-pair? _tl103280103300_)) + (let ((_e103285103303_ (let () (declare (not safe)) - (gx#stx-e _tl103018103038_)))) - (let ((_hd103022103044_ + (gx#stx-e _tl103280103300_)))) + (let ((_hd103284103306_ (let () (declare (not safe)) - (##car _e103023103041_))) - (_tl103021103046_ + (##car _e103285103303_))) + (_tl103283103308_ (let () (declare (not safe)) - (##cdr _e103023103041_)))) + (##cdr _e103285103303_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103021103046_)) - ((lambda (_L103049_) + (gx#stx-null? _tl103283103308_)) + ((lambda (_L103311_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L103049_))) - _hd103022103044_) + _L103311_))) + _hd103284103306_) (let () (declare (not safe)) - (_g103015103028_ _g103016103031_))))) + (_g103277103290_ _g103278103293_))))) (let () (declare (not safe)) - (_g103015103028_ _g103016103031_))))) + (_g103277103290_ _g103278103293_))))) (let () (declare (not safe)) - (_g103015103028_ _g103016103031_)))))) + (_g103277103290_ _g103278103293_)))))) (declare (not safe)) - (_g103014103061_ _stx103013_)))) + (_g103276103323_ _stx103275_)))) (define gxc#generate-runtime-setq% - (lambda (_stx102946_) - (let* ((_g102948102965_ - (lambda (_g102949102962_) + (lambda (_stx103208_) + (let* ((_g103210103227_ + (lambda (_g103211103224_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102949102962_)))) - (_g102947103010_ - (lambda (_g102949102968_) + _g103211103224_)))) + (_g103209103272_ + (lambda (_g103211103230_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102949102968_)) - (let ((_e102954102970_ + (gx#stx-pair? _g103211103230_)) + (let ((_e103216103232_ (let () (declare (not safe)) - (gx#stx-e _g102949102968_)))) - (let ((_hd102953102973_ + (gx#stx-e _g103211103230_)))) + (let ((_hd103215103235_ (let () (declare (not safe)) - (##car _e102954102970_))) - (_tl102952102975_ + (##car _e103216103232_))) + (_tl103214103237_ (let () (declare (not safe)) - (##cdr _e102954102970_)))) + (##cdr _e103216103232_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102952102975_)) - (let ((_e102957102978_ + (gx#stx-pair? _tl103214103237_)) + (let ((_e103219103240_ (let () (declare (not safe)) - (gx#stx-e _tl102952102975_)))) - (let ((_hd102956102981_ + (gx#stx-e _tl103214103237_)))) + (let ((_hd103218103243_ (let () (declare (not safe)) - (##car _e102957102978_))) - (_tl102955102983_ + (##car _e103219103240_))) + (_tl103217103245_ (let () (declare (not safe)) - (##cdr _e102957102978_)))) + (##cdr _e103219103240_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102955102983_)) - (let ((_e102960102986_ + (gx#stx-pair? _tl103217103245_)) + (let ((_e103222103248_ (let () (declare (not safe)) - (gx#stx-e _tl102955102983_)))) - (let ((_hd102959102989_ + (gx#stx-e _tl103217103245_)))) + (let ((_hd103221103251_ (let () (declare (not safe)) - (##car _e102960102986_))) - (_tl102958102991_ + (##car _e103222103248_))) + (_tl103220103253_ (let () (declare (not safe)) - (##cdr _e102960102986_)))) + (##cdr _e103222103248_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102958102991_)) - ((lambda (_L102994_ _L102995_) - (let ((__tmp111806 - (let ((__tmp111809 + _tl103220103253_)) + ((lambda (_L103256_ _L103257_) + (let ((__tmp112068 + (let ((__tmp112071 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L102995_))) - (__tmp111807 - (let ((__tmp111808 + (gxc#generate-runtime-binding-id _L103257_))) + (__tmp112069 + (let ((__tmp112070 (let () (declare (not safe)) - (gxc#compile-e__0 _L102994_)))) + (gxc#compile-e__0 _L103256_)))) (declare (not safe)) - (cons __tmp111808 '())))) + (cons __tmp112070 '())))) (declare (not safe)) - (cons __tmp111809 __tmp111807)))) + (cons __tmp112071 __tmp112069)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp111806))) - _hd102959102989_ - _hd102956102981_) + (cons 'set! __tmp112068))) + _hd103221103251_ + _hd103218103243_) (let () (declare (not safe)) - (_g102948102965_ - _g102949102968_))))) + (_g103210103227_ + _g103211103230_))))) (let () (declare (not safe)) - (_g102948102965_ _g102949102968_))))) + (_g103210103227_ _g103211103230_))))) (let () (declare (not safe)) - (_g102948102965_ _g102949102968_))))) + (_g103210103227_ _g103211103230_))))) (let () (declare (not safe)) - (_g102948102965_ _g102949102968_)))))) + (_g103210103227_ _g103211103230_)))))) (declare (not safe)) - (_g102947103010_ _stx102946_)))) + (_g103209103272_ _stx103208_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_stx102758_) - (let* ((_g102760102777_ - (lambda (_g102761102774_) + (lambda (_stx103020_) + (let* ((_g103022103039_ + (lambda (_g103023103036_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102761102774_)))) - (_g102759102943_ - (lambda (_g102761102780_) + _g103023103036_)))) + (_g103021103205_ + (lambda (_g103023103042_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102761102780_)) - (let ((_e102766102782_ + (gx#stx-pair? _g103023103042_)) + (let ((_e103028103044_ (let () (declare (not safe)) - (gx#stx-e _g102761102780_)))) - (let ((_hd102765102785_ + (gx#stx-e _g103023103042_)))) + (let ((_hd103027103047_ (let () (declare (not safe)) - (##car _e102766102782_))) - (_tl102764102787_ + (##car _e103028103044_))) + (_tl103026103049_ (let () (declare (not safe)) - (##cdr _e102766102782_)))) + (##cdr _e103028103044_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102764102787_)) - (let ((_e102769102790_ + (gx#stx-pair? _tl103026103049_)) + (let ((_e103031103052_ (let () (declare (not safe)) - (gx#stx-e _tl102764102787_)))) - (let ((_hd102768102793_ + (gx#stx-e _tl103026103049_)))) + (let ((_hd103030103055_ (let () (declare (not safe)) - (##car _e102769102790_))) - (_tl102767102795_ + (##car _e103031103052_))) + (_tl103029103057_ (let () (declare (not safe)) - (##cdr _e102769102790_)))) + (##cdr _e103031103052_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102767102795_)) - (let ((_e102772102798_ + (gx#stx-pair? _tl103029103057_)) + (let ((_e103034103060_ (let () (declare (not safe)) - (gx#stx-e _tl102767102795_)))) - (let ((_hd102771102801_ + (gx#stx-e _tl103029103057_)))) + (let ((_hd103033103063_ (let () (declare (not safe)) - (##car _e102772102798_))) - (_tl102770102803_ + (##car _e103034103060_))) + (_tl103032103065_ (let () (declare (not safe)) - (##cdr _e102772102798_)))) + (##cdr _e103034103060_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102770102803_)) - ((lambda (_L102806_ _L102807_) + _tl103032103065_)) + ((lambda (_L103068_ _L103069_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111825 - (let ((__tmp111828 + (let ((__tmp112087 + (let ((__tmp112090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L102806_))) - (__tmp111826 - (let ((__tmp111827 + (gxc#compile-e__0 _L103068_))) + (__tmp112088 + (let ((__tmp112089 (let () (declare (not safe)) - (gxc#compile-e__0 _L102807_)))) + (gxc#compile-e__0 _L103069_)))) (declare (not safe)) - (cons __tmp111827 '())))) + (cons __tmp112089 '())))) (declare (not safe)) - (cons __tmp111828 __tmp111826)))) + (cons __tmp112090 __tmp112088)))) (declare (not safe)) - (cons '##structure-instance-of? __tmp111825)) - (let _lp102822_ ((_rest102825_ - (let ((__tmp111824 + (cons '##structure-instance-of? __tmp112087)) + (let _lp103084_ ((_rest103087_ + (let ((__tmp112086 (let () (declare (not safe)) - (cons _L102806_ '())))) + (cons _L103068_ '())))) (declare (not safe)) - (cons _L102807_ __tmp111824))) - (_bind102827_ '()) - (_args102828_ '())) - (let* ((_rest102829102837_ _rest102825_) - (_else102831102845_ + (cons _L103069_ __tmp112086))) + (_bind103089_ '()) + (_args103090_ '())) + (let* ((_rest103091103099_ _rest103087_) + (_else103093103107_ (lambda () - (let ((__tmp111810 - (let ((__tmp111811 - (let ((__tmp111812 - (let ((__tmp111813 + (let ((__tmp112072 + (let ((__tmp112073 + (let ((__tmp112074 + (let ((__tmp112075 (let () (declare (not safe)) (cons '##structure-instance-of? - _args102828_)))) + _args103090_)))) (declare (not safe)) - (cons __tmp111813 '())))) + (cons __tmp112075 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp111812)))) + __tmp112074)))) (declare (not safe)) - (cons _bind102827_ __tmp111811)))) + (cons _bind103089_ __tmp112073)))) (declare (not safe)) - (cons 'let __tmp111810)))) - (_K102833102931_ - (lambda (_rest102848_ _e102849_) - (let* ((___stx111007111008_ _e102849_) - (_g102854102872_ + (cons 'let __tmp112072)))) + (_K103095103193_ + (lambda (_rest103110_ _e103111_) + (let* ((___stx111269111270_ _e103111_) + (_g103116103134_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111007111008_))))) - (let ((___kont111009111010_ + ___stx111269111270_))))) + (let ((___kont111271111272_ (lambda () - (let ((__tmp111814 - (let ((__tmp111815 + (let ((__tmp112076 + (let ((__tmp112077 (let () (declare (not safe)) (gxc#compile-e__0 - _e102849_)))) + _e103111_)))) (declare (not safe)) - (cons __tmp111815 - _args102828_)))) + (cons __tmp112077 + _args103090_)))) (declare (not safe)) - (_lp102822_ - _rest102848_ - _bind102827_ - __tmp111814)))) - (___kont111011111012_ + (_lp103084_ + _rest103110_ + _bind103089_ + __tmp112076)))) + (___kont111273111274_ (lambda () - (let ((__tmp111816 - (let ((__tmp111817 + (let ((__tmp112078 + (let ((__tmp112079 (let () (declare (not safe)) (gxc#compile-e__0 - _e102849_)))) + _e103111_)))) (declare (not safe)) - (cons __tmp111817 - _args102828_)))) + (cons __tmp112079 + _args103090_)))) (declare (not safe)) - (_lp102822_ - _rest102848_ - _bind102827_ - __tmp111816)))) - (___kont111013111014_ + (_lp103084_ + _rest103110_ + _bind103089_ + __tmp112078)))) + (___kont111275111276_ (lambda () - (let ((_tmp102879_ - (let ((__tmp111818 + (let ((_tmp103141_ + (let ((__tmp112080 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp111818)))) - (let ((__tmp111820 - (let ((__tmp111821 - (let ((__tmp111822 - (let ((__tmp111823 + (make-symbol__0 __tmp112080)))) + (let ((__tmp112082 + (let ((__tmp112083 + (let ((__tmp112084 + (let ((__tmp112085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e102849_)))) + (gxc#compile-e__0 _e103111_)))) (declare (not safe)) - (cons __tmp111823 '())))) + (cons __tmp112085 '())))) (declare (not safe)) - (cons _tmp102879_ __tmp111822)))) + (cons _tmp103141_ __tmp112084)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111821 - _bind102827_))) - (__tmp111819 + (cons __tmp112083 + _bind103089_))) + (__tmp112081 (let () (declare (not safe)) - (cons _tmp102879_ - _args102828_)))) + (cons _tmp103141_ + _args103090_)))) (declare (not safe)) - (_lp102822_ - _rest102848_ - __tmp111820 - __tmp111819)))))) + (_lp103084_ + _rest103110_ + __tmp112082 + __tmp112081)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx111007111008_)) - (let ((_e102858102910_ + (gx#stx-pair? ___stx111269111270_)) + (let ((_e103120103172_ (let () (declare (not safe)) - (gx#stx-e ___stx111007111008_)))) - (let ((_tl102856102915_ + (gx#stx-e ___stx111269111270_)))) + (let ((_tl103118103177_ (let () (declare (not safe)) - (##cdr _e102858102910_))) - (_hd102857102913_ + (##cdr _e103120103172_))) + (_hd103119103175_ (let () (declare (not safe)) - (##car _e102858102910_)))) + (##car _e103120103172_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd102857102913_)) + (gx#identifier? _hd103119103175_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd102857102913_)) + _hd103119103175_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102856102915_)) - (let ((_e102861102918_ + _tl103118103177_)) + (let ((_e103123103180_ (let () (declare (not safe)) (gx#stx-e - _tl102856102915_)))) - (let ((_tl102859102923_ + _tl103118103177_)))) + (let ((_tl103121103185_ (let () (declare (not safe)) - (##cdr _e102861102918_))) - (_hd102860102921_ + (##cdr _e103123103180_))) + (_hd103122103183_ (let () (declare (not safe)) - (##car _e102861102918_)))) + (##car _e103123103180_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102859102923_)) - (___kont111009111010_) - (___kont111013111014_)))) - (___kont111013111014_)) + _tl103121103185_)) + (___kont111271111272_) + (___kont111275111276_)))) + (___kont111275111276_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd102857102913_)) + _hd103119103175_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102856102915_)) - (let ((_e102867102895_ + _tl103118103177_)) + (let ((_e103129103157_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl102856102915_)))) - (let ((_tl102865102900_ - (let () (declare (not safe)) (##cdr _e102867102895_))) - (_hd102866102898_ - (let () (declare (not safe)) (##car _e102867102895_)))) + (gx#stx-e _tl103118103177_)))) + (let ((_tl103127103162_ + (let () (declare (not safe)) (##cdr _e103129103157_))) + (_hd103128103160_ + (let () (declare (not safe)) (##car _e103129103157_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102865102900_)) - (___kont111011111012_) - (___kont111013111014_)))) - (___kont111013111014_)) + (gx#stx-null? _tl103127103162_)) + (___kont111273111274_) + (___kont111275111276_)))) + (___kont111275111276_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111013111014_))) - (___kont111013111014_)))) - (___kont111013111014_))))))) + (___kont111275111276_))) + (___kont111275111276_)))) + (___kont111275111276_))))))) (if (let () (declare (not safe)) - (##pair? _rest102829102837_)) - (let ((_hd102834102934_ + (##pair? _rest103091103099_)) + (let ((_hd103096103196_ (let () (declare (not safe)) - (##car _rest102829102837_))) - (_tl102835102936_ + (##car _rest103091103099_))) + (_tl103097103198_ (let () (declare (not safe)) - (##cdr _rest102829102837_)))) - (let* ((_e102939_ _hd102834102934_) - (_rest102941_ _tl102835102936_)) + (##cdr _rest103091103099_)))) + (let* ((_e103201_ _hd103096103196_) + (_rest103203_ _tl103097103198_)) (declare (not safe)) - (_K102833102931_ _rest102941_ _e102939_))) - (let () (declare (not safe)) (_else102831102845_))))))) + (_K103095103193_ _rest103203_ _e103201_))) + (let () (declare (not safe)) (_else103093103107_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd102771102801_ - _hd102768102793_) + _hd103033103063_ + _hd103030103055_) (let () (declare (not safe)) - (_g102760102777_ - _g102761102780_))))) + (_g103022103039_ + _g103023103042_))))) (let () (declare (not safe)) - (_g102760102777_ _g102761102780_))))) + (_g103022103039_ _g103023103042_))))) (let () (declare (not safe)) - (_g102760102777_ _g102761102780_))))) + (_g103022103039_ _g103023103042_))))) (let () (declare (not safe)) - (_g102760102777_ _g102761102780_)))))) + (_g103022103039_ _g103023103042_)))))) (declare (not safe)) - (_g102759102943_ _stx102758_)))) + (_g103021103205_ _stx103020_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_stx102570_) - (let* ((_g102572102589_ - (lambda (_g102573102586_) + (lambda (_stx102832_) + (let* ((_g102834102851_ + (lambda (_g102835102848_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102573102586_)))) - (_g102571102755_ - (lambda (_g102573102592_) + _g102835102848_)))) + (_g102833103017_ + (lambda (_g102835102854_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102573102592_)) - (let ((_e102578102594_ + (gx#stx-pair? _g102835102854_)) + (let ((_e102840102856_ (let () (declare (not safe)) - (gx#stx-e _g102573102592_)))) - (let ((_hd102577102597_ + (gx#stx-e _g102835102854_)))) + (let ((_hd102839102859_ (let () (declare (not safe)) - (##car _e102578102594_))) - (_tl102576102599_ + (##car _e102840102856_))) + (_tl102838102861_ (let () (declare (not safe)) - (##cdr _e102578102594_)))) + (##cdr _e102840102856_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102576102599_)) - (let ((_e102581102602_ + (gx#stx-pair? _tl102838102861_)) + (let ((_e102843102864_ (let () (declare (not safe)) - (gx#stx-e _tl102576102599_)))) - (let ((_hd102580102605_ + (gx#stx-e _tl102838102861_)))) + (let ((_hd102842102867_ (let () (declare (not safe)) - (##car _e102581102602_))) - (_tl102579102607_ + (##car _e102843102864_))) + (_tl102841102869_ (let () (declare (not safe)) - (##cdr _e102581102602_)))) + (##cdr _e102843102864_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102579102607_)) - (let ((_e102584102610_ + (gx#stx-pair? _tl102841102869_)) + (let ((_e102846102872_ (let () (declare (not safe)) - (gx#stx-e _tl102579102607_)))) - (let ((_hd102583102613_ + (gx#stx-e _tl102841102869_)))) + (let ((_hd102845102875_ (let () (declare (not safe)) - (##car _e102584102610_))) - (_tl102582102615_ + (##car _e102846102872_))) + (_tl102844102877_ (let () (declare (not safe)) - (##cdr _e102584102610_)))) + (##cdr _e102846102872_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102582102615_)) - ((lambda (_L102618_ _L102619_) + _tl102844102877_)) + ((lambda (_L102880_ _L102881_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111844 - (let ((__tmp111847 + (let ((__tmp112106 + (let ((__tmp112109 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L102618_))) - (__tmp111845 - (let ((__tmp111846 + (gxc#compile-e__0 _L102880_))) + (__tmp112107 + (let ((__tmp112108 (let () (declare (not safe)) - (gxc#compile-e__0 _L102619_)))) + (gxc#compile-e__0 _L102881_)))) (declare (not safe)) - (cons __tmp111846 '())))) + (cons __tmp112108 '())))) (declare (not safe)) - (cons __tmp111847 __tmp111845)))) + (cons __tmp112109 __tmp112107)))) (declare (not safe)) - (cons '##structure-direct-instance-of? __tmp111844)) - (let _lp102634_ ((_rest102637_ - (let ((__tmp111843 + (cons '##structure-direct-instance-of? __tmp112106)) + (let _lp102896_ ((_rest102899_ + (let ((__tmp112105 (let () (declare (not safe)) - (cons _L102618_ '())))) + (cons _L102880_ '())))) (declare (not safe)) - (cons _L102619_ __tmp111843))) - (_bind102639_ '()) - (_args102640_ '())) - (let* ((_rest102641102649_ _rest102637_) - (_else102643102657_ + (cons _L102881_ __tmp112105))) + (_bind102901_ '()) + (_args102902_ '())) + (let* ((_rest102903102911_ _rest102899_) + (_else102905102919_ (lambda () - (let ((__tmp111829 - (let ((__tmp111830 - (let ((__tmp111831 - (let ((__tmp111832 + (let ((__tmp112091 + (let ((__tmp112092 + (let ((__tmp112093 + (let ((__tmp112094 (let () (declare (not safe)) (cons '##structure-direct-instance-of? - _args102640_)))) + _args102902_)))) (declare (not safe)) - (cons __tmp111832 '())))) + (cons __tmp112094 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp111831)))) + __tmp112093)))) (declare (not safe)) - (cons _bind102639_ __tmp111830)))) + (cons _bind102901_ __tmp112092)))) (declare (not safe)) - (cons 'let __tmp111829)))) - (_K102645102743_ - (lambda (_rest102660_ _e102661_) - (let* ((___stx111053111054_ _e102661_) - (_g102666102684_ + (cons 'let __tmp112091)))) + (_K102907103005_ + (lambda (_rest102922_ _e102923_) + (let* ((___stx111315111316_ _e102923_) + (_g102928102946_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111053111054_))))) - (let ((___kont111055111056_ + ___stx111315111316_))))) + (let ((___kont111317111318_ (lambda () - (let ((__tmp111833 - (let ((__tmp111834 + (let ((__tmp112095 + (let ((__tmp112096 (let () (declare (not safe)) (gxc#compile-e__0 - _e102661_)))) + _e102923_)))) (declare (not safe)) - (cons __tmp111834 - _args102640_)))) + (cons __tmp112096 + _args102902_)))) (declare (not safe)) - (_lp102634_ - _rest102660_ - _bind102639_ - __tmp111833)))) - (___kont111057111058_ + (_lp102896_ + _rest102922_ + _bind102901_ + __tmp112095)))) + (___kont111319111320_ (lambda () - (let ((__tmp111835 - (let ((__tmp111836 + (let ((__tmp112097 + (let ((__tmp112098 (let () (declare (not safe)) (gxc#compile-e__0 - _e102661_)))) + _e102923_)))) (declare (not safe)) - (cons __tmp111836 - _args102640_)))) + (cons __tmp112098 + _args102902_)))) (declare (not safe)) - (_lp102634_ - _rest102660_ - _bind102639_ - __tmp111835)))) - (___kont111059111060_ + (_lp102896_ + _rest102922_ + _bind102901_ + __tmp112097)))) + (___kont111321111322_ (lambda () - (let ((_tmp102691_ - (let ((__tmp111837 + (let ((_tmp102953_ + (let ((__tmp112099 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp111837)))) - (let ((__tmp111839 - (let ((__tmp111840 - (let ((__tmp111841 - (let ((__tmp111842 + (make-symbol__0 __tmp112099)))) + (let ((__tmp112101 + (let ((__tmp112102 + (let ((__tmp112103 + (let ((__tmp112104 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e102661_)))) + (gxc#compile-e__0 _e102923_)))) (declare (not safe)) - (cons __tmp111842 '())))) + (cons __tmp112104 '())))) (declare (not safe)) - (cons _tmp102691_ __tmp111841)))) + (cons _tmp102953_ __tmp112103)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111840 - _bind102639_))) - (__tmp111838 + (cons __tmp112102 + _bind102901_))) + (__tmp112100 (let () (declare (not safe)) - (cons _tmp102691_ - _args102640_)))) + (cons _tmp102953_ + _args102902_)))) (declare (not safe)) - (_lp102634_ - _rest102660_ - __tmp111839 - __tmp111838)))))) + (_lp102896_ + _rest102922_ + __tmp112101 + __tmp112100)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx111053111054_)) - (let ((_e102670102722_ + (gx#stx-pair? ___stx111315111316_)) + (let ((_e102932102984_ (let () (declare (not safe)) - (gx#stx-e ___stx111053111054_)))) - (let ((_tl102668102727_ + (gx#stx-e ___stx111315111316_)))) + (let ((_tl102930102989_ (let () (declare (not safe)) - (##cdr _e102670102722_))) - (_hd102669102725_ + (##cdr _e102932102984_))) + (_hd102931102987_ (let () (declare (not safe)) - (##car _e102670102722_)))) + (##car _e102932102984_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd102669102725_)) + (gx#identifier? _hd102931102987_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd102669102725_)) + _hd102931102987_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102668102727_)) - (let ((_e102673102730_ + _tl102930102989_)) + (let ((_e102935102992_ (let () (declare (not safe)) (gx#stx-e - _tl102668102727_)))) - (let ((_tl102671102735_ + _tl102930102989_)))) + (let ((_tl102933102997_ (let () (declare (not safe)) - (##cdr _e102673102730_))) - (_hd102672102733_ + (##cdr _e102935102992_))) + (_hd102934102995_ (let () (declare (not safe)) - (##car _e102673102730_)))) + (##car _e102935102992_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102671102735_)) - (___kont111055111056_) - (___kont111059111060_)))) - (___kont111059111060_)) + _tl102933102997_)) + (___kont111317111318_) + (___kont111321111322_)))) + (___kont111321111322_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd102669102725_)) + _hd102931102987_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102668102727_)) - (let ((_e102679102707_ + _tl102930102989_)) + (let ((_e102941102969_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl102668102727_)))) - (let ((_tl102677102712_ - (let () (declare (not safe)) (##cdr _e102679102707_))) - (_hd102678102710_ - (let () (declare (not safe)) (##car _e102679102707_)))) + (gx#stx-e _tl102930102989_)))) + (let ((_tl102939102974_ + (let () (declare (not safe)) (##cdr _e102941102969_))) + (_hd102940102972_ + (let () (declare (not safe)) (##car _e102941102969_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102677102712_)) - (___kont111057111058_) - (___kont111059111060_)))) - (___kont111059111060_)) + (gx#stx-null? _tl102939102974_)) + (___kont111319111320_) + (___kont111321111322_)))) + (___kont111321111322_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111059111060_))) - (___kont111059111060_)))) - (___kont111059111060_))))))) + (___kont111321111322_))) + (___kont111321111322_)))) + (___kont111321111322_))))))) (if (let () (declare (not safe)) - (##pair? _rest102641102649_)) - (let ((_hd102646102746_ + (##pair? _rest102903102911_)) + (let ((_hd102908103008_ (let () (declare (not safe)) - (##car _rest102641102649_))) - (_tl102647102748_ + (##car _rest102903102911_))) + (_tl102909103010_ (let () (declare (not safe)) - (##cdr _rest102641102649_)))) - (let* ((_e102751_ _hd102646102746_) - (_rest102753_ _tl102647102748_)) + (##cdr _rest102903102911_)))) + (let* ((_e103013_ _hd102908103008_) + (_rest103015_ _tl102909103010_)) (declare (not safe)) - (_K102645102743_ _rest102753_ _e102751_))) - (let () (declare (not safe)) (_else102643102657_))))))) + (_K102907103005_ _rest103015_ _e103013_))) + (let () (declare (not safe)) (_else102905102919_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd102583102613_ - _hd102580102605_) + _hd102845102875_ + _hd102842102867_) (let () (declare (not safe)) - (_g102572102589_ - _g102573102592_))))) + (_g102834102851_ + _g102835102854_))))) (let () (declare (not safe)) - (_g102572102589_ _g102573102592_))))) + (_g102834102851_ _g102835102854_))))) (let () (declare (not safe)) - (_g102572102589_ _g102573102592_))))) + (_g102834102851_ _g102835102854_))))) (let () (declare (not safe)) - (_g102572102589_ _g102573102592_)))))) + (_g102834102851_ _g102835102854_)))))) (declare (not safe)) - (_g102571102755_ _stx102570_)))) + (_g102833103017_ _stx102832_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_stx102487_) - (let* ((_g102489102510_ - (lambda (_g102490102507_) + (lambda (_stx102749_) + (let* ((_g102751102772_ + (lambda (_g102752102769_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102490102507_)))) - (_g102488102567_ - (lambda (_g102490102513_) + _g102752102769_)))) + (_g102750102829_ + (lambda (_g102752102775_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102490102513_)) - (let ((_e102496102515_ + (gx#stx-pair? _g102752102775_)) + (let ((_e102758102777_ (let () (declare (not safe)) - (gx#stx-e _g102490102513_)))) - (let ((_hd102495102518_ + (gx#stx-e _g102752102775_)))) + (let ((_hd102757102780_ (let () (declare (not safe)) - (##car _e102496102515_))) - (_tl102494102520_ + (##car _e102758102777_))) + (_tl102756102782_ (let () (declare (not safe)) - (##cdr _e102496102515_)))) + (##cdr _e102758102777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102494102520_)) - (let ((_e102499102523_ + (gx#stx-pair? _tl102756102782_)) + (let ((_e102761102785_ (let () (declare (not safe)) - (gx#stx-e _tl102494102520_)))) - (let ((_hd102498102526_ + (gx#stx-e _tl102756102782_)))) + (let ((_hd102760102788_ (let () (declare (not safe)) - (##car _e102499102523_))) - (_tl102497102528_ + (##car _e102761102785_))) + (_tl102759102790_ (let () (declare (not safe)) - (##cdr _e102499102523_)))) + (##cdr _e102761102785_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102497102528_)) - (let ((_e102502102531_ + (gx#stx-pair? _tl102759102790_)) + (let ((_e102764102793_ (let () (declare (not safe)) - (gx#stx-e _tl102497102528_)))) - (let ((_hd102501102534_ + (gx#stx-e _tl102759102790_)))) + (let ((_hd102763102796_ (let () (declare (not safe)) - (##car _e102502102531_))) - (_tl102500102536_ + (##car _e102764102793_))) + (_tl102762102798_ (let () (declare (not safe)) - (##cdr _e102502102531_)))) + (##cdr _e102764102793_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102500102536_)) - (let ((_e102505102539_ + _tl102762102798_)) + (let ((_e102767102801_ (let () (declare (not safe)) (gx#stx-e - _tl102500102536_)))) - (let ((_hd102504102542_ + _tl102762102798_)))) + (let ((_hd102766102804_ (let () (declare (not safe)) - (##car _e102505102539_))) - (_tl102503102544_ + (##car _e102767102801_))) + (_tl102765102806_ (let () (declare (not safe)) - (##cdr _e102505102539_)))) + (##cdr _e102767102801_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102503102544_)) - ((lambda (_L102547_ + _tl102765102806_)) + ((lambda (_L102809_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L102548_ - _L102549_) - (let ((__tmp111848 - (let ((__tmp111854 + _L102810_ + _L102811_) + (let ((__tmp112110 + (let ((__tmp112116 (let () (declare (not safe)) - (gxc#compile-e__0 _L102547_))) - (__tmp111849 - (let ((__tmp111853 + (gxc#compile-e__0 _L102809_))) + (__tmp112111 + (let ((__tmp112115 (let () (declare (not safe)) - (gxc#compile-e__0 _L102548_))) - (__tmp111850 - (let ((__tmp111852 + (gxc#compile-e__0 _L102810_))) + (__tmp112112 + (let ((__tmp112114 (let () (declare (not safe)) - (gxc#compile-e__0 _L102549_))) - (__tmp111851 + (gxc#compile-e__0 _L102811_))) + (__tmp112113 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111852 __tmp111851)))) + (cons __tmp112114 __tmp112113)))) (declare (not safe)) - (cons __tmp111853 __tmp111850)))) + (cons __tmp112115 __tmp112112)))) (declare (not safe)) - (cons __tmp111854 __tmp111849)))) + (cons __tmp112116 __tmp112111)))) (declare (not safe)) - (cons '##structure-ref __tmp111848))) - _hd102504102542_ - _hd102501102534_ - _hd102498102526_) + (cons '##structure-ref __tmp112110))) + _hd102766102804_ + _hd102763102796_ + _hd102760102788_) (let () (declare (not safe)) - (_g102489102510_ _g102490102513_))))) + (_g102751102772_ _g102752102775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102489102510_ - _g102490102513_))))) + (_g102751102772_ + _g102752102775_))))) (let () (declare (not safe)) - (_g102489102510_ _g102490102513_))))) + (_g102751102772_ _g102752102775_))))) (let () (declare (not safe)) - (_g102489102510_ _g102490102513_))))) + (_g102751102772_ _g102752102775_))))) (let () (declare (not safe)) - (_g102489102510_ _g102490102513_)))))) + (_g102751102772_ _g102752102775_)))))) (declare (not safe)) - (_g102488102567_ _stx102487_)))) + (_g102750102829_ _stx102749_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_stx102388_) - (let* ((_g102390102415_ - (lambda (_g102391102412_) + (lambda (_stx102650_) + (let* ((_g102652102677_ + (lambda (_g102653102674_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102391102412_)))) - (_g102389102484_ - (lambda (_g102391102418_) + _g102653102674_)))) + (_g102651102746_ + (lambda (_g102653102680_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102391102418_)) - (let ((_e102398102420_ + (gx#stx-pair? _g102653102680_)) + (let ((_e102660102682_ (let () (declare (not safe)) - (gx#stx-e _g102391102418_)))) - (let ((_hd102397102423_ + (gx#stx-e _g102653102680_)))) + (let ((_hd102659102685_ (let () (declare (not safe)) - (##car _e102398102420_))) - (_tl102396102425_ + (##car _e102660102682_))) + (_tl102658102687_ (let () (declare (not safe)) - (##cdr _e102398102420_)))) + (##cdr _e102660102682_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102396102425_)) - (let ((_e102401102428_ + (gx#stx-pair? _tl102658102687_)) + (let ((_e102663102690_ (let () (declare (not safe)) - (gx#stx-e _tl102396102425_)))) - (let ((_hd102400102431_ + (gx#stx-e _tl102658102687_)))) + (let ((_hd102662102693_ (let () (declare (not safe)) - (##car _e102401102428_))) - (_tl102399102433_ + (##car _e102663102690_))) + (_tl102661102695_ (let () (declare (not safe)) - (##cdr _e102401102428_)))) + (##cdr _e102663102690_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102399102433_)) - (let ((_e102404102436_ + (gx#stx-pair? _tl102661102695_)) + (let ((_e102666102698_ (let () (declare (not safe)) - (gx#stx-e _tl102399102433_)))) - (let ((_hd102403102439_ + (gx#stx-e _tl102661102695_)))) + (let ((_hd102665102701_ (let () (declare (not safe)) - (##car _e102404102436_))) - (_tl102402102441_ + (##car _e102666102698_))) + (_tl102664102703_ (let () (declare (not safe)) - (##cdr _e102404102436_)))) + (##cdr _e102666102698_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102402102441_)) - (let ((_e102407102444_ + _tl102664102703_)) + (let ((_e102669102706_ (let () (declare (not safe)) (gx#stx-e - _tl102402102441_)))) - (let ((_hd102406102447_ + _tl102664102703_)))) + (let ((_hd102668102709_ (let () (declare (not safe)) - (##car _e102407102444_))) - (_tl102405102449_ + (##car _e102669102706_))) + (_tl102667102711_ (let () (declare (not safe)) - (##cdr _e102407102444_)))) + (##cdr _e102669102706_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102405102449_)) - (let ((_e102410102452_ + _tl102667102711_)) + (let ((_e102672102714_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl102405102449_)))) - (let ((_hd102409102455_ - (let () (declare (not safe)) (##car _e102410102452_))) - (_tl102408102457_ + (gx#stx-e _tl102667102711_)))) + (let ((_hd102671102717_ + (let () (declare (not safe)) (##car _e102672102714_))) + (_tl102670102719_ (let () (declare (not safe)) - (##cdr _e102410102452_)))) + (##cdr _e102672102714_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102408102457_)) - ((lambda (_L102460_ _L102461_ _L102462_ _L102463_) - (let ((__tmp111855 - (let ((__tmp111863 + (gx#stx-null? _tl102670102719_)) + ((lambda (_L102722_ _L102723_ _L102724_ _L102725_) + (let ((__tmp112117 + (let ((__tmp112125 (let () (declare (not safe)) - (gxc#compile-e__0 _L102461_))) - (__tmp111856 - (let ((__tmp111862 + (gxc#compile-e__0 _L102723_))) + (__tmp112118 + (let ((__tmp112124 (let () (declare (not safe)) (gxc#compile-e__0 - _L102460_))) - (__tmp111857 - (let ((__tmp111861 + _L102722_))) + (__tmp112119 + (let ((__tmp112123 (let () (declare (not safe)) (gxc#compile-e__0 - _L102462_))) - (__tmp111858 - (let ((__tmp111860 + _L102724_))) + (__tmp112120 + (let ((__tmp112122 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L102463_))) - (__tmp111859 + (gxc#compile-e__0 _L102725_))) + (__tmp112121 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111860 __tmp111859)))) + (cons __tmp112122 __tmp112121)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111861 - __tmp111858)))) + (cons __tmp112123 + __tmp112120)))) (declare (not safe)) - (cons __tmp111862 __tmp111857)))) + (cons __tmp112124 __tmp112119)))) (declare (not safe)) - (cons __tmp111863 __tmp111856)))) + (cons __tmp112125 __tmp112118)))) (declare (not safe)) - (cons '##structure-set! __tmp111855))) - _hd102409102455_ - _hd102406102447_ - _hd102403102439_ - _hd102400102431_) + (cons '##structure-set! __tmp112117))) + _hd102671102717_ + _hd102668102709_ + _hd102665102701_ + _hd102662102693_) (let () (declare (not safe)) - (_g102390102415_ _g102391102418_))))) + (_g102652102677_ _g102653102680_))))) (let () (declare (not safe)) - (_g102390102415_ _g102391102418_))))) + (_g102652102677_ _g102653102680_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102390102415_ - _g102391102418_))))) + (_g102652102677_ + _g102653102680_))))) (let () (declare (not safe)) - (_g102390102415_ _g102391102418_))))) + (_g102652102677_ _g102653102680_))))) (let () (declare (not safe)) - (_g102390102415_ _g102391102418_))))) + (_g102652102677_ _g102653102680_))))) (let () (declare (not safe)) - (_g102390102415_ _g102391102418_)))))) + (_g102652102677_ _g102653102680_)))))) (declare (not safe)) - (_g102389102484_ _stx102388_)))) + (_g102651102746_ _stx102650_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_stx102305_) - (let* ((_g102307102328_ - (lambda (_g102308102325_) + (lambda (_stx102567_) + (let* ((_g102569102590_ + (lambda (_g102570102587_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102308102325_)))) - (_g102306102385_ - (lambda (_g102308102331_) + _g102570102587_)))) + (_g102568102647_ + (lambda (_g102570102593_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102308102331_)) - (let ((_e102314102333_ + (gx#stx-pair? _g102570102593_)) + (let ((_e102576102595_ (let () (declare (not safe)) - (gx#stx-e _g102308102331_)))) - (let ((_hd102313102336_ + (gx#stx-e _g102570102593_)))) + (let ((_hd102575102598_ (let () (declare (not safe)) - (##car _e102314102333_))) - (_tl102312102338_ + (##car _e102576102595_))) + (_tl102574102600_ (let () (declare (not safe)) - (##cdr _e102314102333_)))) + (##cdr _e102576102595_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102312102338_)) - (let ((_e102317102341_ + (gx#stx-pair? _tl102574102600_)) + (let ((_e102579102603_ (let () (declare (not safe)) - (gx#stx-e _tl102312102338_)))) - (let ((_hd102316102344_ + (gx#stx-e _tl102574102600_)))) + (let ((_hd102578102606_ (let () (declare (not safe)) - (##car _e102317102341_))) - (_tl102315102346_ + (##car _e102579102603_))) + (_tl102577102608_ (let () (declare (not safe)) - (##cdr _e102317102341_)))) + (##cdr _e102579102603_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102315102346_)) - (let ((_e102320102349_ + (gx#stx-pair? _tl102577102608_)) + (let ((_e102582102611_ (let () (declare (not safe)) - (gx#stx-e _tl102315102346_)))) - (let ((_hd102319102352_ + (gx#stx-e _tl102577102608_)))) + (let ((_hd102581102614_ (let () (declare (not safe)) - (##car _e102320102349_))) - (_tl102318102354_ + (##car _e102582102611_))) + (_tl102580102616_ (let () (declare (not safe)) - (##cdr _e102320102349_)))) + (##cdr _e102582102611_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102318102354_)) - (let ((_e102323102357_ + _tl102580102616_)) + (let ((_e102585102619_ (let () (declare (not safe)) (gx#stx-e - _tl102318102354_)))) - (let ((_hd102322102360_ + _tl102580102616_)))) + (let ((_hd102584102622_ (let () (declare (not safe)) - (##car _e102323102357_))) - (_tl102321102362_ + (##car _e102585102619_))) + (_tl102583102624_ (let () (declare (not safe)) - (##cdr _e102323102357_)))) + (##cdr _e102585102619_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102321102362_)) - ((lambda (_L102365_ + _tl102583102624_)) + ((lambda (_L102627_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L102366_ - _L102367_) - (let ((__tmp111864 - (let ((__tmp111870 + _L102628_ + _L102629_) + (let ((__tmp112126 + (let ((__tmp112132 (let () (declare (not safe)) - (gxc#compile-e__0 _L102365_))) - (__tmp111865 - (let ((__tmp111869 + (gxc#compile-e__0 _L102627_))) + (__tmp112127 + (let ((__tmp112131 (let () (declare (not safe)) - (gxc#compile-e__0 _L102366_))) - (__tmp111866 - (let ((__tmp111868 + (gxc#compile-e__0 _L102628_))) + (__tmp112128 + (let ((__tmp112130 (let () (declare (not safe)) - (gxc#compile-e__0 _L102367_))) - (__tmp111867 + (gxc#compile-e__0 _L102629_))) + (__tmp112129 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111868 __tmp111867)))) + (cons __tmp112130 __tmp112129)))) (declare (not safe)) - (cons __tmp111869 __tmp111866)))) + (cons __tmp112131 __tmp112128)))) (declare (not safe)) - (cons __tmp111870 __tmp111865)))) + (cons __tmp112132 __tmp112127)))) (declare (not safe)) - (cons '##direct-structure-ref __tmp111864))) - _hd102322102360_ - _hd102319102352_ - _hd102316102344_) + (cons '##direct-structure-ref __tmp112126))) + _hd102584102622_ + _hd102581102614_ + _hd102578102606_) (let () (declare (not safe)) - (_g102307102328_ _g102308102331_))))) + (_g102569102590_ _g102570102593_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102307102328_ - _g102308102331_))))) + (_g102569102590_ + _g102570102593_))))) (let () (declare (not safe)) - (_g102307102328_ _g102308102331_))))) + (_g102569102590_ _g102570102593_))))) (let () (declare (not safe)) - (_g102307102328_ _g102308102331_))))) + (_g102569102590_ _g102570102593_))))) (let () (declare (not safe)) - (_g102307102328_ _g102308102331_)))))) + (_g102569102590_ _g102570102593_)))))) (declare (not safe)) - (_g102306102385_ _stx102305_)))) + (_g102568102647_ _stx102567_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_stx102206_) - (let* ((_g102208102233_ - (lambda (_g102209102230_) + (lambda (_stx102468_) + (let* ((_g102470102495_ + (lambda (_g102471102492_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102209102230_)))) - (_g102207102302_ - (lambda (_g102209102236_) + _g102471102492_)))) + (_g102469102564_ + (lambda (_g102471102498_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102209102236_)) - (let ((_e102216102238_ + (gx#stx-pair? _g102471102498_)) + (let ((_e102478102500_ (let () (declare (not safe)) - (gx#stx-e _g102209102236_)))) - (let ((_hd102215102241_ + (gx#stx-e _g102471102498_)))) + (let ((_hd102477102503_ (let () (declare (not safe)) - (##car _e102216102238_))) - (_tl102214102243_ + (##car _e102478102500_))) + (_tl102476102505_ (let () (declare (not safe)) - (##cdr _e102216102238_)))) + (##cdr _e102478102500_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102214102243_)) - (let ((_e102219102246_ + (gx#stx-pair? _tl102476102505_)) + (let ((_e102481102508_ (let () (declare (not safe)) - (gx#stx-e _tl102214102243_)))) - (let ((_hd102218102249_ + (gx#stx-e _tl102476102505_)))) + (let ((_hd102480102511_ (let () (declare (not safe)) - (##car _e102219102246_))) - (_tl102217102251_ + (##car _e102481102508_))) + (_tl102479102513_ (let () (declare (not safe)) - (##cdr _e102219102246_)))) + (##cdr _e102481102508_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102217102251_)) - (let ((_e102222102254_ + (gx#stx-pair? _tl102479102513_)) + (let ((_e102484102516_ (let () (declare (not safe)) - (gx#stx-e _tl102217102251_)))) - (let ((_hd102221102257_ + (gx#stx-e _tl102479102513_)))) + (let ((_hd102483102519_ (let () (declare (not safe)) - (##car _e102222102254_))) - (_tl102220102259_ + (##car _e102484102516_))) + (_tl102482102521_ (let () (declare (not safe)) - (##cdr _e102222102254_)))) + (##cdr _e102484102516_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102220102259_)) - (let ((_e102225102262_ + _tl102482102521_)) + (let ((_e102487102524_ (let () (declare (not safe)) (gx#stx-e - _tl102220102259_)))) - (let ((_hd102224102265_ + _tl102482102521_)))) + (let ((_hd102486102527_ (let () (declare (not safe)) - (##car _e102225102262_))) - (_tl102223102267_ + (##car _e102487102524_))) + (_tl102485102529_ (let () (declare (not safe)) - (##cdr _e102225102262_)))) + (##cdr _e102487102524_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102223102267_)) - (let ((_e102228102270_ + _tl102485102529_)) + (let ((_e102490102532_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl102223102267_)))) - (let ((_hd102227102273_ - (let () (declare (not safe)) (##car _e102228102270_))) - (_tl102226102275_ + (gx#stx-e _tl102485102529_)))) + (let ((_hd102489102535_ + (let () (declare (not safe)) (##car _e102490102532_))) + (_tl102488102537_ (let () (declare (not safe)) - (##cdr _e102228102270_)))) + (##cdr _e102490102532_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102226102275_)) - ((lambda (_L102278_ _L102279_ _L102280_ _L102281_) - (let ((__tmp111871 - (let ((__tmp111879 + (gx#stx-null? _tl102488102537_)) + ((lambda (_L102540_ _L102541_ _L102542_ _L102543_) + (let ((__tmp112133 + (let ((__tmp112141 (let () (declare (not safe)) - (gxc#compile-e__0 _L102279_))) - (__tmp111872 - (let ((__tmp111878 + (gxc#compile-e__0 _L102541_))) + (__tmp112134 + (let ((__tmp112140 (let () (declare (not safe)) (gxc#compile-e__0 - _L102278_))) - (__tmp111873 - (let ((__tmp111877 + _L102540_))) + (__tmp112135 + (let ((__tmp112139 (let () (declare (not safe)) (gxc#compile-e__0 - _L102280_))) - (__tmp111874 - (let ((__tmp111876 + _L102542_))) + (__tmp112136 + (let ((__tmp112138 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L102281_))) - (__tmp111875 + (gxc#compile-e__0 _L102543_))) + (__tmp112137 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111876 __tmp111875)))) + (cons __tmp112138 __tmp112137)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111877 - __tmp111874)))) + (cons __tmp112139 + __tmp112136)))) (declare (not safe)) - (cons __tmp111878 __tmp111873)))) + (cons __tmp112140 __tmp112135)))) (declare (not safe)) - (cons __tmp111879 __tmp111872)))) + (cons __tmp112141 __tmp112134)))) (declare (not safe)) - (cons '##direct-structure-set! __tmp111871))) - _hd102227102273_ - _hd102224102265_ - _hd102221102257_ - _hd102218102249_) + (cons '##direct-structure-set! __tmp112133))) + _hd102489102535_ + _hd102486102527_ + _hd102483102519_ + _hd102480102511_) (let () (declare (not safe)) - (_g102208102233_ _g102209102236_))))) + (_g102470102495_ _g102471102498_))))) (let () (declare (not safe)) - (_g102208102233_ _g102209102236_))))) + (_g102470102495_ _g102471102498_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102208102233_ - _g102209102236_))))) + (_g102470102495_ + _g102471102498_))))) (let () (declare (not safe)) - (_g102208102233_ _g102209102236_))))) + (_g102470102495_ _g102471102498_))))) (let () (declare (not safe)) - (_g102208102233_ _g102209102236_))))) + (_g102470102495_ _g102471102498_))))) (let () (declare (not safe)) - (_g102208102233_ _g102209102236_)))))) + (_g102470102495_ _g102471102498_)))))) (declare (not safe)) - (_g102207102302_ _stx102206_)))) + (_g102469102564_ _stx102468_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_stx102002_) - (let* ((_g102004102025_ - (lambda (_g102005102022_) + (lambda (_stx102264_) + (let* ((_g102266102287_ + (lambda (_g102267102284_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102005102022_)))) - (_g102003102203_ - (lambda (_g102005102028_) + _g102267102284_)))) + (_g102265102465_ + (lambda (_g102267102290_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102005102028_)) - (let ((_e102011102030_ + (gx#stx-pair? _g102267102290_)) + (let ((_e102273102292_ (let () (declare (not safe)) - (gx#stx-e _g102005102028_)))) - (let ((_hd102010102033_ + (gx#stx-e _g102267102290_)))) + (let ((_hd102272102295_ (let () (declare (not safe)) - (##car _e102011102030_))) - (_tl102009102035_ + (##car _e102273102292_))) + (_tl102271102297_ (let () (declare (not safe)) - (##cdr _e102011102030_)))) + (##cdr _e102273102292_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102009102035_)) - (let ((_e102014102038_ + (gx#stx-pair? _tl102271102297_)) + (let ((_e102276102300_ (let () (declare (not safe)) - (gx#stx-e _tl102009102035_)))) - (let ((_hd102013102041_ + (gx#stx-e _tl102271102297_)))) + (let ((_hd102275102303_ (let () (declare (not safe)) - (##car _e102014102038_))) - (_tl102012102043_ + (##car _e102276102300_))) + (_tl102274102305_ (let () (declare (not safe)) - (##cdr _e102014102038_)))) + (##cdr _e102276102300_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102012102043_)) - (let ((_e102017102046_ + (gx#stx-pair? _tl102274102305_)) + (let ((_e102279102308_ (let () (declare (not safe)) - (gx#stx-e _tl102012102043_)))) - (let ((_hd102016102049_ + (gx#stx-e _tl102274102305_)))) + (let ((_hd102278102311_ (let () (declare (not safe)) - (##car _e102017102046_))) - (_tl102015102051_ + (##car _e102279102308_))) + (_tl102277102313_ (let () (declare (not safe)) - (##cdr _e102017102046_)))) + (##cdr _e102279102308_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102015102051_)) - (let ((_e102020102054_ + _tl102277102313_)) + (let ((_e102282102316_ (let () (declare (not safe)) (gx#stx-e - _tl102015102051_)))) - (let ((_hd102019102057_ + _tl102277102313_)))) + (let ((_hd102281102319_ (let () (declare (not safe)) - (##car _e102020102054_))) - (_tl102018102059_ + (##car _e102282102316_))) + (_tl102280102321_ (let () (declare (not safe)) - (##cdr _e102020102054_)))) + (##cdr _e102282102316_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102018102059_)) - ((lambda (_L102062_ + _tl102280102321_)) + ((lambda (_L102324_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L102063_ - _L102064_) + _L102325_ + _L102326_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111898 - (let ((__tmp111904 + (let ((__tmp112160 + (let ((__tmp112166 (let () (declare (not safe)) - (gxc#compile-e__0 _L102062_))) - (__tmp111899 - (let ((__tmp111903 + (gxc#compile-e__0 _L102324_))) + (__tmp112161 + (let ((__tmp112165 (let () (declare (not safe)) - (gxc#compile-e__0 _L102063_))) - (__tmp111900 - (let ((__tmp111902 + (gxc#compile-e__0 _L102325_))) + (__tmp112162 + (let ((__tmp112164 (let () (declare (not safe)) (gxc#compile-e__0 - _L102064_))) - (__tmp111901 + _L102326_))) + (__tmp112163 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111902 __tmp111901)))) + (cons __tmp112164 __tmp112163)))) (declare (not safe)) - (cons __tmp111903 __tmp111900)))) + (cons __tmp112165 __tmp112162)))) (declare (not safe)) - (cons __tmp111904 __tmp111899)))) + (cons __tmp112166 __tmp112161)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp111898)) - (let _lp102082_ ((_rest102085_ - (let ((__tmp111896 - (let ((__tmp111897 + (cons '##unchecked-structure-ref __tmp112160)) + (let _lp102344_ ((_rest102347_ + (let ((__tmp112158 + (let ((__tmp112159 (let () (declare (not safe)) - (cons _L102062_ + (cons _L102324_ '())))) (declare (not safe)) - (cons _L102063_ - __tmp111897)))) + (cons _L102325_ + __tmp112159)))) (declare (not safe)) - (cons _L102064_ __tmp111896))) - (_bind102087_ '()) - (_args102088_ '())) - (let* ((_rest102089102097_ _rest102085_) - (_else102091102105_ + (cons _L102326_ __tmp112158))) + (_bind102349_ '()) + (_args102350_ '())) + (let* ((_rest102351102359_ _rest102347_) + (_else102353102367_ (lambda () - (let ((__tmp111880 - (let ((__tmp111881 - (let ((__tmp111882 - (let ((__tmp111883 - (let ((__tmp111884 + (let ((__tmp112142 + (let ((__tmp112143 + (let ((__tmp112144 + (let ((__tmp112145 + (let ((__tmp112146 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111885 + (let ((__tmp112147 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp111885 _args102088_)))) + (foldr1 cons __tmp112147 _args102350_)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp111884)))) + (cons '##unchecked-structure-ref __tmp112146)))) (declare (not safe)) - (cons __tmp111883 '())))) + (cons __tmp112145 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp111882)))) + __tmp112144)))) (declare (not safe)) - (cons _bind102087_ __tmp111881)))) + (cons _bind102349_ __tmp112143)))) (declare (not safe)) - (cons 'let __tmp111880)))) - (_K102093102191_ - (lambda (_rest102108_ _e102109_) - (let* ((___stx111099111100_ _e102109_) - (_g102114102132_ + (cons 'let __tmp112142)))) + (_K102355102453_ + (lambda (_rest102370_ _e102371_) + (let* ((___stx111361111362_ _e102371_) + (_g102376102394_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111099111100_))))) - (let ((___kont111101111102_ + ___stx111361111362_))))) + (let ((___kont111363111364_ (lambda () - (let ((__tmp111886 - (let ((__tmp111887 + (let ((__tmp112148 + (let ((__tmp112149 (let () (declare (not safe)) (gxc#compile-e__0 - _e102109_)))) + _e102371_)))) (declare (not safe)) - (cons __tmp111887 - _args102088_)))) + (cons __tmp112149 + _args102350_)))) (declare (not safe)) - (_lp102082_ - _rest102108_ - _bind102087_ - __tmp111886)))) - (___kont111103111104_ + (_lp102344_ + _rest102370_ + _bind102349_ + __tmp112148)))) + (___kont111365111366_ (lambda () - (let ((__tmp111888 - (let ((__tmp111889 + (let ((__tmp112150 + (let ((__tmp112151 (let () (declare (not safe)) (gxc#compile-e__0 - _e102109_)))) + _e102371_)))) (declare (not safe)) - (cons __tmp111889 - _args102088_)))) + (cons __tmp112151 + _args102350_)))) (declare (not safe)) - (_lp102082_ - _rest102108_ - _bind102087_ - __tmp111888)))) - (___kont111105111106_ + (_lp102344_ + _rest102370_ + _bind102349_ + __tmp112150)))) + (___kont111367111368_ (lambda () - (let ((_tmp102139_ - (let ((__tmp111890 + (let ((_tmp102401_ + (let ((__tmp112152 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp111890)))) - (let ((__tmp111892 - (let ((__tmp111893 - (let ((__tmp111894 + __tmp112152)))) + (let ((__tmp112154 + (let ((__tmp112155 + (let ((__tmp112156 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111895 + (let ((__tmp112157 (let () (declare (not safe)) - (gxc#compile-e__0 _e102109_)))) + (gxc#compile-e__0 _e102371_)))) (declare (not safe)) - (cons __tmp111895 '())))) + (cons __tmp112157 '())))) (declare (not safe)) - (cons _tmp102139_ __tmp111894)))) + (cons _tmp102401_ __tmp112156)))) (declare (not safe)) - (cons __tmp111893 _bind102087_))) - (__tmp111891 - (let () (declare (not safe)) (cons _tmp102139_ _args102088_)))) + (cons __tmp112155 _bind102349_))) + (__tmp112153 + (let () (declare (not safe)) (cons _tmp102401_ _args102350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp102082_ - _rest102108_ - __tmp111892 - __tmp111891)))))) + (_lp102344_ + _rest102370_ + __tmp112154 + __tmp112153)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx111099111100_)) - (let ((_e102118102170_ + ___stx111361111362_)) + (let ((_e102380102432_ (let () (declare (not safe)) (gx#stx-e - ___stx111099111100_)))) - (let ((_tl102116102175_ + ___stx111361111362_)))) + (let ((_tl102378102437_ (let () (declare (not safe)) - (##cdr _e102118102170_))) - (_hd102117102173_ + (##cdr _e102380102432_))) + (_hd102379102435_ (let () (declare (not safe)) - (##car _e102118102170_)))) + (##car _e102380102432_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd102117102173_)) + _hd102379102435_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd102117102173_)) + _hd102379102435_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl102116102175_)) - (let ((_e102121102178_ + _tl102378102437_)) + (let ((_e102383102440_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl102116102175_)))) - (let ((_tl102119102183_ + (gx#stx-e _tl102378102437_)))) + (let ((_tl102381102445_ (let () (declare (not safe)) - (##cdr _e102121102178_))) - (_hd102120102181_ + (##cdr _e102383102440_))) + (_hd102382102443_ (let () (declare (not safe)) - (##car _e102121102178_)))) + (##car _e102383102440_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102119102183_)) - (___kont111101111102_) - (___kont111105111106_)))) - (___kont111105111106_)) + (gx#stx-null? _tl102381102445_)) + (___kont111363111364_) + (___kont111367111368_)))) + (___kont111367111368_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd102117102173_)) + (gx#stx-eq? '%#quote _hd102379102435_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102116102175_)) - (let ((_e102127102155_ + (gx#stx-pair? _tl102378102437_)) + (let ((_e102389102417_ (let () (declare (not safe)) - (gx#stx-e _tl102116102175_)))) - (let ((_tl102125102160_ + (gx#stx-e _tl102378102437_)))) + (let ((_tl102387102422_ (let () (declare (not safe)) - (##cdr _e102127102155_))) - (_hd102126102158_ + (##cdr _e102389102417_))) + (_hd102388102420_ (let () (declare (not safe)) - (##car _e102127102155_)))) + (##car _e102389102417_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102125102160_)) - (___kont111103111104_) - (___kont111105111106_)))) - (___kont111105111106_)) - (___kont111105111106_))) + (gx#stx-null? _tl102387102422_)) + (___kont111365111366_) + (___kont111367111368_)))) + (___kont111367111368_)) + (___kont111367111368_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111105111106_)))) - (___kont111105111106_))))))) + (___kont111367111368_)))) + (___kont111367111368_))))))) (if (let () (declare (not safe)) - (##pair? _rest102089102097_)) - (let ((_hd102094102194_ + (##pair? _rest102351102359_)) + (let ((_hd102356102456_ (let () (declare (not safe)) - (##car _rest102089102097_))) - (_tl102095102196_ + (##car _rest102351102359_))) + (_tl102357102458_ (let () (declare (not safe)) - (##cdr _rest102089102097_)))) - (let* ((_e102199_ _hd102094102194_) - (_rest102201_ _tl102095102196_)) + (##cdr _rest102351102359_)))) + (let* ((_e102461_ _hd102356102456_) + (_rest102463_ _tl102357102458_)) (declare (not safe)) - (_K102093102191_ _rest102201_ _e102199_))) + (_K102355102453_ _rest102463_ _e102461_))) (let () (declare (not safe)) - (_else102091102105_))))))) - _hd102019102057_ - _hd102016102049_ - _hd102013102041_) + (_else102353102367_))))))) + _hd102281102319_ + _hd102278102311_ + _hd102275102303_) (let () (declare (not safe)) - (_g102004102025_ _g102005102028_))))) + (_g102266102287_ _g102267102290_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102004102025_ - _g102005102028_))))) + (_g102266102287_ + _g102267102290_))))) (let () (declare (not safe)) - (_g102004102025_ _g102005102028_))))) + (_g102266102287_ _g102267102290_))))) (let () (declare (not safe)) - (_g102004102025_ _g102005102028_))))) + (_g102266102287_ _g102267102290_))))) (let () (declare (not safe)) - (_g102004102025_ _g102005102028_)))))) + (_g102266102287_ _g102267102290_)))))) (declare (not safe)) - (_g102003102203_ _stx102002_)))) + (_g102265102465_ _stx102264_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_stx101782_) - (let* ((_g101784101809_ - (lambda (_g101785101806_) + (lambda (_stx102044_) + (let* ((_g102046102071_ + (lambda (_g102047102068_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101785101806_)))) - (_g101783101999_ - (lambda (_g101785101812_) + _g102047102068_)))) + (_g102045102261_ + (lambda (_g102047102074_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101785101812_)) - (let ((_e101792101814_ + (gx#stx-pair? _g102047102074_)) + (let ((_e102054102076_ (let () (declare (not safe)) - (gx#stx-e _g101785101812_)))) - (let ((_hd101791101817_ + (gx#stx-e _g102047102074_)))) + (let ((_hd102053102079_ (let () (declare (not safe)) - (##car _e101792101814_))) - (_tl101790101819_ + (##car _e102054102076_))) + (_tl102052102081_ (let () (declare (not safe)) - (##cdr _e101792101814_)))) + (##cdr _e102054102076_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101790101819_)) - (let ((_e101795101822_ + (gx#stx-pair? _tl102052102081_)) + (let ((_e102057102084_ (let () (declare (not safe)) - (gx#stx-e _tl101790101819_)))) - (let ((_hd101794101825_ + (gx#stx-e _tl102052102081_)))) + (let ((_hd102056102087_ (let () (declare (not safe)) - (##car _e101795101822_))) - (_tl101793101827_ + (##car _e102057102084_))) + (_tl102055102089_ (let () (declare (not safe)) - (##cdr _e101795101822_)))) + (##cdr _e102057102084_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101793101827_)) - (let ((_e101798101830_ + (gx#stx-pair? _tl102055102089_)) + (let ((_e102060102092_ (let () (declare (not safe)) - (gx#stx-e _tl101793101827_)))) - (let ((_hd101797101833_ + (gx#stx-e _tl102055102089_)))) + (let ((_hd102059102095_ (let () (declare (not safe)) - (##car _e101798101830_))) - (_tl101796101835_ + (##car _e102060102092_))) + (_tl102058102097_ (let () (declare (not safe)) - (##cdr _e101798101830_)))) + (##cdr _e102060102092_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl101796101835_)) - (let ((_e101801101838_ + _tl102058102097_)) + (let ((_e102063102100_ (let () (declare (not safe)) (gx#stx-e - _tl101796101835_)))) - (let ((_hd101800101841_ + _tl102058102097_)))) + (let ((_hd102062102103_ (let () (declare (not safe)) - (##car _e101801101838_))) - (_tl101799101843_ + (##car _e102063102100_))) + (_tl102061102105_ (let () (declare (not safe)) - (##cdr _e101801101838_)))) + (##cdr _e102063102100_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl101799101843_)) - (let ((_e101804101846_ + _tl102061102105_)) + (let ((_e102066102108_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl101799101843_)))) - (let ((_hd101803101849_ - (let () (declare (not safe)) (##car _e101804101846_))) - (_tl101802101851_ + (gx#stx-e _tl102061102105_)))) + (let ((_hd102065102111_ + (let () (declare (not safe)) (##car _e102066102108_))) + (_tl102064102113_ (let () (declare (not safe)) - (##cdr _e101804101846_)))) + (##cdr _e102066102108_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101802101851_)) - ((lambda (_L101854_ _L101855_ _L101856_ _L101857_) + (gx#stx-null? _tl102064102113_)) + ((lambda (_L102116_ _L102117_ _L102118_ _L102119_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp111924 - (let ((__tmp111932 + (let ((__tmp112186 + (let ((__tmp112194 (let () (declare (not safe)) - (gxc#compile-e__0 _L101855_))) - (__tmp111925 - (let ((__tmp111931 + (gxc#compile-e__0 _L102117_))) + (__tmp112187 + (let ((__tmp112193 (let () (declare (not safe)) (gxc#compile-e__0 - _L101854_))) - (__tmp111926 - (let ((__tmp111930 + _L102116_))) + (__tmp112188 + (let ((__tmp112192 (let () (declare (not safe)) (gxc#compile-e__0 - _L101856_))) - (__tmp111927 - (let ((__tmp111929 + _L102118_))) + (__tmp112189 + (let ((__tmp112191 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L101857_))) - (__tmp111928 + (gxc#compile-e__0 _L102119_))) + (__tmp112190 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp111929 __tmp111928)))) + (cons __tmp112191 __tmp112190)))) (declare (not safe)) - (cons __tmp111930 __tmp111927)))) + (cons __tmp112192 __tmp112189)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111931 - __tmp111926)))) + (cons __tmp112193 + __tmp112188)))) (declare (not safe)) - (cons __tmp111932 __tmp111925)))) + (cons __tmp112194 __tmp112187)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp111924)) - (let _lp101878_ ((_rest101881_ - (let ((__tmp111921 - (let ((__tmp111922 - (let ((__tmp111923 + __tmp112186)) + (let _lp102140_ ((_rest102143_ + (let ((__tmp112183 + (let ((__tmp112184 + (let ((__tmp112185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L101855_ '())))) + (cons _L102117_ '())))) (declare (not safe)) - (cons _L101854_ __tmp111923)))) + (cons _L102116_ __tmp112185)))) (declare (not safe)) - (cons _L101856_ __tmp111922)))) + (cons _L102118_ __tmp112184)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L101857_ - __tmp111921))) - (_bind101883_ '()) - (_args101884_ '())) - (let* ((_rest101885101893_ _rest101881_) - (_else101887101901_ + (cons _L102119_ + __tmp112183))) + (_bind102145_ '()) + (_args102146_ '())) + (let* ((_rest102147102155_ _rest102143_) + (_else102149102163_ (lambda () - (let ((__tmp111905 - (let ((__tmp111906 - (let ((__tmp111907 - (let ((__tmp111908 + (let ((__tmp112167 + (let ((__tmp112168 + (let ((__tmp112169 + (let ((__tmp112170 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111909 - (let ((__tmp111910 + (let ((__tmp112171 + (let ((__tmp112172 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) (foldr1 cons - __tmp111910 - _args101884_)))) + __tmp112172 + _args102146_)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp111909)))) + __tmp112171)))) (declare (not safe)) - (cons __tmp111908 '())))) + (cons __tmp112170 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp111907)))) + (cons '(declare (not safe)) __tmp112169)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind101883_ - __tmp111906)))) + (cons _bind102145_ + __tmp112168)))) (declare (not safe)) - (cons 'let __tmp111905)))) - (_K101889101987_ - (lambda (_rest101904_ _e101905_) - (let* ((___stx111145111146_ - _e101905_) - (_g101910101928_ + (cons 'let __tmp112167)))) + (_K102151102249_ + (lambda (_rest102166_ _e102167_) + (let* ((___stx111407111408_ + _e102167_) + (_g102172102190_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111145111146_))))) - (let ((___kont111147111148_ + ___stx111407111408_))))) + (let ((___kont111409111410_ (lambda () - (let ((__tmp111911 - (let ((__tmp111912 + (let ((__tmp112173 + (let ((__tmp112174 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e101905_)))) + (gxc#compile-e__0 _e102167_)))) (declare (not safe)) - (cons __tmp111912 _args101884_)))) + (cons __tmp112174 _args102146_)))) (declare (not safe)) - (_lp101878_ _rest101904_ _bind101883_ __tmp111911)))) + (_lp102140_ _rest102166_ _bind102145_ __tmp112173)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111149111150_ + (___kont111411111412_ (lambda () - (let ((__tmp111913 - (let ((__tmp111914 + (let ((__tmp112175 + (let ((__tmp112176 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e101905_)))) + (gxc#compile-e__0 _e102167_)))) (declare (not safe)) - (cons __tmp111914 _args101884_)))) + (cons __tmp112176 _args102146_)))) (declare (not safe)) - (_lp101878_ _rest101904_ _bind101883_ __tmp111913)))) + (_lp102140_ _rest102166_ _bind102145_ __tmp112175)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111151111152_ + (___kont111413111414_ (lambda () - (let ((_tmp101935_ - (let ((__tmp111915 + (let ((_tmp102197_ + (let ((__tmp112177 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp111915)))) - (let ((__tmp111917 - (let ((__tmp111918 - (let ((__tmp111919 - (let ((__tmp111920 + (make-symbol__0 __tmp112177)))) + (let ((__tmp112179 + (let ((__tmp112180 + (let ((__tmp112181 + (let ((__tmp112182 (let () (declare (not safe)) - (gxc#compile-e__0 _e101905_)))) + (gxc#compile-e__0 _e102167_)))) (declare (not safe)) - (cons __tmp111920 '())))) + (cons __tmp112182 '())))) (declare (not safe)) - (cons _tmp101935_ __tmp111919)))) + (cons _tmp102197_ __tmp112181)))) (declare (not safe)) - (cons __tmp111918 _bind101883_))) - (__tmp111916 + (cons __tmp112180 _bind102145_))) + (__tmp112178 (let () (declare (not safe)) - (cons _tmp101935_ _args101884_)))) + (cons _tmp102197_ _args102146_)))) (declare (not safe)) - (_lp101878_ _rest101904_ __tmp111917 __tmp111916)))))) + (_lp102140_ _rest102166_ __tmp112179 __tmp112178)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx111145111146_)) - (let ((_e101914101966_ + ___stx111407111408_)) + (let ((_e102176102228_ (let () (declare (not safe)) (gx#stx-e - ___stx111145111146_)))) - (let ((_tl101912101971_ + ___stx111407111408_)))) + (let ((_tl102174102233_ (let () (declare (not safe)) - (##cdr _e101914101966_))) - (_hd101913101969_ + (##cdr _e102176102228_))) + (_hd102175102231_ (let () (declare (not safe)) - (##car _e101914101966_)))) + (##car _e102176102228_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd101913101969_)) + _hd102175102231_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-eq? '%#ref _hd101913101969_)) + (gx#stx-eq? '%#ref _hd102175102231_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101912101971_)) - (let ((_e101917101974_ + (gx#stx-pair? _tl102174102233_)) + (let ((_e102179102236_ (let () (declare (not safe)) - (gx#stx-e _tl101912101971_)))) - (let ((_tl101915101979_ + (gx#stx-e _tl102174102233_)))) + (let ((_tl102177102241_ (let () (declare (not safe)) - (##cdr _e101917101974_))) - (_hd101916101977_ + (##cdr _e102179102236_))) + (_hd102178102239_ (let () (declare (not safe)) - (##car _e101917101974_)))) + (##car _e102179102236_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101915101979_)) - (___kont111147111148_) - (___kont111151111152_)))) - (___kont111151111152_)) + (gx#stx-null? _tl102177102241_)) + (___kont111409111410_) + (___kont111413111414_)))) + (___kont111413111414_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd101913101969_)) + (gx#stx-eq? '%#quote _hd102175102231_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101912101971_)) - (let ((_e101923101951_ + (gx#stx-pair? _tl102174102233_)) + (let ((_e102185102213_ (let () (declare (not safe)) - (gx#stx-e _tl101912101971_)))) - (let ((_tl101921101956_ + (gx#stx-e _tl102174102233_)))) + (let ((_tl102183102218_ (let () (declare (not safe)) - (##cdr _e101923101951_))) - (_hd101922101954_ + (##cdr _e102185102213_))) + (_hd102184102216_ (let () (declare (not safe)) - (##car _e101923101951_)))) + (##car _e102185102213_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101921101956_)) - (___kont111149111150_) - (___kont111151111152_)))) - (___kont111151111152_)) - (___kont111151111152_))) - (___kont111151111152_)))) + (gx#stx-null? _tl102183102218_)) + (___kont111411111412_) + (___kont111413111414_)))) + (___kont111413111414_)) + (___kont111413111414_))) + (___kont111413111414_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111151111152_))))))) + (___kont111413111414_))))))) (if (let () (declare (not safe)) - (##pair? _rest101885101893_)) - (let ((_hd101890101990_ + (##pair? _rest102147102155_)) + (let ((_hd102152102252_ (let () (declare (not safe)) - (##car _rest101885101893_))) - (_tl101891101992_ + (##car _rest102147102155_))) + (_tl102153102254_ (let () (declare (not safe)) - (##cdr _rest101885101893_)))) - (let* ((_e101995_ _hd101890101990_) - (_rest101997_ - _tl101891101992_)) + (##cdr _rest102147102155_)))) + (let* ((_e102257_ _hd102152102252_) + (_rest102259_ + _tl102153102254_)) (declare (not safe)) - (_K101889101987_ - _rest101997_ - _e101995_))) + (_K102151102249_ + _rest102259_ + _e102257_))) (let () (declare (not safe)) - (_else101887101901_))))))) - _hd101803101849_ - _hd101800101841_ - _hd101797101833_ - _hd101794101825_) + (_else102149102163_))))))) + _hd102065102111_ + _hd102062102103_ + _hd102059102095_ + _hd102056102087_) (let () (declare (not safe)) - (_g101784101809_ _g101785101812_))))) + (_g102046102071_ _g102047102074_))))) (let () (declare (not safe)) - (_g101784101809_ _g101785101812_))))) + (_g102046102071_ _g102047102074_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101784101809_ - _g101785101812_))))) + (_g102046102071_ + _g102047102074_))))) (let () (declare (not safe)) - (_g101784101809_ _g101785101812_))))) + (_g102046102071_ _g102047102074_))))) (let () (declare (not safe)) - (_g101784101809_ _g101785101812_))))) + (_g102046102071_ _g102047102074_))))) (let () (declare (not safe)) - (_g101784101809_ _g101785101812_)))))) + (_g102046102071_ _g102047102074_)))))) (declare (not safe)) - (_g101783101999_ _stx101782_)))) + (_g102045102261_ _stx102044_)))) (define gxc#generate-runtime-loader-import% - (lambda (_stx101636_) - (letrec ((_import-set-template101638_ - (lambda (_in101734_ _phi101735_) - (let ((_iphi101737_ - (fx+ _phi101735_ + (lambda (_stx101898_) + (letrec ((_import-set-template101900_ + (lambda (_in101996_ _phi101997_) + (let ((_iphi101999_ + (fx+ _phi101997_ (##direct-structure-ref - _in101734_ + _in101996_ '2 gx#import-set::t '#f))) - (_imports101738_ + (_imports102000_ (##structure-ref (##direct-structure-ref - _in101734_ + _in101996_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp101740_ ((_rest101742_ _imports101738_) - (_r101743_ '())) - (let* ((_rest101744101752_ _rest101742_) - (_else101746101760_ (lambda () _r101743_)) - (_K101748101770_ - (lambda (_rest101763_ _in101764_) + (let _lp102002_ ((_rest102004_ _imports102000_) + (_r102005_ '())) + (let* ((_rest102006102014_ _rest102004_) + (_else102008102022_ (lambda () _r102005_)) + (_K102010102032_ + (lambda (_rest102025_ _in102026_) (if (let () (declare (not safe)) (##structure-instance-of? - _in101764_ + _in102026_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi101737_)) - (let ((__tmp111939 + (fxzero? _iphi101999_)) + (let ((__tmp112201 (let () (declare (not safe)) - (cons _in101764_ - _r101743_)))) + (cons _in102026_ + _r102005_)))) (declare (not safe)) - (_lp101740_ - _rest101763_ - __tmp111939)) + (_lp102002_ + _rest102025_ + __tmp112201)) (let () (declare (not safe)) - (_lp101740_ - _rest101763_ - _r101743_))) + (_lp102002_ + _rest102025_ + _r102005_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101764_ + _in102026_ 'gx#module-import::t)) - (let ((_iphi101766_ - (fx+ _phi101735_ + (let ((_iphi102028_ + (fx+ _phi101997_ (##direct-structure-ref - _in101764_ + _in102026_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi101766_)) - (let ((__tmp111937 - (let ((__tmp111938 + (fxzero? _iphi102028_)) + (let ((__tmp112199 + (let ((__tmp112200 (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in101764_ + _in102026_ '1 gx#module-import::t '#f) @@ -15241,194 +15241,194 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp111938 _r101743_)))) + (cons __tmp112200 _r102005_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp101740_ - _rest101763_ - __tmp111937)) + (_lp102002_ + _rest102025_ + __tmp112199)) (let () (declare (not safe)) - (_lp101740_ - _rest101763_ - _r101743_)))) + (_lp102002_ + _rest102025_ + _r102005_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101764_ + _in102026_ 'gx#import-set::t)) - (let ((_xphi101768_ - (fx+ _iphi101737_ + (let ((_xphi102030_ + (fx+ _iphi101999_ (##direct-structure-ref - _in101764_ + _in102026_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi101768_)) - (let ((__tmp111935 - (let ((__tmp111936 + (fxzero? _xphi102030_)) + (let ((__tmp112197 + (let ((__tmp112198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in101764_ + _in102026_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp111936 _r101743_)))) + (cons __tmp112198 _r102005_)))) (declare (not safe)) - (_lp101740_ _rest101763_ __tmp111935)) - (if (fxpositive? _xphi101768_) - (let ((__tmp111933 - (let ((__tmp111934 + (_lp102002_ _rest102025_ __tmp112197)) + (if (fxpositive? _xphi102030_) + (let ((__tmp112195 + (let ((__tmp112196 (let () (declare (not safe)) - (_import-set-template101638_ - _in101764_ - _iphi101737_)))) + (_import-set-template101900_ + _in102026_ + _iphi101999_)))) (declare (not safe)) - (foldl1 cons _r101743_ __tmp111934)))) + (foldl1 cons _r102005_ __tmp112196)))) (declare (not safe)) - (_lp101740_ _rest101763_ __tmp111933)) + (_lp102002_ _rest102025_ __tmp112195)) (let () (declare (not safe)) - (_lp101740_ _rest101763_ _r101743_))))) + (_lp102002_ _rest102025_ _r102005_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp101740_ - _rest101763_ - _r101743_)))))))) + (_lp102002_ + _rest102025_ + _r102005_)))))))) (if (let () (declare (not safe)) - (##pair? _rest101744101752_)) - (let ((_hd101749101773_ + (##pair? _rest102006102014_)) + (let ((_hd102011102035_ (let () (declare (not safe)) - (##car _rest101744101752_))) - (_tl101750101775_ + (##car _rest102006102014_))) + (_tl102012102037_ (let () (declare (not safe)) - (##cdr _rest101744101752_)))) - (let* ((_in101778_ _hd101749101773_) - (_rest101780_ _tl101750101775_)) + (##cdr _rest102006102014_)))) + (let* ((_in102040_ _hd102011102035_) + (_rest102042_ _tl102012102037_)) (declare (not safe)) - (_K101748101770_ _rest101780_ _in101778_))) + (_K102010102032_ _rest102042_ _in102040_))) (let () (declare (not safe)) - (_else101746101760_))))))))) - (let* ((_g101640101650_ - (lambda (_g101641101647_) + (_else102008102022_))))))))) + (let* ((_g101902101912_ + (lambda (_g101903101909_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101641101647_)))) - (_g101639101731_ - (lambda (_g101641101653_) + _g101903101909_)))) + (_g101901101993_ + (lambda (_g101903101915_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101641101653_)) - (let ((_e101645101655_ + (gx#stx-pair? _g101903101915_)) + (let ((_e101907101917_ (let () (declare (not safe)) - (gx#stx-e _g101641101653_)))) - (let ((_hd101644101658_ + (gx#stx-e _g101903101915_)))) + (let ((_hd101906101920_ (let () (declare (not safe)) - (##car _e101645101655_))) - (_tl101643101660_ + (##car _e101907101917_))) + (_tl101905101922_ (let () (declare (not safe)) - (##cdr _e101645101655_)))) - ((lambda (_L101663_) - (let ((_ht101674_ + (##cdr _e101907101917_)))) + ((lambda (_L101925_) + (let ((_ht101936_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _lp101676_ ((_rest101678_ _L101663_) - (_loads101679_ '())) - (letrec ((_K101681_ - (lambda (_ctx101724_ - _rest101725_) - (let ((_id101727_ + (let _lp101938_ ((_rest101940_ _L101925_) + (_loads101941_ '())) + (letrec ((_K101943_ + (lambda (_ctx101986_ + _rest101987_) + (let ((_id101989_ (##structure-ref - _ctx101724_ + _ctx101986_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht101674_ - _id101727_)) + _ht101936_ + _id101989_)) (let () (declare (not safe)) - (_lp101676_ - _rest101725_ - _loads101679_)) - (let ((_rt101729_ + (_lp101938_ + _rest101987_ + _loads101941_)) + (let ((_rt101991_ (string-append (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#module-id->path-string _id101727_)) + (gxc#module-id->path-string _id101989_)) '"__rt"))) (let () (declare (not safe)) - (hash-put! _ht101674_ _id101727_ _rt101729_)) - (let ((__tmp111940 + (hash-put! _ht101936_ _id101989_ _rt101991_)) + (let ((__tmp112202 (let () (declare (not safe)) - (cons _rt101729_ _loads101679_)))) + (cons _rt101991_ _loads101941_)))) (declare (not safe)) - (_lp101676_ _rest101725_ __tmp111940)))))))) + (_lp101938_ _rest101987_ __tmp112202)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest101682101690_ _rest101678_) - (_else101684101702_ + (let* ((_rest101944101952_ _rest101940_) + (_else101946101964_ (lambda () - (let ((__tmp111941 - (map (lambda (_g101697101699_) + (let ((__tmp112203 + (map (lambda (_g101959101961_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g101697101699_)) - (reverse _loads101679_)))) + _g101959101961_)) + (reverse _loads101941_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'begin __tmp111941)))) - (_K101686101712_ - (lambda (_rest101705_ - _in101706_) + (cons 'begin __tmp112203)))) + (_K101948101974_ + (lambda (_rest101967_ + _in101968_) (if (let () (declare (not safe)) (##structure-instance-of? - _in101706_ + _in101968_ 'gx#module-context::t)) (let () (declare (not safe)) - (_K101681_ - _in101706_ - _rest101705_)) + (_K101943_ + _in101968_ + _rest101967_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101706_ + _in101968_ 'gx#module-import::t)) - (if (let ((__tmp111945 + (if (let ((__tmp112207 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in101706_ + _in101968_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp111945)) - (let ((__tmp111944 + (fxzero? __tmp112207)) + (let ((__tmp112206 (##direct-structure-ref (##direct-structure-ref - _in101706_ + _in101968_ '1 gx#module-import::t '#f) @@ -15436,556 +15436,556 @@ gx#module-export::t '#f))) (declare (not safe)) - (_K101681_ __tmp111944 _rest101705_)) + (_K101943_ __tmp112206 _rest101967_)) (let () (declare (not safe)) - (_lp101676_ _rest101705_ _loads101679_))) + (_lp101938_ _rest101967_ _loads101941_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101706_ + _in101968_ 'gx#import-set::t)) - (let ((_phi101708_ + (let ((_phi101970_ (##direct-structure-ref - _in101706_ + _in101968_ '2 gx#import-set::t '#f))) - (if (let () (declare (not safe)) (fxzero? _phi101708_)) - (let ((__tmp111943 + (if (let () (declare (not safe)) (fxzero? _phi101970_)) + (let ((__tmp112205 (##direct-structure-ref - _in101706_ + _in101968_ '1 gx#import-set::t '#f))) (declare (not safe)) - (_K101681_ __tmp111943 _rest101705_)) - (if (fxpositive? _phi101708_) - (let* ((_deps101710_ + (_K101943_ __tmp112205 _rest101967_)) + (if (fxpositive? _phi101970_) + (let* ((_deps101972_ (let () (declare (not safe)) - (_import-set-template101638_ - _in101706_ + (_import-set-template101900_ + _in101968_ '0))) - (__tmp111942 + (__tmp112204 (let () (declare (not safe)) (foldl1 cons - _rest101705_ - _deps101710_)))) + _rest101967_ + _deps101972_)))) (declare (not safe)) - (_lp101676_ __tmp111942 _loads101679_)) + (_lp101938_ __tmp112204 _loads101941_)) (let () (declare (not safe)) - (_lp101676_ _rest101705_ _loads101679_))))) + (_lp101938_ _rest101967_ _loads101941_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _stx101636_ - _in101706_)))))))) + _stx101898_ + _in101968_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest101682101690_)) - (let ((_hd101687101715_ + (##pair? _rest101944101952_)) + (let ((_hd101949101977_ (let () (declare (not safe)) - (##car _rest101682101690_))) - (_tl101688101717_ + (##car _rest101944101952_))) + (_tl101950101979_ (let () (declare (not safe)) - (##cdr _rest101682101690_)))) - (let* ((_in101720_ - _hd101687101715_) - (_rest101722_ - _tl101688101717_)) + (##cdr _rest101944101952_)))) + (let* ((_in101982_ + _hd101949101977_) + (_rest101984_ + _tl101950101979_)) (declare (not safe)) - (_K101686101712_ - _rest101722_ - _in101720_))) + (_K101948101974_ + _rest101984_ + _in101982_))) (let () (declare (not safe)) - (_else101684101702_)))))))) - _tl101643101660_))) + (_else101946101964_)))))))) + _tl101905101922_))) (let () (declare (not safe)) - (_g101640101650_ _g101641101653_)))))) + (_g101902101912_ _g101903101915_)))))) (declare (not safe)) - (_g101639101731_ _stx101636_))))) + (_g101901101993_ _stx101898_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_stx101452_) - (letrec ((_add-lift!101454_ - (lambda (_expr101634_) + (lambda (_stx101714_) + (letrec ((_add-lift!101716_ + (lambda (_expr101896_) (set-box! (gxc#current-compile-lift) - (let ((__tmp111946 (unbox (gxc#current-compile-lift)))) + (let ((__tmp112208 (unbox (gxc#current-compile-lift)))) (declare (not safe)) - (cons _expr101634_ __tmp111946))))) - (_generate-syntax-quote101455_ - (lambda (_id101631_ _marks101632_) - (let ((__tmp111947 - (let ((__tmp111948 - (let ((__tmp111952 - (let ((__tmp111953 + (cons _expr101896_ __tmp112208))))) + (_generate-syntax-quote101717_ + (lambda (_id101893_ _marks101894_) + (let ((__tmp112209 + (let ((__tmp112210 + (let ((__tmp112214 + (let ((__tmp112215 (let () (declare (not safe)) - (cons _id101631_ '())))) + (cons _id101893_ '())))) (declare (not safe)) - (cons 'quote __tmp111953))) - (__tmp111949 - (let ((__tmp111950 - (let ((__tmp111951 + (cons 'quote __tmp112215))) + (__tmp112211 + (let ((__tmp112212 + (let ((__tmp112213 (let () (declare (not safe)) - (cons _marks101632_ + (cons _marks101894_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(gx#current-expander-context) - __tmp111951)))) + __tmp112213)))) (declare (not safe)) - (cons '#f __tmp111950)))) + (cons '#f __tmp112212)))) (declare (not safe)) - (cons __tmp111952 __tmp111949)))) + (cons __tmp112214 __tmp112211)))) (declare (not safe)) - (cons 'gx#syntax-quote::t __tmp111948)))) + (cons 'gx#syntax-quote::t __tmp112210)))) (declare (not safe)) - (cons '##structure __tmp111947)))) - (_generate-simple101456_ - (lambda (_stxq101626_) - (let ((_gid101628_ + (cons '##structure __tmp112209)))) + (_generate-simple101718_ + (lambda (_stxq101888_) + (let ((_gid101890_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid101629_ + (_qid101891_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq101626_)))) - (let ((__tmp111954 - (let ((__tmp111955 - (let ((__tmp111956 - (let ((__tmp111957 + _stxq101888_)))) + (let ((__tmp112216 + (let ((__tmp112217 + (let ((__tmp112218 + (let ((__tmp112219 (let () (declare (not safe)) - (_generate-syntax-quote101455_ - _qid101629_ + (_generate-syntax-quote101717_ + _qid101891_ ''())))) (declare (not safe)) - (cons __tmp111957 '())))) + (cons __tmp112219 '())))) (declare (not safe)) - (cons _gid101628_ __tmp111956)))) + (cons _gid101890_ __tmp112218)))) (declare (not safe)) - (cons 'define __tmp111955)))) + (cons 'define __tmp112217)))) (declare (not safe)) - (_add-lift!101454_ __tmp111954)) - (let ((__tmp111958 (gxc#current-compile-identifiers))) + (_add-lift!101716_ __tmp112216)) + (let ((__tmp112220 (gxc#current-compile-identifiers))) (declare (not safe)) - (hash-put! __tmp111958 _stxq101626_ _gid101628_)) - _gid101628_))) - (_generate-serialized101457_ - (lambda (_stxq101616_ _marks101617_) - (let* ((_mark-refs101619_ - (map _generate-mark101458_ _marks101617_)) - (_gid101621_ + (hash-put! __tmp112220 _stxq101888_ _gid101890_)) + _gid101890_))) + (_generate-serialized101719_ + (lambda (_stxq101878_ _marks101879_) + (let* ((_mark-refs101881_ + (map _generate-mark101720_ _marks101879_)) + (_gid101883_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid101623_ + (_qid101885_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq101616_)))) - (let ((__tmp111959 - (let ((__tmp111960 - (let ((__tmp111961 - (let ((__tmp111962 - (let ((__tmp111963 + _stxq101878_)))) + (let ((__tmp112221 + (let ((__tmp112222 + (let ((__tmp112223 + (let ((__tmp112224 + (let ((__tmp112225 (let () (declare (not safe)) (cons 'list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mark-refs101619_)))) + _mark-refs101881_)))) (declare (not safe)) - (_generate-syntax-quote101455_ _qid101623_ __tmp111963)))) + (_generate-syntax-quote101717_ _qid101885_ __tmp112225)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111962 '())))) + (cons __tmp112224 '())))) (declare (not safe)) - (cons _gid101621_ __tmp111961)))) + (cons _gid101883_ __tmp112223)))) (declare (not safe)) - (cons 'define __tmp111960)))) + (cons 'define __tmp112222)))) (declare (not safe)) - (_add-lift!101454_ __tmp111959)) - (let ((__tmp111964 (gxc#current-compile-identifiers))) + (_add-lift!101716_ __tmp112221)) + (let ((__tmp112226 (gxc#current-compile-identifiers))) (declare (not safe)) - (hash-put! __tmp111964 _stxq101616_ _gid101621_)) - _gid101621_))) - (_generate-mark101458_ - (lambda (_mark101602_) - (let ((_$e101604_ - (let ((__tmp111965 (gxc#current-compile-marks))) + (hash-put! __tmp112226 _stxq101878_ _gid101883_)) + _gid101883_))) + (_generate-mark101720_ + (lambda (_mark101864_) + (let ((_$e101866_ + (let ((__tmp112227 (gxc#current-compile-marks))) (declare (not safe)) - (hash-get __tmp111965 _mark101602_)))) - (if _$e101604_ - (values _$e101604_) - (let* ((_gid101607_ + (hash-get __tmp112227 _mark101864_)))) + (if _$e101866_ + (values _$e101866_) + (let* ((_gid101869_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_repr101609_ + (_repr101871_ (let () (declare (not safe)) - (_serialize-mark101459_ _mark101602_))) - (_ctx101611_ - (let ((__tmp111966 + (_serialize-mark101721_ _mark101864_))) + (_ctx101873_ + (let ((__tmp112228 (##structure-ref - _mark101602_ + _mark101864_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp111966))) - (_ctx-ref101613_ - (if (let ((__tmp111971 + (gx#core-context-top__1 __tmp112228))) + (_ctx-ref101875_ + (if (let ((__tmp112233 (gx#current-expander-context))) (declare (not safe)) - (eq? _ctx101611_ __tmp111971)) + (eq? _ctx101873_ __tmp112233)) '(gx#current-expander-context) - (let ((__tmp111967 - (let ((__tmp111968 - (let ((__tmp111969 - (let ((__tmp111970 + (let ((__tmp112229 + (let ((__tmp112230 + (let ((__tmp112231 + (let ((__tmp112232 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_context-ref101460_ _ctx101611_)))) + (_context-ref101722_ _ctx101873_)))) (declare (not safe)) - (cons __tmp111970 '())))) + (cons __tmp112232 '())))) (declare (not safe)) - (cons 'quote __tmp111969)))) + (cons 'quote __tmp112231)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111968 '())))) + (cons __tmp112230 '())))) (declare (not safe)) (cons 'gx#import-module - __tmp111967))))) - (let ((__tmp111972 (gxc#current-compile-marks))) + __tmp112229))))) + (let ((__tmp112234 (gxc#current-compile-marks))) (declare (not safe)) (hash-put! - __tmp111972 - _mark101602_ - _gid101607_)) - (let ((__tmp111973 - (let ((__tmp111974 - (let ((__tmp111975 - (let ((__tmp111976 - (let ((__tmp111977 + __tmp112234 + _mark101864_ + _gid101869_)) + (let ((__tmp112235 + (let ((__tmp112236 + (let ((__tmp112237 + (let ((__tmp112238 + (let ((__tmp112239 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp111979 - (let ((__tmp111980 + (let ((__tmp112241 + (let ((__tmp112242 (let () (declare (not safe)) - (cons _repr101609_ '())))) + (cons _repr101871_ '())))) (declare (not safe)) - (cons 'quote __tmp111980))) - (__tmp111978 + (cons 'quote __tmp112242))) + (__tmp112240 (let () (declare (not safe)) - (cons _ctx-ref101613_ '())))) + (cons _ctx-ref101875_ '())))) (declare (not safe)) - (cons __tmp111979 __tmp111978)))) + (cons __tmp112241 __tmp112240)))) (declare (not safe)) - (cons 'gx#core-deserialize-mark __tmp111977)))) + (cons 'gx#core-deserialize-mark __tmp112239)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp111976 '())))) + (cons __tmp112238 '())))) (declare (not safe)) - (cons _gid101607_ __tmp111975)))) + (cons _gid101869_ __tmp112237)))) (declare (not safe)) - (cons 'define __tmp111974)))) + (cons 'define __tmp112236)))) (declare (not safe)) - (_add-lift!101454_ __tmp111973)) - _gid101607_))))) - (_serialize-mark101459_ - (lambda (_mark101549_) - (letrec ((_quote-e101551_ - (lambda (_sym101600_) - (if (interned-symbol? _sym101600_) - _sym101600_ + (_add-lift!101716_ __tmp112235)) + _gid101869_))))) + (_serialize-mark101721_ + (lambda (_mark101811_) + (letrec ((_quote-e101813_ + (lambda (_sym101862_) + (if (interned-symbol? _sym101862_) + _sym101862_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym101600_)))))) - (let* ((_mark101552101561_ _mark101549_) - (_E101554101565_ + _sym101862_)))))) + (let* ((_mark101814101823_ _mark101811_) + (_E101816101827_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _mark101552101561_)))) - (_K101555101577_ - (lambda (_trace101568_ - _phi101569_ - _ctx101570_ - _subst101571_) - (let* ((_subs101573_ - (if _subst101571_ + _mark101814101823_)))) + (_K101817101839_ + (lambda (_trace101830_ + _phi101831_ + _ctx101832_ + _subst101833_) + (let* ((_subs101835_ + (if _subst101833_ (let () (declare (not safe)) - (hash->list _subst101571_)) + (hash->list _subst101833_)) '())) - (__tmp111981 - (map (lambda (_pair101575_) - (let ((__tmp111984 - (let ((__tmp111985 - (car _pair101575_))) + (__tmp112243 + (map (lambda (_pair101837_) + (let ((__tmp112246 + (let ((__tmp112247 + (car _pair101837_))) (declare (not safe)) - (_quote-e101551_ - __tmp111985))) - (__tmp111982 - (let ((__tmp111983 - (cdr _pair101575_))) + (_quote-e101813_ + __tmp112247))) + (__tmp112244 + (let ((__tmp112245 + (cdr _pair101837_))) (declare (not safe)) - (_quote-e101551_ - __tmp111983)))) + (_quote-e101813_ + __tmp112245)))) (declare (not safe)) - (cons __tmp111984 - __tmp111982))) - _subs101573_))) + (cons __tmp112246 + __tmp112244))) + _subs101835_))) (declare (not safe)) - (cons _phi101569_ __tmp111981))))) + (cons _phi101831_ __tmp112243))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark101552101561_ + _mark101814101823_ 'gx#expander-mark::t)) - (let* ((_e101556101580_ + (let* ((_e101818101842_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark101552101561_ + _mark101814101823_ '1 gx#expander-mark::t '#f))) - (_subst101583_ _e101556101580_) - (_e101557101585_ + (_subst101845_ _e101818101842_) + (_e101819101847_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark101552101561_ + _mark101814101823_ '2 gx#expander-mark::t '#f))) - (_ctx101588_ _e101557101585_) - (_e101558101590_ + (_ctx101850_ _e101819101847_) + (_e101820101852_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark101552101561_ + _mark101814101823_ '3 gx#expander-mark::t '#f))) - (_phi101593_ _e101558101590_) - (_e101559101595_ + (_phi101855_ _e101820101852_) + (_e101821101857_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark101552101561_ + _mark101814101823_ '4 gx#expander-mark::t '#f))) - (_trace101598_ _e101559101595_)) + (_trace101860_ _e101821101857_)) (declare (not safe)) - (_K101555101577_ - _trace101598_ - _phi101593_ - _ctx101588_ - _subst101583_)) + (_K101817101839_ + _trace101860_ + _phi101855_ + _ctx101850_ + _subst101845_)) (let () (declare (not safe)) - (_E101554101565_))))))) - (_context-ref101460_ - (lambda (_ctx101536_) - (if (let ((__tmp111993 + (_E101816101827_))))))) + (_context-ref101722_ + (lambda (_ctx101798_) + (if (let ((__tmp112255 (##structure-ref - _ctx101536_ + _ctx101798_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp111993 + __tmp112255 'gx#module-context::t)) - (let ((_ctx-ref101538_ + (let ((_ctx-ref101800_ (let () (declare (not safe)) - (_context-ref-nested101462_ _ctx101536_))) - (_ctx-origin101539_ + (_context-ref-nested101724_ _ctx101798_))) + (_ctx-origin101801_ (let () (declare (not safe)) - (_context-ref-origin101461_ _ctx101536_))) - (_origin101540_ - (let ((__tmp111987 + (_context-ref-origin101723_ _ctx101798_))) + (_origin101802_ + (let ((__tmp112249 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-origin101461_ __tmp111987)))) + (_context-ref-origin101723_ __tmp112249)))) (if (let () (declare (not safe)) - (eq? _origin101540_ _ctx-origin101539_)) - (let ((_ref101542_ - (let ((__tmp111988 + (eq? _origin101802_ _ctx-origin101801_)) + (let ((_ref101804_ + (let ((__tmp112250 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-nested101462_ - __tmp111988)))) - (let _lp101544_ ((_ref101546_ - (cdr _ref101542_)) - (_ctx-ref101547_ - (cdr _ctx-ref101538_))) + (_context-ref-nested101724_ + __tmp112250)))) + (let _lp101806_ ((_ref101808_ + (cdr _ref101804_)) + (_ctx-ref101809_ + (cdr _ctx-ref101800_))) (if (and (let () (declare (not safe)) - (pair? _ref101546_)) - (let ((__tmp111992 - (car _ref101546_)) - (__tmp111991 - (car _ctx-ref101547_))) + (pair? _ref101808_)) + (let ((__tmp112254 + (car _ref101808_)) + (__tmp112253 + (car _ctx-ref101809_))) (declare (not safe)) - (eq? __tmp111992 __tmp111991))) - (let ((__tmp111990 (cdr _ref101546_)) - (__tmp111989 - (cdr _ctx-ref101547_))) + (eq? __tmp112254 __tmp112253))) + (let ((__tmp112252 (cdr _ref101808_)) + (__tmp112251 + (cdr _ctx-ref101809_))) (declare (not safe)) - (_lp101544_ __tmp111990 __tmp111989)) + (_lp101806_ __tmp112252 __tmp112251)) (let () (declare (not safe)) - (cons '#f _ctx-ref101547_))))) - _ctx-ref101538_)) - (let ((__tmp111986 + (cons '#f _ctx-ref101809_))))) + _ctx-ref101800_)) + (let ((__tmp112248 (##structure-ref - _ctx101536_ + _ctx101798_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp111986))))) - (_context-ref-origin101461_ - (lambda (_ctx101528_) - (let _lp101530_ ((_ctx101532_ _ctx101528_)) - (let ((_super101534_ + (make-symbol__1 '":" __tmp112248))))) + (_context-ref-origin101723_ + (lambda (_ctx101790_) + (let _lp101792_ ((_ctx101794_ _ctx101790_)) + (let ((_super101796_ (##structure-ref - _ctx101532_ + _ctx101794_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super101534_ + _super101796_ 'gx#module-context::t)) (let () (declare (not safe)) - (_lp101530_ _super101534_)) - _ctx101532_))))) - (_context-ref-nested101462_ - (lambda (_ctx101519_) - (let _lp101521_ ((_ctx101523_ _ctx101519_) - (_r101524_ '())) - (let ((_super101526_ + (_lp101792_ _super101796_)) + _ctx101794_))))) + (_context-ref-nested101724_ + (lambda (_ctx101781_) + (let _lp101783_ ((_ctx101785_ _ctx101781_) + (_r101786_ '())) + (let ((_super101788_ (##structure-ref - _ctx101523_ + _ctx101785_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super101526_ + _super101788_ 'gx#module-context::t)) - (let ((__tmp111996 - (let ((__tmp111997 + (let ((__tmp112258 + (let ((__tmp112259 (car (##structure-ref - _ctx101523_ + _ctx101785_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp111997 _r101524_)))) + (cons __tmp112259 _r101786_)))) (declare (not safe)) - (_lp101521_ _super101526_ __tmp111996)) - (let ((__tmp111994 - (let ((__tmp111995 + (_lp101783_ _super101788_ __tmp112258)) + (let ((__tmp112256 + (let ((__tmp112257 (##structure-ref - _ctx101523_ + _ctx101785_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp111995)))) + (make-symbol__1 '":" __tmp112257)))) (declare (not safe)) - (cons __tmp111994 _r101524_)))))))) - (let* ((_g101464101477_ - (lambda (_g101465101474_) + (cons __tmp112256 _r101786_)))))))) + (let* ((_g101726101739_ + (lambda (_g101727101736_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101465101474_)))) - (_g101463101516_ - (lambda (_g101465101480_) + _g101727101736_)))) + (_g101725101778_ + (lambda (_g101727101742_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101465101480_)) - (let ((_e101469101482_ + (gx#stx-pair? _g101727101742_)) + (let ((_e101731101744_ (let () (declare (not safe)) - (gx#stx-e _g101465101480_)))) - (let ((_hd101468101485_ + (gx#stx-e _g101727101742_)))) + (let ((_hd101730101747_ (let () (declare (not safe)) - (##car _e101469101482_))) - (_tl101467101487_ + (##car _e101731101744_))) + (_tl101729101749_ (let () (declare (not safe)) - (##cdr _e101469101482_)))) + (##cdr _e101731101744_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101467101487_)) - (let ((_e101472101490_ + (gx#stx-pair? _tl101729101749_)) + (let ((_e101734101752_ (let () (declare (not safe)) - (gx#stx-e _tl101467101487_)))) - (let ((_hd101471101493_ + (gx#stx-e _tl101729101749_)))) + (let ((_hd101733101755_ (let () (declare (not safe)) - (##car _e101472101490_))) - (_tl101470101495_ + (##car _e101734101752_))) + (_tl101732101757_ (let () (declare (not safe)) - (##cdr _e101472101490_)))) + (##cdr _e101734101752_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101470101495_)) - ((lambda (_L101498_) + (gx#stx-null? _tl101732101757_)) + ((lambda (_L101760_) (if (let () (declare (not safe)) - (gx#identifier? _L101498_)) - (let ((_$e101511_ - (let ((__tmp111998 + (gx#identifier? _L101760_)) + (let ((_$e101773_ + (let ((__tmp112260 (gxc#current-compile-identifiers))) (declare (not safe)) (hash-get - __tmp111998 - _L101498_)))) - (if _$e101511_ - (values _$e101511_) - (let ((_marks101514_ + __tmp112260 + _L101760_)))) + (if _$e101773_ + (values _$e101773_) + (let ((_marks101776_ (##direct-structure-ref - _L101498_ + _L101760_ '4 gx#syntax-quote::t '#f))) @@ -15993,2116 +15993,2116 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _marks101514_)) + (null? _marks101776_)) (let () (declare (not safe)) - (_generate-simple101456_ _L101498_)) + (_generate-simple101718_ _L101760_)) (let () (declare (not safe)) - (_generate-serialized101457_ - _L101498_ - _marks101514_)))))) + (_generate-serialized101719_ + _L101760_ + _marks101776_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _L101498_)))) - _hd101471101493_) + _L101760_)))) + _hd101733101755_) (let () (declare (not safe)) - (_g101464101477_ - _g101465101480_))))) + (_g101726101739_ + _g101727101742_))))) (let () (declare (not safe)) - (_g101464101477_ _g101465101480_))))) + (_g101726101739_ _g101727101742_))))) (let () (declare (not safe)) - (_g101464101477_ _g101465101480_)))))) + (_g101726101739_ _g101727101742_)))))) (declare (not safe)) - (_g101463101516_ _stx101452_))))) + (_g101725101778_ _stx101714_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_stx101385_) - (let* ((_g101387101404_ - (lambda (_g101388101401_) + (lambda (_stx101647_) + (let* ((_g101649101666_ + (lambda (_g101650101663_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101388101401_)))) - (_g101386101449_ - (lambda (_g101388101407_) + _g101650101663_)))) + (_g101648101711_ + (lambda (_g101650101669_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101388101407_)) - (let ((_e101393101409_ + (gx#stx-pair? _g101650101669_)) + (let ((_e101655101671_ (let () (declare (not safe)) - (gx#stx-e _g101388101407_)))) - (let ((_hd101392101412_ + (gx#stx-e _g101650101669_)))) + (let ((_hd101654101674_ (let () (declare (not safe)) - (##car _e101393101409_))) - (_tl101391101414_ + (##car _e101655101671_))) + (_tl101653101676_ (let () (declare (not safe)) - (##cdr _e101393101409_)))) + (##cdr _e101655101671_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101391101414_)) - (let ((_e101396101417_ + (gx#stx-pair? _tl101653101676_)) + (let ((_e101658101679_ (let () (declare (not safe)) - (gx#stx-e _tl101391101414_)))) - (let ((_hd101395101420_ + (gx#stx-e _tl101653101676_)))) + (let ((_hd101657101682_ (let () (declare (not safe)) - (##car _e101396101417_))) - (_tl101394101422_ + (##car _e101658101679_))) + (_tl101656101684_ (let () (declare (not safe)) - (##cdr _e101396101417_)))) + (##cdr _e101658101679_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101394101422_)) - (let ((_e101399101425_ + (gx#stx-pair? _tl101656101684_)) + (let ((_e101661101687_ (let () (declare (not safe)) - (gx#stx-e _tl101394101422_)))) - (let ((_hd101398101428_ + (gx#stx-e _tl101656101684_)))) + (let ((_hd101660101690_ (let () (declare (not safe)) - (##car _e101399101425_))) - (_tl101397101430_ + (##car _e101661101687_))) + (_tl101659101692_ (let () (declare (not safe)) - (##cdr _e101399101425_)))) + (##cdr _e101661101687_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101397101430_)) - ((lambda (_L101433_ _L101434_) - (let ((__tmp111999 - (let ((__tmp112002 + _tl101659101692_)) + ((lambda (_L101695_ _L101696_) + (let ((__tmp112261 + (let ((__tmp112264 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L101434_))) - (__tmp112000 - (let ((__tmp112001 + (let () (declare (not safe)) (gx#stx-e _L101696_))) + (__tmp112262 + (let ((__tmp112263 (let () (declare (not safe)) - (gxc#compile-e__0 _L101433_)))) + (gxc#compile-e__0 _L101695_)))) (declare (not safe)) - (cons __tmp112001 '())))) + (cons __tmp112263 '())))) (declare (not safe)) - (cons __tmp112002 __tmp112000)))) + (cons __tmp112264 __tmp112262)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'define - __tmp111999))) - _hd101398101428_ - _hd101395101420_) + __tmp112261))) + _hd101660101690_ + _hd101657101682_) (let () (declare (not safe)) - (_g101387101404_ - _g101388101407_))))) + (_g101649101666_ + _g101650101669_))))) (let () (declare (not safe)) - (_g101387101404_ _g101388101407_))))) + (_g101649101666_ _g101650101669_))))) (let () (declare (not safe)) - (_g101387101404_ _g101388101407_))))) + (_g101649101666_ _g101650101669_))))) (let () (declare (not safe)) - (_g101387101404_ _g101388101407_)))))) + (_g101649101666_ _g101650101669_)))))) (declare (not safe)) - (_g101386101449_ _stx101385_)))) + (_g101648101711_ _stx101647_)))) (define gxc#generate-meta-begin% - (lambda (_stx101334_ _state101335_) - (let* ((_g101337101347_ - (lambda (_g101338101344_) + (lambda (_stx101596_ _state101597_) + (let* ((_g101599101609_ + (lambda (_g101600101606_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101338101344_)))) - (_g101336101382_ - (lambda (_g101338101350_) + _g101600101606_)))) + (_g101598101644_ + (lambda (_g101600101612_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101338101350_)) - (let ((_e101342101352_ + (gx#stx-pair? _g101600101612_)) + (let ((_e101604101614_ (let () (declare (not safe)) - (gx#stx-e _g101338101350_)))) - (let ((_hd101341101355_ + (gx#stx-e _g101600101612_)))) + (let ((_hd101603101617_ (let () (declare (not safe)) - (##car _e101342101352_))) - (_tl101340101357_ + (##car _e101604101614_))) + (_tl101602101619_ (let () (declare (not safe)) - (##cdr _e101342101352_)))) - ((lambda (_L101360_) - (let* ((_c-body101374_ - (map (lambda (_g101369101371_) + (##cdr _e101604101614_)))) + ((lambda (_L101622_) + (let* ((_c-body101636_ + (map (lambda (_g101631101633_) (let () (declare (not safe)) (gxc#compile-e__1 - _g101369101371_ - _state101335_))) - _L101360_)) - (_c-body101379_ - (let ((__tmp112003 - (lambda (_$obj101376_) - (let ((__tmp112004 + _g101631101633_ + _state101597_))) + _L101622_)) + (_c-body101641_ + (let ((__tmp112265 + (lambda (_$obj101638_) + (let ((__tmp112266 (let () (declare (not safe)) - (eq? _$obj101376_ + (eq? _$obj101638_ '#!void)))) (declare (not safe)) - (not __tmp112004))))) + (not __tmp112266))))) (declare (not safe)) - (filter __tmp112003 _c-body101374_)))) + (filter __tmp112265 _c-body101636_)))) (let () (declare (not safe)) - (cons '%#begin _c-body101379_)))) - _tl101340101357_))) + (cons '%#begin _c-body101641_)))) + _tl101602101619_))) (let () (declare (not safe)) - (_g101337101347_ _g101338101350_)))))) + (_g101599101609_ _g101600101612_)))))) (declare (not safe)) - (_g101336101382_ _stx101334_)))) + (_g101598101644_ _stx101596_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_stx101242_ _state101243_) - (let* ((_g101245101255_ - (lambda (_g101246101252_) + (lambda (_stx101504_ _state101505_) + (let* ((_g101507101517_ + (lambda (_g101508101514_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101246101252_)))) - (_g101244101331_ - (lambda (_g101246101258_) + _g101508101514_)))) + (_g101506101593_ + (lambda (_g101508101520_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101246101258_)) - (let ((_e101250101260_ + (gx#stx-pair? _g101508101520_)) + (let ((_e101512101522_ (let () (declare (not safe)) - (gx#stx-e _g101246101258_)))) - (let ((_hd101249101263_ + (gx#stx-e _g101508101520_)))) + (let ((_hd101511101525_ (let () (declare (not safe)) - (##car _e101250101260_))) - (_tl101248101265_ + (##car _e101512101522_))) + (_tl101510101527_ (let () (declare (not safe)) - (##cdr _e101250101260_)))) - ((lambda (_L101268_) - (let* ((_phi101278_ - (let ((__tmp112005 + (##cdr _e101512101522_)))) + ((lambda (_L101530_) + (let* ((_phi101540_ + (let ((__tmp112267 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp112005 '1))) - (_block101280_ + (fx+ __tmp112267 '1))) + (_block101542_ (let () (declare (not safe)) (gxc#meta-state-begin-phi! - _state101243_ - _phi101278_))) - (_compiled101283_ - (let ((__tmp112006 + _state101505_ + _phi101540_))) + (_compiled101545_ + (let ((__tmp112268 (lambda () - (let ((__tmp112007 - (let ((__tmp112008 + (let ((__tmp112269 + (let ((__tmp112270 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)))) (declare (not safe)) - (cons __tmp112008 _L101268_)))) + (cons __tmp112270 _L101530_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#apply-generate-meta-phi - __tmp112007 - _state101243_))))) + __tmp112269 + _state101505_))))) (declare (not safe)) (call-with-parameters - __tmp112006 + __tmp112268 gx#current-expander-phi - _phi101278_)))) - (let* ((_g101286101296_ - (lambda (_g101287101293_) + _phi101540_)))) + (let* ((_g101548101558_ + (lambda (_g101549101555_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101287101293_)))) - (_g101285101328_ - (lambda (_g101287101299_) + _g101549101555_)))) + (_g101547101590_ + (lambda (_g101549101561_) (if (let () (declare (not safe)) (gx#stx-pair? - _g101287101299_)) - (let ((_e101291101301_ + _g101549101561_)) + (let ((_e101553101563_ (let () (declare (not safe)) (gx#stx-e - _g101287101299_)))) - (let ((_hd101290101304_ + _g101549101561_)))) + (let ((_hd101552101566_ (let () (declare (not safe)) - (##car _e101291101301_))) - (_tl101289101306_ + (##car _e101553101563_))) + (_tl101551101568_ (let () (declare (not safe)) - (##cdr _e101291101301_)))) + (##cdr _e101553101563_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd101290101304_)) + _hd101552101566_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _hd101290101304_)) - ((lambda (_L101309_) - (let ((_c-body101326_ + _hd101552101566_)) + ((lambda (_L101571_) + (let ((_c-body101588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112009 - (lambda (_$obj101323_) - (let ((__tmp112010 + (let ((__tmp112271 + (lambda (_$obj101585_) + (let ((__tmp112272 (let () (declare (not safe)) - (eq? _$obj101323_ '#!void)))) + (eq? _$obj101585_ '#!void)))) (declare (not safe)) - (not __tmp112010))))) + (not __tmp112272))))) (declare (not safe)) - (filter __tmp112009 _L101309_)))) - (if _block101280_ - (let ((__tmp112011 - (let ((__tmp112012 - (let ((__tmp112013 - (let ((__tmp112017 - (let ((__tmp112018 + (filter __tmp112271 _L101571_)))) + (if _block101542_ + (let ((__tmp112273 + (let ((__tmp112274 + (let ((__tmp112275 + (let ((__tmp112279 + (let ((__tmp112280 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp112018))) - (__tmp112014 - (let ((__tmp112015 - (let ((__tmp112016 + (cons '%#ref __tmp112280))) + (__tmp112276 + (let ((__tmp112277 + (let ((__tmp112278 (let () (declare (not safe)) - (cons _block101280_ '())))) + (cons _block101542_ '())))) (declare (not safe)) - (cons '%#quote __tmp112016)))) + (cons '%#quote __tmp112278)))) (declare (not safe)) - (cons __tmp112015 '())))) + (cons __tmp112277 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112017 - __tmp112014)))) + (cons __tmp112279 + __tmp112276)))) (declare (not safe)) - (cons '%#call __tmp112013)))) + (cons '%#call __tmp112275)))) (declare (not safe)) - (cons __tmp112012 _c-body101326_)))) + (cons __tmp112274 _c-body101588_)))) (declare (not safe)) - (cons '%#begin-syntax __tmp112011)) + (cons '%#begin-syntax __tmp112273)) (if (let () (declare (not safe)) - (null? _c-body101326_)) + (null? _c-body101588_)) '#!void (let () (declare (not safe)) - (cons '%#begin-syntax _c-body101326_)))))) - _tl101289101306_) + (cons '%#begin-syntax _c-body101588_)))))) + _tl101551101568_) (let () (declare (not safe)) - (_g101286101296_ _g101287101299_))) + (_g101548101558_ _g101549101561_))) (let () (declare (not safe)) - (_g101286101296_ _g101287101299_))))) + (_g101548101558_ _g101549101561_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101286101296_ - _g101287101299_)))))) + (_g101548101558_ + _g101549101561_)))))) (declare (not safe)) - (_g101285101328_ _compiled101283_)))) - _tl101248101265_))) + (_g101547101590_ _compiled101545_)))) + _tl101510101527_))) (let () (declare (not safe)) - (_g101245101255_ _g101246101258_)))))) + (_g101507101517_ _g101508101520_)))))) (declare (not safe)) - (_g101244101331_ _stx101242_)))) + (_g101506101593_ _stx101504_)))) (define gxc#generate-meta-module% - (lambda (_stx101173_ _state101174_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state101174_)) - (let* ((_g101176101190_ - (lambda (_g101177101187_) + (lambda (_stx101435_ _state101436_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state101436_)) + (let* ((_g101438101452_ + (lambda (_g101439101449_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101177101187_)))) - (_g101175101239_ - (lambda (_g101177101193_) + _g101439101449_)))) + (_g101437101501_ + (lambda (_g101439101455_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101177101193_)) - (let ((_e101182101195_ + (gx#stx-pair? _g101439101455_)) + (let ((_e101444101457_ (let () (declare (not safe)) - (gx#stx-e _g101177101193_)))) - (let ((_hd101181101198_ + (gx#stx-e _g101439101455_)))) + (let ((_hd101443101460_ (let () (declare (not safe)) - (##car _e101182101195_))) - (_tl101180101200_ + (##car _e101444101457_))) + (_tl101442101462_ (let () (declare (not safe)) - (##cdr _e101182101195_)))) + (##cdr _e101444101457_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101180101200_)) - (let ((_e101185101203_ + (gx#stx-pair? _tl101442101462_)) + (let ((_e101447101465_ (let () (declare (not safe)) - (gx#stx-e _tl101180101200_)))) - (let ((_hd101184101206_ + (gx#stx-e _tl101442101462_)))) + (let ((_hd101446101468_ (let () (declare (not safe)) - (##car _e101185101203_))) - (_tl101183101208_ + (##car _e101447101465_))) + (_tl101445101470_ (let () (declare (not safe)) - (##cdr _e101185101203_)))) - ((lambda (_L101211_ _L101212_) - (let ((_key101225_ + (##cdr _e101447101465_)))) + ((lambda (_L101473_ _L101474_) + (let ((_key101487_ (let () (declare (not safe)) (gx#core-identifier-key - _L101212_)))) - (if (interned-symbol? _key101225_) + _L101474_)))) + (if (interned-symbol? _key101487_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx101173_ - _L101212_ - _key101225_))) - (let* ((_ctx101227_ + _stx101435_ + _L101474_ + _key101487_))) + (let* ((_ctx101489_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L101212_))) - (_code101230_ - (let ((__tmp112019 + _L101474_))) + (_code101492_ + (let ((__tmp112281 (lambda () - (let ((__tmp112020 + (let ((__tmp112282 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _ctx101227_ + _ctx101489_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#compile-e__1 __tmp112020 _state101174_))))) + (gxc#compile-e__1 __tmp112282 _state101436_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp112019 + __tmp112281 gx#current-expander-context - _ctx101227_))) - (_rt101232_ - (let ((__tmp112021 + _ctx101489_))) + (_rt101494_ + (let ((__tmp112283 (gxc#current-compile-runtime-sections))) (declare (not safe)) (hash-get - __tmp112021 - _ctx101227_))) - (_loader101234_ - (if _rt101232_ - (let ((__tmp112022 - (let ((__tmp112023 + __tmp112283 + _ctx101489_))) + (_loader101496_ + (if _rt101494_ + (let ((__tmp112284 + (let ((__tmp112285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112027 - (let ((__tmp112028 + (let ((__tmp112289 + (let ((__tmp112290 (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp112028))) - (__tmp112024 - (let ((__tmp112025 - (let ((__tmp112026 + (cons '%#ref __tmp112290))) + (__tmp112286 + (let ((__tmp112287 + (let ((__tmp112288 (let () (declare (not safe)) - (cons _rt101232_ '())))) + (cons _rt101494_ '())))) (declare (not safe)) - (cons '%#quote __tmp112026)))) + (cons '%#quote __tmp112288)))) (declare (not safe)) - (cons __tmp112025 '())))) + (cons __tmp112287 '())))) (declare (not safe)) - (cons __tmp112027 __tmp112024)))) + (cons __tmp112289 __tmp112286)))) (declare (not safe)) - (cons '%#call __tmp112023)))) + (cons '%#call __tmp112285)))) (declare (not safe)) - (cons __tmp112022 '())) + (cons __tmp112284 '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_modid101236_ + (_modid101498_ (let () (declare (not safe)) - (gx#stx-e _L101212_)))) + (gx#stx-e _L101474_)))) (let () (declare (not safe)) (gxc#meta-state-end-phi! - _state101174_)) - (let ((__tmp112029 - (let ((__tmp112030 + _state101436_)) + (let ((__tmp112291 + (let ((__tmp112292 (let () (declare (not safe)) - (cons _code101230_ + (cons _code101492_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _loader101234_)))) + _loader101496_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _modid101236_ - __tmp112030)))) + (cons _modid101498_ + __tmp112292)))) (declare (not safe)) - (cons '%#module __tmp112029))))) - _tl101183101208_ - _hd101184101206_))) + (cons '%#module __tmp112291))))) + _tl101445101470_ + _hd101446101468_))) (let () (declare (not safe)) - (_g101176101190_ _g101177101193_))))) + (_g101438101452_ _g101439101455_))))) (let () (declare (not safe)) - (_g101176101190_ _g101177101193_)))))) + (_g101438101452_ _g101439101455_)))))) (declare (not safe)) - (_g101175101239_ _stx101173_)))) + (_g101437101501_ _stx101435_)))) (define gxc#generate-meta-import-path - (lambda (_ctx101163_ _context-chain101164_) - (let _lp101166_ ((_ctx101168_ _ctx101163_) (_path101169_ '())) - (let ((_super101171_ - (##structure-ref _ctx101168_ '3 gx#phi-context::t '#f))) - (if (memq _super101171_ _context-chain101164_) - (let ((__tmp112035 - (let ((__tmp112036 + (lambda (_ctx101425_ _context-chain101426_) + (let _lp101428_ ((_ctx101430_ _ctx101425_) (_path101431_ '())) + (let ((_super101433_ + (##structure-ref _ctx101430_ '3 gx#phi-context::t '#f))) + (if (memq _super101433_ _context-chain101426_) + (let ((__tmp112297 + (let ((__tmp112298 (car (##structure-ref - _ctx101168_ + _ctx101430_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp112036 _path101169_)))) + (cons __tmp112298 _path101431_)))) (declare (not safe)) - (cons '#f __tmp112035)) + (cons '#f __tmp112297)) (if (let () (declare (not safe)) (##structure-instance-of? - _super101171_ + _super101433_ 'gx#module-context::t)) - (let ((__tmp112033 - (let ((__tmp112034 + (let ((__tmp112295 + (let ((__tmp112296 (car (##structure-ref - _ctx101168_ + _ctx101430_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp112034 _path101169_)))) + (cons __tmp112296 _path101431_)))) (declare (not safe)) - (_lp101166_ _super101171_ __tmp112033)) - (let ((__tmp112031 - (let ((__tmp112032 + (_lp101428_ _super101433_ __tmp112295)) + (let ((__tmp112293 + (let ((__tmp112294 (##structure-ref - _ctx101168_ + _ctx101430_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp112032)))) + (make-symbol__1 '":" __tmp112294)))) (declare (not safe)) - (cons __tmp112031 _path101169_)))))))) + (cons __tmp112293 _path101431_)))))))) (define gxc#current-context-chain (lambda () - (let _lp101158_ ((_ctx101160_ (gx#current-expander-context)) - (_r101161_ '())) + (let _lp101420_ ((_ctx101422_ (gx#current-expander-context)) + (_r101423_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx101160_ 'gx#module-context::t)) - (let ((__tmp112038 - (##structure-ref _ctx101160_ '3 gx#phi-context::t '#f)) - (__tmp112037 + (##structure-instance-of? _ctx101422_ 'gx#module-context::t)) + (let ((__tmp112300 + (##structure-ref _ctx101422_ '3 gx#phi-context::t '#f)) + (__tmp112299 (let () (declare (not safe)) - (cons _ctx101160_ _r101161_)))) + (cons _ctx101422_ _r101423_)))) (declare (not safe)) - (_lp101158_ __tmp112038 __tmp112037)) - _r101161_)))) + (_lp101420_ __tmp112300 __tmp112299)) + _r101423_)))) (define gxc#generate-meta-import% - (lambda (_stx100927_ _state100928_) - (letrec* ((_context-chain100930_ + (lambda (_stx101189_ _state101190_) + (letrec* ((_context-chain101192_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-spec100931_ - (lambda (_in101094_) - (let* ((_in101095101107_ _in101094_) - (_E101097101111_ + (_make-import-spec101193_ + (lambda (_in101356_) + (let* ((_in101357101369_ _in101356_) + (_E101359101373_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _in101095101107_)))) - (_K101098101121_ - (lambda (_phi101114_ - _name101115_ - _src-name101116_ - _src-phi101117_ - _src-key101118_ - _src-ctx101119_) - (let ((__tmp112039 - (let ((__tmp112043 + _in101357101369_)))) + (_K101360101383_ + (lambda (_phi101376_ + _name101377_ + _src-name101378_ + _src-phi101379_ + _src-key101380_ + _src-ctx101381_) + (let ((__tmp112301 + (let ((__tmp112305 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name101115_))) - (__tmp112040 - (let ((__tmp112041 - (let ((__tmp112042 + _name101377_))) + (__tmp112302 + (let ((__tmp112303 + (let ((__tmp112304 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#generate-runtime-identifier-key - _src-name101116_)))) + _src-name101378_)))) (declare (not safe)) - (cons __tmp112042 '())))) + (cons __tmp112304 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _src-phi101117_ - __tmp112041)))) + (cons _src-phi101379_ + __tmp112303)))) (declare (not safe)) - (cons __tmp112043 __tmp112040)))) + (cons __tmp112305 __tmp112302)))) (declare (not safe)) - (cons _phi101114_ __tmp112039))))) + (cons _phi101376_ __tmp112301))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in101095101107_ + _in101357101369_ 'gx#module-import::t)) - (let ((_e101099101124_ + (let ((_e101361101386_ (let () (declare (not safe)) (##unchecked-structure-ref - _in101095101107_ + _in101357101369_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e101099101124_ + _e101361101386_ 'gx#module-export::t)) - (let* ((_e101102101127_ + (let* ((_e101364101389_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101099101124_ + _e101361101386_ '1 gx#module-export::t '#f))) - (_src-ctx101130_ _e101102101127_) - (_e101103101132_ + (_src-ctx101392_ _e101364101389_) + (_e101365101394_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101099101124_ + _e101361101386_ '2 gx#module-export::t '#f))) - (_src-key101135_ _e101103101132_) - (_e101104101137_ + (_src-key101397_ _e101365101394_) + (_e101366101399_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101099101124_ + _e101361101386_ '3 gx#module-export::t '#f))) - (_src-phi101140_ _e101104101137_) - (_e101105101142_ + (_src-phi101402_ _e101366101399_) + (_e101367101404_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101099101124_ + _e101361101386_ '4 gx#module-export::t '#f))) - (_src-name101145_ _e101105101142_) - (_e101100101147_ + (_src-name101407_ _e101367101404_) + (_e101362101409_ (let () (declare (not safe)) (##unchecked-structure-ref - _in101095101107_ + _in101357101369_ '2 gx#module-import::t '#f))) - (_name101150_ _e101100101147_) - (_e101101101152_ + (_name101412_ _e101362101409_) + (_e101363101414_ (let () (declare (not safe)) (##unchecked-structure-ref - _in101095101107_ + _in101357101369_ '3 gx#module-import::t '#f))) - (_phi101155_ _e101101101152_)) + (_phi101417_ _e101363101414_)) (declare (not safe)) - (_K101098101121_ - _phi101155_ - _name101150_ - _src-name101145_ - _src-phi101140_ - _src-key101135_ - _src-ctx101130_)) + (_K101360101383_ + _phi101417_ + _name101412_ + _src-name101407_ + _src-phi101402_ + _src-key101397_ + _src-ctx101392_)) (let () (declare (not safe)) - (_E101097101111_)))) + (_E101359101373_)))) (let () (declare (not safe)) - (_E101097101111_)))))) - (_make-import-path100932_ - (lambda (_ctx101092_) + (_E101359101373_)))))) + (_make-import-path101194_ + (lambda (_ctx101354_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx101092_ - _context-chain100930_)))) - (_make-import-spec-in100933_ - (lambda (_ctx101089_ _in101090_) - (let ((__tmp112044 - (let ((__tmp112046 + _ctx101354_ + _context-chain101192_)))) + (_make-import-spec-in101195_ + (lambda (_ctx101351_ _in101352_) + (let ((__tmp112306 + (let ((__tmp112308 (let () (declare (not safe)) - (_make-import-path100932_ _ctx101089_))) - (__tmp112045 (reverse _in101090_))) + (_make-import-path101194_ _ctx101351_))) + (__tmp112307 (reverse _in101352_))) (declare (not safe)) - (cons __tmp112046 __tmp112045)))) + (cons __tmp112308 __tmp112307)))) (declare (not safe)) - (cons 'spec: __tmp112044))))) + (cons 'spec: __tmp112306))))) (let () (declare (not safe)) - (gxc#meta-state-end-phi! _state100928_)) - (let* ((_g100935100945_ - (lambda (_g100936100942_) + (gxc#meta-state-end-phi! _state101190_)) + (let* ((_g101197101207_ + (lambda (_g101198101204_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100936100942_)))) - (_g100934101086_ - (lambda (_g100936100948_) + _g101198101204_)))) + (_g101196101348_ + (lambda (_g101198101210_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100936100948_)) - (let ((_e100940100950_ + (gx#stx-pair? _g101198101210_)) + (let ((_e101202101212_ (let () (declare (not safe)) - (gx#stx-e _g100936100948_)))) - (let ((_hd100939100953_ + (gx#stx-e _g101198101210_)))) + (let ((_hd101201101215_ (let () (declare (not safe)) - (##car _e100940100950_))) - (_tl100938100955_ + (##car _e101202101212_))) + (_tl101200101217_ (let () (declare (not safe)) - (##cdr _e100940100950_)))) - ((lambda (_L100958_) - (let _lp100969_ ((_rest100971_ _L100958_) - (_current-src100972_ '#f) - (_current-in100973_ '()) - (_r100974_ '())) - (let* ((_rest100975100983_ _rest100971_) - (_else100977100993_ + (##cdr _e101202101212_)))) + ((lambda (_L101220_) + (let _lp101231_ ((_rest101233_ _L101220_) + (_current-src101234_ '#f) + (_current-in101235_ '()) + (_r101236_ '())) + (let* ((_rest101237101245_ _rest101233_) + (_else101239101255_ (lambda () - (let* ((_r100991_ - (if _current-src100972_ - (let ((__tmp112047 + (let* ((_r101253_ + (if _current-src101234_ + (let ((__tmp112309 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_make-import-spec-in100933_ - _current-src100972_ - _current-in100973_)))) + (_make-import-spec-in101195_ + _current-src101234_ + _current-in101235_)))) (declare (not safe)) - (cons __tmp112047 _r100974_)) - _r100974_)) + (cons __tmp112309 _r101236_)) + _r101236_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp112048 - (reverse _r100991_))) + (__tmp112310 + (reverse _r101253_))) (declare (not safe)) - (cons '%#import __tmp112048)))) - (_K100979101074_ - (lambda (_rest100996_ _in100997_) + (cons '%#import __tmp112310)))) + (_K101241101336_ + (lambda (_rest101258_ _in101259_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in100997_ + _in101259_ 'gx#module-import::t)) - (let* ((_in100998101005_ - _in100997_) - (_E101000101009_ + (let* ((_in101260101267_ + _in101259_) + (_E101262101271_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in100998101005_)))) - (_K101001101014_ - (lambda (_src-ctx101012_) + _in101260101267_)))) + (_K101263101276_ + (lambda (_src-ctx101274_) (if (let () (declare (not safe)) - (eq? _current-src100972_ _src-ctx101012_)) - (let ((__tmp112064 - (let ((__tmp112065 + (eq? _current-src101234_ _src-ctx101274_)) + (let ((__tmp112326 + (let ((__tmp112327 (let () (declare (not safe)) - (_make-import-spec100931_ _in100997_)))) + (_make-import-spec101193_ _in101259_)))) (declare (not safe)) - (cons __tmp112065 _current-in100973_)))) + (cons __tmp112327 _current-in101235_)))) (declare (not safe)) - (_lp100969_ - _rest100996_ - _current-src100972_ - __tmp112064 - _r100974_)) - (if _current-src100972_ - (let ((__tmp112062 - (let ((__tmp112063 + (_lp101231_ + _rest101258_ + _current-src101234_ + __tmp112326 + _r101236_)) + (if _current-src101234_ + (let ((__tmp112324 + (let ((__tmp112325 (let () (declare (not safe)) - (_make-import-spec100931_ - _in100997_)))) + (_make-import-spec101193_ + _in101259_)))) (declare (not safe)) - (cons __tmp112063 '()))) - (__tmp112060 - (let ((__tmp112061 + (cons __tmp112325 '()))) + (__tmp112322 + (let ((__tmp112323 (let () (declare (not safe)) - (_make-import-spec-in100933_ - _current-src100972_ - _current-in100973_)))) + (_make-import-spec-in101195_ + _current-src101234_ + _current-in101235_)))) (declare (not safe)) - (cons __tmp112061 _r100974_)))) + (cons __tmp112323 _r101236_)))) (declare (not safe)) - (_lp100969_ - _rest100996_ - _src-ctx101012_ - __tmp112062 - __tmp112060)) - (let ((__tmp112058 - (let ((__tmp112059 + (_lp101231_ + _rest101258_ + _src-ctx101274_ + __tmp112324 + __tmp112322)) + (let ((__tmp112320 + (let ((__tmp112321 (let () (declare (not safe)) - (_make-import-spec100931_ - _in100997_)))) + (_make-import-spec101193_ + _in101259_)))) (declare (not safe)) - (cons __tmp112059 '())))) + (cons __tmp112321 '())))) (declare (not safe)) - (_lp100969_ - _rest100996_ - _src-ctx101012_ - __tmp112058 - _r100974_))))))) + (_lp101231_ + _rest101258_ + _src-ctx101274_ + __tmp112320 + _r101236_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in100998101005_ + _in101260101267_ 'gx#module-import::t)) - (let ((_e101002101017_ + (let ((_e101264101279_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _in100998101005_ + _in101260101267_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e101002101017_ + _e101264101279_ 'gx#module-export::t)) - (let* ((_e101003101020_ + (let* ((_e101265101282_ (let () (declare (not safe)) (##unchecked-structure-ref - _e101002101017_ + _e101264101279_ '1 gx#module-export::t '#f))) - (_src-ctx101023_ _e101003101020_)) + (_src-ctx101285_ _e101265101282_)) (declare (not safe)) - (_K101001101014_ _src-ctx101023_)) - (let () (declare (not safe)) (_E101000101009_)))) - (let () (declare (not safe)) (_E101000101009_)))) + (_K101263101276_ _src-ctx101285_)) + (let () (declare (not safe)) (_E101262101271_)))) + (let () (declare (not safe)) (_E101262101271_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in100997_ + _in101259_ 'gx#import-set::t)) - (let* ((_phi101025_ + (let* ((_phi101287_ (##direct-structure-ref - _in100997_ + _in101259_ '2 gx#import-set::t '#f)) - (_src101027_ + (_src101289_ (##direct-structure-ref - _in100997_ + _in101259_ '1 gx#import-set::t '#f)) - (_src-in101067_ - (let* ((_g101028101037_ + (_src-in101329_ + (let* ((_g101290101299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_make-import-path100932_ _src101027_))) - (_E101031101041_ + (_make-import-path101194_ _src101289_))) + (_E101293101303_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g101028101037_))))) - (let ((_K101033101057_ - (lambda (_path101055_) _path101055_)) - (_K101032101047_ - (lambda (_path101045_) + _g101290101299_))))) + (let ((_K101295101319_ + (lambda (_path101317_) _path101317_)) + (_K101294101309_ + (lambda (_path101307_) (let () (declare (not safe)) - (cons 'in: _path101045_))))) + (cons 'in: _path101307_))))) (if (let () (declare (not safe)) - (##pair? _g101028101037_)) - (let ((_tl101035101062_ + (##pair? _g101290101299_)) + (let ((_tl101297101324_ (let () (declare (not safe)) - (##cdr _g101028101037_))) - (_hd101034101060_ + (##cdr _g101290101299_))) + (_hd101296101322_ (let () (declare (not safe)) - (##car _g101028101037_)))) + (##car _g101290101299_)))) (if (let () (declare (not safe)) - (##null? _tl101035101062_)) - (let ((_path101065_ _hd101034101060_)) + (##null? _tl101297101324_)) + (let ((_path101327_ _hd101296101322_)) (declare (not safe)) - (_K101033101057_ _path101065_)) - (let ((_path101050_ _g101028101037_)) + (_K101295101319_ _path101327_)) + (let ((_path101312_ _g101290101299_)) (declare (not safe)) - (_K101032101047_ _path101050_)))) - (let ((_path101050_ _g101028101037_)) + (_K101294101309_ _path101312_)))) + (let ((_path101312_ _g101290101299_)) (declare (not safe)) - (_K101032101047_ _path101050_)))))) - (_r101069_ - (if _current-src100972_ - (let ((__tmp112053 + (_K101294101309_ _path101312_)))))) + (_r101331_ + (if _current-src101234_ + (let ((__tmp112315 (let () (declare (not safe)) - (_make-import-spec-in100933_ - _current-src100972_ - _current-in100973_)))) + (_make-import-spec-in101195_ + _current-src101234_ + _current-in101235_)))) (declare (not safe)) - (cons __tmp112053 _r100974_)) - _r100974_))) - (let ((__tmp112054 - (let ((__tmp112055 + (cons __tmp112315 _r101236_)) + _r101236_))) + (let ((__tmp112316 + (let ((__tmp112317 (if (let () (declare (not safe)) - (fxzero? _phi101025_)) - _src-in101067_ - (let ((__tmp112056 - (let ((__tmp112057 + (fxzero? _phi101287_)) + _src-in101329_ + (let ((__tmp112318 + (let ((__tmp112319 (let () (declare (not safe)) - (cons _src-in101067_ '())))) + (cons _src-in101329_ '())))) (declare (not safe)) - (cons _phi101025_ __tmp112057)))) + (cons _phi101287_ __tmp112319)))) (declare (not safe)) - (cons 'phi: __tmp112056))))) + (cons 'phi: __tmp112318))))) (declare (not safe)) - (cons __tmp112055 _r101069_)))) + (cons __tmp112317 _r101331_)))) (declare (not safe)) - (_lp100969_ _rest100996_ '#f '() __tmp112054))) + (_lp101231_ _rest101258_ '#f '() __tmp112316))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in100997_ + _in101259_ 'gx#module-context::t)) - (let* ((_r101072_ + (let* ((_r101334_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _current-src100972_ - (let ((__tmp112049 + (if _current-src101234_ + (let ((__tmp112311 (let () (declare (not safe)) - (_make-import-spec-in100933_ - _current-src100972_ - _current-in100973_)))) + (_make-import-spec-in101195_ + _current-src101234_ + _current-in101235_)))) (declare (not safe)) - (cons __tmp112049 _r100974_)) - _r100974_)) - (__tmp112050 - (let ((__tmp112051 - (let ((__tmp112052 + (cons __tmp112311 _r101236_)) + _r101236_)) + (__tmp112312 + (let ((__tmp112313 + (let ((__tmp112314 (let () (declare (not safe)) - (_make-import-path100932_ - _in100997_)))) + (_make-import-path101194_ + _in101259_)))) (declare (not safe)) - (cons 'runtime: __tmp112052)))) + (cons 'runtime: __tmp112314)))) (declare (not safe)) - (cons __tmp112051 _r101072_)))) + (cons __tmp112313 _r101334_)))) (declare (not safe)) - (_lp100969_ _rest100996_ '#f '() __tmp112050)) + (_lp101231_ _rest101258_ '#f '() __tmp112312)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest100975100983_)) - (let ((_hd100980101077_ + (##pair? _rest101237101245_)) + (let ((_hd101242101339_ (let () (declare (not safe)) - (##car _rest100975100983_))) - (_tl100981101079_ + (##car _rest101237101245_))) + (_tl101243101341_ (let () (declare (not safe)) - (##cdr _rest100975100983_)))) - (let* ((_in101082_ _hd100980101077_) - (_rest101084_ - _tl100981101079_)) + (##cdr _rest101237101245_)))) + (let* ((_in101344_ _hd101242101339_) + (_rest101346_ + _tl101243101341_)) (declare (not safe)) - (_K100979101074_ - _rest101084_ - _in101082_))) + (_K101241101336_ + _rest101346_ + _in101344_))) (let () (declare (not safe)) - (_else100977100993_)))))) - _tl100938100955_))) + (_else101239101255_)))))) + _tl101200101217_))) (let () (declare (not safe)) - (_g100935100945_ _g100936100948_)))))) + (_g101197101207_ _g101198101210_)))))) (declare (not safe)) - (_g100934101086_ _stx100927_))))) + (_g101196101348_ _stx101189_))))) (define gxc#generate-meta-export% - (lambda (_stx100737_ _state100738_) - (letrec* ((_context-chain100740_ + (lambda (_stx100999_ _state101000_) + (letrec* ((_context-chain101002_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-path100741_ - (lambda (_ctx100925_) + (_make-import-path101003_ + (lambda (_ctx101187_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx100925_ - _context-chain100740_))))) - (let* ((_g100743100753_ - (lambda (_g100744100750_) + _ctx101187_ + _context-chain101002_))))) + (let* ((_g101005101015_ + (lambda (_g101006101012_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100744100750_)))) - (_g100742100922_ - (lambda (_g100744100756_) + _g101006101012_)))) + (_g101004101184_ + (lambda (_g101006101018_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100744100756_)) - (let ((_e100748100758_ + (gx#stx-pair? _g101006101018_)) + (let ((_e101010101020_ (let () (declare (not safe)) - (gx#stx-e _g100744100756_)))) - (let ((_hd100747100761_ + (gx#stx-e _g101006101018_)))) + (let ((_hd101009101023_ (let () (declare (not safe)) - (##car _e100748100758_))) - (_tl100746100763_ + (##car _e101010101020_))) + (_tl101008101025_ (let () (declare (not safe)) - (##cdr _e100748100758_)))) - ((lambda (_L100766_) - (let _lp100777_ ((_rest100779_ _L100766_) - (_r100780_ '())) - (let* ((_rest100781100789_ _rest100779_) - (_else100783100797_ + (##cdr _e101010101020_)))) + ((lambda (_L101028_) + (let _lp101039_ ((_rest101041_ _L101028_) + (_r101042_ '())) + (let* ((_rest101043101051_ _rest101041_) + (_else101045101059_ (lambda () - (let ((__tmp112066 - (reverse _r100780_))) + (let ((__tmp112328 + (reverse _r101042_))) (declare (not safe)) - (cons '%#export __tmp112066)))) - (_K100785100910_ - (lambda (_rest100800_ _out100801_) - (let* ((_out100802100815_ - _out100801_) - (_E100805100819_ + (cons '%#export __tmp112328)))) + (_K101047101172_ + (lambda (_rest101062_ _out101063_) + (let* ((_out101064101077_ + _out101063_) + (_E101067101081_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _out100802100815_))))) - (let ((_K100809100889_ - (lambda (_name100885_ - _phi100886_ - _key100887_) - (let ((__tmp112067 - (let ((__tmp112068 + _out101064101077_))))) + (let ((_K101071101151_ + (lambda (_name101147_ + _phi101148_ + _key101149_) + (let ((__tmp112329 + (let ((__tmp112330 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112069 - (let ((__tmp112070 - (let ((__tmp112073 + (let ((__tmp112331 + (let ((__tmp112332 + (let ((__tmp112335 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _key100887_))) - (__tmp112071 - (let ((__tmp112072 + _key101149_))) + (__tmp112333 + (let ((__tmp112334 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name100885_)))) + _name101147_)))) (declare (not safe)) - (cons __tmp112072 '())))) + (cons __tmp112334 '())))) (declare (not safe)) - (cons __tmp112073 __tmp112071)))) + (cons __tmp112335 __tmp112333)))) (declare (not safe)) - (cons _phi100886_ __tmp112070)))) + (cons _phi101148_ __tmp112332)))) (declare (not safe)) - (cons 'spec: __tmp112069)))) + (cons 'spec: __tmp112331)))) (declare (not safe)) - (cons __tmp112068 _r100780_)))) + (cons __tmp112330 _r101042_)))) (declare (not safe)) - (_lp100777_ _rest100800_ __tmp112067)))) + (_lp101039_ _rest101062_ __tmp112329)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K100806100869_ - (lambda (_phi100823_ - _src100824_) - (let* ((_out100864_ - (if _src100824_ + (_K101068101131_ + (lambda (_phi101085_ + _src101086_) + (let* ((_out101126_ + (if _src101086_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112074 - (let ((__tmp112075 - (let* ((_g100825100834_ + (let ((__tmp112336 + (let ((__tmp112337 + (let* ((_g101087101096_ (let () (declare (not safe)) - (_make-import-path100741_ - _src100824_))) - (_E100828100838_ + (_make-import-path101003_ + _src101086_))) + (_E101090101100_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g100825100834_))))) - (let ((_K100830100854_ - (lambda (_path100852_) - _path100852_)) - (_K100829100844_ - (lambda (_path100842_) + _g101087101096_))))) + (let ((_K101092101116_ + (lambda (_path101114_) + _path101114_)) + (_K101091101106_ + (lambda (_path101104_) (let () (declare (not safe)) (cons 'in: - _path100842_))))) + _path101104_))))) (if (let () (declare (not safe)) - (##pair? _g100825100834_)) - (let ((_tl100832100859_ + (##pair? _g101087101096_)) + (let ((_tl101094101121_ (let () (declare (not safe)) - (##cdr _g100825100834_))) - (_hd100831100857_ + (##cdr _g101087101096_))) + (_hd101093101119_ (let () (declare (not safe)) - (##car _g100825100834_)))) + (##car _g101087101096_)))) (if (let () (declare (not safe)) - (##null? _tl100832100859_)) - (let ((_path100862_ - _hd100831100857_)) + (##null? _tl101094101121_)) + (let ((_path101124_ + _hd101093101119_)) (declare (not safe)) - (_K100830100854_ - _path100862_)) - (let ((_path100847_ - _g100825100834_)) + (_K101092101116_ + _path101124_)) + (let ((_path101109_ + _g101087101096_)) (declare (not safe)) - (_K100829100844_ - _path100847_)))) - (let ((_path100847_ - _g100825100834_)) + (_K101091101106_ + _path101109_)))) + (let ((_path101109_ + _g101087101096_)) (declare (not safe)) - (_K100829100844_ - _path100847_))))))) + (_K101091101106_ + _path101109_))))))) (declare (not safe)) - (cons __tmp112075 '())))) + (cons __tmp112337 '())))) (declare (not safe)) - (cons 'import: __tmp112074)) + (cons 'import: __tmp112336)) '#t)) - (_out100866_ - (if (let () (declare (not safe)) (fxzero? _phi100823_)) - _out100864_ - (let ((__tmp112076 - (let ((__tmp112077 + (_out101128_ + (if (let () (declare (not safe)) (fxzero? _phi101085_)) + _out101126_ + (let ((__tmp112338 + (let ((__tmp112339 (let () (declare (not safe)) - (cons _out100864_ '())))) + (cons _out101126_ '())))) (declare (not safe)) - (cons _phi100823_ __tmp112077)))) + (cons _phi101085_ __tmp112339)))) (declare (not safe)) - (cons 'phi: __tmp112076))))) - (let ((__tmp112078 + (cons 'phi: __tmp112338))))) + (let ((__tmp112340 (let () (declare (not safe)) - (cons _out100866_ _r100780_)))) + (cons _out101128_ _r101042_)))) (declare (not safe)) - (_lp100777_ _rest100800_ __tmp112078)))))) + (_lp101039_ _rest101062_ __tmp112340)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match100804100882_ + (let ((_try-match101066101144_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - _out100802100815_ + _out101064101077_ 'gx#export-set::t)) - (let* ((_e100807100872_ + (let* ((_e101069101134_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100802100815_ + _out101064101077_ '1 gx#export-set::t '#f))) - (_e100808100877_ + (_e101070101139_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100802100815_ + _out101064101077_ '2 gx#export-set::t '#f)))) - (let ((_src100875_ _e100807100872_) - (_phi100880_ _e100808100877_)) + (let ((_src101137_ _e101069101134_) + (_phi101142_ _e101070101139_)) (let () (declare (not safe)) - (_K100806100869_ _phi100880_ _src100875_)))) - (let () (declare (not safe)) (_E100805100819_)))))) + (_K101068101131_ _phi101142_ _src101137_)))) + (let () (declare (not safe)) (_E101067101081_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out100802100815_ + _out101064101077_ 'gx#module-export::t)) - (let* ((_e100810100892_ + (let* ((_e101072101154_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _out100802100815_ + _out101064101077_ '1 gx#module-export::t '#f))) - (_e100811100895_ + (_e101073101157_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100802100815_ + _out101064101077_ '2 gx#module-export::t '#f))) - (_e100812100900_ + (_e101074101162_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100802100815_ + _out101064101077_ '3 gx#module-export::t '#f))) - (_e100813100905_ + (_e101075101167_ (let () (declare (not safe)) (##unchecked-structure-ref - _out100802100815_ + _out101064101077_ '4 gx#module-export::t '#f)))) - (let ((_key100898_ _e100811100895_) - (_phi100903_ _e100812100900_) - (_name100908_ _e100813100905_)) + (let ((_key101160_ _e101073101157_) + (_phi101165_ _e101074101162_) + (_name101170_ _e101075101167_)) (let () (declare (not safe)) - (_K100809100889_ _name100908_ _phi100903_ _key100898_)))) - (let () (declare (not safe)) (_try-match100804100882_))))))))) + (_K101071101151_ _name101170_ _phi101165_ _key101160_)))) + (let () (declare (not safe)) (_try-match101066101144_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest100781100789_)) - (let ((_hd100786100913_ + (##pair? _rest101043101051_)) + (let ((_hd101048101175_ (let () (declare (not safe)) - (##car _rest100781100789_))) - (_tl100787100915_ + (##car _rest101043101051_))) + (_tl101049101177_ (let () (declare (not safe)) - (##cdr _rest100781100789_)))) - (let* ((_out100918_ - _hd100786100913_) - (_rest100920_ - _tl100787100915_)) + (##cdr _rest101043101051_)))) + (let* ((_out101180_ + _hd101048101175_) + (_rest101182_ + _tl101049101177_)) (declare (not safe)) - (_K100785100910_ - _rest100920_ - _out100918_))) + (_K101047101172_ + _rest101182_ + _out101180_))) (let () (declare (not safe)) - (_else100783100797_)))))) - _tl100746100763_))) + (_else101045101059_)))))) + _tl101008101025_))) (let () (declare (not safe)) - (_g100743100753_ _g100744100756_)))))) + (_g101005101015_ _g101006101018_)))))) (declare (not safe)) - (_g100742100922_ _stx100737_))))) + (_g101004101184_ _stx100999_))))) (define gxc#generate-meta-provide% - (lambda (_stx100698_ _state100699_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state100699_)) - (let* ((_g100701100711_ - (lambda (_g100702100708_) + (lambda (_stx100960_ _state100961_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state100961_)) + (let* ((_g100963100973_ + (lambda (_g100964100970_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100702100708_)))) - (_g100700100734_ - (lambda (_g100702100714_) + _g100964100970_)))) + (_g100962100996_ + (lambda (_g100964100976_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100702100714_)) - (let ((_e100706100716_ + (gx#stx-pair? _g100964100976_)) + (let ((_e100968100978_ (let () (declare (not safe)) - (gx#stx-e _g100702100714_)))) - (let ((_hd100705100719_ + (gx#stx-e _g100964100976_)))) + (let ((_hd100967100981_ (let () (declare (not safe)) - (##car _e100706100716_))) - (_tl100704100721_ + (##car _e100968100978_))) + (_tl100966100983_ (let () (declare (not safe)) - (##cdr _e100706100716_)))) - ((lambda (_L100724_) - (let ((__tmp112079 + (##cdr _e100968100978_)))) + ((lambda (_L100986_) + (let ((__tmp112341 (map gxc#generate-runtime-identifier - _L100724_))) + _L100986_))) (declare (not safe)) - (cons '%#provide __tmp112079))) - _tl100704100721_))) + (cons '%#provide __tmp112341))) + _tl100966100983_))) (let () (declare (not safe)) - (_g100701100711_ _g100702100714_)))))) + (_g100963100973_ _g100964100976_)))))) (declare (not safe)) - (_g100700100734_ _stx100698_)))) + (_g100962100996_ _stx100960_)))) (define gxc#generate-meta-extern% - (lambda (_stx100569_ _state100570_) - (letrec ((_generate1100572_ - (lambda (_id100693_ _eid100694_) - (let ((_eid100696_ + (lambda (_stx100831_ _state100832_) + (letrec ((_generate1100834_ + (lambda (_id100955_ _eid100956_) + (let ((_eid100958_ (let () (declare (not safe)) - (gx#stx-e _eid100694_)))) - (if (interned-symbol? _eid100696_) + (gx#stx-e _eid100956_)))) + (if (interned-symbol? _eid100958_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _stx100569_ - _eid100696_))) - (let ((__tmp112081 + _stx100831_ + _eid100958_))) + (let ((__tmp112343 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id100693_))) - (__tmp112080 + (gxc#generate-runtime-identifier _id100955_))) + (__tmp112342 (let () (declare (not safe)) - (cons _eid100696_ '())))) + (cons _eid100958_ '())))) (declare (not safe)) - (cons __tmp112081 __tmp112080)))))) - (let* ((_g100574100602_ - (lambda (_g100575100599_) + (cons __tmp112343 __tmp112342)))))) + (let* ((_g100836100864_ + (lambda (_g100837100861_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100575100599_)))) - (_g100573100690_ - (lambda (_g100575100605_) + _g100837100861_)))) + (_g100835100952_ + (lambda (_g100837100867_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100575100605_)) - (let ((_e100580100607_ + (gx#stx-pair? _g100837100867_)) + (let ((_e100842100869_ (let () (declare (not safe)) - (gx#stx-e _g100575100605_)))) - (let ((_hd100579100610_ + (gx#stx-e _g100837100867_)))) + (let ((_hd100841100872_ (let () (declare (not safe)) - (##car _e100580100607_))) - (_tl100578100612_ + (##car _e100842100869_))) + (_tl100840100874_ (let () (declare (not safe)) - (##cdr _e100580100607_)))) + (##cdr _e100842100869_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl100578100612_)) - (let ((_g112082_ + (gx#stx-pair/null? _tl100840100874_)) + (let ((_g112344_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl100578100612_ + _tl100840100874_ '0)))) (begin - (let ((_g112083_ + (let ((_g112345_ (let () (declare (not safe)) - (if (##values? _g112082_) - (##vector-length _g112082_) + (if (##values? _g112344_) + (##vector-length _g112344_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112083_ 2))) + (##fx= _g112345_ 2))) (error "Context expects 2 values" - _g112083_))) - (let ((_target100581100615_ + _g112345_))) + (let ((_target100843100877_ (let () (declare (not safe)) - (##vector-ref _g112082_ 0))) - (_tl100583100617_ + (##vector-ref _g112344_ 0))) + (_tl100845100879_ (let () (declare (not safe)) - (##vector-ref _g112082_ 1)))) + (##vector-ref _g112344_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl100583100617_)) - (letrec ((_loop100584100620_ - (lambda (_hd100582100623_ - _eid100588100625_ - _id100589100627_) + (gx#stx-null? _tl100845100879_)) + (letrec ((_loop100846100882_ + (lambda (_hd100844100885_ + _eid100850100887_ + _id100851100889_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd100582100623_)) - (let ((_e100585100630_ + _hd100844100885_)) + (let ((_e100847100892_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd100582100623_)))) - (let ((_lp-hd100586100633_ + (gx#stx-e _hd100844100885_)))) + (let ((_lp-hd100848100895_ (let () (declare (not safe)) - (##car _e100585100630_))) - (_lp-tl100587100635_ + (##car _e100847100892_))) + (_lp-tl100849100897_ (let () (declare (not safe)) - (##cdr _e100585100630_)))) + (##cdr _e100847100892_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd100586100633_)) - (let ((_e100594100638_ + (gx#stx-pair? _lp-hd100848100895_)) + (let ((_e100856100900_ (let () (declare (not safe)) - (gx#stx-e _lp-hd100586100633_)))) - (let ((_hd100593100641_ + (gx#stx-e _lp-hd100848100895_)))) + (let ((_hd100855100903_ (let () (declare (not safe)) - (##car _e100594100638_))) - (_tl100592100643_ + (##car _e100856100900_))) + (_tl100854100905_ (let () (declare (not safe)) - (##cdr _e100594100638_)))) + (##cdr _e100856100900_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100592100643_)) - (let ((_e100597100646_ + (gx#stx-pair? _tl100854100905_)) + (let ((_e100859100908_ (let () (declare (not safe)) - (gx#stx-e _tl100592100643_)))) - (let ((_hd100596100649_ + (gx#stx-e _tl100854100905_)))) + (let ((_hd100858100911_ (let () (declare (not safe)) - (##car _e100597100646_))) - (_tl100595100651_ + (##car _e100859100908_))) + (_tl100857100913_ (let () (declare (not safe)) - (##cdr _e100597100646_)))) + (##cdr _e100859100908_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl100595100651_)) - (let ((__tmp112088 + (gx#stx-null? _tl100857100913_)) + (let ((__tmp112350 (let () (declare (not safe)) - (cons _hd100596100649_ - _eid100588100625_))) - (__tmp112087 + (cons _hd100858100911_ + _eid100850100887_))) + (__tmp112349 (let () (declare (not safe)) - (cons _hd100593100641_ - _id100589100627_)))) + (cons _hd100855100903_ + _id100851100889_)))) (declare (not safe)) - (_loop100584100620_ - _lp-tl100587100635_ - __tmp112088 - __tmp112087)) + (_loop100846100882_ + _lp-tl100849100897_ + __tmp112350 + __tmp112349)) (let () (declare (not safe)) - (_g100574100602_ - _g100575100605_))))) + (_g100836100864_ + _g100837100867_))))) (let () (declare (not safe)) - (_g100574100602_ _g100575100605_))))) + (_g100836100864_ _g100837100867_))))) (let () (declare (not safe)) - (_g100574100602_ _g100575100605_))))) - (let ((_eid100590100654_ (reverse _eid100588100625_)) - (_id100591100656_ (reverse _id100589100627_))) - ((lambda (_L100659_ _L100660_) - (let ((__tmp112084 - (map _generate1100572_ - (let ((__tmp112085 - (lambda (_g100675100678_ - _g100676100680_) + (_g100836100864_ _g100837100867_))))) + (let ((_eid100852100916_ (reverse _eid100850100887_)) + (_id100853100918_ (reverse _id100851100889_))) + ((lambda (_L100921_ _L100922_) + (let ((__tmp112346 + (map _generate1100834_ + (let ((__tmp112347 + (lambda (_g100937100940_ + _g100938100942_) (let () (declare (not safe)) - (cons _g100675100678_ - _g100676100680_))))) + (cons _g100937100940_ + _g100938100942_))))) (declare (not safe)) - (foldr1 __tmp112085 '() _L100660_)) - (let ((__tmp112086 - (lambda (_g100682100685_ - _g100683100687_) + (foldr1 __tmp112347 '() _L100922_)) + (let ((__tmp112348 + (lambda (_g100944100947_ + _g100945100949_) (let () (declare (not safe)) - (cons _g100682100685_ - _g100683100687_))))) + (cons _g100944100947_ + _g100945100949_))))) (declare (not safe)) - (foldr1 __tmp112086 '() _L100659_))))) + (foldr1 __tmp112348 '() _L100921_))))) (declare (not safe)) - (cons '%#extern __tmp112084))) - _eid100590100654_ - _id100591100656_)))))) + (cons '%#extern __tmp112346))) + _eid100852100916_ + _id100853100918_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop100584100620_ - _target100581100615_ + (_loop100846100882_ + _target100843100877_ '() '()))) (let () (declare (not safe)) - (_g100574100602_ - _g100575100605_)))))) + (_g100836100864_ + _g100837100867_)))))) (let () (declare (not safe)) - (_g100574100602_ _g100575100605_))))) + (_g100836100864_ _g100837100867_))))) (let () (declare (not safe)) - (_g100574100602_ _g100575100605_)))))) + (_g100836100864_ _g100837100867_)))))) (declare (not safe)) - (_g100573100690_ _stx100569_))))) + (_g100835100952_ _stx100831_))))) (define gxc#generate-meta-define-values% - (lambda (_stx100359_ _state100360_) - (letrec ((_generate1100362_ - (lambda (_id100564_) - (let ((_eid100566_ + (lambda (_stx100621_ _state100622_) + (letrec ((_generate1100624_ + (lambda (_id100826_) + (let ((_eid100828_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id100564_))) - (_ident100567_ + (gxc#generate-runtime-binding-id _id100826_))) + (_ident100829_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id100564_)))) - (let ((__tmp112089 - (let ((__tmp112090 + (gxc#generate-runtime-identifier _id100826_)))) + (let ((__tmp112351 + (let ((__tmp112352 (let () (declare (not safe)) - (cons _eid100566_ '())))) + (cons _eid100828_ '())))) (declare (not safe)) - (cons _ident100567_ __tmp112090)))) + (cons _ident100829_ __tmp112352)))) (declare (not safe)) - (cons '%#define-runtime __tmp112089))))) - (_generate*100363_ - (lambda (_all100532_) - (let* ((_all100533100541_ _all100532_) - (_else100535100549_ + (cons '%#define-runtime __tmp112351))))) + (_generate*100625_ + (lambda (_all100794_) + (let* ((_all100795100803_ _all100794_) + (_else100797100811_ (lambda () (let () (declare (not safe)) - (cons '%#begin _all100532_)))) - (_K100537100554_ - (lambda (_one100552_) _one100552_))) + (cons '%#begin _all100794_)))) + (_K100799100816_ + (lambda (_one100814_) _one100814_))) (if (let () (declare (not safe)) - (##pair? _all100533100541_)) - (let ((_hd100538100557_ + (##pair? _all100795100803_)) + (let ((_hd100800100819_ (let () (declare (not safe)) - (##car _all100533100541_))) - (_tl100539100559_ + (##car _all100795100803_))) + (_tl100801100821_ (let () (declare (not safe)) - (##cdr _all100533100541_)))) - (let ((_one100562_ _hd100538100557_)) + (##cdr _all100795100803_)))) + (let ((_one100824_ _hd100800100819_)) (if (let () (declare (not safe)) - (##null? _tl100539100559_)) + (##null? _tl100801100821_)) (let () (declare (not safe)) - (_K100537100554_ _one100562_)) + (_K100799100816_ _one100824_)) (let () (declare (not safe)) - (_else100535100549_))))) + (_else100797100811_))))) (let () (declare (not safe)) - (_else100535100549_))))))) - (let* ((_g100365100382_ - (lambda (_g100366100379_) + (_else100797100811_))))))) + (let* ((_g100627100644_ + (lambda (_g100628100641_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100366100379_)))) - (_g100364100529_ - (lambda (_g100366100385_) + _g100628100641_)))) + (_g100626100791_ + (lambda (_g100628100647_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100366100385_)) - (let ((_e100371100387_ + (gx#stx-pair? _g100628100647_)) + (let ((_e100633100649_ (let () (declare (not safe)) - (gx#stx-e _g100366100385_)))) - (let ((_hd100370100390_ + (gx#stx-e _g100628100647_)))) + (let ((_hd100632100652_ (let () (declare (not safe)) - (##car _e100371100387_))) - (_tl100369100392_ + (##car _e100633100649_))) + (_tl100631100654_ (let () (declare (not safe)) - (##cdr _e100371100387_)))) + (##cdr _e100633100649_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100369100392_)) - (let ((_e100374100395_ + (gx#stx-pair? _tl100631100654_)) + (let ((_e100636100657_ (let () (declare (not safe)) - (gx#stx-e _tl100369100392_)))) - (let ((_hd100373100398_ + (gx#stx-e _tl100631100654_)))) + (let ((_hd100635100660_ (let () (declare (not safe)) - (##car _e100374100395_))) - (_tl100372100400_ + (##car _e100636100657_))) + (_tl100634100662_ (let () (declare (not safe)) - (##cdr _e100374100395_)))) + (##cdr _e100636100657_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100372100400_)) - (let ((_e100377100403_ + (gx#stx-pair? _tl100634100662_)) + (let ((_e100639100665_ (let () (declare (not safe)) (gx#stx-e - _tl100372100400_)))) - (let ((_hd100376100406_ + _tl100634100662_)))) + (let ((_hd100638100668_ (let () (declare (not safe)) - (##car _e100377100403_))) - (_tl100375100408_ + (##car _e100639100665_))) + (_tl100637100670_ (let () (declare (not safe)) - (##cdr _e100377100403_)))) + (##cdr _e100639100665_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100375100408_)) - ((lambda (_L100411_ - _L100412_) - (let _lp100428_ ((_rest100430_ + _tl100637100670_)) + ((lambda (_L100673_ + _L100674_) + (let _lp100690_ ((_rest100692_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L100412_) - (_r100431_ '())) - (let* ((___stx111222111223_ _rest100430_) - (_g100436100453_ + _L100674_) + (_r100693_ '())) + (let* ((___stx111484111485_ _rest100692_) + (_g100698100715_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111222111223_))))) - (let ((___kont111224111225_ - (lambda (_L100516_) + ___stx111484111485_))))) + (let ((___kont111486111487_ + (lambda (_L100778_) (let () (declare (not safe)) - (_lp100428_ _L100516_ _r100431_)))) - (___kont111226111227_ - (lambda (_L100489_ _L100490_) - (let ((__tmp112091 - (let ((__tmp112092 + (_lp100690_ _L100778_ _r100693_)))) + (___kont111488111489_ + (lambda (_L100751_ _L100752_) + (let ((__tmp112353 + (let ((__tmp112354 (let () (declare (not safe)) - (_generate1100362_ _L100490_)))) + (_generate1100624_ _L100752_)))) (declare (not safe)) - (cons __tmp112092 _r100431_)))) + (cons __tmp112354 _r100693_)))) (declare (not safe)) - (_lp100428_ _L100489_ __tmp112091)))) - (___kont111228111229_ - (lambda (_L100465_) - (let ((__tmp112093 - (let ((__tmp112094 - (let ((__tmp112095 + (_lp100690_ _L100751_ __tmp112353)))) + (___kont111490111491_ + (lambda (_L100727_) + (let ((__tmp112355 + (let ((__tmp112356 + (let ((__tmp112357 (let () (declare (not safe)) - (_generate1100362_ - _L100465_)))) + (_generate1100624_ + _L100727_)))) (declare (not safe)) - (cons __tmp112095 '())))) + (cons __tmp112357 '())))) (declare (not safe)) - (foldl1 cons __tmp112094 _r100431_)))) + (foldl1 cons __tmp112356 _r100693_)))) (declare (not safe)) - (_generate*100363_ __tmp112093)))) - (___kont111230111231_ + (_generate*100625_ __tmp112355)))) + (___kont111492111493_ (lambda () - (let ((__tmp112096 (reverse _r100431_))) + (let ((__tmp112358 (reverse _r100693_))) (declare (not safe)) - (_generate*100363_ __tmp112096))))) - (let ((_g100434100476_ + (_generate*100625_ __tmp112358))))) + (let ((_g100696100738_ (lambda () - (let ((_L100465_ ___stx111222111223_)) + (let ((_L100727_ ___stx111484111485_)) (if (let () (declare (not safe)) - (gx#identifier? _L100465_)) - (___kont111228111229_ _L100465_) - (___kont111230111231_)))))) + (gx#identifier? _L100727_)) + (___kont111490111491_ _L100727_) + (___kont111492111493_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx111222111223_)) - (let ((_e100441100505_ + (gx#stx-pair? ___stx111484111485_)) + (let ((_e100703100767_ (let () (declare (not safe)) - (gx#stx-e ___stx111222111223_)))) - (let ((_tl100439100510_ + (gx#stx-e ___stx111484111485_)))) + (let ((_tl100701100772_ (let () (declare (not safe)) - (##cdr _e100441100505_))) - (_hd100440100508_ + (##cdr _e100703100767_))) + (_hd100702100770_ (let () (declare (not safe)) - (##car _e100441100505_)))) + (##car _e100703100767_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd100440100508_)) - (let ((_e100442100513_ + (gx#stx-datum? _hd100702100770_)) + (let ((_e100704100775_ (let () (declare (not safe)) - (gx#stx-e _hd100440100508_)))) + (gx#stx-e _hd100702100770_)))) (if (let () (declare (not safe)) - (equal? _e100442100513_ '#f)) - (___kont111224111225_ _tl100439100510_) - (___kont111226111227_ - _tl100439100510_ - _hd100440100508_))) - (___kont111226111227_ - _tl100439100510_ - _hd100440100508_)))) - (let () (declare (not safe)) (_g100434100476_)))))))) + (equal? _e100704100775_ '#f)) + (___kont111486111487_ _tl100701100772_) + (___kont111488111489_ + _tl100701100772_ + _hd100702100770_))) + (___kont111488111489_ + _tl100701100772_ + _hd100702100770_)))) + (let () (declare (not safe)) (_g100696100738_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100376100406_ - _hd100373100398_) + _hd100638100668_ + _hd100635100660_) (let () (declare (not safe)) - (_g100365100382_ - _g100366100385_))))) + (_g100627100644_ + _g100628100647_))))) (let () (declare (not safe)) - (_g100365100382_ - _g100366100385_))))) + (_g100627100644_ + _g100628100647_))))) (let () (declare (not safe)) - (_g100365100382_ _g100366100385_))))) + (_g100627100644_ _g100628100647_))))) (let () (declare (not safe)) - (_g100365100382_ _g100366100385_)))))) + (_g100627100644_ _g100628100647_)))))) (declare (not safe)) - (_g100364100529_ _stx100359_))))) + (_g100626100791_ _stx100621_))))) (define gxc#generate-meta-define-syntax% - (lambda (_stx100256_ _state100257_) - (let* ((_g100259100276_ - (lambda (_g100260100273_) + (lambda (_stx100518_ _state100519_) + (let* ((_g100521100538_ + (lambda (_g100522100535_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100260100273_)))) - (_g100258100356_ - (lambda (_g100260100279_) + _g100522100535_)))) + (_g100520100618_ + (lambda (_g100522100541_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100260100279_)) - (let ((_e100265100281_ + (gx#stx-pair? _g100522100541_)) + (let ((_e100527100543_ (let () (declare (not safe)) - (gx#stx-e _g100260100279_)))) - (let ((_hd100264100284_ + (gx#stx-e _g100522100541_)))) + (let ((_hd100526100546_ (let () (declare (not safe)) - (##car _e100265100281_))) - (_tl100263100286_ + (##car _e100527100543_))) + (_tl100525100548_ (let () (declare (not safe)) - (##cdr _e100265100281_)))) + (##cdr _e100527100543_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100263100286_)) - (let ((_e100268100289_ + (gx#stx-pair? _tl100525100548_)) + (let ((_e100530100551_ (let () (declare (not safe)) - (gx#stx-e _tl100263100286_)))) - (let ((_hd100267100292_ + (gx#stx-e _tl100525100548_)))) + (let ((_hd100529100554_ (let () (declare (not safe)) - (##car _e100268100289_))) - (_tl100266100294_ + (##car _e100530100551_))) + (_tl100528100556_ (let () (declare (not safe)) - (##cdr _e100268100289_)))) + (##cdr _e100530100551_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100266100294_)) - (let ((_e100271100297_ + (gx#stx-pair? _tl100528100556_)) + (let ((_e100533100559_ (let () (declare (not safe)) - (gx#stx-e _tl100266100294_)))) - (let ((_hd100270100300_ + (gx#stx-e _tl100528100556_)))) + (let ((_hd100532100562_ (let () (declare (not safe)) - (##car _e100271100297_))) - (_tl100269100302_ + (##car _e100533100559_))) + (_tl100531100564_ (let () (declare (not safe)) - (##cdr _e100271100297_)))) + (##cdr _e100533100559_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100269100302_)) - ((lambda (_L100305_ _L100306_) - (let* ((_eid100321_ + _tl100531100564_)) + ((lambda (_L100567_ _L100568_) + (let* ((_eid100583_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L100306_))) - (_phi100323_ - (let ((__tmp112097 + _L100568_))) + (_phi100585_ + (let ((__tmp112359 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp112097 '1))) - (_block100325_ + (fx+ __tmp112359 '1))) + (_block100587_ (let () (declare (not safe)) - (gxc#meta-state-begin-phi! _state100257_ _phi100323_)))) + (gxc#meta-state-begin-phi! _state100519_ _phi100585_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g100328100335_ - (lambda (_g100329100332_) + (let* ((_g100590100597_ + (lambda (_g100591100594_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100329100332_)))) - (_g100327100353_ - (lambda (_g100329100338_) - ((lambda (_L100340_) + _g100591100594_)))) + (_g100589100615_ + (lambda (_g100591100600_) + ((lambda (_L100602_) (let () - (let ((__tmp112098 - (let ((__tmp112101 + (let ((__tmp112360 + (let ((__tmp112363 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime))) - (__tmp112099 - (let ((__tmp112100 + (__tmp112361 + (let ((__tmp112362 (let () (declare (not safe)) - (cons _L100305_ '())))) + (cons _L100567_ '())))) (declare (not safe)) - (cons _L100340_ __tmp112100)))) + (cons _L100602_ __tmp112362)))) (declare (not safe)) - (cons __tmp112101 __tmp112099)))) + (cons __tmp112363 __tmp112361)))) (declare (not safe)) (gxc#meta-state-add-phi! - _state100257_ - _phi100323_ - __tmp112098)))) - _g100329100338_)))) + _state100519_ + _phi100585_ + __tmp112360)))) + _g100591100600_)))) (declare (not safe)) - (_g100327100353_ _eid100321_)) + (_g100589100615_ _eid100583_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _block100325_ - (let ((__tmp112105 - (let ((__tmp112111 + (if _block100587_ + (let ((__tmp112367 + (let ((__tmp112373 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112112 - (let ((__tmp112113 - (let ((__tmp112114 - (let ((__tmp112118 - (let ((__tmp112119 + (let ((__tmp112374 + (let ((__tmp112375 + (let ((__tmp112376 + (let ((__tmp112380 + (let ((__tmp112381 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp112119))) - (__tmp112115 - (let ((__tmp112116 - (let ((__tmp112117 + (cons '%#ref __tmp112381))) + (__tmp112377 + (let ((__tmp112378 + (let ((__tmp112379 (let () (declare (not safe)) - (cons _block100325_ '())))) + (cons _block100587_ '())))) (declare (not safe)) - (cons '%#quote __tmp112117)))) + (cons '%#quote __tmp112379)))) (declare (not safe)) - (cons __tmp112116 '())))) + (cons __tmp112378 '())))) (declare (not safe)) - (cons __tmp112118 __tmp112115)))) + (cons __tmp112380 __tmp112377)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp112114)))) + (cons '%#call __tmp112376)))) (declare (not safe)) - (cons __tmp112113 '())))) + (cons __tmp112375 '())))) (declare (not safe)) - (cons '%#begin-syntax __tmp112112))) - (__tmp112106 - (let ((__tmp112107 - (let ((__tmp112108 - (let ((__tmp112110 + (cons '%#begin-syntax __tmp112374))) + (__tmp112368 + (let ((__tmp112369 + (let ((__tmp112370 + (let ((__tmp112372 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L100306_))) - (__tmp112109 + _L100568_))) + (__tmp112371 (let () (declare (not safe)) - (cons _eid100321_ '())))) + (cons _eid100583_ '())))) (declare (not safe)) - (cons __tmp112110 - __tmp112109)))) + (cons __tmp112372 + __tmp112371)))) (declare (not safe)) - (cons '%#define-syntax __tmp112108)))) + (cons '%#define-syntax __tmp112370)))) (declare (not safe)) - (cons __tmp112107 '())))) + (cons __tmp112369 '())))) (declare (not safe)) - (cons __tmp112111 __tmp112106)))) + (cons __tmp112373 __tmp112368)))) (declare (not safe)) - (cons '%#begin __tmp112105)) - (let ((__tmp112102 - (let ((__tmp112104 + (cons '%#begin __tmp112367)) + (let ((__tmp112364 + (let ((__tmp112366 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L100306_))) - (__tmp112103 + (gxc#generate-runtime-identifier _L100568_))) + (__tmp112365 (let () (declare (not safe)) - (cons _eid100321_ '())))) + (cons _eid100583_ '())))) (declare (not safe)) - (cons __tmp112104 __tmp112103)))) + (cons __tmp112366 __tmp112365)))) (declare (not safe)) - (cons '%#define-syntax __tmp112102))))) + (cons '%#define-syntax __tmp112364))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100270100300_ - _hd100267100292_) + _hd100532100562_ + _hd100529100554_) (let () (declare (not safe)) - (_g100259100276_ - _g100260100279_))))) + (_g100521100538_ + _g100522100541_))))) (let () (declare (not safe)) - (_g100259100276_ _g100260100279_))))) + (_g100521100538_ _g100522100541_))))) (let () (declare (not safe)) - (_g100259100276_ _g100260100279_))))) + (_g100521100538_ _g100522100541_))))) (let () (declare (not safe)) - (_g100259100276_ _g100260100279_)))))) + (_g100521100538_ _g100522100541_)))))) (declare (not safe)) - (_g100258100356_ _stx100256_)))) + (_g100520100618_ _stx100518_)))) (define gxc#generate-meta-define-alias% - (lambda (_stx100188_ _state100189_) - (let* ((_g100191100208_ - (lambda (_g100192100205_) + (lambda (_stx100450_ _state100451_) + (let* ((_g100453100470_ + (lambda (_g100454100467_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100192100205_)))) - (_g100190100253_ - (lambda (_g100192100211_) + _g100454100467_)))) + (_g100452100515_ + (lambda (_g100454100473_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100192100211_)) - (let ((_e100197100213_ + (gx#stx-pair? _g100454100473_)) + (let ((_e100459100475_ (let () (declare (not safe)) - (gx#stx-e _g100192100211_)))) - (let ((_hd100196100216_ + (gx#stx-e _g100454100473_)))) + (let ((_hd100458100478_ (let () (declare (not safe)) - (##car _e100197100213_))) - (_tl100195100218_ + (##car _e100459100475_))) + (_tl100457100480_ (let () (declare (not safe)) - (##cdr _e100197100213_)))) + (##cdr _e100459100475_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100195100218_)) - (let ((_e100200100221_ + (gx#stx-pair? _tl100457100480_)) + (let ((_e100462100483_ (let () (declare (not safe)) - (gx#stx-e _tl100195100218_)))) - (let ((_hd100199100224_ + (gx#stx-e _tl100457100480_)))) + (let ((_hd100461100486_ (let () (declare (not safe)) - (##car _e100200100221_))) - (_tl100198100226_ + (##car _e100462100483_))) + (_tl100460100488_ (let () (declare (not safe)) - (##cdr _e100200100221_)))) + (##cdr _e100462100483_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100198100226_)) - (let ((_e100203100229_ + (gx#stx-pair? _tl100460100488_)) + (let ((_e100465100491_ (let () (declare (not safe)) - (gx#stx-e _tl100198100226_)))) - (let ((_hd100202100232_ + (gx#stx-e _tl100460100488_)))) + (let ((_hd100464100494_ (let () (declare (not safe)) - (##car _e100203100229_))) - (_tl100201100234_ + (##car _e100465100491_))) + (_tl100463100496_ (let () (declare (not safe)) - (##cdr _e100203100229_)))) + (##cdr _e100465100491_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100201100234_)) - ((lambda (_L100237_ _L100238_) - (let ((__tmp112120 - (let ((__tmp112123 + _tl100463100496_)) + ((lambda (_L100499_ _L100500_) + (let ((__tmp112382 + (let ((__tmp112385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L100238_))) - (__tmp112121 - (let ((__tmp112122 + (gxc#generate-runtime-identifier _L100500_))) + (__tmp112383 + (let ((__tmp112384 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L100237_)))) + _L100499_)))) (declare (not safe)) - (cons __tmp112122 '())))) + (cons __tmp112384 '())))) (declare (not safe)) - (cons __tmp112123 __tmp112121)))) + (cons __tmp112385 __tmp112383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#define-alias - __tmp112120))) - _hd100202100232_ - _hd100199100224_) + __tmp112382))) + _hd100464100494_ + _hd100461100486_) (let () (declare (not safe)) - (_g100191100208_ - _g100192100211_))))) + (_g100453100470_ + _g100454100473_))))) (let () (declare (not safe)) - (_g100191100208_ _g100192100211_))))) + (_g100453100470_ _g100454100473_))))) (let () (declare (not safe)) - (_g100191100208_ _g100192100211_))))) + (_g100453100470_ _g100454100473_))))) (let () (declare (not safe)) - (_g100191100208_ _g100192100211_)))))) + (_g100453100470_ _g100454100473_)))))) (declare (not safe)) - (_g100190100253_ _stx100188_)))) + (_g100452100515_ _stx100450_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_stx100185_ _state100186_) - (let ((__tmp112124 (gx#current-expander-phi))) + (lambda (_stx100447_ _state100448_) + (let ((__tmp112386 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state100186_ __tmp112124 _stx100185_)) + (gxc#meta-state-add-phi! _state100448_ __tmp112386 _stx100447_)) (let () (declare (not safe)) - (gxc#generate-meta-define-values% _stx100185_ _state100186_)))) + (gxc#generate-meta-define-values% _stx100447_ _state100448_)))) (define gxc#generate-meta-phi-expr - (lambda (_stx100182_ _state100183_) - (let ((__tmp112125 (gx#current-expander-phi))) + (lambda (_stx100444_ _state100445_) + (let ((__tmp112387 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state100183_ __tmp112125 _stx100182_)) + (gxc#meta-state-add-phi! _state100445_ __tmp112387 _stx100444_)) '#!void)) (define gxc#meta-state::t - (let ((__tmp112128 (list)) - (__tmp112126 - (let ((__tmp112127 + (let ((__tmp112390 (list)) + (__tmp112388 + (let ((__tmp112389 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp112127 '())))) + (cons __tmp112389 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state::t 'meta-state - __tmp112128 + __tmp112390 '(src n open blocks) - __tmp112126 + __tmp112388 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args100179_ - (apply make-instance gxc#meta-state::t _$args100179_))) + (lambda _$args100441_ + (apply make-instance gxc#meta-state::t _$args100441_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -18168,103 +18168,103 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_self100176_ _ctx100177_) - (if (let ((__tmp112137 + (lambda (_self100438_ _ctx100439_) + (if (let ((__tmp112399 (let () (declare (not safe)) - (##structure-length _self100176_)))) + (##structure-length _self100438_)))) (declare (not safe)) - (##fx< '4 __tmp112137)) + (##fx< '4 __tmp112399)) (begin - (let ((__tmp112131 - (let ((__tmp112132 + (let ((__tmp112393 + (let ((__tmp112394 (##structure-ref - _ctx100177_ + _ctx100439_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp112132))) - (__tmp112130 + (gxc#module-id->path-string __tmp112394))) + (__tmp112392 (let () (declare (not safe)) - (##structure-type _self100176_)))) + (##structure-type _self100438_)))) (declare (not safe)) (##unchecked-structure-set! - _self100176_ - __tmp112131 + _self100438_ + __tmp112393 '1 - __tmp112130 + __tmp112392 '#f)) - (let ((__tmp112133 + (let ((__tmp112395 (let () (declare (not safe)) - (##structure-type _self100176_)))) + (##structure-type _self100438_)))) (declare (not safe)) (##unchecked-structure-set! - _self100176_ + _self100438_ '1 '2 - __tmp112133 + __tmp112395 '#f)) - (let ((__tmp112135 + (let ((__tmp112397 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp112134 + (__tmp112396 (let () (declare (not safe)) - (##structure-type _self100176_)))) + (##structure-type _self100438_)))) (declare (not safe)) (##unchecked-structure-set! - _self100176_ - __tmp112135 + _self100438_ + __tmp112397 '3 - __tmp112134 + __tmp112396 '#f)) - (let ((__tmp112136 + (let ((__tmp112398 (let () (declare (not safe)) - (##structure-type _self100176_)))) + (##structure-type _self100438_)))) (declare (not safe)) (##unchecked-structure-set! - _self100176_ + _self100438_ '() '4 - __tmp112136 + __tmp112398 '#f))) - (let ((__tmp112129 + (let ((__tmp112391 (let () (declare (not safe)) - (##vector-length _self100176_)))) + (##vector-length _self100438_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self100176_ + _self100438_ '4 - __tmp112129))))) + __tmp112391))))) (let () (declare (not safe)) (bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp112140 (list)) - (__tmp112138 - (let ((__tmp112139 + (let ((__tmp112402 (list)) + (__tmp112400 + (let ((__tmp112401 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp112139 '())))) + (cons __tmp112401 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp112140 + __tmp112402 '(ctx phi n code) - __tmp112138 + __tmp112400 '#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 _$args100051_ - (apply make-instance gxc#meta-state-block::t _$args100051_))) + (lambda _$args100313_ + (apply make-instance gxc#meta-state-block::t _$args100313_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -18330,1250 +18330,1254 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_state100010_ _phi100011_) - (let* ((_state100012100020_ _state100010_) - (_E100014100024_ + (lambda (_state100272_ _phi100273_) + (let* ((_state100274100282_ _state100272_) + (_E100276100286_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _state100012100020_)))) - (_K100015100033_ - (lambda (_open100027_ _n100028_ _src100029_) + (error '"No clause matching" _state100274100282_)))) + (_K100277100295_ + (lambda (_open100289_ _n100290_ _src100291_) (if (let () (declare (not safe)) - (hash-get _open100027_ _phi100011_)) + (hash-get _open100289_ _phi100273_)) '#f - (let ((_block-ref100031_ + (let ((_block-ref100293_ (string-append - _src100029_ + _src100291_ '"__" - (number->string _n100028_)))) + (number->string _n100290_)))) (##structure-set! - _state100010_ - (let () (declare (not safe)) (fx+ _n100028_ '1)) + _state100272_ + (let () (declare (not safe)) (fx+ _n100290_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp112141 - (let ((__tmp112142 + (let ((__tmp112403 + (let ((__tmp112404 (gx#current-expander-context))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp112142 - _phi100011_ - _n100028_ + __tmp112404 + _phi100273_ + _n100290_ '())))) (declare (not safe)) - (hash-put! _open100027_ _phi100011_ __tmp112141)) - _block-ref100031_))))) + (hash-put! _open100289_ _phi100273_ __tmp112403)) + _block-ref100293_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _state100012100020_ + _state100274100282_ 'gxc#meta-state::t)) - (let* ((_e100016100036_ + (let* ((_e100278100298_ (let () (declare (not safe)) (##unchecked-structure-ref - _state100012100020_ + _state100274100282_ '1 gxc#meta-state::t '#f))) - (_src100039_ _e100016100036_) - (_e100017100041_ + (_src100301_ _e100278100298_) + (_e100279100303_ (let () (declare (not safe)) (##unchecked-structure-ref - _state100012100020_ + _state100274100282_ '2 gxc#meta-state::t '#f))) - (_n100044_ _e100017100041_) - (_e100018100046_ + (_n100306_ _e100279100303_) + (_e100280100308_ (let () (declare (not safe)) (##unchecked-structure-ref - _state100012100020_ + _state100274100282_ '3 gxc#meta-state::t '#f))) - (_open100049_ _e100018100046_)) + (_open100311_ _e100280100308_)) (declare (not safe)) - (_K100015100033_ _open100049_ _n100044_ _src100039_)) - (let () (declare (not safe)) (_E100014100024_)))))) + (_K100277100295_ _open100311_ _n100306_ _src100301_)) + (let () (declare (not safe)) (_E100276100286_)))))) (define gxc#meta-state-add-phi! - (lambda (_state100004_ _phi100005_ _stx100006_) - (let ((_block100008_ - (let ((__tmp112143 + (lambda (_state100266_ _phi100267_ _stx100268_) + (let ((_block100270_ + (let ((__tmp112405 (##structure-ref - _state100004_ + _state100266_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp112143 _phi100005_)))) + (hash-get __tmp112405 _phi100267_)))) (##structure-set! - _block100008_ - (let ((__tmp112144 + _block100270_ + (let ((__tmp112406 (##structure-ref - _block100008_ + _block100270_ '4 gxc#meta-state-block::t '#f))) (declare (not safe)) - (cons _stx100006_ __tmp112144)) + (cons _stx100268_ __tmp112406)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state99999_) + (lambda (_state100261_) (##structure-set! - _state99999_ - (let ((__tmp112147 - (lambda (_g112148_ _block100001_ _r100002_) + _state100261_ + (let ((__tmp112409 + (lambda (_g112410_ _block100263_ _r100264_) (let () (declare (not safe)) - (cons _block100001_ _r100002_)))) - (__tmp112146 - (##structure-ref _state99999_ '4 gxc#meta-state::t '#f)) - (__tmp112145 - (##structure-ref _state99999_ '3 gxc#meta-state::t '#f))) + (cons _block100263_ _r100264_)))) + (__tmp112408 + (##structure-ref _state100261_ '4 gxc#meta-state::t '#f)) + (__tmp112407 + (##structure-ref _state100261_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp112147 __tmp112146 __tmp112145)) + (hash-fold __tmp112409 __tmp112408 __tmp112407)) '4 gxc#meta-state::t '#f) (##structure-set! - _state99999_ + _state100261_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state99951_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state99951_)) - (let ((__tmp112150 - (lambda (_block99953_ _r99954_) - (let* ((_block9995599964_ _block99953_) - (_E9995799968_ + (lambda (_state100213_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state100213_)) + (let ((__tmp112412 + (lambda (_block100215_ _r100216_) + (let* ((_block100217100226_ _block100215_) + (_E100219100230_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block9995599964_)))) - (_K9995899976_ - (lambda (_code99971_ _n99972_ _phi99973_ _ctx99974_) + _block100217100226_)))) + (_K100220100238_ + (lambda (_code100233_ + _n100234_ + _phi100235_ + _ctx100236_) (if (let () (declare (not safe)) - (null? _code99971_)) - _r99954_ - (let ((__tmp112151 - (let ((__tmp112152 - (let ((__tmp112153 - (let ((__tmp112154 - (let ((__tmp112155 + (null? _code100233_)) + _r100216_ + (let ((__tmp112413 + (let ((__tmp112414 + (let ((__tmp112415 + (let ((__tmp112416 + (let ((__tmp112417 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112156 (reverse _code99971_))) + (let ((__tmp112418 (reverse _code100233_))) (declare (not safe)) - (cons '%#begin __tmp112156)))) + (cons '%#begin __tmp112418)))) (declare (not safe)) - (cons __tmp112155 '())))) + (cons __tmp112417 '())))) (declare (not safe)) - (cons _n99972_ __tmp112154)))) + (cons _n100234_ __tmp112416)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _phi99973_ - __tmp112153)))) + (cons _phi100235_ + __tmp112415)))) (declare (not safe)) - (cons _ctx99974_ __tmp112152)))) + (cons _ctx100236_ __tmp112414)))) (declare (not safe)) - (cons __tmp112151 _r99954_)))))) + (cons __tmp112413 _r100216_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _block9995599964_ + _block100217100226_ 'gxc#meta-state-block::t)) - (let* ((_e9995999979_ + (let* ((_e100221100241_ (let () (declare (not safe)) (##unchecked-structure-ref - _block9995599964_ + _block100217100226_ '1 gxc#meta-state-block::t '#f))) - (_ctx99982_ _e9995999979_) - (_e9996099984_ + (_ctx100244_ _e100221100241_) + (_e100222100246_ (let () (declare (not safe)) (##unchecked-structure-ref - _block9995599964_ + _block100217100226_ '2 gxc#meta-state-block::t '#f))) - (_phi99987_ _e9996099984_) - (_e9996199989_ + (_phi100249_ _e100222100246_) + (_e100223100251_ (let () (declare (not safe)) (##unchecked-structure-ref - _block9995599964_ + _block100217100226_ '3 gxc#meta-state-block::t '#f))) - (_n99992_ _e9996199989_) - (_e9996299994_ + (_n100254_ _e100223100251_) + (_e100224100256_ (let () (declare (not safe)) (##unchecked-structure-ref - _block9995599964_ + _block100217100226_ '4 gxc#meta-state-block::t '#f))) - (_code99997_ _e9996299994_)) + (_code100259_ _e100224100256_)) (declare (not safe)) - (_K9995899976_ - _code99997_ - _n99992_ - _phi99987_ - _ctx99982_)) - (let () (declare (not safe)) (_E9995799968_)))))) - (__tmp112149 - (##structure-ref _state99951_ '4 gxc#meta-state::t '#f))) + (_K100220100238_ + _code100259_ + _n100254_ + _phi100249_ + _ctx100244_)) + (let () (declare (not safe)) (_E100219100230_)))))) + (__tmp112411 + (##structure-ref _state100213_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (foldl1 __tmp112150 '() __tmp112149)))) + (foldl1 __tmp112412 '() __tmp112411)))) (define gxc#collect-expression-refs - (lambda (_stx99947_) - (let ((_ht99949_ (let () (declare (not safe)) (make-hash-table-eq)))) + (lambda (_stx100209_) + (let ((_ht100211_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (gxc#apply-collect-expression-refs _stx99947_ _ht99949_)) - _ht99949_))) + (gxc#apply-collect-expression-refs _stx100209_ _ht100211_)) + _ht100211_))) (define gxc#collect-refs-ref% - (lambda (_stx99890_ _ht99891_) - (let* ((_g9989399906_ - (lambda (_g9989499903_) + (lambda (_stx100152_ _ht100153_) + (let* ((_g100155100168_ + (lambda (_g100156100165_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9989499903_)))) - (_g9989299944_ - (lambda (_g9989499909_) + _g100156100165_)))) + (_g100154100206_ + (lambda (_g100156100171_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9989499909_)) - (let ((_e9989899911_ + (gx#stx-pair? _g100156100171_)) + (let ((_e100160100173_ (let () (declare (not safe)) - (gx#stx-e _g9989499909_)))) - (let ((_hd9989799914_ + (gx#stx-e _g100156100171_)))) + (let ((_hd100159100176_ (let () (declare (not safe)) - (##car _e9989899911_))) - (_tl9989699916_ + (##car _e100160100173_))) + (_tl100158100178_ (let () (declare (not safe)) - (##cdr _e9989899911_)))) + (##cdr _e100160100173_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9989699916_)) - (let ((_e9990199919_ + (gx#stx-pair? _tl100158100178_)) + (let ((_e100163100181_ (let () (declare (not safe)) - (gx#stx-e _tl9989699916_)))) - (let ((_hd9990099922_ + (gx#stx-e _tl100158100178_)))) + (let ((_hd100162100184_ (let () (declare (not safe)) - (##car _e9990199919_))) - (_tl9989999924_ + (##car _e100163100181_))) + (_tl100161100186_ (let () (declare (not safe)) - (##cdr _e9990199919_)))) + (##cdr _e100163100181_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9989999924_)) - ((lambda (_L99927_) - (let* ((_bind99939_ + (gx#stx-null? _tl100161100186_)) + ((lambda (_L100189_) + (let* ((_bind100201_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L99927_))) - (_eid99941_ - (if _bind99939_ + _L100189_))) + (_eid100203_ + (if _bind100201_ (##structure-ref - _bind99939_ + _bind100201_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _L99927_))))) + _L100189_))))) (let () (declare (not safe)) (hash-put! - _ht99891_ - _eid99941_ - _eid99941_)))) - _hd9990099922_) + _ht100153_ + _eid100203_ + _eid100203_)))) + _hd100162100184_) (let () (declare (not safe)) - (_g9989399906_ _g9989499909_))))) + (_g100155100168_ _g100156100171_))))) (let () (declare (not safe)) - (_g9989399906_ _g9989499909_))))) + (_g100155100168_ _g100156100171_))))) (let () (declare (not safe)) - (_g9989399906_ _g9989499909_)))))) + (_g100155100168_ _g100156100171_)))))) (declare (not safe)) - (_g9989299944_ _stx99890_)))) + (_g100154100206_ _stx100152_)))) (define gxc#collect-refs-setq% - (lambda (_stx99817_ _ht99818_) - (let* ((_g9982099837_ - (lambda (_g9982199834_) + (lambda (_stx100079_ _ht100080_) + (let* ((_g100082100099_ + (lambda (_g100083100096_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9982199834_)))) - (_g9981999887_ - (lambda (_g9982199840_) + _g100083100096_)))) + (_g100081100149_ + (lambda (_g100083100102_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9982199840_)) - (let ((_e9982699842_ + (gx#stx-pair? _g100083100102_)) + (let ((_e100088100104_ (let () (declare (not safe)) - (gx#stx-e _g9982199840_)))) - (let ((_hd9982599845_ + (gx#stx-e _g100083100102_)))) + (let ((_hd100087100107_ (let () (declare (not safe)) - (##car _e9982699842_))) - (_tl9982499847_ + (##car _e100088100104_))) + (_tl100086100109_ (let () (declare (not safe)) - (##cdr _e9982699842_)))) + (##cdr _e100088100104_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9982499847_)) - (let ((_e9982999850_ + (gx#stx-pair? _tl100086100109_)) + (let ((_e100091100112_ (let () (declare (not safe)) - (gx#stx-e _tl9982499847_)))) - (let ((_hd9982899853_ + (gx#stx-e _tl100086100109_)))) + (let ((_hd100090100115_ (let () (declare (not safe)) - (##car _e9982999850_))) - (_tl9982799855_ + (##car _e100091100112_))) + (_tl100089100117_ (let () (declare (not safe)) - (##cdr _e9982999850_)))) + (##cdr _e100091100112_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9982799855_)) - (let ((_e9983299858_ + (gx#stx-pair? _tl100089100117_)) + (let ((_e100094100120_ (let () (declare (not safe)) - (gx#stx-e _tl9982799855_)))) - (let ((_hd9983199861_ + (gx#stx-e _tl100089100117_)))) + (let ((_hd100093100123_ (let () (declare (not safe)) - (##car _e9983299858_))) - (_tl9983099863_ + (##car _e100094100120_))) + (_tl100092100125_ (let () (declare (not safe)) - (##cdr _e9983299858_)))) + (##cdr _e100094100120_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9983099863_)) - ((lambda (_L99866_ _L99867_) - (let* ((_bind99882_ + _tl100092100125_)) + ((lambda (_L100128_ _L100129_) + (let* ((_bind100144_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L99867_))) - (_eid99884_ - (if _bind99882_ + _L100129_))) + (_eid100146_ + (if _bind100144_ (##structure-ref - _bind99882_ + _bind100144_ '1 gx#binding::t '#f) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L99867_))))) + (gx#stx-e _L100129_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (hash-put! - _ht99818_ - _eid99884_ - _eid99884_)) + _ht100080_ + _eid100146_ + _eid100146_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L99866_ - _ht99818_)))) - _hd9983199861_ - _hd9982899853_) + _L100128_ + _ht100080_)))) + _hd100093100123_ + _hd100090100115_) (let () (declare (not safe)) - (_g9982099837_ - _g9982199840_))))) + (_g100082100099_ + _g100083100102_))))) (let () (declare (not safe)) - (_g9982099837_ _g9982199840_))))) + (_g100082100099_ _g100083100102_))))) (let () (declare (not safe)) - (_g9982099837_ _g9982199840_))))) + (_g100082100099_ _g100083100102_))))) (let () (declare (not safe)) - (_g9982099837_ _g9982199840_)))))) + (_g100082100099_ _g100083100102_)))))) (declare (not safe)) - (_g9981999887_ _stx99817_)))) + (_g100081100149_ _stx100079_)))) (define gxc#find-runtime-begin% - (lambda (_stx99779_) - (let* ((_g9978199791_ - (lambda (_g9978299788_) + (lambda (_stx100041_) + (let* ((_g100043100053_ + (lambda (_g100044100050_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9978299788_)))) - (_g9978099814_ - (lambda (_g9978299794_) + _g100044100050_)))) + (_g100042100076_ + (lambda (_g100044100056_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9978299794_)) - (let ((_e9978699796_ + (gx#stx-pair? _g100044100056_)) + (let ((_e100048100058_ (let () (declare (not safe)) - (gx#stx-e _g9978299794_)))) - (let ((_hd9978599799_ + (gx#stx-e _g100044100056_)))) + (let ((_hd100047100061_ (let () (declare (not safe)) - (##car _e9978699796_))) - (_tl9978499801_ + (##car _e100048100058_))) + (_tl100046100063_ (let () (declare (not safe)) - (##cdr _e9978699796_)))) - ((lambda (_L99804_) + (##cdr _e100048100058_)))) + ((lambda (_L100066_) (let () (declare (not safe)) - (ormap1 gxc#compile-e _L99804_))) - _tl9978499801_))) + (ormap1 gxc#compile-e _L100066_))) + _tl100046100063_))) (let () (declare (not safe)) - (_g9978199791_ _g9978299794_)))))) + (_g100043100053_ _g100044100056_)))))) (declare (not safe)) - (_g9978099814_ _stx99779_)))) + (_g100042100076_ _stx100041_)))) (define gxc#find-lambda-expression-begin% - (lambda (_stx99741_) - (let* ((_g9974399753_ - (lambda (_g9974499750_) + (lambda (_stx100003_) + (let* ((_g100005100015_ + (lambda (_g100006100012_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9974499750_)))) - (_g9974299776_ - (lambda (_g9974499756_) + _g100006100012_)))) + (_g100004100038_ + (lambda (_g100006100018_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9974499756_)) - (let ((_e9974899758_ + (gx#stx-pair? _g100006100018_)) + (let ((_e100010100020_ (let () (declare (not safe)) - (gx#stx-e _g9974499756_)))) - (let ((_hd9974799761_ + (gx#stx-e _g100006100018_)))) + (let ((_hd100009100023_ (let () (declare (not safe)) - (##car _e9974899758_))) - (_tl9974699763_ + (##car _e100010100020_))) + (_tl100008100025_ (let () (declare (not safe)) - (##cdr _e9974899758_)))) - ((lambda (_L99766_) - (let ((__tmp112157 + (##cdr _e100010100020_)))) + ((lambda (_L100028_) + (let ((__tmp112419 (let () (declare (not safe)) - (last _L99766_)))) + (last _L100028_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp112157))) - _tl9974699763_))) + (gxc#compile-e__0 __tmp112419))) + _tl100008100025_))) (let () (declare (not safe)) - (_g9974399753_ _g9974499756_)))))) + (_g100005100015_ _g100006100018_)))))) (declare (not safe)) - (_g9974299776_ _stx99741_)))) + (_g100004100038_ _stx100003_)))) (define gxc#find-lambda-expression-begin-annotation% - (lambda (_stx99674_) - (let* ((_g9967699693_ - (lambda (_g9967799690_) + (lambda (_stx99936_) + (let* ((_g9993899955_ + (lambda (_g9993999952_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9967799690_)))) - (_g9967599738_ - (lambda (_g9967799696_) + _g9993999952_)))) + (_g99937100000_ + (lambda (_g9993999958_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9967799696_)) - (let ((_e9968299698_ + (gx#stx-pair? _g9993999958_)) + (let ((_e9994499960_ (let () (declare (not safe)) - (gx#stx-e _g9967799696_)))) - (let ((_hd9968199701_ + (gx#stx-e _g9993999958_)))) + (let ((_hd9994399963_ (let () (declare (not safe)) - (##car _e9968299698_))) - (_tl9968099703_ + (##car _e9994499960_))) + (_tl9994299965_ (let () (declare (not safe)) - (##cdr _e9968299698_)))) + (##cdr _e9994499960_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9968099703_)) - (let ((_e9968599706_ + (gx#stx-pair? _tl9994299965_)) + (let ((_e9994799968_ (let () (declare (not safe)) - (gx#stx-e _tl9968099703_)))) - (let ((_hd9968499709_ + (gx#stx-e _tl9994299965_)))) + (let ((_hd9994699971_ (let () (declare (not safe)) - (##car _e9968599706_))) - (_tl9968399711_ + (##car _e9994799968_))) + (_tl9994599973_ (let () (declare (not safe)) - (##cdr _e9968599706_)))) + (##cdr _e9994799968_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9968399711_)) - (let ((_e9968899714_ + (gx#stx-pair? _tl9994599973_)) + (let ((_e9995099976_ (let () (declare (not safe)) - (gx#stx-e _tl9968399711_)))) - (let ((_hd9968799717_ + (gx#stx-e _tl9994599973_)))) + (let ((_hd9994999979_ (let () (declare (not safe)) - (##car _e9968899714_))) - (_tl9968699719_ + (##car _e9995099976_))) + (_tl9994899981_ (let () (declare (not safe)) - (##cdr _e9968899714_)))) + (##cdr _e9995099976_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9968699719_)) - ((lambda (_L99722_ _L99723_) + _tl9994899981_)) + ((lambda (_L99984_ _L99985_) (let () (declare (not safe)) (gxc#compile-e__0 - _L99722_))) - _hd9968799717_ - _hd9968499709_) + _L99984_))) + _hd9994999979_ + _hd9994699971_) (let () (declare (not safe)) - (_g9967699693_ - _g9967799696_))))) + (_g9993899955_ + _g9993999958_))))) (let () (declare (not safe)) - (_g9967699693_ _g9967799696_))))) + (_g9993899955_ _g9993999958_))))) (let () (declare (not safe)) - (_g9967699693_ _g9967799696_))))) + (_g9993899955_ _g9993999958_))))) (let () (declare (not safe)) - (_g9967699693_ _g9967799696_)))))) + (_g9993899955_ _g9993999958_)))))) (declare (not safe)) - (_g9967599738_ _stx99674_)))) + (_g99937100000_ _stx99936_)))) (define gxc#find-lambda-expression-let-values% - (lambda (_stx99607_) - (let* ((_g9960999626_ - (lambda (_g9961099623_) + (lambda (_stx99869_) + (let* ((_g9987199888_ + (lambda (_g9987299885_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9961099623_)))) - (_g9960899671_ - (lambda (_g9961099629_) + _g9987299885_)))) + (_g9987099933_ + (lambda (_g9987299891_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9961099629_)) - (let ((_e9961599631_ + (gx#stx-pair? _g9987299891_)) + (let ((_e9987799893_ (let () (declare (not safe)) - (gx#stx-e _g9961099629_)))) - (let ((_hd9961499634_ + (gx#stx-e _g9987299891_)))) + (let ((_hd9987699896_ (let () (declare (not safe)) - (##car _e9961599631_))) - (_tl9961399636_ + (##car _e9987799893_))) + (_tl9987599898_ (let () (declare (not safe)) - (##cdr _e9961599631_)))) + (##cdr _e9987799893_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9961399636_)) - (let ((_e9961899639_ + (gx#stx-pair? _tl9987599898_)) + (let ((_e9988099901_ (let () (declare (not safe)) - (gx#stx-e _tl9961399636_)))) - (let ((_hd9961799642_ + (gx#stx-e _tl9987599898_)))) + (let ((_hd9987999904_ (let () (declare (not safe)) - (##car _e9961899639_))) - (_tl9961699644_ + (##car _e9988099901_))) + (_tl9987899906_ (let () (declare (not safe)) - (##cdr _e9961899639_)))) + (##cdr _e9988099901_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9961699644_)) - (let ((_e9962199647_ + (gx#stx-pair? _tl9987899906_)) + (let ((_e9988399909_ (let () (declare (not safe)) - (gx#stx-e _tl9961699644_)))) - (let ((_hd9962099650_ + (gx#stx-e _tl9987899906_)))) + (let ((_hd9988299912_ (let () (declare (not safe)) - (##car _e9962199647_))) - (_tl9961999652_ + (##car _e9988399909_))) + (_tl9988199914_ (let () (declare (not safe)) - (##cdr _e9962199647_)))) + (##cdr _e9988399909_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9961999652_)) - ((lambda (_L99655_ _L99656_) + _tl9988199914_)) + ((lambda (_L99917_ _L99918_) (let () (declare (not safe)) (gxc#compile-e__0 - _L99655_))) - _hd9962099650_ - _hd9961799642_) + _L99917_))) + _hd9988299912_ + _hd9987999904_) (let () (declare (not safe)) - (_g9960999626_ - _g9961099629_))))) + (_g9987199888_ + _g9987299891_))))) (let () (declare (not safe)) - (_g9960999626_ _g9961099629_))))) + (_g9987199888_ _g9987299891_))))) (let () (declare (not safe)) - (_g9960999626_ _g9961099629_))))) + (_g9987199888_ _g9987299891_))))) (let () (declare (not safe)) - (_g9960999626_ _g9961099629_)))))) + (_g9987199888_ _g9987299891_)))))) (declare (not safe)) - (_g9960899671_ _stx99607_)))) - (define gxc#count-values-single% (lambda (_stx99605_) '1)) + (_g9987099933_ _stx99869_)))) + (define gxc#count-values-single% (lambda (_stx99867_) '1)) (define gxc#count-values-begin% - (lambda (_stx99523_) - (let* ((_g9952599544_ - (lambda (_g9952699541_) + (lambda (_stx99785_) + (let* ((_g9978799806_ + (lambda (_g9978899803_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9952699541_)))) - (_g9952499602_ - (lambda (_g9952699547_) + _g9978899803_)))) + (_g9978699864_ + (lambda (_g9978899809_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9952699547_)) - (let ((_e9953099549_ + (gx#stx-pair? _g9978899809_)) + (let ((_e9979299811_ (let () (declare (not safe)) - (gx#stx-e _g9952699547_)))) - (let ((_hd9952999552_ + (gx#stx-e _g9978899809_)))) + (let ((_hd9979199814_ (let () (declare (not safe)) - (##car _e9953099549_))) - (_tl9952899554_ + (##car _e9979299811_))) + (_tl9979099816_ (let () (declare (not safe)) - (##cdr _e9953099549_)))) + (##cdr _e9979299811_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9952899554_)) - (let ((_g112158_ + (gx#stx-pair/null? _tl9979099816_)) + (let ((_g112420_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9952899554_ + _tl9979099816_ '0)))) (begin - (let ((_g112159_ + (let ((_g112421_ (let () (declare (not safe)) - (if (##values? _g112158_) - (##vector-length _g112158_) + (if (##values? _g112420_) + (##vector-length _g112420_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112159_ 2))) + (##fx= _g112421_ 2))) (error "Context expects 2 values" - _g112159_))) - (let ((_target9953199557_ + _g112421_))) + (let ((_target9979399819_ (let () (declare (not safe)) - (##vector-ref _g112158_ 0))) - (_tl9953399559_ + (##vector-ref _g112420_ 0))) + (_tl9979599821_ (let () (declare (not safe)) - (##vector-ref _g112158_ 1)))) + (##vector-ref _g112420_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9953399559_)) - (letrec ((_loop9953499562_ - (lambda (_hd9953299565_ - _expr9953899567_) + (gx#stx-null? _tl9979599821_)) + (letrec ((_loop9979699824_ + (lambda (_hd9979499827_ + _expr9980099829_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd9953299565_)) - (let ((_e9953599570_ + _hd9979499827_)) + (let ((_e9979799832_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd9953299565_)))) - (let ((_lp-hd9953699573_ - (let () (declare (not safe)) (##car _e9953599570_))) - (_lp-tl9953799575_ + (gx#stx-e _hd9979499827_)))) + (let ((_lp-hd9979899835_ + (let () (declare (not safe)) (##car _e9979799832_))) + (_lp-tl9979999837_ (let () (declare (not safe)) - (##cdr _e9953599570_)))) - (let ((__tmp112163 + (##cdr _e9979799832_)))) + (let ((__tmp112425 (let () (declare (not safe)) - (cons _lp-hd9953699573_ _expr9953899567_)))) + (cons _lp-hd9979899835_ _expr9980099829_)))) (declare (not safe)) - (_loop9953499562_ _lp-tl9953799575_ __tmp112163)))) - (let ((_expr9953999578_ (reverse _expr9953899567_))) - ((lambda (_L99581_) - (let ((__tmp112160 - (let ((__tmp112161 - (let ((__tmp112162 - (lambda (_g9959499597_ - _g9959599599_) + (_loop9979699824_ _lp-tl9979999837_ __tmp112425)))) + (let ((_expr9980199840_ (reverse _expr9980099829_))) + ((lambda (_L99843_) + (let ((__tmp112422 + (let ((__tmp112423 + (let ((__tmp112424 + (lambda (_g9985699859_ + _g9985799861_) (let () (declare (not safe)) - (cons _g9959499597_ - _g9959599599_))))) + (cons _g9985699859_ + _g9985799861_))))) (declare (not safe)) - (foldr1 __tmp112162 '() _L99581_)))) + (foldr1 __tmp112424 '() _L99843_)))) (declare (not safe)) - (last __tmp112161)))) + (last __tmp112423)))) (declare (not safe)) - (gxc#compile-e__0 __tmp112160))) - _expr9953999578_)))))) + (gxc#compile-e__0 __tmp112422))) + _expr9980199840_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop9953499562_ - _target9953199557_ + (_loop9979699824_ + _target9979399819_ '()))) (let () (declare (not safe)) - (_g9952599544_ _g9952699547_)))))) + (_g9978799806_ _g9978899809_)))))) (let () (declare (not safe)) - (_g9952599544_ _g9952699547_))))) + (_g9978799806_ _g9978899809_))))) (let () (declare (not safe)) - (_g9952599544_ _g9952699547_)))))) + (_g9978799806_ _g9978899809_)))))) (declare (not safe)) - (_g9952499602_ _stx99523_)))) + (_g9978699864_ _stx99785_)))) (define gxc#count-values-begin-annotation% - (lambda (_stx99456_) - (let* ((_g9945899475_ - (lambda (_g9945999472_) + (lambda (_stx99718_) + (let* ((_g9972099737_ + (lambda (_g9972199734_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9945999472_)))) - (_g9945799520_ - (lambda (_g9945999478_) + _g9972199734_)))) + (_g9971999782_ + (lambda (_g9972199740_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9945999478_)) - (let ((_e9946499480_ + (gx#stx-pair? _g9972199740_)) + (let ((_e9972699742_ (let () (declare (not safe)) - (gx#stx-e _g9945999478_)))) - (let ((_hd9946399483_ + (gx#stx-e _g9972199740_)))) + (let ((_hd9972599745_ (let () (declare (not safe)) - (##car _e9946499480_))) - (_tl9946299485_ + (##car _e9972699742_))) + (_tl9972499747_ (let () (declare (not safe)) - (##cdr _e9946499480_)))) + (##cdr _e9972699742_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9946299485_)) - (let ((_e9946799488_ + (gx#stx-pair? _tl9972499747_)) + (let ((_e9972999750_ (let () (declare (not safe)) - (gx#stx-e _tl9946299485_)))) - (let ((_hd9946699491_ + (gx#stx-e _tl9972499747_)))) + (let ((_hd9972899753_ (let () (declare (not safe)) - (##car _e9946799488_))) - (_tl9946599493_ + (##car _e9972999750_))) + (_tl9972799755_ (let () (declare (not safe)) - (##cdr _e9946799488_)))) + (##cdr _e9972999750_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9946599493_)) - (let ((_e9947099496_ + (gx#stx-pair? _tl9972799755_)) + (let ((_e9973299758_ (let () (declare (not safe)) - (gx#stx-e _tl9946599493_)))) - (let ((_hd9946999499_ + (gx#stx-e _tl9972799755_)))) + (let ((_hd9973199761_ (let () (declare (not safe)) - (##car _e9947099496_))) - (_tl9946899501_ + (##car _e9973299758_))) + (_tl9973099763_ (let () (declare (not safe)) - (##cdr _e9947099496_)))) + (##cdr _e9973299758_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9946899501_)) - ((lambda (_L99504_ _L99505_) + _tl9973099763_)) + ((lambda (_L99766_ _L99767_) (let () (declare (not safe)) (gxc#compile-e__0 - _L99504_))) - _hd9946999499_ - _hd9946699491_) + _L99766_))) + _hd9973199761_ + _hd9972899753_) (let () (declare (not safe)) - (_g9945899475_ - _g9945999478_))))) + (_g9972099737_ + _g9972199740_))))) (let () (declare (not safe)) - (_g9945899475_ _g9945999478_))))) + (_g9972099737_ _g9972199740_))))) (let () (declare (not safe)) - (_g9945899475_ _g9945999478_))))) + (_g9972099737_ _g9972199740_))))) (let () (declare (not safe)) - (_g9945899475_ _g9945999478_)))))) + (_g9972099737_ _g9972199740_)))))) (declare (not safe)) - (_g9945799520_ _stx99456_)))) + (_g9971999782_ _stx99718_)))) (define gxc#count-values-let-values% - (lambda (_stx99389_) - (let* ((_g9939199408_ - (lambda (_g9939299405_) + (lambda (_stx99651_) + (let* ((_g9965399670_ + (lambda (_g9965499667_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9939299405_)))) - (_g9939099453_ - (lambda (_g9939299411_) + _g9965499667_)))) + (_g9965299715_ + (lambda (_g9965499673_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9939299411_)) - (let ((_e9939799413_ + (gx#stx-pair? _g9965499673_)) + (let ((_e9965999675_ (let () (declare (not safe)) - (gx#stx-e _g9939299411_)))) - (let ((_hd9939699416_ + (gx#stx-e _g9965499673_)))) + (let ((_hd9965899678_ (let () (declare (not safe)) - (##car _e9939799413_))) - (_tl9939599418_ + (##car _e9965999675_))) + (_tl9965799680_ (let () (declare (not safe)) - (##cdr _e9939799413_)))) + (##cdr _e9965999675_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9939599418_)) - (let ((_e9940099421_ + (gx#stx-pair? _tl9965799680_)) + (let ((_e9966299683_ (let () (declare (not safe)) - (gx#stx-e _tl9939599418_)))) - (let ((_hd9939999424_ + (gx#stx-e _tl9965799680_)))) + (let ((_hd9966199686_ (let () (declare (not safe)) - (##car _e9940099421_))) - (_tl9939899426_ + (##car _e9966299683_))) + (_tl9966099688_ (let () (declare (not safe)) - (##cdr _e9940099421_)))) + (##cdr _e9966299683_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9939899426_)) - (let ((_e9940399429_ + (gx#stx-pair? _tl9966099688_)) + (let ((_e9966599691_ (let () (declare (not safe)) - (gx#stx-e _tl9939899426_)))) - (let ((_hd9940299432_ + (gx#stx-e _tl9966099688_)))) + (let ((_hd9966499694_ (let () (declare (not safe)) - (##car _e9940399429_))) - (_tl9940199434_ + (##car _e9966599691_))) + (_tl9966399696_ (let () (declare (not safe)) - (##cdr _e9940399429_)))) + (##cdr _e9966599691_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9940199434_)) - ((lambda (_L99437_ _L99438_) + _tl9966399696_)) + ((lambda (_L99699_ _L99700_) (let () (declare (not safe)) (gxc#compile-e__0 - _L99437_))) - _hd9940299432_ - _hd9939999424_) + _L99699_))) + _hd9966499694_ + _hd9966199686_) (let () (declare (not safe)) - (_g9939199408_ - _g9939299411_))))) + (_g9965399670_ + _g9965499673_))))) (let () (declare (not safe)) - (_g9939199408_ _g9939299411_))))) + (_g9965399670_ _g9965499673_))))) (let () (declare (not safe)) - (_g9939199408_ _g9939299411_))))) + (_g9965399670_ _g9965499673_))))) (let () (declare (not safe)) - (_g9939199408_ _g9939299411_)))))) + (_g9965399670_ _g9965499673_)))))) (declare (not safe)) - (_g9939099453_ _stx99389_)))) + (_g9965299715_ _stx99651_)))) (define gxc#count-values-call% - (lambda (_stx99256_) - (let* ((___stx111252111253_ _stx99256_) - (_g9925999288_ + (lambda (_stx99518_) + (let* ((___stx111514111515_ _stx99518_) + (_g9952199550_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx111252111253_))))) - (let ((___kont111254111255_ - (lambda (_L99356_ _L99357_) - (length (let ((__tmp112164 - (lambda (_g9937899381_ _g9937999383_) + ___stx111514111515_))))) + (let ((___kont111516111517_ + (lambda (_L99618_ _L99619_) + (length (let ((__tmp112426 + (lambda (_g9964099643_ _g9964199645_) (let () (declare (not safe)) - (cons _g9937899381_ _g9937999383_))))) + (cons _g9964099643_ _g9964199645_))))) (declare (not safe)) - (foldr1 __tmp112164 '() _L99356_))))) - (___kont111258111259_ (lambda () '#f))) - (let ((___match111297111298_ - (lambda (_e9926599300_ - _hd9926499303_ - _tl9926399305_ - _e9926899308_ - _hd9926799311_ - _tl9926699313_ - _e9927199316_ - _hd9927099319_ - _tl9926999321_ - _e9927499324_ - _hd9927399327_ - _tl9927299329_ - ___splice111256111257_ - _target9927599332_ - _tl9927799334_) - (letrec ((_loop9927899337_ - (lambda (_hd9927699340_ _rand9928299342_) + (foldr1 __tmp112426 '() _L99618_))))) + (___kont111520111521_ (lambda () '#f))) + (let ((___match111559111560_ + (lambda (_e9952799562_ + _hd9952699565_ + _tl9952599567_ + _e9953099570_ + _hd9952999573_ + _tl9952899575_ + _e9953399578_ + _hd9953299581_ + _tl9953199583_ + _e9953699586_ + _hd9953599589_ + _tl9953499591_ + ___splice111518111519_ + _target9953799594_ + _tl9953999596_) + (letrec ((_loop9954099599_ + (lambda (_hd9953899602_ _rand9954499604_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9927699340_)) - (let ((_e9927999345_ + (gx#stx-pair? _hd9953899602_)) + (let ((_e9954199607_ (let () (declare (not safe)) - (gx#stx-e _hd9927699340_)))) - (let ((_lp-tl9928199350_ + (gx#stx-e _hd9953899602_)))) + (let ((_lp-tl9954399612_ (let () (declare (not safe)) - (##cdr _e9927999345_))) - (_lp-hd9928099348_ + (##cdr _e9954199607_))) + (_lp-hd9954299610_ (let () (declare (not safe)) - (##car _e9927999345_)))) - (let ((__tmp112165 + (##car _e9954199607_)))) + (let ((__tmp112427 (let () (declare (not safe)) - (cons _lp-hd9928099348_ - _rand9928299342_)))) + (cons _lp-hd9954299610_ + _rand9954499604_)))) (declare (not safe)) - (_loop9927899337_ - _lp-tl9928199350_ - __tmp112165)))) - (let ((_rand9928399353_ - (reverse _rand9928299342_))) - (let ((_L99356_ _rand9928399353_) - (_L99357_ _hd9927399327_)) + (_loop9954099599_ + _lp-tl9954399612_ + __tmp112427)))) + (let ((_rand9954599615_ + (reverse _rand9954499604_))) + (let ((_L99618_ _rand9954599615_) + (_L99619_ _hd9953599589_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L99357_ + _L99619_ 'values)) - (___kont111254111255_ - _L99356_ - _L99357_) - (___kont111258111259_)))))))) + (___kont111516111517_ + _L99618_ + _L99619_) + (___kont111520111521_)))))))) (let () (declare (not safe)) - (_loop9927899337_ _target9927599332_ '())))))) + (_loop9954099599_ _target9953799594_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx111252111253_)) - (let ((_e9926599300_ + (gx#stx-pair? ___stx111514111515_)) + (let ((_e9952799562_ (let () (declare (not safe)) - (gx#stx-e ___stx111252111253_)))) - (let ((_tl9926399305_ + (gx#stx-e ___stx111514111515_)))) + (let ((_tl9952599567_ (let () (declare (not safe)) - (##cdr _e9926599300_))) - (_hd9926499303_ + (##cdr _e9952799562_))) + (_hd9952699565_ (let () (declare (not safe)) - (##car _e9926599300_)))) + (##car _e9952799562_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9926399305_)) - (let ((_e9926899308_ + (gx#stx-pair? _tl9952599567_)) + (let ((_e9953099570_ (let () (declare (not safe)) - (gx#stx-e _tl9926399305_)))) - (let ((_tl9926699313_ + (gx#stx-e _tl9952599567_)))) + (let ((_tl9952899575_ (let () (declare (not safe)) - (##cdr _e9926899308_))) - (_hd9926799311_ + (##cdr _e9953099570_))) + (_hd9952999573_ (let () (declare (not safe)) - (##car _e9926899308_)))) + (##car _e9953099570_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9926799311_)) - (let ((_e9927199316_ + (gx#stx-pair? _hd9952999573_)) + (let ((_e9953399578_ (let () (declare (not safe)) - (gx#stx-e _hd9926799311_)))) - (let ((_tl9926999321_ + (gx#stx-e _hd9952999573_)))) + (let ((_tl9953199583_ (let () (declare (not safe)) - (##cdr _e9927199316_))) - (_hd9927099319_ + (##cdr _e9953399578_))) + (_hd9953299581_ (let () (declare (not safe)) - (##car _e9927199316_)))) + (##car _e9953399578_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd9927099319_)) + (gx#identifier? _hd9953299581_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd9927099319_)) + _hd9953299581_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9926999321_)) - (let ((_e9927499324_ + _tl9953199583_)) + (let ((_e9953699586_ (let () (declare (not safe)) (gx#stx-e - _tl9926999321_)))) - (let ((_tl9927299329_ + _tl9953199583_)))) + (let ((_tl9953499591_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e9927499324_))) - (_hd9927399327_ - (let () (declare (not safe)) (##car _e9927499324_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl9927299329_)) + (##cdr _e9953699586_))) + (_hd9953599589_ + (let () (declare (not safe)) (##car _e9953699586_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl9953499591_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9926699313_)) - (let ((___splice111256111257_ + (gx#stx-pair/null? _tl9952899575_)) + (let ((___splice111518111519_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl9926699313_ '0)))) - (let ((_tl9927799334_ + (gx#syntax-split-splice _tl9952899575_ '0)))) + (let ((_tl9953999596_ (let () (declare (not safe)) - (##vector-ref ___splice111256111257_ '1))) - (_target9927599332_ + (##vector-ref ___splice111518111519_ '1))) + (_target9953799594_ (let () (declare (not safe)) - (##vector-ref ___splice111256111257_ '0)))) + (##vector-ref ___splice111518111519_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9927799334_)) - (___match111297111298_ - _e9926599300_ - _hd9926499303_ - _tl9926399305_ - _e9926899308_ - _hd9926799311_ - _tl9926699313_ - _e9927199316_ - _hd9927099319_ - _tl9926999321_ - _e9927499324_ - _hd9927399327_ - _tl9927299329_ - ___splice111256111257_ - _target9927599332_ - _tl9927799334_) - (___kont111258111259_)))) - (___kont111258111259_)) - (___kont111258111259_)))) + (gx#stx-null? _tl9953999596_)) + (___match111559111560_ + _e9952799562_ + _hd9952699565_ + _tl9952599567_ + _e9953099570_ + _hd9952999573_ + _tl9952899575_ + _e9953399578_ + _hd9953299581_ + _tl9953199583_ + _e9953699586_ + _hd9953599589_ + _tl9953499591_ + ___splice111518111519_ + _target9953799594_ + _tl9953999596_) + (___kont111520111521_)))) + (___kont111520111521_)) + (___kont111520111521_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont111258111259_)) - (___kont111258111259_)) - (___kont111258111259_)))) - (___kont111258111259_)))) - (___kont111258111259_)))) - (___kont111258111259_))))))) + (___kont111520111521_)) + (___kont111520111521_)) + (___kont111520111521_)))) + (___kont111520111521_)))) + (___kont111520111521_)))) + (___kont111520111521_))))))) (define gxc#count-values-if% - (lambda (_stx99160_) - (let* ((_g9916299183_ - (lambda (_g9916399180_) + (lambda (_stx99422_) + (let* ((_g9942499445_ + (lambda (_g9942599442_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9916399180_)))) - (_g9916199253_ - (lambda (_g9916399186_) + _g9942599442_)))) + (_g9942399515_ + (lambda (_g9942599448_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9916399186_)) - (let ((_e9916999188_ + (gx#stx-pair? _g9942599448_)) + (let ((_e9943199450_ (let () (declare (not safe)) - (gx#stx-e _g9916399186_)))) - (let ((_hd9916899191_ + (gx#stx-e _g9942599448_)))) + (let ((_hd9943099453_ (let () (declare (not safe)) - (##car _e9916999188_))) - (_tl9916799193_ + (##car _e9943199450_))) + (_tl9942999455_ (let () (declare (not safe)) - (##cdr _e9916999188_)))) + (##cdr _e9943199450_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9916799193_)) - (let ((_e9917299196_ + (gx#stx-pair? _tl9942999455_)) + (let ((_e9943499458_ (let () (declare (not safe)) - (gx#stx-e _tl9916799193_)))) - (let ((_hd9917199199_ + (gx#stx-e _tl9942999455_)))) + (let ((_hd9943399461_ (let () (declare (not safe)) - (##car _e9917299196_))) - (_tl9917099201_ + (##car _e9943499458_))) + (_tl9943299463_ (let () (declare (not safe)) - (##cdr _e9917299196_)))) + (##cdr _e9943499458_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9917099201_)) - (let ((_e9917599204_ + (gx#stx-pair? _tl9943299463_)) + (let ((_e9943799466_ (let () (declare (not safe)) - (gx#stx-e _tl9917099201_)))) - (let ((_hd9917499207_ + (gx#stx-e _tl9943299463_)))) + (let ((_hd9943699469_ (let () (declare (not safe)) - (##car _e9917599204_))) - (_tl9917399209_ + (##car _e9943799466_))) + (_tl9943599471_ (let () (declare (not safe)) - (##cdr _e9917599204_)))) + (##cdr _e9943799466_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9917399209_)) - (let ((_e9917899212_ + _tl9943599471_)) + (let ((_e9944099474_ (let () (declare (not safe)) (gx#stx-e - _tl9917399209_)))) - (let ((_hd9917799215_ + _tl9943599471_)))) + (let ((_hd9943999477_ (let () (declare (not safe)) - (##car _e9917899212_))) - (_tl9917699217_ + (##car _e9944099474_))) + (_tl9943899479_ (let () (declare (not safe)) - (##cdr _e9917899212_)))) + (##cdr _e9944099474_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9917699217_)) - ((lambda (_L99220_ + _tl9943899479_)) + ((lambda (_L99482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L99221_ - _L99222_) - (let ((_c19923999241_ + _L99483_ + _L99484_) + (let ((_c19950199503_ (let () (declare (not safe)) - (gxc#compile-e__0 _L99221_)))) - (if _c19923999241_ - (let* ((_c199244_ _c19923999241_) - (_c29924599247_ + (gxc#compile-e__0 _L99483_)))) + (if _c19950199503_ + (let* ((_c199506_ _c19950199503_) + (_c29950799509_ (let () (declare (not safe)) - (gxc#compile-e__0 _L99220_)))) - (if _c29924599247_ - (let ((_c299250_ _c29924599247_)) - (if (fx= _c199244_ _c299250_) _c199244_ '#f)) + (gxc#compile-e__0 _L99482_)))) + (if _c29950799509_ + (let ((_c299512_ _c29950799509_)) + (if (fx= _c199506_ _c299512_) _c199506_ '#f)) '#f)) '#f))) - _hd9917799215_ - _hd9917499207_ - _hd9917199199_) - (let () (declare (not safe)) (_g9916299183_ _g9916399186_))))) + _hd9943999477_ + _hd9943699469_ + _hd9943399461_) + (let () (declare (not safe)) (_g9942499445_ _g9942599448_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9916299183_ - _g9916399186_))))) + (_g9942499445_ + _g9942599448_))))) (let () (declare (not safe)) - (_g9916299183_ _g9916399186_))))) + (_g9942499445_ _g9942599448_))))) (let () (declare (not safe)) - (_g9916299183_ _g9916399186_))))) + (_g9942499445_ _g9942599448_))))) (let () (declare (not safe)) - (_g9916299183_ _g9916399186_)))))) + (_g9942499445_ _g9942599448_)))))) (declare (not safe)) - (_g9916199253_ _stx99160_))))))) + (_g9942399515_ _stx99422_))))))) diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index 21635505..3b547605 100644 --- a/src/bootstrap/gerbil/compiler/compile__1.scm +++ b/src/bootstrap/gerbil/compiler/compile__1.scm @@ -1,265 +1,265 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g112541_| + (define |gxc[1]#_g112803_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112543_| + (define |gxc[1]#_g112805_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112545_| + (define |gxc[1]#_g112807_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112552_| + (define |gxc[1]#_g112814_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112555_| + (define |gxc[1]#_g112817_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112558_| + (define |gxc[1]#_g112820_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112561_| + (define |gxc[1]#_g112823_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112568_| + (define |gxc[1]#_g112830_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112571_| + (define |gxc[1]#_g112833_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112574_| + (define |gxc[1]#_g112836_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112577_| + (define |gxc[1]#_g112839_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112584_| + (define |gxc[1]#_g112846_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112587_| + (define |gxc[1]#_g112849_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112590_| + (define |gxc[1]#_g112852_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112593_| + (define |gxc[1]#_g112855_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112600_| + (define |gxc[1]#_g112862_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112603_| + (define |gxc[1]#_g112865_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112606_| + (define |gxc[1]#_g112868_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112609_| + (define |gxc[1]#_g112871_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112611_| + (define |gxc[1]#_g112873_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112613_| + (define |gxc[1]#_g112875_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112615_| + (define |gxc[1]#_g112877_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112622_| + (define |gxc[1]#_g112884_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112625_| + (define |gxc[1]#_g112887_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112628_| + (define |gxc[1]#_g112890_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112631_| + (define |gxc[1]#_g112893_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112638_| + (define |gxc[1]#_g112900_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112641_| + (define |gxc[1]#_g112903_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112644_| + (define |gxc[1]#_g112906_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112647_| + (define |gxc[1]#_g112909_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112654_| + (define |gxc[1]#_g112916_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112657_| + (define |gxc[1]#_g112919_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112660_| + (define |gxc[1]#_g112922_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112663_| + (define |gxc[1]#_g112925_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112670_| + (define |gxc[1]#_g112932_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112673_| + (define |gxc[1]#_g112935_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112676_| + (define |gxc[1]#_g112938_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g112679_| + (define |gxc[1]#_g112941_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! @@ -268,103 +268,103 @@ '())) (begin (define |gxc[:0:]#do-compile-e| - (lambda (_$stx98320_) - (let* ((_g9832498346_ - (lambda (_g9832598342_) + (lambda (_$stx98582_) + (let* ((_g9858698608_ + (lambda (_g9858798604_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9832598342_)))) - (_g9832398416_ - (lambda (_g9832598350_) + _g9858798604_)))) + (_g9858598678_ + (lambda (_g9858798612_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9832598350_)) - (let ((_e9833198353_ + (gx#stx-pair? _g9858798612_)) + (let ((_e9859398615_ (let () (declare (not safe)) - (gx#syntax-e _g9832598350_)))) - (let ((_hd9833098357_ + (gx#syntax-e _g9858798612_)))) + (let ((_hd9859298619_ (let () (declare (not safe)) - (##car _e9833198353_))) - (_tl9832998360_ + (##car _e9859398615_))) + (_tl9859198622_ (let () (declare (not safe)) - (##cdr _e9833198353_)))) + (##cdr _e9859398615_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9832998360_)) - (let ((_e9833498363_ + (gx#stx-pair? _tl9859198622_)) + (let ((_e9859698625_ (let () (declare (not safe)) - (gx#syntax-e _tl9832998360_)))) - (let ((_hd9833398367_ + (gx#syntax-e _tl9859198622_)))) + (let ((_hd9859598629_ (let () (declare (not safe)) - (##car _e9833498363_))) - (_tl9833298370_ + (##car _e9859698625_))) + (_tl9859498632_ (let () (declare (not safe)) - (##cdr _e9833498363_)))) + (##cdr _e9859698625_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9833298370_)) - (let ((_e9833798373_ + (gx#stx-pair? _tl9859498632_)) + (let ((_e9859998635_ (let () (declare (not safe)) - (gx#syntax-e _tl9833298370_)))) - (let ((_hd9833698377_ + (gx#syntax-e _tl9859498632_)))) + (let ((_hd9859898639_ (let () (declare (not safe)) - (##car _e9833798373_))) - (_tl9833598380_ + (##car _e9859998635_))) + (_tl9859798642_ (let () (declare (not safe)) - (##cdr _e9833798373_)))) + (##cdr _e9859998635_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9833598380_)) - (let ((_e9834098383_ + (gx#stx-pair? _tl9859798642_)) + (let ((_e9860298645_ (let () (declare (not safe)) (gx#syntax-e - _tl9833598380_)))) - (let ((_hd9833998387_ + _tl9859798642_)))) + (let ((_hd9860198649_ (let () (declare (not safe)) - (##car _e9834098383_))) - (_tl9833898390_ + (##car _e9860298645_))) + (_tl9860098652_ (let () (declare (not safe)) - (##cdr _e9834098383_)))) + (##cdr _e9860298645_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9833898390_)) - ((lambda (_L98393_ - _L98395_ - _L98396_) - (let ((__tmp112220 + _tl9860098652_)) + ((lambda (_L98655_ + _L98657_ + _L98658_) + (let ((__tmp112482 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp112166 - (let ((__tmp112167 - (let ((__tmp112168 - (let ((__tmp112182 - (let ((__tmp112217 - (let ((__tmp112219 + (__tmp112428 + (let ((__tmp112429 + (let ((__tmp112430 + (let ((__tmp112444 + (let ((__tmp112479 + (let ((__tmp112481 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd))) - (__tmp112218 + (__tmp112480 (let () (declare (not safe)) @@ -372,1246 +372,1246 @@ '#f '_)))) (declare (not safe)) - (cons __tmp112219 - __tmp112218))) - (__tmp112183 - (let ((__tmp112184 - (let ((__tmp112216 + (cons __tmp112481 + __tmp112480))) + (__tmp112445 + (let ((__tmp112446 + (let ((__tmp112478 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond))) - (__tmp112185 - (let ((__tmp112186 - (let ((__tmp112203 - (let ((__tmp112215 + (__tmp112447 + (let ((__tmp112448 + (let ((__tmp112465 + (let ((__tmp112477 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-get))) - (__tmp112204 - (let ((__tmp112213 - (let ((__tmp112214 + (__tmp112466 + (let ((__tmp112475 + (let ((__tmp112476 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods)))) (declare (not safe)) - (cons __tmp112214 '()))) + (cons __tmp112476 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp112205 - (let ((__tmp112206 - (let ((__tmp112212 + (__tmp112467 + (let ((__tmp112468 + (let ((__tmp112474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx-e))) - (__tmp112207 - (let ((__tmp112208 - (let ((__tmp112211 + (__tmp112469 + (let ((__tmp112470 + (let ((__tmp112473 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp112209 - (let ((__tmp112210 + (__tmp112471 + (let ((__tmp112472 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp112210 '())))) + (cons __tmp112472 '())))) (declare (not safe)) - (cons __tmp112211 __tmp112209)))) + (cons __tmp112473 __tmp112471)))) (declare (not safe)) - (cons __tmp112208 '())))) + (cons __tmp112470 '())))) (declare (not safe)) - (cons __tmp112212 __tmp112207)))) + (cons __tmp112474 __tmp112469)))) (declare (not safe)) - (cons __tmp112206 '())))) + (cons __tmp112468 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112213 - __tmp112205)))) + (cons __tmp112475 + __tmp112467)))) (declare (not safe)) - (cons __tmp112215 __tmp112204))) - (__tmp112187 - (let ((__tmp112202 + (cons __tmp112477 __tmp112466))) + (__tmp112449 + (let ((__tmp112464 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '=>))) - (__tmp112188 - (let ((__tmp112189 - (let ((__tmp112201 + (__tmp112450 + (let ((__tmp112451 + (let ((__tmp112463 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp112190 - (let ((__tmp112200 - (let () (declare (not safe)) (cons _L98395_ '()))) - (__tmp112191 - (let ((__tmp112193 - (let ((__tmp112199 + (__tmp112452 + (let ((__tmp112462 + (let () (declare (not safe)) (cons _L98657_ '()))) + (__tmp112453 + (let ((__tmp112455 + (let ((__tmp112461 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp112194 - (let ((__tmp112195 - (let ((__tmp112198 + (__tmp112456 + (let ((__tmp112457 + (let ((__tmp112460 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp112196 - (let ((__tmp112197 + (__tmp112458 + (let ((__tmp112459 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp112197 '())))) + (cons __tmp112459 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112198 - __tmp112196)))) + (cons __tmp112460 + __tmp112458)))) (declare (not safe)) - (cons __tmp112195 '())))) + (cons __tmp112457 '())))) (declare (not safe)) - (cons __tmp112199 __tmp112194))) - (__tmp112192 + (cons __tmp112461 __tmp112456))) + (__tmp112454 (let () (declare (not safe)) - (cons _L98393_ '())))) + (cons _L98655_ '())))) (declare (not safe)) - (cons __tmp112193 __tmp112192)))) + (cons __tmp112455 __tmp112454)))) (declare (not safe)) - (cons __tmp112200 __tmp112191)))) + (cons __tmp112462 __tmp112453)))) (declare (not safe)) - (cons __tmp112201 __tmp112190)))) + (cons __tmp112463 __tmp112452)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112189 '())))) + (cons __tmp112451 '())))) (declare (not safe)) - (cons __tmp112202 __tmp112188)))) + (cons __tmp112464 __tmp112450)))) (declare (not safe)) - (cons __tmp112203 __tmp112187)))) + (cons __tmp112465 __tmp112449)))) (declare (not safe)) - (cons __tmp112186 '())))) + (cons __tmp112448 '())))) (declare (not safe)) - (cons __tmp112216 __tmp112185)))) + (cons __tmp112478 __tmp112447)))) (declare (not safe)) - (cons __tmp112184 '())))) + (cons __tmp112446 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112217 __tmp112183))) - (__tmp112169 - (let ((__tmp112170 - (let ((__tmp112181 + (cons __tmp112479 __tmp112445))) + (__tmp112431 + (let ((__tmp112432 + (let ((__tmp112443 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp112171 - (let ((__tmp112172 + (__tmp112433 + (let ((__tmp112434 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112180 + (let ((__tmp112442 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'raise-compile-error))) - (__tmp112173 - (let ((__tmp112174 - (let ((__tmp112175 - (let ((__tmp112176 - (let ((__tmp112179 + (__tmp112435 + (let ((__tmp112436 + (let ((__tmp112437 + (let ((__tmp112438 + (let ((__tmp112441 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp112177 - (let ((__tmp112178 + (__tmp112439 + (let ((__tmp112440 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp112178 '())))) + (cons __tmp112440 '())))) (declare (not safe)) - (cons __tmp112179 __tmp112177)))) + (cons __tmp112441 __tmp112439)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112176 '())))) + (cons __tmp112438 '())))) (declare (not safe)) - (cons _L98396_ __tmp112175)))) + (cons _L98658_ __tmp112437)))) (declare (not safe)) (cons '"Cannot compile; missing method" - __tmp112174)))) + __tmp112436)))) (declare (not safe)) - (cons __tmp112180 __tmp112173)))) + (cons __tmp112442 __tmp112435)))) (declare (not safe)) - (cons __tmp112172 '())))) + (cons __tmp112434 '())))) (declare (not safe)) - (cons __tmp112181 __tmp112171)))) + (cons __tmp112443 __tmp112433)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112170 '())))) + (cons __tmp112432 '())))) (declare (not safe)) - (cons __tmp112182 __tmp112169)))) + (cons __tmp112444 __tmp112431)))) (declare (not safe)) - (cons '() __tmp112168)))) + (cons '() __tmp112430)))) (declare (not safe)) - (cons _L98396_ __tmp112167)))) + (cons _L98658_ __tmp112429)))) (declare (not safe)) - (cons __tmp112220 __tmp112166))) - _hd9833998387_ - _hd9833698377_ - _hd9833398367_) - (_g9832498346_ _g9832598350_)))) + (cons __tmp112482 __tmp112428))) + _hd9860198649_ + _hd9859898639_ + _hd9859598629_) + (_g9858698608_ _g9858798612_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9832498346_ _g9832598350_)))) - (_g9832498346_ _g9832598350_)))) - (_g9832498346_ _g9832598350_)))) - (_g9832498346_ _g9832598350_))))) - (_g9832398416_ _$stx98320_)))) + (_g9858698608_ _g9858798612_)))) + (_g9858698608_ _g9858798612_)))) + (_g9858698608_ _g9858798612_)))) + (_g9858698608_ _g9858798612_))))) + (_g9858598678_ _$stx98582_)))) (define |gxc[:0:]#defcompile-method| - (lambda (_$stx98420_) - (let* ((___stx109876109877_ _$stx98420_) - (_g9842698506_ + (lambda (_$stx98682_) + (let* ((___stx110138110139_ _$stx98682_) + (_g9868898768_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx109876109877_))))) - (let ((___kont109879109880_ - (lambda (_L98802_ _L98804_ _L98805_ _L98806_) - (let ((__tmp112221 - (let ((__tmp112222 - (let ((__tmp112223 + ___stx110138110139_))))) + (let ((___kont110141110142_ + (lambda (_L99064_ _L99066_ _L99067_ _L99068_) + (let ((__tmp112483 + (let ((__tmp112484 + (let ((__tmp112485 (let () (declare (not safe)) - (cons _L98804_ '())))) + (cons _L99066_ '())))) (declare (not safe)) - (cons __tmp112223 _L98802_)))) + (cons __tmp112485 _L99064_)))) (declare (not safe)) - (cons _L98805_ __tmp112222)))) + (cons _L99067_ __tmp112484)))) (declare (not safe)) - (cons _L98806_ __tmp112221)))) - (___kont109881109882_ - (lambda (_L98714_ _L98716_ _L98717_ _L98718_) - (let ((__tmp112260 + (cons _L99068_ __tmp112483)))) + (___kont110143110144_ + (lambda (_L98976_ _L98978_ _L98979_ _L98980_) + (let ((__tmp112522 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp112224 - (let ((__tmp112225 - (let ((__tmp112226 - (let ((__tmp112259 + (__tmp112486 + (let ((__tmp112487 + (let ((__tmp112488 + (let ((__tmp112521 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp112227 - (let ((__tmp112228 - (let ((__tmp112258 + (__tmp112489 + (let ((__tmp112490 + (let ((__tmp112520 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112229 - (let ((__tmp112253 - (let ((__tmp112257 + (__tmp112491 + (let ((__tmp112515 + (let ((__tmp112519 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp112254 - (let ((__tmp112255 - (let ((__tmp112256 + (__tmp112516 + (let ((__tmp112517 + (let ((__tmp112518 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-hash-table-eq)))) (declare (not safe)) - (cons __tmp112256 '())))) + (cons __tmp112518 '())))) (declare (not safe)) - (cons __tmp112255 '())))) + (cons __tmp112517 '())))) (declare (not safe)) - (cons __tmp112257 __tmp112254))) - (__tmp112230 - (let ((__tmp112244 - (lambda (_g9874598751_ _g9874698754_) - (let ((__tmp112245 - (let ((__tmp112252 + (cons __tmp112519 __tmp112516))) + (__tmp112492 + (let ((__tmp112506 + (lambda (_g9900799013_ _g9900899016_) + (let ((__tmp112507 + (let ((__tmp112514 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-merge!))) - (__tmp112246 - (let ((__tmp112251 + (__tmp112508 + (let ((__tmp112513 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp112247 - (let ((__tmp112248 + (__tmp112509 + (let ((__tmp112510 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112250 + (let ((__tmp112512 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp112249 + (__tmp112511 (let () (declare (not safe)) - (cons _g9874598751_ '())))) + (cons _g9900799013_ '())))) (declare (not safe)) - (cons __tmp112250 __tmp112249)))) + (cons __tmp112512 __tmp112511)))) (declare (not safe)) - (cons __tmp112248 '())))) + (cons __tmp112510 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112251 - __tmp112247)))) + (cons __tmp112513 + __tmp112509)))) (declare (not safe)) - (cons __tmp112252 __tmp112246)))) + (cons __tmp112514 __tmp112508)))) (declare (not safe)) - (cons __tmp112245 _g9874698754_)))) - (__tmp112231 + (cons __tmp112507 _g9900899016_)))) + (__tmp112493 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L98714_ - _L98716_)) - (let ((__tmp112234 - (lambda (_g9874798757_ - _g9874898760_ - _g9874998762_) - (let ((__tmp112235 - (let ((__tmp112243 + _L98976_ + _L98978_)) + (let ((__tmp112496 + (lambda (_g9900999019_ + _g9901099022_ + _g9901199024_) + (let ((__tmp112497 + (let ((__tmp112505 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp112236 - (let ((__tmp112242 + (__tmp112498 + (let ((__tmp112504 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp112237 - (let ((__tmp112239 - (let ((__tmp112241 + (__tmp112499 + (let ((__tmp112501 + (let ((__tmp112503 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp112240 + (__tmp112502 (let () (declare (not safe)) - (cons _g9874898760_ '())))) + (cons _g9901099022_ '())))) (declare (not safe)) - (cons __tmp112241 __tmp112240))) - (__tmp112238 + (cons __tmp112503 __tmp112502))) + (__tmp112500 (let () (declare (not safe)) - (cons _g9874798757_ '())))) + (cons _g9900999019_ '())))) (declare (not safe)) - (cons __tmp112239 __tmp112238)))) + (cons __tmp112501 __tmp112500)))) (declare (not safe)) - (cons __tmp112242 __tmp112237)))) + (cons __tmp112504 __tmp112499)))) (declare (not safe)) - (cons __tmp112243 __tmp112236)))) + (cons __tmp112505 __tmp112498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112235 - _g9874998762_)))) - (__tmp112232 - (let ((__tmp112233 + (cons __tmp112497 + _g9901199024_)))) + (__tmp112494 + (let ((__tmp112495 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl)))) (declare (not safe)) - (cons __tmp112233 '())))) + (cons __tmp112495 '())))) (declare (not safe)) - (foldr2 __tmp112234 - __tmp112232 - _L98714_ - _L98716_))))) + (foldr2 __tmp112496 + __tmp112494 + _L98976_ + _L98978_))))) (declare (not safe)) - (foldr1 __tmp112244 __tmp112231 _L98717_)))) + (foldr1 __tmp112506 __tmp112493 _L98979_)))) (declare (not safe)) - (cons __tmp112253 __tmp112230)))) + (cons __tmp112515 __tmp112492)))) (declare (not safe)) - (cons __tmp112258 __tmp112229)))) + (cons __tmp112520 __tmp112491)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112228 '())))) + (cons __tmp112490 '())))) (declare (not safe)) - (cons __tmp112259 __tmp112227)))) + (cons __tmp112521 __tmp112489)))) (declare (not safe)) - (cons __tmp112226 '())))) + (cons __tmp112488 '())))) (declare (not safe)) - (cons _L98718_ __tmp112225)))) + (cons _L98980_ __tmp112487)))) (declare (not safe)) - (cons __tmp112260 __tmp112224)))) - (___kont109887109888_ - (lambda (_L98553_ _L98555_ _L98556_ _L98557_ _L98558_) - (let ((__tmp112300 + (cons __tmp112522 __tmp112486)))) + (___kont110149110150_ + (lambda (_L98815_ _L98817_ _L98818_ _L98819_ _L98820_) + (let ((__tmp112562 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp112261 - (let ((__tmp112296 - (let ((__tmp112297 - (let ((__tmp112298 - (let ((__tmp112299 + (__tmp112523 + (let ((__tmp112558 + (let ((__tmp112559 + (let ((__tmp112560 + (let ((__tmp112561 (let () (declare (not safe)) - (cons _L98556_ - _L98555_)))) + (cons _L98818_ + _L98817_)))) (declare (not safe)) - (cons __tmp112299 _L98553_)))) + (cons __tmp112561 _L98815_)))) (declare (not safe)) - (cons '#f __tmp112298)))) + (cons '#f __tmp112560)))) (declare (not safe)) - (cons _L98558_ __tmp112297))) - (__tmp112262 - (let ((__tmp112263 - (let ((__tmp112295 + (cons _L98820_ __tmp112559))) + (__tmp112524 + (let ((__tmp112525 + (let ((__tmp112557 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp112264 - (let ((__tmp112291 - (let ((__tmp112292 - (let ((__tmp112294 + (__tmp112526 + (let ((__tmp112553 + (let ((__tmp112554 + (let ((__tmp112556 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp112293 + (__tmp112555 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp112294 __tmp112293)))) + (cons __tmp112556 __tmp112555)))) (declare (not safe)) - (cons _L98557_ __tmp112292))) + (cons _L98819_ __tmp112554))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp112265 - (let ((__tmp112266 - (let ((__tmp112290 + (__tmp112527 + (let ((__tmp112528 + (let ((__tmp112552 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp112267 - (let ((__tmp112283 - (let ((__tmp112284 - (let ((__tmp112289 + (__tmp112529 + (let ((__tmp112545 + (let ((__tmp112546 + (let ((__tmp112551 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods))) - (__tmp112285 - (let ((__tmp112286 - (let ((__tmp112288 + (__tmp112547 + (let ((__tmp112548 + (let ((__tmp112550 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp112287 - (let () (declare (not safe)) (cons _L98556_ '())))) + (__tmp112549 + (let () (declare (not safe)) (cons _L98818_ '())))) (declare (not safe)) - (cons __tmp112288 __tmp112287)))) + (cons __tmp112550 __tmp112549)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112286 '())))) + (cons __tmp112548 '())))) (declare (not safe)) - (cons __tmp112289 __tmp112285)))) + (cons __tmp112551 __tmp112547)))) (declare (not safe)) - (cons __tmp112284 '()))) - (__tmp112268 - (let ((__tmp112276 - (let ((__tmp112282 + (cons __tmp112546 '()))) + (__tmp112530 + (let ((__tmp112538 + (let ((__tmp112544 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp112277 - (let ((__tmp112278 - (let ((__tmp112281 + (__tmp112539 + (let ((__tmp112540 + (let ((__tmp112543 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp112279 - (let ((__tmp112280 + (__tmp112541 + (let ((__tmp112542 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp112280 '())))) + (cons __tmp112542 '())))) (declare (not safe)) - (cons __tmp112281 __tmp112279)))) + (cons __tmp112543 __tmp112541)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112278 '())))) + (cons __tmp112540 '())))) (declare (not safe)) - (cons __tmp112282 __tmp112277))) - (__tmp112269 - (let ((__tmp112270 - (let ((__tmp112275 + (cons __tmp112544 __tmp112539))) + (__tmp112531 + (let ((__tmp112532 + (let ((__tmp112537 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'do-apply-compile-e))) - (__tmp112271 - (let ((__tmp112274 + (__tmp112533 + (let ((__tmp112536 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp112272 - (let ((__tmp112273 + (__tmp112534 + (let ((__tmp112535 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp112273 '())))) + (cons __tmp112535 '())))) (declare (not safe)) - (cons __tmp112274 __tmp112272)))) + (cons __tmp112536 __tmp112534)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112275 - __tmp112271)))) + (cons __tmp112537 + __tmp112533)))) (declare (not safe)) - (cons __tmp112270 '())))) + (cons __tmp112532 '())))) (declare (not safe)) - (cons __tmp112276 __tmp112269)))) + (cons __tmp112538 __tmp112531)))) (declare (not safe)) - (cons __tmp112283 __tmp112268)))) + (cons __tmp112545 __tmp112530)))) (declare (not safe)) - (cons __tmp112290 __tmp112267)))) + (cons __tmp112552 __tmp112529)))) (declare (not safe)) - (cons __tmp112266 '())))) + (cons __tmp112528 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112291 - __tmp112265)))) + (cons __tmp112553 + __tmp112527)))) (declare (not safe)) - (cons __tmp112295 __tmp112264)))) + (cons __tmp112557 __tmp112526)))) (declare (not safe)) - (cons __tmp112263 '())))) + (cons __tmp112525 '())))) (declare (not safe)) - (cons __tmp112296 __tmp112262)))) + (cons __tmp112558 __tmp112524)))) (declare (not safe)) - (cons __tmp112300 __tmp112261))))) - (let* ((___match109969109970_ - (lambda (_e9849198513_ - _hd9849098517_ - _tl9848998520_ - _e9849498523_ - _hd9849398527_ - _tl9849298530_ - _e9849798533_ - _hd9849698537_ - _tl9849598540_ - _e9850098543_ - _hd9849998547_ - _tl9849898550_) - (let ((_L98553_ _tl9849598540_) - (_L98555_ _tl9849898550_) - (_L98556_ _hd9849998547_) - (_L98557_ _hd9849398527_) - (_L98558_ _hd9849098517_)) + (cons __tmp112562 __tmp112523))))) + (let* ((___match110231110232_ + (lambda (_e9875398775_ + _hd9875298779_ + _tl9875198782_ + _e9875698785_ + _hd9875598789_ + _tl9875498792_ + _e9875998795_ + _hd9875898799_ + _tl9875798802_ + _e9876298805_ + _hd9876198809_ + _tl9876098812_) + (let ((_L98815_ _tl9875798802_) + (_L98817_ _tl9876098812_) + (_L98818_ _hd9876198809_) + (_L98819_ _hd9875598789_) + (_L98820_ _hd9875298779_)) (if (let () (declare (not safe)) - (gx#identifier? _L98557_)) - (___kont109887109888_ - _L98553_ - _L98555_ - _L98556_ - _L98557_ - _L98558_) - (let () (declare (not safe)) (_g9842698506_)))))) - (___match109945109946_ - (lambda (_e9844798586_ - _hd9844698590_ - _tl9844598593_ - _e9845098596_ - _hd9844998600_ - _tl9844898603_ - _e9845198606_ - _e9845498610_ - _hd9845398614_ - _tl9845298617_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_ - ___splice109883109884_ - _target9845898630_ - _tl9846098633_) - (letrec ((_loop9846198636_ - (lambda (_hd9845998640_ _super9846598643_) + (gx#identifier? _L98819_)) + (___kont110149110150_ + _L98815_ + _L98817_ + _L98818_ + _L98819_ + _L98820_) + (let () (declare (not safe)) (_g9868898768_)))))) + (___match110207110208_ + (lambda (_e9870998848_ + _hd9870898852_ + _tl9870798855_ + _e9871298858_ + _hd9871198862_ + _tl9871098865_ + _e9871398868_ + _e9871698872_ + _hd9871598876_ + _tl9871498879_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_ + ___splice110145110146_ + _target9872098892_ + _tl9872298895_) + (letrec ((_loop9872398898_ + (lambda (_hd9872198902_ _super9872798905_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9845998640_)) - (let ((_e9846298646_ + (gx#stx-pair? _hd9872198902_)) + (let ((_e9872498908_ (let () (declare (not safe)) - (gx#syntax-e _hd9845998640_)))) - (let ((_lp-tl9846498653_ + (gx#syntax-e _hd9872198902_)))) + (let ((_lp-tl9872698915_ (let () (declare (not safe)) - (##cdr _e9846298646_))) - (_lp-hd9846398650_ + (##cdr _e9872498908_))) + (_lp-hd9872598912_ (let () (declare (not safe)) - (##car _e9846298646_)))) - (_loop9846198636_ - _lp-tl9846498653_ + (##car _e9872498908_)))) + (_loop9872398898_ + _lp-tl9872698915_ (let () (declare (not safe)) - (cons _lp-hd9846398650_ - _super9846598643_))))) - (let ((_super9846698656_ - (reverse _super9846598643_))) + (cons _lp-hd9872598912_ + _super9872798905_))))) + (let ((_super9872898918_ + (reverse _super9872798905_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl9845298617_)) - (let ((___splice109885109886_ + _tl9871498879_)) + (let ((___splice110147110148_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9845298617_ + _tl9871498879_ '0)))) - (let ((_tl9846998663_ + (let ((_tl9873198925_ (let () (declare (not safe)) (##vector-ref - ___splice109885109886_ + ___splice110147110148_ '1))) - (_target9846798660_ + (_target9872998922_ (let () (declare (not safe)) (##vector-ref - ___splice109885109886_ + ___splice110147110148_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9846998663_)) - (letrec ((_loop9847098666_ - (lambda (_hd9846898670_ + _tl9873198925_)) + (letrec ((_loop9873298928_ + (lambda (_hd9873098932_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _method9847498673_ - _symbol9847598675_) + _method9873698935_ + _symbol9873798937_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9846898670_)) - (let ((_e9847198678_ + (gx#stx-pair? _hd9873098932_)) + (let ((_e9873398940_ (let () (declare (not safe)) - (gx#syntax-e _hd9846898670_)))) - (let ((_lp-tl9847398685_ + (gx#syntax-e _hd9873098932_)))) + (let ((_lp-tl9873598947_ (let () (declare (not safe)) - (##cdr _e9847198678_))) - (_lp-hd9847298682_ + (##cdr _e9873398940_))) + (_lp-hd9873498944_ (let () (declare (not safe)) - (##car _e9847198678_)))) + (##car _e9873398940_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd9847298682_)) - (let ((_e9848098688_ + (gx#stx-pair? _lp-hd9873498944_)) + (let ((_e9874298950_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd9847298682_)))) - (let ((_tl9847898695_ + (gx#syntax-e _lp-hd9873498944_)))) + (let ((_tl9874098957_ (let () (declare (not safe)) - (##cdr _e9848098688_))) - (_hd9847998692_ + (##cdr _e9874298950_))) + (_hd9874198954_ (let () (declare (not safe)) - (##car _e9848098688_)))) + (##car _e9874298950_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9847898695_)) - (let ((_e9848398698_ + (gx#stx-pair? _tl9874098957_)) + (let ((_e9874598960_ (let () (declare (not safe)) (gx#syntax-e - _tl9847898695_)))) - (let ((_tl9848198705_ + _tl9874098957_)))) + (let ((_tl9874398967_ (let () (declare (not safe)) - (##cdr _e9848398698_))) - (_hd9848298702_ + (##cdr _e9874598960_))) + (_hd9874498964_ (let () (declare (not safe)) - (##car _e9848398698_)))) + (##car _e9874598960_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9848198705_)) - (_loop9847098666_ - _lp-tl9847398685_ + _tl9874398967_)) + (_loop9873298928_ + _lp-tl9873598947_ (let () (declare (not safe)) - (cons _hd9848298702_ - _method9847498673_)) + (cons _hd9874498964_ + _method9873698935_)) (let () (declare (not safe)) - (cons _hd9847998692_ - _symbol9847598675_))) - (___match109969109970_ - _e9844798586_ - _hd9844698590_ - _tl9844598593_ - _e9845098596_ - _hd9844998600_ - _tl9844898603_ - _e9845498610_ - _hd9845398614_ - _tl9845298617_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_)))) - (___match109969109970_ - _e9844798586_ - _hd9844698590_ - _tl9844598593_ - _e9845098596_ - _hd9844998600_ - _tl9844898603_ - _e9845498610_ - _hd9845398614_ - _tl9845298617_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_)))) - (___match109969109970_ - _e9844798586_ - _hd9844698590_ - _tl9844598593_ - _e9845098596_ - _hd9844998600_ - _tl9844898603_ - _e9845498610_ - _hd9845398614_ - _tl9845298617_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_)))) - (let ((_symbol9847798711_ - (reverse _symbol9847598675_)) - (_method9847698708_ - (reverse _method9847498673_))) - (___kont109881109882_ - _method9847698708_ - _symbol9847798711_ - _super9846698656_ - _hd9845698624_)))))) - (_loop9847098666_ _target9846798660_ '() '())) + (cons _hd9874198954_ + _symbol9873798937_))) + (___match110231110232_ + _e9870998848_ + _hd9870898852_ + _tl9870798855_ + _e9871298858_ + _hd9871198862_ + _tl9871098865_ + _e9871698872_ + _hd9871598876_ + _tl9871498879_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_)))) + (___match110231110232_ + _e9870998848_ + _hd9870898852_ + _tl9870798855_ + _e9871298858_ + _hd9871198862_ + _tl9871098865_ + _e9871698872_ + _hd9871598876_ + _tl9871498879_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_)))) + (___match110231110232_ + _e9870998848_ + _hd9870898852_ + _tl9870798855_ + _e9871298858_ + _hd9871198862_ + _tl9871098865_ + _e9871698872_ + _hd9871598876_ + _tl9871498879_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_)))) + (let ((_symbol9873998973_ + (reverse _symbol9873798937_)) + (_method9873898970_ + (reverse _method9873698935_))) + (___kont110143110144_ + _method9873898970_ + _symbol9873998973_ + _super9872898918_ + _hd9871898886_)))))) + (_loop9873298928_ _target9872998922_ '() '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match109969109970_ - _e9844798586_ - _hd9844698590_ - _tl9844598593_ - _e9845098596_ - _hd9844998600_ - _tl9844898603_ - _e9845498610_ - _hd9845398614_ - _tl9845298617_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_)))) - (___match109969109970_ - _e9844798586_ - _hd9844698590_ - _tl9844598593_ - _e9845098596_ - _hd9844998600_ - _tl9844898603_ - _e9845498610_ - _hd9845398614_ - _tl9845298617_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_))))))) - (_loop9846198636_ _target9845898630_ '())))) - (___match109907109908_ - (lambda (_e9843498772_ - _hd9843398776_ - _tl9843298779_ - _e9843798782_ - _hd9843698786_ - _tl9843598789_ - _e9844098792_ - _hd9843998796_ - _tl9843898799_) - (let ((_L98802_ _tl9843898799_) - (_L98804_ _hd9843998796_) - (_L98805_ _hd9843698786_) - (_L98806_ _hd9843398776_)) + (___match110231110232_ + _e9870998848_ + _hd9870898852_ + _tl9870798855_ + _e9871298858_ + _hd9871198862_ + _tl9871098865_ + _e9871698872_ + _hd9871598876_ + _tl9871498879_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_)))) + (___match110231110232_ + _e9870998848_ + _hd9870898852_ + _tl9870798855_ + _e9871298858_ + _hd9871198862_ + _tl9871098865_ + _e9871698872_ + _hd9871598876_ + _tl9871498879_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_))))))) + (_loop9872398898_ _target9872098892_ '())))) + (___match110169110170_ + (lambda (_e9869699034_ + _hd9869599038_ + _tl9869499041_ + _e9869999044_ + _hd9869899048_ + _tl9869799051_ + _e9870299054_ + _hd9870199058_ + _tl9870099061_) + (let ((_L99064_ _tl9870099061_) + (_L99066_ _hd9870199058_) + (_L99067_ _hd9869899048_) + (_L99068_ _hd9869599038_)) (if (let () (declare (not safe)) - (gx#identifier? _L98804_)) - (___kont109879109880_ - _L98802_ - _L98804_ - _L98805_ - _L98806_) + (gx#identifier? _L99066_)) + (___kont110141110142_ + _L99064_ + _L99066_ + _L99067_ + _L99068_) (if (let () (declare (not safe)) - (gx#stx-datum? _hd9843698786_)) - (let ((_e9845198606_ + (gx#stx-datum? _hd9869899048_)) + (let ((_e9871398868_ (let () (declare (not safe)) - (gx#stx-e _hd9843698786_)))) + (gx#stx-e _hd9869899048_)))) (if (let () (declare (not safe)) - (equal? _e9845198606_ '#f)) + (equal? _e9871398868_ '#f)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9843998796_)) - (let ((_e9845798620_ + (gx#stx-pair? _hd9870199058_)) + (let ((_e9871998882_ (let () (declare (not safe)) (gx#syntax-e - _hd9843998796_)))) - (let ((_tl9845598627_ + _hd9870199058_)))) + (let ((_tl9871798889_ (let () (declare (not safe)) - (##cdr _e9845798620_))) - (_hd9845698624_ + (##cdr _e9871998882_))) + (_hd9871898886_ (let () (declare (not safe)) - (##car _e9845798620_)))) + (##car _e9871998882_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl9845598627_)) - (let ((___splice109883109884_ + _tl9871798889_)) + (let ((___splice110145110146_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9845598627_ + _tl9871798889_ '0)))) - (let ((_tl9846098633_ + (let ((_tl9872298895_ (let () (declare (not safe)) (##vector-ref - ___splice109883109884_ + ___splice110145110146_ '1))) - (_target9845898630_ + (_target9872098892_ (let () (declare (not safe)) (##vector-ref - ___splice109883109884_ + ___splice110145110146_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9846098633_)) - (___match109945109946_ - _e9843498772_ - _hd9843398776_ - _tl9843298779_ - _e9843798782_ - _hd9843698786_ - _tl9843598789_ - _e9845198606_ - _e9844098792_ - _hd9843998796_ - _tl9843898799_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_ - ___splice109883109884_ - _target9845898630_ - _tl9846098633_) - (___match109969109970_ - _e9843498772_ - _hd9843398776_ - _tl9843298779_ - _e9843798782_ - _hd9843698786_ - _tl9843598789_ - _e9844098792_ - _hd9843998796_ - _tl9843898799_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_)))) - (___match109969109970_ - _e9843498772_ - _hd9843398776_ - _tl9843298779_ - _e9843798782_ - _hd9843698786_ - _tl9843598789_ - _e9844098792_ - _hd9843998796_ - _tl9843898799_ - _e9845798620_ - _hd9845698624_ - _tl9845598627_)))) + _tl9872298895_)) + (___match110207110208_ + _e9869699034_ + _hd9869599038_ + _tl9869499041_ + _e9869999044_ + _hd9869899048_ + _tl9869799051_ + _e9871398868_ + _e9870299054_ + _hd9870199058_ + _tl9870099061_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_ + ___splice110145110146_ + _target9872098892_ + _tl9872298895_) + (___match110231110232_ + _e9869699034_ + _hd9869599038_ + _tl9869499041_ + _e9869999044_ + _hd9869899048_ + _tl9869799051_ + _e9870299054_ + _hd9870199058_ + _tl9870099061_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_)))) + (___match110231110232_ + _e9869699034_ + _hd9869599038_ + _tl9869499041_ + _e9869999044_ + _hd9869899048_ + _tl9869799051_ + _e9870299054_ + _hd9870199058_ + _tl9870099061_ + _e9871998882_ + _hd9871898886_ + _tl9871798889_)))) (let () (declare (not safe)) - (_g9842698506_))) + (_g9868898768_))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9843998796_)) - (let ((_e9850098543_ + (gx#stx-pair? _hd9870199058_)) + (let ((_e9876298805_ (let () (declare (not safe)) (gx#syntax-e - _hd9843998796_)))) - (let ((_tl9849898550_ + _hd9870199058_)))) + (let ((_tl9876098812_ (let () (declare (not safe)) - (##cdr _e9850098543_))) - (_hd9849998547_ + (##cdr _e9876298805_))) + (_hd9876198809_ (let () (declare (not safe)) - (##car _e9850098543_)))) - (___match109969109970_ - _e9843498772_ - _hd9843398776_ - _tl9843298779_ - _e9843798782_ - _hd9843698786_ - _tl9843598789_ - _e9844098792_ - _hd9843998796_ - _tl9843898799_ - _e9850098543_ - _hd9849998547_ - _tl9849898550_))) + (##car _e9876298805_)))) + (___match110231110232_ + _e9869699034_ + _hd9869599038_ + _tl9869499041_ + _e9869999044_ + _hd9869899048_ + _tl9869799051_ + _e9870299054_ + _hd9870199058_ + _tl9870099061_ + _e9876298805_ + _hd9876198809_ + _tl9876098812_))) (let () (declare (not safe)) - (_g9842698506_))))) + (_g9868898768_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9843998796_)) - (let ((_e9850098543_ + (gx#stx-pair? _hd9870199058_)) + (let ((_e9876298805_ (let () (declare (not safe)) - (gx#syntax-e _hd9843998796_)))) - (let ((_tl9849898550_ + (gx#syntax-e _hd9870199058_)))) + (let ((_tl9876098812_ (let () (declare (not safe)) - (##cdr _e9850098543_))) - (_hd9849998547_ + (##cdr _e9876298805_))) + (_hd9876198809_ (let () (declare (not safe)) - (##car _e9850098543_)))) - (___match109969109970_ - _e9843498772_ - _hd9843398776_ - _tl9843298779_ - _e9843798782_ - _hd9843698786_ - _tl9843598789_ - _e9844098792_ - _hd9843998796_ - _tl9843898799_ - _e9850098543_ - _hd9849998547_ - _tl9849898550_))) + (##car _e9876298805_)))) + (___match110231110232_ + _e9869699034_ + _hd9869599038_ + _tl9869499041_ + _e9869999044_ + _hd9869899048_ + _tl9869799051_ + _e9870299054_ + _hd9870199058_ + _tl9870099061_ + _e9876298805_ + _hd9876198809_ + _tl9876098812_))) (let () (declare (not safe)) - (_g9842698506_))))))))) + (_g9868898768_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx109876109877_)) - (let ((_e9843498772_ + (gx#stx-pair? ___stx110138110139_)) + (let ((_e9869699034_ (let () (declare (not safe)) - (gx#syntax-e ___stx109876109877_)))) - (let ((_tl9843298779_ - (let () (declare (not safe)) (##cdr _e9843498772_))) - (_hd9843398776_ + (gx#syntax-e ___stx110138110139_)))) + (let ((_tl9869499041_ + (let () (declare (not safe)) (##cdr _e9869699034_))) + (_hd9869599038_ (let () (declare (not safe)) - (##car _e9843498772_)))) + (##car _e9869699034_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9843298779_)) - (let ((_e9843798782_ + (gx#stx-pair? _tl9869499041_)) + (let ((_e9869999044_ (let () (declare (not safe)) - (gx#syntax-e _tl9843298779_)))) - (let ((_tl9843598789_ + (gx#syntax-e _tl9869499041_)))) + (let ((_tl9869799051_ (let () (declare (not safe)) - (##cdr _e9843798782_))) - (_hd9843698786_ + (##cdr _e9869999044_))) + (_hd9869899048_ (let () (declare (not safe)) - (##car _e9843798782_)))) + (##car _e9869999044_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9843598789_)) - (let ((_e9844098792_ + (gx#stx-pair? _tl9869799051_)) + (let ((_e9870299054_ (let () (declare (not safe)) - (gx#syntax-e _tl9843598789_)))) - (let ((_tl9843898799_ + (gx#syntax-e _tl9869799051_)))) + (let ((_tl9870099061_ (let () (declare (not safe)) - (##cdr _e9844098792_))) - (_hd9843998796_ + (##cdr _e9870299054_))) + (_hd9870199058_ (let () (declare (not safe)) - (##car _e9844098792_)))) - (___match109907109908_ - _e9843498772_ - _hd9843398776_ - _tl9843298779_ - _e9843798782_ - _hd9843698786_ - _tl9843598789_ - _e9844098792_ - _hd9843998796_ - _tl9843898799_))) + (##car _e9870299054_)))) + (___match110169110170_ + _e9869699034_ + _hd9869599038_ + _tl9869499041_ + _e9869999044_ + _hd9869899048_ + _tl9869799051_ + _e9870299054_ + _hd9870199058_ + _tl9870099061_))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd9843698786_)) - (let ((_e9845198606_ + (gx#stx-datum? _hd9869899048_)) + (let ((_e9871398868_ (let () (declare (not safe)) - (gx#stx-e _hd9843698786_)))) + (gx#stx-e _hd9869899048_)))) (declare (not safe)) - (_g9842698506_)) + (_g9868898768_)) (let () (declare (not safe)) - (_g9842698506_)))))) - (let () (declare (not safe)) (_g9842698506_))))) - (let () (declare (not safe)) (_g9842698506_)))))))) + (_g9868898768_)))))) + (let () (declare (not safe)) (_g9868898768_))))) + (let () (declare (not safe)) (_g9868898768_)))))))) (define |gxc[:0:]#do-apply-compile-e| - (lambda (_$stx98829_) - (let* ((_g9883398851_ - (lambda (_g9883498847_) + (lambda (_$stx99091_) + (let* ((_g9909599113_ + (lambda (_g9909699109_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9883498847_)))) - (_g9883298906_ - (lambda (_g9883498855_) + _g9909699109_)))) + (_g9909499168_ + (lambda (_g9909699117_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9883498855_)) - (let ((_e9883998858_ + (gx#stx-pair? _g9909699117_)) + (let ((_e9910199120_ (let () (declare (not safe)) - (gx#syntax-e _g9883498855_)))) - (let ((_hd9883898862_ + (gx#syntax-e _g9909699117_)))) + (let ((_hd9910099124_ (let () (declare (not safe)) - (##car _e9883998858_))) - (_tl9883798865_ + (##car _e9910199120_))) + (_tl9909999127_ (let () (declare (not safe)) - (##cdr _e9883998858_)))) + (##cdr _e9910199120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9883798865_)) - (let ((_e9884298868_ + (gx#stx-pair? _tl9909999127_)) + (let ((_e9910499130_ (let () (declare (not safe)) - (gx#syntax-e _tl9883798865_)))) - (let ((_hd9884198872_ + (gx#syntax-e _tl9909999127_)))) + (let ((_hd9910399134_ (let () (declare (not safe)) - (##car _e9884298868_))) - (_tl9884098875_ + (##car _e9910499130_))) + (_tl9910299137_ (let () (declare (not safe)) - (##cdr _e9884298868_)))) + (##cdr _e9910499130_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9884098875_)) - (let ((_e9884598878_ + (gx#stx-pair? _tl9910299137_)) + (let ((_e9910799140_ (let () (declare (not safe)) - (gx#syntax-e _tl9884098875_)))) - (let ((_hd9884498882_ + (gx#syntax-e _tl9910299137_)))) + (let ((_hd9910699144_ (let () (declare (not safe)) - (##car _e9884598878_))) - (_tl9884398885_ + (##car _e9910799140_))) + (_tl9910599147_ (let () (declare (not safe)) - (##cdr _e9884598878_)))) + (##cdr _e9910799140_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9884398885_)) - ((lambda (_L98888_ _L98890_) - (let ((__tmp112389 + (gx#stx-null? _tl9910599147_)) + ((lambda (_L99150_ _L99152_) + (let ((__tmp112651 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp112301 - (let ((__tmp112386 - (let ((__tmp112388 + (__tmp112563 + (let ((__tmp112648 + (let ((__tmp112650 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp112387 + (__tmp112649 (let () (declare (not safe)) - (cons _L98888_ '())))) + (cons _L99150_ '())))) (declare (not safe)) - (cons __tmp112388 __tmp112387))) - (__tmp112302 - (let ((__tmp112383 - (let ((__tmp112385 + (cons __tmp112650 __tmp112649))) + (__tmp112564 + (let ((__tmp112645 + (let ((__tmp112647 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112384 + (__tmp112646 (let () (declare (not safe)) - (cons _L98890_ '())))) + (cons _L99152_ '())))) (declare (not safe)) - (cons __tmp112385 __tmp112384))) - (__tmp112303 - (let ((__tmp112304 - (let ((__tmp112382 + (cons __tmp112647 __tmp112646))) + (__tmp112565 + (let ((__tmp112566 + (let ((__tmp112644 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112305 - (let ((__tmp112368 - (let ((__tmp112376 - (let ((__tmp112381 + (__tmp112567 + (let ((__tmp112630 + (let ((__tmp112638 + (let ((__tmp112643 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp112377 - (let ((__tmp112378 - (let ((__tmp112380 + (__tmp112639 + (let ((__tmp112640 + (let ((__tmp112642 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp112379 + (__tmp112641 (let () (declare (not safe)) - (cons _L98888_ '())))) + (cons _L99150_ '())))) (declare (not safe)) - (cons __tmp112380 __tmp112379)))) + (cons __tmp112642 __tmp112641)))) (declare (not safe)) - (cons __tmp112378 '())))) + (cons __tmp112640 '())))) (declare (not safe)) - (cons __tmp112381 __tmp112377))) - (__tmp112369 - (let ((__tmp112370 - (let ((__tmp112375 + (cons __tmp112643 __tmp112639))) + (__tmp112631 + (let ((__tmp112632 + (let ((__tmp112637 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112371 - (let ((__tmp112372 - (let ((__tmp112374 + (__tmp112633 + (let ((__tmp112634 + (let ((__tmp112636 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp112373 + (__tmp112635 (let () (declare (not safe)) - (cons _L98888_ '())))) + (cons _L99150_ '())))) (declare (not safe)) - (cons __tmp112374 __tmp112373)))) + (cons __tmp112636 __tmp112635)))) (declare (not safe)) - (cons __tmp112372 '())))) + (cons __tmp112634 '())))) (declare (not safe)) - (cons __tmp112375 __tmp112371)))) + (cons __tmp112637 __tmp112633)))) (declare (not safe)) - (cons __tmp112370 '())))) + (cons __tmp112632 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112376 - __tmp112369))) - (__tmp112306 - (let ((__tmp112307 - (let ((__tmp112367 + (cons __tmp112638 + __tmp112631))) + (__tmp112568 + (let ((__tmp112569 + (let ((__tmp112629 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp112308 - (let ((__tmp112363 - (let ((__tmp112366 + (__tmp112570 + (let ((__tmp112625 + (let ((__tmp112628 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp112364 - (let ((__tmp112365 + (__tmp112626 + (let ((__tmp112627 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112365 '())))) + (cons __tmp112627 '())))) (declare (not safe)) - (cons __tmp112366 __tmp112364))) - (__tmp112309 - (let ((__tmp112358 - (let ((__tmp112362 + (cons __tmp112628 __tmp112626))) + (__tmp112571 + (let ((__tmp112620 + (let ((__tmp112624 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112359 - (let ((__tmp112360 - (let ((__tmp112361 + (__tmp112621 + (let ((__tmp112622 + (let ((__tmp112623 (let () (declare (not safe)) @@ -1619,575 +1619,575 @@ '#f 'arg1)))) (declare (not safe)) - (cons __tmp112361 + (cons __tmp112623 '())))) (declare (not safe)) - (cons _L98890_ __tmp112360)))) + (cons _L99152_ __tmp112622)))) (declare (not safe)) - (cons __tmp112362 __tmp112359))) - (__tmp112310 - (let ((__tmp112311 - (let ((__tmp112357 + (cons __tmp112624 __tmp112621))) + (__tmp112572 + (let ((__tmp112573 + (let ((__tmp112619 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112312 - (let ((__tmp112341 - (let ((__tmp112350 + (__tmp112574 + (let ((__tmp112603 + (let ((__tmp112612 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112356 + (let ((__tmp112618 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp112351 - (let ((__tmp112352 - (let ((__tmp112355 + (__tmp112613 + (let ((__tmp112614 + (let ((__tmp112617 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp112353 - (let ((__tmp112354 + (__tmp112615 + (let ((__tmp112616 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112354 '())))) + (cons __tmp112616 '())))) (declare (not safe)) - (cons __tmp112355 __tmp112353)))) + (cons __tmp112617 __tmp112615)))) (declare (not safe)) - (cons __tmp112352 '())))) + (cons __tmp112614 '())))) (declare (not safe)) - (cons __tmp112356 __tmp112351))) - (__tmp112342 - (let ((__tmp112343 - (let ((__tmp112349 + (cons __tmp112618 __tmp112613))) + (__tmp112604 + (let ((__tmp112605 + (let ((__tmp112611 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112344 - (let ((__tmp112345 - (let ((__tmp112348 + (__tmp112606 + (let ((__tmp112607 + (let ((__tmp112610 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp112346 - (let ((__tmp112347 + (__tmp112608 + (let ((__tmp112609 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112347 '())))) + (cons __tmp112609 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112348 - __tmp112346)))) + (cons __tmp112610 + __tmp112608)))) (declare (not safe)) - (cons __tmp112345 '())))) + (cons __tmp112607 '())))) (declare (not safe)) - (cons __tmp112349 __tmp112344)))) + (cons __tmp112611 __tmp112606)))) (declare (not safe)) - (cons __tmp112343 '())))) + (cons __tmp112605 '())))) (declare (not safe)) - (cons __tmp112350 __tmp112342))) - (__tmp112313 - (let ((__tmp112314 - (let ((__tmp112340 + (cons __tmp112612 __tmp112604))) + (__tmp112575 + (let ((__tmp112576 + (let ((__tmp112602 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp112315 - (let ((__tmp112336 - (let ((__tmp112339 + (__tmp112577 + (let ((__tmp112598 + (let ((__tmp112601 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp112337 - (let ((__tmp112338 + (__tmp112599 + (let ((__tmp112600 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112338 '())))) + (cons __tmp112600 '())))) (declare (not safe)) - (cons __tmp112339 __tmp112337))) - (__tmp112316 - (let ((__tmp112329 - (let ((__tmp112335 + (cons __tmp112601 __tmp112599))) + (__tmp112578 + (let ((__tmp112591 + (let ((__tmp112597 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112330 - (let ((__tmp112331 - (let ((__tmp112334 + (__tmp112592 + (let ((__tmp112593 + (let ((__tmp112596 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp112332 - (let ((__tmp112333 + (__tmp112594 + (let ((__tmp112595 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2)))) (declare (not safe)) - (cons __tmp112333 '())))) + (cons __tmp112595 '())))) (declare (not safe)) - (cons __tmp112334 __tmp112332)))) + (cons __tmp112596 __tmp112594)))) (declare (not safe)) - (cons _L98890_ __tmp112331)))) + (cons _L99152_ __tmp112593)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112335 - __tmp112330))) - (__tmp112317 - (let ((__tmp112318 - (let ((__tmp112328 + (cons __tmp112597 + __tmp112592))) + (__tmp112579 + (let ((__tmp112580 + (let ((__tmp112590 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'apply))) - (__tmp112319 - (let ((__tmp112327 + (__tmp112581 + (let ((__tmp112589 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112320 - (let ((__tmp112321 - (let ((__tmp112326 + (__tmp112582 + (let ((__tmp112583 + (let ((__tmp112588 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp112322 - (let ((__tmp112325 + (__tmp112584 + (let ((__tmp112587 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp112323 - (let ((__tmp112324 + (__tmp112585 + (let ((__tmp112586 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112324 '())))) + (cons __tmp112586 '())))) (declare (not safe)) - (cons __tmp112325 __tmp112323)))) + (cons __tmp112587 __tmp112585)))) (declare (not safe)) - (cons __tmp112326 __tmp112322)))) + (cons __tmp112588 __tmp112584)))) (declare (not safe)) - (cons _L98890_ __tmp112321)))) + (cons _L99152_ __tmp112583)))) (declare (not safe)) - (cons __tmp112327 __tmp112320)))) + (cons __tmp112589 __tmp112582)))) (declare (not safe)) - (cons __tmp112328 __tmp112319)))) + (cons __tmp112590 __tmp112581)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112318 '())))) + (cons __tmp112580 '())))) (declare (not safe)) - (cons __tmp112329 __tmp112317)))) + (cons __tmp112591 __tmp112579)))) (declare (not safe)) - (cons __tmp112336 __tmp112316)))) + (cons __tmp112598 __tmp112578)))) (declare (not safe)) - (cons __tmp112340 __tmp112315)))) + (cons __tmp112602 __tmp112577)))) (declare (not safe)) - (cons __tmp112314 '())))) + (cons __tmp112576 '())))) (declare (not safe)) - (cons __tmp112341 __tmp112313)))) + (cons __tmp112603 __tmp112575)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112357 - __tmp112312)))) + (cons __tmp112619 + __tmp112574)))) (declare (not safe)) - (cons __tmp112311 '())))) + (cons __tmp112573 '())))) (declare (not safe)) - (cons __tmp112358 __tmp112310)))) + (cons __tmp112620 __tmp112572)))) (declare (not safe)) - (cons __tmp112363 __tmp112309)))) + (cons __tmp112625 __tmp112571)))) (declare (not safe)) - (cons __tmp112367 __tmp112308)))) + (cons __tmp112629 __tmp112570)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112307 '())))) + (cons __tmp112569 '())))) (declare (not safe)) - (cons __tmp112368 __tmp112306)))) + (cons __tmp112630 __tmp112568)))) (declare (not safe)) - (cons __tmp112382 __tmp112305)))) + (cons __tmp112644 __tmp112567)))) (declare (not safe)) - (cons __tmp112304 '())))) + (cons __tmp112566 '())))) (declare (not safe)) - (cons __tmp112383 __tmp112303)))) + (cons __tmp112645 __tmp112565)))) (declare (not safe)) - (cons __tmp112386 __tmp112302)))) + (cons __tmp112648 __tmp112564)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112389 - __tmp112301))) - _hd9884498882_ - _hd9884198872_) - (_g9883398851_ _g9883498855_)))) - (_g9883398851_ _g9883498855_)))) - (_g9883398851_ _g9883498855_)))) - (_g9883398851_ _g9883498855_))))) - (_g9883298906_ _$stx98829_)))) + (cons __tmp112651 + __tmp112563))) + _hd9910699144_ + _hd9910399134_) + (_g9909599113_ _g9909699117_)))) + (_g9909599113_ _g9909699117_)))) + (_g9909599113_ _g9909699117_)))) + (_g9909599113_ _g9909699117_))))) + (_g9909499168_ _$stx99091_)))) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx98910_) - (let* ((_g9891498949_ - (lambda (_g9891598945_) + (lambda (_$stx99172_) + (let* ((_g9917699211_ + (lambda (_g9917799207_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9891598945_)))) - (_g9891399074_ - (lambda (_g9891598953_) + _g9917799207_)))) + (_g9917599336_ + (lambda (_g9917799215_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9891598953_)) - (let ((_e9892298956_ + (gx#stx-pair? _g9917799215_)) + (let ((_e9918499218_ (let () (declare (not safe)) - (gx#syntax-e _g9891598953_)))) - (let ((_hd9892198960_ + (gx#syntax-e _g9917799215_)))) + (let ((_hd9918399222_ (let () (declare (not safe)) - (##car _e9892298956_))) - (_tl9892098963_ + (##car _e9918499218_))) + (_tl9918299225_ (let () (declare (not safe)) - (##cdr _e9892298956_)))) + (##cdr _e9918499218_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9892098963_)) - (let ((_e9892598966_ + (gx#stx-pair? _tl9918299225_)) + (let ((_e9918799228_ (let () (declare (not safe)) - (gx#syntax-e _tl9892098963_)))) - (let ((_hd9892498970_ + (gx#syntax-e _tl9918299225_)))) + (let ((_hd9918699232_ (let () (declare (not safe)) - (##car _e9892598966_))) - (_tl9892398973_ + (##car _e9918799228_))) + (_tl9918599235_ (let () (declare (not safe)) - (##cdr _e9892598966_)))) + (##cdr _e9918799228_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9892498970_)) - (let ((_e9892898976_ + (gx#stx-pair? _hd9918699232_)) + (let ((_e9919099238_ (let () (declare (not safe)) - (gx#syntax-e _hd9892498970_)))) - (let ((_hd9892798980_ + (gx#syntax-e _hd9918699232_)))) + (let ((_hd9918999242_ (let () (declare (not safe)) - (##car _e9892898976_))) - (_tl9892698983_ + (##car _e9919099238_))) + (_tl9918899245_ (let () (declare (not safe)) - (##cdr _e9892898976_)))) + (##cdr _e9919099238_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9892698983_)) - (let ((_e9893198986_ + (gx#stx-pair? _tl9918899245_)) + (let ((_e9919399248_ (let () (declare (not safe)) (gx#syntax-e - _tl9892698983_)))) - (let ((_hd9893098990_ + _tl9918899245_)))) + (let ((_hd9919299252_ (let () (declare (not safe)) - (##car _e9893198986_))) - (_tl9892998993_ + (##car _e9919399248_))) + (_tl9919199255_ (let () (declare (not safe)) - (##cdr _e9893198986_)))) + (##cdr _e9919399248_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9892998993_)) - (let ((_e9893498996_ + _tl9919199255_)) + (let ((_e9919699258_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl9892998993_)))) - (let ((_hd9893399000_ - (let () (declare (not safe)) (##car _e9893498996_))) - (_tl9893299003_ - (let () (declare (not safe)) (##cdr _e9893498996_)))) + (gx#syntax-e _tl9919199255_)))) + (let ((_hd9919599262_ + (let () (declare (not safe)) (##car _e9919699258_))) + (_tl9919499265_ + (let () (declare (not safe)) (##cdr _e9919699258_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9893299003_)) + (gx#stx-null? _tl9919499265_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9892398973_)) - (let ((_g112390_ + (gx#stx-pair/null? _tl9918599235_)) + (let ((_g112652_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9892398973_ + _tl9918599235_ '0)))) (begin - (let ((_g112391_ + (let ((_g112653_ (let () (declare (not safe)) - (if (##values? _g112390_) - (##vector-length _g112390_) + (if (##values? _g112652_) + (##vector-length _g112652_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112391_ 2))) + (##fx= _g112653_ 2))) (error "Context expects 2 values" - _g112391_))) - (let ((_target9893599006_ + _g112653_))) + (let ((_target9919799268_ (let () (declare (not safe)) - (##vector-ref _g112390_ 0))) - (_tl9893799009_ + (##vector-ref _g112652_ 0))) + (_tl9919999271_ (let () (declare (not safe)) - (##vector-ref _g112390_ 1)))) + (##vector-ref _g112652_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9893799009_)) - (letrec ((_loop9893899012_ - (lambda (_hd9893699016_ - _body9894299019_) + (gx#stx-null? _tl9919999271_)) + (letrec ((_loop9920099274_ + (lambda (_hd9919899278_ + _body9920499281_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd9893699016_)) - (let ((_e9893999022_ + _hd9919899278_)) + (let ((_e9920199284_ (let () (declare (not safe)) (gx#syntax-e - _hd9893699016_)))) - (let ((_lp-hd9894099026_ + _hd9919899278_)))) + (let ((_lp-hd9920299288_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e9893999022_))) - (_lp-tl9894199029_ - (let () (declare (not safe)) (##cdr _e9893999022_)))) - (_loop9893899012_ - _lp-tl9894199029_ + (##car _e9920199284_))) + (_lp-tl9920399291_ + (let () (declare (not safe)) (##cdr _e9920199284_)))) + (_loop9920099274_ + _lp-tl9920399291_ (let () (declare (not safe)) - (cons _lp-hd9894099026_ _body9894299019_))))) + (cons _lp-hd9920299288_ _body9920499281_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body9894399032_ - (reverse _body9894299019_))) - ((lambda (_L99036_ - _L99038_ - _L99039_ - _L99040_) - (let ((__tmp112523 + (let ((_body9920599294_ + (reverse _body9920499281_))) + ((lambda (_L99298_ + _L99300_ + _L99301_ + _L99302_) + (let ((__tmp112785 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112392 - (let ((__tmp112522 + (__tmp112654 + (let ((__tmp112784 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp112393 - (let ((__tmp112508 - (let ((__tmp112519 - (let ((__tmp112521 + (__tmp112655 + (let ((__tmp112770 + (let ((__tmp112781 + (let ((__tmp112783 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112520 + (__tmp112782 (let () (declare (not safe)) - (cons _L99038_ '())))) + (cons _L99300_ '())))) (declare (not safe)) - (cons __tmp112521 __tmp112520))) - (__tmp112509 - (let ((__tmp112515 - (let ((__tmp112516 - (let ((__tmp112517 + (cons __tmp112783 __tmp112782))) + (__tmp112771 + (let ((__tmp112777 + (let ((__tmp112778 + (let ((__tmp112779 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112518 + (let ((__tmp112780 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp112518 '())))) + (cons __tmp112780 '())))) (declare (not safe)) - (cons __tmp112517 '())))) + (cons __tmp112779 '())))) (declare (not safe)) - (cons _L99040_ __tmp112516))) + (cons _L99302_ __tmp112778))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp112510 - (let ((__tmp112511 - (let ((__tmp112512 + (__tmp112772 + (let ((__tmp112773 + (let ((__tmp112774 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112513 - (let ((__tmp112514 + (let ((__tmp112775 + (let ((__tmp112776 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp112514 '())))) + (cons __tmp112776 '())))) (declare (not safe)) - (cons __tmp112513 '())))) + (cons __tmp112775 '())))) (declare (not safe)) - (cons _L99039_ __tmp112512)))) + (cons _L99301_ __tmp112774)))) (declare (not safe)) - (cons __tmp112511 '())))) + (cons __tmp112773 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112515 - __tmp112510)))) + (cons __tmp112777 + __tmp112772)))) (declare (not safe)) - (cons __tmp112519 __tmp112509))) - (__tmp112394 - (let ((__tmp112395 - (let ((__tmp112507 + (cons __tmp112781 __tmp112771))) + (__tmp112656 + (let ((__tmp112657 + (let ((__tmp112769 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'match))) - (__tmp112396 - (let ((__tmp112506 + (__tmp112658 + (let ((__tmp112768 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112397 - (let ((__tmp112403 + (__tmp112659 + (let ((__tmp112665 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112501 - (let ((__tmp112505 + (let ((__tmp112763 + (let ((__tmp112767 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp112502 - (let ((__tmp112504 + (__tmp112764 + (let ((__tmp112766 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp112503 + (__tmp112765 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp112504 __tmp112503)))) + (cons __tmp112766 __tmp112765)))) (declare (not safe)) - (cons __tmp112505 __tmp112502))) - (__tmp112404 - (let ((__tmp112405 - (let ((__tmp112500 + (cons __tmp112767 __tmp112764))) + (__tmp112666 + (let ((__tmp112667 + (let ((__tmp112762 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp112406 - (let ((__tmp112499 + (__tmp112668 + (let ((__tmp112761 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp112407 - (let ((__tmp112495 - (let ((__tmp112498 + (__tmp112669 + (let ((__tmp112757 + (let ((__tmp112760 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp112496 - (let ((__tmp112497 + (__tmp112758 + (let ((__tmp112759 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)))) (declare (not safe)) - (cons __tmp112497 '())))) + (cons __tmp112759 '())))) (declare (not safe)) - (cons __tmp112498 __tmp112496))) - (__tmp112408 - (let ((__tmp112475 - (let ((__tmp112491 - (let ((__tmp112494 + (cons __tmp112760 __tmp112758))) + (__tmp112670 + (let ((__tmp112737 + (let ((__tmp112753 + (let ((__tmp112756 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp112492 - (let ((__tmp112493 + (__tmp112754 + (let ((__tmp112755 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp112493 '())))) + (cons __tmp112755 '())))) (declare (not safe)) - (cons __tmp112494 __tmp112492))) - (__tmp112476 - (let ((__tmp112477 - (let ((__tmp112490 + (cons __tmp112756 __tmp112754))) + (__tmp112738 + (let ((__tmp112739 + (let ((__tmp112752 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp112478 - (let ((__tmp112489 + (__tmp112740 + (let ((__tmp112751 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112479 - (let ((__tmp112480 - (let ((__tmp112481 + (__tmp112741 + (let ((__tmp112742 + (let ((__tmp112743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp112488 + (let ((__tmp112750 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp112482 - (let ((__tmp112484 - (let ((__tmp112487 + (__tmp112744 + (let ((__tmp112746 + (let ((__tmp112749 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112485 - (let ((__tmp112486 + (__tmp112747 + (let ((__tmp112748 (let () (declare (not safe)) @@ -2195,459 +2195,459 @@ '#f 'e)))) (declare (not safe)) - (cons __tmp112486 '())))) + (cons __tmp112748 '())))) (declare (not safe)) - (cons __tmp112487 __tmp112485))) - (__tmp112483 + (cons __tmp112749 __tmp112747))) + (__tmp112745 (let () (declare (not safe)) - (cons _L99039_ '())))) + (cons _L99301_ '())))) (declare (not safe)) - (cons __tmp112484 __tmp112483)))) + (cons __tmp112746 __tmp112745)))) (declare (not safe)) - (cons __tmp112488 __tmp112482)))) + (cons __tmp112750 __tmp112744)))) (declare (not safe)) - (cons __tmp112481 '())))) + (cons __tmp112743 '())))) (declare (not safe)) - (cons _L99040_ __tmp112480)))) + (cons _L99302_ __tmp112742)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112489 - __tmp112479)))) + (cons __tmp112751 + __tmp112741)))) (declare (not safe)) - (cons __tmp112490 __tmp112478)))) + (cons __tmp112752 __tmp112740)))) (declare (not safe)) - (cons __tmp112477 '())))) + (cons __tmp112739 '())))) (declare (not safe)) - (cons __tmp112491 __tmp112476))) - (__tmp112409 - (let ((__tmp112455 - (let ((__tmp112471 - (let ((__tmp112474 + (cons __tmp112753 __tmp112738))) + (__tmp112671 + (let ((__tmp112717 + (let ((__tmp112733 + (let ((__tmp112736 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp112472 - (let ((__tmp112473 + (__tmp112734 + (let ((__tmp112735 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp112473 '())))) + (cons __tmp112735 '())))) (declare (not safe)) - (cons __tmp112474 __tmp112472))) - (__tmp112456 - (let ((__tmp112457 - (let ((__tmp112470 + (cons __tmp112736 __tmp112734))) + (__tmp112718 + (let ((__tmp112719 + (let ((__tmp112732 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp112458 - (let ((__tmp112469 + (__tmp112720 + (let ((__tmp112731 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112459 - (let ((__tmp112460 - (let ((__tmp112461 - (let ((__tmp112468 + (__tmp112721 + (let ((__tmp112722 + (let ((__tmp112723 + (let ((__tmp112730 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp112462 - (let ((__tmp112464 - (let ((__tmp112467 + (__tmp112724 + (let ((__tmp112726 + (let ((__tmp112729 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112465 - (let ((__tmp112466 + (__tmp112727 + (let ((__tmp112728 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp112466 '())))) + (cons __tmp112728 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112467 - __tmp112465))) - (__tmp112463 + (cons __tmp112729 + __tmp112727))) + (__tmp112725 (let () (declare (not safe)) - (cons _L99039_ '())))) + (cons _L99301_ '())))) (declare (not safe)) - (cons __tmp112464 __tmp112463)))) + (cons __tmp112726 __tmp112725)))) (declare (not safe)) - (cons __tmp112468 __tmp112462)))) + (cons __tmp112730 __tmp112724)))) (declare (not safe)) - (cons __tmp112461 '())))) + (cons __tmp112723 '())))) (declare (not safe)) - (cons _L99040_ __tmp112460)))) + (cons _L99302_ __tmp112722)))) (declare (not safe)) - (cons __tmp112469 __tmp112459)))) + (cons __tmp112731 __tmp112721)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112470 - __tmp112458)))) + (cons __tmp112732 + __tmp112720)))) (declare (not safe)) - (cons __tmp112457 '())))) + (cons __tmp112719 '())))) (declare (not safe)) - (cons __tmp112471 __tmp112456))) - (__tmp112410 - (let ((__tmp112411 - (let ((__tmp112454 + (cons __tmp112733 __tmp112718))) + (__tmp112672 + (let ((__tmp112673 + (let ((__tmp112716 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_))) - (__tmp112412 - (let ((__tmp112413 - (let ((__tmp112453 + (__tmp112674 + (let ((__tmp112675 + (let ((__tmp112715 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp112414 - (let ((__tmp112440 - (let ((__tmp112452 + (__tmp112676 + (let ((__tmp112702 + (let ((__tmp112714 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp112441 - (let ((__tmp112442 - (let ((__tmp112451 + (__tmp112703 + (let ((__tmp112704 + (let ((__tmp112713 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-symbol))) - (__tmp112443 - (let ((__tmp112444 - (let ((__tmp112450 + (__tmp112705 + (let ((__tmp112706 + (let ((__tmp112712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gensym))) - (__tmp112445 - (let ((__tmp112446 - (let ((__tmp112449 + (__tmp112707 + (let ((__tmp112708 + (let ((__tmp112711 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp112447 - (let ((__tmp112448 + (__tmp112709 + (let ((__tmp112710 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '__tmp)))) (declare (not safe)) - (cons __tmp112448 '())))) + (cons __tmp112710 '())))) (declare (not safe)) - (cons __tmp112449 __tmp112447)))) + (cons __tmp112711 __tmp112709)))) (declare (not safe)) - (cons __tmp112446 '())))) + (cons __tmp112708 '())))) (declare (not safe)) - (cons __tmp112450 __tmp112445)))) + (cons __tmp112712 __tmp112707)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112444 '())))) + (cons __tmp112706 '())))) (declare (not safe)) - (cons __tmp112451 __tmp112443)))) + (cons __tmp112713 __tmp112705)))) (declare (not safe)) - (cons __tmp112442 '())))) + (cons __tmp112704 '())))) (declare (not safe)) - (cons __tmp112452 __tmp112441))) - (__tmp112415 - (let ((__tmp112416 - (let ((__tmp112439 + (cons __tmp112714 __tmp112703))) + (__tmp112677 + (let ((__tmp112678 + (let ((__tmp112701 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp112417 - (let ((__tmp112438 + (__tmp112679 + (let ((__tmp112700 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp112418 - (let ((__tmp112425 - (let ((__tmp112437 + (__tmp112680 + (let ((__tmp112687 + (let ((__tmp112699 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp112426 - (let ((__tmp112428 - (let ((__tmp112436 + (__tmp112688 + (let ((__tmp112690 + (let ((__tmp112698 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp112429 - (let ((__tmp112435 + (__tmp112691 + (let ((__tmp112697 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp112430 - (let ((__tmp112431 - (let ((__tmp112434 + (__tmp112692 + (let ((__tmp112693 + (let ((__tmp112696 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp112432 - (let ((__tmp112433 + (__tmp112694 + (let ((__tmp112695 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp112433 '())))) + (cons __tmp112695 '())))) (declare (not safe)) - (cons __tmp112434 __tmp112432)))) + (cons __tmp112696 __tmp112694)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112431 '())))) + (cons __tmp112693 '())))) (declare (not safe)) - (cons __tmp112435 __tmp112430)))) + (cons __tmp112697 __tmp112692)))) (declare (not safe)) - (cons __tmp112436 __tmp112429))) - (__tmp112427 + (cons __tmp112698 __tmp112691))) + (__tmp112689 (let () (declare (not safe)) - (cons _L99040_ '())))) + (cons _L99302_ '())))) (declare (not safe)) - (cons __tmp112428 __tmp112427)))) + (cons __tmp112690 __tmp112689)))) (declare (not safe)) - (cons __tmp112437 __tmp112426))) - (__tmp112419 - (let ((__tmp112420 - (let ((__tmp112424 + (cons __tmp112699 __tmp112688))) + (__tmp112681 + (let ((__tmp112682 + (let ((__tmp112686 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp112421 - (let ((__tmp112423 + (__tmp112683 + (let ((__tmp112685 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp112422 + (__tmp112684 (let () (declare (not safe)) - (cons _L99039_ '())))) + (cons _L99301_ '())))) (declare (not safe)) - (cons __tmp112423 __tmp112422)))) + (cons __tmp112685 __tmp112684)))) (declare (not safe)) - (cons __tmp112424 __tmp112421)))) + (cons __tmp112686 __tmp112683)))) (declare (not safe)) - (cons __tmp112420 '())))) + (cons __tmp112682 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112425 - __tmp112419)))) + (cons __tmp112687 + __tmp112681)))) (declare (not safe)) - (cons __tmp112438 __tmp112418)))) + (cons __tmp112700 __tmp112680)))) (declare (not safe)) - (cons __tmp112439 __tmp112417)))) + (cons __tmp112701 __tmp112679)))) (declare (not safe)) - (cons __tmp112416 '())))) + (cons __tmp112678 '())))) (declare (not safe)) - (cons __tmp112440 __tmp112415)))) + (cons __tmp112702 __tmp112677)))) (declare (not safe)) - (cons __tmp112453 __tmp112414)))) + (cons __tmp112715 __tmp112676)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112413 '())))) + (cons __tmp112675 '())))) (declare (not safe)) - (cons __tmp112454 __tmp112412)))) + (cons __tmp112716 __tmp112674)))) (declare (not safe)) - (cons __tmp112411 '())))) + (cons __tmp112673 '())))) (declare (not safe)) - (cons __tmp112455 __tmp112410)))) + (cons __tmp112717 __tmp112672)))) (declare (not safe)) - (cons __tmp112475 __tmp112409)))) + (cons __tmp112737 __tmp112671)))) (declare (not safe)) - (cons __tmp112495 __tmp112408)))) + (cons __tmp112757 __tmp112670)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112499 - __tmp112407)))) + (cons __tmp112761 + __tmp112669)))) (declare (not safe)) - (cons __tmp112500 __tmp112406)))) + (cons __tmp112762 __tmp112668)))) (declare (not safe)) - (cons __tmp112405 '())))) + (cons __tmp112667 '())))) (declare (not safe)) - (cons __tmp112501 __tmp112404))) - (__tmp112398 - (let ((__tmp112399 - (let ((__tmp112402 + (cons __tmp112763 __tmp112666))) + (__tmp112660 + (let ((__tmp112661 + (let ((__tmp112664 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp112400 - (let ((__tmp112401 - (lambda (_g9906599068_ - _g9906699071_) + (__tmp112662 + (let ((__tmp112663 + (lambda (_g9932799330_ + _g9932899333_) (let () (declare (not safe)) - (cons _g9906599068_ - _g9906699071_))))) + (cons _g9932799330_ + _g9932899333_))))) (declare (not safe)) - (foldr1 __tmp112401 '() _L99036_)))) + (foldr1 __tmp112663 '() _L99298_)))) (declare (not safe)) - (cons __tmp112402 __tmp112400)))) + (cons __tmp112664 __tmp112662)))) (declare (not safe)) - (cons __tmp112399 '())))) + (cons __tmp112661 '())))) (declare (not safe)) - (cons __tmp112403 __tmp112398)))) + (cons __tmp112665 __tmp112660)))) (declare (not safe)) - (cons __tmp112506 __tmp112397)))) + (cons __tmp112768 __tmp112659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112507 - __tmp112396)))) + (cons __tmp112769 + __tmp112658)))) (declare (not safe)) - (cons __tmp112395 '())))) + (cons __tmp112657 '())))) (declare (not safe)) - (cons __tmp112508 __tmp112394)))) + (cons __tmp112770 __tmp112656)))) (declare (not safe)) - (cons __tmp112522 __tmp112393)))) + (cons __tmp112784 __tmp112655)))) (declare (not safe)) - (cons __tmp112523 __tmp112392))) - _body9894399032_ - _hd9893399000_ - _hd9893098990_ - _hd9892798980_)))))) + (cons __tmp112785 __tmp112654))) + _body9920599294_ + _hd9919599262_ + _hd9919299252_ + _hd9918999242_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9893899012_ - _target9893599006_ + (_loop9920099274_ + _target9919799268_ '())) - (_g9891498949_ _g9891598953_))))) - (_g9891498949_ _g9891598953_)) - (_g9891498949_ _g9891598953_)))) - (_g9891498949_ _g9891598953_)))) + (_g9917699211_ _g9917799215_))))) + (_g9917699211_ _g9917799215_)) + (_g9917699211_ _g9917799215_)))) + (_g9917699211_ _g9917799215_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9891498949_ _g9891598953_)))) - (_g9891498949_ _g9891598953_)))) - (_g9891498949_ _g9891598953_)))) - (_g9891498949_ _g9891598953_))))) - (_g9891399074_ _$stx98910_)))) + (_g9917699211_ _g9917799215_)))) + (_g9917699211_ _g9917799215_)))) + (_g9917699211_ _g9917799215_)))) + (_g9917699211_ _g9917799215_))))) + (_g9917599336_ _$stx99172_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx99079_) - (let* ((_g9908399101_ - (lambda (_g9908499097_) + (lambda (_$stx99341_) + (let* ((_g9934599363_ + (lambda (_g9934699359_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9908499097_)))) - (_g9908299156_ - (lambda (_g9908499105_) + _g9934699359_)))) + (_g9934499418_ + (lambda (_g9934699367_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9908499105_)) - (let ((_e9908999108_ + (gx#stx-pair? _g9934699367_)) + (let ((_e9935199370_ (let () (declare (not safe)) - (gx#syntax-e _g9908499105_)))) - (let ((_hd9908899112_ + (gx#syntax-e _g9934699367_)))) + (let ((_hd9935099374_ (let () (declare (not safe)) - (##car _e9908999108_))) - (_tl9908799115_ + (##car _e9935199370_))) + (_tl9934999377_ (let () (declare (not safe)) - (##cdr _e9908999108_)))) + (##cdr _e9935199370_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9908799115_)) - (let ((_e9909299118_ + (gx#stx-pair? _tl9934999377_)) + (let ((_e9935499380_ (let () (declare (not safe)) - (gx#syntax-e _tl9908799115_)))) - (let ((_hd9909199122_ + (gx#syntax-e _tl9934999377_)))) + (let ((_hd9935399384_ (let () (declare (not safe)) - (##car _e9909299118_))) - (_tl9909099125_ + (##car _e9935499380_))) + (_tl9935299387_ (let () (declare (not safe)) - (##cdr _e9909299118_)))) + (##cdr _e9935499380_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9909099125_)) - (let ((_e9909599128_ + (gx#stx-pair? _tl9935299387_)) + (let ((_e9935799390_ (let () (declare (not safe)) - (gx#syntax-e _tl9909099125_)))) - (let ((_hd9909499132_ + (gx#syntax-e _tl9935299387_)))) + (let ((_hd9935699394_ (let () (declare (not safe)) - (##car _e9909599128_))) - (_tl9909399135_ + (##car _e9935799390_))) + (_tl9935599397_ (let () (declare (not safe)) - (##cdr _e9909599128_)))) + (##cdr _e9935799390_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9909399135_)) - ((lambda (_L99138_ _L99140_) - (let ((__tmp112539 + (gx#stx-null? _tl9935599397_)) + ((lambda (_L99400_ _L99402_) + (let ((__tmp112801 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond-expand))) - (__tmp112524 - (let ((__tmp112536 - (let ((__tmp112538 + (__tmp112786 + (let ((__tmp112798 + (let ((__tmp112800 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives))) - (__tmp112537 + (__tmp112799 (let () (declare (not safe)) - (cons _L99140_ '())))) + (cons _L99402_ '())))) (declare (not safe)) - (cons __tmp112538 __tmp112537))) - (__tmp112525 - (let ((__tmp112526 - (let ((__tmp112535 + (cons __tmp112800 __tmp112799))) + (__tmp112787 + (let ((__tmp112788 + (let ((__tmp112797 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp112527 - (let ((__tmp112528 - (let ((__tmp112534 + (__tmp112789 + (let ((__tmp112790 + (let ((__tmp112796 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp112529 - (let ((__tmp112532 - (let ((__tmp112533 + (__tmp112791 + (let ((__tmp112794 + (let ((__tmp112795 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2655,39 +2655,39 @@ '#f 'current-compile-decls-unsafe?)))) (declare (not safe)) - (cons __tmp112533 '()))) - (__tmp112530 - (let ((__tmp112531 - (let () (declare (not safe)) (cons _L99138_ '())))) + (cons __tmp112795 '()))) + (__tmp112792 + (let ((__tmp112793 + (let () (declare (not safe)) (cons _L99400_ '())))) (declare (not safe)) - (cons _L99140_ __tmp112531)))) + (cons _L99402_ __tmp112793)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112532 - __tmp112530)))) + (cons __tmp112794 + __tmp112792)))) (declare (not safe)) - (cons __tmp112534 __tmp112529)))) + (cons __tmp112796 __tmp112791)))) (declare (not safe)) - (cons __tmp112528 '())))) + (cons __tmp112790 '())))) (declare (not safe)) - (cons __tmp112535 __tmp112527)))) + (cons __tmp112797 __tmp112789)))) (declare (not safe)) - (cons __tmp112526 '())))) + (cons __tmp112788 '())))) (declare (not safe)) - (cons __tmp112536 __tmp112525)))) + (cons __tmp112798 __tmp112787)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp112539 - __tmp112524))) - _hd9909499132_ - _hd9909199122_) - (_g9908399101_ _g9908499105_)))) - (_g9908399101_ _g9908499105_)))) - (_g9908399101_ _g9908499105_)))) - (_g9908399101_ _g9908499105_))))) - (_g9908299156_ _$stx99079_)))) + (cons __tmp112801 + __tmp112786))) + _hd9935699394_ + _hd9935399384_) + (_g9934599363_ _g9934699367_)))) + (_g9934599363_ _g9934699367_)))) + (_g9934599363_ _g9934699367_)))) + (_g9934599363_ _g9934699367_))))) + (_g9934499418_ _$stx99341_)))) (define |gxc[:0:]#meta-state| - (let ((__obj111299 + (let ((__obj111561 (let () (declare (not safe)) (##structure @@ -2710,7 +2710,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111299 + __obj111561 'gxc#meta-state::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2718,7 +2718,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111299 + __obj111561 'meta-state '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2726,7 +2726,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111299 + __obj111561 '(src n open blocks) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2734,7 +2734,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111299 + __obj111561 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2742,7 +2742,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111299 + __obj111561 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2750,7 +2750,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111299 + __obj111561 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2758,7 +2758,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111299 + __obj111561 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2766,182 +2766,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111299 + __obj111561 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112540 |gxc[1]#_g112541_|)) + (let ((__tmp112802 |gxc[1]#_g112803_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111299 - __tmp112540 + __obj111561 + __tmp112802 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112542 |gxc[1]#_g112543_|)) + (let ((__tmp112804 |gxc[1]#_g112805_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111299 - __tmp112542 + __obj111561 + __tmp112804 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112544 |gxc[1]#_g112545_|)) + (let ((__tmp112806 |gxc[1]#_g112807_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111299 - __tmp112544 + __obj111561 + __tmp112806 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112546 - (let ((__tmp112559 - (let ((__tmp112560 |gxc[1]#_g112561_|)) + (let ((__tmp112808 + (let ((__tmp112821 + (let ((__tmp112822 |gxc[1]#_g112823_|)) (declare (not safe)) - (cons 'src __tmp112560))) - (__tmp112547 - (let ((__tmp112556 - (let ((__tmp112557 |gxc[1]#_g112558_|)) + (cons 'src __tmp112822))) + (__tmp112809 + (let ((__tmp112818 + (let ((__tmp112819 |gxc[1]#_g112820_|)) (declare (not safe)) - (cons 'n __tmp112557))) - (__tmp112548 - (let ((__tmp112553 - (let ((__tmp112554 |gxc[1]#_g112555_|)) + (cons 'n __tmp112819))) + (__tmp112810 + (let ((__tmp112815 + (let ((__tmp112816 |gxc[1]#_g112817_|)) (declare (not safe)) - (cons 'open __tmp112554))) - (__tmp112549 - (let ((__tmp112550 - (let ((__tmp112551 - |gxc[1]#_g112552_|)) + (cons 'open __tmp112816))) + (__tmp112811 + (let ((__tmp112812 + (let ((__tmp112813 + |gxc[1]#_g112814_|)) (declare (not safe)) - (cons 'blocks __tmp112551)))) + (cons 'blocks __tmp112813)))) (declare (not safe)) - (cons __tmp112550 '())))) + (cons __tmp112812 '())))) (declare (not safe)) - (cons __tmp112553 __tmp112549)))) + (cons __tmp112815 __tmp112811)))) (declare (not safe)) - (cons __tmp112556 __tmp112548)))) + (cons __tmp112818 __tmp112810)))) (declare (not safe)) - (cons __tmp112559 __tmp112547)))) + (cons __tmp112821 __tmp112809)))) (declare (not safe)) (##unchecked-structure-set! - __obj111299 - __tmp112546 + __obj111561 + __tmp112808 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112562 - (let ((__tmp112575 - (let ((__tmp112576 |gxc[1]#_g112577_|)) + (let ((__tmp112824 + (let ((__tmp112837 + (let ((__tmp112838 |gxc[1]#_g112839_|)) (declare (not safe)) - (cons 'src __tmp112576))) - (__tmp112563 - (let ((__tmp112572 - (let ((__tmp112573 |gxc[1]#_g112574_|)) + (cons 'src __tmp112838))) + (__tmp112825 + (let ((__tmp112834 + (let ((__tmp112835 |gxc[1]#_g112836_|)) (declare (not safe)) - (cons 'n __tmp112573))) - (__tmp112564 - (let ((__tmp112569 - (let ((__tmp112570 |gxc[1]#_g112571_|)) + (cons 'n __tmp112835))) + (__tmp112826 + (let ((__tmp112831 + (let ((__tmp112832 |gxc[1]#_g112833_|)) (declare (not safe)) - (cons 'open __tmp112570))) - (__tmp112565 - (let ((__tmp112566 - (let ((__tmp112567 - |gxc[1]#_g112568_|)) + (cons 'open __tmp112832))) + (__tmp112827 + (let ((__tmp112828 + (let ((__tmp112829 + |gxc[1]#_g112830_|)) (declare (not safe)) - (cons 'blocks __tmp112567)))) + (cons 'blocks __tmp112829)))) (declare (not safe)) - (cons __tmp112566 '())))) + (cons __tmp112828 '())))) (declare (not safe)) - (cons __tmp112569 __tmp112565)))) + (cons __tmp112831 __tmp112827)))) (declare (not safe)) - (cons __tmp112572 __tmp112564)))) + (cons __tmp112834 __tmp112826)))) (declare (not safe)) - (cons __tmp112575 __tmp112563)))) + (cons __tmp112837 __tmp112825)))) (declare (not safe)) (##unchecked-structure-set! - __obj111299 - __tmp112562 + __obj111561 + __tmp112824 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112578 - (let ((__tmp112591 - (let ((__tmp112592 |gxc[1]#_g112593_|)) + (let ((__tmp112840 + (let ((__tmp112853 + (let ((__tmp112854 |gxc[1]#_g112855_|)) (declare (not safe)) - (cons 'src __tmp112592))) - (__tmp112579 - (let ((__tmp112588 - (let ((__tmp112589 |gxc[1]#_g112590_|)) + (cons 'src __tmp112854))) + (__tmp112841 + (let ((__tmp112850 + (let ((__tmp112851 |gxc[1]#_g112852_|)) (declare (not safe)) - (cons 'n __tmp112589))) - (__tmp112580 - (let ((__tmp112585 - (let ((__tmp112586 |gxc[1]#_g112587_|)) + (cons 'n __tmp112851))) + (__tmp112842 + (let ((__tmp112847 + (let ((__tmp112848 |gxc[1]#_g112849_|)) (declare (not safe)) - (cons 'open __tmp112586))) - (__tmp112581 - (let ((__tmp112582 - (let ((__tmp112583 - |gxc[1]#_g112584_|)) + (cons 'open __tmp112848))) + (__tmp112843 + (let ((__tmp112844 + (let ((__tmp112845 + |gxc[1]#_g112846_|)) (declare (not safe)) - (cons 'blocks __tmp112583)))) + (cons 'blocks __tmp112845)))) (declare (not safe)) - (cons __tmp112582 '())))) + (cons __tmp112844 '())))) (declare (not safe)) - (cons __tmp112585 __tmp112581)))) + (cons __tmp112847 __tmp112843)))) (declare (not safe)) - (cons __tmp112588 __tmp112580)))) + (cons __tmp112850 __tmp112842)))) (declare (not safe)) - (cons __tmp112591 __tmp112579)))) + (cons __tmp112853 __tmp112841)))) (declare (not safe)) (##unchecked-structure-set! - __obj111299 - __tmp112578 + __obj111561 + __tmp112840 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112594 - (let ((__tmp112607 - (let ((__tmp112608 |gxc[1]#_g112609_|)) + (let ((__tmp112856 + (let ((__tmp112869 + (let ((__tmp112870 |gxc[1]#_g112871_|)) (declare (not safe)) - (cons 'src __tmp112608))) - (__tmp112595 - (let ((__tmp112604 - (let ((__tmp112605 |gxc[1]#_g112606_|)) + (cons 'src __tmp112870))) + (__tmp112857 + (let ((__tmp112866 + (let ((__tmp112867 |gxc[1]#_g112868_|)) (declare (not safe)) - (cons 'n __tmp112605))) - (__tmp112596 - (let ((__tmp112601 - (let ((__tmp112602 |gxc[1]#_g112603_|)) + (cons 'n __tmp112867))) + (__tmp112858 + (let ((__tmp112863 + (let ((__tmp112864 |gxc[1]#_g112865_|)) (declare (not safe)) - (cons 'open __tmp112602))) - (__tmp112597 - (let ((__tmp112598 - (let ((__tmp112599 - |gxc[1]#_g112600_|)) + (cons 'open __tmp112864))) + (__tmp112859 + (let ((__tmp112860 + (let ((__tmp112861 + |gxc[1]#_g112862_|)) (declare (not safe)) - (cons 'blocks __tmp112599)))) + (cons 'blocks __tmp112861)))) (declare (not safe)) - (cons __tmp112598 '())))) + (cons __tmp112860 '())))) (declare (not safe)) - (cons __tmp112601 __tmp112597)))) + (cons __tmp112863 __tmp112859)))) (declare (not safe)) - (cons __tmp112604 __tmp112596)))) + (cons __tmp112866 __tmp112858)))) (declare (not safe)) - (cons __tmp112607 __tmp112595)))) + (cons __tmp112869 __tmp112857)))) (declare (not safe)) (##unchecked-structure-set! - __obj111299 - __tmp112594 + __obj111561 + __tmp112856 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj111299)) + __obj111561)) (define |gxc[:0:]#meta-state-block| - (let ((__obj111300 + (let ((__obj111562 (let () (declare (not safe)) (##structure @@ -2964,7 +2964,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111300 + __obj111562 'gxc#meta-state-block::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2972,7 +2972,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111300 + __obj111562 'meta-state-block '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2980,7 +2980,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111300 + __obj111562 '(ctx phi n code) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2988,7 +2988,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111300 + __obj111562 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2996,7 +2996,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111300 + __obj111562 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3004,7 +3004,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111300 + __obj111562 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3012,7 +3012,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111300 + __obj111562 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3020,177 +3020,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111300 + __obj111562 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112610 |gxc[1]#_g112611_|)) + (let ((__tmp112872 |gxc[1]#_g112873_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111300 - __tmp112610 + __obj111562 + __tmp112872 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112612 |gxc[1]#_g112613_|)) + (let ((__tmp112874 |gxc[1]#_g112875_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111300 - __tmp112612 + __obj111562 + __tmp112874 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112614 |gxc[1]#_g112615_|)) + (let ((__tmp112876 |gxc[1]#_g112877_|)) (declare (not safe)) (##unchecked-structure-set! - __obj111300 - __tmp112614 + __obj111562 + __tmp112876 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112616 - (let ((__tmp112629 - (let ((__tmp112630 |gxc[1]#_g112631_|)) + (let ((__tmp112878 + (let ((__tmp112891 + (let ((__tmp112892 |gxc[1]#_g112893_|)) (declare (not safe)) - (cons 'ctx __tmp112630))) - (__tmp112617 - (let ((__tmp112626 - (let ((__tmp112627 |gxc[1]#_g112628_|)) + (cons 'ctx __tmp112892))) + (__tmp112879 + (let ((__tmp112888 + (let ((__tmp112889 |gxc[1]#_g112890_|)) (declare (not safe)) - (cons 'phi __tmp112627))) - (__tmp112618 - (let ((__tmp112623 - (let ((__tmp112624 |gxc[1]#_g112625_|)) + (cons 'phi __tmp112889))) + (__tmp112880 + (let ((__tmp112885 + (let ((__tmp112886 |gxc[1]#_g112887_|)) (declare (not safe)) - (cons 'n __tmp112624))) - (__tmp112619 - (let ((__tmp112620 - (let ((__tmp112621 - |gxc[1]#_g112622_|)) + (cons 'n __tmp112886))) + (__tmp112881 + (let ((__tmp112882 + (let ((__tmp112883 + |gxc[1]#_g112884_|)) (declare (not safe)) - (cons 'code __tmp112621)))) + (cons 'code __tmp112883)))) (declare (not safe)) - (cons __tmp112620 '())))) + (cons __tmp112882 '())))) (declare (not safe)) - (cons __tmp112623 __tmp112619)))) + (cons __tmp112885 __tmp112881)))) (declare (not safe)) - (cons __tmp112626 __tmp112618)))) + (cons __tmp112888 __tmp112880)))) (declare (not safe)) - (cons __tmp112629 __tmp112617)))) + (cons __tmp112891 __tmp112879)))) (declare (not safe)) (##unchecked-structure-set! - __obj111300 - __tmp112616 + __obj111562 + __tmp112878 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112632 - (let ((__tmp112645 - (let ((__tmp112646 |gxc[1]#_g112647_|)) + (let ((__tmp112894 + (let ((__tmp112907 + (let ((__tmp112908 |gxc[1]#_g112909_|)) (declare (not safe)) - (cons 'ctx __tmp112646))) - (__tmp112633 - (let ((__tmp112642 - (let ((__tmp112643 |gxc[1]#_g112644_|)) + (cons 'ctx __tmp112908))) + (__tmp112895 + (let ((__tmp112904 + (let ((__tmp112905 |gxc[1]#_g112906_|)) (declare (not safe)) - (cons 'phi __tmp112643))) - (__tmp112634 - (let ((__tmp112639 - (let ((__tmp112640 |gxc[1]#_g112641_|)) + (cons 'phi __tmp112905))) + (__tmp112896 + (let ((__tmp112901 + (let ((__tmp112902 |gxc[1]#_g112903_|)) (declare (not safe)) - (cons 'n __tmp112640))) - (__tmp112635 - (let ((__tmp112636 - (let ((__tmp112637 - |gxc[1]#_g112638_|)) + (cons 'n __tmp112902))) + (__tmp112897 + (let ((__tmp112898 + (let ((__tmp112899 + |gxc[1]#_g112900_|)) (declare (not safe)) - (cons 'code __tmp112637)))) + (cons 'code __tmp112899)))) (declare (not safe)) - (cons __tmp112636 '())))) + (cons __tmp112898 '())))) (declare (not safe)) - (cons __tmp112639 __tmp112635)))) + (cons __tmp112901 __tmp112897)))) (declare (not safe)) - (cons __tmp112642 __tmp112634)))) + (cons __tmp112904 __tmp112896)))) (declare (not safe)) - (cons __tmp112645 __tmp112633)))) + (cons __tmp112907 __tmp112895)))) (declare (not safe)) (##unchecked-structure-set! - __obj111300 - __tmp112632 + __obj111562 + __tmp112894 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112648 - (let ((__tmp112661 - (let ((__tmp112662 |gxc[1]#_g112663_|)) + (let ((__tmp112910 + (let ((__tmp112923 + (let ((__tmp112924 |gxc[1]#_g112925_|)) (declare (not safe)) - (cons 'ctx __tmp112662))) - (__tmp112649 - (let ((__tmp112658 - (let ((__tmp112659 |gxc[1]#_g112660_|)) + (cons 'ctx __tmp112924))) + (__tmp112911 + (let ((__tmp112920 + (let ((__tmp112921 |gxc[1]#_g112922_|)) (declare (not safe)) - (cons 'phi __tmp112659))) - (__tmp112650 - (let ((__tmp112655 - (let ((__tmp112656 |gxc[1]#_g112657_|)) + (cons 'phi __tmp112921))) + (__tmp112912 + (let ((__tmp112917 + (let ((__tmp112918 |gxc[1]#_g112919_|)) (declare (not safe)) - (cons 'n __tmp112656))) - (__tmp112651 - (let ((__tmp112652 - (let ((__tmp112653 - |gxc[1]#_g112654_|)) + (cons 'n __tmp112918))) + (__tmp112913 + (let ((__tmp112914 + (let ((__tmp112915 + |gxc[1]#_g112916_|)) (declare (not safe)) - (cons 'code __tmp112653)))) + (cons 'code __tmp112915)))) (declare (not safe)) - (cons __tmp112652 '())))) + (cons __tmp112914 '())))) (declare (not safe)) - (cons __tmp112655 __tmp112651)))) + (cons __tmp112917 __tmp112913)))) (declare (not safe)) - (cons __tmp112658 __tmp112650)))) + (cons __tmp112920 __tmp112912)))) (declare (not safe)) - (cons __tmp112661 __tmp112649)))) + (cons __tmp112923 __tmp112911)))) (declare (not safe)) (##unchecked-structure-set! - __obj111300 - __tmp112648 + __obj111562 + __tmp112910 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp112664 - (let ((__tmp112677 - (let ((__tmp112678 |gxc[1]#_g112679_|)) + (let ((__tmp112926 + (let ((__tmp112939 + (let ((__tmp112940 |gxc[1]#_g112941_|)) (declare (not safe)) - (cons 'ctx __tmp112678))) - (__tmp112665 - (let ((__tmp112674 - (let ((__tmp112675 |gxc[1]#_g112676_|)) + (cons 'ctx __tmp112940))) + (__tmp112927 + (let ((__tmp112936 + (let ((__tmp112937 |gxc[1]#_g112938_|)) (declare (not safe)) - (cons 'phi __tmp112675))) - (__tmp112666 - (let ((__tmp112671 - (let ((__tmp112672 |gxc[1]#_g112673_|)) + (cons 'phi __tmp112937))) + (__tmp112928 + (let ((__tmp112933 + (let ((__tmp112934 |gxc[1]#_g112935_|)) (declare (not safe)) - (cons 'n __tmp112672))) - (__tmp112667 - (let ((__tmp112668 - (let ((__tmp112669 - |gxc[1]#_g112670_|)) + (cons 'n __tmp112934))) + (__tmp112929 + (let ((__tmp112930 + (let ((__tmp112931 + |gxc[1]#_g112932_|)) (declare (not safe)) - (cons 'code __tmp112669)))) + (cons 'code __tmp112931)))) (declare (not safe)) - (cons __tmp112668 '())))) + (cons __tmp112930 '())))) (declare (not safe)) - (cons __tmp112671 __tmp112667)))) + (cons __tmp112933 __tmp112929)))) (declare (not safe)) - (cons __tmp112674 __tmp112666)))) + (cons __tmp112936 __tmp112928)))) (declare (not safe)) - (cons __tmp112677 __tmp112665)))) + (cons __tmp112939 __tmp112927)))) (declare (not safe)) (##unchecked-structure-set! - __obj111300 - __tmp112664 + __obj111562 + __tmp112926 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj111300)))) + __obj111562)))) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index f2ddaea5..32803986 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 1709375803) + (define gerbil/compiler/driver::timestamp 1709457374) (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 (_path158017_ _fun158018_) + (lambda (_path158279_ _fun158280_) (with-output-to-file - (let ((__tmp158111 + (let ((__tmp158373 (let () (declare (not safe)) - (cons _path158017_ gxc#scheme-file-settings)))) + (cons _path158279_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp158111)) - _fun158018_))) + (cons 'path: __tmp158373)) + _fun158280_))) (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-libdir158012_) - (string-append '"-Wl,-rpath=" _gerbil-libdir158012_))) + (lambda (_gerbil-libdir158274_) + (string-append '"-Wl,-rpath=" _gerbil-libdir158274_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -68,500 +68,500 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_dir158010_) (delete-file-or-directory _dir158010_ '#t))) + (lambda (_dir158272_) (delete-file-or-directory _dir158272_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath157984_ _opts157985_) - (if (let () (declare (not safe)) (string? _srcpath157984_)) + (lambda (_srcpath158246_ _opts158247_) + (if (let () (declare (not safe)) (string? _srcpath158246_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath157984_))) - (let ((_outdir157987_ + _srcpath158246_))) + (let ((_outdir158249_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts157985_))) - (_invoke-gsc?157988_ + (pgetq__0 'output-dir: _opts158247_))) + (_invoke-gsc?158250_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts157985_))) - (_gsc-options157989_ + (pgetq__0 'invoke-gsc: _opts158247_))) + (_gsc-options158251_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157985_))) - (_keep-scm?157990_ + (pgetq__0 'gsc-options: _opts158247_))) + (_keep-scm?158252_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts157985_))) - (_verbosity157991_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts157985_))) - (_optimize157992_ + (pgetq__0 'keep-scm: _opts158247_))) + (_verbosity158253_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts158247_))) + (_optimize158254_ (let () (declare (not safe)) - (pgetq__0 'optimize: _opts157985_))) - (_debug157993_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts157985_))) - (_gen-ssxi157994_ + (pgetq__0 'optimize: _opts158247_))) + (_debug158255_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts158247_))) + (_gen-ssxi158256_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _opts157985_)))) - (if _outdir157987_ - (let ((__tmp158112 + (pgetq__0 'generate-ssxi: _opts158247_)))) + (if _outdir158249_ + (let ((__tmp158374 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir157987_))))) + (create-directory*__0 _outdir158249_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158112)) + (with-lock gxc#+driver-mutex+ __tmp158374)) '#!void) - (if _optimize157992_ - (let ((__tmp158113 + (if _optimize158254_ + (let ((__tmp158375 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158113)) + (with-lock gxc#+driver-mutex+ __tmp158375)) '#!void) - (let ((__tmp158117 + (let ((__tmp158379 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath157984_)) - (let ((__tmp158118 - (let ((__tmp158119 + (gxc#verbose '"compile " _srcpath158246_)) + (let ((__tmp158380 + (let ((__tmp158381 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath157984_))))) + (gx#import-module__0 _srcpath158246_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158119)))) + (with-lock gxc#+driver-mutex+ __tmp158381)))) (declare (not safe)) - (gxc#compile-top-module __tmp158118)))) - (__tmp158116 + (gxc#compile-top-module __tmp158380)))) + (__tmp158378 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp158114 - (let ((__tmp158115 + (__tmp158376 + (let ((__tmp158377 (let () (declare (not safe)) - (cons _srcpath157984_ '())))) + (cons _srcpath158246_ '())))) (declare (not safe)) - (cons 'compile-module __tmp158115)))) + (cons 'compile-module __tmp158377)))) (declare (not safe)) (call-with-parameters - __tmp158117 + __tmp158379 gxc#current-compile-output-dir - _outdir157987_ + _outdir158249_ gxc#current-compile-invoke-gsc - _invoke-gsc?157988_ + _invoke-gsc?158250_ gxc#current-compile-gsc-options - _gsc-options157989_ + _gsc-options158251_ gxc#current-compile-keep-scm - _keep-scm?157990_ + _keep-scm?158252_ gxc#current-compile-verbose - _verbosity157991_ + _verbosity158253_ gxc#current-compile-optimize - _optimize157992_ + _optimize158254_ gxc#current-compile-debug - _debug157993_ + _debug158255_ gxc#current-compile-generate-ssxi - _gen-ssxi157994_ + _gen-ssxi158256_ gxc#current-compile-timestamp - __tmp158116 + __tmp158378 gxc#current-compile-context - __tmp158114 + __tmp158376 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath158003_) - (let ((_opts158005_ '())) + (lambda (_srcpath158265_) + (let ((_opts158267_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath158003_ _opts158005_)))) + (gxc#compile-module__% _srcpath158265_ _opts158267_)))) (define gxc#compile-module - (lambda _g158121_ - (let ((_g158120_ (let () (declare (not safe)) (##length _g158121_)))) - (cond ((let () (declare (not safe)) (##fx= _g158120_ 1)) - (apply (lambda (_srcpath158003_) + (lambda _g158383_ + (let ((_g158382_ (let () (declare (not safe)) (##length _g158383_)))) + (cond ((let () (declare (not safe)) (##fx= _g158382_ 1)) + (apply (lambda (_srcpath158265_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath158003_))) - _g158121_)) - ((let () (declare (not safe)) (##fx= _g158120_ 2)) - (apply (lambda (_srcpath158007_ _opts158008_) + (gxc#compile-module__0 _srcpath158265_))) + _g158383_)) + ((let () (declare (not safe)) (##fx= _g158382_ 2)) + (apply (lambda (_srcpath158269_ _opts158270_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath158007_ - _opts158008_))) - _g158121_)) + _srcpath158269_ + _opts158270_))) + _g158383_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g158121_)))))) + _g158383_)))))) (define gxc#compile-exe__% - (lambda (_srcpath157960_ _opts157961_) - (if (let () (declare (not safe)) (string? _srcpath157960_)) + (lambda (_srcpath158222_ _opts158223_) + (if (let () (declare (not safe)) (string? _srcpath158222_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath157960_))) - (let ((_outdir157963_ + _srcpath158222_))) + (let ((_outdir158225_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts157961_))) - (_invoke-gsc?157964_ + (pgetq__0 'output-dir: _opts158223_))) + (_invoke-gsc?158226_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts157961_))) - (_gsc-options157965_ + (pgetq__0 'invoke-gsc: _opts158223_))) + (_gsc-options158227_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157961_))) - (_keep-scm?157966_ + (pgetq__0 'gsc-options: _opts158223_))) + (_keep-scm?158228_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts157961_))) - (_verbosity157967_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts157961_))) - (_debug157968_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts157961_)))) - (if _outdir157963_ - (let ((__tmp158122 + (pgetq__0 'keep-scm: _opts158223_))) + (_verbosity158229_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts158223_))) + (_debug158230_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts158223_)))) + (if _outdir158225_ + (let ((__tmp158384 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir157963_))))) + (create-directory*__0 _outdir158225_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158122)) + (with-lock gxc#+driver-mutex+ __tmp158384)) '#!void) - (let ((__tmp158126 + (let ((__tmp158388 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath157960_)) - (let ((__tmp158127 - (let ((__tmp158128 + (gxc#verbose '"compile exe " _srcpath158222_)) + (let ((__tmp158389 + (let ((__tmp158390 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath157960_))))) + (gx#import-module__0 _srcpath158222_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158128)))) + (with-lock gxc#+driver-mutex+ __tmp158390)))) (declare (not safe)) (gxc#compile-executable-module - __tmp158127 - _opts157961_)))) - (__tmp158125 + __tmp158389 + _opts158223_)))) + (__tmp158387 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp158123 - (let ((__tmp158124 + (__tmp158385 + (let ((__tmp158386 (let () (declare (not safe)) - (cons _srcpath157960_ '())))) + (cons _srcpath158222_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp158124)))) + (cons 'compile-exe __tmp158386)))) (declare (not safe)) (call-with-parameters - __tmp158126 + __tmp158388 gxc#current-compile-output-dir - _outdir157963_ + _outdir158225_ gxc#current-compile-invoke-gsc - _invoke-gsc?157964_ + _invoke-gsc?158226_ gxc#current-compile-gsc-options - _gsc-options157965_ + _gsc-options158227_ gxc#current-compile-keep-scm - _keep-scm?157966_ + _keep-scm?158228_ gxc#current-compile-verbose - _verbosity157967_ + _verbosity158229_ gxc#current-compile-debug - _debug157968_ + _debug158230_ gxc#current-compile-timestamp - __tmp158125 + __tmp158387 gxc#current-compile-context - __tmp158123 + __tmp158385 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath157976_) - (let ((_opts157978_ '())) + (lambda (_srcpath158238_) + (let ((_opts158240_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath157976_ _opts157978_)))) + (gxc#compile-exe__% _srcpath158238_ _opts158240_)))) (define gxc#compile-exe - (lambda _g158130_ - (let ((_g158129_ (let () (declare (not safe)) (##length _g158130_)))) - (cond ((let () (declare (not safe)) (##fx= _g158129_ 1)) - (apply (lambda (_srcpath157976_) + (lambda _g158392_ + (let ((_g158391_ (let () (declare (not safe)) (##length _g158392_)))) + (cond ((let () (declare (not safe)) (##fx= _g158391_ 1)) + (apply (lambda (_srcpath158238_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath157976_))) - _g158130_)) - ((let () (declare (not safe)) (##fx= _g158129_ 2)) - (apply (lambda (_srcpath157980_ _opts157981_) + (gxc#compile-exe__0 _srcpath158238_))) + _g158392_)) + ((let () (declare (not safe)) (##fx= _g158391_ 2)) + (apply (lambda (_srcpath158242_ _opts158243_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath157980_ _opts157981_))) - _g158130_)) + (gxc#compile-exe__% _srcpath158242_ _opts158243_))) + _g158392_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g158130_)))))) + _g158392_)))))) (define gxc#compile-executable-module - (lambda (_ctx157956_ _opts157957_) + (lambda (_ctx158218_ _opts158219_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _opts157957_)) + (pgetq__0 'full-program-optimization: _opts158219_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx157956_ - _opts157957_)) + _ctx158218_ + _opts158219_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx157956_ - _opts157957_))))) + _ctx158218_ + _opts158219_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx157839_ _opts157840_) - (letrec ((_generate-stub157842_ - (lambda (_builtin-modules157952_) - (let ((_mod-main157954_ + (lambda (_ctx158101_ _opts158102_) + (letrec ((_generate-stub158104_ + (lambda (_builtin-modules158214_) + (let ((_mod-main158216_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx157839_ 'main)))) - (write (let ((__tmp158131 - (let ((__tmp158132 - (let ((__tmp158133 - (let ((__tmp158134 - (let ((__tmp158136 - (let ((__tmp158137 + (gxc#find-runtime-symbol _ctx158101_ 'main)))) + (write (let ((__tmp158393 + (let ((__tmp158394 + (let ((__tmp158395 + (let ((__tmp158396 + (let ((__tmp158398 + (let ((__tmp158399 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules157952_ '())))) + (cons _builtin-modules158214_ '())))) (declare (not safe)) - (cons 'quote __tmp158137))) - (__tmp158135 + (cons 'quote __tmp158399))) + (__tmp158397 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp158136 __tmp158135)))) + (cons __tmp158398 __tmp158397)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp158134)))) + __tmp158396)))) (declare (not safe)) - (cons __tmp158133 '())))) + (cons __tmp158395 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp158132)))) + (cons 'builtin-modules __tmp158394)))) (declare (not safe)) - (cons 'define __tmp158131))) - (write (let ((__tmp158138 - (let ((__tmp158177 + (cons 'define __tmp158393))) + (write (let ((__tmp158400 + (let ((__tmp158439 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp158139 - (let ((__tmp158140 - (let ((__tmp158141 - (let ((__tmp158165 - (let ((__tmp158166 + (__tmp158401 + (let ((__tmp158402 + (let ((__tmp158403 + (let ((__tmp158427 + (let ((__tmp158428 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158167 - (let ((__tmp158175 - (let ((__tmp158176 + (let ((__tmp158429 + (let ((__tmp158437 + (let ((__tmp158438 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp158176))) - (__tmp158168 - (let ((__tmp158169 - (let ((__tmp158170 - (let ((__tmp158171 + __tmp158438))) + (__tmp158430 + (let ((__tmp158431 + (let ((__tmp158432 + (let ((__tmp158433 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158172 - (let ((__tmp158173 - (let ((__tmp158174 + (let ((__tmp158434 + (let ((__tmp158435 + (let ((__tmp158436 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp158174 '())))) + (cons __tmp158436 '())))) (declare (not safe)) - (cons 'cdr __tmp158173)))) + (cons 'cdr __tmp158435)))) (declare (not safe)) - (cons __tmp158172 '())))) + (cons __tmp158434 '())))) (declare (not safe)) - (cons _mod-main157954_ __tmp158171)))) + (cons _mod-main158216_ __tmp158433)))) (declare (not safe)) - (cons 'apply __tmp158170)))) + (cons 'apply __tmp158432)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158169 '())))) + (cons __tmp158431 '())))) (declare (not safe)) - (cons __tmp158175 __tmp158168)))) + (cons __tmp158437 __tmp158430)))) (declare (not safe)) - (cons '() __tmp158167)))) + (cons '() __tmp158429)))) (declare (not safe)) - (cons 'lambda __tmp158166))) - (__tmp158142 - (let ((__tmp158143 - (let ((__tmp158144 - (let ((__tmp158145 - (let ((__tmp158156 - (let ((__tmp158157 - (let ((__tmp158158 + (cons 'lambda __tmp158428))) + (__tmp158404 + (let ((__tmp158405 + (let ((__tmp158406 + (let ((__tmp158407 + (let ((__tmp158418 + (let ((__tmp158419 + (let ((__tmp158420 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158159 - (let ((__tmp158160 - (let ((__tmp158161 - (let ((__tmp158162 - (let ((__tmp158163 - (let ((__tmp158164 + (let ((__tmp158421 + (let ((__tmp158422 + (let ((__tmp158423 + (let ((__tmp158424 + (let ((__tmp158425 + (let ((__tmp158426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp158164 '())))) + (cons __tmp158426 '())))) (declare (not safe)) - (cons 'force-output __tmp158163)))) + (cons 'force-output __tmp158425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158162 '())))) + (cons __tmp158424 '())))) (declare (not safe)) - (cons '() __tmp158161)))) + (cons '() __tmp158423)))) (declare (not safe)) - (cons 'lambda __tmp158160)))) + (cons 'lambda __tmp158422)))) (declare (not safe)) - (cons __tmp158159 '())))) + (cons __tmp158421 '())))) (declare (not safe)) - (cons 'void __tmp158158)))) + (cons 'void __tmp158420)))) (declare (not safe)) - (cons 'with-catch __tmp158157))) + (cons 'with-catch __tmp158419))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp158146 - (let ((__tmp158147 - (let ((__tmp158148 + (__tmp158408 + (let ((__tmp158409 + (let ((__tmp158410 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158149 - (let ((__tmp158150 - (let ((__tmp158151 - (let ((__tmp158152 - (let ((__tmp158153 - (let ((__tmp158154 + (let ((__tmp158411 + (let ((__tmp158412 + (let ((__tmp158413 + (let ((__tmp158414 + (let ((__tmp158415 + (let ((__tmp158416 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158155 + (let ((__tmp158417 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp158155 '())))) + (cons __tmp158417 '())))) (declare (not safe)) - (cons 'force-output __tmp158154)))) + (cons 'force-output __tmp158416)))) (declare (not safe)) - (cons __tmp158153 '())))) + (cons __tmp158415 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp158152)))) + (cons '() __tmp158414)))) (declare (not safe)) - (cons 'lambda __tmp158151)))) + (cons 'lambda __tmp158413)))) (declare (not safe)) - (cons __tmp158150 '())))) + (cons __tmp158412 '())))) (declare (not safe)) - (cons 'void __tmp158149)))) + (cons 'void __tmp158411)))) (declare (not safe)) - (cons 'with-catch __tmp158148)))) + (cons 'with-catch __tmp158410)))) (declare (not safe)) - (cons __tmp158147 '())))) + (cons __tmp158409 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158156 - __tmp158146)))) + (cons __tmp158418 + __tmp158408)))) (declare (not safe)) - (cons '() __tmp158145)))) + (cons '() __tmp158407)))) (declare (not safe)) - (cons 'lambda __tmp158144)))) + (cons 'lambda __tmp158406)))) (declare (not safe)) - (cons __tmp158143 '())))) + (cons __tmp158405 '())))) (declare (not safe)) - (cons __tmp158165 __tmp158142)))) + (cons __tmp158427 __tmp158404)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp158141)))) + __tmp158403)))) (declare (not safe)) - (cons __tmp158140 '())))) + (cons __tmp158402 '())))) (declare (not safe)) - (cons __tmp158177 __tmp158139)))) + (cons __tmp158439 __tmp158401)))) (declare (not safe)) - (cons 'define __tmp158138))) + (cons 'define __tmp158400))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts157843_ - (lambda (_libgerbil157950_) + (_get-libgerbil-ld-opts158105_ + (lambda (_libgerbil158212_) (call-with-input-file - (string-append _libgerbil157950_ '".ldd") + (string-append _libgerbil158212_ '".ldd") read))) - (_replace-extension157844_ - (lambda (_path157947_ _ext157948_) + (_replace-extension158106_ + (lambda (_path158209_ _ext158210_) (string-append - (path-strip-extension _path157947_) - _ext157948_))) - (_not-exclude-module?157845_ - (lambda (_ctx157943_) - (let ((_id-str157945_ + (path-strip-extension _path158209_) + _ext158210_))) + (_not-exclude-module?158107_ + (lambda (_ctx158205_) + (let ((_id-str158207_ (symbol->string (##structure-ref - _ctx157943_ + _ctx158205_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp158179 + (if (let ((__tmp158441 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str157945_)))) + _id-str158207_)))) (declare (not safe)) - (not __tmp158179)) - (let ((__tmp158178 + (not __tmp158441)) + (let ((__tmp158440 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str157945_)))) + (string-prefix? '"std/" _id-str158207_)))) (declare (not safe)) - (not __tmp158178)) + (not __tmp158440)) '#f)))) - (_not-file-empty?157846_ - (lambda (_path157941_) - (let ((__tmp158180 + (_not-file-empty?158108_ + (lambda (_path158203_) + (let ((__tmp158442 (let () (declare (not safe)) - (gxc#file-empty? _path157941_)))) + (gxc#file-empty? _path158203_)))) (declare (not safe)) - (not __tmp158180)))) - (_compile-stub157847_ - (lambda (_output-scm157854_ _output-bin157855_) - (let* ((_gerbil-home157857_ + (not __tmp158442)))) + (_compile-stub158109_ + (lambda (_output-scm158116_ _output-bin158117_) + (let* ((_gerbil-home158119_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir157859_ - (path-expand '"lib" _gerbil-home157857_)) - (_gerbil-staticdir157861_ - (path-expand '"static" _gerbil-libdir157859_)) - (_gxlink157863_ + (_gerbil-libdir158121_ + (path-expand '"lib" _gerbil-home158119_)) + (_gerbil-staticdir158123_ + (path-expand '"static" _gerbil-libdir158121_)) + (_gxlink158125_ (path-expand '"libgerbil-link" - _gerbil-libdir157859_)) - (_tmp157865_ + _gerbil-libdir158121_)) + (_tmp158127_ (path-expand (string-append '"gxc." @@ -570,334 +570,334 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path157869_ - (lambda (_f157867_) + (_tmp-path158131_ + (lambda (_f158129_) (path-expand - (path-strip-directory _f157867_) - _tmp157865_))) - (_deps157871_ + (path-strip-directory _f158129_) + _tmp158127_))) + (_deps158133_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx157839_))) - (_deps157873_ + (gxc#find-runtime-module-deps _ctx158101_))) + (_deps158135_ (let () (declare (not safe)) - (filter _not-exclude-module?157845_ - _deps157871_))) - (_src-deps-scm157875_ - (map gxc#find-static-module-file _deps157873_)) - (_src-deps-scm157877_ + (filter _not-exclude-module?158107_ + _deps158133_))) + (_src-deps-scm158137_ + (map gxc#find-static-module-file _deps158135_)) + (_src-deps-scm158139_ (let () (declare (not safe)) - (filter _not-file-empty?157846_ - _src-deps-scm157875_))) - (_src-deps-scm157879_ - (map path-expand _src-deps-scm157877_)) - (_deps-scm157881_ - (map _tmp-path157869_ _src-deps-scm157879_)) - (_deps-c157887_ - (map (lambda (_g157882157884_) + (filter _not-file-empty?158108_ + _src-deps-scm158137_))) + (_src-deps-scm158141_ + (map path-expand _src-deps-scm158139_)) + (_deps-scm158143_ + (map _tmp-path158131_ _src-deps-scm158141_)) + (_deps-c158149_ + (map (lambda (_g158144158146_) (let () (declare (not safe)) - (_replace-extension157844_ - _g157882157884_ + (_replace-extension158106_ + _g158144158146_ '".c"))) - _deps-scm157881_)) - (_deps-o157893_ - (map (lambda (_g157888157890_) + _deps-scm158143_)) + (_deps-o158155_ + (map (lambda (_g158150158152_) (let () (declare (not safe)) - (_replace-extension157844_ - _g157888157890_ + (_replace-extension158106_ + _g158150158152_ '".o"))) - _deps-scm157881_)) - (_src-bin-scm157895_ + _deps-scm158143_)) + (_src-bin-scm158157_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx157839_))) - (_src-bin-scm157897_ - (path-expand _src-bin-scm157895_)) - (_bin-scm157899_ + (gxc#find-static-module-file _ctx158101_))) + (_src-bin-scm158159_ + (path-expand _src-bin-scm158157_)) + (_bin-scm158161_ (let () (declare (not safe)) - (_tmp-path157869_ _src-bin-scm157897_))) - (_bin-c157901_ + (_tmp-path158131_ _src-bin-scm158159_))) + (_bin-c158163_ (let () (declare (not safe)) - (_replace-extension157844_ - _bin-scm157899_ + (_replace-extension158106_ + _bin-scm158161_ '".c"))) - (_bin-o157903_ + (_bin-o158165_ (let () (declare (not safe)) - (_replace-extension157844_ - _bin-scm157899_ + (_replace-extension158106_ + _bin-scm158161_ '".o"))) - (_output-bin157905_ - (path-expand _output-bin157855_)) - (_output-scm157907_ - (path-expand _output-scm157854_)) - (_output-c157909_ + (_output-bin158167_ + (path-expand _output-bin158117_)) + (_output-scm158169_ + (path-expand _output-scm158116_)) + (_output-c158171_ (let () (declare (not safe)) - (_replace-extension157844_ - _output-scm157907_ + (_replace-extension158106_ + _output-scm158169_ '".c"))) - (_output-o157911_ + (_output-o158173_ (let () (declare (not safe)) - (_replace-extension157844_ - _output-scm157907_ + (_replace-extension158106_ + _output-scm158169_ '".o"))) - (_output_-c157913_ + (_output_-c158175_ (let () (declare (not safe)) - (_replace-extension157844_ - _output-scm157907_ + (_replace-extension158106_ + _output-scm158169_ '"_.c"))) - (_output_-o157915_ + (_output_-o158177_ (let () (declare (not safe)) - (_replace-extension157844_ - _output-scm157907_ + (_replace-extension158106_ + _output-scm158169_ '"_.o"))) - (_gsc-link-opts157917_ + (_gsc-link-opts158179_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts157919_ + (_gsc-cc-opts158181_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts157921_ + (_gsc-static-opts158183_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir157861_))) - (_output-ld-opts157923_ + _gerbil-staticdir158123_))) + (_output-ld-opts158185_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a157925_ - (path-expand '"libgerbil.a" _gerbil-libdir157859_)) - (_libgerbil.so157927_ + (_libgerbil.a158187_ + (path-expand '"libgerbil.a" _gerbil-libdir158121_)) + (_libgerbil.so158189_ (path-expand '"libgerbil.so" - _gerbil-libdir157859_)) - (_libgerbil-ld-opts157929_ - (if (file-exists? _libgerbil.so157927_) + _gerbil-libdir158121_)) + (_libgerbil-ld-opts158191_ + (if (file-exists? _libgerbil.so158189_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts157843_ - _libgerbil.so157927_)) - (if (file-exists? _libgerbil.a157925_) + (_get-libgerbil-ld-opts158105_ + _libgerbil.so158189_)) + (if (file-exists? _libgerbil.a158187_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts157843_ - _libgerbil.a157925_)) + (_get-libgerbil-ld-opts158105_ + _libgerbil.a158187_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a157925_ - _libgerbil.so157927_))))) - (_rpath157931_ + _libgerbil.a158187_ + _libgerbil.so158189_))))) + (_rpath158193_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir157859_))) - (_builtin-modules157935_ - (map (lambda (_mod157933_) + (gxc#gerbil-rpath _gerbil-libdir158121_))) + (_builtin-modules158197_ + (map (lambda (_mod158195_) (symbol->string (##structure-ref - _mod157933_ + _mod158195_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx157839_ _deps157873_))))) - (let ((__tmp158181 + (cons _ctx158101_ _deps158135_))))) + (let ((__tmp158443 (lambda () - (let ((__tmp158182 - (path-directory _output-bin157905_))) + (let ((__tmp158444 + (path-directory _output-bin158167_))) (declare (not safe)) - (create-directory*__0 __tmp158182))))) + (create-directory*__0 __tmp158444))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158181)) - (let ((__tmp158183 + (with-lock gxc#+driver-mutex+ __tmp158443)) + (let ((__tmp158445 (lambda () (let () (declare (not safe)) - (_generate-stub157842_ - _builtin-modules157935_))))) + (_generate-stub158104_ + _builtin-modules158197_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm157907_ - __tmp158183)) + _output-scm158169_ + __tmp158445)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp158184 - (lambda () (create-directory _tmp157865_)))) + (let ((__tmp158446 + (lambda () (create-directory _tmp158127_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158184)) + (with-lock gxc#+driver-mutex+ __tmp158446)) (for-each copy-file - _src-deps-scm157879_ - _deps-scm157881_) - (copy-file _src-bin-scm157897_ _bin-scm157899_) - (let ((__tmp158192 + _src-deps-scm158141_ + _deps-scm158143_) + (copy-file _src-bin-scm158159_ _bin-scm158161_) + (let ((__tmp158454 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158185 - (let ((__tmp158186 - (let ((__tmp158187 - (let ((__tmp158188 - (let ((__tmp158189 - (let ((__tmp158190 + (__tmp158447 + (let ((__tmp158448 + (let ((__tmp158449 + (let ((__tmp158450 + (let ((__tmp158451 + (let ((__tmp158452 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158191 + (let ((__tmp158453 (let () (declare (not safe)) - (cons _output-scm157907_ '())))) + (cons _output-scm158169_ '())))) (declare (not safe)) - (cons _bin-scm157899_ __tmp158191)))) + (cons _bin-scm158161_ __tmp158453)))) (declare (not safe)) - (foldr1 cons __tmp158190 _deps-scm157881_)))) + (foldr1 cons __tmp158452 _deps-scm158143_)))) (declare (not safe)) - (foldr1 cons __tmp158189 _gsc-link-opts157917_)))) + (foldr1 cons __tmp158451 _gsc-link-opts158179_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink157863_ - __tmp158188)))) + (cons _gxlink158125_ + __tmp158450)))) (declare (not safe)) - (cons '"-l" __tmp158187)))) + (cons '"-l" __tmp158449)))) (declare (not safe)) - (cons '"-link" __tmp158186)))) + (cons '"-link" __tmp158448)))) (declare (not safe)) - (gxc#invoke __tmp158192 __tmp158185)) - (let ((__tmp158200 + (gxc#invoke __tmp158454 __tmp158447)) + (let ((__tmp158462 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158193 - (let ((__tmp158194 - (let ((__tmp158195 - (let ((__tmp158196 - (let ((__tmp158197 - (let ((__tmp158198 + (__tmp158455 + (let ((__tmp158456 + (let ((__tmp158457 + (let ((__tmp158458 + (let ((__tmp158459 + (let ((__tmp158460 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158199 + (let ((__tmp158461 (let () (declare (not safe)) - (cons _output_-c157913_ '())))) + (cons _output_-c158175_ '())))) (declare (not safe)) - (cons _output-c157909_ __tmp158199)))) + (cons _output-c158171_ __tmp158461)))) (declare (not safe)) - (cons _bin-c157901_ __tmp158198)))) + (cons _bin-c158163_ __tmp158460)))) (declare (not safe)) - (foldr1 cons __tmp158197 _deps-c157887_)))) + (foldr1 cons __tmp158459 _deps-c158149_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158196 - _gsc-static-opts157921_)))) + __tmp158458 + _gsc-static-opts158183_)))) (declare (not safe)) (foldr1 cons - __tmp158195 - _gsc-cc-opts157919_)))) + __tmp158457 + _gsc-cc-opts158181_)))) (declare (not safe)) - (cons '"-obj" __tmp158194)))) + (cons '"-obj" __tmp158456)))) (declare (not safe)) - (gxc#invoke __tmp158200 __tmp158193)) - (let ((__tmp158213 + (gxc#invoke __tmp158462 __tmp158455)) + (let ((__tmp158475 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158201 - (let ((__tmp158202 - (let ((__tmp158203 - (let ((__tmp158204 - (let ((__tmp158205 - (let ((__tmp158206 + (__tmp158463 + (let ((__tmp158464 + (let ((__tmp158465 + (let ((__tmp158466 + (let ((__tmp158467 + (let ((__tmp158468 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158207 - (let ((__tmp158208 - (let ((__tmp158209 - (let ((__tmp158210 - (let ((__tmp158211 + (let ((__tmp158469 + (let ((__tmp158470 + (let ((__tmp158471 + (let ((__tmp158472 + (let ((__tmp158473 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158212 + (let ((__tmp158474 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts157929_)))) + _libgerbil-ld-opts158191_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp158212)))) + (cons '"-lgerbil" __tmp158474)))) (declare (not safe)) - (cons _gerbil-libdir157859_ __tmp158211)))) + (cons _gerbil-libdir158121_ __tmp158473)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp158210)))) + __tmp158472)))) (declare (not safe)) - (cons _rpath157931_ - __tmp158209)))) + (cons _rpath158193_ + __tmp158471)))) (declare (not safe)) (foldr1 cons - __tmp158208 - _output-ld-opts157923_)))) + __tmp158470 + _output-ld-opts158185_)))) (declare (not safe)) - (cons _output_-o157915_ __tmp158207)))) + (cons _output_-o158177_ __tmp158469)))) (declare (not safe)) - (cons _output-o157911_ __tmp158206)))) + (cons _output-o158173_ __tmp158468)))) (declare (not safe)) - (cons _bin-o157903_ __tmp158205)))) + (cons _bin-o158165_ __tmp158467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158204 - _deps-o157893_)))) + __tmp158466 + _deps-o158155_)))) (declare (not safe)) - (cons _output-bin157905_ - __tmp158203)))) + (cons _output-bin158167_ + __tmp158465)))) (declare (not safe)) - (cons '"-o" __tmp158202)))) + (cons '"-o" __tmp158464)))) (declare (not safe)) - (gxc#invoke __tmp158213 __tmp158201)) + (gxc#invoke __tmp158475 __tmp158463)) (for-each delete-file - (let ((__tmp158214 - (let ((__tmp158215 - (let ((__tmp158216 + (let ((__tmp158476 + (let ((__tmp158477 + (let ((__tmp158478 (let () (declare (not safe)) - (cons _output_-o157915_ + (cons _output_-o158177_ '())))) (declare (not safe)) - (cons _output-o157911_ - __tmp158216)))) + (cons _output-o158173_ + __tmp158478)))) (declare (not safe)) - (cons _output_-c157913_ __tmp158215)))) + (cons _output_-c158175_ __tmp158477)))) (declare (not safe)) - (cons _output-c157909_ __tmp158214))) + (cons _output-c158171_ __tmp158476))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp157865_))) + (gxc#delete-directory* _tmp158127_))) '#!void))))) - (let* ((_output-bin157849_ + (let* ((_output-bin158111_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx157839_ _opts157840_))) - (_output-scm157851_ - (string-append _output-bin157849_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx158101_ _opts158102_))) + (_output-scm158113_ + (string-append _output-bin158111_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub157847_ _output-scm157851_ _output-bin157849_)) + (_compile-stub158109_ _output-scm158113_ _output-bin158111_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm157851_)))))) + (delete-file _output-scm158113_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx157664_ _opts157665_) - (letrec ((_reset-declare157667_ + (lambda (_ctx157926_ _opts157927_) + (letrec ((_reset-declare157929_ (lambda () '(declare (gambit-scheme) @@ -919,646 +919,646 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub157668_ - (lambda (_deps157830_) - (let ((_mod-main157832_ + (_generate-stub157930_ + (lambda (_deps158092_) + (let ((_mod-main158094_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx157664_ 'main))) - (_reset-decl157833_ + (gxc#find-runtime-symbol _ctx157926_ 'main))) + (_reset-decl158095_ (let () (declare (not safe)) - (_reset-declare157667_))) - (_user-decl157834_ + (_reset-declare157929_))) + (_user-decl158096_ (let () (declare (not safe)) - (_user-declare157669_)))) + (_user-declare157931_)))) (for-each - (lambda (_dep157836_) + (lambda (_dep158098_) (write '(##namespace (""))) (newline) - (write _reset-decl157833_) + (write _reset-decl158095_) (newline) - (if _user-decl157834_ - (begin (write _user-decl157834_) (newline)) + (if _user-decl158096_ + (begin (write _user-decl158096_) (newline)) '#!void) - (write (let ((__tmp158217 + (write (let ((__tmp158479 (let () (declare (not safe)) - (cons _dep157836_ '())))) + (cons _dep158098_ '())))) (declare (not safe)) - (cons 'include __tmp158217))) + (cons 'include __tmp158479))) (newline)) - _deps157830_) - (write (let ((__tmp158218 - (let ((__tmp158231 + _deps158092_) + (write (let ((__tmp158480 + (let ((__tmp158493 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp158219 - (let ((__tmp158227 - (let ((__tmp158228 - (let ((__tmp158229 - (let ((__tmp158230 + (__tmp158481 + (let ((__tmp158489 + (let ((__tmp158490 + (let ((__tmp158491 + (let ((__tmp158492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp158230)))) + (cons 'quote __tmp158492)))) (declare (not safe)) - (cons __tmp158229 '())))) + (cons __tmp158491 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp158228))) - (__tmp158220 - (let ((__tmp158221 - (let ((__tmp158222 - (let ((__tmp158223 + __tmp158490))) + (__tmp158482 + (let ((__tmp158483 + (let ((__tmp158484 + (let ((__tmp158485 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158224 - (let ((__tmp158225 - (let ((__tmp158226 + (let ((__tmp158486 + (let ((__tmp158487 + (let ((__tmp158488 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp158226 '())))) + (cons __tmp158488 '())))) (declare (not safe)) - (cons 'cdr __tmp158225)))) + (cons 'cdr __tmp158487)))) (declare (not safe)) - (cons __tmp158224 '())))) + (cons __tmp158486 '())))) (declare (not safe)) - (cons _mod-main157832_ __tmp158223)))) + (cons _mod-main158094_ __tmp158485)))) (declare (not safe)) - (cons 'apply __tmp158222)))) + (cons 'apply __tmp158484)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158221 '())))) + (cons __tmp158483 '())))) (declare (not safe)) - (cons __tmp158227 __tmp158220)))) + (cons __tmp158489 __tmp158482)))) (declare (not safe)) - (cons __tmp158231 __tmp158219)))) + (cons __tmp158493 __tmp158481)))) (declare (not safe)) - (cons 'define __tmp158218))) + (cons 'define __tmp158480))) (write '(gerbil-main)) (newline)))) - (_user-declare157669_ + (_user-declare157931_ (lambda () - (let* ((_gsc-opts157735_ + (let* ((_gsc-opts157997_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157665_))) - (_gsc-prelude157737_ - (if _gsc-opts157735_ - (member '"-prelude" _gsc-opts157735_) + (pgetq__0 'gsc-options: _opts157927_))) + (_gsc-prelude157999_ + (if _gsc-opts157997_ + (member '"-prelude" _gsc-opts157997_) '#f)) - (_gsc-prelude157739_ - (if _gsc-prelude157737_ + (_gsc-prelude158001_ + (if _gsc-prelude157999_ (read (open-input-string - (cadr _gsc-prelude157737_))) + (cadr _gsc-prelude157999_))) '#f))) - (let _lp157742_ ((_rest157744_ + (let _lp158004_ ((_rest158006_ (let () (declare (not safe)) - (cons _gsc-prelude157739_ '()))) - (_user-decls157745_ '())) - (let* ((_rest157746157754_ _rest157744_) - (_else157748157762_ + (cons _gsc-prelude158001_ '()))) + (_user-decls158007_ '())) + (let* ((_rest158008158016_ _rest158006_) + (_else158010158024_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls157745_)) + (null? _user-decls158007_)) '#f - (let ((__tmp158232 - (reverse _user-decls157745_))) + (let ((__tmp158494 + (reverse _user-decls158007_))) (declare (not safe)) - (cons 'declare __tmp158232))))) - (_K157750157818_ - (lambda (_rest157765_ _expr157766_) - (let* ((_expr157767157779_ _expr157766_) - (_else157770157787_ + (cons 'declare __tmp158494))))) + (_K158012158080_ + (lambda (_rest158027_ _expr158028_) + (let* ((_expr158029158041_ _expr158028_) + (_else158032158049_ (lambda () (let () (declare (not safe)) - (_lp157742_ - _rest157765_ - _user-decls157745_))))) - (let ((_K157775157808_ - (lambda (_decls157806_) - (let ((__tmp158233 + (_lp158004_ + _rest158027_ + _user-decls158007_))))) + (let ((_K158037158070_ + (lambda (_decls158068_) + (let ((__tmp158495 (let () (declare (not safe)) (foldl1 cons - _user-decls157745_ - _decls157806_)))) + _user-decls158007_ + _decls158068_)))) (declare (not safe)) - (_lp157742_ - _rest157765_ - __tmp158233)))) - (_K157772157793_ - (lambda (_exprs157791_) - (let ((__tmp158234 - (append _exprs157791_ - _rest157765_))) + (_lp158004_ + _rest158027_ + __tmp158495)))) + (_K158034158055_ + (lambda (_exprs158053_) + (let ((__tmp158496 + (append _exprs158053_ + _rest158027_))) (declare (not safe)) - (_lp157742_ - __tmp158234 - _user-decls157745_))))) + (_lp158004_ + __tmp158496 + _user-decls158007_))))) (if (let () (declare (not safe)) - (##pair? _expr157767157779_)) - (let ((_tl157777157813_ + (##pair? _expr158029158041_)) + (let ((_tl158039158075_ (let () (declare (not safe)) - (##cdr _expr157767157779_))) - (_hd157776157811_ + (##cdr _expr158029158041_))) + (_hd158038158073_ (let () (declare (not safe)) - (##car _expr157767157779_)))) + (##car _expr158029158041_)))) (if (let () (declare (not safe)) - (##eq? _hd157776157811_ + (##eq? _hd158038158073_ 'declare)) - (let ((_decls157816_ - _tl157777157813_)) + (let ((_decls158078_ + _tl158039158075_)) (declare (not safe)) - (_K157775157808_ - _decls157816_)) + (_K158037158070_ + _decls158078_)) (if (let () (declare (not safe)) - (##eq? _hd157776157811_ + (##eq? _hd158038158073_ 'begin)) - (let ((_exprs157801_ - _tl157777157813_)) + (let ((_exprs158063_ + _tl158039158075_)) (declare (not safe)) - (_K157772157793_ - _exprs157801_)) + (_K158034158055_ + _exprs158063_)) (let () (declare (not safe)) - (_else157770157787_))))) + (_else158032158049_))))) (let () (declare (not safe)) - (_else157770157787_)))))))) + (_else158032158049_)))))))) (if (let () (declare (not safe)) - (##pair? _rest157746157754_)) - (let ((_hd157751157821_ + (##pair? _rest158008158016_)) + (let ((_hd158013158083_ (let () (declare (not safe)) - (##car _rest157746157754_))) - (_tl157752157823_ + (##car _rest158008158016_))) + (_tl158014158085_ (let () (declare (not safe)) - (##cdr _rest157746157754_)))) - (let* ((_expr157826_ _hd157751157821_) - (_rest157828_ _tl157752157823_)) + (##cdr _rest158008158016_)))) + (let* ((_expr158088_ _hd158013158083_) + (_rest158090_ _tl158014158085_)) (declare (not safe)) - (_K157750157818_ _rest157828_ _expr157826_))) + (_K158012158080_ _rest158090_ _expr158088_))) (let () (declare (not safe)) - (_else157748157762_)))))))) - (_compile-stub157670_ - (lambda (_output-scm157677_ _output-bin157678_) - (let* ((_gerbil-home157680_ + (_else158010158024_)))))))) + (_compile-stub157932_ + (lambda (_output-scm157939_ _output-bin157940_) + (let* ((_gerbil-home157942_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir157682_ - (path-expand '"lib" _gerbil-home157680_)) - (_runtime157684_ + (_gerbil-libdir157944_ + (path-expand '"lib" _gerbil-home157942_)) + (_runtime157946_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp157686_ + (_gambit-sharp157948_ (path-expand '"lib/_gambit#.scm" - _gerbil-home157680_)) - (_include-gambit-sharp157688_ + _gerbil-home157942_)) + (_include-gambit-sharp157950_ (string-append '"(include \"" - _gambit-sharp157686_ + _gambit-sharp157948_ '"\")")) - (_bin-scm157690_ + (_bin-scm157952_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx157664_))) - (_deps157692_ + (gxc#find-static-module-file _ctx157926_))) + (_deps157954_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx157664_))) - (_deps157694_ - (map gxc#find-static-module-file _deps157692_)) - (_deps157699_ - (let ((__tmp158235 - (lambda (_$obj157696_) - (let ((__tmp158236 + (gxc#find-runtime-module-deps _ctx157926_))) + (_deps157956_ + (map gxc#find-static-module-file _deps157954_)) + (_deps157961_ + (let ((__tmp158497 + (lambda (_$obj157958_) + (let ((__tmp158498 (let () (declare (not safe)) - (gxc#file-empty? _$obj157696_)))) + (gxc#file-empty? _$obj157958_)))) (declare (not safe)) - (not __tmp158236))))) - (declare (not safe)) - (filter __tmp158235 _deps157694_))) - (_deps157703_ - (let ((__tmp158237 - (lambda (_f157701_) - (let ((__tmp158238 - (member _f157701_ - _runtime157684_))) + (not __tmp158498))))) + (declare (not safe)) + (filter __tmp158497 _deps157956_))) + (_deps157965_ + (let ((__tmp158499 + (lambda (_f157963_) + (let ((__tmp158500 + (member _f157963_ + _runtime157946_))) (declare (not safe)) - (not __tmp158238))))) + (not __tmp158500))))) (declare (not safe)) - (filter __tmp158237 _deps157699_))) - (_output-base157705_ + (filter __tmp158499 _deps157961_))) + (_output-base157967_ (string-append - (path-strip-extension _output-scm157677_))) - (_output-c157707_ - (string-append _output-base157705_ '".c")) - (_output-o157709_ - (string-append _output-base157705_ '".o")) - (_output-c_157711_ - (string-append _output-base157705_ '"_.c")) - (_output-o_157713_ - (string-append _output-base157705_ '"_.o")) - (_gsc-link-opts157715_ + (path-strip-extension _output-scm157939_))) + (_output-c157969_ + (string-append _output-base157967_ '".c")) + (_output-o157971_ + (string-append _output-base157967_ '".o")) + (_output-c_157973_ + (string-append _output-base157967_ '"_.c")) + (_output-o_157975_ + (string-append _output-base157967_ '"_.o")) + (_gsc-link-opts157977_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts157717_ + (_gsc-cc-opts157979_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts157719_ - (let ((__tmp158239 + (_gsc-static-opts157981_ + (let ((__tmp158501 (path-expand '"static" - _gerbil-libdir157682_))) + _gerbil-libdir157944_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp158239))) - (_output-ld-opts157721_ + (gxc#gsc-static-include-options __tmp158501))) + (_output-ld-opts157983_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros157723_ + (_gsc-gx-macros157985_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp158241 - (let ((__tmp158242 - (let ((__tmp158243 + (let ((__tmp158503 + (let ((__tmp158504 + (let ((__tmp158505 (let () (declare (not safe)) - (cons _include-gambit-sharp157688_ + (cons _include-gambit-sharp157950_ '())))) (declare (not safe)) - (cons '"-e" __tmp158243)))) + (cons '"-e" __tmp158505)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp158242)))) + __tmp158504)))) (declare (not safe)) - (cons '"-e" __tmp158241)) - (let ((__tmp158240 + (cons '"-e" __tmp158503)) + (let ((__tmp158502 (let () (declare (not safe)) - (cons _include-gambit-sharp157688_ + (cons _include-gambit-sharp157950_ '())))) (declare (not safe)) - (cons '"-e" __tmp158240)))) - (_gsc-link-opts157725_ - (append _gsc-link-opts157715_ - _gsc-gx-macros157723_)) - (_rpath157727_ + (cons '"-e" __tmp158502)))) + (_gsc-link-opts157987_ + (append _gsc-link-opts157977_ + _gsc-gx-macros157985_)) + (_rpath157989_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir157682_))) - (_default-ld-options157729_ - (let ((__tmp158244 + (gxc#gerbil-rpath _gerbil-libdir157944_))) + (_default-ld-options157991_ + (let ((__tmp158506 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp158244)))) - (let ((__tmp158245 + (cons '"-ldl" __tmp158506)))) + (let ((__tmp158507 (lambda () - (let ((__tmp158246 - (path-directory _output-bin157678_))) + (let ((__tmp158508 + (path-directory _output-bin157940_))) (declare (not safe)) - (create-directory*__0 __tmp158246))))) + (create-directory*__0 __tmp158508))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158245)) - (let ((__tmp158247 + (with-lock gxc#+driver-mutex+ __tmp158507)) + (let ((__tmp158509 (lambda () - (let ((__tmp158248 - (let ((__tmp158249 - (let ((__tmp158250 + (let ((__tmp158510 + (let ((__tmp158511 + (let ((__tmp158512 (let () (declare (not safe)) - (cons _bin-scm157690_ + (cons _bin-scm157952_ '())))) (declare (not safe)) (foldr1 cons - __tmp158250 - _deps157703_)))) + __tmp158512 + _deps157965_)))) (declare (not safe)) (foldr1 cons - __tmp158249 - _runtime157684_)))) + __tmp158511 + _runtime157946_)))) (declare (not safe)) - (_generate-stub157668_ __tmp158248))))) + (_generate-stub157930_ __tmp158510))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm157677_ - __tmp158247)) + _output-scm157939_ + __tmp158509)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp158256 + (let ((__tmp158518 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158251 - (let ((__tmp158252 - (let ((__tmp158253 - (let ((__tmp158254 - (let ((__tmp158255 + (__tmp158513 + (let ((__tmp158514 + (let ((__tmp158515 + (let ((__tmp158516 + (let ((__tmp158517 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm157677_ '())))) + (cons _output-scm157939_ '())))) (declare (not safe)) - (foldr1 cons __tmp158255 _gsc-link-opts157725_)))) + (foldr1 cons __tmp158517 _gsc-link-opts157987_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_157711_ - __tmp158254)))) + (cons _output-c_157973_ + __tmp158516)))) (declare (not safe)) - (cons '"-o" __tmp158253)))) + (cons '"-o" __tmp158515)))) (declare (not safe)) - (cons '"-link" __tmp158252)))) + (cons '"-link" __tmp158514)))) (declare (not safe)) - (gxc#invoke __tmp158256 __tmp158251)) - (let ((__tmp158262 + (gxc#invoke __tmp158518 __tmp158513)) + (let ((__tmp158524 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158257 - (let ((__tmp158258 - (let ((__tmp158259 - (let ((__tmp158260 - (let ((__tmp158261 + (__tmp158519 + (let ((__tmp158520 + (let ((__tmp158521 + (let ((__tmp158522 + (let ((__tmp158523 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_157711_ '())))) + (cons _output-c_157973_ '())))) (declare (not safe)) - (cons _output-c157707_ __tmp158261)))) + (cons _output-c157969_ __tmp158523)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158260 - _gsc-static-opts157719_)))) + __tmp158522 + _gsc-static-opts157981_)))) (declare (not safe)) (foldr1 cons - __tmp158259 - _gsc-cc-opts157717_)))) + __tmp158521 + _gsc-cc-opts157979_)))) (declare (not safe)) - (cons '"-obj" __tmp158258)))) + (cons '"-obj" __tmp158520)))) (declare (not safe)) - (gxc#invoke __tmp158262 __tmp158257)) - (let ((__tmp158272 + (gxc#invoke __tmp158524 __tmp158519)) + (let ((__tmp158534 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158263 - (let ((__tmp158264 - (let ((__tmp158265 - (let ((__tmp158266 - (let ((__tmp158267 - (let ((__tmp158268 + (__tmp158525 + (let ((__tmp158526 + (let ((__tmp158527 + (let ((__tmp158528 + (let ((__tmp158529 + (let ((__tmp158530 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158269 - (let ((__tmp158270 - (let ((__tmp158271 + (let ((__tmp158531 + (let ((__tmp158532 + (let ((__tmp158533 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options157729_)))) + _default-ld-options157991_)))) (declare (not safe)) - (cons _gerbil-libdir157682_ - __tmp158271)))) + (cons _gerbil-libdir157944_ + __tmp158533)))) (declare (not safe)) - (cons '"-L" __tmp158270)))) + (cons '"-L" __tmp158532)))) (declare (not safe)) - (cons _rpath157727_ __tmp158269)))) + (cons _rpath157989_ __tmp158531)))) (declare (not safe)) - (foldr1 cons __tmp158268 _output-ld-opts157721_)))) + (foldr1 cons __tmp158530 _output-ld-opts157983_)))) (declare (not safe)) - (cons _output-o_157713_ __tmp158267)))) + (cons _output-o_157975_ __tmp158529)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o157709_ - __tmp158266)))) + (cons _output-o157971_ + __tmp158528)))) (declare (not safe)) - (cons _output-bin157678_ - __tmp158265)))) + (cons _output-bin157940_ + __tmp158527)))) (declare (not safe)) - (cons '"-o" __tmp158264)))) + (cons '"-o" __tmp158526)))) (declare (not safe)) - (gxc#invoke __tmp158272 __tmp158263))) + (gxc#invoke __tmp158534 __tmp158525))) '#!void))))) - (let* ((_output-bin157672_ + (let* ((_output-bin157934_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx157664_ _opts157665_))) - (_output-scm157674_ - (string-append _output-bin157672_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx157926_ _opts157927_))) + (_output-scm157936_ + (string-append _output-bin157934_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub157670_ _output-scm157674_ _output-bin157672_)) + (_compile-stub157932_ _output-scm157936_ _output-bin157934_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm157674_)))))) + (delete-file _output-scm157936_)))))) (define gxc#find-export-binding - (lambda (_ctx157614_ _id157615_) - (let ((_$e157661_ - (let ((__tmp158274 - (lambda (_e157616157618_) - (let* ((_g157620157630_ _e157616157618_) - (_else157622157638_ (lambda () '#f)) - (_K157624157642_ (lambda () '#t))) + (lambda (_ctx157876_ _id157877_) + (let ((_$e157923_ + (let ((__tmp158536 + (lambda (_e157878157880_) + (let* ((_g157882157892_ _e157878157880_) + (_else157884157900_ (lambda () '#f)) + (_K157886157904_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g157620157630_ + _g157882157892_ 'gx#module-export::t)) - (let* ((_e157625157645_ + (let* ((_e157887157907_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157620157630_ + _g157882157892_ '1 gx#module-export::t '#f))) - (_e157626157648_ + (_e157888157910_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157620157630_ + _g157882157892_ '2 gx#module-export::t '#f))) - (_e157627157651_ + (_e157889157913_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157620157630_ + _g157882157892_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e157627157651_ '0)) - (let ((_e157628157654_ + (##eq? _e157889157913_ '0)) + (let ((_e157890157916_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157620157630_ + _g157882157892_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g157656157658_) + (if ((lambda (_g157918157920_) (let () (declare (not safe)) - (eq? _g157656157658_ - _id157615_))) - _e157628157654_) + (eq? _g157918157920_ + _id157877_))) + _e157890157916_) (let () (declare (not safe)) - (_K157624157642_)) + (_K157886157904_)) (let () (declare (not safe)) - (_else157622157638_)))) + (_else157884157900_)))) (let () (declare (not safe)) - (_else157622157638_)))) + (_else157884157900_)))) (let () (declare (not safe)) - (_else157622157638_)))))) - (__tmp158273 + (_else157884157900_)))))) + (__tmp158535 (##structure-ref - _ctx157614_ + _ctx157876_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp158274 __tmp158273)))) - (if _$e157661_ + (find __tmp158536 __tmp158535)))) + (if _$e157923_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e157661_)) + (gx#core-resolve-module-export _$e157923_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx157606_ _id157607_) - (let ((_$e157609_ + (lambda (_ctx157868_ _id157869_) + (let ((_$e157871_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx157606_ _id157607_)))) - (if _$e157609_ - ((lambda (_bind157612_) + (gxc#find-export-binding _ctx157868_ _id157869_)))) + (if _$e157871_ + ((lambda (_bind157874_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind157612_ + _bind157874_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id157607_))) - (##structure-ref _bind157612_ '1 gx#binding::t '#f)) - _$e157609_) - (let ((__tmp158275 + _id157869_))) + (##structure-ref _bind157874_ '1 gx#binding::t '#f)) + _$e157871_) + (let ((__tmp158537 (##structure-ref - _ctx157606_ + _ctx157868_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp158275 - _id157607_)))))) + __tmp158537 + _id157869_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx157493_) - (letrec* ((_ht157495_ + (lambda (_ctx157755_) + (letrec* ((_ht157757_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import-set-template157496_ - (lambda (_in157558_ _phi157559_) - (let ((_iphi157561_ - (fx+ _phi157559_ + (_import-set-template157758_ + (lambda (_in157820_ _phi157821_) + (let ((_iphi157823_ + (fx+ _phi157821_ (##direct-structure-ref - _in157558_ + _in157820_ '2 gx#import-set::t '#f))) - (_imports157562_ + (_imports157824_ (##structure-ref (##direct-structure-ref - _in157558_ + _in157820_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp157564_ ((_rest157566_ _imports157562_) - (_r157567_ '())) - (let* ((_rest157568157576_ _rest157566_) - (_else157570157584_ (lambda () _r157567_)) - (_K157572157594_ - (lambda (_rest157587_ _in157588_) + (let _lp157826_ ((_rest157828_ _imports157824_) + (_r157829_ '())) + (let* ((_rest157830157838_ _rest157828_) + (_else157832157846_ (lambda () _r157829_)) + (_K157834157856_ + (lambda (_rest157849_ _in157850_) (if (let () (declare (not safe)) (##structure-instance-of? - _in157588_ + _in157850_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi157561_)) - (let ((__tmp158282 + (fxzero? _iphi157823_)) + (let ((__tmp158544 (let () (declare (not safe)) - (cons _in157588_ - _r157567_)))) + (cons _in157850_ + _r157829_)))) (declare (not safe)) - (_lp157564_ - _rest157587_ - __tmp158282)) + (_lp157826_ + _rest157849_ + __tmp158544)) (let () (declare (not safe)) - (_lp157564_ - _rest157587_ - _r157567_))) + (_lp157826_ + _rest157849_ + _r157829_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in157588_ + _in157850_ 'gx#module-import::t)) - (let ((_iphi157590_ - (fx+ _phi157559_ + (let ((_iphi157852_ + (fx+ _phi157821_ (##direct-structure-ref - _in157588_ + _in157850_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi157590_)) - (let ((__tmp158280 - (let ((__tmp158281 + (fxzero? _iphi157852_)) + (let ((__tmp158542 + (let ((__tmp158543 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in157588_ + _in157850_ '1 gx#module-import::t '#f) @@ -1566,888 +1566,888 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp158281 _r157567_)))) + (cons __tmp158543 _r157829_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp157564_ - _rest157587_ - __tmp158280)) + (_lp157826_ + _rest157849_ + __tmp158542)) (let () (declare (not safe)) - (_lp157564_ - _rest157587_ - _r157567_)))) + (_lp157826_ + _rest157849_ + _r157829_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in157588_ + _in157850_ 'gx#import-set::t)) - (let ((_xphi157592_ - (fx+ _iphi157561_ + (let ((_xphi157854_ + (fx+ _iphi157823_ (##direct-structure-ref - _in157588_ + _in157850_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi157592_)) - (let ((__tmp158278 - (let ((__tmp158279 + (fxzero? _xphi157854_)) + (let ((__tmp158540 + (let ((__tmp158541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in157588_ + _in157850_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp158279 _r157567_)))) + (cons __tmp158541 _r157829_)))) (declare (not safe)) - (_lp157564_ _rest157587_ __tmp158278)) + (_lp157826_ _rest157849_ __tmp158540)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi157592_) - (let ((__tmp158276 - (let ((__tmp158277 + _xphi157854_) + (let ((__tmp158538 + (let ((__tmp158539 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template157496_ - _in157588_ - _iphi157561_)))) + (_import-set-template157758_ + _in157850_ + _iphi157823_)))) (declare (not safe)) - (foldl1 cons _r157567_ __tmp158277)))) + (foldl1 cons _r157829_ __tmp158539)))) (declare (not safe)) - (_lp157564_ _rest157587_ __tmp158276)) + (_lp157826_ _rest157849_ __tmp158538)) (let () (declare (not safe)) - (_lp157564_ _rest157587_ _r157567_))))) + (_lp157826_ _rest157849_ _r157829_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp157564_ - _rest157587_ - _r157567_)))))))) + (_lp157826_ + _rest157849_ + _r157829_)))))))) (if (let () (declare (not safe)) - (##pair? _rest157568157576_)) - (let ((_hd157573157597_ + (##pair? _rest157830157838_)) + (let ((_hd157835157859_ (let () (declare (not safe)) - (##car _rest157568157576_))) - (_tl157574157599_ + (##car _rest157830157838_))) + (_tl157836157861_ (let () (declare (not safe)) - (##cdr _rest157568157576_)))) - (let* ((_in157602_ _hd157573157597_) - (_rest157604_ _tl157574157599_)) + (##cdr _rest157830157838_)))) + (let* ((_in157864_ _hd157835157859_) + (_rest157866_ _tl157836157861_)) (declare (not safe)) - (_K157572157594_ _rest157604_ _in157602_))) + (_K157834157856_ _rest157866_ _in157864_))) (let () (declare (not safe)) - (_else157570157584_)))))))) - (_find-deps157497_ - (lambda (_rest157504_ _deps157505_) - (let* ((_rest157506157514_ _rest157504_) - (_else157508157522_ (lambda () _deps157505_)) - (_K157510157546_ - (lambda (_rest157525_ _hd157526_) + (_else157832157846_)))))))) + (_find-deps157759_ + (lambda (_rest157766_ _deps157767_) + (let* ((_rest157768157776_ _rest157766_) + (_else157770157784_ (lambda () _deps157767_)) + (_K157772157808_ + (lambda (_rest157787_ _hd157788_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd157526_ + _hd157788_ 'gx#module-context::t)) - (let ((_id157528_ + (let ((_id157790_ (##structure-ref - _hd157526_ + _hd157788_ '1 gx#expander-context::t '#f)) - (_imports157529_ + (_imports157791_ (##structure-ref - _hd157526_ + _hd157788_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (hash-get _ht157495_ _id157528_)) + (hash-get _ht157757_ _id157790_)) (let () (declare (not safe)) - (_find-deps157497_ - _rest157525_ - _deps157505_)) - (let ((_$e157531_ + (_find-deps157759_ + _rest157787_ + _deps157767_)) + (let ((_$e157793_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd157526_)))) - (if _$e157531_ - ((lambda (_pre157534_) - (let ((_xdeps157536_ - (let ((__tmp158295 + _hd157788_)))) + (if _$e157793_ + ((lambda (_pre157796_) + (let ((_xdeps157798_ + (let ((__tmp158557 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre157534_ _imports157529_)))) + (cons _pre157796_ _imports157791_)))) (declare (not safe)) - (_find-deps157497_ __tmp158295 _deps157505_)))) + (_find-deps157759_ __tmp158557 _deps157767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (hash-put! - _ht157495_ - _id157528_ - _hd157526_)) - (let ((__tmp158296 + _ht157757_ + _id157790_ + _hd157788_)) + (let ((__tmp158558 (let () (declare (not safe)) - (cons _hd157526_ + (cons _hd157788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps157536_)))) + _xdeps157798_)))) (declare (not safe)) - (_find-deps157497_ _rest157525_ __tmp158296)))) + (_find-deps157759_ _rest157787_ __tmp158558)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e157531_) - (let ((_xdeps157538_ + _$e157793_) + (let ((_xdeps157800_ (let () (declare (not safe)) - (_find-deps157497_ - _imports157529_ - _deps157505_)))) + (_find-deps157759_ + _imports157791_ + _deps157767_)))) (let () (declare (not safe)) (hash-put! - _ht157495_ - _id157528_ - _hd157526_)) - (let ((__tmp158294 + _ht157757_ + _id157790_ + _hd157788_)) + (let ((__tmp158556 (let () (declare (not safe)) - (cons _hd157526_ - _xdeps157538_)))) + (cons _hd157788_ + _xdeps157800_)))) (declare (not safe)) - (_find-deps157497_ - _rest157525_ - __tmp158294))))))) + (_find-deps157759_ + _rest157787_ + __tmp158556))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd157526_ + _hd157788_ 'gx#prelude-context::t)) - (let ((_id157540_ + (let ((_id157802_ (##structure-ref - _hd157526_ + _hd157788_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht157495_ - _id157540_)) + _ht157757_ + _id157802_)) (let () (declare (not safe)) - (_find-deps157497_ - _rest157525_ - _deps157505_)) - (let ((_xdeps157542_ - (let ((__tmp158292 + (_find-deps157759_ + _rest157787_ + _deps157767_)) + (let ((_xdeps157804_ + (let ((__tmp158554 (##structure-ref - _hd157526_ + _hd157788_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps157497_ - __tmp158292 - _deps157505_)))) + (_find-deps157759_ + __tmp158554 + _deps157767_)))) (if (let () (declare (not safe)) (hash-get - _ht157495_ - _id157540_)) + _ht157757_ + _id157802_)) (let () (declare (not safe)) - (_find-deps157497_ - _rest157525_ - _xdeps157542_)) + (_find-deps157759_ + _rest157787_ + _xdeps157804_)) (begin (let () (declare (not safe)) (hash-put! - _ht157495_ - _id157540_ - _hd157526_)) - (let ((__tmp158293 + _ht157757_ + _id157802_ + _hd157788_)) + (let ((__tmp158555 (let () (declare (not safe)) - (cons _hd157526_ + (cons _hd157788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps157542_)))) + _xdeps157804_)))) (declare (not safe)) - (_find-deps157497_ _rest157525_ __tmp158293))))))) + (_find-deps157759_ _rest157787_ __tmp158555))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157526_ + _hd157788_ 'gx#module-import::t)) - (if (let ((__tmp158291 + (if (let ((__tmp158553 (##direct-structure-ref - _hd157526_ + _hd157788_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp158291)) - (let ((__tmp158289 - (let ((__tmp158290 + (fxzero? __tmp158553)) + (let ((__tmp158551 + (let ((__tmp158552 (##direct-structure-ref - _hd157526_ + _hd157788_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp158290 - _rest157525_)))) + (cons __tmp158552 + _rest157787_)))) (declare (not safe)) - (_find-deps157497_ - __tmp158289 - _deps157505_)) + (_find-deps157759_ + __tmp158551 + _deps157767_)) (let () (declare (not safe)) - (_find-deps157497_ - _rest157525_ - _deps157505_))) + (_find-deps157759_ + _rest157787_ + _deps157767_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157526_ + _hd157788_ 'gx#module-export::t)) - (let ((__tmp158287 - (let ((__tmp158288 + (let ((__tmp158549 + (let ((__tmp158550 (##direct-structure-ref - _hd157526_ + _hd157788_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp158288 - _rest157525_)))) + (cons __tmp158550 + _rest157787_)))) (declare (not safe)) - (_find-deps157497_ - __tmp158287 - _deps157505_)) + (_find-deps157759_ + __tmp158549 + _deps157767_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157526_ + _hd157788_ 'gx#import-set::t)) - (if (let ((__tmp158286 + (if (let ((__tmp158548 (##direct-structure-ref - _hd157526_ + _hd157788_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp158286)) - (let ((__tmp158284 - (let ((__tmp158285 + (fxzero? __tmp158548)) + (let ((__tmp158546 + (let ((__tmp158547 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd157526_ + _hd157788_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp158285 _rest157525_)))) + (cons __tmp158547 _rest157787_)))) (declare (not safe)) - (_find-deps157497_ __tmp158284 _deps157505_)) + (_find-deps157759_ __tmp158546 _deps157767_)) (if (fxpositive? (##direct-structure-ref - _hd157526_ + _hd157788_ '2 gx#import-set::t '#f)) - (let* ((_xdeps157544_ + (let* ((_xdeps157806_ (let () (declare (not safe)) - (_import-set-template157496_ _hd157526_ '0))) - (__tmp158283 + (_import-set-template157758_ _hd157788_ '0))) + (__tmp158545 (let () (declare (not safe)) - (foldl1 cons _rest157525_ _xdeps157544_)))) + (foldl1 cons _rest157787_ _xdeps157806_)))) (declare (not safe)) - (_find-deps157497_ __tmp158283 _deps157505_)) + (_find-deps157759_ __tmp158545 _deps157767_)) (let () (declare (not safe)) - (_find-deps157497_ _rest157525_ _deps157505_)))) + (_find-deps157759_ _rest157787_ _deps157767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _hd157526_)))))))))) + _hd157788_)))))))))) (if (let () (declare (not safe)) - (##pair? _rest157506157514_)) - (let ((_hd157511157549_ + (##pair? _rest157768157776_)) + (let ((_hd157773157811_ (let () (declare (not safe)) - (##car _rest157506157514_))) - (_tl157512157551_ + (##car _rest157768157776_))) + (_tl157774157813_ (let () (declare (not safe)) - (##cdr _rest157506157514_)))) - (let* ((_hd157554_ _hd157511157549_) - (_rest157556_ _tl157512157551_)) + (##cdr _rest157768157776_)))) + (let* ((_hd157816_ _hd157773157811_) + (_rest157818_ _tl157774157813_)) (declare (not safe)) - (_K157510157546_ _rest157556_ _hd157554_))) + (_K157772157808_ _rest157818_ _hd157816_))) (let () (declare (not safe)) - (_else157508157522_))))))) - (reverse (let ((__tmp158297 - (let ((__tmp158298 - (let ((_$e157499_ + (_else157770157784_))))))) + (reverse (let ((__tmp158559 + (let ((__tmp158560 + (let ((_$e157761_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx157493_)))) - (if _$e157499_ - ((lambda (_pre157502_) - (let ((__tmp158299 + _ctx157755_)))) + (if _$e157761_ + ((lambda (_pre157764_) + (let ((__tmp158561 (##structure-ref - _ctx157493_ + _ctx157755_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre157502_ __tmp158299))) - _$e157499_) + (cons _pre157764_ __tmp158561))) + _$e157761_) (##structure-ref - _ctx157493_ + _ctx157755_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps157497_ __tmp158298 '())))) + (_find-deps157759_ __tmp158560 '())))) (declare (not safe)) - (filter gx#expander-context-id __tmp158297)))))) + (filter gx#expander-context-id __tmp158559)))))) (define gxc#find-static-module-file - (lambda (_ctx157424_) - (let* ((_context-id157426_ + (lambda (_ctx157686_) + (let* ((_context-id157688_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx157424_ + _ctx157686_ 'gx#module-context::t)) - (##structure-ref _ctx157424_ '1 gx#expander-context::t '#f) - (string->symbol _ctx157424_))) - (_scm157428_ + (##structure-ref _ctx157686_ '1 gx#expander-context::t '#f) + (string->symbol _ctx157686_))) + (_scm157690_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id157426_)) + (gxc#static-module-name _context-id157688_)) '".scm")) - (_dirs157430_ (gx#current-expander-module-library-path)) - (_dirs157436_ - (let ((_user-libpath157432_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath157432_ - (let ((_user-libpath157434_ - (path-expand '"lib" _user-libpath157432_))) - (if (member _user-libpath157434_ _dirs157430_) - _dirs157430_ + (_dirs157692_ (gx#current-expander-module-library-path)) + (_dirs157698_ + (let ((_user-libpath157694_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath157694_ + (let ((_user-libpath157696_ + (path-expand '"lib" _user-libpath157694_))) + (if (member _user-libpath157696_ _dirs157692_) + _dirs157692_ (let () (declare (not safe)) - (cons _user-libpath157434_ _dirs157430_)))) - _dirs157430_))) - (_dirs157445_ - (let ((_$e157438_ (gxc#current-compile-output-dir))) - (if _$e157438_ - ((lambda (_g157440157442_) + (cons _user-libpath157696_ _dirs157692_)))) + _dirs157692_))) + (_dirs157707_ + (let ((_$e157700_ (gxc#current-compile-output-dir))) + (if _$e157700_ + ((lambda (_g157702157704_) (let () (declare (not safe)) - (cons _g157440157442_ _dirs157436_))) - _$e157438_) - _dirs157436_))) - (_dirs157451_ - (map (lambda (_g157446157448_) - (path-expand '"static" _g157446157448_)) - _dirs157445_))) - (let _lp157454_ ((_rest157456_ _dirs157451_)) - (let* ((_rest157457157465_ _rest157456_) - (_else157459157473_ + (cons _g157702157704_ _dirs157698_))) + _$e157700_) + _dirs157698_))) + (_dirs157713_ + (map (lambda (_g157708157710_) + (path-expand '"static" _g157708157710_)) + _dirs157707_))) + (let _lp157716_ ((_rest157718_ _dirs157713_)) + (let* ((_rest157719157727_ _rest157718_) + (_else157721157735_ (lambda () - (let ((__tmp158300 + (let ((__tmp158562 (##structure-ref - _ctx157424_ + _ctx157686_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp158300 - _scm157428_)))) - (_K157461157481_ - (lambda (_rest157476_ _dir157477_) - (let ((_path157479_ - (path-expand _scm157428_ _dir157477_))) - (if (file-exists? _path157479_) - _path157479_ + __tmp158562 + _scm157690_)))) + (_K157723157743_ + (lambda (_rest157738_ _dir157739_) + (let ((_path157741_ + (path-expand _scm157690_ _dir157739_))) + (if (file-exists? _path157741_) + _path157741_ (let () (declare (not safe)) - (_lp157454_ _rest157476_))))))) - (if (let () (declare (not safe)) (##pair? _rest157457157465_)) - (let ((_hd157462157484_ + (_lp157716_ _rest157738_))))))) + (if (let () (declare (not safe)) (##pair? _rest157719157727_)) + (let ((_hd157724157746_ (let () (declare (not safe)) - (##car _rest157457157465_))) - (_tl157463157486_ + (##car _rest157719157727_))) + (_tl157725157748_ (let () (declare (not safe)) - (##cdr _rest157457157465_)))) - (let* ((_dir157489_ _hd157462157484_) - (_rest157491_ _tl157463157486_)) + (##cdr _rest157719157727_)))) + (let* ((_dir157751_ _hd157724157746_) + (_rest157753_ _tl157725157748_)) (declare (not safe)) - (_K157461157481_ _rest157491_ _dir157489_))) - (let () (declare (not safe)) (_else157459157473_)))))))) + (_K157723157743_ _rest157753_ _dir157751_))) + (let () (declare (not safe)) (_else157721157735_)))))))) (define gxc#file-empty? - (lambda (_path157422_) - (let ((__tmp158301 (file-info-size (file-info _path157422_ '#t)))) + (lambda (_path157684_) + (let ((__tmp158563 (file-info-size (file-info _path157684_ '#t)))) (declare (not safe)) - (zero? __tmp158301)))) + (zero? __tmp158563)))) (define gxc#compile-top-module - (lambda (_ctx157411_) - (let ((__tmp158305 + (lambda (_ctx157673_) + (let ((__tmp158567 (lambda () - (let ((__tmp158306 + (let ((__tmp158568 (##structure-ref - _ctx157411_ + _ctx157673_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp158306)) + (gxc#verbose '"compile " __tmp158568)) (if (gxc#current-compile-optimize) - (let ((__tmp158307 + (let ((__tmp158569 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx157411_))))) + (gxc#optimize! _ctx157673_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158307)) + (with-lock gxc#+driver-mutex+ __tmp158569)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx157411_)) - (if (let ((__tmp158310 + (gxc#collect-bindings _ctx157673_)) + (if (let ((__tmp158572 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx157411_)))) + (gxc#lift-nested-modules _ctx157673_)))) (declare (not safe)) - (null? __tmp158310)) - (let* ((_thr1157416_ - (let ((__tmp158308 + (null? __tmp158572)) + (let* ((_thr1157678_ + (let ((__tmp158570 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx157411_))))) + _ctx157673_))))) (declare (not safe)) - (spawn __tmp158308))) - (_thr2157419_ - (let ((__tmp158309 + (spawn __tmp158570))) + (_thr2157681_ + (let ((__tmp158571 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx157411_))))) + (gxc#compile-meta-code _ctx157673_))))) (declare (not safe)) - (spawn __tmp158309)))) - (let () (declare (not safe)) (gxc#join! _thr1157416_)) - (let () (declare (not safe)) (gxc#join! _thr2157419_))) + (spawn __tmp158571)))) + (let () (declare (not safe)) (gxc#join! _thr1157678_)) + (let () (declare (not safe)) (gxc#join! _thr2157681_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx157411_)) + (gxc#compile-runtime-code _ctx157673_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx157411_)))) + (gxc#compile-meta-code _ctx157673_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx157411_)) + (gxc#compile-ssxi-code _ctx157673_)) '#!void))) - (__tmp158304 - (let ((__obj158109 + (__tmp158566 + (let ((__obj158371 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj158109) - __obj158109)) - (__tmp158303 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158302 (let () (declare (not safe)) (make-hash-table)))) + (gxc#symbol-table:::init! __obj158371) + __obj158371)) + (__tmp158565 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp158564 (let () (declare (not safe)) (make-hash-table)))) (declare (not safe)) (call-with-parameters - __tmp158305 + __tmp158567 gx#current-expander-context - _ctx157411_ + _ctx157673_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp158304 + __tmp158566 gxc#current-compile-runtime-sections - __tmp158303 + __tmp158565 gxc#current-compile-runtime-names - __tmp158302)))) + __tmp158564)))) (define gxc#collect-bindings - (lambda (_ctx157409_) - (let ((__tmp158311 - (##structure-ref _ctx157409_ '11 gx#module-context::t '#f))) + (lambda (_ctx157671_) + (let ((__tmp158573 + (##structure-ref _ctx157671_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp158311)))) + (gxc#apply-collect-bindings __tmp158573)))) (define gxc#compile-runtime-code - (lambda (_ctx157355_) - (letrec ((_compile1157357_ - (lambda (_ctx157398_) - (let* ((_code157400_ + (lambda (_ctx157617_) + (letrec ((_compile1157619_ + (lambda (_ctx157660_) + (let* ((_code157662_ (##structure-ref - _ctx157398_ + _ctx157660_ '11 gx#module-context::t '#f)) - (_rt157404_ + (_rt157666_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code157400_)) - (let ((_idstr157402_ - (let ((__tmp158312 + (gxc#apply-find-runtime-code _code157662_)) + (let ((_idstr157664_ + (let ((__tmp158574 (##structure-ref - _ctx157398_ + _ctx157660_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp158312)))) - (string-append _idstr157402_ '"__0")) + __tmp158574)))) + (string-append _idstr157664_ '"__0")) '#f))) - (if _rt157404_ + (if _rt157666_ (begin - (let ((__tmp158313 + (let ((__tmp158575 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-put! __tmp158313 _ctx157398_ _rt157404_)) + (hash-put! __tmp158575 _ctx157660_ _rt157666_)) (let () (declare (not safe)) - (_generate-runtime-code157359_ - _ctx157398_ - _code157400_))) - (let ((_path157407_ + (_generate-runtime-code157621_ + _ctx157660_ + _code157662_))) + (let ((_path157669_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx157398_)))) + _ctx157660_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path157407_ + _path157669_ void))) (let () (declare (not safe)) - (_generate-loader-code157360_ - _ctx157398_ - _code157400_ - _rt157404_))))) - (_context-timestamp157358_ - (lambda (_ctx157396_) + (_generate-loader-code157622_ + _ctx157660_ + _code157662_ + _rt157666_))))) + (_context-timestamp157620_ + (lambda (_ctx157658_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx157396_ + _ctx157658_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code157359_ - (lambda (_ctx157378_ _code157379_) - (let* ((_lifts157381_ + (_generate-runtime-code157621_ + (lambda (_ctx157640_ _code157641_) + (let* ((_lifts157643_ (let () (declare (not safe)) (box '()))) - (_runtime-code157384_ - (let ((__tmp158316 + (_runtime-code157646_ + (let ((__tmp158578 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code157379_)))) - (__tmp158315 + _code157641_)))) + (__tmp158577 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158314 + (__tmp158576 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp158316 + __tmp158578 gx#current-expander-context - _ctx157378_ + _ctx157640_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts157381_ + _lifts157643_ gxc#current-compile-marks - __tmp158315 + __tmp158577 gxc#current-compile-identifiers - __tmp158314))) - (_runtime-code157386_ - (if (let ((__tmp158320 (unbox _lifts157381_))) + __tmp158576))) + (_runtime-code157648_ + (if (let ((__tmp158582 (unbox _lifts157643_))) (declare (not safe)) - (null? __tmp158320)) - _runtime-code157384_ - (let ((__tmp158317 - (let ((__tmp158319 + (null? __tmp158582)) + _runtime-code157646_ + (let ((__tmp158579 + (let ((__tmp158581 (let () (declare (not safe)) - (cons _runtime-code157384_ + (cons _runtime-code157646_ '()))) - (__tmp158318 - (reverse (unbox _lifts157381_)))) + (__tmp158580 + (reverse (unbox _lifts157643_)))) (declare (not safe)) (foldr1 cons - __tmp158319 - __tmp158318)))) + __tmp158581 + __tmp158580)))) (declare (not safe)) - (cons 'begin __tmp158317)))) - (_runtime-code157388_ - (let ((__tmp158321 - (let ((__tmp158323 - (let ((__tmp158324 - (let ((__tmp158327 + (cons 'begin __tmp158579)))) + (_runtime-code157650_ + (let ((__tmp158583 + (let ((__tmp158585 + (let ((__tmp158586 + (let ((__tmp158589 (let () (declare (not safe)) - (_context-timestamp157358_ - _ctx157378_))) - (__tmp158325 - (let ((__tmp158326 + (_context-timestamp157620_ + _ctx157640_))) + (__tmp158587 + (let ((__tmp158588 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp158326 + (cons __tmp158588 '())))) (declare (not safe)) - (cons __tmp158327 - __tmp158325)))) + (cons __tmp158589 + __tmp158587)))) (declare (not safe)) - (cons 'define __tmp158324))) - (__tmp158322 + (cons 'define __tmp158586))) + (__tmp158584 (let () (declare (not safe)) - (cons _runtime-code157386_ '())))) + (cons _runtime-code157648_ '())))) (declare (not safe)) - (cons __tmp158323 __tmp158322)))) + (cons __tmp158585 __tmp158584)))) (declare (not safe)) - (cons 'begin __tmp158321))) - (_scm0157390_ + (cons 'begin __tmp158583))) + (_scm0157652_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx157378_ + _ctx157640_ '0 '".scm")))) - (let ((_scms157393_ + (let ((_scms157655_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx157378_)))) - (let ((__tmp158328 + (gxc#compile-static-output-file _ctx157640_)))) + (let ((__tmp158590 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0157390_ - _runtime-code157388_))))) + _scm0157652_ + _runtime-code157650_))))) (declare (not safe)) (call-with-parameters - __tmp158328 + __tmp158590 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms157393_) - (delete-file _scms157393_) + (if (file-exists? _scms157655_) + (delete-file _scms157655_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0157390_ + _scm0157652_ '" => " - _scms157393_)) - (copy-file _scm0157390_ _scms157393_) + _scms157655_)) + (copy-file _scm0157652_ _scms157655_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0157390_)))))) - (_generate-loader-code157360_ - (lambda (_ctx157367_ _code157368_ _rt157369_) - (let* ((_loader-code157372_ - (let ((__tmp158329 + (delete-file _scm0157652_)))))) + (_generate-loader-code157622_ + (lambda (_ctx157629_ _code157630_ _rt157631_) + (let* ((_loader-code157634_ + (let ((__tmp158591 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code157368_))))) + _code157630_))))) (declare (not safe)) (call-with-parameters - __tmp158329 + __tmp158591 gx#current-expander-context - _ctx157367_))) - (_loader-code157374_ - (if _rt157369_ - (let ((__tmp158330 - (let ((__tmp158331 - (let ((__tmp158332 - (let ((__tmp158333 + _ctx157629_))) + (_loader-code157636_ + (if _rt157631_ + (let ((__tmp158592 + (let ((__tmp158593 + (let ((__tmp158594 + (let ((__tmp158595 (let () (declare (not safe)) - (cons _rt157369_ + (cons _rt157631_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp158333)))) + (cons 'load-module __tmp158595)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158332 '())))) + (cons __tmp158594 '())))) (declare (not safe)) - (cons _loader-code157372_ - __tmp158331)))) + (cons _loader-code157634_ + __tmp158593)))) (declare (not safe)) - (cons 'begin __tmp158330)) - _loader-code157372_))) - (let ((__tmp158334 + (cons 'begin __tmp158592)) + _loader-code157634_))) + (let ((__tmp158596 (lambda () - (let ((__tmp158335 + (let ((__tmp158597 (let () (declare (not safe)) (gxc#compile-output-file - _ctx157367_ + _ctx157629_ 'rt '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp158335 - _loader-code157374_))))) + __tmp158597 + _loader-code157636_))))) (declare (not safe)) (call-with-parameters - __tmp158334 + __tmp158596 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules157362_ - (let ((__tmp158336 + (let ((_all-modules157624_ + (let ((__tmp158598 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx157355_)))) + (gxc#lift-nested-modules _ctx157617_)))) (declare (not safe)) - (cons _ctx157355_ __tmp158336)))) + (cons _ctx157617_ __tmp158598)))) (for-each - (lambda (_ctx157364_) - (let ((__tmp158337 + (lambda (_ctx157626_) + (let ((__tmp158599 (lambda () (let () (declare (not safe)) - (_compile1157357_ _ctx157364_))))) + (_compile1157619_ _ctx157626_))))) (declare (not safe)) (call-with-parameters - __tmp158337 + __tmp158599 gxc#current-compile-decls '()))) - _all-modules157362_))))) + _all-modules157624_))))) (define gxc#compile-meta-code - (lambda (_ctx157252_) - (letrec ((_compile-ssi157254_ - (lambda (_code157325_) - (let* ((_path157327_ + (lambda (_ctx157514_) + (letrec ((_compile-ssi157516_ + (lambda (_code157587_) + (let* ((_path157589_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx157252_ + _ctx157514_ '#f '".ssi"))) - (_prelude157338_ - (let* ((_super157329_ + (_prelude157600_ + (let* ((_super157591_ (##structure-ref - _ctx157252_ + _ctx157514_ '3 gx#phi-context::t '#f)) - (_$e157331_ + (_$e157593_ (##structure-ref - _super157329_ + _super157591_ '1 gx#expander-context::t '#f))) - (if _$e157331_ - ((lambda (_g157333157335_) + (if _$e157593_ + ((lambda (_g157595157597_) (let () (declare (not safe)) - (make-symbol__1 '":" _g157333157335_))) - _$e157331_) + (make-symbol__1 '":" _g157595157597_))) + _$e157593_) ':<root>))) - (_ns157340_ + (_ns157602_ (##structure-ref - _ctx157252_ + _ctx157514_ '6 gx#module-context::t '#f)) - (_idstr157342_ + (_idstr157604_ (symbol->string (##structure-ref - _ctx157252_ + _ctx157514_ '1 gx#expander-context::t '#f))) - (_pkg157349_ - (let ((_$e157344_ + (_pkg157611_ + (let ((_$e157606_ (let () (declare (not safe)) - (string-rindex__0 _idstr157342_ '#\/)))) - (if _$e157344_ - ((lambda (_x157347_) + (string-rindex__0 _idstr157604_ '#\/)))) + (if _$e157606_ + ((lambda (_x157609_) (string->symbol - (substring _idstr157342_ '0 _x157347_))) - _$e157344_) + (substring _idstr157604_ '0 _x157609_))) + _$e157606_) '#f))) - (_rt157351_ - (let ((__tmp158338 + (_rt157613_ + (let ((__tmp158600 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-get __tmp158338 _ctx157252_)))) + (hash-get __tmp158600 _ctx157514_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path157327_)) - (let ((__tmp158339 + (gxc#verbose '"compile " _path157589_)) + (let ((__tmp158601 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude157338_)) - (if _pkg157349_ + (displayln '"prelude:" '" " _prelude157600_)) + (if _pkg157611_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg157349_)) + (displayln '"package:" '" " _pkg157611_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns157340_)) + (displayln '"namespace:" '" " _ns157602_)) (newline) - (pretty-print _code157325_) - (if _rt157351_ + (pretty-print _code157587_) + (if _rt157613_ (pretty-print - (let ((__tmp158340 - (let ((__tmp158344 - (let ((__tmp158345 + (let ((__tmp158602 + (let ((__tmp158606 + (let ((__tmp158607 (let () (declare (not safe)) (cons 'load-module @@ -2455,1098 +2455,1098 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp158345))) - (__tmp158341 - (let ((__tmp158342 - (let ((__tmp158343 + (cons '%#ref __tmp158607))) + (__tmp158603 + (let ((__tmp158604 + (let ((__tmp158605 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt157351_ '())))) + (cons _rt157613_ '())))) (declare (not safe)) - (cons '%#quote __tmp158343)))) + (cons '%#quote __tmp158605)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158342 '())))) + (cons __tmp158604 '())))) (declare (not safe)) - (cons __tmp158344 __tmp158341)))) + (cons __tmp158606 __tmp158603)))) (declare (not safe)) - (cons '%#call __tmp158340))) + (cons '%#call __tmp158602))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path157327_ - __tmp158339))))) - (_compile-phi157255_ - (lambda (_part157265_) - (let* ((_part157266157279_ _part157265_) - (_E157268157283_ + _path157589_ + __tmp158601))))) + (_compile-phi157517_ + (lambda (_part157527_) + (let* ((_part157528157541_ _part157527_) + (_E157530157545_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _part157266157279_)))) - (_K157269157294_ - (lambda (_code157286_ - _n157287_ - _phi157288_ - _phi-ctx157289_) - (let* ((_code157292_ - (let ((__tmp158346 + _part157528157541_)))) + (_K157531157556_ + (lambda (_code157548_ + _n157549_ + _phi157550_ + _phi-ctx157551_) + (let* ((_code157554_ + (let ((__tmp158608 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code157286_))))) + _code157548_))))) (declare (not safe)) (call-with-parameters - __tmp158346 + __tmp158608 gx#current-expander-context - _phi-ctx157289_ + _phi-ctx157551_ gx#current-expander-phi - _phi157288_))) - (__tmp158347 + _phi157550_))) + (__tmp158609 (let () (declare (not safe)) (gxc#compile-output-file - _ctx157252_ - _n157287_ + _ctx157514_ + _n157549_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp158347 - _code157292_ + __tmp158609 + _code157554_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part157266157279_)) - (let ((_hd157270157297_ + (##pair? _part157528157541_)) + (let ((_hd157532157559_ (let () (declare (not safe)) - (##car _part157266157279_))) - (_tl157271157299_ + (##car _part157528157541_))) + (_tl157533157561_ (let () (declare (not safe)) - (##cdr _part157266157279_)))) - (let ((_phi-ctx157302_ _hd157270157297_)) + (##cdr _part157528157541_)))) + (let ((_phi-ctx157564_ _hd157532157559_)) (if (let () (declare (not safe)) - (##pair? _tl157271157299_)) - (let ((_hd157272157304_ + (##pair? _tl157533157561_)) + (let ((_hd157534157566_ (let () (declare (not safe)) - (##car _tl157271157299_))) - (_tl157273157306_ + (##car _tl157533157561_))) + (_tl157535157568_ (let () (declare (not safe)) - (##cdr _tl157271157299_)))) - (let ((_phi157309_ _hd157272157304_)) + (##cdr _tl157533157561_)))) + (let ((_phi157571_ _hd157534157566_)) (if (let () (declare (not safe)) - (##pair? _tl157273157306_)) - (let ((_hd157274157311_ + (##pair? _tl157535157568_)) + (let ((_hd157536157573_ (let () (declare (not safe)) - (##car _tl157273157306_))) - (_tl157275157313_ + (##car _tl157535157568_))) + (_tl157537157575_ (let () (declare (not safe)) - (##cdr _tl157273157306_)))) - (let ((_n157316_ _hd157274157311_)) + (##cdr _tl157535157568_)))) + (let ((_n157578_ _hd157536157573_)) (if (let () (declare (not safe)) - (##pair? _tl157275157313_)) - (let ((_hd157276157318_ + (##pair? _tl157537157575_)) + (let ((_hd157538157580_ (let () (declare (not safe)) - (##car _tl157275157313_))) - (_tl157277157320_ + (##car _tl157537157575_))) + (_tl157539157582_ (let () (declare (not safe)) - (##cdr _tl157275157313_)))) - (let ((_code157323_ - _hd157276157318_)) + (##cdr _tl157537157575_)))) + (let ((_code157585_ + _hd157538157580_)) (if (let () (declare (not safe)) - (##null? _tl157277157320_)) + (##null? _tl157539157582_)) (let () (declare (not safe)) - (_K157269157294_ - _code157323_ - _n157316_ - _phi157309_ - _phi-ctx157302_)) + (_K157531157556_ + _code157585_ + _n157578_ + _phi157571_ + _phi-ctx157564_)) (let () (declare (not safe)) - (_E157268157283_))))) + (_E157530157545_))))) (let () (declare (not safe)) - (_E157268157283_))))) + (_E157530157545_))))) (let () (declare (not safe)) - (_E157268157283_))))) + (_E157530157545_))))) (let () (declare (not safe)) - (_E157268157283_))))) - (let () (declare (not safe)) (_E157268157283_))))))) - (let ((_g158348_ + (_E157530157545_))))) + (let () (declare (not safe)) (_E157530157545_))))))) + (let ((_g158610_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx157252_)))) + (gxc#generate-meta-code _ctx157514_)))) (begin - (let ((_g158349_ + (let ((_g158611_ (let () (declare (not safe)) - (if (##values? _g158348_) - (##vector-length _g158348_) + (if (##values? _g158610_) + (##vector-length _g158610_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g158349_ 2))) - (error "Context expects 2 values" _g158349_))) - (let ((_ssi-code157257_ - (let () (declare (not safe)) (##vector-ref _g158348_ 0))) - (_phi-code157258_ - (let () (declare (not safe)) (##vector-ref _g158348_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g158611_ 2))) + (error "Context expects 2 values" _g158611_))) + (let ((_ssi-code157519_ + (let () (declare (not safe)) (##vector-ref _g158610_ 0))) + (_phi-code157520_ + (let () (declare (not safe)) (##vector-ref _g158610_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi157254_ _ssi-code157257_)) - (let ((_threads157263_ - (map (lambda (_code157260_) - (let ((__tmp158350 + (_compile-ssi157516_ _ssi-code157519_)) + (let ((_threads157525_ + (map (lambda (_code157522_) + (let ((__tmp158612 (lambda () (let () (declare (not safe)) - (_compile-phi157255_ - _code157260_))))) + (_compile-phi157517_ + _code157522_))))) (declare (not safe)) - (spawn __tmp158350))) - _phi-code157258_))) - (for-each gxc#join! _threads157263_))))))))) + (spawn __tmp158612))) + _phi-code157520_))) + (for-each gxc#join! _threads157525_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx157235_) - (let* ((_path157237_ + (lambda (_ctx157497_) + (let* ((_path157499_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx157235_ '#f '".ssxi.ss"))) - (_code157239_ - (let ((__tmp158351 + (gxc#compile-output-file _ctx157497_ '#f '".ssxi.ss"))) + (_code157501_ + (let ((__tmp158613 (##structure-ref - _ctx157235_ + _ctx157497_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp158351))) - (_idstr157241_ + (gxc#apply-generate-ssxi __tmp158613))) + (_idstr157503_ (symbol->string - (##structure-ref _ctx157235_ '1 gx#expander-context::t '#f))) - (_pkg157248_ - (let ((_$e157243_ + (##structure-ref _ctx157497_ '1 gx#expander-context::t '#f))) + (_pkg157510_ + (let ((_$e157505_ (let () (declare (not safe)) - (string-rindex__0 _idstr157241_ '#\/)))) - (if _$e157243_ - ((lambda (_x157246_) + (string-rindex__0 _idstr157503_ '#\/)))) + (if _$e157505_ + ((lambda (_x157508_) (string->symbol - (substring _idstr157241_ '0 _x157246_))) - _$e157243_) + (substring _idstr157503_ '0 _x157508_))) + _$e157505_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path157237_)) - (let ((__tmp158352 + (let () (declare (not safe)) (gxc#verbose '"compile " _path157499_)) + (let ((__tmp158614 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg157248_ + (if _pkg157510_ (let () (declare (not safe)) - (displayln '"package: " _pkg157248_)) + (displayln '"package: " _pkg157510_)) '#!void) (newline) - (pretty-print _code157239_)))) + (pretty-print _code157501_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path157237_ __tmp158352))))) + (gxc#with-output-to-scheme-file _path157499_ __tmp158614))))) (define gxc#generate-meta-code - (lambda (_ctx157228_) - (let* ((_state157230_ - (let ((__obj158110 + (lambda (_ctx157490_) + (let* ((_state157492_ + (let ((__obj158372 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj158110 _ctx157228_) - __obj158110)) - (_ssi-code157232_ - (let ((__tmp158353 + (gxc#meta-state:::init! __obj158372 _ctx157490_) + __obj158372)) + (_ssi-code157494_ + (let ((__tmp158615 (##structure-ref - _ctx157228_ + _ctx157490_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-meta __tmp158353 _state157230_)))) - (values _ssi-code157232_ + (gxc#apply-generate-meta __tmp158615 _state157492_)))) + (values _ssi-code157494_ (let () (declare (not safe)) - (gxc#meta-state-end! _state157230_)))))) + (gxc#meta-state-end! _state157492_)))))) (define gxc#generate-runtime-phi - (lambda (_stx157221_) - (let ((_lifts157223_ (let () (declare (not safe)) (box '())))) - (let ((__tmp158356 + (lambda (_stx157483_) + (let ((_lifts157485_ (let () (declare (not safe)) (box '())))) + (let ((__tmp158618 (lambda () - (let ((_code157226_ + (let ((_code157488_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx157221_)))) - (if (let ((__tmp158360 (unbox _lifts157223_))) + (gxc#apply-generate-runtime-phi _stx157483_)))) + (if (let ((__tmp158622 (unbox _lifts157485_))) (declare (not safe)) - (null? __tmp158360)) - _code157226_ - (let ((__tmp158357 - (let ((__tmp158359 + (null? __tmp158622)) + _code157488_ + (let ((__tmp158619 + (let ((__tmp158621 (let () (declare (not safe)) - (cons _code157226_ '()))) - (__tmp158358 - (reverse (unbox _lifts157223_)))) + (cons _code157488_ '()))) + (__tmp158620 + (reverse (unbox _lifts157485_)))) (declare (not safe)) - (foldr1 cons __tmp158359 __tmp158358)))) + (foldr1 cons __tmp158621 __tmp158620)))) (declare (not safe)) - (cons 'begin __tmp158357)))))) - (__tmp158355 + (cons 'begin __tmp158619)))))) + (__tmp158617 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158354 + (__tmp158616 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp158356 + __tmp158618 gxc#current-compile-lift - _lifts157223_ + _lifts157485_ gxc#current-compile-marks - __tmp158355 + __tmp158617 gxc#current-compile-identifiers - __tmp158354))))) + __tmp158616))))) (define gxc#lift-nested-modules - (lambda (_ctx157217_) - (let ((_modules157219_ (let () (declare (not safe)) (box '())))) - (let ((__tmp158361 - (##structure-ref _ctx157217_ '11 gx#module-context::t '#f))) + (lambda (_ctx157479_) + (let ((_modules157481_ (let () (declare (not safe)) (box '())))) + (let ((__tmp158623 + (##structure-ref _ctx157479_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp158361 _modules157219_)) - (reverse (unbox _modules157219_))))) + (gxc#apply-lift-modules __tmp158623 _modules157481_)) + (reverse (unbox _modules157481_))))) (define gxc#compile-scm-file__% - (lambda (_path157200_ _code157201_ _phi?157202_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path157200_)) - (let ((__tmp158362 + (lambda (_path157462_ _code157463_ _phi?157464_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path157462_)) + (let ((__tmp158624 (lambda () (pretty-print - (let ((__tmp158363 - (let ((__tmp158370 + (let ((__tmp158625 + (let ((__tmp158632 (let () (declare (not safe)) (cons 'block '()))) - (__tmp158364 - (let ((__tmp158369 + (__tmp158626 + (let ((__tmp158631 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp158365 - (let ((__tmp158368 + (__tmp158627 + (let ((__tmp158630 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp158366 - (let ((__tmp158367 - (if _phi?157202_ + (__tmp158628 + (let ((__tmp158629 + (if _phi?157464_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp158367)))) + __tmp158629)))) (declare (not safe)) - (cons __tmp158368 __tmp158366)))) + (cons __tmp158630 __tmp158628)))) (declare (not safe)) - (cons __tmp158369 __tmp158365)))) + (cons __tmp158631 __tmp158627)))) (declare (not safe)) - (cons __tmp158370 __tmp158364)))) + (cons __tmp158632 __tmp158626)))) (declare (not safe)) - (cons 'declare __tmp158363))) - (pretty-print _code157201_)))) + (cons 'declare __tmp158625))) + (pretty-print _code157463_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path157200_ __tmp158362)) + (gxc#with-output-to-scheme-file _path157462_ __tmp158624)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path157200_ _phi?157202_)) + (gxc#gsc-compile-file _path157462_ _phi?157464_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path157200_)))) + (delete-file _path157462_)))) (define gxc#compile-scm-file__0 - (lambda (_path157208_ _code157209_) - (let ((_phi?157211_ '#f)) + (lambda (_path157470_ _code157471_) + (let ((_phi?157473_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path157208_ _code157209_ _phi?157211_)))) + (gxc#compile-scm-file__% _path157470_ _code157471_ _phi?157473_)))) (define gxc#compile-scm-file - (lambda _g158372_ - (let ((_g158371_ (let () (declare (not safe)) (##length _g158372_)))) - (cond ((let () (declare (not safe)) (##fx= _g158371_ 2)) - (apply (lambda (_path157208_ _code157209_) + (lambda _g158634_ + (let ((_g158633_ (let () (declare (not safe)) (##length _g158634_)))) + (cond ((let () (declare (not safe)) (##fx= _g158633_ 2)) + (apply (lambda (_path157470_ _code157471_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path157208_ - _code157209_))) - _g158372_)) - ((let () (declare (not safe)) (##fx= _g158371_ 3)) - (apply (lambda (_path157213_ _code157214_ _phi?157215_) + _path157470_ + _code157471_))) + _g158634_)) + ((let () (declare (not safe)) (##fx= _g158633_ 3)) + (apply (lambda (_path157475_ _code157476_ _phi?157477_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path157213_ - _code157214_ - _phi?157215_))) - _g158372_)) + _path157475_ + _code157476_ + _phi?157477_))) + _g158634_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g158372_)))))) + _g158634_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?157101_) - (let _lp157103_ ((_rest157105_ (gxc#current-compile-gsc-options)) - (_opts157106_ '())) - (let* ((_rest157107157127_ _rest157105_) - (_else157111157135_ + (lambda (_phi?157363_) + (let _lp157365_ ((_rest157367_ (gxc#current-compile-gsc-options)) + (_opts157368_ '())) + (let* ((_rest157369157389_ _rest157367_) + (_else157373157397_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?157101_)) + (if (and (let () (declare (not safe)) (not _phi?157363_)) (gxc#current-compile-debug)) - (let ((__tmp158373 - (let ((__tmp158374 (reverse _opts157106_))) + (let ((__tmp158635 + (let ((__tmp158636 (reverse _opts157368_))) (declare (not safe)) - (cons '"-track-scheme" __tmp158374)))) + (cons '"-track-scheme" __tmp158636)))) (declare (not safe)) - (cons '"-debug-source" __tmp158373)) - (reverse _opts157106_))))) - (let ((_K157121157178_ - (lambda (_rest157176_) + (cons '"-debug-source" __tmp158635)) + (reverse _opts157368_))))) + (let ((_K157383157440_ + (lambda (_rest157438_) (let () (declare (not safe)) - (_lp157103_ _rest157176_ _opts157106_)))) - (_K157116157160_ - (lambda (_rest157158_) + (_lp157365_ _rest157438_ _opts157368_)))) + (_K157378157422_ + (lambda (_rest157420_) (let () (declare (not safe)) - (_lp157103_ _rest157158_ _opts157106_)))) - (_K157113157142_ - (lambda (_rest157139_ _opt157140_) - (let ((__tmp158375 + (_lp157365_ _rest157420_ _opts157368_)))) + (_K157375157404_ + (lambda (_rest157401_ _opt157402_) + (let ((__tmp158637 (let () (declare (not safe)) - (cons _opt157140_ _opts157106_)))) + (cons _opt157402_ _opts157368_)))) (declare (not safe)) - (_lp157103_ _rest157139_ __tmp158375))))) - (if (let () (declare (not safe)) (##pair? _rest157107157127_)) - (let ((_tl157123157183_ + (_lp157365_ _rest157401_ __tmp158637))))) + (if (let () (declare (not safe)) (##pair? _rest157369157389_)) + (let ((_tl157385157445_ (let () (declare (not safe)) - (##cdr _rest157107157127_))) - (_hd157122157181_ + (##cdr _rest157369157389_))) + (_hd157384157443_ (let () (declare (not safe)) - (##car _rest157107157127_)))) + (##car _rest157369157389_)))) (if (let () (declare (not safe)) - (equal? _hd157122157181_ '"-cc-options")) + (equal? _hd157384157443_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl157123157183_)) - (let* ((_tl157125157186_ + (##pair? _tl157385157445_)) + (let* ((_tl157387157448_ (let () (declare (not safe)) - (##cdr _tl157123157183_))) - (_rest157189_ _tl157125157186_)) + (##cdr _tl157385157445_))) + (_rest157451_ _tl157387157448_)) (declare (not safe)) - (_K157121157178_ _rest157189_)) - (let ((_opt157150_ _hd157122157181_) - (_rest157152_ _tl157123157183_)) + (_K157383157440_ _rest157451_)) + (let ((_opt157412_ _hd157384157443_) + (_rest157414_ _tl157385157445_)) (let () (declare (not safe)) - (_K157113157142_ _rest157152_ _opt157150_)))) + (_K157375157404_ _rest157414_ _opt157412_)))) (if (let () (declare (not safe)) - (equal? _hd157122157181_ '"-ld-options")) + (equal? _hd157384157443_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl157123157183_)) - (let* ((_tl157120157168_ + (##pair? _tl157385157445_)) + (let* ((_tl157382157430_ (let () (declare (not safe)) - (##cdr _tl157123157183_))) - (_rest157171_ _tl157120157168_)) + (##cdr _tl157385157445_))) + (_rest157433_ _tl157382157430_)) (declare (not safe)) - (_K157116157160_ _rest157171_)) - (let ((_opt157150_ _hd157122157181_) - (_rest157152_ _tl157123157183_)) + (_K157378157422_ _rest157433_)) + (let ((_opt157412_ _hd157384157443_) + (_rest157414_ _tl157385157445_)) (let () (declare (not safe)) - (_K157113157142_ - _rest157152_ - _opt157150_)))) - (let ((_opt157150_ _hd157122157181_) - (_rest157152_ _tl157123157183_)) + (_K157375157404_ + _rest157414_ + _opt157412_)))) + (let ((_opt157412_ _hd157384157443_) + (_rest157414_ _tl157385157445_)) (let () (declare (not safe)) - (_K157113157142_ _rest157152_ _opt157150_)))))) - (let () (declare (not safe)) (_else157111157135_)))))))) + (_K157375157404_ _rest157414_ _opt157412_)))))) + (let () (declare (not safe)) (_else157373157397_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?157195_ '#f)) + (let ((_phi?157457_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?157195_)))) + (gxc#gsc-link-options__% _phi?157457_)))) (define gxc#gsc-link-options - (lambda _g158377_ - (let ((_g158376_ (let () (declare (not safe)) (##length _g158377_)))) - (cond ((let () (declare (not safe)) (##fx= _g158376_ 0)) + (lambda _g158639_ + (let ((_g158638_ (let () (declare (not safe)) (##length _g158639_)))) + (cond ((let () (declare (not safe)) (##fx= _g158638_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g158377_)) - ((let () (declare (not safe)) (##fx= _g158376_ 1)) - (apply (lambda (_phi?157197_) + _g158639_)) + ((let () (declare (not safe)) (##fx= _g158638_ 1)) + (apply (lambda (_phi?157459_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?157197_))) - _g158377_)) + (gxc#gsc-link-options__% _phi?157459_))) + _g158639_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g158377_)))))) + _g158639_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?157002_) - (let _lp157004_ ((_rest157006_ (gxc#current-compile-gsc-options)) - (_opts157007_ '())) - (let* ((_rest157008157028_ _rest157006_) - (_else157012157036_ + (lambda (_phi?157264_) + (let _lp157266_ ((_rest157268_ (gxc#current-compile-gsc-options)) + (_opts157269_ '())) + (let* ((_rest157270157290_ _rest157268_) + (_else157274157298_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?157002_)) + (if (and (let () (declare (not safe)) (not _phi?157264_)) (gxc#current-compile-debug)) - (let ((__tmp158378 - (let ((__tmp158379 (reverse _opts157007_))) + (let ((__tmp158640 + (let ((__tmp158641 (reverse _opts157269_))) (declare (not safe)) - (cons '"-g" __tmp158379)))) + (cons '"-g" __tmp158641)))) (declare (not safe)) - (cons '"-cc-options" __tmp158378)) - (reverse _opts157007_))))) - (let ((_K157022157075_ - (lambda (_rest157072_ _opt157073_) - (let ((__tmp158380 - (let ((__tmp158381 + (cons '"-cc-options" __tmp158640)) + (reverse _opts157269_))))) + (let ((_K157284157337_ + (lambda (_rest157334_ _opt157335_) + (let ((__tmp158642 + (let ((__tmp158643 (let () (declare (not safe)) - (cons '"-cc-options" _opts157007_)))) + (cons '"-cc-options" _opts157269_)))) (declare (not safe)) - (cons _opt157073_ __tmp158381)))) + (cons _opt157335_ __tmp158643)))) (declare (not safe)) - (_lp157004_ _rest157072_ __tmp158380)))) - (_K157017157056_ - (lambda (_rest157054_) + (_lp157266_ _rest157334_ __tmp158642)))) + (_K157279157318_ + (lambda (_rest157316_) (let () (declare (not safe)) - (_lp157004_ _rest157054_ _opts157007_)))) - (_K157014157042_ - (lambda (_rest157040_) + (_lp157266_ _rest157316_ _opts157269_)))) + (_K157276157304_ + (lambda (_rest157302_) (let () (declare (not safe)) - (_lp157004_ _rest157040_ _opts157007_))))) - (if (let () (declare (not safe)) (##pair? _rest157008157028_)) - (let ((_tl157024157080_ + (_lp157266_ _rest157302_ _opts157269_))))) + (if (let () (declare (not safe)) (##pair? _rest157270157290_)) + (let ((_tl157286157342_ (let () (declare (not safe)) - (##cdr _rest157008157028_))) - (_hd157023157078_ + (##cdr _rest157270157290_))) + (_hd157285157340_ (let () (declare (not safe)) - (##car _rest157008157028_)))) + (##car _rest157270157290_)))) (if (let () (declare (not safe)) - (equal? _hd157023157078_ '"-cc-options")) + (equal? _hd157285157340_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl157024157080_)) - (let ((_tl157026157085_ + (##pair? _tl157286157342_)) + (let ((_tl157288157347_ (let () (declare (not safe)) - (##cdr _tl157024157080_))) - (_hd157025157083_ + (##cdr _tl157286157342_))) + (_hd157287157345_ (let () (declare (not safe)) - (##car _tl157024157080_)))) - (let ((_opt157088_ _hd157025157083_) - (_rest157090_ _tl157026157085_)) + (##car _tl157286157342_)))) + (let ((_opt157350_ _hd157287157345_) + (_rest157352_ _tl157288157347_)) (let () (declare (not safe)) - (_K157022157075_ _rest157090_ _opt157088_)))) - (let ((_rest157048_ _tl157024157080_)) + (_K157284157337_ _rest157352_ _opt157350_)))) + (let ((_rest157310_ _tl157286157342_)) (declare (not safe)) - (_K157014157042_ _rest157048_))) + (_K157276157304_ _rest157310_))) (if (let () (declare (not safe)) - (equal? _hd157023157078_ '"-ld-options")) + (equal? _hd157285157340_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl157024157080_)) - (let* ((_tl157021157064_ + (##pair? _tl157286157342_)) + (let* ((_tl157283157326_ (let () (declare (not safe)) - (##cdr _tl157024157080_))) - (_rest157067_ _tl157021157064_)) + (##cdr _tl157286157342_))) + (_rest157329_ _tl157283157326_)) (declare (not safe)) - (_K157017157056_ _rest157067_)) - (let ((_rest157048_ _tl157024157080_)) + (_K157279157318_ _rest157329_)) + (let ((_rest157310_ _tl157286157342_)) (declare (not safe)) - (_K157014157042_ _rest157048_))) - (let ((_rest157048_ _tl157024157080_)) + (_K157276157304_ _rest157310_))) + (let ((_rest157310_ _tl157286157342_)) (declare (not safe)) - (_K157014157042_ _rest157048_))))) - (let () (declare (not safe)) (_else157012157036_)))))))) + (_K157276157304_ _rest157310_))))) + (let () (declare (not safe)) (_else157274157298_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?157096_ '#f)) + (let ((_phi?157358_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?157096_)))) + (gxc#gsc-cc-options__% _phi?157358_)))) (define gxc#gsc-cc-options - (lambda _g158383_ - (let ((_g158382_ (let () (declare (not safe)) (##length _g158383_)))) - (cond ((let () (declare (not safe)) (##fx= _g158382_ 0)) + (lambda _g158645_ + (let ((_g158644_ (let () (declare (not safe)) (##length _g158645_)))) + (cond ((let () (declare (not safe)) (##fx= _g158644_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g158383_)) - ((let () (declare (not safe)) (##fx= _g158382_ 1)) - (apply (lambda (_phi?157098_) + _g158645_)) + ((let () (declare (not safe)) (##fx= _g158644_ 1)) + (apply (lambda (_phi?157360_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?157098_))) - _g158383_)) + (gxc#gsc-cc-options__% _phi?157360_))) + _g158645_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g158383_)))))) + _g158645_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir156997_) - (let* ((_user-staticdir156999_ + (lambda (_staticdir157259_) + (let* ((_user-staticdir157261_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp158384 - (let ((__tmp158385 + (__tmp158646 + (let ((__tmp158647 (string-append '"-I " - _staticdir156997_ + _staticdir157259_ '" -I " - _user-staticdir156999_))) + _user-staticdir157261_))) (declare (not safe)) - (cons __tmp158385 '())))) + (cons __tmp158647 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp158384)))) + (cons '"-cc-options" __tmp158646)))) (define gxc#gcc-ld-options (lambda () - (let _lp156909_ ((_rest156911_ (gxc#current-compile-gsc-options)) - (_opts156912_ '())) - (let* ((_rest156913156933_ _rest156911_) - (_else156917156941_ (lambda () _opts156912_))) - (let ((_K156927156984_ - (lambda (_rest156982_) + (let _lp157171_ ((_rest157173_ (gxc#current-compile-gsc-options)) + (_opts157174_ '())) + (let* ((_rest157175157195_ _rest157173_) + (_else157179157203_ (lambda () _opts157174_))) + (let ((_K157189157246_ + (lambda (_rest157244_) (let () (declare (not safe)) - (_lp156909_ _rest156982_ _opts156912_)))) - (_K156922156962_ - (lambda (_rest156959_ _opt156960_) - (let ((__tmp158386 - (append _opts156912_ - (let ((__tmp158387 + (_lp157171_ _rest157244_ _opts157174_)))) + (_K157184157224_ + (lambda (_rest157221_ _opt157222_) + (let ((__tmp158648 + (append _opts157174_ + (let ((__tmp158649 (let () (declare (not safe)) (string-split - _opt156960_ + _opt157222_ '#\space)))) (declare (not safe)) (filter gxc#not-string-empty? - __tmp158387))))) + __tmp158649))))) (declare (not safe)) - (_lp156909_ _rest156959_ __tmp158386)))) - (_K156919156947_ - (lambda (_rest156945_) + (_lp157171_ _rest157221_ __tmp158648)))) + (_K157181157209_ + (lambda (_rest157207_) (let () (declare (not safe)) - (_lp156909_ _rest156945_ _opts156912_))))) - (if (let () (declare (not safe)) (##pair? _rest156913156933_)) - (let ((_tl156929156989_ + (_lp157171_ _rest157207_ _opts157174_))))) + (if (let () (declare (not safe)) (##pair? _rest157175157195_)) + (let ((_tl157191157251_ (let () (declare (not safe)) - (##cdr _rest156913156933_))) - (_hd156928156987_ + (##cdr _rest157175157195_))) + (_hd157190157249_ (let () (declare (not safe)) - (##car _rest156913156933_)))) + (##car _rest157175157195_)))) (if (let () (declare (not safe)) - (equal? _hd156928156987_ '"-cc-options")) + (equal? _hd157190157249_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl156929156989_)) - (let* ((_tl156931156992_ + (##pair? _tl157191157251_)) + (let* ((_tl157193157254_ (let () (declare (not safe)) - (##cdr _tl156929156989_))) - (_rest156995_ _tl156931156992_)) + (##cdr _tl157191157251_))) + (_rest157257_ _tl157193157254_)) (declare (not safe)) - (_K156927156984_ _rest156995_)) - (let ((_rest156953_ _tl156929156989_)) + (_K157189157246_ _rest157257_)) + (let ((_rest157215_ _tl157191157251_)) (declare (not safe)) - (_K156919156947_ _rest156953_))) + (_K157181157209_ _rest157215_))) (if (let () (declare (not safe)) - (equal? _hd156928156987_ '"-ld-options")) + (equal? _hd157190157249_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl156929156989_)) - (let ((_tl156926156972_ + (##pair? _tl157191157251_)) + (let ((_tl157188157234_ (let () (declare (not safe)) - (##cdr _tl156929156989_))) - (_hd156925156970_ + (##cdr _tl157191157251_))) + (_hd157187157232_ (let () (declare (not safe)) - (##car _tl156929156989_)))) - (let ((_opt156975_ _hd156925156970_) - (_rest156977_ _tl156926156972_)) + (##car _tl157191157251_)))) + (let ((_opt157237_ _hd157187157232_) + (_rest157239_ _tl157188157234_)) (let () (declare (not safe)) - (_K156922156962_ - _rest156977_ - _opt156975_)))) - (let ((_rest156953_ _tl156929156989_)) + (_K157184157224_ + _rest157239_ + _opt157237_)))) + (let ((_rest157215_ _tl157191157251_)) (declare (not safe)) - (_K156919156947_ _rest156953_))) - (let ((_rest156953_ _tl156929156989_)) + (_K157181157209_ _rest157215_))) + (let ((_rest157215_ _tl157191157251_)) (declare (not safe)) - (_K156919156947_ _rest156953_))))) - (let () (declare (not safe)) (_else156917156941_)))))))) + (_K157181157209_ _rest157215_))))) + (let () (declare (not safe)) (_else157179157203_)))))))) (define gxc#not-string-empty? - (lambda (_str156906_) - (let ((__tmp158388 - (let () (declare (not safe)) (string-empty? _str156906_)))) + (lambda (_str157168_) + (let ((__tmp158650 + (let () (declare (not safe)) (string-empty? _str157168_)))) (declare (not safe)) - (not __tmp158388)))) + (not __tmp158650)))) (define gxc#gsc-compile-file - (lambda (_path156874_ _phi?156875_) - (letrec ((_gsc-link-path156877_ - (lambda (_base-path156898_) - (let _lp156900_ ((_n156902_ '1)) - (let ((_path156904_ + (lambda (_path157136_ _phi?157137_) + (letrec ((_gsc-link-path157139_ + (lambda (_base-path157160_) + (let _lp157162_ ((_n157164_ '1)) + (let ((_path157166_ (string-append - _base-path156898_ + _base-path157160_ '".o" - (number->string _n156902_)))) - (if (file-exists? _path156904_) - (let ((__tmp158389 + (number->string _n157164_)))) + (if (file-exists? _path157166_) + (let ((__tmp158651 (let () (declare (not safe)) - (+ _n156902_ '1)))) - (declare (not safe)) - (_lp156900_ __tmp158389)) - _path156904_)))))) - (let* ((_base-path156879_ (path-strip-extension _path156874_)) - (_path-c156881_ (string-append _base-path156879_ '".c")) - (_path-o156883_ (string-append _base-path156879_ '".o")) - (_link-path156885_ + (+ _n157164_ '1)))) + (declare (not safe)) + (_lp157162_ __tmp158651)) + _path157166_)))))) + (let* ((_base-path157141_ (path-strip-extension _path157136_)) + (_path-c157143_ (string-append _base-path157141_ '".c")) + (_path-o157145_ (string-append _base-path157141_ '".o")) + (_link-path157147_ (let () (declare (not safe)) - (_gsc-link-path156877_ _base-path156879_))) - (_link-path-c156887_ (string-append _link-path156885_ '".c")) - (_link-path-o156889_ (string-append _link-path156885_ '".o")) - (_gsc-link-opts156891_ + (_gsc-link-path157139_ _base-path157141_))) + (_link-path-c157149_ (string-append _link-path157147_ '".c")) + (_link-path-o157151_ (string-append _link-path157147_ '".o")) + (_gsc-link-opts157153_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?156875_))) - (_gsc-cc-opts156893_ + (gxc#gsc-link-options__% _phi?157137_))) + (_gsc-cc-opts157155_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?156875_))) - (_gcc-ld-opts156895_ + (gxc#gsc-cc-options__% _phi?157137_))) + (_gcc-ld-opts157157_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp158396 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158390 - (let ((__tmp158391 - (let ((__tmp158392 - (let ((__tmp158393 - (let ((__tmp158394 - (let ((__tmp158395 + (let ((__tmp158658 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp158652 + (let ((__tmp158653 + (let ((__tmp158654 + (let ((__tmp158655 + (let ((__tmp158656 + (let ((__tmp158657 (let () (declare (not safe)) - (cons _path156874_ + (cons _path157136_ '())))) (declare (not safe)) (foldr1 cons - __tmp158395 - _gsc-link-opts156891_)))) + __tmp158657 + _gsc-link-opts157153_)))) (declare (not safe)) - (cons _link-path-c156887_ - __tmp158394)))) + (cons _link-path-c157149_ + __tmp158656)))) (declare (not safe)) - (cons '"-o" __tmp158393)))) + (cons '"-o" __tmp158655)))) (declare (not safe)) - (cons '"-flat" __tmp158392)))) + (cons '"-flat" __tmp158654)))) (declare (not safe)) - (cons '"-link" __tmp158391)))) + (cons '"-link" __tmp158653)))) (declare (not safe)) - (gxc#invoke __tmp158396 __tmp158390 'stdout-redirection: '#t)) - (let ((__tmp158403 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158397 - (let ((__tmp158398 - (let ((__tmp158399 - (let ((__tmp158400 - (let ((__tmp158401 - (let ((__tmp158402 + (gxc#invoke __tmp158658 __tmp158652 'stdout-redirection: '#t)) + (let ((__tmp158665 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp158659 + (let ((__tmp158660 + (let ((__tmp158661 + (let ((__tmp158662 + (let ((__tmp158663 + (let ((__tmp158664 (let () (declare (not safe)) - (cons _link-path-c156887_ + (cons _link-path-c157149_ '())))) (declare (not safe)) - (cons _path-c156881_ - __tmp158402)))) + (cons _path-c157143_ + __tmp158664)))) (declare (not safe)) (foldr1 cons - __tmp158401 - _gsc-cc-opts156893_)))) + __tmp158663 + _gsc-cc-opts157155_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp158400)))) + (cons '"-D___DYNAMIC" __tmp158662)))) (declare (not safe)) - (cons '"-cc-options" __tmp158399)))) + (cons '"-cc-options" __tmp158661)))) (declare (not safe)) - (cons '"-obj" __tmp158398)))) + (cons '"-obj" __tmp158660)))) (declare (not safe)) - (gxc#invoke __tmp158403 __tmp158397 'stdout-redirection: '#t)) - (let ((__tmp158409 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158404 - (let ((__tmp158405 - (let ((__tmp158406 - (let ((__tmp158407 - (let ((__tmp158408 + (gxc#invoke __tmp158665 __tmp158659 'stdout-redirection: '#t)) + (let ((__tmp158671 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp158666 + (let ((__tmp158667 + (let ((__tmp158668 + (let ((__tmp158669 + (let ((__tmp158670 (let () (declare (not safe)) - (cons _link-path-o156889_ - _gcc-ld-opts156895_)))) + (cons _link-path-o157151_ + _gcc-ld-opts157157_)))) (declare (not safe)) - (cons _path-o156883_ __tmp158408)))) + (cons _path-o157145_ __tmp158670)))) (declare (not safe)) - (cons _link-path156885_ __tmp158407)))) + (cons _link-path157147_ __tmp158669)))) (declare (not safe)) - (cons '"-o" __tmp158406)))) + (cons '"-o" __tmp158668)))) (declare (not safe)) - (cons '"-shared" __tmp158405)))) + (cons '"-shared" __tmp158667)))) (declare (not safe)) - (gxc#invoke __tmp158409 __tmp158404)) + (gxc#invoke __tmp158671 __tmp158666)) (for-each delete-file - (let ((__tmp158410 - (let ((__tmp158411 - (let ((__tmp158412 + (let ((__tmp158672 + (let ((__tmp158673 + (let ((__tmp158674 (let () (declare (not safe)) - (cons _link-path-o156889_ '())))) + (cons _link-path-o157151_ '())))) (declare (not safe)) - (cons _link-path-c156887_ __tmp158412)))) + (cons _link-path-c157149_ __tmp158674)))) (declare (not safe)) - (cons _path-o156883_ __tmp158411)))) + (cons _path-o157145_ __tmp158673)))) (declare (not safe)) - (cons _path-c156881_ __tmp158410))))))) + (cons _path-c157143_ __tmp158672))))))) (define gxc#compile-output-file - (lambda (_ctx156845_ _n156846_ _ext156847_) - (letrec ((_module-relative-path156849_ - (lambda (_ctx156872_) + (lambda (_ctx157107_ _n157108_ _ext157109_) + (letrec ((_module-relative-path157111_ + (lambda (_ctx157134_) (path-strip-directory - (let ((__tmp158413 + (let ((__tmp158675 (##structure-ref - _ctx156872_ + _ctx157134_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp158413))))) - (_module-source-directory156850_ - (lambda (_ctx156868_) + (gxc#module-id->path-string __tmp158675))))) + (_module-source-directory157112_ + (lambda (_ctx157130_) (path-directory - (let ((_mpath156870_ + (let ((_mpath157132_ (##structure-ref - _ctx156868_ + _ctx157130_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (string? _mpath156870_)) - _mpath156870_ + (string? _mpath157132_)) + _mpath157132_ (let () (declare (not safe)) - (last _mpath156870_))))))) - (_section-string156851_ - (lambda (_n156866_) - (if (let () (declare (not safe)) (number? _n156866_)) - (number->string _n156866_) - (if (let () (declare (not safe)) (symbol? _n156866_)) - (symbol->string _n156866_) + (last _mpath157132_))))))) + (_section-string157113_ + (lambda (_n157128_) + (if (let () (declare (not safe)) (number? _n157128_)) + (number->string _n157128_) + (if (let () (declare (not safe)) (symbol? _n157128_)) + (symbol->string _n157128_) (if (let () (declare (not safe)) - (string? _n156866_)) - _n156866_ + (string? _n157128_)) + _n157128_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n156866_))))))) - (_file-name156852_ - (lambda (_path156864_) - (if _n156846_ + _n157128_))))))) + (_file-name157114_ + (lambda (_path157126_) + (if _n157108_ (string-append - _path156864_ + _path157126_ '"__" (let () (declare (not safe)) - (_section-string156851_ _n156846_)) - _ext156847_) - (string-append _path156864_ _ext156847_)))) - (_file-path156853_ + (_section-string157113_ _n157108_)) + _ext157109_) + (string-append _path157126_ _ext157109_)))) + (_file-path157115_ (lambda () - (let ((_$e156859_ (gxc#current-compile-output-dir))) - (if _$e156859_ - ((lambda (_outdir156862_) + (let ((_$e157121_ (gxc#current-compile-output-dir))) + (if _$e157121_ + ((lambda (_outdir157124_) (path-expand - (let ((__tmp158415 - (let ((__tmp158416 + (let ((__tmp158677 + (let ((__tmp158678 (##structure-ref - _ctx156845_ + _ctx157107_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp158416)))) + __tmp158678)))) (declare (not safe)) - (_file-name156852_ __tmp158415)) - _outdir156862_)) - _$e156859_) + (_file-name157114_ __tmp158677)) + _outdir157124_)) + _$e157121_) (path-expand - (let ((__tmp158414 + (let ((__tmp158676 (let () (declare (not safe)) - (_module-relative-path156849_ - _ctx156845_)))) + (_module-relative-path157111_ + _ctx157107_)))) (declare (not safe)) - (_file-name156852_ __tmp158414)) + (_file-name157114_ __tmp158676)) (let () (declare (not safe)) - (_module-source-directory156850_ - _ctx156845_)))))))) - (let ((_path156855_ - (let () (declare (not safe)) (_file-path156853_)))) - (let ((__tmp158417 + (_module-source-directory157112_ + _ctx157107_)))))))) + (let ((_path157117_ + (let () (declare (not safe)) (_file-path157115_)))) + (let ((__tmp158679 (lambda () - (let ((__tmp158418 (path-directory _path156855_))) + (let ((__tmp158680 (path-directory _path157117_))) (declare (not safe)) - (create-directory*__0 __tmp158418))))) + (create-directory*__0 __tmp158680))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158417)) - _path156855_)))) + (with-lock gxc#+driver-mutex+ __tmp158679)) + _path157117_)))) (define gxc#compile-static-output-file - (lambda (_ctx156827_) - (letrec ((_file-name156829_ - (lambda (_id156843_) + (lambda (_ctx157089_) + (letrec ((_file-name157091_ + (lambda (_id157105_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id156843_)) + (gxc#static-module-name _id157105_)) '".scm"))) - (_file-path156830_ + (_file-path157092_ (lambda () - (let* ((_file156836_ - (let ((__tmp158419 + (let* ((_file157098_ + (let ((__tmp158681 (##structure-ref - _ctx156827_ + _ctx157089_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name156829_ __tmp158419))) - (_$e156838_ (gxc#current-compile-output-dir))) - (if _$e156838_ - ((lambda (_outdir156841_) + (_file-name157091_ __tmp158681))) + (_$e157100_ (gxc#current-compile-output-dir))) + (if _$e157100_ + ((lambda (_outdir157103_) (path-expand - _file156836_ - (path-expand '"static" _outdir156841_))) - _$e156838_) - (path-expand _file156836_ '"static")))))) - (let ((_path156832_ - (let () (declare (not safe)) (_file-path156830_)))) - (let ((__tmp158420 + _file157098_ + (path-expand '"static" _outdir157103_))) + _$e157100_) + (path-expand _file157098_ '"static")))))) + (let ((_path157094_ + (let () (declare (not safe)) (_file-path157092_)))) + (let ((__tmp158682 (lambda () - (let ((__tmp158421 (path-directory _path156832_))) + (let ((__tmp158683 (path-directory _path157094_))) (declare (not safe)) - (create-directory*__0 __tmp158421))))) + (create-directory*__0 __tmp158683))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158420)) - _path156832_)))) + (with-lock gxc#+driver-mutex+ __tmp158682)) + _path157094_)))) (define gxc#compile-exe-output-file - (lambda (_ctx156821_ _opts156822_) - (let ((_$e156824_ + (lambda (_ctx157083_ _opts157084_) + (let ((_$e157086_ (let () (declare (not safe)) - (pgetq__0 'output-file: _opts156822_)))) - (if _$e156824_ - (values _$e156824_) + (pgetq__0 'output-file: _opts157084_)))) + (if _$e157086_ + (values _$e157086_) (path-strip-directory (symbol->string (##structure-ref - _ctx156821_ + _ctx157083_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr156814_) - (if (let () (declare (not safe)) (string? _idstr156814_)) - (let* ((_str156816_ + (lambda (_idstr157076_) + (if (let () (declare (not safe)) (string? _idstr157076_)) + (let* ((_str157078_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr156814_))) - (_strs156818_ + (gxc#module-id->path-string _idstr157076_))) + (_strs157080_ (let () (declare (not safe)) - (string-split _str156816_ '#\/)))) - (let () (declare (not safe)) (string-join _strs156818_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr156814_)) - (let ((__tmp158422 (symbol->string _idstr156814_))) + (string-split _str157078_ '#\/)))) + (let () (declare (not safe)) (string-join _strs157080_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr157076_)) + (let ((__tmp158684 (symbol->string _idstr157076_))) (declare (not safe)) - (gxc#static-module-name __tmp158422)) + (gxc#static-module-name __tmp158684)) (let () (declare (not safe)) - (error '"Bad module id" _idstr156814_)))))) + (error '"Bad module id" _idstr157076_)))))) (define gxc#invoke__% - (lambda (_g158423_ - _stdout-redirection156775156779_ - _stderr-redirection156776156781_ - _program156783_ - _args156784_) - (let* ((_stdout-redirection156786_ + (lambda (_g158685_ + _stdout-redirection157037157041_ + _stderr-redirection157038157043_ + _program157045_ + _args157046_) + (let* ((_stdout-redirection157048_ (if (let () (declare (not safe)) - (eq? _stdout-redirection156775156779_ absent-value)) + (eq? _stdout-redirection157037157041_ absent-value)) '#f - _stdout-redirection156775156779_)) - (_stderr-redirection156788_ + _stdout-redirection157037157041_)) + (_stderr-redirection157050_ (if (let () (declare (not safe)) - (eq? _stderr-redirection156776156781_ absent-value)) + (eq? _stderr-redirection157038157043_ absent-value)) '#f - _stderr-redirection156776156781_))) - (let ((__tmp158424 + _stderr-redirection157038157043_))) + (let ((__tmp158686 (let () (declare (not safe)) - (cons _program156783_ _args156784_)))) + (cons _program157045_ _args157046_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp158424)) - (let* ((_proc156790_ + (gxc#verbose '"invoke " __tmp158686)) + (let* ((_proc157052_ (open-process - (let ((__tmp158425 - (let ((__tmp158426 - (let ((__tmp158427 - (let ((__tmp158428 - (let ((__tmp158429 - (let ((__tmp158430 - (let ((__tmp158431 + (let ((__tmp158687 + (let ((__tmp158688 + (let ((__tmp158689 + (let ((__tmp158690 + (let ((__tmp158691 + (let ((__tmp158692 + (let ((__tmp158693 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _stderr-redirection156788_ '())))) + (cons _stderr-redirection157050_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp158431)))) + (cons 'stderr-redirection: __tmp158693)))) (declare (not safe)) - (cons _stdout-redirection156786_ __tmp158430)))) + (cons _stdout-redirection157048_ __tmp158692)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp158429)))) + __tmp158691)))) (declare (not safe)) - (cons _args156784_ __tmp158428)))) + (cons _args157046_ __tmp158690)))) (declare (not safe)) - (cons 'arguments: __tmp158427)))) + (cons 'arguments: __tmp158689)))) (declare (not safe)) - (cons _program156783_ __tmp158426)))) + (cons _program157045_ __tmp158688)))) (declare (not safe)) - (cons 'path: __tmp158425)))) - (_output156795_ - (if (or _stdout-redirection156786_ - _stderr-redirection156788_) - (read-line _proc156790_ '#f) + (cons 'path: __tmp158687)))) + (_output157057_ + (if (or _stdout-redirection157048_ + _stderr-redirection157050_) + (read-line _proc157052_ '#f) '#f))) - (let ((_status156798_ (process-status _proc156790_))) - (close-port _proc156790_) - (if (let () (declare (not safe)) (zero? _status156798_)) + (let ((_status157060_ (process-status _proc157052_))) + (close-port _proc157052_) + (if (let () (declare (not safe)) (zero? _status157060_)) '#!void (begin - (display _output156795_) - (let ((__tmp158432 + (display _output157057_) + (let ((__tmp158694 (let () (declare (not safe)) - (cons _program156783_ _args156784_)))) + (cons _program157045_ _args157046_)))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp158432 - _status156798_))))))))) + __tmp158694 + _status157060_))))))))) (define gxc#invoke__@ - (lambda (_keys156774156803_ . _args156805_) + (lambda (_keys157036157065_ . _args157067_) (apply gxc#invoke__% - _keys156774156803_ + _keys157036157065_ (let () (declare (not safe)) (symbolic-table-ref - _keys156774156803_ + _keys157036157065_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys156774156803_ + _keys157036157065_ 'stderr-redirection: absent-value)) - _args156805_))) + _args157067_))) (define gxc#invoke - (lambda _args156777156811_ + (lambda _args157039157073_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args156777156811_))) + _args157039157073_))) (define gxc#join! - (lambda (_thread156768_) - (let ((__tmp158434 - (lambda (_exn156770_) + (lambda (_thread157030_) + (let ((__tmp158696 + (lambda (_exn157032_) (if (let () (declare (not safe)) - (uncaught-exception? _exn156770_)) + (uncaught-exception? _exn157032_)) (raise (let () (declare (not safe)) - (uncaught-exception-reason _exn156770_))) - (raise _exn156770_)))) - (__tmp158433 (lambda () (thread-join! _thread156768_)))) + (uncaught-exception-reason _exn157032_))) + (raise _exn157032_)))) + (__tmp158695 (lambda () (thread-join! _thread157030_)))) (declare (not safe)) - (with-catch __tmp158434 __tmp158433)))))) + (with-catch __tmp158696 __tmp158695)))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index 41bbc69c..193a3551 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 (_$stx156641_) - (let* ((_g156645156659_ - (lambda (_g156646156655_) + (lambda (_$stx156903_) + (let* ((_g156907156921_ + (lambda (_g156908156917_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156646156655_)))) - (_g156644156701_ - (lambda (_g156646156663_) + _g156908156917_)))) + (_g156906156963_ + (lambda (_g156908156925_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156646156663_)) - (let ((_e156650156666_ + (gx#stx-pair? _g156908156925_)) + (let ((_e156912156928_ (let () (declare (not safe)) - (gx#syntax-e _g156646156663_)))) - (let ((_hd156649156670_ + (gx#syntax-e _g156908156925_)))) + (let ((_hd156911156932_ (let () (declare (not safe)) - (##car _e156650156666_))) - (_tl156648156673_ + (##car _e156912156928_))) + (_tl156910156935_ (let () (declare (not safe)) - (##cdr _e156650156666_)))) + (##cdr _e156912156928_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156648156673_)) - (let ((_e156653156676_ + (gx#stx-pair? _tl156910156935_)) + (let ((_e156915156938_ (let () (declare (not safe)) - (gx#syntax-e _tl156648156673_)))) - (let ((_hd156652156680_ + (gx#syntax-e _tl156910156935_)))) + (let ((_hd156914156942_ (let () (declare (not safe)) - (##car _e156653156676_))) - (_tl156651156683_ + (##car _e156915156938_))) + (_tl156913156945_ (let () (declare (not safe)) - (##cdr _e156653156676_)))) + (##cdr _e156915156938_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl156651156683_)) - ((lambda (_L156686_) - (let ((__tmp158442 + (gx#stx-null? _tl156913156945_)) + ((lambda (_L156948_) + (let ((__tmp158704 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp158435 - (let ((__tmp158441 + (__tmp158697 + (let ((__tmp158703 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp158436 - (let ((__tmp158437 - (let ((__tmp158440 + (__tmp158698 + (let ((__tmp158699 + (let ((__tmp158702 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp158438 - (let ((__tmp158439 + (__tmp158700 + (let ((__tmp158701 (let () (declare (not safe)) - (cons _L156686_ '())))) + (cons _L156948_ '())))) (declare (not safe)) - (cons '() __tmp158439)))) + (cons '() __tmp158701)))) (declare (not safe)) - (cons __tmp158440 __tmp158438)))) + (cons __tmp158702 __tmp158700)))) (declare (not safe)) - (cons __tmp158437 '())))) + (cons __tmp158699 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158441 - __tmp158436)))) + (cons __tmp158703 + __tmp158698)))) (declare (not safe)) - (cons __tmp158442 __tmp158435))) - _hd156652156680_) - (_g156645156659_ _g156646156663_)))) - (_g156645156659_ _g156646156663_)))) - (_g156645156659_ _g156646156663_))))) - (_g156644156701_ _$stx156641_)))) + (cons __tmp158704 __tmp158697))) + _hd156914156942_) + (_g156907156921_ _g156908156925_)))) + (_g156907156921_ _g156908156925_)))) + (_g156907156921_ _g156908156925_))))) + (_g156906156963_ _$stx156903_)))) (define |gxc[:0:]#go!| - (lambda (_$stx156705_) - (let* ((_g156709156723_ - (lambda (_g156710156719_) + (lambda (_$stx156967_) + (let* ((_g156971156985_ + (lambda (_g156972156981_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156710156719_)))) - (_g156708156764_ - (lambda (_g156710156727_) + _g156972156981_)))) + (_g156970157026_ + (lambda (_g156972156989_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156710156727_)) - (let ((_e156714156730_ + (gx#stx-pair? _g156972156989_)) + (let ((_e156976156992_ (let () (declare (not safe)) - (gx#syntax-e _g156710156727_)))) - (let ((_hd156713156734_ + (gx#syntax-e _g156972156989_)))) + (let ((_hd156975156996_ (let () (declare (not safe)) - (##car _e156714156730_))) - (_tl156712156737_ + (##car _e156976156992_))) + (_tl156974156999_ (let () (declare (not safe)) - (##cdr _e156714156730_)))) + (##cdr _e156976156992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156712156737_)) - (let ((_e156717156740_ + (gx#stx-pair? _tl156974156999_)) + (let ((_e156979157002_ (let () (declare (not safe)) - (gx#syntax-e _tl156712156737_)))) - (let ((_hd156716156744_ + (gx#syntax-e _tl156974156999_)))) + (let ((_hd156978157006_ (let () (declare (not safe)) - (##car _e156717156740_))) - (_tl156715156747_ + (##car _e156979157002_))) + (_tl156977157009_ (let () (declare (not safe)) - (##cdr _e156717156740_)))) + (##cdr _e156979157002_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl156715156747_)) - ((lambda (_L156750_) - (let ((__tmp158448 + (gx#stx-null? _tl156977157009_)) + ((lambda (_L157012_) + (let ((__tmp158710 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp158443 - (let ((__tmp158444 - (let ((__tmp158447 + (__tmp158705 + (let ((__tmp158706 + (let ((__tmp158709 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp158445 - (let ((__tmp158446 + (__tmp158707 + (let ((__tmp158708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L156750_ '())))) + (let () (declare (not safe)) (cons _L157012_ '())))) (declare (not safe)) - (cons '() __tmp158446)))) + (cons '() __tmp158708)))) (declare (not safe)) - (cons __tmp158447 __tmp158445)))) + (cons __tmp158709 __tmp158707)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158444 '())))) + (cons __tmp158706 '())))) (declare (not safe)) - (cons __tmp158448 __tmp158443))) - _hd156716156744_) - (_g156709156723_ _g156710156727_)))) - (_g156709156723_ _g156710156727_)))) - (_g156709156723_ _g156710156727_))))) - (_g156708156764_ _$stx156705_))))) + (cons __tmp158710 __tmp158705))) + _hd156978157006_) + (_g156971156985_ _g156972156989_)))) + (_g156971156985_ _g156972156989_)))) + (_g156971156985_ _g156972156989_))))) + (_g156970157026_ _$stx156967_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index b0b39afc..a6471c16 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm @@ -1,168 +1,168 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1709375801) + (define gerbil/compiler/optimize-ann::timestamp 1709457372) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated (make-promise (lambda () - (let ((_tbl146870_ + (let ((_tbl147132_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp149992 (force gxc#&basic-xform))) + (let ((__tmp150254 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl146870_ __tmp149992)) + (hash-merge! _tbl147132_ __tmp150254)) (let () (declare (not safe)) (hash-put! - _tbl146870_ + _tbl147132_ '%#begin-annotation gxc#optimize-annotation%)) - _tbl146870_)))) + _tbl147132_)))) (define gxc#apply-optimize-annotated - (lambda (_stx146853_ . _args146855_) - (let ((__tmp149994 + (lambda (_stx147115_ . _args147117_) + (let ((__tmp150256 (lambda () (declare (not safe)) - (if (null? _args146855_) - (gxc#compile-e__0 _stx146853_) - (let ((_arg1146860_ (car _args146855_)) - (_rest146862_ (cdr _args146855_))) - (if (null? _rest146862_) - (gxc#compile-e__1 _stx146853_ _arg1146860_) - (let ((_arg2146865_ (car _rest146862_)) - (_rest146867_ (cdr _rest146862_))) - (if (null? _rest146867_) + (if (null? _args147117_) + (gxc#compile-e__0 _stx147115_) + (let ((_arg1147122_ (car _args147117_)) + (_rest147124_ (cdr _args147117_))) + (if (null? _rest147124_) + (gxc#compile-e__1 _stx147115_ _arg1147122_) + (let ((_arg2147127_ (car _rest147124_)) + (_rest147129_ (cdr _rest147124_))) + (if (null? _rest147129_) (gxc#compile-e__2 - _stx146853_ - _arg1146860_ - _arg2146865_) + _stx147115_ + _arg1147122_ + _arg2147127_) (apply gxc#compile-e - _stx146853_ - _arg1146860_ - _arg2146865_ - _rest146867_)))))))) - (__tmp149993 (force gxc#&optmize-annotated))) + _stx147115_ + _arg1147122_ + _arg2147127_ + _rest147129_)))))))) + (__tmp150255 (force gxc#&optmize-annotated))) (declare (not safe)) (call-with-parameters - __tmp149994 + __tmp150256 gxc#current-compile-methods - __tmp149993)))) + __tmp150255)))) (define gxc#&generate-runtime-repr (make-promise (lambda () - (let ((_tbl146850_ + (let ((_tbl147112_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp149995 (force gxc#&generate-runtime))) + (let ((__tmp150257 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-merge! _tbl146850_ __tmp149995)) + (hash-merge! _tbl147112_ __tmp150257)) (let () (declare (not safe)) - (hash-put! _tbl146850_ '%#quote-syntax identity)) - _tbl146850_)))) + (hash-put! _tbl147112_ '%#quote-syntax identity)) + _tbl147112_)))) (define gxc#apply-generate-runtime-repr - (lambda (_stx146833_ . _args146835_) - (let ((__tmp149997 + (lambda (_stx147095_ . _args147097_) + (let ((__tmp150259 (lambda () (declare (not safe)) - (if (null? _args146835_) - (gxc#compile-e__0 _stx146833_) - (let ((_arg1146840_ (car _args146835_)) - (_rest146842_ (cdr _args146835_))) - (if (null? _rest146842_) - (gxc#compile-e__1 _stx146833_ _arg1146840_) - (let ((_arg2146845_ (car _rest146842_)) - (_rest146847_ (cdr _rest146842_))) - (if (null? _rest146847_) + (if (null? _args147097_) + (gxc#compile-e__0 _stx147095_) + (let ((_arg1147102_ (car _args147097_)) + (_rest147104_ (cdr _args147097_))) + (if (null? _rest147104_) + (gxc#compile-e__1 _stx147095_ _arg1147102_) + (let ((_arg2147107_ (car _rest147104_)) + (_rest147109_ (cdr _rest147104_))) + (if (null? _rest147109_) (gxc#compile-e__2 - _stx146833_ - _arg1146840_ - _arg2146845_) + _stx147095_ + _arg1147102_ + _arg2147107_) (apply gxc#compile-e - _stx146833_ - _arg1146840_ - _arg2146845_ - _rest146847_)))))))) - (__tmp149996 (force gxc#&generate-runtime-repr))) + _stx147095_ + _arg1147102_ + _arg2147107_ + _rest147109_)))))))) + (__tmp150258 (force gxc#&generate-runtime-repr))) (declare (not safe)) (call-with-parameters - __tmp149997 + __tmp150259 gxc#current-compile-methods - __tmp149996)))) + __tmp150258)))) (define gxc#&push-match-vars (make-promise (lambda () - (let ((_tbl146830_ + (let ((_tbl147092_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl146830_ '%#lambda gxc#xform-lambda%)) + (hash-put! _tbl147092_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl146830_ + _tbl147092_ '%#let-values gxc#push-match-vars-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl146830_ '%#letrec-values gxc#push-match-vars-stop)) + (hash-put! _tbl147092_ '%#letrec-values gxc#push-match-vars-stop)) (let () (declare (not safe)) - (hash-put! _tbl146830_ '%#if gxc#push-match-vars-if%)) + (hash-put! _tbl147092_ '%#if gxc#push-match-vars-if%)) (let () (declare (not safe)) - (hash-put! _tbl146830_ '%#call gxc#push-match-vars-call%)) - _tbl146830_)))) + (hash-put! _tbl147092_ '%#call gxc#push-match-vars-call%)) + _tbl147092_)))) (define gxc#apply-push-match-vars - (lambda (_stx146813_ . _args146815_) - (let ((__tmp149999 + (lambda (_stx147075_ . _args147077_) + (let ((__tmp150261 (lambda () (declare (not safe)) - (if (null? _args146815_) - (gxc#compile-e__0 _stx146813_) - (let ((_arg1146820_ (car _args146815_)) - (_rest146822_ (cdr _args146815_))) - (if (null? _rest146822_) - (gxc#compile-e__1 _stx146813_ _arg1146820_) - (let ((_arg2146825_ (car _rest146822_)) - (_rest146827_ (cdr _rest146822_))) - (if (null? _rest146827_) + (if (null? _args147077_) + (gxc#compile-e__0 _stx147075_) + (let ((_arg1147082_ (car _args147077_)) + (_rest147084_ (cdr _args147077_))) + (if (null? _rest147084_) + (gxc#compile-e__1 _stx147075_ _arg1147082_) + (let ((_arg2147087_ (car _rest147084_)) + (_rest147089_ (cdr _rest147084_))) + (if (null? _rest147089_) (gxc#compile-e__2 - _stx146813_ - _arg1146820_ - _arg2146825_) + _stx147075_ + _arg1147082_ + _arg2147087_) (apply gxc#compile-e - _stx146813_ - _arg1146820_ - _arg2146825_ - _rest146827_)))))))) - (__tmp149998 (force gxc#&push-match-vars))) + _stx147075_ + _arg1147082_ + _arg2147087_ + _rest147089_)))))))) + (__tmp150260 (force gxc#&push-match-vars))) (declare (not safe)) (call-with-parameters - __tmp149999 + __tmp150261 gxc#current-compile-methods - __tmp149998)))) + __tmp150260)))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_stx146622_) - (let* ((___stx146886146887_ _stx146622_) - (_g146626146667_ + (lambda (_stx146884_) + (let* ((___stx147148147149_ _stx146884_) + (_g146888146929_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx146886146887_))))) - (let ((___kont146888146889_ - (lambda (_L146789_ _L146790_) - (let ((_ann146804_ - (let () (declare (not safe)) (gx#stx-e _L146790_)))) - (let ((__tmp150002 + ___stx147148147149_))))) + (let ((___kont147150147151_ + (lambda (_L147051_ _L147052_) + (let ((_ann147066_ + (let () (declare (not safe)) (gx#stx-e _L147052_)))) + (let ((__tmp150264 (lambda () - (let ((_$e146807_ _ann146804_)) + (let ((_$e147069_ _ann147066_)) (if (let () (declare (not safe)) - (eq? '@match _$e146807_)) + (eq? '@match _$e147069_)) (begin (let () (declare (not safe)) @@ -170,10 +170,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L146789_))) + (gxc#optimize-match _L147051_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e146807_)) + (eq? '@syntax-case _$e147069_)) (begin (let () (declare (not safe)) @@ -182,2009 +182,2009 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L146789_))) + _L147051_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L146789_))))))) - (__tmp150000 - (let ((__tmp150001 + (gxc#compile-e__0 _L147051_))))))) + (__tmp150262 + (let ((__tmp150263 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann146804_ __tmp150001)))) + (cons _ann147066_ __tmp150263)))) (declare (not safe)) (call-with-parameters - __tmp150002 + __tmp150264 gxc#current-annotation-optimizer - __tmp150000))))) - (___kont146890146891_ - (lambda (_L146735_ _L146736_ _L146737_) - (let () (declare (not safe)) (gxc#compile-e__0 _L146735_)))) - (___kont146894146895_ + __tmp150262))))) + (___kont147152147153_ + (lambda (_L146997_ _L146998_ _L146999_) + (let () (declare (not safe)) (gxc#compile-e__0 _L146997_)))) + (___kont147156147157_ (lambda () (let () (declare (not safe)) - (gxc#xform-begin-annotation% _stx146622_))))) - (let* ((___match146941146942_ - (lambda (_e146644146679_ - _hd146643146682_ - _tl146642146684_ - _e146647146687_ - _hd146646146690_ - _tl146645146692_ - _e146650146695_ - _hd146649146698_ - _tl146648146700_ - ___splice146892146893_ - _target146651146703_ - _tl146653146705_) - (letrec ((_loop146654146708_ - (lambda (_hd146652146711_ _param146658146713_) + (gxc#xform-begin-annotation% _stx146884_))))) + (let* ((___match147203147204_ + (lambda (_e146906146941_ + _hd146905146944_ + _tl146904146946_ + _e146909146949_ + _hd146908146952_ + _tl146907146954_ + _e146912146957_ + _hd146911146960_ + _tl146910146962_ + ___splice147154147155_ + _target146913146965_ + _tl146915146967_) + (letrec ((_loop146916146970_ + (lambda (_hd146914146973_ _param146920146975_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146652146711_)) - (let ((_e146655146716_ + (gx#stx-pair? _hd146914146973_)) + (let ((_e146917146978_ (let () (declare (not safe)) - (gx#stx-e _hd146652146711_)))) - (let ((_lp-tl146657146721_ + (gx#stx-e _hd146914146973_)))) + (let ((_lp-tl146919146983_ (let () (declare (not safe)) - (##cdr _e146655146716_))) - (_lp-hd146656146719_ + (##cdr _e146917146978_))) + (_lp-hd146918146981_ (let () (declare (not safe)) - (##car _e146655146716_)))) - (let ((__tmp150004 + (##car _e146917146978_)))) + (let ((__tmp150266 (let () (declare (not safe)) - (cons _lp-hd146656146719_ - _param146658146713_)))) + (cons _lp-hd146918146981_ + _param146920146975_)))) (declare (not safe)) - (_loop146654146708_ - _lp-tl146657146721_ - __tmp150004)))) - (let ((_param146659146724_ - (reverse _param146658146713_))) + (_loop146916146970_ + _lp-tl146919146983_ + __tmp150266)))) + (let ((_param146921146986_ + (reverse _param146920146975_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146645146692_)) - (let ((_e146662146727_ + (gx#stx-pair? _tl146907146954_)) + (let ((_e146924146989_ (let () (declare (not safe)) (gx#stx-e - _tl146645146692_)))) - (let ((_tl146660146732_ + _tl146907146954_)))) + (let ((_tl146922146994_ (let () (declare (not safe)) - (##cdr _e146662146727_))) - (_hd146661146730_ + (##cdr _e146924146989_))) + (_hd146923146992_ (let () (declare (not safe)) - (##car _e146662146727_)))) + (##car _e146924146989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146660146732_)) - (let ((_L146735_ - _hd146661146730_) - (_L146736_ - _param146659146724_) - (_L146737_ - _hd146649146698_)) + _tl146922146994_)) + (let ((_L146997_ + _hd146923146992_) + (_L146998_ + _param146921146986_) + (_L146999_ + _hd146911146960_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L146737_)) - (let ((__tmp150003 + (gx#identifier? _L146999_)) + (let ((__tmp150265 (memq (let () (declare (not safe)) - (gx#stx-e _L146737_)) + (gx#stx-e _L146999_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp150003))) - (___kont146890146891_ _L146735_ _L146736_ _L146737_) - (___kont146894146895_))) + (not __tmp150265))) + (___kont147152147153_ _L146997_ _L146998_ _L146999_) + (___kont147156147157_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont146894146895_)))) - (___kont146894146895_))))))) + (___kont147156147157_)))) + (___kont147156147157_))))))) (let () (declare (not safe)) - (_loop146654146708_ _target146651146703_ '()))))) - (___match146915146916_ - (lambda (_e146632146765_ - _hd146631146768_ - _tl146630146770_ - _e146635146773_ - _hd146634146776_ - _tl146633146778_ - _e146638146781_ - _hd146637146784_ - _tl146636146786_) - (let ((_L146789_ _hd146637146784_) - (_L146790_ _hd146634146776_)) + (_loop146916146970_ _target146913146965_ '()))))) + (___match147177147178_ + (lambda (_e146894147027_ + _hd146893147030_ + _tl146892147032_ + _e146897147035_ + _hd146896147038_ + _tl146895147040_ + _e146900147043_ + _hd146899147046_ + _tl146898147048_) + (let ((_L147051_ _hd146899147046_) + (_L147052_ _hd146896147038_)) (if (let () (declare (not safe)) - (gx#identifier? _L146790_)) - (___kont146888146889_ _L146789_ _L146790_) + (gx#identifier? _L147052_)) + (___kont147150147151_ _L147051_ _L147052_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146634146776_)) - (let ((_e146650146695_ + (gx#stx-pair? _hd146896147038_)) + (let ((_e146912146957_ (let () (declare (not safe)) - (gx#stx-e _hd146634146776_)))) - (let ((_tl146648146700_ + (gx#stx-e _hd146896147038_)))) + (let ((_tl146910146962_ (let () (declare (not safe)) - (##cdr _e146650146695_))) - (_hd146649146698_ + (##cdr _e146912146957_))) + (_hd146911146960_ (let () (declare (not safe)) - (##car _e146650146695_)))) + (##car _e146912146957_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl146648146700_)) - (let ((___splice146892146893_ + (gx#stx-pair/null? _tl146910146962_)) + (let ((___splice147154147155_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl146648146700_ + _tl146910146962_ '0)))) - (let ((_tl146653146705_ + (let ((_tl146915146967_ (let () (declare (not safe)) (##vector-ref - ___splice146892146893_ + ___splice147154147155_ '1))) - (_target146651146703_ + (_target146913146965_ (let () (declare (not safe)) (##vector-ref - ___splice146892146893_ + ___splice147154147155_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146653146705_)) - (___match146941146942_ - _e146632146765_ - _hd146631146768_ - _tl146630146770_ - _e146635146773_ - _hd146634146776_ - _tl146633146778_ - _e146650146695_ - _hd146649146698_ - _tl146648146700_ - ___splice146892146893_ - _target146651146703_ - _tl146653146705_) - (___kont146894146895_)))) - (___kont146894146895_)))) - (___kont146894146895_))))))) + _tl146915146967_)) + (___match147203147204_ + _e146894147027_ + _hd146893147030_ + _tl146892147032_ + _e146897147035_ + _hd146896147038_ + _tl146895147040_ + _e146912146957_ + _hd146911146960_ + _tl146910146962_ + ___splice147154147155_ + _target146913146965_ + _tl146915146967_) + (___kont147156147157_)))) + (___kont147156147157_)))) + (___kont147156147157_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx146886146887_)) - (let ((_e146632146765_ + (gx#stx-pair? ___stx147148147149_)) + (let ((_e146894147027_ (let () (declare (not safe)) - (gx#stx-e ___stx146886146887_)))) - (let ((_tl146630146770_ + (gx#stx-e ___stx147148147149_)))) + (let ((_tl146892147032_ (let () (declare (not safe)) - (##cdr _e146632146765_))) - (_hd146631146768_ + (##cdr _e146894147027_))) + (_hd146893147030_ (let () (declare (not safe)) - (##car _e146632146765_)))) + (##car _e146894147027_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146630146770_)) - (let ((_e146635146773_ + (gx#stx-pair? _tl146892147032_)) + (let ((_e146897147035_ (let () (declare (not safe)) - (gx#stx-e _tl146630146770_)))) - (let ((_tl146633146778_ + (gx#stx-e _tl146892147032_)))) + (let ((_tl146895147040_ (let () (declare (not safe)) - (##cdr _e146635146773_))) - (_hd146634146776_ + (##cdr _e146897147035_))) + (_hd146896147038_ (let () (declare (not safe)) - (##car _e146635146773_)))) + (##car _e146897147035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146633146778_)) - (let ((_e146638146781_ + (gx#stx-pair? _tl146895147040_)) + (let ((_e146900147043_ (let () (declare (not safe)) - (gx#stx-e _tl146633146778_)))) - (let ((_tl146636146786_ + (gx#stx-e _tl146895147040_)))) + (let ((_tl146898147048_ (let () (declare (not safe)) - (##cdr _e146638146781_))) - (_hd146637146784_ + (##cdr _e146900147043_))) + (_hd146899147046_ (let () (declare (not safe)) - (##car _e146638146781_)))) + (##car _e146900147043_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146636146786_)) - (___match146915146916_ - _e146632146765_ - _hd146631146768_ - _tl146630146770_ - _e146635146773_ - _hd146634146776_ - _tl146633146778_ - _e146638146781_ - _hd146637146784_ - _tl146636146786_) + (gx#stx-null? _tl146898147048_)) + (___match147177147178_ + _e146894147027_ + _hd146893147030_ + _tl146892147032_ + _e146897147035_ + _hd146896147038_ + _tl146895147040_ + _e146900147043_ + _hd146899147046_ + _tl146898147048_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd146634146776_)) - (let ((_e146650146695_ + _hd146896147038_)) + (let ((_e146912146957_ (let () (declare (not safe)) (gx#stx-e - _hd146634146776_)))) - (let ((_tl146648146700_ + _hd146896147038_)))) + (let ((_tl146910146962_ (let () (declare (not safe)) - (##cdr _e146650146695_))) - (_hd146649146698_ + (##cdr _e146912146957_))) + (_hd146911146960_ (let () (declare (not safe)) - (##car _e146650146695_)))) + (##car _e146912146957_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl146648146700_)) - (let ((___splice146892146893_ + _tl146910146962_)) + (let ((___splice147154147155_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl146648146700_ '0)))) - (let ((_tl146653146705_ + (gx#syntax-split-splice _tl146910146962_ '0)))) + (let ((_tl146915146967_ (let () (declare (not safe)) - (##vector-ref ___splice146892146893_ '1))) - (_target146651146703_ + (##vector-ref ___splice147154147155_ '1))) + (_target146913146965_ (let () (declare (not safe)) - (##vector-ref ___splice146892146893_ '0)))) + (##vector-ref ___splice147154147155_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146653146705_)) - (___match146941146942_ - _e146632146765_ - _hd146631146768_ - _tl146630146770_ - _e146635146773_ - _hd146634146776_ - _tl146633146778_ - _e146650146695_ - _hd146649146698_ - _tl146648146700_ - ___splice146892146893_ - _target146651146703_ - _tl146653146705_) - (___kont146894146895_)))) - (___kont146894146895_)))) + (gx#stx-null? _tl146915146967_)) + (___match147203147204_ + _e146894147027_ + _hd146893147030_ + _tl146892147032_ + _e146897147035_ + _hd146896147038_ + _tl146895147040_ + _e146912146957_ + _hd146911146960_ + _tl146910146962_ + ___splice147154147155_ + _target146913146965_ + _tl146915146967_) + (___kont147156147157_)))) + (___kont147156147157_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont146894146895_))))) + (___kont147156147157_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146634146776_)) - (let ((_e146650146695_ + (gx#stx-pair? _hd146896147038_)) + (let ((_e146912146957_ (let () (declare (not safe)) - (gx#stx-e _hd146634146776_)))) - (let ((_tl146648146700_ + (gx#stx-e _hd146896147038_)))) + (let ((_tl146910146962_ (let () (declare (not safe)) - (##cdr _e146650146695_))) - (_hd146649146698_ + (##cdr _e146912146957_))) + (_hd146911146960_ (let () (declare (not safe)) - (##car _e146650146695_)))) + (##car _e146912146957_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl146648146700_)) - (let ((___splice146892146893_ + _tl146910146962_)) + (let ((___splice147154147155_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl146648146700_ + _tl146910146962_ '0)))) - (let ((_tl146653146705_ + (let ((_tl146915146967_ (let () (declare (not safe)) (##vector-ref - ___splice146892146893_ + ___splice147154147155_ '1))) - (_target146651146703_ + (_target146913146965_ (let () (declare (not safe)) (##vector-ref - ___splice146892146893_ + ___splice147154147155_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146653146705_)) - (___match146941146942_ - _e146632146765_ - _hd146631146768_ - _tl146630146770_ - _e146635146773_ - _hd146634146776_ - _tl146633146778_ - _e146650146695_ - _hd146649146698_ - _tl146648146700_ - ___splice146892146893_ - _target146651146703_ - _tl146653146705_) - (___kont146894146895_)))) - (___kont146894146895_)))) - (___kont146894146895_))))) - (___kont146894146895_)))) - (___kont146894146895_))))))) + _tl146915146967_)) + (___match147203147204_ + _e146894147027_ + _hd146893147030_ + _tl146892147032_ + _e146897147035_ + _hd146896147038_ + _tl146895147040_ + _e146912146957_ + _hd146911146960_ + _tl146910146962_ + ___splice147154147155_ + _target146913146965_ + _tl146915146967_) + (___kont147156147157_)))) + (___kont147156147157_)))) + (___kont147156147157_))))) + (___kont147156147157_)))) + (___kont147156147157_))))))) (define gxc#optimize-match - (lambda (_stx145921_) - (let* ((_g145923145953_ - (lambda (_g145924145950_) + (lambda (_stx146183_) + (let* ((_g146185146215_ + (lambda (_g146186146212_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g145924145950_)))) - (_g145922146619_ - (lambda (_g145924145956_) + _g146186146212_)))) + (_g146184146881_ + (lambda (_g146186146218_) (if (let () (declare (not safe)) - (gx#stx-pair? _g145924145956_)) - (let ((_e145930145958_ + (gx#stx-pair? _g146186146218_)) + (let ((_e146192146220_ (let () (declare (not safe)) - (gx#stx-e _g145924145956_)))) - (let ((_hd145929145961_ + (gx#stx-e _g146186146218_)))) + (let ((_hd146191146223_ (let () (declare (not safe)) - (##car _e145930145958_))) - (_tl145928145963_ + (##car _e146192146220_))) + (_tl146190146225_ (let () (declare (not safe)) - (##cdr _e145930145958_)))) + (##cdr _e146192146220_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145929145961_)) + (gx#identifier? _hd146191146223_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd145929145961_)) + _hd146191146223_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145928145963_)) - (let ((_e145933145966_ + (gx#stx-pair? _tl146190146225_)) + (let ((_e146195146228_ (let () (declare (not safe)) - (gx#stx-e _tl145928145963_)))) - (let ((_hd145932145969_ + (gx#stx-e _tl146190146225_)))) + (let ((_hd146194146231_ (let () (declare (not safe)) - (##car _e145933145966_))) - (_tl145931145971_ + (##car _e146195146228_))) + (_tl146193146233_ (let () (declare (not safe)) - (##cdr _e145933145966_)))) + (##cdr _e146195146228_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145932145969_)) - (let ((_e145936145974_ + _hd146194146231_)) + (let ((_e146198146236_ (let () (declare (not safe)) (gx#stx-e - _hd145932145969_)))) - (let ((_hd145935145977_ + _hd146194146231_)))) + (let ((_hd146197146239_ (let () (declare (not safe)) - (##car _e145936145974_))) - (_tl145934145979_ + (##car _e146198146236_))) + (_tl146196146241_ (let () (declare (not safe)) - (##cdr _e145936145974_)))) + (##cdr _e146198146236_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145935145977_)) - (let ((_e145939145982_ + _hd146197146239_)) + (let ((_e146201146244_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd145935145977_)))) - (let ((_hd145938145985_ - (let () (declare (not safe)) (##car _e145939145982_))) - (_tl145937145987_ - (let () (declare (not safe)) (##cdr _e145939145982_)))) + (gx#stx-e _hd146197146239_)))) + (let ((_hd146200146247_ + (let () (declare (not safe)) (##car _e146201146244_))) + (_tl146199146249_ + (let () (declare (not safe)) (##cdr _e146201146244_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145938145985_)) - (let ((_e145942145990_ + (gx#stx-pair? _hd146200146247_)) + (let ((_e146204146252_ (let () (declare (not safe)) - (gx#stx-e _hd145938145985_)))) - (let ((_hd145941145993_ + (gx#stx-e _hd146200146247_)))) + (let ((_hd146203146255_ (let () (declare (not safe)) - (##car _e145942145990_))) - (_tl145940145995_ + (##car _e146204146252_))) + (_tl146202146257_ (let () (declare (not safe)) - (##cdr _e145942145990_)))) + (##cdr _e146204146252_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145940145995_)) + (gx#stx-null? _tl146202146257_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145937145987_)) - (let ((_e145945145998_ + (gx#stx-pair? _tl146199146249_)) + (let ((_e146207146260_ (let () (declare (not safe)) - (gx#stx-e _tl145937145987_)))) - (let ((_hd145944146001_ + (gx#stx-e _tl146199146249_)))) + (let ((_hd146206146263_ (let () (declare (not safe)) - (##car _e145945145998_))) - (_tl145943146003_ + (##car _e146207146260_))) + (_tl146205146265_ (let () (declare (not safe)) - (##cdr _e145945145998_)))) + (##cdr _e146207146260_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145943146003_)) + (gx#stx-null? _tl146205146265_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145934145979_)) + _tl146196146241_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145931145971_)) - (let ((_e145948146006_ + _tl146193146233_)) + (let ((_e146210146268_ (let () (declare (not safe)) (gx#stx-e - _tl145931145971_)))) - (let ((_hd145947146009_ + _tl146193146233_)))) + (let ((_hd146209146271_ (let () (declare (not safe)) - (##car _e145948146006_))) - (_tl145946146011_ + (##car _e146210146268_))) + (_tl146208146273_ (let () (declare (not safe)) - (##cdr _e145948146006_)))) + (##cdr _e146210146268_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145946146011_)) - ((lambda (_L146014_ + _tl146208146273_)) + ((lambda (_L146276_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L146015_ - _L146016_) - (let _lp146040_ ((_body146042_ _L146014_) - (_negation146043_ + _L146277_ + _L146278_) + (let _lp146302_ ((_body146304_ _L146276_) + (_negation146305_ (let () (declare (not safe)) - (cons _L146016_ _L146015_))) - (_clauses146044_ '()) - (_konts146045_ '())) - (let* ((___stx147124147125_ _body146042_) - (_g146048146088_ + (cons _L146278_ _L146277_))) + (_clauses146306_ '()) + (_konts146307_ '())) + (let* ((___stx147386147387_ _body146304_) + (_g146310146350_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147124147125_))))) - (let ((___kont147126147127_ - (lambda (_L146418_) - (let* ((___stx147060147061_ _L146418_) - (_g146432146462_ + ___stx147386147387_))))) + (let ((___kont147388147389_ + (lambda (_L146680_) + (let* ((___stx147322147323_ _L146680_) + (_g146694146724_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147060147061_))))) - (let ((___kont147062147063_ - (lambda (_L146558_ - _L146559_ - _L146560_) + ___stx147322147323_))))) + (let ((___kont147324147325_ + (lambda (_L146820_ + _L146821_ + _L146822_) (if (let () (declare (not safe)) - (null? _clauses146044_)) - (let* ((_negation146584146591_ - _negation146043_) - (_E146586146595_ + (null? _clauses146306_)) + (let* ((_negation146846146853_ + _negation146305_) + (_E146848146857_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation146584146591_)))) - (_K146587146601_ - (lambda (_negate146598_ _E146599_) - (let ((__tmp150014 - (let ((__tmp150015 - (let ((__tmp150025 - (let ((__tmp150026 - (let ((__tmp150028 + _negation146846146853_)))) + (_K146849146863_ + (lambda (_negate146860_ _E146861_) + (let ((__tmp150276 + (let ((__tmp150277 + (let ((__tmp150287 + (let ((__tmp150288 + (let ((__tmp150290 (let () (declare (not safe)) - (cons _E146599_ '()))) - (__tmp150027 + (cons _E146861_ '()))) + (__tmp150289 (let () (declare (not safe)) - (cons _negate146598_ + (cons _negate146860_ '())))) (declare (not safe)) - (cons __tmp150028 - __tmp150027)))) + (cons __tmp150290 + __tmp150289)))) (declare (not safe)) - (cons __tmp150026 '()))) - (__tmp150016 - (let ((__tmp150017 - (let ((__tmp150018 - (let ((__tmp150020 - (let ((__tmp150021 + (cons __tmp150288 '()))) + (__tmp150278 + (let ((__tmp150279 + (let ((__tmp150280 + (let ((__tmp150282 + (let ((__tmp150283 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150024 + (let ((__tmp150286 (let () (declare (not safe)) - (cons _L146560_ '()))) - (__tmp150022 - (let ((__tmp150023 + (cons _L146822_ '()))) + (__tmp150284 + (let ((__tmp150285 (let () (declare (not safe)) - (gxc#compile-e__0 _L146559_)))) + (gxc#compile-e__0 _L146821_)))) (declare (not safe)) - (cons __tmp150023 '())))) + (cons __tmp150285 '())))) (declare (not safe)) - (cons __tmp150024 __tmp150022)))) + (cons __tmp150286 __tmp150284)))) (declare (not safe)) - (cons __tmp150021 '()))) - (__tmp150019 - (let () (declare (not safe)) (cons _L146558_ '())))) + (cons __tmp150283 '()))) + (__tmp150281 + (let () (declare (not safe)) (cons _L146820_ '())))) (declare (not safe)) - (cons __tmp150020 __tmp150019)))) + (cons __tmp150282 __tmp150281)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150018)))) + __tmp150280)))) (declare (not safe)) - (cons __tmp150017 '())))) + (cons __tmp150279 '())))) (declare (not safe)) - (cons __tmp150025 __tmp150016)))) + (cons __tmp150287 __tmp150278)))) (declare (not safe)) - (cons '%#let-values __tmp150015)))) + (cons '%#let-values __tmp150277)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150014 _stx145921_))))) + (gxc#xform-wrap-source __tmp150276 _stx146183_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation146584146591_)) - (let ((_hd146588146604_ + (##pair? _negation146846146853_)) + (let ((_hd146850146866_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation146584146591_))) - (_tl146589146606_ + (##car _negation146846146853_))) + (_tl146851146868_ (let () (declare (not safe)) - (##cdr _negation146584146591_)))) - (let* ((_E146609_ _hd146588146604_) - (_negate146611_ _tl146589146606_)) + (##cdr _negation146846146853_)))) + (let* ((_E146871_ _hd146850146866_) + (_negate146873_ _tl146851146868_)) (declare (not safe)) - (_K146587146601_ _negate146611_ _E146609_))) - (let () (declare (not safe)) (_E146586146595_)))) + (_K146849146863_ _negate146873_ _E146871_))) + (let () (declare (not safe)) (_E146848146857_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp150008 - (let ((__tmp150009 - (let ((__tmp150010 + (let ((__tmp150270 + (let ((__tmp150271 + (let ((__tmp150272 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150013 + (let ((__tmp150275 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150011 - (let ((__tmp150012 + (__tmp150273 + (let ((__tmp150274 (let () (declare (not safe)) - (cons _L146558_ '())))) + (cons _L146820_ '())))) (declare (not safe)) - (cons '() __tmp150012)))) + (cons '() __tmp150274)))) (declare (not safe)) - (cons __tmp150013 __tmp150011)))) + (cons __tmp150275 __tmp150273)))) (declare (not safe)) - (cons '#f __tmp150010)))) + (cons '#f __tmp150272)))) (declare (not safe)) - (cons __tmp150009 _clauses146044_))) - (__tmp150005 - (let ((__tmp150006 - (let ((__tmp150007 + (cons __tmp150271 _clauses146306_))) + (__tmp150267 + (let ((__tmp150268 + (let ((__tmp150269 (let () (declare (not safe)) - (gxc#compile-e__0 _L146559_)))) + (gxc#compile-e__0 _L146821_)))) (declare (not safe)) - (cons _L146560_ __tmp150007)))) + (cons _L146822_ __tmp150269)))) (declare (not safe)) - (cons __tmp150006 _konts146045_)))) + (cons __tmp150268 _konts146307_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx145921_ - _negation146043_ - __tmp150008 - __tmp150005))))) - (___kont147064147065_ + _stx146183_ + _negation146305_ + __tmp150270 + __tmp150267))))) + (___kont147326147327_ (lambda () - (let* ((_negation146468146475_ - _negation146043_) - (_E146470146479_ + (let* ((_negation146730146737_ + _negation146305_) + (_E146732146741_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation146468146475_)))) - (_K146471146485_ - (lambda (_negate146482_ - _E146483_) - (let ((__tmp150029 - (let ((__tmp150030 + _negation146730146737_)))) + (_K146733146747_ + (lambda (_negate146744_ + _E146745_) + (let ((__tmp150291 + (let ((__tmp150292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150032 - (let ((__tmp150033 - (let ((__tmp150035 + (let ((__tmp150294 + (let ((__tmp150295 + (let ((__tmp150297 (let () (declare (not safe)) - (cons _E146483_ '()))) - (__tmp150034 + (cons _E146745_ '()))) + (__tmp150296 (let () (declare (not safe)) - (cons _negate146482_ + (cons _negate146744_ '())))) (declare (not safe)) - (cons __tmp150035 __tmp150034)))) + (cons __tmp150297 __tmp150296)))) (declare (not safe)) - (cons __tmp150033 '()))) - (__tmp150031 + (cons __tmp150295 '()))) + (__tmp150293 (let () (declare (not safe)) - (cons _L146418_ '())))) + (cons _L146680_ '())))) (declare (not safe)) - (cons __tmp150032 __tmp150031)))) + (cons __tmp150294 __tmp150293)))) (declare (not safe)) - (cons '%#let-values __tmp150030)))) + (cons '%#let-values __tmp150292)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150029 _stx145921_))))) + (gxc#xform-wrap-source __tmp150291 _stx146183_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation146468146475_)) - (let ((_hd146472146488_ + (##pair? _negation146730146737_)) + (let ((_hd146734146750_ (let () (declare (not safe)) - (##car _negation146468146475_))) - (_tl146473146490_ + (##car _negation146730146737_))) + (_tl146735146752_ (let () (declare (not safe)) - (##cdr _negation146468146475_)))) - (let* ((_E146493_ - _hd146472146488_) - (_negate146495_ - _tl146473146490_)) + (##cdr _negation146730146737_)))) + (let* ((_E146755_ + _hd146734146750_) + (_negate146757_ + _tl146735146752_)) (declare (not safe)) - (_K146471146485_ - _negate146495_ - _E146493_))) + (_K146733146747_ + _negate146757_ + _E146755_))) (let () (declare (not safe)) - (_E146470146479_))))))) - (let ((_g146431146497_ + (_E146732146741_))))))) + (let ((_g146693146759_ (lambda () (if (let () (declare (not safe)) - (null? _clauses146044_)) - (___kont147064147065_) + (null? _clauses146306_)) + (___kont147326147327_) (let () (declare (not safe)) - (_g146432146462_)))))) + (_g146694146724_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147060147061_)) - (let ((_e146439146502_ + ___stx147322147323_)) + (let ((_e146701146764_ (let () (declare (not safe)) (gx#stx-e - ___stx147060147061_)))) - (let ((_tl146437146507_ + ___stx147322147323_)))) + (let ((_tl146699146769_ (let () (declare (not safe)) - (##cdr _e146439146502_))) - (_hd146438146505_ + (##cdr _e146701146764_))) + (_hd146700146767_ (let () (declare (not safe)) - (##car _e146439146502_)))) + (##car _e146701146764_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146438146505_)) + _hd146700146767_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146438146505_)) + _hd146700146767_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146437146507_)) - (let ((_e146442146510_ + _tl146699146769_)) + (let ((_e146704146772_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl146437146507_)))) - (let ((_tl146440146515_ + (gx#stx-e _tl146699146769_)))) + (let ((_tl146702146777_ (let () (declare (not safe)) - (##cdr _e146442146510_))) - (_hd146441146513_ + (##cdr _e146704146772_))) + (_hd146703146775_ (let () (declare (not safe)) - (##car _e146442146510_)))) + (##car _e146704146772_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146441146513_)) - (let ((_e146445146518_ + (gx#stx-pair? _hd146703146775_)) + (let ((_e146707146780_ (let () (declare (not safe)) - (gx#stx-e _hd146441146513_)))) - (let ((_tl146443146523_ + (gx#stx-e _hd146703146775_)))) + (let ((_tl146705146785_ (let () (declare (not safe)) - (##cdr _e146445146518_))) - (_hd146444146521_ + (##cdr _e146707146780_))) + (_hd146706146783_ (let () (declare (not safe)) - (##car _e146445146518_)))) + (##car _e146707146780_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146444146521_)) - (let ((_e146448146526_ + (gx#stx-pair? _hd146706146783_)) + (let ((_e146710146788_ (let () (declare (not safe)) - (gx#stx-e _hd146444146521_)))) - (let ((_tl146446146531_ + (gx#stx-e _hd146706146783_)))) + (let ((_tl146708146793_ (let () (declare (not safe)) - (##cdr _e146448146526_))) - (_hd146447146529_ + (##cdr _e146710146788_))) + (_hd146709146791_ (let () (declare (not safe)) - (##car _e146448146526_)))) + (##car _e146710146788_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146447146529_)) - (let ((_e146451146534_ + (gx#stx-pair? _hd146709146791_)) + (let ((_e146713146796_ (let () (declare (not safe)) (gx#stx-e - _hd146447146529_)))) - (let ((_tl146449146539_ + _hd146709146791_)))) + (let ((_tl146711146801_ (let () (declare (not safe)) - (##cdr _e146451146534_))) - (_hd146450146537_ + (##cdr _e146713146796_))) + (_hd146712146799_ (let () (declare (not safe)) - (##car _e146451146534_)))) + (##car _e146713146796_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146449146539_)) + _tl146711146801_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146446146531_)) - (let ((_e146454146542_ + _tl146708146793_)) + (let ((_e146716146804_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl146446146531_)))) - (let ((_tl146452146547_ - (let () (declare (not safe)) (##cdr _e146454146542_))) - (_hd146453146545_ + (gx#stx-e _tl146708146793_)))) + (let ((_tl146714146809_ + (let () (declare (not safe)) (##cdr _e146716146804_))) + (_hd146715146807_ (let () (declare (not safe)) - (##car _e146454146542_)))) + (##car _e146716146804_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146452146547_)) + (gx#stx-null? _tl146714146809_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl146443146523_)) + (gx#stx-null? _tl146705146785_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146440146515_)) - (let ((_e146457146550_ + (gx#stx-pair? _tl146702146777_)) + (let ((_e146719146812_ (let () (declare (not safe)) - (gx#stx-e _tl146440146515_)))) - (let ((_tl146455146555_ + (gx#stx-e _tl146702146777_)))) + (let ((_tl146717146817_ (let () (declare (not safe)) - (##cdr _e146457146550_))) - (_hd146456146553_ + (##cdr _e146719146812_))) + (_hd146718146815_ (let () (declare (not safe)) - (##car _e146457146550_)))) + (##car _e146719146812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146455146555_)) - (___kont147062147063_ - _hd146456146553_ - _hd146453146545_ - _hd146450146537_) + (gx#stx-null? _tl146717146817_)) + (___kont147324147325_ + _hd146718146815_ + _hd146715146807_ + _hd146712146799_) (let () (declare (not safe)) - (_g146431146497_))))) + (_g146693146759_))))) (let () (declare (not safe)) - (_g146431146497_))) - (let () (declare (not safe)) (_g146431146497_))) - (let () (declare (not safe)) (_g146431146497_))))) - (let () (declare (not safe)) (_g146431146497_))) + (_g146693146759_))) + (let () (declare (not safe)) (_g146693146759_))) + (let () (declare (not safe)) (_g146693146759_))))) + (let () (declare (not safe)) (_g146693146759_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146431146497_))))) + (_g146693146759_))))) (let () (declare (not safe)) - (_g146431146497_))))) + (_g146693146759_))))) (let () (declare (not safe)) - (_g146431146497_))))) - (let () (declare (not safe)) (_g146431146497_))))) - (let () (declare (not safe)) (_g146431146497_))) - (let () (declare (not safe)) (_g146431146497_))) + (_g146693146759_))))) + (let () (declare (not safe)) (_g146693146759_))))) + (let () (declare (not safe)) (_g146693146759_))) + (let () (declare (not safe)) (_g146693146759_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146431146497_))))) + (_g146693146759_))))) (let () (declare (not safe)) - (_g146431146497_)))))))) - (___kont147128147129_ - (lambda (_L146149_ _L146150_ _L146151_) - (let* ((___stx146944146945_ _L146150_) - (_g146178146227_ + (_g146693146759_)))))))) + (___kont147390147391_ + (lambda (_L146411_ _L146412_ _L146413_) + (let* ((___stx147206147207_ _L146412_) + (_g146440146489_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx146944146945_))))) - (let ((___kont146946146947_ - (lambda (_L146355_ - _L146356_ - _L146357_) - (let ((__tmp150039 - (let ((__tmp150040 - (let ((__tmp150041 + ___stx147206147207_))))) + (let ((___kont147208147209_ + (lambda (_L146617_ + _L146618_ + _L146619_) + (let ((__tmp150301 + (let ((__tmp150302 + (let ((__tmp150303 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150044 + (let ((__tmp150306 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150042 - (let ((__tmp150043 + (__tmp150304 + (let ((__tmp150305 (let () (declare (not safe)) - (cons _L146355_ '())))) + (cons _L146617_ '())))) (declare (not safe)) - (cons '() __tmp150043)))) + (cons '() __tmp150305)))) (declare (not safe)) - (cons __tmp150044 __tmp150042)))) + (cons __tmp150306 __tmp150304)))) (declare (not safe)) - (cons _L146151_ __tmp150041)))) + (cons _L146413_ __tmp150303)))) (declare (not safe)) - (cons __tmp150040 _clauses146044_))) + (cons __tmp150302 _clauses146306_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150036 - (let ((__tmp150037 - (let ((__tmp150038 + (__tmp150298 + (let ((__tmp150299 + (let ((__tmp150300 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L146356_)))) + (gxc#compile-e__0 _L146618_)))) (declare (not safe)) - (cons _L146357_ __tmp150038)))) + (cons _L146619_ __tmp150300)))) (declare (not safe)) - (cons __tmp150037 _konts146045_)))) + (cons __tmp150299 _konts146307_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp146040_ - _L146149_ - _negation146043_ - __tmp150039 - __tmp150036)))) - (___kont146948146949_ - (lambda (_L146256_) - (let ((__tmp150045 - (let ((__tmp150046 + (_lp146302_ + _L146411_ + _negation146305_ + __tmp150301 + __tmp150298)))) + (___kont147210147211_ + (lambda (_L146518_) + (let ((__tmp150307 + (let ((__tmp150308 (let () (declare (not safe)) (gxc#compile-e__0 - _L146256_)))) + _L146518_)))) (declare (not safe)) - (cons _L146151_ - __tmp150046)))) + (cons _L146413_ + __tmp150308)))) (declare (not safe)) - (_lp146040_ - _L146149_ - __tmp150045 - _clauses146044_ - _konts146045_))))) + (_lp146302_ + _L146411_ + __tmp150307 + _clauses146306_ + _konts146307_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx146944146945_)) - (let ((_e146185146275_ + (gx#stx-pair? ___stx147206147207_)) + (let ((_e146447146537_ (let () (declare (not safe)) (gx#stx-e - ___stx146944146945_)))) - (let ((_tl146183146280_ + ___stx147206147207_)))) + (let ((_tl146445146542_ (let () (declare (not safe)) - (##cdr _e146185146275_))) - (_hd146184146278_ + (##cdr _e146447146537_))) + (_hd146446146540_ (let () (declare (not safe)) - (##car _e146185146275_)))) + (##car _e146447146537_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146184146278_)) + _hd146446146540_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd146184146278_)) + _hd146446146540_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146183146280_)) - (let ((_e146188146283_ + _tl146445146542_)) + (let ((_e146450146545_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl146183146280_)))) - (let ((_tl146186146288_ + (gx#stx-e _tl146445146542_)))) + (let ((_tl146448146550_ (let () (declare (not safe)) - (##cdr _e146188146283_))) - (_hd146187146286_ + (##cdr _e146450146545_))) + (_hd146449146548_ (let () (declare (not safe)) - (##car _e146188146283_)))) + (##car _e146450146545_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd146187146286_)) + (gx#stx-null? _hd146449146548_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146186146288_)) - (let ((_e146191146291_ + (gx#stx-pair? _tl146448146550_)) + (let ((_e146453146553_ (let () (declare (not safe)) - (gx#stx-e _tl146186146288_)))) - (let ((_tl146189146296_ + (gx#stx-e _tl146448146550_)))) + (let ((_tl146451146558_ (let () (declare (not safe)) - (##cdr _e146191146291_))) - (_hd146190146294_ + (##cdr _e146453146553_))) + (_hd146452146556_ (let () (declare (not safe)) - (##car _e146191146291_)))) + (##car _e146453146553_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146190146294_)) - (let ((_e146194146299_ + (gx#stx-pair? _hd146452146556_)) + (let ((_e146456146561_ (let () (declare (not safe)) - (gx#stx-e _hd146190146294_)))) - (let ((_tl146192146304_ + (gx#stx-e _hd146452146556_)))) + (let ((_tl146454146566_ (let () (declare (not safe)) - (##cdr _e146194146299_))) - (_hd146193146302_ + (##cdr _e146456146561_))) + (_hd146455146564_ (let () (declare (not safe)) - (##car _e146194146299_)))) + (##car _e146456146561_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146193146302_)) + _hd146455146564_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146193146302_)) + _hd146455146564_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146192146304_)) - (let ((_e146197146307_ + _tl146454146566_)) + (let ((_e146459146569_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl146192146304_)))) - (let ((_tl146195146312_ - (let () (declare (not safe)) (##cdr _e146197146307_))) - (_hd146196146310_ - (let () (declare (not safe)) (##car _e146197146307_)))) + (gx#stx-e _tl146454146566_)))) + (let ((_tl146457146574_ + (let () (declare (not safe)) (##cdr _e146459146569_))) + (_hd146458146572_ + (let () (declare (not safe)) (##car _e146459146569_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146196146310_)) - (let ((_e146200146315_ + (gx#stx-pair? _hd146458146572_)) + (let ((_e146462146577_ (let () (declare (not safe)) - (gx#stx-e _hd146196146310_)))) - (let ((_tl146198146320_ + (gx#stx-e _hd146458146572_)))) + (let ((_tl146460146582_ (let () (declare (not safe)) - (##cdr _e146200146315_))) - (_hd146199146318_ + (##cdr _e146462146577_))) + (_hd146461146580_ (let () (declare (not safe)) - (##car _e146200146315_)))) + (##car _e146462146577_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146199146318_)) - (let ((_e146203146323_ + (gx#stx-pair? _hd146461146580_)) + (let ((_e146465146585_ (let () (declare (not safe)) - (gx#stx-e _hd146199146318_)))) - (let ((_tl146201146328_ + (gx#stx-e _hd146461146580_)))) + (let ((_tl146463146590_ (let () (declare (not safe)) - (##cdr _e146203146323_))) - (_hd146202146326_ + (##cdr _e146465146585_))) + (_hd146464146588_ (let () (declare (not safe)) - (##car _e146203146323_)))) + (##car _e146465146585_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146202146326_)) - (let ((_e146206146331_ + (gx#stx-pair? _hd146464146588_)) + (let ((_e146468146593_ (let () (declare (not safe)) - (gx#stx-e _hd146202146326_)))) - (let ((_tl146204146336_ + (gx#stx-e _hd146464146588_)))) + (let ((_tl146466146598_ (let () (declare (not safe)) - (##cdr _e146206146331_))) - (_hd146205146334_ + (##cdr _e146468146593_))) + (_hd146467146596_ (let () (declare (not safe)) - (##car _e146206146331_)))) + (##car _e146468146593_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146204146336_)) + _tl146466146598_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146201146328_)) - (let ((_e146209146339_ + _tl146463146590_)) + (let ((_e146471146601_ (let () (declare (not safe)) (gx#stx-e - _tl146201146328_)))) - (let ((_tl146207146344_ + _tl146463146590_)))) + (let ((_tl146469146606_ (let () (declare (not safe)) - (##cdr _e146209146339_))) - (_hd146208146342_ + (##cdr _e146471146601_))) + (_hd146470146604_ (let () (declare (not safe)) - (##car _e146209146339_)))) + (##car _e146471146601_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146207146344_)) + _tl146469146606_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl146198146320_)) + (gx#stx-null? _tl146460146582_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146195146312_)) - (let ((_e146212146347_ + (gx#stx-pair? _tl146457146574_)) + (let ((_e146474146609_ (let () (declare (not safe)) - (gx#stx-e _tl146195146312_)))) - (let ((_tl146210146352_ + (gx#stx-e _tl146457146574_)))) + (let ((_tl146472146614_ (let () (declare (not safe)) - (##cdr _e146212146347_))) - (_hd146211146350_ + (##cdr _e146474146609_))) + (_hd146473146612_ (let () (declare (not safe)) - (##car _e146212146347_)))) + (##car _e146474146609_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146210146352_)) + (gx#stx-null? _tl146472146614_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl146189146296_)) - (___kont146946146947_ - _hd146211146350_ - _hd146208146342_ - _hd146205146334_) + (gx#stx-null? _tl146451146558_)) + (___kont147208147209_ + _hd146473146612_ + _hd146470146604_ + _hd146467146596_) (let () (declare (not safe)) - (_g146178146227_))) + (_g146440146489_))) (let () (declare (not safe)) - (_g146178146227_))))) - (let () (declare (not safe)) (_g146178146227_))) - (let () (declare (not safe)) (_g146178146227_))) - (let () (declare (not safe)) (_g146178146227_))))) + (_g146440146489_))))) + (let () (declare (not safe)) (_g146440146489_))) + (let () (declare (not safe)) (_g146440146489_))) + (let () (declare (not safe)) (_g146440146489_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146178146227_))) + (_g146440146489_))) (let () (declare (not safe)) - (_g146178146227_))))) + (_g146440146489_))))) (let () (declare (not safe)) - (_g146178146227_))))) + (_g146440146489_))))) (let () (declare (not safe)) - (_g146178146227_))))) - (let () (declare (not safe)) (_g146178146227_))))) - (let () (declare (not safe)) (_g146178146227_))) + (_g146440146489_))))) + (let () (declare (not safe)) (_g146440146489_))))) + (let () (declare (not safe)) (_g146440146489_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146178146227_))) + (_g146440146489_))) (let () (declare (not safe)) - (_g146178146227_))))) + (_g146440146489_))))) (let () (declare (not safe)) - (_g146178146227_))))) - (let () (declare (not safe)) (_g146178146227_))) - (let () (declare (not safe)) (_g146178146227_))))) - (let () (declare (not safe)) (_g146178146227_))) + (_g146440146489_))))) + (let () (declare (not safe)) (_g146440146489_))) + (let () (declare (not safe)) (_g146440146489_))))) + (let () (declare (not safe)) (_g146440146489_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd146184146278_)) + (gx#stx-eq? '%#begin-annotation _hd146446146540_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146183146280_)) - (let ((_e146219146240_ + (gx#stx-pair? _tl146445146542_)) + (let ((_e146481146502_ (let () (declare (not safe)) - (gx#stx-e _tl146183146280_)))) - (let ((_tl146217146245_ + (gx#stx-e _tl146445146542_)))) + (let ((_tl146479146507_ (let () (declare (not safe)) - (##cdr _e146219146240_))) - (_hd146218146243_ + (##cdr _e146481146502_))) + (_hd146480146505_ (let () (declare (not safe)) - (##car _e146219146240_)))) + (##car _e146481146502_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146218146243_)) + (gx#identifier? _hd146480146505_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd146218146243_)) + (gx#stx-eq? '@match-else _hd146480146505_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146217146245_)) - (let ((_e146222146248_ + (gx#stx-pair? _tl146479146507_)) + (let ((_e146484146510_ (let () (declare (not safe)) - (gx#stx-e _tl146217146245_)))) - (let ((_tl146220146253_ + (gx#stx-e _tl146479146507_)))) + (let ((_tl146482146515_ (let () (declare (not safe)) - (##cdr _e146222146248_))) - (_hd146221146251_ + (##cdr _e146484146510_))) + (_hd146483146513_ (let () (declare (not safe)) - (##car _e146222146248_)))) + (##car _e146484146510_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146220146253_)) - (___kont146948146949_ - _hd146221146251_) + _tl146482146515_)) + (___kont147210147211_ + _hd146483146513_) (let () (declare (not safe)) - (_g146178146227_))))) + (_g146440146489_))))) (let () (declare (not safe)) - (_g146178146227_))) + (_g146440146489_))) (let () (declare (not safe)) - (_g146178146227_))) + (_g146440146489_))) (let () (declare (not safe)) - (_g146178146227_))))) - (let () (declare (not safe)) (_g146178146227_))) - (let () (declare (not safe)) (_g146178146227_)))) + (_g146440146489_))))) + (let () (declare (not safe)) (_g146440146489_))) + (let () (declare (not safe)) (_g146440146489_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146178146227_))))) + (_g146440146489_))))) (let () (declare (not safe)) - (_g146178146227_)))))))) + (_g146440146489_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147124147125_)) - (let ((_e146053146394_ + (gx#stx-pair? ___stx147386147387_)) + (let ((_e146315146656_ (let () (declare (not safe)) - (gx#stx-e ___stx147124147125_)))) - (let ((_tl146051146399_ + (gx#stx-e ___stx147386147387_)))) + (let ((_tl146313146661_ (let () (declare (not safe)) - (##cdr _e146053146394_))) - (_hd146052146397_ + (##cdr _e146315146656_))) + (_hd146314146659_ (let () (declare (not safe)) - (##car _e146053146394_)))) + (##car _e146315146656_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146052146397_)) + (gx#identifier? _hd146314146659_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd146052146397_)) + _hd146314146659_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146051146399_)) - (let ((_e146056146402_ + _tl146313146661_)) + (let ((_e146318146664_ (let () (declare (not safe)) (gx#stx-e - _tl146051146399_)))) - (let ((_tl146054146407_ + _tl146313146661_)))) + (let ((_tl146316146669_ (let () (declare (not safe)) - (##cdr _e146056146402_))) - (_hd146055146405_ + (##cdr _e146318146664_))) + (_hd146317146667_ (let () (declare (not safe)) - (##car _e146056146402_)))) + (##car _e146318146664_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146055146405_)) + _hd146317146667_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd146055146405_)) + _hd146317146667_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl146054146407_)) - (let ((_e146059146410_ + (gx#stx-pair? _tl146316146669_)) + (let ((_e146321146672_ (let () (declare (not safe)) - (gx#stx-e _tl146054146407_)))) - (let ((_tl146057146415_ + (gx#stx-e _tl146316146669_)))) + (let ((_tl146319146677_ (let () (declare (not safe)) - (##cdr _e146059146410_))) - (_hd146058146413_ + (##cdr _e146321146672_))) + (_hd146320146675_ (let () (declare (not safe)) - (##car _e146059146410_)))) + (##car _e146321146672_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146057146415_)) - (___kont147126147127_ _hd146058146413_) + (gx#stx-null? _tl146319146677_)) + (___kont147388147389_ _hd146320146675_) (let () (declare (not safe)) - (_g146048146088_))))) - (let () (declare (not safe)) (_g146048146088_))) - (let () (declare (not safe)) (_g146048146088_))) - (let () (declare (not safe)) (_g146048146088_))))) + (_g146310146350_))))) + (let () (declare (not safe)) (_g146310146350_))) + (let () (declare (not safe)) (_g146310146350_))) + (let () (declare (not safe)) (_g146310146350_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146048146088_))) + (_g146310146350_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146052146397_)) + _hd146314146659_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146051146399_)) - (let ((_e146068146101_ + _tl146313146661_)) + (let ((_e146330146363_ (let () (declare (not safe)) (gx#stx-e - _tl146051146399_)))) - (let ((_tl146066146106_ + _tl146313146661_)))) + (let ((_tl146328146368_ (let () (declare (not safe)) - (##cdr _e146068146101_))) - (_hd146067146104_ + (##cdr _e146330146363_))) + (_hd146329146366_ (let () (declare (not safe)) - (##car _e146068146101_)))) + (##car _e146330146363_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd146067146104_)) - (let ((_e146071146109_ + _hd146329146366_)) + (let ((_e146333146371_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd146067146104_)))) - (let ((_tl146069146114_ + (gx#stx-e _hd146329146366_)))) + (let ((_tl146331146376_ (let () (declare (not safe)) - (##cdr _e146071146109_))) - (_hd146070146112_ + (##cdr _e146333146371_))) + (_hd146332146374_ (let () (declare (not safe)) - (##car _e146071146109_)))) + (##car _e146333146371_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146070146112_)) - (let ((_e146074146117_ + (gx#stx-pair? _hd146332146374_)) + (let ((_e146336146379_ (let () (declare (not safe)) - (gx#stx-e _hd146070146112_)))) - (let ((_tl146072146122_ + (gx#stx-e _hd146332146374_)))) + (let ((_tl146334146384_ (let () (declare (not safe)) - (##cdr _e146074146117_))) - (_hd146073146120_ + (##cdr _e146336146379_))) + (_hd146335146382_ (let () (declare (not safe)) - (##car _e146074146117_)))) + (##car _e146336146379_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146073146120_)) - (let ((_e146077146125_ + (gx#stx-pair? _hd146335146382_)) + (let ((_e146339146387_ (let () (declare (not safe)) - (gx#stx-e _hd146073146120_)))) - (let ((_tl146075146130_ + (gx#stx-e _hd146335146382_)))) + (let ((_tl146337146392_ (let () (declare (not safe)) - (##cdr _e146077146125_))) - (_hd146076146128_ + (##cdr _e146339146387_))) + (_hd146338146390_ (let () (declare (not safe)) - (##car _e146077146125_)))) + (##car _e146339146387_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146075146130_)) + (gx#stx-null? _tl146337146392_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146072146122_)) - (let ((_e146080146133_ + _tl146334146384_)) + (let ((_e146342146395_ (let () (declare (not safe)) (gx#stx-e - _tl146072146122_)))) - (let ((_tl146078146138_ + _tl146334146384_)))) + (let ((_tl146340146400_ (let () (declare (not safe)) - (##cdr _e146080146133_))) - (_hd146079146136_ + (##cdr _e146342146395_))) + (_hd146341146398_ (let () (declare (not safe)) - (##car _e146080146133_)))) + (##car _e146342146395_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146078146138_)) + _tl146340146400_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl146069146114_)) + _tl146331146376_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl146066146106_)) - (let ((_e146083146141_ + (gx#stx-pair? _tl146328146368_)) + (let ((_e146345146403_ (let () (declare (not safe)) - (gx#stx-e _tl146066146106_)))) - (let ((_tl146081146146_ + (gx#stx-e _tl146328146368_)))) + (let ((_tl146343146408_ (let () (declare (not safe)) - (##cdr _e146083146141_))) - (_hd146082146144_ + (##cdr _e146345146403_))) + (_hd146344146406_ (let () (declare (not safe)) - (##car _e146083146141_)))) + (##car _e146345146403_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146081146146_)) - (___kont147128147129_ - _hd146082146144_ - _hd146079146136_ - _hd146076146128_) + (gx#stx-null? _tl146343146408_)) + (___kont147390147391_ + _hd146344146406_ + _hd146341146398_ + _hd146338146390_) (let () (declare (not safe)) - (_g146048146088_))))) - (let () (declare (not safe)) (_g146048146088_))) - (let () (declare (not safe)) (_g146048146088_))) - (let () (declare (not safe)) (_g146048146088_))))) + (_g146310146350_))))) + (let () (declare (not safe)) (_g146310146350_))) + (let () (declare (not safe)) (_g146310146350_))) + (let () (declare (not safe)) (_g146310146350_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146048146088_))) + (_g146310146350_))) (let () (declare (not safe)) - (_g146048146088_))))) + (_g146310146350_))))) (let () (declare (not safe)) - (_g146048146088_))))) - (let () (declare (not safe)) (_g146048146088_))))) - (let () (declare (not safe)) (_g146048146088_))))) + (_g146310146350_))))) + (let () (declare (not safe)) (_g146310146350_))))) + (let () (declare (not safe)) (_g146310146350_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146048146088_))) + (_g146310146350_))) (let () (declare (not safe)) - (_g146048146088_)))) + (_g146310146350_)))) (let () (declare (not safe)) - (_g146048146088_))))) + (_g146310146350_))))) (let () (declare (not safe)) - (_g146048146088_))))))) - _hd145947146009_ - _hd145944146001_ - _hd145941145993_) + (_g146310146350_))))))) + _hd146209146271_ + _hd146206146263_ + _hd146203146255_) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_))))) + (_g146185146215_ _g146186146218_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145923145953_ - _g145924145956_))) + (_g146185146215_ + _g146186146218_))) (let () (declare (not safe)) - (_g145923145953_ - _g145924145956_))) + (_g146185146215_ + _g146186146218_))) (let () (declare (not safe)) - (_g145923145953_ - _g145924145956_))))) + (_g146185146215_ + _g146186146218_))))) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_))) + (_g146185146215_ _g146186146218_))) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_))))) + (_g146185146215_ _g146186146218_))))) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_))))) + (_g146185146215_ _g146186146218_))))) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_))))) + (_g146185146215_ _g146186146218_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145923145953_ - _g145924145956_))))) + (_g146185146215_ + _g146186146218_))))) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_))) + (_g146185146215_ _g146186146218_))) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_))) + (_g146185146215_ _g146186146218_))) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_))))) + (_g146185146215_ _g146186146218_))))) (let () (declare (not safe)) - (_g145923145953_ _g145924145956_)))))) + (_g146185146215_ _g146186146218_)))))) (declare (not safe)) - (_g145922146619_ _stx145921_)))) + (_g146184146881_ _stx146183_)))) (define gxc#optimize-match-body - (lambda (_stx145627_ _negation145628_ _clauses145629_ _konts145630_) - (letrec ((_push-variables145632_ - (lambda (_clause145879_ _kont145880_) - (let ((_clause145881145891_ _clause145879_) - (_kont145882145893_ _kont145880_)) - (let* ((_E145884145897_ + (lambda (_stx145889_ _negation145890_ _clauses145891_ _konts145892_) + (letrec ((_push-variables145894_ + (lambda (_clause146141_ _kont146142_) + (let ((_clause146143146153_ _clause146141_) + (_kont146144146155_ _kont146142_)) + (let* ((_E146146146159_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause145881145891_ - _kont145882145893_)))) - (_K145885145904_ - (lambda (_clause-lambda145900_ - _clause-name145901_ - _K145902_) - (let ((__tmp150047 + _clause146143146153_ + _kont146144146155_)))) + (_K146147146166_ + (lambda (_clause-lambda146162_ + _clause-name146163_ + _K146164_) + (let ((__tmp150309 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda145900_ + _clause-lambda146162_ '() - _K145902_)))) + _K146164_)))) (declare (not safe)) - (cons _clause-name145901_ __tmp150047))))) + (cons _clause-name146163_ __tmp150309))))) (if (let () (declare (not safe)) - (##pair? _clause145881145891_)) - (let ((_hd145888145907_ + (##pair? _clause146143146153_)) + (let ((_hd146150146169_ (let () (declare (not safe)) - (##car _clause145881145891_))) - (_tl145889145909_ + (##car _clause146143146153_))) + (_tl146151146171_ (let () (declare (not safe)) - (##cdr _clause145881145891_)))) - (let* ((_clause-name145912_ _hd145888145907_) - (_clause-lambda145914_ _tl145889145909_)) + (##cdr _clause146143146153_)))) + (let* ((_clause-name146174_ _hd146150146169_) + (_clause-lambda146176_ _tl146151146171_)) (if (let () (declare (not safe)) - (##pair? _kont145882145893_)) - (let* ((_hd145886145916_ + (##pair? _kont146144146155_)) + (let* ((_hd146148146178_ (let () (declare (not safe)) - (##car _kont145882145893_))) - (_K145919_ _hd145886145916_)) + (##car _kont146144146155_))) + (_K146181_ _hd146148146178_)) (declare (not safe)) - (_K145885145904_ - _clause-lambda145914_ - _clause-name145912_ - _K145919_)) + (_K146147146166_ + _clause-lambda146176_ + _clause-name146174_ + _K146181_)) (let () (declare (not safe)) - (_E145884145897_))))) + (_E146146146159_))))) (let () (declare (not safe)) - (_E145884145897_))))))) - (_start-match145633_ - (lambda (_kont145813_) - (let* ((_g145815145831_ - (lambda (_g145816145828_) + (_E146146146159_))))))) + (_start-match145895_ + (lambda (_kont146075_) + (let* ((_g146077146093_ + (lambda (_g146078146090_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g145816145828_)))) - (_g145814145876_ - (lambda (_g145816145834_) + _g146078146090_)))) + (_g146076146138_ + (lambda (_g146078146096_) (if (let () (declare (not safe)) - (gx#stx-pair? _g145816145834_)) - (let ((_e145820145836_ + (gx#stx-pair? _g146078146096_)) + (let ((_e146082146098_ (let () (declare (not safe)) - (gx#stx-e _g145816145834_)))) - (let ((_hd145819145839_ + (gx#stx-e _g146078146096_)))) + (let ((_hd146081146101_ (let () (declare (not safe)) - (##car _e145820145836_))) - (_tl145818145841_ + (##car _e146082146098_))) + (_tl146080146103_ (let () (declare (not safe)) - (##cdr _e145820145836_)))) + (##cdr _e146082146098_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145819145839_)) + (gx#identifier? _hd146081146101_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd145819145839_)) + _hd146081146101_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145818145841_)) - (let ((_e145823145844_ + _tl146080146103_)) + (let ((_e146085146106_ (let () (declare (not safe)) (gx#stx-e - _tl145818145841_)))) - (let ((_hd145822145847_ + _tl146080146103_)))) + (let ((_hd146084146109_ (let () (declare (not safe)) - (##car _e145823145844_))) - (_tl145821145849_ + (##car _e146085146106_))) + (_tl146083146111_ (let () (declare (not safe)) - (##cdr _e145823145844_)))) + (##cdr _e146085146106_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd145822145847_)) + _hd146084146109_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145821145849_)) - (let ((_e145826145852_ + (gx#stx-pair? _tl146083146111_)) + (let ((_e146088146114_ (let () (declare (not safe)) - (gx#stx-e _tl145821145849_)))) - (let ((_hd145825145855_ + (gx#stx-e _tl146083146111_)))) + (let ((_hd146087146117_ (let () (declare (not safe)) - (##car _e145826145852_))) - (_tl145824145857_ + (##car _e146088146114_))) + (_tl146086146119_ (let () (declare (not safe)) - (##cdr _e145826145852_)))) + (##cdr _e146088146114_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145824145857_)) - ((lambda (_L145860_) _L145860_) _hd145825145855_) + (gx#stx-null? _tl146086146119_)) + ((lambda (_L146122_) _L146122_) _hd146087146117_) (let () (declare (not safe)) - (_g145815145831_ _g145816145834_))))) + (_g146077146093_ _g146078146096_))))) (let () (declare (not safe)) - (_g145815145831_ _g145816145834_))) + (_g146077146093_ _g146078146096_))) (let () (declare (not safe)) - (_g145815145831_ _g145816145834_))))) + (_g146077146093_ _g146078146096_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145815145831_ - _g145816145834_))) + (_g146077146093_ + _g146078146096_))) (let () (declare (not safe)) - (_g145815145831_ - _g145816145834_))) + (_g146077146093_ + _g146078146096_))) (let () (declare (not safe)) - (_g145815145831_ - _g145816145834_))))) + (_g146077146093_ + _g146078146096_))))) (let () (declare (not safe)) - (_g145815145831_ _g145816145834_)))))) + (_g146077146093_ _g146078146096_)))))) (declare (not safe)) - (_g145814145876_ _kont145813_)))) - (_match-body145634_ - (lambda (_blocks145710_) - (let* ((_blocks145711145720_ _blocks145710_) - (_E145713145724_ + (_g146076146138_ _kont146075_)))) + (_match-body145896_ + (lambda (_blocks145972_) + (let* ((_blocks145973145982_ _blocks145972_) + (_E145975145986_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _blocks145711145720_)))) - (_K145714145796_ - (lambda (_rest145727_ _start145728_) - (let _lp145730_ ((_rest145732_ _rest145727_) - (_body145733_ + _blocks145973145982_)))) + (_K145976146058_ + (lambda (_rest145989_ _start145990_) + (let _lp145992_ ((_rest145994_ _rest145989_) + (_body145995_ (let () (declare (not safe)) - (_start-match145633_ - _start145728_)))) - (let* ((_rest145734145742_ _rest145732_) - (_else145736145750_ - (lambda () _body145733_)) - (_K145738145784_ - (lambda (_rest145753_ _block145754_) - (let* ((_block145755145762_ - _block145754_) - (_E145757145766_ + (_start-match145895_ + _start145990_)))) + (let* ((_rest145996146004_ _rest145994_) + (_else145998146012_ + (lambda () _body145995_)) + (_K146000146046_ + (lambda (_rest146015_ _block146016_) + (let* ((_block146017146024_ + _block146016_) + (_E146019146028_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block145755145762_)))) - (_K145758145772_ - (lambda (_kont145769_ - _K145770_) - (let ((__tmp150048 - (let ((__tmp150049 + _block146017146024_)))) + (_K146020146034_ + (lambda (_kont146031_ + _K146032_) + (let ((__tmp150310 + (let ((__tmp150311 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150051 - (let ((__tmp150052 - (let ((__tmp150054 + (let ((__tmp150313 + (let ((__tmp150314 + (let ((__tmp150316 (let () (declare (not safe)) - (cons _K145770_ '()))) - (__tmp150053 + (cons _K146032_ '()))) + (__tmp150315 (let () (declare (not safe)) - (cons _kont145769_ '())))) + (cons _kont146031_ '())))) (declare (not safe)) - (cons __tmp150054 __tmp150053)))) + (cons __tmp150316 __tmp150315)))) (declare (not safe)) - (cons __tmp150052 '()))) - (__tmp150050 + (cons __tmp150314 '()))) + (__tmp150312 (let () (declare (not safe)) - (cons _body145733_ '())))) + (cons _body145995_ '())))) (declare (not safe)) - (cons __tmp150051 __tmp150050)))) + (cons __tmp150313 __tmp150312)))) (declare (not safe)) - (cons '%#let-values __tmp150049)))) + (cons '%#let-values __tmp150311)))) (declare (not safe)) - (_lp145730_ _rest145753_ __tmp150048))))) + (_lp145992_ _rest146015_ __tmp150310))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block145755145762_)) - (let ((_hd145759145775_ + (##pair? _block146017146024_)) + (let ((_hd146021146037_ (let () (declare (not safe)) - (##car _block145755145762_))) - (_tl145760145777_ + (##car _block146017146024_))) + (_tl146022146039_ (let () (declare (not safe)) - (##cdr _block145755145762_)))) - (let* ((_K145780_ - _hd145759145775_) - (_kont145782_ - _tl145760145777_)) + (##cdr _block146017146024_)))) + (let* ((_K146042_ + _hd146021146037_) + (_kont146044_ + _tl146022146039_)) (declare (not safe)) - (_K145758145772_ - _kont145782_ - _K145780_))) + (_K146020146034_ + _kont146044_ + _K146042_))) (let () (declare (not safe)) - (_E145757145766_))))))) + (_E146019146028_))))))) (if (let () (declare (not safe)) - (##pair? _rest145734145742_)) - (let ((_hd145739145787_ + (##pair? _rest145996146004_)) + (let ((_hd146001146049_ (let () (declare (not safe)) - (##car _rest145734145742_))) - (_tl145740145789_ + (##car _rest145996146004_))) + (_tl146002146051_ (let () (declare (not safe)) - (##cdr _rest145734145742_)))) - (let* ((_block145792_ _hd145739145787_) - (_rest145794_ _tl145740145789_)) + (##cdr _rest145996146004_)))) + (let* ((_block146054_ _hd146001146049_) + (_rest146056_ _tl146002146051_)) (declare (not safe)) - (_K145738145784_ - _rest145794_ - _block145792_))) + (_K146000146046_ + _rest146056_ + _block146054_))) (let () (declare (not safe)) - (_else145736145750_)))))))) + (_else145998146012_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks145711145720_)) - (let ((_hd145715145799_ + (##pair? _blocks145973145982_)) + (let ((_hd145977146061_ (let () (declare (not safe)) - (##car _blocks145711145720_))) - (_tl145716145801_ + (##car _blocks145973145982_))) + (_tl145978146063_ (let () (declare (not safe)) - (##cdr _blocks145711145720_)))) + (##cdr _blocks145973145982_)))) (if (let () (declare (not safe)) - (##pair? _hd145715145799_)) - (let ((_hd145717145804_ + (##pair? _hd145977146061_)) + (let ((_hd145979146066_ (let () (declare (not safe)) - (##car _hd145715145799_))) - (_tl145718145806_ + (##car _hd145977146061_))) + (_tl145980146068_ (let () (declare (not safe)) - (##cdr _hd145715145799_)))) + (##cdr _hd145977146061_)))) (if (let () (declare (not safe)) - (##eq? _hd145717145804_ '#f)) - (let* ((_start145809_ _tl145718145806_) - (_rest145811_ _tl145716145801_)) + (##eq? _hd145979146066_ '#f)) + (let* ((_start146071_ _tl145980146068_) + (_rest146073_ _tl145978146063_)) (declare (not safe)) - (_K145714145796_ - _rest145811_ - _start145809_)) + (_K145976146058_ + _rest146073_ + _start146071_)) (let () (declare (not safe)) - (_E145713145724_)))) + (_E145975145986_)))) (let () (declare (not safe)) - (_E145713145724_)))) - (let () (declare (not safe)) (_E145713145724_))))))) - (let ((__tmp150056 + (_E145975145986_)))) + (let () (declare (not safe)) (_E145975145986_))))))) + (let ((__tmp150318 (lambda () - (let* ((_clauses145637_ - (map _push-variables145632_ - _clauses145629_ - _konts145630_)) - (_blocks145639_ + (let* ((_clauses145899_ + (map _push-variables145894_ + _clauses145891_ + _konts145892_)) + (_blocks145901_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses145637_))) - (_blocks145641_ + _clauses145899_))) + (_blocks145903_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks145639_))) - (_body145643_ + _blocks145901_))) + (_body145905_ (let () (declare (not safe)) - (_match-body145634_ _blocks145641_))) - (_bind145677_ - (map (lambda (_e145644145646_) - (let* ((_g145648145655_ _e145644145646_) - (_E145650145659_ + (_match-body145896_ _blocks145903_))) + (_bind145939_ + (map (lambda (_e145906145908_) + (let* ((_g145910145917_ _e145906145908_) + (_E145912145921_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g145648145655_)))) - (_K145651145665_ - (lambda (_kont145662_ _K145663_) - (let ((__tmp150058 + _g145910145917_)))) + (_K145913145927_ + (lambda (_kont145924_ _K145925_) + (let ((__tmp150320 (let () (declare (not safe)) - (cons _K145663_ '()))) - (__tmp150057 + (cons _K145925_ '()))) + (__tmp150319 (let () (declare (not safe)) - (cons _kont145662_ '())))) + (cons _kont145924_ '())))) (declare (not safe)) - (cons __tmp150058 - __tmp150057))))) + (cons __tmp150320 + __tmp150319))))) (if (let () (declare (not safe)) - (##pair? _g145648145655_)) - (let ((_hd145652145668_ + (##pair? _g145910145917_)) + (let ((_hd145914145930_ (let () (declare (not safe)) - (##car _g145648145655_))) - (_tl145653145670_ + (##car _g145910145917_))) + (_tl145915145932_ (let () (declare (not safe)) - (##cdr _g145648145655_)))) - (let* ((_K145673_ _hd145652145668_) - (_kont145675_ - _tl145653145670_)) + (##cdr _g145910145917_)))) + (let* ((_K145935_ _hd145914145930_) + (_kont145937_ + _tl145915145932_)) (declare (not safe)) - (_K145651145665_ - _kont145675_ - _K145673_))) + (_K145913145927_ + _kont145937_ + _K145935_))) (let () (declare (not safe)) - (_E145650145659_))))) - _konts145630_)) - (_negate145707_ - (let* ((_negation145678145685_ _negation145628_) - (_E145680145689_ + (_E145912145921_))))) + _konts145892_)) + (_negate145969_ + (let* ((_negation145940145947_ _negation145890_) + (_E145942145951_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation145678145685_)))) - (_K145681145695_ - (lambda (_kont145692_ _K145693_) - (let ((__tmp150060 + _negation145940145947_)))) + (_K145943145957_ + (lambda (_kont145954_ _K145955_) + (let ((__tmp150322 (let () (declare (not safe)) - (cons _K145693_ '()))) - (__tmp150059 + (cons _K145955_ '()))) + (__tmp150321 (let () (declare (not safe)) - (cons _kont145692_ '())))) + (cons _kont145954_ '())))) (declare (not safe)) - (cons __tmp150060 __tmp150059))))) + (cons __tmp150322 __tmp150321))))) (if (let () (declare (not safe)) - (##pair? _negation145678145685_)) - (let ((_hd145682145698_ + (##pair? _negation145940145947_)) + (let ((_hd145944145960_ (let () (declare (not safe)) - (##car _negation145678145685_))) - (_tl145683145700_ + (##car _negation145940145947_))) + (_tl145945145962_ (let () (declare (not safe)) - (##cdr _negation145678145685_)))) - (let* ((_K145703_ _hd145682145698_) - (_kont145705_ _tl145683145700_)) + (##cdr _negation145940145947_)))) + (let* ((_K145965_ _hd145944145960_) + (_kont145967_ _tl145945145962_)) (declare (not safe)) - (_K145681145695_ _kont145705_ _K145703_))) + (_K145943145957_ _kont145967_ _K145965_))) (let () (declare (not safe)) - (_E145680145689_)))))) - (let ((__tmp150061 - (let ((__tmp150062 - (let ((__tmp150067 + (_E145942145951_)))))) + (let ((__tmp150323 + (let ((__tmp150324 + (let ((__tmp150329 (let () (declare (not safe)) - (cons _negate145707_ '()))) - (__tmp150063 - (let ((__tmp150064 - (let ((__tmp150065 - (let ((__tmp150066 + (cons _negate145969_ '()))) + (__tmp150325 + (let ((__tmp150326 + (let ((__tmp150327 + (let ((__tmp150328 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body145643_ '())))) + (cons _body145905_ '())))) (declare (not safe)) - (cons _bind145677_ __tmp150066)))) + (cons _bind145939_ __tmp150328)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150065)))) + __tmp150327)))) (declare (not safe)) - (cons __tmp150064 '())))) + (cons __tmp150326 '())))) (declare (not safe)) - (cons __tmp150067 __tmp150063)))) + (cons __tmp150329 __tmp150325)))) (declare (not safe)) - (cons '%#let-values __tmp150062)))) + (cons '%#let-values __tmp150324)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150061 _stx145627_))))) - (__tmp150055 - (let ((__obj149989 + (gxc#xform-wrap-source __tmp150323 _stx145889_))))) + (__tmp150317 + (let ((__obj150251 (let () (declare (not safe)) (##structure @@ -2194,2112 +2194,2112 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj149989) - __obj149989))) + (gx#local-context:::init! __obj150251) + __obj150251))) (declare (not safe)) (call-with-parameters - __tmp150056 + __tmp150318 gx#current-expander-context - __tmp150055))))) + __tmp150317))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses145587_) - (let _lp145589_ ((_rest145591_ _clauses145587_) (_blocks145592_ '())) - (let* ((_rest145593145601_ _rest145591_) - (_else145595145609_ (lambda () (reverse _blocks145592_))) - (_K145597145615_ - (lambda (_rest145612_ _clause145613_) - (let ((__tmp150068 + (lambda (_clauses145849_) + (let _lp145851_ ((_rest145853_ _clauses145849_) (_blocks145854_ '())) + (let* ((_rest145855145863_ _rest145853_) + (_else145857145871_ (lambda () (reverse _blocks145854_))) + (_K145859145877_ + (lambda (_rest145874_ _clause145875_) + (let ((__tmp150330 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause145613_ - _blocks145592_)))) + _clause145875_ + _blocks145854_)))) (declare (not safe)) - (_lp145589_ _rest145612_ __tmp150068))))) - (if (let () (declare (not safe)) (##pair? _rest145593145601_)) - (let ((_hd145598145618_ + (_lp145851_ _rest145874_ __tmp150330))))) + (if (let () (declare (not safe)) (##pair? _rest145855145863_)) + (let ((_hd145860145880_ (let () (declare (not safe)) - (##car _rest145593145601_))) - (_tl145599145620_ + (##car _rest145855145863_))) + (_tl145861145882_ (let () (declare (not safe)) - (##cdr _rest145593145601_)))) - (let* ((_clause145623_ _hd145598145618_) - (_rest145625_ _tl145599145620_)) + (##cdr _rest145855145863_)))) + (let* ((_clause145885_ _hd145860145880_) + (_rest145887_ _tl145861145882_)) (declare (not safe)) - (_K145597145615_ _rest145625_ _clause145623_))) - (let () (declare (not safe)) (_else145595145609_))))))) + (_K145859145877_ _rest145887_ _clause145885_))) + (let () (declare (not safe)) (_else145857145871_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause144931_ _blocks144932_) - (letrec ((_bind->args144934_ - (lambda (_bind145582_) - (let ((__tmp150069 - (lambda (_b145584_ _r145585_) - (let ((__tmp150070 - (let ((__tmp150071 - (let ((__tmp150072 (car _b145584_))) + (lambda (_clause145193_ _blocks145194_) + (letrec ((_bind->args145196_ + (lambda (_bind145844_) + (let ((__tmp150331 + (lambda (_b145846_ _r145847_) + (let ((__tmp150332 + (let ((__tmp150333 + (let ((__tmp150334 (car _b145846_))) (declare (not safe)) - (cons __tmp150072 '())))) + (cons __tmp150334 '())))) (declare (not safe)) - (cons '%#ref __tmp150071)))) + (cons '%#ref __tmp150333)))) (declare (not safe)) - (cons __tmp150070 _r145585_))))) + (cons __tmp150332 _r145847_))))) (declare (not safe)) - (foldl1 __tmp150069 '() _bind145582_)))) - (_create-block144935_ - (lambda (_body145531_ - _let-bind145532_ - _bind145533_ - _assert145534_) - (let* ((_id145536_ - (let ((__tmp150073 (gensym '__match))) + (foldl1 __tmp150331 '() _bind145844_)))) + (_create-block145197_ + (lambda (_body145793_ + _let-bind145794_ + _bind145795_ + _assert145796_) + (let* ((_id145798_ + (let ((__tmp150335 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp150073))) - (_id145538_ + (make-symbol__0 __tmp150335))) + (_id145800_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id145536_))) - (_g150074_ + (gx#core-quote-syntax__0 _id145798_))) + (_g150336_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id145538_))) - (_block145541_ - (let ((__tmp150075 - (let ((__tmp150076 - (let ((__tmp150077 + (gx#core-bind-runtime!__0 _id145800_))) + (_block145803_ + (let ((__tmp150337 + (let ((__tmp150338 + (let ((__tmp150339 (let () (declare (not safe)) - (cons _assert145534_ '())))) + (cons _assert145796_ '())))) (declare (not safe)) - (cons _bind145533_ __tmp150077)))) + (cons _bind145795_ __tmp150339)))) (declare (not safe)) - (cons _body145531_ __tmp150076)))) + (cons _body145793_ __tmp150338)))) (declare (not safe)) - (cons _id145538_ __tmp150075))) - (_continue145543_ - (let ((__tmp150078 - (let ((__tmp150080 - (let ((__tmp150081 + (cons _id145800_ __tmp150337))) + (_continue145805_ + (let ((__tmp150340 + (let ((__tmp150342 + (let ((__tmp150343 (let () (declare (not safe)) - (cons _id145538_ '())))) + (cons _id145800_ '())))) (declare (not safe)) - (cons '%#ref __tmp150081))) - (__tmp150079 + (cons '%#ref __tmp150343))) + (__tmp150341 (let () (declare (not safe)) - (_bind->args144934_ - _bind145533_)))) + (_bind->args145196_ + _bind145795_)))) (declare (not safe)) - (cons __tmp150080 __tmp150079)))) + (cons __tmp150342 __tmp150341)))) (declare (not safe)) - (cons '%#call __tmp150078))) - (_continue145579_ + (cons '%#call __tmp150340))) + (_continue145841_ (if (let () (declare (not safe)) - (null? _let-bind145532_)) - _continue145543_ - (let* ((_locals145577_ - (map (lambda (_e145544145546_) - (let* ((_g145548145555_ - _e145544145546_) - (_E145550145559_ + (null? _let-bind145794_)) + _continue145805_ + (let* ((_locals145839_ + (map (lambda (_e145806145808_) + (let* ((_g145810145817_ + _e145806145808_) + (_E145812145821_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g145548145555_)))) - (_K145551145565_ - (lambda (_expr145562_ _id145563_) - (let ((__tmp150083 - (let () (declare (not safe)) (cons _id145563_ '()))) - (__tmp150082 - (let () (declare (not safe)) (cons _expr145562_ '())))) + _g145810145817_)))) + (_K145813145827_ + (lambda (_expr145824_ _id145825_) + (let ((__tmp150345 + (let () (declare (not safe)) (cons _id145825_ '()))) + (__tmp150344 + (let () (declare (not safe)) (cons _expr145824_ '())))) (declare (not safe)) - (cons __tmp150083 __tmp150082))))) + (cons __tmp150345 __tmp150344))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g145548145555_)) - (let ((_hd145552145568_ + (##pair? _g145810145817_)) + (let ((_hd145814145830_ (let () (declare (not safe)) - (##car _g145548145555_))) - (_tl145553145570_ + (##car _g145810145817_))) + (_tl145815145832_ (let () (declare (not safe)) - (##cdr _g145548145555_)))) - (let* ((_id145573_ - _hd145552145568_) - (_expr145575_ - _tl145553145570_)) + (##cdr _g145810145817_)))) + (let* ((_id145835_ + _hd145814145830_) + (_expr145837_ + _tl145815145832_)) (declare (not safe)) - (_K145551145565_ - _expr145575_ - _id145573_))) + (_K145813145827_ + _expr145837_ + _id145835_))) (let () (declare (not safe)) - (_E145550145559_))))) - _let-bind145532_)) - (__tmp150084 - (let ((__tmp150085 + (_E145812145821_))))) + _let-bind145794_)) + (__tmp150346 + (let ((__tmp150347 (let () (declare (not safe)) - (cons _continue145543_ '())))) + (cons _continue145805_ '())))) (declare (not safe)) - (cons _locals145577_ __tmp150085)))) + (cons _locals145839_ __tmp150347)))) (declare (not safe)) - (cons '%#let-values __tmp150084))))) - (values _continue145579_ _block145541_)))) - (_basic-block144936_ - (lambda (_body145117_ _bind145118_ _assert145119_) - (let* ((___stx147232147233_ _body145117_) - (_g145124145208_ + (cons '%#let-values __tmp150346))))) + (values _continue145841_ _block145803_)))) + (_basic-block145198_ + (lambda (_body145379_ _bind145380_ _assert145381_) + (let* ((___stx147494147495_ _body145379_) + (_g145386145470_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147232147233_))))) - (let ((___kont147234147235_ - (lambda (_L145467_ _L145468_ _L145469_) - (let ((_g150086_ - (let ((__tmp150088 - (let ((__tmp150089 + ___stx147494147495_))))) + (let ((___kont147496147497_ + (lambda (_L145729_ _L145730_ _L145731_) + (let ((_g150348_ + (let ((__tmp150350 + (let ((__tmp150351 (let () (declare (not safe)) - (cons _L145469_ '#t)))) + (cons _L145731_ '#t)))) (declare (not safe)) - (cons __tmp150089 - _assert145119_)))) + (cons __tmp150351 + _assert145381_)))) (declare (not safe)) - (_create-block144935_ - _L145468_ + (_create-block145197_ + _L145730_ '() - _bind145118_ - __tmp150088)))) + _bind145380_ + __tmp150350)))) (begin - (let ((_g150087_ + (let ((_g150349_ (let () (declare (not safe)) - (if (##values? _g150086_) - (##vector-length _g150086_) + (if (##values? _g150348_) + (##vector-length _g150348_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150087_ 2))) + (##fx= _g150349_ 2))) (error "Context expects 2 values" - _g150087_))) - (let ((_k-continue145487_ + _g150349_))) + (let ((_k-continue145749_ (let () (declare (not safe)) - (##vector-ref _g150086_ 0))) - (_k-block145488_ + (##vector-ref _g150348_ 0))) + (_k-block145750_ (let () (declare (not safe)) - (##vector-ref _g150086_ 1)))) - (let* ((___stx147214147215_ _L145467_) - (_g145491145500_ + (##vector-ref _g150348_ 1)))) + (let* ((___stx147476147477_ _L145729_) + (_g145753145762_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147214147215_))))) - (let ((___kont147216147217_ + ___stx147476147477_))))) + (let ((___kont147478147479_ (lambda () - (values (let ((__tmp150090 - (let ((__tmp150091 + (values (let ((__tmp150352 + (let ((__tmp150353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150092 + (let ((__tmp150354 (let () (declare (not safe)) - (cons _L145467_ '())))) + (cons _L145729_ '())))) (declare (not safe)) - (cons _k-continue145487_ __tmp150092)))) + (cons _k-continue145749_ __tmp150354)))) (declare (not safe)) - (cons _L145469_ __tmp150091)))) + (cons _L145731_ __tmp150353)))) (declare (not safe)) - (cons '%#if __tmp150090)) - (let () (declare (not safe)) (cons _k-block145488_ '()))))) + (cons '%#if __tmp150352)) + (let () (declare (not safe)) (cons _k-block145750_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147218147219_ + (___kont147480147481_ (lambda () - (let ((_g150093_ - (let ((__tmp150095 - (let ((__tmp150096 + (let ((_g150355_ + (let ((__tmp150357 + (let ((__tmp150358 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L145469_ '#f)))) + (cons _L145731_ '#f)))) (declare (not safe)) - (cons __tmp150096 _assert145119_)))) + (cons __tmp150358 _assert145381_)))) (declare (not safe)) - (_create-block144935_ - _L145467_ + (_create-block145197_ + _L145729_ '() - _bind145118_ - __tmp150095)))) + _bind145380_ + __tmp150357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g150094_ + (let ((_g150356_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g150093_) - (##vector-length _g150093_) + _g150355_) + (##vector-length _g150355_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g150094_ 2))) - (error "Context expects 2 values" _g150094_))) + (if (not (let () (declare (not safe)) (##fx= _g150356_ 2))) + (error "Context expects 2 values" _g150356_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue145507_ + (let ((_e-continue145769_ (let () (declare (not safe)) (##vector-ref - _g150093_ + _g150355_ 0))) - (_e-block145508_ + (_e-block145770_ (let () (declare (not safe)) (##vector-ref - _g150093_ + _g150355_ 1)))) - (values (let ((__tmp150097 + (values (let ((__tmp150359 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150098 - (let ((__tmp150099 + (let ((__tmp150360 + (let ((__tmp150361 (let () (declare (not safe)) - (cons _e-continue145507_ '())))) + (cons _e-continue145769_ '())))) (declare (not safe)) - (cons _k-continue145487_ __tmp150099)))) + (cons _k-continue145749_ __tmp150361)))) (declare (not safe)) - (cons _L145469_ __tmp150098)))) + (cons _L145731_ __tmp150360)))) (declare (not safe)) - (cons '%#if __tmp150097)) - (let ((__tmp150100 + (cons '%#if __tmp150359)) + (let ((__tmp150362 (let () (declare (not safe)) - (cons _e-block145508_ '())))) + (cons _e-block145770_ '())))) (declare (not safe)) - (cons _k-block145488_ __tmp150100))))))))) + (cons _k-block145750_ __tmp150362))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147214147215_)) - (let ((_e145495145515_ + ___stx147476147477_)) + (let ((_e145757145777_ (let () (declare (not safe)) (gx#stx-e - ___stx147214147215_)))) - (let ((_tl145493145520_ + ___stx147476147477_)))) + (let ((_tl145755145782_ (let () (declare (not safe)) - (##cdr _e145495145515_))) - (_hd145494145518_ + (##cdr _e145757145777_))) + (_hd145756145780_ (let () (declare (not safe)) - (##car _e145495145515_)))) + (##car _e145757145777_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145494145518_)) + _hd145756145780_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd145494145518_)) - (___kont147216147217_) - (___kont147218147219_)) - (___kont147218147219_)))) - (___kont147218147219_))))))))) - (___kont147236147237_ - (lambda () (values _body145117_ '()))) - (___kont147240147241_ - (lambda (_L145296_ _L145297_ _L145298_) - (let* ((_let-bind145333_ + _hd145756145780_)) + (___kont147478147479_) + (___kont147480147481_)) + (___kont147480147481_)))) + (___kont147480147481_))))))))) + (___kont147498147499_ + (lambda () (values _body145379_ '()))) + (___kont147502147503_ + (lambda (_L145558_ _L145559_ _L145560_) + (let* ((_let-bind145595_ (map cons - (let ((__tmp150101 - (lambda (_g145318145321_ - _g145319145323_) + (let ((__tmp150363 + (lambda (_g145580145583_ + _g145581145585_) (let () (declare (not safe)) - (cons _g145318145321_ - _g145319145323_))))) + (cons _g145580145583_ + _g145581145585_))))) (declare (not safe)) - (foldr1 __tmp150101 + (foldr1 __tmp150363 '() - _L145298_)) - (let ((__tmp150102 - (lambda (_g145325145328_ - _g145326145330_) + _L145560_)) + (let ((__tmp150364 + (lambda (_g145587145590_ + _g145588145592_) (let () (declare (not safe)) - (cons _g145325145328_ - _g145326145330_))))) + (cons _g145587145590_ + _g145588145592_))))) (declare (not safe)) - (foldr1 __tmp150102 + (foldr1 __tmp150364 '() - _L145297_)))) - (_g150103_ - (let ((__tmp150105 + _L145559_)))) + (_g150365_ + (let ((__tmp150367 (let () (declare (not safe)) (foldl1 cons - _bind145118_ - _let-bind145333_)))) + _bind145380_ + _let-bind145595_)))) (declare (not safe)) - (_create-block144935_ - _L145296_ - _let-bind145333_ - __tmp150105 - _assert145119_)))) + (_create-block145197_ + _L145558_ + _let-bind145595_ + __tmp150367 + _assert145381_)))) (begin - (let ((_g150104_ + (let ((_g150366_ (let () (declare (not safe)) - (if (##values? _g150103_) - (##vector-length _g150103_) + (if (##values? _g150365_) + (##vector-length _g150365_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150104_ 2))) + (##fx= _g150366_ 2))) (error "Context expects 2 values" - _g150104_))) - (let ((_continue145335_ + _g150366_))) + (let ((_continue145597_ (let () (declare (not safe)) - (##vector-ref _g150103_ 0))) - (_block145336_ + (##vector-ref _g150365_ 0))) + (_block145598_ (let () (declare (not safe)) - (##vector-ref _g150103_ 1)))) + (##vector-ref _g150365_ 1)))) (let () - (values _continue145335_ + (values _continue145597_ (let () (declare (not safe)) - (cons _block145336_ + (cons _block145598_ '()))))))))) - (___kont147244147245_ - (lambda () (values _body145117_ '())))) - (let* ((___match147323147324_ - (lambda (_e145177145220_ - _hd145176145223_ - _tl145175145225_ - _e145180145228_ - _hd145179145231_ - _tl145178145233_ - ___splice147242147243_ - _target145181145236_ - _tl145183145238_) - (letrec ((_loop145184145241_ - (lambda (_hd145182145244_ - _expr145188145246_ - _id145189145248_) + (___kont147506147507_ + (lambda () (values _body145379_ '())))) + (let* ((___match147585147586_ + (lambda (_e145439145482_ + _hd145438145485_ + _tl145437145487_ + _e145442145490_ + _hd145441145493_ + _tl145440145495_ + ___splice147504147505_ + _target145443145498_ + _tl145445145500_) + (letrec ((_loop145446145503_ + (lambda (_hd145444145506_ + _expr145450145508_ + _id145451145510_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145182145244_)) - (let ((_e145185145251_ + _hd145444145506_)) + (let ((_e145447145513_ (let () (declare (not safe)) (gx#stx-e - _hd145182145244_)))) - (let ((_lp-tl145187145256_ + _hd145444145506_)))) + (let ((_lp-tl145449145518_ (let () (declare (not safe)) - (##cdr _e145185145251_))) - (_lp-hd145186145254_ + (##cdr _e145447145513_))) + (_lp-hd145448145516_ (let () (declare (not safe)) - (##car _e145185145251_)))) + (##car _e145447145513_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd145186145254_)) - (let ((_e145194145259_ + _lp-hd145448145516_)) + (let ((_e145456145521_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd145186145254_)))) - (let ((_tl145192145264_ + (gx#stx-e _lp-hd145448145516_)))) + (let ((_tl145454145526_ (let () (declare (not safe)) - (##cdr _e145194145259_))) - (_hd145193145262_ + (##cdr _e145456145521_))) + (_hd145455145524_ (let () (declare (not safe)) - (##car _e145194145259_)))) + (##car _e145456145521_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145193145262_)) - (let ((_e145197145267_ + (gx#stx-pair? _hd145455145524_)) + (let ((_e145459145529_ (let () (declare (not safe)) - (gx#stx-e _hd145193145262_)))) - (let ((_tl145195145272_ + (gx#stx-e _hd145455145524_)))) + (let ((_tl145457145534_ (let () (declare (not safe)) - (##cdr _e145197145267_))) - (_hd145196145270_ + (##cdr _e145459145529_))) + (_hd145458145532_ (let () (declare (not safe)) - (##car _e145197145267_)))) + (##car _e145459145529_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145195145272_)) + (gx#stx-null? _tl145457145534_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145192145264_)) - (let ((_e145200145275_ + (gx#stx-pair? _tl145454145526_)) + (let ((_e145462145537_ (let () (declare (not safe)) - (gx#stx-e _tl145192145264_)))) - (let ((_tl145198145280_ + (gx#stx-e _tl145454145526_)))) + (let ((_tl145460145542_ (let () (declare (not safe)) - (##cdr _e145200145275_))) - (_hd145199145278_ + (##cdr _e145462145537_))) + (_hd145461145540_ (let () (declare (not safe)) - (##car _e145200145275_)))) + (##car _e145462145537_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145198145280_)) - (let ((__tmp150107 + _tl145460145542_)) + (let ((__tmp150369 (let () (declare (not safe)) - (cons _hd145199145278_ - _expr145188145246_))) - (__tmp150106 + (cons _hd145461145540_ + _expr145450145508_))) + (__tmp150368 (let () (declare (not safe)) - (cons _hd145196145270_ - _id145189145248_)))) + (cons _hd145458145532_ + _id145451145510_)))) (declare (not safe)) - (_loop145184145241_ - _lp-tl145187145256_ - __tmp150107 - __tmp150106)) - (___kont147244147245_)))) - (___kont147244147245_)) - (___kont147244147245_)))) - (___kont147244147245_)))) - (___kont147244147245_)))) + (_loop145446145503_ + _lp-tl145449145518_ + __tmp150369 + __tmp150368)) + (___kont147506147507_)))) + (___kont147506147507_)) + (___kont147506147507_)))) + (___kont147506147507_)))) + (___kont147506147507_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id145191145285_ - (reverse _id145189145248_)) - (_expr145190145283_ - (reverse _expr145188145246_))) + (let ((_id145453145547_ + (reverse _id145451145510_)) + (_expr145452145545_ + (reverse _expr145450145508_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145178145233_)) - (let ((_e145203145288_ + _tl145440145495_)) + (let ((_e145465145550_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145178145233_)))) - (let ((_tl145201145293_ - (let () (declare (not safe)) (##cdr _e145203145288_))) - (_hd145202145291_ + (gx#stx-e _tl145440145495_)))) + (let ((_tl145463145555_ + (let () (declare (not safe)) (##cdr _e145465145550_))) + (_hd145464145553_ (let () (declare (not safe)) - (##car _e145203145288_)))) + (##car _e145465145550_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145201145293_)) - (___kont147240147241_ - _hd145202145291_ - _expr145190145283_ - _id145191145285_) - (___kont147244147245_)))) - (___kont147244147245_))))))) + (gx#stx-null? _tl145463145555_)) + (___kont147502147503_ + _hd145464145553_ + _expr145452145545_ + _id145453145547_) + (___kont147506147507_)))) + (___kont147506147507_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop145184145241_ - _target145181145236_ + (_loop145446145503_ + _target145443145498_ '() '()))))) - (___match147299147300_ - (lambda (_e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_) - (letrec ((_loop145150145365_ - (lambda (_hd145148145368_) + (___match147561147562_ + (lambda (_e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_) + (letrec ((_loop145412145627_ + (lambda (_hd145410145630_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145148145368_)) - (let ((_e145151145371_ + _hd145410145630_)) + (let ((_e145413145633_ (let () (declare (not safe)) (gx#stx-e - _hd145148145368_)))) - (let ((_lp-tl145153145376_ + _hd145410145630_)))) + (let ((_lp-tl145415145638_ (let () (declare (not safe)) - (##cdr _e145151145371_))) - (_lp-hd145152145374_ + (##cdr _e145413145633_))) + (_lp-hd145414145636_ (let () (declare (not safe)) - (##car _e145151145371_)))) + (##car _e145413145633_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd145152145374_)) - (let ((_e145156145379_ + _lp-hd145414145636_)) + (let ((_e145418145641_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd145152145374_)))) - (let ((_tl145154145384_ + (gx#stx-e _lp-hd145414145636_)))) + (let ((_tl145416145646_ (let () (declare (not safe)) - (##cdr _e145156145379_))) - (_hd145155145382_ + (##cdr _e145418145641_))) + (_hd145417145644_ (let () (declare (not safe)) - (##car _e145156145379_)))) + (##car _e145418145641_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145155145382_)) - (let ((_e145159145387_ + (gx#stx-pair? _hd145417145644_)) + (let ((_e145421145649_ (let () (declare (not safe)) - (gx#stx-e _hd145155145382_)))) - (let ((_tl145157145392_ + (gx#stx-e _hd145417145644_)))) + (let ((_tl145419145654_ (let () (declare (not safe)) - (##cdr _e145159145387_))) - (_hd145158145390_ + (##cdr _e145421145649_))) + (_hd145420145652_ (let () (declare (not safe)) - (##car _e145159145387_)))) + (##car _e145421145649_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145157145392_)) + (gx#stx-null? _tl145419145654_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145154145384_)) - (let ((_e145162145395_ + (gx#stx-pair? _tl145416145646_)) + (let ((_e145424145657_ (let () (declare (not safe)) - (gx#stx-e _tl145154145384_)))) - (let ((_tl145160145400_ + (gx#stx-e _tl145416145646_)))) + (let ((_tl145422145662_ (let () (declare (not safe)) - (##cdr _e145162145395_))) - (_hd145161145398_ + (##cdr _e145424145657_))) + (_hd145423145660_ (let () (declare (not safe)) - (##car _e145162145395_)))) + (##car _e145424145657_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145161145398_)) - (let ((_e145165145403_ + _hd145423145660_)) + (let ((_e145427145665_ (let () (declare (not safe)) (gx#stx-e - _hd145161145398_)))) - (let ((_tl145163145408_ + _hd145423145660_)))) + (let ((_tl145425145670_ (let () (declare (not safe)) - (##cdr _e145165145403_))) - (_hd145164145406_ + (##cdr _e145427145665_))) + (_hd145426145668_ (let () (declare (not safe)) - (##car _e145165145403_)))) + (##car _e145427145665_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145164145406_)) + _hd145426145668_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd145164145406_)) + _hd145426145668_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145163145408_)) - (let ((_e145168145411_ + (gx#stx-pair? _tl145425145670_)) + (let ((_e145430145673_ (let () (declare (not safe)) - (gx#stx-e _tl145163145408_)))) - (let ((_tl145166145416_ + (gx#stx-e _tl145425145670_)))) + (let ((_tl145428145678_ (let () (declare (not safe)) - (##cdr _e145168145411_))) - (_hd145167145414_ + (##cdr _e145430145673_))) + (_hd145429145676_ (let () (declare (not safe)) - (##car _e145168145411_)))) + (##car _e145430145673_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145166145416_)) + (gx#stx-null? _tl145428145678_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145160145400_)) + (gx#stx-null? _tl145422145662_)) (let () (declare (not safe)) - (_loop145150145365_ _lp-tl145153145376_)) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)))) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)))) + (_loop145412145627_ _lp-tl145415145638_)) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)))) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)))) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)))) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)))) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)))) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)))) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)))) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)))) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl145144145357_)) - (let ((_e145171145420_ + _tl145406145619_)) + (let ((_e145433145682_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145144145357_)))) - (let ((_tl145169145425_ - (let () (declare (not safe)) (##cdr _e145171145420_))) - (_hd145170145423_ + (gx#stx-e _tl145406145619_)))) + (let ((_tl145431145687_ + (let () (declare (not safe)) (##cdr _e145433145682_))) + (_hd145432145685_ (let () (declare (not safe)) - (##car _e145171145420_)))) + (##car _e145433145682_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145169145425_)) - (___kont147236147237_) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_)))) - (___match147323147324_ - _e145143145344_ - _hd145142145347_ - _tl145141145349_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_))))))) + (gx#stx-null? _tl145431145687_)) + (___kont147498147499_) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_)))) + (___match147585147586_ + _e145405145606_ + _hd145404145609_ + _tl145403145611_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop145150145365_ - _target145147145360_)))))) + (_loop145412145627_ + _target145409145622_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147232147233_)) - (let ((_e145131145435_ + (gx#stx-pair? ___stx147494147495_)) + (let ((_e145393145697_ (let () (declare (not safe)) - (gx#stx-e ___stx147232147233_)))) - (let ((_tl145129145440_ + (gx#stx-e ___stx147494147495_)))) + (let ((_tl145391145702_ (let () (declare (not safe)) - (##cdr _e145131145435_))) - (_hd145130145438_ + (##cdr _e145393145697_))) + (_hd145392145700_ (let () (declare (not safe)) - (##car _e145131145435_)))) + (##car _e145393145697_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145130145438_)) + (gx#identifier? _hd145392145700_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd145130145438_)) + _hd145392145700_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145129145440_)) - (let ((_e145134145443_ + _tl145391145702_)) + (let ((_e145396145705_ (let () (declare (not safe)) (gx#stx-e - _tl145129145440_)))) - (let ((_tl145132145448_ + _tl145391145702_)))) + (let ((_tl145394145710_ (let () (declare (not safe)) - (##cdr _e145134145443_))) - (_hd145133145446_ + (##cdr _e145396145705_))) + (_hd145395145708_ (let () (declare (not safe)) - (##car _e145134145443_)))) + (##car _e145396145705_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145132145448_)) - (let ((_e145137145451_ + _tl145394145710_)) + (let ((_e145399145713_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl145132145448_)))) - (let ((_tl145135145456_ - (let () (declare (not safe)) (##cdr _e145137145451_))) - (_hd145136145454_ - (let () (declare (not safe)) (##car _e145137145451_)))) + (gx#stx-e _tl145394145710_)))) + (let ((_tl145397145718_ + (let () (declare (not safe)) (##cdr _e145399145713_))) + (_hd145398145716_ + (let () (declare (not safe)) (##car _e145399145713_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145135145456_)) - (let ((_e145140145459_ + (gx#stx-pair? _tl145397145718_)) + (let ((_e145402145721_ (let () (declare (not safe)) - (gx#stx-e _tl145135145456_)))) - (let ((_tl145138145464_ + (gx#stx-e _tl145397145718_)))) + (let ((_tl145400145726_ (let () (declare (not safe)) - (##cdr _e145140145459_))) - (_hd145139145462_ + (##cdr _e145402145721_))) + (_hd145401145724_ (let () (declare (not safe)) - (##car _e145140145459_)))) + (##car _e145402145721_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145138145464_)) - (___kont147234147235_ - _hd145139145462_ - _hd145136145454_ - _hd145133145446_) - (___kont147244147245_)))) - (___kont147244147245_)))) - (___kont147244147245_)))) + (gx#stx-null? _tl145400145726_)) + (___kont147496147497_ + _hd145401145724_ + _hd145398145716_ + _hd145395145708_) + (___kont147506147507_)))) + (___kont147506147507_)))) + (___kont147506147507_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147244147245_)) + (___kont147506147507_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd145130145438_)) + _hd145392145700_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145129145440_)) - (let ((_e145146145352_ + _tl145391145702_)) + (let ((_e145408145614_ (let () (declare (not safe)) (gx#stx-e - _tl145129145440_)))) - (let ((_tl145144145357_ + _tl145391145702_)))) + (let ((_tl145406145619_ (let () (declare (not safe)) - (##cdr _e145146145352_))) - (_hd145145145355_ + (##cdr _e145408145614_))) + (_hd145407145617_ (let () (declare (not safe)) - (##car _e145146145352_)))) + (##car _e145408145614_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd145145145355_)) - (let ((___splice147238147239_ + _hd145407145617_)) + (let ((___splice147500147501_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd145145145355_ '0)))) - (let ((_tl145149145362_ + (gx#syntax-split-splice _hd145407145617_ '0)))) + (let ((_tl145411145624_ (let () (declare (not safe)) - (##vector-ref ___splice147238147239_ '1))) - (_target145147145360_ + (##vector-ref ___splice147500147501_ '1))) + (_target145409145622_ (let () (declare (not safe)) - (##vector-ref ___splice147238147239_ '0)))) + (##vector-ref ___splice147500147501_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145149145362_)) - (___match147299147300_ - _e145131145435_ - _hd145130145438_ - _tl145129145440_ - _e145146145352_ - _hd145145145355_ - _tl145144145357_ - ___splice147238147239_ - _target145147145360_ - _tl145149145362_) - (___kont147244147245_)))) - (___kont147244147245_)))) + (gx#stx-null? _tl145411145624_)) + (___match147561147562_ + _e145393145697_ + _hd145392145700_ + _tl145391145702_ + _e145408145614_ + _hd145407145617_ + _tl145406145619_ + ___splice147500147501_ + _target145409145622_ + _tl145411145624_) + (___kont147506147507_)))) + (___kont147506147507_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147244147245_)) - (___kont147244147245_))) - (___kont147244147245_)))) - (___kont147244147245_))))))) - (_fold-blocks144937_ - (lambda (_rest145036_ _blocks145037_) - (let* ((_rest145038145055_ _rest145036_) - (_E145041145059_ + (___kont147506147507_)) + (___kont147506147507_))) + (___kont147506147507_)))) + (___kont147506147507_))))))) + (_fold-blocks145199_ + (lambda (_rest145298_ _blocks145299_) + (let* ((_rest145300145317_ _rest145298_) + (_E145303145321_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest145038145055_))))) - (let ((_K145043145079_ - (lambda (_rest145070_ - _assert145071_ - _bind145072_ - _body145073_ - _name145074_) - (let ((_g150108_ + _rest145300145317_))))) + (let ((_K145305145341_ + (lambda (_rest145332_ + _assert145333_ + _bind145334_ + _body145335_ + _name145336_) + (let ((_g150370_ (let () (declare (not safe)) - (_basic-block144936_ - _body145073_ - _bind145072_ - _assert145071_)))) + (_basic-block145198_ + _body145335_ + _bind145334_ + _assert145333_)))) (begin - (let ((_g150109_ + (let ((_g150371_ (let () (declare (not safe)) - (if (##values? _g150108_) - (##vector-length _g150108_) + (if (##values? _g150370_) + (##vector-length _g150370_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150109_ 2))) + (##fx= _g150371_ 2))) (error "Context expects 2 values" - _g150109_))) - (let ((_body145076_ + _g150371_))) + (let ((_body145338_ (let () (declare (not safe)) - (##vector-ref _g150108_ 0))) - (_body-blocks145077_ + (##vector-ref _g150370_ 0))) + (_body-blocks145339_ (let () (declare (not safe)) - (##vector-ref _g150108_ 1)))) - (let ((__tmp150120 + (##vector-ref _g150370_ 1)))) + (let ((__tmp150382 (let () (declare (not safe)) (foldl1 cons - _rest145070_ - _body-blocks145077_))) - (__tmp150110 - (let ((__tmp150111 - (let ((__tmp150112 - (let ((__tmp150113 + _rest145332_ + _body-blocks145339_))) + (__tmp150372 + (let ((__tmp150373 + (let ((__tmp150374 + (let ((__tmp150375 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150116 - (let ((__tmp150117 - (let ((__tmp150119 - (reverse (map car _bind145072_))) - (__tmp150118 + (let ((__tmp150378 + (let ((__tmp150379 + (let ((__tmp150381 + (reverse (map car _bind145334_))) + (__tmp150380 (let () (declare (not safe)) - (cons _body145076_ '())))) + (cons _body145338_ '())))) (declare (not safe)) - (cons __tmp150119 __tmp150118)))) + (cons __tmp150381 __tmp150380)))) (declare (not safe)) - (cons '%#lambda __tmp150117))) - (__tmp150114 - (let ((__tmp150115 + (cons '%#lambda __tmp150379))) + (__tmp150376 + (let ((__tmp150377 (let () (declare (not safe)) - (cons _bind145072_ '())))) + (cons _bind145334_ '())))) (declare (not safe)) - (cons _assert145071_ __tmp150115)))) + (cons _assert145333_ __tmp150377)))) (declare (not safe)) - (cons __tmp150116 __tmp150114)))) + (cons __tmp150378 __tmp150376)))) (declare (not safe)) - (cons 'continue: __tmp150113)))) + (cons 'continue: __tmp150375)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name145074_ - __tmp150112)))) + (cons _name145336_ + __tmp150374)))) (declare (not safe)) - (cons __tmp150111 - _blocks145037_)))) + (cons __tmp150373 + _blocks145299_)))) (declare (not safe)) - (_fold-blocks144937_ - __tmp150120 - __tmp150110))))))) - (_K145042145064_ (lambda () _blocks145037_))) - (let ((_try-match145040145067_ + (_fold-blocks145199_ + __tmp150382 + __tmp150372))))))) + (_K145304145326_ (lambda () _blocks145299_))) + (let ((_try-match145302145329_ (lambda () (if (let () (declare (not safe)) - (##null? _rest145038145055_)) + (##null? _rest145300145317_)) (let () (declare (not safe)) - (_K145042145064_)) + (_K145304145326_)) (let () (declare (not safe)) - (_E145041145059_)))))) + (_E145303145321_)))))) (if (let () (declare (not safe)) - (##pair? _rest145038145055_)) - (let ((_tl145045145084_ + (##pair? _rest145300145317_)) + (let ((_tl145307145346_ (let () (declare (not safe)) - (##cdr _rest145038145055_))) - (_hd145044145082_ + (##cdr _rest145300145317_))) + (_hd145306145344_ (let () (declare (not safe)) - (##car _rest145038145055_)))) + (##car _rest145300145317_)))) (if (let () (declare (not safe)) - (##pair? _hd145044145082_)) - (let ((_tl145047145089_ + (##pair? _hd145306145344_)) + (let ((_tl145309145351_ (let () (declare (not safe)) - (##cdr _hd145044145082_))) - (_hd145046145087_ + (##cdr _hd145306145344_))) + (_hd145308145349_ (let () (declare (not safe)) - (##car _hd145044145082_)))) + (##car _hd145306145344_)))) (if (let () (declare (not safe)) - (##pair? _tl145047145089_)) - (let ((_tl145049145096_ + (##pair? _tl145309145351_)) + (let ((_tl145311145358_ (let () (declare (not safe)) - (##cdr _tl145047145089_))) - (_hd145048145094_ + (##cdr _tl145309145351_))) + (_hd145310145356_ (let () (declare (not safe)) - (##car _tl145047145089_)))) + (##car _tl145309145351_)))) (if (let () (declare (not safe)) - (##pair? _tl145049145096_)) - (let ((_tl145051145103_ + (##pair? _tl145311145358_)) + (let ((_tl145313145365_ (let () (declare (not safe)) - (##cdr _tl145049145096_))) - (_hd145050145101_ + (##cdr _tl145311145358_))) + (_hd145312145363_ (let () (declare (not safe)) - (##car _tl145049145096_)))) + (##car _tl145311145358_)))) (if (let () (declare (not safe)) - (##pair? _tl145051145103_)) - (let ((_tl145053145110_ + (##pair? _tl145313145365_)) + (let ((_tl145315145372_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl145051145103_))) - (_hd145052145108_ - (let () (declare (not safe)) (##car _tl145051145103_)))) - (if (let () (declare (not safe)) (##null? _tl145053145110_)) - (let ((_name145092_ _hd145046145087_) - (_body145099_ _hd145048145094_) - (_bind145106_ _hd145050145101_) - (_assert145113_ _hd145052145108_) - (_rest145115_ _tl145045145084_)) + (##cdr _tl145313145365_))) + (_hd145314145370_ + (let () (declare (not safe)) (##car _tl145313145365_)))) + (if (let () (declare (not safe)) (##null? _tl145315145372_)) + (let ((_name145354_ _hd145308145349_) + (_body145361_ _hd145310145356_) + (_bind145368_ _hd145312145363_) + (_assert145375_ _hd145314145370_) + (_rest145377_ _tl145307145346_)) (let () (declare (not safe)) - (_K145043145079_ - _rest145115_ - _assert145113_ - _bind145106_ - _body145099_ - _name145092_))) - (let () (declare (not safe)) (_E145041145059_)))) - (let () (declare (not safe)) (_E145041145059_)))) + (_K145305145341_ + _rest145377_ + _assert145375_ + _bind145368_ + _body145361_ + _name145354_))) + (let () (declare (not safe)) (_E145303145321_)))) + (let () (declare (not safe)) (_E145303145321_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E145041145059_)))) + (_E145303145321_)))) (let () (declare (not safe)) - (_E145041145059_)))) + (_E145303145321_)))) (let () (declare (not safe)) - (_E145041145059_)))) + (_E145303145321_)))) (let () (declare (not safe)) - (_try-match145040145067_))))))))) - (let* ((_clause144938144945_ _clause144931_) - (_E144940144949_ + (_try-match145302145329_))))))))) + (let* ((_clause145200145207_ _clause145193_) + (_E145202145211_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause144938144945_)))) - (_K144941145024_ - (lambda (_body144952_ _name144953_) - (let* ((_g144955144971_ - (lambda (_g144956144968_) + (error '"No clause matching" _clause145200145207_)))) + (_K145203145286_ + (lambda (_body145214_ _name145215_) + (let* ((_g145217145233_ + (lambda (_g145218145230_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144956144968_)))) - (_g144954145021_ - (lambda (_g144956144974_) + _g145218145230_)))) + (_g145216145283_ + (lambda (_g145218145236_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144956144974_)) - (let ((_e144960144976_ + (gx#stx-pair? _g145218145236_)) + (let ((_e145222145238_ (let () (declare (not safe)) - (gx#stx-e _g144956144974_)))) - (let ((_hd144959144979_ + (gx#stx-e _g145218145236_)))) + (let ((_hd145221145241_ (let () (declare (not safe)) - (##car _e144960144976_))) - (_tl144958144981_ + (##car _e145222145238_))) + (_tl145220145243_ (let () (declare (not safe)) - (##cdr _e144960144976_)))) + (##cdr _e145222145238_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144959144979_)) + (gx#identifier? _hd145221145241_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144959144979_)) + _hd145221145241_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144958144981_)) - (let ((_e144963144984_ + _tl145220145243_)) + (let ((_e145225145246_ (let () (declare (not safe)) (gx#stx-e - _tl144958144981_)))) - (let ((_hd144962144987_ + _tl145220145243_)))) + (let ((_hd145224145249_ (let () (declare (not safe)) - (##car _e144963144984_))) - (_tl144961144989_ + (##car _e145225145246_))) + (_tl145223145251_ (let () (declare (not safe)) - (##cdr _e144963144984_)))) + (##cdr _e145225145246_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd144962144987_)) + _hd145224145249_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144961144989_)) - (let ((_e144966144992_ + (gx#stx-pair? _tl145223145251_)) + (let ((_e145228145254_ (let () (declare (not safe)) - (gx#stx-e _tl144961144989_)))) - (let ((_hd144965144995_ + (gx#stx-e _tl145223145251_)))) + (let ((_hd145227145257_ (let () (declare (not safe)) - (##car _e144966144992_))) - (_tl144964144997_ + (##car _e145228145254_))) + (_tl145226145259_ (let () (declare (not safe)) - (##cdr _e144966144992_)))) + (##cdr _e145228145254_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144964144997_)) - ((lambda (_L145000_) - (let ((_g150121_ + (gx#stx-null? _tl145226145259_)) + ((lambda (_L145262_) + (let ((_g150383_ (let () (declare (not safe)) - (_basic-block144936_ - _L145000_ + (_basic-block145198_ + _L145262_ '() '())))) (begin - (let ((_g150122_ + (let ((_g150384_ (let () (declare (not safe)) - (if (##values? _g150121_) - (##vector-length _g150121_) + (if (##values? _g150383_) + (##vector-length _g150383_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150122_ 2))) + (##fx= _g150384_ 2))) (error "Context expects 2 values" - _g150122_))) - (let ((_body145018_ + _g150384_))) + (let ((_body145280_ (let () (declare (not safe)) - (##vector-ref _g150121_ 0))) - (_body-blocks145019_ + (##vector-ref _g150383_ 0))) + (_body-blocks145281_ (let () (declare (not safe)) - (##vector-ref _g150121_ 1)))) - (let ((__tmp150123 - (let ((__tmp150124 - (let ((__tmp150125 - (let ((__tmp150126 + (##vector-ref _g150383_ 1)))) + (let ((__tmp150385 + (let ((__tmp150386 + (let ((__tmp150387 + (let ((__tmp150388 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150128 - (let ((__tmp150129 - (let ((__tmp150130 + (let ((__tmp150390 + (let ((__tmp150391 + (let ((__tmp150392 (let () (declare (not safe)) - (cons _body145018_ '())))) + (cons _body145280_ '())))) (declare (not safe)) - (cons '() __tmp150130)))) + (cons '() __tmp150392)))) (declare (not safe)) - (cons '%#lambda __tmp150129))) - (__tmp150127 + (cons '%#lambda __tmp150391))) + (__tmp150389 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp150128 __tmp150127)))) + (cons __tmp150390 __tmp150389)))) (declare (not safe)) - (cons 'restart: __tmp150126)))) + (cons 'restart: __tmp150388)))) (declare (not safe)) - (cons _name144953_ __tmp150125)))) + (cons _name145215_ __tmp150387)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150124 - _blocks144932_)))) + (cons __tmp150386 + _blocks145194_)))) (declare (not safe)) - (_fold-blocks144937_ - _body-blocks145019_ - __tmp150123)))))) - _hd144965144995_) + (_fold-blocks145199_ + _body-blocks145281_ + __tmp150385)))))) + _hd145227145257_) (let () (declare (not safe)) - (_g144955144971_ _g144956144974_))))) + (_g145217145233_ _g145218145236_))))) (let () (declare (not safe)) - (_g144955144971_ _g144956144974_))) + (_g145217145233_ _g145218145236_))) (let () (declare (not safe)) - (_g144955144971_ _g144956144974_))))) + (_g145217145233_ _g145218145236_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144955144971_ - _g144956144974_))) + (_g145217145233_ + _g145218145236_))) (let () (declare (not safe)) - (_g144955144971_ - _g144956144974_))) + (_g145217145233_ + _g145218145236_))) (let () (declare (not safe)) - (_g144955144971_ - _g144956144974_))))) + (_g145217145233_ + _g145218145236_))))) (let () (declare (not safe)) - (_g144955144971_ _g144956144974_)))))) + (_g145217145233_ _g145218145236_)))))) (declare (not safe)) - (_g144954145021_ _body144952_))))) - (if (let () (declare (not safe)) (##pair? _clause144938144945_)) - (let ((_hd144942145027_ + (_g145216145283_ _body145214_))))) + (if (let () (declare (not safe)) (##pair? _clause145200145207_)) + (let ((_hd145204145289_ (let () (declare (not safe)) - (##car _clause144938144945_))) - (_tl144943145029_ + (##car _clause145200145207_))) + (_tl145205145291_ (let () (declare (not safe)) - (##cdr _clause144938144945_)))) - (let* ((_name145032_ _hd144942145027_) - (_body145034_ _tl144943145029_)) + (##cdr _clause145200145207_)))) + (let* ((_name145294_ _hd145204145289_) + (_body145296_ _tl145205145291_)) (declare (not safe)) - (_K144941145024_ _body145034_ _name145032_))) - (let () (declare (not safe)) (_E144940144949_))))))) + (_K145203145286_ _body145296_ _name145294_))) + (let () (declare (not safe)) (_E145202145211_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks144537_) - (let _lp144539_ ((_rest144541_ _blocks144537_) (_blocks144542_ '())) - (let* ((_rest144543144551_ _rest144541_) - (_else144545144600_ + (lambda (_blocks144799_) + (let _lp144801_ ((_rest144803_ _blocks144799_) (_blocks144804_ '())) + (let* ((_rest144805144813_ _rest144803_) + (_else144807144862_ (lambda () - (let ((__tmp150131 - (lambda (_block144559_ _r144560_) - (let* ((_block144561144572_ _block144559_) - (_E144563144576_ + (let ((__tmp150393 + (lambda (_block144821_ _r144822_) + (let* ((_block144823144834_ _block144821_) + (_E144825144838_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block144561144572_)))) - (_K144564144582_ - (lambda (_kont144579_ _name144580_) - (let ((__tmp150132 + _block144823144834_)))) + (_K144826144844_ + (lambda (_kont144841_ _name144842_) + (let ((__tmp150394 (let () (declare (not safe)) - (cons _name144580_ - _kont144579_)))) + (cons _name144842_ + _kont144841_)))) (declare (not safe)) - (cons __tmp150132 _r144560_))))) + (cons __tmp150394 _r144822_))))) (if (let () (declare (not safe)) - (##pair? _block144561144572_)) - (let ((_hd144565144585_ + (##pair? _block144823144834_)) + (let ((_hd144827144847_ (let () (declare (not safe)) - (##car _block144561144572_))) - (_tl144566144587_ + (##car _block144823144834_))) + (_tl144828144849_ (let () (declare (not safe)) - (##cdr _block144561144572_)))) - (let ((_name144590_ _hd144565144585_)) + (##cdr _block144823144834_)))) + (let ((_name144852_ _hd144827144847_)) (if (let () (declare (not safe)) - (##pair? _tl144566144587_)) - (let ((_tl144568144592_ + (##pair? _tl144828144849_)) + (let ((_tl144830144854_ (let () (declare (not safe)) - (##cdr _tl144566144587_)))) + (##cdr _tl144828144849_)))) (if (let () (declare (not safe)) - (##pair? _tl144568144592_)) - (let* ((_hd144569144595_ + (##pair? _tl144830144854_)) + (let* ((_hd144831144857_ (let () (declare (not safe)) - (##car _tl144568144592_))) - (_kont144598_ - _hd144569144595_)) + (##car _tl144830144854_))) + (_kont144860_ + _hd144831144857_)) (declare (not safe)) - (_K144564144582_ - _kont144598_ - _name144590_)) + (_K144826144844_ + _kont144860_ + _name144852_)) (let () (declare (not safe)) - (_E144563144576_)))) + (_E144825144838_)))) (let () (declare (not safe)) - (_E144563144576_))))) + (_E144825144838_))))) (let () (declare (not safe)) - (_E144563144576_))))))) + (_E144825144838_))))))) (declare (not safe)) - (foldl1 __tmp150131 '() _blocks144542_)))) - (_K144547144919_ - (lambda (_rest144603_ _block144604_) - (let* ((_block144605144630_ _block144604_) - (_E144608144634_ + (foldl1 __tmp150393 '() _blocks144804_)))) + (_K144809145181_ + (lambda (_rest144865_ _block144866_) + (let* ((_block144867144892_ _block144866_) + (_E144870144896_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block144605144630_))))) - (let ((_K144620144890_ - (lambda (_assert144812_ _kont144813_ _name144814_) - (let* ((_g144816144832_ - (lambda (_g144817144829_) + _block144867144892_))))) + (let ((_K144882145152_ + (lambda (_assert145074_ _kont145075_ _name145076_) + (let* ((_g145078145094_ + (lambda (_g145079145091_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144817144829_)))) - (_g144815144887_ - (lambda (_g144817144835_) + _g145079145091_)))) + (_g145077145149_ + (lambda (_g145079145097_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144817144835_)) - (let ((_e144821144837_ + (gx#stx-pair? _g145079145097_)) + (let ((_e145083145099_ (let () (declare (not safe)) (gx#stx-e - _g144817144835_)))) - (let ((_hd144820144840_ + _g145079145097_)))) + (let ((_hd145082145102_ (let () (declare (not safe)) - (##car _e144821144837_))) - (_tl144819144842_ + (##car _e145083145099_))) + (_tl145081145104_ (let () (declare (not safe)) - (##cdr _e144821144837_)))) + (##cdr _e145083145099_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144820144840_)) + _hd145082145102_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144820144840_)) + _hd145082145102_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144819144842_)) - (let ((_e144824144845_ + (gx#stx-pair? _tl145081145104_)) + (let ((_e145086145107_ (let () (declare (not safe)) - (gx#stx-e _tl144819144842_)))) - (let ((_hd144823144848_ + (gx#stx-e _tl145081145104_)))) + (let ((_hd145085145110_ (let () (declare (not safe)) - (##car _e144824144845_))) - (_tl144822144850_ + (##car _e145086145107_))) + (_tl145084145112_ (let () (declare (not safe)) - (##cdr _e144824144845_)))) + (##cdr _e145086145107_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd144823144848_)) + (gx#stx-null? _hd145085145110_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144822144850_)) - (let ((_e144827144853_ + (gx#stx-pair? _tl145084145112_)) + (let ((_e145089145115_ (let () (declare (not safe)) - (gx#stx-e _tl144822144850_)))) - (let ((_hd144826144856_ + (gx#stx-e _tl145084145112_)))) + (let ((_hd145088145118_ (let () (declare (not safe)) - (##car _e144827144853_))) - (_tl144825144858_ + (##car _e145089145115_))) + (_tl145087145120_ (let () (declare (not safe)) - (##cdr _e144827144853_)))) + (##cdr _e145089145115_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144825144858_)) - ((lambda (_L144861_) - (let* ((_body144876_ + (gx#stx-null? _tl145087145120_)) + ((lambda (_L145123_) + (let* ((_body145138_ (let () (declare (not safe)) (gxc#optimize-match-block - _L144861_ - _assert144812_ + _L145123_ + _assert145074_ '() - _rest144603_))) - (_block144878_ - (let ((__tmp150133 - (let ((__tmp150134 + _rest144865_))) + (_block145140_ + (let ((__tmp150395 + (let ((__tmp150396 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150136 - (let ((__tmp150137 - (let ((__tmp150138 + (let ((__tmp150398 + (let ((__tmp150399 + (let ((__tmp150400 (let () (declare (not safe)) - (cons _body144876_ '())))) + (cons _body145138_ '())))) (declare (not safe)) - (cons '() __tmp150138)))) + (cons '() __tmp150400)))) (declare (not safe)) - (cons '%#lambda __tmp150137))) - (__tmp150135 + (cons '%#lambda __tmp150399))) + (__tmp150397 (let () (declare (not safe)) - (cons _assert144812_ '())))) + (cons _assert145074_ '())))) (declare (not safe)) - (cons __tmp150136 __tmp150135)))) + (cons __tmp150398 __tmp150397)))) (declare (not safe)) - (cons 'restart: __tmp150134)))) + (cons 'restart: __tmp150396)))) (declare (not safe)) - (cons _name144814_ __tmp150133))) + (cons _name145076_ __tmp150395))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks144880_ + (_blocks145142_ (let () (declare (not safe)) - (cons _block144878_ - _blocks144542_))) - (_rest144882_ + (cons _block145140_ + _blocks144804_))) + (_rest145144_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest144603_ - _blocks144880_))) - (_rest144884_ + _rest144865_ + _blocks145142_))) + (_rest145146_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest144882_ - _blocks144880_)))) + _rest145144_ + _blocks145142_)))) (let () (declare (not safe)) - (_lp144539_ - _rest144884_ - _blocks144880_)))) - _hd144826144856_) + (_lp144801_ + _rest145146_ + _blocks145142_)))) + _hd145088145118_) (let () (declare (not safe)) - (_g144816144832_ - _g144817144835_))))) + (_g145078145094_ + _g145079145097_))))) (let () (declare (not safe)) - (_g144816144832_ _g144817144835_))) + (_g145078145094_ _g145079145097_))) (let () (declare (not safe)) - (_g144816144832_ _g144817144835_))))) + (_g145078145094_ _g145079145097_))))) (let () (declare (not safe)) - (_g144816144832_ _g144817144835_))) + (_g145078145094_ _g145079145097_))) (let () (declare (not safe)) - (_g144816144832_ _g144817144835_))) + (_g145078145094_ _g145079145097_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144816144832_ - _g144817144835_))))) + (_g145078145094_ + _g145079145097_))))) (let () (declare (not safe)) - (_g144816144832_ - _g144817144835_)))))) + (_g145078145094_ + _g145079145097_)))))) (declare (not safe)) - (_g144815144887_ _kont144813_)))) - (_K144609144773_ - (lambda (_bind144638_ - _assert144639_ - _kont144640_ - _name144641_) - (let* ((_g144643144669_ - (lambda (_g144644144666_) + (_g145077145149_ _kont145075_)))) + (_K144871145035_ + (lambda (_bind144900_ + _assert144901_ + _kont144902_ + _name144903_) + (let* ((_g144905144931_ + (lambda (_g144906144928_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144644144666_)))) - (_g144642144770_ - (lambda (_g144644144672_) + _g144906144928_)))) + (_g144904145032_ + (lambda (_g144906144934_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144644144672_)) - (let ((_e144649144674_ + (gx#stx-pair? _g144906144934_)) + (let ((_e144911144936_ (let () (declare (not safe)) (gx#stx-e - _g144644144672_)))) - (let ((_hd144648144677_ + _g144906144934_)))) + (let ((_hd144910144939_ (let () (declare (not safe)) - (##car _e144649144674_))) - (_tl144647144679_ + (##car _e144911144936_))) + (_tl144909144941_ (let () (declare (not safe)) - (##cdr _e144649144674_)))) + (##cdr _e144911144936_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144648144677_)) + _hd144910144939_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144648144677_)) + _hd144910144939_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144647144679_)) - (let ((_e144652144682_ + (gx#stx-pair? _tl144909144941_)) + (let ((_e144914144944_ (let () (declare (not safe)) - (gx#stx-e _tl144647144679_)))) - (let ((_hd144651144685_ + (gx#stx-e _tl144909144941_)))) + (let ((_hd144913144947_ (let () (declare (not safe)) - (##car _e144652144682_))) - (_tl144650144687_ + (##car _e144914144944_))) + (_tl144912144949_ (let () (declare (not safe)) - (##cdr _e144652144682_)))) + (##cdr _e144914144944_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd144651144685_)) - (let ((_g150139_ + (gx#stx-pair/null? _hd144913144947_)) + (let ((_g150401_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd144651144685_ + _hd144913144947_ '0)))) (begin - (let ((_g150140_ + (let ((_g150402_ (let () (declare (not safe)) - (if (##values? _g150139_) - (##vector-length _g150139_) + (if (##values? _g150401_) + (##vector-length _g150401_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150140_ 2))) + (##fx= _g150402_ 2))) (error "Context expects 2 values" - _g150140_))) - (let ((_target144653144690_ + _g150402_))) + (let ((_target144915144952_ (let () (declare (not safe)) - (##vector-ref _g150139_ 0))) - (_tl144655144692_ + (##vector-ref _g150401_ 0))) + (_tl144917144954_ (let () (declare (not safe)) - (##vector-ref _g150139_ 1)))) + (##vector-ref _g150401_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144655144692_)) - (letrec ((_loop144656144695_ - (lambda (_hd144654144698_ - _id144660144700_) + (gx#stx-null? _tl144917144954_)) + (letrec ((_loop144918144957_ + (lambda (_hd144916144960_ + _id144922144962_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144654144698_)) - (let ((_e144657144703_ + _hd144916144960_)) + (let ((_e144919144965_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd144654144698_)))) - (let ((_lp-hd144658144706_ - (let () (declare (not safe)) (##car _e144657144703_))) - (_lp-tl144659144708_ - (let () (declare (not safe)) (##cdr _e144657144703_)))) - (let ((__tmp150150 + (gx#stx-e _hd144916144960_)))) + (let ((_lp-hd144920144968_ + (let () (declare (not safe)) (##car _e144919144965_))) + (_lp-tl144921144970_ + (let () (declare (not safe)) (##cdr _e144919144965_)))) + (let ((__tmp150412 (let () (declare (not safe)) - (cons _lp-hd144658144706_ _id144660144700_)))) + (cons _lp-hd144920144968_ _id144922144962_)))) (declare (not safe)) - (_loop144656144695_ _lp-tl144659144708_ __tmp150150)))) - (let ((_id144661144711_ (reverse _id144660144700_))) + (_loop144918144957_ _lp-tl144921144970_ __tmp150412)))) + (let ((_id144923144973_ (reverse _id144922144962_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144650144687_)) - (let ((_e144664144714_ + (gx#stx-pair? _tl144912144949_)) + (let ((_e144926144976_ (let () (declare (not safe)) - (gx#stx-e _tl144650144687_)))) - (let ((_hd144663144717_ + (gx#stx-e _tl144912144949_)))) + (let ((_hd144925144979_ (let () (declare (not safe)) - (##car _e144664144714_))) - (_tl144662144719_ + (##car _e144926144976_))) + (_tl144924144981_ (let () (declare (not safe)) - (##cdr _e144664144714_)))) + (##cdr _e144926144976_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144662144719_)) - ((lambda (_L144722_ _L144723_) - (let* ((_body144752_ + (gx#stx-null? _tl144924144981_)) + ((lambda (_L144984_ _L144985_) + (let* ((_body145014_ (let () (declare (not safe)) (gxc#optimize-match-block - _L144722_ - _assert144639_ - _bind144638_ - _rest144603_))) - (_block144761_ - (let ((__tmp150141 - (let ((__tmp150142 - (let ((__tmp150145 - (let ((__tmp150146 + _L144984_ + _assert144901_ + _bind144900_ + _rest144865_))) + (_block145023_ + (let ((__tmp150403 + (let ((__tmp150404 + (let ((__tmp150407 + (let ((__tmp150408 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150148 - (let ((__tmp150149 - (lambda (_g144753144756_ - _g144754144758_) + (let ((__tmp150410 + (let ((__tmp150411 + (lambda (_g145015145018_ + _g145016145020_) (let () (declare (not safe)) - (cons _g144753144756_ - _g144754144758_))))) + (cons _g145015145018_ + _g145016145020_))))) (declare (not safe)) - (foldr1 __tmp150149 '() _L144723_))) - (__tmp150147 + (foldr1 __tmp150411 '() _L144985_))) + (__tmp150409 (let () (declare (not safe)) - (cons _body144752_ '())))) + (cons _body145014_ '())))) (declare (not safe)) - (cons __tmp150148 __tmp150147)))) + (cons __tmp150410 __tmp150409)))) (declare (not safe)) - (cons '%#lambda __tmp150146))) - (__tmp150143 - (let ((__tmp150144 + (cons '%#lambda __tmp150408))) + (__tmp150405 + (let ((__tmp150406 (let () (declare (not safe)) - (cons _bind144638_ '())))) + (cons _bind144900_ '())))) (declare (not safe)) - (cons _assert144639_ __tmp150144)))) + (cons _assert144901_ __tmp150406)))) (declare (not safe)) - (cons __tmp150145 __tmp150143)))) + (cons __tmp150407 __tmp150405)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp150142)))) + __tmp150404)))) (declare (not safe)) - (cons _name144641_ __tmp150141))) - (_blocks144763_ + (cons _name144903_ __tmp150403))) + (_blocks145025_ (let () (declare (not safe)) - (cons _block144761_ _blocks144542_))) - (_rest144765_ + (cons _block145023_ _blocks144804_))) + (_rest145027_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest144603_ - _blocks144763_))) - (_rest144767_ + _rest144865_ + _blocks145025_))) + (_rest145029_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest144765_ - _blocks144763_)))) + _rest145027_ + _blocks145025_)))) (let () (declare (not safe)) - (_lp144539_ _rest144767_ _blocks144763_)))) - _hd144663144717_ - _id144661144711_) + (_lp144801_ _rest145029_ _blocks145025_)))) + _hd144925144979_ + _id144923144973_) (let () (declare (not safe)) - (_g144643144669_ _g144644144672_))))) + (_g144905144931_ _g144906144934_))))) (let () (declare (not safe)) - (_g144643144669_ _g144644144672_)))))))) + (_g144905144931_ _g144906144934_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144656144695_ - _target144653144690_ + (_loop144918144957_ + _target144915144952_ '()))) (let () (declare (not safe)) - (_g144643144669_ _g144644144672_)))))) + (_g144905144931_ _g144906144934_)))))) (let () (declare (not safe)) - (_g144643144669_ _g144644144672_))))) + (_g144905144931_ _g144906144934_))))) (let () (declare (not safe)) - (_g144643144669_ _g144644144672_))) + (_g144905144931_ _g144906144934_))) (let () (declare (not safe)) - (_g144643144669_ _g144644144672_))) + (_g144905144931_ _g144906144934_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144643144669_ - _g144644144672_))))) + (_g144905144931_ + _g144906144934_))))) (let () (declare (not safe)) - (_g144643144669_ - _g144644144672_)))))) + (_g144905144931_ + _g144906144934_)))))) (declare (not safe)) - (_g144642144770_ _kont144640_))))) + (_g144904145032_ _kont144902_))))) (if (let () (declare (not safe)) - (##pair? _block144605144630_)) - (let ((_tl144622144895_ + (##pair? _block144867144892_)) + (let ((_tl144884145157_ (let () (declare (not safe)) - (##cdr _block144605144630_))) - (_hd144621144893_ + (##cdr _block144867144892_))) + (_hd144883145155_ (let () (declare (not safe)) - (##car _block144605144630_)))) + (##car _block144867144892_)))) (if (let () (declare (not safe)) - (##pair? _tl144622144895_)) - (let ((_tl144624144902_ + (##pair? _tl144884145157_)) + (let ((_tl144886145164_ (let () (declare (not safe)) - (##cdr _tl144622144895_))) - (_hd144623144900_ + (##cdr _tl144884145157_))) + (_hd144885145162_ (let () (declare (not safe)) - (##car _tl144622144895_)))) + (##car _tl144884145157_)))) (if (let () (declare (not safe)) - (##eq? _hd144623144900_ 'restart:)) + (##eq? _hd144885145162_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl144624144902_)) - (let ((_tl144626144907_ + (##pair? _tl144886145164_)) + (let ((_tl144888145169_ (let () (declare (not safe)) - (##cdr _tl144624144902_))) - (_hd144625144905_ + (##cdr _tl144886145164_))) + (_hd144887145167_ (let () (declare (not safe)) - (##car _tl144624144902_)))) + (##car _tl144886145164_)))) (if (let () (declare (not safe)) - (##pair? _tl144626144907_)) - (let ((_tl144628144914_ + (##pair? _tl144888145169_)) + (let ((_tl144890145176_ (let () (declare (not safe)) - (##cdr _tl144626144907_))) - (_hd144627144912_ + (##cdr _tl144888145169_))) + (_hd144889145174_ (let () (declare (not safe)) - (##car _tl144626144907_)))) + (##car _tl144888145169_)))) (if (let () (declare (not safe)) - (##null? _tl144628144914_)) - (let ((_name144898_ - _hd144621144893_) - (_kont144910_ - _hd144625144905_) - (_assert144917_ - _hd144627144912_)) + (##null? _tl144890145176_)) + (let ((_name145160_ + _hd144883145155_) + (_kont145172_ + _hd144887145167_) + (_assert145179_ + _hd144889145174_)) (let () (declare (not safe)) - (_K144620144890_ - _assert144917_ - _kont144910_ - _name144898_))) + (_K144882145152_ + _assert145179_ + _kont145172_ + _name145160_))) (let () (declare (not safe)) - (_E144608144634_)))) + (_E144870144896_)))) (let () (declare (not safe)) - (_E144608144634_)))) + (_E144870144896_)))) (let () (declare (not safe)) - (_E144608144634_))) + (_E144870144896_))) (if (let () (declare (not safe)) - (##eq? _hd144623144900_ + (##eq? _hd144885145162_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl144624144902_)) - (let ((_tl144615144790_ + (##pair? _tl144886145164_)) + (let ((_tl144877145052_ (let () (declare (not safe)) - (##cdr _tl144624144902_))) - (_hd144614144788_ + (##cdr _tl144886145164_))) + (_hd144876145050_ (let () (declare (not safe)) - (##car _tl144624144902_)))) + (##car _tl144886145164_)))) (if (let () (declare (not safe)) - (##pair? _tl144615144790_)) - (let ((_tl144617144797_ + (##pair? _tl144877145052_)) + (let ((_tl144879145059_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl144615144790_))) - (_hd144616144795_ - (let () (declare (not safe)) (##car _tl144615144790_)))) - (if (let () (declare (not safe)) (##pair? _tl144617144797_)) - (let ((_tl144619144804_ + (##cdr _tl144877145052_))) + (_hd144878145057_ + (let () (declare (not safe)) (##car _tl144877145052_)))) + (if (let () (declare (not safe)) (##pair? _tl144879145059_)) + (let ((_tl144881145066_ (let () (declare (not safe)) - (##cdr _tl144617144797_))) - (_hd144618144802_ + (##cdr _tl144879145059_))) + (_hd144880145064_ (let () (declare (not safe)) - (##car _tl144617144797_)))) + (##car _tl144879145059_)))) (if (let () (declare (not safe)) - (##null? _tl144619144804_)) - (let ((_name144781_ _hd144621144893_) - (_kont144793_ _hd144614144788_) - (_assert144800_ _hd144616144795_) - (_bind144807_ _hd144618144802_)) + (##null? _tl144881145066_)) + (let ((_name145043_ _hd144883145155_) + (_kont145055_ _hd144876145050_) + (_assert145062_ _hd144878145057_) + (_bind145069_ _hd144880145064_)) (let () (declare (not safe)) - (_K144609144773_ - _bind144807_ - _assert144800_ - _kont144793_ - _name144781_))) - (let () (declare (not safe)) (_E144608144634_)))) - (let () (declare (not safe)) (_E144608144634_)))) - (let () (declare (not safe)) (_E144608144634_)))) + (_K144871145035_ + _bind145069_ + _assert145062_ + _kont145055_ + _name145043_))) + (let () (declare (not safe)) (_E144870144896_)))) + (let () (declare (not safe)) (_E144870144896_)))) + (let () (declare (not safe)) (_E144870144896_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E144608144634_))) + (_E144870144896_))) (let () (declare (not safe)) - (_E144608144634_))))) + (_E144870144896_))))) (let () (declare (not safe)) - (_E144608144634_)))) + (_E144870144896_)))) (let () (declare (not safe)) - (_E144608144634_)))))))) - (if (let () (declare (not safe)) (##pair? _rest144543144551_)) - (let ((_hd144548144922_ + (_E144870144896_)))))))) + (if (let () (declare (not safe)) (##pair? _rest144805144813_)) + (let ((_hd144810145184_ (let () (declare (not safe)) - (##car _rest144543144551_))) - (_tl144549144924_ + (##car _rest144805144813_))) + (_tl144811145186_ (let () (declare (not safe)) - (##cdr _rest144543144551_)))) - (let* ((_block144927_ _hd144548144922_) - (_rest144929_ _tl144549144924_)) + (##cdr _rest144805144813_)))) + (let* ((_block145189_ _hd144810145184_) + (_rest145191_ _tl144811145186_)) (declare (not safe)) - (_K144547144919_ _rest144929_ _block144927_))) - (let () (declare (not safe)) (_else144545144600_))))))) + (_K144809145181_ _rest145191_ _block145189_))) + (let () (declare (not safe)) (_else144807144862_))))))) (define gxc#optimize-match-block - (lambda (_body139170_ _assert139171_ _bind139172_ _blocks139173_) - (letrec* ((_env-assert139408_ '()) - (_env-type139409_ '()) - (_env-bind139410_ '()) - (_in-splice?139411_ '#f) - (_do-assert139412_ - (lambda (_assert144460_ _K144461_) - (if (let () (declare (not safe)) (pair? _assert144460_)) - (let _lp144463_ ((_rest144465_ _assert144460_) - (_env-assert144466_ - _env-assert139408_) - (_env-type144467_ _env-type139409_)) - (let* ((_rest144468144476_ _rest144465_) - (_else144470144484_ + (lambda (_body139432_ _assert139433_ _bind139434_ _blocks139435_) + (letrec* ((_env-assert139670_ '()) + (_env-type139671_ '()) + (_env-bind139672_ '()) + (_in-splice?139673_ '#f) + (_do-assert139674_ + (lambda (_assert144722_ _K144723_) + (if (let () (declare (not safe)) (pair? _assert144722_)) + (let _lp144725_ ((_rest144727_ _assert144722_) + (_env-assert144728_ + _env-assert139670_) + (_env-type144729_ _env-type139671_)) + (let* ((_rest144730144738_ _rest144727_) + (_else144732144746_ (lambda () (let () (declare (not safe)) - (_do-assert!139418_ - _env-assert144466_ - _env-type144467_ - _K144461_)))) - (_K144472144525_ - (lambda (_rest144487_ _assert144488_) - (let* ((_assert144489144496_ - _assert144488_) - (_E144491144500_ + (_do-assert!139680_ + _env-assert144728_ + _env-type144729_ + _K144723_)))) + (_K144734144787_ + (lambda (_rest144749_ _assert144750_) + (let* ((_assert144751144758_ + _assert144750_) + (_E144753144762_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _assert144489144496_)))) - (_K144492144513_ - (lambda (_val144503_ _expr144504_) - (let* ((_sexpr144506_ + _assert144751144758_)))) + (_K144754144775_ + (lambda (_val144765_ _expr144766_) + (let* ((_sexpr144768_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr144504_))) - (_env-assert144508_ - (let ((__tmp150151 + _expr144766_))) + (_env-assert144770_ + (let ((__tmp150413 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr144506_ _val144503_)))) + (cons _sexpr144768_ _val144765_)))) (declare (not safe)) - (cons __tmp150151 _env-assert144466_))) - (_env-type144510_ + (cons __tmp150413 _env-assert144728_))) + (_env-type144772_ (let () (declare (not safe)) - (_fold-assert-type139414_ - _expr144504_ - _val144503_ - _env-type144467_)))) + (_fold-assert-type139676_ + _expr144766_ + _val144765_ + _env-type144729_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp144463_ - _rest144487_ - _env-assert144508_ - _env-type144510_)))))) + (_lp144725_ + _rest144749_ + _env-assert144770_ + _env-type144772_)))))) (if (let () (declare (not safe)) - (##pair? _assert144489144496_)) - (let ((_hd144493144516_ + (##pair? _assert144751144758_)) + (let ((_hd144755144778_ (let () (declare (not safe)) - (##car _assert144489144496_))) - (_tl144494144518_ + (##car _assert144751144758_))) + (_tl144756144780_ (let () (declare (not safe)) - (##cdr _assert144489144496_)))) - (let* ((_expr144521_ - _hd144493144516_) - (_val144523_ - _tl144494144518_)) + (##cdr _assert144751144758_)))) + (let* ((_expr144783_ + _hd144755144778_) + (_val144785_ + _tl144756144780_)) (declare (not safe)) - (_K144492144513_ - _val144523_ - _expr144521_))) + (_K144754144775_ + _val144785_ + _expr144783_))) (let () (declare (not safe)) - (_E144491144500_))))))) + (_E144753144762_))))))) (if (let () (declare (not safe)) - (##pair? _rest144468144476_)) - (let ((_hd144473144528_ + (##pair? _rest144730144738_)) + (let ((_hd144735144790_ (let () (declare (not safe)) - (##car _rest144468144476_))) - (_tl144474144530_ + (##car _rest144730144738_))) + (_tl144736144792_ (let () (declare (not safe)) - (##cdr _rest144468144476_)))) - (let* ((_assert144533_ _hd144473144528_) - (_rest144535_ _tl144474144530_)) + (##cdr _rest144730144738_)))) + (let* ((_assert144795_ _hd144735144790_) + (_rest144797_ _tl144736144792_)) (declare (not safe)) - (_K144472144525_ - _rest144535_ - _assert144533_))) + (_K144734144787_ + _rest144797_ + _assert144795_))) (let () (declare (not safe)) - (_else144470144484_))))) - (_K144461_)))) - (_predicate-type139413_ - (lambda (_id144405_) - (let* ((_sym144407_ + (_else144732144746_))))) + (_K144723_)))) + (_predicate-type139675_ + (lambda (_id144667_) + (let* ((_sym144669_ (let () (declare (not safe)) - (gxc#identifier-symbol _id144405_))) - (_$e144409_ _sym144407_)) - (let ((_default144411144442_ + (gxc#identifier-symbol _id144667_))) + (_$e144671_ _sym144669_)) + (let ((_default144673144704_ (lambda () - (let* ((_g144414144421_ + (let* ((_g144676144683_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym144407_))) - (_else144416144429_ (lambda () '#f)) - (_K144418144434_ - (lambda (_t144432_) + _sym144669_))) + (_else144678144691_ (lambda () '#f)) + (_K144680144696_ + (lambda (_t144694_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t144432_))))) + _t144694_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g144414144421_ + _g144676144683_ 'gxc#!predicate::t)) - (let* ((_e144419144437_ + (let* ((_e144681144699_ (let () (declare (not safe)) (##unchecked-structure-ref - _g144414144421_ + _g144676144683_ '1 gxc#!type::t '#f))) - (_t144440_ _e144419144437_)) + (_t144702_ _e144681144699_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t144440_)) + (gxc#optimizer-resolve-type _t144702_)) (let () (declare (not safe)) - (_else144416144429_)))))) - (_table144412144444_ + (_else144678144691_)))))) + (_table144674144706_ '#(#f (##box? . 3) #f @@ -4363,50 +4363,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e144409_)) - (let* ((_h144447_ + (if (let () (declare (not safe)) (symbol? _$e144671_)) + (let* ((_h144709_ (let () (declare (not safe)) - (##symbol-hash _$e144409_))) - (_ix144450_ + (##symbol-hash _$e144671_))) + (_ix144712_ (let () (declare (not safe)) - (##fxmodulo _h144447_ '63))) - (_q144453_ + (##fxmodulo _h144709_ '63))) + (_q144715_ (let () (declare (not safe)) (##vector-ref - _table144412144444_ - _ix144450_)))) - (if _q144453_ - (if (let ((__tmp150152 + _table144674144706_ + _ix144712_)))) + (if _q144715_ + (if (let ((__tmp150414 (let () (declare (not safe)) - (##car _q144453_)))) + (##car _q144715_)))) (declare (not safe)) - (eq? __tmp150152 _$e144409_)) - (let ((_x144457_ + (eq? __tmp150414 _$e144671_)) + (let ((_x144719_ (let () (declare (not safe)) - (##cdr _q144453_)))) + (##cdr _q144715_)))) (if (let () (declare (not safe)) - (##fx< _x144457_ '5)) + (##fx< _x144719_ '5)) (if (let () (declare (not safe)) - (##fx< _x144457_ '2)) + (##fx< _x144719_ '2)) (if (let () (declare (not safe)) - (##fx= _x144457_ '0)) + (##fx= _x144719_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x144457_ '2)) + (##fx= _x144719_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x144457_ + (##fx= _x144719_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4414,19 +4414,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x144457_ '7)) + (##fx< _x144719_ '7)) (if (let () (declare (not safe)) - (##fx= _x144457_ '5)) + (##fx= _x144719_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x144457_ '7)) + (##fx= _x144719_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x144457_ + (##fx= _x144719_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4434,5306 +4434,5306 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default144411144442_))) + (_default144673144704_))) (let () (declare (not safe)) - (_default144411144442_)))) + (_default144673144704_)))) (let () (declare (not safe)) - (_default144411144442_))))))) - (_fold-assert-type139414_ - (lambda (_expr143353_ _val143354_ _env143355_) - (let* ((___stx147490147491_ _expr143353_) - (_g143363143542_ + (_default144673144704_))))))) + (_fold-assert-type139676_ + (lambda (_expr143615_ _val143616_ _env143617_) + (let* ((___stx147752147753_ _expr143615_) + (_g143625143804_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147490147491_))))) - (let ((___kont147492147493_ - (lambda (_L144374_ _L144375_) - (let ((_$e144397_ + ___stx147752147753_))))) + (let ((___kont147754147755_ + (lambda (_L144636_ _L144637_) + (let ((_$e144659_ (let () (declare (not safe)) - (_predicate-type139413_ _L144375_)))) - (if _$e144397_ - ((lambda (_t144400_) - (let ((__tmp150153 - (let ((__tmp150154 - (let ((__tmp150155 + (_predicate-type139675_ _L144637_)))) + (if _$e144659_ + ((lambda (_t144662_) + (let ((__tmp150415 + (let ((__tmp150416 + (let ((__tmp150417 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val143354_ '())))) + (cons _val143616_ '())))) (declare (not safe)) - (cons _t144400_ __tmp150155)))) + (cons _t144662_ __tmp150417)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L144374_ - __tmp150154)))) + (cons _L144636_ + __tmp150416)))) (declare (not safe)) - (cons __tmp150153 _env143355_))) - _$e144397_) - _env143355_)))) - (___kont147494147495_ - (lambda (_L144064_ _L144065_ _L144066_) - (let ((_$e144091_ + (cons __tmp150415 _env143617_))) + _$e144659_) + _env143617_)))) + (___kont147756147757_ + (lambda (_L144326_ _L144327_ _L144328_) + (let ((_$e144353_ (let () (declare (not safe)) - (gxc#identifier-symbol _L144066_)))) + (gxc#identifier-symbol _L144328_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e144091_)) + (eq? '##fx= _$e144353_)) (let () (declare (not safe)) - (eq? 'fx= _$e144091_))) - (let* ((___stx147396147397_ _L144065_) - (_g144098144127_ + (eq? 'fx= _$e144353_))) + (let* ((___stx147658147659_ _L144327_) + (_g144360144389_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147396147397_))))) - (let ((___kont147398147399_ - (lambda (_L144195_ _L144196_) - (let ((_$e144221_ + ___stx147658147659_))))) + (let ((___kont147660147661_ + (lambda (_L144457_ _L144458_) + (let ((_$e144483_ (let () (declare (not safe)) - (_countf-symbol139415_ - _L144196_)))) - (if _$e144221_ - ((lambda (_sym144224_) - (let ((__tmp150161 + (_countf-symbol139677_ + _L144458_)))) + (if _$e144483_ + ((lambda (_sym144486_) + (let ((__tmp150423 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150162 - (let ((__tmp150163 - (let ((__tmp150165 + (let ((__tmp150424 + (let ((__tmp150425 + (let ((__tmp150427 (let () (declare (not safe)) - (gx#stx-e _L144064_))) - (__tmp150164 + (gx#stx-e _L144326_))) + (__tmp150426 (let () (declare (not safe)) - (cons _val143354_ '())))) + (cons _val143616_ '())))) (declare (not safe)) - (cons __tmp150165 __tmp150164)))) + (cons __tmp150427 __tmp150426)))) (declare (not safe)) - (cons _sym144224_ __tmp150163)))) + (cons _sym144486_ __tmp150425)))) (declare (not safe)) - (cons _L144195_ __tmp150162)))) + (cons _L144457_ __tmp150424)))) (declare (not safe)) - (cons __tmp150161 _env143355_))) - _$e144221_) - _env143355_)))) + (cons __tmp150423 _env143617_))) + _$e144483_) + _env143617_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147400147401_ - (lambda () _env143355_))) + (___kont147662147663_ + (lambda () _env143617_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147396147397_)) - (let ((_e144104144139_ + ___stx147658147659_)) + (let ((_e144366144401_ (let () (declare (not safe)) (gx#stx-e - ___stx147396147397_)))) - (let ((_tl144102144144_ + ___stx147658147659_)))) + (let ((_tl144364144406_ (let () (declare (not safe)) - (##cdr _e144104144139_))) - (_hd144103144142_ + (##cdr _e144366144401_))) + (_hd144365144404_ (let () (declare (not safe)) - (##car _e144104144139_)))) + (##car _e144366144401_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144103144142_)) + _hd144365144404_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd144103144142_)) + _hd144365144404_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144102144144_)) - (let ((_e144107144147_ + (gx#stx-pair? _tl144364144406_)) + (let ((_e144369144409_ (let () (declare (not safe)) - (gx#stx-e _tl144102144144_)))) - (let ((_tl144105144152_ + (gx#stx-e _tl144364144406_)))) + (let ((_tl144367144414_ (let () (declare (not safe)) - (##cdr _e144107144147_))) - (_hd144106144150_ + (##cdr _e144369144409_))) + (_hd144368144412_ (let () (declare (not safe)) - (##car _e144107144147_)))) + (##car _e144369144409_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144106144150_)) - (let ((_e144110144155_ + (gx#stx-pair? _hd144368144412_)) + (let ((_e144372144417_ (let () (declare (not safe)) - (gx#stx-e _hd144106144150_)))) - (let ((_tl144108144160_ + (gx#stx-e _hd144368144412_)))) + (let ((_tl144370144422_ (let () (declare (not safe)) - (##cdr _e144110144155_))) - (_hd144109144158_ + (##cdr _e144372144417_))) + (_hd144371144420_ (let () (declare (not safe)) - (##car _e144110144155_)))) + (##car _e144372144417_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144109144158_)) + (gx#identifier? _hd144371144420_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd144109144158_)) + _hd144371144420_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144108144160_)) - (let ((_e144113144163_ + _tl144370144422_)) + (let ((_e144375144425_ (let () (declare (not safe)) (gx#stx-e - _tl144108144160_)))) - (let ((_tl144111144168_ + _tl144370144422_)))) + (let ((_tl144373144430_ (let () (declare (not safe)) - (##cdr _e144113144163_))) - (_hd144112144166_ + (##cdr _e144375144425_))) + (_hd144374144428_ (let () (declare (not safe)) - (##car _e144113144163_)))) + (##car _e144375144425_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144111144168_)) + _tl144373144430_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144105144152_)) - (let ((_e144116144171_ + _tl144367144414_)) + (let ((_e144378144433_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl144105144152_)))) - (let ((_tl144114144176_ + (gx#stx-e _tl144367144414_)))) + (let ((_tl144376144438_ (let () (declare (not safe)) - (##cdr _e144116144171_))) - (_hd144115144174_ + (##cdr _e144378144433_))) + (_hd144377144436_ (let () (declare (not safe)) - (##car _e144116144171_)))) + (##car _e144378144433_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144115144174_)) - (let ((_e144119144179_ + (gx#stx-pair? _hd144377144436_)) + (let ((_e144381144441_ (let () (declare (not safe)) - (gx#stx-e _hd144115144174_)))) - (let ((_tl144117144184_ + (gx#stx-e _hd144377144436_)))) + (let ((_tl144379144446_ (let () (declare (not safe)) - (##cdr _e144119144179_))) - (_hd144118144182_ + (##cdr _e144381144441_))) + (_hd144380144444_ (let () (declare (not safe)) - (##car _e144119144179_)))) + (##car _e144381144441_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144118144182_)) + (gx#identifier? _hd144380144444_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144118144182_)) + (gx#stx-eq? '%#ref _hd144380144444_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144117144184_)) - (let ((_e144122144187_ + (gx#stx-pair? _tl144379144446_)) + (let ((_e144384144449_ (let () (declare (not safe)) (gx#stx-e - _tl144117144184_)))) - (let ((_tl144120144192_ + _tl144379144446_)))) + (let ((_tl144382144454_ (let () (declare (not safe)) - (##cdr _e144122144187_))) - (_hd144121144190_ + (##cdr _e144384144449_))) + (_hd144383144452_ (let () (declare (not safe)) - (##car _e144122144187_)))) + (##car _e144384144449_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144120144192_)) + _tl144382144454_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl144114144176_)) - (___kont147398147399_ - _hd144121144190_ - _hd144112144166_) - (___kont147400147401_)) - (___kont147400147401_)))) - (___kont147400147401_)) - (___kont147400147401_)) - (___kont147400147401_)))) - (___kont147400147401_)))) - (___kont147400147401_)) - (___kont147400147401_)))) + _tl144376144438_)) + (___kont147660147661_ + _hd144383144452_ + _hd144374144428_) + (___kont147662147663_)) + (___kont147662147663_)))) + (___kont147662147663_)) + (___kont147662147663_)) + (___kont147662147663_)))) + (___kont147662147663_)))) + (___kont147662147663_)) + (___kont147662147663_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147400147401_)) - (___kont147400147401_)) - (___kont147400147401_)))) - (___kont147400147401_)))) - (___kont147400147401_)) - (___kont147400147401_)) - (___kont147400147401_)))) + (___kont147662147663_)) + (___kont147662147663_)) + (___kont147662147663_)))) + (___kont147662147663_)))) + (___kont147662147663_)) + (___kont147662147663_)) + (___kont147662147663_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147400147401_)))) + (___kont147662147663_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e144091_)) + (eq? '##eq? _$e144353_)) (let () (declare (not safe)) - (eq? 'eq? _$e144091_)) + (eq? 'eq? _$e144353_)) (let () (declare (not safe)) - (eq? '##eqv? _$e144091_)) + (eq? '##eqv? _$e144353_)) (let () (declare (not safe)) - (eq? 'eqv? _$e144091_)) + (eq? 'eqv? _$e144353_)) (let () (declare (not safe)) - (eq? '##equal? _$e144091_)) + (eq? '##equal? _$e144353_)) (let () (declare (not safe)) - (eq? 'equal? _$e144091_)) + (eq? 'equal? _$e144353_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e144091_)) + _$e144353_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e144091_))) - ((lambda (_sym144250_) - (let* ((_sym144252_ + (eq? 'gx#stx-eq? _$e144353_))) + ((lambda (_sym144512_) + (let* ((_sym144514_ (let () (declare (not safe)) - (_eqf-symbol139416_ - _sym144250_))) - (___stx147464147465_ - _L144065_) - (_g144255144268_ + (_eqf-symbol139678_ + _sym144512_))) + (___stx147726147727_ + _L144327_) + (_g144517144530_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147464147465_))))) - (let ((___kont147466147467_ - (lambda (_L144296_) - (let ((__tmp150156 - (let ((__tmp150157 + ___stx147726147727_))))) + (let ((___kont147728147729_ + (lambda (_L144558_) + (let ((__tmp150418 + (let ((__tmp150419 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150158 - (let ((__tmp150160 + (let ((__tmp150420 + (let ((__tmp150422 (let () (declare (not safe)) - (gx#stx-e _L144064_))) - (__tmp150159 + (gx#stx-e _L144326_))) + (__tmp150421 (let () (declare (not safe)) - (cons _val143354_ '())))) + (cons _val143616_ '())))) (declare (not safe)) - (cons __tmp150160 __tmp150159)))) + (cons __tmp150422 __tmp150421)))) (declare (not safe)) - (cons _sym144252_ __tmp150158)))) + (cons _sym144514_ __tmp150420)))) (declare (not safe)) - (cons _L144296_ __tmp150157)))) + (cons _L144558_ __tmp150419)))) (declare (not safe)) - (cons __tmp150156 _env143355_)))) + (cons __tmp150418 _env143617_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147468147469_ - (lambda () _env143355_))) + (___kont147730147731_ + (lambda () _env143617_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147464147465_)) - (let ((_e144260144280_ + ___stx147726147727_)) + (let ((_e144522144542_ (let () (declare (not safe)) (gx#stx-e - ___stx147464147465_)))) - (let ((_tl144258144285_ + ___stx147726147727_)))) + (let ((_tl144520144547_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e144260144280_))) - (_hd144259144283_ - (let () (declare (not safe)) (##car _e144260144280_)))) + (##cdr _e144522144542_))) + (_hd144521144545_ + (let () (declare (not safe)) (##car _e144522144542_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144259144283_)) + (gx#identifier? _hd144521144545_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144259144283_)) + (gx#stx-eq? '%#ref _hd144521144545_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144258144285_)) - (let ((_e144263144288_ + (gx#stx-pair? _tl144520144547_)) + (let ((_e144525144550_ (let () (declare (not safe)) - (gx#stx-e _tl144258144285_)))) - (let ((_tl144261144293_ + (gx#stx-e _tl144520144547_)))) + (let ((_tl144523144555_ (let () (declare (not safe)) - (##cdr _e144263144288_))) - (_hd144262144291_ + (##cdr _e144525144550_))) + (_hd144524144553_ (let () (declare (not safe)) - (##car _e144263144288_)))) + (##car _e144525144550_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144261144293_)) - (___kont147466147467_ _hd144262144291_) - (___kont147468147469_)))) - (___kont147468147469_)) - (___kont147468147469_)) - (___kont147468147469_)))) + (gx#stx-null? _tl144523144555_)) + (___kont147728147729_ _hd144524144553_) + (___kont147730147731_)))) + (___kont147730147731_)) + (___kont147730147731_)) + (___kont147730147731_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147468147469_))))) - _$e144091_) - _env143355_))))) - (___kont147496147497_ - (lambda (_L143968_ _L143969_ _L143970_) - (let ((__tmp150166 - (let ((__tmp150176 + (___kont147730147731_))))) + _$e144353_) + _env143617_))))) + (___kont147758147759_ + (lambda (_L144230_ _L144231_ _L144232_) + (let ((__tmp150428 + (let ((__tmp150438 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150167 - (let ((__tmp150173 - (let ((__tmp150175 + (__tmp150429 + (let ((__tmp150435 + (let ((__tmp150437 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150174 + (__tmp150436 (let () (declare (not safe)) - (cons _L143970_ + (cons _L144232_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp150175 __tmp150174))) + (cons __tmp150437 __tmp150436))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150168 - (let ((__tmp150169 - (let ((__tmp150170 + (__tmp150430 + (let ((__tmp150431 + (let ((__tmp150432 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150172 + (let ((__tmp150434 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp150171 + (__tmp150433 (let () (declare (not safe)) - (cons _L143969_ '())))) + (cons _L144231_ '())))) (declare (not safe)) - (cons __tmp150172 __tmp150171)))) + (cons __tmp150434 __tmp150433)))) (declare (not safe)) - (cons __tmp150170 '())))) + (cons __tmp150432 '())))) (declare (not safe)) - (cons _L143968_ __tmp150169)))) + (cons _L144230_ __tmp150431)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150173 - __tmp150168)))) + (cons __tmp150435 + __tmp150430)))) (declare (not safe)) - (cons __tmp150176 __tmp150167)))) + (cons __tmp150438 __tmp150429)))) (declare (not safe)) - (_fold-assert-type139414_ - __tmp150166 - _val143354_ - _env143355_)))) - (___kont147498147499_ - (lambda (_L143858_ _L143859_ _L143860_) - (let ((_$e143889_ + (_fold-assert-type139676_ + __tmp150428 + _val143616_ + _env143617_)))) + (___kont147760147761_ + (lambda (_L144120_ _L144121_ _L144122_) + (let ((_$e144151_ (let () (declare (not safe)) - (gxc#identifier-symbol _L143860_)))) + (gxc#identifier-symbol _L144122_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143889_)) + _$e144151_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e143889_))) - ((lambda (_sym143895_) - (let* ((_sym143897_ + (eq? 'gx#stx-eq? _$e144151_))) + ((lambda (_sym144157_) + (let* ((_sym144159_ (let () (declare (not safe)) - (_eqf-symbol139416_ - _sym143895_))) - (__tmp150177 - (let ((__tmp150178 - (let ((__tmp150179 - (let ((__tmp150180 + (_eqf-symbol139678_ + _sym144157_))) + (__tmp150439 + (let ((__tmp150440 + (let ((__tmp150441 + (let ((__tmp150442 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val143354_ '())))) + (cons _val143616_ '())))) (declare (not safe)) - (cons _L143858_ __tmp150180)))) + (cons _L144120_ __tmp150442)))) (declare (not safe)) - (cons _sym143897_ __tmp150179)))) + (cons _sym144159_ __tmp150441)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L143859_ - __tmp150178)))) + (cons _L144121_ + __tmp150440)))) (declare (not safe)) - (cons __tmp150177 _env143355_))) - _$e143889_) - _env143355_)))) - (___kont147500147501_ - (lambda (_L143742_ _L143743_ _L143744_) - (let ((__tmp150181 - (let ((__tmp150194 + (cons __tmp150439 _env143617_))) + _$e144151_) + _env143617_)))) + (___kont147762147763_ + (lambda (_L144004_ _L144005_ _L144006_) + (let ((__tmp150443 + (let ((__tmp150456 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150182 - (let ((__tmp150191 - (let ((__tmp150193 + (__tmp150444 + (let ((__tmp150453 + (let ((__tmp150455 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150192 + (__tmp150454 (let () (declare (not safe)) - (cons _L143744_ + (cons _L144006_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp150193 __tmp150192))) + (cons __tmp150455 __tmp150454))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150183 - (let ((__tmp150188 - (let ((__tmp150190 + (__tmp150445 + (let ((__tmp150450 + (let ((__tmp150452 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150189 - (let () (declare (not safe)) (cons _L143742_ '())))) + (__tmp150451 + (let () (declare (not safe)) (cons _L144004_ '())))) (declare (not safe)) - (cons __tmp150190 __tmp150189))) - (__tmp150184 - (let ((__tmp150185 - (let ((__tmp150187 + (cons __tmp150452 __tmp150451))) + (__tmp150446 + (let ((__tmp150447 + (let ((__tmp150449 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp150186 + (__tmp150448 (let () (declare (not safe)) - (cons _L143743_ '())))) + (cons _L144005_ '())))) (declare (not safe)) - (cons __tmp150187 __tmp150186)))) + (cons __tmp150449 __tmp150448)))) (declare (not safe)) - (cons __tmp150185 '())))) + (cons __tmp150447 '())))) (declare (not safe)) - (cons __tmp150188 __tmp150184)))) + (cons __tmp150450 __tmp150446)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150191 - __tmp150183)))) + (cons __tmp150453 + __tmp150445)))) (declare (not safe)) - (cons __tmp150194 __tmp150182)))) + (cons __tmp150456 __tmp150444)))) (declare (not safe)) - (_fold-assert-type139414_ - __tmp150181 - _val143354_ - _env143355_)))) - (___kont147502147503_ - (lambda (_L143626_ _L143627_ _L143628_) - (let ((__tmp150195 + (_fold-assert-type139676_ + __tmp150443 + _val143616_ + _env143617_)))) + (___kont147764147765_ + (lambda (_L143888_ _L143889_ _L143890_) + (let ((__tmp150457 (let () (declare (not safe)) (gxc#apply-expression-subst - _L143627_ - _L143628_ - _L143626_)))) + _L143889_ + _L143890_ + _L143888_)))) (declare (not safe)) - (_fold-assert-type139414_ - __tmp150195 - _val143354_ - _env143355_)))) - (___kont147504147505_ (lambda () _env143355_))) + (_fold-assert-type139676_ + __tmp150457 + _val143616_ + _env143617_)))) + (___kont147766147767_ (lambda () _env143617_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147490147491_)) - (let ((_e143369144318_ + (gx#stx-pair? ___stx147752147753_)) + (let ((_e143631144580_ (let () (declare (not safe)) - (gx#stx-e ___stx147490147491_)))) - (let ((_tl143367144323_ + (gx#stx-e ___stx147752147753_)))) + (let ((_tl143629144585_ (let () (declare (not safe)) - (##cdr _e143369144318_))) - (_hd143368144321_ + (##cdr _e143631144580_))) + (_hd143630144583_ (let () (declare (not safe)) - (##car _e143369144318_)))) + (##car _e143631144580_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143368144321_)) + (gx#identifier? _hd143630144583_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd143368144321_)) + _hd143630144583_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143367144323_)) - (let ((_e143372144326_ + (gx#stx-pair? _tl143629144585_)) + (let ((_e143634144588_ (let () (declare (not safe)) (gx#stx-e - _tl143367144323_)))) - (let ((_tl143370144331_ + _tl143629144585_)))) + (let ((_tl143632144593_ (let () (declare (not safe)) - (##cdr _e143372144326_))) - (_hd143371144329_ + (##cdr _e143634144588_))) + (_hd143633144591_ (let () (declare (not safe)) - (##car _e143372144326_)))) + (##car _e143634144588_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143371144329_)) - (let ((_e143375144334_ + _hd143633144591_)) + (let ((_e143637144596_ (let () (declare (not safe)) (gx#stx-e - _hd143371144329_)))) - (let ((_tl143373144339_ + _hd143633144591_)))) + (let ((_tl143635144601_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143375144334_))) - (_hd143374144337_ - (let () (declare (not safe)) (##car _e143375144334_)))) + (##cdr _e143637144596_))) + (_hd143636144599_ + (let () (declare (not safe)) (##car _e143637144596_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143374144337_)) + (gx#identifier? _hd143636144599_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143374144337_)) + (gx#stx-eq? '%#ref _hd143636144599_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143373144339_)) - (let ((_e143378144342_ + (gx#stx-pair? _tl143635144601_)) + (let ((_e143640144604_ (let () (declare (not safe)) - (gx#stx-e _tl143373144339_)))) - (let ((_tl143376144347_ + (gx#stx-e _tl143635144601_)))) + (let ((_tl143638144609_ (let () (declare (not safe)) - (##cdr _e143378144342_))) - (_hd143377144345_ + (##cdr _e143640144604_))) + (_hd143639144607_ (let () (declare (not safe)) - (##car _e143378144342_)))) + (##car _e143640144604_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143376144347_)) + (gx#stx-null? _tl143638144609_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143370144331_)) - (let ((_e143381144350_ + (gx#stx-pair? _tl143632144593_)) + (let ((_e143643144612_ (let () (declare (not safe)) (gx#stx-e - _tl143370144331_)))) - (let ((_tl143379144355_ + _tl143632144593_)))) + (let ((_tl143641144617_ (let () (declare (not safe)) - (##cdr _e143381144350_))) - (_hd143380144353_ + (##cdr _e143643144612_))) + (_hd143642144615_ (let () (declare (not safe)) - (##car _e143381144350_)))) + (##car _e143643144612_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143380144353_)) - (let ((_e143384144358_ + _hd143642144615_)) + (let ((_e143646144620_ (let () (declare (not safe)) (gx#stx-e - _hd143380144353_)))) - (let ((_tl143382144363_ + _hd143642144615_)))) + (let ((_tl143644144625_ (let () (declare (not safe)) - (##cdr _e143384144358_))) - (_hd143383144361_ + (##cdr _e143646144620_))) + (_hd143645144623_ (let () (declare (not safe)) - (##car _e143384144358_)))) + (##car _e143646144620_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd143383144361_)) + (gx#stx-eq? '%#ref _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143387144366_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143649144628_ (let () (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143385144371_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143647144633_ (let () (declare (not safe)) - (##cdr _e143387144366_))) - (_hd143386144369_ + (##cdr _e143649144628_))) + (_hd143648144631_ (let () (declare (not safe)) - (##car _e143387144366_)))) + (##car _e143649144628_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143385144371_)) + (gx#stx-null? _tl143647144633_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143379144355_)) - (___kont147492147493_ - _hd143386144369_ - _hd143377144345_) + (gx#stx-null? _tl143641144617_)) + (___kont147754147755_ + _hd143648144631_ + _hd143639144607_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143379144355_)) - (let ((_e143408144040_ + (gx#stx-pair? _tl143641144617_)) + (let ((_e143670144302_ (let () (declare (not safe)) (gx#stx-e - _tl143379144355_)))) - (let ((_tl143406144045_ + _tl143641144617_)))) + (let ((_tl143668144307_ (let () (declare (not safe)) - (##cdr _e143408144040_))) - (_hd143407144043_ + (##cdr _e143670144302_))) + (_hd143669144305_ (let () (declare (not safe)) - (##car _e143408144040_)))) + (##car _e143670144302_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143407144043_)) - (let ((_e143411144048_ + _hd143669144305_)) + (let ((_e143673144310_ (let () (declare (not safe)) (gx#stx-e - _hd143407144043_)))) - (let ((_tl143409144053_ + _hd143669144305_)))) + (let ((_tl143671144315_ (let () (declare (not safe)) - (##cdr _e143411144048_))) - (_hd143410144051_ + (##cdr _e143673144310_))) + (_hd143672144313_ (let () (declare (not safe)) - (##car _e143411144048_)))) + (##car _e143673144310_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143410144051_)) + _hd143672144313_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd143410144051_)) + (gx#stx-eq? '%#quote _hd143672144313_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143409144053_)) - (let ((_e143414144056_ + (gx#stx-pair? _tl143671144315_)) + (let ((_e143676144318_ (let () (declare (not safe)) - (gx#stx-e _tl143409144053_)))) - (let ((_tl143412144061_ + (gx#stx-e _tl143671144315_)))) + (let ((_tl143674144323_ (let () (declare (not safe)) - (##cdr _e143414144056_))) - (_hd143413144059_ + (##cdr _e143676144318_))) + (_hd143675144321_ (let () (declare (not safe)) - (##car _e143414144056_)))) + (##car _e143676144318_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143412144061_)) + (gx#stx-null? _tl143674144323_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147494147495_ - _hd143413144059_ - _hd143380144353_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) + (gx#stx-null? _tl143668144307_)) + (___kont147756147757_ + _hd143675144321_ + _hd143642144615_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143410144051_)) + (gx#stx-eq? '%#quote-syntax _hd143672144313_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143409144053_)) - (let ((_e143474143850_ + (gx#stx-pair? _tl143671144315_)) + (let ((_e143736144112_ (let () (declare (not safe)) - (gx#stx-e _tl143409144053_)))) - (let ((_tl143472143855_ + (gx#stx-e _tl143671144315_)))) + (let ((_tl143734144117_ (let () (declare (not safe)) - (##cdr _e143474143850_))) - (_hd143473143853_ + (##cdr _e143736144112_))) + (_hd143735144115_ (let () (declare (not safe)) - (##car _e143474143850_)))) + (##car _e143736144112_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143472143855_)) + (gx#stx-null? _tl143734144117_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147498147499_ - _hd143473143853_ - _hd143386144369_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) - (___kont147504147505_))) - (___kont147504147505_)))) + (gx#stx-null? _tl143668144307_)) + (___kont147760147761_ + _hd143735144115_ + _hd143648144631_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) + (___kont147766147767_))) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)))) - (___kont147504147505_))) + (___kont147766147767_)))) + (___kont147766147767_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143379144355_)) - (let ((_e143408144040_ + (gx#stx-pair? _tl143641144617_)) + (let ((_e143670144302_ (let () (declare (not safe)) - (gx#stx-e _tl143379144355_)))) - (let ((_tl143406144045_ + (gx#stx-e _tl143641144617_)))) + (let ((_tl143668144307_ (let () (declare (not safe)) - (##cdr _e143408144040_))) - (_hd143407144043_ + (##cdr _e143670144302_))) + (_hd143669144305_ (let () (declare (not safe)) - (##car _e143408144040_)))) + (##car _e143670144302_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143407144043_)) - (let ((_e143411144048_ + (gx#stx-pair? _hd143669144305_)) + (let ((_e143673144310_ (let () (declare (not safe)) (gx#stx-e - _hd143407144043_)))) - (let ((_tl143409144053_ + _hd143669144305_)))) + (let ((_tl143671144315_ (let () (declare (not safe)) - (##cdr _e143411144048_))) - (_hd143410144051_ + (##cdr _e143673144310_))) + (_hd143672144313_ (let () (declare (not safe)) - (##car _e143411144048_)))) + (##car _e143673144310_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143410144051_)) + _hd143672144313_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143410144051_)) + _hd143672144313_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl143409144053_)) - (let ((_e143414144056_ + (gx#stx-pair? _tl143671144315_)) + (let ((_e143676144318_ (let () (declare (not safe)) - (gx#stx-e _tl143409144053_)))) - (let ((_tl143412144061_ + (gx#stx-e _tl143671144315_)))) + (let ((_tl143674144323_ (let () (declare (not safe)) - (##cdr _e143414144056_))) - (_hd143413144059_ + (##cdr _e143676144318_))) + (_hd143675144321_ (let () (declare (not safe)) - (##car _e143414144056_)))) + (##car _e143676144318_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143412144061_)) + (gx#stx-null? _tl143674144323_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147494147495_ - _hd143413144059_ - _hd143380144353_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) - (___kont147504147505_)) + (gx#stx-null? _tl143668144307_)) + (___kont147756147757_ + _hd143675144321_ + _hd143642144615_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) + (___kont147766147767_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)))) - (___kont147504147505_)))) - (___kont147504147505_))))) + (___kont147766147767_)))) + (___kont147766147767_)))) + (___kont147766147767_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143379144355_)) - (let ((_e143408144040_ + (gx#stx-pair? _tl143641144617_)) + (let ((_e143670144302_ (let () (declare (not safe)) - (gx#stx-e _tl143379144355_)))) - (let ((_tl143406144045_ + (gx#stx-e _tl143641144617_)))) + (let ((_tl143668144307_ (let () (declare (not safe)) - (##cdr _e143408144040_))) - (_hd143407144043_ + (##cdr _e143670144302_))) + (_hd143669144305_ (let () (declare (not safe)) - (##car _e143408144040_)))) + (##car _e143670144302_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143407144043_)) - (let ((_e143411144048_ + (gx#stx-pair? _hd143669144305_)) + (let ((_e143673144310_ (let () (declare (not safe)) - (gx#stx-e _hd143407144043_)))) - (let ((_tl143409144053_ + (gx#stx-e _hd143669144305_)))) + (let ((_tl143671144315_ (let () (declare (not safe)) - (##cdr _e143411144048_))) - (_hd143410144051_ + (##cdr _e143673144310_))) + (_hd143672144313_ (let () (declare (not safe)) - (##car _e143411144048_)))) + (##car _e143673144310_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143410144051_)) + _hd143672144313_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143410144051_)) + _hd143672144313_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143409144053_)) - (let ((_e143414144056_ + _tl143671144315_)) + (let ((_e143676144318_ (let () (declare (not safe)) (gx#stx-e - _tl143409144053_)))) - (let ((_tl143412144061_ + _tl143671144315_)))) + (let ((_tl143674144323_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143414144056_))) - (_hd143413144059_ - (let () (declare (not safe)) (##car _e143414144056_)))) + (##cdr _e143676144318_))) + (_hd143675144321_ + (let () (declare (not safe)) (##car _e143676144318_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143412144061_)) + (gx#stx-null? _tl143674144323_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147494147495_ - _hd143413144059_ - _hd143380144353_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) + (gx#stx-null? _tl143668144307_)) + (___kont147756147757_ + _hd143675144321_ + _hd143642144615_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)))) - (___kont147504147505_))) + (___kont147766147767_)) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)))) + (___kont147766147767_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143379144355_)) - (let ((_e143408144040_ + (gx#stx-pair? _tl143641144617_)) + (let ((_e143670144302_ (let () (declare (not safe)) - (gx#stx-e _tl143379144355_)))) - (let ((_tl143406144045_ + (gx#stx-e _tl143641144617_)))) + (let ((_tl143668144307_ (let () (declare (not safe)) - (##cdr _e143408144040_))) - (_hd143407144043_ + (##cdr _e143670144302_))) + (_hd143669144305_ (let () (declare (not safe)) - (##car _e143408144040_)))) + (##car _e143670144302_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143407144043_)) - (let ((_e143411144048_ + (gx#stx-pair? _hd143669144305_)) + (let ((_e143673144310_ (let () (declare (not safe)) - (gx#stx-e _hd143407144043_)))) - (let ((_tl143409144053_ + (gx#stx-e _hd143669144305_)))) + (let ((_tl143671144315_ (let () (declare (not safe)) - (##cdr _e143411144048_))) - (_hd143410144051_ + (##cdr _e143673144310_))) + (_hd143672144313_ (let () (declare (not safe)) - (##car _e143411144048_)))) + (##car _e143673144310_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143410144051_)) + (gx#identifier? _hd143672144313_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143410144051_)) + _hd143672144313_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143409144053_)) - (let ((_e143414144056_ + _tl143671144315_)) + (let ((_e143676144318_ (let () (declare (not safe)) (gx#stx-e - _tl143409144053_)))) - (let ((_tl143412144061_ + _tl143671144315_)))) + (let ((_tl143674144323_ (let () (declare (not safe)) - (##cdr _e143414144056_))) - (_hd143413144059_ + (##cdr _e143676144318_))) + (_hd143675144321_ (let () (declare (not safe)) - (##car _e143414144056_)))) + (##car _e143676144318_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143412144061_)) + _tl143674144323_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147494147495_ - _hd143413144059_ - _hd143380144353_ - _hd143377144345_) + (gx#stx-null? _tl143668144307_)) + (___kont147756147757_ + _hd143675144321_ + _hd143642144615_ + _hd143639144607_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143383144361_)) + (gx#stx-eq? '%#quote _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143438143952_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143700144214_ (let () (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143436143957_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143698144219_ (let () (declare (not safe)) - (##cdr _e143438143952_))) - (_hd143437143955_ + (##cdr _e143700144214_))) + (_hd143699144217_ (let () (declare (not safe)) - (##car _e143438143952_)))) - (___kont147504147505_))) - (___kont147504147505_)) + (##car _e143700144214_)))) + (___kont147766147767_))) + (___kont147766147767_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143383144361_)) + (gx#stx-eq? '%#quote-syntax _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143498143710_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143760143972_ (let () (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143496143715_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143758143977_ (let () (declare (not safe)) - (##cdr _e143498143710_))) - (_hd143497143713_ + (##cdr _e143760143972_))) + (_hd143759143975_ (let () (declare (not safe)) - (##car _e143498143710_)))) - (___kont147504147505_))) - (___kont147504147505_)) - (___kont147504147505_)))) + (##car _e143760143972_)))) + (___kont147766147767_))) + (___kont147766147767_)) + (___kont147766147767_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143383144361_)) + (gx#stx-eq? '%#quote _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143438143952_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143700144214_ (let () (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143436143957_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143698144219_ (let () (declare (not safe)) - (##cdr _e143438143952_))) - (_hd143437143955_ + (##cdr _e143700144214_))) + (_hd143699144217_ (let () (declare (not safe)) - (##car _e143438143952_)))) + (##car _e143700144214_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143436143957_)) + (gx#stx-null? _tl143698144219_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147496147497_ - _hd143407144043_ - _hd143437143955_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) + (gx#stx-null? _tl143668144307_)) + (___kont147758147759_ + _hd143669144305_ + _hd143699144217_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143383144361_)) + (gx#stx-eq? '%#quote-syntax _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143498143710_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143760143972_ (let () (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143496143715_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143758143977_ (let () (declare (not safe)) - (##cdr _e143498143710_))) - (_hd143497143713_ + (##cdr _e143760143972_))) + (_hd143759143975_ (let () (declare (not safe)) - (##car _e143498143710_)))) - (___kont147504147505_))) - (___kont147504147505_)) - (___kont147504147505_)))))) + (##car _e143760143972_)))) + (___kont147766147767_))) + (___kont147766147767_)) + (___kont147766147767_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143382144363_)) - (let ((_e143438143952_ + _tl143644144625_)) + (let ((_e143700144214_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143436143957_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143698144219_ (let () (declare (not safe)) - (##cdr _e143438143952_))) - (_hd143437143955_ + (##cdr _e143700144214_))) + (_hd143699144217_ (let () (declare (not safe)) - (##car _e143438143952_)))) + (##car _e143700144214_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143436143957_)) + (gx#stx-null? _tl143698144219_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147496147497_ - _hd143407144043_ - _hd143437143955_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) + (gx#stx-null? _tl143668144307_)) + (___kont147758147759_ + _hd143669144305_ + _hd143699144217_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143498143710_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143760143972_ (let () (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143496143715_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143758143977_ (let () (declare (not safe)) - (##cdr _e143498143710_))) - (_hd143497143713_ + (##cdr _e143760143972_))) + (_hd143759143975_ (let () (declare (not safe)) - (##car _e143498143710_)))) - (___kont147504147505_))) - (___kont147504147505_)) - (___kont147504147505_)))) + (##car _e143760143972_)))) + (___kont147766147767_))) + (___kont147766147767_)) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143382144363_)) - (let ((_e143438143952_ + _tl143644144625_)) + (let ((_e143700144214_ (let () (declare (not safe)) (gx#stx-e - _tl143382144363_)))) - (let ((_tl143436143957_ + _tl143644144625_)))) + (let ((_tl143698144219_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143438143952_))) - (_hd143437143955_ - (let () (declare (not safe)) (##car _e143438143952_)))) + (##cdr _e143700144214_))) + (_hd143699144217_ + (let () (declare (not safe)) (##car _e143700144214_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143436143957_)) + (gx#stx-null? _tl143698144219_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147496147497_ - _hd143407144043_ - _hd143437143955_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) + (gx#stx-null? _tl143668144307_)) + (___kont147758147759_ + _hd143669144305_ + _hd143699144217_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)) + (___kont147766147767_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143382144363_)) - (let ((_e143498143710_ + _tl143644144625_)) + (let ((_e143760143972_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143496143715_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143758143977_ (let () (declare (not safe)) - (##cdr _e143498143710_))) - (_hd143497143713_ + (##cdr _e143760143972_))) + (_hd143759143975_ (let () (declare (not safe)) - (##car _e143498143710_)))) + (##car _e143760143972_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143496143715_)) + (gx#stx-null? _tl143758143977_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143410144051_)) + (gx#stx-eq? '%#ref _hd143672144313_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143409144053_)) - (let ((_e143507143734_ + (gx#stx-pair? _tl143671144315_)) + (let ((_e143769143996_ (let () (declare (not safe)) - (gx#stx-e _tl143409144053_)))) - (let ((_tl143505143739_ + (gx#stx-e _tl143671144315_)))) + (let ((_tl143767144001_ (let () (declare (not safe)) - (##cdr _e143507143734_))) - (_hd143506143737_ + (##cdr _e143769143996_))) + (_hd143768143999_ (let () (declare (not safe)) - (##car _e143507143734_)))) + (##car _e143769143996_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143505143739_)) + (gx#stx-null? _tl143767144001_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147500147501_ - _hd143506143737_ - _hd143497143713_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) + (gx#stx-null? _tl143668144307_)) + (___kont147762147763_ + _hd143768143999_ + _hd143759143975_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)))) + (___kont147766147767_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143382144363_)) - (let ((_e143438143952_ + _tl143644144625_)) + (let ((_e143700144214_ (let () (declare (not safe)) (gx#stx-e - _tl143382144363_)))) - (let ((_tl143436143957_ + _tl143644144625_)))) + (let ((_tl143698144219_ (let () (declare (not safe)) - (##cdr _e143438143952_))) - (_hd143437143955_ + (##cdr _e143700144214_))) + (_hd143699144217_ (let () (declare (not safe)) - (##car _e143438143952_)))) + (##car _e143700144214_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143436143957_)) + _tl143698144219_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143406144045_)) - (___kont147496147497_ - _hd143407144043_ - _hd143437143955_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) + (gx#stx-null? _tl143668144307_)) + (___kont147758147759_ + _hd143669144305_ + _hd143699144217_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)) + (___kont147766147767_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143382144363_)) - (let ((_e143498143710_ + _tl143644144625_)) + (let ((_e143760143972_ (let () (declare (not safe)) (gx#stx-e - _tl143382144363_)))) - (let ((_tl143496143715_ + _tl143644144625_)))) + (let ((_tl143758143977_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143498143710_))) - (_hd143497143713_ - (let () (declare (not safe)) (##car _e143498143710_)))) - (___kont147504147505_))) + (##cdr _e143760143972_))) + (_hd143759143975_ + (let () (declare (not safe)) (##car _e143760143972_)))) + (___kont147766147767_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)) - (___kont147504147505_)))))) + (___kont147766147767_)) + (___kont147766147767_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143383144361_)) + (gx#stx-eq? '%#quote _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143438143952_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143700144214_ (let () (declare (not safe)) (gx#stx-e - _tl143382144363_)))) - (let ((_tl143436143957_ + _tl143644144625_)))) + (let ((_tl143698144219_ (let () (declare (not safe)) - (##cdr _e143438143952_))) - (_hd143437143955_ + (##cdr _e143700144214_))) + (_hd143699144217_ (let () (declare (not safe)) - (##car _e143438143952_)))) + (##car _e143700144214_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143436143957_)) + _tl143698144219_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143406144045_)) - (___kont147496147497_ - _hd143407144043_ - _hd143437143955_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) + _tl143668144307_)) + (___kont147758147759_ + _hd143669144305_ + _hd143699144217_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143498143710_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143760143972_ (let () (declare (not safe)) (gx#stx-e - _tl143382144363_)))) - (let ((_tl143496143715_ + _tl143644144625_)))) + (let ((_tl143758143977_ (let () (declare (not safe)) - (##cdr _e143498143710_))) - (_hd143497143713_ + (##cdr _e143760143972_))) + (_hd143759143975_ (let () (declare (not safe)) - (##car _e143498143710_)))) - (___kont147504147505_))) - (___kont147504147505_)) - (___kont147504147505_)))))) + (##car _e143760143972_)))) + (___kont147766147767_))) + (___kont147766147767_)) + (___kont147766147767_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143383144361_)) + (gx#stx-eq? '%#quote _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143438143952_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143700144214_ (let () (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143436143957_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143698144219_ (let () (declare (not safe)) - (##cdr _e143438143952_))) - (_hd143437143955_ + (##cdr _e143700144214_))) + (_hd143699144217_ (let () (declare (not safe)) - (##car _e143438143952_)))) - (___kont147504147505_))) - (___kont147504147505_)) + (##car _e143700144214_)))) + (___kont147766147767_))) + (___kont147766147767_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143383144361_)) + _hd143645144623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143382144363_)) - (let ((_e143498143710_ + (gx#stx-pair? _tl143644144625_)) + (let ((_e143760143972_ (let () (declare (not safe)) - (gx#stx-e _tl143382144363_)))) - (let ((_tl143496143715_ + (gx#stx-e _tl143644144625_)))) + (let ((_tl143758143977_ (let () (declare (not safe)) - (##cdr _e143498143710_))) - (_hd143497143713_ + (##cdr _e143760143972_))) + (_hd143759143975_ (let () (declare (not safe)) - (##car _e143498143710_)))) - (___kont147504147505_))) - (___kont147504147505_)) - (___kont147504147505_))))) + (##car _e143760143972_)))) + (___kont147766147767_))) + (___kont147766147767_)) + (___kont147766147767_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143379144355_)) - (let ((_e143408144040_ + (gx#stx-pair? _tl143641144617_)) + (let ((_e143670144302_ (let () (declare (not safe)) - (gx#stx-e _tl143379144355_)))) - (let ((_tl143406144045_ + (gx#stx-e _tl143641144617_)))) + (let ((_tl143668144307_ (let () (declare (not safe)) - (##cdr _e143408144040_))) - (_hd143407144043_ + (##cdr _e143670144302_))) + (_hd143669144305_ (let () (declare (not safe)) - (##car _e143408144040_)))) + (##car _e143670144302_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143407144043_)) - (let ((_e143411144048_ + (gx#stx-pair? _hd143669144305_)) + (let ((_e143673144310_ (let () (declare (not safe)) - (gx#stx-e _hd143407144043_)))) - (let ((_tl143409144053_ + (gx#stx-e _hd143669144305_)))) + (let ((_tl143671144315_ (let () (declare (not safe)) - (##cdr _e143411144048_))) - (_hd143410144051_ + (##cdr _e143673144310_))) + (_hd143672144313_ (let () (declare (not safe)) - (##car _e143411144048_)))) + (##car _e143673144310_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143410144051_)) + (gx#identifier? _hd143672144313_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143410144051_)) + _hd143672144313_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143409144053_)) - (let ((_e143414144056_ + (gx#stx-pair? _tl143671144315_)) + (let ((_e143676144318_ (let () (declare (not safe)) (gx#stx-e - _tl143409144053_)))) - (let ((_tl143412144061_ + _tl143671144315_)))) + (let ((_tl143674144323_ (let () (declare (not safe)) - (##cdr _e143414144056_))) - (_hd143413144059_ + (##cdr _e143676144318_))) + (_hd143675144321_ (let () (declare (not safe)) - (##car _e143414144056_)))) + (##car _e143676144318_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143412144061_)) + _tl143674144323_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143406144045_)) - (___kont147494147495_ - _hd143413144059_ - _hd143380144353_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)))) - (___kont147504147505_))))) + _tl143668144307_)) + (___kont147756147757_ + _hd143675144321_ + _hd143642144615_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)))) + (___kont147766147767_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl143379144355_)) - (let ((_e143408144040_ + _tl143641144617_)) + (let ((_e143670144302_ (let () (declare (not safe)) (gx#stx-e - _tl143379144355_)))) - (let ((_tl143406144045_ + _tl143641144617_)))) + (let ((_tl143668144307_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143408144040_))) - (_hd143407144043_ - (let () (declare (not safe)) (##car _e143408144040_)))) + (##cdr _e143670144302_))) + (_hd143669144305_ + (let () (declare (not safe)) (##car _e143670144302_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143407144043_)) - (let ((_e143411144048_ + (gx#stx-pair? _hd143669144305_)) + (let ((_e143673144310_ (let () (declare (not safe)) - (gx#stx-e _hd143407144043_)))) - (let ((_tl143409144053_ + (gx#stx-e _hd143669144305_)))) + (let ((_tl143671144315_ (let () (declare (not safe)) - (##cdr _e143411144048_))) - (_hd143410144051_ + (##cdr _e143673144310_))) + (_hd143672144313_ (let () (declare (not safe)) - (##car _e143411144048_)))) + (##car _e143673144310_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143410144051_)) + (gx#identifier? _hd143672144313_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143410144051_)) + (gx#stx-eq? '%#quote _hd143672144313_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143409144053_)) - (let ((_e143414144056_ + (gx#stx-pair? _tl143671144315_)) + (let ((_e143676144318_ (let () (declare (not safe)) - (gx#stx-e _tl143409144053_)))) - (let ((_tl143412144061_ + (gx#stx-e _tl143671144315_)))) + (let ((_tl143674144323_ (let () (declare (not safe)) - (##cdr _e143414144056_))) - (_hd143413144059_ + (##cdr _e143676144318_))) + (_hd143675144321_ (let () (declare (not safe)) - (##car _e143414144056_)))) + (##car _e143676144318_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143412144061_)) + (gx#stx-null? _tl143674144323_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143406144045_)) - (___kont147494147495_ - _hd143413144059_ - _hd143380144353_ - _hd143377144345_) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)))) + _tl143668144307_)) + (___kont147756147757_ + _hd143675144321_ + _hd143642144615_ + _hd143639144607_) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_))))) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)) + (___kont147766147767_))))) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd143374144337_)) + (gx#stx-eq? '%#lambda _hd143636144599_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143373144339_)) - (let ((_e143522143578_ + (gx#stx-pair? _tl143635144601_)) + (let ((_e143784143840_ (let () (declare (not safe)) - (gx#stx-e _tl143373144339_)))) - (let ((_tl143520143583_ + (gx#stx-e _tl143635144601_)))) + (let ((_tl143782143845_ (let () (declare (not safe)) - (##cdr _e143522143578_))) - (_hd143521143581_ + (##cdr _e143784143840_))) + (_hd143783143843_ (let () (declare (not safe)) - (##car _e143522143578_)))) + (##car _e143784143840_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143521143581_)) - (let ((_e143525143586_ + (gx#stx-pair? _hd143783143843_)) + (let ((_e143787143848_ (let () (declare (not safe)) (gx#stx-e - _hd143521143581_)))) - (let ((_tl143523143591_ + _hd143783143843_)))) + (let ((_tl143785143853_ (let () (declare (not safe)) - (##cdr _e143525143586_))) - (_hd143524143589_ + (##cdr _e143787143848_))) + (_hd143786143851_ (let () (declare (not safe)) - (##car _e143525143586_)))) + (##car _e143787143848_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143523143591_)) + _tl143785143853_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143520143583_)) - (let ((_e143528143594_ + _tl143782143845_)) + (let ((_e143790143856_ (let () (declare (not safe)) (gx#stx-e - _tl143520143583_)))) - (let ((_tl143526143599_ + _tl143782143845_)))) + (let ((_tl143788143861_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143528143594_))) - (_hd143527143597_ - (let () (declare (not safe)) (##car _e143528143594_)))) + (##cdr _e143790143856_))) + (_hd143789143859_ + (let () (declare (not safe)) (##car _e143790143856_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143526143599_)) + (gx#stx-null? _tl143788143861_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143370144331_)) - (let ((_e143531143602_ + (gx#stx-pair? _tl143632144593_)) + (let ((_e143793143864_ (let () (declare (not safe)) - (gx#stx-e _tl143370144331_)))) - (let ((_tl143529143607_ + (gx#stx-e _tl143632144593_)))) + (let ((_tl143791143869_ (let () (declare (not safe)) - (##cdr _e143531143602_))) - (_hd143530143605_ + (##cdr _e143793143864_))) + (_hd143792143867_ (let () (declare (not safe)) - (##car _e143531143602_)))) + (##car _e143793143864_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143530143605_)) - (let ((_e143534143610_ + (gx#stx-pair? _hd143792143867_)) + (let ((_e143796143872_ (let () (declare (not safe)) - (gx#stx-e _hd143530143605_)))) - (let ((_tl143532143615_ + (gx#stx-e _hd143792143867_)))) + (let ((_tl143794143877_ (let () (declare (not safe)) - (##cdr _e143534143610_))) - (_hd143533143613_ + (##cdr _e143796143872_))) + (_hd143795143875_ (let () (declare (not safe)) - (##car _e143534143610_)))) + (##car _e143796143872_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143533143613_)) + (gx#identifier? _hd143795143875_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd143533143613_)) + _hd143795143875_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143532143615_)) - (let ((_e143537143618_ + _tl143794143877_)) + (let ((_e143799143880_ (let () (declare (not safe)) (gx#stx-e - _tl143532143615_)))) - (let ((_tl143535143623_ + _tl143794143877_)))) + (let ((_tl143797143885_ (let () (declare (not safe)) - (##cdr _e143537143618_))) - (_hd143536143621_ + (##cdr _e143799143880_))) + (_hd143798143883_ (let () (declare (not safe)) - (##car _e143537143618_)))) + (##car _e143799143880_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143535143623_)) + _tl143797143885_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143529143607_)) - (___kont147502147503_ - _hd143536143621_ - _hd143527143597_ - _hd143524143589_) - (___kont147504147505_)) - (___kont147504147505_)))) + (gx#stx-null? _tl143791143869_)) + (___kont147764147765_ + _hd143798143883_ + _hd143789143859_ + _hd143786143851_) + (___kont147766147767_)) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)))) - (___kont147504147505_)) - (___kont147504147505_)))) + (___kont147766147767_)) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)))) + (___kont147766147767_)) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)))) - (___kont147504147505_)) - (___kont147504147505_))) - (___kont147504147505_)))) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)))) + (___kont147766147767_)) + (___kont147766147767_))) + (___kont147766147767_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147504147505_)))) - (___kont147504147505_)) - (___kont147504147505_)) - (___kont147504147505_)))) - (___kont147504147505_)))))) - (_countf-symbol139415_ - (lambda (_id143345_) - (let ((_$e143347_ + (___kont147766147767_)))) + (___kont147766147767_)) + (___kont147766147767_)) + (___kont147766147767_)))) + (___kont147766147767_)))))) + (_countf-symbol139677_ + (lambda (_id143607_) + (let ((_$e143609_ (let () (declare (not safe)) - (gxc#identifier-symbol _id143345_)))) + (gxc#identifier-symbol _id143607_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e143347_)) + (eq? '##vector-length _$e143609_)) (let () (declare (not safe)) - (eq? 'vector-length _$e143347_))) + (eq? 'vector-length _$e143609_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e143347_)) + (eq? 'values-count _$e143609_)) 'values-count '#f))))) - (_eqf-symbol139416_ - (lambda (_sym143331_) - (let ((_$e143333_ _sym143331_)) + (_eqf-symbol139678_ + (lambda (_sym143593_) + (let ((_$e143595_ _sym143593_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e143333_)) + (eq? '##eq? _$e143595_)) (let () (declare (not safe)) - (eq? 'eq? _$e143333_))) + (eq? 'eq? _$e143595_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e143333_)) + (eq? '##eqv? _$e143595_)) (let () (declare (not safe)) - (eq? 'eqv? _$e143333_))) + (eq? 'eqv? _$e143595_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e143333_)) + (eq? '##equal? _$e143595_)) (let () (declare (not safe)) - (eq? 'equal? _$e143333_))) + (eq? 'equal? _$e143595_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143333_)) + _$e143595_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e143333_)) + (eq? 'gx#stx-eq? _$e143595_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?139417_ - (lambda (_sym143314_) - (let ((_$e143316_ _sym143314_)) + (_eqf-symbol?139679_ + (lambda (_sym143576_) + (let ((_$e143578_ _sym143576_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e143316_)) + (eq? 'eq? _$e143578_)) (let () (declare (not safe)) - (eq? 'eqv? _$e143316_)) + (eq? 'eqv? _$e143578_)) (let () (declare (not safe)) - (eq? 'equal? _$e143316_)) + (eq? 'equal? _$e143578_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e143316_)) + (eq? 'free-identifier=? _$e143578_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e143316_))) + (eq? 'stx-eq? _$e143578_))) '#t '#f)))) - (_do-assert!139418_ - (lambda (_assert143305_ _type143306_ _K143307_) - (let ((_unwind-assert143309_ _env-assert139408_) - (_unwind-type143310_ _env-type139409_)) - (set! _env-assert139408_ _assert143305_) - (set! _env-type139409_ _type143306_) - (let ((_val143312_ (_K143307_))) - (set! _env-assert139408_ _unwind-assert143309_) - (set! _env-type139409_ _unwind-type143310_) - _val143312_)))) - (_do-bind139419_ - (lambda (_bind143302_ _K143303_) - (if (let () (declare (not safe)) (pair? _bind143302_)) - (let ((__tmp150196 + (_do-assert!139680_ + (lambda (_assert143567_ _type143568_ _K143569_) + (let ((_unwind-assert143571_ _env-assert139670_) + (_unwind-type143572_ _env-type139671_)) + (set! _env-assert139670_ _assert143567_) + (set! _env-type139671_ _type143568_) + (let ((_val143574_ (_K143569_))) + (set! _env-assert139670_ _unwind-assert143571_) + (set! _env-type139671_ _unwind-type143572_) + _val143574_)))) + (_do-bind139681_ + (lambda (_bind143564_ _K143565_) + (if (let () (declare (not safe)) (pair? _bind143564_)) + (let ((__tmp150458 (let () (declare (not safe)) - (_fold-bind-env139420_ - _bind143302_ - _env-bind139410_)))) + (_fold-bind-env139682_ + _bind143564_ + _env-bind139672_)))) (declare (not safe)) - (_do-bind!139421_ __tmp150196 _K143303_)) - (_K143303_)))) - (_fold-bind-env139420_ - (lambda (_bind143231_ _env143232_) - (let _lp143234_ ((_rest143236_ _bind143231_) - (_env143237_ _env143232_)) - (let* ((_rest143238143246_ _rest143236_) - (_else143240143254_ (lambda () _env143237_)) - (_K143242143290_ - (lambda (_rest143257_ _bind143258_) - (let* ((_bind143259143266_ _bind143258_) - (_E143261143270_ + (_do-bind!139683_ __tmp150458 _K143565_)) + (_K143565_)))) + (_fold-bind-env139682_ + (lambda (_bind143493_ _env143494_) + (let _lp143496_ ((_rest143498_ _bind143493_) + (_env143499_ _env143494_)) + (let* ((_rest143500143508_ _rest143498_) + (_else143502143516_ (lambda () _env143499_)) + (_K143504143552_ + (lambda (_rest143519_ _bind143520_) + (let* ((_bind143521143528_ _bind143520_) + (_E143523143532_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind143259143266_)))) - (_K143262143278_ - (lambda (_expr143273_ _id143274_) - (let* ((_sexpr143276_ + _bind143521143528_)))) + (_K143524143540_ + (lambda (_expr143535_ _id143536_) + (let* ((_sexpr143538_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr143273_))) - (__tmp150197 - (let ((__tmp150198 + _expr143535_))) + (__tmp150459 + (let ((__tmp150460 (let () (declare (not safe)) - (cons _sexpr143276_ + (cons _sexpr143538_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id143274_)))) + _id143536_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150198 - _env143237_)))) + (cons __tmp150460 + _env143499_)))) (declare (not safe)) - (_lp143234_ - _rest143257_ - __tmp150197))))) + (_lp143496_ + _rest143519_ + __tmp150459))))) (if (let () (declare (not safe)) - (##pair? _bind143259143266_)) - (let ((_hd143263143281_ + (##pair? _bind143521143528_)) + (let ((_hd143525143543_ (let () (declare (not safe)) - (##car _bind143259143266_))) - (_tl143264143283_ + (##car _bind143521143528_))) + (_tl143526143545_ (let () (declare (not safe)) - (##cdr _bind143259143266_)))) - (let* ((_id143286_ _hd143263143281_) - (_expr143288_ - _tl143264143283_)) + (##cdr _bind143521143528_)))) + (let* ((_id143548_ _hd143525143543_) + (_expr143550_ + _tl143526143545_)) (declare (not safe)) - (_K143262143278_ - _expr143288_ - _id143286_))) + (_K143524143540_ + _expr143550_ + _id143548_))) (let () (declare (not safe)) - (_E143261143270_))))))) + (_E143523143532_))))))) (if (let () (declare (not safe)) - (##pair? _rest143238143246_)) - (let ((_hd143243143293_ + (##pair? _rest143500143508_)) + (let ((_hd143505143555_ (let () (declare (not safe)) - (##car _rest143238143246_))) - (_tl143244143295_ + (##car _rest143500143508_))) + (_tl143506143557_ (let () (declare (not safe)) - (##cdr _rest143238143246_)))) - (let* ((_bind143298_ _hd143243143293_) - (_rest143300_ _tl143244143295_)) + (##cdr _rest143500143508_)))) + (let* ((_bind143560_ _hd143505143555_) + (_rest143562_ _tl143506143557_)) (declare (not safe)) - (_K143242143290_ _rest143300_ _bind143298_))) + (_K143504143552_ _rest143562_ _bind143560_))) (let () (declare (not safe)) - (_else143240143254_))))))) - (_do-bind!139421_ - (lambda (_env143224_ _K143225_) - (let ((_unwind143227_ _env-bind139410_)) - (set! _env-bind139410_ _env143224_) - (let ((_val143229_ (_K143225_))) - (set! _env-bind139410_ _unwind143227_) - _val143229_)))) - (_do-splice!139422_ - (lambda (_K143218_) - (let ((_unwind143220_ _in-splice?139411_)) - (set! _in-splice?139411_ '#t) - (let ((_val143222_ (_K143218_))) - (set! _in-splice?139411_ _unwind143220_) - _val143222_)))) - (_optimize-e139423_ - (lambda (_expr142415_) - (let* ((___stx147942147943_ _expr142415_) - (_g142422142595_ + (_else143502143516_))))))) + (_do-bind!139683_ + (lambda (_env143486_ _K143487_) + (let ((_unwind143489_ _env-bind139672_)) + (set! _env-bind139672_ _env143486_) + (let ((_val143491_ (_K143487_))) + (set! _env-bind139672_ _unwind143489_) + _val143491_)))) + (_do-splice!139684_ + (lambda (_K143480_) + (let ((_unwind143482_ _in-splice?139673_)) + (set! _in-splice?139673_ '#t) + (let ((_val143484_ (_K143480_))) + (set! _in-splice?139673_ _unwind143482_) + _val143484_)))) + (_optimize-e139685_ + (lambda (_expr142677_) + (let* ((___stx148204148205_ _expr142677_) + (_g142684142857_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147942147943_))))) - (let ((___kont147944147945_ - (lambda (_L143190_ _L143191_ _L143192_) - (let ((_$e143209_ + ___stx148204148205_))))) + (let ((___kont148206148207_ + (lambda (_L143452_ _L143453_ _L143454_) + (let ((_$e143471_ (let () (declare (not safe)) - (_assert-e139426_ _L143192_)))) + (_assert-e139688_ _L143454_)))) (if (let () (declare (not safe)) - (eq? '#t _$e143209_)) + (eq? '#t _$e143471_)) (let () (declare (not safe)) - (_optimize-e139423_ _L143191_)) + (_optimize-e139685_ _L143453_)) (if (let () (declare (not safe)) - (eq? '#f _$e143209_)) + (eq? '#f _$e143471_)) (let () (declare (not safe)) - (_optimize-e139423_ _L143190_)) - (let ((_K143212_ + (_optimize-e139685_ _L143452_)) + (let ((_K143474_ (let () (declare (not safe)) - (_optimize-t__0__146875146876_ - _L143191_ - _L143192_))) - (_E143213_ + (_optimize-t__0__147137147138_ + _L143453_ + _L143454_))) + (_E143475_ (let () (declare (not safe)) - (_optimize-f__146877146878_ - _L143190_ - _L143192_)))) - (if (let ((__tmp150203 + (_optimize-f__147139147140_ + _L143452_ + _L143454_)))) + (if (let ((__tmp150465 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K143212_))) - (__tmp150202 + _K143474_))) + (__tmp150464 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E143213_)))) + _E143475_)))) (declare (not safe)) - (equal? __tmp150203 - __tmp150202)) - _K143212_ - (let ((__tmp150199 - (let ((__tmp150200 - (let ((__tmp150201 + (equal? __tmp150465 + __tmp150464)) + _K143474_ + (let ((__tmp150461 + (let ((__tmp150462 + (let ((__tmp150463 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E143213_ '())))) + (cons _E143475_ '())))) (declare (not safe)) - (cons _K143212_ __tmp150201)))) + (cons _K143474_ __tmp150463)))) (declare (not safe)) - (cons _L143192_ __tmp150200)))) + (cons _L143454_ __tmp150462)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp150199))))))))) - (___kont147946147947_ - (lambda (_L143120_ _L143121_) - (let ((_$e143141_ + __tmp150461))))))))) + (___kont148208148209_ + (lambda (_L143382_ _L143383_) + (let ((_$e143403_ (let () (declare (not safe)) - (_lookup-block139431_ _L143121_)))) - (if _$e143141_ - ((lambda (_block143144_) + (_lookup-block139693_ _L143383_)))) + (if _$e143403_ + ((lambda (_block143406_) (if (let () (declare (not safe)) - (_nonlinear-block?139433_ - _block143144_)) - _expr142415_ - (let ((__tmp150204 - (let ((__tmp150205 - (let ((__tmp150206 + (_nonlinear-block?139695_ + _block143406_)) + _expr142677_ + (let ((__tmp150466 + (let ((__tmp150467 + (let ((__tmp150468 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g143145143148_ _g143146143150_) + (lambda (_g143407143410_ _g143408143412_) (let () (declare (not safe)) - (cons _g143145143148_ _g143146143150_))))) + (cons _g143407143410_ _g143408143412_))))) (declare (not safe)) - (foldr1 __tmp150206 '() _L143120_)))) + (foldr1 __tmp150468 '() _L143382_)))) (declare (not safe)) - (_inline-block139432_ _block143144_ __tmp150205)))) + (_inline-block139694_ _block143406_ __tmp150467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e139423_ - __tmp150204)))) - _$e143141_) - _expr142415_)))) - (___kont147950147951_ - (lambda (_L143010_ _L143011_ _L143012_) - (let* ((_body143031_ + (_optimize-e139685_ + __tmp150466)))) + _$e143403_) + _expr142677_)))) + (___kont148212148213_ + (lambda (_L143272_ _L143273_ _L143274_) + (let* ((_body143293_ (let () (declare (not safe)) - (_optimize-e139423_ _L143010_))) - (__tmp150207 - (let ((__tmp150209 + (_optimize-e139685_ _L143272_))) + (__tmp150469 + (let ((__tmp150471 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L143011_ - _L143012_)) - (let ((__tmp150210 - (lambda (_g143032143036_ + _L143273_ + _L143274_)) + (let ((__tmp150472 + (lambda (_g143294143298_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g143033143038_ - _g143034143040_) - (let ((__tmp150211 - (let ((__tmp150216 + _g143295143300_ + _g143296143302_) + (let ((__tmp150473 + (let ((__tmp150478 (let () (declare (not safe)) - (cons _g143033143038_ '()))) - (__tmp150212 - (let ((__tmp150213 - (let ((__tmp150215 + (cons _g143295143300_ '()))) + (__tmp150474 + (let ((__tmp150475 + (let ((__tmp150477 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150214 + (__tmp150476 (let () (declare (not safe)) - (cons _g143032143036_ '())))) + (cons _g143294143298_ '())))) (declare (not safe)) - (cons __tmp150215 __tmp150214)))) + (cons __tmp150477 __tmp150476)))) (declare (not safe)) - (cons __tmp150213 '())))) + (cons __tmp150475 '())))) (declare (not safe)) - (cons __tmp150216 __tmp150212)))) + (cons __tmp150478 __tmp150474)))) (declare (not safe)) - (cons __tmp150211 _g143034143040_))))) + (cons __tmp150473 _g143296143302_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp150210 + (foldr2 __tmp150472 '() - _L143011_ - _L143012_)))) - (__tmp150208 + _L143273_ + _L143274_)))) + (__tmp150470 (let () (declare (not safe)) - (cons _body143031_ '())))) + (cons _body143293_ '())))) (declare (not safe)) - (cons __tmp150209 __tmp150208)))) + (cons __tmp150471 __tmp150470)))) (declare (not safe)) - (cons '%#let-values __tmp150207)))) - (___kont147954147955_ - (lambda (_L142878_ _L142879_ _L142880_) - (let ((__tmp150217 + (cons '%#let-values __tmp150469)))) + (___kont148216148217_ + (lambda (_L143140_ _L143141_ _L143142_) + (let ((__tmp150479 (map cons - (let ((__tmp150218 - (lambda (_g142898142901_ - _g142899142903_) + (let ((__tmp150480 + (lambda (_g143160143163_ + _g143161143165_) (let () (declare (not safe)) - (cons _g142898142901_ - _g142899142903_))))) + (cons _g143160143163_ + _g143161143165_))))) (declare (not safe)) - (foldr1 __tmp150218 + (foldr1 __tmp150480 '() - _L142880_)) - (let ((__tmp150219 - (lambda (_g142905142908_ - _g142906142910_) + _L143142_)) + (let ((__tmp150481 + (lambda (_g143167143170_ + _g143168143172_) (let () (declare (not safe)) - (cons _g142905142908_ - _g142906142910_))))) + (cons _g143167143170_ + _g143168143172_))))) (declare (not safe)) - (foldr1 __tmp150219 + (foldr1 __tmp150481 '() - _L142879_))))) + _L143141_))))) (declare (not safe)) - (_bind-e__0__146883146884_ - __tmp150217 - _L142878_)))) - (___kont147958147959_ - (lambda (_L142735_ - _L142736_ - _L142737_ - _L142738_ - _L142739_) - (let ((__tmp150220 + (_bind-e__0__147145147146_ + __tmp150479 + _L143140_)))) + (___kont148220148221_ + (lambda (_L142997_ + _L142998_ + _L142999_ + _L143000_ + _L143001_) + (let ((__tmp150482 (lambda () - (let* ((_expr142781_ + (let* ((_expr143043_ (let () (declare (not safe)) - (_optimize-e139423_ - _L142737_))) - (__tmp150221 - (let ((__tmp150223 - (let ((__tmp150226 - (let ((__tmp150233 + (_optimize-e139685_ + _L142999_))) + (__tmp150483 + (let ((__tmp150485 + (let ((__tmp150488 + (let ((__tmp150495 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L142739_ '()))) - (__tmp150227 - (let ((__tmp150228 - (let ((__tmp150229 - (let ((__tmp150231 - (let ((__tmp150232 - (lambda (_g142782142785_ + (cons _L143001_ '()))) + (__tmp150489 + (let ((__tmp150490 + (let ((__tmp150491 + (let ((__tmp150493 + (let ((__tmp150494 + (lambda (_g143044143047_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g142783142787_) + _g143045143049_) (let () (declare (not safe)) - (cons _g142782142785_ _g142783142787_))))) + (cons _g143044143047_ _g143045143049_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp150232 + (foldr1 __tmp150494 '() - _L142738_))) - (__tmp150230 + _L143000_))) + (__tmp150492 (let () (declare (not safe)) - (cons _expr142781_ '())))) + (cons _expr143043_ '())))) (declare (not safe)) - (cons __tmp150231 __tmp150230)))) + (cons __tmp150493 __tmp150492)))) (declare (not safe)) - (cons '%#lambda __tmp150229)))) + (cons '%#lambda __tmp150491)))) (declare (not safe)) - (cons __tmp150228 '())))) + (cons __tmp150490 '())))) (declare (not safe)) - (cons __tmp150233 __tmp150227))) - (__tmp150224 - (let ((__tmp150225 - (lambda (_g142789142792_ _g142790142794_) + (cons __tmp150495 __tmp150489))) + (__tmp150486 + (let ((__tmp150487 + (lambda (_g143051143054_ _g143052143056_) (let () (declare (not safe)) - (cons _g142789142792_ _g142790142794_))))) + (cons _g143051143054_ _g143052143056_))))) (declare (not safe)) - (foldr1 __tmp150225 '() _L142736_)))) + (foldr1 __tmp150487 '() _L142998_)))) (declare (not safe)) - (cons __tmp150226 __tmp150224))) - (__tmp150222 - (let () (declare (not safe)) (cons _L142735_ '())))) + (cons __tmp150488 __tmp150486))) + (__tmp150484 + (let () (declare (not safe)) (cons _L142997_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150223 - __tmp150222)))) + (cons __tmp150485 + __tmp150484)))) (declare (not safe)) (cons '%#letrec-values - __tmp150221))))) + __tmp150483))))) (declare (not safe)) - (_do-splice!139422_ __tmp150220)))) - (___kont147964147965_ (lambda () _expr142415_))) - (let* ((___match148151148152_ - (lambda (_e142545142607_ - _hd142544142610_ - _tl142543142612_ - _e142548142615_ - _hd142547142618_ - _tl142546142620_ - _e142551142623_ - _hd142550142626_ - _tl142549142628_ - _e142554142631_ - _hd142553142634_ - _tl142552142636_ - _e142557142639_ - _hd142556142642_ - _tl142555142644_ - _e142560142647_ - _hd142559142650_ - _tl142558142652_ - _e142563142655_ - _hd142562142658_ - _tl142561142660_ - _e142566142663_ - _hd142565142666_ - _tl142564142668_ - ___splice147960147961_ - _target142567142671_ - _tl142569142673_) - (letrec ((_loop142570142676_ - (lambda (_hd142568142679_ - _id142574142681_) + (_do-splice!139684_ __tmp150482)))) + (___kont148226148227_ (lambda () _expr142677_))) + (let* ((___match148413148414_ + (lambda (_e142807142869_ + _hd142806142872_ + _tl142805142874_ + _e142810142877_ + _hd142809142880_ + _tl142808142882_ + _e142813142885_ + _hd142812142888_ + _tl142811142890_ + _e142816142893_ + _hd142815142896_ + _tl142814142898_ + _e142819142901_ + _hd142818142904_ + _tl142817142906_ + _e142822142909_ + _hd142821142912_ + _tl142820142914_ + _e142825142917_ + _hd142824142920_ + _tl142823142922_ + _e142828142925_ + _hd142827142928_ + _tl142826142930_ + ___splice148222148223_ + _target142829142933_ + _tl142831142935_) + (letrec ((_loop142832142938_ + (lambda (_hd142830142941_ + _id142836142943_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142568142679_)) - (let ((_e142571142684_ + _hd142830142941_)) + (let ((_e142833142946_ (let () (declare (not safe)) (gx#stx-e - _hd142568142679_)))) - (let ((_lp-tl142573142689_ + _hd142830142941_)))) + (let ((_lp-tl142835142951_ (let () (declare (not safe)) - (##cdr _e142571142684_))) - (_lp-hd142572142687_ + (##cdr _e142833142946_))) + (_lp-hd142834142949_ (let () (declare (not safe)) - (##car _e142571142684_)))) - (let ((__tmp150235 + (##car _e142833142946_)))) + (let ((__tmp150497 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd142572142687_ _id142574142681_)))) + (cons _lp-hd142834142949_ _id142836142943_)))) (declare (not safe)) - (_loop142570142676_ _lp-tl142573142689_ __tmp150235)))) + (_loop142832142938_ _lp-tl142835142951_ __tmp150497)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142575142692_ - (reverse _id142574142681_))) + (let ((_id142837142954_ + (reverse _id142836142943_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142564142668_)) - (let ((_e142578142695_ + _tl142826142930_)) + (let ((_e142840142957_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142564142668_)))) - (let ((_tl142576142700_ + (gx#stx-e _tl142826142930_)))) + (let ((_tl142838142962_ (let () (declare (not safe)) - (##cdr _e142578142695_))) - (_hd142577142698_ + (##cdr _e142840142957_))) + (_hd142839142960_ (let () (declare (not safe)) - (##car _e142578142695_)))) + (##car _e142840142957_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142576142700_)) + (gx#stx-null? _tl142838142962_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142558142652_)) + (gx#stx-null? _tl142820142914_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl142549142628_)) - (let ((___splice147962147963_ + (gx#stx-pair/null? _tl142811142890_)) + (let ((___splice148224148225_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl142549142628_ + _tl142811142890_ '0)))) - (let ((_tl142581142705_ + (let ((_tl142843142967_ (let () (declare (not safe)) (##vector-ref - ___splice147962147963_ + ___splice148224148225_ '1))) - (_target142579142703_ + (_target142841142965_ (let () (declare (not safe)) (##vector-ref - ___splice147962147963_ + ___splice148224148225_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142581142705_)) - (letrec ((_loop142582142708_ - (lambda (_hd142580142711_ - _bind142586142713_) + (gx#stx-null? _tl142843142967_)) + (letrec ((_loop142844142970_ + (lambda (_hd142842142973_ + _bind142848142975_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142580142711_)) - (let ((_e142583142716_ + _hd142842142973_)) + (let ((_e142845142978_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd142580142711_)))) - (let ((_lp-tl142585142721_ + (gx#stx-e _hd142842142973_)))) + (let ((_lp-tl142847142983_ (let () (declare (not safe)) - (##cdr _e142583142716_))) - (_lp-hd142584142719_ + (##cdr _e142845142978_))) + (_lp-hd142846142981_ (let () (declare (not safe)) - (##car _e142583142716_)))) - (let ((__tmp150234 + (##car _e142845142978_)))) + (let ((__tmp150496 (let () (declare (not safe)) - (cons _lp-hd142584142719_ _bind142586142713_)))) + (cons _lp-hd142846142981_ _bind142848142975_)))) (declare (not safe)) - (_loop142582142708_ _lp-tl142585142721_ __tmp150234)))) - (let ((_bind142587142724_ (reverse _bind142586142713_))) + (_loop142844142970_ _lp-tl142847142983_ __tmp150496)))) + (let ((_bind142849142986_ (reverse _bind142848142975_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142546142620_)) - (let ((_e142590142727_ + (gx#stx-pair? _tl142808142882_)) + (let ((_e142852142989_ (let () (declare (not safe)) - (gx#stx-e _tl142546142620_)))) - (let ((_tl142588142732_ + (gx#stx-e _tl142808142882_)))) + (let ((_tl142850142994_ (let () (declare (not safe)) - (##cdr _e142590142727_))) - (_hd142589142730_ + (##cdr _e142852142989_))) + (_hd142851142992_ (let () (declare (not safe)) - (##car _e142590142727_)))) + (##car _e142852142989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142588142732_)) - (___kont147958147959_ - _hd142589142730_ - _bind142587142724_ - _hd142577142698_ - _id142575142692_ - _hd142556142642_) - (___kont147964147965_)))) - (___kont147964147965_))))))) + (gx#stx-null? _tl142850142994_)) + (___kont148220148221_ + _hd142851142992_ + _bind142849142986_ + _hd142839142960_ + _id142837142954_ + _hd142818142904_) + (___kont148226148227_)))) + (___kont148226148227_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142582142708_ - _target142579142703_ + (_loop142844142970_ + _target142841142965_ '()))) - (___kont147964147965_)))) - (___kont147964147965_)) - (___kont147964147965_)) - (___kont147964147965_)))) - (___kont147964147965_))))))) + (___kont148226148227_)))) + (___kont148226148227_)) + (___kont148226148227_)) + (___kont148226148227_)))) + (___kont148226148227_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142570142676_ - _target142567142671_ + (_loop142832142938_ + _target142829142933_ '()))))) - (___match148085148086_ - (lambda (_e142511142802_ - _hd142510142805_ - _tl142509142807_ - _e142514142810_ - _hd142513142813_ - _tl142512142815_ - ___splice147956147957_ - _target142515142818_ - _tl142517142820_) - (letrec ((_loop142518142823_ - (lambda (_hd142516142826_ - _expr142522142828_ - _id142523142830_) + (___match148347148348_ + (lambda (_e142773143064_ + _hd142772143067_ + _tl142771143069_ + _e142776143072_ + _hd142775143075_ + _tl142774143077_ + ___splice148218148219_ + _target142777143080_ + _tl142779143082_) + (letrec ((_loop142780143085_ + (lambda (_hd142778143088_ + _expr142784143090_ + _id142785143092_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142516142826_)) - (let ((_e142519142833_ + _hd142778143088_)) + (let ((_e142781143095_ (let () (declare (not safe)) (gx#stx-e - _hd142516142826_)))) - (let ((_lp-tl142521142838_ + _hd142778143088_)))) + (let ((_lp-tl142783143100_ (let () (declare (not safe)) - (##cdr _e142519142833_))) - (_lp-hd142520142836_ + (##cdr _e142781143095_))) + (_lp-hd142782143098_ (let () (declare (not safe)) - (##car _e142519142833_)))) + (##car _e142781143095_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142520142836_)) - (let ((_e142528142841_ + _lp-hd142782143098_)) + (let ((_e142790143103_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142520142836_)))) - (let ((_tl142526142846_ + (gx#stx-e _lp-hd142782143098_)))) + (let ((_tl142788143108_ (let () (declare (not safe)) - (##cdr _e142528142841_))) - (_hd142527142844_ + (##cdr _e142790143103_))) + (_hd142789143106_ (let () (declare (not safe)) - (##car _e142528142841_)))) + (##car _e142790143103_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142527142844_)) - (let ((_e142531142849_ + (gx#stx-pair? _hd142789143106_)) + (let ((_e142793143111_ (let () (declare (not safe)) - (gx#stx-e _hd142527142844_)))) - (let ((_tl142529142854_ + (gx#stx-e _hd142789143106_)))) + (let ((_tl142791143116_ (let () (declare (not safe)) - (##cdr _e142531142849_))) - (_hd142530142852_ + (##cdr _e142793143111_))) + (_hd142792143114_ (let () (declare (not safe)) - (##car _e142531142849_)))) + (##car _e142793143111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142529142854_)) + (gx#stx-null? _tl142791143116_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142526142846_)) - (let ((_e142534142857_ + (gx#stx-pair? _tl142788143108_)) + (let ((_e142796143119_ (let () (declare (not safe)) - (gx#stx-e _tl142526142846_)))) - (let ((_tl142532142862_ + (gx#stx-e _tl142788143108_)))) + (let ((_tl142794143124_ (let () (declare (not safe)) - (##cdr _e142534142857_))) - (_hd142533142860_ + (##cdr _e142796143119_))) + (_hd142795143122_ (let () (declare (not safe)) - (##car _e142534142857_)))) + (##car _e142796143119_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142532142862_)) - (let ((__tmp150237 + _tl142794143124_)) + (let ((__tmp150499 (let () (declare (not safe)) - (cons _hd142533142860_ - _expr142522142828_))) - (__tmp150236 + (cons _hd142795143122_ + _expr142784143090_))) + (__tmp150498 (let () (declare (not safe)) - (cons _hd142530142852_ - _id142523142830_)))) + (cons _hd142792143114_ + _id142785143092_)))) (declare (not safe)) - (_loop142518142823_ - _lp-tl142521142838_ - __tmp150237 - __tmp150236)) - (___kont147964147965_)))) - (___kont147964147965_)) - (___kont147964147965_)))) - (___kont147964147965_)))) - (___kont147964147965_)))) + (_loop142780143085_ + _lp-tl142783143100_ + __tmp150499 + __tmp150498)) + (___kont148226148227_)))) + (___kont148226148227_)) + (___kont148226148227_)))) + (___kont148226148227_)))) + (___kont148226148227_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142525142867_ - (reverse _id142523142830_)) - (_expr142524142865_ - (reverse _expr142522142828_))) + (let ((_id142787143129_ + (reverse _id142785143092_)) + (_expr142786143127_ + (reverse _expr142784143090_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142512142815_)) - (let ((_e142537142870_ + _tl142774143077_)) + (let ((_e142799143132_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142512142815_)))) - (let ((_tl142535142875_ + (gx#stx-e _tl142774143077_)))) + (let ((_tl142797143137_ (let () (declare (not safe)) - (##cdr _e142537142870_))) - (_hd142536142873_ + (##cdr _e142799143132_))) + (_hd142798143135_ (let () (declare (not safe)) - (##car _e142537142870_)))) + (##car _e142799143132_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142535142875_)) - (___kont147954147955_ - _hd142536142873_ - _expr142524142865_ - _id142525142867_) - (___kont147964147965_)))) - (___kont147964147965_))))))) + (gx#stx-null? _tl142797143137_)) + (___kont148216148217_ + _hd142798143135_ + _expr142786143127_ + _id142787143129_) + (___kont148226148227_)))) + (___kont148226148227_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142518142823_ - _target142515142818_ + (_loop142780143085_ + _target142777143080_ '() '()))))) - (___match148061148062_ - (lambda (_e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_) - (letrec ((_loop142480142939_ - (lambda (_hd142478142942_ - _xid142484142944_ - _id142485142946_) + (___match148323148324_ + (lambda (_e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_) + (letrec ((_loop142742143201_ + (lambda (_hd142740143204_ + _xid142746143206_ + _id142747143208_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142478142942_)) - (let ((_e142481142949_ + _hd142740143204_)) + (let ((_e142743143211_ (let () (declare (not safe)) (gx#stx-e - _hd142478142942_)))) - (let ((_lp-tl142483142954_ + _hd142740143204_)))) + (let ((_lp-tl142745143216_ (let () (declare (not safe)) - (##cdr _e142481142949_))) - (_lp-hd142482142952_ + (##cdr _e142743143211_))) + (_lp-hd142744143214_ (let () (declare (not safe)) - (##car _e142481142949_)))) + (##car _e142743143211_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142482142952_)) - (let ((_e142490142957_ + _lp-hd142744143214_)) + (let ((_e142752143219_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142482142952_)))) - (let ((_tl142488142962_ + (gx#stx-e _lp-hd142744143214_)))) + (let ((_tl142750143224_ (let () (declare (not safe)) - (##cdr _e142490142957_))) - (_hd142489142960_ + (##cdr _e142752143219_))) + (_hd142751143222_ (let () (declare (not safe)) - (##car _e142490142957_)))) + (##car _e142752143219_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142489142960_)) - (let ((_e142493142965_ + (gx#stx-pair? _hd142751143222_)) + (let ((_e142755143227_ (let () (declare (not safe)) - (gx#stx-e _hd142489142960_)))) - (let ((_tl142491142970_ + (gx#stx-e _hd142751143222_)))) + (let ((_tl142753143232_ (let () (declare (not safe)) - (##cdr _e142493142965_))) - (_hd142492142968_ + (##cdr _e142755143227_))) + (_hd142754143230_ (let () (declare (not safe)) - (##car _e142493142965_)))) + (##car _e142755143227_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142491142970_)) + (gx#stx-null? _tl142753143232_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142488142962_)) - (let ((_e142496142973_ + (gx#stx-pair? _tl142750143224_)) + (let ((_e142758143235_ (let () (declare (not safe)) - (gx#stx-e _tl142488142962_)))) - (let ((_tl142494142978_ + (gx#stx-e _tl142750143224_)))) + (let ((_tl142756143240_ (let () (declare (not safe)) - (##cdr _e142496142973_))) - (_hd142495142976_ + (##cdr _e142758143235_))) + (_hd142757143238_ (let () (declare (not safe)) - (##car _e142496142973_)))) + (##car _e142758143235_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142495142976_)) - (let ((_e142499142981_ + _hd142757143238_)) + (let ((_e142761143243_ (let () (declare (not safe)) (gx#stx-e - _hd142495142976_)))) - (let ((_tl142497142986_ + _hd142757143238_)))) + (let ((_tl142759143248_ (let () (declare (not safe)) - (##cdr _e142499142981_))) - (_hd142498142984_ + (##cdr _e142761143243_))) + (_hd142760143246_ (let () (declare (not safe)) - (##car _e142499142981_)))) + (##car _e142761143243_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142498142984_)) + _hd142760143246_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd142498142984_)) + _hd142760143246_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl142497142986_)) - (let ((_e142502142989_ + (gx#stx-pair? _tl142759143248_)) + (let ((_e142764143251_ (let () (declare (not safe)) - (gx#stx-e _tl142497142986_)))) - (let ((_tl142500142994_ + (gx#stx-e _tl142759143248_)))) + (let ((_tl142762143256_ (let () (declare (not safe)) - (##cdr _e142502142989_))) - (_hd142501142992_ + (##cdr _e142764143251_))) + (_hd142763143254_ (let () (declare (not safe)) - (##car _e142502142989_)))) + (##car _e142764143251_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142500142994_)) + (gx#stx-null? _tl142762143256_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142494142978_)) - (let ((__tmp150239 + (gx#stx-null? _tl142756143240_)) + (let ((__tmp150501 (let () (declare (not safe)) - (cons _hd142501142992_ - _xid142484142944_))) - (__tmp150238 + (cons _hd142763143254_ + _xid142746143206_))) + (__tmp150500 (let () (declare (not safe)) - (cons _hd142492142968_ - _id142485142946_)))) + (cons _hd142754143230_ + _id142747143208_)))) (declare (not safe)) - (_loop142480142939_ - _lp-tl142483142954_ - __tmp150239 - __tmp150238)) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)))) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)))) + (_loop142742143201_ + _lp-tl142745143216_ + __tmp150501 + __tmp150500)) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)))) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)))) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)))) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)))) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)))) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)))) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)))) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)))) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142487142999_ - (reverse _id142485142946_)) - (_xid142486142997_ - (reverse _xid142484142944_))) + (let ((_id142749143261_ + (reverse _id142747143208_)) + (_xid142748143259_ + (reverse _xid142746143206_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142474142931_)) - (let ((_e142505143002_ + _tl142736143193_)) + (let ((_e142767143264_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142474142931_)))) - (let ((_tl142503143007_ + (gx#stx-e _tl142736143193_)))) + (let ((_tl142765143269_ (let () (declare (not safe)) - (##cdr _e142505143002_))) - (_hd142504143005_ + (##cdr _e142767143264_))) + (_hd142766143267_ (let () (declare (not safe)) - (##car _e142505143002_)))) + (##car _e142767143264_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142503143007_)) - (___kont147950147951_ - _hd142504143005_ - _xid142486142997_ - _id142487142999_) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_)))) - (___match148085148086_ - _e142473142918_ - _hd142472142921_ - _tl142471142923_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_))))))) + (gx#stx-null? _tl142765143269_)) + (___kont148212148213_ + _hd142766143267_ + _xid142748143259_ + _id142749143261_) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_)))) + (___match148347148348_ + _e142735143180_ + _hd142734143183_ + _tl142733143185_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142480142939_ - _target142477142934_ + (_loop142742143201_ + _target142739143196_ '() '()))))) - (___match148037148038_ - (lambda (_e142443143048_ - _hd142442143051_ - _tl142441143053_ - _e142446143056_ - _hd142445143059_ - _tl142444143061_ - _e142449143064_ - _hd142448143067_ - _tl142447143069_ - _e142452143072_ - _hd142451143075_ - _tl142450143077_ - ___splice147948147949_ - _target142453143080_ - _tl142455143082_) - (letrec ((_loop142456143085_ - (lambda (_hd142454143088_ - _id142460143090_) + (___match148299148300_ + (lambda (_e142705143310_ + _hd142704143313_ + _tl142703143315_ + _e142708143318_ + _hd142707143321_ + _tl142706143323_ + _e142711143326_ + _hd142710143329_ + _tl142709143331_ + _e142714143334_ + _hd142713143337_ + _tl142712143339_ + ___splice148210148211_ + _target142715143342_ + _tl142717143344_) + (letrec ((_loop142718143347_ + (lambda (_hd142716143350_ + _id142722143352_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142454143088_)) - (let ((_e142457143093_ + _hd142716143350_)) + (let ((_e142719143355_ (let () (declare (not safe)) (gx#stx-e - _hd142454143088_)))) - (let ((_lp-tl142459143098_ + _hd142716143350_)))) + (let ((_lp-tl142721143360_ (let () (declare (not safe)) - (##cdr _e142457143093_))) - (_lp-hd142458143096_ + (##cdr _e142719143355_))) + (_lp-hd142720143358_ (let () (declare (not safe)) - (##car _e142457143093_)))) + (##car _e142719143355_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142458143096_)) - (let ((_e142464143101_ + _lp-hd142720143358_)) + (let ((_e142726143363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142458143096_)))) - (let ((_tl142462143106_ + (gx#stx-e _lp-hd142720143358_)))) + (let ((_tl142724143368_ (let () (declare (not safe)) - (##cdr _e142464143101_))) - (_hd142463143104_ + (##cdr _e142726143363_))) + (_hd142725143366_ (let () (declare (not safe)) - (##car _e142464143101_)))) + (##car _e142726143363_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142463143104_)) + (gx#identifier? _hd142725143366_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142463143104_)) + (gx#stx-eq? '%#ref _hd142725143366_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142462143106_)) - (let ((_e142467143109_ + (gx#stx-pair? _tl142724143368_)) + (let ((_e142729143371_ (let () (declare (not safe)) - (gx#stx-e _tl142462143106_)))) - (let ((_tl142465143114_ + (gx#stx-e _tl142724143368_)))) + (let ((_tl142727143376_ (let () (declare (not safe)) - (##cdr _e142467143109_))) - (_hd142466143112_ + (##cdr _e142729143371_))) + (_hd142728143374_ (let () (declare (not safe)) - (##car _e142467143109_)))) + (##car _e142729143371_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142465143114_)) - (let ((__tmp150240 + (gx#stx-null? _tl142727143376_)) + (let ((__tmp150502 (let () (declare (not safe)) - (cons _hd142466143112_ - _id142460143090_)))) + (cons _hd142728143374_ + _id142722143352_)))) (declare (not safe)) - (_loop142456143085_ - _lp-tl142459143098_ - __tmp150240)) - (___kont147964147965_)))) - (___kont147964147965_)) - (___kont147964147965_)) - (___kont147964147965_)))) - (___kont147964147965_)))) + (_loop142718143347_ + _lp-tl142721143360_ + __tmp150502)) + (___kont148226148227_)))) + (___kont148226148227_)) + (___kont148226148227_)) + (___kont148226148227_)))) + (___kont148226148227_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142461143117_ - (reverse _id142460143090_))) - (___kont147946147947_ - _id142461143117_ - _hd142451143075_)))))) + (let ((_id142723143379_ + (reverse _id142722143352_))) + (___kont148208148209_ + _id142723143379_ + _hd142713143337_)))))) (let () (declare (not safe)) - (_loop142456143085_ - _target142453143080_ + (_loop142718143347_ + _target142715143342_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147942147943_)) - (let ((_e142429143158_ + (gx#stx-pair? ___stx148204148205_)) + (let ((_e142691143420_ (let () (declare (not safe)) - (gx#stx-e ___stx147942147943_)))) - (let ((_tl142427143163_ + (gx#stx-e ___stx148204148205_)))) + (let ((_tl142689143425_ (let () (declare (not safe)) - (##cdr _e142429143158_))) - (_hd142428143161_ + (##cdr _e142691143420_))) + (_hd142690143423_ (let () (declare (not safe)) - (##car _e142429143158_)))) + (##car _e142691143420_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142428143161_)) + (gx#identifier? _hd142690143423_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd142428143161_)) + _hd142690143423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142427143163_)) - (let ((_e142432143166_ + _tl142689143425_)) + (let ((_e142694143428_ (let () (declare (not safe)) (gx#stx-e - _tl142427143163_)))) - (let ((_tl142430143171_ + _tl142689143425_)))) + (let ((_tl142692143433_ (let () (declare (not safe)) - (##cdr _e142432143166_))) - (_hd142431143169_ + (##cdr _e142694143428_))) + (_hd142693143431_ (let () (declare (not safe)) - (##car _e142432143166_)))) + (##car _e142694143428_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142430143171_)) - (let ((_e142435143174_ + _tl142692143433_)) + (let ((_e142697143436_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142430143171_)))) - (let ((_tl142433143179_ - (let () (declare (not safe)) (##cdr _e142435143174_))) - (_hd142434143177_ - (let () (declare (not safe)) (##car _e142435143174_)))) + (gx#stx-e _tl142692143433_)))) + (let ((_tl142695143441_ + (let () (declare (not safe)) (##cdr _e142697143436_))) + (_hd142696143439_ + (let () (declare (not safe)) (##car _e142697143436_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142433143179_)) - (let ((_e142438143182_ + (gx#stx-pair? _tl142695143441_)) + (let ((_e142700143444_ (let () (declare (not safe)) - (gx#stx-e _tl142433143179_)))) - (let ((_tl142436143187_ + (gx#stx-e _tl142695143441_)))) + (let ((_tl142698143449_ (let () (declare (not safe)) - (##cdr _e142438143182_))) - (_hd142437143185_ + (##cdr _e142700143444_))) + (_hd142699143447_ (let () (declare (not safe)) - (##car _e142438143182_)))) + (##car _e142700143444_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142436143187_)) - (___kont147944147945_ - _hd142437143185_ - _hd142434143177_ - _hd142431143169_) - (___kont147964147965_)))) - (___kont147964147965_)))) - (___kont147964147965_)))) + (gx#stx-null? _tl142698143449_)) + (___kont148206148207_ + _hd142699143447_ + _hd142696143439_ + _hd142693143431_) + (___kont148226148227_)))) + (___kont148226148227_)))) + (___kont148226148227_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147964147965_)) + (___kont148226148227_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd142428143161_)) + _hd142690143423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142427143163_)) - (let ((_e142446143056_ + _tl142689143425_)) + (let ((_e142708143318_ (let () (declare (not safe)) (gx#stx-e - _tl142427143163_)))) - (let ((_tl142444143061_ + _tl142689143425_)))) + (let ((_tl142706143323_ (let () (declare (not safe)) - (##cdr _e142446143056_))) - (_hd142445143059_ + (##cdr _e142708143318_))) + (_hd142707143321_ (let () (declare (not safe)) - (##car _e142446143056_)))) + (##car _e142708143318_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142445143059_)) - (let ((_e142449143064_ + _hd142707143321_)) + (let ((_e142711143326_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd142445143059_)))) - (let ((_tl142447143069_ + (gx#stx-e _hd142707143321_)))) + (let ((_tl142709143331_ (let () (declare (not safe)) - (##cdr _e142449143064_))) - (_hd142448143067_ + (##cdr _e142711143326_))) + (_hd142710143329_ (let () (declare (not safe)) - (##car _e142449143064_)))) + (##car _e142711143326_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142448143067_)) + (gx#identifier? _hd142710143329_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142448143067_)) + (gx#stx-eq? '%#ref _hd142710143329_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142447143069_)) - (let ((_e142452143072_ + (gx#stx-pair? _tl142709143331_)) + (let ((_e142714143334_ (let () (declare (not safe)) - (gx#stx-e _tl142447143069_)))) - (let ((_tl142450143077_ + (gx#stx-e _tl142709143331_)))) + (let ((_tl142712143339_ (let () (declare (not safe)) - (##cdr _e142452143072_))) - (_hd142451143075_ + (##cdr _e142714143334_))) + (_hd142713143337_ (let () (declare (not safe)) - (##car _e142452143072_)))) + (##car _e142714143334_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142450143077_)) + (gx#stx-null? _tl142712143339_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl142444143061_)) - (let ((___splice147948147949_ + _tl142706143323_)) + (let ((___splice148210148211_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl142444143061_ + _tl142706143323_ '0)))) - (let ((_tl142455143082_ + (let ((_tl142717143344_ (let () (declare (not safe)) (##vector-ref - ___splice147948147949_ + ___splice148210148211_ '1))) - (_target142453143080_ + (_target142715143342_ (let () (declare (not safe)) (##vector-ref - ___splice147948147949_ + ___splice148210148211_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142455143082_)) - (___match148037148038_ - _e142429143158_ - _hd142428143161_ - _tl142427143163_ - _e142446143056_ - _hd142445143059_ - _tl142444143061_ - _e142449143064_ - _hd142448143067_ - _tl142447143069_ - _e142452143072_ - _hd142451143075_ - _tl142450143077_ - ___splice147948147949_ - _target142453143080_ - _tl142455143082_) - (___kont147964147965_)))) - (___kont147964147965_)) - (___kont147964147965_)))) - (___kont147964147965_)) - (___kont147964147965_)) - (___kont147964147965_)))) - (___kont147964147965_)))) + _tl142717143344_)) + (___match148299148300_ + _e142691143420_ + _hd142690143423_ + _tl142689143425_ + _e142708143318_ + _hd142707143321_ + _tl142706143323_ + _e142711143326_ + _hd142710143329_ + _tl142709143331_ + _e142714143334_ + _hd142713143337_ + _tl142712143339_ + ___splice148210148211_ + _target142715143342_ + _tl142717143344_) + (___kont148226148227_)))) + (___kont148226148227_)) + (___kont148226148227_)))) + (___kont148226148227_)) + (___kont148226148227_)) + (___kont148226148227_)))) + (___kont148226148227_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147964147965_)) + (___kont148226148227_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd142428143161_)) + _hd142690143423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142427143163_)) - (let ((_e142476142926_ + _tl142689143425_)) + (let ((_e142738143188_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142427143163_)))) - (let ((_tl142474142931_ - (let () (declare (not safe)) (##cdr _e142476142926_))) - (_hd142475142929_ - (let () (declare (not safe)) (##car _e142476142926_)))) + (gx#stx-e _tl142689143425_)))) + (let ((_tl142736143193_ + (let () (declare (not safe)) (##cdr _e142738143188_))) + (_hd142737143191_ + (let () (declare (not safe)) (##car _e142738143188_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd142475142929_)) - (let ((___splice147952147953_ + (gx#stx-pair/null? _hd142737143191_)) + (let ((___splice148214148215_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd142475142929_ '0)))) - (let ((_tl142479142936_ + (gx#syntax-split-splice _hd142737143191_ '0)))) + (let ((_tl142741143198_ (let () (declare (not safe)) - (##vector-ref ___splice147952147953_ '1))) - (_target142477142934_ + (##vector-ref ___splice148214148215_ '1))) + (_target142739143196_ (let () (declare (not safe)) - (##vector-ref ___splice147952147953_ '0)))) + (##vector-ref ___splice148214148215_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142479142936_)) - (___match148061148062_ - _e142429143158_ - _hd142428143161_ - _tl142427143163_ - _e142476142926_ - _hd142475142929_ - _tl142474142931_ - ___splice147952147953_ - _target142477142934_ - _tl142479142936_) - (___kont147964147965_)))) - (___kont147964147965_)))) - (___kont147964147965_)) + (gx#stx-null? _tl142741143198_)) + (___match148323148324_ + _e142691143420_ + _hd142690143423_ + _tl142689143425_ + _e142738143188_ + _hd142737143191_ + _tl142736143193_ + ___splice148214148215_ + _target142739143196_ + _tl142741143198_) + (___kont148226148227_)))) + (___kont148226148227_)))) + (___kont148226148227_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd142428143161_)) + _hd142690143423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142427143163_)) - (let ((_e142548142615_ + _tl142689143425_)) + (let ((_e142810142877_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl142427143163_)))) - (let ((_tl142546142620_ + (gx#stx-e _tl142689143425_)))) + (let ((_tl142808142882_ (let () (declare (not safe)) - (##cdr _e142548142615_))) - (_hd142547142618_ + (##cdr _e142810142877_))) + (_hd142809142880_ (let () (declare (not safe)) - (##car _e142548142615_)))) + (##car _e142810142877_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142547142618_)) - (let ((_e142551142623_ + (gx#stx-pair? _hd142809142880_)) + (let ((_e142813142885_ (let () (declare (not safe)) - (gx#stx-e _hd142547142618_)))) - (let ((_tl142549142628_ + (gx#stx-e _hd142809142880_)))) + (let ((_tl142811142890_ (let () (declare (not safe)) - (##cdr _e142551142623_))) - (_hd142550142626_ + (##cdr _e142813142885_))) + (_hd142812142888_ (let () (declare (not safe)) - (##car _e142551142623_)))) + (##car _e142813142885_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142550142626_)) - (let ((_e142554142631_ + (gx#stx-pair? _hd142812142888_)) + (let ((_e142816142893_ (let () (declare (not safe)) - (gx#stx-e _hd142550142626_)))) - (let ((_tl142552142636_ + (gx#stx-e _hd142812142888_)))) + (let ((_tl142814142898_ (let () (declare (not safe)) - (##cdr _e142554142631_))) - (_hd142553142634_ + (##cdr _e142816142893_))) + (_hd142815142896_ (let () (declare (not safe)) - (##car _e142554142631_)))) + (##car _e142816142893_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142553142634_)) - (let ((_e142557142639_ + (gx#stx-pair? _hd142815142896_)) + (let ((_e142819142901_ (let () (declare (not safe)) (gx#stx-e - _hd142553142634_)))) - (let ((_tl142555142644_ + _hd142815142896_)))) + (let ((_tl142817142906_ (let () (declare (not safe)) - (##cdr _e142557142639_))) - (_hd142556142642_ + (##cdr _e142819142901_))) + (_hd142818142904_ (let () (declare (not safe)) - (##car _e142557142639_)))) + (##car _e142819142901_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142555142644_)) + _tl142817142906_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142552142636_)) - (let ((_e142560142647_ + _tl142814142898_)) + (let ((_e142822142909_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142552142636_)))) - (let ((_tl142558142652_ - (let () (declare (not safe)) (##cdr _e142560142647_))) - (_hd142559142650_ - (let () (declare (not safe)) (##car _e142560142647_)))) + (gx#stx-e _tl142814142898_)))) + (let ((_tl142820142914_ + (let () (declare (not safe)) (##cdr _e142822142909_))) + (_hd142821142912_ + (let () (declare (not safe)) (##car _e142822142909_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142559142650_)) - (let ((_e142563142655_ + (gx#stx-pair? _hd142821142912_)) + (let ((_e142825142917_ (let () (declare (not safe)) - (gx#stx-e _hd142559142650_)))) - (let ((_tl142561142660_ + (gx#stx-e _hd142821142912_)))) + (let ((_tl142823142922_ (let () (declare (not safe)) - (##cdr _e142563142655_))) - (_hd142562142658_ + (##cdr _e142825142917_))) + (_hd142824142920_ (let () (declare (not safe)) - (##car _e142563142655_)))) + (##car _e142825142917_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142562142658_)) + (gx#identifier? _hd142824142920_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd142562142658_)) + (gx#stx-eq? '%#lambda _hd142824142920_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142561142660_)) - (let ((_e142566142663_ + (gx#stx-pair? _tl142823142922_)) + (let ((_e142828142925_ (let () (declare (not safe)) - (gx#stx-e _tl142561142660_)))) - (let ((_tl142564142668_ + (gx#stx-e _tl142823142922_)))) + (let ((_tl142826142930_ (let () (declare (not safe)) - (##cdr _e142566142663_))) - (_hd142565142666_ + (##cdr _e142828142925_))) + (_hd142827142928_ (let () (declare (not safe)) - (##car _e142566142663_)))) + (##car _e142828142925_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd142565142666_)) - (let ((___splice147960147961_ + _hd142827142928_)) + (let ((___splice148222148223_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd142565142666_ + _hd142827142928_ '0)))) - (let ((_tl142569142673_ + (let ((_tl142831142935_ (let () (declare (not safe)) (##vector-ref - ___splice147960147961_ + ___splice148222148223_ '1))) - (_target142567142671_ + (_target142829142933_ (let () (declare (not safe)) (##vector-ref - ___splice147960147961_ + ___splice148222148223_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142569142673_)) - (___match148151148152_ - _e142429143158_ - _hd142428143161_ - _tl142427143163_ - _e142548142615_ - _hd142547142618_ - _tl142546142620_ - _e142551142623_ - _hd142550142626_ - _tl142549142628_ - _e142554142631_ - _hd142553142634_ - _tl142552142636_ - _e142557142639_ - _hd142556142642_ - _tl142555142644_ - _e142560142647_ - _hd142559142650_ - _tl142558142652_ - _e142563142655_ - _hd142562142658_ - _tl142561142660_ - _e142566142663_ - _hd142565142666_ - _tl142564142668_ - ___splice147960147961_ - _target142567142671_ - _tl142569142673_) - (___kont147964147965_)))) - (___kont147964147965_)))) - (___kont147964147965_)) - (___kont147964147965_)) - (___kont147964147965_)))) - (___kont147964147965_)))) - (___kont147964147965_)) + _tl142831142935_)) + (___match148413148414_ + _e142691143420_ + _hd142690143423_ + _tl142689143425_ + _e142810142877_ + _hd142809142880_ + _tl142808142882_ + _e142813142885_ + _hd142812142888_ + _tl142811142890_ + _e142816142893_ + _hd142815142896_ + _tl142814142898_ + _e142819142901_ + _hd142818142904_ + _tl142817142906_ + _e142822142909_ + _hd142821142912_ + _tl142820142914_ + _e142825142917_ + _hd142824142920_ + _tl142823142922_ + _e142828142925_ + _hd142827142928_ + _tl142826142930_ + ___splice148222148223_ + _target142829142933_ + _tl142831142935_) + (___kont148226148227_)))) + (___kont148226148227_)))) + (___kont148226148227_)) + (___kont148226148227_)) + (___kont148226148227_)))) + (___kont148226148227_)))) + (___kont148226148227_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147964147965_)))) - (___kont147964147965_)))) - (___kont147964147965_)))) - (___kont147964147965_)))) - (___kont147964147965_)) - (___kont147964147965_))))) + (___kont148226148227_)))) + (___kont148226148227_)))) + (___kont148226148227_)))) + (___kont148226148227_)))) + (___kont148226148227_)) + (___kont148226148227_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147964147965_)))) - (___kont147964147965_))))))) - (_optimize-t__146873146874_ - (lambda (_expr142398_ _test142399_ _continue142400_) - (let ((__tmp150242 - (let ((__tmp150243 + (___kont148226148227_)))) + (___kont148226148227_))))))) + (_optimize-t__147135147136_ + (lambda (_expr142660_ _test142661_ _continue142662_) + (let ((__tmp150504 + (let ((__tmp150505 (let () (declare (not safe)) - (cons _test142399_ '#t)))) + (cons _test142661_ '#t)))) (declare (not safe)) - (cons __tmp150243 '()))) - (__tmp150241 - (lambda () (_continue142400_ _expr142398_)))) + (cons __tmp150505 '()))) + (__tmp150503 + (lambda () (_continue142662_ _expr142660_)))) (declare (not safe)) - (_do-assert139412_ __tmp150242 __tmp150241)))) - (_optimize-t__0__146875146876_ - (lambda (_expr142406_ _test142407_) - (let ((_continue142409_ _optimize-e139423_)) + (_do-assert139674_ __tmp150504 __tmp150503)))) + (_optimize-t__0__147137147138_ + (lambda (_expr142668_ _test142669_) + (let ((_continue142671_ _optimize-e139685_)) (declare (not safe)) - (_optimize-t__146873146874_ - _expr142406_ - _test142407_ - _continue142409_)))) - (_optimize-t139424_ - (lambda _g150245_ - (let ((_g150244_ + (_optimize-t__147135147136_ + _expr142668_ + _test142669_ + _continue142671_)))) + (_optimize-t139686_ + (lambda _g150507_ + (let ((_g150506_ (let () (declare (not safe)) - (##length _g150245_)))) - (cond ((let () (declare (not safe)) (##fx= _g150244_ 2)) - (apply (lambda (_expr142406_ _test142407_) + (##length _g150507_)))) + (cond ((let () (declare (not safe)) (##fx= _g150506_ 2)) + (apply (lambda (_expr142668_ _test142669_) (let () (declare (not safe)) - (_optimize-t__0__146875146876_ - _expr142406_ - _test142407_))) - _g150245_)) - ((let () (declare (not safe)) (##fx= _g150244_ 3)) - (apply (lambda (_expr142411_ - _test142412_ - _continue142413_) + (_optimize-t__0__147137147138_ + _expr142668_ + _test142669_))) + _g150507_)) + ((let () (declare (not safe)) (##fx= _g150506_ 3)) + (apply (lambda (_expr142673_ + _test142674_ + _continue142675_) (let () (declare (not safe)) - (_optimize-t__146873146874_ - _expr142411_ - _test142412_ - _continue142413_))) - _g150245_)) + (_optimize-t__147135147136_ + _expr142673_ + _test142674_ + _continue142675_))) + _g150507_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150245_)))))) - (_optimize-f__146877146878_ - (lambda (_expr141483_ _test141484_) - (let ((__tmp150288 - (if _test141484_ - (let ((__tmp150289 + _g150507_)))))) + (_optimize-f__147139147140_ + (lambda (_expr141745_ _test141746_) + (let ((__tmp150550 + (if _test141746_ + (let ((__tmp150551 (let () (declare (not safe)) - (cons _test141484_ '#f)))) + (cons _test141746_ '#f)))) (declare (not safe)) - (cons __tmp150289 '())) + (cons __tmp150551 '())) '())) - (__tmp150246 + (__tmp150508 (lambda () - (let* ((___stx148192148193_ _expr141483_) - (_g141492141665_ + (let* ((___stx148454148455_ _expr141745_) + (_g141754141927_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148192148193_))))) - (let ((___kont148194148195_ - (lambda (_L142253_ _L142254_) - (let ((_$e142274_ + ___stx148454148455_))))) + (let ((___kont148456148457_ + (lambda (_L142515_ _L142516_) + (let ((_$e142536_ (let () (declare (not safe)) - (_lookup-block139431_ - _L142254_)))) - (if _$e142274_ - ((lambda (_block142277_) + (_lookup-block139693_ + _L142516_)))) + (if _$e142536_ + ((lambda (_block142539_) (if (let () (declare (not safe)) - (_nonlinear-block?139433_ - _block142277_)) - _expr141483_ - (let* ((_inline142286_ - (let ((__tmp150247 + (_nonlinear-block?139695_ + _block142539_)) + _expr141745_ + (let* ((_inline142548_ + (let ((__tmp150509 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150248 - (lambda (_g142278142281_ _g142279142283_) + (let ((__tmp150510 + (lambda (_g142540142543_ _g142541142545_) (let () (declare (not safe)) - (cons _g142278142281_ - _g142279142283_))))) + (cons _g142540142543_ + _g142541142545_))))) (declare (not safe)) - (foldr1 __tmp150248 '() _L142253_)))) + (foldr1 __tmp150510 '() _L142515_)))) (declare (not safe)) - (_inline-block139432_ _block142277_ __tmp150247))) - (___stx148154148155_ _inline142286_) - (_g142289142310_ + (_inline-block139694_ _block142539_ __tmp150509))) + (___stx148416148417_ _inline142548_) + (_g142551142572_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148154148155_))))) - (let ((___kont148156148157_ - (lambda (_L142354_ _L142355_ _L142356_) - (let ((_$e142378_ + ___stx148416148417_))))) + (let ((___kont148418148419_ + (lambda (_L142616_ _L142617_ _L142618_) + (let ((_$e142640_ (let () (declare (not safe)) - (_assert-e139426_ _L142356_)))) + (_assert-e139688_ _L142618_)))) (if (let () (declare (not safe)) - (eq? '#t _$e142378_)) - (if _in-splice?139411_ + (eq? '#t _$e142640_)) + (if _in-splice?139673_ (let () (declare (not safe)) - (_optimize-f__0__146879146880_ _L142355_)) + (_optimize-f__0__147141147142_ _L142617_)) (let () (declare (not safe)) - (_optimize-e139423_ _L142355_))) + (_optimize-e139685_ _L142617_))) (if (let () (declare (not safe)) - (eq? '#f _$e142378_)) + (eq? '#f _$e142640_)) (let () (declare (not safe)) - (_optimize-f__0__146879146880_ _L142354_)) - _expr141483_))))) - (___kont148158148159_ + (_optimize-f__0__147141147142_ _L142616_)) + _expr141745_))))) + (___kont148420148421_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__146879146880_ _inline142286_))))) + (_optimize-f__0__147141147142_ _inline142548_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148154148155_)) - (let ((_e142296142322_ + (gx#stx-pair? ___stx148416148417_)) + (let ((_e142558142584_ (let () (declare (not safe)) - (gx#stx-e ___stx148154148155_)))) - (let ((_tl142294142327_ + (gx#stx-e ___stx148416148417_)))) + (let ((_tl142556142589_ (let () (declare (not safe)) - (##cdr _e142296142322_))) - (_hd142295142325_ + (##cdr _e142558142584_))) + (_hd142557142587_ (let () (declare (not safe)) - (##car _e142296142322_)))) + (##car _e142558142584_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142295142325_)) + (gx#identifier? _hd142557142587_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd142295142325_)) + (gx#stx-eq? '%#if _hd142557142587_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142294142327_)) - (let ((_e142299142330_ + (gx#stx-pair? _tl142556142589_)) + (let ((_e142561142592_ (let () (declare (not safe)) - (gx#stx-e _tl142294142327_)))) - (let ((_tl142297142335_ + (gx#stx-e _tl142556142589_)))) + (let ((_tl142559142597_ (let () (declare (not safe)) - (##cdr _e142299142330_))) - (_hd142298142333_ + (##cdr _e142561142592_))) + (_hd142560142595_ (let () (declare (not safe)) - (##car _e142299142330_)))) + (##car _e142561142592_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142297142335_)) - (let ((_e142302142338_ + _tl142559142597_)) + (let ((_e142564142600_ (let () (declare (not safe)) (gx#stx-e - _tl142297142335_)))) - (let ((_tl142300142343_ + _tl142559142597_)))) + (let ((_tl142562142605_ (let () (declare (not safe)) - (##cdr _e142302142338_))) - (_hd142301142341_ + (##cdr _e142564142600_))) + (_hd142563142603_ (let () (declare (not safe)) - (##car _e142302142338_)))) + (##car _e142564142600_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142300142343_)) - (let ((_e142305142346_ + _tl142562142605_)) + (let ((_e142567142608_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142300142343_)))) - (let ((_tl142303142351_ - (let () (declare (not safe)) (##cdr _e142305142346_))) - (_hd142304142349_ - (let () (declare (not safe)) (##car _e142305142346_)))) + (gx#stx-e _tl142562142605_)))) + (let ((_tl142565142613_ + (let () (declare (not safe)) (##cdr _e142567142608_))) + (_hd142566142611_ + (let () (declare (not safe)) (##car _e142567142608_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142303142351_)) - (___kont148156148157_ - _hd142304142349_ - _hd142301142341_ - _hd142298142333_) - (___kont148158148159_)))) - (___kont148158148159_)))) + (gx#stx-null? _tl142565142613_)) + (___kont148418148419_ + _hd142566142611_ + _hd142563142603_ + _hd142560142595_) + (___kont148420148421_)))) + (___kont148420148421_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148158148159_)))) - (___kont148158148159_)) - (___kont148158148159_)) - (___kont148158148159_)))) - (___kont148158148159_)))))) + (___kont148420148421_)))) + (___kont148420148421_)) + (___kont148420148421_)) + (___kont148420148421_)))) + (___kont148420148421_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e142274_) - _expr141483_)))) - (___kont148198148199_ - (lambda (_L142151_ _L142152_ _L142153_) - (let ((_$e142170_ + _$e142536_) + _expr141745_)))) + (___kont148460148461_ + (lambda (_L142413_ _L142414_ _L142415_) + (let ((_$e142432_ (let () (declare (not safe)) - (_assert-e139426_ - _L142153_)))) + (_assert-e139688_ + _L142415_)))) (if (let () (declare (not safe)) - (eq? '#t _$e142170_)) - (if _in-splice?139411_ + (eq? '#t _$e142432_)) + (if _in-splice?139673_ (let () (declare (not safe)) - (_optimize-f__0__146879146880_ - _L142152_)) + (_optimize-f__0__147141147142_ + _L142414_)) (let () (declare (not safe)) - (_optimize-e139423_ - _L142152_))) + (_optimize-e139685_ + _L142414_))) (if (let () (declare (not safe)) - (eq? '#f _$e142170_)) + (eq? '#f _$e142432_)) (let () (declare (not safe)) - (_optimize-f__0__146879146880_ - _L142151_)) - (let ((_K142173_ + (_optimize-f__0__147141147142_ + _L142413_)) + (let ((_K142435_ (let () (declare (not safe)) - (_optimize-t__146873146874_ - _L142152_ - _L142153_ - _optimize-f139425_))) - (_E142174_ + (_optimize-t__147135147136_ + _L142414_ + _L142415_ + _optimize-f139687_))) + (_E142436_ (let () (declare (not safe)) - (_optimize-f__146877146878_ - _L142151_ - _L142153_)))) - (if (let ((__tmp150253 + (_optimize-f__147139147140_ + _L142413_ + _L142415_)))) + (if (let ((__tmp150515 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K142173_))) - (__tmp150252 + (gxc#apply-generate-runtime-repr _K142435_))) + (__tmp150514 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E142174_)))) + (gxc#apply-generate-runtime-repr _E142436_)))) (declare (not safe)) - (equal? __tmp150253 __tmp150252)) - _K142173_ - (let ((__tmp150249 - (let ((__tmp150250 - (let ((__tmp150251 + (equal? __tmp150515 __tmp150514)) + _K142435_ + (let ((__tmp150511 + (let ((__tmp150512 + (let ((__tmp150513 (let () (declare (not safe)) - (cons _E142174_ '())))) + (cons _E142436_ '())))) (declare (not safe)) - (cons _K142173_ __tmp150251)))) + (cons _K142435_ __tmp150513)))) (declare (not safe)) - (cons _L142153_ __tmp150250)))) + (cons _L142415_ __tmp150512)))) (declare (not safe)) - (cons '%#if __tmp150249))))))))) + (cons '%#if __tmp150511))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148200148201_ - (lambda (_L142081_ _L142082_ _L142083_) - (let* ((_body142102_ + (___kont148462148463_ + (lambda (_L142343_ _L142344_ _L142345_) + (let* ((_body142364_ (let () (declare (not safe)) - (_optimize-f__0__146879146880_ - _L142081_))) - (__tmp150254 - (let ((__tmp150256 + (_optimize-f__0__147141147142_ + _L142343_))) + (__tmp150516 + (let ((__tmp150518 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L142082_ - _L142083_)) - (let ((__tmp150257 + _L142344_ + _L142345_)) + (let ((__tmp150519 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g142103142107_ - _g142104142109_ - _g142105142111_) - (let ((__tmp150258 - (let ((__tmp150263 + (lambda (_g142365142369_ + _g142366142371_ + _g142367142373_) + (let ((__tmp150520 + (let ((__tmp150525 (let () (declare (not safe)) - (cons _g142104142109_ '()))) - (__tmp150259 - (let ((__tmp150260 - (let ((__tmp150262 + (cons _g142366142371_ '()))) + (__tmp150521 + (let ((__tmp150522 + (let ((__tmp150524 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150261 + (__tmp150523 (let () (declare (not safe)) - (cons _g142103142107_ + (cons _g142365142369_ '())))) (declare (not safe)) - (cons __tmp150262 - __tmp150261)))) + (cons __tmp150524 + __tmp150523)))) (declare (not safe)) - (cons __tmp150260 '())))) + (cons __tmp150522 '())))) (declare (not safe)) - (cons __tmp150263 __tmp150259)))) + (cons __tmp150525 __tmp150521)))) (declare (not safe)) - (cons __tmp150258 _g142105142111_))))) + (cons __tmp150520 _g142367142373_))))) (declare (not safe)) - (foldr2 __tmp150257 '() _L142082_ _L142083_)))) - (__tmp150255 - (let () (declare (not safe)) (cons _body142102_ '())))) + (foldr2 __tmp150519 '() _L142344_ _L142345_)))) + (__tmp150517 + (let () (declare (not safe)) (cons _body142364_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150256 - __tmp150255)))) + (cons __tmp150518 + __tmp150517)))) (declare (not safe)) - (cons '%#let-values __tmp150254)))) - (___kont148204148205_ - (lambda (_L141949_ _L141950_ _L141951_) - (let ((__tmp150264 + (cons '%#let-values __tmp150516)))) + (___kont148466148467_ + (lambda (_L142211_ _L142212_ _L142213_) + (let ((__tmp150526 (map cons - (let ((__tmp150265 - (lambda (_g141969141972_ + (let ((__tmp150527 + (lambda (_g142231142234_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g141970141974_) + _g142232142236_) (let () (declare (not safe)) - (cons _g141969141972_ _g141970141974_))))) + (cons _g142231142234_ _g142232142236_))))) (declare (not safe)) - (foldr1 __tmp150265 '() _L141951_)) + (foldr1 __tmp150527 '() _L142213_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp150266 - (lambda (_g141976141979_ + (let ((__tmp150528 + (lambda (_g142238142241_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g141977141981_) + _g142239142243_) (let () (declare (not safe)) - (cons _g141976141979_ _g141977141981_))))) + (cons _g142238142241_ _g142239142243_))))) (declare (not safe)) - (foldr1 __tmp150266 '() _L141950_))))) + (foldr1 __tmp150528 '() _L142212_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__146881146882_ - __tmp150264 - _L141949_ - _optimize-f139425_)))) - (___kont148208148209_ - (lambda (_L141805_ - _L141806_ - _L141807_ - _L141808_ - _L141809_) - (let ((__tmp150267 + (_bind-e__147143147144_ + __tmp150526 + _L142211_ + _optimize-f139687_)))) + (___kont148470148471_ + (lambda (_L142067_ + _L142068_ + _L142069_ + _L142070_ + _L142071_) + (let ((__tmp150529 (lambda () - (let* ((_expr141852_ + (let* ((_expr142114_ (let () (declare (not safe)) - (_optimize-f__0__146879146880_ - _L141807_))) - (__tmp150268 - (let ((__tmp150270 + (_optimize-f__0__147141147142_ + _L142069_))) + (__tmp150530 + (let ((__tmp150532 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150273 - (let ((__tmp150280 + (let ((__tmp150535 + (let ((__tmp150542 (let () (declare (not safe)) - (cons _L141809_ '()))) - (__tmp150274 - (let ((__tmp150275 - (let ((__tmp150276 - (let ((__tmp150278 - (let ((__tmp150279 + (cons _L142071_ '()))) + (__tmp150536 + (let ((__tmp150537 + (let ((__tmp150538 + (let ((__tmp150540 + (let ((__tmp150541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g141853141856_ _g141854141858_) + (lambda (_g142115142118_ _g142116142120_) (let () (declare (not safe)) - (cons _g141853141856_ _g141854141858_))))) + (cons _g142115142118_ _g142116142120_))))) (declare (not safe)) - (foldr1 __tmp150279 '() _L141808_))) - (__tmp150277 - (let () (declare (not safe)) (cons _expr141852_ '())))) + (foldr1 __tmp150541 '() _L142070_))) + (__tmp150539 + (let () (declare (not safe)) (cons _expr142114_ '())))) (declare (not safe)) - (cons __tmp150278 __tmp150277)))) + (cons __tmp150540 __tmp150539)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp150276)))) + (cons '%#lambda __tmp150538)))) (declare (not safe)) - (cons __tmp150275 '())))) + (cons __tmp150537 '())))) (declare (not safe)) - (cons __tmp150280 __tmp150274))) - (__tmp150271 - (let ((__tmp150272 - (lambda (_g141860141863_ - _g141861141865_) + (cons __tmp150542 __tmp150536))) + (__tmp150533 + (let ((__tmp150534 + (lambda (_g142122142125_ + _g142123142127_) (let () (declare (not safe)) - (cons _g141860141863_ - _g141861141865_))))) + (cons _g142122142125_ + _g142123142127_))))) (declare (not safe)) - (foldr1 __tmp150272 '() _L141806_)))) + (foldr1 __tmp150534 '() _L142068_)))) (declare (not safe)) - (cons __tmp150273 __tmp150271))) - (__tmp150269 - (let () (declare (not safe)) (cons _L141805_ '())))) + (cons __tmp150535 __tmp150533))) + (__tmp150531 + (let () (declare (not safe)) (cons _L142067_ '())))) (declare (not safe)) - (cons __tmp150270 __tmp150269)))) + (cons __tmp150532 __tmp150531)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp150268))))) + __tmp150530))))) (declare (not safe)) - (_do-splice!139422_ __tmp150267)))) - (___kont148214148215_ - (lambda () _expr141483_))) - (let* ((___match148401148402_ - (lambda (_e141615141677_ - _hd141614141680_ - _tl141613141682_ - _e141618141685_ - _hd141617141688_ - _tl141616141690_ - _e141621141693_ - _hd141620141696_ - _tl141619141698_ - _e141624141701_ - _hd141623141704_ - _tl141622141706_ - _e141627141709_ - _hd141626141712_ - _tl141625141714_ - _e141630141717_ - _hd141629141720_ - _tl141628141722_ - _e141633141725_ - _hd141632141728_ - _tl141631141730_ - _e141636141733_ - _hd141635141736_ - _tl141634141738_ - ___splice148210148211_ - _target141637141741_ - _tl141639141743_) - (letrec ((_loop141640141746_ - (lambda (_hd141638141749_ - _id141644141751_) + (_do-splice!139684_ __tmp150529)))) + (___kont148476148477_ + (lambda () _expr141745_))) + (let* ((___match148663148664_ + (lambda (_e141877141939_ + _hd141876141942_ + _tl141875141944_ + _e141880141947_ + _hd141879141950_ + _tl141878141952_ + _e141883141955_ + _hd141882141958_ + _tl141881141960_ + _e141886141963_ + _hd141885141966_ + _tl141884141968_ + _e141889141971_ + _hd141888141974_ + _tl141887141976_ + _e141892141979_ + _hd141891141982_ + _tl141890141984_ + _e141895141987_ + _hd141894141990_ + _tl141893141992_ + _e141898141995_ + _hd141897141998_ + _tl141896142000_ + ___splice148472148473_ + _target141899142003_ + _tl141901142005_) + (letrec ((_loop141902142008_ + (lambda (_hd141900142011_ + _id141906142013_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141638141749_)) - (let ((_e141641141754_ + _hd141900142011_)) + (let ((_e141903142016_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141638141749_)))) - (let ((_lp-tl141643141759_ + (gx#stx-e _hd141900142011_)))) + (let ((_lp-tl141905142021_ (let () (declare (not safe)) - (##cdr _e141641141754_))) - (_lp-hd141642141757_ + (##cdr _e141903142016_))) + (_lp-hd141904142019_ (let () (declare (not safe)) - (##car _e141641141754_)))) - (let ((__tmp150282 + (##car _e141903142016_)))) + (let ((__tmp150544 (let () (declare (not safe)) - (cons _lp-hd141642141757_ _id141644141751_)))) + (cons _lp-hd141904142019_ _id141906142013_)))) (declare (not safe)) - (_loop141640141746_ - _lp-tl141643141759_ - __tmp150282)))) - (let ((_id141645141762_ (reverse _id141644141751_))) + (_loop141902142008_ + _lp-tl141905142021_ + __tmp150544)))) + (let ((_id141907142024_ (reverse _id141906142013_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141634141738_)) - (let ((_e141648141765_ + (gx#stx-pair? _tl141896142000_)) + (let ((_e141910142027_ (let () (declare (not safe)) - (gx#stx-e _tl141634141738_)))) - (let ((_tl141646141770_ + (gx#stx-e _tl141896142000_)))) + (let ((_tl141908142032_ (let () (declare (not safe)) - (##cdr _e141648141765_))) - (_hd141647141768_ + (##cdr _e141910142027_))) + (_hd141909142030_ (let () (declare (not safe)) - (##car _e141648141765_)))) + (##car _e141910142027_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141646141770_)) + (gx#stx-null? _tl141908142032_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl141628141722_)) + (gx#stx-null? _tl141890141984_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl141619141698_)) - (let ((___splice148212148213_ + _tl141881141960_)) + (let ((___splice148474148475_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl141619141698_ + _tl141881141960_ '0)))) - (let ((_tl141651141775_ + (let ((_tl141913142037_ (let () (declare (not safe)) (##vector-ref - ___splice148212148213_ + ___splice148474148475_ '1))) - (_target141649141773_ + (_target141911142035_ (let () (declare (not safe)) (##vector-ref - ___splice148212148213_ + ___splice148474148475_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141651141775_)) - (letrec ((_loop141652141778_ - (lambda (_hd141650141781_ + _tl141913142037_)) + (letrec ((_loop141914142040_ + (lambda (_hd141912142043_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind141656141783_) + _bind141918142045_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141650141781_)) - (let ((_e141653141786_ + (gx#stx-pair? _hd141912142043_)) + (let ((_e141915142048_ (let () (declare (not safe)) - (gx#stx-e _hd141650141781_)))) - (let ((_lp-tl141655141791_ + (gx#stx-e _hd141912142043_)))) + (let ((_lp-tl141917142053_ (let () (declare (not safe)) - (##cdr _e141653141786_))) - (_lp-hd141654141789_ + (##cdr _e141915142048_))) + (_lp-hd141916142051_ (let () (declare (not safe)) - (##car _e141653141786_)))) - (let ((__tmp150281 + (##car _e141915142048_)))) + (let ((__tmp150543 (let () (declare (not safe)) - (cons _lp-hd141654141789_ - _bind141656141783_)))) + (cons _lp-hd141916142051_ + _bind141918142045_)))) (declare (not safe)) - (_loop141652141778_ - _lp-tl141655141791_ - __tmp150281)))) - (let ((_bind141657141794_ - (reverse _bind141656141783_))) + (_loop141914142040_ + _lp-tl141917142053_ + __tmp150543)))) + (let ((_bind141919142056_ + (reverse _bind141918142045_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141616141690_)) - (let ((_e141660141797_ + (gx#stx-pair? _tl141878141952_)) + (let ((_e141922142059_ (let () (declare (not safe)) - (gx#stx-e _tl141616141690_)))) - (let ((_tl141658141802_ + (gx#stx-e _tl141878141952_)))) + (let ((_tl141920142064_ (let () (declare (not safe)) - (##cdr _e141660141797_))) - (_hd141659141800_ + (##cdr _e141922142059_))) + (_hd141921142062_ (let () (declare (not safe)) - (##car _e141660141797_)))) + (##car _e141922142059_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141658141802_)) - (___kont148208148209_ - _hd141659141800_ - _bind141657141794_ - _hd141647141768_ - _id141645141762_ - _hd141626141712_) - (___kont148214148215_)))) - (___kont148214148215_))))))) + (gx#stx-null? _tl141920142064_)) + (___kont148470148471_ + _hd141921142062_ + _bind141919142056_ + _hd141909142030_ + _id141907142024_ + _hd141888141974_) + (___kont148476148477_)))) + (___kont148476148477_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141652141778_ - _target141649141773_ + (_loop141914142040_ + _target141911142035_ '()))) - (___kont148214148215_)))) - (___kont148214148215_)) - (___kont148214148215_)) - (___kont148214148215_)))) - (___kont148214148215_))))))) + (___kont148476148477_)))) + (___kont148476148477_)) + (___kont148476148477_)) + (___kont148476148477_)))) + (___kont148476148477_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141640141746_ - _target141637141741_ + (_loop141902142008_ + _target141899142003_ '()))))) - (___match148335148336_ - (lambda (_e141581141873_ - _hd141580141876_ - _tl141579141878_ - _e141584141881_ - _hd141583141884_ - _tl141582141886_ - ___splice148206148207_ - _target141585141889_ - _tl141587141891_) - (letrec ((_loop141588141894_ - (lambda (_hd141586141897_ - _expr141592141899_ - _id141593141901_) + (___match148597148598_ + (lambda (_e141843142135_ + _hd141842142138_ + _tl141841142140_ + _e141846142143_ + _hd141845142146_ + _tl141844142148_ + ___splice148468148469_ + _target141847142151_ + _tl141849142153_) + (letrec ((_loop141850142156_ + (lambda (_hd141848142159_ + _expr141854142161_ + _id141855142163_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141586141897_)) - (let ((_e141589141904_ + _hd141848142159_)) + (let ((_e141851142166_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141586141897_)))) - (let ((_lp-tl141591141909_ + (gx#stx-e _hd141848142159_)))) + (let ((_lp-tl141853142171_ (let () (declare (not safe)) - (##cdr _e141589141904_))) - (_lp-hd141590141907_ + (##cdr _e141851142166_))) + (_lp-hd141852142169_ (let () (declare (not safe)) - (##car _e141589141904_)))) + (##car _e141851142166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141590141907_)) - (let ((_e141598141912_ + (gx#stx-pair? _lp-hd141852142169_)) + (let ((_e141860142174_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141590141907_)))) - (let ((_tl141596141917_ + (gx#stx-e _lp-hd141852142169_)))) + (let ((_tl141858142179_ (let () (declare (not safe)) - (##cdr _e141598141912_))) - (_hd141597141915_ + (##cdr _e141860142174_))) + (_hd141859142177_ (let () (declare (not safe)) - (##car _e141598141912_)))) + (##car _e141860142174_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141597141915_)) - (let ((_e141601141920_ + (gx#stx-pair? _hd141859142177_)) + (let ((_e141863142182_ (let () (declare (not safe)) - (gx#stx-e _hd141597141915_)))) - (let ((_tl141599141925_ + (gx#stx-e _hd141859142177_)))) + (let ((_tl141861142187_ (let () (declare (not safe)) - (##cdr _e141601141920_))) - (_hd141600141923_ + (##cdr _e141863142182_))) + (_hd141862142185_ (let () (declare (not safe)) - (##car _e141601141920_)))) + (##car _e141863142182_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141599141925_)) + (gx#stx-null? _tl141861142187_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141596141917_)) - (let ((_e141604141928_ + _tl141858142179_)) + (let ((_e141866142190_ (let () (declare (not safe)) (gx#stx-e - _tl141596141917_)))) - (let ((_tl141602141933_ + _tl141858142179_)))) + (let ((_tl141864142195_ (let () (declare (not safe)) - (##cdr _e141604141928_))) - (_hd141603141931_ + (##cdr _e141866142190_))) + (_hd141865142193_ (let () (declare (not safe)) - (##car _e141604141928_)))) + (##car _e141866142190_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141602141933_)) - (let ((__tmp150284 + _tl141864142195_)) + (let ((__tmp150546 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd141603141931_ _expr141592141899_))) - (__tmp150283 + (cons _hd141865142193_ _expr141854142161_))) + (__tmp150545 (let () (declare (not safe)) - (cons _hd141600141923_ _id141593141901_)))) + (cons _hd141862142185_ _id141855142163_)))) (declare (not safe)) - (_loop141588141894_ - _lp-tl141591141909_ - __tmp150284 - __tmp150283)) - (___kont148214148215_)))) + (_loop141850142156_ + _lp-tl141853142171_ + __tmp150546 + __tmp150545)) + (___kont148476148477_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148214148215_)) - (___kont148214148215_)))) - (___kont148214148215_)))) - (___kont148214148215_)))) - (let ((_id141595141938_ (reverse _id141593141901_)) - (_expr141594141936_ (reverse _expr141592141899_))) + (___kont148476148477_)) + (___kont148476148477_)))) + (___kont148476148477_)))) + (___kont148476148477_)))) + (let ((_id141857142200_ (reverse _id141855142163_)) + (_expr141856142198_ (reverse _expr141854142161_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141582141886_)) - (let ((_e141607141941_ + (gx#stx-pair? _tl141844142148_)) + (let ((_e141869142203_ (let () (declare (not safe)) - (gx#stx-e _tl141582141886_)))) - (let ((_tl141605141946_ + (gx#stx-e _tl141844142148_)))) + (let ((_tl141867142208_ (let () (declare (not safe)) - (##cdr _e141607141941_))) - (_hd141606141944_ + (##cdr _e141869142203_))) + (_hd141868142206_ (let () (declare (not safe)) - (##car _e141607141941_)))) + (##car _e141869142203_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141605141946_)) - (___kont148204148205_ - _hd141606141944_ - _expr141594141936_ - _id141595141938_) - (___kont148214148215_)))) - (___kont148214148215_))))))) + (gx#stx-null? _tl141867142208_)) + (___kont148466148467_ + _hd141868142206_ + _expr141856142198_ + _id141857142200_) + (___kont148476148477_)))) + (___kont148476148477_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141588141894_ - _target141585141889_ + (_loop141850142156_ + _target141847142151_ '() '()))))) - (___match148311148312_ - (lambda (_e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_) - (letrec ((_loop141550142010_ - (lambda (_hd141548142013_ - _xid141554142015_ - _id141555142017_) + (___match148573148574_ + (lambda (_e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_) + (letrec ((_loop141812142272_ + (lambda (_hd141810142275_ + _xid141816142277_ + _id141817142279_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141548142013_)) - (let ((_e141551142020_ + _hd141810142275_)) + (let ((_e141813142282_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141548142013_)))) - (let ((_lp-tl141553142025_ + (gx#stx-e _hd141810142275_)))) + (let ((_lp-tl141815142287_ (let () (declare (not safe)) - (##cdr _e141551142020_))) - (_lp-hd141552142023_ + (##cdr _e141813142282_))) + (_lp-hd141814142285_ (let () (declare (not safe)) - (##car _e141551142020_)))) + (##car _e141813142282_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141552142023_)) - (let ((_e141560142028_ + (gx#stx-pair? _lp-hd141814142285_)) + (let ((_e141822142290_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141552142023_)))) - (let ((_tl141558142033_ + (gx#stx-e _lp-hd141814142285_)))) + (let ((_tl141820142295_ (let () (declare (not safe)) - (##cdr _e141560142028_))) - (_hd141559142031_ + (##cdr _e141822142290_))) + (_hd141821142293_ (let () (declare (not safe)) - (##car _e141560142028_)))) + (##car _e141822142290_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141559142031_)) - (let ((_e141563142036_ + (gx#stx-pair? _hd141821142293_)) + (let ((_e141825142298_ (let () (declare (not safe)) - (gx#stx-e _hd141559142031_)))) - (let ((_tl141561142041_ + (gx#stx-e _hd141821142293_)))) + (let ((_tl141823142303_ (let () (declare (not safe)) - (##cdr _e141563142036_))) - (_hd141562142039_ + (##cdr _e141825142298_))) + (_hd141824142301_ (let () (declare (not safe)) - (##car _e141563142036_)))) + (##car _e141825142298_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141561142041_)) + (gx#stx-null? _tl141823142303_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141558142033_)) - (let ((_e141566142044_ + _tl141820142295_)) + (let ((_e141828142306_ (let () (declare (not safe)) (gx#stx-e - _tl141558142033_)))) - (let ((_tl141564142049_ + _tl141820142295_)))) + (let ((_tl141826142311_ (let () (declare (not safe)) - (##cdr _e141566142044_))) - (_hd141565142047_ + (##cdr _e141828142306_))) + (_hd141827142309_ (let () (declare (not safe)) - (##car _e141566142044_)))) + (##car _e141828142306_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141565142047_)) - (let ((_e141569142052_ + _hd141827142309_)) + (let ((_e141831142314_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd141565142047_)))) - (let ((_tl141567142057_ - (let () (declare (not safe)) (##cdr _e141569142052_))) - (_hd141568142055_ + (gx#stx-e _hd141827142309_)))) + (let ((_tl141829142319_ + (let () (declare (not safe)) (##cdr _e141831142314_))) + (_hd141830142317_ (let () (declare (not safe)) - (##car _e141569142052_)))) + (##car _e141831142314_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141568142055_)) + (gx#identifier? _hd141830142317_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141568142055_)) + (gx#stx-eq? '%#ref _hd141830142317_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141567142057_)) - (let ((_e141572142060_ + (gx#stx-pair? _tl141829142319_)) + (let ((_e141834142322_ (let () (declare (not safe)) - (gx#stx-e _tl141567142057_)))) - (let ((_tl141570142065_ + (gx#stx-e _tl141829142319_)))) + (let ((_tl141832142327_ (let () (declare (not safe)) - (##cdr _e141572142060_))) - (_hd141571142063_ + (##cdr _e141834142322_))) + (_hd141833142325_ (let () (declare (not safe)) - (##car _e141572142060_)))) + (##car _e141834142322_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141570142065_)) + (gx#stx-null? _tl141832142327_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl141564142049_)) - (let ((__tmp150286 + (gx#stx-null? _tl141826142311_)) + (let ((__tmp150548 (let () (declare (not safe)) - (cons _hd141571142063_ - _xid141554142015_))) - (__tmp150285 + (cons _hd141833142325_ + _xid141816142277_))) + (__tmp150547 (let () (declare (not safe)) - (cons _hd141562142039_ - _id141555142017_)))) + (cons _hd141824142301_ + _id141817142279_)))) (declare (not safe)) - (_loop141550142010_ - _lp-tl141553142025_ - __tmp150286 - __tmp150285)) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)))) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)))) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)))) + (_loop141812142272_ + _lp-tl141815142287_ + __tmp150548 + __tmp150547)) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)))) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)))) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)))) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)))) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)))) - (let ((_id141557142070_ (reverse _id141555142017_)) - (_xid141556142068_ (reverse _xid141554142015_))) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)))) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)))) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)))) + (let ((_id141819142332_ (reverse _id141817142279_)) + (_xid141818142330_ (reverse _xid141816142277_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141544142002_)) - (let ((_e141575142073_ + (gx#stx-pair? _tl141806142264_)) + (let ((_e141837142335_ (let () (declare (not safe)) - (gx#stx-e _tl141544142002_)))) - (let ((_tl141573142078_ + (gx#stx-e _tl141806142264_)))) + (let ((_tl141835142340_ (let () (declare (not safe)) - (##cdr _e141575142073_))) - (_hd141574142076_ + (##cdr _e141837142335_))) + (_hd141836142338_ (let () (declare (not safe)) - (##car _e141575142073_)))) + (##car _e141837142335_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141573142078_)) - (___kont148200148201_ - _hd141574142076_ - _xid141556142068_ - _id141557142070_) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_)))) - (___match148335148336_ - _e141543141989_ - _hd141542141992_ - _tl141541141994_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_))))))) + (gx#stx-null? _tl141835142340_)) + (___kont148462148463_ + _hd141836142338_ + _xid141818142330_ + _id141819142332_) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_)))) + (___match148597148598_ + _e141805142251_ + _hd141804142254_ + _tl141803142256_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141550142010_ - _target141547142005_ + (_loop141812142272_ + _target141809142267_ '() '()))))) - (___match148257148258_ - (lambda (_e141498142181_ - _hd141497142184_ - _tl141496142186_ - _e141501142189_ - _hd141500142192_ - _tl141499142194_ - _e141504142197_ - _hd141503142200_ - _tl141502142202_ - _e141507142205_ - _hd141506142208_ - _tl141505142210_ - ___splice148196148197_ - _target141508142213_ - _tl141510142215_) - (letrec ((_loop141511142218_ - (lambda (_hd141509142221_ - _id141515142223_) + (___match148519148520_ + (lambda (_e141760142443_ + _hd141759142446_ + _tl141758142448_ + _e141763142451_ + _hd141762142454_ + _tl141761142456_ + _e141766142459_ + _hd141765142462_ + _tl141764142464_ + _e141769142467_ + _hd141768142470_ + _tl141767142472_ + ___splice148458148459_ + _target141770142475_ + _tl141772142477_) + (letrec ((_loop141773142480_ + (lambda (_hd141771142483_ + _id141777142485_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141509142221_)) - (let ((_e141512142226_ + _hd141771142483_)) + (let ((_e141774142488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141509142221_)))) - (let ((_lp-tl141514142231_ + (gx#stx-e _hd141771142483_)))) + (let ((_lp-tl141776142493_ (let () (declare (not safe)) - (##cdr _e141512142226_))) - (_lp-hd141513142229_ + (##cdr _e141774142488_))) + (_lp-hd141775142491_ (let () (declare (not safe)) - (##car _e141512142226_)))) + (##car _e141774142488_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141513142229_)) - (let ((_e141519142234_ + (gx#stx-pair? _lp-hd141775142491_)) + (let ((_e141781142496_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141513142229_)))) - (let ((_tl141517142239_ + (gx#stx-e _lp-hd141775142491_)))) + (let ((_tl141779142501_ (let () (declare (not safe)) - (##cdr _e141519142234_))) - (_hd141518142237_ + (##cdr _e141781142496_))) + (_hd141780142499_ (let () (declare (not safe)) - (##car _e141519142234_)))) + (##car _e141781142496_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141518142237_)) + (gx#identifier? _hd141780142499_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141518142237_)) + (gx#stx-eq? '%#ref _hd141780142499_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141517142239_)) - (let ((_e141522142242_ + (gx#stx-pair? _tl141779142501_)) + (let ((_e141784142504_ (let () (declare (not safe)) (gx#stx-e - _tl141517142239_)))) - (let ((_tl141520142247_ + _tl141779142501_)))) + (let ((_tl141782142509_ (let () (declare (not safe)) - (##cdr _e141522142242_))) - (_hd141521142245_ + (##cdr _e141784142504_))) + (_hd141783142507_ (let () (declare (not safe)) - (##car _e141522142242_)))) + (##car _e141784142504_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141520142247_)) - (let ((__tmp150287 + _tl141782142509_)) + (let ((__tmp150549 (let () (declare (not safe)) - (cons _hd141521142245_ + (cons _hd141783142507_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id141515142223_)))) + _id141777142485_)))) (declare (not safe)) - (_loop141511142218_ _lp-tl141514142231_ __tmp150287)) + (_loop141773142480_ _lp-tl141776142493_ __tmp150549)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148214148215_)))) - (___kont148214148215_)) - (___kont148214148215_)) - (___kont148214148215_)))) - (___kont148214148215_)))) - (let ((_id141516142250_ (reverse _id141515142223_))) - (___kont148194148195_ - _id141516142250_ - _hd141506142208_)))))) + (___kont148476148477_)))) + (___kont148476148477_)) + (___kont148476148477_)) + (___kont148476148477_)))) + (___kont148476148477_)))) + (let ((_id141778142512_ (reverse _id141777142485_))) + (___kont148456148457_ + _id141778142512_ + _hd141768142470_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141511142218_ - _target141508142213_ + (_loop141773142480_ + _target141770142475_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148192148193_)) - (let ((_e141498142181_ + (gx#stx-pair? ___stx148454148455_)) + (let ((_e141760142443_ (let () (declare (not safe)) (gx#stx-e - ___stx148192148193_)))) - (let ((_tl141496142186_ + ___stx148454148455_)))) + (let ((_tl141758142448_ (let () (declare (not safe)) - (##cdr _e141498142181_))) - (_hd141497142184_ + (##cdr _e141760142443_))) + (_hd141759142446_ (let () (declare (not safe)) - (##car _e141498142181_)))) + (##car _e141760142443_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141497142184_)) + _hd141759142446_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd141497142184_)) + _hd141759142446_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141496142186_)) - (let ((_e141501142189_ + _tl141758142448_)) + (let ((_e141763142451_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl141496142186_)))) - (let ((_tl141499142194_ - (let () (declare (not safe)) (##cdr _e141501142189_))) - (_hd141500142192_ + (gx#stx-e _tl141758142448_)))) + (let ((_tl141761142456_ + (let () (declare (not safe)) (##cdr _e141763142451_))) + (_hd141762142454_ (let () (declare (not safe)) - (##car _e141501142189_)))) + (##car _e141763142451_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141500142192_)) - (let ((_e141504142197_ + (gx#stx-pair? _hd141762142454_)) + (let ((_e141766142459_ (let () (declare (not safe)) - (gx#stx-e _hd141500142192_)))) - (let ((_tl141502142202_ + (gx#stx-e _hd141762142454_)))) + (let ((_tl141764142464_ (let () (declare (not safe)) - (##cdr _e141504142197_))) - (_hd141503142200_ + (##cdr _e141766142459_))) + (_hd141765142462_ (let () (declare (not safe)) - (##car _e141504142197_)))) + (##car _e141766142459_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141503142200_)) + (gx#identifier? _hd141765142462_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141503142200_)) + (gx#stx-eq? '%#ref _hd141765142462_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141502142202_)) - (let ((_e141507142205_ + (gx#stx-pair? _tl141764142464_)) + (let ((_e141769142467_ (let () (declare (not safe)) - (gx#stx-e _tl141502142202_)))) - (let ((_tl141505142210_ + (gx#stx-e _tl141764142464_)))) + (let ((_tl141767142472_ (let () (declare (not safe)) - (##cdr _e141507142205_))) - (_hd141506142208_ + (##cdr _e141769142467_))) + (_hd141768142470_ (let () (declare (not safe)) - (##car _e141507142205_)))) + (##car _e141769142467_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141505142210_)) + _tl141767142472_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl141499142194_)) - (let ((___splice148196148197_ + _tl141761142456_)) + (let ((___splice148458148459_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl141499142194_ + _tl141761142456_ '0)))) - (let ((_tl141510142215_ + (let ((_tl141772142477_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice148196148197_ '1))) - (_target141508142213_ + (##vector-ref ___splice148458148459_ '1))) + (_target141770142475_ (let () (declare (not safe)) - (##vector-ref ___splice148196148197_ '0)))) + (##vector-ref ___splice148458148459_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141510142215_)) - (___match148257148258_ - _e141498142181_ - _hd141497142184_ - _tl141496142186_ - _e141501142189_ - _hd141500142192_ - _tl141499142194_ - _e141504142197_ - _hd141503142200_ - _tl141502142202_ - _e141507142205_ - _hd141506142208_ - _tl141505142210_ - ___splice148196148197_ - _target141508142213_ - _tl141510142215_) - (___kont148214148215_)))) + (gx#stx-null? _tl141772142477_)) + (___match148519148520_ + _e141760142443_ + _hd141759142446_ + _tl141758142448_ + _e141763142451_ + _hd141762142454_ + _tl141761142456_ + _e141766142459_ + _hd141765142462_ + _tl141764142464_ + _e141769142467_ + _hd141768142470_ + _tl141767142472_ + ___splice148458148459_ + _target141770142475_ + _tl141772142477_) + (___kont148476148477_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148214148215_)) - (___kont148214148215_)))) - (___kont148214148215_)) - (___kont148214148215_)) - (___kont148214148215_)))) - (___kont148214148215_)))) - (___kont148214148215_)) + (___kont148476148477_)) + (___kont148476148477_)))) + (___kont148476148477_)) + (___kont148476148477_)) + (___kont148476148477_)))) + (___kont148476148477_)))) + (___kont148476148477_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd141497142184_)) + _hd141759142446_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141496142186_)) - (let ((_e141531142127_ + _tl141758142448_)) + (let ((_e141793142389_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl141496142186_)))) - (let ((_tl141529142132_ + (gx#stx-e _tl141758142448_)))) + (let ((_tl141791142394_ (let () (declare (not safe)) - (##cdr _e141531142127_))) - (_hd141530142130_ + (##cdr _e141793142389_))) + (_hd141792142392_ (let () (declare (not safe)) - (##car _e141531142127_)))) + (##car _e141793142389_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141529142132_)) - (let ((_e141534142135_ + (gx#stx-pair? _tl141791142394_)) + (let ((_e141796142397_ (let () (declare (not safe)) - (gx#stx-e _tl141529142132_)))) - (let ((_tl141532142140_ + (gx#stx-e _tl141791142394_)))) + (let ((_tl141794142402_ (let () (declare (not safe)) - (##cdr _e141534142135_))) - (_hd141533142138_ + (##cdr _e141796142397_))) + (_hd141795142400_ (let () (declare (not safe)) - (##car _e141534142135_)))) + (##car _e141796142397_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141532142140_)) - (let ((_e141537142143_ + (gx#stx-pair? _tl141794142402_)) + (let ((_e141799142405_ (let () (declare (not safe)) - (gx#stx-e _tl141532142140_)))) - (let ((_tl141535142148_ + (gx#stx-e _tl141794142402_)))) + (let ((_tl141797142410_ (let () (declare (not safe)) - (##cdr _e141537142143_))) - (_hd141536142146_ + (##cdr _e141799142405_))) + (_hd141798142408_ (let () (declare (not safe)) - (##car _e141537142143_)))) + (##car _e141799142405_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141535142148_)) - (___kont148198148199_ - _hd141536142146_ - _hd141533142138_ - _hd141530142130_) - (___kont148214148215_)))) - (___kont148214148215_)))) - (___kont148214148215_)))) - (___kont148214148215_)) + (gx#stx-null? _tl141797142410_)) + (___kont148460148461_ + _hd141798142408_ + _hd141795142400_ + _hd141792142392_) + (___kont148476148477_)))) + (___kont148476148477_)))) + (___kont148476148477_)))) + (___kont148476148477_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd141497142184_)) + (gx#stx-eq? '%#let-values _hd141759142446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141496142186_)) - (let ((_e141546141997_ + (gx#stx-pair? _tl141758142448_)) + (let ((_e141808142259_ (let () (declare (not safe)) - (gx#stx-e _tl141496142186_)))) - (let ((_tl141544142002_ + (gx#stx-e _tl141758142448_)))) + (let ((_tl141806142264_ (let () (declare (not safe)) - (##cdr _e141546141997_))) - (_hd141545142000_ + (##cdr _e141808142259_))) + (_hd141807142262_ (let () (declare (not safe)) - (##car _e141546141997_)))) + (##car _e141808142259_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd141545142000_)) - (let ((___splice148202148203_ + (gx#stx-pair/null? _hd141807142262_)) + (let ((___splice148464148465_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd141545142000_ + _hd141807142262_ '0)))) - (let ((_tl141549142007_ + (let ((_tl141811142269_ (let () (declare (not safe)) (##vector-ref - ___splice148202148203_ + ___splice148464148465_ '1))) - (_target141547142005_ + (_target141809142267_ (let () (declare (not safe)) (##vector-ref - ___splice148202148203_ + ___splice148464148465_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141549142007_)) - (___match148311148312_ - _e141498142181_ - _hd141497142184_ - _tl141496142186_ - _e141546141997_ - _hd141545142000_ - _tl141544142002_ - ___splice148202148203_ - _target141547142005_ - _tl141549142007_) - (___kont148214148215_)))) - (___kont148214148215_)))) - (___kont148214148215_)) + (gx#stx-null? _tl141811142269_)) + (___match148573148574_ + _e141760142443_ + _hd141759142446_ + _tl141758142448_ + _e141808142259_ + _hd141807142262_ + _tl141806142264_ + ___splice148464148465_ + _target141809142267_ + _tl141811142269_) + (___kont148476148477_)))) + (___kont148476148477_)))) + (___kont148476148477_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd141497142184_)) + (gx#stx-eq? '%#letrec-values _hd141759142446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141496142186_)) - (let ((_e141618141685_ + (gx#stx-pair? _tl141758142448_)) + (let ((_e141880141947_ (let () (declare (not safe)) - (gx#stx-e _tl141496142186_)))) - (let ((_tl141616141690_ + (gx#stx-e _tl141758142448_)))) + (let ((_tl141878141952_ (let () (declare (not safe)) - (##cdr _e141618141685_))) - (_hd141617141688_ + (##cdr _e141880141947_))) + (_hd141879141950_ (let () (declare (not safe)) - (##car _e141618141685_)))) + (##car _e141880141947_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141617141688_)) - (let ((_e141621141693_ + (gx#stx-pair? _hd141879141950_)) + (let ((_e141883141955_ (let () (declare (not safe)) - (gx#stx-e _hd141617141688_)))) - (let ((_tl141619141698_ + (gx#stx-e _hd141879141950_)))) + (let ((_tl141881141960_ (let () (declare (not safe)) - (##cdr _e141621141693_))) - (_hd141620141696_ + (##cdr _e141883141955_))) + (_hd141882141958_ (let () (declare (not safe)) - (##car _e141621141693_)))) + (##car _e141883141955_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141620141696_)) - (let ((_e141624141701_ + (gx#stx-pair? _hd141882141958_)) + (let ((_e141886141963_ (let () (declare (not safe)) (gx#stx-e - _hd141620141696_)))) - (let ((_tl141622141706_ + _hd141882141958_)))) + (let ((_tl141884141968_ (let () (declare (not safe)) - (##cdr _e141624141701_))) - (_hd141623141704_ + (##cdr _e141886141963_))) + (_hd141885141966_ (let () (declare (not safe)) - (##car _e141624141701_)))) + (##car _e141886141963_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141623141704_)) - (let ((_e141627141709_ + _hd141885141966_)) + (let ((_e141889141971_ (let () (declare (not safe)) (gx#stx-e - _hd141623141704_)))) - (let ((_tl141625141714_ + _hd141885141966_)))) + (let ((_tl141887141976_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e141627141709_))) - (_hd141626141712_ - (let () (declare (not safe)) (##car _e141627141709_)))) + (##cdr _e141889141971_))) + (_hd141888141974_ + (let () (declare (not safe)) (##car _e141889141971_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141625141714_)) + (gx#stx-null? _tl141887141976_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141622141706_)) - (let ((_e141630141717_ + (gx#stx-pair? _tl141884141968_)) + (let ((_e141892141979_ (let () (declare (not safe)) - (gx#stx-e _tl141622141706_)))) - (let ((_tl141628141722_ + (gx#stx-e _tl141884141968_)))) + (let ((_tl141890141984_ (let () (declare (not safe)) - (##cdr _e141630141717_))) - (_hd141629141720_ + (##cdr _e141892141979_))) + (_hd141891141982_ (let () (declare (not safe)) - (##car _e141630141717_)))) + (##car _e141892141979_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141629141720_)) - (let ((_e141633141725_ + (gx#stx-pair? _hd141891141982_)) + (let ((_e141895141987_ (let () (declare (not safe)) - (gx#stx-e _hd141629141720_)))) - (let ((_tl141631141730_ + (gx#stx-e _hd141891141982_)))) + (let ((_tl141893141992_ (let () (declare (not safe)) - (##cdr _e141633141725_))) - (_hd141632141728_ + (##cdr _e141895141987_))) + (_hd141894141990_ (let () (declare (not safe)) - (##car _e141633141725_)))) + (##car _e141895141987_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141632141728_)) + (gx#identifier? _hd141894141990_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd141632141728_)) + _hd141894141990_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141631141730_)) - (let ((_e141636141733_ + _tl141893141992_)) + (let ((_e141898141995_ (let () (declare (not safe)) (gx#stx-e - _tl141631141730_)))) - (let ((_tl141634141738_ + _tl141893141992_)))) + (let ((_tl141896142000_ (let () (declare (not safe)) - (##cdr _e141636141733_))) - (_hd141635141736_ + (##cdr _e141898141995_))) + (_hd141897141998_ (let () (declare (not safe)) - (##car _e141636141733_)))) + (##car _e141898141995_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd141635141736_)) - (let ((___splice148210148211_ + _hd141897141998_)) + (let ((___splice148472148473_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd141635141736_ '0)))) - (let ((_tl141639141743_ + (gx#syntax-split-splice _hd141897141998_ '0)))) + (let ((_tl141901142005_ (let () (declare (not safe)) - (##vector-ref ___splice148210148211_ '1))) - (_target141637141741_ + (##vector-ref ___splice148472148473_ '1))) + (_target141899142003_ (let () (declare (not safe)) - (##vector-ref ___splice148210148211_ '0)))) + (##vector-ref ___splice148472148473_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141639141743_)) - (___match148401148402_ - _e141498142181_ - _hd141497142184_ - _tl141496142186_ - _e141618141685_ - _hd141617141688_ - _tl141616141690_ - _e141621141693_ - _hd141620141696_ - _tl141619141698_ - _e141624141701_ - _hd141623141704_ - _tl141622141706_ - _e141627141709_ - _hd141626141712_ - _tl141625141714_ - _e141630141717_ - _hd141629141720_ - _tl141628141722_ - _e141633141725_ - _hd141632141728_ - _tl141631141730_ - _e141636141733_ - _hd141635141736_ - _tl141634141738_ - ___splice148210148211_ - _target141637141741_ - _tl141639141743_) - (___kont148214148215_)))) - (___kont148214148215_)))) + (gx#stx-null? _tl141901142005_)) + (___match148663148664_ + _e141760142443_ + _hd141759142446_ + _tl141758142448_ + _e141880141947_ + _hd141879141950_ + _tl141878141952_ + _e141883141955_ + _hd141882141958_ + _tl141881141960_ + _e141886141963_ + _hd141885141966_ + _tl141884141968_ + _e141889141971_ + _hd141888141974_ + _tl141887141976_ + _e141892141979_ + _hd141891141982_ + _tl141890141984_ + _e141895141987_ + _hd141894141990_ + _tl141893141992_ + _e141898141995_ + _hd141897141998_ + _tl141896142000_ + ___splice148472148473_ + _target141899142003_ + _tl141901142005_) + (___kont148476148477_)))) + (___kont148476148477_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148214148215_)) - (___kont148214148215_)) - (___kont148214148215_)))) - (___kont148214148215_)))) - (___kont148214148215_)) - (___kont148214148215_)))) + (___kont148476148477_)) + (___kont148476148477_)) + (___kont148476148477_)))) + (___kont148476148477_)))) + (___kont148476148477_)) + (___kont148476148477_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148214148215_)))) - (___kont148214148215_)))) - (___kont148214148215_)))) - (___kont148214148215_)) - (___kont148214148215_))))) + (___kont148476148477_)))) + (___kont148476148477_)))) + (___kont148476148477_)))) + (___kont148476148477_)) + (___kont148476148477_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148214148215_)))) - (___kont148214148215_)))))))) + (___kont148476148477_)))) + (___kont148476148477_)))))))) (declare (not safe)) - (_do-assert139412_ __tmp150288 __tmp150246)))) - (_optimize-f__0__146879146880_ - (lambda (_expr142390_) - (let ((_test142392_ '#f)) + (_do-assert139674_ __tmp150550 __tmp150508)))) + (_optimize-f__0__147141147142_ + (lambda (_expr142652_) + (let ((_test142654_ '#f)) (declare (not safe)) - (_optimize-f__146877146878_ - _expr142390_ - _test142392_)))) - (_optimize-f139425_ - (lambda _g150291_ - (let ((_g150290_ + (_optimize-f__147139147140_ + _expr142652_ + _test142654_)))) + (_optimize-f139687_ + (lambda _g150553_ + (let ((_g150552_ (let () (declare (not safe)) - (##length _g150291_)))) - (cond ((let () (declare (not safe)) (##fx= _g150290_ 1)) - (apply (lambda (_expr142390_) + (##length _g150553_)))) + (cond ((let () (declare (not safe)) (##fx= _g150552_ 1)) + (apply (lambda (_expr142652_) (let () (declare (not safe)) - (_optimize-f__0__146879146880_ - _expr142390_))) - _g150291_)) - ((let () (declare (not safe)) (##fx= _g150290_ 2)) - (apply (lambda (_expr142394_ _test142395_) + (_optimize-f__0__147141147142_ + _expr142652_))) + _g150553_)) + ((let () (declare (not safe)) (##fx= _g150552_ 2)) + (apply (lambda (_expr142656_ _test142657_) (let () (declare (not safe)) - (_optimize-f__146877146878_ - _expr142394_ - _test142395_))) - _g150291_)) + (_optimize-f__147139147140_ + _expr142656_ + _test142657_))) + _g150553_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150291_)))))) - (_assert-e139426_ - (lambda (_expr140424_) - (let* ((_sexpr140426_ + _g150553_)))))) + (_assert-e139688_ + (lambda (_expr140686_) + (let* ((_sexpr140688_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr140424_))) - (_$e140428_ - (assoc _sexpr140426_ _env-assert139408_))) - (if _$e140428_ - (cdr _$e140428_) - (let _assert140431_ ((_expr140433_ _expr140424_)) - (let* ((___stx148498148499_ _expr140433_) - (_g140441140620_ + (gxc#apply-generate-runtime-repr _expr140686_))) + (_$e140690_ + (assoc _sexpr140688_ _env-assert139670_))) + (if _$e140690_ + (cdr _$e140690_) + (let _assert140693_ ((_expr140695_ _expr140686_)) + (let* ((___stx148760148761_ _expr140695_) + (_g140703140882_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148498148499_))))) - (let ((___kont148500148501_ - (lambda (_L141451_ _L141452_) - (let ((_$e141474_ + ___stx148760148761_))))) + (let ((___kont148762148763_ + (lambda (_L141713_ _L141714_) + (let ((_$e141736_ (let () (declare (not safe)) - (_predicate-type139413_ - _L141452_)))) - (if _$e141474_ - ((lambda (_t141477_) + (_predicate-type139675_ + _L141714_)))) + (if _$e141736_ + ((lambda (_t141739_) (let () (declare (not safe)) - (_assert-type139427_ - _L141451_ - _t141477_))) - _$e141474_) + (_assert-type139689_ + _L141713_ + _t141739_))) + _$e141736_) '#!void)))) - (___kont148502148503_ - (lambda (_L141144_ _L141145_ _L141146_) - (let ((_$e141171_ + (___kont148764148765_ + (lambda (_L141406_ _L141407_ _L141408_) + (let ((_$e141433_ (let () (declare (not safe)) (gxc#identifier-symbol - _L141146_)))) + _L141408_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e141171_)) + (eq? '##fx= _$e141433_)) (let () (declare (not safe)) - (eq? 'fx= _$e141171_))) - (let* ((___stx148404148405_ - _L141145_) - (_g141178141207_ + (eq? 'fx= _$e141433_))) + (let* ((___stx148666148667_ + _L141407_) + (_g141440141469_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148404148405_))))) - (let ((___kont148406148407_ - (lambda (_L141275_ - _L141276_) - (let ((_$e141301_ + ___stx148666148667_))))) + (let ((___kont148668148669_ + (lambda (_L141537_ + _L141538_) + (let ((_$e141563_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol139415_ _L141276_)))) - (if _$e141301_ - ((lambda (_sym141304_) - (let ((__tmp150294 + (_countf-symbol139677_ _L141538_)))) + (if _$e141563_ + ((lambda (_sym141566_) + (let ((__tmp150556 (let () (declare (not safe)) - (gx#stx-e _L141144_)))) + (gx#stx-e _L141406_)))) (declare (not safe)) - (_assert-count139428_ - _L141275_ - _sym141304_ - __tmp150294))) - _$e141301_) + (_assert-count139690_ + _L141537_ + _sym141566_ + __tmp150556))) + _$e141563_) '#!void)))) - (___kont148408148409_ (lambda () '#!void))) + (___kont148670148671_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148404148405_)) - (let ((_e141184141219_ + ___stx148666148667_)) + (let ((_e141446141481_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx148404148405_)))) - (let ((_tl141182141224_ - (let () (declare (not safe)) (##cdr _e141184141219_))) - (_hd141183141222_ - (let () (declare (not safe)) (##car _e141184141219_)))) + (gx#stx-e ___stx148666148667_)))) + (let ((_tl141444141486_ + (let () (declare (not safe)) (##cdr _e141446141481_))) + (_hd141445141484_ + (let () (declare (not safe)) (##car _e141446141481_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141183141222_)) + (gx#identifier? _hd141445141484_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd141183141222_)) + (gx#stx-eq? '%#call _hd141445141484_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141182141224_)) - (let ((_e141187141227_ + (gx#stx-pair? _tl141444141486_)) + (let ((_e141449141489_ (let () (declare (not safe)) - (gx#stx-e _tl141182141224_)))) - (let ((_tl141185141232_ + (gx#stx-e _tl141444141486_)))) + (let ((_tl141447141494_ (let () (declare (not safe)) - (##cdr _e141187141227_))) - (_hd141186141230_ + (##cdr _e141449141489_))) + (_hd141448141492_ (let () (declare (not safe)) - (##car _e141187141227_)))) + (##car _e141449141489_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141186141230_)) - (let ((_e141190141235_ + (gx#stx-pair? _hd141448141492_)) + (let ((_e141452141497_ (let () (declare (not safe)) - (gx#stx-e _hd141186141230_)))) - (let ((_tl141188141240_ + (gx#stx-e _hd141448141492_)))) + (let ((_tl141450141502_ (let () (declare (not safe)) - (##cdr _e141190141235_))) - (_hd141189141238_ + (##cdr _e141452141497_))) + (_hd141451141500_ (let () (declare (not safe)) - (##car _e141190141235_)))) + (##car _e141452141497_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141189141238_)) + _hd141451141500_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd141189141238_)) + _hd141451141500_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141188141240_)) - (let ((_e141193141243_ + _tl141450141502_)) + (let ((_e141455141505_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl141188141240_)))) - (let ((_tl141191141248_ - (let () (declare (not safe)) (##cdr _e141193141243_))) - (_hd141192141246_ - (let () (declare (not safe)) (##car _e141193141243_)))) + (gx#stx-e _tl141450141502_)))) + (let ((_tl141453141510_ + (let () (declare (not safe)) (##cdr _e141455141505_))) + (_hd141454141508_ + (let () (declare (not safe)) (##car _e141455141505_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141191141248_)) + (gx#stx-null? _tl141453141510_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141185141232_)) - (let ((_e141196141251_ + (gx#stx-pair? _tl141447141494_)) + (let ((_e141458141513_ (let () (declare (not safe)) - (gx#stx-e _tl141185141232_)))) - (let ((_tl141194141256_ + (gx#stx-e _tl141447141494_)))) + (let ((_tl141456141518_ (let () (declare (not safe)) - (##cdr _e141196141251_))) - (_hd141195141254_ + (##cdr _e141458141513_))) + (_hd141457141516_ (let () (declare (not safe)) - (##car _e141196141251_)))) + (##car _e141458141513_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141195141254_)) - (let ((_e141199141259_ + (gx#stx-pair? _hd141457141516_)) + (let ((_e141461141521_ (let () (declare (not safe)) - (gx#stx-e _hd141195141254_)))) - (let ((_tl141197141264_ + (gx#stx-e _hd141457141516_)))) + (let ((_tl141459141526_ (let () (declare (not safe)) - (##cdr _e141199141259_))) - (_hd141198141262_ + (##cdr _e141461141521_))) + (_hd141460141524_ (let () (declare (not safe)) - (##car _e141199141259_)))) + (##car _e141461141521_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141198141262_)) + (gx#identifier? _hd141460141524_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd141198141262_)) + _hd141460141524_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141197141264_)) - (let ((_e141202141267_ + _tl141459141526_)) + (let ((_e141464141529_ (let () (declare (not safe)) (gx#stx-e - _tl141197141264_)))) - (let ((_tl141200141272_ + _tl141459141526_)))) + (let ((_tl141462141534_ (let () (declare (not safe)) - (##cdr _e141202141267_))) - (_hd141201141270_ + (##cdr _e141464141529_))) + (_hd141463141532_ (let () (declare (not safe)) - (##car _e141202141267_)))) + (##car _e141464141529_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141200141272_)) + _tl141462141534_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl141194141256_)) - (___kont148406148407_ _hd141201141270_ _hd141192141246_) - (___kont148408148409_)) - (___kont148408148409_)))) + (gx#stx-null? _tl141456141518_)) + (___kont148668148669_ _hd141463141532_ _hd141454141508_) + (___kont148670148671_)) + (___kont148670148671_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148408148409_)) - (___kont148408148409_)) - (___kont148408148409_)))) - (___kont148408148409_)))) - (___kont148408148409_)) - (___kont148408148409_)))) - (___kont148408148409_)) + (___kont148670148671_)) + (___kont148670148671_)) + (___kont148670148671_)))) + (___kont148670148671_)))) + (___kont148670148671_)) + (___kont148670148671_)))) + (___kont148670148671_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148408148409_)) - (___kont148408148409_)))) - (___kont148408148409_)))) - (___kont148408148409_)) - (___kont148408148409_)) - (___kont148408148409_)))) - (___kont148408148409_)))) + (___kont148670148671_)) + (___kont148670148671_)))) + (___kont148670148671_)))) + (___kont148670148671_)) + (___kont148670148671_)) + (___kont148670148671_)))) + (___kont148670148671_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e141171_)) + _$e141433_)) (let () (declare (not safe)) - (eq? 'eq? _$e141171_)) + (eq? 'eq? _$e141433_)) (let () (declare (not safe)) (eq? '##eqv? - _$e141171_)) + _$e141433_)) (let () (declare (not safe)) - (eq? 'eqv? _$e141171_)) + (eq? 'eqv? _$e141433_)) (let () (declare (not safe)) (eq? '##equal? - _$e141171_)) + _$e141433_)) (let () (declare (not safe)) (eq? 'equal? - _$e141171_)) + _$e141433_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e141171_)) + _$e141433_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e141171_))) - ((lambda (_sym141330_) - (let* ((___stx148472148473_ - _L141145_) - (_g141333141346_ + _$e141433_))) + ((lambda (_sym141592_) + (let* ((___stx148734148735_ + _L141407_) + (_g141595141608_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9741,1465 +9741,1465 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148472148473_))))) - (let ((___kont148474148475_ - (lambda (_L141374_) - (let ((__tmp150293 + ___stx148734148735_))))) + (let ((___kont148736148737_ + (lambda (_L141636_) + (let ((__tmp150555 (let () (declare (not safe)) - (_eqf-symbol139416_ _sym141330_))) - (__tmp150292 + (_eqf-symbol139678_ _sym141592_))) + (__tmp150554 (let () (declare (not safe)) - (gx#stx-e _L141144_)))) + (gx#stx-e _L141406_)))) (declare (not safe)) - (_assert-eqf139429_ - _L141374_ - __tmp150293 - __tmp150292)))) - (___kont148476148477_ (lambda () '#!void))) + (_assert-eqf139691_ + _L141636_ + __tmp150555 + __tmp150554)))) + (___kont148738148739_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148472148473_)) - (let ((_e141338141358_ + (gx#stx-pair? ___stx148734148735_)) + (let ((_e141600141620_ (let () (declare (not safe)) - (gx#stx-e ___stx148472148473_)))) - (let ((_tl141336141363_ + (gx#stx-e ___stx148734148735_)))) + (let ((_tl141598141625_ (let () (declare (not safe)) - (##cdr _e141338141358_))) - (_hd141337141361_ + (##cdr _e141600141620_))) + (_hd141599141623_ (let () (declare (not safe)) - (##car _e141338141358_)))) + (##car _e141600141620_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141337141361_)) + (gx#identifier? _hd141599141623_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141337141361_)) + (gx#stx-eq? '%#ref _hd141599141623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141336141363_)) - (let ((_e141341141366_ + (gx#stx-pair? _tl141598141625_)) + (let ((_e141603141628_ (let () (declare (not safe)) - (gx#stx-e _tl141336141363_)))) - (let ((_tl141339141371_ + (gx#stx-e _tl141598141625_)))) + (let ((_tl141601141633_ (let () (declare (not safe)) - (##cdr _e141341141366_))) - (_hd141340141369_ + (##cdr _e141603141628_))) + (_hd141602141631_ (let () (declare (not safe)) - (##car _e141341141366_)))) + (##car _e141603141628_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141339141371_)) - (___kont148474148475_ - _hd141340141369_) - (___kont148476148477_)))) - (___kont148476148477_)) - (___kont148476148477_)) - (___kont148476148477_)))) - (___kont148476148477_))))) + (gx#stx-null? _tl141601141633_)) + (___kont148736148737_ + _hd141602141631_) + (___kont148738148739_)))) + (___kont148738148739_)) + (___kont148738148739_)) + (___kont148738148739_)))) + (___kont148738148739_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e141171_) + _$e141433_) '#!void))))) - (___kont148504148505_ - (lambda (_L141048_ _L141049_ _L141050_) - (let ((__tmp150295 - (let ((__tmp150305 + (___kont148766148767_ + (lambda (_L141310_ _L141311_ _L141312_) + (let ((__tmp150557 + (let ((__tmp150567 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150296 - (let ((__tmp150302 - (let ((__tmp150304 + (__tmp150558 + (let ((__tmp150564 + (let ((__tmp150566 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150303 + (__tmp150565 (let () (declare (not safe)) - (cons _L141050_ '())))) + (cons _L141312_ '())))) (declare (not safe)) - (cons __tmp150304 __tmp150303))) - (__tmp150297 - (let ((__tmp150298 - (let ((__tmp150299 - (let ((__tmp150301 + (cons __tmp150566 __tmp150565))) + (__tmp150559 + (let ((__tmp150560 + (let ((__tmp150561 + (let ((__tmp150563 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp150300 + (__tmp150562 (let () (declare (not safe)) - (cons _L141049_ '())))) + (cons _L141311_ '())))) (declare (not safe)) - (cons __tmp150301 __tmp150300)))) + (cons __tmp150563 __tmp150562)))) (declare (not safe)) - (cons __tmp150299 '())))) + (cons __tmp150561 '())))) (declare (not safe)) - (cons _L141048_ __tmp150298)))) + (cons _L141310_ __tmp150560)))) (declare (not safe)) - (cons __tmp150302 __tmp150297)))) + (cons __tmp150564 __tmp150559)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150305 - __tmp150296)))) + (cons __tmp150567 + __tmp150558)))) (declare (not safe)) - (_assert140431_ __tmp150295)))) - (___kont148506148507_ - (lambda (_L140940_ _L140941_ _L140942_) - (let ((_$e140971_ + (_assert140693_ __tmp150557)))) + (___kont148768148769_ + (lambda (_L141202_ _L141203_ _L141204_) + (let ((_$e141233_ (let () (declare (not safe)) (gxc#identifier-symbol - _L140942_)))) + _L141204_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e140971_)) + _$e141233_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e140971_))) - ((lambda (_sym140977_) - (let ((__tmp150306 + _$e141233_))) + ((lambda (_sym141239_) + (let ((__tmp150568 (let () (declare (not safe)) - (_eqf-symbol139416_ - _sym140977_)))) + (_eqf-symbol139678_ + _sym141239_)))) (declare (not safe)) - (_assert-eqf139429_ - _L140941_ - __tmp150306 - _L140940_))) - _$e140971_) + (_assert-eqf139691_ + _L141203_ + __tmp150568 + _L141202_))) + _$e141233_) '#!void)))) - (___kont148508148509_ - (lambda (_L140824_ _L140825_ _L140826_) - (let ((__tmp150307 - (let ((__tmp150320 + (___kont148770148771_ + (lambda (_L141086_ _L141087_ _L141088_) + (let ((__tmp150569 + (let ((__tmp150582 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150308 - (let ((__tmp150317 - (let ((__tmp150319 + (__tmp150570 + (let ((__tmp150579 + (let ((__tmp150581 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150318 + (__tmp150580 (let () (declare (not safe)) - (cons _L140826_ '())))) + (cons _L141088_ '())))) (declare (not safe)) - (cons __tmp150319 __tmp150318))) - (__tmp150309 - (let ((__tmp150314 - (let ((__tmp150316 + (cons __tmp150581 __tmp150580))) + (__tmp150571 + (let ((__tmp150576 + (let ((__tmp150578 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150315 + (__tmp150577 (let () (declare (not safe)) - (cons _L140824_ '())))) + (cons _L141086_ '())))) (declare (not safe)) - (cons __tmp150316 __tmp150315))) - (__tmp150310 - (let ((__tmp150311 - (let ((__tmp150313 + (cons __tmp150578 __tmp150577))) + (__tmp150572 + (let ((__tmp150573 + (let ((__tmp150575 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp150312 + (__tmp150574 (let () (declare (not safe)) - (cons _L140825_ '())))) + (cons _L141087_ '())))) (declare (not safe)) - (cons __tmp150313 __tmp150312)))) + (cons __tmp150575 __tmp150574)))) (declare (not safe)) - (cons __tmp150311 '())))) + (cons __tmp150573 '())))) (declare (not safe)) - (cons __tmp150314 __tmp150310)))) + (cons __tmp150576 __tmp150572)))) (declare (not safe)) - (cons __tmp150317 __tmp150309)))) + (cons __tmp150579 __tmp150571)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150320 - __tmp150308)))) + (cons __tmp150582 + __tmp150570)))) (declare (not safe)) - (_assert140431_ __tmp150307)))) - (___kont148510148511_ - (lambda (_L140704_ _L140705_ _L140706_) - (let ((__tmp150321 + (_assert140693_ __tmp150569)))) + (___kont148772148773_ + (lambda (_L140966_ _L140967_ _L140968_) + (let ((__tmp150583 (let () (declare (not safe)) (gxc#apply-expression-subst - _L140705_ - _L140706_ - _L140704_)))) + _L140967_ + _L140968_ + _L140966_)))) (declare (not safe)) - (_assert140431_ __tmp150321)))) - (___kont148512148513_ + (_assert140693_ __tmp150583)))) + (___kont148774148775_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148498148499_)) - (let ((_e140447141395_ + (gx#stx-pair? ___stx148760148761_)) + (let ((_e140709141657_ (let () (declare (not safe)) - (gx#stx-e ___stx148498148499_)))) - (let ((_tl140445141400_ + (gx#stx-e ___stx148760148761_)))) + (let ((_tl140707141662_ (let () (declare (not safe)) - (##cdr _e140447141395_))) - (_hd140446141398_ + (##cdr _e140709141657_))) + (_hd140708141660_ (let () (declare (not safe)) - (##car _e140447141395_)))) + (##car _e140709141657_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140446141398_)) + _hd140708141660_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd140446141398_)) + _hd140708141660_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140445141400_)) - (let ((_e140450141403_ + _tl140707141662_)) + (let ((_e140712141665_ (let () (declare (not safe)) (gx#stx-e - _tl140445141400_)))) - (let ((_tl140448141408_ + _tl140707141662_)))) + (let ((_tl140710141670_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140450141403_))) - (_hd140449141406_ - (let () (declare (not safe)) (##car _e140450141403_)))) + (##cdr _e140712141665_))) + (_hd140711141668_ + (let () (declare (not safe)) (##car _e140712141665_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140449141406_)) - (let ((_e140453141411_ + (gx#stx-pair? _hd140711141668_)) + (let ((_e140715141673_ (let () (declare (not safe)) - (gx#stx-e _hd140449141406_)))) - (let ((_tl140451141416_ + (gx#stx-e _hd140711141668_)))) + (let ((_tl140713141678_ (let () (declare (not safe)) - (##cdr _e140453141411_))) - (_hd140452141414_ + (##cdr _e140715141673_))) + (_hd140714141676_ (let () (declare (not safe)) - (##car _e140453141411_)))) + (##car _e140715141673_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140452141414_)) + (gx#identifier? _hd140714141676_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140452141414_)) + (gx#stx-eq? '%#ref _hd140714141676_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140451141416_)) - (let ((_e140456141419_ + (gx#stx-pair? _tl140713141678_)) + (let ((_e140718141681_ (let () (declare (not safe)) - (gx#stx-e _tl140451141416_)))) - (let ((_tl140454141424_ + (gx#stx-e _tl140713141678_)))) + (let ((_tl140716141686_ (let () (declare (not safe)) - (##cdr _e140456141419_))) - (_hd140455141422_ + (##cdr _e140718141681_))) + (_hd140717141684_ (let () (declare (not safe)) - (##car _e140456141419_)))) + (##car _e140718141681_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140454141424_)) + (gx#stx-null? _tl140716141686_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140448141408_)) - (let ((_e140459141427_ + _tl140710141670_)) + (let ((_e140721141689_ (let () (declare (not safe)) (gx#stx-e - _tl140448141408_)))) - (let ((_tl140457141432_ + _tl140710141670_)))) + (let ((_tl140719141694_ (let () (declare (not safe)) - (##cdr _e140459141427_))) - (_hd140458141430_ + (##cdr _e140721141689_))) + (_hd140720141692_ (let () (declare (not safe)) - (##car _e140459141427_)))) + (##car _e140721141689_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140458141430_)) - (let ((_e140462141435_ + _hd140720141692_)) + (let ((_e140724141697_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd140458141430_)))) - (let ((_tl140460141440_ + (gx#stx-e _hd140720141692_)))) + (let ((_tl140722141702_ (let () (declare (not safe)) - (##cdr _e140462141435_))) - (_hd140461141438_ + (##cdr _e140724141697_))) + (_hd140723141700_ (let () (declare (not safe)) - (##car _e140462141435_)))) + (##car _e140724141697_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140461141438_)) + (gx#identifier? _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140461141438_)) + (gx#stx-eq? '%#ref _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140465141443_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140727141705_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140463141448_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140725141710_ (let () (declare (not safe)) - (##cdr _e140465141443_))) - (_hd140464141446_ + (##cdr _e140727141705_))) + (_hd140726141708_ (let () (declare (not safe)) - (##car _e140465141443_)))) + (##car _e140727141705_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140463141448_)) + (gx#stx-null? _tl140725141710_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140457141432_)) - (___kont148500148501_ - _hd140464141446_ - _hd140455141422_) + (gx#stx-null? _tl140719141694_)) + (___kont148762148763_ + _hd140726141708_ + _hd140717141684_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140457141432_)) - (let ((_e140486141120_ + _tl140719141694_)) + (let ((_e140748141382_ (let () (declare (not safe)) (gx#stx-e - _tl140457141432_)))) - (let ((_tl140484141125_ + _tl140719141694_)))) + (let ((_tl140746141387_ (let () (declare (not safe)) - (##cdr _e140486141120_))) - (_hd140485141123_ + (##cdr _e140748141382_))) + (_hd140747141385_ (let () (declare (not safe)) - (##car _e140486141120_)))) + (##car _e140748141382_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140485141123_)) - (let ((_e140489141128_ + _hd140747141385_)) + (let ((_e140751141390_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd140485141123_)))) - (let ((_tl140487141133_ + (gx#stx-e _hd140747141385_)))) + (let ((_tl140749141395_ (let () (declare (not safe)) - (##cdr _e140489141128_))) - (_hd140488141131_ + (##cdr _e140751141390_))) + (_hd140750141393_ (let () (declare (not safe)) - (##car _e140489141128_)))) + (##car _e140751141390_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140488141131_)) + (gx#identifier? _hd140750141393_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140488141131_)) + (gx#stx-eq? '%#quote _hd140750141393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140487141133_)) - (let ((_e140492141136_ + (gx#stx-pair? _tl140749141395_)) + (let ((_e140754141398_ (let () (declare (not safe)) - (gx#stx-e _tl140487141133_)))) - (let ((_tl140490141141_ + (gx#stx-e _tl140749141395_)))) + (let ((_tl140752141403_ (let () (declare (not safe)) - (##cdr _e140492141136_))) - (_hd140491141139_ + (##cdr _e140754141398_))) + (_hd140753141401_ (let () (declare (not safe)) - (##car _e140492141136_)))) + (##car _e140754141398_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140490141141_)) + (gx#stx-null? _tl140752141403_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148502148503_ - _hd140491141139_ - _hd140458141430_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) + (gx#stx-null? _tl140746141387_)) + (___kont148764148765_ + _hd140753141401_ + _hd140720141692_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140488141131_)) + _hd140750141393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140487141133_)) - (let ((_e140552140932_ + (gx#stx-pair? _tl140749141395_)) + (let ((_e140814141194_ (let () (declare (not safe)) - (gx#stx-e _tl140487141133_)))) - (let ((_tl140550140937_ + (gx#stx-e _tl140749141395_)))) + (let ((_tl140812141199_ (let () (declare (not safe)) - (##cdr _e140552140932_))) - (_hd140551140935_ + (##cdr _e140814141194_))) + (_hd140813141197_ (let () (declare (not safe)) - (##car _e140552140932_)))) + (##car _e140814141194_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140550140937_)) + (gx#stx-null? _tl140812141199_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140484141125_)) - (___kont148506148507_ - _hd140551140935_ - _hd140464141446_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_))) - (___kont148512148513_)))) - (___kont148512148513_)))) + _tl140746141387_)) + (___kont148768148769_ + _hd140813141197_ + _hd140726141708_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_))) + (___kont148774148775_)))) + (___kont148774148775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_))) + (___kont148774148775_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140457141432_)) - (let ((_e140486141120_ + (gx#stx-pair? _tl140719141694_)) + (let ((_e140748141382_ (let () (declare (not safe)) (gx#stx-e - _tl140457141432_)))) - (let ((_tl140484141125_ + _tl140719141694_)))) + (let ((_tl140746141387_ (let () (declare (not safe)) - (##cdr _e140486141120_))) - (_hd140485141123_ + (##cdr _e140748141382_))) + (_hd140747141385_ (let () (declare (not safe)) - (##car _e140486141120_)))) + (##car _e140748141382_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140485141123_)) - (let ((_e140489141128_ + _hd140747141385_)) + (let ((_e140751141390_ (let () (declare (not safe)) (gx#stx-e - _hd140485141123_)))) - (let ((_tl140487141133_ + _hd140747141385_)))) + (let ((_tl140749141395_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140489141128_))) - (_hd140488141131_ - (let () (declare (not safe)) (##car _e140489141128_)))) + (##cdr _e140751141390_))) + (_hd140750141393_ + (let () (declare (not safe)) (##car _e140751141390_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140488141131_)) + (gx#identifier? _hd140750141393_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140488141131_)) + (gx#stx-eq? '%#quote _hd140750141393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140487141133_)) - (let ((_e140492141136_ + (gx#stx-pair? _tl140749141395_)) + (let ((_e140754141398_ (let () (declare (not safe)) - (gx#stx-e _tl140487141133_)))) - (let ((_tl140490141141_ + (gx#stx-e _tl140749141395_)))) + (let ((_tl140752141403_ (let () (declare (not safe)) - (##cdr _e140492141136_))) - (_hd140491141139_ + (##cdr _e140754141398_))) + (_hd140753141401_ (let () (declare (not safe)) - (##car _e140492141136_)))) + (##car _e140754141398_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140490141141_)) + (gx#stx-null? _tl140752141403_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148502148503_ - _hd140491141139_ - _hd140458141430_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_)) - (___kont148512148513_)))) + (gx#stx-null? _tl140746141387_)) + (___kont148764148765_ + _hd140753141401_ + _hd140720141692_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_)) + (___kont148774148775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)))) - (___kont148512148513_))))) + (___kont148774148775_)))) + (___kont148774148775_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140457141432_)) - (let ((_e140486141120_ + (gx#stx-pair? _tl140719141694_)) + (let ((_e140748141382_ (let () (declare (not safe)) - (gx#stx-e _tl140457141432_)))) - (let ((_tl140484141125_ + (gx#stx-e _tl140719141694_)))) + (let ((_tl140746141387_ (let () (declare (not safe)) - (##cdr _e140486141120_))) - (_hd140485141123_ + (##cdr _e140748141382_))) + (_hd140747141385_ (let () (declare (not safe)) - (##car _e140486141120_)))) + (##car _e140748141382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140485141123_)) - (let ((_e140489141128_ + (gx#stx-pair? _hd140747141385_)) + (let ((_e140751141390_ (let () (declare (not safe)) (gx#stx-e - _hd140485141123_)))) - (let ((_tl140487141133_ + _hd140747141385_)))) + (let ((_tl140749141395_ (let () (declare (not safe)) - (##cdr _e140489141128_))) - (_hd140488141131_ + (##cdr _e140751141390_))) + (_hd140750141393_ (let () (declare (not safe)) - (##car _e140489141128_)))) + (##car _e140751141390_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140488141131_)) + _hd140750141393_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140488141131_)) + _hd140750141393_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140487141133_)) - (let ((_e140492141136_ + (gx#stx-pair? _tl140749141395_)) + (let ((_e140754141398_ (let () (declare (not safe)) - (gx#stx-e _tl140487141133_)))) - (let ((_tl140490141141_ + (gx#stx-e _tl140749141395_)))) + (let ((_tl140752141403_ (let () (declare (not safe)) - (##cdr _e140492141136_))) - (_hd140491141139_ + (##cdr _e140754141398_))) + (_hd140753141401_ (let () (declare (not safe)) - (##car _e140492141136_)))) + (##car _e140754141398_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140490141141_)) + (gx#stx-null? _tl140752141403_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148502148503_ - _hd140491141139_ - _hd140458141430_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_)) + (gx#stx-null? _tl140746141387_)) + (___kont148764148765_ + _hd140753141401_ + _hd140720141692_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)))) - (___kont148512148513_)))) - (___kont148512148513_))) + (___kont148774148775_)))) + (___kont148774148775_)))) + (___kont148774148775_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140457141432_)) - (let ((_e140486141120_ + (gx#stx-pair? _tl140719141694_)) + (let ((_e140748141382_ (let () (declare (not safe)) - (gx#stx-e _tl140457141432_)))) - (let ((_tl140484141125_ + (gx#stx-e _tl140719141694_)))) + (let ((_tl140746141387_ (let () (declare (not safe)) - (##cdr _e140486141120_))) - (_hd140485141123_ + (##cdr _e140748141382_))) + (_hd140747141385_ (let () (declare (not safe)) - (##car _e140486141120_)))) + (##car _e140748141382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140485141123_)) - (let ((_e140489141128_ + (gx#stx-pair? _hd140747141385_)) + (let ((_e140751141390_ (let () (declare (not safe)) (gx#stx-e - _hd140485141123_)))) - (let ((_tl140487141133_ + _hd140747141385_)))) + (let ((_tl140749141395_ (let () (declare (not safe)) - (##cdr _e140489141128_))) - (_hd140488141131_ + (##cdr _e140751141390_))) + (_hd140750141393_ (let () (declare (not safe)) - (##car _e140489141128_)))) + (##car _e140751141390_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140488141131_)) + _hd140750141393_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140488141131_)) + _hd140750141393_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140487141133_)) - (let ((_e140492141136_ + _tl140749141395_)) + (let ((_e140754141398_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140487141133_)))) - (let ((_tl140490141141_ + (gx#stx-e _tl140749141395_)))) + (let ((_tl140752141403_ (let () (declare (not safe)) - (##cdr _e140492141136_))) - (_hd140491141139_ + (##cdr _e140754141398_))) + (_hd140753141401_ (let () (declare (not safe)) - (##car _e140492141136_)))) + (##car _e140754141398_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140490141141_)) + (gx#stx-null? _tl140752141403_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148502148503_ - _hd140491141139_ - _hd140458141430_ - _hd140455141422_) + (gx#stx-null? _tl140746141387_)) + (___kont148764148765_ + _hd140753141401_ + _hd140720141692_ + _hd140717141684_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140461141438_)) + (gx#stx-eq? '%#quote _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140516141032_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140778141294_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140514141037_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140776141299_ (let () (declare (not safe)) - (##cdr _e140516141032_))) - (_hd140515141035_ + (##cdr _e140778141294_))) + (_hd140777141297_ (let () (declare (not safe)) - (##car _e140516141032_)))) - (___kont148512148513_))) - (___kont148512148513_)) + (##car _e140778141294_)))) + (___kont148774148775_))) + (___kont148774148775_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140461141438_)) + _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140576140792_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140838141054_ (let () (declare (not safe)) (gx#stx-e - _tl140460141440_)))) - (let ((_tl140574140797_ + _tl140722141702_)))) + (let ((_tl140836141059_ (let () (declare (not safe)) - (##cdr _e140576140792_))) - (_hd140575140795_ + (##cdr _e140838141054_))) + (_hd140837141057_ (let () (declare (not safe)) - (##car _e140576140792_)))) - (___kont148512148513_))) - (___kont148512148513_)) - (___kont148512148513_)))) + (##car _e140838141054_)))) + (___kont148774148775_))) + (___kont148774148775_)) + (___kont148774148775_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140461141438_)) + (gx#stx-eq? '%#quote _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140516141032_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140778141294_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140514141037_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140776141299_ (let () (declare (not safe)) - (##cdr _e140516141032_))) - (_hd140515141035_ + (##cdr _e140778141294_))) + (_hd140777141297_ (let () (declare (not safe)) - (##car _e140516141032_)))) + (##car _e140778141294_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140514141037_)) + (gx#stx-null? _tl140776141299_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148504148505_ - _hd140485141123_ - _hd140515141035_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) + (gx#stx-null? _tl140746141387_)) + (___kont148766148767_ + _hd140747141385_ + _hd140777141297_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140461141438_)) + _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140576140792_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140838141054_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140574140797_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140836141059_ (let () (declare (not safe)) - (##cdr _e140576140792_))) - (_hd140575140795_ + (##cdr _e140838141054_))) + (_hd140837141057_ (let () (declare (not safe)) - (##car _e140576140792_)))) - (___kont148512148513_))) - (___kont148512148513_)) - (___kont148512148513_)))))) + (##car _e140838141054_)))) + (___kont148774148775_))) + (___kont148774148775_)) + (___kont148774148775_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140461141438_)) + (gx#stx-eq? '%#quote _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140516141032_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140778141294_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140514141037_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140776141299_ (let () (declare (not safe)) - (##cdr _e140516141032_))) - (_hd140515141035_ + (##cdr _e140778141294_))) + (_hd140777141297_ (let () (declare (not safe)) - (##car _e140516141032_)))) + (##car _e140778141294_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140514141037_)) + (gx#stx-null? _tl140776141299_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148504148505_ - _hd140485141123_ - _hd140515141035_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) + (gx#stx-null? _tl140746141387_)) + (___kont148766148767_ + _hd140747141385_ + _hd140777141297_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd140461141438_)) + (gx#stx-eq? '%#quote-syntax _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140576140792_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140838141054_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140574140797_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140836141059_ (let () (declare (not safe)) - (##cdr _e140576140792_))) - (_hd140575140795_ + (##cdr _e140838141054_))) + (_hd140837141057_ (let () (declare (not safe)) - (##car _e140576140792_)))) - (___kont148512148513_))) - (___kont148512148513_)) - (___kont148512148513_)))) + (##car _e140838141054_)))) + (___kont148774148775_))) + (___kont148774148775_)) + (___kont148774148775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140461141438_)) + _hd140723141700_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140516141032_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140778141294_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140514141037_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140776141299_ (let () (declare (not safe)) - (##cdr _e140516141032_))) - (_hd140515141035_ + (##cdr _e140778141294_))) + (_hd140777141297_ (let () (declare (not safe)) - (##car _e140516141032_)))) + (##car _e140778141294_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140514141037_)) + (gx#stx-null? _tl140776141299_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148504148505_ - _hd140485141123_ - _hd140515141035_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) + (gx#stx-null? _tl140746141387_)) + (___kont148766148767_ + _hd140747141385_ + _hd140777141297_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd140461141438_)) + (gx#stx-eq? '%#quote-syntax _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140576140792_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140838141054_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140574140797_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140836141059_ (let () (declare (not safe)) - (##cdr _e140576140792_))) - (_hd140575140795_ + (##cdr _e140838141054_))) + (_hd140837141057_ (let () (declare (not safe)) - (##car _e140576140792_)))) + (##car _e140838141054_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140574140797_)) + (gx#stx-null? _tl140836141059_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140488141131_)) + (gx#stx-eq? '%#ref _hd140750141393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140487141133_)) - (let ((_e140585140816_ + (gx#stx-pair? _tl140749141395_)) + (let ((_e140847141078_ (let () (declare (not safe)) (gx#stx-e - _tl140487141133_)))) - (let ((_tl140583140821_ + _tl140749141395_)))) + (let ((_tl140845141083_ (let () (declare (not safe)) - (##cdr _e140585140816_))) - (_hd140584140819_ + (##cdr _e140847141078_))) + (_hd140846141081_ (let () (declare (not safe)) - (##car _e140585140816_)))) + (##car _e140847141078_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140583140821_)) + _tl140845141083_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140484141125_)) - (___kont148508148509_ - _hd140584140819_ - _hd140575140795_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_)))) + _tl140746141387_)) + (___kont148770148771_ + _hd140846141081_ + _hd140837141057_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140461141438_)) + _hd140723141700_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140460141440_)) - (let ((_e140516141032_ + _tl140722141702_)) + (let ((_e140778141294_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140514141037_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140776141299_ (let () (declare (not safe)) - (##cdr _e140516141032_))) - (_hd140515141035_ + (##cdr _e140778141294_))) + (_hd140777141297_ (let () (declare (not safe)) - (##car _e140516141032_)))) + (##car _e140778141294_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140514141037_)) + (gx#stx-null? _tl140776141299_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148504148505_ - _hd140485141123_ - _hd140515141035_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) + (gx#stx-null? _tl140746141387_)) + (___kont148766148767_ + _hd140747141385_ + _hd140777141297_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140461141438_)) + _hd140723141700_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140576140792_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140838141054_ (let () (declare (not safe)) - (gx#stx-e _tl140460141440_)))) - (let ((_tl140574140797_ + (gx#stx-e _tl140722141702_)))) + (let ((_tl140836141059_ (let () (declare (not safe)) - (##cdr _e140576140792_))) - (_hd140575140795_ + (##cdr _e140838141054_))) + (_hd140837141057_ (let () (declare (not safe)) - (##car _e140576140792_)))) - (___kont148512148513_))) - (___kont148512148513_)) - (___kont148512148513_)))))) + (##car _e140838141054_)))) + (___kont148774148775_))) + (___kont148774148775_)) + (___kont148774148775_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140461141438_)) + _hd140723141700_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140460141440_)) - (let ((_e140516141032_ + _tl140722141702_)) + (let ((_e140778141294_ (let () (declare (not safe)) (gx#stx-e - _tl140460141440_)))) - (let ((_tl140514141037_ + _tl140722141702_)))) + (let ((_tl140776141299_ (let () (declare (not safe)) - (##cdr _e140516141032_))) - (_hd140515141035_ + (##cdr _e140778141294_))) + (_hd140777141297_ (let () (declare (not safe)) - (##car _e140516141032_)))) + (##car _e140778141294_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140514141037_)) + _tl140776141299_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148504148505_ - _hd140485141123_ - _hd140515141035_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) + (gx#stx-null? _tl140746141387_)) + (___kont148766148767_ + _hd140747141385_ + _hd140777141297_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)) + (___kont148774148775_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140461141438_)) + _hd140723141700_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140460141440_)) - (let ((_e140576140792_ + _tl140722141702_)) + (let ((_e140838141054_ (let () (declare (not safe)) (gx#stx-e - _tl140460141440_)))) - (let ((_tl140574140797_ + _tl140722141702_)))) + (let ((_tl140836141059_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140576140792_))) - (_hd140575140795_ - (let () (declare (not safe)) (##car _e140576140792_)))) - (___kont148512148513_))) + (##cdr _e140838141054_))) + (_hd140837141057_ + (let () (declare (not safe)) (##car _e140838141054_)))) + (___kont148774148775_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)) - (___kont148512148513_)))))) + (___kont148774148775_)) + (___kont148774148775_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140461141438_)) + (gx#stx-eq? '%#quote _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140516141032_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140778141294_ (let () (declare (not safe)) (gx#stx-e - _tl140460141440_)))) - (let ((_tl140514141037_ + _tl140722141702_)))) + (let ((_tl140776141299_ (let () (declare (not safe)) - (##cdr _e140516141032_))) - (_hd140515141035_ + (##cdr _e140778141294_))) + (_hd140777141297_ (let () (declare (not safe)) - (##car _e140516141032_)))) - (___kont148512148513_))) - (___kont148512148513_)) + (##car _e140778141294_)))) + (___kont148774148775_))) + (___kont148774148775_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140461141438_)) + _hd140723141700_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140460141440_)) - (let ((_e140576140792_ + (gx#stx-pair? _tl140722141702_)) + (let ((_e140838141054_ (let () (declare (not safe)) (gx#stx-e - _tl140460141440_)))) - (let ((_tl140574140797_ + _tl140722141702_)))) + (let ((_tl140836141059_ (let () (declare (not safe)) - (##cdr _e140576140792_))) - (_hd140575140795_ + (##cdr _e140838141054_))) + (_hd140837141057_ (let () (declare (not safe)) - (##car _e140576140792_)))) - (___kont148512148513_))) - (___kont148512148513_)) - (___kont148512148513_))))) + (##car _e140838141054_)))) + (___kont148774148775_))) + (___kont148774148775_)) + (___kont148774148775_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140457141432_)) - (let ((_e140486141120_ + (gx#stx-pair? _tl140719141694_)) + (let ((_e140748141382_ (let () (declare (not safe)) - (gx#stx-e _tl140457141432_)))) - (let ((_tl140484141125_ + (gx#stx-e _tl140719141694_)))) + (let ((_tl140746141387_ (let () (declare (not safe)) - (##cdr _e140486141120_))) - (_hd140485141123_ + (##cdr _e140748141382_))) + (_hd140747141385_ (let () (declare (not safe)) - (##car _e140486141120_)))) + (##car _e140748141382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140485141123_)) - (let ((_e140489141128_ + (gx#stx-pair? _hd140747141385_)) + (let ((_e140751141390_ (let () (declare (not safe)) - (gx#stx-e _hd140485141123_)))) - (let ((_tl140487141133_ + (gx#stx-e _hd140747141385_)))) + (let ((_tl140749141395_ (let () (declare (not safe)) - (##cdr _e140489141128_))) - (_hd140488141131_ + (##cdr _e140751141390_))) + (_hd140750141393_ (let () (declare (not safe)) - (##car _e140489141128_)))) + (##car _e140751141390_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140488141131_)) + _hd140750141393_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140488141131_)) + _hd140750141393_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140487141133_)) - (let ((_e140492141136_ + _tl140749141395_)) + (let ((_e140754141398_ (let () (declare (not safe)) (gx#stx-e - _tl140487141133_)))) - (let ((_tl140490141141_ + _tl140749141395_)))) + (let ((_tl140752141403_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140492141136_))) - (_hd140491141139_ - (let () (declare (not safe)) (##car _e140492141136_)))) + (##cdr _e140754141398_))) + (_hd140753141401_ + (let () (declare (not safe)) (##car _e140754141398_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140490141141_)) + (gx#stx-null? _tl140752141403_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140484141125_)) - (___kont148502148503_ - _hd140491141139_ - _hd140458141430_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) + (gx#stx-null? _tl140746141387_)) + (___kont148764148765_ + _hd140753141401_ + _hd140720141692_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)))) - (___kont148512148513_))))) + (___kont148774148775_)) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)))) + (___kont148774148775_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140457141432_)) - (let ((_e140486141120_ + (gx#stx-pair? _tl140719141694_)) + (let ((_e140748141382_ (let () (declare (not safe)) - (gx#stx-e _tl140457141432_)))) - (let ((_tl140484141125_ + (gx#stx-e _tl140719141694_)))) + (let ((_tl140746141387_ (let () (declare (not safe)) - (##cdr _e140486141120_))) - (_hd140485141123_ + (##cdr _e140748141382_))) + (_hd140747141385_ (let () (declare (not safe)) - (##car _e140486141120_)))) + (##car _e140748141382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140485141123_)) - (let ((_e140489141128_ + (gx#stx-pair? _hd140747141385_)) + (let ((_e140751141390_ (let () (declare (not safe)) - (gx#stx-e _hd140485141123_)))) - (let ((_tl140487141133_ + (gx#stx-e _hd140747141385_)))) + (let ((_tl140749141395_ (let () (declare (not safe)) - (##cdr _e140489141128_))) - (_hd140488141131_ + (##cdr _e140751141390_))) + (_hd140750141393_ (let () (declare (not safe)) - (##car _e140489141128_)))) + (##car _e140751141390_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140488141131_)) + (gx#identifier? _hd140750141393_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140488141131_)) + _hd140750141393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140487141133_)) - (let ((_e140492141136_ + (gx#stx-pair? _tl140749141395_)) + (let ((_e140754141398_ (let () (declare (not safe)) (gx#stx-e - _tl140487141133_)))) - (let ((_tl140490141141_ + _tl140749141395_)))) + (let ((_tl140752141403_ (let () (declare (not safe)) - (##cdr _e140492141136_))) - (_hd140491141139_ + (##cdr _e140754141398_))) + (_hd140753141401_ (let () (declare (not safe)) - (##car _e140492141136_)))) + (##car _e140754141398_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140490141141_)) + _tl140752141403_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140484141125_)) - (___kont148502148503_ - _hd140491141139_ - _hd140458141430_ - _hd140455141422_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)))) - (___kont148512148513_))))) + _tl140746141387_)) + (___kont148764148765_ + _hd140753141401_ + _hd140720141692_ + _hd140717141684_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)))) + (___kont148774148775_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd140452141414_)) + (gx#stx-eq? '%#lambda _hd140714141676_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140451141416_)) - (let ((_e140600140656_ + (gx#stx-pair? _tl140713141678_)) + (let ((_e140862140918_ (let () (declare (not safe)) (gx#stx-e - _tl140451141416_)))) - (let ((_tl140598140661_ + _tl140713141678_)))) + (let ((_tl140860140923_ (let () (declare (not safe)) - (##cdr _e140600140656_))) - (_hd140599140659_ + (##cdr _e140862140918_))) + (_hd140861140921_ (let () (declare (not safe)) - (##car _e140600140656_)))) + (##car _e140862140918_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140599140659_)) - (let ((_e140603140664_ + _hd140861140921_)) + (let ((_e140865140926_ (let () (declare (not safe)) (gx#stx-e - _hd140599140659_)))) - (let ((_tl140601140669_ + _hd140861140921_)))) + (let ((_tl140863140931_ (let () (declare (not safe)) - (##cdr _e140603140664_))) - (_hd140602140667_ + (##cdr _e140865140926_))) + (_hd140864140929_ (let () (declare (not safe)) - (##car _e140603140664_)))) + (##car _e140865140926_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140601140669_)) + _tl140863140931_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140598140661_)) - (let ((_e140606140672_ + (gx#stx-pair? _tl140860140923_)) + (let ((_e140868140934_ (let () (declare (not safe)) - (gx#stx-e _tl140598140661_)))) - (let ((_tl140604140677_ + (gx#stx-e _tl140860140923_)))) + (let ((_tl140866140939_ (let () (declare (not safe)) - (##cdr _e140606140672_))) - (_hd140605140675_ + (##cdr _e140868140934_))) + (_hd140867140937_ (let () (declare (not safe)) - (##car _e140606140672_)))) + (##car _e140868140934_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140604140677_)) + (gx#stx-null? _tl140866140939_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140448141408_)) - (let ((_e140609140680_ + (gx#stx-pair? _tl140710141670_)) + (let ((_e140871140942_ (let () (declare (not safe)) - (gx#stx-e _tl140448141408_)))) - (let ((_tl140607140685_ + (gx#stx-e _tl140710141670_)))) + (let ((_tl140869140947_ (let () (declare (not safe)) - (##cdr _e140609140680_))) - (_hd140608140683_ + (##cdr _e140871140942_))) + (_hd140870140945_ (let () (declare (not safe)) - (##car _e140609140680_)))) + (##car _e140871140942_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140608140683_)) - (let ((_e140612140688_ + (gx#stx-pair? _hd140870140945_)) + (let ((_e140874140950_ (let () (declare (not safe)) (gx#stx-e - _hd140608140683_)))) - (let ((_tl140610140693_ + _hd140870140945_)))) + (let ((_tl140872140955_ (let () (declare (not safe)) - (##cdr _e140612140688_))) - (_hd140611140691_ + (##cdr _e140874140950_))) + (_hd140873140953_ (let () (declare (not safe)) - (##car _e140612140688_)))) + (##car _e140874140950_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140611140691_)) + _hd140873140953_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd140611140691_)) + _hd140873140953_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140610140693_)) - (let ((_e140615140696_ + _tl140872140955_)) + (let ((_e140877140958_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140610140693_)))) - (let ((_tl140613140701_ + (gx#stx-e _tl140872140955_)))) + (let ((_tl140875140963_ (let () (declare (not safe)) - (##cdr _e140615140696_))) - (_hd140614140699_ + (##cdr _e140877140958_))) + (_hd140876140961_ (let () (declare (not safe)) - (##car _e140615140696_)))) + (##car _e140877140958_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140613140701_)) + (gx#stx-null? _tl140875140963_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140607140685_)) - (___kont148510148511_ - _hd140614140699_ - _hd140605140675_ - _hd140602140667_) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) + (gx#stx-null? _tl140869140947_)) + (___kont148772148773_ + _hd140876140961_ + _hd140867140937_ + _hd140864140929_) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_)))) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)))) - (___kont148512148513_)) - (___kont148512148513_))) - (___kont148512148513_)))) - (___kont148512148513_)))) + (___kont148774148775_)))) + (___kont148774148775_)) + (___kont148774148775_))) + (___kont148774148775_)))) + (___kont148774148775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148512148513_)) - (___kont148512148513_)) - (___kont148512148513_)))) - (___kont148512148513_))))))))) - (_assert-type139427_ - (lambda (_id140326_ _t140327_) - (let _lp140329_ ((_rest140331_ _env-type139409_)) - (let* ((_rest140332140340_ _rest140331_) - (_else140334140348_ (lambda () '#!void)) - (_K140336140412_ - (lambda (_rest140351_ _type-info140352_) - (let* ((_type-info140353140365_ - _type-info140352_) - (_else140355140373_ + (___kont148774148775_)) + (___kont148774148775_)) + (___kont148774148775_)))) + (___kont148774148775_))))))))) + (_assert-type139689_ + (lambda (_id140588_ _t140589_) + (let _lp140591_ ((_rest140593_ _env-type139671_)) + (let* ((_rest140594140602_ _rest140593_) + (_else140596140610_ (lambda () '#!void)) + (_K140598140674_ + (lambda (_rest140613_ _type-info140614_) + (let* ((_type-info140615140627_ + _type-info140614_) + (_else140617140635_ (lambda () (let () (declare (not safe)) - (_lp140329_ _rest140351_)))) - (_K140357140388_ - (lambda (_val140376_ - _xt140377_ - _xid140378_) + (_lp140591_ _rest140613_)))) + (_K140619140650_ + (lambda (_val140638_ + _xt140639_ + _xid140640_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id140326_ - _xid140378_)) + _id140588_ + _xid140640_)) (if (let () (declare (not safe)) - (eq? _t140327_ - _xt140377_)) - _val140376_ - (if _val140376_ + (eq? _t140589_ + _xt140639_)) + _val140638_ + (if _val140638_ (if (let () (declare (not safe)) (##structure-instance-of? - _t140327_ + _t140589_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt140377_ 'gxc#!class::t)) - (memq _t140327_ - (map (lambda (_g140379140381_) + (##structure-instance-of? _xt140639_ 'gxc#!class::t)) + (memq _t140589_ + (map (lambda (_g140641140643_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt140377_ - _g140379140381_))) + _xt140639_ + _g140641140643_))) (##structure-ref - _xt140377_ + _xt140639_ '3 gxc#!class::t '#f))) @@ -11207,3511 +11207,3511 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t140327_ 'gxc#!class::t)) + (##structure-instance-of? _t140589_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt140377_ 'gxc#!class::t)) - (memq _xt140377_ - (map (lambda (_g140383140385_) + (##structure-instance-of? _xt140639_ 'gxc#!class::t)) + (memq _xt140639_ + (map (lambda (_g140645140647_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t140327_ - _g140383140385_))) + _t140589_ + _g140645140647_))) (##structure-ref - _t140327_ + _t140589_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp140329_ _rest140351_))))) + (let () (declare (not safe)) (_lp140591_ _rest140613_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp140329_ _rest140351_)))))) + (_lp140591_ _rest140613_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140353140365_)) - (let ((_hd140358140391_ + (##pair? _type-info140615140627_)) + (let ((_hd140620140653_ (let () (declare (not safe)) - (##car _type-info140353140365_))) - (_tl140359140393_ + (##car _type-info140615140627_))) + (_tl140621140655_ (let () (declare (not safe)) - (##cdr _type-info140353140365_)))) - (let ((_xid140396_ _hd140358140391_)) + (##cdr _type-info140615140627_)))) + (let ((_xid140658_ _hd140620140653_)) (if (let () (declare (not safe)) - (##pair? _tl140359140393_)) - (let ((_hd140360140398_ + (##pair? _tl140621140655_)) + (let ((_hd140622140660_ (let () (declare (not safe)) - (##car _tl140359140393_))) - (_tl140361140400_ + (##car _tl140621140655_))) + (_tl140623140662_ (let () (declare (not safe)) - (##cdr _tl140359140393_)))) - (let ((_xt140403_ - _hd140360140398_)) + (##cdr _tl140621140655_)))) + (let ((_xt140665_ + _hd140622140660_)) (if (let () (declare (not safe)) - (##pair? _tl140361140400_)) - (let ((_hd140362140405_ + (##pair? _tl140623140662_)) + (let ((_hd140624140667_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl140361140400_))) - (_tl140363140407_ - (let () (declare (not safe)) (##cdr _tl140361140400_)))) - (let ((_val140410_ _hd140362140405_)) - (if (let () (declare (not safe)) (##null? _tl140363140407_)) + (##car _tl140623140662_))) + (_tl140625140669_ + (let () (declare (not safe)) (##cdr _tl140623140662_)))) + (let ((_val140672_ _hd140624140667_)) + (if (let () (declare (not safe)) (##null? _tl140625140669_)) (let () (declare (not safe)) - (_K140357140388_ _val140410_ _xt140403_ _xid140396_)) - (let () (declare (not safe)) (_else140355140373_))))) - (let () (declare (not safe)) (_else140355140373_))))) + (_K140619140650_ _val140672_ _xt140665_ _xid140658_)) + (let () (declare (not safe)) (_else140617140635_))))) + (let () (declare (not safe)) (_else140617140635_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140355140373_))))) + (_else140617140635_))))) (let () (declare (not safe)) - (_else140355140373_))))))) + (_else140617140635_))))))) (if (let () (declare (not safe)) - (##pair? _rest140332140340_)) - (let ((_hd140337140415_ + (##pair? _rest140594140602_)) + (let ((_hd140599140677_ (let () (declare (not safe)) - (##car _rest140332140340_))) - (_tl140338140417_ + (##car _rest140594140602_))) + (_tl140600140679_ (let () (declare (not safe)) - (##cdr _rest140332140340_)))) - (let* ((_type-info140420_ _hd140337140415_) - (_rest140422_ _tl140338140417_)) + (##cdr _rest140594140602_)))) + (let* ((_type-info140682_ _hd140599140677_) + (_rest140684_ _tl140600140679_)) (declare (not safe)) - (_K140336140412_ - _rest140422_ - _type-info140420_))) + (_K140598140674_ + _rest140684_ + _type-info140682_))) (let () (declare (not safe)) - (_else140334140348_))))))) - (_assert-count139428_ - (lambda (_id140225_ _sym140226_ _count140227_) - (let _lp140229_ ((_rest140231_ _env-type139409_)) - (let* ((_rest140232140240_ _rest140231_) - (_else140234140248_ (lambda () '#!void)) - (_K140236140314_ - (lambda (_rest140251_ _type-info140252_) - (let* ((_type-info140253140267_ - _type-info140252_) - (_else140255140275_ + (_else140596140610_))))))) + (_assert-count139690_ + (lambda (_id140487_ _sym140488_ _count140489_) + (let _lp140491_ ((_rest140493_ _env-type139671_)) + (let* ((_rest140494140502_ _rest140493_) + (_else140496140510_ (lambda () '#!void)) + (_K140498140576_ + (lambda (_rest140513_ _type-info140514_) + (let* ((_type-info140515140529_ + _type-info140514_) + (_else140517140537_ (lambda () (let () (declare (not safe)) - (_lp140229_ _rest140251_)))) - (_K140257140283_ - (lambda (_val140278_ - _xcount140279_ - _xsym140280_ - _xid140281_) + (_lp140491_ _rest140513_)))) + (_K140519140545_ + (lambda (_val140540_ + _xcount140541_ + _xsym140542_ + _xid140543_) (if (and (let () (declare (not safe)) - (eq? _sym140226_ - _xsym140280_)) + (eq? _sym140488_ + _xsym140542_)) (let () (declare (not safe)) (gx#free-identifier=? - _id140225_ - _xid140281_))) - (if _val140278_ - (fx= _count140227_ - _xcount140279_) - (if (fx= _count140227_ - _xcount140279_) + _id140487_ + _xid140543_))) + (if _val140540_ + (fx= _count140489_ + _xcount140541_) + (if (fx= _count140489_ + _xcount140541_) '#f (let () (declare (not safe)) - (_lp140229_ - _rest140251_)))) + (_lp140491_ + _rest140513_)))) (let () (declare (not safe)) - (_lp140229_ _rest140251_)))))) + (_lp140491_ _rest140513_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140253140267_)) - (let ((_hd140258140286_ + (##pair? _type-info140515140529_)) + (let ((_hd140520140548_ (let () (declare (not safe)) - (##car _type-info140253140267_))) - (_tl140259140288_ + (##car _type-info140515140529_))) + (_tl140521140550_ (let () (declare (not safe)) - (##cdr _type-info140253140267_)))) - (let ((_xid140291_ _hd140258140286_)) + (##cdr _type-info140515140529_)))) + (let ((_xid140553_ _hd140520140548_)) (if (let () (declare (not safe)) - (##pair? _tl140259140288_)) - (let ((_hd140260140293_ + (##pair? _tl140521140550_)) + (let ((_hd140522140555_ (let () (declare (not safe)) - (##car _tl140259140288_))) - (_tl140261140295_ + (##car _tl140521140550_))) + (_tl140523140557_ (let () (declare (not safe)) - (##cdr _tl140259140288_)))) - (let ((_xsym140298_ - _hd140260140293_)) + (##cdr _tl140521140550_)))) + (let ((_xsym140560_ + _hd140522140555_)) (if (let () (declare (not safe)) - (##pair? _tl140261140295_)) - (let ((_hd140262140300_ + (##pair? _tl140523140557_)) + (let ((_hd140524140562_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl140261140295_))) - (_tl140263140302_ - (let () (declare (not safe)) (##cdr _tl140261140295_)))) - (let ((_xcount140305_ _hd140262140300_)) - (if (let () (declare (not safe)) (##pair? _tl140263140302_)) - (let ((_hd140264140307_ + (##car _tl140523140557_))) + (_tl140525140564_ + (let () (declare (not safe)) (##cdr _tl140523140557_)))) + (let ((_xcount140567_ _hd140524140562_)) + (if (let () (declare (not safe)) (##pair? _tl140525140564_)) + (let ((_hd140526140569_ (let () (declare (not safe)) - (##car _tl140263140302_))) - (_tl140265140309_ + (##car _tl140525140564_))) + (_tl140527140571_ (let () (declare (not safe)) - (##cdr _tl140263140302_)))) - (let ((_val140312_ _hd140264140307_)) + (##cdr _tl140525140564_)))) + (let ((_val140574_ _hd140526140569_)) (if (let () (declare (not safe)) - (##null? _tl140265140309_)) + (##null? _tl140527140571_)) (let () (declare (not safe)) - (_K140257140283_ - _val140312_ - _xcount140305_ - _xsym140298_ - _xid140291_)) + (_K140519140545_ + _val140574_ + _xcount140567_ + _xsym140560_ + _xid140553_)) (let () (declare (not safe)) - (_else140255140275_))))) - (let () (declare (not safe)) (_else140255140275_))))) - (let () (declare (not safe)) (_else140255140275_))))) + (_else140517140537_))))) + (let () (declare (not safe)) (_else140517140537_))))) + (let () (declare (not safe)) (_else140517140537_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140255140275_))))) + (_else140517140537_))))) (let () (declare (not safe)) - (_else140255140275_))))))) + (_else140517140537_))))))) (if (let () (declare (not safe)) - (##pair? _rest140232140240_)) - (let ((_hd140237140317_ + (##pair? _rest140494140502_)) + (let ((_hd140499140579_ (let () (declare (not safe)) - (##car _rest140232140240_))) - (_tl140238140319_ + (##car _rest140494140502_))) + (_tl140500140581_ (let () (declare (not safe)) - (##cdr _rest140232140240_)))) - (let* ((_type-info140322_ _hd140237140317_) - (_rest140324_ _tl140238140319_)) + (##cdr _rest140494140502_)))) + (let* ((_type-info140584_ _hd140499140579_) + (_rest140586_ _tl140500140581_)) (declare (not safe)) - (_K140236140314_ - _rest140324_ - _type-info140322_))) + (_K140498140576_ + _rest140586_ + _type-info140584_))) (let () (declare (not safe)) - (_else140234140248_))))))) - (_assert-eqf139429_ - (lambda (_id140115_ _sym140116_ _datum140117_) - (letrec ((_eqf140119_ - (lambda (_sym140220_) - (let ((_$e140222_ _sym140220_)) + (_else140496140510_))))))) + (_assert-eqf139691_ + (lambda (_id140377_ _sym140378_ _datum140379_) + (letrec ((_eqf140381_ + (lambda (_sym140482_) + (let ((_$e140484_ _sym140482_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e140222_)) + (eq? 'eq? _$e140484_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e140222_)) + (eq? 'eqv? _$e140484_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e140222_)) + (eq? 'equal? _$e140484_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e140222_)) + _$e140484_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e140222_)) + _$e140484_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body139170_ - _sym140220_))))))))))) - (let _lp140121_ ((_rest140123_ _env-type139409_)) - (let* ((_rest140124140132_ _rest140123_) - (_else140126140140_ (lambda () '#!void)) - (_K140128140208_ - (lambda (_rest140143_ _type-info140144_) - (let* ((_type-info140145140159_ - _type-info140144_) - (_else140147140167_ + _body139432_ + _sym140482_))))))))))) + (let _lp140383_ ((_rest140385_ _env-type139671_)) + (let* ((_rest140386140394_ _rest140385_) + (_else140388140402_ (lambda () '#!void)) + (_K140390140470_ + (lambda (_rest140405_ _type-info140406_) + (let* ((_type-info140407140421_ + _type-info140406_) + (_else140409140429_ (lambda () (let () (declare (not safe)) - (_lp140121_ _rest140143_)))) - (_K140149140177_ - (lambda (_val140170_ - _xdatum140171_ - _xsym140172_ - _xid140173_) + (_lp140383_ _rest140405_)))) + (_K140411140439_ + (lambda (_val140432_ + _xdatum140433_ + _xsym140434_ + _xid140435_) (if (and (let () (declare (not safe)) - (eq? _sym140116_ - _xsym140172_)) + (eq? _sym140378_ + _xsym140434_)) (let () (declare (not safe)) (gx#free-identifier=? - _id140115_ - _xid140173_))) - (let ((_=?140175_ + _id140377_ + _xid140435_))) + (let ((_=?140437_ (let () (declare (not safe)) - (_eqf140119_ - _sym140116_)))) - (if _val140170_ - (_=?140175_ - _datum140117_ - _xdatum140171_) - (if (_=?140175_ - _datum140117_ - _xdatum140171_) + (_eqf140381_ + _sym140378_)))) + (if _val140432_ + (_=?140437_ + _datum140379_ + _xdatum140433_) + (if (_=?140437_ + _datum140379_ + _xdatum140433_) '#f (let () (declare (not safe)) - (_lp140121_ - _rest140143_))))) + (_lp140383_ + _rest140405_))))) (let () (declare (not safe)) - (_lp140121_ - _rest140143_)))))) + (_lp140383_ + _rest140405_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140145140159_)) - (let ((_hd140150140180_ + (##pair? _type-info140407140421_)) + (let ((_hd140412140442_ (let () (declare (not safe)) - (##car _type-info140145140159_))) - (_tl140151140182_ + (##car _type-info140407140421_))) + (_tl140413140444_ (let () (declare (not safe)) - (##cdr _type-info140145140159_)))) - (let ((_xid140185_ - _hd140150140180_)) + (##cdr _type-info140407140421_)))) + (let ((_xid140447_ + _hd140412140442_)) (if (let () (declare (not safe)) - (##pair? _tl140151140182_)) - (let ((_hd140152140187_ + (##pair? _tl140413140444_)) + (let ((_hd140414140449_ (let () (declare (not safe)) - (##car _tl140151140182_))) - (_tl140153140189_ + (##car _tl140413140444_))) + (_tl140415140451_ (let () (declare (not safe)) - (##cdr _tl140151140182_)))) - (let ((_xsym140192_ - _hd140152140187_)) + (##cdr _tl140413140444_)))) + (let ((_xsym140454_ + _hd140414140449_)) (if (let () (declare (not safe)) - (##pair? _tl140153140189_)) - (let ((_hd140154140194_ + (##pair? _tl140415140451_)) + (let ((_hd140416140456_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl140153140189_))) - (_tl140155140196_ + (##car _tl140415140451_))) + (_tl140417140458_ (let () (declare (not safe)) - (##cdr _tl140153140189_)))) - (let ((_xdatum140199_ _hd140154140194_)) + (##cdr _tl140415140451_)))) + (let ((_xdatum140461_ _hd140416140456_)) (if (let () (declare (not safe)) - (##pair? _tl140155140196_)) - (let ((_hd140156140201_ + (##pair? _tl140417140458_)) + (let ((_hd140418140463_ (let () (declare (not safe)) - (##car _tl140155140196_))) - (_tl140157140203_ + (##car _tl140417140458_))) + (_tl140419140465_ (let () (declare (not safe)) - (##cdr _tl140155140196_)))) - (let ((_val140206_ _hd140156140201_)) + (##cdr _tl140417140458_)))) + (let ((_val140468_ _hd140418140463_)) (if (let () (declare (not safe)) - (##null? _tl140157140203_)) + (##null? _tl140419140465_)) (let () (declare (not safe)) - (_K140149140177_ - _val140206_ - _xdatum140199_ - _xsym140192_ - _xid140185_)) + (_K140411140439_ + _val140468_ + _xdatum140461_ + _xsym140454_ + _xid140447_)) (let () (declare (not safe)) - (_else140147140167_))))) - (let () (declare (not safe)) (_else140147140167_))))) - (let () (declare (not safe)) (_else140147140167_))))) + (_else140409140429_))))) + (let () (declare (not safe)) (_else140409140429_))))) + (let () (declare (not safe)) (_else140409140429_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140147140167_))))) + (_else140409140429_))))) (let () (declare (not safe)) - (_else140147140167_))))))) + (_else140409140429_))))))) (if (let () (declare (not safe)) - (##pair? _rest140124140132_)) - (let ((_hd140129140211_ + (##pair? _rest140386140394_)) + (let ((_hd140391140473_ (let () (declare (not safe)) - (##car _rest140124140132_))) - (_tl140130140213_ + (##car _rest140386140394_))) + (_tl140392140475_ (let () (declare (not safe)) - (##cdr _rest140124140132_)))) - (let* ((_type-info140216_ _hd140129140211_) - (_rest140218_ _tl140130140213_)) + (##cdr _rest140386140394_)))) + (let* ((_type-info140478_ _hd140391140473_) + (_rest140480_ _tl140392140475_)) (declare (not safe)) - (_K140128140208_ - _rest140218_ - _type-info140216_))) + (_K140390140470_ + _rest140480_ + _type-info140478_))) (let () (declare (not safe)) - (_else140126140140_)))))))) - (_bind-e__146881146882_ - (lambda (_bind140018_ _body140019_ _continue140020_) - (let _lp140022_ ((_rest140024_ _bind140018_) - (_subst140025_ '()) - (_locals140026_ '()) - (_env140027_ _env-bind139410_)) - (let* ((_rest140028140036_ _rest140024_) - (_else140030140050_ + (_else140388140402_)))))))) + (_bind-e__147143147144_ + (lambda (_bind140280_ _body140281_ _continue140282_) + (let _lp140284_ ((_rest140286_ _bind140280_) + (_subst140287_ '()) + (_locals140288_ '()) + (_env140289_ _env-bind139672_)) + (let* ((_rest140290140298_ _rest140286_) + (_else140292140312_ (lambda () - (let* ((_body140044_ + (let* ((_body140306_ (if (let () (declare (not safe)) - (null? _subst140025_)) - _body140019_ + (null? _subst140287_)) + _body140281_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body140019_ - _subst140025_)))) - (_body140047_ - (let ((__tmp150322 + _body140281_ + _subst140287_)))) + (_body140309_ + (let ((__tmp150584 (lambda () - (_continue140020_ - _body140044_)))) + (_continue140282_ + _body140306_)))) (declare (not safe)) - (_do-bind!139421_ - _env140027_ - __tmp150322)))) + (_do-bind!139683_ + _env140289_ + __tmp150584)))) (if (let () (declare (not safe)) - (null? _locals140026_)) - _body140047_ - (let ((__tmp150323 - (let ((__tmp150324 + (null? _locals140288_)) + _body140309_ + (let ((__tmp150585 + (let ((__tmp150586 (let () (declare (not safe)) - (cons _body140047_ + (cons _body140309_ '())))) (declare (not safe)) - (cons _locals140026_ - __tmp150324)))) + (cons _locals140288_ + __tmp150586)))) (declare (not safe)) - (cons '%#let-values __tmp150323)))))) - (_K140032140091_ - (lambda (_rest140053_ _bind140054_) - (let* ((_bind140055140062_ _bind140054_) - (_E140057140066_ + (cons '%#let-values __tmp150585)))))) + (_K140294140353_ + (lambda (_rest140315_ _bind140316_) + (let* ((_bind140317140324_ _bind140316_) + (_E140319140328_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind140055140062_)))) - (_K140058140079_ - (lambda (_expr140069_ _id140070_) - (let* ((_sexpr140072_ + _bind140317140324_)))) + (_K140320140341_ + (lambda (_expr140331_ _id140332_) + (let* ((_sexpr140334_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr140069_))) - (_$e140074_ + _expr140331_))) + (_$e140336_ (let () (declare (not safe)) (assget__0 - _sexpr140072_ - _env-bind139410_)))) - (if _$e140074_ - ((lambda (_xid140077_) - (let ((__tmp150331 - (let ((__tmp150332 + _sexpr140334_ + _env-bind139672_)))) + (if _$e140336_ + ((lambda (_xid140339_) + (let ((__tmp150593 + (let ((__tmp150594 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id140070_ _xid140077_)))) + (cons _id140332_ _xid140339_)))) (declare (not safe)) - (cons __tmp150332 _subst140025_)))) + (cons __tmp150594 _subst140287_)))) (declare (not safe)) - (_lp140022_ - _rest140053_ - __tmp150331 - _locals140026_ - _env140027_))) + (_lp140284_ + _rest140315_ + __tmp150593 + _locals140288_ + _env140289_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e140074_) - (let ((__tmp150327 - (let ((__tmp150328 - (let ((__tmp150330 + _$e140336_) + (let ((__tmp150589 + (let ((__tmp150590 + (let ((__tmp150592 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id140070_ '()))) - (__tmp150329 + (cons _id140332_ '()))) + (__tmp150591 (let () (declare (not safe)) - (cons _expr140069_ '())))) + (cons _expr140331_ '())))) (declare (not safe)) - (cons __tmp150330 __tmp150329)))) + (cons __tmp150592 __tmp150591)))) (declare (not safe)) - (cons __tmp150328 _locals140026_))) - (__tmp150325 - (let ((__tmp150326 + (cons __tmp150590 _locals140288_))) + (__tmp150587 + (let ((__tmp150588 (let () (declare (not safe)) - (cons _sexpr140072_ _id140070_)))) + (cons _sexpr140334_ _id140332_)))) (declare (not safe)) - (cons __tmp150326 _env140027_)))) + (cons __tmp150588 _env140289_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp140022_ - _rest140053_ - _subst140025_ - __tmp150327 - __tmp150325))))))) + (_lp140284_ + _rest140315_ + _subst140287_ + __tmp150589 + __tmp150587))))))) (if (let () (declare (not safe)) - (##pair? _bind140055140062_)) - (let ((_hd140059140082_ + (##pair? _bind140317140324_)) + (let ((_hd140321140344_ (let () (declare (not safe)) - (##car _bind140055140062_))) - (_tl140060140084_ + (##car _bind140317140324_))) + (_tl140322140346_ (let () (declare (not safe)) - (##cdr _bind140055140062_)))) - (let* ((_id140087_ _hd140059140082_) - (_expr140089_ - _tl140060140084_)) + (##cdr _bind140317140324_)))) + (let* ((_id140349_ _hd140321140344_) + (_expr140351_ + _tl140322140346_)) (declare (not safe)) - (_K140058140079_ - _expr140089_ - _id140087_))) + (_K140320140341_ + _expr140351_ + _id140349_))) (let () (declare (not safe)) - (_E140057140066_))))))) + (_E140319140328_))))))) (if (let () (declare (not safe)) - (##pair? _rest140028140036_)) - (let ((_hd140033140094_ + (##pair? _rest140290140298_)) + (let ((_hd140295140356_ (let () (declare (not safe)) - (##car _rest140028140036_))) - (_tl140034140096_ + (##car _rest140290140298_))) + (_tl140296140358_ (let () (declare (not safe)) - (##cdr _rest140028140036_)))) - (let* ((_bind140099_ _hd140033140094_) - (_rest140101_ _tl140034140096_)) + (##cdr _rest140290140298_)))) + (let* ((_bind140361_ _hd140295140356_) + (_rest140363_ _tl140296140358_)) (declare (not safe)) - (_K140032140091_ _rest140101_ _bind140099_))) + (_K140294140353_ _rest140363_ _bind140361_))) (let () (declare (not safe)) - (_else140030140050_))))))) - (_bind-e__0__146883146884_ - (lambda (_bind140106_ _body140107_) - (let ((_continue140109_ _optimize-e139423_)) + (_else140292140312_))))))) + (_bind-e__0__147145147146_ + (lambda (_bind140368_ _body140369_) + (let ((_continue140371_ _optimize-e139685_)) (declare (not safe)) - (_bind-e__146881146882_ - _bind140106_ - _body140107_ - _continue140109_)))) - (_bind-e139430_ - (lambda _g150334_ - (let ((_g150333_ + (_bind-e__147143147144_ + _bind140368_ + _body140369_ + _continue140371_)))) + (_bind-e139692_ + (lambda _g150596_ + (let ((_g150595_ (let () (declare (not safe)) - (##length _g150334_)))) - (cond ((let () (declare (not safe)) (##fx= _g150333_ 2)) - (apply (lambda (_bind140106_ _body140107_) + (##length _g150596_)))) + (cond ((let () (declare (not safe)) (##fx= _g150595_ 2)) + (apply (lambda (_bind140368_ _body140369_) (let () (declare (not safe)) - (_bind-e__0__146883146884_ - _bind140106_ - _body140107_))) - _g150334_)) - ((let () (declare (not safe)) (##fx= _g150333_ 3)) - (apply (lambda (_bind140111_ - _body140112_ - _continue140113_) + (_bind-e__0__147145147146_ + _bind140368_ + _body140369_))) + _g150596_)) + ((let () (declare (not safe)) (##fx= _g150595_ 3)) + (apply (lambda (_bind140373_ + _body140374_ + _continue140375_) (let () (declare (not safe)) - (_bind-e__146881146882_ - _bind140111_ - _body140112_ - _continue140113_))) - _g150334_)) + (_bind-e__147143147144_ + _bind140373_ + _body140374_ + _continue140375_))) + _g150596_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150334_)))))) - (_lookup-block139431_ - (lambda (_id140013_) - (let ((__tmp150335 - (lambda (_block140015_) - (let ((__tmp150336 (car _block140015_))) + _g150596_)))))) + (_lookup-block139693_ + (lambda (_id140275_) + (let ((__tmp150597 + (lambda (_block140277_) + (let ((__tmp150598 (car _block140277_))) (declare (not safe)) (gx#free-identifier=? - __tmp150336 - _id140013_))))) + __tmp150598 + _id140275_))))) (declare (not safe)) - (find __tmp150335 _blocks139173_)))) - (_inline-block139432_ - (lambda (_block139889_ _args139890_) - (let* ((_kont139892_ (caddr _block139889_)) - (_g139894139920_ - (lambda (_g139895139917_) + (find __tmp150597 _blocks139435_)))) + (_inline-block139694_ + (lambda (_block140151_ _args140152_) + (let* ((_kont140154_ (caddr _block140151_)) + (_g140156140182_ + (lambda (_g140157140179_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g139895139917_)))) - (_g139893140010_ - (lambda (_g139895139923_) + _g140157140179_)))) + (_g140155140272_ + (lambda (_g140157140185_) (if (let () (declare (not safe)) - (gx#stx-pair? _g139895139923_)) - (let ((_e139900139925_ + (gx#stx-pair? _g140157140185_)) + (let ((_e140162140187_ (let () (declare (not safe)) - (gx#stx-e _g139895139923_)))) - (let ((_hd139899139928_ + (gx#stx-e _g140157140185_)))) + (let ((_hd140161140190_ (let () (declare (not safe)) - (##car _e139900139925_))) - (_tl139898139930_ + (##car _e140162140187_))) + (_tl140160140192_ (let () (declare (not safe)) - (##cdr _e139900139925_)))) + (##cdr _e140162140187_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139899139928_)) + (gx#identifier? _hd140161140190_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139899139928_)) + _hd140161140190_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139898139930_)) - (let ((_e139903139933_ + _tl140160140192_)) + (let ((_e140165140195_ (let () (declare (not safe)) (gx#stx-e - _tl139898139930_)))) - (let ((_hd139902139936_ + _tl140160140192_)))) + (let ((_hd140164140198_ (let () (declare (not safe)) - (##car _e139903139933_))) - (_tl139901139938_ + (##car _e140165140195_))) + (_tl140163140200_ (let () (declare (not safe)) - (##cdr _e139903139933_)))) + (##cdr _e140165140195_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd139902139936_)) - (let ((_g150337_ + _hd140164140198_)) + (let ((_g150599_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd139902139936_ '0)))) + (gx#syntax-split-splice _hd140164140198_ '0)))) (begin - (let ((_g150338_ + (let ((_g150600_ (let () (declare (not safe)) - (if (##values? _g150337_) - (##vector-length _g150337_) + (if (##values? _g150599_) + (##vector-length _g150599_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150338_ 2))) - (error "Context expects 2 values" _g150338_))) - (let ((_target139904139941_ + (##fx= _g150600_ 2))) + (error "Context expects 2 values" _g150600_))) + (let ((_target140166140203_ (let () (declare (not safe)) - (##vector-ref _g150337_ 0))) - (_tl139906139943_ + (##vector-ref _g150599_ 0))) + (_tl140168140205_ (let () (declare (not safe)) - (##vector-ref _g150337_ 1)))) + (##vector-ref _g150599_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139906139943_)) - (letrec ((_loop139907139946_ - (lambda (_hd139905139949_ - _id139911139951_) + (gx#stx-null? _tl140168140205_)) + (letrec ((_loop140169140208_ + (lambda (_hd140167140211_ + _id140173140213_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139905139949_)) - (let ((_e139908139954_ + (gx#stx-pair? _hd140167140211_)) + (let ((_e140170140216_ (let () (declare (not safe)) (gx#stx-e - _hd139905139949_)))) - (let ((_lp-hd139909139957_ + _hd140167140211_)))) + (let ((_lp-hd140171140219_ (let () (declare (not safe)) - (##car _e139908139954_))) - (_lp-tl139910139959_ + (##car _e140170140216_))) + (_lp-tl140172140221_ (let () (declare (not safe)) - (##cdr _e139908139954_)))) - (let ((__tmp150342 + (##cdr _e140170140216_)))) + (let ((__tmp150604 (let () (declare (not safe)) - (cons _lp-hd139909139957_ - _id139911139951_)))) + (cons _lp-hd140171140219_ + _id140173140213_)))) (declare (not safe)) - (_loop139907139946_ - _lp-tl139910139959_ - __tmp150342)))) - (let ((_id139912139962_ - (reverse _id139911139951_))) + (_loop140169140208_ + _lp-tl140172140221_ + __tmp150604)))) + (let ((_id140174140224_ + (reverse _id140173140213_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139901139938_)) - (let ((_e139915139965_ + _tl140163140200_)) + (let ((_e140177140227_ (let () (declare (not safe)) (gx#stx-e - _tl139901139938_)))) - (let ((_hd139914139968_ + _tl140163140200_)))) + (let ((_hd140176140230_ (let () (declare (not safe)) - (##car _e139915139965_))) - (_tl139913139970_ + (##car _e140177140227_))) + (_tl140175140232_ (let () (declare (not safe)) - (##cdr _e139915139965_)))) + (##cdr _e140177140227_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139913139970_)) - ((lambda (_L139973_ + _tl140175140232_)) + ((lambda (_L140235_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L139974_) - (if (let ((__tmp150340 - (let ((__tmp150341 - (lambda (_g139993139996_ - _g139994139998_) + _L140236_) + (if (let ((__tmp150602 + (let ((__tmp150603 + (lambda (_g140255140258_ + _g140256140260_) (let () (declare (not safe)) - (cons _g139993139996_ - _g139994139998_))))) + (cons _g140255140258_ + _g140256140260_))))) (declare (not safe)) - (foldr1 __tmp150341 '() _L139974_)))) + (foldr1 __tmp150603 '() _L140236_)))) (declare (not safe)) - (null? __tmp150340)) - _L139973_ - (let ((_subst140008_ + (null? __tmp150602)) + _L140235_ + (let ((_subst140270_ (map cons - (let ((__tmp150339 - (lambda (_g140000140003_ - _g140001140005_) + (let ((__tmp150601 + (lambda (_g140262140265_ + _g140263140267_) (let () (declare (not safe)) - (cons _g140000140003_ - _g140001140005_))))) + (cons _g140262140265_ + _g140263140267_))))) (declare (not safe)) - (foldr1 __tmp150339 '() _L139974_)) - _args139890_))) + (foldr1 __tmp150601 '() _L140236_)) + _args140152_))) (declare (not safe)) (gxc#apply-expression-subst* - _L139973_ - _subst140008_)))) - _hd139914139968_ - _id139912139962_) + _L140235_ + _subst140270_)))) + _hd140176140230_ + _id140174140224_) (let () (declare (not safe)) - (_g139894139920_ _g139895139923_))))) + (_g140156140182_ _g140157140185_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139894139920_ - _g139895139923_)))))))) + (_g140156140182_ + _g140157140185_)))))))) (let () (declare (not safe)) - (_loop139907139946_ - _target139904139941_ + (_loop140169140208_ + _target140166140203_ '()))) (let () (declare (not safe)) - (_g139894139920_ _g139895139923_)))))) + (_g140156140182_ _g140157140185_)))))) (let () (declare (not safe)) - (_g139894139920_ _g139895139923_))))) + (_g140156140182_ _g140157140185_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139894139920_ - _g139895139923_))) + (_g140156140182_ + _g140157140185_))) (let () (declare (not safe)) - (_g139894139920_ - _g139895139923_))) + (_g140156140182_ + _g140157140185_))) (let () (declare (not safe)) - (_g139894139920_ - _g139895139923_))))) + (_g140156140182_ + _g140157140185_))))) (let () (declare (not safe)) - (_g139894139920_ _g139895139923_)))))) + (_g140156140182_ _g140157140185_)))))) (declare (not safe)) - (_g139893140010_ _kont139892_)))) - (_nonlinear-block?139433_ - (lambda (_block139438_) - (letrec ((_nonlinear-expr?139440_ - (lambda (_expr139548_) - (let* ((___stx148968148969_ _expr139548_) - (_g139554139620_ + (_g140155140272_ _kont140154_)))) + (_nonlinear-block?139695_ + (lambda (_block139700_) + (letrec ((_nonlinear-expr?139702_ + (lambda (_expr139810_) + (let* ((___stx149230149231_ _expr139810_) + (_g139816139882_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148968148969_))))) - (let ((___kont148970148971_ (lambda () '#t)) - (___kont148972148973_ - (lambda (_L139819_) - (let* ((___stx148950148951_ - _L139819_) - (_g139837139846_ + ___stx149230149231_))))) + (let ((___kont149232149233_ (lambda () '#t)) + (___kont149234149235_ + (lambda (_L140081_) + (let* ((___stx149212149213_ + _L140081_) + (_g140099140108_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148950148951_))))) - (let ((___kont148952148953_ + ___stx149212149213_))))) + (let ((___kont149214149215_ (lambda () '#f)) - (___kont148954148955_ + (___kont149216149217_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148950148951_)) - (let ((_e139841139858_ + ___stx149212149213_)) + (let ((_e140103140120_ (let () (declare (not safe)) (gx#stx-e - ___stx148950148951_)))) - (let ((_tl139839139863_ + ___stx149212149213_)))) + (let ((_tl140101140125_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e139841139858_))) - (_hd139840139861_ - (let () (declare (not safe)) (##car _e139841139858_)))) + (##cdr _e140103140120_))) + (_hd140102140123_ + (let () (declare (not safe)) (##car _e140103140120_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139840139861_)) + (gx#identifier? _hd140102140123_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd139840139861_)) - (___kont148952148953_) - (___kont148954148955_)) - (___kont148954148955_)))) + (gx#stx-eq? '%#call _hd140102140123_)) + (___kont149214149215_) + (___kont149216149217_)) + (___kont149216149217_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148954148955_)))))) - (___kont148976148977_ - (lambda (_L139717_) + (___kont149216149217_)))))) + (___kont149238149239_ + (lambda (_L139979_) (let () (declare (not safe)) - (_nonlinear-expr?139440_ - _L139717_)))) - (___kont148978148979_ - (lambda (_L139664_ - _L139665_ - _L139666_) - (let ((_$e139685_ + (_nonlinear-expr?139702_ + _L139979_)))) + (___kont149240149241_ + (lambda (_L139926_ + _L139927_ + _L139928_) + (let ((_$e139947_ (let () (declare (not safe)) - (_nonlinear-expr?139440_ - _L139665_)))) - (if _$e139685_ - _$e139685_ + (_nonlinear-expr?139702_ + _L139927_)))) + (if _$e139947_ + _$e139947_ (let () (declare (not safe)) - (_nonlinear-expr?139440_ - _L139664_)))))) - (___kont148980148981_ + (_nonlinear-expr?139702_ + _L139926_)))))) + (___kont149242149243_ (lambda () '#f))) - (let* ((___match149031149032_ - (lambda (_e139594139693_ - _hd139593139696_ - _tl139592139698_ - _e139597139701_ - _hd139596139704_ - _tl139595139706_) + (let* ((___match149293149294_ + (lambda (_e139856139955_ + _hd139855139958_ + _tl139854139960_ + _e139859139963_ + _hd139858139966_ + _tl139857139968_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139595139706_)) - (let ((_e139600139709_ + _tl139857139968_)) + (let ((_e139862139971_ (let () (declare (not safe)) (gx#stx-e - _tl139595139706_)))) - (let ((_tl139598139714_ + _tl139857139968_)))) + (let ((_tl139860139976_ (let () (declare (not safe)) - (##cdr _e139600139709_))) - (_hd139599139712_ + (##cdr _e139862139971_))) + (_hd139861139974_ (let () (declare (not safe)) - (##car _e139600139709_)))) + (##car _e139862139971_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139598139714_)) - (___kont148976148977_ - _hd139599139712_) - (___kont148980148981_)))) - (___kont148980148981_)))) - (___match149015149016_ - (lambda (_e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_ - ___splice148974148975_ - _target139566139751_ - _tl139568139753_) - (letrec ((_loop139569139756_ - (lambda (_hd139567139759_) + _tl139860139976_)) + (___kont149238149239_ + _hd139861139974_) + (___kont149242149243_)))) + (___kont149242149243_)))) + (___match149277149278_ + (lambda (_e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_ + ___splice149236149237_ + _target139828140013_ + _tl139830140015_) + (letrec ((_loop139831140018_ + (lambda (_hd139829140021_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd139567139759_)) - (let ((_e139570139762_ + (gx#stx-pair? _hd139829140021_)) + (let ((_e139832140024_ (let () (declare (not safe)) - (gx#stx-e _hd139567139759_)))) - (let ((_lp-tl139572139767_ + (gx#stx-e _hd139829140021_)))) + (let ((_lp-tl139834140029_ (let () (declare (not safe)) - (##cdr _e139570139762_))) - (_lp-hd139571139765_ + (##cdr _e139832140024_))) + (_lp-hd139833140027_ (let () (declare (not safe)) - (##car _e139570139762_)))) + (##car _e139832140024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd139571139765_)) - (let ((_e139575139770_ + (gx#stx-pair? _lp-hd139833140027_)) + (let ((_e139837140032_ (let () (declare (not safe)) - (gx#stx-e _lp-hd139571139765_)))) - (let ((_tl139573139775_ + (gx#stx-e _lp-hd139833140027_)))) + (let ((_tl139835140037_ (let () (declare (not safe)) - (##cdr _e139575139770_))) - (_hd139574139773_ + (##cdr _e139837140032_))) + (_hd139836140035_ (let () (declare (not safe)) - (##car _e139575139770_)))) + (##car _e139837140032_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139574139773_)) - (let ((_e139578139778_ + (gx#stx-pair? _hd139836140035_)) + (let ((_e139840140040_ (let () (declare (not safe)) - (gx#stx-e _hd139574139773_)))) - (let ((_tl139576139783_ + (gx#stx-e _hd139836140035_)))) + (let ((_tl139838140045_ (let () (declare (not safe)) - (##cdr _e139578139778_))) - (_hd139577139781_ + (##cdr _e139840140040_))) + (_hd139839140043_ (let () (declare (not safe)) - (##car _e139578139778_)))) + (##car _e139840140040_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139576139783_)) + _tl139838140045_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139573139775_)) - (let ((_e139581139786_ + _tl139835140037_)) + (let ((_e139843140048_ (let () (declare (not safe)) (gx#stx-e - _tl139573139775_)))) - (let ((_tl139579139791_ + _tl139835140037_)))) + (let ((_tl139841140053_ (let () (declare (not safe)) - (##cdr _e139581139786_))) - (_hd139580139789_ + (##cdr _e139843140048_))) + (_hd139842140051_ (let () (declare (not safe)) - (##car _e139581139786_)))) + (##car _e139843140048_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139580139789_)) - (let ((_e139584139794_ + _hd139842140051_)) + (let ((_e139846140056_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd139580139789_)))) - (let ((_tl139582139799_ + (gx#stx-e _hd139842140051_)))) + (let ((_tl139844140061_ (let () (declare (not safe)) - (##cdr _e139584139794_))) - (_hd139583139797_ + (##cdr _e139846140056_))) + (_hd139845140059_ (let () (declare (not safe)) - (##car _e139584139794_)))) + (##car _e139846140056_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139583139797_)) + (gx#identifier? _hd139845140059_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd139583139797_)) + (gx#stx-eq? '%#ref _hd139845140059_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139582139799_)) - (let ((_e139587139802_ + (gx#stx-pair? _tl139844140061_)) + (let ((_e139849140064_ (let () (declare (not safe)) - (gx#stx-e _tl139582139799_)))) - (let ((_tl139585139807_ + (gx#stx-e _tl139844140061_)))) + (let ((_tl139847140069_ (let () (declare (not safe)) - (##cdr _e139587139802_))) - (_hd139586139805_ + (##cdr _e139849140064_))) + (_hd139848140067_ (let () (declare (not safe)) - (##car _e139587139802_)))) + (##car _e139849140064_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139585139807_)) + (gx#stx-null? _tl139847140069_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl139579139791_)) + _tl139841140053_)) (let () (declare (not safe)) - (_loop139569139756_ - _lp-tl139572139767_)) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)))) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)))) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)))) + (_loop139831140018_ + _lp-tl139834140029_)) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)))) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)))) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)))) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)))) - (___match149031149032_ - _e139562139735_ - _hd139561139738_ - _tl139560139740_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_)))) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)))) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)))) + (___match149293149294_ + _e139824139997_ + _hd139823140000_ + _tl139822140002_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl139563139748_)) - (let ((_e139590139811_ + (gx#stx-pair? _tl139825140010_)) + (let ((_e139852140073_ (let () (declare (not safe)) - (gx#stx-e _tl139563139748_)))) - (let ((_tl139588139816_ + (gx#stx-e _tl139825140010_)))) + (let ((_tl139850140078_ (let () (declare (not safe)) - (##cdr _e139590139811_))) - (_hd139589139814_ + (##cdr _e139852140073_))) + (_hd139851140076_ (let () (declare (not safe)) - (##car _e139590139811_)))) + (##car _e139852140073_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139588139816_)) - (___kont148972148973_ _hd139589139814_) - (___kont148980148981_)))) - (___kont148980148981_))))))) + (gx#stx-null? _tl139850140078_)) + (___kont149234149235_ _hd139851140076_) + (___kont149242149243_)))) + (___kont149242149243_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop139569139756_ - _target139566139751_)))))) + (_loop139831140018_ + _target139828140013_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148968148969_)) - (let ((_e139558139876_ + ___stx149230149231_)) + (let ((_e139820140138_ (let () (declare (not safe)) (gx#stx-e - ___stx148968148969_)))) - (let ((_tl139556139881_ + ___stx149230149231_)))) + (let ((_tl139818140143_ (let () (declare (not safe)) - (##cdr _e139558139876_))) - (_hd139557139879_ + (##cdr _e139820140138_))) + (_hd139819140141_ (let () (declare (not safe)) - (##car _e139558139876_)))) + (##car _e139820140138_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139557139879_)) + _hd139819140141_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd139557139879_)) - (___kont148970148971_) + _hd139819140141_)) + (___kont149232149233_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd139557139879_)) + _hd139819140141_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl139556139881_)) - (let ((_e139565139743_ + (gx#stx-pair? _tl139818140143_)) + (let ((_e139827140005_ (let () (declare (not safe)) - (gx#stx-e _tl139556139881_)))) - (let ((_tl139563139748_ + (gx#stx-e _tl139818140143_)))) + (let ((_tl139825140010_ (let () (declare (not safe)) - (##cdr _e139565139743_))) - (_hd139564139746_ + (##cdr _e139827140005_))) + (_hd139826140008_ (let () (declare (not safe)) - (##car _e139565139743_)))) + (##car _e139827140005_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd139564139746_)) - (let ((___splice148974148975_ + (gx#stx-pair/null? _hd139826140008_)) + (let ((___splice149236149237_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd139564139746_ + _hd139826140008_ '0)))) - (let ((_tl139568139753_ + (let ((_tl139830140015_ (let () (declare (not safe)) (##vector-ref - ___splice148974148975_ + ___splice149236149237_ '1))) - (_target139566139751_ + (_target139828140013_ (let () (declare (not safe)) (##vector-ref - ___splice148974148975_ + ___splice149236149237_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139568139753_)) - (___match149015149016_ - _e139558139876_ - _hd139557139879_ - _tl139556139881_ - _e139565139743_ - _hd139564139746_ - _tl139563139748_ - ___splice148974148975_ - _target139566139751_ - _tl139568139753_) + (gx#stx-null? _tl139830140015_)) + (___match149277149278_ + _e139820140138_ + _hd139819140141_ + _tl139818140143_ + _e139827140005_ + _hd139826140008_ + _tl139825140010_ + ___splice149236149237_ + _target139828140013_ + _tl139830140015_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139563139748_)) - (let ((_e139600139709_ + (gx#stx-pair? _tl139825140010_)) + (let ((_e139862139971_ (let () (declare (not safe)) (gx#stx-e - _tl139563139748_)))) - (let ((_tl139598139714_ + _tl139825140010_)))) + (let ((_tl139860139976_ (let () (declare (not safe)) - (##cdr _e139600139709_))) - (_hd139599139712_ + (##cdr _e139862139971_))) + (_hd139861139974_ (let () (declare (not safe)) - (##car _e139600139709_)))) + (##car _e139862139971_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139598139714_)) - (___kont148976148977_ - _hd139599139712_) - (___kont148980148981_)))) - (___kont148980148981_))))) + _tl139860139976_)) + (___kont149238149239_ + _hd139861139974_) + (___kont149242149243_)))) + (___kont149242149243_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139563139748_)) - (let ((_e139600139709_ + (gx#stx-pair? _tl139825140010_)) + (let ((_e139862139971_ (let () (declare (not safe)) - (gx#stx-e _tl139563139748_)))) - (let ((_tl139598139714_ + (gx#stx-e _tl139825140010_)))) + (let ((_tl139860139976_ (let () (declare (not safe)) - (##cdr _e139600139709_))) - (_hd139599139712_ + (##cdr _e139862139971_))) + (_hd139861139974_ (let () (declare (not safe)) - (##car _e139600139709_)))) + (##car _e139862139971_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139598139714_)) - (___kont148976148977_ - _hd139599139712_) - (___kont148980148981_)))) - (___kont148980148981_))))) - (___kont148980148981_)) + (gx#stx-null? _tl139860139976_)) + (___kont149238149239_ + _hd139861139974_) + (___kont149242149243_)))) + (___kont149242149243_))))) + (___kont149242149243_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd139557139879_)) + (gx#stx-eq? '%#if _hd139819140141_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139556139881_)) - (let ((_e139609139640_ + (gx#stx-pair? _tl139818140143_)) + (let ((_e139871139902_ (let () (declare (not safe)) - (gx#stx-e _tl139556139881_)))) - (let ((_tl139607139645_ + (gx#stx-e _tl139818140143_)))) + (let ((_tl139869139907_ (let () (declare (not safe)) - (##cdr _e139609139640_))) - (_hd139608139643_ + (##cdr _e139871139902_))) + (_hd139870139905_ (let () (declare (not safe)) - (##car _e139609139640_)))) + (##car _e139871139902_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139607139645_)) - (let ((_e139612139648_ + (gx#stx-pair? _tl139869139907_)) + (let ((_e139874139910_ (let () (declare (not safe)) - (gx#stx-e _tl139607139645_)))) - (let ((_tl139610139653_ + (gx#stx-e _tl139869139907_)))) + (let ((_tl139872139915_ (let () (declare (not safe)) - (##cdr _e139612139648_))) - (_hd139611139651_ + (##cdr _e139874139910_))) + (_hd139873139913_ (let () (declare (not safe)) - (##car _e139612139648_)))) + (##car _e139874139910_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139610139653_)) - (let ((_e139615139656_ + (gx#stx-pair? _tl139872139915_)) + (let ((_e139877139918_ (let () (declare (not safe)) (gx#stx-e - _tl139610139653_)))) - (let ((_tl139613139661_ + _tl139872139915_)))) + (let ((_tl139875139923_ (let () (declare (not safe)) - (##cdr _e139615139656_))) - (_hd139614139659_ + (##cdr _e139877139918_))) + (_hd139876139921_ (let () (declare (not safe)) - (##car _e139615139656_)))) + (##car _e139877139918_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139613139661_)) - (___kont148978148979_ - _hd139614139659_ - _hd139611139651_ - _hd139608139643_) - (___kont148980148981_)))) - (___kont148980148981_)))) - (___kont148980148981_)))) - (___kont148980148981_)) - (___kont148980148981_)))) + _tl139875139923_)) + (___kont149240149241_ + _hd139876139921_ + _hd139873139913_ + _hd139870139905_) + (___kont149242149243_)))) + (___kont149242149243_)))) + (___kont149242149243_)))) + (___kont149242149243_)) + (___kont149242149243_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148980148981_)))) - (___kont148980148981_)))))))) - (let* ((_kont139442_ (caddr _block139438_)) - (_g139444139470_ - (lambda (_g139445139467_) + (___kont149242149243_)))) + (___kont149242149243_)))))))) + (let* ((_kont139704_ (caddr _block139700_)) + (_g139706139732_ + (lambda (_g139707139729_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g139445139467_)))) - (_g139443139545_ - (lambda (_g139445139473_) + _g139707139729_)))) + (_g139705139807_ + (lambda (_g139707139735_) (if (let () (declare (not safe)) - (gx#stx-pair? _g139445139473_)) - (let ((_e139450139475_ + (gx#stx-pair? _g139707139735_)) + (let ((_e139712139737_ (let () (declare (not safe)) - (gx#stx-e _g139445139473_)))) - (let ((_hd139449139478_ + (gx#stx-e _g139707139735_)))) + (let ((_hd139711139740_ (let () (declare (not safe)) - (##car _e139450139475_))) - (_tl139448139480_ + (##car _e139712139737_))) + (_tl139710139742_ (let () (declare (not safe)) - (##cdr _e139450139475_)))) + (##cdr _e139712139737_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139449139478_)) + _hd139711139740_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139449139478_)) + _hd139711139740_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139448139480_)) - (let ((_e139453139483_ + _tl139710139742_)) + (let ((_e139715139745_ (let () (declare (not safe)) (gx#stx-e - _tl139448139480_)))) - (let ((_hd139452139486_ + _tl139710139742_)))) + (let ((_hd139714139748_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e139453139483_))) - (_tl139451139488_ - (let () (declare (not safe)) (##cdr _e139453139483_)))) + (##car _e139715139745_))) + (_tl139713139750_ + (let () (declare (not safe)) (##cdr _e139715139745_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd139452139486_)) - (let ((_g150343_ + (gx#stx-pair/null? _hd139714139748_)) + (let ((_g150605_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd139452139486_ '0)))) + (gx#syntax-split-splice _hd139714139748_ '0)))) (begin - (let ((_g150344_ + (let ((_g150606_ (let () (declare (not safe)) - (if (##values? _g150343_) - (##vector-length _g150343_) + (if (##values? _g150605_) + (##vector-length _g150605_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150344_ 2))) - (error "Context expects 2 values" _g150344_))) - (let ((_target139454139491_ + (##fx= _g150606_ 2))) + (error "Context expects 2 values" _g150606_))) + (let ((_target139716139753_ (let () (declare (not safe)) - (##vector-ref _g150343_ 0))) - (_tl139456139493_ + (##vector-ref _g150605_ 0))) + (_tl139718139755_ (let () (declare (not safe)) - (##vector-ref _g150343_ 1)))) + (##vector-ref _g150605_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139456139493_)) - (letrec ((_loop139457139496_ - (lambda (_hd139455139499_ - _id139461139501_) + (gx#stx-null? _tl139718139755_)) + (letrec ((_loop139719139758_ + (lambda (_hd139717139761_ + _id139723139763_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139455139499_)) - (let ((_e139458139504_ + _hd139717139761_)) + (let ((_e139720139766_ (let () (declare (not safe)) (gx#stx-e - _hd139455139499_)))) - (let ((_lp-hd139459139507_ + _hd139717139761_)))) + (let ((_lp-hd139721139769_ (let () (declare (not safe)) - (##car _e139458139504_))) - (_lp-tl139460139509_ + (##car _e139720139766_))) + (_lp-tl139722139771_ (let () (declare (not safe)) - (##cdr _e139458139504_)))) - (let ((__tmp150345 + (##cdr _e139720139766_)))) + (let ((__tmp150607 (let () (declare (not safe)) - (cons _lp-hd139459139507_ + (cons _lp-hd139721139769_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id139461139501_)))) + _id139723139763_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop139457139496_ - _lp-tl139460139509_ - __tmp150345)))) - (let ((_id139462139512_ - (reverse _id139461139501_))) + (_loop139719139758_ + _lp-tl139722139771_ + __tmp150607)))) + (let ((_id139724139774_ + (reverse _id139723139763_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139451139488_)) - (let ((_e139465139515_ + _tl139713139750_)) + (let ((_e139727139777_ (let () (declare (not safe)) (gx#stx-e - _tl139451139488_)))) - (let ((_hd139464139518_ + _tl139713139750_)))) + (let ((_hd139726139780_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e139465139515_))) - (_tl139463139520_ - (let () (declare (not safe)) (##cdr _e139465139515_)))) + (##car _e139727139777_))) + (_tl139725139782_ + (let () (declare (not safe)) (##cdr _e139727139777_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139463139520_)) - ((lambda (_L139523_ _L139524_) + (gx#stx-null? _tl139725139782_)) + ((lambda (_L139785_ _L139786_) (let () (declare (not safe)) - (_nonlinear-expr?139440_ _L139523_))) - _hd139464139518_ - _id139462139512_) + (_nonlinear-expr?139702_ _L139785_))) + _hd139726139780_ + _id139724139774_) (let () (declare (not safe)) - (_g139444139470_ _g139445139473_))))) + (_g139706139732_ _g139707139735_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139444139470_ - _g139445139473_)))))))) + (_g139706139732_ + _g139707139735_)))))))) (let () (declare (not safe)) - (_loop139457139496_ - _target139454139491_ + (_loop139719139758_ + _target139716139753_ '()))) (let () (declare (not safe)) - (_g139444139470_ _g139445139473_)))))) + (_g139706139732_ _g139707139735_)))))) (let () (declare (not safe)) - (_g139444139470_ _g139445139473_))))) + (_g139706139732_ _g139707139735_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139444139470_ - _g139445139473_))) + (_g139706139732_ + _g139707139735_))) (let () (declare (not safe)) - (_g139444139470_ - _g139445139473_))) + (_g139706139732_ + _g139707139735_))) (let () (declare (not safe)) - (_g139444139470_ - _g139445139473_))))) + (_g139706139732_ + _g139707139735_))))) (let () (declare (not safe)) - (_g139444139470_ _g139445139473_)))))) + (_g139706139732_ _g139707139735_)))))) (declare (not safe)) - (_g139443139545_ _kont139442_)))))) - (let ((__tmp150346 + (_g139705139807_ _kont139704_)))))) + (let ((__tmp150608 (lambda () - (let ((__tmp150347 + (let ((__tmp150609 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp150348 + (let ((__tmp150610 (lambda () (let () (declare (not safe)) - (_optimize-e139423_ - _body139170_))))) + (_optimize-e139685_ + _body139432_))))) (declare (not safe)) - (_do-splice!139422_ __tmp150348)) + (_do-splice!139684_ __tmp150610)) (let () (declare (not safe)) - (_optimize-e139423_ _body139170_)))))) + (_optimize-e139685_ _body139432_)))))) (declare (not safe)) - (_do-bind139419_ _bind139172_ __tmp150347))))) + (_do-bind139681_ _bind139434_ __tmp150609))))) (declare (not safe)) - (_do-assert139412_ _assert139171_ __tmp150346))))) + (_do-assert139674_ _assert139433_ __tmp150608))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks139082_ _konts139083_) - (letrec* ((_rtab139085_ + (lambda (_blocks139344_ _konts139345_) + (letrec* ((_rtab139347_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block139087_) - (let ((__tmp150349 (caddr _block139087_))) + (lambda (_block139349_) + (let ((__tmp150611 (caddr _block139349_))) (declare (not safe)) - (gxc#apply-collect-runtime-refs __tmp150349 _rtab139085_))) - _konts139083_) - (let _lp139089_ ((_rest139091_ _blocks139082_) (_r139092_ '())) - (let* ((_rest139093139101_ _rest139091_) - (_else139095139109_ (lambda () (reverse _r139092_))) - (_K139097139158_ - (lambda (_rest139112_ _block139113_) - (let* ((_block139114139125_ _block139113_) - (_E139116139129_ + (gxc#apply-collect-runtime-refs __tmp150611 _rtab139347_))) + _konts139345_) + (let _lp139351_ ((_rest139353_ _blocks139344_) (_r139354_ '())) + (let* ((_rest139355139363_ _rest139353_) + (_else139357139371_ (lambda () (reverse _r139354_))) + (_K139359139420_ + (lambda (_rest139374_ _block139375_) + (let* ((_block139376139387_ _block139375_) + (_E139378139391_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block139114139125_)))) - (_K139117139136_ - (lambda (_kont139132_ _type139133_ _name139134_) - (if (let ((__tmp150351 + _block139376139387_)))) + (_K139379139398_ + (lambda (_kont139394_ _type139395_ _name139396_) + (if (let ((__tmp150613 (let () (declare (not safe)) (gxc#identifier-symbol - _name139134_)))) + _name139396_)))) (declare (not safe)) - (hash-get _rtab139085_ __tmp150351)) + (hash-get _rtab139347_ __tmp150613)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont139132_ - _rtab139085_)) - (let ((__tmp150350 + _kont139394_ + _rtab139347_)) + (let ((__tmp150612 (let () (declare (not safe)) - (cons _block139113_ - _r139092_)))) + (cons _block139375_ + _r139354_)))) (declare (not safe)) - (_lp139089_ _rest139112_ __tmp150350))) + (_lp139351_ _rest139374_ __tmp150612))) (let () (declare (not safe)) - (_lp139089_ _rest139112_ _r139092_)))))) + (_lp139351_ _rest139374_ _r139354_)))))) (if (let () (declare (not safe)) - (##pair? _block139114139125_)) - (let ((_hd139118139139_ + (##pair? _block139376139387_)) + (let ((_hd139380139401_ (let () (declare (not safe)) - (##car _block139114139125_))) - (_tl139119139141_ + (##car _block139376139387_))) + (_tl139381139403_ (let () (declare (not safe)) - (##cdr _block139114139125_)))) - (let ((_name139144_ _hd139118139139_)) + (##cdr _block139376139387_)))) + (let ((_name139406_ _hd139380139401_)) (if (let () (declare (not safe)) - (##pair? _tl139119139141_)) - (let ((_hd139120139146_ + (##pair? _tl139381139403_)) + (let ((_hd139382139408_ (let () (declare (not safe)) - (##car _tl139119139141_))) - (_tl139121139148_ + (##car _tl139381139403_))) + (_tl139383139410_ (let () (declare (not safe)) - (##cdr _tl139119139141_)))) - (let ((_type139151_ _hd139120139146_)) + (##cdr _tl139381139403_)))) + (let ((_type139413_ _hd139382139408_)) (if (let () (declare (not safe)) - (##pair? _tl139121139148_)) - (let* ((_hd139122139153_ + (##pair? _tl139383139410_)) + (let* ((_hd139384139415_ (let () (declare (not safe)) - (##car _tl139121139148_))) - (_kont139156_ - _hd139122139153_)) + (##car _tl139383139410_))) + (_kont139418_ + _hd139384139415_)) (declare (not safe)) - (_K139117139136_ - _kont139156_ - _type139151_ - _name139144_)) + (_K139379139398_ + _kont139418_ + _type139413_ + _name139406_)) (let () (declare (not safe)) - (_E139116139129_))))) + (_E139378139391_))))) (let () (declare (not safe)) - (_E139116139129_))))) + (_E139378139391_))))) (let () (declare (not safe)) - (_E139116139129_))))))) - (if (let () (declare (not safe)) (##pair? _rest139093139101_)) - (let ((_hd139098139161_ + (_E139378139391_))))))) + (if (let () (declare (not safe)) (##pair? _rest139355139363_)) + (let ((_hd139360139423_ (let () (declare (not safe)) - (##car _rest139093139101_))) - (_tl139099139163_ + (##car _rest139355139363_))) + (_tl139361139425_ (let () (declare (not safe)) - (##cdr _rest139093139101_)))) - (let* ((_block139166_ _hd139098139161_) - (_rest139168_ _tl139099139163_)) + (##cdr _rest139355139363_)))) + (let* ((_block139428_ _hd139360139423_) + (_rest139430_ _tl139361139425_)) (declare (not safe)) - (_K139097139158_ _rest139168_ _block139166_))) - (let () (declare (not safe)) (_else139095139109_)))))))) + (_K139359139420_ _rest139430_ _block139428_))) + (let () (declare (not safe)) (_else139357139371_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks139006_ _konts139007_) - (let* ((_blocks139008139024_ _blocks139006_) - (_else139010139032_ (lambda () _blocks139006_)) - (_K139012139050_ - (lambda (_rest139035_ _kont139036_ _name139037_) - (letrec* ((_rtab139039_ + (lambda (_blocks139268_ _konts139269_) + (let* ((_blocks139270139286_ _blocks139268_) + (_else139272139294_ (lambda () _blocks139268_)) + (_K139274139312_ + (lambda (_rest139297_ _kont139298_ _name139299_) + (letrec* ((_rtab139301_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block139041_) - (let ((__tmp150352 (caddr _block139041_))) + (lambda (_block139303_) + (let ((__tmp150614 (caddr _block139303_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp150352 - _rtab139039_))) - _konts139007_) - (if (fx= (let ((__tmp150360 + __tmp150614 + _rtab139301_))) + _konts139269_) + (if (fx= (let ((__tmp150622 (let () (declare (not safe)) - (gxc#identifier-symbol _name139037_)))) + (gxc#identifier-symbol _name139299_)))) (declare (not safe)) - (hash-ref__0 _rtab139039_ __tmp150360)) + (hash-ref__0 _rtab139301_ __tmp150622)) '1) - (let* ((_rblock139045_ - (let ((__tmp150353 - (lambda (_block139043_) - (let ((__tmp150355 - (caddr _block139043_)) - (__tmp150354 + (let* ((_rblock139307_ + (let ((__tmp150615 + (lambda (_block139305_) + (let ((__tmp150617 + (caddr _block139305_)) + (__tmp150616 (let () (declare (not safe)) - (cons _name139037_ '())))) + (cons _name139299_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp150355 - __tmp150354))))) + __tmp150617 + __tmp150616))))) (declare (not safe)) - (find __tmp150353 _konts139007_))) - (_assert139047_ + (find __tmp150615 _konts139269_))) + (_assert139309_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock139045_ - _name139037_)))) - (let ((__tmp150356 - (let ((__tmp150357 - (let ((__tmp150358 - (let ((__tmp150359 + _rblock139307_ + _name139299_)))) + (let ((__tmp150618 + (let ((__tmp150619 + (let ((__tmp150620 + (let ((__tmp150621 (let () (declare (not safe)) - (cons _assert139047_ + (cons _assert139309_ '())))) (declare (not safe)) - (cons _kont139036_ - __tmp150359)))) + (cons _kont139298_ + __tmp150621)))) (declare (not safe)) - (cons 'restart: __tmp150358)))) + (cons 'restart: __tmp150620)))) (declare (not safe)) - (cons _name139037_ __tmp150357)))) + (cons _name139299_ __tmp150619)))) (declare (not safe)) - (cons __tmp150356 _rest139035_))) - _blocks139006_))))) - (if (let () (declare (not safe)) (##pair? _blocks139008139024_)) - (let ((_hd139013139053_ + (cons __tmp150618 _rest139297_))) + _blocks139268_))))) + (if (let () (declare (not safe)) (##pair? _blocks139270139286_)) + (let ((_hd139275139315_ (let () (declare (not safe)) - (##car _blocks139008139024_))) - (_tl139014139055_ + (##car _blocks139270139286_))) + (_tl139276139317_ (let () (declare (not safe)) - (##cdr _blocks139008139024_)))) - (if (let () (declare (not safe)) (##pair? _hd139013139053_)) - (let ((_hd139015139058_ + (##cdr _blocks139270139286_)))) + (if (let () (declare (not safe)) (##pair? _hd139275139315_)) + (let ((_hd139277139320_ (let () (declare (not safe)) - (##car _hd139013139053_))) - (_tl139016139060_ + (##car _hd139275139315_))) + (_tl139278139322_ (let () (declare (not safe)) - (##cdr _hd139013139053_)))) - (let ((_name139063_ _hd139015139058_)) + (##cdr _hd139275139315_)))) + (let ((_name139325_ _hd139277139320_)) (if (let () (declare (not safe)) - (##pair? _tl139016139060_)) - (let ((_hd139017139065_ + (##pair? _tl139278139322_)) + (let ((_hd139279139327_ (let () (declare (not safe)) - (##car _tl139016139060_))) - (_tl139018139067_ + (##car _tl139278139322_))) + (_tl139280139329_ (let () (declare (not safe)) - (##cdr _tl139016139060_)))) + (##cdr _tl139278139322_)))) (if (let () (declare (not safe)) - (##eq? _hd139017139065_ 'restart:)) + (##eq? _hd139279139327_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl139018139067_)) - (let ((_hd139019139070_ + (##pair? _tl139280139329_)) + (let ((_hd139281139332_ (let () (declare (not safe)) - (##car _tl139018139067_))) - (_tl139020139072_ + (##car _tl139280139329_))) + (_tl139282139334_ (let () (declare (not safe)) - (##cdr _tl139018139067_)))) - (let ((_kont139075_ _hd139019139070_)) + (##cdr _tl139280139329_)))) + (let ((_kont139337_ _hd139281139332_)) (if (let () (declare (not safe)) - (##pair? _tl139020139072_)) - (let ((_tl139022139077_ + (##pair? _tl139282139334_)) + (let ((_tl139284139339_ (let () (declare (not safe)) - (##cdr _tl139020139072_)))) + (##cdr _tl139282139334_)))) (if (let () (declare (not safe)) - (##null? _tl139022139077_)) - (let ((_rest139080_ - _tl139014139055_)) + (##null? _tl139284139339_)) + (let ((_rest139342_ + _tl139276139317_)) (declare (not safe)) - (_K139012139050_ - _rest139080_ - _kont139075_ - _name139063_)) + (_K139274139312_ + _rest139342_ + _kont139337_ + _name139325_)) (let () (declare (not safe)) - (_else139010139032_)))) + (_else139272139294_)))) (let () (declare (not safe)) - (_else139010139032_))))) + (_else139272139294_))))) (let () (declare (not safe)) - (_else139010139032_))) + (_else139272139294_))) (let () (declare (not safe)) - (_else139010139032_)))) + (_else139272139294_)))) (let () (declare (not safe)) - (_else139010139032_))))) - (let () (declare (not safe)) (_else139010139032_)))) - (let () (declare (not safe)) (_else139010139032_)))))) + (_else139272139294_))))) + (let () (declare (not safe)) (_else139272139294_)))) + (let () (declare (not safe)) (_else139272139294_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block138402_ _name138403_) - (letrec ((_assert-restart138405_ - (lambda (_expr138561_ _assert138562_) - (let* ((___stx149072149073_ _expr138561_) - (_g138568138665_ + (lambda (_block138664_ _name138665_) + (letrec ((_assert-restart138667_ + (lambda (_expr138823_ _assert138824_) + (let* ((___stx149334149335_ _expr138823_) + (_g138830138927_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149072149073_))))) - (let ((___kont149074149075_ - (lambda (_L138981_ _L138982_ _L138983_) - (let ((_$e139000_ - (let ((__tmp150361 - (let ((__tmp150362 + ___stx149334149335_))))) + (let ((___kont149336149337_ + (lambda (_L139243_ _L139244_ _L139245_) + (let ((_$e139262_ + (let ((__tmp150623 + (let ((__tmp150624 (let () (declare (not safe)) - (cons _L138983_ '#t)))) + (cons _L139245_ '#t)))) (declare (not safe)) - (cons __tmp150362 - _assert138562_)))) + (cons __tmp150624 + _assert138824_)))) (declare (not safe)) - (_assert-restart138405_ - _L138982_ - __tmp150361)))) - (if _$e139000_ - _$e139000_ - (let ((__tmp150363 - (let ((__tmp150364 + (_assert-restart138667_ + _L139244_ + __tmp150623)))) + (if _$e139262_ + _$e139262_ + (let ((__tmp150625 + (let ((__tmp150626 (let () (declare (not safe)) - (cons _L138983_ '#f)))) + (cons _L139245_ '#f)))) (declare (not safe)) - (cons __tmp150364 - _assert138562_)))) + (cons __tmp150626 + _assert138824_)))) (declare (not safe)) - (_assert-restart138405_ - _L138981_ - __tmp150363)))))) - (___kont149076149077_ - (lambda (_L138929_) + (_assert-restart138667_ + _L139243_ + __tmp150625)))))) + (___kont149338149339_ + (lambda (_L139191_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L138929_ - _name138403_)) - _assert138562_ + _L139191_ + _name138665_)) + _assert138824_ '#f))) - (___kont149078149079_ - (lambda (_L138879_) + (___kont149340149341_ + (lambda (_L139141_) (let () (declare (not safe)) - (_assert-restart138405_ - _L138879_ - _assert138562_)))) - (___kont149080149081_ - (lambda (_L138805_ - _L138806_ - _L138807_ - _L138808_ - _L138809_) + (_assert-restart138667_ + _L139141_ + _assert138824_)))) + (___kont149342149343_ + (lambda (_L139067_ + _L139068_ + _L139069_ + _L139070_ + _L139071_) (let () (declare (not safe)) - (_assert-restart138405_ - _L138807_ - _assert138562_)))) - (___kont149086149087_ (lambda () '#f))) - (let ((___match149241149242_ - (lambda (_e138615138677_ - _hd138614138680_ - _tl138613138682_ - _e138618138685_ - _hd138617138688_ - _tl138616138690_ - _e138621138693_ - _hd138620138696_ - _tl138619138698_ - _e138624138701_ - _hd138623138704_ - _tl138622138706_ - _e138627138709_ - _hd138626138712_ - _tl138625138714_ - _e138630138717_ - _hd138629138720_ - _tl138628138722_ - _e138633138725_ - _hd138632138728_ - _tl138631138730_ - _e138636138733_ - _hd138635138736_ - _tl138634138738_ - ___splice149082149083_ - _target138637138741_ - _tl138639138743_) - (letrec ((_loop138640138746_ - (lambda (_hd138638138749_ - _id138644138751_) + (_assert-restart138667_ + _L139069_ + _assert138824_)))) + (___kont149348149349_ (lambda () '#f))) + (let ((___match149503149504_ + (lambda (_e138877138939_ + _hd138876138942_ + _tl138875138944_ + _e138880138947_ + _hd138879138950_ + _tl138878138952_ + _e138883138955_ + _hd138882138958_ + _tl138881138960_ + _e138886138963_ + _hd138885138966_ + _tl138884138968_ + _e138889138971_ + _hd138888138974_ + _tl138887138976_ + _e138892138979_ + _hd138891138982_ + _tl138890138984_ + _e138895138987_ + _hd138894138990_ + _tl138893138992_ + _e138898138995_ + _hd138897138998_ + _tl138896139000_ + ___splice149344149345_ + _target138899139003_ + _tl138901139005_) + (letrec ((_loop138902139008_ + (lambda (_hd138900139011_ + _id138906139013_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138638138749_)) - (let ((_e138641138754_ + _hd138900139011_)) + (let ((_e138903139016_ (let () (declare (not safe)) (gx#stx-e - _hd138638138749_)))) - (let ((_lp-tl138643138759_ + _hd138900139011_)))) + (let ((_lp-tl138905139021_ (let () (declare (not safe)) - (##cdr _e138641138754_))) - (_lp-hd138642138757_ + (##cdr _e138903139016_))) + (_lp-hd138904139019_ (let () (declare (not safe)) - (##car _e138641138754_)))) - (let ((__tmp150366 + (##car _e138903139016_)))) + (let ((__tmp150628 (let () (declare (not safe)) - (cons _lp-hd138642138757_ + (cons _lp-hd138904139019_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id138644138751_)))) + _id138906139013_)))) (declare (not safe)) - (_loop138640138746_ _lp-tl138643138759_ __tmp150366)))) + (_loop138902139008_ _lp-tl138905139021_ __tmp150628)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id138645138762_ - (reverse _id138644138751_))) + (let ((_id138907139024_ + (reverse _id138906139013_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138634138738_)) - (let ((_e138648138765_ + _tl138896139000_)) + (let ((_e138910139027_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138634138738_)))) - (let ((_tl138646138770_ - (let () (declare (not safe)) (##cdr _e138648138765_))) - (_hd138647138768_ - (let () (declare (not safe)) (##car _e138648138765_)))) + (gx#stx-e _tl138896139000_)))) + (let ((_tl138908139032_ + (let () (declare (not safe)) (##cdr _e138910139027_))) + (_hd138909139030_ + (let () (declare (not safe)) (##car _e138910139027_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138646138770_)) + (gx#stx-null? _tl138908139032_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl138628138722_)) + (gx#stx-null? _tl138890138984_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl138619138698_)) - (let ((___splice149084149085_ + (gx#stx-pair/null? _tl138881138960_)) + (let ((___splice149346149347_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl138619138698_ + _tl138881138960_ '0)))) - (let ((_tl138651138775_ + (let ((_tl138913139037_ (let () (declare (not safe)) (##vector-ref - ___splice149084149085_ + ___splice149346149347_ '1))) - (_target138649138773_ + (_target138911139035_ (let () (declare (not safe)) (##vector-ref - ___splice149084149085_ + ___splice149346149347_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138651138775_)) - (letrec ((_loop138652138778_ - (lambda (_hd138650138781_ - _bind138656138783_) + (gx#stx-null? _tl138913139037_)) + (letrec ((_loop138914139040_ + (lambda (_hd138912139043_ + _bind138918139045_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138650138781_)) - (let ((_e138653138786_ + _hd138912139043_)) + (let ((_e138915139048_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138650138781_)))) - (let ((_lp-tl138655138791_ - (let () (declare (not safe)) (##cdr _e138653138786_))) - (_lp-hd138654138789_ - (let () (declare (not safe)) (##car _e138653138786_)))) - (let ((__tmp150365 + (gx#stx-e _hd138912139043_)))) + (let ((_lp-tl138917139053_ + (let () (declare (not safe)) (##cdr _e138915139048_))) + (_lp-hd138916139051_ + (let () (declare (not safe)) (##car _e138915139048_)))) + (let ((__tmp150627 (let () (declare (not safe)) - (cons _lp-hd138654138789_ _bind138656138783_)))) + (cons _lp-hd138916139051_ _bind138918139045_)))) (declare (not safe)) - (_loop138652138778_ _lp-tl138655138791_ __tmp150365)))) - (let ((_bind138657138794_ (reverse _bind138656138783_))) + (_loop138914139040_ _lp-tl138917139053_ __tmp150627)))) + (let ((_bind138919139056_ (reverse _bind138918139045_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138616138690_)) - (let ((_e138660138797_ + (gx#stx-pair? _tl138878138952_)) + (let ((_e138922139059_ (let () (declare (not safe)) - (gx#stx-e _tl138616138690_)))) - (let ((_tl138658138802_ + (gx#stx-e _tl138878138952_)))) + (let ((_tl138920139064_ (let () (declare (not safe)) - (##cdr _e138660138797_))) - (_hd138659138800_ + (##cdr _e138922139059_))) + (_hd138921139062_ (let () (declare (not safe)) - (##car _e138660138797_)))) + (##car _e138922139059_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138658138802_)) - (___kont149080149081_ - _hd138659138800_ - _bind138657138794_ - _hd138647138768_ - _id138645138762_ - _hd138626138712_) - (___kont149086149087_)))) - (___kont149086149087_))))))) + (gx#stx-null? _tl138920139064_)) + (___kont149342149343_ + _hd138921139062_ + _bind138919139056_ + _hd138909139030_ + _id138907139024_ + _hd138888138974_) + (___kont149348149349_)))) + (___kont149348149349_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop138652138778_ - _target138649138773_ + (_loop138914139040_ + _target138911139035_ '()))) - (___kont149086149087_)))) - (___kont149086149087_)) - (___kont149086149087_)) - (___kont149086149087_)))) - (___kont149086149087_))))))) + (___kont149348149349_)))) + (___kont149348149349_)) + (___kont149348149349_)) + (___kont149348149349_)))) + (___kont149348149349_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop138640138746_ - _target138637138741_ + (_loop138902139008_ + _target138899139003_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149072149073_)) - (let ((_e138575138949_ + (gx#stx-pair? ___stx149334149335_)) + (let ((_e138837139211_ (let () (declare (not safe)) - (gx#stx-e ___stx149072149073_)))) - (let ((_tl138573138954_ + (gx#stx-e ___stx149334149335_)))) + (let ((_tl138835139216_ (let () (declare (not safe)) - (##cdr _e138575138949_))) - (_hd138574138952_ + (##cdr _e138837139211_))) + (_hd138836139214_ (let () (declare (not safe)) - (##car _e138575138949_)))) + (##car _e138837139211_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138574138952_)) + (gx#identifier? _hd138836139214_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd138574138952_)) + _hd138836139214_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138573138954_)) - (let ((_e138578138957_ + _tl138835139216_)) + (let ((_e138840139219_ (let () (declare (not safe)) (gx#stx-e - _tl138573138954_)))) - (let ((_tl138576138962_ + _tl138835139216_)))) + (let ((_tl138838139224_ (let () (declare (not safe)) - (##cdr _e138578138957_))) - (_hd138577138960_ + (##cdr _e138840139219_))) + (_hd138839139222_ (let () (declare (not safe)) - (##car _e138578138957_)))) + (##car _e138840139219_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138576138962_)) - (let ((_e138581138965_ + _tl138838139224_)) + (let ((_e138843139227_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138576138962_)))) - (let ((_tl138579138970_ - (let () (declare (not safe)) (##cdr _e138581138965_))) - (_hd138580138968_ - (let () (declare (not safe)) (##car _e138581138965_)))) + (gx#stx-e _tl138838139224_)))) + (let ((_tl138841139232_ + (let () (declare (not safe)) (##cdr _e138843139227_))) + (_hd138842139230_ + (let () (declare (not safe)) (##car _e138843139227_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138579138970_)) - (let ((_e138584138973_ + (gx#stx-pair? _tl138841139232_)) + (let ((_e138846139235_ (let () (declare (not safe)) - (gx#stx-e _tl138579138970_)))) - (let ((_tl138582138978_ + (gx#stx-e _tl138841139232_)))) + (let ((_tl138844139240_ (let () (declare (not safe)) - (##cdr _e138584138973_))) - (_hd138583138976_ + (##cdr _e138846139235_))) + (_hd138845139238_ (let () (declare (not safe)) - (##car _e138584138973_)))) + (##car _e138846139235_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138582138978_)) - (___kont149074149075_ - _hd138583138976_ - _hd138580138968_ - _hd138577138960_) - (___kont149086149087_)))) - (___kont149086149087_)))) - (___kont149086149087_)))) + (gx#stx-null? _tl138844139240_)) + (___kont149336149337_ + _hd138845139238_ + _hd138842139230_ + _hd138839139222_) + (___kont149348149349_)))) + (___kont149348149349_)))) + (___kont149348149349_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149086149087_)) + (___kont149348149349_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd138574138952_)) + _hd138836139214_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138573138954_)) - (let ((_e138591138905_ + _tl138835139216_)) + (let ((_e138853139167_ (let () (declare (not safe)) (gx#stx-e - _tl138573138954_)))) - (let ((_tl138589138910_ + _tl138835139216_)))) + (let ((_tl138851139172_ (let () (declare (not safe)) - (##cdr _e138591138905_))) - (_hd138590138908_ + (##cdr _e138853139167_))) + (_hd138852139170_ (let () (declare (not safe)) - (##car _e138591138905_)))) + (##car _e138853139167_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138590138908_)) - (let ((_e138594138913_ + _hd138852139170_)) + (let ((_e138856139175_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd138590138908_)))) - (let ((_tl138592138918_ + (gx#stx-e _hd138852139170_)))) + (let ((_tl138854139180_ (let () (declare (not safe)) - (##cdr _e138594138913_))) - (_hd138593138916_ + (##cdr _e138856139175_))) + (_hd138855139178_ (let () (declare (not safe)) - (##car _e138594138913_)))) + (##car _e138856139175_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138593138916_)) + (gx#identifier? _hd138855139178_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd138593138916_)) + (gx#stx-eq? '%#ref _hd138855139178_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138592138918_)) - (let ((_e138597138921_ + (gx#stx-pair? _tl138854139180_)) + (let ((_e138859139183_ (let () (declare (not safe)) - (gx#stx-e _tl138592138918_)))) - (let ((_tl138595138926_ + (gx#stx-e _tl138854139180_)))) + (let ((_tl138857139188_ (let () (declare (not safe)) - (##cdr _e138597138921_))) - (_hd138596138924_ + (##cdr _e138859139183_))) + (_hd138858139186_ (let () (declare (not safe)) - (##car _e138597138921_)))) + (##car _e138859139183_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138595138926_)) - (___kont149076149077_ - _hd138596138924_) - (___kont149086149087_)))) - (___kont149086149087_)) - (___kont149086149087_)) - (___kont149086149087_)))) - (___kont149086149087_)))) + (gx#stx-null? _tl138857139188_)) + (___kont149338149339_ + _hd138858139186_) + (___kont149348149349_)))) + (___kont149348149349_)) + (___kont149348149349_)) + (___kont149348149349_)))) + (___kont149348149349_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149086149087_)) + (___kont149348149349_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138574138952_)) + _hd138836139214_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138573138954_)) - (let ((_e138604138863_ + _tl138835139216_)) + (let ((_e138866139125_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138573138954_)))) - (let ((_tl138602138868_ - (let () (declare (not safe)) (##cdr _e138604138863_))) - (_hd138603138866_ - (let () (declare (not safe)) (##car _e138604138863_)))) + (gx#stx-e _tl138835139216_)))) + (let ((_tl138864139130_ + (let () (declare (not safe)) (##cdr _e138866139125_))) + (_hd138865139128_ + (let () (declare (not safe)) (##car _e138866139125_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138602138868_)) - (let ((_e138607138871_ + (gx#stx-pair? _tl138864139130_)) + (let ((_e138869139133_ (let () (declare (not safe)) - (gx#stx-e _tl138602138868_)))) - (let ((_tl138605138876_ + (gx#stx-e _tl138864139130_)))) + (let ((_tl138867139138_ (let () (declare (not safe)) - (##cdr _e138607138871_))) - (_hd138606138874_ + (##cdr _e138869139133_))) + (_hd138868139136_ (let () (declare (not safe)) - (##car _e138607138871_)))) + (##car _e138869139133_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138605138876_)) - (___kont149078149079_ _hd138606138874_) - (___kont149086149087_)))) - (___kont149086149087_)))) - (___kont149086149087_)) + (gx#stx-null? _tl138867139138_)) + (___kont149340149341_ _hd138868139136_) + (___kont149348149349_)))) + (___kont149348149349_)))) + (___kont149348149349_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd138574138952_)) + _hd138836139214_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138573138954_)) - (let ((_e138618138685_ + _tl138835139216_)) + (let ((_e138880138947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138573138954_)))) - (let ((_tl138616138690_ + (gx#stx-e _tl138835139216_)))) + (let ((_tl138878138952_ (let () (declare (not safe)) - (##cdr _e138618138685_))) - (_hd138617138688_ + (##cdr _e138880138947_))) + (_hd138879138950_ (let () (declare (not safe)) - (##car _e138618138685_)))) + (##car _e138880138947_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138617138688_)) - (let ((_e138621138693_ + (gx#stx-pair? _hd138879138950_)) + (let ((_e138883138955_ (let () (declare (not safe)) - (gx#stx-e _hd138617138688_)))) - (let ((_tl138619138698_ + (gx#stx-e _hd138879138950_)))) + (let ((_tl138881138960_ (let () (declare (not safe)) - (##cdr _e138621138693_))) - (_hd138620138696_ + (##cdr _e138883138955_))) + (_hd138882138958_ (let () (declare (not safe)) - (##car _e138621138693_)))) + (##car _e138883138955_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138620138696_)) - (let ((_e138624138701_ + (gx#stx-pair? _hd138882138958_)) + (let ((_e138886138963_ (let () (declare (not safe)) - (gx#stx-e _hd138620138696_)))) - (let ((_tl138622138706_ + (gx#stx-e _hd138882138958_)))) + (let ((_tl138884138968_ (let () (declare (not safe)) - (##cdr _e138624138701_))) - (_hd138623138704_ + (##cdr _e138886138963_))) + (_hd138885138966_ (let () (declare (not safe)) - (##car _e138624138701_)))) + (##car _e138886138963_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138623138704_)) - (let ((_e138627138709_ + (gx#stx-pair? _hd138885138966_)) + (let ((_e138889138971_ (let () (declare (not safe)) (gx#stx-e - _hd138623138704_)))) - (let ((_tl138625138714_ + _hd138885138966_)))) + (let ((_tl138887138976_ (let () (declare (not safe)) - (##cdr _e138627138709_))) - (_hd138626138712_ + (##cdr _e138889138971_))) + (_hd138888138974_ (let () (declare (not safe)) - (##car _e138627138709_)))) + (##car _e138889138971_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138625138714_)) + _tl138887138976_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138622138706_)) - (let ((_e138630138717_ + _tl138884138968_)) + (let ((_e138892138979_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138622138706_)))) - (let ((_tl138628138722_ - (let () (declare (not safe)) (##cdr _e138630138717_))) - (_hd138629138720_ - (let () (declare (not safe)) (##car _e138630138717_)))) + (gx#stx-e _tl138884138968_)))) + (let ((_tl138890138984_ + (let () (declare (not safe)) (##cdr _e138892138979_))) + (_hd138891138982_ + (let () (declare (not safe)) (##car _e138892138979_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138629138720_)) - (let ((_e138633138725_ + (gx#stx-pair? _hd138891138982_)) + (let ((_e138895138987_ (let () (declare (not safe)) - (gx#stx-e _hd138629138720_)))) - (let ((_tl138631138730_ + (gx#stx-e _hd138891138982_)))) + (let ((_tl138893138992_ (let () (declare (not safe)) - (##cdr _e138633138725_))) - (_hd138632138728_ + (##cdr _e138895138987_))) + (_hd138894138990_ (let () (declare (not safe)) - (##car _e138633138725_)))) + (##car _e138895138987_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138632138728_)) + (gx#identifier? _hd138894138990_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd138632138728_)) + (gx#stx-eq? '%#lambda _hd138894138990_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138631138730_)) - (let ((_e138636138733_ + (gx#stx-pair? _tl138893138992_)) + (let ((_e138898138995_ (let () (declare (not safe)) - (gx#stx-e _tl138631138730_)))) - (let ((_tl138634138738_ + (gx#stx-e _tl138893138992_)))) + (let ((_tl138896139000_ (let () (declare (not safe)) - (##cdr _e138636138733_))) - (_hd138635138736_ + (##cdr _e138898138995_))) + (_hd138897138998_ (let () (declare (not safe)) - (##car _e138636138733_)))) + (##car _e138898138995_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd138635138736_)) - (let ((___splice149082149083_ + _hd138897138998_)) + (let ((___splice149344149345_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd138635138736_ + _hd138897138998_ '0)))) - (let ((_tl138639138743_ + (let ((_tl138901139005_ (let () (declare (not safe)) (##vector-ref - ___splice149082149083_ + ___splice149344149345_ '1))) - (_target138637138741_ + (_target138899139003_ (let () (declare (not safe)) (##vector-ref - ___splice149082149083_ + ___splice149344149345_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138639138743_)) - (___match149241149242_ - _e138575138949_ - _hd138574138952_ - _tl138573138954_ - _e138618138685_ - _hd138617138688_ - _tl138616138690_ - _e138621138693_ - _hd138620138696_ - _tl138619138698_ - _e138624138701_ - _hd138623138704_ - _tl138622138706_ - _e138627138709_ - _hd138626138712_ - _tl138625138714_ - _e138630138717_ - _hd138629138720_ - _tl138628138722_ - _e138633138725_ - _hd138632138728_ - _tl138631138730_ - _e138636138733_ - _hd138635138736_ - _tl138634138738_ - ___splice149082149083_ - _target138637138741_ - _tl138639138743_) - (___kont149086149087_)))) - (___kont149086149087_)))) - (___kont149086149087_)) - (___kont149086149087_)) - (___kont149086149087_)))) - (___kont149086149087_)))) - (___kont149086149087_)) + _tl138901139005_)) + (___match149503149504_ + _e138837139211_ + _hd138836139214_ + _tl138835139216_ + _e138880138947_ + _hd138879138950_ + _tl138878138952_ + _e138883138955_ + _hd138882138958_ + _tl138881138960_ + _e138886138963_ + _hd138885138966_ + _tl138884138968_ + _e138889138971_ + _hd138888138974_ + _tl138887138976_ + _e138892138979_ + _hd138891138982_ + _tl138890138984_ + _e138895138987_ + _hd138894138990_ + _tl138893138992_ + _e138898138995_ + _hd138897138998_ + _tl138896139000_ + ___splice149344149345_ + _target138899139003_ + _tl138901139005_) + (___kont149348149349_)))) + (___kont149348149349_)))) + (___kont149348149349_)) + (___kont149348149349_)) + (___kont149348149349_)))) + (___kont149348149349_)))) + (___kont149348149349_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149086149087_)))) - (___kont149086149087_)))) - (___kont149086149087_)))) - (___kont149086149087_)))) - (___kont149086149087_)) - (___kont149086149087_))))) + (___kont149348149349_)))) + (___kont149348149349_)))) + (___kont149348149349_)))) + (___kont149348149349_)))) + (___kont149348149349_)) + (___kont149348149349_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149086149087_)))) - (___kont149086149087_)))))))) - (let* ((_block138406138419_ _block138402_) - (_E138408138423_ + (___kont149348149349_)))) + (___kont149348149349_)))))))) + (let* ((_block138668138681_ _block138664_) + (_E138670138685_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _block138406138419_)))) - (_K138409138536_ - (lambda (_maybe-bind138426_ _assert138427_ _kont138428_) - (let* ((_g138430138456_ - (lambda (_g138431138453_) + (error '"No clause matching" _block138668138681_)))) + (_K138671138798_ + (lambda (_maybe-bind138688_ _assert138689_ _kont138690_) + (let* ((_g138692138718_ + (lambda (_g138693138715_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138431138453_)))) - (_g138429138533_ - (lambda (_g138431138459_) + _g138693138715_)))) + (_g138691138795_ + (lambda (_g138693138721_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138431138459_)) - (let ((_e138436138461_ + (gx#stx-pair? _g138693138721_)) + (let ((_e138698138723_ (let () (declare (not safe)) - (gx#stx-e _g138431138459_)))) - (let ((_hd138435138464_ + (gx#stx-e _g138693138721_)))) + (let ((_hd138697138726_ (let () (declare (not safe)) - (##car _e138436138461_))) - (_tl138434138466_ + (##car _e138698138723_))) + (_tl138696138728_ (let () (declare (not safe)) - (##cdr _e138436138461_)))) + (##cdr _e138698138723_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138435138464_)) + (gx#identifier? _hd138697138726_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138435138464_)) + _hd138697138726_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138434138466_)) - (let ((_e138439138469_ + _tl138696138728_)) + (let ((_e138701138731_ (let () (declare (not safe)) (gx#stx-e - _tl138434138466_)))) - (let ((_hd138438138472_ + _tl138696138728_)))) + (let ((_hd138700138734_ (let () (declare (not safe)) - (##car _e138439138469_))) - (_tl138437138474_ + (##car _e138701138731_))) + (_tl138699138736_ (let () (declare (not safe)) - (##cdr _e138439138469_)))) + (##cdr _e138701138731_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd138438138472_)) - (let ((_g150367_ + _hd138700138734_)) + (let ((_g150629_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd138438138472_ '0)))) + (gx#syntax-split-splice _hd138700138734_ '0)))) (begin - (let ((_g150368_ + (let ((_g150630_ (let () (declare (not safe)) - (if (##values? _g150367_) - (##vector-length _g150367_) + (if (##values? _g150629_) + (##vector-length _g150629_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150368_ 2))) - (error "Context expects 2 values" _g150368_))) - (let ((_target138440138477_ + (##fx= _g150630_ 2))) + (error "Context expects 2 values" _g150630_))) + (let ((_target138702138739_ (let () (declare (not safe)) - (##vector-ref _g150367_ 0))) - (_tl138442138479_ + (##vector-ref _g150629_ 0))) + (_tl138704138741_ (let () (declare (not safe)) - (##vector-ref _g150367_ 1)))) + (##vector-ref _g150629_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138442138479_)) - (letrec ((_loop138443138482_ - (lambda (_hd138441138485_ - _id138447138487_) + (gx#stx-null? _tl138704138741_)) + (letrec ((_loop138705138744_ + (lambda (_hd138703138747_ + _id138709138749_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138441138485_)) - (let ((_e138444138490_ + (gx#stx-pair? _hd138703138747_)) + (let ((_e138706138752_ (let () (declare (not safe)) (gx#stx-e - _hd138441138485_)))) - (let ((_lp-hd138445138493_ + _hd138703138747_)))) + (let ((_lp-hd138707138755_ (let () (declare (not safe)) - (##car _e138444138490_))) - (_lp-tl138446138495_ + (##car _e138706138752_))) + (_lp-tl138708138757_ (let () (declare (not safe)) - (##cdr _e138444138490_)))) - (let ((__tmp150369 + (##cdr _e138706138752_)))) + (let ((__tmp150631 (let () (declare (not safe)) - (cons _lp-hd138445138493_ - _id138447138487_)))) + (cons _lp-hd138707138755_ + _id138709138749_)))) (declare (not safe)) - (_loop138443138482_ - _lp-tl138446138495_ - __tmp150369)))) - (let ((_id138448138498_ - (reverse _id138447138487_))) + (_loop138705138744_ + _lp-tl138708138757_ + __tmp150631)))) + (let ((_id138710138760_ + (reverse _id138709138749_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138437138474_)) - (let ((_e138451138501_ + _tl138699138736_)) + (let ((_e138713138763_ (let () (declare (not safe)) (gx#stx-e - _tl138437138474_)))) - (let ((_hd138450138504_ + _tl138699138736_)))) + (let ((_hd138712138766_ (let () (declare (not safe)) - (##car _e138451138501_))) - (_tl138449138506_ + (##car _e138713138763_))) + (_tl138711138768_ (let () (declare (not safe)) - (##cdr _e138451138501_)))) + (##cdr _e138713138763_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138449138506_)) - ((lambda (_L138509_ + _tl138711138768_)) + ((lambda (_L138771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L138510_) + _L138772_) (let () (declare (not safe)) - (_assert-restart138405_ _L138509_ _assert138427_))) - _hd138450138504_ - _id138448138498_) + (_assert-restart138667_ _L138771_ _assert138689_))) + _hd138712138766_ + _id138710138760_) (let () (declare (not safe)) - (_g138430138456_ _g138431138459_))))) + (_g138692138718_ _g138693138721_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138430138456_ - _g138431138459_)))))))) + (_g138692138718_ + _g138693138721_)))))))) (let () (declare (not safe)) - (_loop138443138482_ _target138440138477_ '()))) + (_loop138705138744_ _target138702138739_ '()))) (let () (declare (not safe)) - (_g138430138456_ _g138431138459_)))))) + (_g138692138718_ _g138693138721_)))))) (let () (declare (not safe)) - (_g138430138456_ _g138431138459_))))) + (_g138692138718_ _g138693138721_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138430138456_ - _g138431138459_))) + (_g138692138718_ + _g138693138721_))) (let () (declare (not safe)) - (_g138430138456_ - _g138431138459_))) + (_g138692138718_ + _g138693138721_))) (let () (declare (not safe)) - (_g138430138456_ - _g138431138459_))))) + (_g138692138718_ + _g138693138721_))))) (let () (declare (not safe)) - (_g138430138456_ _g138431138459_)))))) + (_g138692138718_ _g138693138721_)))))) (declare (not safe)) - (_g138429138533_ _kont138428_))))) - (if (let () (declare (not safe)) (##pair? _block138406138419_)) - (let ((_tl138411138539_ + (_g138691138795_ _kont138690_))))) + (if (let () (declare (not safe)) (##pair? _block138668138681_)) + (let ((_tl138673138801_ (let () (declare (not safe)) - (##cdr _block138406138419_)))) - (if (let () (declare (not safe)) (##pair? _tl138411138539_)) - (let ((_tl138413138542_ + (##cdr _block138668138681_)))) + (if (let () (declare (not safe)) (##pair? _tl138673138801_)) + (let ((_tl138675138804_ (let () (declare (not safe)) - (##cdr _tl138411138539_)))) + (##cdr _tl138673138801_)))) (if (let () (declare (not safe)) - (##pair? _tl138413138542_)) - (let ((_hd138414138545_ + (##pair? _tl138675138804_)) + (let ((_hd138676138807_ (let () (declare (not safe)) - (##car _tl138413138542_))) - (_tl138415138547_ + (##car _tl138675138804_))) + (_tl138677138809_ (let () (declare (not safe)) - (##cdr _tl138413138542_)))) - (let ((_kont138550_ _hd138414138545_)) + (##cdr _tl138675138804_)))) + (let ((_kont138812_ _hd138676138807_)) (if (let () (declare (not safe)) - (##pair? _tl138415138547_)) - (let ((_hd138416138552_ + (##pair? _tl138677138809_)) + (let ((_hd138678138814_ (let () (declare (not safe)) - (##car _tl138415138547_))) - (_tl138417138554_ + (##car _tl138677138809_))) + (_tl138679138816_ (let () (declare (not safe)) - (##cdr _tl138415138547_)))) - (let* ((_assert138557_ _hd138416138552_) - (_maybe-bind138559_ - _tl138417138554_)) + (##cdr _tl138677138809_)))) + (let* ((_assert138819_ _hd138678138814_) + (_maybe-bind138821_ + _tl138679138816_)) (declare (not safe)) - (_K138409138536_ - _maybe-bind138559_ - _assert138557_ - _kont138550_))) + (_K138671138798_ + _maybe-bind138821_ + _assert138819_ + _kont138812_))) (let () (declare (not safe)) - (_E138408138423_))))) - (let () (declare (not safe)) (_E138408138423_)))) - (let () (declare (not safe)) (_E138408138423_)))) - (let () (declare (not safe)) (_E138408138423_))))))) + (_E138670138685_))))) + (let () (declare (not safe)) (_E138670138685_)))) + (let () (declare (not safe)) (_E138670138685_)))) + (let () (declare (not safe)) (_E138670138685_))))))) (define gxc#optimize-syntax-case - (lambda (_stx138033_) - (let* ((_g138035138065_ - (lambda (_g138036138062_) + (lambda (_stx138295_) + (let* ((_g138297138327_ + (lambda (_g138298138324_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138036138062_)))) - (_g138034138399_ - (lambda (_g138036138068_) + _g138298138324_)))) + (_g138296138661_ + (lambda (_g138298138330_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138036138068_)) - (let ((_e138042138070_ + (gx#stx-pair? _g138298138330_)) + (let ((_e138304138332_ (let () (declare (not safe)) - (gx#stx-e _g138036138068_)))) - (let ((_hd138041138073_ + (gx#stx-e _g138298138330_)))) + (let ((_hd138303138335_ (let () (declare (not safe)) - (##car _e138042138070_))) - (_tl138040138075_ + (##car _e138304138332_))) + (_tl138302138337_ (let () (declare (not safe)) - (##cdr _e138042138070_)))) + (##cdr _e138304138332_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138041138073_)) + (gx#identifier? _hd138303138335_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138041138073_)) + _hd138303138335_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138040138075_)) - (let ((_e138045138078_ + (gx#stx-pair? _tl138302138337_)) + (let ((_e138307138340_ (let () (declare (not safe)) - (gx#stx-e _tl138040138075_)))) - (let ((_hd138044138081_ + (gx#stx-e _tl138302138337_)))) + (let ((_hd138306138343_ (let () (declare (not safe)) - (##car _e138045138078_))) - (_tl138043138083_ + (##car _e138307138340_))) + (_tl138305138345_ (let () (declare (not safe)) - (##cdr _e138045138078_)))) + (##cdr _e138307138340_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138044138081_)) - (let ((_e138048138086_ + _hd138306138343_)) + (let ((_e138310138348_ (let () (declare (not safe)) (gx#stx-e - _hd138044138081_)))) - (let ((_hd138047138089_ + _hd138306138343_)))) + (let ((_hd138309138351_ (let () (declare (not safe)) - (##car _e138048138086_))) - (_tl138046138091_ + (##car _e138310138348_))) + (_tl138308138353_ (let () (declare (not safe)) - (##cdr _e138048138086_)))) + (##cdr _e138310138348_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138047138089_)) - (let ((_e138051138094_ + _hd138309138351_)) + (let ((_e138313138356_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138047138089_)))) - (let ((_hd138050138097_ - (let () (declare (not safe)) (##car _e138051138094_))) - (_tl138049138099_ - (let () (declare (not safe)) (##cdr _e138051138094_)))) + (gx#stx-e _hd138309138351_)))) + (let ((_hd138312138359_ + (let () (declare (not safe)) (##car _e138313138356_))) + (_tl138311138361_ + (let () (declare (not safe)) (##cdr _e138313138356_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138050138097_)) - (let ((_e138054138102_ + (gx#stx-pair? _hd138312138359_)) + (let ((_e138316138364_ (let () (declare (not safe)) - (gx#stx-e _hd138050138097_)))) - (let ((_hd138053138105_ + (gx#stx-e _hd138312138359_)))) + (let ((_hd138315138367_ (let () (declare (not safe)) - (##car _e138054138102_))) - (_tl138052138107_ + (##car _e138316138364_))) + (_tl138314138369_ (let () (declare (not safe)) - (##cdr _e138054138102_)))) + (##cdr _e138316138364_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138052138107_)) + (gx#stx-null? _tl138314138369_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138049138099_)) - (let ((_e138057138110_ + (gx#stx-pair? _tl138311138361_)) + (let ((_e138319138372_ (let () (declare (not safe)) - (gx#stx-e _tl138049138099_)))) - (let ((_hd138056138113_ + (gx#stx-e _tl138311138361_)))) + (let ((_hd138318138375_ (let () (declare (not safe)) - (##car _e138057138110_))) - (_tl138055138115_ + (##car _e138319138372_))) + (_tl138317138377_ (let () (declare (not safe)) - (##cdr _e138057138110_)))) + (##cdr _e138319138372_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138055138115_)) + (gx#stx-null? _tl138317138377_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl138046138091_)) + _tl138308138353_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138043138083_)) - (let ((_e138060138118_ + _tl138305138345_)) + (let ((_e138322138380_ (let () (declare (not safe)) (gx#stx-e - _tl138043138083_)))) - (let ((_hd138059138121_ + _tl138305138345_)))) + (let ((_hd138321138383_ (let () (declare (not safe)) - (##car _e138060138118_))) - (_tl138058138123_ + (##car _e138322138380_))) + (_tl138320138385_ (let () (declare (not safe)) - (##cdr _e138060138118_)))) + (##cdr _e138322138380_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138058138123_)) - ((lambda (_L138126_ + _tl138320138385_)) + ((lambda (_L138388_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L138127_ - _L138128_) - (let _lp138152_ ((_body138154_ _L138126_) - (_clauses138155_ '())) - (let* ((___stx149244149245_ _body138154_) - (_g138158138205_ + _L138389_ + _L138390_) + (let _lp138414_ ((_body138416_ _L138388_) + (_clauses138417_ '())) + (let* ((___stx149506149507_ _body138416_) + (_g138420138467_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149244149245_))))) - (let ((___kont149246149247_ - (lambda (_L138371_ _L138372_ _L138373_) - (let ((__tmp150370 - (let ((__tmp150371 - (let ((__tmp150372 + ___stx149506149507_))))) + (let ((___kont149508149509_ + (lambda (_L138633_ _L138634_ _L138635_) + (let ((__tmp150632 + (let ((__tmp150633 + (let ((__tmp150634 (let () (declare (not safe)) (gxc#compile-e__0 - _L138372_)))) + _L138634_)))) (declare (not safe)) - (cons _L138373_ - __tmp150372)))) + (cons _L138635_ + __tmp150634)))) (declare (not safe)) - (cons __tmp150371 - _clauses138155_)))) + (cons __tmp150633 + _clauses138417_)))) (declare (not safe)) - (_lp138152_ _L138371_ __tmp150370)))) - (___kont149248149249_ - (lambda (_L138250_ _L138251_) - (let ((_$e138272_ (length _clauses138155_))) + (_lp138414_ _L138633_ __tmp150632)))) + (___kont149510149511_ + (lambda (_L138512_ _L138513_) + (let ((_$e138534_ (length _clauses138417_))) (if (let () (declare (not safe)) - (eq? '0 _$e138272_)) - (let ((__tmp150390 - (let ((__tmp150391 - (let ((__tmp150394 - (let ((__tmp150395 + (eq? '0 _$e138534_)) + (let ((__tmp150652 + (let ((__tmp150653 + (let ((__tmp150656 + (let ((__tmp150657 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150397 + (let ((__tmp150659 (let () (declare (not safe)) - (cons _L138128_ '()))) - (__tmp150396 + (cons _L138390_ '()))) + (__tmp150658 (let () (declare (not safe)) - (cons _L138127_ '())))) + (cons _L138389_ '())))) (declare (not safe)) - (cons __tmp150397 __tmp150396)))) + (cons __tmp150659 __tmp150658)))) (declare (not safe)) - (cons __tmp150395 '()))) - (__tmp150392 - (let ((__tmp150393 + (cons __tmp150657 '()))) + (__tmp150654 + (let ((__tmp150655 (let () (declare (not safe)) - (gxc#compile-e__0 _body138154_)))) + (gxc#compile-e__0 _body138416_)))) (declare (not safe)) - (cons __tmp150393 '())))) + (cons __tmp150655 '())))) (declare (not safe)) - (cons __tmp150394 __tmp150392)))) + (cons __tmp150656 __tmp150654)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150391)))) + __tmp150653)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp150390 - _stx138033_)) + __tmp150652 + _stx138295_)) (if (let () (declare (not safe)) - (eq? '1 _$e138272_)) - (let* ((_clauses138274138283_ - _clauses138155_) - (_E138276138287_ + (eq? '1 _$e138534_)) + (let* ((_clauses138536138545_ + _clauses138417_) + (_E138538138549_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses138274138283_)))) - (_K138277138293_ - (lambda (_clause-lambda138290_ - _clause138291_) - (let ((__tmp150375 - (let ((__tmp150376 + _clauses138536138545_)))) + (_K138539138555_ + (lambda (_clause-lambda138552_ + _clause138553_) + (let ((__tmp150637 + (let ((__tmp150638 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150386 - (let ((__tmp150387 - (let ((__tmp150389 + (let ((__tmp150648 + (let ((__tmp150649 + (let ((__tmp150651 (let () (declare (not safe)) - (cons _L138128_ '()))) - (__tmp150388 + (cons _L138390_ '()))) + (__tmp150650 (let () (declare (not safe)) - (cons _L138127_ '())))) + (cons _L138389_ '())))) (declare (not safe)) - (cons __tmp150389 __tmp150388)))) + (cons __tmp150651 __tmp150650)))) (declare (not safe)) - (cons __tmp150387 '()))) - (__tmp150377 - (let ((__tmp150378 - (let ((__tmp150379 - (let ((__tmp150382 - (let ((__tmp150383 - (let ((__tmp150385 + (cons __tmp150649 '()))) + (__tmp150639 + (let ((__tmp150640 + (let ((__tmp150641 + (let ((__tmp150644 + (let ((__tmp150645 + (let ((__tmp150647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause138291_ '()))) - (__tmp150384 + (cons _clause138553_ '()))) + (__tmp150646 (let () (declare (not safe)) - (cons _clause-lambda138290_ '())))) + (cons _clause-lambda138552_ '())))) (declare (not safe)) - (cons __tmp150385 __tmp150384)))) + (cons __tmp150647 __tmp150646)))) (declare (not safe)) - (cons __tmp150383 '()))) - (__tmp150380 - (let ((__tmp150381 + (cons __tmp150645 '()))) + (__tmp150642 + (let ((__tmp150643 (let () (declare (not safe)) - (gxc#compile-e__0 _body138154_)))) + (gxc#compile-e__0 _body138416_)))) (declare (not safe)) - (cons __tmp150381 '())))) + (cons __tmp150643 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150382 - __tmp150380)))) + (cons __tmp150644 + __tmp150642)))) (declare (not safe)) - (cons '%#let-values __tmp150379)))) + (cons '%#let-values __tmp150641)))) (declare (not safe)) - (cons __tmp150378 '())))) + (cons __tmp150640 '())))) (declare (not safe)) - (cons __tmp150386 __tmp150377)))) + (cons __tmp150648 __tmp150639)))) (declare (not safe)) - (cons '%#let-values __tmp150376)))) + (cons '%#let-values __tmp150638)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150375 _stx138033_))))) + (gxc#xform-wrap-source __tmp150637 _stx138295_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses138274138283_)) - (let ((_hd138278138296_ + (##pair? _clauses138536138545_)) + (let ((_hd138540138558_ (let () (declare (not safe)) - (##car _clauses138274138283_))) - (_tl138279138298_ + (##car _clauses138536138545_))) + (_tl138541138560_ (let () (declare (not safe)) - (##cdr _clauses138274138283_)))) + (##cdr _clauses138536138545_)))) (if (let () (declare (not safe)) - (##pair? _hd138278138296_)) - (let ((_hd138280138301_ + (##pair? _hd138540138558_)) + (let ((_hd138542138563_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd138278138296_))) - (_tl138281138303_ - (let () (declare (not safe)) (##cdr _hd138278138296_)))) - (let* ((_clause138306_ _hd138280138301_) - (_clause-lambda138308_ _tl138281138303_)) + (##car _hd138540138558_))) + (_tl138543138565_ + (let () (declare (not safe)) (##cdr _hd138540138558_)))) + (let* ((_clause138568_ _hd138542138563_) + (_clause-lambda138570_ _tl138543138565_)) (if (let () (declare (not safe)) - (##null? _tl138279138298_)) + (##null? _tl138541138560_)) (let () (declare (not safe)) - (_K138277138293_ - _clause-lambda138308_ - _clause138306_)) - (let () (declare (not safe)) (_E138276138287_))))) - (let () (declare (not safe)) (_E138276138287_)))) + (_K138539138555_ + _clause-lambda138570_ + _clause138568_)) + (let () (declare (not safe)) (_E138538138549_))))) + (let () (declare (not safe)) (_E138538138549_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E138276138287_)))) - (let ((__tmp150374 + (_E138538138549_)))) + (let ((__tmp150636 (let () (declare (not safe)) (gxc#compile-e__0 - _L138250_))) - (__tmp150373 + _L138512_))) + (__tmp150635 (let () (declare (not safe)) - (cons _L138128_ - _L138127_)))) + (cons _L138390_ + _L138389_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx138033_ - __tmp150374 - __tmp150373 - _clauses138155_)))))))) + _stx138295_ + __tmp150636 + __tmp150635 + _clauses138417_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149244149245_)) - (let ((_e138165138315_ + (gx#stx-pair? ___stx149506149507_)) + (let ((_e138427138577_ (let () (declare (not safe)) - (gx#stx-e ___stx149244149245_)))) - (let ((_tl138163138320_ + (gx#stx-e ___stx149506149507_)))) + (let ((_tl138425138582_ (let () (declare (not safe)) - (##cdr _e138165138315_))) - (_hd138164138318_ + (##cdr _e138427138577_))) + (_hd138426138580_ (let () (declare (not safe)) - (##car _e138165138315_)))) + (##car _e138427138577_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138164138318_)) + (gx#identifier? _hd138426138580_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138164138318_)) + _hd138426138580_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138163138320_)) - (let ((_e138168138323_ + _tl138425138582_)) + (let ((_e138430138585_ (let () (declare (not safe)) (gx#stx-e - _tl138163138320_)))) - (let ((_tl138166138328_ + _tl138425138582_)))) + (let ((_tl138428138590_ (let () (declare (not safe)) - (##cdr _e138168138323_))) - (_hd138167138326_ + (##cdr _e138430138585_))) + (_hd138429138588_ (let () (declare (not safe)) - (##car _e138168138323_)))) + (##car _e138430138585_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138167138326_)) - (let ((_e138171138331_ + _hd138429138588_)) + (let ((_e138433138593_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138167138326_)))) - (let ((_tl138169138336_ - (let () (declare (not safe)) (##cdr _e138171138331_))) - (_hd138170138334_ - (let () (declare (not safe)) (##car _e138171138331_)))) + (gx#stx-e _hd138429138588_)))) + (let ((_tl138431138598_ + (let () (declare (not safe)) (##cdr _e138433138593_))) + (_hd138432138596_ + (let () (declare (not safe)) (##car _e138433138593_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138170138334_)) - (let ((_e138174138339_ + (gx#stx-pair? _hd138432138596_)) + (let ((_e138436138601_ (let () (declare (not safe)) - (gx#stx-e _hd138170138334_)))) - (let ((_tl138172138344_ + (gx#stx-e _hd138432138596_)))) + (let ((_tl138434138606_ (let () (declare (not safe)) - (##cdr _e138174138339_))) - (_hd138173138342_ + (##cdr _e138436138601_))) + (_hd138435138604_ (let () (declare (not safe)) - (##car _e138174138339_)))) + (##car _e138436138601_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138173138342_)) - (let ((_e138177138347_ + (gx#stx-pair? _hd138435138604_)) + (let ((_e138439138609_ (let () (declare (not safe)) - (gx#stx-e _hd138173138342_)))) - (let ((_tl138175138352_ + (gx#stx-e _hd138435138604_)))) + (let ((_tl138437138614_ (let () (declare (not safe)) - (##cdr _e138177138347_))) - (_hd138176138350_ + (##cdr _e138439138609_))) + (_hd138438138612_ (let () (declare (not safe)) - (##car _e138177138347_)))) + (##car _e138439138609_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138175138352_)) + (gx#stx-null? _tl138437138614_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138172138344_)) - (let ((_e138180138355_ + (gx#stx-pair? _tl138434138606_)) + (let ((_e138442138617_ (let () (declare (not safe)) (gx#stx-e - _tl138172138344_)))) - (let ((_tl138178138360_ + _tl138434138606_)))) + (let ((_tl138440138622_ (let () (declare (not safe)) - (##cdr _e138180138355_))) - (_hd138179138358_ + (##cdr _e138442138617_))) + (_hd138441138620_ (let () (declare (not safe)) - (##car _e138180138355_)))) + (##car _e138442138617_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138178138360_)) + _tl138440138622_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl138169138336_)) + _tl138431138598_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138166138328_)) - (let ((_e138183138363_ + _tl138428138590_)) + (let ((_e138445138625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138166138328_)))) - (let ((_tl138181138368_ + (gx#stx-e _tl138428138590_)))) + (let ((_tl138443138630_ (let () (declare (not safe)) - (##cdr _e138183138363_))) - (_hd138182138366_ + (##cdr _e138445138625_))) + (_hd138444138628_ (let () (declare (not safe)) - (##car _e138183138363_)))) + (##car _e138445138625_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138181138368_)) - (___kont149246149247_ - _hd138182138366_ - _hd138179138358_ - _hd138176138350_) - (let () (declare (not safe)) (_g138158138205_))))) - (let () (declare (not safe)) (_g138158138205_))) - (let () (declare (not safe)) (_g138158138205_))) + (gx#stx-null? _tl138443138630_)) + (___kont149508149509_ + _hd138444138628_ + _hd138441138620_ + _hd138438138612_) + (let () (declare (not safe)) (_g138420138467_))))) + (let () (declare (not safe)) (_g138420138467_))) + (let () (declare (not safe)) (_g138420138467_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138158138205_))))) + (_g138420138467_))))) (let () (declare (not safe)) - (_g138158138205_))) + (_g138420138467_))) (let () (declare (not safe)) - (_g138158138205_))))) + (_g138420138467_))))) (let () (declare (not safe)) - (_g138158138205_))))) - (let () (declare (not safe)) (_g138158138205_))))) - (let () (declare (not safe)) (_g138158138205_))))) + (_g138420138467_))))) + (let () (declare (not safe)) (_g138420138467_))))) + (let () (declare (not safe)) (_g138420138467_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138158138205_))) + (_g138420138467_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd138164138318_)) + _hd138426138580_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138163138320_)) - (let ((_e138191138218_ + _tl138425138582_)) + (let ((_e138453138480_ (let () (declare (not safe)) (gx#stx-e - _tl138163138320_)))) - (let ((_tl138189138223_ + _tl138425138582_)))) + (let ((_tl138451138485_ (let () (declare (not safe)) - (##cdr _e138191138218_))) - (_hd138190138221_ + (##cdr _e138453138480_))) + (_hd138452138483_ (let () (declare (not safe)) - (##car _e138191138218_)))) + (##car _e138453138480_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138190138221_)) - (let ((_e138194138226_ + _hd138452138483_)) + (let ((_e138456138488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd138190138221_)))) - (let ((_tl138192138231_ + (gx#stx-e _hd138452138483_)))) + (let ((_tl138454138493_ (let () (declare (not safe)) - (##cdr _e138194138226_))) - (_hd138193138229_ + (##cdr _e138456138488_))) + (_hd138455138491_ (let () (declare (not safe)) - (##car _e138194138226_)))) + (##car _e138456138488_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138193138229_)) + (gx#identifier? _hd138455138491_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd138193138229_)) + (gx#stx-eq? '%#ref _hd138455138491_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138192138231_)) - (let ((_e138197138234_ + (gx#stx-pair? _tl138454138493_)) + (let ((_e138459138496_ (let () (declare (not safe)) - (gx#stx-e _tl138192138231_)))) - (let ((_tl138195138239_ + (gx#stx-e _tl138454138493_)))) + (let ((_tl138457138501_ (let () (declare (not safe)) - (##cdr _e138197138234_))) - (_hd138196138237_ + (##cdr _e138459138496_))) + (_hd138458138499_ (let () (declare (not safe)) - (##car _e138197138234_)))) + (##car _e138459138496_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138195138239_)) + (gx#stx-null? _tl138457138501_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138189138223_)) - (let ((_e138200138242_ + _tl138451138485_)) + (let ((_e138462138504_ (let () (declare (not safe)) (gx#stx-e - _tl138189138223_)))) - (let ((_tl138198138247_ + _tl138451138485_)))) + (let ((_tl138460138509_ (let () (declare (not safe)) - (##cdr _e138200138242_))) - (_hd138199138245_ + (##cdr _e138462138504_))) + (_hd138461138507_ (let () (declare (not safe)) - (##car _e138200138242_)))) + (##car _e138462138504_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138198138247_)) - (___kont149248149249_ - _hd138199138245_ - _hd138196138237_) + _tl138460138509_)) + (___kont149510149511_ + _hd138461138507_ + _hd138458138499_) (let () (declare (not safe)) - (_g138158138205_))))) + (_g138420138467_))))) (let () (declare (not safe)) - (_g138158138205_))) + (_g138420138467_))) (let () (declare (not safe)) - (_g138158138205_))))) + (_g138420138467_))))) (let () (declare (not safe)) - (_g138158138205_))) - (let () (declare (not safe)) (_g138158138205_))) - (let () (declare (not safe)) (_g138158138205_))))) - (let () (declare (not safe)) (_g138158138205_))))) + (_g138420138467_))) + (let () (declare (not safe)) (_g138420138467_))) + (let () (declare (not safe)) (_g138420138467_))))) + (let () (declare (not safe)) (_g138420138467_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138158138205_))) + (_g138420138467_))) (let () (declare (not safe)) - (_g138158138205_)))) + (_g138420138467_)))) (let () (declare (not safe)) - (_g138158138205_))))) + (_g138420138467_))))) (let () (declare (not safe)) - (_g138158138205_))))))) - _hd138059138121_ - _hd138056138113_ - _hd138053138105_) + (_g138420138467_))))))) + _hd138321138383_ + _hd138318138375_ + _hd138315138367_) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_))))) + (_g138297138327_ _g138298138330_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138035138065_ - _g138036138068_))) + (_g138297138327_ + _g138298138330_))) (let () (declare (not safe)) - (_g138035138065_ - _g138036138068_))) + (_g138297138327_ + _g138298138330_))) (let () (declare (not safe)) - (_g138035138065_ - _g138036138068_))))) + (_g138297138327_ + _g138298138330_))))) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_))) + (_g138297138327_ _g138298138330_))) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_))))) + (_g138297138327_ _g138298138330_))))) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_))))) + (_g138297138327_ _g138298138330_))))) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_))))) + (_g138297138327_ _g138298138330_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138035138065_ - _g138036138068_))))) + (_g138297138327_ + _g138298138330_))))) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_))) + (_g138297138327_ _g138298138330_))) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_))) + (_g138297138327_ _g138298138330_))) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_))))) + (_g138297138327_ _g138298138330_))))) (let () (declare (not safe)) - (_g138035138065_ _g138036138068_)))))) + (_g138297138327_ _g138298138330_)))))) (declare (not safe)) - (_g138034138399_ _stx138033_)))) + (_g138296138661_ _stx138295_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx137961_ _expr137962_ _negation137963_ _clauses137964_) - (letrec ((_normalize137966_ - (lambda (_clauses137993_) - (let* ((_clauses137994138003_ _clauses137993_) - (_E137996138007_ + (lambda (_stx138223_ _expr138224_ _negation138225_ _clauses138226_) + (letrec ((_normalize138228_ + (lambda (_clauses138255_) + (let* ((_clauses138256138265_ _clauses138255_) + (_E138258138269_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses137994138003_)))) - (_K137997138014_ - (lambda (_rest138010_ _kont138011_ _id138012_) - (let ((__tmp150398 + _clauses138256138265_)))) + (_K138259138276_ + (lambda (_rest138272_ _kont138273_ _id138274_) + (let ((__tmp150660 (let () (declare (not safe)) - (cons '#f _kont138011_)))) + (cons '#f _kont138273_)))) (declare (not safe)) - (cons __tmp150398 _rest138010_))))) + (cons __tmp150660 _rest138272_))))) (if (let () (declare (not safe)) - (##pair? _clauses137994138003_)) - (let ((_hd137998138017_ + (##pair? _clauses138256138265_)) + (let ((_hd138260138279_ (let () (declare (not safe)) - (##car _clauses137994138003_))) - (_tl137999138019_ + (##car _clauses138256138265_))) + (_tl138261138281_ (let () (declare (not safe)) - (##cdr _clauses137994138003_)))) + (##cdr _clauses138256138265_)))) (if (let () (declare (not safe)) - (##pair? _hd137998138017_)) - (let ((_hd138000138022_ + (##pair? _hd138260138279_)) + (let ((_hd138262138284_ (let () (declare (not safe)) - (##car _hd137998138017_))) - (_tl138001138024_ + (##car _hd138260138279_))) + (_tl138263138286_ (let () (declare (not safe)) - (##cdr _hd137998138017_)))) - (let* ((_id138027_ _hd138000138022_) - (_kont138029_ _tl138001138024_) - (_rest138031_ _tl137999138019_)) + (##cdr _hd138260138279_)))) + (let* ((_id138289_ _hd138262138284_) + (_kont138291_ _tl138263138286_) + (_rest138293_ _tl138261138281_)) (declare (not safe)) - (_K137997138014_ - _rest138031_ - _kont138029_ - _id138027_))) + (_K138259138276_ + _rest138293_ + _kont138291_ + _id138289_))) (let () (declare (not safe)) - (_E137996138007_)))) - (let () (declare (not safe)) (_E137996138007_))))))) - (let ((__tmp150400 + (_E138258138269_)))) + (let () (declare (not safe)) (_E138258138269_))))))) + (let ((__tmp150662 (lambda () - (let* ((_id137969_ - (let ((__tmp150401 (gensym '__stx))) + (let* ((_id138231_ + (let ((__tmp150663 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp150401))) - (_id137971_ + (make-symbol__0 __tmp150663))) + (_id138233_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id137969_))) - (_g150402_ + (gx#core-quote-syntax__0 _id138231_))) + (_g150664_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id137971_))) - (_g150403_ - (let ((__tmp150405 (car _negation137963_))) + (gx#core-bind-runtime!__0 _id138233_))) + (_g150665_ + (let ((__tmp150667 (car _negation138225_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses137964_ - __tmp150405)))) + _clauses138226_ + __tmp150667)))) (begin - (let ((_g150404_ + (let ((_g150666_ (let () (declare (not safe)) - (if (##values? _g150403_) - (##vector-length _g150403_) + (if (##values? _g150665_) + (##vector-length _g150665_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150404_ 2))) - (error "Context expects 2 values" _g150404_))) - (let ((_clauses137974_ + (##fx= _g150666_ 2))) + (error "Context expects 2 values" _g150666_))) + (let ((_clauses138236_ (let () (declare (not safe)) - (##vector-ref _g150403_ 0))) - (_konts137975_ + (##vector-ref _g150665_ 0))) + (_konts138237_ (let () (declare (not safe)) - (##vector-ref _g150403_ 1)))) - (let* ((_clauses137984_ - (map (lambda (_g137976137979_ _g137977137981_) + (##vector-ref _g150665_ 1)))) + (let* ((_clauses138246_ + (map (lambda (_g138238138241_ _g138239138243_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g137976137979_ - _g137977137981_ - _id137971_))) - _clauses137974_ - (let ((__tmp150407 - (let ((__tmp150408 - (car _negation137963_))) + _g138238138241_ + _g138239138243_ + _id138233_))) + _clauses138236_ + (let ((__tmp150669 + (let ((__tmp150670 + (car _negation138225_))) (declare (not safe)) - (cons __tmp150408 '()))) - (__tmp150406 - (map car (cdr _clauses137974_)))) + (cons __tmp150670 '()))) + (__tmp150668 + (map car (cdr _clauses138236_)))) (declare (not safe)) (foldr1 cons - __tmp150407 - __tmp150406)))) - (_clauses137986_ + __tmp150669 + __tmp150668)))) + (_clauses138248_ (let () (declare (not safe)) - (_normalize137966_ _clauses137984_))) - (_negation137988_ + (_normalize138228_ _clauses138246_))) + (_negation138250_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation137963_ + _negation138225_ '#f - _id137971_))) - (_body137990_ + _id138233_))) + (_body138252_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx137961_ - _negation137988_ - _clauses137986_ - _konts137975_)))) - (let ((__tmp150409 - (let ((__tmp150410 - (let ((__tmp150412 - (let ((__tmp150413 - (let ((__tmp150415 + _stx138223_ + _negation138250_ + _clauses138248_ + _konts138237_)))) + (let ((__tmp150671 + (let ((__tmp150672 + (let ((__tmp150674 + (let ((__tmp150675 + (let ((__tmp150677 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id137971_ '()))) - (__tmp150414 - (let () (declare (not safe)) (cons _expr137962_ '())))) + (cons _id138233_ '()))) + (__tmp150676 + (let () (declare (not safe)) (cons _expr138224_ '())))) (declare (not safe)) - (cons __tmp150415 __tmp150414)))) + (cons __tmp150677 __tmp150676)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150413 '()))) - (__tmp150411 + (cons __tmp150675 '()))) + (__tmp150673 (let () (declare (not safe)) - (cons _body137990_ '())))) + (cons _body138252_ '())))) (declare (not safe)) - (cons __tmp150412 __tmp150411)))) + (cons __tmp150674 __tmp150673)))) (declare (not safe)) - (cons '%#let-values __tmp150410)))) + (cons '%#let-values __tmp150672)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp150409 - _stx137961_)))))))) - (__tmp150399 - (let ((__obj149990 + __tmp150671 + _stx138223_)))))))) + (__tmp150661 + (let ((__obj150252 (let () (declare (not safe)) (##structure @@ -14721,3733 +14721,3733 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj149990) - __obj149990))) + (gx#local-context:::init! __obj150252) + __obj150252))) (declare (not safe)) (call-with-parameters - __tmp150400 + __tmp150662 gx#current-expander-context - __tmp150399))))) + __tmp150661))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses136719_ _negation-id136720_) - (letrec ((_xform-e136722_ - (lambda (_expr137106_ - _kont-id137107_ - _kont-box137108_ - _negation-id137109_) - (let* ((___stx149446149447_ _expr137106_) - (_g137115137248_ + (lambda (_clauses136981_ _negation-id136982_) + (letrec ((_xform-e136984_ + (lambda (_expr137368_ + _kont-id137369_ + _kont-box137370_ + _negation-id137371_) + (let* ((___stx149708149709_ _expr137368_) + (_g137377137510_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149446149447_))))) - (let ((___kont149448149449_ - (lambda (_L137937_ _L137938_ _L137939_) - (let* ((_K137956_ + ___stx149708149709_))))) + (let ((___kont149710149711_ + (lambda (_L138199_ _L138200_ _L138201_) + (let* ((_K138218_ (let () (declare (not safe)) - (_xform-e136722_ - _L137938_ - _kont-id137107_ - _kont-box137108_ - _negation-id137109_))) - (__tmp150416 - (let ((__tmp150417 - (let ((__tmp150418 + (_xform-e136984_ + _L138200_ + _kont-id137369_ + _kont-box137370_ + _negation-id137371_))) + (__tmp150678 + (let ((__tmp150679 + (let ((__tmp150680 (let () (declare (not safe)) - (cons _L137937_ '())))) + (cons _L138199_ '())))) (declare (not safe)) - (cons _K137956_ __tmp150418)))) + (cons _K138218_ __tmp150680)))) (declare (not safe)) - (cons _L137939_ __tmp150417)))) + (cons _L138201_ __tmp150679)))) (declare (not safe)) - (cons '%#if __tmp150416)))) - (___kont149450149451_ - (lambda (_L137853_ - _L137854_ - _L137855_ - _L137856_ - _L137857_) - (let* ((_id137892_ - (let ((__tmp150419 (gensym '__splice))) + (cons '%#if __tmp150678)))) + (___kont149712149713_ + (lambda (_L138115_ + _L138116_ + _L138117_ + _L138118_ + _L138119_) + (let* ((_id138154_ + (let ((__tmp150681 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp150419))) - (_id137894_ + (make-symbol__0 __tmp150681))) + (_id138156_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id137892_))) - (_g150420_ + (gx#core-quote-syntax__0 _id138154_))) + (_g150682_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id137894_))) - (_body137897_ + _id138156_))) + (_body138159_ (let () (declare (not safe)) - (_xform-e136722_ - _L137853_ - _kont-id137107_ - _kont-box137108_ - _negation-id137109_)))) - (let ((__tmp150421 - (let ((__tmp150446 - (let ((__tmp150447 - (let ((__tmp150455 + (_xform-e136984_ + _L138115_ + _kont-id137369_ + _kont-box137370_ + _negation-id137371_)))) + (let ((__tmp150683 + (let ((__tmp150708 + (let ((__tmp150709 + (let ((__tmp150717 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id137894_ '()))) - (__tmp150448 - (let ((__tmp150449 - (let ((__tmp150454 + (cons _id138156_ '()))) + (__tmp150710 + (let ((__tmp150711 + (let ((__tmp150716 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150450 - (let ((__tmp150451 - (let ((__tmp150453 + (__tmp150712 + (let ((__tmp150713 + (let ((__tmp150715 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150452 + (__tmp150714 (let () (declare (not safe)) - (cons _L137855_ '())))) + (cons _L138117_ '())))) (declare (not safe)) - (cons __tmp150453 __tmp150452)))) + (cons __tmp150715 __tmp150714)))) (declare (not safe)) - (cons __tmp150451 _L137854_)))) + (cons __tmp150713 _L138116_)))) (declare (not safe)) - (cons __tmp150454 __tmp150450)))) + (cons __tmp150716 __tmp150712)))) (declare (not safe)) - (cons __tmp150449 '())))) + (cons __tmp150711 '())))) (declare (not safe)) - (cons __tmp150455 __tmp150448)))) + (cons __tmp150717 __tmp150710)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150447 '()))) - (__tmp150422 - (let ((__tmp150423 - (let ((__tmp150424 - (let ((__tmp150426 + (cons __tmp150709 '()))) + (__tmp150684 + (let ((__tmp150685 + (let ((__tmp150686 + (let ((__tmp150688 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150437 - (let ((__tmp150445 + (let ((__tmp150699 + (let ((__tmp150707 (let () (declare (not safe)) - (cons _L137857_ '()))) - (__tmp150438 - (let ((__tmp150439 - (let ((__tmp150440 - (let ((__tmp150441 - (let ((__tmp150443 + (cons _L138119_ '()))) + (__tmp150700 + (let ((__tmp150701 + (let ((__tmp150702 + (let ((__tmp150703 + (let ((__tmp150705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150444 + (let ((__tmp150706 (let () (declare (not safe)) - (cons _id137894_ '())))) + (cons _id138156_ '())))) (declare (not safe)) - (cons '%#ref __tmp150444))) - (__tmp150442 + (cons '%#ref __tmp150706))) + (__tmp150704 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp150443 __tmp150442)))) + (cons __tmp150705 __tmp150704)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp150441)))) + (cons '(%#ref ##vector-ref) __tmp150703)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp150440)))) + __tmp150702)))) (declare (not safe)) - (cons __tmp150439 '())))) + (cons __tmp150701 '())))) (declare (not safe)) - (cons __tmp150445 __tmp150438))) - (__tmp150427 - (let ((__tmp150428 - (let ((__tmp150436 + (cons __tmp150707 __tmp150700))) + (__tmp150689 + (let ((__tmp150690 + (let ((__tmp150698 (let () (declare (not safe)) - (cons _L137856_ '()))) - (__tmp150429 - (let ((__tmp150430 - (let ((__tmp150431 - (let ((__tmp150432 + (cons _L138118_ '()))) + (__tmp150691 + (let ((__tmp150692 + (let ((__tmp150693 + (let ((__tmp150694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150434 - (let ((__tmp150435 + (let ((__tmp150696 + (let ((__tmp150697 (let () (declare (not safe)) - (cons _id137894_ '())))) + (cons _id138156_ '())))) (declare (not safe)) - (cons '%#ref __tmp150435))) - (__tmp150433 + (cons '%#ref __tmp150697))) + (__tmp150695 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp150434 __tmp150433)))) + (cons __tmp150696 __tmp150695)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp150432)))) + (cons '(%#ref ##vector-ref) __tmp150694)))) (declare (not safe)) - (cons '%#call __tmp150431)))) + (cons '%#call __tmp150693)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150430 '())))) + (cons __tmp150692 '())))) (declare (not safe)) - (cons __tmp150436 __tmp150429)))) + (cons __tmp150698 __tmp150691)))) (declare (not safe)) - (cons __tmp150428 '())))) + (cons __tmp150690 '())))) (declare (not safe)) - (cons __tmp150437 __tmp150427))) - (__tmp150425 + (cons __tmp150699 __tmp150689))) + (__tmp150687 (let () (declare (not safe)) - (cons _body137897_ '())))) + (cons _body138159_ '())))) (declare (not safe)) - (cons __tmp150426 __tmp150425)))) + (cons __tmp150688 __tmp150687)))) (declare (not safe)) - (cons '%#let-values __tmp150424)))) + (cons '%#let-values __tmp150686)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150423 '())))) + (cons __tmp150685 '())))) (declare (not safe)) - (cons __tmp150446 __tmp150422)))) + (cons __tmp150708 __tmp150684)))) (declare (not safe)) - (cons '%#let-values __tmp150421))))) - (___kont149452149453_ - (lambda (_L137735_ _L137736_) - (let* ((_body137750_ + (cons '%#let-values __tmp150683))))) + (___kont149714149715_ + (lambda (_L137997_ _L137998_) + (let* ((_body138012_ (let () (declare (not safe)) - (_xform-e136722_ - _L137735_ - _kont-id137107_ - _kont-box137108_ - _negation-id137109_))) - (__tmp150456 - (let ((__tmp150457 + (_xform-e136984_ + _L137997_ + _kont-id137369_ + _kont-box137370_ + _negation-id137371_))) + (__tmp150718 + (let ((__tmp150719 (let () (declare (not safe)) - (cons _body137750_ '())))) + (cons _body138012_ '())))) (declare (not safe)) - (cons _L137736_ __tmp150457)))) + (cons _L137998_ __tmp150719)))) (declare (not safe)) - (cons '%#let-values __tmp150456)))) - (___kont149454149455_ - (lambda (_L137679_ _L137680_ _L137681_) - (let* ((_lambda-expr137704_ + (cons '%#let-values __tmp150718)))) + (___kont149716149717_ + (lambda (_L137941_ _L137942_ _L137943_) + (let* ((_lambda-expr137966_ (let () (declare (not safe)) - (_xform-loop-e136723_ - _L137680_ - _kont-id137107_ - _kont-box137108_ - _negation-id137109_))) - (__tmp150458 - (let ((__tmp150460 - (let ((__tmp150461 - (let ((__tmp150463 + (_xform-loop-e136985_ + _L137942_ + _kont-id137369_ + _kont-box137370_ + _negation-id137371_))) + (__tmp150720 + (let ((__tmp150722 + (let ((__tmp150723 + (let ((__tmp150725 (let () (declare (not safe)) - (cons _L137681_ + (cons _L137943_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp150462 + (__tmp150724 (let () (declare (not safe)) - (cons _lambda-expr137704_ '())))) + (cons _lambda-expr137966_ '())))) (declare (not safe)) - (cons __tmp150463 __tmp150462)))) + (cons __tmp150725 __tmp150724)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150461 '()))) - (__tmp150459 + (cons __tmp150723 '()))) + (__tmp150721 (let () (declare (not safe)) - (cons _L137679_ '())))) + (cons _L137941_ '())))) (declare (not safe)) - (cons __tmp150460 __tmp150459)))) + (cons __tmp150722 __tmp150721)))) (declare (not safe)) - (cons '%#letrec-values __tmp150458)))) - (___kont149456149457_ - (lambda (_L137341_ _L137342_ _L137343_) - (let* ((___stx149348149349_ _L137342_) - (_g137372137415_ + (cons '%#letrec-values __tmp150720)))) + (___kont149718149719_ + (lambda (_L137603_ _L137604_ _L137605_) + (let* ((___stx149610149611_ _L137604_) + (_g137634137677_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149348149349_))))) - (let ((___kont149350149351_ - (lambda (_L137531_ - _L137532_ - _L137533_ - _L137534_) - (let ((_kont137575_ - (let ((__tmp150468 + ___stx149610149611_))))) + (let ((___kont149612149613_ + (lambda (_L137793_ + _L137794_ + _L137795_ + _L137796_) + (let ((_kont137837_ + (let ((__tmp150730 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150464 - (let ((__tmp150466 - (let ((__tmp150467 + (__tmp150726 + (let ((__tmp150728 + (let ((__tmp150729 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g137567137570_ _g137568137572_) + (lambda (_g137829137832_ _g137830137834_) (let () (declare (not safe)) - (cons _g137567137570_ _g137568137572_))))) + (cons _g137829137832_ _g137830137834_))))) (declare (not safe)) - (foldr1 __tmp150467 '() _L137343_))) - (__tmp150465 - (let () (declare (not safe)) (cons _L137533_ '())))) + (foldr1 __tmp150729 '() _L137605_))) + (__tmp150727 + (let () (declare (not safe)) (cons _L137795_ '())))) (declare (not safe)) - (cons __tmp150466 __tmp150465)))) + (cons __tmp150728 __tmp150727)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150468 - __tmp150464)))) + (cons __tmp150730 + __tmp150726)))) (set-box! - _kont-box137108_ - _kont137575_) - (let* ((_kont-args137586_ - (map (lambda (_id137577_) - (let ((__tmp150469 + _kont-box137370_ + _kont137837_) + (let* ((_kont-args137848_ + (map (lambda (_id137839_) + (let ((__tmp150731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id137577_ '())))) + (let () (declare (not safe)) (cons _id137839_ '())))) (declare (not safe)) - (cons '%#ref __tmp150469))) - (let ((__tmp150470 - (lambda (_g137578137581_ _g137579137583_) + (cons '%#ref __tmp150731))) + (let ((__tmp150732 + (lambda (_g137840137843_ _g137841137845_) (let () (declare (not safe)) - (cons _g137578137581_ _g137579137583_))))) + (cons _g137840137843_ _g137841137845_))))) (declare (not safe)) - (foldr1 __tmp150470 '() _L137343_)))) + (foldr1 __tmp150732 '() _L137605_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body137588_ - (let ((__tmp150471 - (let ((__tmp150472 + (_body137850_ + (let ((__tmp150733 + (let ((__tmp150734 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150484 - (let ((__tmp150485 - (let ((__tmp150486 - (let ((__tmp150487 + (let ((__tmp150746 + (let ((__tmp150747 + (let ((__tmp150748 + (let ((__tmp150749 (let () (declare (not safe)) - (cons _kont-id137107_ + (cons _kont-id137369_ '())))) (declare (not safe)) - (cons '%#ref __tmp150487)))) + (cons '%#ref __tmp150749)))) (declare (not safe)) - (cons __tmp150486 - _kont-args137586_)))) + (cons __tmp150748 + _kont-args137848_)))) (declare (not safe)) - (cons '%#call __tmp150485))) - (__tmp150473 - (let ((__tmp150474 - (let ((__tmp150483 + (cons '%#call __tmp150747))) + (__tmp150735 + (let ((__tmp150736 + (let ((__tmp150745 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150475 - (let ((__tmp150480 - (let ((__tmp150482 + (__tmp150737 + (let ((__tmp150742 + (let ((__tmp150744 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150481 - (let () (declare (not safe)) (cons _L137532_ '())))) + (__tmp150743 + (let () (declare (not safe)) (cons _L137794_ '())))) (declare (not safe)) - (cons __tmp150482 __tmp150481))) + (cons __tmp150744 __tmp150743))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150476 - (let ((__tmp150477 - (let ((__tmp150479 + (__tmp150738 + (let ((__tmp150739 + (let ((__tmp150741 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150478 + (__tmp150740 (let () (declare (not safe)) - (cons _L137531_ '())))) + (cons _L137793_ '())))) (declare (not safe)) - (cons __tmp150479 __tmp150478)))) + (cons __tmp150741 __tmp150740)))) (declare (not safe)) - (cons __tmp150477 '())))) + (cons __tmp150739 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150480 - __tmp150476)))) + (cons __tmp150742 + __tmp150738)))) (declare (not safe)) - (cons __tmp150483 __tmp150475)))) + (cons __tmp150745 __tmp150737)))) (declare (not safe)) - (cons __tmp150474 '())))) + (cons __tmp150736 '())))) (declare (not safe)) - (cons __tmp150484 __tmp150473)))) + (cons __tmp150746 __tmp150735)))) (declare (not safe)) - (cons _L137534_ __tmp150472)))) + (cons _L137796_ __tmp150734)))) (declare (not safe)) - (cons '%#if __tmp150471)))) + (cons '%#if __tmp150733)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp150495 - (let ((__tmp150496 - (lambda (_g137590137593_ + (if (let ((__tmp150757 + (let ((__tmp150758 + (lambda (_g137852137855_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137591137595_) + _g137853137857_) (let () (declare (not safe)) - (cons _g137590137593_ _g137591137595_))))) + (cons _g137852137855_ _g137853137857_))))) (declare (not safe)) - (foldr1 __tmp150496 '() _L137343_)))) + (foldr1 __tmp150758 '() _L137605_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp150495)) - _body137588_ - (let ((__tmp150488 - (let ((__tmp150490 - (map (lambda (_id137598_ + (null? __tmp150757)) + _body137850_ + (let ((__tmp150750 + (let ((__tmp150752 + (map (lambda (_id137860_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg137599_) - (let ((__tmp150492 + _arg137861_) + (let ((__tmp150754 (let () (declare (not safe)) - (cons _id137598_ '()))) - (__tmp150491 + (cons _id137860_ '()))) + (__tmp150753 (let () (declare (not safe)) - (cons _arg137599_ '())))) + (cons _arg137861_ '())))) (declare (not safe)) - (cons __tmp150492 __tmp150491))) - (let ((__tmp150493 - (lambda (_g137600137603_ _g137601137605_) + (cons __tmp150754 __tmp150753))) + (let ((__tmp150755 + (lambda (_g137862137865_ _g137863137867_) (let () (declare (not safe)) - (cons _g137600137603_ - _g137601137605_))))) + (cons _g137862137865_ + _g137863137867_))))) (declare (not safe)) - (foldr1 __tmp150493 '() _L137343_)) - (let ((__tmp150494 - (lambda (_g137607137610_ _g137608137612_) + (foldr1 __tmp150755 '() _L137605_)) + (let ((__tmp150756 + (lambda (_g137869137872_ _g137870137874_) (let () (declare (not safe)) - (cons _g137607137610_ - _g137608137612_))))) + (cons _g137869137872_ + _g137870137874_))))) (declare (not safe)) - (foldr1 __tmp150494 '() _L137341_)))) - (__tmp150489 - (let () (declare (not safe)) (cons _body137588_ '())))) + (foldr1 __tmp150756 '() _L137603_)))) + (__tmp150751 + (let () (declare (not safe)) (cons _body137850_ '())))) (declare (not safe)) - (cons __tmp150490 __tmp150489)))) + (cons __tmp150752 __tmp150751)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150488))))))) - (___kont149352149353_ + __tmp150750))))))) + (___kont149614149615_ (lambda () - (let ((_kont137429_ - (let ((__tmp150501 + (let ((_kont137691_ + (let ((__tmp150763 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150497 - (let ((__tmp150499 - (let ((__tmp150500 + (__tmp150759 + (let ((__tmp150761 + (let ((__tmp150762 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g137421137424_ _g137422137426_) + (lambda (_g137683137686_ _g137684137688_) (let () (declare (not safe)) - (cons _g137421137424_ _g137422137426_))))) + (cons _g137683137686_ _g137684137688_))))) (declare (not safe)) - (foldr1 __tmp150500 '() _L137343_))) - (__tmp150498 - (let () (declare (not safe)) (cons _L137342_ '())))) + (foldr1 __tmp150762 '() _L137605_))) + (__tmp150760 + (let () (declare (not safe)) (cons _L137604_ '())))) (declare (not safe)) - (cons __tmp150499 __tmp150498)))) + (cons __tmp150761 __tmp150760)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150501 - __tmp150497)))) + (cons __tmp150763 + __tmp150759)))) (set-box! - _kont-box137108_ - _kont137429_) - (let ((__tmp150502 - (let ((__tmp150505 - (let ((__tmp150506 + _kont-box137370_ + _kont137691_) + (let ((__tmp150764 + (let ((__tmp150767 + (let ((__tmp150768 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id137107_ '())))) + (cons _kont-id137369_ '())))) (declare (not safe)) - (cons '%#ref __tmp150506))) - (__tmp150503 - (let ((__tmp150504 - (lambda (_g137430137433_ _g137431137435_) + (cons '%#ref __tmp150768))) + (__tmp150765 + (let ((__tmp150766 + (lambda (_g137692137695_ _g137693137697_) (let () (declare (not safe)) - (cons _g137430137433_ _g137431137435_))))) + (cons _g137692137695_ _g137693137697_))))) (declare (not safe)) - (foldr1 __tmp150504 '() _L137341_)))) + (foldr1 __tmp150766 '() _L137603_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150505 - __tmp150503)))) + (cons __tmp150767 + __tmp150765)))) (declare (not safe)) - (cons '%#call __tmp150502)))))) - (let ((___match149443149444_ - (lambda (_e137380137443_ - _hd137379137446_ - _tl137378137448_ - _e137383137451_ - _hd137382137454_ - _tl137381137456_ - _e137386137459_ - _hd137385137462_ - _tl137384137464_ - _e137389137467_ - _hd137388137470_ - _tl137387137472_ - _e137392137475_ - _hd137391137478_ - _tl137390137480_ - _e137395137483_ - _hd137394137486_ - _tl137393137488_ - _e137398137491_ - _hd137397137494_ - _tl137396137496_ - _e137401137499_ - _hd137400137502_ - _tl137399137504_ - _e137404137507_ - _hd137403137510_ - _tl137402137512_ - _e137407137515_ - _hd137406137518_ - _tl137405137520_ - _e137410137523_ - _hd137409137526_ - _tl137408137528_) - (let ((_L137531_ _hd137409137526_) - (_L137532_ _hd137400137502_) - (_L137533_ _hd137385137462_) - (_L137534_ _hd137382137454_)) + (cons '%#call __tmp150764)))))) + (let ((___match149705149706_ + (lambda (_e137642137705_ + _hd137641137708_ + _tl137640137710_ + _e137645137713_ + _hd137644137716_ + _tl137643137718_ + _e137648137721_ + _hd137647137724_ + _tl137646137726_ + _e137651137729_ + _hd137650137732_ + _tl137649137734_ + _e137654137737_ + _hd137653137740_ + _tl137652137742_ + _e137657137745_ + _hd137656137748_ + _tl137655137750_ + _e137660137753_ + _hd137659137756_ + _tl137658137758_ + _e137663137761_ + _hd137662137764_ + _tl137661137766_ + _e137666137769_ + _hd137665137772_ + _tl137664137774_ + _e137669137777_ + _hd137668137780_ + _tl137667137782_ + _e137672137785_ + _hd137671137788_ + _tl137670137790_) + (let ((_L137793_ _hd137671137788_) + (_L137794_ _hd137662137764_) + (_L137795_ _hd137647137724_) + (_L137796_ _hd137644137716_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L137532_ - _negation-id137109_)) - (___kont149350149351_ - _L137531_ - _L137532_ - _L137533_ - _L137534_) - (___kont149352149353_)))))) + _L137794_ + _negation-id137371_)) + (___kont149612149613_ + _L137793_ + _L137794_ + _L137795_ + _L137796_) + (___kont149614149615_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149348149349_)) - (let ((_e137380137443_ + (gx#stx-pair? ___stx149610149611_)) + (let ((_e137642137705_ (let () (declare (not safe)) (gx#stx-e - ___stx149348149349_)))) - (let ((_tl137378137448_ + ___stx149610149611_)))) + (let ((_tl137640137710_ (let () (declare (not safe)) - (##cdr _e137380137443_))) - (_hd137379137446_ + (##cdr _e137642137705_))) + (_hd137641137708_ (let () (declare (not safe)) - (##car _e137380137443_)))) + (##car _e137642137705_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137379137446_)) + _hd137641137708_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd137379137446_)) + _hd137641137708_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137378137448_)) - (let ((_e137383137451_ + _tl137640137710_)) + (let ((_e137645137713_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137378137448_)))) - (let ((_tl137381137456_ + (gx#stx-e _tl137640137710_)))) + (let ((_tl137643137718_ (let () (declare (not safe)) - (##cdr _e137383137451_))) - (_hd137382137454_ + (##cdr _e137645137713_))) + (_hd137644137716_ (let () (declare (not safe)) - (##car _e137383137451_)))) + (##car _e137645137713_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137381137456_)) - (let ((_e137386137459_ + (gx#stx-pair? _tl137643137718_)) + (let ((_e137648137721_ (let () (declare (not safe)) - (gx#stx-e _tl137381137456_)))) - (let ((_tl137384137464_ + (gx#stx-e _tl137643137718_)))) + (let ((_tl137646137726_ (let () (declare (not safe)) - (##cdr _e137386137459_))) - (_hd137385137462_ + (##cdr _e137648137721_))) + (_hd137647137724_ (let () (declare (not safe)) - (##car _e137386137459_)))) + (##car _e137648137721_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137384137464_)) - (let ((_e137389137467_ + (gx#stx-pair? _tl137646137726_)) + (let ((_e137651137729_ (let () (declare (not safe)) - (gx#stx-e _tl137384137464_)))) - (let ((_tl137387137472_ + (gx#stx-e _tl137646137726_)))) + (let ((_tl137649137734_ (let () (declare (not safe)) - (##cdr _e137389137467_))) - (_hd137388137470_ + (##cdr _e137651137729_))) + (_hd137650137732_ (let () (declare (not safe)) - (##car _e137389137467_)))) + (##car _e137651137729_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137388137470_)) - (let ((_e137392137475_ + (gx#stx-pair? _hd137650137732_)) + (let ((_e137654137737_ (let () (declare (not safe)) (gx#stx-e - _hd137388137470_)))) - (let ((_tl137390137480_ + _hd137650137732_)))) + (let ((_tl137652137742_ (let () (declare (not safe)) - (##cdr _e137392137475_))) - (_hd137391137478_ + (##cdr _e137654137737_))) + (_hd137653137740_ (let () (declare (not safe)) - (##car _e137392137475_)))) + (##car _e137654137737_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137391137478_)) + _hd137653137740_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd137391137478_)) + _hd137653137740_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137390137480_)) - (let ((_e137395137483_ + _tl137652137742_)) + (let ((_e137657137745_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137390137480_)))) - (let ((_tl137393137488_ + (gx#stx-e _tl137652137742_)))) + (let ((_tl137655137750_ (let () (declare (not safe)) - (##cdr _e137395137483_))) - (_hd137394137486_ + (##cdr _e137657137745_))) + (_hd137656137748_ (let () (declare (not safe)) - (##car _e137395137483_)))) + (##car _e137657137745_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137394137486_)) - (let ((_e137398137491_ + (gx#stx-pair? _hd137656137748_)) + (let ((_e137660137753_ (let () (declare (not safe)) - (gx#stx-e _hd137394137486_)))) - (let ((_tl137396137496_ + (gx#stx-e _hd137656137748_)))) + (let ((_tl137658137758_ (let () (declare (not safe)) - (##cdr _e137398137491_))) - (_hd137397137494_ + (##cdr _e137660137753_))) + (_hd137659137756_ (let () (declare (not safe)) - (##car _e137398137491_)))) + (##car _e137660137753_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137397137494_)) + (gx#identifier? _hd137659137756_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd137397137494_)) + (gx#stx-eq? '%#ref _hd137659137756_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137396137496_)) - (let ((_e137401137499_ + (gx#stx-pair? _tl137658137758_)) + (let ((_e137663137761_ (let () (declare (not safe)) (gx#stx-e - _tl137396137496_)))) - (let ((_tl137399137504_ + _tl137658137758_)))) + (let ((_tl137661137766_ (let () (declare (not safe)) - (##cdr _e137401137499_))) - (_hd137400137502_ + (##cdr _e137663137761_))) + (_hd137662137764_ (let () (declare (not safe)) - (##car _e137401137499_)))) + (##car _e137663137761_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137399137504_)) + _tl137661137766_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137393137488_)) - (let ((_e137404137507_ + _tl137655137750_)) + (let ((_e137666137769_ (let () (declare (not safe)) (gx#stx-e - _tl137393137488_)))) - (let ((_tl137402137512_ + _tl137655137750_)))) + (let ((_tl137664137774_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e137404137507_))) - (_hd137403137510_ - (let () (declare (not safe)) (##car _e137404137507_)))) + (##cdr _e137666137769_))) + (_hd137665137772_ + (let () (declare (not safe)) (##car _e137666137769_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137403137510_)) - (let ((_e137407137515_ + (gx#stx-pair? _hd137665137772_)) + (let ((_e137669137777_ (let () (declare (not safe)) - (gx#stx-e _hd137403137510_)))) - (let ((_tl137405137520_ + (gx#stx-e _hd137665137772_)))) + (let ((_tl137667137782_ (let () (declare (not safe)) - (##cdr _e137407137515_))) - (_hd137406137518_ + (##cdr _e137669137777_))) + (_hd137668137780_ (let () (declare (not safe)) - (##car _e137407137515_)))) + (##car _e137669137777_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137406137518_)) + (gx#identifier? _hd137668137780_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd137406137518_)) + (gx#stx-eq? '%#ref _hd137668137780_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137405137520_)) - (let ((_e137410137523_ + (gx#stx-pair? _tl137667137782_)) + (let ((_e137672137785_ (let () (declare (not safe)) - (gx#stx-e _tl137405137520_)))) - (let ((_tl137408137528_ + (gx#stx-e _tl137667137782_)))) + (let ((_tl137670137790_ (let () (declare (not safe)) - (##cdr _e137410137523_))) - (_hd137409137526_ + (##cdr _e137672137785_))) + (_hd137671137788_ (let () (declare (not safe)) - (##car _e137410137523_)))) + (##car _e137672137785_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137408137528_)) + (gx#stx-null? _tl137670137790_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl137402137512_)) + _tl137664137774_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl137387137472_)) - (___match149443149444_ - _e137380137443_ - _hd137379137446_ - _tl137378137448_ - _e137383137451_ - _hd137382137454_ - _tl137381137456_ - _e137386137459_ - _hd137385137462_ - _tl137384137464_ - _e137389137467_ - _hd137388137470_ - _tl137387137472_ - _e137392137475_ - _hd137391137478_ - _tl137390137480_ - _e137395137483_ - _hd137394137486_ - _tl137393137488_ - _e137398137491_ - _hd137397137494_ - _tl137396137496_ - _e137401137499_ - _hd137400137502_ - _tl137399137504_ - _e137404137507_ - _hd137403137510_ - _tl137402137512_ - _e137407137515_ - _hd137406137518_ - _tl137405137520_ - _e137410137523_ - _hd137409137526_ - _tl137408137528_) - (___kont149352149353_)) - (___kont149352149353_)) - (___kont149352149353_)))) - (___kont149352149353_)) - (___kont149352149353_)) - (___kont149352149353_)))) - (___kont149352149353_)))) + _tl137649137734_)) + (___match149705149706_ + _e137642137705_ + _hd137641137708_ + _tl137640137710_ + _e137645137713_ + _hd137644137716_ + _tl137643137718_ + _e137648137721_ + _hd137647137724_ + _tl137646137726_ + _e137651137729_ + _hd137650137732_ + _tl137649137734_ + _e137654137737_ + _hd137653137740_ + _tl137652137742_ + _e137657137745_ + _hd137656137748_ + _tl137655137750_ + _e137660137753_ + _hd137659137756_ + _tl137658137758_ + _e137663137761_ + _hd137662137764_ + _tl137661137766_ + _e137666137769_ + _hd137665137772_ + _tl137664137774_ + _e137669137777_ + _hd137668137780_ + _tl137667137782_ + _e137672137785_ + _hd137671137788_ + _tl137670137790_) + (___kont149614149615_)) + (___kont149614149615_)) + (___kont149614149615_)))) + (___kont149614149615_)) + (___kont149614149615_)) + (___kont149614149615_)))) + (___kont149614149615_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149352149353_)) - (___kont149352149353_)))) - (___kont149352149353_)) - (___kont149352149353_)) - (___kont149352149353_)))) - (___kont149352149353_)))) - (___kont149352149353_)) + (___kont149614149615_)) + (___kont149614149615_)))) + (___kont149614149615_)) + (___kont149614149615_)) + (___kont149614149615_)))) + (___kont149614149615_)))) + (___kont149614149615_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149352149353_)) - (___kont149352149353_)))) - (___kont149352149353_)))) - (___kont149352149353_)))) - (___kont149352149353_)))) - (___kont149352149353_)) + (___kont149614149615_)) + (___kont149614149615_)))) + (___kont149614149615_)))) + (___kont149614149615_)))) + (___kont149614149615_)))) + (___kont149614149615_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149352149353_)) - (___kont149352149353_)))) - (___kont149352149353_)))))))) - (let* ((___match149703149704_ - (lambda (_e137213137253_ - _hd137212137256_ - _tl137211137258_ - _e137216137261_ - _hd137215137264_ - _tl137214137266_ - _e137219137269_ - _hd137218137272_ - _tl137217137274_ - _e137222137277_ - _hd137221137280_ - _tl137220137282_ - ___splice149458149459_ - _target137223137285_ - _tl137225137287_) - (letrec ((_loop137226137290_ - (lambda (_hd137224137293_ - _id137230137295_) + (___kont149614149615_)) + (___kont149614149615_)))) + (___kont149614149615_)))))))) + (let* ((___match149965149966_ + (lambda (_e137475137515_ + _hd137474137518_ + _tl137473137520_ + _e137478137523_ + _hd137477137526_ + _tl137476137528_ + _e137481137531_ + _hd137480137534_ + _tl137479137536_ + _e137484137539_ + _hd137483137542_ + _tl137482137544_ + ___splice149720149721_ + _target137485137547_ + _tl137487137549_) + (letrec ((_loop137488137552_ + (lambda (_hd137486137555_ + _id137492137557_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137224137293_)) - (let ((_e137227137298_ + _hd137486137555_)) + (let ((_e137489137560_ (let () (declare (not safe)) (gx#stx-e - _hd137224137293_)))) - (let ((_lp-tl137229137303_ + _hd137486137555_)))) + (let ((_lp-tl137491137565_ (let () (declare (not safe)) - (##cdr _e137227137298_))) - (_lp-hd137228137301_ + (##cdr _e137489137560_))) + (_lp-hd137490137563_ (let () (declare (not safe)) - (##car _e137227137298_)))) - (let ((__tmp150508 + (##car _e137489137560_)))) + (let ((__tmp150770 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd137228137301_ _id137230137295_)))) + (cons _lp-hd137490137563_ _id137492137557_)))) (declare (not safe)) - (_loop137226137290_ _lp-tl137229137303_ __tmp150508)))) + (_loop137488137552_ _lp-tl137491137565_ __tmp150770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id137231137306_ - (reverse _id137230137295_))) + (let ((_id137493137568_ + (reverse _id137492137557_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137220137282_)) - (let ((_e137234137309_ + _tl137482137544_)) + (let ((_e137496137571_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137220137282_)))) - (let ((_tl137232137314_ - (let () (declare (not safe)) (##cdr _e137234137309_))) - (_hd137233137312_ + (gx#stx-e _tl137482137544_)))) + (let ((_tl137494137576_ + (let () (declare (not safe)) (##cdr _e137496137571_))) + (_hd137495137574_ (let () (declare (not safe)) - (##car _e137234137309_)))) + (##car _e137496137571_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137232137314_)) + (gx#stx-null? _tl137494137576_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl137214137266_)) - (let ((___splice149460149461_ + (gx#stx-pair/null? _tl137476137528_)) + (let ((___splice149722149723_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl137214137266_ + _tl137476137528_ '0)))) - (let ((_tl137237137319_ + (let ((_tl137499137581_ (let () (declare (not safe)) (##vector-ref - ___splice149460149461_ + ___splice149722149723_ '1))) - (_target137235137317_ + (_target137497137579_ (let () (declare (not safe)) (##vector-ref - ___splice149460149461_ + ___splice149722149723_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137237137319_)) - (letrec ((_loop137238137322_ - (lambda (_hd137236137325_ - _arg137242137327_) + (gx#stx-null? _tl137499137581_)) + (letrec ((_loop137500137584_ + (lambda (_hd137498137587_ + _arg137504137589_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137236137325_)) - (let ((_e137239137330_ + _hd137498137587_)) + (let ((_e137501137592_ (let () (declare (not safe)) (gx#stx-e - _hd137236137325_)))) - (let ((_lp-tl137241137335_ + _hd137498137587_)))) + (let ((_lp-tl137503137597_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e137239137330_))) - (_lp-hd137240137333_ - (let () (declare (not safe)) (##car _e137239137330_)))) - (let ((__tmp150507 + (##cdr _e137501137592_))) + (_lp-hd137502137595_ + (let () (declare (not safe)) (##car _e137501137592_)))) + (let ((__tmp150769 (let () (declare (not safe)) - (cons _lp-hd137240137333_ _arg137242137327_)))) + (cons _lp-hd137502137595_ _arg137504137589_)))) (declare (not safe)) - (_loop137238137322_ _lp-tl137241137335_ __tmp150507)))) + (_loop137500137584_ _lp-tl137503137597_ __tmp150769)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg137243137338_ - (reverse _arg137242137327_))) - (___kont149456149457_ - _arg137243137338_ - _hd137233137312_ - _id137231137306_)))))) + (let ((_arg137505137600_ + (reverse _arg137504137589_))) + (___kont149718149719_ + _arg137505137600_ + _hd137495137574_ + _id137493137568_)))))) (let () (declare (not safe)) - (_loop137238137322_ - _target137235137317_ + (_loop137500137584_ + _target137497137579_ '()))) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_))) - (let () (declare (not safe)) (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_)))))))) + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_))) + (let () (declare (not safe)) (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop137226137290_ - _target137223137285_ + (_loop137488137552_ + _target137485137547_ '()))))) - (___match149585149586_ - (lambda (_e137139137757_ - _hd137138137760_ - _tl137137137762_ - _e137142137765_ - _hd137141137768_ - _tl137140137770_ - _e137145137773_ - _hd137144137776_ - _tl137143137778_ - _e137148137781_ - _hd137147137784_ - _tl137146137786_ - _e137151137789_ - _hd137150137792_ - _tl137149137794_ - _e137154137797_ - _hd137153137800_ - _tl137152137802_ - _e137157137805_ - _hd137156137808_ - _tl137155137810_ - _e137160137813_ - _hd137159137816_ - _tl137158137818_ - _e137163137821_ - _hd137162137824_ - _tl137161137826_ - _e137166137829_ - _hd137165137832_ - _tl137164137834_ - _e137169137837_ - _hd137168137840_ - _tl137167137842_ - _e137172137845_ - _hd137171137848_ - _tl137170137850_) - (let ((_L137853_ _hd137171137848_) - (_L137854_ _tl137161137826_) - (_L137855_ _hd137168137840_) - (_L137856_ _hd137153137800_) - (_L137857_ _hd137150137792_)) + (___match149847149848_ + (lambda (_e137401138019_ + _hd137400138022_ + _tl137399138024_ + _e137404138027_ + _hd137403138030_ + _tl137402138032_ + _e137407138035_ + _hd137406138038_ + _tl137405138040_ + _e137410138043_ + _hd137409138046_ + _tl137408138048_ + _e137413138051_ + _hd137412138054_ + _tl137411138056_ + _e137416138059_ + _hd137415138062_ + _tl137414138064_ + _e137419138067_ + _hd137418138070_ + _tl137417138072_ + _e137422138075_ + _hd137421138078_ + _tl137420138080_ + _e137425138083_ + _hd137424138086_ + _tl137423138088_ + _e137428138091_ + _hd137427138094_ + _tl137426138096_ + _e137431138099_ + _hd137430138102_ + _tl137429138104_ + _e137434138107_ + _hd137433138110_ + _tl137432138112_) + (let ((_L138115_ _hd137433138110_) + (_L138116_ _tl137423138088_) + (_L138117_ _hd137430138102_) + (_L138118_ _hd137415138062_) + (_L138119_ _hd137412138054_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L137855_ + _L138117_ 'gx#syntax-split-splice)) - (___kont149450149451_ - _L137853_ - _L137854_ - _L137855_ - _L137856_ - _L137857_) - (___kont149452149453_ - _hd137171137848_ - _hd137141137768_)))))) + (___kont149712149713_ + _L138115_ + _L138116_ + _L138117_ + _L138118_ + _L138119_) + (___kont149714149715_ + _hd137433138110_ + _hd137403138030_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149446149447_)) - (let ((_e137122137905_ + (gx#stx-pair? ___stx149708149709_)) + (let ((_e137384138167_ (let () (declare (not safe)) - (gx#stx-e ___stx149446149447_)))) - (let ((_tl137120137910_ + (gx#stx-e ___stx149708149709_)))) + (let ((_tl137382138172_ (let () (declare (not safe)) - (##cdr _e137122137905_))) - (_hd137121137908_ + (##cdr _e137384138167_))) + (_hd137383138170_ (let () (declare (not safe)) - (##car _e137122137905_)))) + (##car _e137384138167_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137121137908_)) + (gx#identifier? _hd137383138170_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd137121137908_)) + _hd137383138170_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137120137910_)) - (let ((_e137125137913_ + _tl137382138172_)) + (let ((_e137387138175_ (let () (declare (not safe)) (gx#stx-e - _tl137120137910_)))) - (let ((_tl137123137918_ + _tl137382138172_)))) + (let ((_tl137385138180_ (let () (declare (not safe)) - (##cdr _e137125137913_))) - (_hd137124137916_ + (##cdr _e137387138175_))) + (_hd137386138178_ (let () (declare (not safe)) - (##car _e137125137913_)))) + (##car _e137387138175_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137123137918_)) - (let ((_e137128137921_ + _tl137385138180_)) + (let ((_e137390138183_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137123137918_)))) - (let ((_tl137126137926_ - (let () (declare (not safe)) (##cdr _e137128137921_))) - (_hd137127137924_ - (let () (declare (not safe)) (##car _e137128137921_)))) + (gx#stx-e _tl137385138180_)))) + (let ((_tl137388138188_ + (let () (declare (not safe)) (##cdr _e137390138183_))) + (_hd137389138186_ + (let () (declare (not safe)) (##car _e137390138183_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137126137926_)) - (let ((_e137131137929_ + (gx#stx-pair? _tl137388138188_)) + (let ((_e137393138191_ (let () (declare (not safe)) - (gx#stx-e _tl137126137926_)))) - (let ((_tl137129137934_ + (gx#stx-e _tl137388138188_)))) + (let ((_tl137391138196_ (let () (declare (not safe)) - (##cdr _e137131137929_))) - (_hd137130137932_ + (##cdr _e137393138191_))) + (_hd137392138194_ (let () (declare (not safe)) - (##car _e137131137929_)))) + (##car _e137393138191_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137129137934_)) - (___kont149448149449_ - _hd137130137932_ - _hd137127137924_ - _hd137124137916_) + (gx#stx-null? _tl137391138196_)) + (___kont149710149711_ + _hd137392138194_ + _hd137389138186_ + _hd137386138178_) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_))))) + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137115137248_))) + (_g137377137510_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd137121137908_)) + _hd137383138170_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137120137910_)) - (let ((_e137142137765_ + _tl137382138172_)) + (let ((_e137404138027_ (let () (declare (not safe)) (gx#stx-e - _tl137120137910_)))) - (let ((_tl137140137770_ + _tl137382138172_)))) + (let ((_tl137402138032_ (let () (declare (not safe)) - (##cdr _e137142137765_))) - (_hd137141137768_ + (##cdr _e137404138027_))) + (_hd137403138030_ (let () (declare (not safe)) - (##car _e137142137765_)))) + (##car _e137404138027_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137141137768_)) - (let ((_e137145137773_ + _hd137403138030_)) + (let ((_e137407138035_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd137141137768_)))) - (let ((_tl137143137778_ + (gx#stx-e _hd137403138030_)))) + (let ((_tl137405138040_ (let () (declare (not safe)) - (##cdr _e137145137773_))) - (_hd137144137776_ + (##cdr _e137407138035_))) + (_hd137406138038_ (let () (declare (not safe)) - (##car _e137145137773_)))) + (##car _e137407138035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137144137776_)) - (let ((_e137148137781_ + (gx#stx-pair? _hd137406138038_)) + (let ((_e137410138043_ (let () (declare (not safe)) - (gx#stx-e _hd137144137776_)))) - (let ((_tl137146137786_ + (gx#stx-e _hd137406138038_)))) + (let ((_tl137408138048_ (let () (declare (not safe)) - (##cdr _e137148137781_))) - (_hd137147137784_ + (##cdr _e137410138043_))) + (_hd137409138046_ (let () (declare (not safe)) - (##car _e137148137781_)))) + (##car _e137410138043_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137147137784_)) - (let ((_e137151137789_ + (gx#stx-pair? _hd137409138046_)) + (let ((_e137413138051_ (let () (declare (not safe)) - (gx#stx-e _hd137147137784_)))) - (let ((_tl137149137794_ + (gx#stx-e _hd137409138046_)))) + (let ((_tl137411138056_ (let () (declare (not safe)) - (##cdr _e137151137789_))) - (_hd137150137792_ + (##cdr _e137413138051_))) + (_hd137412138054_ (let () (declare (not safe)) - (##car _e137151137789_)))) + (##car _e137413138051_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137149137794_)) - (let ((_e137154137797_ + (gx#stx-pair? _tl137411138056_)) + (let ((_e137416138059_ (let () (declare (not safe)) (gx#stx-e - _tl137149137794_)))) - (let ((_tl137152137802_ + _tl137411138056_)))) + (let ((_tl137414138064_ (let () (declare (not safe)) - (##cdr _e137154137797_))) - (_hd137153137800_ + (##cdr _e137416138059_))) + (_hd137415138062_ (let () (declare (not safe)) - (##car _e137154137797_)))) + (##car _e137416138059_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137152137802_)) + _tl137414138064_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137146137786_)) - (let ((_e137157137805_ + _tl137408138048_)) + (let ((_e137419138067_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137146137786_)))) - (let ((_tl137155137810_ - (let () (declare (not safe)) (##cdr _e137157137805_))) - (_hd137156137808_ - (let () (declare (not safe)) (##car _e137157137805_)))) + (gx#stx-e _tl137408138048_)))) + (let ((_tl137417138072_ + (let () (declare (not safe)) (##cdr _e137419138067_))) + (_hd137418138070_ + (let () (declare (not safe)) (##car _e137419138067_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137156137808_)) - (let ((_e137160137813_ + (gx#stx-pair? _hd137418138070_)) + (let ((_e137422138075_ (let () (declare (not safe)) - (gx#stx-e _hd137156137808_)))) - (let ((_tl137158137818_ + (gx#stx-e _hd137418138070_)))) + (let ((_tl137420138080_ (let () (declare (not safe)) - (##cdr _e137160137813_))) - (_hd137159137816_ + (##cdr _e137422138075_))) + (_hd137421138078_ (let () (declare (not safe)) - (##car _e137160137813_)))) + (##car _e137422138075_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137159137816_)) + (gx#identifier? _hd137421138078_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd137159137816_)) + (gx#stx-eq? '%#call _hd137421138078_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137158137818_)) - (let ((_e137163137821_ + (gx#stx-pair? _tl137420138080_)) + (let ((_e137425138083_ (let () (declare (not safe)) - (gx#stx-e _tl137158137818_)))) - (let ((_tl137161137826_ + (gx#stx-e _tl137420138080_)))) + (let ((_tl137423138088_ (let () (declare (not safe)) - (##cdr _e137163137821_))) - (_hd137162137824_ + (##cdr _e137425138083_))) + (_hd137424138086_ (let () (declare (not safe)) - (##car _e137163137821_)))) + (##car _e137425138083_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137162137824_)) - (let ((_e137166137829_ + _hd137424138086_)) + (let ((_e137428138091_ (let () (declare (not safe)) (gx#stx-e - _hd137162137824_)))) - (let ((_tl137164137834_ + _hd137424138086_)))) + (let ((_tl137426138096_ (let () (declare (not safe)) - (##cdr _e137166137829_))) - (_hd137165137832_ + (##cdr _e137428138091_))) + (_hd137427138094_ (let () (declare (not safe)) - (##car _e137166137829_)))) + (##car _e137428138091_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137165137832_)) + _hd137427138094_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd137165137832_)) + _hd137427138094_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl137164137834_)) - (let ((_e137169137837_ + (gx#stx-pair? _tl137426138096_)) + (let ((_e137431138099_ (let () (declare (not safe)) - (gx#stx-e _tl137164137834_)))) - (let ((_tl137167137842_ + (gx#stx-e _tl137426138096_)))) + (let ((_tl137429138104_ (let () (declare (not safe)) - (##cdr _e137169137837_))) - (_hd137168137840_ + (##cdr _e137431138099_))) + (_hd137430138102_ (let () (declare (not safe)) - (##car _e137169137837_)))) + (##car _e137431138099_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137167137842_)) + (gx#stx-null? _tl137429138104_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl137155137810_)) + (gx#stx-null? _tl137417138072_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl137143137778_)) + (gx#stx-null? _tl137405138040_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137172137845_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137434138107_ (let () (declare (not safe)) (gx#stx-e - _tl137140137770_)))) - (let ((_tl137170137850_ + _tl137402138032_)))) + (let ((_tl137432138112_ (let () (declare (not safe)) - (##cdr _e137172137845_))) - (_hd137171137848_ + (##cdr _e137434138107_))) + (_hd137433138110_ (let () (declare (not safe)) - (##car _e137172137845_)))) + (##car _e137434138107_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137170137850_)) - (___match149585149586_ - _e137122137905_ - _hd137121137908_ - _tl137120137910_ - _e137142137765_ - _hd137141137768_ - _tl137140137770_ - _e137145137773_ - _hd137144137776_ - _tl137143137778_ - _e137148137781_ - _hd137147137784_ - _tl137146137786_ - _e137151137789_ - _hd137150137792_ - _tl137149137794_ - _e137154137797_ - _hd137153137800_ - _tl137152137802_ - _e137157137805_ - _hd137156137808_ - _tl137155137810_ - _e137160137813_ - _hd137159137816_ - _tl137158137818_ - _e137163137821_ - _hd137162137824_ - _tl137161137826_ - _e137166137829_ - _hd137165137832_ - _tl137164137834_ - _e137169137837_ - _hd137168137840_ - _tl137167137842_ - _e137172137845_ - _hd137171137848_ - _tl137170137850_) + _tl137432138112_)) + (___match149847149848_ + _e137384138167_ + _hd137383138170_ + _tl137382138172_ + _e137404138027_ + _hd137403138030_ + _tl137402138032_ + _e137407138035_ + _hd137406138038_ + _tl137405138040_ + _e137410138043_ + _hd137409138046_ + _tl137408138048_ + _e137413138051_ + _hd137412138054_ + _tl137411138056_ + _e137416138059_ + _hd137415138062_ + _tl137414138064_ + _e137419138067_ + _hd137418138070_ + _tl137417138072_ + _e137422138075_ + _hd137421138078_ + _tl137420138080_ + _e137425138083_ + _hd137424138086_ + _tl137423138088_ + _e137428138091_ + _hd137427138094_ + _tl137426138096_ + _e137431138099_ + _hd137430138102_ + _tl137429138104_ + _e137434138107_ + _hd137433138110_ + _tl137432138112_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_))) + (_g137377137510_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) (gx#stx-e - _tl137140137770_)))) - (let ((_tl137181137732_ + _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))) + (_g137377137510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))) + (_g137377137510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))))) + (_g137377137510_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_)))) + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) - (let () (declare (not safe)) (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_)))))) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) + (let () (declare (not safe)) (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137140137770_)) - (let ((_e137183137727_ + _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) (gx#stx-e - _tl137140137770_)))) - (let ((_tl137181137732_ + _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))))) + (_g137377137510_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) (gx#stx-e - _tl137140137770_)))) - (let ((_tl137181137732_ + _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))) + (_g137377137510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))) + (_g137377137510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))))) + (_g137377137510_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) - (let () (declare (not safe)) (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_)))) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) + (let () (declare (not safe)) (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137140137770_)) - (let ((_e137183137727_ + _tl137402138032_)) + (let ((_e137445137989_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ - (let () (declare (not safe)) (##cdr _e137183137727_))) - (_hd137182137730_ - (let () (declare (not safe)) (##car _e137183137727_)))) + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ + (let () (declare (not safe)) (##cdr _e137445137989_))) + (_hd137444137992_ + (let () (declare (not safe)) (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ _hd137182137730_ _hd137141137768_) - (let () (declare (not safe)) (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_)))))) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ _hd137444137992_ _hd137403138030_) + (let () (declare (not safe)) (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137140137770_)) - (let ((_e137183137727_ + _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) (gx#stx-e - _tl137140137770_)))) - (let ((_tl137181137732_ + _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))))) + (_g137377137510_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))))) + (_g137377137510_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))))) + (_g137377137510_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137140137770_)) - (let ((_e137183137727_ + (gx#stx-pair? _tl137402138032_)) + (let ((_e137445137989_ (let () (declare (not safe)) - (gx#stx-e _tl137140137770_)))) - (let ((_tl137181137732_ + (gx#stx-e _tl137402138032_)))) + (let ((_tl137443137994_ (let () (declare (not safe)) - (##cdr _e137183137727_))) - (_hd137182137730_ + (##cdr _e137445137989_))) + (_hd137444137992_ (let () (declare (not safe)) - (##car _e137183137727_)))) + (##car _e137445137989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137181137732_)) - (___kont149452149453_ - _hd137182137730_ - _hd137141137768_) + (gx#stx-null? _tl137443137994_)) + (___kont149714149715_ + _hd137444137992_ + _hd137403138030_) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_)))))) + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137115137248_))) + (_g137377137510_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd137121137908_)) + _hd137383138170_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137120137910_)) - (let ((_e137192137631_ + _tl137382138172_)) + (let ((_e137454137893_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137120137910_)))) - (let ((_tl137190137636_ - (let () (declare (not safe)) (##cdr _e137192137631_))) - (_hd137191137634_ - (let () (declare (not safe)) (##car _e137192137631_)))) + (gx#stx-e _tl137382138172_)))) + (let ((_tl137452137898_ + (let () (declare (not safe)) (##cdr _e137454137893_))) + (_hd137453137896_ + (let () (declare (not safe)) (##car _e137454137893_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137191137634_)) - (let ((_e137195137639_ + (gx#stx-pair? _hd137453137896_)) + (let ((_e137457137901_ (let () (declare (not safe)) - (gx#stx-e _hd137191137634_)))) - (let ((_tl137193137644_ + (gx#stx-e _hd137453137896_)))) + (let ((_tl137455137906_ (let () (declare (not safe)) - (##cdr _e137195137639_))) - (_hd137194137642_ + (##cdr _e137457137901_))) + (_hd137456137904_ (let () (declare (not safe)) - (##car _e137195137639_)))) + (##car _e137457137901_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137194137642_)) - (let ((_e137198137647_ + (gx#stx-pair? _hd137456137904_)) + (let ((_e137460137909_ (let () (declare (not safe)) - (gx#stx-e _hd137194137642_)))) - (let ((_tl137196137652_ + (gx#stx-e _hd137456137904_)))) + (let ((_tl137458137914_ (let () (declare (not safe)) - (##cdr _e137198137647_))) - (_hd137197137650_ + (##cdr _e137460137909_))) + (_hd137459137912_ (let () (declare (not safe)) - (##car _e137198137647_)))) + (##car _e137460137909_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137197137650_)) - (let ((_e137201137655_ + (gx#stx-pair? _hd137459137912_)) + (let ((_e137463137917_ (let () (declare (not safe)) - (gx#stx-e _hd137197137650_)))) - (let ((_tl137199137660_ + (gx#stx-e _hd137459137912_)))) + (let ((_tl137461137922_ (let () (declare (not safe)) - (##cdr _e137201137655_))) - (_hd137200137658_ + (##cdr _e137463137917_))) + (_hd137462137920_ (let () (declare (not safe)) - (##car _e137201137655_)))) + (##car _e137463137917_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137199137660_)) + _tl137461137922_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137196137652_)) - (let ((_e137204137663_ + _tl137458137914_)) + (let ((_e137466137925_ (let () (declare (not safe)) (gx#stx-e - _tl137196137652_)))) - (let ((_tl137202137668_ + _tl137458137914_)))) + (let ((_tl137464137930_ (let () (declare (not safe)) - (##cdr _e137204137663_))) - (_hd137203137666_ + (##cdr _e137466137925_))) + (_hd137465137928_ (let () (declare (not safe)) - (##car _e137204137663_)))) + (##car _e137466137925_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137202137668_)) + _tl137464137930_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl137193137644_)) + (gx#stx-null? _tl137455137906_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137190137636_)) - (let ((_e137207137671_ + (gx#stx-pair? _tl137452137898_)) + (let ((_e137469137933_ (let () (declare (not safe)) - (gx#stx-e _tl137190137636_)))) - (let ((_tl137205137676_ + (gx#stx-e _tl137452137898_)))) + (let ((_tl137467137938_ (let () (declare (not safe)) - (##cdr _e137207137671_))) - (_hd137206137674_ + (##cdr _e137469137933_))) + (_hd137468137936_ (let () (declare (not safe)) - (##car _e137207137671_)))) + (##car _e137469137933_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137205137676_)) - (___kont149454149455_ - _hd137206137674_ - _hd137203137666_ - _hd137200137658_) + (gx#stx-null? _tl137467137938_)) + (___kont149716149717_ + _hd137468137936_ + _hd137465137928_ + _hd137462137920_) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_))) - (let () (declare (not safe)) (_g137115137248_))) - (let () (declare (not safe)) (_g137115137248_))))) + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_))) + (let () (declare (not safe)) (_g137377137510_))) + (let () (declare (not safe)) (_g137377137510_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137115137248_))) + (_g137377137510_))) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_))) + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd137121137908_)) + _hd137383138170_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137120137910_)) - (let ((_e137216137261_ + _tl137382138172_)) + (let ((_e137478137523_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl137120137910_)))) - (let ((_tl137214137266_ + (gx#stx-e _tl137382138172_)))) + (let ((_tl137476137528_ (let () (declare (not safe)) - (##cdr _e137216137261_))) - (_hd137215137264_ + (##cdr _e137478137523_))) + (_hd137477137526_ (let () (declare (not safe)) - (##car _e137216137261_)))) + (##car _e137478137523_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137215137264_)) - (let ((_e137219137269_ + (gx#stx-pair? _hd137477137526_)) + (let ((_e137481137531_ (let () (declare (not safe)) - (gx#stx-e _hd137215137264_)))) - (let ((_tl137217137274_ + (gx#stx-e _hd137477137526_)))) + (let ((_tl137479137536_ (let () (declare (not safe)) - (##cdr _e137219137269_))) - (_hd137218137272_ + (##cdr _e137481137531_))) + (_hd137480137534_ (let () (declare (not safe)) - (##car _e137219137269_)))) + (##car _e137481137531_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137218137272_)) + (gx#identifier? _hd137480137534_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd137218137272_)) + _hd137480137534_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137217137274_)) - (let ((_e137222137277_ + (gx#stx-pair? _tl137479137536_)) + (let ((_e137484137539_ (let () (declare (not safe)) (gx#stx-e - _tl137217137274_)))) - (let ((_tl137220137282_ + _tl137479137536_)))) + (let ((_tl137482137544_ (let () (declare (not safe)) - (##cdr _e137222137277_))) - (_hd137221137280_ + (##cdr _e137484137539_))) + (_hd137483137542_ (let () (declare (not safe)) - (##car _e137222137277_)))) + (##car _e137484137539_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd137221137280_)) - (let ((___splice149458149459_ + _hd137483137542_)) + (let ((___splice149720149721_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd137221137280_ + _hd137483137542_ '0)))) - (let ((_tl137225137287_ + (let ((_tl137487137549_ (let () (declare (not safe)) (##vector-ref - ___splice149458149459_ + ___splice149720149721_ '1))) - (_target137223137285_ + (_target137485137547_ (let () (declare (not safe)) (##vector-ref - ___splice149458149459_ + ___splice149720149721_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137225137287_)) - (___match149703149704_ - _e137122137905_ - _hd137121137908_ - _tl137120137910_ - _e137216137261_ - _hd137215137264_ - _tl137214137266_ - _e137219137269_ - _hd137218137272_ - _tl137217137274_ - _e137222137277_ - _hd137221137280_ - _tl137220137282_ - ___splice149458149459_ - _target137223137285_ - _tl137225137287_) + _tl137487137549_)) + (___match149965149966_ + _e137384138167_ + _hd137383138170_ + _tl137382138172_ + _e137478137523_ + _hd137477137526_ + _tl137476137528_ + _e137481137531_ + _hd137480137534_ + _tl137479137536_ + _e137484137539_ + _hd137483137542_ + _tl137482137544_ + ___splice149720149721_ + _target137485137547_ + _tl137487137549_) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_))) + (_g137377137510_))) (let () (declare (not safe)) - (_g137115137248_))) + (_g137377137510_))) (let () (declare (not safe)) - (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_))))) - (let () (declare (not safe)) (_g137115137248_))) - (let () (declare (not safe)) (_g137115137248_)))))) + (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_))))) + (let () (declare (not safe)) (_g137377137510_))) + (let () (declare (not safe)) (_g137377137510_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137115137248_))))) + (_g137377137510_))))) (let () (declare (not safe)) - (_g137115137248_)))))))) - (_xform-loop-e136723_ - (lambda (_expr136932_ - _kont-id136933_ - _kont-box136934_ - _negation-id136935_) - (let* ((_g136937136977_ - (lambda (_g136938136974_) + (_g137377137510_)))))))) + (_xform-loop-e136985_ + (lambda (_expr137194_ + _kont-id137195_ + _kont-box137196_ + _negation-id137197_) + (let* ((_g137199137239_ + (lambda (_g137200137236_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136938136974_)))) - (_g136936137103_ - (lambda (_g136938136980_) + _g137200137236_)))) + (_g137198137365_ + (lambda (_g137200137242_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136938136980_)) - (let ((_e136945136982_ + (gx#stx-pair? _g137200137242_)) + (let ((_e137207137244_ (let () (declare (not safe)) - (gx#stx-e _g136938136980_)))) - (let ((_hd136944136985_ + (gx#stx-e _g137200137242_)))) + (let ((_hd137206137247_ (let () (declare (not safe)) - (##car _e136945136982_))) - (_tl136943136987_ + (##car _e137207137244_))) + (_tl137205137249_ (let () (declare (not safe)) - (##cdr _e136945136982_)))) + (##cdr _e137207137244_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136944136985_)) + (gx#identifier? _hd137206137247_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136944136985_)) + _hd137206137247_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136943136987_)) - (let ((_e136948136990_ + _tl137205137249_)) + (let ((_e137210137252_ (let () (declare (not safe)) (gx#stx-e - _tl136943136987_)))) - (let ((_hd136947136993_ + _tl137205137249_)))) + (let ((_hd137209137255_ (let () (declare (not safe)) - (##car _e136948136990_))) - (_tl136946136995_ + (##car _e137210137252_))) + (_tl137208137257_ (let () (declare (not safe)) - (##cdr _e136948136990_)))) + (##cdr _e137210137252_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd136947136993_)) - (let ((_g150509_ + _hd137209137255_)) + (let ((_g150771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd136947136993_ '0)))) + (gx#syntax-split-splice _hd137209137255_ '0)))) (begin - (let ((_g150510_ + (let ((_g150772_ (let () (declare (not safe)) - (if (##values? _g150509_) - (##vector-length _g150509_) + (if (##values? _g150771_) + (##vector-length _g150771_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150510_ 2))) - (error "Context expects 2 values" _g150510_))) - (let ((_target136949136998_ + (##fx= _g150772_ 2))) + (error "Context expects 2 values" _g150772_))) + (let ((_target137211137260_ (let () (declare (not safe)) - (##vector-ref _g150509_ 0))) - (_tl136951137000_ + (##vector-ref _g150771_ 0))) + (_tl137213137262_ (let () (declare (not safe)) - (##vector-ref _g150509_ 1)))) + (##vector-ref _g150771_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136951137000_)) - (letrec ((_loop136952137003_ - (lambda (_hd136950137006_ - _id136956137008_) + (gx#stx-null? _tl137213137262_)) + (letrec ((_loop137214137265_ + (lambda (_hd137212137268_ + _id137218137270_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136950137006_)) - (let ((_e136953137011_ + (gx#stx-pair? _hd137212137268_)) + (let ((_e137215137273_ (let () (declare (not safe)) (gx#stx-e - _hd136950137006_)))) - (let ((_lp-hd136954137014_ + _hd137212137268_)))) + (let ((_lp-hd137216137276_ (let () (declare (not safe)) - (##car _e136953137011_))) - (_lp-tl136955137016_ + (##car _e137215137273_))) + (_lp-tl137217137278_ (let () (declare (not safe)) - (##cdr _e136953137011_)))) - (let ((__tmp150519 + (##cdr _e137215137273_)))) + (let ((__tmp150781 (let () (declare (not safe)) - (cons _lp-hd136954137014_ - _id136956137008_)))) + (cons _lp-hd137216137276_ + _id137218137270_)))) (declare (not safe)) - (_loop136952137003_ - _lp-tl136955137016_ - __tmp150519)))) - (let ((_id136957137019_ - (reverse _id136956137008_))) + (_loop137214137265_ + _lp-tl137217137278_ + __tmp150781)))) + (let ((_id137219137281_ + (reverse _id137218137270_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136946136995_)) - (let ((_e136960137022_ + _tl137208137257_)) + (let ((_e137222137284_ (let () (declare (not safe)) (gx#stx-e - _tl136946136995_)))) - (let ((_hd136959137025_ + _tl137208137257_)))) + (let ((_hd137221137287_ (let () (declare (not safe)) - (##car _e136960137022_))) - (_tl136958137027_ + (##car _e137222137284_))) + (_tl137220137289_ (let () (declare (not safe)) - (##cdr _e136960137022_)))) + (##cdr _e137222137284_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136959137025_)) - (let ((_e136963137030_ + _hd137221137287_)) + (let ((_e137225137292_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd136959137025_)))) - (let ((_hd136962137033_ + (gx#stx-e _hd137221137287_)))) + (let ((_hd137224137295_ (let () (declare (not safe)) - (##car _e136963137030_))) - (_tl136961137035_ + (##car _e137225137292_))) + (_tl137223137297_ (let () (declare (not safe)) - (##cdr _e136963137030_)))) + (##cdr _e137225137292_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136962137033_)) + (gx#identifier? _hd137224137295_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd136962137033_)) + (gx#stx-eq? '%#if _hd137224137295_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136961137035_)) - (let ((_e136966137038_ + (gx#stx-pair? _tl137223137297_)) + (let ((_e137228137300_ (let () (declare (not safe)) - (gx#stx-e _tl136961137035_)))) - (let ((_hd136965137041_ + (gx#stx-e _tl137223137297_)))) + (let ((_hd137227137303_ (let () (declare (not safe)) - (##car _e136966137038_))) - (_tl136964137043_ + (##car _e137228137300_))) + (_tl137226137305_ (let () (declare (not safe)) - (##cdr _e136966137038_)))) + (##cdr _e137228137300_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136964137043_)) - (let ((_e136969137046_ + (gx#stx-pair? _tl137226137305_)) + (let ((_e137231137308_ (let () (declare (not safe)) (gx#stx-e - _tl136964137043_)))) - (let ((_hd136968137049_ + _tl137226137305_)))) + (let ((_hd137230137311_ (let () (declare (not safe)) - (##car _e136969137046_))) - (_tl136967137051_ + (##car _e137231137308_))) + (_tl137229137313_ (let () (declare (not safe)) - (##cdr _e136969137046_)))) + (##cdr _e137231137308_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136967137051_)) - (let ((_e136972137054_ + _tl137229137313_)) + (let ((_e137234137316_ (let () (declare (not safe)) (gx#stx-e - _tl136967137051_)))) - (let ((_hd136971137057_ + _tl137229137313_)))) + (let ((_hd137233137319_ (let () (declare (not safe)) - (##car _e136972137054_))) - (_tl136970137059_ + (##car _e137234137316_))) + (_tl137232137321_ (let () (declare (not safe)) - (##cdr _e136972137054_)))) + (##cdr _e137234137316_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136970137059_)) + _tl137232137321_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl136958137027_)) - ((lambda (_L137062_ _L137063_ _L137064_ _L137065_) - (let* ((_E137094_ + (gx#stx-null? _tl137220137289_)) + ((lambda (_L137324_ _L137325_ _L137326_ _L137327_) + (let* ((_E137356_ (let () (declare (not safe)) - (_xform-e136722_ - _L137062_ - _kont-id136933_ - _kont-box136934_ - _negation-id136935_))) - (__tmp150511 - (let ((__tmp150517 - (let ((__tmp150518 - (lambda (_g137095137098_ - _g137096137100_) + (_xform-e136984_ + _L137324_ + _kont-id137195_ + _kont-box137196_ + _negation-id137197_))) + (__tmp150773 + (let ((__tmp150779 + (let ((__tmp150780 + (lambda (_g137357137360_ + _g137358137362_) (let () (declare (not safe)) - (cons _g137095137098_ - _g137096137100_))))) + (cons _g137357137360_ + _g137358137362_))))) (declare (not safe)) - (foldr1 __tmp150518 '() _L137065_))) - (__tmp150512 - (let ((__tmp150513 - (let ((__tmp150514 - (let ((__tmp150515 - (let ((__tmp150516 + (foldr1 __tmp150780 '() _L137327_))) + (__tmp150774 + (let ((__tmp150775 + (let ((__tmp150776 + (let ((__tmp150777 + (let ((__tmp150778 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E137094_ '())))) + (cons _E137356_ '())))) (declare (not safe)) - (cons _L137063_ __tmp150516)))) + (cons _L137325_ __tmp150778)))) (declare (not safe)) - (cons _L137064_ __tmp150515)))) + (cons _L137326_ __tmp150777)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp150514)))) + (cons '%#if __tmp150776)))) (declare (not safe)) - (cons __tmp150513 '())))) + (cons __tmp150775 '())))) (declare (not safe)) - (cons __tmp150517 __tmp150512)))) + (cons __tmp150779 __tmp150774)))) (declare (not safe)) - (cons '%#lambda __tmp150511))) - _hd136971137057_ - _hd136968137049_ - _hd136965137041_ - _id136957137019_) + (cons '%#lambda __tmp150773))) + _hd137233137319_ + _hd137230137311_ + _hd137227137303_ + _id137219137281_) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_))) + (_g137199137239_ _g137200137242_))) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_))))) + (_g137199137239_ _g137200137242_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136937136977_ - _g136938136980_))))) + (_g137199137239_ + _g137200137242_))))) (let () (declare (not safe)) - (_g136937136977_ - _g136938136980_))))) + (_g137199137239_ + _g137200137242_))))) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_))) + (_g137199137239_ _g137200137242_))) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_))) + (_g137199137239_ _g137200137242_))) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_))))) + (_g137199137239_ _g137200137242_))))) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_))))) + (_g137199137239_ _g137200137242_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136937136977_ - _g136938136980_)))))))) + (_g137199137239_ + _g137200137242_)))))))) (let () (declare (not safe)) - (_loop136952137003_ _target136949136998_ '()))) + (_loop137214137265_ _target137211137260_ '()))) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_)))))) + (_g137199137239_ _g137200137242_)))))) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_))))) + (_g137199137239_ _g137200137242_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136937136977_ - _g136938136980_))) + (_g137199137239_ + _g137200137242_))) (let () (declare (not safe)) - (_g136937136977_ - _g136938136980_))) + (_g137199137239_ + _g137200137242_))) (let () (declare (not safe)) - (_g136937136977_ - _g136938136980_))))) + (_g137199137239_ + _g137200137242_))))) (let () (declare (not safe)) - (_g136937136977_ _g136938136980_)))))) + (_g137199137239_ _g137200137242_)))))) (declare (not safe)) - (_g136936137103_ _expr136932_)))) - (_clause-e136724_ - (lambda (_clause-lambda136802_ _kont-id136803_ _rest136804_) - (letrec* ((_kont-box136806_ + (_g137198137365_ _expr137194_)))) + (_clause-e136986_ + (lambda (_clause-lambda137064_ _kont-id137065_ _rest137066_) + (letrec* ((_kont-box137068_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id136846_ - (let* ((_rest136807136817_ _rest136804_) - (_else136809136825_ - (lambda () _negation-id136720_)) - (_K136811136831_ - (lambda (_clause136828_ - _clause-id136829_) - _clause-id136829_))) + (let* ((_negation-id137108_ + (let* ((_rest137069137079_ _rest137066_) + (_else137071137087_ + (lambda () _negation-id136982_)) + (_K137073137093_ + (lambda (_clause137090_ + _clause-id137091_) + _clause-id137091_))) (if (let () (declare (not safe)) - (##pair? _rest136807136817_)) - (let ((_hd136812136834_ + (##pair? _rest137069137079_)) + (let ((_hd137074137096_ (let () (declare (not safe)) - (##car _rest136807136817_)))) + (##car _rest137069137079_)))) (if (let () (declare (not safe)) - (##pair? _hd136812136834_)) - (let ((_hd136814136837_ + (##pair? _hd137074137096_)) + (let ((_hd137076137099_ (let () (declare (not safe)) - (##car _hd136812136834_))) - (_tl136815136839_ + (##car _hd137074137096_))) + (_tl137077137101_ (let () (declare (not safe)) - (##cdr _hd136812136834_)))) - (let* ((_clause-id136842_ - _hd136814136837_) - (_clause136844_ - _tl136815136839_)) + (##cdr _hd137074137096_)))) + (let* ((_clause-id137104_ + _hd137076137099_) + (_clause137106_ + _tl137077137101_)) (declare (not safe)) - (_K136811136831_ - _clause136844_ - _clause-id136842_))) + (_K137073137093_ + _clause137106_ + _clause-id137104_))) (let () (declare (not safe)) - (_else136809136825_)))) + (_else137071137087_)))) (let () (declare (not safe)) - (_else136809136825_))))) - (_g136848136868_ - (lambda (_g136849136865_) + (_else137071137087_))))) + (_g137110137130_ + (lambda (_g137111137127_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136849136865_)))) - (_g136847136929_ - (lambda (_g136849136871_) + _g137111137127_)))) + (_g137109137191_ + (lambda (_g137111137133_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136849136871_)) - (let ((_e136854136873_ + (gx#stx-pair? _g137111137133_)) + (let ((_e137116137135_ (let () (declare (not safe)) - (gx#stx-e _g136849136871_)))) - (let ((_hd136853136876_ + (gx#stx-e _g137111137133_)))) + (let ((_hd137115137138_ (let () (declare (not safe)) - (##car _e136854136873_))) - (_tl136852136878_ + (##car _e137116137135_))) + (_tl137114137140_ (let () (declare (not safe)) - (##cdr _e136854136873_)))) + (##cdr _e137116137135_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd136853136876_)) + _hd137115137138_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136853136876_)) + _hd137115137138_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136852136878_)) - (let ((_e136857136881_ + _tl137114137140_)) + (let ((_e137119137143_ (let () (declare (not safe)) (gx#stx-e - _tl136852136878_)))) - (let ((_hd136856136884_ + _tl137114137140_)))) + (let ((_hd137118137146_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e136857136881_))) - (_tl136855136886_ - (let () (declare (not safe)) (##cdr _e136857136881_)))) + (##car _e137119137143_))) + (_tl137117137148_ + (let () (declare (not safe)) (##cdr _e137119137143_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136856136884_)) - (let ((_e136860136889_ + (gx#stx-pair? _hd137118137146_)) + (let ((_e137122137151_ (let () (declare (not safe)) - (gx#stx-e _hd136856136884_)))) - (let ((_hd136859136892_ + (gx#stx-e _hd137118137146_)))) + (let ((_hd137121137154_ (let () (declare (not safe)) - (##car _e136860136889_))) - (_tl136858136894_ + (##car _e137122137151_))) + (_tl137120137156_ (let () (declare (not safe)) - (##cdr _e136860136889_)))) + (##cdr _e137122137151_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136858136894_)) + (gx#stx-null? _tl137120137156_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136855136886_)) - (let ((_e136863136897_ + (gx#stx-pair? _tl137117137148_)) + (let ((_e137125137159_ (let () (declare (not safe)) - (gx#stx-e _tl136855136886_)))) - (let ((_hd136862136900_ + (gx#stx-e _tl137117137148_)))) + (let ((_hd137124137162_ (let () (declare (not safe)) - (##car _e136863136897_))) - (_tl136861136902_ + (##car _e137125137159_))) + (_tl137123137164_ (let () (declare (not safe)) - (##cdr _e136863136897_)))) + (##cdr _e137125137159_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136861136902_)) - ((lambda (_L136905_ _L136906_) - (let ((_body136927_ + (gx#stx-null? _tl137123137164_)) + ((lambda (_L137167_ _L137168_) + (let ((_body137189_ (let () (declare (not safe)) - (_xform-e136722_ - _L136905_ - _kont-id136803_ - _kont-box136806_ - _negation-id136846_)))) - (values (let ((__tmp150520 - (let ((__tmp150522 + (_xform-e136984_ + _L137167_ + _kont-id137065_ + _kont-box137068_ + _negation-id137108_)))) + (values (let ((__tmp150782 + (let ((__tmp150784 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L136906_ '()))) - (__tmp150521 + (let () (declare (not safe)) (cons _L137168_ '()))) + (__tmp150783 (let () (declare (not safe)) - (cons _body136927_ '())))) + (cons _body137189_ '())))) (declare (not safe)) - (cons __tmp150522 __tmp150521)))) + (cons __tmp150784 __tmp150783)))) (declare (not safe)) - (cons '%#lambda __tmp150520)) + (cons '%#lambda __tmp150782)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box136806_)))) - _hd136862136900_ - _hd136859136892_) + (unbox _kont-box137068_)))) + _hd137124137162_ + _hd137121137154_) (let () (declare (not safe)) - (_g136848136868_ _g136849136871_))))) + (_g137110137130_ _g137111137133_))))) (let () (declare (not safe)) - (_g136848136868_ _g136849136871_))) + (_g137110137130_ _g137111137133_))) (let () (declare (not safe)) - (_g136848136868_ _g136849136871_))))) + (_g137110137130_ _g137111137133_))))) (let () (declare (not safe)) - (_g136848136868_ _g136849136871_))))) + (_g137110137130_ _g137111137133_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136848136868_ - _g136849136871_))) + (_g137110137130_ + _g137111137133_))) (let () (declare (not safe)) - (_g136848136868_ - _g136849136871_))) + (_g137110137130_ + _g137111137133_))) (let () (declare (not safe)) - (_g136848136868_ - _g136849136871_))))) + (_g137110137130_ + _g137111137133_))))) (let () (declare (not safe)) - (_g136848136868_ _g136849136871_)))))) + (_g137110137130_ _g137111137133_)))))) (declare (not safe)) - (_g136847136929_ _clause-lambda136802_)))))) - (let _lp136726_ ((_rest136728_ _clauses136719_) - (_clauses136729_ '()) - (_konts136730_ '())) - (let* ((_rest136731136739_ _rest136728_) - (_else136733136747_ + (_g137109137191_ _clause-lambda137064_)))))) + (let _lp136988_ ((_rest136990_ _clauses136981_) + (_clauses136991_ '()) + (_konts136992_ '())) + (let* ((_rest136993137001_ _rest136990_) + (_else136995137009_ (lambda () - (values (reverse _clauses136729_) - (reverse _konts136730_)))) - (_K136735136790_ - (lambda (_rest136750_ _clause136751_) - (let* ((_clause136752136759_ _clause136751_) - (_E136754136763_ + (values (reverse _clauses136991_) + (reverse _konts136992_)))) + (_K136997137052_ + (lambda (_rest137012_ _clause137013_) + (let* ((_clause137014137021_ _clause137013_) + (_E137016137025_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause136752136759_)))) - (_K136755136778_ - (lambda (_clause-lambda136766_ _clause-id136767_) - (let* ((_id136769_ - (let ((__tmp150523 (gensym '__kont))) + _clause137014137021_)))) + (_K137017137040_ + (lambda (_clause-lambda137028_ _clause-id137029_) + (let* ((_id137031_ + (let ((__tmp150785 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp150523))) - (_id136771_ + (make-symbol__0 __tmp150785))) + (_id137033_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id136769_))) - (_g150524_ + _id137031_))) + (_g150786_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id136771_))) - (_g150525_ + _id137033_))) + (_g150787_ (let () (declare (not safe)) - (_clause-e136724_ - _clause-lambda136766_ - _id136771_ - _rest136750_)))) + (_clause-e136986_ + _clause-lambda137028_ + _id137033_ + _rest137012_)))) (begin - (let ((_g150526_ + (let ((_g150788_ (let () (declare (not safe)) - (if (##values? _g150525_) - (##vector-length _g150525_) + (if (##values? _g150787_) + (##vector-length _g150787_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150526_ 2))) + (##fx= _g150788_ 2))) (error "Context expects 2 values" - _g150526_))) - (let ((_clause-lambda136774_ + _g150788_))) + (let ((_clause-lambda137036_ (let () (declare (not safe)) - (##vector-ref _g150525_ 0))) - (_kont136775_ + (##vector-ref _g150787_ 0))) + (_kont137037_ (let () (declare (not safe)) - (##vector-ref _g150525_ 1)))) + (##vector-ref _g150787_ 1)))) (let () - (let ((__tmp150529 - (let ((__tmp150530 + (let ((__tmp150791 + (let ((__tmp150792 (let () (declare (not safe)) - (cons _clause-id136767_ - _clause-lambda136774_)))) + (cons _clause-id137029_ + _clause-lambda137036_)))) (declare (not safe)) - (cons __tmp150530 - _clauses136729_))) - (__tmp150527 - (let ((__tmp150528 + (cons __tmp150792 + _clauses136991_))) + (__tmp150789 + (let ((__tmp150790 (let () (declare (not safe)) - (cons _id136771_ - _kont136775_)))) + (cons _id137033_ + _kont137037_)))) (declare (not safe)) - (cons __tmp150528 - _konts136730_)))) + (cons __tmp150790 + _konts136992_)))) (declare (not safe)) - (_lp136726_ - _rest136750_ - __tmp150529 - __tmp150527))))))))) + (_lp136988_ + _rest137012_ + __tmp150791 + __tmp150789))))))))) (if (let () (declare (not safe)) - (##pair? _clause136752136759_)) - (let ((_hd136756136781_ + (##pair? _clause137014137021_)) + (let ((_hd137018137043_ (let () (declare (not safe)) - (##car _clause136752136759_))) - (_tl136757136783_ + (##car _clause137014137021_))) + (_tl137019137045_ (let () (declare (not safe)) - (##cdr _clause136752136759_)))) - (let* ((_clause-id136786_ _hd136756136781_) - (_clause-lambda136788_ _tl136757136783_)) + (##cdr _clause137014137021_)))) + (let* ((_clause-id137048_ _hd137018137043_) + (_clause-lambda137050_ _tl137019137045_)) (declare (not safe)) - (_K136755136778_ - _clause-lambda136788_ - _clause-id136786_))) + (_K137017137040_ + _clause-lambda137050_ + _clause-id137048_))) (let () (declare (not safe)) - (_E136754136763_))))))) - (if (let () (declare (not safe)) (##pair? _rest136731136739_)) - (let ((_hd136736136793_ + (_E137016137025_))))))) + (if (let () (declare (not safe)) (##pair? _rest136993137001_)) + (let ((_hd136998137055_ (let () (declare (not safe)) - (##car _rest136731136739_))) - (_tl136737136795_ + (##car _rest136993137001_))) + (_tl136999137057_ (let () (declare (not safe)) - (##cdr _rest136731136739_)))) - (let* ((_clause136798_ _hd136736136793_) - (_rest136800_ _tl136737136795_)) + (##cdr _rest136993137001_)))) + (let* ((_clause137060_ _hd136998137055_) + (_rest137062_ _tl136999137057_)) (declare (not safe)) - (_K136735136790_ _rest136800_ _clause136798_))) - (let () (declare (not safe)) (_else136733136747_)))))))) + (_K136997137052_ _rest137062_ _clause137060_))) + (let () (declare (not safe)) (_else136995137009_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause136063_ _negation136064_ _target136065_) - (letrec ((_closure-e136067_ - (lambda (_expr136184_) - (let* ((___stx149706149707_ _expr136184_) - (_g136191136306_ + (lambda (_clause136325_ _negation136326_ _target136327_) + (letrec ((_closure-e136329_ + (lambda (_expr136446_) + (let* ((___stx149968149969_ _expr136446_) + (_g136453136568_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149706149707_))))) - (let ((___kont149708149709_ - (lambda (_L136697_ _L136698_ _L136699_) - (let ((__tmp150531 - (let ((__tmp150532 - (let ((__tmp150535 + ___stx149968149969_))))) + (let ((___kont149970149971_ + (lambda (_L136959_ _L136960_ _L136961_) + (let ((__tmp150793 + (let ((__tmp150794 + (let ((__tmp150797 (let () (declare (not safe)) - (_closure-e136067_ - _L136698_))) - (__tmp150533 - (let ((__tmp150534 + (_closure-e136329_ + _L136960_))) + (__tmp150795 + (let ((__tmp150796 (let () (declare (not safe)) - (_closure-e136067_ - _L136697_)))) + (_closure-e136329_ + _L136959_)))) (declare (not safe)) - (cons __tmp150534 '())))) + (cons __tmp150796 '())))) (declare (not safe)) - (cons __tmp150535 - __tmp150533)))) + (cons __tmp150797 + __tmp150795)))) (declare (not safe)) - (cons _L136699_ __tmp150532)))) + (cons _L136961_ __tmp150794)))) (declare (not safe)) - (cons '%#if __tmp150531)))) - (___kont149710149711_ - (lambda (_L136645_ _L136646_) - (let ((__tmp150536 - (let ((__tmp150537 - (let ((__tmp150538 + (cons '%#if __tmp150793)))) + (___kont149972149973_ + (lambda (_L136907_ _L136908_) + (let ((__tmp150798 + (let ((__tmp150799 + (let ((__tmp150800 (let () (declare (not safe)) - (_closure-e136067_ - _L136645_)))) + (_closure-e136329_ + _L136907_)))) (declare (not safe)) - (cons __tmp150538 '())))) + (cons __tmp150800 '())))) (declare (not safe)) - (cons _L136646_ __tmp150537)))) + (cons _L136908_ __tmp150799)))) (declare (not safe)) - (cons '%#let-values __tmp150536)))) - (___kont149712149713_ - (lambda (_L136591_ _L136592_ _L136593_) - (let ((__tmp150539 - (let ((__tmp150541 - (let ((__tmp150542 - (let ((__tmp150545 + (cons '%#let-values __tmp150798)))) + (___kont149974149975_ + (lambda (_L136853_ _L136854_ _L136855_) + (let ((__tmp150801 + (let ((__tmp150803 + (let ((__tmp150804 + (let ((__tmp150807 (let () (declare (not safe)) - (cons _L136593_ + (cons _L136855_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp150543 - (let ((__tmp150544 + (__tmp150805 + (let ((__tmp150806 (let () (declare (not safe)) - (_closure-e136067_ _L136592_)))) + (_closure-e136329_ _L136854_)))) (declare (not safe)) - (cons __tmp150544 '())))) + (cons __tmp150806 '())))) (declare (not safe)) - (cons __tmp150545 __tmp150543)))) + (cons __tmp150807 __tmp150805)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150542 '()))) - (__tmp150540 + (cons __tmp150804 '()))) + (__tmp150802 (let () (declare (not safe)) - (cons _L136591_ '())))) + (cons _L136853_ '())))) (declare (not safe)) - (cons __tmp150541 __tmp150540)))) + (cons __tmp150803 __tmp150802)))) (declare (not safe)) - (cons '%#letrec-values __tmp150539)))) - (___kont149714149715_ - (lambda (_L136504_ _L136505_) - (let ((__tmp150546 - (let ((__tmp150549 - (let ((__tmp150550 - (lambda (_g136522136525_ - _g136523136527_) + (cons '%#letrec-values __tmp150801)))) + (___kont149976149977_ + (lambda (_L136766_ _L136767_) + (let ((__tmp150808 + (let ((__tmp150811 + (let ((__tmp150812 + (lambda (_g136784136787_ + _g136785136789_) (let () (declare (not safe)) - (cons _g136522136525_ - _g136523136527_))))) + (cons _g136784136787_ + _g136785136789_))))) (declare (not safe)) - (foldr1 __tmp150550 + (foldr1 __tmp150812 '() - _L136505_))) - (__tmp150547 - (let ((__tmp150548 + _L136767_))) + (__tmp150809 + (let ((__tmp150810 (let () (declare (not safe)) - (_closure-e136067_ - _L136504_)))) + (_closure-e136329_ + _L136766_)))) (declare (not safe)) - (cons __tmp150548 '())))) + (cons __tmp150810 '())))) (declare (not safe)) - (cons __tmp150549 __tmp150547)))) + (cons __tmp150811 __tmp150809)))) (declare (not safe)) - (cons '%#lambda __tmp150546)))) - (___kont149718149719_ - (lambda (_L136434_) - (let ((__tmp150551 - (let ((__tmp150552 - (let ((__tmp150554 + (cons '%#lambda __tmp150808)))) + (___kont149980149981_ + (lambda (_L136696_) + (let ((__tmp150813 + (let ((__tmp150814 + (let ((__tmp150816 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150553 + (__tmp150815 (let () (declare (not safe)) - (cons _L136434_ '())))) + (cons _L136696_ '())))) (declare (not safe)) - (cons __tmp150554 - __tmp150553)))) + (cons __tmp150816 + __tmp150815)))) (declare (not safe)) - (cons __tmp150552 '())))) + (cons __tmp150814 '())))) (declare (not safe)) - (cons '%#call __tmp150551)))) - (___kont149720149721_ - (lambda (_L136367_ _L136368_) _expr136184_))) - (let* ((___match149939149940_ - (lambda (_e136283136311_ - _hd136282136314_ - _tl136281136316_ - _e136286136319_ - _hd136285136322_ - _tl136284136324_ - _e136289136327_ - _hd136288136330_ - _tl136287136332_ - _e136292136335_ - _hd136291136338_ - _tl136290136340_ - ___splice149722149723_ - _target136293136343_ - _tl136295136345_) - (letrec ((_loop136296136348_ - (lambda (_hd136294136351_ - _arg136300136353_) + (cons '%#call __tmp150813)))) + (___kont149982149983_ + (lambda (_L136629_ _L136630_) _expr136446_))) + (let* ((___match150201150202_ + (lambda (_e136545136573_ + _hd136544136576_ + _tl136543136578_ + _e136548136581_ + _hd136547136584_ + _tl136546136586_ + _e136551136589_ + _hd136550136592_ + _tl136549136594_ + _e136554136597_ + _hd136553136600_ + _tl136552136602_ + ___splice149984149985_ + _target136555136605_ + _tl136557136607_) + (letrec ((_loop136558136610_ + (lambda (_hd136556136613_ + _arg136562136615_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136294136351_)) - (let ((_e136297136356_ + _hd136556136613_)) + (let ((_e136559136618_ (let () (declare (not safe)) (gx#stx-e - _hd136294136351_)))) - (let ((_lp-tl136299136361_ + _hd136556136613_)))) + (let ((_lp-tl136561136623_ (let () (declare (not safe)) - (##cdr _e136297136356_))) - (_lp-hd136298136359_ + (##cdr _e136559136618_))) + (_lp-hd136560136621_ (let () (declare (not safe)) - (##car _e136297136356_)))) - (let ((__tmp150555 + (##car _e136559136618_)))) + (let ((__tmp150817 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd136298136359_ _arg136300136353_)))) + (cons _lp-hd136560136621_ _arg136562136615_)))) (declare (not safe)) - (_loop136296136348_ _lp-tl136299136361_ __tmp150555)))) + (_loop136558136610_ _lp-tl136561136623_ __tmp150817)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg136301136364_ - (reverse _arg136300136353_))) - (___kont149720149721_ - _arg136301136364_ - _hd136291136338_)))))) + (let ((_arg136563136626_ + (reverse _arg136562136615_))) + (___kont149982149983_ + _arg136563136626_ + _hd136553136600_)))))) (let () (declare (not safe)) - (_loop136296136348_ - _target136293136343_ + (_loop136558136610_ + _target136555136605_ '()))))) - (___match149897149898_ - (lambda (_e136266136394_ - _hd136265136397_ - _tl136264136399_ - _e136269136402_ - _hd136268136405_ - _tl136267136407_ - _e136272136410_ - _hd136271136413_ - _tl136270136415_ - _e136275136418_ - _hd136274136421_ - _tl136273136423_ - _e136278136426_ - _hd136277136429_ - _tl136276136431_) - (let ((_L136434_ _hd136274136421_)) + (___match150159150160_ + (lambda (_e136528136656_ + _hd136527136659_ + _tl136526136661_ + _e136531136664_ + _hd136530136667_ + _tl136529136669_ + _e136534136672_ + _hd136533136675_ + _tl136532136677_ + _e136537136680_ + _hd136536136683_ + _tl136535136685_ + _e136540136688_ + _hd136539136691_ + _tl136538136693_) + (let ((_L136696_ _hd136536136683_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L136434_ - _negation136064_)) - (___kont149718149719_ _L136434_) + _L136696_ + _negation136326_)) + (___kont149980149981_ _L136696_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl136267136407_)) - (let ((___splice149722149723_ + _tl136529136669_)) + (let ((___splice149984149985_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl136267136407_ + _tl136529136669_ '0)))) - (let ((_tl136295136345_ + (let ((_tl136557136607_ (let () (declare (not safe)) (##vector-ref - ___splice149722149723_ + ___splice149984149985_ '1))) - (_target136293136343_ + (_target136555136605_ (let () (declare (not safe)) (##vector-ref - ___splice149722149723_ + ___splice149984149985_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136295136345_)) - (___match149939149940_ - _e136266136394_ - _hd136265136397_ - _tl136264136399_ - _e136269136402_ - _hd136268136405_ - _tl136267136407_ - _e136272136410_ - _hd136271136413_ - _tl136270136415_ - _e136275136418_ - _hd136274136421_ - _tl136273136423_ - ___splice149722149723_ - _target136293136343_ - _tl136295136345_) + _tl136557136607_)) + (___match150201150202_ + _e136528136656_ + _hd136527136659_ + _tl136526136661_ + _e136531136664_ + _hd136530136667_ + _tl136529136669_ + _e136534136672_ + _hd136533136675_ + _tl136532136677_ + _e136537136680_ + _hd136536136683_ + _tl136535136685_ + ___splice149984149985_ + _target136555136605_ + _tl136557136607_) (let () (declare (not safe)) - (_g136191136306_))))) + (_g136453136568_))))) (let () (declare (not safe)) - (_g136191136306_))))))) - (___match149855149856_ - (lambda (_e136247136456_ - _hd136246136459_ - _tl136245136461_ - _e136250136464_ - _hd136249136467_ - _tl136248136469_ - ___splice149716149717_ - _target136251136472_ - _tl136253136474_) - (letrec ((_loop136254136477_ - (lambda (_hd136252136480_ - _id136258136482_) + (_g136453136568_))))))) + (___match150117150118_ + (lambda (_e136509136718_ + _hd136508136721_ + _tl136507136723_ + _e136512136726_ + _hd136511136729_ + _tl136510136731_ + ___splice149978149979_ + _target136513136734_ + _tl136515136736_) + (letrec ((_loop136516136739_ + (lambda (_hd136514136742_ + _id136520136744_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136252136480_)) - (let ((_e136255136485_ + _hd136514136742_)) + (let ((_e136517136747_ (let () (declare (not safe)) (gx#stx-e - _hd136252136480_)))) - (let ((_lp-tl136257136490_ + _hd136514136742_)))) + (let ((_lp-tl136519136752_ (let () (declare (not safe)) - (##cdr _e136255136485_))) - (_lp-hd136256136488_ + (##cdr _e136517136747_))) + (_lp-hd136518136750_ (let () (declare (not safe)) - (##car _e136255136485_)))) - (let ((__tmp150556 + (##car _e136517136747_)))) + (let ((__tmp150818 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd136256136488_ _id136258136482_)))) + (cons _lp-hd136518136750_ _id136520136744_)))) (declare (not safe)) - (_loop136254136477_ _lp-tl136257136490_ __tmp150556)))) + (_loop136516136739_ _lp-tl136519136752_ __tmp150818)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id136259136493_ - (reverse _id136258136482_))) + (let ((_id136521136755_ + (reverse _id136520136744_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136248136469_)) - (let ((_e136262136496_ + _tl136510136731_)) + (let ((_e136524136758_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl136248136469_)))) - (let ((_tl136260136501_ - (let () (declare (not safe)) (##cdr _e136262136496_))) - (_hd136261136499_ + (gx#stx-e _tl136510136731_)))) + (let ((_tl136522136763_ + (let () (declare (not safe)) (##cdr _e136524136758_))) + (_hd136523136761_ (let () (declare (not safe)) - (##car _e136262136496_)))) + (##car _e136524136758_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136260136501_)) - (___kont149714149715_ - _hd136261136499_ - _id136259136493_) - (let () (declare (not safe)) (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_)))))))) + (gx#stx-null? _tl136522136763_)) + (___kont149976149977_ + _hd136523136761_ + _id136521136755_) + (let () (declare (not safe)) (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop136254136477_ - _target136251136472_ + (_loop136516136739_ + _target136513136734_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149706149707_)) - (let ((_e136198136665_ + (gx#stx-pair? ___stx149968149969_)) + (let ((_e136460136927_ (let () (declare (not safe)) - (gx#stx-e ___stx149706149707_)))) - (let ((_tl136196136670_ + (gx#stx-e ___stx149968149969_)))) + (let ((_tl136458136932_ (let () (declare (not safe)) - (##cdr _e136198136665_))) - (_hd136197136668_ + (##cdr _e136460136927_))) + (_hd136459136930_ (let () (declare (not safe)) - (##car _e136198136665_)))) + (##car _e136460136927_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136197136668_)) + (gx#identifier? _hd136459136930_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd136197136668_)) + _hd136459136930_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136196136670_)) - (let ((_e136201136673_ + _tl136458136932_)) + (let ((_e136463136935_ (let () (declare (not safe)) (gx#stx-e - _tl136196136670_)))) - (let ((_tl136199136678_ + _tl136458136932_)))) + (let ((_tl136461136940_ (let () (declare (not safe)) - (##cdr _e136201136673_))) - (_hd136200136676_ + (##cdr _e136463136935_))) + (_hd136462136938_ (let () (declare (not safe)) - (##car _e136201136673_)))) + (##car _e136463136935_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136199136678_)) - (let ((_e136204136681_ + _tl136461136940_)) + (let ((_e136466136943_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl136199136678_)))) - (let ((_tl136202136686_ - (let () (declare (not safe)) (##cdr _e136204136681_))) - (_hd136203136684_ - (let () (declare (not safe)) (##car _e136204136681_)))) + (gx#stx-e _tl136461136940_)))) + (let ((_tl136464136948_ + (let () (declare (not safe)) (##cdr _e136466136943_))) + (_hd136465136946_ + (let () (declare (not safe)) (##car _e136466136943_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136202136686_)) - (let ((_e136207136689_ + (gx#stx-pair? _tl136464136948_)) + (let ((_e136469136951_ (let () (declare (not safe)) - (gx#stx-e _tl136202136686_)))) - (let ((_tl136205136694_ + (gx#stx-e _tl136464136948_)))) + (let ((_tl136467136956_ (let () (declare (not safe)) - (##cdr _e136207136689_))) - (_hd136206136692_ + (##cdr _e136469136951_))) + (_hd136468136954_ (let () (declare (not safe)) - (##car _e136207136689_)))) + (##car _e136469136951_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136205136694_)) - (___kont149708149709_ - _hd136206136692_ - _hd136203136684_ - _hd136200136676_) + (gx#stx-null? _tl136467136956_)) + (___kont149970149971_ + _hd136468136954_ + _hd136465136946_ + _hd136462136938_) (let () (declare (not safe)) - (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))))) + (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136191136306_))) + (_g136453136568_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd136197136668_)) + _hd136459136930_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136196136670_)) - (let ((_e136215136629_ + _tl136458136932_)) + (let ((_e136477136891_ (let () (declare (not safe)) (gx#stx-e - _tl136196136670_)))) - (let ((_tl136213136634_ + _tl136458136932_)))) + (let ((_tl136475136896_ (let () (declare (not safe)) - (##cdr _e136215136629_))) - (_hd136214136632_ + (##cdr _e136477136891_))) + (_hd136476136894_ (let () (declare (not safe)) - (##car _e136215136629_)))) + (##car _e136477136891_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136213136634_)) - (let ((_e136218136637_ + _tl136475136896_)) + (let ((_e136480136899_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136213136634_)))) - (let ((_tl136216136642_ + (gx#stx-e _tl136475136896_)))) + (let ((_tl136478136904_ (let () (declare (not safe)) - (##cdr _e136218136637_))) - (_hd136217136640_ + (##cdr _e136480136899_))) + (_hd136479136902_ (let () (declare (not safe)) - (##car _e136218136637_)))) + (##car _e136480136899_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136216136642_)) - (___kont149710149711_ - _hd136217136640_ - _hd136214136632_) - (let () (declare (not safe)) (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))))) + (gx#stx-null? _tl136478136904_)) + (___kont149972149973_ + _hd136479136902_ + _hd136476136894_) + (let () (declare (not safe)) (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136191136306_))) + (_g136453136568_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd136197136668_)) + _hd136459136930_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136196136670_)) - (let ((_e136227136543_ + _tl136458136932_)) + (let ((_e136489136805_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl136196136670_)))) - (let ((_tl136225136548_ - (let () (declare (not safe)) (##cdr _e136227136543_))) - (_hd136226136546_ - (let () (declare (not safe)) (##car _e136227136543_)))) + (gx#stx-e _tl136458136932_)))) + (let ((_tl136487136810_ + (let () (declare (not safe)) (##cdr _e136489136805_))) + (_hd136488136808_ + (let () (declare (not safe)) (##car _e136489136805_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136226136546_)) - (let ((_e136230136551_ + (gx#stx-pair? _hd136488136808_)) + (let ((_e136492136813_ (let () (declare (not safe)) - (gx#stx-e _hd136226136546_)))) - (let ((_tl136228136556_ + (gx#stx-e _hd136488136808_)))) + (let ((_tl136490136818_ (let () (declare (not safe)) - (##cdr _e136230136551_))) - (_hd136229136554_ + (##cdr _e136492136813_))) + (_hd136491136816_ (let () (declare (not safe)) - (##car _e136230136551_)))) + (##car _e136492136813_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136229136554_)) - (let ((_e136233136559_ + (gx#stx-pair? _hd136491136816_)) + (let ((_e136495136821_ (let () (declare (not safe)) - (gx#stx-e _hd136229136554_)))) - (let ((_tl136231136564_ + (gx#stx-e _hd136491136816_)))) + (let ((_tl136493136826_ (let () (declare (not safe)) - (##cdr _e136233136559_))) - (_hd136232136562_ + (##cdr _e136495136821_))) + (_hd136494136824_ (let () (declare (not safe)) - (##car _e136233136559_)))) + (##car _e136495136821_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136232136562_)) - (let ((_e136236136567_ + (gx#stx-pair? _hd136494136824_)) + (let ((_e136498136829_ (let () (declare (not safe)) - (gx#stx-e _hd136232136562_)))) - (let ((_tl136234136572_ + (gx#stx-e _hd136494136824_)))) + (let ((_tl136496136834_ (let () (declare (not safe)) - (##cdr _e136236136567_))) - (_hd136235136570_ + (##cdr _e136498136829_))) + (_hd136497136832_ (let () (declare (not safe)) - (##car _e136236136567_)))) + (##car _e136498136829_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136234136572_)) + _tl136496136834_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136231136564_)) - (let ((_e136239136575_ + _tl136493136826_)) + (let ((_e136501136837_ (let () (declare (not safe)) (gx#stx-e - _tl136231136564_)))) - (let ((_tl136237136580_ + _tl136493136826_)))) + (let ((_tl136499136842_ (let () (declare (not safe)) - (##cdr _e136239136575_))) - (_hd136238136578_ + (##cdr _e136501136837_))) + (_hd136500136840_ (let () (declare (not safe)) - (##car _e136239136575_)))) + (##car _e136501136837_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136237136580_)) + _tl136499136842_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl136228136556_)) + (gx#stx-null? _tl136490136818_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136225136548_)) - (let ((_e136242136583_ + (gx#stx-pair? _tl136487136810_)) + (let ((_e136504136845_ (let () (declare (not safe)) - (gx#stx-e _tl136225136548_)))) - (let ((_tl136240136588_ + (gx#stx-e _tl136487136810_)))) + (let ((_tl136502136850_ (let () (declare (not safe)) - (##cdr _e136242136583_))) - (_hd136241136586_ + (##cdr _e136504136845_))) + (_hd136503136848_ (let () (declare (not safe)) - (##car _e136242136583_)))) + (##car _e136504136845_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136240136588_)) - (___kont149712149713_ - _hd136241136586_ - _hd136238136578_ - _hd136235136570_) + (gx#stx-null? _tl136502136850_)) + (___kont149974149975_ + _hd136503136848_ + _hd136500136840_ + _hd136497136832_) (let () (declare (not safe)) - (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))) - (let () (declare (not safe)) (_g136191136306_))) - (let () (declare (not safe)) (_g136191136306_))))) + (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))) + (let () (declare (not safe)) (_g136453136568_))) + (let () (declare (not safe)) (_g136453136568_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136191136306_))) + (_g136453136568_))) (let () (declare (not safe)) - (_g136191136306_))))) + (_g136453136568_))))) (let () (declare (not safe)) - (_g136191136306_))))) + (_g136453136568_))))) (let () (declare (not safe)) - (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))) + (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136197136668_)) + _hd136459136930_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136196136670_)) - (let ((_e136250136464_ + _tl136458136932_)) + (let ((_e136512136726_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136196136670_)))) - (let ((_tl136248136469_ + (gx#stx-e _tl136458136932_)))) + (let ((_tl136510136731_ (let () (declare (not safe)) - (##cdr _e136250136464_))) - (_hd136249136467_ + (##cdr _e136512136726_))) + (_hd136511136729_ (let () (declare (not safe)) - (##car _e136250136464_)))) + (##car _e136512136726_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd136249136467_)) - (let ((___splice149716149717_ + (gx#stx-pair/null? _hd136511136729_)) + (let ((___splice149978149979_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd136249136467_ + _hd136511136729_ '0)))) - (let ((_tl136253136474_ + (let ((_tl136515136736_ (let () (declare (not safe)) - (##vector-ref ___splice149716149717_ '1))) - (_target136251136472_ + (##vector-ref ___splice149978149979_ '1))) + (_target136513136734_ (let () (declare (not safe)) (##vector-ref - ___splice149716149717_ + ___splice149978149979_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136253136474_)) - (___match149855149856_ - _e136198136665_ - _hd136197136668_ - _tl136196136670_ - _e136250136464_ - _hd136249136467_ - _tl136248136469_ - ___splice149716149717_ - _target136251136472_ - _tl136253136474_) + (gx#stx-null? _tl136515136736_)) + (___match150117150118_ + _e136460136927_ + _hd136459136930_ + _tl136458136932_ + _e136512136726_ + _hd136511136729_ + _tl136510136731_ + ___splice149978149979_ + _target136513136734_ + _tl136515136736_) (let () (declare (not safe)) - (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))) + (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd136197136668_)) + (gx#stx-eq? '%#call _hd136459136930_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136196136670_)) - (let ((_e136269136402_ + (gx#stx-pair? _tl136458136932_)) + (let ((_e136531136664_ (let () (declare (not safe)) - (gx#stx-e _tl136196136670_)))) - (let ((_tl136267136407_ + (gx#stx-e _tl136458136932_)))) + (let ((_tl136529136669_ (let () (declare (not safe)) - (##cdr _e136269136402_))) - (_hd136268136405_ + (##cdr _e136531136664_))) + (_hd136530136667_ (let () (declare (not safe)) - (##car _e136269136402_)))) + (##car _e136531136664_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136268136405_)) - (let ((_e136272136410_ + (gx#stx-pair? _hd136530136667_)) + (let ((_e136534136672_ (let () (declare (not safe)) - (gx#stx-e _hd136268136405_)))) - (let ((_tl136270136415_ + (gx#stx-e _hd136530136667_)))) + (let ((_tl136532136677_ (let () (declare (not safe)) - (##cdr _e136272136410_))) - (_hd136271136413_ + (##cdr _e136534136672_))) + (_hd136533136675_ (let () (declare (not safe)) - (##car _e136272136410_)))) + (##car _e136534136672_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136271136413_)) + (gx#identifier? _hd136533136675_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd136271136413_)) + _hd136533136675_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136270136415_)) - (let ((_e136275136418_ + _tl136532136677_)) + (let ((_e136537136680_ (let () (declare (not safe)) (gx#stx-e - _tl136270136415_)))) - (let ((_tl136273136423_ + _tl136532136677_)))) + (let ((_tl136535136685_ (let () (declare (not safe)) - (##cdr _e136275136418_))) - (_hd136274136421_ + (##cdr _e136537136680_))) + (_hd136536136683_ (let () (declare (not safe)) - (##car _e136275136418_)))) + (##car _e136537136680_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136273136423_)) + _tl136535136685_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136267136407_)) - (let ((_e136278136426_ + _tl136529136669_)) + (let ((_e136540136688_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136267136407_)))) - (let ((_tl136276136431_ + (gx#stx-e _tl136529136669_)))) + (let ((_tl136538136693_ (let () (declare (not safe)) - (##cdr _e136278136426_))) - (_hd136277136429_ + (##cdr _e136540136688_))) + (_hd136539136691_ (let () (declare (not safe)) - (##car _e136278136426_)))) + (##car _e136540136688_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136276136431_)) - (___match149897149898_ - _e136198136665_ - _hd136197136668_ - _tl136196136670_ - _e136269136402_ - _hd136268136405_ - _tl136267136407_ - _e136272136410_ - _hd136271136413_ - _tl136270136415_ - _e136275136418_ - _hd136274136421_ - _tl136273136423_ - _e136278136426_ - _hd136277136429_ - _tl136276136431_) + (gx#stx-null? _tl136538136693_)) + (___match150159150160_ + _e136460136927_ + _hd136459136930_ + _tl136458136932_ + _e136531136664_ + _hd136530136667_ + _tl136529136669_ + _e136534136672_ + _hd136533136675_ + _tl136532136677_ + _e136537136680_ + _hd136536136683_ + _tl136535136685_ + _e136540136688_ + _hd136539136691_ + _tl136538136693_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl136267136407_)) - (let ((___splice149722149723_ + (gx#stx-pair/null? _tl136529136669_)) + (let ((___splice149984149985_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl136267136407_ + _tl136529136669_ '0)))) - (let ((_tl136295136345_ + (let ((_tl136557136607_ (let () (declare (not safe)) (##vector-ref - ___splice149722149723_ + ___splice149984149985_ '1))) - (_target136293136343_ + (_target136555136605_ (let () (declare (not safe)) (##vector-ref - ___splice149722149723_ + ___splice149984149985_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136295136345_)) - (___match149939149940_ - _e136198136665_ - _hd136197136668_ - _tl136196136670_ - _e136269136402_ - _hd136268136405_ - _tl136267136407_ - _e136272136410_ - _hd136271136413_ - _tl136270136415_ - _e136275136418_ - _hd136274136421_ - _tl136273136423_ - ___splice149722149723_ - _target136293136343_ - _tl136295136345_) + (gx#stx-null? _tl136557136607_)) + (___match150201150202_ + _e136460136927_ + _hd136459136930_ + _tl136458136932_ + _e136531136664_ + _hd136530136667_ + _tl136529136669_ + _e136534136672_ + _hd136533136675_ + _tl136532136677_ + _e136537136680_ + _hd136536136683_ + _tl136535136685_ + ___splice149984149985_ + _target136555136605_ + _tl136557136607_) (let () (declare (not safe)) - (_g136191136306_))))) + (_g136453136568_))))) (let () (declare (not safe)) - (_g136191136306_)))))) + (_g136453136568_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl136267136407_)) - (let ((___splice149722149723_ + (gx#stx-pair/null? _tl136529136669_)) + (let ((___splice149984149985_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl136267136407_ '0)))) - (let ((_tl136295136345_ + (gx#syntax-split-splice _tl136529136669_ '0)))) + (let ((_tl136557136607_ (let () (declare (not safe)) - (##vector-ref ___splice149722149723_ '1))) - (_target136293136343_ + (##vector-ref ___splice149984149985_ '1))) + (_target136555136605_ (let () (declare (not safe)) - (##vector-ref ___splice149722149723_ '0)))) + (##vector-ref ___splice149984149985_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136295136345_)) - (___match149939149940_ - _e136198136665_ - _hd136197136668_ - _tl136196136670_ - _e136269136402_ - _hd136268136405_ - _tl136267136407_ - _e136272136410_ - _hd136271136413_ - _tl136270136415_ - _e136275136418_ - _hd136274136421_ - _tl136273136423_ - ___splice149722149723_ - _target136293136343_ - _tl136295136345_) + (gx#stx-null? _tl136557136607_)) + (___match150201150202_ + _e136460136927_ + _hd136459136930_ + _tl136458136932_ + _e136531136664_ + _hd136530136667_ + _tl136529136669_ + _e136534136672_ + _hd136533136675_ + _tl136532136677_ + _e136537136680_ + _hd136536136683_ + _tl136535136685_ + ___splice149984149985_ + _target136555136605_ + _tl136557136607_) (let () (declare (not safe)) - (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_)))) - (let () (declare (not safe)) (_g136191136306_))))) + (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_)))) + (let () (declare (not safe)) (_g136453136568_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136191136306_))) + (_g136453136568_))) (let () (declare (not safe)) - (_g136191136306_))) + (_g136453136568_))) (let () (declare (not safe)) - (_g136191136306_))))) + (_g136453136568_))))) (let () (declare (not safe)) - (_g136191136306_))))) - (let () (declare (not safe)) (_g136191136306_))) - (let () (declare (not safe)) (_g136191136306_))))))) + (_g136453136568_))))) + (let () (declare (not safe)) (_g136453136568_))) + (let () (declare (not safe)) (_g136453136568_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136191136306_))))) + (_g136453136568_))))) (let () (declare (not safe)) - (_g136191136306_))))))))) - (let* ((_clause136068136075_ _clause136063_) - (_E136070136079_ + (_g136453136568_))))))))) + (let* ((_clause136330136337_ _clause136325_) + (_E136332136341_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause136068136075_)))) - (_K136071136172_ - (lambda (_kont136082_ _id136083_) - (let* ((_g136085136105_ - (lambda (_g136086136102_) + (error '"No clause matching" _clause136330136337_)))) + (_K136333136434_ + (lambda (_kont136344_ _id136345_) + (let* ((_g136347136367_ + (lambda (_g136348136364_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136086136102_)))) - (_g136084136169_ - (lambda (_g136086136108_) + _g136348136364_)))) + (_g136346136431_ + (lambda (_g136348136370_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136086136108_)) - (let ((_e136091136110_ + (gx#stx-pair? _g136348136370_)) + (let ((_e136353136372_ (let () (declare (not safe)) - (gx#stx-e _g136086136108_)))) - (let ((_hd136090136113_ + (gx#stx-e _g136348136370_)))) + (let ((_hd136352136375_ (let () (declare (not safe)) - (##car _e136091136110_))) - (_tl136089136115_ + (##car _e136353136372_))) + (_tl136351136377_ (let () (declare (not safe)) - (##cdr _e136091136110_)))) + (##cdr _e136353136372_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136090136113_)) + (gx#identifier? _hd136352136375_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136090136113_)) + _hd136352136375_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136089136115_)) - (let ((_e136094136118_ + _tl136351136377_)) + (let ((_e136356136380_ (let () (declare (not safe)) (gx#stx-e - _tl136089136115_)))) - (let ((_hd136093136121_ + _tl136351136377_)))) + (let ((_hd136355136383_ (let () (declare (not safe)) - (##car _e136094136118_))) - (_tl136092136123_ + (##car _e136356136380_))) + (_tl136354136385_ (let () (declare (not safe)) - (##cdr _e136094136118_)))) + (##cdr _e136356136380_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136093136121_)) - (let ((_e136097136126_ + _hd136355136383_)) + (let ((_e136359136388_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd136093136121_)))) - (let ((_hd136096136129_ + (gx#stx-e _hd136355136383_)))) + (let ((_hd136358136391_ (let () (declare (not safe)) - (##car _e136097136126_))) - (_tl136095136131_ + (##car _e136359136388_))) + (_tl136357136393_ (let () (declare (not safe)) - (##cdr _e136097136126_)))) + (##cdr _e136359136388_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136095136131_)) + (gx#stx-null? _tl136357136393_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136092136123_)) - (let ((_e136100136134_ + (gx#stx-pair? _tl136354136385_)) + (let ((_e136362136396_ (let () (declare (not safe)) - (gx#stx-e _tl136092136123_)))) - (let ((_hd136099136137_ + (gx#stx-e _tl136354136385_)))) + (let ((_hd136361136399_ (let () (declare (not safe)) - (##car _e136100136134_))) - (_tl136098136139_ + (##car _e136362136396_))) + (_tl136360136401_ (let () (declare (not safe)) - (##cdr _e136100136134_)))) + (##cdr _e136362136396_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136098136139_)) - ((lambda (_L136142_ _L136143_) - (let* ((_body136164_ + (gx#stx-null? _tl136360136401_)) + ((lambda (_L136404_ _L136405_) + (let* ((_body136426_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L136142_ - _L136143_ - _target136065_))) - (_body136166_ - (if _negation136064_ + _L136404_ + _L136405_ + _target136327_))) + (_body136428_ + (if _negation136326_ (let () (declare (not safe)) - (_closure-e136067_ - _body136164_)) - _body136164_))) - (let ((__tmp150558 + (_closure-e136329_ + _body136426_)) + _body136426_))) + (let ((__tmp150820 (let () (declare (not safe)) (gxc#identifier-symbol - _id136083_))) - (__tmp150557 - (let ((__obj149991 + _id136345_))) + (__tmp150819 + (let ((__obj150253 (let () (declare (not safe)) (##structure @@ -18458,641 +18458,641 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj149991 + __obj150253 'lambda '0 '#f) - __obj149991))) + __obj150253))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp150558 - __tmp150557 + __tmp150820 + __tmp150819 '#t)) - (let ((__tmp150559 - (let ((__tmp150560 - (let ((__tmp150561 + (let ((__tmp150821 + (let ((__tmp150822 + (let ((__tmp150823 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body136166_ '())))) + (cons _body136428_ '())))) (declare (not safe)) - (cons '() __tmp150561)))) + (cons '() __tmp150823)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp150560)))) + __tmp150822)))) (declare (not safe)) - (cons _id136083_ __tmp150559)))) - _hd136099136137_ - _hd136096136129_) + (cons _id136345_ __tmp150821)))) + _hd136361136399_ + _hd136358136391_) (let () (declare (not safe)) - (_g136085136105_ _g136086136108_))))) + (_g136347136367_ _g136348136370_))))) (let () (declare (not safe)) - (_g136085136105_ _g136086136108_))) + (_g136347136367_ _g136348136370_))) (let () (declare (not safe)) - (_g136085136105_ _g136086136108_))))) + (_g136347136367_ _g136348136370_))))) (let () (declare (not safe)) - (_g136085136105_ _g136086136108_))))) + (_g136347136367_ _g136348136370_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136085136105_ - _g136086136108_))) + (_g136347136367_ + _g136348136370_))) (let () (declare (not safe)) - (_g136085136105_ - _g136086136108_))) + (_g136347136367_ + _g136348136370_))) (let () (declare (not safe)) - (_g136085136105_ - _g136086136108_))))) + (_g136347136367_ + _g136348136370_))))) (let () (declare (not safe)) - (_g136085136105_ _g136086136108_)))))) + (_g136347136367_ _g136348136370_)))))) (declare (not safe)) - (_g136084136169_ _kont136082_))))) - (if (let () (declare (not safe)) (##pair? _clause136068136075_)) - (let ((_hd136072136175_ + (_g136346136431_ _kont136344_))))) + (if (let () (declare (not safe)) (##pair? _clause136330136337_)) + (let ((_hd136334136437_ (let () (declare (not safe)) - (##car _clause136068136075_))) - (_tl136073136177_ + (##car _clause136330136337_))) + (_tl136335136439_ (let () (declare (not safe)) - (##cdr _clause136068136075_)))) - (let* ((_id136180_ _hd136072136175_) - (_kont136182_ _tl136073136177_)) + (##cdr _clause136330136337_)))) + (let* ((_id136442_ _hd136334136437_) + (_kont136444_ _tl136335136439_)) (declare (not safe)) - (_K136071136172_ _kont136182_ _id136180_))) - (let () (declare (not safe)) (_E136070136079_))))))) + (_K136333136434_ _kont136444_ _id136442_))) + (let () (declare (not safe)) (_E136332136341_))))))) (define gxc#push-match-vars-let-values% - (lambda (_stx135849_ _vars135850_ _K135851_) - (let* ((_g135853135870_ - (lambda (_g135854135867_) + (lambda (_stx136111_ _vars136112_ _K136113_) + (let* ((_g136115136132_ + (lambda (_g136116136129_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135854135867_)))) - (_g135852136060_ - (lambda (_g135854135873_) + _g136116136129_)))) + (_g136114136322_ + (lambda (_g136116136135_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135854135873_)) - (let ((_e135859135875_ + (gx#stx-pair? _g136116136135_)) + (let ((_e136121136137_ (let () (declare (not safe)) - (gx#stx-e _g135854135873_)))) - (let ((_hd135858135878_ + (gx#stx-e _g136116136135_)))) + (let ((_hd136120136140_ (let () (declare (not safe)) - (##car _e135859135875_))) - (_tl135857135880_ + (##car _e136121136137_))) + (_tl136119136142_ (let () (declare (not safe)) - (##cdr _e135859135875_)))) + (##cdr _e136121136137_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135857135880_)) - (let ((_e135862135883_ + (gx#stx-pair? _tl136119136142_)) + (let ((_e136124136145_ (let () (declare (not safe)) - (gx#stx-e _tl135857135880_)))) - (let ((_hd135861135886_ + (gx#stx-e _tl136119136142_)))) + (let ((_hd136123136148_ (let () (declare (not safe)) - (##car _e135862135883_))) - (_tl135860135888_ + (##car _e136124136145_))) + (_tl136122136150_ (let () (declare (not safe)) - (##cdr _e135862135883_)))) + (##cdr _e136124136145_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135860135888_)) - (let ((_e135865135891_ + (gx#stx-pair? _tl136122136150_)) + (let ((_e136127136153_ (let () (declare (not safe)) - (gx#stx-e _tl135860135888_)))) - (let ((_hd135864135894_ + (gx#stx-e _tl136122136150_)))) + (let ((_hd136126136156_ (let () (declare (not safe)) - (##car _e135865135891_))) - (_tl135863135896_ + (##car _e136127136153_))) + (_tl136125136158_ (let () (declare (not safe)) - (##cdr _e135865135891_)))) + (##cdr _e136127136153_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135863135896_)) - ((lambda (_L135899_ _L135900_) - (let _lp135915_ ((_rest135917_ + _tl136125136158_)) + ((lambda (_L136161_ _L136162_) + (let _lp136177_ ((_rest136179_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L135900_) - (_rebind135918_ '()) - (_vars135919_ _vars135850_)) + _L136162_) + (_rebind136180_ '()) + (_vars136181_ _vars136112_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest135920135928_ - _rest135917_) - (_else135922135936_ + (let* ((_rest136182136190_ + _rest136179_) + (_else136184136198_ (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _rebind135918_)) + (null? _rebind136180_)) (let () (declare (not safe)) - (gxc#compile-e__2 _L135899_ _vars135919_ _K135851_)) - (let ((__tmp150562 - (let ((__tmp150563 - (let ((__tmp150566 - (reverse _rebind135918_)) - (__tmp150564 - (let ((__tmp150565 + (gxc#compile-e__2 _L136161_ _vars136181_ _K136113_)) + (let ((__tmp150824 + (let ((__tmp150825 + (let ((__tmp150828 + (reverse _rebind136180_)) + (__tmp150826 + (let ((__tmp150827 (let () (declare (not safe)) (gxc#compile-e__2 - _L135899_ - _vars135919_ - _K135851_)))) + _L136161_ + _vars136181_ + _K136113_)))) (declare (not safe)) - (cons __tmp150565 '())))) + (cons __tmp150827 '())))) (declare (not safe)) - (cons __tmp150566 __tmp150564)))) + (cons __tmp150828 __tmp150826)))) (declare (not safe)) - (cons '%#let-values __tmp150563)))) + (cons '%#let-values __tmp150825)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150562 _stx135849_))))) - (_K135924136048_ - (lambda (_rest135939_ _bind135940_) - (let* ((___stx149942149943_ _bind135940_) - (_g135943135966_ + (gxc#xform-wrap-source __tmp150824 _stx136111_))))) + (_K136186136310_ + (lambda (_rest136201_ _bind136202_) + (let* ((___stx150204150205_ _bind136202_) + (_g136205136228_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149942149943_))))) - (let ((___kont149944149945_ - (lambda (_L136018_ _L136019_) - (let ((__tmp150567 + ___stx150204150205_))))) + (let ((___kont150206150207_ + (lambda (_L136280_ _L136281_) + (let ((__tmp150829 (let () (declare (not safe)) - (cons _bind135940_ _vars135919_)))) + (cons _bind136202_ _vars136181_)))) (declare (not safe)) - (_lp135915_ - _rest135939_ - _rebind135918_ - __tmp150567)))) - (___kont149946149947_ + (_lp136177_ + _rest136201_ + _rebind136180_ + __tmp150829)))) + (___kont150208150209_ (lambda () - (let ((__tmp150568 + (let ((__tmp150830 (let () (declare (not safe)) - (cons _bind135940_ _rebind135918_)))) + (cons _bind136202_ _rebind136180_)))) (declare (not safe)) - (_lp135915_ - _rest135939_ - __tmp150568 - _vars135919_))))) + (_lp136177_ + _rest136201_ + __tmp150830 + _vars136181_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149942149943_)) - (let ((_e135949135978_ + (gx#stx-pair? ___stx150204150205_)) + (let ((_e136211136240_ (let () (declare (not safe)) - (gx#stx-e ___stx149942149943_)))) - (let ((_tl135947135983_ + (gx#stx-e ___stx150204150205_)))) + (let ((_tl136209136245_ (let () (declare (not safe)) - (##cdr _e135949135978_))) - (_hd135948135981_ + (##cdr _e136211136240_))) + (_hd136210136243_ (let () (declare (not safe)) - (##car _e135949135978_)))) + (##car _e136211136240_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135948135981_)) - (let ((_e135952135986_ + (gx#stx-pair? _hd136210136243_)) + (let ((_e136214136248_ (let () (declare (not safe)) - (gx#stx-e _hd135948135981_)))) - (let ((_tl135950135991_ + (gx#stx-e _hd136210136243_)))) + (let ((_tl136212136253_ (let () (declare (not safe)) - (##cdr _e135952135986_))) - (_hd135951135989_ + (##cdr _e136214136248_))) + (_hd136213136251_ (let () (declare (not safe)) - (##car _e135952135986_)))) + (##car _e136214136248_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135950135991_)) + (gx#stx-null? _tl136212136253_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135947135983_)) - (let ((_e135955135994_ + _tl136209136245_)) + (let ((_e136217136256_ (let () (declare (not safe)) (gx#stx-e - _tl135947135983_)))) - (let ((_tl135953135999_ + _tl136209136245_)))) + (let ((_tl136215136261_ (let () (declare (not safe)) - (##cdr _e135955135994_))) - (_hd135954135997_ + (##cdr _e136217136256_))) + (_hd136216136259_ (let () (declare (not safe)) - (##car _e135955135994_)))) + (##car _e136217136256_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd135954135997_)) - (let ((_e135958136002_ + _hd136216136259_)) + (let ((_e136220136264_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd135954135997_)))) - (let ((_tl135956136007_ + (gx#stx-e _hd136216136259_)))) + (let ((_tl136218136269_ (let () (declare (not safe)) - (##cdr _e135958136002_))) - (_hd135957136005_ + (##cdr _e136220136264_))) + (_hd136219136267_ (let () (declare (not safe)) - (##car _e135958136002_)))) + (##car _e136220136264_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd135957136005_)) + (gx#identifier? _hd136219136267_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd135957136005_)) + (gx#stx-eq? '%#ref _hd136219136267_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135956136007_)) - (let ((_e135961136010_ + (gx#stx-pair? _tl136218136269_)) + (let ((_e136223136272_ (let () (declare (not safe)) - (gx#stx-e _tl135956136007_)))) - (let ((_tl135959136015_ + (gx#stx-e _tl136218136269_)))) + (let ((_tl136221136277_ (let () (declare (not safe)) - (##cdr _e135961136010_))) - (_hd135960136013_ + (##cdr _e136223136272_))) + (_hd136222136275_ (let () (declare (not safe)) - (##car _e135961136010_)))) + (##car _e136223136272_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135959136015_)) + (gx#stx-null? _tl136221136277_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl135953135999_)) - (___kont149944149945_ - _hd135960136013_ - _hd135951135989_) - (___kont149946149947_)) - (___kont149946149947_)))) - (___kont149946149947_)) - (___kont149946149947_)) - (___kont149946149947_)))) - (___kont149946149947_)))) + (gx#stx-null? _tl136215136261_)) + (___kont150206150207_ + _hd136222136275_ + _hd136213136251_) + (___kont150208150209_)) + (___kont150208150209_)))) + (___kont150208150209_)) + (___kont150208150209_)) + (___kont150208150209_)))) + (___kont150208150209_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149946149947_)) - (___kont149946149947_)))) - (___kont149946149947_)))) - (___kont149946149947_))))))) + (___kont150208150209_)) + (___kont150208150209_)))) + (___kont150208150209_)))) + (___kont150208150209_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest135920135928_)) - (let ((_hd135925136051_ + (##pair? _rest136182136190_)) + (let ((_hd136187136313_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest135920135928_))) - (_tl135926136053_ + (##car _rest136182136190_))) + (_tl136188136315_ (let () (declare (not safe)) - (##cdr _rest135920135928_)))) - (let* ((_bind136056_ _hd135925136051_) - (_rest136058_ _tl135926136053_)) + (##cdr _rest136182136190_)))) + (let* ((_bind136318_ _hd136187136313_) + (_rest136320_ _tl136188136315_)) (declare (not safe)) - (_K135924136048_ _rest136058_ _bind136056_))) - (let () (declare (not safe)) (_else135922135936_)))))) + (_K136186136310_ _rest136320_ _bind136318_))) + (let () (declare (not safe)) (_else136184136198_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd135864135894_ - _hd135861135886_) + _hd136126136156_ + _hd136123136148_) (let () (declare (not safe)) - (_g135853135870_ - _g135854135873_))))) + (_g136115136132_ + _g136116136135_))))) (let () (declare (not safe)) - (_g135853135870_ _g135854135873_))))) + (_g136115136132_ _g136116136135_))))) (let () (declare (not safe)) - (_g135853135870_ _g135854135873_))))) + (_g136115136132_ _g136116136135_))))) (let () (declare (not safe)) - (_g135853135870_ _g135854135873_)))))) + (_g136115136132_ _g136116136135_)))))) (declare (not safe)) - (_g135852136060_ _stx135849_)))) + (_g136114136322_ _stx136111_)))) (define gxc#push-match-vars-if% - (lambda (_stx135764_ _vars135765_ _K135766_) - (let* ((_g135768135789_ - (lambda (_g135769135786_) + (lambda (_stx136026_ _vars136027_ _K136028_) + (let* ((_g136030136051_ + (lambda (_g136031136048_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135769135786_)))) - (_g135767135846_ - (lambda (_g135769135792_) + _g136031136048_)))) + (_g136029136108_ + (lambda (_g136031136054_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135769135792_)) - (let ((_e135775135794_ + (gx#stx-pair? _g136031136054_)) + (let ((_e136037136056_ (let () (declare (not safe)) - (gx#stx-e _g135769135792_)))) - (let ((_hd135774135797_ + (gx#stx-e _g136031136054_)))) + (let ((_hd136036136059_ (let () (declare (not safe)) - (##car _e135775135794_))) - (_tl135773135799_ + (##car _e136037136056_))) + (_tl136035136061_ (let () (declare (not safe)) - (##cdr _e135775135794_)))) + (##cdr _e136037136056_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135773135799_)) - (let ((_e135778135802_ + (gx#stx-pair? _tl136035136061_)) + (let ((_e136040136064_ (let () (declare (not safe)) - (gx#stx-e _tl135773135799_)))) - (let ((_hd135777135805_ + (gx#stx-e _tl136035136061_)))) + (let ((_hd136039136067_ (let () (declare (not safe)) - (##car _e135778135802_))) - (_tl135776135807_ + (##car _e136040136064_))) + (_tl136038136069_ (let () (declare (not safe)) - (##cdr _e135778135802_)))) + (##cdr _e136040136064_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135776135807_)) - (let ((_e135781135810_ + (gx#stx-pair? _tl136038136069_)) + (let ((_e136043136072_ (let () (declare (not safe)) - (gx#stx-e _tl135776135807_)))) - (let ((_hd135780135813_ + (gx#stx-e _tl136038136069_)))) + (let ((_hd136042136075_ (let () (declare (not safe)) - (##car _e135781135810_))) - (_tl135779135815_ + (##car _e136043136072_))) + (_tl136041136077_ (let () (declare (not safe)) - (##cdr _e135781135810_)))) + (##cdr _e136043136072_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135779135815_)) - (let ((_e135784135818_ + _tl136041136077_)) + (let ((_e136046136080_ (let () (declare (not safe)) (gx#stx-e - _tl135779135815_)))) - (let ((_hd135783135821_ + _tl136041136077_)))) + (let ((_hd136045136083_ (let () (declare (not safe)) - (##car _e135784135818_))) - (_tl135782135823_ + (##car _e136046136080_))) + (_tl136044136085_ (let () (declare (not safe)) - (##cdr _e135784135818_)))) + (##cdr _e136046136080_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135782135823_)) - ((lambda (_L135826_ - _L135827_ - _L135828_) - (if (let ((__tmp150575 + _tl136044136085_)) + ((lambda (_L136088_ + _L136089_ + _L136090_) + (if (let ((__tmp150837 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _vars135765_))) + (map caar _vars136027_))) (declare (not safe)) - (gxc#apply-find-var-refs _L135828_ __tmp150575)) + (gxc#apply-find-var-refs _L136090_ __tmp150837)) (let () (declare (not safe)) (gxc#push-match-vars-stop - _stx135764_ - _vars135765_ - _K135766_)) - (let ((__tmp150569 - (let ((__tmp150570 - (let ((__tmp150571 - (let ((__tmp150574 + _stx136026_ + _vars136027_ + _K136028_)) + (let ((__tmp150831 + (let ((__tmp150832 + (let ((__tmp150833 + (let ((__tmp150836 (let () (declare (not safe)) (gxc#compile-e__2 - _L135827_ - _vars135765_ - _K135766_))) - (__tmp150572 - (let ((__tmp150573 + _L136089_ + _vars136027_ + _K136028_))) + (__tmp150834 + (let ((__tmp150835 (let () (declare (not safe)) (gxc#compile-e__2 - _L135826_ - _vars135765_ - _K135766_)))) + _L136088_ + _vars136027_ + _K136028_)))) (declare (not safe)) - (cons __tmp150573 '())))) + (cons __tmp150835 '())))) (declare (not safe)) - (cons __tmp150574 __tmp150572)))) + (cons __tmp150836 __tmp150834)))) (declare (not safe)) - (cons _L135828_ __tmp150571)))) + (cons _L136090_ __tmp150833)))) (declare (not safe)) - (cons '%#if __tmp150570)))) + (cons '%#if __tmp150832)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150569 _stx135764_)))) - _hd135783135821_ - _hd135780135813_ - _hd135777135805_) + (gxc#xform-wrap-source __tmp150831 _stx136026_)))) + _hd136045136083_ + _hd136042136075_ + _hd136039136067_) (let () (declare (not safe)) - (_g135768135789_ _g135769135792_))))) + (_g136030136051_ _g136031136054_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135768135789_ - _g135769135792_))))) + (_g136030136051_ + _g136031136054_))))) (let () (declare (not safe)) - (_g135768135789_ _g135769135792_))))) + (_g136030136051_ _g136031136054_))))) (let () (declare (not safe)) - (_g135768135789_ _g135769135792_))))) + (_g136030136051_ _g136031136054_))))) (let () (declare (not safe)) - (_g135768135789_ _g135769135792_)))))) + (_g136030136051_ _g136031136054_)))))) (declare (not safe)) - (_g135767135846_ _stx135764_)))) + (_g136029136108_ _stx136026_)))) (define gxc#push-match-vars-call% - (lambda (_stx135684_ _vars135685_ _K135686_) - (let* ((_g135688135707_ - (lambda (_g135689135704_) + (lambda (_stx135946_ _vars135947_ _K135948_) + (let* ((_g135950135969_ + (lambda (_g135951135966_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135689135704_)))) - (_g135687135761_ - (lambda (_g135689135710_) + _g135951135966_)))) + (_g135949136023_ + (lambda (_g135951135972_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135689135710_)) - (let ((_e135693135712_ + (gx#stx-pair? _g135951135972_)) + (let ((_e135955135974_ (let () (declare (not safe)) - (gx#stx-e _g135689135710_)))) - (let ((_hd135692135715_ + (gx#stx-e _g135951135972_)))) + (let ((_hd135954135977_ (let () (declare (not safe)) - (##car _e135693135712_))) - (_tl135691135717_ + (##car _e135955135974_))) + (_tl135953135979_ (let () (declare (not safe)) - (##cdr _e135693135712_)))) + (##cdr _e135955135974_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135691135717_)) - (let ((_e135696135720_ + (gx#stx-pair? _tl135953135979_)) + (let ((_e135958135982_ (let () (declare (not safe)) - (gx#stx-e _tl135691135717_)))) - (let ((_hd135695135723_ + (gx#stx-e _tl135953135979_)))) + (let ((_hd135957135985_ (let () (declare (not safe)) - (##car _e135696135720_))) - (_tl135694135725_ + (##car _e135958135982_))) + (_tl135956135987_ (let () (declare (not safe)) - (##cdr _e135696135720_)))) + (##cdr _e135958135982_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135695135723_)) - (let ((_e135699135728_ + (gx#stx-pair? _hd135957135985_)) + (let ((_e135961135990_ (let () (declare (not safe)) - (gx#stx-e _hd135695135723_)))) - (let ((_hd135698135731_ + (gx#stx-e _hd135957135985_)))) + (let ((_hd135960135993_ (let () (declare (not safe)) - (##car _e135699135728_))) - (_tl135697135733_ + (##car _e135961135990_))) + (_tl135959135995_ (let () (declare (not safe)) - (##cdr _e135699135728_)))) + (##cdr _e135961135990_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135698135731_)) + _hd135960135993_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135698135731_)) + _hd135960135993_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135697135733_)) - (let ((_e135702135736_ + _tl135959135995_)) + (let ((_e135964135998_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl135697135733_)))) - (let ((_hd135701135739_ - (let () (declare (not safe)) (##car _e135702135736_))) - (_tl135700135741_ - (let () (declare (not safe)) (##cdr _e135702135736_)))) + (gx#stx-e _tl135959135995_)))) + (let ((_hd135963136001_ + (let () (declare (not safe)) (##car _e135964135998_))) + (_tl135962136003_ + (let () (declare (not safe)) (##cdr _e135964135998_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135700135741_)) - ((lambda (_L135744_) + (gx#stx-null? _tl135962136003_)) + ((lambda (_L136006_) (if (and (let () (declare (not safe)) - (gx#free-identifier=? _L135744_ _K135686_)) + (gx#free-identifier=? _L136006_ _K135948_)) (let () (declare (not safe)) - (pair? _vars135685_))) - (let ((__tmp150576 - (let ((__tmp150577 - (let ((__tmp150579 - (reverse _vars135685_)) - (__tmp150578 + (pair? _vars135947_))) + (let ((__tmp150838 + (let ((__tmp150839 + (let ((__tmp150841 + (reverse _vars135947_)) + (__tmp150840 (let () (declare (not safe)) - (cons _stx135684_ '())))) + (cons _stx135946_ '())))) (declare (not safe)) - (cons __tmp150579 __tmp150578)))) + (cons __tmp150841 __tmp150840)))) (declare (not safe)) - (cons '%#let-values __tmp150577)))) + (cons '%#let-values __tmp150839)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150576 _stx135684_)) - _stx135684_)) - _hd135701135739_) + (gxc#xform-wrap-source __tmp150838 _stx135946_)) + _stx135946_)) + _hd135963136001_) (let () (declare (not safe)) - (_g135688135707_ _g135689135710_))))) - (let () (declare (not safe)) (_g135688135707_ _g135689135710_))) + (_g135950135969_ _g135951135972_))))) + (let () (declare (not safe)) (_g135950135969_ _g135951135972_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135688135707_ - _g135689135710_))) + (_g135950135969_ + _g135951135972_))) (let () (declare (not safe)) - (_g135688135707_ - _g135689135710_))))) + (_g135950135969_ + _g135951135972_))))) (let () (declare (not safe)) - (_g135688135707_ _g135689135710_))))) + (_g135950135969_ _g135951135972_))))) (let () (declare (not safe)) - (_g135688135707_ _g135689135710_))))) + (_g135950135969_ _g135951135972_))))) (let () (declare (not safe)) - (_g135688135707_ _g135689135710_)))))) + (_g135950135969_ _g135951135972_)))))) (declare (not safe)) - (_g135687135761_ _stx135684_)))) + (_g135949136023_ _stx135946_)))) (define gxc#push-match-vars-stop - (lambda (_stx135680_ _vars135681_ _K135682_) - (if (let () (declare (not safe)) (null? _vars135681_)) - _stx135680_ - (let ((__tmp150580 - (let ((__tmp150581 - (let ((__tmp150583 (reverse _vars135681_)) - (__tmp150582 + (lambda (_stx135942_ _vars135943_ _K135944_) + (if (let () (declare (not safe)) (null? _vars135943_)) + _stx135942_ + (let ((__tmp150842 + (let ((__tmp150843 + (let ((__tmp150845 (reverse _vars135943_)) + (__tmp150844 (let () (declare (not safe)) - (cons _stx135680_ '())))) + (cons _stx135942_ '())))) (declare (not safe)) - (cons __tmp150583 __tmp150582)))) + (cons __tmp150845 __tmp150844)))) (declare (not safe)) - (cons '%#let-values __tmp150581)))) + (cons '%#let-values __tmp150843)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150580 _stx135680_))))))) + (gxc#xform-wrap-source __tmp150842 _stx135942_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index 4065026b..2f092adf 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 1709375799) + (define gerbil/compiler/optimize-base::timestamp 1709457370) (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 ((__tmp114298 (list)) - (__tmp114296 - (let ((__tmp114297 + (let ((__tmp114560 (list)) + (__tmp114558 + (let ((__tmp114559 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114297 '())))) + (cons __tmp114559 '())))) (declare (not safe)) (make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp114298 + __tmp114560 '(type ssxi methods) - __tmp114296 + __tmp114558 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args114232_ - (apply make-instance gxc#optimizer-info::t _$args114232_))) + (lambda _$args114494_ + (apply make-instance gxc#optimizer-info::t _$args114494_))) (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 (_self114230_) - (if (let ((__tmp114306 + (lambda (_self114492_) + (if (let ((__tmp114568 (let () (declare (not safe)) - (##structure-length _self114230_)))) + (##structure-length _self114492_)))) (declare (not safe)) - (##fx< '3 __tmp114306)) + (##fx< '3 __tmp114568)) (begin - (let ((__tmp114301 + (let ((__tmp114563 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114300 + (__tmp114562 (let () (declare (not safe)) - (##structure-type _self114230_)))) + (##structure-type _self114492_)))) (declare (not safe)) (##unchecked-structure-set! - _self114230_ - __tmp114301 + _self114492_ + __tmp114563 '1 - __tmp114300 + __tmp114562 '#f)) - (let ((__tmp114303 + (let ((__tmp114565 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114302 + (__tmp114564 (let () (declare (not safe)) - (##structure-type _self114230_)))) + (##structure-type _self114492_)))) (declare (not safe)) (##unchecked-structure-set! - _self114230_ - __tmp114303 + _self114492_ + __tmp114565 '2 - __tmp114302 + __tmp114564 '#f)) - (let ((__tmp114305 + (let ((__tmp114567 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114304 + (__tmp114566 (let () (declare (not safe)) - (##structure-type _self114230_)))) + (##structure-type _self114492_)))) (declare (not safe)) (##unchecked-structure-set! - _self114230_ - __tmp114305 + _self114492_ + __tmp114567 '3 - __tmp114304 + __tmp114566 '#f))) - (let ((__tmp114299 + (let ((__tmp114561 (let () (declare (not safe)) - (##vector-length _self114230_)))) + (##vector-length _self114492_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self114230_ + _self114492_ '3 - __tmp114299))))) + __tmp114561))))) (let () (declare (not safe)) (bind-method!__% @@ -140,24 +140,24 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp114309 (list)) - (__tmp114307 - (let ((__tmp114308 + (let ((__tmp114571 (list)) + (__tmp114569 + (let ((__tmp114570 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114308 '())))) + (cons __tmp114570 '())))) (declare (not safe)) (make-class-type 'gxc#!type::t '!type - __tmp114309 + __tmp114571 '(id) - __tmp114307 + __tmp114569 '#f))) (define gxc#!type? (let () (declare (not safe)) (make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args114105_ (apply make-instance gxc#!type::t _$args114105_))) + (lambda _$args114367_ (apply make-instance gxc#!type::t _$args114367_))) (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 ((__tmp114312 (list gxc#!type::t)) - (__tmp114310 - (let ((__tmp114311 + (let ((__tmp114574 (list gxc#!type::t)) + (__tmp114572 + (let ((__tmp114573 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114311 '())))) + (cons __tmp114573 '())))) (declare (not safe)) (make-class-type 'gxc#!alias::t '!alias - __tmp114312 + __tmp114574 '() - __tmp114310 + __tmp114572 '#f))) (define gxc#!alias? (let () (declare (not safe)) (make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args114102_ (apply make-instance gxc#!alias::t _$args114102_))) + (lambda _$args114364_ (apply make-instance gxc#!alias::t _$args114364_))) (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 ((__tmp114315 (list gxc#!type::t)) - (__tmp114313 - (let ((__tmp114314 + (let ((__tmp114577 (list gxc#!type::t)) + (__tmp114575 + (let ((__tmp114576 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114314 '())))) + (cons __tmp114576 '())))) (declare (not safe)) (make-class-type 'gxc#!procedure::t '!procedure - __tmp114315 + __tmp114577 '() - __tmp114313 + __tmp114575 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (make-class-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args114099_ - (apply make-instance gxc#!procedure::t _$args114099_))) + (lambda _$args114361_ + (apply make-instance gxc#!procedure::t _$args114361_))) (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 ((__tmp114318 (list gxc#!type::t)) - (__tmp114316 - (let ((__tmp114317 + (let ((__tmp114580 (list gxc#!type::t)) + (__tmp114578 + (let ((__tmp114579 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114317 '())))) + (cons __tmp114579 '())))) (declare (not safe)) (make-class-type 'gxc#!class::t '!class - __tmp114318 + __tmp114580 '(super precedence-list slots fields @@ -263,12 +263,12 @@ final? metaclass methods) - __tmp114316 + __tmp114578 ':init!))) (define gxc#!class? (let () (declare (not safe)) (make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args114096_ (apply make-instance gxc#!class::t _$args114096_))) + (lambda _$args114358_ (apply make-instance gxc#!class::t _$args114358_))) (define gxc#!class-super (let () (declare (not safe)) @@ -430,25 +430,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp114321 (list gxc#!procedure::t)) - (__tmp114319 - (let ((__tmp114320 + (let ((__tmp114583 (list gxc#!procedure::t)) + (__tmp114581 + (let ((__tmp114582 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114320 '())))) + (cons __tmp114582 '())))) (declare (not safe)) (make-class-type 'gxc#!predicate::t '!predicate - __tmp114321 + __tmp114583 '() - __tmp114319 + __tmp114581 '#f))) (define gxc#!predicate? (let () (declare (not safe)) (make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args114093_ - (apply make-instance gxc#!predicate::t _$args114093_))) + (lambda _$args114355_ + (apply make-instance gxc#!predicate::t _$args114355_))) (define gxc#!predicate-id (let () (declare (not safe)) @@ -466,25 +466,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp114324 (list gxc#!procedure::t)) - (__tmp114322 - (let ((__tmp114323 + (let ((__tmp114586 (list gxc#!procedure::t)) + (__tmp114584 + (let ((__tmp114585 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114323 '())))) + (cons __tmp114585 '())))) (declare (not safe)) (make-class-type 'gxc#!constructor::t '!constructor - __tmp114324 + __tmp114586 '() - __tmp114322 + __tmp114584 '#f))) (define gxc#!constructor? (let () (declare (not safe)) (make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args114090_ - (apply make-instance gxc#!constructor::t _$args114090_))) + (lambda _$args114352_ + (apply make-instance gxc#!constructor::t _$args114352_))) (define gxc#!constructor-id (let () (declare (not safe)) @@ -502,25 +502,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp114327 (list gxc#!procedure::t)) - (__tmp114325 - (let ((__tmp114326 + (let ((__tmp114589 (list gxc#!procedure::t)) + (__tmp114587 + (let ((__tmp114588 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114326 '())))) + (cons __tmp114588 '())))) (declare (not safe)) (make-class-type 'gxc#!accessor::t '!accessor - __tmp114327 + __tmp114589 '(slot checked?) - __tmp114325 + __tmp114587 '#f))) (define gxc#!accessor? (let () (declare (not safe)) (make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args114087_ - (apply make-instance gxc#!accessor::t _$args114087_))) + (lambda _$args114349_ + (apply make-instance gxc#!accessor::t _$args114349_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -570,25 +570,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp114330 (list gxc#!procedure::t)) - (__tmp114328 - (let ((__tmp114329 + (let ((__tmp114592 (list gxc#!procedure::t)) + (__tmp114590 + (let ((__tmp114591 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114329 '())))) + (cons __tmp114591 '())))) (declare (not safe)) (make-class-type 'gxc#!mutator::t '!mutator - __tmp114330 + __tmp114592 '(slot checked?) - __tmp114328 + __tmp114590 '#f))) (define gxc#!mutator? (let () (declare (not safe)) (make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args114084_ - (apply make-instance gxc#!mutator::t _$args114084_))) + (lambda _$args114346_ + (apply make-instance gxc#!mutator::t _$args114346_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -638,25 +638,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!lambda::t - (let ((__tmp114333 (list gxc#!procedure::t)) - (__tmp114331 - (let ((__tmp114332 + (let ((__tmp114595 (list gxc#!procedure::t)) + (__tmp114593 + (let ((__tmp114594 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114332 '())))) + (cons __tmp114594 '())))) (declare (not safe)) (make-class-type 'gxc#!lambda::t '!lambda - __tmp114333 + __tmp114595 '(arity dispatch inline inline-typedecl) - __tmp114331 + __tmp114593 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args114081_ - (apply make-instance gxc#!lambda::t _$args114081_))) + (lambda _$args114343_ + (apply make-instance gxc#!lambda::t _$args114343_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -738,25 +738,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp114336 (list gxc#!procedure::t)) - (__tmp114334 - (let ((__tmp114335 + (let ((__tmp114598 (list gxc#!procedure::t)) + (__tmp114596 + (let ((__tmp114597 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114335 '())))) + (cons __tmp114597 '())))) (declare (not safe)) (make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp114336 + __tmp114598 '(clauses) - __tmp114334 + __tmp114596 '#f))) (define gxc#!case-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args114078_ - (apply make-instance gxc#!case-lambda::t _$args114078_))) + (lambda _$args114340_ + (apply make-instance gxc#!case-lambda::t _$args114340_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -790,25 +790,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp114339 (list gxc#!procedure::t)) - (__tmp114337 - (let ((__tmp114338 + (let ((__tmp114601 (list gxc#!procedure::t)) + (__tmp114599 + (let ((__tmp114600 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114338 '())))) + (cons __tmp114600 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp114339 + __tmp114601 '(table dispatch) - __tmp114337 + __tmp114599 '#f))) (define gxc#!kw-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args114075_ - (apply make-instance gxc#!kw-lambda::t _$args114075_))) + (lambda _$args114337_ + (apply make-instance gxc#!kw-lambda::t _$args114337_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -858,27 +858,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp114342 (list gxc#!procedure::t)) - (__tmp114340 - (let ((__tmp114341 + (let ((__tmp114604 (list gxc#!procedure::t)) + (__tmp114602 + (let ((__tmp114603 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114341 '())))) + (cons __tmp114603 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp114342 + __tmp114604 '(keys main) - __tmp114340 + __tmp114602 '#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 _$args114072_ - (apply make-instance gxc#!kw-lambda-primary::t _$args114072_))) + (lambda _$args114334_ + (apply make-instance gxc#!kw-lambda-primary::t _$args114334_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -928,27 +928,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp114343 (list))) + (let ((__tmp114605 (list))) (declare (not safe)) (make-class-type 'gxc#!primitive::t '!primitive - __tmp114343 + __tmp114605 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args114069_ - (apply make-instance gxc#!primitive::t _$args114069_))) + (lambda _$args114331_ + (apply make-instance gxc#!primitive::t _$args114331_))) (define gxc#!primitive-lambda::t - (let ((__tmp114344 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp114606 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp114344 + __tmp114606 '() '() ':init!))) @@ -957,8 +957,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args114066_ - (apply make-instance gxc#!primitive-lambda::t _$args114066_))) + (lambda _$args114328_ + (apply make-instance gxc#!primitive-lambda::t _$args114328_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1048,12 +1048,12 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp114345 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp114607 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp114345 + __tmp114607 '() '() ':init!))) @@ -1062,8 +1062,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args114063_ - (apply make-instance gxc#!primitive-case-lambda::t _$args114063_))) + (lambda _$args114325_ + (apply make-instance gxc#!primitive-case-lambda::t _$args114325_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1103,901 +1103,901 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-case-lambda::t 'id))) (define gxc#!class:::init!__0 - (lambda (_self113945_ - _id113946_ - _super113947_ - _slots113948_ - _ctor-method113949_ - _struct?113950_ - _final?113951_ - _metaclass113952_) - (let _lp113954_ ((_rest113956_ _super113947_)) - (let* ((_rest113957113965_ _rest113956_) - (_else113959113973_ (lambda () '#!void)) - (_K113961113979_ - (lambda (_rest113976_ _super-id113977_) + (lambda (_self114207_ + _id114208_ + _super114209_ + _slots114210_ + _ctor-method114211_ + _struct?114212_ + _final?114213_ + _metaclass114214_) + (let _lp114216_ ((_rest114218_ _super114209_)) + (let* ((_rest114219114227_ _rest114218_) + (_else114221114235_ (lambda () '#!void)) + (_K114223114241_ + (lambda (_rest114238_ _super-id114239_) (if (##structure-ref - (let ((__tmp114348 - (let ((__tmp114349 + (let ((__tmp114610 + (let ((__tmp114611 (let () (declare (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114349)))) + (cons '!class __tmp114611)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114348 - _super-id113977_)) + __tmp114610 + _super-id114239_)) '8 gxc#!class::t '#f) - (let ((__tmp114346 - (let ((__tmp114347 + (let ((__tmp114608 + (let ((__tmp114609 (let () (declare (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114347)))) + (cons '!class __tmp114609)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp114346 - _super-id113977_)) + __tmp114608 + _super-id114239_)) '#!void) - (let () (declare (not safe)) (_lp113954_ _rest113976_))))) - (if (let () (declare (not safe)) (##pair? _rest113957113965_)) - (let ((_hd113962113982_ + (let () (declare (not safe)) (_lp114216_ _rest114238_))))) + (if (let () (declare (not safe)) (##pair? _rest114219114227_)) + (let ((_hd114224114244_ (let () (declare (not safe)) - (##car _rest113957113965_))) - (_tl113963113984_ + (##car _rest114219114227_))) + (_tl114225114246_ (let () (declare (not safe)) - (##cdr _rest113957113965_)))) - (let* ((_super-id113987_ _hd113962113982_) - (_rest113989_ _tl113963113984_)) + (##cdr _rest114219114227_)))) + (let* ((_super-id114249_ _hd114224114244_) + (_rest114251_ _tl114225114246_)) (declare (not safe)) - (_K113961113979_ _rest113989_ _super-id113987_))) + (_K114223114241_ _rest114251_ _super-id114249_))) '#!void))) - (let* ((_ctor-method114039_ - (let ((_$e113991_ _ctor-method113949_)) - (if _$e113991_ - _$e113991_ - (let _lp113994_ ((_rest113996_ _super113947_) - (_method113997_ '#f)) - (let* ((_rest113998114006_ _rest113996_) - (_else114000114014_ (lambda () _method113997_)) - (_K114002114027_ - (lambda (_rest114017_ _super-id114018_) - (let* ((_klass114020_ - (let ((__tmp114350 - (let ((__tmp114351 + (let* ((_ctor-method114301_ + (let ((_$e114253_ _ctor-method114211_)) + (if _$e114253_ + _$e114253_ + (let _lp114256_ ((_rest114258_ _super114209_) + (_method114259_ '#f)) + (let* ((_rest114260114268_ _rest114258_) + (_else114262114276_ (lambda () _method114259_)) + (_K114264114289_ + (lambda (_rest114279_ _super-id114280_) + (let* ((_klass114282_ + (let ((__tmp114612 + (let ((__tmp114613 (let () (declare (not safe)) - (cons _id113946_ + (cons _id114208_ '())))) (declare (not safe)) (cons '!class - __tmp114351)))) + __tmp114613)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114350 - _super-id114018_))) - (_$e114022_ + __tmp114612 + _super-id114280_))) + (_$e114284_ (##structure-ref - _klass114020_ + _klass114282_ '6 gxc#!class::t '#f))) - (if _$e114022_ - ((lambda (_ctor-method114025_) - (if _method113997_ + (if _$e114284_ + ((lambda (_ctor-method114287_) + (if _method114259_ (if (let () (declare (not safe)) - (eq? _ctor-method114025_ - _method113997_)) + (eq? _ctor-method114287_ + _method114259_)) (let () (declare (not safe)) - (_lp113994_ - _rest114017_ - _ctor-method114025_)) - (let ((__tmp114352 - (let ((__tmp114353 + (_lp114256_ + _rest114279_ + _ctor-method114287_)) + (let ((__tmp114614 + (let ((__tmp114615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id113946_ '())))) + (let () (declare (not safe)) (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114353)))) + (cons '!class __tmp114615)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp114352 - _method113997_ - _ctor-method114025_))) + __tmp114614 + _method114259_ + _ctor-method114287_))) (let () (declare (not safe)) - (_lp113994_ - _rest114017_ - _ctor-method114025_)))) - _$e114022_) + (_lp114256_ + _rest114279_ + _ctor-method114287_)))) + _$e114284_) (let () (declare (not safe)) - (_lp113994_ - _rest114017_ - _method113997_))))))) + (_lp114256_ + _rest114279_ + _method114259_))))))) (if (let () (declare (not safe)) - (##pair? _rest113998114006_)) - (let ((_hd114003114030_ + (##pair? _rest114260114268_)) + (let ((_hd114265114292_ (let () (declare (not safe)) - (##car _rest113998114006_))) - (_tl114004114032_ + (##car _rest114260114268_))) + (_tl114266114294_ (let () (declare (not safe)) - (##cdr _rest113998114006_)))) - (let* ((_super-id114035_ _hd114003114030_) - (_rest114037_ _tl114004114032_)) + (##cdr _rest114260114268_)))) + (let* ((_super-id114297_ _hd114265114292_) + (_rest114299_ _tl114266114294_)) (declare (not safe)) - (_K114002114027_ - _rest114037_ - _super-id114035_))) + (_K114264114289_ + _rest114299_ + _super-id114297_))) (let () (declare (not safe)) - (_else114000114014_)))))))) - (_g114354_ - (let ((__tmp114359 - (lambda (_klass-id114041_) - (let ((__tmp114360 + (_else114262114276_)))))))) + (_g114616_ + (let ((__tmp114621 + (lambda (_klass-id114303_) + (let ((__tmp114622 (##structure-ref - (let ((__tmp114361 - (let ((__tmp114362 + (let ((__tmp114623 + (let ((__tmp114624 (let () (declare (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114362)))) + (cons '!class __tmp114624)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114361 - _klass-id114041_)) + __tmp114623 + _klass-id114303_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id114041_ __tmp114360)))) - (__tmp114356 - (lambda (_klass-id114043_) + (cons _klass-id114303_ __tmp114622)))) + (__tmp114618 + (lambda (_klass-id114305_) (##structure-ref - (let ((__tmp114357 - (let ((__tmp114358 + (let ((__tmp114619 + (let ((__tmp114620 (let () (declare (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114358)))) + (cons '!class __tmp114620)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114357 - _klass-id114043_)) + __tmp114619 + _klass-id114305_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super113947_ + _super114209_ 'get-precedence-list: - __tmp114359 + __tmp114621 'struct: - __tmp114356 + __tmp114618 'eq: eq? 'get-name: identity)))) (begin - (let ((_g114355_ + (let ((_g114617_ (let () (declare (not safe)) - (if (##values? _g114354_) - (##vector-length _g114354_) + (if (##values? _g114616_) + (##vector-length _g114616_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g114355_ 2))) - (error "Context expects 2 values" _g114355_))) - (let ((_precedence-list114045_ - (let () (declare (not safe)) (##vector-ref _g114354_ 0))) - (_base-struct114046_ - (let () (declare (not safe)) (##vector-ref _g114354_ 1)))) - (let ((_fields114048_ - (let ((__tmp114363 - (let ((__tmp114364 + (if (not (let () (declare (not safe)) (##fx= _g114617_ 2))) + (error "Context expects 2 values" _g114617_))) + (let ((_precedence-list114307_ + (let () (declare (not safe)) (##vector-ref _g114616_ 0))) + (_base-struct114308_ + (let () (declare (not safe)) (##vector-ref _g114616_ 1)))) + (let ((_fields114310_ + (let ((__tmp114625 + (let ((__tmp114626 (let () (declare (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114364)))) + (cons '!class __tmp114626)))) (declare (not safe)) (gxc#compute-class-fields - __tmp114363 - _base-struct114046_ - _precedence-list114045_ - _slots113948_)))) - (##structure-set! _self113945_ _id113946_ '1 gxc#!type::t '#f) + __tmp114625 + _base-struct114308_ + _precedence-list114307_ + _slots114210_)))) + (##structure-set! _self114207_ _id114208_ '1 gxc#!type::t '#f) (##structure-set! - _self113945_ - _super113947_ + _self114207_ + _super114209_ '2 gxc#!class::t '#f) (##structure-set! - _self113945_ - _precedence-list114045_ + _self114207_ + _precedence-list114307_ '3 gxc#!class::t '#f) (##structure-set! - _self113945_ - _slots113948_ + _self114207_ + _slots114210_ '4 gxc#!class::t '#f) (##structure-set! - _self113945_ - _fields114048_ + _self114207_ + _fields114310_ '5 gxc#!class::t '#f) (##structure-set! - _self113945_ - _ctor-method114039_ + _self114207_ + _ctor-method114301_ '6 gxc#!class::t '#f) (##structure-set! - _self113945_ - _struct?113950_ + _self114207_ + _struct?114212_ '7 gxc#!class::t '#f) (##structure-set! - _self113945_ - _final?113951_ + _self114207_ + _final?114213_ '8 gxc#!class::t '#f) (##structure-set! - _self113945_ - _metaclass113952_ + _self114207_ + _metaclass114214_ '9 gxc#!class::t '#f))))))) (define gxc#!class:::init!__1 - (lambda (_self114051_ - _id114052_ - _super114053_ - _precedence-list114054_ - _slots114055_ - _fields114056_ - _constructor114057_ - _struct?114058_ - _final?114059_ - _metaclass114060_ - _methods114061_) - (##structure-set! _self114051_ _id114052_ '1 gxc#!type::t '#f) - (##structure-set! _self114051_ _super114053_ '2 gxc#!class::t '#f) + (lambda (_self114313_ + _id114314_ + _super114315_ + _precedence-list114316_ + _slots114317_ + _fields114318_ + _constructor114319_ + _struct?114320_ + _final?114321_ + _metaclass114322_ + _methods114323_) + (##structure-set! _self114313_ _id114314_ '1 gxc#!type::t '#f) + (##structure-set! _self114313_ _super114315_ '2 gxc#!class::t '#f) (##structure-set! - _self114051_ - _precedence-list114054_ + _self114313_ + _precedence-list114316_ '3 gxc#!class::t '#f) - (##structure-set! _self114051_ _slots114055_ '4 gxc#!class::t '#f) - (##structure-set! _self114051_ _fields114056_ '5 gxc#!class::t '#f) + (##structure-set! _self114313_ _slots114317_ '4 gxc#!class::t '#f) + (##structure-set! _self114313_ _fields114318_ '5 gxc#!class::t '#f) (##structure-set! - _self114051_ - _constructor114057_ + _self114313_ + _constructor114319_ '6 gxc#!class::t '#f) - (##structure-set! _self114051_ _struct?114058_ '7 gxc#!class::t '#f) - (##structure-set! _self114051_ _final?114059_ '8 gxc#!class::t '#f) - (##structure-set! _self114051_ _metaclass114060_ '9 gxc#!class::t '#f) - (if _methods114061_ + (##structure-set! _self114313_ _struct?114320_ '7 gxc#!class::t '#f) + (##structure-set! _self114313_ _final?114321_ '8 gxc#!class::t '#f) + (##structure-set! _self114313_ _metaclass114322_ '9 gxc#!class::t '#f) + (if _methods114323_ (##structure-set! - _self114051_ + _self114313_ (let () (declare (not safe)) - (list->hash-table-eq _methods114061_)) + (list->hash-table-eq _methods114323_)) '10 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (lambda _g114366_ - (let ((_g114365_ (let () (declare (not safe)) (##length _g114366_)))) - (cond ((let () (declare (not safe)) (##fx= _g114365_ 8)) - (apply (lambda (_self113945_ - _id113946_ - _super113947_ - _slots113948_ - _ctor-method113949_ - _struct?113950_ - _final?113951_ - _metaclass113952_) + (lambda _g114628_ + (let ((_g114627_ (let () (declare (not safe)) (##length _g114628_)))) + (cond ((let () (declare (not safe)) (##fx= _g114627_ 8)) + (apply (lambda (_self114207_ + _id114208_ + _super114209_ + _slots114210_ + _ctor-method114211_ + _struct?114212_ + _final?114213_ + _metaclass114214_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _self113945_ - _id113946_ - _super113947_ - _slots113948_ - _ctor-method113949_ - _struct?113950_ - _final?113951_ - _metaclass113952_))) - _g114366_)) - ((let () (declare (not safe)) (##fx= _g114365_ 11)) - (apply (lambda (_self114051_ - _id114052_ - _super114053_ - _precedence-list114054_ - _slots114055_ - _fields114056_ - _constructor114057_ - _struct?114058_ - _final?114059_ - _metaclass114060_ - _methods114061_) + _self114207_ + _id114208_ + _super114209_ + _slots114210_ + _ctor-method114211_ + _struct?114212_ + _final?114213_ + _metaclass114214_))) + _g114628_)) + ((let () (declare (not safe)) (##fx= _g114627_ 11)) + (apply (lambda (_self114313_ + _id114314_ + _super114315_ + _precedence-list114316_ + _slots114317_ + _fields114318_ + _constructor114319_ + _struct?114320_ + _final?114321_ + _metaclass114322_ + _methods114323_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self114051_ - _id114052_ - _super114053_ - _precedence-list114054_ - _slots114055_ - _fields114056_ - _constructor114057_ - _struct?114058_ - _final?114059_ - _metaclass114060_ - _methods114061_))) - _g114366_)) + _self114313_ + _id114314_ + _super114315_ + _precedence-list114316_ + _slots114317_ + _fields114318_ + _constructor114319_ + _struct?114320_ + _final?114321_ + _metaclass114322_ + _methods114323_))) + _g114628_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g114366_)))))) + _g114628_)))))) (define gxc#!class:::init!::specialize - (lambda (__klass114234 __method-table114235) - (let ((__fields114236 - (let ((__slot114246 + (lambda (__klass114496 __method-table114497) + (let ((__fields114498 + (let ((__slot114508 (let () (declare (not safe)) - (class-slot-offset __klass114234 'fields)))) - (if __slot114246 - __slot114246 + (class-slot-offset __klass114496 'fields)))) + (if __slot114508 + __slot114508 (let () (declare (not safe)) (error '"Unknown slot" 'fields))))) - (__final?114237 - (let ((__slot114247 + (__metaclass114499 + (let ((__slot114509 (let () (declare (not safe)) - (class-slot-offset __klass114234 'final?)))) - (if __slot114247 - __slot114247 + (class-slot-offset __klass114496 'metaclass)))) + (if __slot114509 + __slot114509 (let () (declare (not safe)) - (error '"Unknown slot" 'final?))))) - (__slots114238 - (let ((__slot114248 + (error '"Unknown slot" 'metaclass))))) + (__constructor114500 + (let ((__slot114510 (let () (declare (not safe)) - (class-slot-offset __klass114234 'slots)))) - (if __slot114248 - __slot114248 + (class-slot-offset __klass114496 'constructor)))) + (if __slot114510 + __slot114510 (let () (declare (not safe)) - (error '"Unknown slot" 'slots))))) - (__id114239 - (let ((__slot114249 + (error '"Unknown slot" 'constructor))))) + (__slots114501 + (let ((__slot114511 (let () (declare (not safe)) - (class-slot-offset __klass114234 'id)))) - (if __slot114249 - __slot114249 + (class-slot-offset __klass114496 'slots)))) + (if __slot114511 + __slot114511 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__super114240 - (let ((__slot114250 + (error '"Unknown slot" 'slots))))) + (__id114502 + (let ((__slot114512 (let () (declare (not safe)) - (class-slot-offset __klass114234 'super)))) - (if __slot114250 - __slot114250 + (class-slot-offset __klass114496 'id)))) + (if __slot114512 + __slot114512 (let () (declare (not safe)) - (error '"Unknown slot" 'super))))) - (__methods114241 - (let ((__slot114251 + (error '"Unknown slot" 'id))))) + (__super114503 + (let ((__slot114513 (let () (declare (not safe)) - (class-slot-offset __klass114234 'methods)))) - (if __slot114251 - __slot114251 + (class-slot-offset __klass114496 'super)))) + (if __slot114513 + __slot114513 (let () (declare (not safe)) - (error '"Unknown slot" 'methods))))) - (__metaclass114242 - (let ((__slot114252 + (error '"Unknown slot" 'super))))) + (__methods114504 + (let ((__slot114514 (let () (declare (not safe)) - (class-slot-offset __klass114234 'metaclass)))) - (if __slot114252 - __slot114252 + (class-slot-offset __klass114496 'methods)))) + (if __slot114514 + __slot114514 (let () (declare (not safe)) - (error '"Unknown slot" 'metaclass))))) - (__constructor114243 - (let ((__slot114253 + (error '"Unknown slot" 'methods))))) + (__final?114505 + (let ((__slot114515 (let () (declare (not safe)) - (class-slot-offset __klass114234 'constructor)))) - (if __slot114253 - __slot114253 + (class-slot-offset __klass114496 'final?)))) + (if __slot114515 + __slot114515 (let () (declare (not safe)) - (error '"Unknown slot" 'constructor))))) - (__struct?114244 - (let ((__slot114254 + (error '"Unknown slot" 'final?))))) + (__struct?114506 + (let ((__slot114516 (let () (declare (not safe)) - (class-slot-offset __klass114234 'struct?)))) - (if __slot114254 - __slot114254 + (class-slot-offset __klass114496 'struct?)))) + (if __slot114516 + __slot114516 (let () (declare (not safe)) (error '"Unknown slot" 'struct?))))) - (__precedence-list114245 - (let ((__slot114255 + (__precedence-list114507 + (let ((__slot114517 (let () (declare (not safe)) - (class-slot-offset __klass114234 'precedence-list)))) - (if __slot114255 - __slot114255 + (class-slot-offset __klass114496 'precedence-list)))) + (if __slot114517 + __slot114517 (let () (declare (not safe)) (error '"Unknown slot" 'precedence-list)))))) - (lambda _g114368_ - (let ((_g114367_ - (let () (declare (not safe)) (##length _g114368_)))) - (cond ((let () (declare (not safe)) (##fx= _g114367_ 8)) - (apply (lambda (_self113945_ - _id113946_ - _super113947_ - _slots113948_ - _ctor-method113949_ - _struct?113950_ - _final?113951_ - _metaclass113952_) - (let _lp113954_ ((_rest113956_ _super113947_)) - (let* ((_rest113957113965_ _rest113956_) - (_else113959113973_ (lambda () '#!void)) - (_K113961113979_ - (lambda (_rest113976_ _super-id113977_) + (lambda _g114630_ + (let ((_g114629_ + (let () (declare (not safe)) (##length _g114630_)))) + (cond ((let () (declare (not safe)) (##fx= _g114629_ 8)) + (apply (lambda (_self114207_ + _id114208_ + _super114209_ + _slots114210_ + _ctor-method114211_ + _struct?114212_ + _final?114213_ + _metaclass114214_) + (let _lp114216_ ((_rest114218_ _super114209_)) + (let* ((_rest114219114227_ _rest114218_) + (_else114221114235_ (lambda () '#!void)) + (_K114223114241_ + (lambda (_rest114238_ _super-id114239_) (if (##structure-ref - (let ((__tmp114371 - (let ((__tmp114372 + (let ((__tmp114633 + (let ((__tmp114634 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114372)))) + (cons '!class __tmp114634)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114371 - _super-id113977_)) + __tmp114633 + _super-id114239_)) '8 gxc#!class::t '#f) - (let ((__tmp114369 - (let ((__tmp114370 + (let ((__tmp114631 + (let ((__tmp114632 (let () (declare (not safe)) - (cons _id113946_ + (cons _id114208_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp114370)))) + (cons '!class __tmp114632)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp114369 - _super-id113977_)) + __tmp114631 + _super-id114239_)) '#!void) (let () (declare (not safe)) - (_lp113954_ _rest113976_))))) + (_lp114216_ _rest114238_))))) (if (let () (declare (not safe)) - (##pair? _rest113957113965_)) - (let ((_hd113962113982_ + (##pair? _rest114219114227_)) + (let ((_hd114224114244_ (let () (declare (not safe)) - (##car _rest113957113965_))) - (_tl113963113984_ + (##car _rest114219114227_))) + (_tl114225114246_ (let () (declare (not safe)) - (##cdr _rest113957113965_)))) - (let* ((_super-id113987_ - _hd113962113982_) - (_rest113989_ _tl113963113984_)) + (##cdr _rest114219114227_)))) + (let* ((_super-id114249_ + _hd114224114244_) + (_rest114251_ _tl114225114246_)) (declare (not safe)) - (_K113961113979_ - _rest113989_ - _super-id113987_))) + (_K114223114241_ + _rest114251_ + _super-id114249_))) '#!void))) - (let* ((_ctor-method114039_ - (let ((_$e113991_ _ctor-method113949_)) - (if _$e113991_ - _$e113991_ - (let _lp113994_ ((_rest113996_ - _super113947_) - (_method113997_ + (let* ((_ctor-method114301_ + (let ((_$e114253_ _ctor-method114211_)) + (if _$e114253_ + _$e114253_ + (let _lp114256_ ((_rest114258_ + _super114209_) + (_method114259_ '#f)) - (let* ((_rest113998114006_ - _rest113996_) - (_else114000114014_ + (let* ((_rest114260114268_ + _rest114258_) + (_else114262114276_ (lambda () - _method113997_)) - (_K114002114027_ - (lambda (_rest114017_ - _super-id114018_) - (let* ((_klass114020_ - (let ((__tmp114373 + _method114259_)) + (_K114264114289_ + (lambda (_rest114279_ + _super-id114280_) + (let* ((_klass114282_ + (let ((__tmp114635 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114374 + (let ((__tmp114636 (let () (declare (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114374)))) + (cons '!class __tmp114636)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114373 - _super-id114018_))) - (_$e114022_ - (##structure-ref _klass114020_ '6 gxc#!class::t '#f))) - (if _$e114022_ - ((lambda (_ctor-method114025_) - (if _method113997_ + __tmp114635 + _super-id114280_))) + (_$e114284_ + (##structure-ref _klass114282_ '6 gxc#!class::t '#f))) + (if _$e114284_ + ((lambda (_ctor-method114287_) + (if _method114259_ (if (let () (declare (not safe)) - (eq? _ctor-method114025_ _method113997_)) + (eq? _ctor-method114287_ _method114259_)) (let () (declare (not safe)) - (_lp113994_ - _rest114017_ - _ctor-method114025_)) - (let ((__tmp114375 - (let ((__tmp114376 + (_lp114256_ + _rest114279_ + _ctor-method114287_)) + (let ((__tmp114637 + (let ((__tmp114638 (let () (declare (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114376)))) + (cons '!class __tmp114638)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp114375 - _method113997_ - _ctor-method114025_))) + __tmp114637 + _method114259_ + _ctor-method114287_))) (let () (declare (not safe)) - (_lp113994_ _rest114017_ _ctor-method114025_)))) - _$e114022_) + (_lp114256_ _rest114279_ _ctor-method114287_)))) + _$e114284_) (let () (declare (not safe)) - (_lp113994_ _rest114017_ _method113997_))))))) + (_lp114256_ _rest114279_ _method114259_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest113998114006_)) - (let ((_hd114003114030_ + (##pair? _rest114260114268_)) + (let ((_hd114265114292_ (let () (declare (not safe)) - (##car _rest113998114006_))) - (_tl114004114032_ + (##car _rest114260114268_))) + (_tl114266114294_ (let () (declare (not safe)) - (##cdr _rest113998114006_)))) - (let* ((_super-id114035_ - _hd114003114030_) - (_rest114037_ - _tl114004114032_)) + (##cdr _rest114260114268_)))) + (let* ((_super-id114297_ + _hd114265114292_) + (_rest114299_ + _tl114266114294_)) (declare (not safe)) - (_K114002114027_ - _rest114037_ - _super-id114035_))) + (_K114264114289_ + _rest114299_ + _super-id114297_))) (let () (declare (not safe)) - (_else114000114014_)))))))) - (_g114377_ - (let ((__tmp114382 - (lambda (_klass-id114041_) - (let ((__tmp114383 + (_else114262114276_)))))))) + (_g114639_ + (let ((__tmp114644 + (lambda (_klass-id114303_) + (let ((__tmp114645 (##structure-ref - (let ((__tmp114384 - (let ((__tmp114385 + (let ((__tmp114646 + (let ((__tmp114647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114385)))) + (cons '!class __tmp114647)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp114384 _klass-id114041_)) + (gxc#optimizer-resolve-class __tmp114646 _klass-id114303_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id114041_ - __tmp114383)))) - (__tmp114379 - (lambda (_klass-id114043_) + (cons _klass-id114303_ + __tmp114645)))) + (__tmp114641 + (lambda (_klass-id114305_) (##structure-ref - (let ((__tmp114380 - (let ((__tmp114381 + (let ((__tmp114642 + (let ((__tmp114643 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id113946_ '())))) + (cons _id114208_ '())))) (declare (not safe)) - (cons '!class __tmp114381)))) + (cons '!class __tmp114643)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114380 - _klass-id114043_)) + __tmp114642 + _klass-id114305_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super113947_ + _super114209_ 'get-precedence-list: - __tmp114382 + __tmp114644 'struct: - __tmp114379 + __tmp114641 'eq: eq? 'get-name: identity)))) (begin - (let ((_g114378_ + (let ((_g114640_ (let () (declare (not safe)) - (if (##values? _g114377_) - (##vector-length _g114377_) + (if (##values? _g114639_) + (##vector-length _g114639_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114378_ 2))) + (##fx= _g114640_ 2))) (error "Context expects 2 values" - _g114378_))) - (let ((_precedence-list114045_ + _g114640_))) + (let ((_precedence-list114307_ (let () (declare (not safe)) - (##vector-ref _g114377_ 0))) - (_base-struct114046_ + (##vector-ref _g114639_ 0))) + (_base-struct114308_ (let () (declare (not safe)) - (##vector-ref _g114377_ 1)))) - (let ((_fields114048_ - (let ((__tmp114386 - (let ((__tmp114387 + (##vector-ref _g114639_ 1)))) + (let ((_fields114310_ + (let ((__tmp114648 + (let ((__tmp114649 (let () (declare (not safe)) - (cons _id113946_ + (cons _id114208_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '!class - __tmp114387)))) + __tmp114649)))) (declare (not safe)) (gxc#compute-class-fields - __tmp114386 - _base-struct114046_ - _precedence-list114045_ - _slots113948_)))) + __tmp114648 + _base-struct114308_ + _precedence-list114307_ + _slots114210_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _id113946_ - __id114239 - __klass114234 + _self114207_ + _id114208_ + __id114502 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _super113947_ - __super114240 - __klass114234 + _self114207_ + _super114209_ + __super114503 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _precedence-list114045_ - __precedence-list114245 - __klass114234 + _self114207_ + _precedence-list114307_ + __precedence-list114507 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _slots113948_ - __slots114238 - __klass114234 + _self114207_ + _slots114210_ + __slots114501 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _fields114048_ - __fields114236 - __klass114234 + _self114207_ + _fields114310_ + __fields114498 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _ctor-method114039_ - __constructor114243 - __klass114234 + _self114207_ + _ctor-method114301_ + __constructor114500 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _struct?113950_ - __struct?114244 - __klass114234 + _self114207_ + _struct?114212_ + __struct?114506 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _final?113951_ - __final?114237 - __klass114234 + _self114207_ + _final?114213_ + __final?114505 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113945_ - _metaclass113952_ - __metaclass114242 - __klass114234 + _self114207_ + _metaclass114214_ + __metaclass114499 + __klass114496 '#f))))))) - _g114368_)) - ((let () (declare (not safe)) (##fx= _g114367_ 11)) - (apply (lambda (_self114051_ - _id114052_ - _super114053_ - _precedence-list114054_ - _slots114055_ - _fields114056_ - _constructor114057_ - _struct?114058_ - _final?114059_ - _metaclass114060_ - _methods114061_) + _g114630_)) + ((let () (declare (not safe)) (##fx= _g114629_ 11)) + (apply (lambda (_self114313_ + _id114314_ + _super114315_ + _precedence-list114316_ + _slots114317_ + _fields114318_ + _constructor114319_ + _struct?114320_ + _final?114321_ + _metaclass114322_ + _methods114323_) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _id114052_ - __id114239 - __klass114234 + _self114313_ + _id114314_ + __id114502 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _super114053_ - __super114240 - __klass114234 + _self114313_ + _super114315_ + __super114503 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _precedence-list114054_ - __precedence-list114245 - __klass114234 + _self114313_ + _precedence-list114316_ + __precedence-list114507 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _slots114055_ - __slots114238 - __klass114234 + _self114313_ + _slots114317_ + __slots114501 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _fields114056_ - __fields114236 - __klass114234 + _self114313_ + _fields114318_ + __fields114498 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _constructor114057_ - __constructor114243 - __klass114234 + _self114313_ + _constructor114319_ + __constructor114500 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _struct?114058_ - __struct?114244 - __klass114234 + _self114313_ + _struct?114320_ + __struct?114506 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _final?114059_ - __final?114237 - __klass114234 + _self114313_ + _final?114321_ + __final?114505 + __klass114496 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114051_ - _metaclass114060_ - __metaclass114242 - __klass114234 + _self114313_ + _metaclass114322_ + __metaclass114499 + __klass114496 '#f)) - (if _methods114061_ - (let ((__tmp114388 + (if _methods114323_ + (let ((__tmp114650 (let () (declare (not safe)) (list->hash-table-eq - _methods114061_)))) + _methods114323_)))) (declare (not safe)) (##unchecked-structure-set! - _self114051_ - __tmp114388 - __methods114241 - __klass114234 + _self114313_ + __tmp114650 + __methods114504 + __klass114496 '#f)) '#!void)) - _g114368_)) + _g114630_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g114368_)))))))) + _g114630_)))))))) (let () (declare (not safe)) (bind-specializer! gxc#!class:::init! gxc#!class:::init!::specialize)) @@ -2005,203 +2005,203 @@ (declare (not safe)) (bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_where113797_ - _base-struct113798_ - _precedence-list113799_ - _direct-slots113800_) - (let* ((_base-fields113802_ - (if _base-struct113798_ + (lambda (_where114059_ + _base-struct114060_ + _precedence-list114061_ + _direct-slots114062_) + (let* ((_base-fields114064_ + (if _base-struct114060_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where113797_ - _base-struct113798_)) + _where114059_ + _base-struct114060_)) '5 gxc#!class::t '#f) '())) - (_r-fields113804_ (reverse _base-fields113802_)) - (_seen-slots113812_ - (let ((_tab113806_ + (_r-fields114066_ (reverse _base-fields114064_)) + (_seen-slots114074_ + (let ((_tab114068_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_g113807113809_) + (lambda (_g114069114071_) (let () (declare (not safe)) - (hash-put! _tab113806_ _g113807113809_ '#t))) - _base-fields113802_) - _tab113806_)) - (_process-slot113816_ - (lambda (_slot113814_) + (hash-put! _tab114068_ _g114069114071_ '#t))) + _base-fields114064_) + _tab114068_)) + (_process-slot114078_ + (lambda (_slot114076_) (if (let () (declare (not safe)) - (hash-get _seen-slots113812_ _slot113814_)) + (hash-get _seen-slots114074_ _slot114076_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _seen-slots113812_ _slot113814_ '#t)) - (set! _r-fields113804_ + (hash-put! _seen-slots114074_ _slot114076_ '#t)) + (set! _r-fields114066_ (let () (declare (not safe)) - (cons _slot113814_ _r-fields113804_)))))))) + (cons _slot114076_ _r-fields114066_)))))))) (for-each - (lambda (_mixin113819_) - (let ((_klass113821_ + (lambda (_mixin114081_) + (let ((_klass114083_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where113797_ - _mixin113819_)))) - (if (##structure-ref _klass113821_ '7 gxc#!class::t '#f) + _where114059_ + _mixin114081_)))) + (if (##structure-ref _klass114083_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot113816_ - (##structure-ref _klass113821_ '5 gxc#!class::t '#f))))) - _precedence-list113799_) - (for-each _process-slot113816_ _direct-slots113800_) - (reverse _r-fields113804_)))) + _process-slot114078_ + (##structure-ref _klass114083_ '5 gxc#!class::t '#f))))) + _precedence-list114061_) + (for-each _process-slot114078_ _direct-slots114062_) + (reverse _r-fields114066_)))) (define gxc#!class-slot->field-offset - (lambda (_klass113756_ _slot113757_) - (let _lp113759_ ((_rest113761_ - (##structure-ref _klass113756_ '5 gxc#!class::t '#f)) - (_offset113762_ '1)) - (let* ((_rest113763113771_ _rest113761_) - (_else113765113779_ + (lambda (_klass114018_ _slot114019_) + (let _lp114021_ ((_rest114023_ + (##structure-ref _klass114018_ '5 gxc#!class::t '#f)) + (_offset114024_ '1)) + (let* ((_rest114025114033_ _rest114023_) + (_else114027114041_ (lambda () - (let ((__tmp114390 - (##structure-ref _klass113756_ '1 gxc#!type::t '#f)) - (__tmp114389 + (let ((__tmp114652 + (##structure-ref _klass114018_ '1 gxc#!type::t '#f)) + (__tmp114651 (##structure-ref - _klass113756_ + _klass114018_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp114390 - __tmp114389 - _slot113757_)))) - (_K113767113785_ - (lambda (_rest113782_ _s113783_) + __tmp114652 + __tmp114651 + _slot114019_)))) + (_K114029114047_ + (lambda (_rest114044_ _s114045_) (if (let () (declare (not safe)) - (eq? _s113783_ _slot113757_)) - _offset113762_ - (let ((__tmp114391 + (eq? _s114045_ _slot114019_)) + _offset114024_ + (let ((__tmp114653 (let () (declare (not safe)) - (fx+ _offset113762_ '1)))) + (fx+ _offset114024_ '1)))) (declare (not safe)) - (_lp113759_ _rest113782_ __tmp114391)))))) - (if (let () (declare (not safe)) (##pair? _rest113763113771_)) - (let ((_hd113768113788_ + (_lp114021_ _rest114044_ __tmp114653)))))) + (if (let () (declare (not safe)) (##pair? _rest114025114033_)) + (let ((_hd114030114050_ (let () (declare (not safe)) - (##car _rest113763113771_))) - (_tl113769113790_ + (##car _rest114025114033_))) + (_tl114031114052_ (let () (declare (not safe)) - (##cdr _rest113763113771_)))) - (let* ((_s113793_ _hd113768113788_) - (_rest113795_ _tl113769113790_)) + (##cdr _rest114025114033_)))) + (let* ((_s114055_ _hd114030114050_) + (_rest114057_ _tl114031114052_)) (declare (not safe)) - (_K113767113785_ _rest113795_ _s113793_))) - (let () (declare (not safe)) (_else113765113779_))))))) + (_K114029114047_ _rest114057_ _s114055_))) + (let () (declare (not safe)) (_else114027114041_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass113714_ _slot113715_) + (lambda (_klass113976_ _slot113977_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass113714_ _slot113715_)) - _klass113714_ - (let _lp113717_ ((_rest113719_ + (gxc#!class-struct-slot? _klass113976_ _slot113977_)) + _klass113976_ + (let _lp113979_ ((_rest113981_ (##structure-ref - _klass113714_ + _klass113976_ '3 gxc#!class::t '#f))) - (let* ((_rest113720113728_ _rest113719_) - (_else113722113736_ (lambda () '#f)) - (_K113724113744_ - (lambda (_rest113739_ _super113740_) - (let ((_super-class113742_ - (let ((__tmp114392 - (let ((__tmp114393 - (let ((__tmp114395 + (let* ((_rest113982113990_ _rest113981_) + (_else113984113998_ (lambda () '#f)) + (_K113986114006_ + (lambda (_rest114001_ _super114002_) + (let ((_super-class114004_ + (let ((__tmp114654 + (let ((__tmp114655 + (let ((__tmp114657 (##structure-ref - _klass113714_ + _klass113976_ '1 gxc#!type::t '#f)) - (__tmp114394 + (__tmp114656 (let () (declare (not safe)) - (cons _slot113715_ + (cons _slot113977_ '())))) (declare (not safe)) - (cons __tmp114395 - __tmp114394)))) + (cons __tmp114657 + __tmp114656)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp114393)))) + __tmp114655)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114392 - _super113740_)))) + __tmp114654 + _super114002_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class113742_ - _slot113715_)) - _super-class113742_ + _super-class114004_ + _slot113977_)) + _super-class114004_ (let () (declare (not safe)) - (_lp113717_ _rest113739_))))))) - (if (let () (declare (not safe)) (##pair? _rest113720113728_)) - (let ((_hd113725113747_ + (_lp113979_ _rest114001_))))))) + (if (let () (declare (not safe)) (##pair? _rest113982113990_)) + (let ((_hd113987114009_ (let () (declare (not safe)) - (##car _rest113720113728_))) - (_tl113726113749_ + (##car _rest113982113990_))) + (_tl113988114011_ (let () (declare (not safe)) - (##cdr _rest113720113728_)))) - (let* ((_super113752_ _hd113725113747_) - (_rest113754_ _tl113726113749_)) + (##cdr _rest113982113990_)))) + (let* ((_super114014_ _hd113987114009_) + (_rest114016_ _tl113988114011_)) (declare (not safe)) - (_K113724113744_ _rest113754_ _super113752_))) - (let () (declare (not safe)) (_else113722113736_)))))))) + (_K113986114006_ _rest114016_ _super114014_))) + (let () (declare (not safe)) (_else113984113998_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass113711_ _slot113712_) - (if (##structure-ref _klass113711_ '7 gxc#!class::t '#f) - (memq _slot113712_ - (##structure-ref _klass113711_ '5 gxc#!class::t '#f)) + (lambda (_klass113973_ _slot113974_) + (if (##structure-ref _klass113973_ '7 gxc#!class::t '#f) + (memq _slot113974_ + (##structure-ref _klass113973_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self113708_ _id113709_) - (##structure-set! _self113708_ _id113709_ '1 gxc#!type::t '#f))) + (lambda (_self113970_ _id113971_) + (##structure-set! _self113970_ _id113971_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__klass114256 __method-table114257) - (let ((__id114258 - (let ((__slot114259 + (lambda (__klass114518 __method-table114519) + (let ((__id114520 + (let ((__slot114521 (let () (declare (not safe)) - (class-slot-offset __klass114256 'id)))) - (if __slot114259 - __slot114259 + (class-slot-offset __klass114518 'id)))) + (if __slot114521 + __slot114521 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self113708_ _id113709_) + (lambda (_self113970_ _id113971_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113708_ - _id113709_ - __id114258 - __klass114256 + _self113970_ + _id113971_ + __id114520 + __klass114518 '#f)))))) (let () (declare (not safe)) @@ -2212,28 +2212,28 @@ (declare (not safe)) (bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_self113583_ _id113584_) - (##structure-set! _self113583_ _id113584_ '1 gxc#!type::t '#f))) + (lambda (_self113845_ _id113846_) + (##structure-set! _self113845_ _id113846_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__klass114260 __method-table114261) - (let ((__id114262 - (let ((__slot114263 + (lambda (__klass114522 __method-table114523) + (let ((__id114524 + (let ((__slot114525 (let () (declare (not safe)) - (class-slot-offset __klass114260 'id)))) - (if __slot114263 - __slot114263 + (class-slot-offset __klass114522 'id)))) + (if __slot114525 + __slot114525 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self113583_ _id113584_) + (lambda (_self113845_ _id113846_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113583_ - _id113584_ - __id114262 - __klass114260 + _self113845_ + _id113846_ + __id114524 + __klass114522 '#f)))))) (let () (declare (not safe)) @@ -2248,71 +2248,71 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_self113456_ _id113457_ _slot113458_ _checked?113459_) - (##structure-set! _self113456_ _id113457_ '1 gxc#!type::t '#f) - (##structure-set! _self113456_ _slot113458_ '2 gxc#!accessor::t '#f) + (lambda (_self113718_ _id113719_ _slot113720_ _checked?113721_) + (##structure-set! _self113718_ _id113719_ '1 gxc#!type::t '#f) + (##structure-set! _self113718_ _slot113720_ '2 gxc#!accessor::t '#f) (##structure-set! - _self113456_ - _checked?113459_ + _self113718_ + _checked?113721_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__klass114264 __method-table114265) - (let ((__id114266 - (let ((__slot114269 + (lambda (__klass114526 __method-table114527) + (let ((__id114528 + (let ((__slot114531 (let () (declare (not safe)) - (class-slot-offset __klass114264 'id)))) - (if __slot114269 - __slot114269 + (class-slot-offset __klass114526 'id)))) + (if __slot114531 + __slot114531 (let () (declare (not safe)) (error '"Unknown slot" 'id))))) - (__checked?114267 - (let ((__slot114270 + (__checked?114529 + (let ((__slot114532 (let () (declare (not safe)) - (class-slot-offset __klass114264 'checked?)))) - (if __slot114270 - __slot114270 + (class-slot-offset __klass114526 'checked?)))) + (if __slot114532 + __slot114532 (let () (declare (not safe)) (error '"Unknown slot" 'checked?))))) - (__slot114268 - (let ((__slot114271 + (__slot114530 + (let ((__slot114533 (let () (declare (not safe)) - (class-slot-offset __klass114264 'slot)))) - (if __slot114271 - __slot114271 + (class-slot-offset __klass114526 'slot)))) + (if __slot114533 + __slot114533 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_self113456_ _id113457_ _slot113458_ _checked?113459_) + (lambda (_self113718_ _id113719_ _slot113720_ _checked?113721_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113456_ - _id113457_ - __id114266 - __klass114264 + _self113718_ + _id113719_ + __id114528 + __klass114526 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113456_ - _slot113458_ - __slot114268 - __klass114264 + _self113718_ + _slot113720_ + __slot114530 + __klass114526 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113456_ - _checked?113459_ - __checked?114267 - __klass114264 + _self113718_ + _checked?113721_ + __checked?114529 + __klass114526 '#f)))))) (let () (declare (not safe)) @@ -2323,71 +2323,71 @@ (declare (not safe)) (bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_self113329_ _id113330_ _slot113331_ _checked?113332_) - (##structure-set! _self113329_ _id113330_ '1 gxc#!type::t '#f) - (##structure-set! _self113329_ _slot113331_ '2 gxc#!mutator::t '#f) + (lambda (_self113591_ _id113592_ _slot113593_ _checked?113594_) + (##structure-set! _self113591_ _id113592_ '1 gxc#!type::t '#f) + (##structure-set! _self113591_ _slot113593_ '2 gxc#!mutator::t '#f) (##structure-set! - _self113329_ - _checked?113332_ + _self113591_ + _checked?113594_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__klass114272 __method-table114273) - (let ((__id114274 - (let ((__slot114277 + (lambda (__klass114534 __method-table114535) + (let ((__id114536 + (let ((__slot114539 (let () (declare (not safe)) - (class-slot-offset __klass114272 'id)))) - (if __slot114277 - __slot114277 + (class-slot-offset __klass114534 'id)))) + (if __slot114539 + __slot114539 (let () (declare (not safe)) (error '"Unknown slot" 'id))))) - (__checked?114275 - (let ((__slot114278 + (__checked?114537 + (let ((__slot114540 (let () (declare (not safe)) - (class-slot-offset __klass114272 'checked?)))) - (if __slot114278 - __slot114278 + (class-slot-offset __klass114534 'checked?)))) + (if __slot114540 + __slot114540 (let () (declare (not safe)) (error '"Unknown slot" 'checked?))))) - (__slot114276 - (let ((__slot114279 + (__slot114538 + (let ((__slot114541 (let () (declare (not safe)) - (class-slot-offset __klass114272 'slot)))) - (if __slot114279 - __slot114279 + (class-slot-offset __klass114534 'slot)))) + (if __slot114541 + __slot114541 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_self113329_ _id113330_ _slot113331_ _checked?113332_) + (lambda (_self113591_ _id113592_ _slot113593_ _checked?113594_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113329_ - _id113330_ - __id114274 - __klass114272 + _self113591_ + _id113592_ + __id114536 + __klass114534 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113329_ - _slot113331_ - __slot114276 - __klass114272 + _self113591_ + _slot113593_ + __slot114538 + __klass114534 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113329_ - _checked?113332_ - __checked?114275 - __klass114272 + _self113591_ + _checked?113594_ + __checked?114537 + __klass114534 '#f)))))) (let () (declare (not safe)) @@ -2398,349 +2398,349 @@ (declare (not safe)) (bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_self113173_ - _id113174_ - _arity113175_ - _dispatch113176_ - _inline113177_ - _typedecl113178_) - (if (let ((__tmp114402 + (lambda (_self113435_ + _id113436_ + _arity113437_ + _dispatch113438_ + _inline113439_ + _typedecl113440_) + (if (let ((__tmp114664 (let () (declare (not safe)) - (##structure-length _self113173_)))) + (##structure-length _self113435_)))) (declare (not safe)) - (##fx< '5 __tmp114402)) + (##fx< '5 __tmp114664)) (begin - (let ((__tmp114397 + (let ((__tmp114659 (let () (declare (not safe)) - (##structure-type _self113173_)))) + (##structure-type _self113435_)))) (declare (not safe)) (##unchecked-structure-set! - _self113173_ - _id113174_ + _self113435_ + _id113436_ '1 - __tmp114397 + __tmp114659 '#f)) - (let ((__tmp114398 + (let ((__tmp114660 (let () (declare (not safe)) - (##structure-type _self113173_)))) + (##structure-type _self113435_)))) (declare (not safe)) (##unchecked-structure-set! - _self113173_ - _arity113175_ + _self113435_ + _arity113437_ '2 - __tmp114398 + __tmp114660 '#f)) - (let ((__tmp114399 + (let ((__tmp114661 (let () (declare (not safe)) - (##structure-type _self113173_)))) + (##structure-type _self113435_)))) (declare (not safe)) (##unchecked-structure-set! - _self113173_ - _dispatch113176_ + _self113435_ + _dispatch113438_ '3 - __tmp114399 + __tmp114661 '#f)) - (let ((__tmp114400 + (let ((__tmp114662 (let () (declare (not safe)) - (##structure-type _self113173_)))) + (##structure-type _self113435_)))) (declare (not safe)) (##unchecked-structure-set! - _self113173_ - _inline113177_ + _self113435_ + _inline113439_ '4 - __tmp114400 + __tmp114662 '#f)) - (let ((__tmp114401 + (let ((__tmp114663 (let () (declare (not safe)) - (##structure-type _self113173_)))) + (##structure-type _self113435_)))) (declare (not safe)) (##unchecked-structure-set! - _self113173_ - _typedecl113178_ + _self113435_ + _typedecl113440_ '5 - __tmp114401 + __tmp114663 '#f))) - (let ((__tmp114396 + (let ((__tmp114658 (let () (declare (not safe)) - (##vector-length _self113173_)))) + (##vector-length _self113435_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113173_ + _self113435_ '5 - __tmp114396))))) + __tmp114658))))) (define gxc#!lambda:::init!__0 - (lambda (_self113183_ _id113184_ _arity113185_ _dispatch113186_) - (let* ((_inline113188_ '#f) (_typedecl113190_ '#f)) - (if (let ((__tmp114409 + (lambda (_self113445_ _id113446_ _arity113447_ _dispatch113448_) + (let* ((_inline113450_ '#f) (_typedecl113452_ '#f)) + (if (let ((__tmp114671 (let () (declare (not safe)) - (##structure-length _self113183_)))) + (##structure-length _self113445_)))) (declare (not safe)) - (##fx< '5 __tmp114409)) + (##fx< '5 __tmp114671)) (begin - (let ((__tmp114404 + (let ((__tmp114666 (let () (declare (not safe)) - (##structure-type _self113183_)))) + (##structure-type _self113445_)))) (declare (not safe)) (##unchecked-structure-set! - _self113183_ - _id113184_ + _self113445_ + _id113446_ '1 - __tmp114404 + __tmp114666 '#f)) - (let ((__tmp114405 + (let ((__tmp114667 (let () (declare (not safe)) - (##structure-type _self113183_)))) + (##structure-type _self113445_)))) (declare (not safe)) (##unchecked-structure-set! - _self113183_ - _arity113185_ + _self113445_ + _arity113447_ '2 - __tmp114405 + __tmp114667 '#f)) - (let ((__tmp114406 + (let ((__tmp114668 (let () (declare (not safe)) - (##structure-type _self113183_)))) + (##structure-type _self113445_)))) (declare (not safe)) (##unchecked-structure-set! - _self113183_ - _dispatch113186_ + _self113445_ + _dispatch113448_ '3 - __tmp114406 + __tmp114668 '#f)) - (let ((__tmp114407 + (let ((__tmp114669 (let () (declare (not safe)) - (##structure-type _self113183_)))) + (##structure-type _self113445_)))) (declare (not safe)) (##unchecked-structure-set! - _self113183_ - _inline113188_ + _self113445_ + _inline113450_ '4 - __tmp114407 + __tmp114669 '#f)) - (let ((__tmp114408 + (let ((__tmp114670 (let () (declare (not safe)) - (##structure-type _self113183_)))) + (##structure-type _self113445_)))) (declare (not safe)) (##unchecked-structure-set! - _self113183_ - _typedecl113190_ + _self113445_ + _typedecl113452_ '5 - __tmp114408 + __tmp114670 '#f))) - (let ((__tmp114403 + (let ((__tmp114665 (let () (declare (not safe)) - (##vector-length _self113183_)))) + (##vector-length _self113445_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113183_ + _self113445_ '5 - __tmp114403)))))) + __tmp114665)))))) (define gxc#!lambda:::init!__1 - (lambda (_self113192_ - _id113193_ - _arity113194_ - _dispatch113195_ - _inline113196_) - (let ((_typedecl113198_ '#f)) - (if (let ((__tmp114416 + (lambda (_self113454_ + _id113455_ + _arity113456_ + _dispatch113457_ + _inline113458_) + (let ((_typedecl113460_ '#f)) + (if (let ((__tmp114678 (let () (declare (not safe)) - (##structure-length _self113192_)))) + (##structure-length _self113454_)))) (declare (not safe)) - (##fx< '5 __tmp114416)) + (##fx< '5 __tmp114678)) (begin - (let ((__tmp114411 + (let ((__tmp114673 (let () (declare (not safe)) - (##structure-type _self113192_)))) + (##structure-type _self113454_)))) (declare (not safe)) (##unchecked-structure-set! - _self113192_ - _id113193_ + _self113454_ + _id113455_ '1 - __tmp114411 + __tmp114673 '#f)) - (let ((__tmp114412 + (let ((__tmp114674 (let () (declare (not safe)) - (##structure-type _self113192_)))) + (##structure-type _self113454_)))) (declare (not safe)) (##unchecked-structure-set! - _self113192_ - _arity113194_ + _self113454_ + _arity113456_ '2 - __tmp114412 + __tmp114674 '#f)) - (let ((__tmp114413 + (let ((__tmp114675 (let () (declare (not safe)) - (##structure-type _self113192_)))) + (##structure-type _self113454_)))) (declare (not safe)) (##unchecked-structure-set! - _self113192_ - _dispatch113195_ + _self113454_ + _dispatch113457_ '3 - __tmp114413 + __tmp114675 '#f)) - (let ((__tmp114414 + (let ((__tmp114676 (let () (declare (not safe)) - (##structure-type _self113192_)))) + (##structure-type _self113454_)))) (declare (not safe)) (##unchecked-structure-set! - _self113192_ - _inline113196_ + _self113454_ + _inline113458_ '4 - __tmp114414 + __tmp114676 '#f)) - (let ((__tmp114415 + (let ((__tmp114677 (let () (declare (not safe)) - (##structure-type _self113192_)))) + (##structure-type _self113454_)))) (declare (not safe)) (##unchecked-structure-set! - _self113192_ - _typedecl113198_ + _self113454_ + _typedecl113460_ '5 - __tmp114415 + __tmp114677 '#f))) - (let ((__tmp114410 + (let ((__tmp114672 (let () (declare (not safe)) - (##vector-length _self113192_)))) + (##vector-length _self113454_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113192_ + _self113454_ '5 - __tmp114410)))))) + __tmp114672)))))) (define gxc#!lambda:::init! - (lambda _g114418_ - (let ((_g114417_ (let () (declare (not safe)) (##length _g114418_)))) - (cond ((let () (declare (not safe)) (##fx= _g114417_ 4)) - (apply (lambda (_self113183_ - _id113184_ - _arity113185_ - _dispatch113186_) + (lambda _g114680_ + (let ((_g114679_ (let () (declare (not safe)) (##length _g114680_)))) + (cond ((let () (declare (not safe)) (##fx= _g114679_ 4)) + (apply (lambda (_self113445_ + _id113446_ + _arity113447_ + _dispatch113448_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self113183_ - _id113184_ - _arity113185_ - _dispatch113186_))) - _g114418_)) - ((let () (declare (not safe)) (##fx= _g114417_ 5)) - (apply (lambda (_self113192_ - _id113193_ - _arity113194_ - _dispatch113195_ - _inline113196_) + _self113445_ + _id113446_ + _arity113447_ + _dispatch113448_))) + _g114680_)) + ((let () (declare (not safe)) (##fx= _g114679_ 5)) + (apply (lambda (_self113454_ + _id113455_ + _arity113456_ + _dispatch113457_ + _inline113458_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self113192_ - _id113193_ - _arity113194_ - _dispatch113195_ - _inline113196_))) - _g114418_)) - ((let () (declare (not safe)) (##fx= _g114417_ 6)) - (apply (lambda (_self113200_ - _id113201_ - _arity113202_ - _dispatch113203_ - _inline113204_ - _typedecl113205_) - (if (let ((__tmp114425 + _self113454_ + _id113455_ + _arity113456_ + _dispatch113457_ + _inline113458_))) + _g114680_)) + ((let () (declare (not safe)) (##fx= _g114679_ 6)) + (apply (lambda (_self113462_ + _id113463_ + _arity113464_ + _dispatch113465_ + _inline113466_ + _typedecl113467_) + (if (let ((__tmp114687 (let () (declare (not safe)) - (##structure-length _self113200_)))) + (##structure-length _self113462_)))) (declare (not safe)) - (##fx< '5 __tmp114425)) + (##fx< '5 __tmp114687)) (begin - (let ((__tmp114420 + (let ((__tmp114682 (let () (declare (not safe)) - (##structure-type _self113200_)))) + (##structure-type _self113462_)))) (declare (not safe)) (##unchecked-structure-set! - _self113200_ - _id113201_ + _self113462_ + _id113463_ '1 - __tmp114420 + __tmp114682 '#f)) - (let ((__tmp114421 + (let ((__tmp114683 (let () (declare (not safe)) - (##structure-type _self113200_)))) + (##structure-type _self113462_)))) (declare (not safe)) (##unchecked-structure-set! - _self113200_ - _arity113202_ + _self113462_ + _arity113464_ '2 - __tmp114421 + __tmp114683 '#f)) - (let ((__tmp114422 + (let ((__tmp114684 (let () (declare (not safe)) - (##structure-type _self113200_)))) + (##structure-type _self113462_)))) (declare (not safe)) (##unchecked-structure-set! - _self113200_ - _dispatch113203_ + _self113462_ + _dispatch113465_ '3 - __tmp114422 + __tmp114684 '#f)) - (let ((__tmp114423 + (let ((__tmp114685 (let () (declare (not safe)) - (##structure-type _self113200_)))) + (##structure-type _self113462_)))) (declare (not safe)) (##unchecked-structure-set! - _self113200_ - _inline113204_ + _self113462_ + _inline113466_ '4 - __tmp114423 + __tmp114685 '#f)) - (let ((__tmp114424 + (let ((__tmp114686 (let () (declare (not safe)) - (##structure-type _self113200_)))) + (##structure-type _self113462_)))) (declare (not safe)) (##unchecked-structure-set! - _self113200_ - _typedecl113205_ + _self113462_ + _typedecl113467_ '5 - __tmp114424 + __tmp114686 '#f))) - (let ((__tmp114419 + (let ((__tmp114681 (let () (declare (not safe)) - (##vector-length _self113200_)))) + (##vector-length _self113462_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113200_ + _self113462_ '5 - __tmp114419)))) - _g114418_)) + __tmp114681)))) + _g114680_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g114418_)))))) + _g114680_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) @@ -2753,8 +2753,8 @@ gxc#!primitive-lambda:::init! '#f)) (define gxc#!primitive-case-lambda:::init! - (lambda (_self112925_ . _args112926_) - (apply struct-instance-init! _self112925_ _args112926_))) + (lambda (_self113187_ . _args113188_) + (apply struct-instance-init! _self113187_ _args113188_))) (let () (declare (not safe)) (bind-method!__% @@ -2763,64 +2763,64 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type112800_) + (lambda (_type113062_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112800_ 'gxc#!class::t)) + (##structure-instance-of? _type113062_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type112800_)) + (gxc#!class-method-table _type113062_)) '#f))) (define gxc#!class-method-table - (lambda (_klass112793_) - (let ((_$e112795_ - (##structure-ref _klass112793_ '10 gxc#!class::t '#f))) - (if _$e112795_ - _$e112795_ - (let ((_tab112798_ + (lambda (_klass113055_) + (let ((_$e113057_ + (##structure-ref _klass113055_ '10 gxc#!class::t '#f))) + (if _$e113057_ + _$e113057_ + (let ((_tab113060_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _klass112793_ - _tab112798_ + _klass113055_ + _tab113060_ '10 gxc#!class::t '#f) - _tab112798_))))) + _tab113060_))))) (define gxc#!class-lookup-method - (lambda (_klass112784_ _method112785_) - (let ((_tab112786112788_ - (##structure-ref _klass112784_ '10 gxc#!class::t '#f))) - (if _tab112786112788_ - (let ((_tab112791_ _tab112786112788_)) + (lambda (_klass113046_ _method113047_) + (let ((_tab113048113050_ + (##structure-ref _klass113046_ '10 gxc#!class::t '#f))) + (if _tab113048113050_ + (let ((_tab113053_ _tab113048113050_)) (declare (not safe)) - (hash-get _tab112791_ _method112785_)) + (hash-get _tab113053_ _method113047_)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type112781_ _method112782_) + (lambda (_type113043_ _method113044_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112781_ 'gxc#!class::t)) + (##structure-instance-of? _type113043_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type112781_ _method112782_)) + (gxc#!class-lookup-method _type113043_ _method113044_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym112765_ _type112766_ _local?112767_) + (lambda (_sym113027_ _type113028_ _local?113029_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112766_ 'gxc#!type::t)) + (##structure-instance-of? _type113028_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _sym112765_ - _type112766_))) - (let ((__tmp114426 - (let () (declare (not safe)) (struct->list _type112766_)))) + _sym113027_ + _type113028_))) + (let ((__tmp114688 + (let () (declare (not safe)) (struct->list _type113028_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym112765_ '" " __tmp114426)) - (let ((__tmp114427 - (if _local?112767_ + (gxc#verbose '"declare-type " _sym113027_ '" " __tmp114688)) + (let ((__tmp114689 + (if _local?113029_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2828,44 +2828,44 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! __tmp114427 _sym112765_ _type112766_)))) + (hash-put! __tmp114689 _sym113027_ _type113028_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym112772_ _type112773_) - (let ((_local?112775_ '#f)) + (lambda (_sym113034_ _type113035_) + (let ((_local?113037_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym112772_ - _type112773_ - _local?112775_)))) + _sym113034_ + _type113035_ + _local?113037_)))) (define gxc#optimizer-declare-type! - (lambda _g114429_ - (let ((_g114428_ (let () (declare (not safe)) (##length _g114429_)))) - (cond ((let () (declare (not safe)) (##fx= _g114428_ 2)) - (apply (lambda (_sym112772_ _type112773_) + (lambda _g114691_ + (let ((_g114690_ (let () (declare (not safe)) (##length _g114691_)))) + (cond ((let () (declare (not safe)) (##fx= _g114690_ 2)) + (apply (lambda (_sym113034_ _type113035_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym112772_ - _type112773_))) - _g114429_)) - ((let () (declare (not safe)) (##fx= _g114428_ 3)) - (apply (lambda (_sym112777_ _type112778_ _local?112779_) + _sym113034_ + _type113035_))) + _g114691_)) + ((let () (declare (not safe)) (##fx= _g114690_ 3)) + (apply (lambda (_sym113039_ _type113040_ _local?113041_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym112777_ - _type112778_ - _local?112779_))) - _g114429_)) + _sym113039_ + _type113040_ + _local?113041_))) + _g114691_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g114429_)))))) + _g114691_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym112751_ _local?112752_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym112751_)) - (let ((__tmp114430 - (if _local?112752_ + (lambda (_sym113013_ _local?113014_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym113013_)) + (let ((__tmp114692 + (if _local?113014_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2873,272 +2873,272 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-remove! __tmp114430 _sym112751_)))) + (hash-remove! __tmp114692 _sym113013_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym112757_) - (let ((_local?112759_ '#f)) + (lambda (_sym113019_) + (let ((_local?113021_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym112757_ _local?112759_)))) + (gxc#optimizer-clear-type!__% _sym113019_ _local?113021_)))) (define gxc#optimizer-clear-type! - (lambda _g114432_ - (let ((_g114431_ (let () (declare (not safe)) (##length _g114432_)))) - (cond ((let () (declare (not safe)) (##fx= _g114431_ 1)) - (apply (lambda (_sym112757_) + (lambda _g114694_ + (let ((_g114693_ (let () (declare (not safe)) (##length _g114694_)))) + (cond ((let () (declare (not safe)) (##fx= _g114693_ 1)) + (apply (lambda (_sym113019_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym112757_))) - _g114432_)) - ((let () (declare (not safe)) (##fx= _g114431_ 2)) - (apply (lambda (_sym112761_ _local?112762_) + (gxc#optimizer-clear-type!__0 _sym113019_))) + _g114694_)) + ((let () (declare (not safe)) (##fx= _g114693_ 2)) + (apply (lambda (_sym113023_ _local?113024_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym112761_ - _local?112762_))) - _g114432_)) + _sym113023_ + _local?113024_))) + _g114694_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g114432_)))))) + _g114694_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t112719_ _method112720_ _sym112721_ _rebind?112722_) - (let* ((_type112724_ + (lambda (_type-t112981_ _method112982_ _sym112983_ _rebind?112984_) + (let* ((_type112986_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t112719_))) - (_$e112726_ - (let () (declare (not safe)) (gxc#!type-vtab _type112724_)))) - (if _$e112726_ - ((lambda (_vtab112729_) - (let ((_$e112731_ + (gxc#optimizer-resolve-type _type-t112981_))) + (_$e112988_ + (let () (declare (not safe)) (gxc#!type-vtab _type112986_)))) + (if _$e112988_ + ((lambda (_vtab112991_) + (let ((_$e112993_ (let () (declare (not safe)) - (hash-get _vtab112729_ _method112720_)))) - (if _$e112731_ - ((lambda (_existing112734_) - (if _rebind?112722_ + (hash-get _vtab112991_ _method112982_)))) + (if _$e112993_ + ((lambda (_existing112996_) + (if _rebind?112984_ (begin (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _type-t112719_ + _type-t112981_ '" " - _method112720_)) + _method112982_)) (let () (declare (not safe)) (hash-put! - _vtab112729_ - _method112720_ - _sym112721_))) + _vtab112991_ + _method112982_ + _sym112983_))) (if (let () (declare (not safe)) - (eq? _existing112734_ _sym112721_)) + (eq? _existing112996_ _sym112983_)) '#!void - (let ((__tmp114437 - (let ((__tmp114438 - (let ((__tmp114439 - (let ((__tmp114440 + (let ((__tmp114699 + (let ((__tmp114700 + (let ((__tmp114701 + (let ((__tmp114702 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sym112721_ '())))) + (cons _sym112983_ '())))) (declare (not safe)) - (cons _method112720_ __tmp114440)))) + (cons _method112982_ __tmp114702)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _type-t112719_ - __tmp114439)))) + (cons _type-t112981_ + __tmp114701)))) (declare (not safe)) - (cons 'bind-method! __tmp114438)))) + (cons 'bind-method! __tmp114700)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp114437 - _method112720_))))) - _$e112731_) + __tmp114699 + _method112982_))))) + _$e112993_) (begin (let () (declare (not safe)) (gxc#verbose '"declare-method " - _type-t112719_ + _type-t112981_ '" " - _method112720_ + _method112982_ '" => " - _sym112721_)) + _sym112983_)) (let () (declare (not safe)) (hash-put! - _vtab112729_ - _method112720_ - _sym112721_)))))) - _$e112726_) - (if (let () (declare (not safe)) (not _type112724_)) + _vtab112991_ + _method112982_ + _sym112983_)))))) + _$e112988_) + (if (let () (declare (not safe)) (not _type112986_)) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown type " - _type-t112719_)) - (let ((__tmp114433 - (let ((__tmp114434 - (let ((__tmp114435 - (let ((__tmp114436 + _type-t112981_)) + (let ((__tmp114695 + (let ((__tmp114696 + (let ((__tmp114697 + (let ((__tmp114698 (let () (declare (not safe)) - (cons _method112720_ '())))) + (cons _method112982_ '())))) (declare (not safe)) - (cons _sym112721_ __tmp114436)))) + (cons _sym112983_ __tmp114698)))) (declare (not safe)) - (cons _type-t112719_ __tmp114435)))) + (cons _type-t112981_ __tmp114697)))) (declare (not safe)) - (cons 'bind-method! __tmp114434)))) + (cons 'bind-method! __tmp114696)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp114433 - _type112724_))))))) + __tmp114695 + _type112986_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t112739_ _method112740_ _sym112741_) - (let ((_rebind?112743_ '#f)) + (lambda (_type-t113001_ _method113002_ _sym113003_) + (let ((_rebind?113005_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t112739_ - _method112740_ - _sym112741_ - _rebind?112743_)))) + _type-t113001_ + _method113002_ + _sym113003_ + _rebind?113005_)))) (define gxc#optimizer-declare-method! - (lambda _g114442_ - (let ((_g114441_ (let () (declare (not safe)) (##length _g114442_)))) - (cond ((let () (declare (not safe)) (##fx= _g114441_ 3)) - (apply (lambda (_type-t112739_ _method112740_ _sym112741_) + (lambda _g114704_ + (let ((_g114703_ (let () (declare (not safe)) (##length _g114704_)))) + (cond ((let () (declare (not safe)) (##fx= _g114703_ 3)) + (apply (lambda (_type-t113001_ _method113002_ _sym113003_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t112739_ - _method112740_ - _sym112741_))) - _g114442_)) - ((let () (declare (not safe)) (##fx= _g114441_ 4)) - (apply (lambda (_type-t112745_ - _method112746_ - _sym112747_ - _rebind?112748_) + _type-t113001_ + _method113002_ + _sym113003_))) + _g114704_)) + ((let () (declare (not safe)) (##fx= _g114703_ 4)) + (apply (lambda (_type-t113007_ + _method113008_ + _sym113009_ + _rebind?113010_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t112745_ - _method112746_ - _sym112747_ - _rebind?112748_))) - _g114442_)) + _type-t113007_ + _method113008_ + _sym113009_ + _rebind?113010_))) + _g114704_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g114442_)))))) + _g114704_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym112707_) - (let ((_$e112715_ - (let ((_ht112708112710_ (gxc#current-compile-local-type))) - (if _ht112708112710_ - (let ((_ht112713_ _ht112708112710_)) + (lambda (_sym112969_) + (let ((_$e112977_ + (let ((_ht112970112972_ (gxc#current-compile-local-type))) + (if _ht112970112972_ + (let ((_ht112975_ _ht112970112972_)) (declare (not safe)) - (hash-get _ht112713_ _sym112707_)) + (hash-get _ht112975_ _sym112969_)) '#f)))) - (if _$e112715_ - _$e112715_ - (let ((__tmp114443 + (if _$e112977_ + _$e112977_ + (let ((__tmp114705 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp114443 _sym112707_)))))) + (hash-get __tmp114705 _sym112969_)))))) (define gxc#optimizer-resolve-type - (lambda (_sym112699_) - (let ((_type112700112702_ + (lambda (_sym112961_) + (let ((_type112962112964_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym112699_)))) - (if _type112700112702_ - (let ((_type112705_ _type112700112702_)) + (gxc#optimizer-lookup-type _sym112961_)))) + (if _type112962112964_ + (let ((_type112967_ _type112962112964_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type112705_ 'gxc#!alias::t)) - (let ((__tmp114444 - (##structure-ref _type112705_ '1 gxc#!type::t '#f))) + (##structure-instance-of? _type112967_ 'gxc#!alias::t)) + (let ((__tmp114706 + (##structure-ref _type112967_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp114444)) - _type112705_)) + (gxc#optimizer-resolve-type __tmp114706)) + _type112967_)) '#f)))) (define gxc#optimizer-resolve-class - (lambda (_where112691_ _klass-id112692_) - (let ((_$e112694_ + (lambda (_where112953_ _klass-id112954_) + (let ((_$e112956_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _klass-id112692_)))) - (if _$e112694_ - ((lambda (_klass112697_) + (gxc#optimizer-resolve-type _klass-id112954_)))) + (if _$e112956_ + ((lambda (_klass112959_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass112697_ 'gxc#!class::t)) + (##structure-instance-of? _klass112959_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"bad class reference; not a class type" - _where112691_ - _klass-id112692_ - _klass112697_))) - _klass112697_) - _$e112694_) + _where112953_ + _klass-id112954_ + _klass112959_))) + _klass112959_) + _$e112956_) (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _where112691_ - _klass-id112692_)))))) + _where112953_ + _klass-id112954_)))))) (define gxc#optimizer-lookup-method - (lambda (_type-t112688_ _method112689_) - (let ((__tmp114445 + (lambda (_type-t112950_ _method112951_) + (let ((__tmp114707 (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t112688_)))) + (gxc#optimizer-resolve-type _type-t112950_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp114445 _method112689_)))) + (gxc#!type-lookup-method __tmp114707 _method112951_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym112686_) + (lambda (_sym112948_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _sym112686_)) - (let ((__tmp114446 + (gxc#verbose '"top-level method: " _sym112948_)) + (let ((__tmp114708 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp114446 _sym112686_ '#t)))) + (hash-put! __tmp114708 _sym112948_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym112684_) - (let ((__tmp114447 + (lambda (_sym112946_) + (let ((__tmp114709 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp114447 _sym112684_)))) + (hash-get __tmp114709 _sym112946_)))) (define gxc#identifier-symbol - (lambda (_stx112682_) + (lambda (_stx112944_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _stx112682_ + _stx112944_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _stx112682_)) - (let () (declare (not safe)) (gx#stx-e _stx112682_))))))) + (gxc#generate-runtime-binding-id _stx112944_)) + (let () (declare (not safe)) (gx#stx-e _stx112944_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__1.scm b/src/bootstrap/gerbil/compiler/optimize-base__1.scm index d10f2c58..056f9b39 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__1.scm @@ -1,1602 +1,1602 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g114449_| + (define |gxc[1]#_g114711_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114451_| + (define |gxc[1]#_g114713_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114453_| + (define |gxc[1]#_g114715_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114459_| + (define |gxc[1]#_g114721_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114462_| + (define |gxc[1]#_g114724_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114465_| + (define |gxc[1]#_g114727_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114471_| + (define |gxc[1]#_g114733_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114474_| + (define |gxc[1]#_g114736_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114477_| + (define |gxc[1]#_g114739_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114483_| + (define |gxc[1]#_g114745_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114486_| + (define |gxc[1]#_g114748_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114489_| + (define |gxc[1]#_g114751_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114495_| + (define |gxc[1]#_g114757_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114498_| + (define |gxc[1]#_g114760_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114501_| + (define |gxc[1]#_g114763_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114503_| + (define |gxc[1]#_g114765_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114505_| + (define |gxc[1]#_g114767_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114507_| + (define |gxc[1]#_g114769_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114511_| + (define |gxc[1]#_g114773_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114515_| + (define |gxc[1]#_g114777_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114519_| + (define |gxc[1]#_g114781_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114523_| + (define |gxc[1]#_g114785_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114526_| + (define |gxc[1]#_g114788_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114528_| + (define |gxc[1]#_g114790_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114530_| + (define |gxc[1]#_g114792_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114532_| + (define |gxc[1]#_g114794_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114536_| + (define |gxc[1]#_g114798_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114540_| + (define |gxc[1]#_g114802_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114544_| + (define |gxc[1]#_g114806_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114548_| + (define |gxc[1]#_g114810_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114552_| + (define |gxc[1]#_g114814_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114554_| + (define |gxc[1]#_g114816_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114556_| + (define |gxc[1]#_g114818_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114560_| + (define |gxc[1]#_g114822_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114564_| + (define |gxc[1]#_g114826_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114568_| + (define |gxc[1]#_g114830_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114572_| + (define |gxc[1]#_g114834_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114576_| + (define |gxc[1]#_g114838_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114578_| + (define |gxc[1]#_g114840_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114580_| + (define |gxc[1]#_g114842_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114593_| + (define |gxc[1]#_g114855_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114596_| + (define |gxc[1]#_g114858_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114599_| + (define |gxc[1]#_g114861_| (##structure gx#syntax-quote::t '!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114602_| + (define |gxc[1]#_g114864_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114605_| + (define |gxc[1]#_g114867_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114608_| + (define |gxc[1]#_g114870_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114611_| + (define |gxc[1]#_g114873_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114614_| + (define |gxc[1]#_g114876_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114617_| + (define |gxc[1]#_g114879_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114620_| + (define |gxc[1]#_g114882_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114633_| + (define |gxc[1]#_g114895_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114636_| + (define |gxc[1]#_g114898_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114639_| + (define |gxc[1]#_g114901_| (##structure gx#syntax-quote::t '!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114642_| + (define |gxc[1]#_g114904_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114645_| + (define |gxc[1]#_g114907_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114648_| + (define |gxc[1]#_g114910_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114651_| + (define |gxc[1]#_g114913_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114654_| + (define |gxc[1]#_g114916_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114657_| + (define |gxc[1]#_g114919_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114660_| + (define |gxc[1]#_g114922_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114673_| + (define |gxc[1]#_g114935_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114676_| + (define |gxc[1]#_g114938_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114679_| + (define |gxc[1]#_g114941_| (##structure gx#syntax-quote::t '&!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114682_| + (define |gxc[1]#_g114944_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114685_| + (define |gxc[1]#_g114947_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114688_| + (define |gxc[1]#_g114950_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114691_| + (define |gxc[1]#_g114953_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114694_| + (define |gxc[1]#_g114956_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114697_| + (define |gxc[1]#_g114959_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114700_| + (define |gxc[1]#_g114962_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114713_| + (define |gxc[1]#_g114975_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114716_| + (define |gxc[1]#_g114978_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114719_| + (define |gxc[1]#_g114981_| (##structure gx#syntax-quote::t '&!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114722_| + (define |gxc[1]#_g114984_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114725_| + (define |gxc[1]#_g114987_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114728_| + (define |gxc[1]#_g114990_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114731_| + (define |gxc[1]#_g114993_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114734_| + (define |gxc[1]#_g114996_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114737_| + (define |gxc[1]#_g114999_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114740_| + (define |gxc[1]#_g115002_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114743_| + (define |gxc[1]#_g115005_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114745_| + (define |gxc[1]#_g115007_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114747_| + (define |gxc[1]#_g115009_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114749_| + (define |gxc[1]#_g115011_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114753_| + (define |gxc[1]#_g115015_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114757_| + (define |gxc[1]#_g115019_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114761_| + (define |gxc[1]#_g115023_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114765_| + (define |gxc[1]#_g115027_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114769_| + (define |gxc[1]#_g115031_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114771_| + (define |gxc[1]#_g115033_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114773_| + (define |gxc[1]#_g115035_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114777_| + (define |gxc[1]#_g115039_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114781_| + (define |gxc[1]#_g115043_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114785_| + (define |gxc[1]#_g115047_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114789_| + (define |gxc[1]#_g115051_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114793_| + (define |gxc[1]#_g115055_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114795_| + (define |gxc[1]#_g115057_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114797_| + (define |gxc[1]#_g115059_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114803_| + (define |gxc[1]#_g115065_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114806_| + (define |gxc[1]#_g115068_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114809_| + (define |gxc[1]#_g115071_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114815_| + (define |gxc[1]#_g115077_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114818_| + (define |gxc[1]#_g115080_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114821_| + (define |gxc[1]#_g115083_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114827_| + (define |gxc[1]#_g115089_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114830_| + (define |gxc[1]#_g115092_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114833_| + (define |gxc[1]#_g115095_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114839_| + (define |gxc[1]#_g115101_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114842_| + (define |gxc[1]#_g115104_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114845_| + (define |gxc[1]#_g115107_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114849_| + (define |gxc[1]#_g115111_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114851_| + (define |gxc[1]#_g115113_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114853_| + (define |gxc[1]#_g115115_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114859_| + (define |gxc[1]#_g115121_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114862_| + (define |gxc[1]#_g115124_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114865_| + (define |gxc[1]#_g115127_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114871_| + (define |gxc[1]#_g115133_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114874_| + (define |gxc[1]#_g115136_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114877_| + (define |gxc[1]#_g115139_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114883_| + (define |gxc[1]#_g115145_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114886_| + (define |gxc[1]#_g115148_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114889_| + (define |gxc[1]#_g115151_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114895_| + (define |gxc[1]#_g115157_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114898_| + (define |gxc[1]#_g115160_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114901_| + (define |gxc[1]#_g115163_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114905_| + (define |gxc[1]#_g115167_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114907_| + (define |gxc[1]#_g115169_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114909_| + (define |gxc[1]#_g115171_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114917_| + (define |gxc[1]#_g115179_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114920_| + (define |gxc[1]#_g115182_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114923_| + (define |gxc[1]#_g115185_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114926_| + (define |gxc[1]#_g115188_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114929_| + (define |gxc[1]#_g115191_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114937_| + (define |gxc[1]#_g115199_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114940_| + (define |gxc[1]#_g115202_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114943_| + (define |gxc[1]#_g115205_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114946_| + (define |gxc[1]#_g115208_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114949_| + (define |gxc[1]#_g115211_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114957_| + (define |gxc[1]#_g115219_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114960_| + (define |gxc[1]#_g115222_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114963_| + (define |gxc[1]#_g115225_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114966_| + (define |gxc[1]#_g115228_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114969_| + (define |gxc[1]#_g115231_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114977_| + (define |gxc[1]#_g115239_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114980_| + (define |gxc[1]#_g115242_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114983_| + (define |gxc[1]#_g115245_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114986_| + (define |gxc[1]#_g115248_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114989_| + (define |gxc[1]#_g115251_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114993_| + (define |gxc[1]#_g115255_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114995_| + (define |gxc[1]#_g115257_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114997_| + (define |gxc[1]#_g115259_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115002_| + (define |gxc[1]#_g115264_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115005_| + (define |gxc[1]#_g115267_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115010_| + (define |gxc[1]#_g115272_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115013_| + (define |gxc[1]#_g115275_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115018_| + (define |gxc[1]#_g115280_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115021_| + (define |gxc[1]#_g115283_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115026_| + (define |gxc[1]#_g115288_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115029_| + (define |gxc[1]#_g115291_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115033_| + (define |gxc[1]#_g115295_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115035_| + (define |gxc[1]#_g115297_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115037_| + (define |gxc[1]#_g115299_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115043_| + (define |gxc[1]#_g115305_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115046_| + (define |gxc[1]#_g115308_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115049_| + (define |gxc[1]#_g115311_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115055_| + (define |gxc[1]#_g115317_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115058_| + (define |gxc[1]#_g115320_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115061_| + (define |gxc[1]#_g115323_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115067_| + (define |gxc[1]#_g115329_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115070_| + (define |gxc[1]#_g115332_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115073_| + (define |gxc[1]#_g115335_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115079_| + (define |gxc[1]#_g115341_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115082_| + (define |gxc[1]#_g115344_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115085_| + (define |gxc[1]#_g115347_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115089_| + (define |gxc[1]#_g115351_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115091_| + (define |gxc[1]#_g115353_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115093_| + (define |gxc[1]#_g115355_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115099_| + (define |gxc[1]#_g115361_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115102_| + (define |gxc[1]#_g115364_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115105_| + (define |gxc[1]#_g115367_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115111_| + (define |gxc[1]#_g115373_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115114_| + (define |gxc[1]#_g115376_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115117_| + (define |gxc[1]#_g115379_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115123_| + (define |gxc[1]#_g115385_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115126_| + (define |gxc[1]#_g115388_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115129_| + (define |gxc[1]#_g115391_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115135_| + (define |gxc[1]#_g115397_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115138_| + (define |gxc[1]#_g115400_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115141_| + (define |gxc[1]#_g115403_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115143_| + (define |gxc[1]#_g115405_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115145_| + (define |gxc[1]#_g115407_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115147_| + (define |gxc[1]#_g115409_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115151_| + (define |gxc[1]#_g115413_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115153_| + (define |gxc[1]#_g115415_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115155_| + (define |gxc[1]#_g115417_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115157_| + (define |gxc[1]#_g115419_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115159_| + (define |gxc[1]#_g115421_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115167_| + (define |gxc[1]#_g115429_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115170_| + (define |gxc[1]#_g115432_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115173_| + (define |gxc[1]#_g115435_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115176_| + (define |gxc[1]#_g115438_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115179_| + (define |gxc[1]#_g115441_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115187_| + (define |gxc[1]#_g115449_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115190_| + (define |gxc[1]#_g115452_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115193_| + (define |gxc[1]#_g115455_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115196_| + (define |gxc[1]#_g115458_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115199_| + (define |gxc[1]#_g115461_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115207_| + (define |gxc[1]#_g115469_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115210_| + (define |gxc[1]#_g115472_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115213_| + (define |gxc[1]#_g115475_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115216_| + (define |gxc[1]#_g115478_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115219_| + (define |gxc[1]#_g115481_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115227_| + (define |gxc[1]#_g115489_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115230_| + (define |gxc[1]#_g115492_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115233_| + (define |gxc[1]#_g115495_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115236_| + (define |gxc[1]#_g115498_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115239_| + (define |gxc[1]#_g115501_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115243_| + (define |gxc[1]#_g115505_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115246_| + (define |gxc[1]#_g115508_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115248_| + (define |gxc[1]#_g115510_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115250_| + (define |gxc[1]#_g115512_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115255_| + (define |gxc[1]#_g115517_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115258_| + (define |gxc[1]#_g115520_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115263_| + (define |gxc[1]#_g115525_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115266_| + (define |gxc[1]#_g115528_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115271_| + (define |gxc[1]#_g115533_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115274_| + (define |gxc[1]#_g115536_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115279_| + (define |gxc[1]#_g115541_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115282_| + (define |gxc[1]#_g115544_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1605,7 +1605,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj114280 + (let ((__obj114542 (let () (declare (not safe)) (##structure @@ -1628,7 +1628,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114542 'gxc#optimizer-info::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1636,7 +1636,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114542 'optimizer-info '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1644,7 +1644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114542 '(type ssxi methods) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1652,7 +1652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114542 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1660,7 +1660,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114542 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1668,7 +1668,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114542 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1676,7 +1676,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114542 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1684,150 +1684,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114542 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114448 |gxc[1]#_g114449_|)) + (let ((__tmp114710 |gxc[1]#_g114711_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114448 + __obj114542 + __tmp114710 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114450 |gxc[1]#_g114451_|)) + (let ((__tmp114712 |gxc[1]#_g114713_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114450 + __obj114542 + __tmp114712 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114452 |gxc[1]#_g114453_|)) + (let ((__tmp114714 |gxc[1]#_g114715_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114452 + __obj114542 + __tmp114714 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114454 - (let ((__tmp114463 - (let ((__tmp114464 |gxc[1]#_g114465_|)) + (let ((__tmp114716 + (let ((__tmp114725 + (let ((__tmp114726 |gxc[1]#_g114727_|)) (declare (not safe)) - (cons 'type __tmp114464))) - (__tmp114455 - (let ((__tmp114460 - (let ((__tmp114461 |gxc[1]#_g114462_|)) + (cons 'type __tmp114726))) + (__tmp114717 + (let ((__tmp114722 + (let ((__tmp114723 |gxc[1]#_g114724_|)) (declare (not safe)) - (cons 'ssxi __tmp114461))) - (__tmp114456 - (let ((__tmp114457 - (let ((__tmp114458 |gxc[1]#_g114459_|)) + (cons 'ssxi __tmp114723))) + (__tmp114718 + (let ((__tmp114719 + (let ((__tmp114720 |gxc[1]#_g114721_|)) (declare (not safe)) - (cons 'methods __tmp114458)))) + (cons 'methods __tmp114720)))) (declare (not safe)) - (cons __tmp114457 '())))) + (cons __tmp114719 '())))) (declare (not safe)) - (cons __tmp114460 __tmp114456)))) + (cons __tmp114722 __tmp114718)))) (declare (not safe)) - (cons __tmp114463 __tmp114455)))) + (cons __tmp114725 __tmp114717)))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114454 + __obj114542 + __tmp114716 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114466 - (let ((__tmp114475 - (let ((__tmp114476 |gxc[1]#_g114477_|)) + (let ((__tmp114728 + (let ((__tmp114737 + (let ((__tmp114738 |gxc[1]#_g114739_|)) (declare (not safe)) - (cons 'type __tmp114476))) - (__tmp114467 - (let ((__tmp114472 - (let ((__tmp114473 |gxc[1]#_g114474_|)) + (cons 'type __tmp114738))) + (__tmp114729 + (let ((__tmp114734 + (let ((__tmp114735 |gxc[1]#_g114736_|)) (declare (not safe)) - (cons 'ssxi __tmp114473))) - (__tmp114468 - (let ((__tmp114469 - (let ((__tmp114470 |gxc[1]#_g114471_|)) + (cons 'ssxi __tmp114735))) + (__tmp114730 + (let ((__tmp114731 + (let ((__tmp114732 |gxc[1]#_g114733_|)) (declare (not safe)) - (cons 'methods __tmp114470)))) + (cons 'methods __tmp114732)))) (declare (not safe)) - (cons __tmp114469 '())))) + (cons __tmp114731 '())))) (declare (not safe)) - (cons __tmp114472 __tmp114468)))) + (cons __tmp114734 __tmp114730)))) (declare (not safe)) - (cons __tmp114475 __tmp114467)))) + (cons __tmp114737 __tmp114729)))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114466 + __obj114542 + __tmp114728 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114478 - (let ((__tmp114487 - (let ((__tmp114488 |gxc[1]#_g114489_|)) + (let ((__tmp114740 + (let ((__tmp114749 + (let ((__tmp114750 |gxc[1]#_g114751_|)) (declare (not safe)) - (cons 'type __tmp114488))) - (__tmp114479 - (let ((__tmp114484 - (let ((__tmp114485 |gxc[1]#_g114486_|)) + (cons 'type __tmp114750))) + (__tmp114741 + (let ((__tmp114746 + (let ((__tmp114747 |gxc[1]#_g114748_|)) (declare (not safe)) - (cons 'ssxi __tmp114485))) - (__tmp114480 - (let ((__tmp114481 - (let ((__tmp114482 |gxc[1]#_g114483_|)) + (cons 'ssxi __tmp114747))) + (__tmp114742 + (let ((__tmp114743 + (let ((__tmp114744 |gxc[1]#_g114745_|)) (declare (not safe)) - (cons 'methods __tmp114482)))) + (cons 'methods __tmp114744)))) (declare (not safe)) - (cons __tmp114481 '())))) + (cons __tmp114743 '())))) (declare (not safe)) - (cons __tmp114484 __tmp114480)))) + (cons __tmp114746 __tmp114742)))) (declare (not safe)) - (cons __tmp114487 __tmp114479)))) + (cons __tmp114749 __tmp114741)))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114478 + __obj114542 + __tmp114740 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114490 - (let ((__tmp114499 - (let ((__tmp114500 |gxc[1]#_g114501_|)) + (let ((__tmp114752 + (let ((__tmp114761 + (let ((__tmp114762 |gxc[1]#_g114763_|)) (declare (not safe)) - (cons 'type __tmp114500))) - (__tmp114491 - (let ((__tmp114496 - (let ((__tmp114497 |gxc[1]#_g114498_|)) + (cons 'type __tmp114762))) + (__tmp114753 + (let ((__tmp114758 + (let ((__tmp114759 |gxc[1]#_g114760_|)) (declare (not safe)) - (cons 'ssxi __tmp114497))) - (__tmp114492 - (let ((__tmp114493 - (let ((__tmp114494 |gxc[1]#_g114495_|)) + (cons 'ssxi __tmp114759))) + (__tmp114754 + (let ((__tmp114755 + (let ((__tmp114756 |gxc[1]#_g114757_|)) (declare (not safe)) - (cons 'methods __tmp114494)))) + (cons 'methods __tmp114756)))) (declare (not safe)) - (cons __tmp114493 '())))) + (cons __tmp114755 '())))) (declare (not safe)) - (cons __tmp114496 __tmp114492)))) + (cons __tmp114758 __tmp114754)))) (declare (not safe)) - (cons __tmp114499 __tmp114491)))) + (cons __tmp114761 __tmp114753)))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114490 + __obj114542 + __tmp114752 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114280)) + __obj114542)) (define |gxc[:0:]#!type| - (let ((__obj114281 + (let ((__obj114543 (let () (declare (not safe)) (##structure @@ -1850,7 +1850,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114543 'gxc#!type::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1858,7 +1858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114543 '!type '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1866,7 +1866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114543 '(id) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1874,7 +1874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114543 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1882,7 +1882,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114543 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1890,7 +1890,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114543 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1898,7 +1898,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114543 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1906,94 +1906,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114543 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114502 |gxc[1]#_g114503_|)) + (let ((__tmp114764 |gxc[1]#_g114765_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114502 + __obj114543 + __tmp114764 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114504 |gxc[1]#_g114505_|)) + (let ((__tmp114766 |gxc[1]#_g114767_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114504 + __obj114543 + __tmp114766 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114506 |gxc[1]#_g114507_|)) + (let ((__tmp114768 |gxc[1]#_g114769_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114506 + __obj114543 + __tmp114768 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114508 - (let ((__tmp114509 - (let ((__tmp114510 |gxc[1]#_g114511_|)) + (let ((__tmp114770 + (let ((__tmp114771 + (let ((__tmp114772 |gxc[1]#_g114773_|)) (declare (not safe)) - (cons 'id __tmp114510)))) + (cons 'id __tmp114772)))) (declare (not safe)) - (cons __tmp114509 '())))) + (cons __tmp114771 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114508 + __obj114543 + __tmp114770 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114512 - (let ((__tmp114513 - (let ((__tmp114514 |gxc[1]#_g114515_|)) + (let ((__tmp114774 + (let ((__tmp114775 + (let ((__tmp114776 |gxc[1]#_g114777_|)) (declare (not safe)) - (cons 'id __tmp114514)))) + (cons 'id __tmp114776)))) (declare (not safe)) - (cons __tmp114513 '())))) + (cons __tmp114775 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114512 + __obj114543 + __tmp114774 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114516 - (let ((__tmp114517 - (let ((__tmp114518 |gxc[1]#_g114519_|)) + (let ((__tmp114778 + (let ((__tmp114779 + (let ((__tmp114780 |gxc[1]#_g114781_|)) (declare (not safe)) - (cons 'id __tmp114518)))) + (cons 'id __tmp114780)))) (declare (not safe)) - (cons __tmp114517 '())))) + (cons __tmp114779 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114516 + __obj114543 + __tmp114778 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114520 - (let ((__tmp114521 - (let ((__tmp114522 |gxc[1]#_g114523_|)) + (let ((__tmp114782 + (let ((__tmp114783 + (let ((__tmp114784 |gxc[1]#_g114785_|)) (declare (not safe)) - (cons 'id __tmp114522)))) + (cons 'id __tmp114784)))) (declare (not safe)) - (cons __tmp114521 '())))) + (cons __tmp114783 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114520 + __obj114543 + __tmp114782 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114281)) + __obj114543)) (define |gxc[:0:]#!alias| - (let ((__obj114282 + (let ((__obj114544 (let () (declare (not safe)) (##structure @@ -2016,7 +2016,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114544 'gxc#!alias::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2024,7 +2024,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114544 '!alias '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2032,26 +2032,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114544 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114524 - (let ((__tmp114525 |gxc[1]#_g114526_|)) + (let ((__tmp114786 + (let ((__tmp114787 |gxc[1]#_g114788_|)) (declare (not safe)) - (cons __tmp114525 '())))) + (cons __tmp114787 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114524 + __obj114544 + __tmp114786 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114544 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2059,7 +2059,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114544 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2067,7 +2067,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114544 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2075,94 +2075,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114544 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114527 |gxc[1]#_g114528_|)) + (let ((__tmp114789 |gxc[1]#_g114790_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114527 + __obj114544 + __tmp114789 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114529 |gxc[1]#_g114530_|)) + (let ((__tmp114791 |gxc[1]#_g114792_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114529 + __obj114544 + __tmp114791 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114531 |gxc[1]#_g114532_|)) + (let ((__tmp114793 |gxc[1]#_g114794_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114531 + __obj114544 + __tmp114793 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114533 - (let ((__tmp114534 - (let ((__tmp114535 |gxc[1]#_g114536_|)) + (let ((__tmp114795 + (let ((__tmp114796 + (let ((__tmp114797 |gxc[1]#_g114798_|)) (declare (not safe)) - (cons 'id __tmp114535)))) + (cons 'id __tmp114797)))) (declare (not safe)) - (cons __tmp114534 '())))) + (cons __tmp114796 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114533 + __obj114544 + __tmp114795 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114537 - (let ((__tmp114538 - (let ((__tmp114539 |gxc[1]#_g114540_|)) + (let ((__tmp114799 + (let ((__tmp114800 + (let ((__tmp114801 |gxc[1]#_g114802_|)) (declare (not safe)) - (cons 'id __tmp114539)))) + (cons 'id __tmp114801)))) (declare (not safe)) - (cons __tmp114538 '())))) + (cons __tmp114800 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114537 + __obj114544 + __tmp114799 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114541 - (let ((__tmp114542 - (let ((__tmp114543 |gxc[1]#_g114544_|)) + (let ((__tmp114803 + (let ((__tmp114804 + (let ((__tmp114805 |gxc[1]#_g114806_|)) (declare (not safe)) - (cons 'id __tmp114543)))) + (cons 'id __tmp114805)))) (declare (not safe)) - (cons __tmp114542 '())))) + (cons __tmp114804 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114541 + __obj114544 + __tmp114803 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114545 - (let ((__tmp114546 - (let ((__tmp114547 |gxc[1]#_g114548_|)) + (let ((__tmp114807 + (let ((__tmp114808 + (let ((__tmp114809 |gxc[1]#_g114810_|)) (declare (not safe)) - (cons 'id __tmp114547)))) + (cons 'id __tmp114809)))) (declare (not safe)) - (cons __tmp114546 '())))) + (cons __tmp114808 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114545 + __obj114544 + __tmp114807 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114282)) + __obj114544)) (define |gxc[:0:]#!procedure| - (let ((__obj114283 + (let ((__obj114545 (let () (declare (not safe)) (##structure @@ -2185,7 +2185,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114545 'gxc#!procedure::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2193,7 +2193,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114545 '!procedure '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2201,26 +2201,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114545 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114549 - (let ((__tmp114550 |gxc[1]#_g114526_|)) + (let ((__tmp114811 + (let ((__tmp114812 |gxc[1]#_g114788_|)) (declare (not safe)) - (cons __tmp114550 '())))) + (cons __tmp114812 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114549 + __obj114545 + __tmp114811 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114545 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2228,7 +2228,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114545 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2236,7 +2236,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114545 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2244,94 +2244,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114545 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114551 |gxc[1]#_g114552_|)) + (let ((__tmp114813 |gxc[1]#_g114814_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114551 + __obj114545 + __tmp114813 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114553 |gxc[1]#_g114554_|)) + (let ((__tmp114815 |gxc[1]#_g114816_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114553 + __obj114545 + __tmp114815 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114555 |gxc[1]#_g114556_|)) + (let ((__tmp114817 |gxc[1]#_g114818_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114555 + __obj114545 + __tmp114817 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114557 - (let ((__tmp114558 - (let ((__tmp114559 |gxc[1]#_g114560_|)) + (let ((__tmp114819 + (let ((__tmp114820 + (let ((__tmp114821 |gxc[1]#_g114822_|)) (declare (not safe)) - (cons 'id __tmp114559)))) + (cons 'id __tmp114821)))) (declare (not safe)) - (cons __tmp114558 '())))) + (cons __tmp114820 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114557 + __obj114545 + __tmp114819 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114561 - (let ((__tmp114562 - (let ((__tmp114563 |gxc[1]#_g114564_|)) + (let ((__tmp114823 + (let ((__tmp114824 + (let ((__tmp114825 |gxc[1]#_g114826_|)) (declare (not safe)) - (cons 'id __tmp114563)))) + (cons 'id __tmp114825)))) (declare (not safe)) - (cons __tmp114562 '())))) + (cons __tmp114824 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114561 + __obj114545 + __tmp114823 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114565 - (let ((__tmp114566 - (let ((__tmp114567 |gxc[1]#_g114568_|)) + (let ((__tmp114827 + (let ((__tmp114828 + (let ((__tmp114829 |gxc[1]#_g114830_|)) (declare (not safe)) - (cons 'id __tmp114567)))) + (cons 'id __tmp114829)))) (declare (not safe)) - (cons __tmp114566 '())))) + (cons __tmp114828 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114565 + __obj114545 + __tmp114827 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114569 - (let ((__tmp114570 - (let ((__tmp114571 |gxc[1]#_g114572_|)) + (let ((__tmp114831 + (let ((__tmp114832 + (let ((__tmp114833 |gxc[1]#_g114834_|)) (declare (not safe)) - (cons 'id __tmp114571)))) + (cons 'id __tmp114833)))) (declare (not safe)) - (cons __tmp114570 '())))) + (cons __tmp114832 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114569 + __obj114545 + __tmp114831 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114283)) + __obj114545)) (define |gxc[:0:]#!class| - (let ((__obj114284 + (let ((__obj114546 (let () (declare (not safe)) (##structure @@ -2354,7 +2354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114546 'gxc#!class::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2362,7 +2362,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114546 '!class '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2370,7 +2370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114546 '(super precedence-list slots fields @@ -2382,21 +2382,21 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114573 - (let ((__tmp114574 |gxc[1]#_g114526_|)) + (let ((__tmp114835 + (let ((__tmp114836 |gxc[1]#_g114788_|)) (declare (not safe)) - (cons __tmp114574 '())))) + (cons __tmp114836 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114573 + __obj114546 + __tmp114835 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114546 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2404,7 +2404,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114546 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2412,7 +2412,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114546 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2420,382 +2420,382 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114546 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114575 |gxc[1]#_g114576_|)) + (let ((__tmp114837 |gxc[1]#_g114838_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114575 + __obj114546 + __tmp114837 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114577 |gxc[1]#_g114578_|)) + (let ((__tmp114839 |gxc[1]#_g114840_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114577 + __obj114546 + __tmp114839 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114579 |gxc[1]#_g114580_|)) + (let ((__tmp114841 |gxc[1]#_g114842_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114579 + __obj114546 + __tmp114841 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114581 - (let ((__tmp114618 - (let ((__tmp114619 |gxc[1]#_g114620_|)) + (let ((__tmp114843 + (let ((__tmp114880 + (let ((__tmp114881 |gxc[1]#_g114882_|)) (declare (not safe)) - (cons 'super __tmp114619))) - (__tmp114582 - (let ((__tmp114615 - (let ((__tmp114616 |gxc[1]#_g114617_|)) + (cons 'super __tmp114881))) + (__tmp114844 + (let ((__tmp114877 + (let ((__tmp114878 |gxc[1]#_g114879_|)) (declare (not safe)) - (cons 'precedence-list __tmp114616))) - (__tmp114583 - (let ((__tmp114612 - (let ((__tmp114613 |gxc[1]#_g114614_|)) + (cons 'precedence-list __tmp114878))) + (__tmp114845 + (let ((__tmp114874 + (let ((__tmp114875 |gxc[1]#_g114876_|)) (declare (not safe)) - (cons 'slots __tmp114613))) - (__tmp114584 - (let ((__tmp114609 - (let ((__tmp114610 - |gxc[1]#_g114611_|)) + (cons 'slots __tmp114875))) + (__tmp114846 + (let ((__tmp114871 + (let ((__tmp114872 + |gxc[1]#_g114873_|)) (declare (not safe)) - (cons 'fields __tmp114610))) - (__tmp114585 - (let ((__tmp114606 - (let ((__tmp114607 - |gxc[1]#_g114608_|)) + (cons 'fields __tmp114872))) + (__tmp114847 + (let ((__tmp114868 + (let ((__tmp114869 + |gxc[1]#_g114870_|)) (declare (not safe)) (cons 'constructor - __tmp114607))) - (__tmp114586 - (let ((__tmp114603 - (let ((__tmp114604 - |gxc[1]#_g114605_|)) + __tmp114869))) + (__tmp114848 + (let ((__tmp114865 + (let ((__tmp114866 + |gxc[1]#_g114867_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114604))) - (__tmp114587 - (let ((__tmp114600 - (let ((__tmp114601 |gxc[1]#_g114602_|)) + __tmp114866))) + (__tmp114849 + (let ((__tmp114862 + (let ((__tmp114863 |gxc[1]#_g114864_|)) (declare (not safe)) - (cons 'final? __tmp114601))) - (__tmp114588 - (let ((__tmp114597 - (let ((__tmp114598 |gxc[1]#_g114599_|)) + (cons 'final? __tmp114863))) + (__tmp114850 + (let ((__tmp114859 + (let ((__tmp114860 |gxc[1]#_g114861_|)) (declare (not safe)) - (cons 'metaclass __tmp114598))) - (__tmp114589 - (let ((__tmp114594 - (let ((__tmp114595 |gxc[1]#_g114596_|)) + (cons 'metaclass __tmp114860))) + (__tmp114851 + (let ((__tmp114856 + (let ((__tmp114857 |gxc[1]#_g114858_|)) (declare (not safe)) - (cons 'methods __tmp114595))) - (__tmp114590 - (let ((__tmp114591 - (let ((__tmp114592 - |gxc[1]#_g114593_|)) + (cons 'methods __tmp114857))) + (__tmp114852 + (let ((__tmp114853 + (let ((__tmp114854 + |gxc[1]#_g114855_|)) (declare (not safe)) - (cons 'id __tmp114592)))) + (cons 'id __tmp114854)))) (declare (not safe)) - (cons __tmp114591 '())))) + (cons __tmp114853 '())))) (declare (not safe)) - (cons __tmp114594 __tmp114590)))) + (cons __tmp114856 __tmp114852)))) (declare (not safe)) - (cons __tmp114597 __tmp114589)))) + (cons __tmp114859 __tmp114851)))) (declare (not safe)) - (cons __tmp114600 __tmp114588)))) + (cons __tmp114862 __tmp114850)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114603 - __tmp114587)))) + (cons __tmp114865 + __tmp114849)))) (declare (not safe)) - (cons __tmp114606 __tmp114586)))) + (cons __tmp114868 __tmp114848)))) (declare (not safe)) - (cons __tmp114609 __tmp114585)))) + (cons __tmp114871 __tmp114847)))) (declare (not safe)) - (cons __tmp114612 __tmp114584)))) + (cons __tmp114874 __tmp114846)))) (declare (not safe)) - (cons __tmp114615 __tmp114583)))) + (cons __tmp114877 __tmp114845)))) (declare (not safe)) - (cons __tmp114618 __tmp114582)))) + (cons __tmp114880 __tmp114844)))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114581 + __obj114546 + __tmp114843 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114621 - (let ((__tmp114658 - (let ((__tmp114659 |gxc[1]#_g114660_|)) + (let ((__tmp114883 + (let ((__tmp114920 + (let ((__tmp114921 |gxc[1]#_g114922_|)) (declare (not safe)) - (cons 'super __tmp114659))) - (__tmp114622 - (let ((__tmp114655 - (let ((__tmp114656 |gxc[1]#_g114657_|)) + (cons 'super __tmp114921))) + (__tmp114884 + (let ((__tmp114917 + (let ((__tmp114918 |gxc[1]#_g114919_|)) (declare (not safe)) - (cons 'precedence-list __tmp114656))) - (__tmp114623 - (let ((__tmp114652 - (let ((__tmp114653 |gxc[1]#_g114654_|)) + (cons 'precedence-list __tmp114918))) + (__tmp114885 + (let ((__tmp114914 + (let ((__tmp114915 |gxc[1]#_g114916_|)) (declare (not safe)) - (cons 'slots __tmp114653))) - (__tmp114624 - (let ((__tmp114649 - (let ((__tmp114650 - |gxc[1]#_g114651_|)) + (cons 'slots __tmp114915))) + (__tmp114886 + (let ((__tmp114911 + (let ((__tmp114912 + |gxc[1]#_g114913_|)) (declare (not safe)) - (cons 'fields __tmp114650))) - (__tmp114625 - (let ((__tmp114646 - (let ((__tmp114647 - |gxc[1]#_g114648_|)) + (cons 'fields __tmp114912))) + (__tmp114887 + (let ((__tmp114908 + (let ((__tmp114909 + |gxc[1]#_g114910_|)) (declare (not safe)) (cons 'constructor - __tmp114647))) - (__tmp114626 - (let ((__tmp114643 - (let ((__tmp114644 - |gxc[1]#_g114645_|)) + __tmp114909))) + (__tmp114888 + (let ((__tmp114905 + (let ((__tmp114906 + |gxc[1]#_g114907_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114644))) - (__tmp114627 - (let ((__tmp114640 - (let ((__tmp114641 |gxc[1]#_g114642_|)) + __tmp114906))) + (__tmp114889 + (let ((__tmp114902 + (let ((__tmp114903 |gxc[1]#_g114904_|)) (declare (not safe)) - (cons 'final? __tmp114641))) - (__tmp114628 - (let ((__tmp114637 - (let ((__tmp114638 |gxc[1]#_g114639_|)) + (cons 'final? __tmp114903))) + (__tmp114890 + (let ((__tmp114899 + (let ((__tmp114900 |gxc[1]#_g114901_|)) (declare (not safe)) - (cons 'metaclass __tmp114638))) - (__tmp114629 - (let ((__tmp114634 - (let ((__tmp114635 |gxc[1]#_g114636_|)) + (cons 'metaclass __tmp114900))) + (__tmp114891 + (let ((__tmp114896 + (let ((__tmp114897 |gxc[1]#_g114898_|)) (declare (not safe)) - (cons 'methods __tmp114635))) - (__tmp114630 - (let ((__tmp114631 - (let ((__tmp114632 - |gxc[1]#_g114633_|)) + (cons 'methods __tmp114897))) + (__tmp114892 + (let ((__tmp114893 + (let ((__tmp114894 + |gxc[1]#_g114895_|)) (declare (not safe)) - (cons 'id __tmp114632)))) + (cons 'id __tmp114894)))) (declare (not safe)) - (cons __tmp114631 '())))) + (cons __tmp114893 '())))) (declare (not safe)) - (cons __tmp114634 __tmp114630)))) + (cons __tmp114896 __tmp114892)))) (declare (not safe)) - (cons __tmp114637 __tmp114629)))) + (cons __tmp114899 __tmp114891)))) (declare (not safe)) - (cons __tmp114640 __tmp114628)))) + (cons __tmp114902 __tmp114890)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114643 - __tmp114627)))) + (cons __tmp114905 + __tmp114889)))) (declare (not safe)) - (cons __tmp114646 __tmp114626)))) + (cons __tmp114908 __tmp114888)))) (declare (not safe)) - (cons __tmp114649 __tmp114625)))) + (cons __tmp114911 __tmp114887)))) (declare (not safe)) - (cons __tmp114652 __tmp114624)))) + (cons __tmp114914 __tmp114886)))) (declare (not safe)) - (cons __tmp114655 __tmp114623)))) + (cons __tmp114917 __tmp114885)))) (declare (not safe)) - (cons __tmp114658 __tmp114622)))) + (cons __tmp114920 __tmp114884)))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114621 + __obj114546 + __tmp114883 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114661 - (let ((__tmp114698 - (let ((__tmp114699 |gxc[1]#_g114700_|)) + (let ((__tmp114923 + (let ((__tmp114960 + (let ((__tmp114961 |gxc[1]#_g114962_|)) (declare (not safe)) - (cons 'super __tmp114699))) - (__tmp114662 - (let ((__tmp114695 - (let ((__tmp114696 |gxc[1]#_g114697_|)) + (cons 'super __tmp114961))) + (__tmp114924 + (let ((__tmp114957 + (let ((__tmp114958 |gxc[1]#_g114959_|)) (declare (not safe)) - (cons 'precedence-list __tmp114696))) - (__tmp114663 - (let ((__tmp114692 - (let ((__tmp114693 |gxc[1]#_g114694_|)) + (cons 'precedence-list __tmp114958))) + (__tmp114925 + (let ((__tmp114954 + (let ((__tmp114955 |gxc[1]#_g114956_|)) (declare (not safe)) - (cons 'slots __tmp114693))) - (__tmp114664 - (let ((__tmp114689 - (let ((__tmp114690 - |gxc[1]#_g114691_|)) + (cons 'slots __tmp114955))) + (__tmp114926 + (let ((__tmp114951 + (let ((__tmp114952 + |gxc[1]#_g114953_|)) (declare (not safe)) - (cons 'fields __tmp114690))) - (__tmp114665 - (let ((__tmp114686 - (let ((__tmp114687 - |gxc[1]#_g114688_|)) + (cons 'fields __tmp114952))) + (__tmp114927 + (let ((__tmp114948 + (let ((__tmp114949 + |gxc[1]#_g114950_|)) (declare (not safe)) (cons 'constructor - __tmp114687))) - (__tmp114666 - (let ((__tmp114683 - (let ((__tmp114684 - |gxc[1]#_g114685_|)) + __tmp114949))) + (__tmp114928 + (let ((__tmp114945 + (let ((__tmp114946 + |gxc[1]#_g114947_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114684))) - (__tmp114667 - (let ((__tmp114680 - (let ((__tmp114681 |gxc[1]#_g114682_|)) + __tmp114946))) + (__tmp114929 + (let ((__tmp114942 + (let ((__tmp114943 |gxc[1]#_g114944_|)) (declare (not safe)) - (cons 'final? __tmp114681))) - (__tmp114668 - (let ((__tmp114677 - (let ((__tmp114678 |gxc[1]#_g114679_|)) + (cons 'final? __tmp114943))) + (__tmp114930 + (let ((__tmp114939 + (let ((__tmp114940 |gxc[1]#_g114941_|)) (declare (not safe)) - (cons 'metaclass __tmp114678))) - (__tmp114669 - (let ((__tmp114674 - (let ((__tmp114675 |gxc[1]#_g114676_|)) + (cons 'metaclass __tmp114940))) + (__tmp114931 + (let ((__tmp114936 + (let ((__tmp114937 |gxc[1]#_g114938_|)) (declare (not safe)) - (cons 'methods __tmp114675))) - (__tmp114670 - (let ((__tmp114671 - (let ((__tmp114672 - |gxc[1]#_g114673_|)) + (cons 'methods __tmp114937))) + (__tmp114932 + (let ((__tmp114933 + (let ((__tmp114934 + |gxc[1]#_g114935_|)) (declare (not safe)) - (cons 'id __tmp114672)))) + (cons 'id __tmp114934)))) (declare (not safe)) - (cons __tmp114671 '())))) + (cons __tmp114933 '())))) (declare (not safe)) - (cons __tmp114674 __tmp114670)))) + (cons __tmp114936 __tmp114932)))) (declare (not safe)) - (cons __tmp114677 __tmp114669)))) + (cons __tmp114939 __tmp114931)))) (declare (not safe)) - (cons __tmp114680 __tmp114668)))) + (cons __tmp114942 __tmp114930)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114683 - __tmp114667)))) + (cons __tmp114945 + __tmp114929)))) (declare (not safe)) - (cons __tmp114686 __tmp114666)))) + (cons __tmp114948 __tmp114928)))) (declare (not safe)) - (cons __tmp114689 __tmp114665)))) + (cons __tmp114951 __tmp114927)))) (declare (not safe)) - (cons __tmp114692 __tmp114664)))) + (cons __tmp114954 __tmp114926)))) (declare (not safe)) - (cons __tmp114695 __tmp114663)))) + (cons __tmp114957 __tmp114925)))) (declare (not safe)) - (cons __tmp114698 __tmp114662)))) + (cons __tmp114960 __tmp114924)))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114661 + __obj114546 + __tmp114923 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114701 - (let ((__tmp114738 - (let ((__tmp114739 |gxc[1]#_g114740_|)) + (let ((__tmp114963 + (let ((__tmp115000 + (let ((__tmp115001 |gxc[1]#_g115002_|)) (declare (not safe)) - (cons 'super __tmp114739))) - (__tmp114702 - (let ((__tmp114735 - (let ((__tmp114736 |gxc[1]#_g114737_|)) + (cons 'super __tmp115001))) + (__tmp114964 + (let ((__tmp114997 + (let ((__tmp114998 |gxc[1]#_g114999_|)) (declare (not safe)) - (cons 'precedence-list __tmp114736))) - (__tmp114703 - (let ((__tmp114732 - (let ((__tmp114733 |gxc[1]#_g114734_|)) + (cons 'precedence-list __tmp114998))) + (__tmp114965 + (let ((__tmp114994 + (let ((__tmp114995 |gxc[1]#_g114996_|)) (declare (not safe)) - (cons 'slots __tmp114733))) - (__tmp114704 - (let ((__tmp114729 - (let ((__tmp114730 - |gxc[1]#_g114731_|)) + (cons 'slots __tmp114995))) + (__tmp114966 + (let ((__tmp114991 + (let ((__tmp114992 + |gxc[1]#_g114993_|)) (declare (not safe)) - (cons 'fields __tmp114730))) - (__tmp114705 - (let ((__tmp114726 - (let ((__tmp114727 - |gxc[1]#_g114728_|)) + (cons 'fields __tmp114992))) + (__tmp114967 + (let ((__tmp114988 + (let ((__tmp114989 + |gxc[1]#_g114990_|)) (declare (not safe)) (cons 'constructor - __tmp114727))) - (__tmp114706 - (let ((__tmp114723 - (let ((__tmp114724 - |gxc[1]#_g114725_|)) + __tmp114989))) + (__tmp114968 + (let ((__tmp114985 + (let ((__tmp114986 + |gxc[1]#_g114987_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114724))) - (__tmp114707 - (let ((__tmp114720 - (let ((__tmp114721 |gxc[1]#_g114722_|)) + __tmp114986))) + (__tmp114969 + (let ((__tmp114982 + (let ((__tmp114983 |gxc[1]#_g114984_|)) (declare (not safe)) - (cons 'final? __tmp114721))) - (__tmp114708 - (let ((__tmp114717 - (let ((__tmp114718 |gxc[1]#_g114719_|)) + (cons 'final? __tmp114983))) + (__tmp114970 + (let ((__tmp114979 + (let ((__tmp114980 |gxc[1]#_g114981_|)) (declare (not safe)) - (cons 'metaclass __tmp114718))) - (__tmp114709 - (let ((__tmp114714 - (let ((__tmp114715 |gxc[1]#_g114716_|)) + (cons 'metaclass __tmp114980))) + (__tmp114971 + (let ((__tmp114976 + (let ((__tmp114977 |gxc[1]#_g114978_|)) (declare (not safe)) - (cons 'methods __tmp114715))) - (__tmp114710 - (let ((__tmp114711 - (let ((__tmp114712 - |gxc[1]#_g114713_|)) + (cons 'methods __tmp114977))) + (__tmp114972 + (let ((__tmp114973 + (let ((__tmp114974 + |gxc[1]#_g114975_|)) (declare (not safe)) - (cons 'id __tmp114712)))) + (cons 'id __tmp114974)))) (declare (not safe)) - (cons __tmp114711 '())))) + (cons __tmp114973 '())))) (declare (not safe)) - (cons __tmp114714 __tmp114710)))) + (cons __tmp114976 __tmp114972)))) (declare (not safe)) - (cons __tmp114717 __tmp114709)))) + (cons __tmp114979 __tmp114971)))) (declare (not safe)) - (cons __tmp114720 __tmp114708)))) + (cons __tmp114982 __tmp114970)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114723 - __tmp114707)))) + (cons __tmp114985 + __tmp114969)))) (declare (not safe)) - (cons __tmp114726 __tmp114706)))) + (cons __tmp114988 __tmp114968)))) (declare (not safe)) - (cons __tmp114729 __tmp114705)))) + (cons __tmp114991 __tmp114967)))) (declare (not safe)) - (cons __tmp114732 __tmp114704)))) + (cons __tmp114994 __tmp114966)))) (declare (not safe)) - (cons __tmp114735 __tmp114703)))) + (cons __tmp114997 __tmp114965)))) (declare (not safe)) - (cons __tmp114738 __tmp114702)))) + (cons __tmp115000 __tmp114964)))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114701 + __obj114546 + __tmp114963 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114284)) + __obj114546)) (define |gxc[:0:]#!predicate| - (let ((__obj114285 + (let ((__obj114547 (let () (declare (not safe)) (##structure @@ -2818,7 +2818,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114547 'gxc#!predicate::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2826,7 +2826,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114547 '!predicate '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2834,26 +2834,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114547 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114741 - (let ((__tmp114742 |gxc[1]#_g114743_|)) + (let ((__tmp115003 + (let ((__tmp115004 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons __tmp114742 '())))) + (cons __tmp115004 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114741 + __obj114547 + __tmp115003 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114547 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2861,7 +2861,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114547 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2869,7 +2869,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114547 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2877,94 +2877,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114547 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114744 |gxc[1]#_g114745_|)) + (let ((__tmp115006 |gxc[1]#_g115007_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114744 + __obj114547 + __tmp115006 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114746 |gxc[1]#_g114747_|)) + (let ((__tmp115008 |gxc[1]#_g115009_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114746 + __obj114547 + __tmp115008 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114748 |gxc[1]#_g114749_|)) + (let ((__tmp115010 |gxc[1]#_g115011_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114748 + __obj114547 + __tmp115010 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114750 - (let ((__tmp114751 - (let ((__tmp114752 |gxc[1]#_g114753_|)) + (let ((__tmp115012 + (let ((__tmp115013 + (let ((__tmp115014 |gxc[1]#_g115015_|)) (declare (not safe)) - (cons 'id __tmp114752)))) + (cons 'id __tmp115014)))) (declare (not safe)) - (cons __tmp114751 '())))) + (cons __tmp115013 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114750 + __obj114547 + __tmp115012 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114754 - (let ((__tmp114755 - (let ((__tmp114756 |gxc[1]#_g114757_|)) + (let ((__tmp115016 + (let ((__tmp115017 + (let ((__tmp115018 |gxc[1]#_g115019_|)) (declare (not safe)) - (cons 'id __tmp114756)))) + (cons 'id __tmp115018)))) (declare (not safe)) - (cons __tmp114755 '())))) + (cons __tmp115017 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114754 + __obj114547 + __tmp115016 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114758 - (let ((__tmp114759 - (let ((__tmp114760 |gxc[1]#_g114761_|)) + (let ((__tmp115020 + (let ((__tmp115021 + (let ((__tmp115022 |gxc[1]#_g115023_|)) (declare (not safe)) - (cons 'id __tmp114760)))) + (cons 'id __tmp115022)))) (declare (not safe)) - (cons __tmp114759 '())))) + (cons __tmp115021 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114758 + __obj114547 + __tmp115020 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114762 - (let ((__tmp114763 - (let ((__tmp114764 |gxc[1]#_g114765_|)) + (let ((__tmp115024 + (let ((__tmp115025 + (let ((__tmp115026 |gxc[1]#_g115027_|)) (declare (not safe)) - (cons 'id __tmp114764)))) + (cons 'id __tmp115026)))) (declare (not safe)) - (cons __tmp114763 '())))) + (cons __tmp115025 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114762 + __obj114547 + __tmp115024 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114285)) + __obj114547)) (define |gxc[:0:]#!constructor| - (let ((__obj114286 + (let ((__obj114548 (let () (declare (not safe)) (##structure @@ -2987,7 +2987,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114548 'gxc#!constructor::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2995,7 +2995,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114548 '!constructor '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3003,26 +3003,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114548 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114766 - (let ((__tmp114767 |gxc[1]#_g114743_|)) + (let ((__tmp115028 + (let ((__tmp115029 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons __tmp114767 '())))) + (cons __tmp115029 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114766 + __obj114548 + __tmp115028 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114548 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3030,7 +3030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114548 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3038,7 +3038,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114548 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3046,94 +3046,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114548 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114768 |gxc[1]#_g114769_|)) + (let ((__tmp115030 |gxc[1]#_g115031_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114768 + __obj114548 + __tmp115030 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114770 |gxc[1]#_g114771_|)) + (let ((__tmp115032 |gxc[1]#_g115033_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114770 + __obj114548 + __tmp115032 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114772 |gxc[1]#_g114773_|)) + (let ((__tmp115034 |gxc[1]#_g115035_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114772 + __obj114548 + __tmp115034 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114774 - (let ((__tmp114775 - (let ((__tmp114776 |gxc[1]#_g114777_|)) + (let ((__tmp115036 + (let ((__tmp115037 + (let ((__tmp115038 |gxc[1]#_g115039_|)) (declare (not safe)) - (cons 'id __tmp114776)))) + (cons 'id __tmp115038)))) (declare (not safe)) - (cons __tmp114775 '())))) + (cons __tmp115037 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114774 + __obj114548 + __tmp115036 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114778 - (let ((__tmp114779 - (let ((__tmp114780 |gxc[1]#_g114781_|)) + (let ((__tmp115040 + (let ((__tmp115041 + (let ((__tmp115042 |gxc[1]#_g115043_|)) (declare (not safe)) - (cons 'id __tmp114780)))) + (cons 'id __tmp115042)))) (declare (not safe)) - (cons __tmp114779 '())))) + (cons __tmp115041 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114778 + __obj114548 + __tmp115040 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114782 - (let ((__tmp114783 - (let ((__tmp114784 |gxc[1]#_g114785_|)) + (let ((__tmp115044 + (let ((__tmp115045 + (let ((__tmp115046 |gxc[1]#_g115047_|)) (declare (not safe)) - (cons 'id __tmp114784)))) + (cons 'id __tmp115046)))) (declare (not safe)) - (cons __tmp114783 '())))) + (cons __tmp115045 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114782 + __obj114548 + __tmp115044 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114786 - (let ((__tmp114787 - (let ((__tmp114788 |gxc[1]#_g114789_|)) + (let ((__tmp115048 + (let ((__tmp115049 + (let ((__tmp115050 |gxc[1]#_g115051_|)) (declare (not safe)) - (cons 'id __tmp114788)))) + (cons 'id __tmp115050)))) (declare (not safe)) - (cons __tmp114787 '())))) + (cons __tmp115049 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp114786 + __obj114548 + __tmp115048 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114286)) + __obj114548)) (define |gxc[:0:]#!accessor| - (let ((__obj114287 + (let ((__obj114549 (let () (declare (not safe)) (##structure @@ -3156,7 +3156,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114549 'gxc#!accessor::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3164,7 +3164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114549 '!accessor '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3172,26 +3172,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114549 '(slot checked?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114790 - (let ((__tmp114791 |gxc[1]#_g114743_|)) + (let ((__tmp115052 + (let ((__tmp115053 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons __tmp114791 '())))) + (cons __tmp115053 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114790 + __obj114549 + __tmp115052 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114549 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3199,7 +3199,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114549 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3207,7 +3207,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114549 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3215,150 +3215,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114549 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114792 |gxc[1]#_g114793_|)) + (let ((__tmp115054 |gxc[1]#_g115055_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114792 + __obj114549 + __tmp115054 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114794 |gxc[1]#_g114795_|)) + (let ((__tmp115056 |gxc[1]#_g115057_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114794 + __obj114549 + __tmp115056 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114796 |gxc[1]#_g114797_|)) + (let ((__tmp115058 |gxc[1]#_g115059_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114796 + __obj114549 + __tmp115058 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114798 - (let ((__tmp114807 - (let ((__tmp114808 |gxc[1]#_g114809_|)) + (let ((__tmp115060 + (let ((__tmp115069 + (let ((__tmp115070 |gxc[1]#_g115071_|)) (declare (not safe)) - (cons 'slot __tmp114808))) - (__tmp114799 - (let ((__tmp114804 - (let ((__tmp114805 |gxc[1]#_g114806_|)) + (cons 'slot __tmp115070))) + (__tmp115061 + (let ((__tmp115066 + (let ((__tmp115067 |gxc[1]#_g115068_|)) (declare (not safe)) - (cons 'checked? __tmp114805))) - (__tmp114800 - (let ((__tmp114801 - (let ((__tmp114802 |gxc[1]#_g114803_|)) + (cons 'checked? __tmp115067))) + (__tmp115062 + (let ((__tmp115063 + (let ((__tmp115064 |gxc[1]#_g115065_|)) (declare (not safe)) - (cons 'id __tmp114802)))) + (cons 'id __tmp115064)))) (declare (not safe)) - (cons __tmp114801 '())))) + (cons __tmp115063 '())))) (declare (not safe)) - (cons __tmp114804 __tmp114800)))) + (cons __tmp115066 __tmp115062)))) (declare (not safe)) - (cons __tmp114807 __tmp114799)))) + (cons __tmp115069 __tmp115061)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114798 + __obj114549 + __tmp115060 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114810 - (let ((__tmp114819 - (let ((__tmp114820 |gxc[1]#_g114821_|)) + (let ((__tmp115072 + (let ((__tmp115081 + (let ((__tmp115082 |gxc[1]#_g115083_|)) (declare (not safe)) - (cons 'slot __tmp114820))) - (__tmp114811 - (let ((__tmp114816 - (let ((__tmp114817 |gxc[1]#_g114818_|)) + (cons 'slot __tmp115082))) + (__tmp115073 + (let ((__tmp115078 + (let ((__tmp115079 |gxc[1]#_g115080_|)) (declare (not safe)) - (cons 'checked? __tmp114817))) - (__tmp114812 - (let ((__tmp114813 - (let ((__tmp114814 |gxc[1]#_g114815_|)) + (cons 'checked? __tmp115079))) + (__tmp115074 + (let ((__tmp115075 + (let ((__tmp115076 |gxc[1]#_g115077_|)) (declare (not safe)) - (cons 'id __tmp114814)))) + (cons 'id __tmp115076)))) (declare (not safe)) - (cons __tmp114813 '())))) + (cons __tmp115075 '())))) (declare (not safe)) - (cons __tmp114816 __tmp114812)))) + (cons __tmp115078 __tmp115074)))) (declare (not safe)) - (cons __tmp114819 __tmp114811)))) + (cons __tmp115081 __tmp115073)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114810 + __obj114549 + __tmp115072 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114822 - (let ((__tmp114831 - (let ((__tmp114832 |gxc[1]#_g114833_|)) + (let ((__tmp115084 + (let ((__tmp115093 + (let ((__tmp115094 |gxc[1]#_g115095_|)) (declare (not safe)) - (cons 'slot __tmp114832))) - (__tmp114823 - (let ((__tmp114828 - (let ((__tmp114829 |gxc[1]#_g114830_|)) + (cons 'slot __tmp115094))) + (__tmp115085 + (let ((__tmp115090 + (let ((__tmp115091 |gxc[1]#_g115092_|)) (declare (not safe)) - (cons 'checked? __tmp114829))) - (__tmp114824 - (let ((__tmp114825 - (let ((__tmp114826 |gxc[1]#_g114827_|)) + (cons 'checked? __tmp115091))) + (__tmp115086 + (let ((__tmp115087 + (let ((__tmp115088 |gxc[1]#_g115089_|)) (declare (not safe)) - (cons 'id __tmp114826)))) + (cons 'id __tmp115088)))) (declare (not safe)) - (cons __tmp114825 '())))) + (cons __tmp115087 '())))) (declare (not safe)) - (cons __tmp114828 __tmp114824)))) + (cons __tmp115090 __tmp115086)))) (declare (not safe)) - (cons __tmp114831 __tmp114823)))) + (cons __tmp115093 __tmp115085)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114822 + __obj114549 + __tmp115084 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114834 - (let ((__tmp114843 - (let ((__tmp114844 |gxc[1]#_g114845_|)) + (let ((__tmp115096 + (let ((__tmp115105 + (let ((__tmp115106 |gxc[1]#_g115107_|)) (declare (not safe)) - (cons 'slot __tmp114844))) - (__tmp114835 - (let ((__tmp114840 - (let ((__tmp114841 |gxc[1]#_g114842_|)) + (cons 'slot __tmp115106))) + (__tmp115097 + (let ((__tmp115102 + (let ((__tmp115103 |gxc[1]#_g115104_|)) (declare (not safe)) - (cons 'checked? __tmp114841))) - (__tmp114836 - (let ((__tmp114837 - (let ((__tmp114838 |gxc[1]#_g114839_|)) + (cons 'checked? __tmp115103))) + (__tmp115098 + (let ((__tmp115099 + (let ((__tmp115100 |gxc[1]#_g115101_|)) (declare (not safe)) - (cons 'id __tmp114838)))) + (cons 'id __tmp115100)))) (declare (not safe)) - (cons __tmp114837 '())))) + (cons __tmp115099 '())))) (declare (not safe)) - (cons __tmp114840 __tmp114836)))) + (cons __tmp115102 __tmp115098)))) (declare (not safe)) - (cons __tmp114843 __tmp114835)))) + (cons __tmp115105 __tmp115097)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp114834 + __obj114549 + __tmp115096 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114287)) + __obj114549)) (define |gxc[:0:]#!mutator| - (let ((__obj114288 + (let ((__obj114550 (let () (declare (not safe)) (##structure @@ -3381,7 +3381,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114550 'gxc#!mutator::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3389,7 +3389,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114550 '!mutator '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3397,26 +3397,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114550 '(slot checked?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114846 - (let ((__tmp114847 |gxc[1]#_g114743_|)) + (let ((__tmp115108 + (let ((__tmp115109 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons __tmp114847 '())))) + (cons __tmp115109 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114846 + __obj114550 + __tmp115108 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114550 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3424,7 +3424,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114550 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3432,7 +3432,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114550 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3440,150 +3440,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114550 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114848 |gxc[1]#_g114849_|)) + (let ((__tmp115110 |gxc[1]#_g115111_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114848 + __obj114550 + __tmp115110 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114850 |gxc[1]#_g114851_|)) + (let ((__tmp115112 |gxc[1]#_g115113_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114850 + __obj114550 + __tmp115112 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114852 |gxc[1]#_g114853_|)) + (let ((__tmp115114 |gxc[1]#_g115115_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114852 + __obj114550 + __tmp115114 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114854 - (let ((__tmp114863 - (let ((__tmp114864 |gxc[1]#_g114865_|)) + (let ((__tmp115116 + (let ((__tmp115125 + (let ((__tmp115126 |gxc[1]#_g115127_|)) (declare (not safe)) - (cons 'slot __tmp114864))) - (__tmp114855 - (let ((__tmp114860 - (let ((__tmp114861 |gxc[1]#_g114862_|)) + (cons 'slot __tmp115126))) + (__tmp115117 + (let ((__tmp115122 + (let ((__tmp115123 |gxc[1]#_g115124_|)) (declare (not safe)) - (cons 'checked? __tmp114861))) - (__tmp114856 - (let ((__tmp114857 - (let ((__tmp114858 |gxc[1]#_g114859_|)) + (cons 'checked? __tmp115123))) + (__tmp115118 + (let ((__tmp115119 + (let ((__tmp115120 |gxc[1]#_g115121_|)) (declare (not safe)) - (cons 'id __tmp114858)))) + (cons 'id __tmp115120)))) (declare (not safe)) - (cons __tmp114857 '())))) + (cons __tmp115119 '())))) (declare (not safe)) - (cons __tmp114860 __tmp114856)))) + (cons __tmp115122 __tmp115118)))) (declare (not safe)) - (cons __tmp114863 __tmp114855)))) + (cons __tmp115125 __tmp115117)))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114854 + __obj114550 + __tmp115116 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114866 - (let ((__tmp114875 - (let ((__tmp114876 |gxc[1]#_g114877_|)) + (let ((__tmp115128 + (let ((__tmp115137 + (let ((__tmp115138 |gxc[1]#_g115139_|)) (declare (not safe)) - (cons 'slot __tmp114876))) - (__tmp114867 - (let ((__tmp114872 - (let ((__tmp114873 |gxc[1]#_g114874_|)) + (cons 'slot __tmp115138))) + (__tmp115129 + (let ((__tmp115134 + (let ((__tmp115135 |gxc[1]#_g115136_|)) (declare (not safe)) - (cons 'checked? __tmp114873))) - (__tmp114868 - (let ((__tmp114869 - (let ((__tmp114870 |gxc[1]#_g114871_|)) + (cons 'checked? __tmp115135))) + (__tmp115130 + (let ((__tmp115131 + (let ((__tmp115132 |gxc[1]#_g115133_|)) (declare (not safe)) - (cons 'id __tmp114870)))) + (cons 'id __tmp115132)))) (declare (not safe)) - (cons __tmp114869 '())))) + (cons __tmp115131 '())))) (declare (not safe)) - (cons __tmp114872 __tmp114868)))) + (cons __tmp115134 __tmp115130)))) (declare (not safe)) - (cons __tmp114875 __tmp114867)))) + (cons __tmp115137 __tmp115129)))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114866 + __obj114550 + __tmp115128 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114878 - (let ((__tmp114887 - (let ((__tmp114888 |gxc[1]#_g114889_|)) + (let ((__tmp115140 + (let ((__tmp115149 + (let ((__tmp115150 |gxc[1]#_g115151_|)) (declare (not safe)) - (cons 'slot __tmp114888))) - (__tmp114879 - (let ((__tmp114884 - (let ((__tmp114885 |gxc[1]#_g114886_|)) + (cons 'slot __tmp115150))) + (__tmp115141 + (let ((__tmp115146 + (let ((__tmp115147 |gxc[1]#_g115148_|)) (declare (not safe)) - (cons 'checked? __tmp114885))) - (__tmp114880 - (let ((__tmp114881 - (let ((__tmp114882 |gxc[1]#_g114883_|)) + (cons 'checked? __tmp115147))) + (__tmp115142 + (let ((__tmp115143 + (let ((__tmp115144 |gxc[1]#_g115145_|)) (declare (not safe)) - (cons 'id __tmp114882)))) + (cons 'id __tmp115144)))) (declare (not safe)) - (cons __tmp114881 '())))) + (cons __tmp115143 '())))) (declare (not safe)) - (cons __tmp114884 __tmp114880)))) + (cons __tmp115146 __tmp115142)))) (declare (not safe)) - (cons __tmp114887 __tmp114879)))) + (cons __tmp115149 __tmp115141)))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114878 + __obj114550 + __tmp115140 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114890 - (let ((__tmp114899 - (let ((__tmp114900 |gxc[1]#_g114901_|)) + (let ((__tmp115152 + (let ((__tmp115161 + (let ((__tmp115162 |gxc[1]#_g115163_|)) (declare (not safe)) - (cons 'slot __tmp114900))) - (__tmp114891 - (let ((__tmp114896 - (let ((__tmp114897 |gxc[1]#_g114898_|)) + (cons 'slot __tmp115162))) + (__tmp115153 + (let ((__tmp115158 + (let ((__tmp115159 |gxc[1]#_g115160_|)) (declare (not safe)) - (cons 'checked? __tmp114897))) - (__tmp114892 - (let ((__tmp114893 - (let ((__tmp114894 |gxc[1]#_g114895_|)) + (cons 'checked? __tmp115159))) + (__tmp115154 + (let ((__tmp115155 + (let ((__tmp115156 |gxc[1]#_g115157_|)) (declare (not safe)) - (cons 'id __tmp114894)))) + (cons 'id __tmp115156)))) (declare (not safe)) - (cons __tmp114893 '())))) + (cons __tmp115155 '())))) (declare (not safe)) - (cons __tmp114896 __tmp114892)))) + (cons __tmp115158 __tmp115154)))) (declare (not safe)) - (cons __tmp114899 __tmp114891)))) + (cons __tmp115161 __tmp115153)))) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp114890 + __obj114550 + __tmp115152 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114288)) + __obj114550)) (define |gxc[:0:]#!lambda| - (let ((__obj114289 + (let ((__obj114551 (let () (declare (not safe)) (##structure @@ -3606,7 +3606,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114551 'gxc#!lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3614,7 +3614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114551 '!lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3622,26 +3622,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114551 '(arity dispatch inline inline-typedecl) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114902 - (let ((__tmp114903 |gxc[1]#_g114743_|)) + (let ((__tmp115164 + (let ((__tmp115165 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons __tmp114903 '())))) + (cons __tmp115165 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp114902 + __obj114551 + __tmp115164 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114551 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3649,7 +3649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114551 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3657,7 +3657,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114551 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3665,218 +3665,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114551 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114904 |gxc[1]#_g114905_|)) + (let ((__tmp115166 |gxc[1]#_g115167_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp114904 + __obj114551 + __tmp115166 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114906 |gxc[1]#_g114907_|)) + (let ((__tmp115168 |gxc[1]#_g115169_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp114906 + __obj114551 + __tmp115168 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114908 |gxc[1]#_g114909_|)) + (let ((__tmp115170 |gxc[1]#_g115171_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp114908 + __obj114551 + __tmp115170 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114910 - (let ((__tmp114927 - (let ((__tmp114928 |gxc[1]#_g114929_|)) + (let ((__tmp115172 + (let ((__tmp115189 + (let ((__tmp115190 |gxc[1]#_g115191_|)) (declare (not safe)) - (cons 'arity __tmp114928))) - (__tmp114911 - (let ((__tmp114924 - (let ((__tmp114925 |gxc[1]#_g114926_|)) + (cons 'arity __tmp115190))) + (__tmp115173 + (let ((__tmp115186 + (let ((__tmp115187 |gxc[1]#_g115188_|)) (declare (not safe)) - (cons 'dispatch __tmp114925))) - (__tmp114912 - (let ((__tmp114921 - (let ((__tmp114922 |gxc[1]#_g114923_|)) + (cons 'dispatch __tmp115187))) + (__tmp115174 + (let ((__tmp115183 + (let ((__tmp115184 |gxc[1]#_g115185_|)) (declare (not safe)) - (cons 'inline __tmp114922))) - (__tmp114913 - (let ((__tmp114918 - (let ((__tmp114919 - |gxc[1]#_g114920_|)) + (cons 'inline __tmp115184))) + (__tmp115175 + (let ((__tmp115180 + (let ((__tmp115181 + |gxc[1]#_g115182_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114919))) - (__tmp114914 - (let ((__tmp114915 - (let ((__tmp114916 - |gxc[1]#_g114917_|)) + __tmp115181))) + (__tmp115176 + (let ((__tmp115177 + (let ((__tmp115178 + |gxc[1]#_g115179_|)) (declare (not safe)) - (cons 'id __tmp114916)))) + (cons 'id __tmp115178)))) (declare (not safe)) - (cons __tmp114915 '())))) + (cons __tmp115177 '())))) (declare (not safe)) - (cons __tmp114918 __tmp114914)))) + (cons __tmp115180 __tmp115176)))) (declare (not safe)) - (cons __tmp114921 __tmp114913)))) + (cons __tmp115183 __tmp115175)))) (declare (not safe)) - (cons __tmp114924 __tmp114912)))) + (cons __tmp115186 __tmp115174)))) (declare (not safe)) - (cons __tmp114927 __tmp114911)))) + (cons __tmp115189 __tmp115173)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp114910 + __obj114551 + __tmp115172 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114930 - (let ((__tmp114947 - (let ((__tmp114948 |gxc[1]#_g114949_|)) + (let ((__tmp115192 + (let ((__tmp115209 + (let ((__tmp115210 |gxc[1]#_g115211_|)) (declare (not safe)) - (cons 'arity __tmp114948))) - (__tmp114931 - (let ((__tmp114944 - (let ((__tmp114945 |gxc[1]#_g114946_|)) + (cons 'arity __tmp115210))) + (__tmp115193 + (let ((__tmp115206 + (let ((__tmp115207 |gxc[1]#_g115208_|)) (declare (not safe)) - (cons 'dispatch __tmp114945))) - (__tmp114932 - (let ((__tmp114941 - (let ((__tmp114942 |gxc[1]#_g114943_|)) + (cons 'dispatch __tmp115207))) + (__tmp115194 + (let ((__tmp115203 + (let ((__tmp115204 |gxc[1]#_g115205_|)) (declare (not safe)) - (cons 'inline __tmp114942))) - (__tmp114933 - (let ((__tmp114938 - (let ((__tmp114939 - |gxc[1]#_g114940_|)) + (cons 'inline __tmp115204))) + (__tmp115195 + (let ((__tmp115200 + (let ((__tmp115201 + |gxc[1]#_g115202_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114939))) - (__tmp114934 - (let ((__tmp114935 - (let ((__tmp114936 - |gxc[1]#_g114937_|)) + __tmp115201))) + (__tmp115196 + (let ((__tmp115197 + (let ((__tmp115198 + |gxc[1]#_g115199_|)) (declare (not safe)) - (cons 'id __tmp114936)))) + (cons 'id __tmp115198)))) (declare (not safe)) - (cons __tmp114935 '())))) + (cons __tmp115197 '())))) (declare (not safe)) - (cons __tmp114938 __tmp114934)))) + (cons __tmp115200 __tmp115196)))) (declare (not safe)) - (cons __tmp114941 __tmp114933)))) + (cons __tmp115203 __tmp115195)))) (declare (not safe)) - (cons __tmp114944 __tmp114932)))) + (cons __tmp115206 __tmp115194)))) (declare (not safe)) - (cons __tmp114947 __tmp114931)))) + (cons __tmp115209 __tmp115193)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp114930 + __obj114551 + __tmp115192 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114950 - (let ((__tmp114967 - (let ((__tmp114968 |gxc[1]#_g114969_|)) + (let ((__tmp115212 + (let ((__tmp115229 + (let ((__tmp115230 |gxc[1]#_g115231_|)) (declare (not safe)) - (cons 'arity __tmp114968))) - (__tmp114951 - (let ((__tmp114964 - (let ((__tmp114965 |gxc[1]#_g114966_|)) + (cons 'arity __tmp115230))) + (__tmp115213 + (let ((__tmp115226 + (let ((__tmp115227 |gxc[1]#_g115228_|)) (declare (not safe)) - (cons 'dispatch __tmp114965))) - (__tmp114952 - (let ((__tmp114961 - (let ((__tmp114962 |gxc[1]#_g114963_|)) + (cons 'dispatch __tmp115227))) + (__tmp115214 + (let ((__tmp115223 + (let ((__tmp115224 |gxc[1]#_g115225_|)) (declare (not safe)) - (cons 'inline __tmp114962))) - (__tmp114953 - (let ((__tmp114958 - (let ((__tmp114959 - |gxc[1]#_g114960_|)) + (cons 'inline __tmp115224))) + (__tmp115215 + (let ((__tmp115220 + (let ((__tmp115221 + |gxc[1]#_g115222_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114959))) - (__tmp114954 - (let ((__tmp114955 - (let ((__tmp114956 - |gxc[1]#_g114957_|)) + __tmp115221))) + (__tmp115216 + (let ((__tmp115217 + (let ((__tmp115218 + |gxc[1]#_g115219_|)) (declare (not safe)) - (cons 'id __tmp114956)))) + (cons 'id __tmp115218)))) (declare (not safe)) - (cons __tmp114955 '())))) + (cons __tmp115217 '())))) (declare (not safe)) - (cons __tmp114958 __tmp114954)))) + (cons __tmp115220 __tmp115216)))) (declare (not safe)) - (cons __tmp114961 __tmp114953)))) + (cons __tmp115223 __tmp115215)))) (declare (not safe)) - (cons __tmp114964 __tmp114952)))) + (cons __tmp115226 __tmp115214)))) (declare (not safe)) - (cons __tmp114967 __tmp114951)))) + (cons __tmp115229 __tmp115213)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp114950 + __obj114551 + __tmp115212 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114970 - (let ((__tmp114987 - (let ((__tmp114988 |gxc[1]#_g114989_|)) + (let ((__tmp115232 + (let ((__tmp115249 + (let ((__tmp115250 |gxc[1]#_g115251_|)) (declare (not safe)) - (cons 'arity __tmp114988))) - (__tmp114971 - (let ((__tmp114984 - (let ((__tmp114985 |gxc[1]#_g114986_|)) + (cons 'arity __tmp115250))) + (__tmp115233 + (let ((__tmp115246 + (let ((__tmp115247 |gxc[1]#_g115248_|)) (declare (not safe)) - (cons 'dispatch __tmp114985))) - (__tmp114972 - (let ((__tmp114981 - (let ((__tmp114982 |gxc[1]#_g114983_|)) + (cons 'dispatch __tmp115247))) + (__tmp115234 + (let ((__tmp115243 + (let ((__tmp115244 |gxc[1]#_g115245_|)) (declare (not safe)) - (cons 'inline __tmp114982))) - (__tmp114973 - (let ((__tmp114978 - (let ((__tmp114979 - |gxc[1]#_g114980_|)) + (cons 'inline __tmp115244))) + (__tmp115235 + (let ((__tmp115240 + (let ((__tmp115241 + |gxc[1]#_g115242_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114979))) - (__tmp114974 - (let ((__tmp114975 - (let ((__tmp114976 - |gxc[1]#_g114977_|)) + __tmp115241))) + (__tmp115236 + (let ((__tmp115237 + (let ((__tmp115238 + |gxc[1]#_g115239_|)) (declare (not safe)) - (cons 'id __tmp114976)))) + (cons 'id __tmp115238)))) (declare (not safe)) - (cons __tmp114975 '())))) + (cons __tmp115237 '())))) (declare (not safe)) - (cons __tmp114978 __tmp114974)))) + (cons __tmp115240 __tmp115236)))) (declare (not safe)) - (cons __tmp114981 __tmp114973)))) + (cons __tmp115243 __tmp115235)))) (declare (not safe)) - (cons __tmp114984 __tmp114972)))) + (cons __tmp115246 __tmp115234)))) (declare (not safe)) - (cons __tmp114987 __tmp114971)))) + (cons __tmp115249 __tmp115233)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp114970 + __obj114551 + __tmp115232 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114289)) + __obj114551)) (define |gxc[:0:]#!case-lambda| - (let ((__obj114290 + (let ((__obj114552 (let () (declare (not safe)) (##structure @@ -3899,7 +3899,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114552 'gxc#!case-lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3907,7 +3907,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114552 '!case-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3915,26 +3915,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114552 '(clauses) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114990 - (let ((__tmp114991 |gxc[1]#_g114743_|)) + (let ((__tmp115252 + (let ((__tmp115253 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons __tmp114991 '())))) + (cons __tmp115253 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp114990 + __obj114552 + __tmp115252 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114552 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3942,7 +3942,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114552 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3950,7 +3950,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114552 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3958,122 +3958,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114552 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114992 |gxc[1]#_g114993_|)) + (let ((__tmp115254 |gxc[1]#_g115255_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp114992 + __obj114552 + __tmp115254 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114994 |gxc[1]#_g114995_|)) + (let ((__tmp115256 |gxc[1]#_g115257_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp114994 + __obj114552 + __tmp115256 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114996 |gxc[1]#_g114997_|)) + (let ((__tmp115258 |gxc[1]#_g115259_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp114996 + __obj114552 + __tmp115258 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114998 - (let ((__tmp115003 - (let ((__tmp115004 |gxc[1]#_g115005_|)) + (let ((__tmp115260 + (let ((__tmp115265 + (let ((__tmp115266 |gxc[1]#_g115267_|)) (declare (not safe)) - (cons 'clauses __tmp115004))) - (__tmp114999 - (let ((__tmp115000 - (let ((__tmp115001 |gxc[1]#_g115002_|)) + (cons 'clauses __tmp115266))) + (__tmp115261 + (let ((__tmp115262 + (let ((__tmp115263 |gxc[1]#_g115264_|)) (declare (not safe)) - (cons 'id __tmp115001)))) + (cons 'id __tmp115263)))) (declare (not safe)) - (cons __tmp115000 '())))) + (cons __tmp115262 '())))) (declare (not safe)) - (cons __tmp115003 __tmp114999)))) + (cons __tmp115265 __tmp115261)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp114998 + __obj114552 + __tmp115260 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115006 - (let ((__tmp115011 - (let ((__tmp115012 |gxc[1]#_g115013_|)) + (let ((__tmp115268 + (let ((__tmp115273 + (let ((__tmp115274 |gxc[1]#_g115275_|)) (declare (not safe)) - (cons 'clauses __tmp115012))) - (__tmp115007 - (let ((__tmp115008 - (let ((__tmp115009 |gxc[1]#_g115010_|)) + (cons 'clauses __tmp115274))) + (__tmp115269 + (let ((__tmp115270 + (let ((__tmp115271 |gxc[1]#_g115272_|)) (declare (not safe)) - (cons 'id __tmp115009)))) + (cons 'id __tmp115271)))) (declare (not safe)) - (cons __tmp115008 '())))) + (cons __tmp115270 '())))) (declare (not safe)) - (cons __tmp115011 __tmp115007)))) + (cons __tmp115273 __tmp115269)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115006 + __obj114552 + __tmp115268 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115014 - (let ((__tmp115019 - (let ((__tmp115020 |gxc[1]#_g115021_|)) + (let ((__tmp115276 + (let ((__tmp115281 + (let ((__tmp115282 |gxc[1]#_g115283_|)) (declare (not safe)) - (cons 'clauses __tmp115020))) - (__tmp115015 - (let ((__tmp115016 - (let ((__tmp115017 |gxc[1]#_g115018_|)) + (cons 'clauses __tmp115282))) + (__tmp115277 + (let ((__tmp115278 + (let ((__tmp115279 |gxc[1]#_g115280_|)) (declare (not safe)) - (cons 'id __tmp115017)))) + (cons 'id __tmp115279)))) (declare (not safe)) - (cons __tmp115016 '())))) + (cons __tmp115278 '())))) (declare (not safe)) - (cons __tmp115019 __tmp115015)))) + (cons __tmp115281 __tmp115277)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115014 + __obj114552 + __tmp115276 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115022 - (let ((__tmp115027 - (let ((__tmp115028 |gxc[1]#_g115029_|)) + (let ((__tmp115284 + (let ((__tmp115289 + (let ((__tmp115290 |gxc[1]#_g115291_|)) (declare (not safe)) - (cons 'clauses __tmp115028))) - (__tmp115023 - (let ((__tmp115024 - (let ((__tmp115025 |gxc[1]#_g115026_|)) + (cons 'clauses __tmp115290))) + (__tmp115285 + (let ((__tmp115286 + (let ((__tmp115287 |gxc[1]#_g115288_|)) (declare (not safe)) - (cons 'id __tmp115025)))) + (cons 'id __tmp115287)))) (declare (not safe)) - (cons __tmp115024 '())))) + (cons __tmp115286 '())))) (declare (not safe)) - (cons __tmp115027 __tmp115023)))) + (cons __tmp115289 __tmp115285)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115022 + __obj114552 + __tmp115284 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114290)) + __obj114552)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj114291 + (let ((__obj114553 (let () (declare (not safe)) (##structure @@ -4096,7 +4096,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114553 'gxc#!kw-lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4104,7 +4104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114553 '!kw-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4112,26 +4112,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114553 '(table dispatch) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115030 - (let ((__tmp115031 |gxc[1]#_g114743_|)) + (let ((__tmp115292 + (let ((__tmp115293 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons __tmp115031 '())))) + (cons __tmp115293 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115030 + __obj114553 + __tmp115292 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114553 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4139,7 +4139,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114553 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4147,7 +4147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114553 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4155,150 +4155,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114291 + __obj114553 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115032 |gxc[1]#_g115033_|)) + (let ((__tmp115294 |gxc[1]#_g115295_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115032 + __obj114553 + __tmp115294 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115034 |gxc[1]#_g115035_|)) + (let ((__tmp115296 |gxc[1]#_g115297_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115034 + __obj114553 + __tmp115296 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115036 |gxc[1]#_g115037_|)) + (let ((__tmp115298 |gxc[1]#_g115299_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115036 + __obj114553 + __tmp115298 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115038 - (let ((__tmp115047 - (let ((__tmp115048 |gxc[1]#_g115049_|)) + (let ((__tmp115300 + (let ((__tmp115309 + (let ((__tmp115310 |gxc[1]#_g115311_|)) (declare (not safe)) - (cons 'table __tmp115048))) - (__tmp115039 - (let ((__tmp115044 - (let ((__tmp115045 |gxc[1]#_g115046_|)) + (cons 'table __tmp115310))) + (__tmp115301 + (let ((__tmp115306 + (let ((__tmp115307 |gxc[1]#_g115308_|)) (declare (not safe)) - (cons 'dispatch __tmp115045))) - (__tmp115040 - (let ((__tmp115041 - (let ((__tmp115042 |gxc[1]#_g115043_|)) + (cons 'dispatch __tmp115307))) + (__tmp115302 + (let ((__tmp115303 + (let ((__tmp115304 |gxc[1]#_g115305_|)) (declare (not safe)) - (cons 'id __tmp115042)))) + (cons 'id __tmp115304)))) (declare (not safe)) - (cons __tmp115041 '())))) + (cons __tmp115303 '())))) (declare (not safe)) - (cons __tmp115044 __tmp115040)))) + (cons __tmp115306 __tmp115302)))) (declare (not safe)) - (cons __tmp115047 __tmp115039)))) + (cons __tmp115309 __tmp115301)))) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115038 + __obj114553 + __tmp115300 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115050 - (let ((__tmp115059 - (let ((__tmp115060 |gxc[1]#_g115061_|)) + (let ((__tmp115312 + (let ((__tmp115321 + (let ((__tmp115322 |gxc[1]#_g115323_|)) (declare (not safe)) - (cons 'table __tmp115060))) - (__tmp115051 - (let ((__tmp115056 - (let ((__tmp115057 |gxc[1]#_g115058_|)) + (cons 'table __tmp115322))) + (__tmp115313 + (let ((__tmp115318 + (let ((__tmp115319 |gxc[1]#_g115320_|)) (declare (not safe)) - (cons 'dispatch __tmp115057))) - (__tmp115052 - (let ((__tmp115053 - (let ((__tmp115054 |gxc[1]#_g115055_|)) + (cons 'dispatch __tmp115319))) + (__tmp115314 + (let ((__tmp115315 + (let ((__tmp115316 |gxc[1]#_g115317_|)) (declare (not safe)) - (cons 'id __tmp115054)))) + (cons 'id __tmp115316)))) (declare (not safe)) - (cons __tmp115053 '())))) + (cons __tmp115315 '())))) (declare (not safe)) - (cons __tmp115056 __tmp115052)))) + (cons __tmp115318 __tmp115314)))) (declare (not safe)) - (cons __tmp115059 __tmp115051)))) + (cons __tmp115321 __tmp115313)))) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115050 + __obj114553 + __tmp115312 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115062 - (let ((__tmp115071 - (let ((__tmp115072 |gxc[1]#_g115073_|)) + (let ((__tmp115324 + (let ((__tmp115333 + (let ((__tmp115334 |gxc[1]#_g115335_|)) (declare (not safe)) - (cons 'table __tmp115072))) - (__tmp115063 - (let ((__tmp115068 - (let ((__tmp115069 |gxc[1]#_g115070_|)) + (cons 'table __tmp115334))) + (__tmp115325 + (let ((__tmp115330 + (let ((__tmp115331 |gxc[1]#_g115332_|)) (declare (not safe)) - (cons 'dispatch __tmp115069))) - (__tmp115064 - (let ((__tmp115065 - (let ((__tmp115066 |gxc[1]#_g115067_|)) + (cons 'dispatch __tmp115331))) + (__tmp115326 + (let ((__tmp115327 + (let ((__tmp115328 |gxc[1]#_g115329_|)) (declare (not safe)) - (cons 'id __tmp115066)))) + (cons 'id __tmp115328)))) (declare (not safe)) - (cons __tmp115065 '())))) + (cons __tmp115327 '())))) (declare (not safe)) - (cons __tmp115068 __tmp115064)))) + (cons __tmp115330 __tmp115326)))) (declare (not safe)) - (cons __tmp115071 __tmp115063)))) + (cons __tmp115333 __tmp115325)))) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115062 + __obj114553 + __tmp115324 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115074 - (let ((__tmp115083 - (let ((__tmp115084 |gxc[1]#_g115085_|)) + (let ((__tmp115336 + (let ((__tmp115345 + (let ((__tmp115346 |gxc[1]#_g115347_|)) (declare (not safe)) - (cons 'table __tmp115084))) - (__tmp115075 - (let ((__tmp115080 - (let ((__tmp115081 |gxc[1]#_g115082_|)) + (cons 'table __tmp115346))) + (__tmp115337 + (let ((__tmp115342 + (let ((__tmp115343 |gxc[1]#_g115344_|)) (declare (not safe)) - (cons 'dispatch __tmp115081))) - (__tmp115076 - (let ((__tmp115077 - (let ((__tmp115078 |gxc[1]#_g115079_|)) + (cons 'dispatch __tmp115343))) + (__tmp115338 + (let ((__tmp115339 + (let ((__tmp115340 |gxc[1]#_g115341_|)) (declare (not safe)) - (cons 'id __tmp115078)))) + (cons 'id __tmp115340)))) (declare (not safe)) - (cons __tmp115077 '())))) + (cons __tmp115339 '())))) (declare (not safe)) - (cons __tmp115080 __tmp115076)))) + (cons __tmp115342 __tmp115338)))) (declare (not safe)) - (cons __tmp115083 __tmp115075)))) + (cons __tmp115345 __tmp115337)))) (declare (not safe)) (##unchecked-structure-set! - __obj114291 - __tmp115074 + __obj114553 + __tmp115336 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114291)) + __obj114553)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj114292 + (let ((__obj114554 (let () (declare (not safe)) (##structure @@ -4321,7 +4321,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114554 'gxc#!kw-lambda-primary::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4329,7 +4329,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114554 '!kw-lambda-primary '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4337,26 +4337,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114554 '(keys main) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115086 - (let ((__tmp115087 |gxc[1]#_g114743_|)) + (let ((__tmp115348 + (let ((__tmp115349 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons __tmp115087 '())))) + (cons __tmp115349 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115086 + __obj114554 + __tmp115348 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114554 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4364,7 +4364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114554 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4372,7 +4372,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114554 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4380,150 +4380,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114292 + __obj114554 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115088 |gxc[1]#_g115089_|)) + (let ((__tmp115350 |gxc[1]#_g115351_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115088 + __obj114554 + __tmp115350 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115090 |gxc[1]#_g115091_|)) + (let ((__tmp115352 |gxc[1]#_g115353_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115090 + __obj114554 + __tmp115352 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115092 |gxc[1]#_g115093_|)) + (let ((__tmp115354 |gxc[1]#_g115355_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115092 + __obj114554 + __tmp115354 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115094 - (let ((__tmp115103 - (let ((__tmp115104 |gxc[1]#_g115105_|)) + (let ((__tmp115356 + (let ((__tmp115365 + (let ((__tmp115366 |gxc[1]#_g115367_|)) (declare (not safe)) - (cons 'keys __tmp115104))) - (__tmp115095 - (let ((__tmp115100 - (let ((__tmp115101 |gxc[1]#_g115102_|)) + (cons 'keys __tmp115366))) + (__tmp115357 + (let ((__tmp115362 + (let ((__tmp115363 |gxc[1]#_g115364_|)) (declare (not safe)) - (cons 'main __tmp115101))) - (__tmp115096 - (let ((__tmp115097 - (let ((__tmp115098 |gxc[1]#_g115099_|)) + (cons 'main __tmp115363))) + (__tmp115358 + (let ((__tmp115359 + (let ((__tmp115360 |gxc[1]#_g115361_|)) (declare (not safe)) - (cons 'id __tmp115098)))) + (cons 'id __tmp115360)))) (declare (not safe)) - (cons __tmp115097 '())))) + (cons __tmp115359 '())))) (declare (not safe)) - (cons __tmp115100 __tmp115096)))) + (cons __tmp115362 __tmp115358)))) (declare (not safe)) - (cons __tmp115103 __tmp115095)))) + (cons __tmp115365 __tmp115357)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115094 + __obj114554 + __tmp115356 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115106 - (let ((__tmp115115 - (let ((__tmp115116 |gxc[1]#_g115117_|)) + (let ((__tmp115368 + (let ((__tmp115377 + (let ((__tmp115378 |gxc[1]#_g115379_|)) (declare (not safe)) - (cons 'keys __tmp115116))) - (__tmp115107 - (let ((__tmp115112 - (let ((__tmp115113 |gxc[1]#_g115114_|)) + (cons 'keys __tmp115378))) + (__tmp115369 + (let ((__tmp115374 + (let ((__tmp115375 |gxc[1]#_g115376_|)) (declare (not safe)) - (cons 'main __tmp115113))) - (__tmp115108 - (let ((__tmp115109 - (let ((__tmp115110 |gxc[1]#_g115111_|)) + (cons 'main __tmp115375))) + (__tmp115370 + (let ((__tmp115371 + (let ((__tmp115372 |gxc[1]#_g115373_|)) (declare (not safe)) - (cons 'id __tmp115110)))) + (cons 'id __tmp115372)))) (declare (not safe)) - (cons __tmp115109 '())))) + (cons __tmp115371 '())))) (declare (not safe)) - (cons __tmp115112 __tmp115108)))) + (cons __tmp115374 __tmp115370)))) (declare (not safe)) - (cons __tmp115115 __tmp115107)))) + (cons __tmp115377 __tmp115369)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115106 + __obj114554 + __tmp115368 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115118 - (let ((__tmp115127 - (let ((__tmp115128 |gxc[1]#_g115129_|)) + (let ((__tmp115380 + (let ((__tmp115389 + (let ((__tmp115390 |gxc[1]#_g115391_|)) (declare (not safe)) - (cons 'keys __tmp115128))) - (__tmp115119 - (let ((__tmp115124 - (let ((__tmp115125 |gxc[1]#_g115126_|)) + (cons 'keys __tmp115390))) + (__tmp115381 + (let ((__tmp115386 + (let ((__tmp115387 |gxc[1]#_g115388_|)) (declare (not safe)) - (cons 'main __tmp115125))) - (__tmp115120 - (let ((__tmp115121 - (let ((__tmp115122 |gxc[1]#_g115123_|)) + (cons 'main __tmp115387))) + (__tmp115382 + (let ((__tmp115383 + (let ((__tmp115384 |gxc[1]#_g115385_|)) (declare (not safe)) - (cons 'id __tmp115122)))) + (cons 'id __tmp115384)))) (declare (not safe)) - (cons __tmp115121 '())))) + (cons __tmp115383 '())))) (declare (not safe)) - (cons __tmp115124 __tmp115120)))) + (cons __tmp115386 __tmp115382)))) (declare (not safe)) - (cons __tmp115127 __tmp115119)))) + (cons __tmp115389 __tmp115381)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115118 + __obj114554 + __tmp115380 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115130 - (let ((__tmp115139 - (let ((__tmp115140 |gxc[1]#_g115141_|)) + (let ((__tmp115392 + (let ((__tmp115401 + (let ((__tmp115402 |gxc[1]#_g115403_|)) (declare (not safe)) - (cons 'keys __tmp115140))) - (__tmp115131 - (let ((__tmp115136 - (let ((__tmp115137 |gxc[1]#_g115138_|)) + (cons 'keys __tmp115402))) + (__tmp115393 + (let ((__tmp115398 + (let ((__tmp115399 |gxc[1]#_g115400_|)) (declare (not safe)) - (cons 'main __tmp115137))) - (__tmp115132 - (let ((__tmp115133 - (let ((__tmp115134 |gxc[1]#_g115135_|)) + (cons 'main __tmp115399))) + (__tmp115394 + (let ((__tmp115395 + (let ((__tmp115396 |gxc[1]#_g115397_|)) (declare (not safe)) - (cons 'id __tmp115134)))) + (cons 'id __tmp115396)))) (declare (not safe)) - (cons __tmp115133 '())))) + (cons __tmp115395 '())))) (declare (not safe)) - (cons __tmp115136 __tmp115132)))) + (cons __tmp115398 __tmp115394)))) (declare (not safe)) - (cons __tmp115139 __tmp115131)))) + (cons __tmp115401 __tmp115393)))) (declare (not safe)) (##unchecked-structure-set! - __obj114292 - __tmp115130 + __obj114554 + __tmp115392 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114292)) + __obj114554)) (define |gxc[:0:]#!primitive| - (let ((__obj114293 + (let ((__obj114555 (let () (declare (not safe)) (##structure @@ -4546,7 +4546,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 'gxc#!primitive::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4554,7 +4554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '!primitive '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4562,7 +4562,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4570,7 +4570,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4578,7 +4578,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4586,7 +4586,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4594,7 +4594,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4602,39 +4602,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115142 |gxc[1]#_g115143_|)) + (let ((__tmp115404 |gxc[1]#_g115405_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115142 + __obj114555 + __tmp115404 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115144 |gxc[1]#_g115145_|)) + (let ((__tmp115406 |gxc[1]#_g115407_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115144 + __obj114555 + __tmp115406 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115146 |gxc[1]#_g115147_|)) + (let ((__tmp115408 |gxc[1]#_g115409_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114293 - __tmp115146 + __obj114555 + __tmp115408 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '() '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4642,7 +4642,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '() '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4650,7 +4650,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '() '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4658,14 +4658,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114293 + __obj114555 '() '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114293)) + __obj114555)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj114294 + (let ((__obj114556 (let () (declare (not safe)) (##structure @@ -4688,7 +4688,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114294 + __obj114556 'gxc#!primitive-lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4696,7 +4696,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114294 + __obj114556 '!primitive-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4704,30 +4704,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114294 + __obj114556 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115148 - (let ((__tmp115152 |gxc[1]#_g115153_|) - (__tmp115149 - (let ((__tmp115150 |gxc[1]#_g115151_|)) + (let ((__tmp115410 + (let ((__tmp115414 |gxc[1]#_g115415_|) + (__tmp115411 + (let ((__tmp115412 |gxc[1]#_g115413_|)) (declare (not safe)) - (cons __tmp115150 '())))) + (cons __tmp115412 '())))) (declare (not safe)) - (cons __tmp115152 __tmp115149)))) + (cons __tmp115414 __tmp115411)))) (declare (not safe)) (##unchecked-structure-set! - __obj114294 - __tmp115148 + __obj114556 + __tmp115410 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114294 + __obj114556 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4735,7 +4735,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114294 + __obj114556 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4743,7 +4743,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114294 + __obj114556 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4751,218 +4751,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114294 + __obj114556 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115154 |gxc[1]#_g115155_|)) + (let ((__tmp115416 |gxc[1]#_g115417_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114294 - __tmp115154 + __obj114556 + __tmp115416 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115156 |gxc[1]#_g115157_|)) + (let ((__tmp115418 |gxc[1]#_g115419_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114294 - __tmp115156 + __obj114556 + __tmp115418 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115158 |gxc[1]#_g115159_|)) + (let ((__tmp115420 |gxc[1]#_g115421_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114294 - __tmp115158 + __obj114556 + __tmp115420 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115160 - (let ((__tmp115177 - (let ((__tmp115178 |gxc[1]#_g115179_|)) + (let ((__tmp115422 + (let ((__tmp115439 + (let ((__tmp115440 |gxc[1]#_g115441_|)) (declare (not safe)) - (cons 'arity __tmp115178))) - (__tmp115161 - (let ((__tmp115174 - (let ((__tmp115175 |gxc[1]#_g115176_|)) + (cons 'arity __tmp115440))) + (__tmp115423 + (let ((__tmp115436 + (let ((__tmp115437 |gxc[1]#_g115438_|)) (declare (not safe)) - (cons 'dispatch __tmp115175))) - (__tmp115162 - (let ((__tmp115171 - (let ((__tmp115172 |gxc[1]#_g115173_|)) + (cons 'dispatch __tmp115437))) + (__tmp115424 + (let ((__tmp115433 + (let ((__tmp115434 |gxc[1]#_g115435_|)) (declare (not safe)) - (cons 'inline __tmp115172))) - (__tmp115163 - (let ((__tmp115168 - (let ((__tmp115169 - |gxc[1]#_g115170_|)) + (cons 'inline __tmp115434))) + (__tmp115425 + (let ((__tmp115430 + (let ((__tmp115431 + |gxc[1]#_g115432_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115169))) - (__tmp115164 - (let ((__tmp115165 - (let ((__tmp115166 - |gxc[1]#_g115167_|)) + __tmp115431))) + (__tmp115426 + (let ((__tmp115427 + (let ((__tmp115428 + |gxc[1]#_g115429_|)) (declare (not safe)) - (cons 'id __tmp115166)))) + (cons 'id __tmp115428)))) (declare (not safe)) - (cons __tmp115165 '())))) + (cons __tmp115427 '())))) (declare (not safe)) - (cons __tmp115168 __tmp115164)))) + (cons __tmp115430 __tmp115426)))) (declare (not safe)) - (cons __tmp115171 __tmp115163)))) + (cons __tmp115433 __tmp115425)))) (declare (not safe)) - (cons __tmp115174 __tmp115162)))) + (cons __tmp115436 __tmp115424)))) (declare (not safe)) - (cons __tmp115177 __tmp115161)))) + (cons __tmp115439 __tmp115423)))) (declare (not safe)) (##unchecked-structure-set! - __obj114294 - __tmp115160 + __obj114556 + __tmp115422 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115180 - (let ((__tmp115197 - (let ((__tmp115198 |gxc[1]#_g115199_|)) + (let ((__tmp115442 + (let ((__tmp115459 + (let ((__tmp115460 |gxc[1]#_g115461_|)) (declare (not safe)) - (cons 'arity __tmp115198))) - (__tmp115181 - (let ((__tmp115194 - (let ((__tmp115195 |gxc[1]#_g115196_|)) + (cons 'arity __tmp115460))) + (__tmp115443 + (let ((__tmp115456 + (let ((__tmp115457 |gxc[1]#_g115458_|)) (declare (not safe)) - (cons 'dispatch __tmp115195))) - (__tmp115182 - (let ((__tmp115191 - (let ((__tmp115192 |gxc[1]#_g115193_|)) + (cons 'dispatch __tmp115457))) + (__tmp115444 + (let ((__tmp115453 + (let ((__tmp115454 |gxc[1]#_g115455_|)) (declare (not safe)) - (cons 'inline __tmp115192))) - (__tmp115183 - (let ((__tmp115188 - (let ((__tmp115189 - |gxc[1]#_g115190_|)) + (cons 'inline __tmp115454))) + (__tmp115445 + (let ((__tmp115450 + (let ((__tmp115451 + |gxc[1]#_g115452_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115189))) - (__tmp115184 - (let ((__tmp115185 - (let ((__tmp115186 - |gxc[1]#_g115187_|)) + __tmp115451))) + (__tmp115446 + (let ((__tmp115447 + (let ((__tmp115448 + |gxc[1]#_g115449_|)) (declare (not safe)) - (cons 'id __tmp115186)))) + (cons 'id __tmp115448)))) (declare (not safe)) - (cons __tmp115185 '())))) + (cons __tmp115447 '())))) (declare (not safe)) - (cons __tmp115188 __tmp115184)))) + (cons __tmp115450 __tmp115446)))) (declare (not safe)) - (cons __tmp115191 __tmp115183)))) + (cons __tmp115453 __tmp115445)))) (declare (not safe)) - (cons __tmp115194 __tmp115182)))) + (cons __tmp115456 __tmp115444)))) (declare (not safe)) - (cons __tmp115197 __tmp115181)))) + (cons __tmp115459 __tmp115443)))) (declare (not safe)) (##unchecked-structure-set! - __obj114294 - __tmp115180 + __obj114556 + __tmp115442 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115200 - (let ((__tmp115217 - (let ((__tmp115218 |gxc[1]#_g115219_|)) + (let ((__tmp115462 + (let ((__tmp115479 + (let ((__tmp115480 |gxc[1]#_g115481_|)) (declare (not safe)) - (cons 'arity __tmp115218))) - (__tmp115201 - (let ((__tmp115214 - (let ((__tmp115215 |gxc[1]#_g115216_|)) + (cons 'arity __tmp115480))) + (__tmp115463 + (let ((__tmp115476 + (let ((__tmp115477 |gxc[1]#_g115478_|)) (declare (not safe)) - (cons 'dispatch __tmp115215))) - (__tmp115202 - (let ((__tmp115211 - (let ((__tmp115212 |gxc[1]#_g115213_|)) + (cons 'dispatch __tmp115477))) + (__tmp115464 + (let ((__tmp115473 + (let ((__tmp115474 |gxc[1]#_g115475_|)) (declare (not safe)) - (cons 'inline __tmp115212))) - (__tmp115203 - (let ((__tmp115208 - (let ((__tmp115209 - |gxc[1]#_g115210_|)) + (cons 'inline __tmp115474))) + (__tmp115465 + (let ((__tmp115470 + (let ((__tmp115471 + |gxc[1]#_g115472_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115209))) - (__tmp115204 - (let ((__tmp115205 - (let ((__tmp115206 - |gxc[1]#_g115207_|)) + __tmp115471))) + (__tmp115466 + (let ((__tmp115467 + (let ((__tmp115468 + |gxc[1]#_g115469_|)) (declare (not safe)) - (cons 'id __tmp115206)))) + (cons 'id __tmp115468)))) (declare (not safe)) - (cons __tmp115205 '())))) + (cons __tmp115467 '())))) (declare (not safe)) - (cons __tmp115208 __tmp115204)))) + (cons __tmp115470 __tmp115466)))) (declare (not safe)) - (cons __tmp115211 __tmp115203)))) + (cons __tmp115473 __tmp115465)))) (declare (not safe)) - (cons __tmp115214 __tmp115202)))) + (cons __tmp115476 __tmp115464)))) (declare (not safe)) - (cons __tmp115217 __tmp115201)))) + (cons __tmp115479 __tmp115463)))) (declare (not safe)) (##unchecked-structure-set! - __obj114294 - __tmp115200 + __obj114556 + __tmp115462 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115220 - (let ((__tmp115237 - (let ((__tmp115238 |gxc[1]#_g115239_|)) + (let ((__tmp115482 + (let ((__tmp115499 + (let ((__tmp115500 |gxc[1]#_g115501_|)) (declare (not safe)) - (cons 'arity __tmp115238))) - (__tmp115221 - (let ((__tmp115234 - (let ((__tmp115235 |gxc[1]#_g115236_|)) + (cons 'arity __tmp115500))) + (__tmp115483 + (let ((__tmp115496 + (let ((__tmp115497 |gxc[1]#_g115498_|)) (declare (not safe)) - (cons 'dispatch __tmp115235))) - (__tmp115222 - (let ((__tmp115231 - (let ((__tmp115232 |gxc[1]#_g115233_|)) + (cons 'dispatch __tmp115497))) + (__tmp115484 + (let ((__tmp115493 + (let ((__tmp115494 |gxc[1]#_g115495_|)) (declare (not safe)) - (cons 'inline __tmp115232))) - (__tmp115223 - (let ((__tmp115228 - (let ((__tmp115229 - |gxc[1]#_g115230_|)) + (cons 'inline __tmp115494))) + (__tmp115485 + (let ((__tmp115490 + (let ((__tmp115491 + |gxc[1]#_g115492_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115229))) - (__tmp115224 - (let ((__tmp115225 - (let ((__tmp115226 - |gxc[1]#_g115227_|)) + __tmp115491))) + (__tmp115486 + (let ((__tmp115487 + (let ((__tmp115488 + |gxc[1]#_g115489_|)) (declare (not safe)) - (cons 'id __tmp115226)))) + (cons 'id __tmp115488)))) (declare (not safe)) - (cons __tmp115225 '())))) + (cons __tmp115487 '())))) (declare (not safe)) - (cons __tmp115228 __tmp115224)))) + (cons __tmp115490 __tmp115486)))) (declare (not safe)) - (cons __tmp115231 __tmp115223)))) + (cons __tmp115493 __tmp115485)))) (declare (not safe)) - (cons __tmp115234 __tmp115222)))) + (cons __tmp115496 __tmp115484)))) (declare (not safe)) - (cons __tmp115237 __tmp115221)))) + (cons __tmp115499 __tmp115483)))) (declare (not safe)) (##unchecked-structure-set! - __obj114294 - __tmp115220 + __obj114556 + __tmp115482 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114294)) + __obj114556)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj114295 + (let ((__obj114557 (let () (declare (not safe)) (##structure @@ -4985,7 +4985,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114295 + __obj114557 'gxc#!primitive-case-lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4993,7 +4993,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114295 + __obj114557 '!primitive-case-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5001,30 +5001,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114295 + __obj114557 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115240 - (let ((__tmp115244 |gxc[1]#_g115153_|) - (__tmp115241 - (let ((__tmp115242 |gxc[1]#_g115243_|)) + (let ((__tmp115502 + (let ((__tmp115506 |gxc[1]#_g115415_|) + (__tmp115503 + (let ((__tmp115504 |gxc[1]#_g115505_|)) (declare (not safe)) - (cons __tmp115242 '())))) + (cons __tmp115504 '())))) (declare (not safe)) - (cons __tmp115244 __tmp115241)))) + (cons __tmp115506 __tmp115503)))) (declare (not safe)) (##unchecked-structure-set! - __obj114295 - __tmp115240 + __obj114557 + __tmp115502 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114295 + __obj114557 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5032,7 +5032,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114295 + __obj114557 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5040,7 +5040,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114295 + __obj114557 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5048,117 +5048,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114295 + __obj114557 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115245 |gxc[1]#_g115246_|)) + (let ((__tmp115507 |gxc[1]#_g115508_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114295 - __tmp115245 + __obj114557 + __tmp115507 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115247 |gxc[1]#_g115248_|)) + (let ((__tmp115509 |gxc[1]#_g115510_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114295 - __tmp115247 + __obj114557 + __tmp115509 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115249 |gxc[1]#_g115250_|)) + (let ((__tmp115511 |gxc[1]#_g115512_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114295 - __tmp115249 + __obj114557 + __tmp115511 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115251 - (let ((__tmp115256 - (let ((__tmp115257 |gxc[1]#_g115258_|)) + (let ((__tmp115513 + (let ((__tmp115518 + (let ((__tmp115519 |gxc[1]#_g115520_|)) (declare (not safe)) - (cons 'clauses __tmp115257))) - (__tmp115252 - (let ((__tmp115253 - (let ((__tmp115254 |gxc[1]#_g115255_|)) + (cons 'clauses __tmp115519))) + (__tmp115514 + (let ((__tmp115515 + (let ((__tmp115516 |gxc[1]#_g115517_|)) (declare (not safe)) - (cons 'id __tmp115254)))) + (cons 'id __tmp115516)))) (declare (not safe)) - (cons __tmp115253 '())))) + (cons __tmp115515 '())))) (declare (not safe)) - (cons __tmp115256 __tmp115252)))) + (cons __tmp115518 __tmp115514)))) (declare (not safe)) (##unchecked-structure-set! - __obj114295 - __tmp115251 + __obj114557 + __tmp115513 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115259 - (let ((__tmp115264 - (let ((__tmp115265 |gxc[1]#_g115266_|)) + (let ((__tmp115521 + (let ((__tmp115526 + (let ((__tmp115527 |gxc[1]#_g115528_|)) (declare (not safe)) - (cons 'clauses __tmp115265))) - (__tmp115260 - (let ((__tmp115261 - (let ((__tmp115262 |gxc[1]#_g115263_|)) + (cons 'clauses __tmp115527))) + (__tmp115522 + (let ((__tmp115523 + (let ((__tmp115524 |gxc[1]#_g115525_|)) (declare (not safe)) - (cons 'id __tmp115262)))) + (cons 'id __tmp115524)))) (declare (not safe)) - (cons __tmp115261 '())))) + (cons __tmp115523 '())))) (declare (not safe)) - (cons __tmp115264 __tmp115260)))) + (cons __tmp115526 __tmp115522)))) (declare (not safe)) (##unchecked-structure-set! - __obj114295 - __tmp115259 + __obj114557 + __tmp115521 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115267 - (let ((__tmp115272 - (let ((__tmp115273 |gxc[1]#_g115274_|)) + (let ((__tmp115529 + (let ((__tmp115534 + (let ((__tmp115535 |gxc[1]#_g115536_|)) (declare (not safe)) - (cons 'clauses __tmp115273))) - (__tmp115268 - (let ((__tmp115269 - (let ((__tmp115270 |gxc[1]#_g115271_|)) + (cons 'clauses __tmp115535))) + (__tmp115530 + (let ((__tmp115531 + (let ((__tmp115532 |gxc[1]#_g115533_|)) (declare (not safe)) - (cons 'id __tmp115270)))) + (cons 'id __tmp115532)))) (declare (not safe)) - (cons __tmp115269 '())))) + (cons __tmp115531 '())))) (declare (not safe)) - (cons __tmp115272 __tmp115268)))) + (cons __tmp115534 __tmp115530)))) (declare (not safe)) (##unchecked-structure-set! - __obj114295 - __tmp115267 + __obj114557 + __tmp115529 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115275 - (let ((__tmp115280 - (let ((__tmp115281 |gxc[1]#_g115282_|)) + (let ((__tmp115537 + (let ((__tmp115542 + (let ((__tmp115543 |gxc[1]#_g115544_|)) (declare (not safe)) - (cons 'clauses __tmp115281))) - (__tmp115276 - (let ((__tmp115277 - (let ((__tmp115278 |gxc[1]#_g115279_|)) + (cons 'clauses __tmp115543))) + (__tmp115538 + (let ((__tmp115539 + (let ((__tmp115540 |gxc[1]#_g115541_|)) (declare (not safe)) - (cons 'id __tmp115278)))) + (cons 'id __tmp115540)))) (declare (not safe)) - (cons __tmp115277 '())))) + (cons __tmp115539 '())))) (declare (not safe)) - (cons __tmp115280 __tmp115276)))) + (cons __tmp115542 __tmp115538)))) (declare (not safe)) (##unchecked-structure-set! - __obj114295 - __tmp115275 + __obj114557 + __tmp115537 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114295)))) + __obj114557)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index 679ca672..83b0b77b 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call__0.scm @@ -1,598 +1,598 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1709375802) + (define gerbil/compiler/optimize-call::timestamp 1709457374) (begin (define gxc#&optimize-call (make-promise (lambda () - (let ((_tbl152588_ + (let ((_tbl152850_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp152883 (force gxc#&basic-xform))) + (let ((__tmp153145 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl152588_ __tmp152883)) + (hash-merge! _tbl152850_ __tmp153145)) (let () (declare (not safe)) - (hash-put! _tbl152588_ '%#call gxc#optimize-call%)) - _tbl152588_)))) + (hash-put! _tbl152850_ '%#call gxc#optimize-call%)) + _tbl152850_)))) (define gxc#apply-optimize-call - (lambda (_stx152571_ . _args152573_) - (let ((__tmp152885 + (lambda (_stx152833_ . _args152835_) + (let ((__tmp153147 (lambda () (declare (not safe)) - (if (null? _args152573_) - (gxc#compile-e__0 _stx152571_) - (let ((_arg1152578_ (car _args152573_)) - (_rest152580_ (cdr _args152573_))) - (if (null? _rest152580_) - (gxc#compile-e__1 _stx152571_ _arg1152578_) - (let ((_arg2152583_ (car _rest152580_)) - (_rest152585_ (cdr _rest152580_))) - (if (null? _rest152585_) + (if (null? _args152835_) + (gxc#compile-e__0 _stx152833_) + (let ((_arg1152840_ (car _args152835_)) + (_rest152842_ (cdr _args152835_))) + (if (null? _rest152842_) + (gxc#compile-e__1 _stx152833_ _arg1152840_) + (let ((_arg2152845_ (car _rest152842_)) + (_rest152847_ (cdr _rest152842_))) + (if (null? _rest152847_) (gxc#compile-e__2 - _stx152571_ - _arg1152578_ - _arg2152583_) + _stx152833_ + _arg1152840_ + _arg2152845_) (apply gxc#compile-e - _stx152571_ - _arg1152578_ - _arg2152583_ - _rest152585_)))))))) - (__tmp152884 (force gxc#&optimize-call))) + _stx152833_ + _arg1152840_ + _arg2152845_ + _rest152847_)))))))) + (__tmp153146 (force gxc#&optimize-call))) (declare (not safe)) (call-with-parameters - __tmp152885 + __tmp153147 gxc#current-compile-methods - __tmp152884)))) + __tmp153146)))) (define gxc#optimize-call% - (lambda (_stx152426_) - (let* ((___stx152633152634_ _stx152426_) - (_g152429152449_ + (lambda (_stx152688_) + (let* ((___stx152895152896_ _stx152688_) + (_g152691152711_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152633152634_))))) - (let ((___kont152635152636_ - (lambda (_L152493_ _L152494_) - (let* ((_rator-id152512_ + ___stx152895152896_))))) + (let ((___kont152897152898_ + (lambda (_L152755_ _L152756_) + (let* ((_rator-id152774_ (let () (declare (not safe)) - (gxc#identifier-symbol _L152494_))) - (_rator-type152514_ + (gxc#identifier-symbol _L152756_))) + (_rator-type152776_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id152512_)))) + (gxc#optimizer-resolve-type _rator-id152774_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type152514_ + _rator-type152776_ 'gxc#!procedure::t)) (begin - (let ((__tmp152886 + (let ((__tmp153148 (##structure-ref - _rator-type152514_ + _rator-type152776_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id152512_ + _rator-id152774_ '" => " - _rator-type152514_ + _rator-type152776_ '" " - __tmp152886)) - (let ((_optimized152517_ - (let ((__method152881 + __tmp153148)) + (let ((_optimized152779_ + (let ((__method153143 (let () (declare (not safe)) (method-ref - _rator-type152514_ + _rator-type152776_ 'optimize-call)))) - (if __method152881 - (__method152881 - _rator-type152514_ - _stx152426_ - _L152493_) + (if __method153143 + (__method153143 + _rator-type152776_ + _stx152688_ + _L152755_) (let () (declare (not safe)) (error '"Missing method" - _rator-type152514_ + _rator-type152776_ 'optimize-call)))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type152514_)) - _optimized152517_ - (let* ((___stx152615152616_ _optimized152517_) - (_g152520152530_ + _rator-type152776_)) + _optimized152779_ + (let* ((___stx152877152878_ _optimized152779_) + (_g152782152792_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152615152616_))))) - (let ((___kont152617152618_ - (lambda (_L152550_) - (let ((__tmp152887 + ___stx152877152878_))))) + (let ((___kont152879152880_ + (lambda (_L152812_) + (let ((__tmp153149 (let () (declare (not safe)) (cons '%#call-unchecked - _L152550_)))) + _L152812_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152887 - _stx152426_)))) - (___kont152619152620_ - (lambda () _optimized152517_))) + __tmp153149 + _stx152688_)))) + (___kont152881152882_ + (lambda () _optimized152779_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152615152616_)) - (let ((_e152525152542_ + (gx#stx-pair? ___stx152877152878_)) + (let ((_e152787152804_ (let () (declare (not safe)) (gx#stx-e - ___stx152615152616_)))) - (let ((_tl152523152547_ + ___stx152877152878_)))) + (let ((_tl152785152809_ (let () (declare (not safe)) - (##cdr _e152525152542_))) - (_hd152524152545_ + (##cdr _e152787152804_))) + (_hd152786152807_ (let () (declare (not safe)) - (##car _e152525152542_)))) + (##car _e152787152804_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd152524152545_)) + _hd152786152807_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd152524152545_)) - (___kont152617152618_ - _tl152523152547_) - (___kont152619152620_)) - (___kont152619152620_)))) - (___kont152619152620_))))))) + _hd152786152807_)) + (___kont152879152880_ + _tl152785152809_) + (___kont152881152882_)) + (___kont152881152882_)))) + (___kont152881152882_))))))) (if (let () (declare (not safe)) - (not _rator-type152514_)) + (not _rator-type152776_)) (let () (declare (not safe)) - (gxc#xform-call% _stx152426_)) + (gxc#xform-call% _stx152688_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx152426_ - _rator-type152514_))))))) - (___kont152637152638_ + _stx152688_ + _rator-type152776_))))))) + (___kont152899152900_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _stx152426_))))) + (gxc#xform-call% _stx152688_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152633152634_)) - (let ((_e152435152461_ + (gx#stx-pair? ___stx152895152896_)) + (let ((_e152697152723_ (let () (declare (not safe)) - (gx#stx-e ___stx152633152634_)))) - (let ((_tl152433152466_ - (let () (declare (not safe)) (##cdr _e152435152461_))) - (_hd152434152464_ + (gx#stx-e ___stx152895152896_)))) + (let ((_tl152695152728_ + (let () (declare (not safe)) (##cdr _e152697152723_))) + (_hd152696152726_ (let () (declare (not safe)) - (##car _e152435152461_)))) + (##car _e152697152723_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152433152466_)) - (let ((_e152438152469_ + (gx#stx-pair? _tl152695152728_)) + (let ((_e152700152731_ (let () (declare (not safe)) - (gx#stx-e _tl152433152466_)))) - (let ((_tl152436152474_ + (gx#stx-e _tl152695152728_)))) + (let ((_tl152698152736_ (let () (declare (not safe)) - (##cdr _e152438152469_))) - (_hd152437152472_ + (##cdr _e152700152731_))) + (_hd152699152734_ (let () (declare (not safe)) - (##car _e152438152469_)))) + (##car _e152700152731_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd152437152472_)) - (let ((_e152441152477_ + (gx#stx-pair? _hd152699152734_)) + (let ((_e152703152739_ (let () (declare (not safe)) - (gx#stx-e _hd152437152472_)))) - (let ((_tl152439152482_ + (gx#stx-e _hd152699152734_)))) + (let ((_tl152701152744_ (let () (declare (not safe)) - (##cdr _e152441152477_))) - (_hd152440152480_ + (##cdr _e152703152739_))) + (_hd152702152742_ (let () (declare (not safe)) - (##car _e152441152477_)))) + (##car _e152703152739_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd152440152480_)) + (gx#identifier? _hd152702152742_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd152440152480_)) + _hd152702152742_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl152439152482_)) - (let ((_e152444152485_ + _tl152701152744_)) + (let ((_e152706152747_ (let () (declare (not safe)) (gx#stx-e - _tl152439152482_)))) - (let ((_tl152442152490_ + _tl152701152744_)))) + (let ((_tl152704152752_ (let () (declare (not safe)) - (##cdr _e152444152485_))) - (_hd152443152488_ + (##cdr _e152706152747_))) + (_hd152705152750_ (let () (declare (not safe)) - (##car _e152444152485_)))) + (##car _e152706152747_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl152442152490_)) - (___kont152635152636_ - _tl152436152474_ - _hd152443152488_) - (___kont152637152638_)))) - (___kont152637152638_)) - (___kont152637152638_)) - (___kont152637152638_)))) - (___kont152637152638_)))) - (___kont152637152638_)))) - (___kont152637152638_)))))) + _tl152704152752_)) + (___kont152897152898_ + _tl152698152736_ + _hd152705152750_) + (___kont152899152900_)))) + (___kont152899152900_)) + (___kont152899152900_)) + (___kont152899152900_)))) + (___kont152899152900_)))) + (___kont152899152900_)))) + (___kont152899152900_)))))) (define gxc#!predicate::optimize-call - (lambda (_self152380_ _stx152381_ _args152382_) - (let* ((_g152384152394_ - (lambda (_g152385152391_) + (lambda (_self152642_ _stx152643_ _args152644_) + (let* ((_g152646152656_ + (lambda (_g152647152653_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g152385152391_)))) - (_g152383152423_ - (lambda (_g152385152397_) + _g152647152653_)))) + (_g152645152685_ + (lambda (_g152647152659_) (if (let () (declare (not safe)) - (gx#stx-pair? _g152385152397_)) - (let ((_e152389152399_ + (gx#stx-pair? _g152647152659_)) + (let ((_e152651152661_ (let () (declare (not safe)) - (gx#stx-e _g152385152397_)))) - (let ((_hd152388152402_ + (gx#stx-e _g152647152659_)))) + (let ((_hd152650152664_ (let () (declare (not safe)) - (##car _e152389152399_))) - (_tl152387152404_ + (##car _e152651152661_))) + (_tl152649152666_ (let () (declare (not safe)) - (##cdr _e152389152399_)))) + (##cdr _e152651152661_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152387152404_)) - ((lambda (_L152407_) - (let* ((_klass152418_ - (let ((__tmp152888 + (gx#stx-null? _tl152649152666_)) + ((lambda (_L152669_) + (let* ((_klass152680_ + (let ((__tmp153150 (##structure-ref - _self152380_ + _self152642_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx152381_ - __tmp152888))) - (_object152420_ + _stx152643_ + __tmp153150))) + (_object152682_ (let () (declare (not safe)) - (gxc#compile-e__0 _L152407_)))) + (gxc#compile-e__0 _L152669_)))) (if (##structure-ref - _klass152418_ + _klass152680_ '8 gxc#!class::t '#f) - (let ((__tmp152904 - (let ((__tmp152905 - (let ((__tmp152907 - (let ((__tmp152908 + (let ((__tmp153166 + (let ((__tmp153167 + (let ((__tmp153169 + (let ((__tmp153170 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152909 + (let ((__tmp153171 (##structure-ref - _klass152418_ + _klass152680_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152909 '())))) + (cons __tmp153171 '())))) (declare (not safe)) - (cons '%#quote __tmp152908))) - (__tmp152906 - (let () (declare (not safe)) (cons _object152420_ '())))) + (cons '%#quote __tmp153170))) + (__tmp153168 + (let () (declare (not safe)) (cons _object152682_ '())))) (declare (not safe)) - (cons __tmp152907 __tmp152906)))) + (cons __tmp153169 __tmp153168)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp152905)))) + __tmp153167)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152904 - _stx152381_)) + __tmp153166 + _stx152643_)) (if (##structure-ref - _klass152418_ + _klass152680_ '7 gxc#!class::t '#f) - (let ((__tmp152898 - (let ((__tmp152899 - (let ((__tmp152901 - (let ((__tmp152902 + (let ((__tmp153160 + (let ((__tmp153161 + (let ((__tmp153163 + (let ((__tmp153164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152903 + (let ((__tmp153165 (##structure-ref - _klass152418_ + _klass152680_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152903 '())))) + (cons __tmp153165 '())))) (declare (not safe)) - (cons '%#quote __tmp152902))) - (__tmp152900 + (cons '%#quote __tmp153164))) + (__tmp153162 (let () (declare (not safe)) - (cons _object152420_ '())))) + (cons _object152682_ '())))) (declare (not safe)) - (cons __tmp152901 __tmp152900)))) + (cons __tmp153163 __tmp153162)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp152899)))) + __tmp153161)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152898 - _stx152381_)) - (let ((__tmp152889 - (let ((__tmp152890 - (let ((__tmp152896 - (let ((__tmp152897 + __tmp153160 + _stx152643_)) + (let ((__tmp153151 + (let ((__tmp153152 + (let ((__tmp153158 + (let ((__tmp153159 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp152897))) - (__tmp152891 - (let ((__tmp152893 - (let ((__tmp152894 - (let ((__tmp152895 + (cons '%#ref __tmp153159))) + (__tmp153153 + (let ((__tmp153155 + (let ((__tmp153156 + (let ((__tmp153157 (##structure-ref - _self152380_ + _self152642_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152895 '())))) + (cons __tmp153157 '())))) (declare (not safe)) - (cons '%#ref __tmp152894))) - (__tmp152892 + (cons '%#ref __tmp153156))) + (__tmp153154 (let () (declare (not safe)) - (cons _object152420_ '())))) + (cons _object152682_ '())))) (declare (not safe)) - (cons __tmp152893 __tmp152892)))) + (cons __tmp153155 __tmp153154)))) (declare (not safe)) - (cons __tmp152896 __tmp152891)))) + (cons __tmp153158 __tmp153153)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp152890)))) + __tmp153152)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152889 - _stx152381_)))))) - _hd152388152402_) + __tmp153151 + _stx152643_)))))) + _hd152650152664_) (let () (declare (not safe)) - (_g152384152394_ _g152385152397_))))) + (_g152646152656_ _g152647152659_))))) (let () (declare (not safe)) - (_g152384152394_ _g152385152397_)))))) + (_g152646152656_ _g152647152659_)))))) (declare (not safe)) - (_g152383152423_ _args152382_)))) + (_g152645152685_ _args152644_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__klass152590 __method-table152591) - (let ((__id152592 - (let ((__slot152593 + (lambda (__klass152852 __method-table152853) + (let ((__id152854 + (let ((__slot152855 (let () (declare (not safe)) - (class-slot-offset __klass152590 'id)))) - (if __slot152593 - __slot152593 + (class-slot-offset __klass152852 'id)))) + (if __slot152855 + __slot152855 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self152380_ _stx152381_ _args152382_) - (let* ((_g152384152394_ - (lambda (_g152385152391_) + (lambda (_self152642_ _stx152643_ _args152644_) + (let* ((_g152646152656_ + (lambda (_g152647152653_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g152385152391_)))) - (_g152383152423_ - (lambda (_g152385152397_) + _g152647152653_)))) + (_g152645152685_ + (lambda (_g152647152659_) (if (let () (declare (not safe)) - (gx#stx-pair? _g152385152397_)) - (let ((_e152389152399_ + (gx#stx-pair? _g152647152659_)) + (let ((_e152651152661_ (let () (declare (not safe)) - (gx#stx-e _g152385152397_)))) - (let ((_hd152388152402_ + (gx#stx-e _g152647152659_)))) + (let ((_hd152650152664_ (let () (declare (not safe)) - (##car _e152389152399_))) - (_tl152387152404_ + (##car _e152651152661_))) + (_tl152649152666_ (let () (declare (not safe)) - (##cdr _e152389152399_)))) + (##cdr _e152651152661_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152387152404_)) - ((lambda (_L152407_) - (let* ((_klass152418_ - (let ((__tmp152910 + (gx#stx-null? _tl152649152666_)) + ((lambda (_L152669_) + (let* ((_klass152680_ + (let ((__tmp153172 (let () (declare (not safe)) (##unchecked-structure-ref - _self152380_ - __id152592 - __klass152590 + _self152642_ + __id152854 + __klass152852 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx152381_ - __tmp152910))) - (_object152420_ + _stx152643_ + __tmp153172))) + (_object152682_ (let () (declare (not safe)) - (gxc#compile-e__0 _L152407_)))) + (gxc#compile-e__0 _L152669_)))) (if (##structure-ref - _klass152418_ + _klass152680_ '8 gxc#!class::t '#f) - (let ((__tmp152926 - (let ((__tmp152927 - (let ((__tmp152929 - (let ((__tmp152930 + (let ((__tmp153188 + (let ((__tmp153189 + (let ((__tmp153191 + (let ((__tmp153192 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152931 + (let ((__tmp153193 (##structure-ref - _klass152418_ + _klass152680_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152931 '())))) + (cons __tmp153193 '())))) (declare (not safe)) - (cons '%#quote __tmp152930))) - (__tmp152928 + (cons '%#quote __tmp153192))) + (__tmp153190 (let () (declare (not safe)) - (cons _object152420_ '())))) + (cons _object152682_ '())))) (declare (not safe)) - (cons __tmp152929 __tmp152928)))) + (cons __tmp153191 __tmp153190)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp152927)))) + __tmp153189)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152926 - _stx152381_)) + __tmp153188 + _stx152643_)) (if (##structure-ref - _klass152418_ + _klass152680_ '7 gxc#!class::t '#f) - (let ((__tmp152920 - (let ((__tmp152921 - (let ((__tmp152923 + (let ((__tmp153182 + (let ((__tmp153183 + (let ((__tmp153185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152924 - (let ((__tmp152925 + (let ((__tmp153186 + (let ((__tmp153187 (##structure-ref - _klass152418_ + _klass152680_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152925 '())))) + (cons __tmp153187 '())))) (declare (not safe)) - (cons '%#quote __tmp152924))) - (__tmp152922 + (cons '%#quote __tmp153186))) + (__tmp153184 (let () (declare (not safe)) - (cons _object152420_ '())))) + (cons _object152682_ '())))) (declare (not safe)) - (cons __tmp152923 __tmp152922)))) + (cons __tmp153185 __tmp153184)))) (declare (not safe)) - (cons '%#struct-instance? __tmp152921)))) + (cons '%#struct-instance? __tmp153183)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152920 - _stx152381_)) - (let ((__tmp152911 - (let ((__tmp152912 - (let ((__tmp152918 + __tmp153182 + _stx152643_)) + (let ((__tmp153173 + (let ((__tmp153174 + (let ((__tmp153180 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152919 + (let ((__tmp153181 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp152919))) - (__tmp152913 - (let ((__tmp152915 - (let ((__tmp152916 - (let ((__tmp152917 + (cons '%#ref __tmp153181))) + (__tmp153175 + (let ((__tmp153177 + (let ((__tmp153178 + (let ((__tmp153179 (let () (declare (not safe)) (##unchecked-structure-ref - _self152380_ - __id152592 - __klass152590 + _self152642_ + __id152854 + __klass152852 '#f)))) (declare (not safe)) - (cons __tmp152917 '())))) + (cons __tmp153179 '())))) (declare (not safe)) - (cons '%#ref __tmp152916))) - (__tmp152914 + (cons '%#ref __tmp153178))) + (__tmp153176 (let () (declare (not safe)) - (cons _object152420_ '())))) + (cons _object152682_ '())))) (declare (not safe)) - (cons __tmp152915 __tmp152914)))) + (cons __tmp153177 __tmp153176)))) (declare (not safe)) - (cons __tmp152918 __tmp152913)))) + (cons __tmp153180 __tmp153175)))) (declare (not safe)) - (cons '%#call __tmp152912)))) + (cons '%#call __tmp153174)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152911 - _stx152381_)))))) - _hd152388152402_) + __tmp153173 + _stx152643_)))))) + _hd152650152664_) (let () (declare (not safe)) - (_g152384152394_ _g152385152397_))))) + (_g152646152656_ _g152647152659_))))) (let () (declare (not safe)) - (_g152384152394_ _g152385152397_)))))) + (_g152646152656_ _g152647152659_)))))) (declare (not safe)) - (_g152383152423_ _args152382_)))))) + (_g152645152685_ _args152644_)))))) (let () (declare (not safe)) (bind-specializer! @@ -606,236 +606,236 @@ gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self152100_ _stx152101_ _args152102_) - (let* ((_klass152104_ - (let ((__tmp152932 - (##structure-ref _self152100_ '1 gxc#!type::t '#f))) + (lambda (_self152362_ _stx152363_ _args152364_) + (let* ((_klass152366_ + (let ((__tmp153194 + (##structure-ref _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx152101_ __tmp152932))) - (_fields152106_ - (length (##structure-ref _klass152104_ '5 gxc#!class::t '#f))) - (_args152108_ (map gxc#compile-e _args152102_)) - (_inline-make-object152110_ - (let ((__tmp152933 - (let ((__tmp152939 - (let ((__tmp152940 + (gxc#optimizer-resolve-class _stx152363_ __tmp153194))) + (_fields152368_ + (length (##structure-ref _klass152366_ '5 gxc#!class::t '#f))) + (_args152370_ (map gxc#compile-e _args152364_)) + (_inline-make-object152372_ + (let ((__tmp153195 + (let ((__tmp153201 + (let ((__tmp153202 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp152940))) - (__tmp152934 - (let ((__tmp152936 - (let ((__tmp152937 - (let ((__tmp152938 + (cons '%#ref __tmp153202))) + (__tmp153196 + (let ((__tmp153198 + (let ((__tmp153199 + (let ((__tmp153200 (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152938 '())))) + (cons __tmp153200 '())))) (declare (not safe)) - (cons '%#ref __tmp152937))) - (__tmp152935 + (cons '%#ref __tmp153199))) + (__tmp153197 (let () (declare (not safe)) (make-list__% - _fields152106_ + _fields152368_ '(%#quote #f))))) (declare (not safe)) - (cons __tmp152936 __tmp152935)))) + (cons __tmp153198 __tmp153197)))) (declare (not safe)) - (cons __tmp152939 __tmp152934)))) + (cons __tmp153201 __tmp153196)))) (declare (not safe)) - (cons '%#call __tmp152933)))) - (let ((_$e152113_ - (##structure-ref _klass152104_ '6 gxc#!class::t '#f))) - (if _$e152113_ - ((lambda (_ctor152116_) - (let ((_$obj152118_ - (let ((__tmp153040 (gensym '__obj))) + (cons '%#call __tmp153195)))) + (let ((_$e152375_ + (##structure-ref _klass152366_ '6 gxc#!class::t '#f))) + (if _$e152375_ + ((lambda (_ctor152378_) + (let ((_$obj152380_ + (let ((__tmp153302 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153040))) - (_ctor-impl152119_ + (make-symbol__0 __tmp153302))) + (_ctor-impl152381_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass152104_ - _ctor152116_)))) - (let ((__tmp153041 - (let ((__tmp153042 - (let ((__tmp153110 - (let ((__tmp153111 - (let ((__tmp153113 + _klass152366_ + _ctor152378_)))) + (let ((__tmp153303 + (let ((__tmp153304 + (let ((__tmp153372 + (let ((__tmp153373 + (let ((__tmp153375 (let () (declare (not safe)) - (cons _$obj152118_ + (cons _$obj152380_ '()))) - (__tmp153112 + (__tmp153374 (let () (declare (not safe)) - (cons _inline-make-object152110_ + (cons _inline-make-object152372_ '())))) (declare (not safe)) - (cons __tmp153113 - __tmp153112)))) + (cons __tmp153375 + __tmp153374)))) (declare (not safe)) - (cons __tmp153111 '()))) - (__tmp153043 - (let ((__tmp153044 - (let ((__tmp153045 - (let ((__tmp153049 - (if _ctor-impl152119_ + (cons __tmp153373 '()))) + (__tmp153305 + (let ((__tmp153306 + (let ((__tmp153307 + (let ((__tmp153311 + (if _ctor-impl152381_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153104 - (let ((__tmp153108 - (let ((__tmp153109 + (let ((__tmp153366 + (let ((__tmp153370 + (let ((__tmp153371 (let () (declare (not safe)) - (cons _ctor-impl152119_ + (cons _ctor-impl152381_ '())))) (declare (not safe)) - (cons '%#ref __tmp153109))) - (__tmp153105 - (let ((__tmp153106 - (let ((__tmp153107 + (cons '%#ref __tmp153371))) + (__tmp153367 + (let ((__tmp153368 + (let ((__tmp153369 (let () (declare (not safe)) - (cons _$obj152118_ + (cons _$obj152380_ '())))) (declare (not safe)) - (cons '%#ref __tmp153107)))) + (cons '%#ref __tmp153369)))) (declare (not safe)) - (cons __tmp153106 _args152108_)))) + (cons __tmp153368 _args152370_)))) (declare (not safe)) - (cons __tmp153108 __tmp153105)))) + (cons __tmp153370 __tmp153367)))) (declare (not safe)) - (cons '%#call __tmp153104)) - (let* ((_$ctor152121_ - (let ((__tmp153050 (gensym '__constructor))) + (cons '%#call __tmp153366)) + (let* ((_$ctor152383_ + (let ((__tmp153312 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp153050))) - (__tmp153051 - (let ((__tmp153086 - (let ((__tmp153087 - (let ((__tmp153103 + (make-symbol__0 __tmp153312))) + (__tmp153313 + (let ((__tmp153348 + (let ((__tmp153349 + (let ((__tmp153365 (let () (declare (not safe)) - (cons _$ctor152121_ + (cons _$ctor152383_ '()))) - (__tmp153088 - (let ((__tmp153089 - (let ((__tmp153090 + (__tmp153350 + (let ((__tmp153351 + (let ((__tmp153352 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153101 - (let ((__tmp153102 + (let ((__tmp153363 + (let ((__tmp153364 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153102))) - (__tmp153091 - (let ((__tmp153098 - (let ((__tmp153099 - (let ((__tmp153100 + (cons '%#ref __tmp153364))) + (__tmp153353 + (let ((__tmp153360 + (let ((__tmp153361 + (let ((__tmp153362 (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153100 '())))) + (cons __tmp153362 '())))) (declare (not safe)) - (cons '%#ref __tmp153099))) - (__tmp153092 - (let ((__tmp153096 - (let ((__tmp153097 + (cons '%#ref __tmp153361))) + (__tmp153354 + (let ((__tmp153358 + (let ((__tmp153359 (let () (declare (not safe)) - (cons _$obj152118_ + (cons _$obj152380_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153097))) - (__tmp153093 - (let ((__tmp153094 - (let ((__tmp153095 + __tmp153359))) + (__tmp153355 + (let ((__tmp153356 + (let ((__tmp153357 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _ctor152116_ '())))) + (cons _ctor152378_ '())))) (declare (not safe)) - (cons '%#quote __tmp153095)))) + (cons '%#quote __tmp153357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153094 '())))) + (cons __tmp153356 '())))) (declare (not safe)) - (cons __tmp153096 __tmp153093)))) + (cons __tmp153358 __tmp153355)))) (declare (not safe)) - (cons __tmp153098 __tmp153092)))) + (cons __tmp153360 __tmp153354)))) (declare (not safe)) - (cons __tmp153101 __tmp153091)))) + (cons __tmp153363 __tmp153353)))) (declare (not safe)) - (cons '%#call __tmp153090)))) + (cons '%#call __tmp153352)))) (declare (not safe)) - (cons __tmp153089 '())))) + (cons __tmp153351 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153103 - __tmp153088)))) + (cons __tmp153365 + __tmp153350)))) (declare (not safe)) - (cons __tmp153087 '()))) - (__tmp153052 - (let ((__tmp153053 - (let ((__tmp153054 - (let ((__tmp153084 - (let ((__tmp153085 + (cons __tmp153349 '()))) + (__tmp153314 + (let ((__tmp153315 + (let ((__tmp153316 + (let ((__tmp153346 + (let ((__tmp153347 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor152121_ '())))) + (cons _$ctor152383_ '())))) (declare (not safe)) - (cons '%#ref __tmp153085))) - (__tmp153055 - (let ((__tmp153077 - (let ((__tmp153078 - (let ((__tmp153082 - (let ((__tmp153083 + (cons '%#ref __tmp153347))) + (__tmp153317 + (let ((__tmp153339 + (let ((__tmp153340 + (let ((__tmp153344 + (let ((__tmp153345 (let () (declare (not safe)) - (cons _$ctor152121_ + (cons _$ctor152383_ '())))) (declare (not safe)) - (cons '%#ref __tmp153083))) - (__tmp153079 - (let ((__tmp153080 - (let ((__tmp153081 + (cons '%#ref __tmp153345))) + (__tmp153341 + (let ((__tmp153342 + (let ((__tmp153343 (let () (declare (not safe)) - (cons _$obj152118_ + (cons _$obj152380_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153081)))) + __tmp153343)))) (declare (not safe)) - (cons __tmp153080 - _args152108_)))) + (cons __tmp153342 + _args152370_)))) (declare (not safe)) - (cons __tmp153082 __tmp153079)))) + (cons __tmp153344 __tmp153341)))) (declare (not safe)) - (cons '%#call __tmp153078))) - (__tmp153056 - (let ((__tmp153057 - (let ((__tmp153058 - (let ((__tmp153075 - (let ((__tmp153076 + (cons '%#call __tmp153340))) + (__tmp153318 + (let ((__tmp153319 + (let ((__tmp153320 + (let ((__tmp153337 + (let ((__tmp153338 (let () (declare (not safe)) @@ -845,281 +845,281 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153076))) - (__tmp153059 - (let ((__tmp153073 - (let ((__tmp153074 + __tmp153338))) + (__tmp153321 + (let ((__tmp153335 + (let ((__tmp153336 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp153074))) - (__tmp153060 - (let ((__tmp153071 - (let ((__tmp153072 + (cons '%#quote __tmp153336))) + (__tmp153322 + (let ((__tmp153333 + (let ((__tmp153334 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp153072))) - (__tmp153061 - (let ((__tmp153068 - (let ((__tmp153069 - (let ((__tmp153070 + (cons '%#quote __tmp153334))) + (__tmp153323 + (let ((__tmp153330 + (let ((__tmp153331 + (let ((__tmp153332 (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153070 '())))) + (cons __tmp153332 '())))) (declare (not safe)) - (cons '%#ref __tmp153069))) - (__tmp153062 - (let ((__tmp153066 - (let ((__tmp153067 + (cons '%#ref __tmp153331))) + (__tmp153324 + (let ((__tmp153328 + (let ((__tmp153329 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp153067))) - (__tmp153063 - (let ((__tmp153064 - (let ((__tmp153065 + (cons '%#quote __tmp153329))) + (__tmp153325 + (let ((__tmp153326 + (let ((__tmp153327 (let () (declare (not safe)) - (cons _ctor152116_ + (cons _ctor152378_ '())))) (declare (not safe)) - (cons '%#quote __tmp153065)))) + (cons '%#quote __tmp153327)))) (declare (not safe)) - (cons __tmp153064 '())))) + (cons __tmp153326 '())))) (declare (not safe)) - (cons __tmp153066 __tmp153063)))) + (cons __tmp153328 __tmp153325)))) (declare (not safe)) - (cons __tmp153068 __tmp153062)))) + (cons __tmp153330 __tmp153324)))) (declare (not safe)) - (cons __tmp153071 __tmp153061)))) + (cons __tmp153333 __tmp153323)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153073 - __tmp153060)))) + (cons __tmp153335 + __tmp153322)))) (declare (not safe)) - (cons __tmp153075 __tmp153059)))) + (cons __tmp153337 __tmp153321)))) (declare (not safe)) - (cons '%#call __tmp153058)))) + (cons '%#call __tmp153320)))) (declare (not safe)) - (cons __tmp153057 '())))) + (cons __tmp153319 '())))) (declare (not safe)) - (cons __tmp153077 __tmp153056)))) + (cons __tmp153339 __tmp153318)))) (declare (not safe)) - (cons __tmp153084 __tmp153055)))) + (cons __tmp153346 __tmp153317)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153054)))) + (cons '%#if __tmp153316)))) (declare (not safe)) - (cons __tmp153053 '())))) + (cons __tmp153315 '())))) (declare (not safe)) - (cons __tmp153086 __tmp153052)))) + (cons __tmp153348 __tmp153314)))) (declare (not safe)) - (cons '%#let-values __tmp153051)))) - (__tmp153046 - (let ((__tmp153047 - (let ((__tmp153048 + (cons '%#let-values __tmp153313)))) + (__tmp153308 + (let ((__tmp153309 + (let ((__tmp153310 (let () (declare (not safe)) - (cons _$obj152118_ '())))) + (cons _$obj152380_ '())))) (declare (not safe)) - (cons '%#ref __tmp153048)))) + (cons '%#ref __tmp153310)))) (declare (not safe)) - (cons __tmp153047 '())))) + (cons __tmp153309 '())))) (declare (not safe)) - (cons __tmp153049 __tmp153046)))) + (cons __tmp153311 __tmp153308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp153045)))) + __tmp153307)))) (declare (not safe)) - (cons __tmp153044 '())))) + (cons __tmp153306 '())))) (declare (not safe)) - (cons __tmp153110 __tmp153043)))) + (cons __tmp153372 __tmp153305)))) (declare (not safe)) - (cons '%#let-values __tmp153042)))) + (cons '%#let-values __tmp153304)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153041 _stx152101_)))) - _$e152113_) - (let ((_$e152123_ - (##structure-ref _klass152104_ '9 gxc#!class::t '#f))) - (if _$e152123_ - ((lambda (_metaclass152126_) - (let* ((_$obj152128_ - (let ((__tmp153002 (gensym '__obj))) + (gxc#xform-wrap-source __tmp153303 _stx152363_)))) + _$e152375_) + (let ((_$e152385_ + (##structure-ref _klass152366_ '9 gxc#!class::t '#f))) + (if _$e152385_ + ((lambda (_metaclass152388_) + (let* ((_$obj152390_ + (let ((__tmp153264 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153002))) - (_metakons152130_ - (let ((__tmp153003 + (make-symbol__0 __tmp153264))) + (_metakons152392_ + (let ((__tmp153265 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx152101_ - _metaclass152126_)))) + _stx152363_ + _metaclass152388_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp153003 + __tmp153265 'instance-init!)))) - (let ((__tmp153004 - (let ((__tmp153005 - (let ((__tmp153036 - (let ((__tmp153037 - (let ((__tmp153039 + (let ((__tmp153266 + (let ((__tmp153267 + (let ((__tmp153298 + (let ((__tmp153299 + (let ((__tmp153301 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152128_ '()))) - (__tmp153038 + (cons _$obj152390_ '()))) + (__tmp153300 (let () (declare (not safe)) - (cons _inline-make-object152110_ '())))) + (cons _inline-make-object152372_ '())))) (declare (not safe)) - (cons __tmp153039 __tmp153038)))) + (cons __tmp153301 __tmp153300)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153037 '()))) - (__tmp153006 - (let ((__tmp153007 - (let ((__tmp153008 - (let ((__tmp153012 + (cons __tmp153299 '()))) + (__tmp153268 + (let ((__tmp153269 + (let ((__tmp153270 + (let ((__tmp153274 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _metakons152130_ - (let ((__tmp153026 - (let ((__tmp153034 - (let ((__tmp153035 + (if _metakons152392_ + (let ((__tmp153288 + (let ((__tmp153296 + (let ((__tmp153297 (let () (declare (not safe)) - (cons _metakons152130_ + (cons _metakons152392_ '())))) (declare (not safe)) - (cons '%#ref __tmp153035))) - (__tmp153027 - (let ((__tmp153031 - (let ((__tmp153032 - (let ((__tmp153033 + (cons '%#ref __tmp153297))) + (__tmp153289 + (let ((__tmp153293 + (let ((__tmp153294 + (let ((__tmp153295 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153033 '())))) + (cons __tmp153295 '())))) (declare (not safe)) - (cons '%#ref __tmp153032))) + (cons '%#ref __tmp153294))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153028 - (let ((__tmp153029 - (let ((__tmp153030 + (__tmp153290 + (let ((__tmp153291 + (let ((__tmp153292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152390_ '())))) (declare (not safe)) - (cons '%#ref __tmp153030)))) + (cons '%#ref __tmp153292)))) (declare (not safe)) - (cons __tmp153029 _args152108_)))) + (cons __tmp153291 _args152370_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153031 - __tmp153028)))) + (cons __tmp153293 + __tmp153290)))) (declare (not safe)) - (cons __tmp153034 __tmp153027)))) + (cons __tmp153296 __tmp153289)))) (declare (not safe)) - (cons '%#call __tmp153026)) - (let ((__tmp153013 - (let ((__tmp153024 - (let ((__tmp153025 + (cons '%#call __tmp153288)) + (let ((__tmp153275 + (let ((__tmp153286 + (let ((__tmp153287 (let () (declare (not safe)) (cons 'call-method '())))) (declare (not safe)) - (cons '%#ref __tmp153025))) - (__tmp153014 - (let ((__tmp153021 - (let ((__tmp153022 - (let ((__tmp153023 + (cons '%#ref __tmp153287))) + (__tmp153276 + (let ((__tmp153283 + (let ((__tmp153284 + (let ((__tmp153285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153023 '())))) + (cons __tmp153285 '())))) (declare (not safe)) - (cons '%#ref __tmp153022))) + (cons '%#ref __tmp153284))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153015 - (let ((__tmp153019 - (let ((__tmp153020 + (__tmp153277 + (let ((__tmp153281 + (let ((__tmp153282 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp153020))) - (__tmp153016 - (let ((__tmp153017 - (let ((__tmp153018 + (cons '%#quote __tmp153282))) + (__tmp153278 + (let ((__tmp153279 + (let ((__tmp153280 (let () (declare (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152390_ '())))) (declare (not safe)) - (cons '%#ref __tmp153018)))) + (cons '%#ref __tmp153280)))) (declare (not safe)) - (cons __tmp153017 _args152108_)))) + (cons __tmp153279 _args152370_)))) (declare (not safe)) - (cons __tmp153019 __tmp153016)))) + (cons __tmp153281 __tmp153278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153021 - __tmp153015)))) + (cons __tmp153283 + __tmp153277)))) (declare (not safe)) - (cons __tmp153024 __tmp153014)))) + (cons __tmp153286 __tmp153276)))) (declare (not safe)) - (cons '%#call __tmp153013)))) - (__tmp153009 - (let ((__tmp153010 - (let ((__tmp153011 + (cons '%#call __tmp153275)))) + (__tmp153271 + (let ((__tmp153272 + (let ((__tmp153273 (let () (declare (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152390_ '())))) (declare (not safe)) - (cons '%#ref __tmp153011)))) + (cons '%#ref __tmp153273)))) (declare (not safe)) - (cons __tmp153010 '())))) + (cons __tmp153272 '())))) (declare (not safe)) - (cons __tmp153012 __tmp153009)))) + (cons __tmp153274 __tmp153271)))) (declare (not safe)) - (cons '%#begin __tmp153008)))) + (cons '%#begin __tmp153270)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153007 '())))) + (cons __tmp153269 '())))) (declare (not safe)) - (cons __tmp153036 __tmp153006)))) + (cons __tmp153298 __tmp153268)))) (declare (not safe)) - (cons '%#let-values __tmp153005)))) + (cons '%#let-values __tmp153267)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153004 _stx152101_)))) - _$e152123_) - (if (##structure-ref _klass152104_ '7 gxc#!class::t '#f) - (if (fx= (length _args152108_) _fields152106_) - (let ((__tmp152994 - (let ((__tmp152995 - (let ((__tmp153000 - (let ((__tmp153001 + (gxc#xform-wrap-source __tmp153266 _stx152363_)))) + _$e152385_) + (if (##structure-ref _klass152366_ '7 gxc#!class::t '#f) + (if (fx= (length _args152370_) _fields152368_) + (let ((__tmp153256 + (let ((__tmp153257 + (let ((__tmp153262 + (let ((__tmp153263 (let () (declare (not safe)) @@ -1129,897 +1129,897 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153001))) - (__tmp152996 - (let ((__tmp152997 - (let ((__tmp152998 + __tmp153263))) + (__tmp153258 + (let ((__tmp153259 + (let ((__tmp153260 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152999 + (let ((__tmp153261 (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152999 '())))) + (cons __tmp153261 '())))) (declare (not safe)) - (cons '%#ref __tmp152998)))) + (cons '%#ref __tmp153260)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152997 - _args152108_)))) + (cons __tmp153259 + _args152370_)))) (declare (not safe)) - (cons __tmp153000 __tmp152996)))) + (cons __tmp153262 __tmp153258)))) (declare (not safe)) - (cons '%#call __tmp152995)))) + (cons '%#call __tmp153257)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152994 - _stx152101_)) - (let ((__tmp152993 + __tmp153256 + _stx152363_)) + (let ((__tmp153255 (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f)) - (__tmp152992 + (__tmp153254 (length (##structure-ref - _klass152104_ + _klass152366_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx152101_ - __tmp152993 - __tmp152992))) - (let ((_$obj152133_ - (let ((__tmp152941 (gensym '__obj))) + _stx152363_ + __tmp153255 + __tmp153254))) + (let ((_$obj152395_ + (let ((__tmp153203 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp152941)))) - (let _lp152135_ ((_rest152137_ _args152108_) - (_initializers152138_ '())) - (let* ((___stx152671152672_ _rest152137_) - (_g152142152163_ + (make-symbol__0 __tmp153203)))) + (let _lp152397_ ((_rest152399_ _args152370_) + (_initializers152400_ '())) + (let* ((___stx152933152934_ _rest152399_) + (_g152404152425_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152671152672_))))) - (let ((___kont152673152674_ - (lambda (_L152217_ _L152218_ _L152219_) - (let* ((_slot152250_ + ___stx152933152934_))))) + (let ((___kont152935152936_ + (lambda (_L152479_ _L152480_ _L152481_) + (let* ((_slot152512_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L152219_)))) - (_off152252_ + (gx#stx-e _L152481_)))) + (_off152514_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass152104_ - _slot152250_)))) - (if _off152252_ - (let ((__tmp152943 - (let ((__tmp152944 + _klass152366_ + _slot152512_)))) + (if _off152514_ + (let ((__tmp153205 + (let ((__tmp153206 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _off152252_ _L152218_)))) + (cons _off152514_ _L152480_)))) (declare (not safe)) - (cons __tmp152944 _initializers152138_)))) + (cons __tmp153206 _initializers152400_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp152135_ - _L152217_ - __tmp152943)) - (let ((__tmp152942 + (_lp152397_ + _L152479_ + __tmp153205)) + (let ((__tmp153204 (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx152101_ - __tmp152942 - _slot152250_)))))) - (___kont152675152676_ + _stx152363_ + __tmp153204 + _slot152512_)))))) + (___kont152937152938_ (lambda () - (let ((__tmp152945 - (let ((__tmp152946 - (let ((__tmp152969 - (let ((__tmp152970 + (let ((__tmp153207 + (let ((__tmp153208 + (let ((__tmp153231 + (let ((__tmp153232 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152972 + (let ((__tmp153234 (let () (declare (not safe)) - (cons _$obj152133_ '()))) - (__tmp152971 + (cons _$obj152395_ '()))) + (__tmp153233 (let () (declare (not safe)) - (cons _inline-make-object152110_ '())))) + (cons _inline-make-object152372_ '())))) (declare (not safe)) - (cons __tmp152972 __tmp152971)))) + (cons __tmp153234 __tmp153233)))) (declare (not safe)) - (cons __tmp152970 '()))) - (__tmp152947 - (let ((__tmp152948 - (let ((__tmp152949 - (let ((__tmp152966 - (let ((__tmp152967 - (let ((__tmp152968 + (cons __tmp153232 '()))) + (__tmp153209 + (let ((__tmp153210 + (let ((__tmp153211 + (let ((__tmp153228 + (let ((__tmp153229 + (let ((__tmp153230 (let () (declare (not safe)) - (cons _$obj152133_ + (cons _$obj152395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp152968)))) + __tmp153230)))) (declare (not safe)) - (cons __tmp152967 '()))) - (__tmp152950 - (let ((__tmp152951 - (lambda (_i152177_ _r152178_) - (let ((__tmp152952 - (let ((__tmp152953 + (cons __tmp153229 '()))) + (__tmp153212 + (let ((__tmp153213 + (lambda (_i152439_ _r152440_) + (let ((__tmp153214 + (let ((__tmp153215 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152963 - (let ((__tmp152964 - (let ((__tmp152965 + (let ((__tmp153225 + (let ((__tmp153226 + (let ((__tmp153227 (##structure-ref - _self152100_ + _self152362_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152965 '())))) + (cons __tmp153227 '())))) (declare (not safe)) - (cons '%#ref __tmp152964))) - (__tmp152954 - (let ((__tmp152960 - (let ((__tmp152961 - (let ((__tmp152962 - (car _i152177_))) + (cons '%#ref __tmp153226))) + (__tmp153216 + (let ((__tmp153222 + (let ((__tmp153223 + (let ((__tmp153224 + (car _i152439_))) (declare (not safe)) - (cons __tmp152962 '())))) + (cons __tmp153224 '())))) (declare (not safe)) - (cons '%#quote __tmp152961))) - (__tmp152955 - (let ((__tmp152958 - (let ((__tmp152959 + (cons '%#quote __tmp153223))) + (__tmp153217 + (let ((__tmp153220 + (let ((__tmp153221 (let () (declare (not safe)) - (cons _$obj152133_ + (cons _$obj152395_ '())))) (declare (not safe)) - (cons '%#ref __tmp152959))) - (__tmp152956 - (let ((__tmp152957 - (cdr _i152177_))) + (cons '%#ref __tmp153221))) + (__tmp153218 + (let ((__tmp153219 + (cdr _i152439_))) (declare (not safe)) - (cons __tmp152957 '())))) + (cons __tmp153219 '())))) (declare (not safe)) - (cons __tmp152958 __tmp152956)))) + (cons __tmp153220 __tmp153218)))) (declare (not safe)) - (cons __tmp152960 __tmp152955)))) + (cons __tmp153222 __tmp153217)))) (declare (not safe)) - (cons __tmp152963 __tmp152954)))) + (cons __tmp153225 __tmp153216)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp152953)))) + (cons '%#struct-unchecked-set! __tmp153215)))) (declare (not safe)) - (cons __tmp152952 _r152178_))))) + (cons __tmp153214 _r152440_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp152951 + (foldl1 __tmp153213 '() - _initializers152138_)))) + _initializers152400_)))) (declare (not safe)) - (foldr1 cons __tmp152966 __tmp152950)))) + (foldr1 cons __tmp153228 __tmp153212)))) (declare (not safe)) - (cons '%#begin __tmp152949)))) + (cons '%#begin __tmp153211)))) (declare (not safe)) - (cons __tmp152948 '())))) + (cons __tmp153210 '())))) (declare (not safe)) - (cons __tmp152969 __tmp152947)))) + (cons __tmp153231 __tmp153209)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152946)))) + __tmp153208)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152945 - _stx152101_)))) - (___kont152677152678_ + __tmp153207 + _stx152363_)))) + (___kont152939152940_ (lambda () - (let ((__tmp152973 - (let ((__tmp152974 - (let ((__tmp152988 - (let ((__tmp152989 + (let ((__tmp153235 + (let ((__tmp153236 + (let ((__tmp153250 + (let ((__tmp153251 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152991 + (let ((__tmp153253 (let () (declare (not safe)) - (cons _$obj152133_ '()))) - (__tmp152990 + (cons _$obj152395_ '()))) + (__tmp153252 (let () (declare (not safe)) - (cons _inline-make-object152110_ '())))) + (cons _inline-make-object152372_ '())))) (declare (not safe)) - (cons __tmp152991 __tmp152990)))) + (cons __tmp153253 __tmp153252)))) (declare (not safe)) - (cons __tmp152989 '()))) - (__tmp152975 - (let ((__tmp152976 - (let ((__tmp152977 - (let ((__tmp152981 - (let ((__tmp152982 - (let ((__tmp152986 - (let ((__tmp152987 + (cons __tmp153251 '()))) + (__tmp153237 + (let ((__tmp153238 + (let ((__tmp153239 + (let ((__tmp153243 + (let ((__tmp153244 + (let ((__tmp153248 + (let ((__tmp153249 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp152987))) - (__tmp152983 - (let ((__tmp152984 - (let ((__tmp152985 + (cons '%#ref __tmp153249))) + (__tmp153245 + (let ((__tmp153246 + (let ((__tmp153247 (let () (declare (not safe)) - (cons _$obj152133_ '())))) + (cons _$obj152395_ '())))) (declare (not safe)) - (cons '%#ref __tmp152985)))) + (cons '%#ref __tmp153247)))) (declare (not safe)) - (cons __tmp152984 _args152108_)))) + (cons __tmp153246 _args152370_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152986 - __tmp152983)))) + (cons __tmp153248 + __tmp153245)))) (declare (not safe)) - (cons '%#call __tmp152982))) - (__tmp152978 - (let ((__tmp152979 - (let ((__tmp152980 + (cons '%#call __tmp153244))) + (__tmp153240 + (let ((__tmp153241 + (let ((__tmp153242 (let () (declare (not safe)) - (cons _$obj152133_ + (cons _$obj152395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp152980)))) + __tmp153242)))) (declare (not safe)) - (cons __tmp152979 '())))) + (cons __tmp153241 '())))) (declare (not safe)) - (cons __tmp152981 __tmp152978)))) + (cons __tmp153243 __tmp153240)))) (declare (not safe)) - (cons '%#begin __tmp152977)))) + (cons '%#begin __tmp153239)))) (declare (not safe)) - (cons __tmp152976 '())))) + (cons __tmp153238 '())))) (declare (not safe)) - (cons __tmp152988 __tmp152975)))) + (cons __tmp153250 __tmp153237)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152974)))) + __tmp153236)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152973 - _stx152101_))))) - (let* ((_g152140152180_ + __tmp153235 + _stx152363_))))) + (let* ((_g152402152442_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx152671152672_)) - (___kont152675152676_) - (___kont152677152678_)))) - (___match152708152709_ - (lambda (_e152149152185_ - _hd152148152188_ - _tl152147152190_ - _e152152152193_ - _hd152151152196_ - _tl152150152198_ - _e152155152201_ - _hd152154152204_ - _tl152153152206_ - _e152158152209_ - _hd152157152212_ - _tl152156152214_) - (let ((_L152217_ _tl152156152214_) - (_L152218_ _hd152157152212_) - (_L152219_ _hd152154152204_)) + ___stx152933152934_)) + (___kont152937152938_) + (___kont152939152940_)))) + (___match152970152971_ + (lambda (_e152411152447_ + _hd152410152450_ + _tl152409152452_ + _e152414152455_ + _hd152413152458_ + _tl152412152460_ + _e152417152463_ + _hd152416152466_ + _tl152415152468_ + _e152420152471_ + _hd152419152474_ + _tl152418152476_) + (let ((_L152479_ _tl152418152476_) + (_L152480_ _hd152419152474_) + (_L152481_ _hd152416152466_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L152219_)) - (___kont152673152674_ - _L152217_ - _L152218_ - _L152219_) - (___kont152677152678_)))))) + _L152481_)) + (___kont152935152936_ + _L152479_ + _L152480_ + _L152481_) + (___kont152939152940_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152671152672_)) - (let ((_e152149152185_ + (gx#stx-pair? ___stx152933152934_)) + (let ((_e152411152447_ (let () (declare (not safe)) (gx#stx-e - ___stx152671152672_)))) - (let ((_tl152147152190_ + ___stx152933152934_)))) + (let ((_tl152409152452_ (let () (declare (not safe)) - (##cdr _e152149152185_))) - (_hd152148152188_ + (##cdr _e152411152447_))) + (_hd152410152450_ (let () (declare (not safe)) - (##car _e152149152185_)))) + (##car _e152411152447_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd152148152188_)) - (let ((_e152152152193_ + _hd152410152450_)) + (let ((_e152414152455_ (let () (declare (not safe)) (gx#stx-e - _hd152148152188_)))) - (let ((_tl152150152198_ + _hd152410152450_)))) + (let ((_tl152412152460_ (let () (declare (not safe)) - (##cdr _e152152152193_))) - (_hd152151152196_ + (##cdr _e152414152455_))) + (_hd152413152458_ (let () (declare (not safe)) - (##car _e152152152193_)))) + (##car _e152414152455_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd152151152196_)) + _hd152413152458_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd152151152196_)) + _hd152413152458_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl152150152198_)) - (let ((_e152155152201_ + (gx#stx-pair? _tl152412152460_)) + (let ((_e152417152463_ (let () (declare (not safe)) - (gx#stx-e _tl152150152198_)))) - (let ((_tl152153152206_ + (gx#stx-e _tl152412152460_)))) + (let ((_tl152415152468_ (let () (declare (not safe)) - (##cdr _e152155152201_))) - (_hd152154152204_ + (##cdr _e152417152463_))) + (_hd152416152466_ (let () (declare (not safe)) - (##car _e152155152201_)))) + (##car _e152417152463_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152153152206_)) + (gx#stx-null? _tl152415152468_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152147152190_)) - (let ((_e152158152209_ + (gx#stx-pair? _tl152409152452_)) + (let ((_e152420152471_ (let () (declare (not safe)) - (gx#stx-e _tl152147152190_)))) - (let ((_tl152156152214_ + (gx#stx-e _tl152409152452_)))) + (let ((_tl152418152476_ (let () (declare (not safe)) - (##cdr _e152158152209_))) - (_hd152157152212_ + (##cdr _e152420152471_))) + (_hd152419152474_ (let () (declare (not safe)) - (##car _e152158152209_)))) - (___match152708152709_ - _e152149152185_ - _hd152148152188_ - _tl152147152190_ - _e152152152193_ - _hd152151152196_ - _tl152150152198_ - _e152155152201_ - _hd152154152204_ - _tl152153152206_ - _e152158152209_ - _hd152157152212_ - _tl152156152214_))) - (___kont152677152678_)) - (___kont152677152678_)))) - (___kont152677152678_)) - (___kont152677152678_)) - (___kont152677152678_)))) + (##car _e152420152471_)))) + (___match152970152971_ + _e152411152447_ + _hd152410152450_ + _tl152409152452_ + _e152414152455_ + _hd152413152458_ + _tl152412152460_ + _e152417152463_ + _hd152416152466_ + _tl152415152468_ + _e152420152471_ + _hd152419152474_ + _tl152418152476_))) + (___kont152939152940_)) + (___kont152939152940_)))) + (___kont152939152940_)) + (___kont152939152940_)) + (___kont152939152940_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152677152678_)))) + (___kont152939152940_)))) (let () (declare (not safe)) - (_g152140152180_)))))))))))))))) + (_g152402152442_)))))))))))))))) (define gxc#!constructor::optimize-call::specialize - (lambda (__klass152594 __method-table152595) - (let ((__id152596 - (let ((__slot152597 + (lambda (__klass152856 __method-table152857) + (let ((__id152858 + (let ((__slot152859 (let () (declare (not safe)) - (class-slot-offset __klass152594 'id)))) - (if __slot152597 - __slot152597 + (class-slot-offset __klass152856 'id)))) + (if __slot152859 + __slot152859 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self152100_ _stx152101_ _args152102_) - (let* ((_klass152104_ - (let ((__tmp153114 + (lambda (_self152362_ _stx152363_ _args152364_) + (let* ((_klass152366_ + (let ((__tmp153376 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx152101_ __tmp153114))) - (_fields152106_ + (gxc#optimizer-resolve-class _stx152363_ __tmp153376))) + (_fields152368_ (length (##structure-ref - _klass152104_ + _klass152366_ '5 gxc#!class::t '#f))) - (_args152108_ (map gxc#compile-e _args152102_)) - (_inline-make-object152110_ - (let ((__tmp153115 - (let ((__tmp153121 - (let ((__tmp153122 + (_args152370_ (map gxc#compile-e _args152364_)) + (_inline-make-object152372_ + (let ((__tmp153377 + (let ((__tmp153383 + (let ((__tmp153384 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp153122))) - (__tmp153116 - (let ((__tmp153118 - (let ((__tmp153119 - (let ((__tmp153120 + (cons '%#ref __tmp153384))) + (__tmp153378 + (let ((__tmp153380 + (let ((__tmp153381 + (let ((__tmp153382 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) - (cons __tmp153120 '())))) + (cons __tmp153382 '())))) (declare (not safe)) - (cons '%#ref __tmp153119))) - (__tmp153117 + (cons '%#ref __tmp153381))) + (__tmp153379 (let () (declare (not safe)) (make-list__% - _fields152106_ + _fields152368_ '(%#quote #f))))) (declare (not safe)) - (cons __tmp153118 __tmp153117)))) + (cons __tmp153380 __tmp153379)))) (declare (not safe)) - (cons __tmp153121 __tmp153116)))) + (cons __tmp153383 __tmp153378)))) (declare (not safe)) - (cons '%#call __tmp153115)))) - (let ((_$e152113_ - (##structure-ref _klass152104_ '6 gxc#!class::t '#f))) - (if _$e152113_ - ((lambda (_ctor152116_) - (let ((_$obj152118_ - (let ((__tmp153222 (gensym '__obj))) + (cons '%#call __tmp153377)))) + (let ((_$e152375_ + (##structure-ref _klass152366_ '6 gxc#!class::t '#f))) + (if _$e152375_ + ((lambda (_ctor152378_) + (let ((_$obj152380_ + (let ((__tmp153484 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153222))) - (_ctor-impl152119_ + (make-symbol__0 __tmp153484))) + (_ctor-impl152381_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass152104_ - _ctor152116_)))) - (let ((__tmp153223 - (let ((__tmp153224 - (let ((__tmp153292 - (let ((__tmp153293 - (let ((__tmp153295 + _klass152366_ + _ctor152378_)))) + (let ((__tmp153485 + (let ((__tmp153486 + (let ((__tmp153554 + (let ((__tmp153555 + (let ((__tmp153557 (let () (declare (not safe)) - (cons _$obj152118_ + (cons _$obj152380_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153294 + (__tmp153556 (let () (declare (not safe)) - (cons _inline-make-object152110_ '())))) + (cons _inline-make-object152372_ '())))) (declare (not safe)) - (cons __tmp153295 __tmp153294)))) + (cons __tmp153557 __tmp153556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153293 '()))) - (__tmp153225 - (let ((__tmp153226 - (let ((__tmp153227 - (let ((__tmp153231 + (cons __tmp153555 '()))) + (__tmp153487 + (let ((__tmp153488 + (let ((__tmp153489 + (let ((__tmp153493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl152119_ - (let ((__tmp153286 - (let ((__tmp153290 - (let ((__tmp153291 + (if _ctor-impl152381_ + (let ((__tmp153548 + (let ((__tmp153552 + (let ((__tmp153553 (let () (declare (not safe)) - (cons _ctor-impl152119_ + (cons _ctor-impl152381_ '())))) (declare (not safe)) - (cons '%#ref __tmp153291))) - (__tmp153287 - (let ((__tmp153288 - (let ((__tmp153289 + (cons '%#ref __tmp153553))) + (__tmp153549 + (let ((__tmp153550 + (let ((__tmp153551 (let () (declare (not safe)) - (cons _$obj152118_ + (cons _$obj152380_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp153289)))) + (cons '%#ref __tmp153551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153288 - _args152108_)))) + (cons __tmp153550 + _args152370_)))) (declare (not safe)) - (cons __tmp153290 __tmp153287)))) + (cons __tmp153552 __tmp153549)))) (declare (not safe)) - (cons '%#call __tmp153286)) - (let* ((_$ctor152121_ - (let ((__tmp153232 + (cons '%#call __tmp153548)) + (let* ((_$ctor152383_ + (let ((__tmp153494 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp153232))) - (__tmp153233 - (let ((__tmp153268 - (let ((__tmp153269 - (let ((__tmp153285 + (make-symbol__0 __tmp153494))) + (__tmp153495 + (let ((__tmp153530 + (let ((__tmp153531 + (let ((__tmp153547 (let () (declare (not safe)) - (cons _$ctor152121_ + (cons _$ctor152383_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153270 - (let ((__tmp153271 - (let ((__tmp153272 - (let ((__tmp153283 - (let ((__tmp153284 + (__tmp153532 + (let ((__tmp153533 + (let ((__tmp153534 + (let ((__tmp153545 + (let ((__tmp153546 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153284))) - (__tmp153273 - (let ((__tmp153280 - (let ((__tmp153281 - (let ((__tmp153282 + (cons '%#ref __tmp153546))) + (__tmp153535 + (let ((__tmp153542 + (let ((__tmp153543 + (let ((__tmp153544 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) - (cons __tmp153282 '())))) + (cons __tmp153544 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp153281))) - (__tmp153274 - (let ((__tmp153278 - (let ((__tmp153279 + (cons '%#ref __tmp153543))) + (__tmp153536 + (let ((__tmp153540 + (let ((__tmp153541 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152118_ '())))) + (cons _$obj152380_ '())))) (declare (not safe)) - (cons '%#ref __tmp153279))) - (__tmp153275 - (let ((__tmp153276 - (let ((__tmp153277 + (cons '%#ref __tmp153541))) + (__tmp153537 + (let ((__tmp153538 + (let ((__tmp153539 (let () (declare (not safe)) - (cons _ctor152116_ '())))) + (cons _ctor152378_ '())))) (declare (not safe)) - (cons '%#quote __tmp153277)))) + (cons '%#quote __tmp153539)))) (declare (not safe)) - (cons __tmp153276 '())))) + (cons __tmp153538 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153278 - __tmp153275)))) + (cons __tmp153540 + __tmp153537)))) (declare (not safe)) - (cons __tmp153280 __tmp153274)))) + (cons __tmp153542 __tmp153536)))) (declare (not safe)) - (cons __tmp153283 __tmp153273)))) + (cons __tmp153545 __tmp153535)))) (declare (not safe)) - (cons '%#call __tmp153272)))) + (cons '%#call __tmp153534)))) (declare (not safe)) - (cons __tmp153271 '())))) + (cons __tmp153533 '())))) (declare (not safe)) - (cons __tmp153285 __tmp153270)))) + (cons __tmp153547 __tmp153532)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153269 '()))) - (__tmp153234 - (let ((__tmp153235 - (let ((__tmp153236 - (let ((__tmp153266 + (cons __tmp153531 '()))) + (__tmp153496 + (let ((__tmp153497 + (let ((__tmp153498 + (let ((__tmp153528 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153267 + (let ((__tmp153529 (let () (declare (not safe)) - (cons _$ctor152121_ '())))) + (cons _$ctor152383_ '())))) (declare (not safe)) - (cons '%#ref __tmp153267))) - (__tmp153237 - (let ((__tmp153259 - (let ((__tmp153260 - (let ((__tmp153264 - (let ((__tmp153265 + (cons '%#ref __tmp153529))) + (__tmp153499 + (let ((__tmp153521 + (let ((__tmp153522 + (let ((__tmp153526 + (let ((__tmp153527 (let () (declare (not safe)) - (cons _$ctor152121_ + (cons _$ctor152383_ '())))) (declare (not safe)) - (cons '%#ref __tmp153265))) - (__tmp153261 - (let ((__tmp153262 - (let ((__tmp153263 + (cons '%#ref __tmp153527))) + (__tmp153523 + (let ((__tmp153524 + (let ((__tmp153525 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152118_ '())))) + (cons _$obj152380_ '())))) (declare (not safe)) - (cons '%#ref __tmp153263)))) + (cons '%#ref __tmp153525)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153262 - _args152108_)))) + (cons __tmp153524 + _args152370_)))) (declare (not safe)) - (cons __tmp153264 __tmp153261)))) + (cons __tmp153526 __tmp153523)))) (declare (not safe)) - (cons '%#call __tmp153260))) - (__tmp153238 - (let ((__tmp153239 - (let ((__tmp153240 - (let ((__tmp153257 - (let ((__tmp153258 + (cons '%#call __tmp153522))) + (__tmp153500 + (let ((__tmp153501 + (let ((__tmp153502 + (let ((__tmp153519 + (let ((__tmp153520 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp153258))) - (__tmp153241 - (let ((__tmp153255 - (let ((__tmp153256 + (cons '%#ref __tmp153520))) + (__tmp153503 + (let ((__tmp153517 + (let ((__tmp153518 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp153256))) - (__tmp153242 - (let ((__tmp153253 - (let ((__tmp153254 + (cons '%#quote __tmp153518))) + (__tmp153504 + (let ((__tmp153515 + (let ((__tmp153516 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp153254))) - (__tmp153243 - (let ((__tmp153250 - (let ((__tmp153251 - (let ((__tmp153252 + (cons '%#quote __tmp153516))) + (__tmp153505 + (let ((__tmp153512 + (let ((__tmp153513 + (let ((__tmp153514 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) - (cons __tmp153252 '())))) + (cons __tmp153514 '())))) (declare (not safe)) - (cons '%#ref __tmp153251))) - (__tmp153244 - (let ((__tmp153248 - (let ((__tmp153249 + (cons '%#ref __tmp153513))) + (__tmp153506 + (let ((__tmp153510 + (let ((__tmp153511 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp153249))) - (__tmp153245 - (let ((__tmp153246 - (let ((__tmp153247 + (cons '%#quote __tmp153511))) + (__tmp153507 + (let ((__tmp153508 + (let ((__tmp153509 (let () (declare (not safe)) - (cons _ctor152116_ + (cons _ctor152378_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp153247)))) + __tmp153509)))) (declare (not safe)) - (cons __tmp153246 '())))) + (cons __tmp153508 '())))) (declare (not safe)) - (cons __tmp153248 __tmp153245)))) + (cons __tmp153510 __tmp153507)))) (declare (not safe)) - (cons __tmp153250 __tmp153244)))) + (cons __tmp153512 __tmp153506)))) (declare (not safe)) - (cons __tmp153253 __tmp153243)))) + (cons __tmp153515 __tmp153505)))) (declare (not safe)) - (cons __tmp153255 __tmp153242)))) + (cons __tmp153517 __tmp153504)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153257 - __tmp153241)))) + (cons __tmp153519 + __tmp153503)))) (declare (not safe)) - (cons '%#call __tmp153240)))) + (cons '%#call __tmp153502)))) (declare (not safe)) - (cons __tmp153239 '())))) + (cons __tmp153501 '())))) (declare (not safe)) - (cons __tmp153259 __tmp153238)))) + (cons __tmp153521 __tmp153500)))) (declare (not safe)) - (cons __tmp153266 __tmp153237)))) + (cons __tmp153528 __tmp153499)))) (declare (not safe)) - (cons '%#if __tmp153236)))) + (cons '%#if __tmp153498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153235 '())))) + (cons __tmp153497 '())))) (declare (not safe)) - (cons __tmp153268 __tmp153234)))) + (cons __tmp153530 __tmp153496)))) (declare (not safe)) - (cons '%#let-values __tmp153233)))) - (__tmp153228 - (let ((__tmp153229 - (let ((__tmp153230 + (cons '%#let-values __tmp153495)))) + (__tmp153490 + (let ((__tmp153491 + (let ((__tmp153492 (let () (declare (not safe)) - (cons _$obj152118_ '())))) + (cons _$obj152380_ '())))) (declare (not safe)) - (cons '%#ref __tmp153230)))) + (cons '%#ref __tmp153492)))) (declare (not safe)) - (cons __tmp153229 '())))) + (cons __tmp153491 '())))) (declare (not safe)) - (cons __tmp153231 __tmp153228)))) + (cons __tmp153493 __tmp153490)))) (declare (not safe)) - (cons '%#begin __tmp153227)))) + (cons '%#begin __tmp153489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153226 '())))) + (cons __tmp153488 '())))) (declare (not safe)) - (cons __tmp153292 __tmp153225)))) + (cons __tmp153554 __tmp153487)))) (declare (not safe)) - (cons '%#let-values __tmp153224)))) + (cons '%#let-values __tmp153486)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153223 _stx152101_)))) - _$e152113_) - (let ((_$e152123_ + (gxc#xform-wrap-source __tmp153485 _stx152363_)))) + _$e152375_) + (let ((_$e152385_ (##structure-ref - _klass152104_ + _klass152366_ '9 gxc#!class::t '#f))) - (if _$e152123_ - ((lambda (_metaclass152126_) - (let* ((_$obj152128_ - (let ((__tmp153184 (gensym '__obj))) + (if _$e152385_ + ((lambda (_metaclass152388_) + (let* ((_$obj152390_ + (let ((__tmp153446 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153184))) - (_metakons152130_ - (let ((__tmp153185 + (make-symbol__0 __tmp153446))) + (_metakons152392_ + (let ((__tmp153447 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx152101_ - _metaclass152126_)))) + _stx152363_ + _metaclass152388_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp153185 + __tmp153447 'instance-init!)))) - (let ((__tmp153186 - (let ((__tmp153187 - (let ((__tmp153218 - (let ((__tmp153219 - (let ((__tmp153221 + (let ((__tmp153448 + (let ((__tmp153449 + (let ((__tmp153480 + (let ((__tmp153481 + (let ((__tmp153483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj152128_ '()))) - (__tmp153220 + (cons _$obj152390_ '()))) + (__tmp153482 (let () (declare (not safe)) - (cons _inline-make-object152110_ '())))) + (cons _inline-make-object152372_ '())))) (declare (not safe)) - (cons __tmp153221 __tmp153220)))) + (cons __tmp153483 __tmp153482)))) (declare (not safe)) - (cons __tmp153219 '()))) + (cons __tmp153481 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153188 - (let ((__tmp153189 - (let ((__tmp153190 + (__tmp153450 + (let ((__tmp153451 + (let ((__tmp153452 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153194 - (if _metakons152130_ - (let ((__tmp153208 - (let ((__tmp153216 - (let ((__tmp153217 + (let ((__tmp153456 + (if _metakons152392_ + (let ((__tmp153470 + (let ((__tmp153478 + (let ((__tmp153479 (let () (declare (not safe)) - (cons _metakons152130_ + (cons _metakons152392_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153217))) - (__tmp153209 - (let ((__tmp153213 - (let ((__tmp153214 + __tmp153479))) + (__tmp153471 + (let ((__tmp153475 + (let ((__tmp153476 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153215 + (let ((__tmp153477 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) - (cons __tmp153215 '())))) + (cons __tmp153477 '())))) (declare (not safe)) - (cons '%#ref __tmp153214))) - (__tmp153210 - (let ((__tmp153211 - (let ((__tmp153212 + (cons '%#ref __tmp153476))) + (__tmp153472 + (let ((__tmp153473 + (let ((__tmp153474 (let () (declare (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152390_ '())))) (declare (not safe)) - (cons '%#ref __tmp153212)))) + (cons '%#ref __tmp153474)))) (declare (not safe)) - (cons __tmp153211 _args152108_)))) + (cons __tmp153473 _args152370_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153213 - __tmp153210)))) + (cons __tmp153475 + __tmp153472)))) (declare (not safe)) - (cons __tmp153216 __tmp153209)))) + (cons __tmp153478 __tmp153471)))) (declare (not safe)) - (cons '%#call __tmp153208)) - (let ((__tmp153195 - (let ((__tmp153206 - (let ((__tmp153207 + (cons '%#call __tmp153470)) + (let ((__tmp153457 + (let ((__tmp153468 + (let ((__tmp153469 (let () (declare (not safe)) @@ -2029,526 +2029,526 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153207))) - (__tmp153196 - (let ((__tmp153203 - (let ((__tmp153204 + __tmp153469))) + (__tmp153458 + (let ((__tmp153465 + (let ((__tmp153466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153205 + (let ((__tmp153467 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) - (cons __tmp153205 '())))) + (cons __tmp153467 '())))) (declare (not safe)) - (cons '%#ref __tmp153204))) - (__tmp153197 - (let ((__tmp153201 - (let ((__tmp153202 + (cons '%#ref __tmp153466))) + (__tmp153459 + (let ((__tmp153463 + (let ((__tmp153464 (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp153202))) - (__tmp153198 - (let ((__tmp153199 - (let ((__tmp153200 + (cons '%#quote __tmp153464))) + (__tmp153460 + (let ((__tmp153461 + (let ((__tmp153462 (let () (declare (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152390_ '())))) (declare (not safe)) - (cons '%#ref __tmp153200)))) + (cons '%#ref __tmp153462)))) (declare (not safe)) - (cons __tmp153199 _args152108_)))) + (cons __tmp153461 _args152370_)))) (declare (not safe)) - (cons __tmp153201 __tmp153198)))) + (cons __tmp153463 __tmp153460)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153203 - __tmp153197)))) + (cons __tmp153465 + __tmp153459)))) (declare (not safe)) - (cons __tmp153206 __tmp153196)))) + (cons __tmp153468 __tmp153458)))) (declare (not safe)) - (cons '%#call __tmp153195)))) - (__tmp153191 - (let ((__tmp153192 - (let ((__tmp153193 + (cons '%#call __tmp153457)))) + (__tmp153453 + (let ((__tmp153454 + (let ((__tmp153455 (let () (declare (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152390_ '())))) (declare (not safe)) - (cons '%#ref __tmp153193)))) + (cons '%#ref __tmp153455)))) (declare (not safe)) - (cons __tmp153192 '())))) + (cons __tmp153454 '())))) (declare (not safe)) - (cons __tmp153194 __tmp153191)))) + (cons __tmp153456 __tmp153453)))) (declare (not safe)) - (cons '%#begin __tmp153190)))) + (cons '%#begin __tmp153452)))) (declare (not safe)) - (cons __tmp153189 '())))) + (cons __tmp153451 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153218 - __tmp153188)))) + (cons __tmp153480 + __tmp153450)))) (declare (not safe)) - (cons '%#let-values __tmp153187)))) + (cons '%#let-values __tmp153449)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153186 - _stx152101_)))) - _$e152123_) + __tmp153448 + _stx152363_)))) + _$e152385_) (if (##structure-ref - _klass152104_ + _klass152366_ '7 gxc#!class::t '#f) - (if (fx= (length _args152108_) _fields152106_) - (let ((__tmp153176 - (let ((__tmp153177 - (let ((__tmp153182 - (let ((__tmp153183 + (if (fx= (length _args152370_) _fields152368_) + (let ((__tmp153438 + (let ((__tmp153439 + (let ((__tmp153444 + (let ((__tmp153445 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp153183))) - (__tmp153178 - (let ((__tmp153179 - (let ((__tmp153180 - (let ((__tmp153181 + (cons '%#ref __tmp153445))) + (__tmp153440 + (let ((__tmp153441 + (let ((__tmp153442 + (let ((__tmp153443 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) - (cons __tmp153181 '())))) + (cons __tmp153443 '())))) (declare (not safe)) - (cons '%#ref __tmp153180)))) + (cons '%#ref __tmp153442)))) (declare (not safe)) - (cons __tmp153179 _args152108_)))) + (cons __tmp153441 _args152370_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153182 - __tmp153178)))) + (cons __tmp153444 + __tmp153440)))) (declare (not safe)) - (cons '%#call __tmp153177)))) + (cons '%#call __tmp153439)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153176 - _stx152101_)) - (let ((__tmp153175 + __tmp153438 + _stx152363_)) + (let ((__tmp153437 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f))) - (__tmp153174 + (__tmp153436 (length (##structure-ref - _klass152104_ + _klass152366_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx152101_ - __tmp153175 - __tmp153174))) - (let ((_$obj152133_ - (let ((__tmp153123 (gensym '__obj))) + _stx152363_ + __tmp153437 + __tmp153436))) + (let ((_$obj152395_ + (let ((__tmp153385 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153123)))) - (let _lp152135_ ((_rest152137_ _args152108_) - (_initializers152138_ '())) - (let* ((___stx152713152714_ _rest152137_) - (_g152142152163_ + (make-symbol__0 __tmp153385)))) + (let _lp152397_ ((_rest152399_ _args152370_) + (_initializers152400_ '())) + (let* ((___stx152975152976_ _rest152399_) + (_g152404152425_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152713152714_))))) - (let ((___kont152715152716_ - (lambda (_L152217_ - _L152218_ - _L152219_) - (let* ((_slot152250_ + ___stx152975152976_))))) + (let ((___kont152977152978_ + (lambda (_L152479_ + _L152480_ + _L152481_) + (let* ((_slot152512_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L152219_)))) - (_off152252_ + (gx#stx-e _L152481_)))) + (_off152514_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass152104_ - _slot152250_)))) - (if _off152252_ - (let ((__tmp153125 - (let ((__tmp153126 + _klass152366_ + _slot152512_)))) + (if _off152514_ + (let ((__tmp153387 + (let ((__tmp153388 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _off152252_ _L152218_)))) + (cons _off152514_ _L152480_)))) (declare (not safe)) - (cons __tmp153126 _initializers152138_)))) + (cons __tmp153388 _initializers152400_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp152135_ - _L152217_ - __tmp153125)) - (let ((__tmp153124 + (_lp152397_ + _L152479_ + __tmp153387)) + (let ((__tmp153386 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx152101_ - __tmp153124 - _slot152250_)))))) - (___kont152717152718_ + _stx152363_ + __tmp153386 + _slot152512_)))))) + (___kont152979152980_ (lambda () - (let ((__tmp153127 - (let ((__tmp153128 - (let ((__tmp153151 + (let ((__tmp153389 + (let ((__tmp153390 + (let ((__tmp153413 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153152 - (let ((__tmp153154 + (let ((__tmp153414 + (let ((__tmp153416 (let () (declare (not safe)) - (cons _$obj152133_ '()))) - (__tmp153153 + (cons _$obj152395_ '()))) + (__tmp153415 (let () (declare (not safe)) - (cons _inline-make-object152110_ + (cons _inline-make-object152372_ '())))) (declare (not safe)) - (cons __tmp153154 __tmp153153)))) + (cons __tmp153416 __tmp153415)))) (declare (not safe)) - (cons __tmp153152 '()))) - (__tmp153129 - (let ((__tmp153130 - (let ((__tmp153131 - (let ((__tmp153148 - (let ((__tmp153149 - (let ((__tmp153150 + (cons __tmp153414 '()))) + (__tmp153391 + (let ((__tmp153392 + (let ((__tmp153393 + (let ((__tmp153410 + (let ((__tmp153411 + (let ((__tmp153412 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152133_ '())))) + (cons _$obj152395_ '())))) (declare (not safe)) - (cons '%#ref __tmp153150)))) + (cons '%#ref __tmp153412)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153149 '()))) - (__tmp153132 - (let ((__tmp153133 - (lambda (_i152177_ - _r152178_) - (let ((__tmp153134 - (let ((__tmp153135 + (cons __tmp153411 '()))) + (__tmp153394 + (let ((__tmp153395 + (lambda (_i152439_ + _r152440_) + (let ((__tmp153396 + (let ((__tmp153397 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153145 - (let ((__tmp153146 - (let ((__tmp153147 + (let ((__tmp153407 + (let ((__tmp153408 + (let ((__tmp153409 (let () (declare (not safe)) (##unchecked-structure-ref - _self152100_ - __id152596 - __klass152594 + _self152362_ + __id152858 + __klass152856 '#f)))) (declare (not safe)) - (cons __tmp153147 '())))) + (cons __tmp153409 '())))) (declare (not safe)) - (cons '%#ref __tmp153146))) - (__tmp153136 - (let ((__tmp153142 - (let ((__tmp153143 - (let ((__tmp153144 - (car _i152177_))) + (cons '%#ref __tmp153408))) + (__tmp153398 + (let ((__tmp153404 + (let ((__tmp153405 + (let ((__tmp153406 + (car _i152439_))) (declare (not safe)) - (cons __tmp153144 '())))) + (cons __tmp153406 '())))) (declare (not safe)) - (cons '%#quote __tmp153143))) - (__tmp153137 - (let ((__tmp153140 - (let ((__tmp153141 + (cons '%#quote __tmp153405))) + (__tmp153399 + (let ((__tmp153402 + (let ((__tmp153403 (let () (declare (not safe)) - (cons _$obj152133_ + (cons _$obj152395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153141))) - (__tmp153138 - (let ((__tmp153139 - (cdr _i152177_))) + __tmp153403))) + (__tmp153400 + (let ((__tmp153401 + (cdr _i152439_))) (declare (not safe)) - (cons __tmp153139 '())))) + (cons __tmp153401 '())))) (declare (not safe)) - (cons __tmp153140 __tmp153138)))) + (cons __tmp153402 __tmp153400)))) (declare (not safe)) - (cons __tmp153142 __tmp153137)))) + (cons __tmp153404 __tmp153399)))) (declare (not safe)) - (cons __tmp153145 __tmp153136)))) + (cons __tmp153407 __tmp153398)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp153135)))) + (cons '%#struct-unchecked-set! __tmp153397)))) (declare (not safe)) - (cons __tmp153134 _r152178_))))) + (cons __tmp153396 _r152440_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp153133 + (foldl1 __tmp153395 '() - _initializers152138_)))) + _initializers152400_)))) (declare (not safe)) (foldr1 cons - __tmp153148 - __tmp153132)))) + __tmp153410 + __tmp153394)))) (declare (not safe)) - (cons '%#begin __tmp153131)))) + (cons '%#begin __tmp153393)))) (declare (not safe)) - (cons __tmp153130 '())))) + (cons __tmp153392 '())))) (declare (not safe)) - (cons __tmp153151 __tmp153129)))) + (cons __tmp153413 __tmp153391)))) (declare (not safe)) - (cons '%#let-values __tmp153128)))) + (cons '%#let-values __tmp153390)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153127 - _stx152101_)))) - (___kont152719152720_ + __tmp153389 + _stx152363_)))) + (___kont152981152982_ (lambda () - (let ((__tmp153155 - (let ((__tmp153156 - (let ((__tmp153170 + (let ((__tmp153417 + (let ((__tmp153418 + (let ((__tmp153432 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153171 - (let ((__tmp153173 + (let ((__tmp153433 + (let ((__tmp153435 (let () (declare (not safe)) - (cons _$obj152133_ '()))) - (__tmp153172 + (cons _$obj152395_ '()))) + (__tmp153434 (let () (declare (not safe)) - (cons _inline-make-object152110_ + (cons _inline-make-object152372_ '())))) (declare (not safe)) - (cons __tmp153173 __tmp153172)))) + (cons __tmp153435 __tmp153434)))) (declare (not safe)) - (cons __tmp153171 '()))) - (__tmp153157 - (let ((__tmp153158 - (let ((__tmp153159 - (let ((__tmp153163 - (let ((__tmp153164 - (let ((__tmp153168 - (let ((__tmp153169 + (cons __tmp153433 '()))) + (__tmp153419 + (let ((__tmp153420 + (let ((__tmp153421 + (let ((__tmp153425 + (let ((__tmp153426 + (let ((__tmp153430 + (let ((__tmp153431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp153169))) - (__tmp153165 - (let ((__tmp153166 - (let ((__tmp153167 + (cons '%#ref __tmp153431))) + (__tmp153427 + (let ((__tmp153428 + (let ((__tmp153429 (let () (declare (not safe)) - (cons _$obj152133_ '())))) + (cons _$obj152395_ '())))) (declare (not safe)) - (cons '%#ref __tmp153167)))) + (cons '%#ref __tmp153429)))) (declare (not safe)) - (cons __tmp153166 _args152108_)))) + (cons __tmp153428 _args152370_)))) (declare (not safe)) - (cons __tmp153168 __tmp153165)))) + (cons __tmp153430 __tmp153427)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp153164))) - (__tmp153160 - (let ((__tmp153161 - (let ((__tmp153162 + (cons '%#call __tmp153426))) + (__tmp153422 + (let ((__tmp153423 + (let ((__tmp153424 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152133_ '())))) + (cons _$obj152395_ '())))) (declare (not safe)) - (cons '%#ref __tmp153162)))) + (cons '%#ref __tmp153424)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153161 '())))) + (cons __tmp153423 '())))) (declare (not safe)) - (cons __tmp153163 __tmp153160)))) + (cons __tmp153425 __tmp153422)))) (declare (not safe)) - (cons '%#begin __tmp153159)))) + (cons '%#begin __tmp153421)))) (declare (not safe)) - (cons __tmp153158 '())))) + (cons __tmp153420 '())))) (declare (not safe)) - (cons __tmp153170 __tmp153157)))) + (cons __tmp153432 __tmp153419)))) (declare (not safe)) - (cons '%#let-values __tmp153156)))) + (cons '%#let-values __tmp153418)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153155 - _stx152101_))))) - (let* ((_g152140152180_ + __tmp153417 + _stx152363_))))) + (let* ((_g152402152442_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx152713152714_)) - (___kont152717152718_) - (___kont152719152720_)))) - (___match152750152751_ - (lambda (_e152149152185_ - _hd152148152188_ - _tl152147152190_ - _e152152152193_ - _hd152151152196_ - _tl152150152198_ - _e152155152201_ - _hd152154152204_ - _tl152153152206_ - _e152158152209_ - _hd152157152212_ - _tl152156152214_) - (let ((_L152217_ - _tl152156152214_) - (_L152218_ - _hd152157152212_) - (_L152219_ - _hd152154152204_)) + ___stx152975152976_)) + (___kont152979152980_) + (___kont152981152982_)))) + (___match153012153013_ + (lambda (_e152411152447_ + _hd152410152450_ + _tl152409152452_ + _e152414152455_ + _hd152413152458_ + _tl152412152460_ + _e152417152463_ + _hd152416152466_ + _tl152415152468_ + _e152420152471_ + _hd152419152474_ + _tl152418152476_) + (let ((_L152479_ + _tl152418152476_) + (_L152480_ + _hd152419152474_) + (_L152481_ + _hd152416152466_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L152219_)) - (___kont152715152716_ - _L152217_ - _L152218_ - _L152219_) - (___kont152719152720_)))))) + _L152481_)) + (___kont152977152978_ + _L152479_ + _L152480_ + _L152481_) + (___kont152981152982_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx152713152714_)) - (let ((_e152149152185_ + ___stx152975152976_)) + (let ((_e152411152447_ (let () (declare (not safe)) (gx#stx-e - ___stx152713152714_)))) - (let ((_tl152147152190_ + ___stx152975152976_)))) + (let ((_tl152409152452_ (let () (declare (not safe)) - (##cdr _e152149152185_))) - (_hd152148152188_ + (##cdr _e152411152447_))) + (_hd152410152450_ (let () (declare (not safe)) - (##car _e152149152185_)))) + (##car _e152411152447_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd152148152188_)) - (let ((_e152152152193_ + _hd152410152450_)) + (let ((_e152414152455_ (let () (declare (not safe)) (gx#stx-e - _hd152148152188_)))) - (let ((_tl152150152198_ + _hd152410152450_)))) + (let ((_tl152412152460_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e152152152193_))) - (_hd152151152196_ - (let () (declare (not safe)) (##car _e152152152193_)))) + (##cdr _e152414152455_))) + (_hd152413152458_ + (let () (declare (not safe)) (##car _e152414152455_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd152151152196_)) + (gx#identifier? _hd152413152458_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd152151152196_)) + (gx#stx-eq? '%#quote _hd152413152458_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152150152198_)) - (let ((_e152155152201_ + (gx#stx-pair? _tl152412152460_)) + (let ((_e152417152463_ (let () (declare (not safe)) - (gx#stx-e _tl152150152198_)))) - (let ((_tl152153152206_ + (gx#stx-e _tl152412152460_)))) + (let ((_tl152415152468_ (let () (declare (not safe)) - (##cdr _e152155152201_))) - (_hd152154152204_ + (##cdr _e152417152463_))) + (_hd152416152466_ (let () (declare (not safe)) - (##car _e152155152201_)))) + (##car _e152417152463_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152153152206_)) + (gx#stx-null? _tl152415152468_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152147152190_)) - (let ((_e152158152209_ + (gx#stx-pair? _tl152409152452_)) + (let ((_e152420152471_ (let () (declare (not safe)) - (gx#stx-e _tl152147152190_)))) - (let ((_tl152156152214_ + (gx#stx-e _tl152409152452_)))) + (let ((_tl152418152476_ (let () (declare (not safe)) - (##cdr _e152158152209_))) - (_hd152157152212_ + (##cdr _e152420152471_))) + (_hd152419152474_ (let () (declare (not safe)) - (##car _e152158152209_)))) - (___match152750152751_ - _e152149152185_ - _hd152148152188_ - _tl152147152190_ - _e152152152193_ - _hd152151152196_ - _tl152150152198_ - _e152155152201_ - _hd152154152204_ - _tl152153152206_ - _e152158152209_ - _hd152157152212_ - _tl152156152214_))) - (___kont152719152720_)) - (___kont152719152720_)))) - (___kont152719152720_)) - (___kont152719152720_)) - (___kont152719152720_)))) + (##car _e152420152471_)))) + (___match153012153013_ + _e152411152447_ + _hd152410152450_ + _tl152409152452_ + _e152414152455_ + _hd152413152458_ + _tl152412152460_ + _e152417152463_ + _hd152416152466_ + _tl152415152468_ + _e152420152471_ + _hd152419152474_ + _tl152418152476_))) + (___kont152981152982_)) + (___kont152981152982_)))) + (___kont152981152982_)) + (___kont152981152982_)) + (___kont152981152982_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152719152720_)))) + (___kont152981152982_)))) (let () (declare (not safe)) - (_g152140152180_)))))))))))))))))) + (_g152402152442_)))))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2562,954 +2562,954 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self151923_ _stx151924_ _args151925_) - (let* ((_g151927151937_ - (lambda (_g151928151934_) + (lambda (_self152185_ _stx152186_ _args152187_) + (let* ((_g152189152199_ + (lambda (_g152190152196_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151928151934_)))) - (_g151926151975_ - (lambda (_g151928151940_) + _g152190152196_)))) + (_g152188152237_ + (lambda (_g152190152202_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151928151940_)) - (let ((_e151932151942_ + (gx#stx-pair? _g152190152202_)) + (let ((_e152194152204_ (let () (declare (not safe)) - (gx#stx-e _g151928151940_)))) - (let ((_hd151931151945_ + (gx#stx-e _g152190152202_)))) + (let ((_hd152193152207_ (let () (declare (not safe)) - (##car _e151932151942_))) - (_tl151930151947_ + (##car _e152194152204_))) + (_tl152192152209_ (let () (declare (not safe)) - (##cdr _e151932151942_)))) + (##cdr _e152194152204_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151930151947_)) - ((lambda (_L151950_) - (let* ((_klass151961_ - (let ((__tmp153296 + (gx#stx-null? _tl152192152209_)) + ((lambda (_L152212_) + (let* ((_klass152223_ + (let ((__tmp153558 (##structure-ref - _self151923_ + _self152185_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151924_ - __tmp153296))) - (_field151963_ - (let ((__tmp153297 + _stx152186_ + __tmp153558))) + (_field152225_ + (let ((__tmp153559 (##structure-ref - _self151923_ + _self152185_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151961_ - __tmp153297))) - (_object151965_ + _klass152223_ + __tmp153559))) + (_object152227_ (let () (declare (not safe)) - (gxc#compile-e__0 _L151950_)))) + (gxc#compile-e__0 _L152212_)))) (if (##structure-ref - _klass151961_ + _klass152223_ '8 gxc#!class::t '#f) - (let ((__tmp153374 - (let ((__tmp153383 + (let ((__tmp153636 + (let ((__tmp153645 (if (##structure-ref - _self151923_ + _self152185_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp153375 - (let ((__tmp153380 - (let ((__tmp153381 + (__tmp153637 + (let ((__tmp153642 + (let ((__tmp153643 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153382 + (let ((__tmp153644 (##structure-ref - _self151923_ + _self152185_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153382 '())))) + (cons __tmp153644 '())))) (declare (not safe)) - (cons '%#ref __tmp153381))) - (__tmp153376 - (let ((__tmp153378 - (let ((__tmp153379 + (cons '%#ref __tmp153643))) + (__tmp153638 + (let ((__tmp153640 + (let ((__tmp153641 (let () (declare (not safe)) - (cons _field151963_ '())))) + (cons _field152225_ '())))) (declare (not safe)) - (cons '%#quote __tmp153379))) - (__tmp153377 + (cons '%#quote __tmp153641))) + (__tmp153639 (let () (declare (not safe)) - (cons _object151965_ '())))) + (cons _object152227_ '())))) (declare (not safe)) - (cons __tmp153378 __tmp153377)))) + (cons __tmp153640 __tmp153639)))) (declare (not safe)) - (cons __tmp153380 __tmp153376)))) + (cons __tmp153642 __tmp153638)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153383 - __tmp153375)))) + (cons __tmp153645 + __tmp153637)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153374 - _stx151924_)) + __tmp153636 + _stx152186_)) (if (##structure-ref - _klass151961_ + _klass152223_ '7 gxc#!class::t '#f) - (let ((__tmp153364 - (let ((__tmp153373 + (let ((__tmp153626 + (let ((__tmp153635 (if (##structure-ref - _self151923_ + _self152185_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153365 - (let ((__tmp153370 - (let ((__tmp153371 + (__tmp153627 + (let ((__tmp153632 + (let ((__tmp153633 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153372 + (let ((__tmp153634 (##structure-ref - _self151923_ + _self152185_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153372 '())))) + (cons __tmp153634 '())))) (declare (not safe)) - (cons '%#ref __tmp153371))) - (__tmp153366 - (let ((__tmp153368 - (let ((__tmp153369 + (cons '%#ref __tmp153633))) + (__tmp153628 + (let ((__tmp153630 + (let ((__tmp153631 (let () (declare (not safe)) - (cons _field151963_ '())))) + (cons _field152225_ '())))) (declare (not safe)) - (cons '%#quote __tmp153369))) - (__tmp153367 + (cons '%#quote __tmp153631))) + (__tmp153629 (let () (declare (not safe)) - (cons _object151965_ '())))) + (cons _object152227_ '())))) (declare (not safe)) - (cons __tmp153368 __tmp153367)))) + (cons __tmp153630 __tmp153629)))) (declare (not safe)) - (cons __tmp153370 __tmp153366)))) + (cons __tmp153632 __tmp153628)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153373 - __tmp153365)))) + (cons __tmp153635 + __tmp153627)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153364 - _stx151924_)) - (let ((_$e151968_ - (let ((__tmp153298 + __tmp153626 + _stx152186_)) + (let ((_$e152230_ + (let ((__tmp153560 (##structure-ref - _self151923_ + _self152185_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass151961_ - __tmp153298)))) - (if _$e151968_ - ((lambda (_klass151971_) - (let ((__tmp153354 - (let ((__tmp153363 + _klass152223_ + __tmp153560)))) + (if _$e152230_ + ((lambda (_klass152233_) + (let ((__tmp153616 + (let ((__tmp153625 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self151923_ + _self152185_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153355 - (let ((__tmp153360 - (let ((__tmp153361 - (let ((__tmp153362 + (__tmp153617 + (let ((__tmp153622 + (let ((__tmp153623 + (let ((__tmp153624 (##structure-ref - _self151923_ + _self152185_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153362 '())))) + (cons __tmp153624 '())))) (declare (not safe)) - (cons '%#ref __tmp153361))) - (__tmp153356 - (let ((__tmp153358 - (let ((__tmp153359 + (cons '%#ref __tmp153623))) + (__tmp153618 + (let ((__tmp153620 + (let ((__tmp153621 (let () (declare (not safe)) - (cons _field151963_ '())))) + (cons _field152225_ '())))) (declare (not safe)) - (cons '%#quote __tmp153359))) - (__tmp153357 + (cons '%#quote __tmp153621))) + (__tmp153619 (let () (declare (not safe)) - (cons _object151965_ '())))) + (cons _object152227_ '())))) (declare (not safe)) - (cons __tmp153358 __tmp153357)))) + (cons __tmp153620 __tmp153619)))) (declare (not safe)) - (cons __tmp153360 __tmp153356)))) + (cons __tmp153622 __tmp153618)))) (declare (not safe)) - (cons __tmp153363 __tmp153355)))) + (cons __tmp153625 __tmp153617)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153354 _stx151924_))) + (gxc#xform-wrap-source __tmp153616 _stx152186_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e151968_) + _$e152230_) (if (##structure-ref - _self151923_ + _self152185_ '3 gxc#!accessor::t '#f) - (let ((__tmp153308 - (let* ((_$obj151973_ + (let ((__tmp153570 + (let* ((_$obj152235_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153309 (gensym '__obj))) + (let ((__tmp153571 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153309))) - (__tmp153310 - (let ((__tmp153350 - (let ((__tmp153351 - (let ((__tmp153353 + (make-symbol__0 __tmp153571))) + (__tmp153572 + (let ((__tmp153612 + (let ((__tmp153613 + (let ((__tmp153615 (let () (declare (not safe)) - (cons _$obj151973_ '()))) - (__tmp153352 + (cons _$obj152235_ '()))) + (__tmp153614 (let () (declare (not safe)) - (cons _object151965_ '())))) + (cons _object152227_ '())))) (declare (not safe)) - (cons __tmp153353 __tmp153352)))) + (cons __tmp153615 __tmp153614)))) (declare (not safe)) - (cons __tmp153351 '()))) - (__tmp153311 - (let ((__tmp153312 - (let ((__tmp153313 - (let ((__tmp153342 - (let ((__tmp153343 - (let ((__tmp153347 + (cons __tmp153613 '()))) + (__tmp153573 + (let ((__tmp153574 + (let ((__tmp153575 + (let ((__tmp153604 + (let ((__tmp153605 + (let ((__tmp153609 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153348 - (let ((__tmp153349 + (let ((__tmp153610 + (let ((__tmp153611 (##structure-ref - _klass151961_ + _klass152223_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153349 '())))) + (cons __tmp153611 '())))) (declare (not safe)) - (cons '%#quote __tmp153348))) - (__tmp153344 - (let ((__tmp153345 - (let ((__tmp153346 + (cons '%#quote __tmp153610))) + (__tmp153606 + (let ((__tmp153607 + (let ((__tmp153608 (let () (declare (not safe)) - (cons _$obj151973_ '())))) + (cons _$obj152235_ '())))) (declare (not safe)) - (cons '%#ref __tmp153346)))) + (cons '%#ref __tmp153608)))) (declare (not safe)) - (cons __tmp153345 '())))) + (cons __tmp153607 '())))) (declare (not safe)) - (cons __tmp153347 __tmp153344)))) + (cons __tmp153609 __tmp153606)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153343))) - (__tmp153314 - (let ((__tmp153331 - (let ((__tmp153332 - (let ((__tmp153339 - (let ((__tmp153340 - (let ((__tmp153341 + (cons '%#struct-direct-instance? __tmp153605))) + (__tmp153576 + (let ((__tmp153593 + (let ((__tmp153594 + (let ((__tmp153601 + (let ((__tmp153602 + (let ((__tmp153603 (##structure-ref - _self151923_ + _self152185_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153341 '())))) + (cons __tmp153603 '())))) (declare (not safe)) - (cons '%#ref __tmp153340))) - (__tmp153333 - (let ((__tmp153337 - (let ((__tmp153338 + (cons '%#ref __tmp153602))) + (__tmp153595 + (let ((__tmp153599 + (let ((__tmp153600 (let () (declare (not safe)) - (cons _field151963_ + (cons _field152225_ '())))) (declare (not safe)) - (cons '%#quote __tmp153338))) - (__tmp153334 - (let ((__tmp153335 - (let ((__tmp153336 + (cons '%#quote __tmp153600))) + (__tmp153596 + (let ((__tmp153597 + (let ((__tmp153598 (let () (declare (not safe)) - (cons _$obj151973_ + (cons _$obj152235_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153336)))) + __tmp153598)))) (declare (not safe)) - (cons __tmp153335 '())))) + (cons __tmp153597 '())))) (declare (not safe)) - (cons __tmp153337 __tmp153334)))) + (cons __tmp153599 __tmp153596)))) (declare (not safe)) - (cons __tmp153339 __tmp153333)))) + (cons __tmp153601 __tmp153595)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp153332))) - (__tmp153315 - (let ((__tmp153316 - (let ((__tmp153317 - (let ((__tmp153329 - (let ((__tmp153330 + (cons '%#struct-unchecked-ref __tmp153594))) + (__tmp153577 + (let ((__tmp153578 + (let ((__tmp153579 + (let ((__tmp153591 + (let ((__tmp153592 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153330))) - (__tmp153318 - (let ((__tmp153326 - (let ((__tmp153327 - (let ((__tmp153328 + (cons '%#ref __tmp153592))) + (__tmp153580 + (let ((__tmp153588 + (let ((__tmp153589 + (let ((__tmp153590 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self151923_ '1 gxc#!type::t '#f))) + (##structure-ref _self152185_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153328 '())))) + (cons __tmp153590 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153327))) - (__tmp153319 - (let ((__tmp153324 - (let ((__tmp153325 + __tmp153589))) + (__tmp153581 + (let ((__tmp153586 + (let ((__tmp153587 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj151973_ '())))) + (cons _$obj152235_ '())))) (declare (not safe)) - (cons '%#ref __tmp153325))) - (__tmp153320 - (let ((__tmp153321 - (let ((__tmp153322 - (let ((__tmp153323 + (cons '%#ref __tmp153587))) + (__tmp153582 + (let ((__tmp153583 + (let ((__tmp153584 + (let ((__tmp153585 (##structure-ref - _self151923_ + _self152185_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp153323 '())))) + (cons __tmp153585 '())))) (declare (not safe)) - (cons '%#quote __tmp153322)))) + (cons '%#quote __tmp153584)))) (declare (not safe)) - (cons __tmp153321 '())))) + (cons __tmp153583 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153324 - __tmp153320)))) + (cons __tmp153586 + __tmp153582)))) (declare (not safe)) - (cons __tmp153326 __tmp153319)))) + (cons __tmp153588 __tmp153581)))) (declare (not safe)) - (cons __tmp153329 __tmp153318)))) + (cons __tmp153591 __tmp153580)))) (declare (not safe)) - (cons '%#call __tmp153317)))) + (cons '%#call __tmp153579)))) (declare (not safe)) - (cons __tmp153316 '())))) + (cons __tmp153578 '())))) (declare (not safe)) - (cons __tmp153331 __tmp153315)))) + (cons __tmp153593 __tmp153577)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153342 - __tmp153314)))) + (cons __tmp153604 + __tmp153576)))) (declare (not safe)) - (cons '%#if __tmp153313)))) + (cons '%#if __tmp153575)))) (declare (not safe)) - (cons __tmp153312 '())))) + (cons __tmp153574 '())))) (declare (not safe)) - (cons __tmp153350 __tmp153311)))) + (cons __tmp153612 __tmp153573)))) (declare (not safe)) - (cons '%#let-values __tmp153310)))) + (cons '%#let-values __tmp153572)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153308 _stx151924_)) + (gxc#xform-wrap-source __tmp153570 _stx152186_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153299 - (let ((__tmp153300 + (let ((__tmp153561 + (let ((__tmp153562 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153306 - (let ((__tmp153307 + (let ((__tmp153568 + (let ((__tmp153569 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153307))) - (__tmp153301 - (let ((__tmp153302 - (let ((__tmp153303 - (let ((__tmp153304 - (let ((__tmp153305 + (cons '%#ref __tmp153569))) + (__tmp153563 + (let ((__tmp153564 + (let ((__tmp153565 + (let ((__tmp153566 + (let ((__tmp153567 (##structure-ref - _self151923_ + _self152185_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp153305 + (cons __tmp153567 '())))) (declare (not safe)) (cons '%#quote - __tmp153304)))) + __tmp153566)))) (declare (not safe)) - (cons __tmp153303 '())))) + (cons __tmp153565 '())))) (declare (not safe)) - (cons _object151965_ __tmp153302)))) + (cons _object152227_ __tmp153564)))) (declare (not safe)) - (cons __tmp153306 __tmp153301)))) + (cons __tmp153568 __tmp153563)))) (declare (not safe)) - (cons '%#call __tmp153300)))) + (cons '%#call __tmp153562)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153299 _stx151924_))))))))) + (gxc#xform-wrap-source __tmp153561 _stx152186_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151931151945_) + _hd152193152207_) (let () (declare (not safe)) - (_g151927151937_ _g151928151940_))))) + (_g152189152199_ _g152190152202_))))) (let () (declare (not safe)) - (_g151927151937_ _g151928151940_)))))) + (_g152189152199_ _g152190152202_)))))) (declare (not safe)) - (_g151926151975_ _args151925_)))) + (_g152188152237_ _args152187_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass152598 __method-table152599) - (let ((__id152600 - (let ((__slot152603 + (lambda (__klass152860 __method-table152861) + (let ((__id152862 + (let ((__slot152865 (let () (declare (not safe)) - (class-slot-offset __klass152598 'id)))) - (if __slot152603 - __slot152603 + (class-slot-offset __klass152860 'id)))) + (if __slot152865 + __slot152865 (let () (declare (not safe)) (error '"Unknown slot" 'id))))) - (__checked?152601 - (let ((__slot152604 + (__checked?152863 + (let ((__slot152866 (let () (declare (not safe)) - (class-slot-offset __klass152598 'checked?)))) - (if __slot152604 - __slot152604 + (class-slot-offset __klass152860 'checked?)))) + (if __slot152866 + __slot152866 (let () (declare (not safe)) (error '"Unknown slot" 'checked?))))) - (__slot152602 - (let ((__slot152605 + (__slot152864 + (let ((__slot152867 (let () (declare (not safe)) - (class-slot-offset __klass152598 'slot)))) - (if __slot152605 - __slot152605 + (class-slot-offset __klass152860 'slot)))) + (if __slot152867 + __slot152867 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_self151923_ _stx151924_ _args151925_) - (let* ((_g151927151937_ - (lambda (_g151928151934_) + (lambda (_self152185_ _stx152186_ _args152187_) + (let* ((_g152189152199_ + (lambda (_g152190152196_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151928151934_)))) - (_g151926151975_ - (lambda (_g151928151940_) + _g152190152196_)))) + (_g152188152237_ + (lambda (_g152190152202_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151928151940_)) - (let ((_e151932151942_ + (gx#stx-pair? _g152190152202_)) + (let ((_e152194152204_ (let () (declare (not safe)) - (gx#stx-e _g151928151940_)))) - (let ((_hd151931151945_ + (gx#stx-e _g152190152202_)))) + (let ((_hd152193152207_ (let () (declare (not safe)) - (##car _e151932151942_))) - (_tl151930151947_ + (##car _e152194152204_))) + (_tl152192152209_ (let () (declare (not safe)) - (##cdr _e151932151942_)))) + (##cdr _e152194152204_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151930151947_)) - ((lambda (_L151950_) - (let* ((_klass151961_ - (let ((__tmp153384 + (gx#stx-null? _tl152192152209_)) + ((lambda (_L152212_) + (let* ((_klass152223_ + (let ((__tmp153646 (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __id152600 - __klass152598 + _self152185_ + __id152862 + __klass152860 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151924_ - __tmp153384))) - (_field151963_ - (let ((__tmp153385 + _stx152186_ + __tmp153646))) + (_field152225_ + (let ((__tmp153647 (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __slot152602 - __klass152598 + _self152185_ + __slot152864 + __klass152860 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151961_ - __tmp153385))) - (_object151965_ + _klass152223_ + __tmp153647))) + (_object152227_ (let () (declare (not safe)) - (gxc#compile-e__0 _L151950_)))) + (gxc#compile-e__0 _L152212_)))) (if (##structure-ref - _klass151961_ + _klass152223_ '8 gxc#!class::t '#f) - (let ((__tmp153462 - (let ((__tmp153471 + (let ((__tmp153724 + (let ((__tmp153733 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self151923_ - __checked?152601 - __klass152598 + _self152185_ + __checked?152863 + __klass152860 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp153463 - (let ((__tmp153468 - (let ((__tmp153469 - (let ((__tmp153470 + (__tmp153725 + (let ((__tmp153730 + (let ((__tmp153731 + (let ((__tmp153732 (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __id152600 - __klass152598 + _self152185_ + __id152862 + __klass152860 '#f)))) (declare (not safe)) - (cons __tmp153470 '())))) + (cons __tmp153732 '())))) (declare (not safe)) - (cons '%#ref __tmp153469))) - (__tmp153464 - (let ((__tmp153466 - (let ((__tmp153467 + (cons '%#ref __tmp153731))) + (__tmp153726 + (let ((__tmp153728 + (let ((__tmp153729 (let () (declare (not safe)) - (cons _field151963_ '())))) + (cons _field152225_ '())))) (declare (not safe)) - (cons '%#quote __tmp153467))) - (__tmp153465 + (cons '%#quote __tmp153729))) + (__tmp153727 (let () (declare (not safe)) - (cons _object151965_ '())))) + (cons _object152227_ '())))) (declare (not safe)) - (cons __tmp153466 __tmp153465)))) + (cons __tmp153728 __tmp153727)))) (declare (not safe)) - (cons __tmp153468 __tmp153464)))) + (cons __tmp153730 __tmp153726)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153471 - __tmp153463)))) + (cons __tmp153733 + __tmp153725)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153462 - _stx151924_)) + __tmp153724 + _stx152186_)) (if (##structure-ref - _klass151961_ + _klass152223_ '7 gxc#!class::t '#f) - (let ((__tmp153452 - (let ((__tmp153461 + (let ((__tmp153714 + (let ((__tmp153723 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __checked?152601 - __klass152598 + _self152185_ + __checked?152863 + __klass152860 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153453 - (let ((__tmp153458 - (let ((__tmp153459 - (let ((__tmp153460 + (__tmp153715 + (let ((__tmp153720 + (let ((__tmp153721 + (let ((__tmp153722 (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __id152600 - __klass152598 + _self152185_ + __id152862 + __klass152860 '#f)))) (declare (not safe)) - (cons __tmp153460 '())))) + (cons __tmp153722 '())))) (declare (not safe)) - (cons '%#ref __tmp153459))) - (__tmp153454 - (let ((__tmp153456 - (let ((__tmp153457 + (cons '%#ref __tmp153721))) + (__tmp153716 + (let ((__tmp153718 + (let ((__tmp153719 (let () (declare (not safe)) - (cons _field151963_ '())))) + (cons _field152225_ '())))) (declare (not safe)) - (cons '%#quote __tmp153457))) - (__tmp153455 + (cons '%#quote __tmp153719))) + (__tmp153717 (let () (declare (not safe)) - (cons _object151965_ '())))) + (cons _object152227_ '())))) (declare (not safe)) - (cons __tmp153456 __tmp153455)))) + (cons __tmp153718 __tmp153717)))) (declare (not safe)) - (cons __tmp153458 __tmp153454)))) + (cons __tmp153720 __tmp153716)))) (declare (not safe)) - (cons __tmp153461 __tmp153453)))) + (cons __tmp153723 __tmp153715)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153452 - _stx151924_)) - (let ((_$e151968_ - (let ((__tmp153386 + __tmp153714 + _stx152186_)) + (let ((_$e152230_ + (let ((__tmp153648 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self151923_ - __slot152602 - __klass152598 + _self152185_ + __slot152864 + __klass152860 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass151961_ __tmp153386)))) + (gxc#!class-slot-find-struct _klass152223_ __tmp153648)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e151968_ - ((lambda (_klass151971_) - (let ((__tmp153442 - (let ((__tmp153451 + (if _$e152230_ + ((lambda (_klass152233_) + (let ((__tmp153704 + (let ((__tmp153713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __checked?152601 - __klass152598 + _self152185_ + __checked?152863 + __klass152860 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153443 - (let ((__tmp153448 - (let ((__tmp153449 - (let ((__tmp153450 + (__tmp153705 + (let ((__tmp153710 + (let ((__tmp153711 + (let ((__tmp153712 (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __id152600 - __klass152598 + _self152185_ + __id152862 + __klass152860 '#f)))) (declare (not safe)) - (cons __tmp153450 '())))) + (cons __tmp153712 '())))) (declare (not safe)) - (cons '%#ref __tmp153449))) - (__tmp153444 - (let ((__tmp153446 - (let ((__tmp153447 + (cons '%#ref __tmp153711))) + (__tmp153706 + (let ((__tmp153708 + (let ((__tmp153709 (let () (declare (not safe)) - (cons _field151963_ + (cons _field152225_ '())))) (declare (not safe)) - (cons '%#quote __tmp153447))) - (__tmp153445 + (cons '%#quote __tmp153709))) + (__tmp153707 (let () (declare (not safe)) - (cons _object151965_ '())))) + (cons _object152227_ '())))) (declare (not safe)) - (cons __tmp153446 __tmp153445)))) + (cons __tmp153708 __tmp153707)))) (declare (not safe)) - (cons __tmp153448 __tmp153444)))) + (cons __tmp153710 __tmp153706)))) (declare (not safe)) - (cons __tmp153451 __tmp153443)))) + (cons __tmp153713 __tmp153705)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153442 _stx151924_))) - _$e151968_) + (gxc#xform-wrap-source __tmp153704 _stx152186_))) + _$e152230_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __checked?152601 - __klass152598 + _self152185_ + __checked?152863 + __klass152860 '#f)) - (let ((__tmp153396 - (let* ((_$obj151973_ + (let ((__tmp153658 + (let* ((_$obj152235_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153397 (gensym '__obj))) + (let ((__tmp153659 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153397))) - (__tmp153398 - (let ((__tmp153438 - (let ((__tmp153439 - (let ((__tmp153441 + (make-symbol__0 __tmp153659))) + (__tmp153660 + (let ((__tmp153700 + (let ((__tmp153701 + (let ((__tmp153703 (let () (declare (not safe)) - (cons _$obj151973_ + (cons _$obj152235_ '()))) - (__tmp153440 + (__tmp153702 (let () (declare (not safe)) - (cons _object151965_ + (cons _object152227_ '())))) (declare (not safe)) - (cons __tmp153441 - __tmp153440)))) + (cons __tmp153703 + __tmp153702)))) (declare (not safe)) - (cons __tmp153439 '()))) - (__tmp153399 - (let ((__tmp153400 - (let ((__tmp153401 - (let ((__tmp153430 - (let ((__tmp153431 + (cons __tmp153701 '()))) + (__tmp153661 + (let ((__tmp153662 + (let ((__tmp153663 + (let ((__tmp153692 + (let ((__tmp153693 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153435 - (let ((__tmp153436 - (let ((__tmp153437 + (let ((__tmp153697 + (let ((__tmp153698 + (let ((__tmp153699 (##structure-ref - _klass151961_ + _klass152223_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153437 '())))) + (cons __tmp153699 '())))) (declare (not safe)) - (cons '%#quote __tmp153436))) - (__tmp153432 - (let ((__tmp153433 - (let ((__tmp153434 + (cons '%#quote __tmp153698))) + (__tmp153694 + (let ((__tmp153695 + (let ((__tmp153696 (let () (declare (not safe)) - (cons _$obj151973_ '())))) + (cons _$obj152235_ '())))) (declare (not safe)) - (cons '%#ref __tmp153434)))) + (cons '%#ref __tmp153696)))) (declare (not safe)) - (cons __tmp153433 '())))) + (cons __tmp153695 '())))) (declare (not safe)) - (cons __tmp153435 __tmp153432)))) + (cons __tmp153697 __tmp153694)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153431))) - (__tmp153402 - (let ((__tmp153419 - (let ((__tmp153420 - (let ((__tmp153427 - (let ((__tmp153428 - (let ((__tmp153429 + (cons '%#struct-direct-instance? __tmp153693))) + (__tmp153664 + (let ((__tmp153681 + (let ((__tmp153682 + (let ((__tmp153689 + (let ((__tmp153690 + (let ((__tmp153691 (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __id152600 - __klass152598 + _self152185_ + __id152862 + __klass152860 '#f)))) (declare (not safe)) - (cons __tmp153429 '())))) + (cons __tmp153691 '())))) (declare (not safe)) - (cons '%#ref __tmp153428))) - (__tmp153421 - (let ((__tmp153425 - (let ((__tmp153426 + (cons '%#ref __tmp153690))) + (__tmp153683 + (let ((__tmp153687 + (let ((__tmp153688 (let () (declare (not safe)) - (cons _field151963_ + (cons _field152225_ '())))) (declare (not safe)) - (cons '%#quote __tmp153426))) - (__tmp153422 - (let ((__tmp153423 - (let ((__tmp153424 + (cons '%#quote __tmp153688))) + (__tmp153684 + (let ((__tmp153685 + (let ((__tmp153686 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj151973_ '())))) + (cons _$obj152235_ '())))) (declare (not safe)) - (cons '%#ref __tmp153424)))) + (cons '%#ref __tmp153686)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153423 '())))) + (cons __tmp153685 '())))) (declare (not safe)) - (cons __tmp153425 __tmp153422)))) + (cons __tmp153687 __tmp153684)))) (declare (not safe)) - (cons __tmp153427 __tmp153421)))) + (cons __tmp153689 __tmp153683)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp153420))) - (__tmp153403 - (let ((__tmp153404 - (let ((__tmp153405 - (let ((__tmp153417 - (let ((__tmp153418 + (cons '%#struct-unchecked-ref __tmp153682))) + (__tmp153665 + (let ((__tmp153666 + (let ((__tmp153667 + (let ((__tmp153679 + (let ((__tmp153680 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153418))) - (__tmp153406 - (let ((__tmp153414 - (let ((__tmp153415 - (let ((__tmp153416 + (cons '%#ref __tmp153680))) + (__tmp153668 + (let ((__tmp153676 + (let ((__tmp153677 + (let ((__tmp153678 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __id152600 - __klass152598 + _self152185_ + __id152862 + __klass152860 '#f)))) (declare (not safe)) - (cons __tmp153416 '())))) + (cons __tmp153678 '())))) (declare (not safe)) - (cons '%#ref __tmp153415))) - (__tmp153407 - (let ((__tmp153412 - (let ((__tmp153413 + (cons '%#ref __tmp153677))) + (__tmp153669 + (let ((__tmp153674 + (let ((__tmp153675 (let () (declare (not safe)) - (cons _$obj151973_ '())))) + (cons _$obj152235_ '())))) (declare (not safe)) - (cons '%#ref __tmp153413))) - (__tmp153408 - (let ((__tmp153409 - (let ((__tmp153410 - (let ((__tmp153411 + (cons '%#ref __tmp153675))) + (__tmp153670 + (let ((__tmp153671 + (let ((__tmp153672 + (let ((__tmp153673 (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __slot152602 - __klass152598 + _self152185_ + __slot152864 + __klass152860 '#f)))) (declare (not safe)) - (cons __tmp153411 '())))) + (cons __tmp153673 '())))) (declare (not safe)) - (cons '%#quote __tmp153410)))) + (cons '%#quote __tmp153672)))) (declare (not safe)) - (cons __tmp153409 '())))) + (cons __tmp153671 '())))) (declare (not safe)) - (cons __tmp153412 __tmp153408)))) + (cons __tmp153674 __tmp153670)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153414 - __tmp153407)))) + (cons __tmp153676 + __tmp153669)))) (declare (not safe)) - (cons __tmp153417 __tmp153406)))) + (cons __tmp153679 __tmp153668)))) (declare (not safe)) - (cons '%#call __tmp153405)))) + (cons '%#call __tmp153667)))) (declare (not safe)) - (cons __tmp153404 '())))) + (cons __tmp153666 '())))) (declare (not safe)) - (cons __tmp153419 __tmp153403)))) + (cons __tmp153681 __tmp153665)))) (declare (not safe)) - (cons __tmp153430 __tmp153402)))) + (cons __tmp153692 __tmp153664)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153401)))) + (cons '%#if __tmp153663)))) (declare (not safe)) - (cons __tmp153400 '())))) + (cons __tmp153662 '())))) (declare (not safe)) - (cons __tmp153438 __tmp153399)))) + (cons __tmp153700 __tmp153661)))) (declare (not safe)) - (cons '%#let-values __tmp153398)))) + (cons '%#let-values __tmp153660)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153396 _stx151924_)) - (let ((__tmp153387 - (let ((__tmp153388 - (let ((__tmp153394 - (let ((__tmp153395 + (gxc#xform-wrap-source __tmp153658 _stx152186_)) + (let ((__tmp153649 + (let ((__tmp153650 + (let ((__tmp153656 + (let ((__tmp153657 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153395))) - (__tmp153389 - (let ((__tmp153390 - (let ((__tmp153391 - (let ((__tmp153392 - (let ((__tmp153393 + (cons '%#ref __tmp153657))) + (__tmp153651 + (let ((__tmp153652 + (let ((__tmp153653 + (let ((__tmp153654 + (let ((__tmp153655 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self151923_ - __slot152602 - __klass152598 + _self152185_ + __slot152864 + __klass152860 '#f)))) (declare (not safe)) - (cons __tmp153393 '())))) + (cons __tmp153655 '())))) (declare (not safe)) - (cons '%#quote __tmp153392)))) + (cons '%#quote __tmp153654)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153391 '())))) + (cons __tmp153653 '())))) (declare (not safe)) - (cons _object151965_ __tmp153390)))) + (cons _object152227_ __tmp153652)))) (declare (not safe)) - (cons __tmp153394 __tmp153389)))) + (cons __tmp153656 __tmp153651)))) (declare (not safe)) - (cons '%#call __tmp153388)))) + (cons '%#call __tmp153650)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153387 _stx151924_))))))))) + (gxc#xform-wrap-source __tmp153649 _stx152186_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151931151945_) + _hd152193152207_) (let () (declare (not safe)) - (_g151927151937_ _g151928151940_))))) + (_g152189152199_ _g152190152202_))))) (let () (declare (not safe)) - (_g151927151937_ _g151928151940_)))))) + (_g152189152199_ _g152190152202_)))))) (declare (not safe)) - (_g151926151975_ _args151925_)))))) + (_g152188152237_ _args152187_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3523,363 +3523,363 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self151728_ _stx151729_ _args151730_) - (let* ((_g151732151746_ - (lambda (_g151733151743_) + (lambda (_self151990_ _stx151991_ _args151992_) + (let* ((_g151994152008_ + (lambda (_g151995152005_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151733151743_)))) - (_g151731151798_ - (lambda (_g151733151749_) + _g151995152005_)))) + (_g151993152060_ + (lambda (_g151995152011_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151733151749_)) - (let ((_e151738151751_ + (gx#stx-pair? _g151995152011_)) + (let ((_e152000152013_ (let () (declare (not safe)) - (gx#stx-e _g151733151749_)))) - (let ((_hd151737151754_ + (gx#stx-e _g151995152011_)))) + (let ((_hd151999152016_ (let () (declare (not safe)) - (##car _e151738151751_))) - (_tl151736151756_ + (##car _e152000152013_))) + (_tl151998152018_ (let () (declare (not safe)) - (##cdr _e151738151751_)))) + (##cdr _e152000152013_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl151736151756_)) - (let ((_e151741151759_ + (gx#stx-pair? _tl151998152018_)) + (let ((_e152003152021_ (let () (declare (not safe)) - (gx#stx-e _tl151736151756_)))) - (let ((_hd151740151762_ + (gx#stx-e _tl151998152018_)))) + (let ((_hd152002152024_ (let () (declare (not safe)) - (##car _e151741151759_))) - (_tl151739151764_ + (##car _e152003152021_))) + (_tl152001152026_ (let () (declare (not safe)) - (##cdr _e151741151759_)))) + (##cdr _e152003152021_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151739151764_)) - ((lambda (_L151767_ _L151768_) - (let* ((_klass151782_ - (let ((__tmp153472 + (gx#stx-null? _tl152001152026_)) + ((lambda (_L152029_ _L152030_) + (let* ((_klass152044_ + (let ((__tmp153734 (##structure-ref - _self151728_ + _self151990_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151729_ - __tmp153472))) - (_field151784_ - (let ((__tmp153473 + _stx151991_ + __tmp153734))) + (_field152046_ + (let ((__tmp153735 (##structure-ref - _self151728_ + _self151990_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151782_ - __tmp153473))) - (_object151786_ + _klass152044_ + __tmp153735))) + (_object152048_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151768_))) - (_value151788_ + _L152030_))) + (_value152050_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151767_)))) + _L152029_)))) (if (##structure-ref - _klass151782_ + _klass152044_ '8 gxc#!class::t '#f) - (let ((__tmp153555 - (let ((__tmp153565 + (let ((__tmp153817 + (let ((__tmp153827 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self151728_ + _self151990_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp153556 - (let ((__tmp153562 - (let ((__tmp153563 - (let ((__tmp153564 + (__tmp153818 + (let ((__tmp153824 + (let ((__tmp153825 + (let ((__tmp153826 (##structure-ref - _self151728_ + _self151990_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153564 '())))) + (cons __tmp153826 '())))) (declare (not safe)) - (cons '%#ref __tmp153563))) - (__tmp153557 - (let ((__tmp153560 - (let ((__tmp153561 + (cons '%#ref __tmp153825))) + (__tmp153819 + (let ((__tmp153822 + (let ((__tmp153823 (let () (declare (not safe)) - (cons _field151784_ '())))) + (cons _field152046_ '())))) (declare (not safe)) - (cons '%#quote __tmp153561))) - (__tmp153558 - (let ((__tmp153559 + (cons '%#quote __tmp153823))) + (__tmp153820 + (let ((__tmp153821 (let () (declare (not safe)) - (cons _value151788_ '())))) + (cons _value152050_ '())))) (declare (not safe)) - (cons _object151786_ __tmp153559)))) + (cons _object152048_ __tmp153821)))) (declare (not safe)) - (cons __tmp153560 __tmp153558)))) + (cons __tmp153822 __tmp153820)))) (declare (not safe)) - (cons __tmp153562 __tmp153557)))) + (cons __tmp153824 __tmp153819)))) (declare (not safe)) - (cons __tmp153565 __tmp153556)))) + (cons __tmp153827 __tmp153818)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153555 - _stx151729_)) + __tmp153817 + _stx151991_)) (if (##structure-ref - _klass151782_ + _klass152044_ '7 gxc#!class::t '#f) - (let ((__tmp153544 - (let ((__tmp153554 + (let ((__tmp153806 + (let ((__tmp153816 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self151728_ + _self151990_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153545 - (let ((__tmp153551 - (let ((__tmp153552 - (let ((__tmp153553 + (__tmp153807 + (let ((__tmp153813 + (let ((__tmp153814 + (let ((__tmp153815 (##structure-ref - _self151728_ + _self151990_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153553 '())))) + (cons __tmp153815 '())))) (declare (not safe)) - (cons '%#ref __tmp153552))) - (__tmp153546 - (let ((__tmp153549 - (let ((__tmp153550 + (cons '%#ref __tmp153814))) + (__tmp153808 + (let ((__tmp153811 + (let ((__tmp153812 (let () (declare (not safe)) - (cons _field151784_ '())))) + (cons _field152046_ '())))) (declare (not safe)) - (cons '%#quote __tmp153550))) - (__tmp153547 - (let ((__tmp153548 + (cons '%#quote __tmp153812))) + (__tmp153809 + (let ((__tmp153810 (let () (declare (not safe)) - (cons _value151788_ '())))) + (cons _value152050_ '())))) (declare (not safe)) - (cons _object151786_ __tmp153548)))) + (cons _object152048_ __tmp153810)))) (declare (not safe)) - (cons __tmp153549 __tmp153547)))) + (cons __tmp153811 __tmp153809)))) (declare (not safe)) - (cons __tmp153551 __tmp153546)))) + (cons __tmp153813 __tmp153808)))) (declare (not safe)) - (cons __tmp153554 __tmp153545)))) + (cons __tmp153816 __tmp153807)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153544 - _stx151729_)) - (let ((_$e151791_ - (let ((__tmp153474 + __tmp153806 + _stx151991_)) + (let ((_$e152053_ + (let ((__tmp153736 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self151728_ + _self151990_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass151782_ __tmp153474)))) + (gxc#!class-slot-find-struct _klass152044_ __tmp153736)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e151791_ - ((lambda (_klass151794_) - (let ((__tmp153533 + (if _$e152053_ + ((lambda (_klass152056_) + (let ((__tmp153795 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153543 + (let ((__tmp153805 (if (##structure-ref - _self151728_ + _self151990_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153534 - (let ((__tmp153540 - (let ((__tmp153541 - (let ((__tmp153542 + (__tmp153796 + (let ((__tmp153802 + (let ((__tmp153803 + (let ((__tmp153804 (##structure-ref - _self151728_ + _self151990_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153542 '())))) + (cons __tmp153804 '())))) (declare (not safe)) - (cons '%#ref __tmp153541))) - (__tmp153535 - (let ((__tmp153538 - (let ((__tmp153539 + (cons '%#ref __tmp153803))) + (__tmp153797 + (let ((__tmp153800 + (let ((__tmp153801 (let () (declare (not safe)) - (cons _field151784_ + (cons _field152046_ '())))) (declare (not safe)) - (cons '%#quote __tmp153539))) - (__tmp153536 - (let ((__tmp153537 + (cons '%#quote __tmp153801))) + (__tmp153798 + (let ((__tmp153799 (let () (declare (not safe)) - (cons _value151788_ + (cons _value152050_ '())))) (declare (not safe)) - (cons _object151786_ - __tmp153537)))) + (cons _object152048_ + __tmp153799)))) (declare (not safe)) - (cons __tmp153538 __tmp153536)))) + (cons __tmp153800 __tmp153798)))) (declare (not safe)) - (cons __tmp153540 __tmp153535)))) + (cons __tmp153802 __tmp153797)))) (declare (not safe)) - (cons __tmp153543 __tmp153534)))) + (cons __tmp153805 __tmp153796)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153533 _stx151729_))) - _$e151791_) - (if (##structure-ref _self151728_ '3 gxc#!mutator::t '#f) - (let ((__tmp153485 - (let* ((_$obj151796_ - (let ((__tmp153486 (gensym '__obj))) + (gxc#xform-wrap-source __tmp153795 _stx151991_))) + _$e152053_) + (if (##structure-ref _self151990_ '3 gxc#!mutator::t '#f) + (let ((__tmp153747 + (let* ((_$obj152058_ + (let ((__tmp153748 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153486))) - (__tmp153487 - (let ((__tmp153529 - (let ((__tmp153530 - (let ((__tmp153532 + (make-symbol__0 __tmp153748))) + (__tmp153749 + (let ((__tmp153791 + (let ((__tmp153792 + (let ((__tmp153794 (let () (declare (not safe)) - (cons _$obj151796_ + (cons _$obj152058_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153531 - (let () (declare (not safe)) (cons _object151786_ '())))) + (__tmp153793 + (let () (declare (not safe)) (cons _object152048_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153532 - __tmp153531)))) + (cons __tmp153794 + __tmp153793)))) (declare (not safe)) - (cons __tmp153530 '()))) - (__tmp153488 - (let ((__tmp153489 - (let ((__tmp153490 - (let ((__tmp153521 - (let ((__tmp153522 + (cons __tmp153792 '()))) + (__tmp153750 + (let ((__tmp153751 + (let ((__tmp153752 + (let ((__tmp153783 + (let ((__tmp153784 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153526 - (let ((__tmp153527 - (let ((__tmp153528 + (let ((__tmp153788 + (let ((__tmp153789 + (let ((__tmp153790 (##structure-ref - _klass151782_ + _klass152044_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153528 '())))) + (cons __tmp153790 '())))) (declare (not safe)) - (cons '%#quote __tmp153527))) - (__tmp153523 - (let ((__tmp153524 - (let ((__tmp153525 + (cons '%#quote __tmp153789))) + (__tmp153785 + (let ((__tmp153786 + (let ((__tmp153787 (let () (declare (not safe)) - (cons _$obj151796_ + (cons _$obj152058_ '())))) (declare (not safe)) - (cons '%#ref __tmp153525)))) + (cons '%#ref __tmp153787)))) (declare (not safe)) - (cons __tmp153524 '())))) + (cons __tmp153786 '())))) (declare (not safe)) - (cons __tmp153526 __tmp153523)))) + (cons __tmp153788 __tmp153785)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153522))) - (__tmp153491 - (let ((__tmp153509 - (let ((__tmp153510 - (let ((__tmp153518 - (let ((__tmp153519 - (let ((__tmp153520 + (cons '%#struct-direct-instance? __tmp153784))) + (__tmp153753 + (let ((__tmp153771 + (let ((__tmp153772 + (let ((__tmp153780 + (let ((__tmp153781 + (let ((__tmp153782 (##structure-ref - _self151728_ + _self151990_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153520 '())))) + (cons __tmp153782 '())))) (declare (not safe)) - (cons '%#ref __tmp153519))) - (__tmp153511 - (let ((__tmp153516 - (let ((__tmp153517 + (cons '%#ref __tmp153781))) + (__tmp153773 + (let ((__tmp153778 + (let ((__tmp153779 (let () (declare (not safe)) - (cons _field151784_ + (cons _field152046_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp153517))) + (cons '%#quote __tmp153779))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153512 - (let ((__tmp153514 - (let ((__tmp153515 + (__tmp153774 + (let ((__tmp153776 + (let ((__tmp153777 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj151796_ '())))) + (cons _$obj152058_ '())))) (declare (not safe)) - (cons '%#ref __tmp153515))) - (__tmp153513 - (let () (declare (not safe)) (cons _value151788_ '())))) + (cons '%#ref __tmp153777))) + (__tmp153775 + (let () (declare (not safe)) (cons _value152050_ '())))) (declare (not safe)) - (cons __tmp153514 __tmp153513)))) + (cons __tmp153776 __tmp153775)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153516 - __tmp153512)))) + (cons __tmp153778 + __tmp153774)))) (declare (not safe)) - (cons __tmp153518 __tmp153511)))) + (cons __tmp153780 __tmp153773)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp153510))) - (__tmp153492 - (let ((__tmp153493 - (let ((__tmp153494 - (let ((__tmp153507 - (let ((__tmp153508 + (cons '%#struct-unchecked-set! __tmp153772))) + (__tmp153754 + (let ((__tmp153755 + (let ((__tmp153756 + (let ((__tmp153769 + (let ((__tmp153770 (let () (declare (not safe)) @@ -3887,684 +3887,684 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp153508))) + (cons '%#ref __tmp153770))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153495 - (let ((__tmp153504 - (let ((__tmp153505 + (__tmp153757 + (let ((__tmp153766 + (let ((__tmp153767 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153506 + (let ((__tmp153768 (##structure-ref - _self151728_ + _self151990_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153506 '())))) + (cons __tmp153768 '())))) (declare (not safe)) - (cons '%#ref __tmp153505))) - (__tmp153496 - (let ((__tmp153502 - (let ((__tmp153503 + (cons '%#ref __tmp153767))) + (__tmp153758 + (let ((__tmp153764 + (let ((__tmp153765 (let () (declare (not safe)) - (cons _$obj151796_ '())))) + (cons _$obj152058_ '())))) (declare (not safe)) - (cons '%#ref __tmp153503))) - (__tmp153497 - (let ((__tmp153499 - (let ((__tmp153500 - (let ((__tmp153501 + (cons '%#ref __tmp153765))) + (__tmp153759 + (let ((__tmp153761 + (let ((__tmp153762 + (let ((__tmp153763 (##structure-ref - _self151728_ + _self151990_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp153501 '())))) + (cons __tmp153763 '())))) (declare (not safe)) - (cons '%#quote __tmp153500))) - (__tmp153498 + (cons '%#quote __tmp153762))) + (__tmp153760 (let () (declare (not safe)) - (cons _value151788_ '())))) + (cons _value152050_ '())))) (declare (not safe)) - (cons __tmp153499 __tmp153498)))) + (cons __tmp153761 __tmp153760)))) (declare (not safe)) - (cons __tmp153502 __tmp153497)))) + (cons __tmp153764 __tmp153759)))) (declare (not safe)) - (cons __tmp153504 __tmp153496)))) + (cons __tmp153766 __tmp153758)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153507 - __tmp153495)))) + (cons __tmp153769 + __tmp153757)))) (declare (not safe)) - (cons '%#call __tmp153494)))) + (cons '%#call __tmp153756)))) (declare (not safe)) - (cons __tmp153493 '())))) + (cons __tmp153755 '())))) (declare (not safe)) - (cons __tmp153509 __tmp153492)))) + (cons __tmp153771 __tmp153754)))) (declare (not safe)) - (cons __tmp153521 __tmp153491)))) + (cons __tmp153783 __tmp153753)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153490)))) + (cons '%#if __tmp153752)))) (declare (not safe)) - (cons __tmp153489 '())))) + (cons __tmp153751 '())))) (declare (not safe)) - (cons __tmp153529 __tmp153488)))) + (cons __tmp153791 __tmp153750)))) (declare (not safe)) - (cons '%#let-values __tmp153487)))) + (cons '%#let-values __tmp153749)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153485 _stx151729_)) - (let ((__tmp153475 - (let ((__tmp153476 - (let ((__tmp153483 - (let ((__tmp153484 + (gxc#xform-wrap-source __tmp153747 _stx151991_)) + (let ((__tmp153737 + (let ((__tmp153738 + (let ((__tmp153745 + (let ((__tmp153746 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153484))) - (__tmp153477 - (let ((__tmp153478 - (let ((__tmp153480 - (let ((__tmp153481 - (let ((__tmp153482 + (cons '%#ref __tmp153746))) + (__tmp153739 + (let ((__tmp153740 + (let ((__tmp153742 + (let ((__tmp153743 + (let ((__tmp153744 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self151728_ + _self151990_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp153482 '())))) + (cons __tmp153744 '())))) (declare (not safe)) - (cons '%#quote __tmp153481))) - (__tmp153479 - (let () (declare (not safe)) (cons _value151788_ '())))) + (cons '%#quote __tmp153743))) + (__tmp153741 + (let () (declare (not safe)) (cons _value152050_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153480 - __tmp153479)))) + (cons __tmp153742 + __tmp153741)))) (declare (not safe)) - (cons _object151786_ - __tmp153478)))) + (cons _object152048_ + __tmp153740)))) (declare (not safe)) - (cons __tmp153483 __tmp153477)))) + (cons __tmp153745 __tmp153739)))) (declare (not safe)) - (cons '%#call __tmp153476)))) + (cons '%#call __tmp153738)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153475 _stx151729_))))))))) + (gxc#xform-wrap-source __tmp153737 _stx151991_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151740151762_ - _hd151737151754_) + _hd152002152024_ + _hd151999152016_) (let () (declare (not safe)) - (_g151732151746_ _g151733151749_))))) + (_g151994152008_ _g151995152011_))))) (let () (declare (not safe)) - (_g151732151746_ _g151733151749_))))) + (_g151994152008_ _g151995152011_))))) (let () (declare (not safe)) - (_g151732151746_ _g151733151749_)))))) + (_g151994152008_ _g151995152011_)))))) (declare (not safe)) - (_g151731151798_ _args151730_)))) + (_g151993152060_ _args151992_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass152606 __method-table152607) - (let ((__id152608 - (let ((__slot152611 + (lambda (__klass152868 __method-table152869) + (let ((__id152870 + (let ((__slot152873 (let () (declare (not safe)) - (class-slot-offset __klass152606 'id)))) - (if __slot152611 - __slot152611 + (class-slot-offset __klass152868 'id)))) + (if __slot152873 + __slot152873 (let () (declare (not safe)) (error '"Unknown slot" 'id))))) - (__checked?152609 - (let ((__slot152612 + (__checked?152871 + (let ((__slot152874 (let () (declare (not safe)) - (class-slot-offset __klass152606 'checked?)))) - (if __slot152612 - __slot152612 + (class-slot-offset __klass152868 'checked?)))) + (if __slot152874 + __slot152874 (let () (declare (not safe)) (error '"Unknown slot" 'checked?))))) - (__slot152610 - (let ((__slot152613 + (__slot152872 + (let ((__slot152875 (let () (declare (not safe)) - (class-slot-offset __klass152606 'slot)))) - (if __slot152613 - __slot152613 + (class-slot-offset __klass152868 'slot)))) + (if __slot152875 + __slot152875 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_self151728_ _stx151729_ _args151730_) - (let* ((_g151732151746_ - (lambda (_g151733151743_) + (lambda (_self151990_ _stx151991_ _args151992_) + (let* ((_g151994152008_ + (lambda (_g151995152005_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151733151743_)))) - (_g151731151798_ - (lambda (_g151733151749_) + _g151995152005_)))) + (_g151993152060_ + (lambda (_g151995152011_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151733151749_)) - (let ((_e151738151751_ + (gx#stx-pair? _g151995152011_)) + (let ((_e152000152013_ (let () (declare (not safe)) - (gx#stx-e _g151733151749_)))) - (let ((_hd151737151754_ + (gx#stx-e _g151995152011_)))) + (let ((_hd151999152016_ (let () (declare (not safe)) - (##car _e151738151751_))) - (_tl151736151756_ + (##car _e152000152013_))) + (_tl151998152018_ (let () (declare (not safe)) - (##cdr _e151738151751_)))) + (##cdr _e152000152013_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl151736151756_)) - (let ((_e151741151759_ + (gx#stx-pair? _tl151998152018_)) + (let ((_e152003152021_ (let () (declare (not safe)) - (gx#stx-e _tl151736151756_)))) - (let ((_hd151740151762_ + (gx#stx-e _tl151998152018_)))) + (let ((_hd152002152024_ (let () (declare (not safe)) - (##car _e151741151759_))) - (_tl151739151764_ + (##car _e152003152021_))) + (_tl152001152026_ (let () (declare (not safe)) - (##cdr _e151741151759_)))) + (##cdr _e152003152021_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151739151764_)) - ((lambda (_L151767_ _L151768_) - (let* ((_klass151782_ - (let ((__tmp153566 + (gx#stx-null? _tl152001152026_)) + ((lambda (_L152029_ _L152030_) + (let* ((_klass152044_ + (let ((__tmp153828 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __id152608 - __klass152606 + _self151990_ + __id152870 + __klass152868 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151729_ - __tmp153566))) - (_field151784_ - (let ((__tmp153567 + _stx151991_ + __tmp153828))) + (_field152046_ + (let ((__tmp153829 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __slot152610 - __klass152606 + _self151990_ + __slot152872 + __klass152868 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151782_ - __tmp153567))) - (_object151786_ + _klass152044_ + __tmp153829))) + (_object152048_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151768_))) - (_value151788_ + _L152030_))) + (_value152050_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151767_)))) + _L152029_)))) (if (##structure-ref - _klass151782_ + _klass152044_ '8 gxc#!class::t '#f) - (let ((__tmp153649 - (let ((__tmp153659 + (let ((__tmp153911 + (let ((__tmp153921 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __checked?152609 - __klass152606 + _self151990_ + __checked?152871 + __klass152868 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp153650 - (let ((__tmp153656 - (let ((__tmp153657 - (let ((__tmp153658 + (__tmp153912 + (let ((__tmp153918 + (let ((__tmp153919 + (let ((__tmp153920 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __id152608 - __klass152606 + _self151990_ + __id152870 + __klass152868 '#f)))) (declare (not safe)) - (cons __tmp153658 '())))) + (cons __tmp153920 '())))) (declare (not safe)) - (cons '%#ref __tmp153657))) - (__tmp153651 - (let ((__tmp153654 - (let ((__tmp153655 + (cons '%#ref __tmp153919))) + (__tmp153913 + (let ((__tmp153916 + (let ((__tmp153917 (let () (declare (not safe)) - (cons _field151784_ '())))) + (cons _field152046_ '())))) (declare (not safe)) - (cons '%#quote __tmp153655))) - (__tmp153652 - (let ((__tmp153653 + (cons '%#quote __tmp153917))) + (__tmp153914 + (let ((__tmp153915 (let () (declare (not safe)) - (cons _value151788_ '())))) + (cons _value152050_ '())))) (declare (not safe)) - (cons _object151786_ __tmp153653)))) + (cons _object152048_ __tmp153915)))) (declare (not safe)) - (cons __tmp153654 __tmp153652)))) + (cons __tmp153916 __tmp153914)))) (declare (not safe)) - (cons __tmp153656 __tmp153651)))) + (cons __tmp153918 __tmp153913)))) (declare (not safe)) - (cons __tmp153659 __tmp153650)))) + (cons __tmp153921 __tmp153912)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153649 - _stx151729_)) + __tmp153911 + _stx151991_)) (if (##structure-ref - _klass151782_ + _klass152044_ '7 gxc#!class::t '#f) - (let ((__tmp153638 - (let ((__tmp153648 + (let ((__tmp153900 + (let ((__tmp153910 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __checked?152609 - __klass152606 + _self151990_ + __checked?152871 + __klass152868 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153639 - (let ((__tmp153645 - (let ((__tmp153646 - (let ((__tmp153647 + (__tmp153901 + (let ((__tmp153907 + (let ((__tmp153908 + (let ((__tmp153909 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __id152608 - __klass152606 + _self151990_ + __id152870 + __klass152868 '#f)))) (declare (not safe)) - (cons __tmp153647 '())))) + (cons __tmp153909 '())))) (declare (not safe)) - (cons '%#ref __tmp153646))) - (__tmp153640 - (let ((__tmp153643 - (let ((__tmp153644 + (cons '%#ref __tmp153908))) + (__tmp153902 + (let ((__tmp153905 + (let ((__tmp153906 (let () (declare (not safe)) - (cons _field151784_ '())))) + (cons _field152046_ '())))) (declare (not safe)) - (cons '%#quote __tmp153644))) - (__tmp153641 - (let ((__tmp153642 + (cons '%#quote __tmp153906))) + (__tmp153903 + (let ((__tmp153904 (let () (declare (not safe)) - (cons _value151788_ '())))) + (cons _value152050_ '())))) (declare (not safe)) - (cons _object151786_ - __tmp153642)))) + (cons _object152048_ + __tmp153904)))) (declare (not safe)) - (cons __tmp153643 __tmp153641)))) + (cons __tmp153905 __tmp153903)))) (declare (not safe)) - (cons __tmp153645 __tmp153640)))) + (cons __tmp153907 __tmp153902)))) (declare (not safe)) - (cons __tmp153648 __tmp153639)))) + (cons __tmp153910 __tmp153901)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153638 _stx151729_)) - (let ((_$e151791_ - (let ((__tmp153568 + (gxc#xform-wrap-source __tmp153900 _stx151991_)) + (let ((_$e152053_ + (let ((__tmp153830 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __slot152610 - __klass152606 + _self151990_ + __slot152872 + __klass152868 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass151782_ - __tmp153568)))) - (if _$e151791_ - ((lambda (_klass151794_) - (let ((__tmp153627 - (let ((__tmp153637 + _klass152044_ + __tmp153830)))) + (if _$e152053_ + ((lambda (_klass152056_) + (let ((__tmp153889 + (let ((__tmp153899 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __checked?152609 - __klass152606 + _self151990_ + __checked?152871 + __klass152868 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153628 - (let ((__tmp153634 - (let ((__tmp153635 - (let ((__tmp153636 + (__tmp153890 + (let ((__tmp153896 + (let ((__tmp153897 + (let ((__tmp153898 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __id152608 - __klass152606 + _self151990_ + __id152870 + __klass152868 '#f)))) (declare (not safe)) - (cons __tmp153636 '())))) + (cons __tmp153898 '())))) (declare (not safe)) - (cons '%#ref __tmp153635))) - (__tmp153629 - (let ((__tmp153632 - (let ((__tmp153633 + (cons '%#ref __tmp153897))) + (__tmp153891 + (let ((__tmp153894 + (let ((__tmp153895 (let () (declare (not safe)) - (cons _field151784_ + (cons _field152046_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp153633))) + (cons '%#quote __tmp153895))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153630 - (let ((__tmp153631 + (__tmp153892 + (let ((__tmp153893 (let () (declare (not safe)) - (cons _value151788_ + (cons _value152050_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object151786_ __tmp153631)))) + (cons _object152048_ __tmp153893)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153632 - __tmp153630)))) + (cons __tmp153894 + __tmp153892)))) (declare (not safe)) - (cons __tmp153634 __tmp153629)))) + (cons __tmp153896 __tmp153891)))) (declare (not safe)) - (cons __tmp153637 __tmp153628)))) + (cons __tmp153899 __tmp153890)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153627 _stx151729_))) - _$e151791_) + (gxc#xform-wrap-source __tmp153889 _stx151991_))) + _$e152053_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __checked?152609 - __klass152606 + _self151990_ + __checked?152871 + __klass152868 '#f)) - (let ((__tmp153579 - (let* ((_$obj151796_ - (let ((__tmp153580 (gensym '__obj))) + (let ((__tmp153841 + (let* ((_$obj152058_ + (let ((__tmp153842 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153580))) - (__tmp153581 - (let ((__tmp153623 - (let ((__tmp153624 - (let ((__tmp153626 + (make-symbol__0 __tmp153842))) + (__tmp153843 + (let ((__tmp153885 + (let ((__tmp153886 + (let ((__tmp153888 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj151796_ '()))) - (__tmp153625 - (let () (declare (not safe)) (cons _object151786_ '())))) + (cons _$obj152058_ '()))) + (__tmp153887 + (let () (declare (not safe)) (cons _object152048_ '())))) (declare (not safe)) - (cons __tmp153626 __tmp153625)))) + (cons __tmp153888 __tmp153887)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153624 '()))) - (__tmp153582 - (let ((__tmp153583 - (let ((__tmp153584 - (let ((__tmp153615 + (cons __tmp153886 '()))) + (__tmp153844 + (let ((__tmp153845 + (let ((__tmp153846 + (let ((__tmp153877 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153616 - (let ((__tmp153620 - (let ((__tmp153621 - (let ((__tmp153622 + (let ((__tmp153878 + (let ((__tmp153882 + (let ((__tmp153883 + (let ((__tmp153884 (##structure-ref - _klass151782_ + _klass152044_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153622 '())))) + (cons __tmp153884 '())))) (declare (not safe)) - (cons '%#quote __tmp153621))) - (__tmp153617 - (let ((__tmp153618 - (let ((__tmp153619 + (cons '%#quote __tmp153883))) + (__tmp153879 + (let ((__tmp153880 + (let ((__tmp153881 (let () (declare (not safe)) - (cons _$obj151796_ + (cons _$obj152058_ '())))) (declare (not safe)) - (cons '%#ref __tmp153619)))) + (cons '%#ref __tmp153881)))) (declare (not safe)) - (cons __tmp153618 '())))) + (cons __tmp153880 '())))) (declare (not safe)) - (cons __tmp153620 __tmp153617)))) + (cons __tmp153882 __tmp153879)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153616))) - (__tmp153585 - (let ((__tmp153603 - (let ((__tmp153604 - (let ((__tmp153612 - (let ((__tmp153613 - (let ((__tmp153614 + (cons '%#struct-direct-instance? __tmp153878))) + (__tmp153847 + (let ((__tmp153865 + (let ((__tmp153866 + (let ((__tmp153874 + (let ((__tmp153875 + (let ((__tmp153876 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __id152608 - __klass152606 + _self151990_ + __id152870 + __klass152868 '#f)))) (declare (not safe)) - (cons __tmp153614 '())))) + (cons __tmp153876 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp153613))) - (__tmp153605 - (let ((__tmp153610 - (let ((__tmp153611 + (cons '%#ref __tmp153875))) + (__tmp153867 + (let ((__tmp153872 + (let ((__tmp153873 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field151784_ '())))) + (cons _field152046_ '())))) (declare (not safe)) - (cons '%#quote __tmp153611))) - (__tmp153606 - (let ((__tmp153608 - (let ((__tmp153609 + (cons '%#quote __tmp153873))) + (__tmp153868 + (let ((__tmp153870 + (let ((__tmp153871 (let () (declare (not safe)) - (cons _$obj151796_ '())))) + (cons _$obj152058_ '())))) (declare (not safe)) - (cons '%#ref __tmp153609))) - (__tmp153607 - (let () (declare (not safe)) (cons _value151788_ '())))) + (cons '%#ref __tmp153871))) + (__tmp153869 + (let () (declare (not safe)) (cons _value152050_ '())))) (declare (not safe)) - (cons __tmp153608 __tmp153607)))) + (cons __tmp153870 __tmp153869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153610 - __tmp153606)))) + (cons __tmp153872 + __tmp153868)))) (declare (not safe)) - (cons __tmp153612 __tmp153605)))) + (cons __tmp153874 __tmp153867)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp153604))) - (__tmp153586 - (let ((__tmp153587 - (let ((__tmp153588 - (let ((__tmp153601 - (let ((__tmp153602 + __tmp153866))) + (__tmp153848 + (let ((__tmp153849 + (let ((__tmp153850 + (let ((__tmp153863 + (let ((__tmp153864 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153602))) - (__tmp153589 - (let ((__tmp153598 - (let ((__tmp153599 - (let ((__tmp153600 + (cons '%#ref __tmp153864))) + (__tmp153851 + (let ((__tmp153860 + (let ((__tmp153861 + (let ((__tmp153862 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __id152608 - __klass152606 + _self151990_ + __id152870 + __klass152868 '#f)))) (declare (not safe)) - (cons __tmp153600 '())))) + (cons __tmp153862 '())))) (declare (not safe)) - (cons '%#ref __tmp153599))) - (__tmp153590 - (let ((__tmp153596 - (let ((__tmp153597 + (cons '%#ref __tmp153861))) + (__tmp153852 + (let ((__tmp153858 + (let ((__tmp153859 (let () (declare (not safe)) - (cons _$obj151796_ '())))) + (cons _$obj152058_ '())))) (declare (not safe)) - (cons '%#ref __tmp153597))) - (__tmp153591 - (let ((__tmp153593 - (let ((__tmp153594 - (let ((__tmp153595 + (cons '%#ref __tmp153859))) + (__tmp153853 + (let ((__tmp153855 + (let ((__tmp153856 + (let ((__tmp153857 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __slot152610 - __klass152606 + _self151990_ + __slot152872 + __klass152868 '#f)))) (declare (not safe)) - (cons __tmp153595 '())))) + (cons __tmp153857 '())))) (declare (not safe)) - (cons '%#quote __tmp153594))) - (__tmp153592 + (cons '%#quote __tmp153856))) + (__tmp153854 (let () (declare (not safe)) - (cons _value151788_ '())))) + (cons _value152050_ '())))) (declare (not safe)) - (cons __tmp153593 __tmp153592)))) + (cons __tmp153855 __tmp153854)))) (declare (not safe)) - (cons __tmp153596 __tmp153591)))) + (cons __tmp153858 __tmp153853)))) (declare (not safe)) - (cons __tmp153598 __tmp153590)))) + (cons __tmp153860 __tmp153852)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153601 - __tmp153589)))) + (cons __tmp153863 + __tmp153851)))) (declare (not safe)) - (cons '%#call __tmp153588)))) + (cons '%#call __tmp153850)))) (declare (not safe)) - (cons __tmp153587 '())))) + (cons __tmp153849 '())))) (declare (not safe)) - (cons __tmp153603 __tmp153586)))) + (cons __tmp153865 __tmp153848)))) (declare (not safe)) - (cons __tmp153615 __tmp153585)))) + (cons __tmp153877 __tmp153847)))) (declare (not safe)) - (cons '%#if __tmp153584)))) + (cons '%#if __tmp153846)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153583 '())))) + (cons __tmp153845 '())))) (declare (not safe)) - (cons __tmp153623 __tmp153582)))) + (cons __tmp153885 __tmp153844)))) (declare (not safe)) - (cons '%#let-values __tmp153581)))) + (cons '%#let-values __tmp153843)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153579 _stx151729_)) - (let ((__tmp153569 - (let ((__tmp153570 - (let ((__tmp153577 - (let ((__tmp153578 + (gxc#xform-wrap-source __tmp153841 _stx151991_)) + (let ((__tmp153831 + (let ((__tmp153832 + (let ((__tmp153839 + (let ((__tmp153840 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153578))) - (__tmp153571 - (let ((__tmp153572 - (let ((__tmp153574 - (let ((__tmp153575 + (cons '%#ref __tmp153840))) + (__tmp153833 + (let ((__tmp153834 + (let ((__tmp153836 + (let ((__tmp153837 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153576 + (let ((__tmp153838 (let () (declare (not safe)) (##unchecked-structure-ref - _self151728_ - __slot152610 - __klass152606 + _self151990_ + __slot152872 + __klass152868 '#f)))) (declare (not safe)) - (cons __tmp153576 '())))) + (cons __tmp153838 '())))) (declare (not safe)) - (cons '%#quote __tmp153575))) - (__tmp153573 - (let () (declare (not safe)) (cons _value151788_ '())))) + (cons '%#quote __tmp153837))) + (__tmp153835 + (let () (declare (not safe)) (cons _value152050_ '())))) (declare (not safe)) - (cons __tmp153574 __tmp153573)))) + (cons __tmp153836 __tmp153835)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object151786_ - __tmp153572)))) + (cons _object152048_ + __tmp153834)))) (declare (not safe)) - (cons __tmp153577 __tmp153571)))) + (cons __tmp153839 __tmp153833)))) (declare (not safe)) - (cons '%#call __tmp153570)))) + (cons '%#call __tmp153832)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153569 - _stx151729_))))))))) + __tmp153831 + _stx151991_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151740151762_ - _hd151737151754_) + _hd152002152024_ + _hd151999152016_) (let () (declare (not safe)) - (_g151732151746_ - _g151733151749_))))) + (_g151994152008_ + _g151995152011_))))) (let () (declare (not safe)) - (_g151732151746_ _g151733151749_))))) + (_g151994152008_ _g151995152011_))))) (let () (declare (not safe)) - (_g151732151746_ _g151733151749_)))))) + (_g151994152008_ _g151995152011_)))))) (declare (not safe)) - (_g151731151798_ _args151730_)))))) + (_g151993152060_ _args151992_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4578,116 +4578,116 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self151562_ _stx151563_ _args151564_) - (let* ((_self151565151574_ _self151562_) - (_E151567151578_ + (lambda (_self151824_ _stx151825_ _args151826_) + (let* ((_self151827151836_ _self151824_) + (_E151829151840_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151565151574_)))) - (_K151568151585_ - (lambda (_inline151581_ _dispatch151582_ _arity151583_) + (error '"No clause matching" _self151827151836_)))) + (_K151830151847_ + (lambda (_inline151843_ _dispatch151844_ _arity151845_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self151562_ _args151564_)) + (gxc#!lambda-arity-match? _self151824_ _args151826_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx151563_ - _arity151583_))) - (if _inline151581_ + _stx151825_ + _arity151845_))) + (if _inline151843_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp153665 - (let ((__tmp153666 - (_inline151581_ _stx151563_))) + (let ((__tmp153927 + (let ((__tmp153928 + (_inline151843_ _stx151825_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153666 - _stx151563_)))) + __tmp153928 + _stx151825_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153665))) - (if _dispatch151582_ + (gxc#compile-e__0 __tmp153927))) + (if _dispatch151844_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch151582_)) - (let ((__tmp153660 - (let ((__tmp153661 - (let ((__tmp153662 - (let ((__tmp153663 - (let ((__tmp153664 + _dispatch151844_)) + (let ((__tmp153922 + (let ((__tmp153923 + (let ((__tmp153924 + (let ((__tmp153925 + (let ((__tmp153926 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch151582_ '())))) + (cons _dispatch151844_ '())))) (declare (not safe)) - (cons '%#ref __tmp153664)))) + (cons '%#ref __tmp153926)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153663 - _args151564_)))) + (cons __tmp153925 + _args151826_)))) (declare (not safe)) - (cons '%#call __tmp153662)))) + (cons '%#call __tmp153924)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153661 - _stx151563_)))) + __tmp153923 + _stx151825_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153660))) + (gxc#compile-e__0 __tmp153922))) (let () (declare (not safe)) - (gxc#xform-call% _stx151563_))))))) + (gxc#xform-call% _stx151825_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self151565151574_ 'gxc#!lambda::t)) - (let* ((_e151569151588_ + (##structure-instance-of? _self151827151836_ 'gxc#!lambda::t)) + (let* ((_e151831151850_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151565151574_ + _self151827151836_ '1 gxc#!type::t '#f))) - (_e151570151591_ + (_e151832151853_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151565151574_ + _self151827151836_ '2 gxc#!lambda::t '#f))) - (_arity151594_ _e151570151591_) - (_e151571151596_ + (_arity151856_ _e151832151853_) + (_e151833151858_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151565151574_ + _self151827151836_ '3 gxc#!lambda::t '#f))) - (_dispatch151599_ _e151571151596_) - (_e151572151601_ + (_dispatch151861_ _e151833151858_) + (_e151834151863_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151565151574_ + _self151827151836_ '4 gxc#!lambda::t '#f))) - (_inline151604_ _e151572151601_)) + (_inline151866_ _e151834151863_)) (declare (not safe)) - (_K151568151585_ - _inline151604_ - _dispatch151599_ - _arity151594_)) - (let () (declare (not safe)) (_E151567151578_)))))) + (_K151830151847_ + _inline151866_ + _dispatch151861_ + _arity151856_)) + (let () (declare (not safe)) (_E151829151840_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4696,76 +4696,76 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self151401_ _stx151402_ _args151403_) - (let* ((_self151404151411_ _self151401_) - (_E151406151415_ + (lambda (_self151663_ _stx151664_ _args151665_) + (let* ((_self151666151673_ _self151663_) + (_E151668151677_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151404151411_)))) - (_K151407151429_ - (lambda (_clauses151418_) - (let ((_$e151424_ - (let ((__tmp153667 - (lambda (_g151419151421_) + (error '"No clause matching" _self151666151673_)))) + (_K151669151691_ + (lambda (_clauses151680_) + (let ((_$e151686_ + (let ((__tmp153929 + (lambda (_g151681151683_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g151419151421_ - _args151403_))))) + _g151681151683_ + _args151665_))))) (declare (not safe)) - (find __tmp153667 _clauses151418_)))) - (if _$e151424_ - ((lambda (_clause151427_) - (let ((__method152882 + (find __tmp153929 _clauses151680_)))) + (if _$e151686_ + ((lambda (_clause151689_) + (let ((__method153144 (let () (declare (not safe)) (method-ref - _clause151427_ + _clause151689_ 'optimize-call)))) - (if __method152882 - (__method152882 - _clause151427_ - _stx151402_ - _args151403_) + (if __method153144 + (__method153144 + _clause151689_ + _stx151664_ + _args151665_) (let () (declare (not safe)) (error '"Missing method" - _clause151427_ + _clause151689_ 'optimize-call))))) - _$e151424_) - (let ((__tmp153668 - (map gxc#!lambda-arity _clauses151418_))) + _$e151686_) + (let ((__tmp153930 + (map gxc#!lambda-arity _clauses151680_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx151402_ - __tmp153668))))))) + _stx151664_ + __tmp153930))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self151404151411_ + _self151666151673_ 'gxc#!case-lambda::t)) - (let* ((_e151408151432_ + (let* ((_e151670151694_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151404151411_ + _self151666151673_ '1 gxc#!type::t '#f))) - (_e151409151435_ + (_e151671151697_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151404151411_ + _self151666151673_ '2 gxc#!case-lambda::t '#f))) - (_clauses151438_ _e151409151435_)) + (_clauses151700_ _e151671151697_)) (declare (not safe)) - (_K151407151429_ _clauses151438_)) - (let () (declare (not safe)) (_E151406151415_)))))) + (_K151669151691_ _clauses151700_)) + (let () (declare (not safe)) (_E151668151677_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4774,493 +4774,493 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self151215_ _args151216_) - (let* ((_self151217151224_ _self151215_) - (_E151219151228_ + (lambda (_self151477_ _args151478_) + (let* ((_self151479151486_ _self151477_) + (_E151481151490_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151217151224_)))) - (_K151220151268_ - (lambda (_arity151231_) - (let* ((_arity151232151241_ _arity151231_) - (_E151235151245_ + (error '"No clause matching" _self151479151486_)))) + (_K151482151530_ + (lambda (_arity151493_) + (let* ((_arity151494151503_ _arity151493_) + (_E151497151507_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arity151232151241_))))) - (let ((_K151239151265_ + _arity151494151503_))))) + (let ((_K151501151527_ (lambda () - (fx= (length _args151216_) _arity151231_))) - (_K151236151251_ - (lambda (_arity151249_) - (fx>= (length _args151216_) _arity151249_)))) - (let ((_try-match151234151261_ + (fx= (length _args151478_) _arity151493_))) + (_K151498151513_ + (lambda (_arity151511_) + (fx>= (length _args151478_) _arity151511_)))) + (let ((_try-match151496151523_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity151232151241_)) - (let ((_tl151238151256_ + (##pair? _arity151494151503_)) + (let ((_tl151500151518_ (let () (declare (not safe)) - (##cdr _arity151232151241_))) - (_hd151237151254_ + (##cdr _arity151494151503_))) + (_hd151499151516_ (let () (declare (not safe)) - (##car _arity151232151241_)))) + (##car _arity151494151503_)))) (if (let () (declare (not safe)) - (##null? _tl151238151256_)) - (let ((_arity151259_ - _hd151237151254_)) + (##null? _tl151500151518_)) + (let ((_arity151521_ + _hd151499151516_)) (declare (not safe)) - (_K151236151251_ _arity151259_)) + (_K151498151513_ _arity151521_)) (let () (declare (not safe)) - (_E151235151245_)))) + (_E151497151507_)))) (let () (declare (not safe)) - (_E151235151245_)))))) + (_E151497151507_)))))) (if (let () (declare (not safe)) - (fixnum? _arity151232151241_)) - (let () (declare (not safe)) (_K151239151265_)) + (fixnum? _arity151494151503_)) + (let () (declare (not safe)) (_K151501151527_)) (let () (declare (not safe)) - (_try-match151234151261_))))))))) + (_try-match151496151523_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self151217151224_ 'gxc#!lambda::t)) - (let* ((_e151221151271_ + (##structure-instance-of? _self151479151486_ 'gxc#!lambda::t)) + (let* ((_e151483151533_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151217151224_ + _self151479151486_ '1 gxc#!type::t '#f))) - (_e151222151274_ + (_e151484151536_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151217151224_ + _self151479151486_ '2 gxc#!lambda::t '#f))) - (_arity151277_ _e151222151274_)) + (_arity151539_ _e151484151536_)) (declare (not safe)) - (_K151220151268_ _arity151277_)) - (let () (declare (not safe)) (_E151219151228_)))))) + (_K151482151530_ _arity151539_)) + (let () (declare (not safe)) (_E151481151490_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self151100_ _stx151101_ _args151102_) - (let* ((_self151103151111_ _self151100_) - (_E151105151115_ + (lambda (_self151362_ _stx151363_ _args151364_) + (let* ((_self151365151373_ _self151362_) + (_E151367151377_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151103151111_)))) - (_K151106151199_ - (lambda (_dispatch151118_ _table151119_) - (let* ((_g151120151129_ + (error '"No clause matching" _self151365151373_)))) + (_K151368151461_ + (lambda (_dispatch151380_ _table151381_) + (let* ((_g151382151391_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch151118_))) - (_else151122151137_ + (gxc#optimizer-lookup-type _dispatch151380_))) + (_else151384151399_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch151118_)) + _dispatch151380_)) (let () (declare (not safe)) - (gxc#xform-call% _stx151101_)))) - (_K151124151183_ - (lambda (_main151140_ _keys151141_) - (let ((_g153669_ + (gxc#xform-call% _stx151363_)))) + (_K151386151445_ + (lambda (_main151402_ _keys151403_) + (let ((_g153931_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx151101_ - _args151102_)))) + _stx151363_ + _args151364_)))) (begin - (let ((_g153670_ + (let ((_g153932_ (let () (declare (not safe)) - (if (##values? _g153669_) - (##vector-length _g153669_) + (if (##values? _g153931_) + (##vector-length _g153931_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153670_ 2))) + (##fx= _g153932_ 2))) (error "Context expects 2 values" - _g153670_))) - (let ((_pargs151143_ + _g153932_))) + (let ((_pargs151405_ (let () (declare (not safe)) - (##vector-ref _g153669_ 0))) - (_kwargs151144_ + (##vector-ref _g153931_ 0))) + (_kwargs151406_ (let () (declare (not safe)) - (##vector-ref _g153669_ 1)))) + (##vector-ref _g153931_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main151140_)) - (if _table151119_ - (let ((_xargs151151_ - (map (lambda (_key151146_) - (let ((_$e151148_ + _main151402_)) + (if _table151381_ + (let ((_xargs151413_ + (map (lambda (_key151408_) + (let ((_$e151410_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key151146_ _kwargs151144_)))) - (if _$e151148_ (values _$e151148_) '(%#ref absent-value)))) + (assgetq__0 _key151408_ _kwargs151406_)))) + (if _$e151410_ (values _$e151410_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys151141_))) + _keys151403_))) (for-each - (lambda (_kw151153_) - (if (memq (car _kw151153_) - _keys151141_) + (lambda (_kw151415_) + (if (memq (car _kw151415_) + _keys151403_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx151101_ - _keys151141_ - _kw151153_)))) - _kwargs151144_) - (let ((__tmp153722 - (let ((__tmp153723 - (let ((__tmp153724 - (let ((__tmp153729 + _stx151363_ + _keys151403_ + _kw151415_)))) + _kwargs151406_) + (let ((__tmp153984 + (let ((__tmp153985 + (let ((__tmp153986 + (let ((__tmp153991 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153730 + (let ((__tmp153992 (let () (declare (not safe)) - (cons _main151140_ '())))) + (cons _main151402_ '())))) (declare (not safe)) - (cons '%#ref __tmp153730))) - (__tmp153725 - (let ((__tmp153727 - (let ((__tmp153728 + (cons '%#ref __tmp153992))) + (__tmp153987 + (let ((__tmp153989 + (let ((__tmp153990 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp153728))) - (__tmp153726 + (cons '%#quote __tmp153990))) + (__tmp153988 (let () (declare (not safe)) (foldr1 cons - _pargs151143_ - _xargs151151_)))) + _pargs151405_ + _xargs151413_)))) (declare (not safe)) - (cons __tmp153727 __tmp153726)))) + (cons __tmp153989 __tmp153988)))) (declare (not safe)) - (cons __tmp153729 __tmp153725)))) + (cons __tmp153991 __tmp153987)))) (declare (not safe)) - (cons '%#call __tmp153724)))) + (cons '%#call __tmp153986)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153723 - _stx151101_)))) + __tmp153985 + _stx151363_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153722))) - (let* ((_kwt151155_ - (let ((__tmp153671 + (gxc#compile-e__0 __tmp153984))) + (let* ((_kwt151417_ + (let ((__tmp153933 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp153671))) - (_kwvars151158_ - (map (lambda (_g153672_) - (let ((__tmp153673 + __tmp153933))) + (_kwvars151420_ + (map (lambda (_g153934_) + (let ((__tmp153935 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp153673))) - _kwargs151144_)) - (_kwbind151163_ - (map (lambda (_kw151160_ - _kwvar151161_) - (let ((__tmp153676 + __tmp153935))) + _kwargs151406_)) + (_kwbind151425_ + (map (lambda (_kw151422_ + _kwvar151423_) + (let ((__tmp153938 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar151161_ '()))) - (__tmp153674 - (let ((__tmp153675 (cdr _kw151160_))) + (cons _kwvar151423_ '()))) + (__tmp153936 + (let ((__tmp153937 (cdr _kw151422_))) (declare (not safe)) - (cons __tmp153675 '())))) + (cons __tmp153937 '())))) (declare (not safe)) - (cons __tmp153676 __tmp153674))) + (cons __tmp153938 __tmp153936))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151144_ - _kwvars151158_)) - (_kwset151168_ - (map (lambda (_kw151165_ - _kwvar151166_) - (let ((__tmp153677 - (let ((__tmp153678 + _kwargs151406_ + _kwvars151420_)) + (_kwset151430_ + (map (lambda (_kw151427_ + _kwvar151428_) + (let ((__tmp153939 + (let ((__tmp153940 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153686 - (let ((__tmp153687 + (let ((__tmp153948 + (let ((__tmp153949 (let () (declare (not safe)) - (cons _kwt151155_ '())))) + (cons _kwt151417_ '())))) (declare (not safe)) - (cons '%#ref __tmp153687))) - (__tmp153679 - (let ((__tmp153683 - (let ((__tmp153684 - (let ((__tmp153685 - (car _kw151165_))) + (cons '%#ref __tmp153949))) + (__tmp153941 + (let ((__tmp153945 + (let ((__tmp153946 + (let ((__tmp153947 + (car _kw151427_))) (declare (not safe)) - (cons __tmp153685 '())))) + (cons __tmp153947 '())))) (declare (not safe)) - (cons '%#quote __tmp153684))) - (__tmp153680 - (let ((__tmp153681 - (let ((__tmp153682 + (cons '%#quote __tmp153946))) + (__tmp153942 + (let ((__tmp153943 + (let ((__tmp153944 (let () (declare (not safe)) - (cons _kwvar151166_ + (cons _kwvar151428_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153682)))) + __tmp153944)))) (declare (not safe)) - (cons __tmp153681 '())))) + (cons __tmp153943 '())))) (declare (not safe)) - (cons __tmp153683 __tmp153680)))) + (cons __tmp153945 __tmp153942)))) (declare (not safe)) - (cons __tmp153686 __tmp153679)))) + (cons __tmp153948 __tmp153941)))) (declare (not safe)) - (cons '(%#ref symbolic-table-set!) __tmp153678)))) + (cons '(%#ref symbolic-table-set!) __tmp153940)))) (declare (not safe)) - (cons '%#call __tmp153677))) + (cons '%#call __tmp153939))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151144_ - _kwvars151158_)) - (_xkwargs151173_ - (map (lambda (_kw151170_ - _kwvar151171_) - (let ((__tmp153690 - (car _kw151170_)) - (__tmp153688 - (let ((__tmp153689 + _kwargs151406_ + _kwvars151420_)) + (_xkwargs151435_ + (map (lambda (_kw151432_ + _kwvar151433_) + (let ((__tmp153952 + (car _kw151432_)) + (__tmp153950 + (let ((__tmp153951 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar151171_ '())))) + (cons _kwvar151433_ '())))) (declare (not safe)) - (cons '%#ref __tmp153689)))) + (cons '%#ref __tmp153951)))) (declare (not safe)) - (cons __tmp153690 __tmp153688))) + (cons __tmp153952 __tmp153950))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151144_ - _kwvars151158_)) - (_xargs151180_ - (map (lambda (_key151175_) - (let ((_$e151177_ + _kwargs151406_ + _kwvars151420_)) + (_xargs151442_ + (map (lambda (_key151437_) + (let ((_$e151439_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key151175_ _xkwargs151173_)))) - (if _$e151177_ (values _$e151177_) '(%#ref absent-value)))) + (assgetq__0 _key151437_ _xkwargs151435_)))) + (if _$e151439_ (values _$e151439_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys151141_))) - (let ((__tmp153691 - (let ((__tmp153692 - (let ((__tmp153693 - (let ((__tmp153694 + _keys151403_))) + (let ((__tmp153953 + (let ((__tmp153954 + (let ((__tmp153955 + (let ((__tmp153956 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153695 - (let ((__tmp153696 - (let ((__tmp153710 - (let ((__tmp153711 - (let ((__tmp153721 + (let ((__tmp153957 + (let ((__tmp153958 + (let ((__tmp153972 + (let ((__tmp153973 + (let ((__tmp153983 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt151155_ '()))) - (__tmp153712 - (let ((__tmp153713 - (let ((__tmp153714 - (let ((__tmp153715 - (let ((__tmp153716 - (let ((__tmp153718 - (let ((__tmp153719 + (let () (declare (not safe)) (cons _kwt151417_ '()))) + (__tmp153974 + (let ((__tmp153975 + (let ((__tmp153976 + (let ((__tmp153977 + (let ((__tmp153978 + (let ((__tmp153980 + (let ((__tmp153981 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153720 (length _kwargs151144_))) + (let ((__tmp153982 (length _kwargs151406_))) (declare (not safe)) - (cons __tmp153720 '())))) + (cons __tmp153982 '())))) (declare (not safe)) - (cons '%#quote __tmp153719))) - (__tmp153717 + (cons '%#quote __tmp153981))) + (__tmp153979 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp153718 __tmp153717)))) + (cons __tmp153980 __tmp153979)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(%#ref make-symbolic-table) - __tmp153716)))) + __tmp153978)))) (declare (not safe)) - (cons '%#call __tmp153715)))) + (cons '%#call __tmp153977)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153714 - _stx151101_)))) + __tmp153976 + _stx151363_)))) (declare (not safe)) - (cons __tmp153713 '())))) + (cons __tmp153975 '())))) (declare (not safe)) - (cons __tmp153721 __tmp153712)))) + (cons __tmp153983 __tmp153974)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153711 '()))) - (__tmp153697 - (let ((__tmp153698 - (let ((__tmp153699 + (cons __tmp153973 '()))) + (__tmp153959 + (let ((__tmp153960 + (let ((__tmp153961 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153700 - (let ((__tmp153701 - (let ((__tmp153702 - (let ((__tmp153703 - (let ((__tmp153708 - (let ((__tmp153709 + (let ((__tmp153962 + (let ((__tmp153963 + (let ((__tmp153964 + (let ((__tmp153965 + (let ((__tmp153970 + (let ((__tmp153971 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main151140_ '())))) + (cons _main151402_ '())))) (declare (not safe)) - (cons '%#ref __tmp153709))) - (__tmp153704 - (let ((__tmp153706 - (let ((__tmp153707 + (cons '%#ref __tmp153971))) + (__tmp153966 + (let ((__tmp153968 + (let ((__tmp153969 (let () (declare (not safe)) - (cons _kwt151155_ '())))) + (cons _kwt151417_ '())))) (declare (not safe)) - (cons '%#ref __tmp153707))) - (__tmp153705 + (cons '%#ref __tmp153969))) + (__tmp153967 (let () (declare (not safe)) - (foldr1 cons _pargs151143_ _xargs151180_)))) + (foldr1 cons _pargs151405_ _xargs151442_)))) (declare (not safe)) - (cons __tmp153706 __tmp153705)))) + (cons __tmp153968 __tmp153967)))) (declare (not safe)) - (cons __tmp153708 __tmp153704)))) + (cons __tmp153970 __tmp153966)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp153703)))) + (cons '%#call __tmp153965)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153702 - _stx151101_)))) + __tmp153964 + _stx151363_)))) (declare (not safe)) - (cons __tmp153701 '())))) + (cons __tmp153963 '())))) (declare (not safe)) - (foldr1 cons __tmp153700 _kwset151168_)))) + (foldr1 cons __tmp153962 _kwset151430_)))) (declare (not safe)) - (cons '%#begin __tmp153699)))) + (cons '%#begin __tmp153961)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153698 '())))) + (cons __tmp153960 '())))) (declare (not safe)) - (cons __tmp153710 __tmp153697)))) + (cons __tmp153972 __tmp153959)))) (declare (not safe)) - (cons '%#let-values __tmp153696)))) + (cons '%#let-values __tmp153958)))) (declare (not safe)) - (cons __tmp153695 '())))) + (cons __tmp153957 '())))) (declare (not safe)) - (cons _kwbind151163_ __tmp153694)))) + (cons _kwbind151425_ __tmp153956)))) (declare (not safe)) - (cons '%#let-values __tmp153693)))) + (cons '%#let-values __tmp153955)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153692 - _stx151101_)))) + __tmp153954 + _stx151363_)))) (declare (not safe)) (gxc#compile-e__0 - __tmp153691))))))))))) + __tmp153953))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g151120151129_ + _g151382151391_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e151125151186_ + (let* ((_e151387151448_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151120151129_ + _g151382151391_ '1 gxc#!type::t '#f))) - (_e151126151189_ + (_e151388151451_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151120151129_ + _g151382151391_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys151192_ _e151126151189_) - (_e151127151194_ + (_keys151454_ _e151388151451_) + (_e151389151456_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151120151129_ + _g151382151391_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main151197_ _e151127151194_)) + (_main151459_ _e151389151456_)) (declare (not safe)) - (_K151124151183_ _main151197_ _keys151192_)) - (let () (declare (not safe)) (_else151122151137_))))))) + (_K151386151445_ _main151459_ _keys151454_)) + (let () (declare (not safe)) (_else151384151399_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self151103151111_ + _self151365151373_ 'gxc#!kw-lambda::t)) - (let* ((_e151107151202_ + (let* ((_e151369151464_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151103151111_ + _self151365151373_ '1 gxc#!type::t '#f))) - (_e151108151205_ + (_e151370151467_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151103151111_ + _self151365151373_ '2 gxc#!kw-lambda::t '#f))) - (_table151208_ _e151108151205_) - (_e151109151210_ + (_table151470_ _e151370151467_) + (_e151371151472_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151103151111_ + _self151365151373_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch151213_ _e151109151210_)) + (_dispatch151475_ _e151371151472_)) (declare (not safe)) - (_K151106151199_ _dispatch151213_ _table151208_)) - (let () (declare (not safe)) (_E151105151115_)))))) + (_K151368151461_ _dispatch151475_ _table151470_)) + (let () (declare (not safe)) (_E151367151377_)))))) (let () (declare (not safe)) (bind-method!__% @@ -5269,300 +5269,300 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx150713_ _args150714_) - (let _lp150716_ ((_rest150718_ _args150714_) - (_pargs150719_ '()) - (_kwargs150720_ '())) - (let* ((___stx152764152765_ _rest150718_) - (_g150726150778_ + (lambda (_stx150975_ _args150976_) + (let _lp150978_ ((_rest150980_ _args150976_) + (_pargs150981_ '()) + (_kwargs150982_ '())) + (let* ((___stx153026153027_ _rest150980_) + (_g150988151040_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152764152765_))))) - (let ((___kont152766152767_ - (lambda (_L150957_ _L150958_) - (let ((__tmp153731 + ___stx153026153027_))))) + (let ((___kont153028153029_ + (lambda (_L151219_ _L151220_) + (let ((__tmp153993 (let () (declare (not safe)) - (cons _L150958_ _pargs150719_)))) + (cons _L151220_ _pargs150981_)))) (declare (not safe)) - (_lp150716_ _L150957_ __tmp153731 _kwargs150720_)))) - (___kont152768152769_ - (lambda (_L150903_) + (_lp150978_ _L151219_ __tmp153993 _kwargs150982_)))) + (___kont153030153031_ + (lambda (_L151165_) (values (let () (declare (not safe)) - (foldl1 cons _L150903_ _pargs150719_)) - (reverse _kwargs150720_)))) - (___kont152770152771_ - (lambda (_L150850_ _L150851_ _L150852_) - (let ((_kw150869_ + (foldl1 cons _L151165_ _pargs150981_)) + (reverse _kwargs150982_)))) + (___kont153032153033_ + (lambda (_L151112_ _L151113_ _L151114_) + (let ((_kw151131_ (let () (declare (not safe)) - (gx#stx-e _L150852_)))) - (if (assq _kw150869_ _kwargs150720_) + (gx#stx-e _L151114_)))) + (if (assq _kw151131_ _kwargs150982_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx150713_ - _kw150869_)) - (let ((__tmp153732 - (let ((__tmp153733 + _stx150975_ + _kw151131_)) + (let ((__tmp153994 + (let ((__tmp153995 (let () (declare (not safe)) - (cons _kw150869_ _L150851_)))) + (cons _kw151131_ _L151113_)))) (declare (not safe)) - (cons __tmp153733 _kwargs150720_)))) + (cons __tmp153995 _kwargs150982_)))) (declare (not safe)) - (_lp150716_ - _L150850_ - _pargs150719_ - __tmp153732)))))) - (___kont152772152773_ - (lambda (_L150798_ _L150799_) - (let ((__tmp153734 + (_lp150978_ + _L151112_ + _pargs150981_ + __tmp153994)))))) + (___kont153034153035_ + (lambda (_L151060_ _L151061_) + (let ((__tmp153996 (let () (declare (not safe)) - (cons _L150799_ _pargs150719_)))) + (cons _L151061_ _pargs150981_)))) (declare (not safe)) - (_lp150716_ _L150798_ __tmp153734 _kwargs150720_)))) - (___kont152774152775_ + (_lp150978_ _L151060_ __tmp153996 _kwargs150982_)))) + (___kont153036153037_ (lambda () - (values (reverse _pargs150719_) - (reverse _kwargs150720_))))) - (let* ((_g150725150785_ + (values (reverse _pargs150981_) + (reverse _kwargs150982_))))) + (let* ((_g150987151047_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx152764152765_)) - (___kont152774152775_) - (let () (declare (not safe)) (_g150726150778_))))) - (___match152871152872_ - (lambda (_e150759150818_ - _hd150758150821_ - _tl150757150823_ - _e150762150826_ - _hd150761150829_ - _tl150760150831_ - _e150765150834_ - _hd150764150837_ - _tl150763150839_ - _e150768150842_ - _hd150767150845_ - _tl150766150847_) - (let ((_L150850_ _tl150766150847_) - (_L150851_ _hd150767150845_) - (_L150852_ _hd150764150837_)) + (gx#stx-null? ___stx153026153027_)) + (___kont153036153037_) + (let () (declare (not safe)) (_g150988151040_))))) + (___match153133153134_ + (lambda (_e151021151080_ + _hd151020151083_ + _tl151019151085_ + _e151024151088_ + _hd151023151091_ + _tl151022151093_ + _e151027151096_ + _hd151026151099_ + _tl151025151101_ + _e151030151104_ + _hd151029151107_ + _tl151028151109_) + (let ((_L151112_ _tl151028151109_) + (_L151113_ _hd151029151107_) + (_L151114_ _hd151026151099_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L150852_)) - (___kont152770152771_ - _L150850_ - _L150851_ - _L150852_) - (___kont152772152773_ - _tl150757150823_ - _hd150758150821_)))))) + (gx#stx-keyword? _L151114_)) + (___kont153032153033_ + _L151112_ + _L151113_ + _L151114_) + (___kont153034153035_ + _tl151019151085_ + _hd151020151083_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152764152765_)) - (let ((_e150732150922_ + (gx#stx-pair? ___stx153026153027_)) + (let ((_e150994151184_ (let () (declare (not safe)) - (gx#stx-e ___stx152764152765_)))) - (let ((_tl150730150927_ + (gx#stx-e ___stx153026153027_)))) + (let ((_tl150992151189_ (let () (declare (not safe)) - (##cdr _e150732150922_))) - (_hd150731150925_ + (##cdr _e150994151184_))) + (_hd150993151187_ (let () (declare (not safe)) - (##car _e150732150922_)))) + (##car _e150994151184_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd150731150925_)) - (let ((_e150735150930_ + (gx#stx-pair? _hd150993151187_)) + (let ((_e150997151192_ (let () (declare (not safe)) - (gx#stx-e _hd150731150925_)))) - (let ((_tl150733150935_ + (gx#stx-e _hd150993151187_)))) + (let ((_tl150995151197_ (let () (declare (not safe)) - (##cdr _e150735150930_))) - (_hd150734150933_ + (##cdr _e150997151192_))) + (_hd150996151195_ (let () (declare (not safe)) - (##car _e150735150930_)))) + (##car _e150997151192_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd150734150933_)) + (gx#identifier? _hd150996151195_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd150734150933_)) + _hd150996151195_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150733150935_)) - (let ((_e150738150938_ + (gx#stx-pair? _tl150995151197_)) + (let ((_e151000151200_ (let () (declare (not safe)) (gx#stx-e - _tl150733150935_)))) - (let ((_tl150736150943_ + _tl150995151197_)))) + (let ((_tl150998151205_ (let () (declare (not safe)) - (##cdr _e150738150938_))) - (_hd150737150941_ + (##cdr _e151000151200_))) + (_hd150999151203_ (let () (declare (not safe)) - (##car _e150738150938_)))) + (##car _e151000151200_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd150737150941_)) - (let ((_e150739150946_ + _hd150999151203_)) + (let ((_e151001151208_ (let () (declare (not safe)) (gx#stx-e - _hd150737150941_)))) + _hd150999151203_)))) (if (let () (declare (not safe)) - (equal? _e150739150946_ + (equal? _e151001151208_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150736150943_)) + (gx#stx-null? _tl150998151205_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150730150927_)) - (let ((_e150742150949_ + (gx#stx-pair? _tl150992151189_)) + (let ((_e151004151211_ (let () (declare (not safe)) - (gx#stx-e _tl150730150927_)))) - (let ((_tl150740150954_ + (gx#stx-e _tl150992151189_)))) + (let ((_tl151002151216_ (let () (declare (not safe)) - (##cdr _e150742150949_))) - (_hd150741150952_ + (##cdr _e151004151211_))) + (_hd151003151214_ (let () (declare (not safe)) - (##car _e150742150949_)))) - (___kont152766152767_ - _tl150740150954_ - _hd150741150952_))) - (___kont152772152773_ - _tl150730150927_ - _hd150731150925_)) - (___kont152772152773_ _tl150730150927_ _hd150731150925_)) + (##car _e151004151211_)))) + (___kont153028153029_ + _tl151002151216_ + _hd151003151214_))) + (___kont153034153035_ + _tl150992151189_ + _hd150993151187_)) + (___kont153034153035_ _tl150992151189_ _hd150993151187_)) (if (let () (declare (not safe)) - (equal? _e150739150946_ '#!rest)) + (equal? _e151001151208_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150736150943_)) - (___kont152768152769_ _tl150730150927_) - (___kont152772152773_ - _tl150730150927_ - _hd150731150925_)) + (gx#stx-null? _tl150998151205_)) + (___kont153030153031_ _tl150992151189_) + (___kont153034153035_ + _tl150992151189_ + _hd150993151187_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150736150943_)) + (gx#stx-null? _tl150998151205_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150730150927_)) - (let ((_e150768150842_ + (gx#stx-pair? _tl150992151189_)) + (let ((_e151030151104_ (let () (declare (not safe)) - (gx#stx-e _tl150730150927_)))) - (let ((_tl150766150847_ + (gx#stx-e _tl150992151189_)))) + (let ((_tl151028151109_ (let () (declare (not safe)) - (##cdr _e150768150842_))) - (_hd150767150845_ + (##cdr _e151030151104_))) + (_hd151029151107_ (let () (declare (not safe)) - (##car _e150768150842_)))) - (___match152871152872_ - _e150732150922_ - _hd150731150925_ - _tl150730150927_ - _e150735150930_ - _hd150734150933_ - _tl150733150935_ - _e150738150938_ - _hd150737150941_ - _tl150736150943_ - _e150768150842_ - _hd150767150845_ - _tl150766150847_))) - (___kont152772152773_ - _tl150730150927_ - _hd150731150925_)) - (___kont152772152773_ - _tl150730150927_ - _hd150731150925_))))) + (##car _e151030151104_)))) + (___match153133153134_ + _e150994151184_ + _hd150993151187_ + _tl150992151189_ + _e150997151192_ + _hd150996151195_ + _tl150995151197_ + _e151000151200_ + _hd150999151203_ + _tl150998151205_ + _e151030151104_ + _hd151029151107_ + _tl151028151109_))) + (___kont153034153035_ + _tl150992151189_ + _hd150993151187_)) + (___kont153034153035_ + _tl150992151189_ + _hd150993151187_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl150736150943_)) + _tl150998151205_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl150730150927_)) - (let ((_e150768150842_ + _tl150992151189_)) + (let ((_e151030151104_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl150730150927_)))) - (let ((_tl150766150847_ + (gx#stx-e _tl150992151189_)))) + (let ((_tl151028151109_ (let () (declare (not safe)) - (##cdr _e150768150842_))) - (_hd150767150845_ + (##cdr _e151030151104_))) + (_hd151029151107_ (let () (declare (not safe)) - (##car _e150768150842_)))) - (___match152871152872_ - _e150732150922_ - _hd150731150925_ - _tl150730150927_ - _e150735150930_ - _hd150734150933_ - _tl150733150935_ - _e150738150938_ - _hd150737150941_ - _tl150736150943_ - _e150768150842_ - _hd150767150845_ - _tl150766150847_))) - (___kont152772152773_ _tl150730150927_ _hd150731150925_)) - (___kont152772152773_ _tl150730150927_ _hd150731150925_))))) + (##car _e151030151104_)))) + (___match153133153134_ + _e150994151184_ + _hd150993151187_ + _tl150992151189_ + _e150997151192_ + _hd150996151195_ + _tl150995151197_ + _e151000151200_ + _hd150999151203_ + _tl150998151205_ + _e151030151104_ + _hd151029151107_ + _tl151028151109_))) + (___kont153034153035_ _tl150992151189_ _hd150993151187_)) + (___kont153034153035_ _tl150992151189_ _hd150993151187_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152772152773_ - _tl150730150927_ - _hd150731150925_)) - (___kont152772152773_ - _tl150730150927_ - _hd150731150925_)) - (___kont152772152773_ - _tl150730150927_ - _hd150731150925_)))) - (___kont152772152773_ - _tl150730150927_ - _hd150731150925_)))) - (let () (declare (not safe)) (_g150725150785_))))))))) + (___kont153034153035_ + _tl150992151189_ + _hd150993151187_)) + (___kont153034153035_ + _tl150992151189_ + _hd150993151187_)) + (___kont153034153035_ + _tl150992151189_ + _hd150993151187_)))) + (___kont153034153035_ + _tl150992151189_ + _hd150993151187_)))) + (let () (declare (not safe)) (_g150987151047_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self150709_ _stx150710_ _args150711_) - (let () (declare (not safe)) (gxc#xform-call% _stx150710_)))) + (lambda (_self150971_ _stx150972_ _args150973_) + (let () (declare (not safe)) (gxc#xform-call% _stx150972_)))) (let () (declare (not safe)) (bind-method!__% diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index 00eeb898..439687b6 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm @@ -1,234 +1,234 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1709375800) + (define gerbil/compiler/optimize-spec::timestamp 1709457371) (begin (define gxc#&generate-method-specializers (make-promise (lambda () - (let ((_tbl134179_ + (let ((_tbl134441_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135307 (force gxc#&identity))) + (let ((__tmp135569 (force gxc#&identity))) (declare (not safe)) - (hash-merge! _tbl134179_ __tmp135307)) + (hash-merge! _tbl134441_ __tmp135569)) (let () (declare (not safe)) - (hash-put! _tbl134179_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl134441_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl134179_ '%#begin-syntax gxc#xform-begin-syntax%)) + (hash-put! _tbl134441_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl134179_ '%#module gxc#xform-module%)) + (hash-put! _tbl134441_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (hash-put! - _tbl134179_ + _tbl134441_ '%#define-values gxc#generate-method-specializers-define-values%)) - _tbl134179_)))) + _tbl134441_)))) (define gxc#apply-generate-method-specializers - (lambda (_stx134162_ . _args134164_) - (let ((__tmp135309 + (lambda (_stx134424_ . _args134426_) + (let ((__tmp135571 (lambda () (declare (not safe)) - (if (null? _args134164_) - (gxc#compile-e__0 _stx134162_) - (let ((_arg1134169_ (car _args134164_)) - (_rest134171_ (cdr _args134164_))) - (if (null? _rest134171_) - (gxc#compile-e__1 _stx134162_ _arg1134169_) - (let ((_arg2134174_ (car _rest134171_)) - (_rest134176_ (cdr _rest134171_))) - (if (null? _rest134176_) + (if (null? _args134426_) + (gxc#compile-e__0 _stx134424_) + (let ((_arg1134431_ (car _args134426_)) + (_rest134433_ (cdr _args134426_))) + (if (null? _rest134433_) + (gxc#compile-e__1 _stx134424_ _arg1134431_) + (let ((_arg2134436_ (car _rest134433_)) + (_rest134438_ (cdr _rest134433_))) + (if (null? _rest134438_) (gxc#compile-e__2 - _stx134162_ - _arg1134169_ - _arg2134174_) + _stx134424_ + _arg1134431_ + _arg2134436_) (apply gxc#compile-e - _stx134162_ - _arg1134169_ - _arg2134174_ - _rest134176_)))))))) - (__tmp135308 (force gxc#&generate-method-specializers))) + _stx134424_ + _arg1134431_ + _arg2134436_ + _rest134438_)))))))) + (__tmp135570 (force gxc#&generate-method-specializers))) (declare (not safe)) (call-with-parameters - __tmp135309 + __tmp135571 gxc#current-compile-methods - __tmp135308)))) + __tmp135570)))) (define gxc#&collect-object-refs (make-promise (lambda () - (let ((_tbl134159_ + (let ((_tbl134421_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135310 (force gxc#&void))) + (let ((__tmp135572 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl134159_ __tmp135310)) + (hash-merge! _tbl134421_ __tmp135572)) (let () (declare (not safe)) - (hash-put! _tbl134159_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl134421_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (hash-put! - _tbl134159_ + _tbl134421_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl134159_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl134421_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl134159_ + _tbl134421_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl134159_ + _tbl134421_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl134159_ + _tbl134421_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl134159_ - '%#letrec-values* + _tbl134421_ + '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl134159_ '%#call gxc#collect-object-refs-call%)) + (hash-put! _tbl134421_ '%#call gxc#collect-object-refs-call%)) (let () (declare (not safe)) - (hash-put! _tbl134159_ '%#if gxc#collect-operands)) + (hash-put! _tbl134421_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134159_ '%#set! gxc#collect-body-setq%)) + (hash-put! _tbl134421_ '%#set! gxc#collect-body-setq%)) (let () (declare (not safe)) - (hash-put! _tbl134159_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl134421_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134159_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl134421_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134159_ '%#struct-direct-ref gxc#collect-operands)) + (hash-put! _tbl134421_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134159_ + _tbl134421_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134159_ + _tbl134421_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134159_ + _tbl134421_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl134159_)))) + _tbl134421_)))) (define gxc#apply-collect-object-refs - (lambda (_stx134142_ . _args134144_) - (let ((__tmp135312 + (lambda (_stx134404_ . _args134406_) + (let ((__tmp135574 (lambda () (declare (not safe)) - (if (null? _args134144_) - (gxc#compile-e__0 _stx134142_) - (let ((_arg1134149_ (car _args134144_)) - (_rest134151_ (cdr _args134144_))) - (if (null? _rest134151_) - (gxc#compile-e__1 _stx134142_ _arg1134149_) - (let ((_arg2134154_ (car _rest134151_)) - (_rest134156_ (cdr _rest134151_))) - (if (null? _rest134156_) + (if (null? _args134406_) + (gxc#compile-e__0 _stx134404_) + (let ((_arg1134411_ (car _args134406_)) + (_rest134413_ (cdr _args134406_))) + (if (null? _rest134413_) + (gxc#compile-e__1 _stx134404_ _arg1134411_) + (let ((_arg2134416_ (car _rest134413_)) + (_rest134418_ (cdr _rest134413_))) + (if (null? _rest134418_) (gxc#compile-e__2 - _stx134142_ - _arg1134149_ - _arg2134154_) + _stx134404_ + _arg1134411_ + _arg2134416_) (apply gxc#compile-e - _stx134142_ - _arg1134149_ - _arg2134154_ - _rest134156_)))))))) - (__tmp135311 (force gxc#&collect-object-refs))) + _stx134404_ + _arg1134411_ + _arg2134416_ + _rest134418_)))))))) + (__tmp135573 (force gxc#&collect-object-refs))) (declare (not safe)) (call-with-parameters - __tmp135312 + __tmp135574 gxc#current-compile-methods - __tmp135311)))) + __tmp135573)))) (define gxc#&subst-object-refs (make-promise (lambda () - (let ((_tbl134139_ + (let ((_tbl134401_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135313 (force gxc#&basic-xform-expression))) + (let ((__tmp135575 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl134139_ __tmp135313)) + (hash-merge! _tbl134401_ __tmp135575)) (let () (declare (not safe)) - (hash-put! _tbl134139_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl134401_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl134139_ '%#call gxc#subst-object-refs-call%)) - _tbl134139_)))) + (hash-put! _tbl134401_ '%#call gxc#subst-object-refs-call%)) + _tbl134401_)))) (define gxc#apply-subst-object-refs - (lambda (_stx134122_ . _args134124_) - (let ((__tmp135315 + (lambda (_stx134384_ . _args134386_) + (let ((__tmp135577 (lambda () (declare (not safe)) - (if (null? _args134124_) - (gxc#compile-e__0 _stx134122_) - (let ((_arg1134129_ (car _args134124_)) - (_rest134131_ (cdr _args134124_))) - (if (null? _rest134131_) - (gxc#compile-e__1 _stx134122_ _arg1134129_) - (let ((_arg2134134_ (car _rest134131_)) - (_rest134136_ (cdr _rest134131_))) - (if (null? _rest134136_) + (if (null? _args134386_) + (gxc#compile-e__0 _stx134384_) + (let ((_arg1134391_ (car _args134386_)) + (_rest134393_ (cdr _args134386_))) + (if (null? _rest134393_) + (gxc#compile-e__1 _stx134384_ _arg1134391_) + (let ((_arg2134396_ (car _rest134393_)) + (_rest134398_ (cdr _rest134393_))) + (if (null? _rest134398_) (gxc#compile-e__2 - _stx134122_ - _arg1134129_ - _arg2134134_) + _stx134384_ + _arg1134391_ + _arg2134396_) (apply gxc#compile-e - _stx134122_ - _arg1134129_ - _arg2134134_ - _rest134136_)))))))) - (__tmp135314 (force gxc#&subst-object-refs))) + _stx134384_ + _arg1134391_ + _arg2134396_ + _rest134398_)))))))) + (__tmp135576 (force gxc#&subst-object-refs))) (declare (not safe)) (call-with-parameters - __tmp135315 + __tmp135577 gxc#current-compile-methods - __tmp135314)))) + __tmp135576)))) (define gxc#generate-method-specializers-define-values% - (lambda (_stx131334_) - (letrec ((_generate-method-bind131336_ - (lambda (_$klass134115_ - _$method-table134116_ - _id134117_ - _$id134118_) - (let ((_$tmp134120_ - (let ((__tmp135316 (gensym '__method))) + (lambda (_stx131596_) + (letrec ((_generate-method-bind131598_ + (lambda (_$klass134377_ + _$method-table134378_ + _id134379_ + _$id134380_) + (let ((_$tmp134382_ + (let ((__tmp135578 (gensym '__method))) (declare (not safe)) - (make-symbol__0 __tmp135316)))) - (let ((__tmp135364 + (make-symbol__0 __tmp135578)))) + (let ((__tmp135626 (let () (declare (not safe)) - (cons _$id134118_ '()))) - (__tmp135317 - (let ((__tmp135318 - (let ((__tmp135319 - (let ((__tmp135362 - (let ((__tmp135363 + (cons _$id134380_ '()))) + (__tmp135579 + (let ((__tmp135580 + (let ((__tmp135581 + (let ((__tmp135624 + (let ((__tmp135625 (let () (declare (not safe)) (cons 'make-promise @@ -236,816 +236,816 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp135363))) - (__tmp135320 - (let ((__tmp135321 - (let ((__tmp135322 - (let ((__tmp135323 + (cons '%#ref __tmp135625))) + (__tmp135582 + (let ((__tmp135583 + (let ((__tmp135584 + (let ((__tmp135585 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135324 - (let ((__tmp135325 - (let ((__tmp135345 - (let ((__tmp135346 - (let ((__tmp135361 + (let ((__tmp135586 + (let ((__tmp135587 + (let ((__tmp135607 + (let ((__tmp135608 + (let ((__tmp135623 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp134120_ '()))) - (__tmp135347 - (let ((__tmp135348 - (let ((__tmp135349 - (let ((__tmp135359 - (let ((__tmp135360 + (cons _$tmp134382_ '()))) + (__tmp135609 + (let ((__tmp135610 + (let ((__tmp135611 + (let ((__tmp135621 + (let ((__tmp135622 (let () (declare (not safe)) (cons 'symbolic-table-ref '())))) (declare (not safe)) - (cons '%#ref __tmp135360))) - (__tmp135350 - (let ((__tmp135357 - (let ((__tmp135358 + (cons '%#ref __tmp135622))) + (__tmp135612 + (let ((__tmp135619 + (let ((__tmp135620 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$method-table134116_ '())))) + (cons _$method-table134378_ '())))) (declare (not safe)) - (cons '%#ref __tmp135358))) + (cons '%#ref __tmp135620))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135351 - (let ((__tmp135355 - (let ((__tmp135356 + (__tmp135613 + (let ((__tmp135617 + (let ((__tmp135618 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id134117_ '())))) + (cons _id134379_ '())))) (declare (not safe)) - (cons '%#quote __tmp135356))) - (__tmp135352 - (let ((__tmp135353 - (let ((__tmp135354 + (cons '%#quote __tmp135618))) + (__tmp135614 + (let ((__tmp135615 + (let ((__tmp135616 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp135354)))) + (cons '%#quote __tmp135616)))) (declare (not safe)) - (cons __tmp135353 '())))) + (cons __tmp135615 '())))) (declare (not safe)) - (cons __tmp135355 __tmp135352)))) + (cons __tmp135617 __tmp135614)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135357 - __tmp135351)))) + (cons __tmp135619 + __tmp135613)))) (declare (not safe)) - (cons __tmp135359 __tmp135350)))) + (cons __tmp135621 __tmp135612)))) (declare (not safe)) - (cons '%#call __tmp135349)))) + (cons '%#call __tmp135611)))) (declare (not safe)) - (cons __tmp135348 '())))) + (cons __tmp135610 '())))) (declare (not safe)) - (cons __tmp135361 __tmp135347)))) + (cons __tmp135623 __tmp135609)))) (declare (not safe)) - (cons __tmp135346 '()))) + (cons __tmp135608 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135326 - (let ((__tmp135327 - (let ((__tmp135328 + (__tmp135588 + (let ((__tmp135589 + (let ((__tmp135590 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135343 - (let ((__tmp135344 + (let ((__tmp135605 + (let ((__tmp135606 (let () (declare (not safe)) - (cons _$tmp134120_ '())))) + (cons _$tmp134382_ '())))) (declare (not safe)) - (cons '%#ref __tmp135344))) - (__tmp135329 - (let ((__tmp135341 - (let ((__tmp135342 + (cons '%#ref __tmp135606))) + (__tmp135591 + (let ((__tmp135603 + (let ((__tmp135604 (let () (declare (not safe)) - (cons _$tmp134120_ '())))) + (cons _$tmp134382_ '())))) (declare (not safe)) - (cons '%#ref __tmp135342))) - (__tmp135330 - (let ((__tmp135331 - (let ((__tmp135332 - (let ((__tmp135339 - (let ((__tmp135340 + (cons '%#ref __tmp135604))) + (__tmp135592 + (let ((__tmp135593 + (let ((__tmp135594 + (let ((__tmp135601 + (let ((__tmp135602 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp135340))) - (__tmp135333 - (let ((__tmp135337 - (let ((__tmp135338 + (cons '%#ref __tmp135602))) + (__tmp135595 + (let ((__tmp135599 + (let ((__tmp135600 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp135338))) - (__tmp135334 - (let ((__tmp135335 - (let ((__tmp135336 + (cons '%#quote __tmp135600))) + (__tmp135596 + (let ((__tmp135597 + (let ((__tmp135598 (let () (declare (not safe)) - (cons _id134117_ '())))) + (cons _id134379_ '())))) (declare (not safe)) - (cons '%#quote __tmp135336)))) + (cons '%#quote __tmp135598)))) (declare (not safe)) - (cons __tmp135335 '())))) + (cons __tmp135597 '())))) (declare (not safe)) - (cons __tmp135337 __tmp135334)))) + (cons __tmp135599 __tmp135596)))) (declare (not safe)) - (cons __tmp135339 __tmp135333)))) + (cons __tmp135601 __tmp135595)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp135332)))) + (cons '%#call __tmp135594)))) (declare (not safe)) - (cons __tmp135331 '())))) + (cons __tmp135593 '())))) (declare (not safe)) - (cons __tmp135341 __tmp135330)))) + (cons __tmp135603 __tmp135592)))) (declare (not safe)) - (cons __tmp135343 __tmp135329)))) + (cons __tmp135605 __tmp135591)))) (declare (not safe)) - (cons '%#if __tmp135328)))) + (cons '%#if __tmp135590)))) (declare (not safe)) - (cons __tmp135327 '())))) + (cons __tmp135589 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135345 - __tmp135326)))) + (cons __tmp135607 + __tmp135588)))) (declare (not safe)) - (cons '%#let-values __tmp135325)))) + (cons '%#let-values __tmp135587)))) (declare (not safe)) - (cons __tmp135324 '())))) + (cons __tmp135586 '())))) (declare (not safe)) - (cons '() __tmp135323)))) + (cons '() __tmp135585)))) (declare (not safe)) - (cons '%#lambda __tmp135322)))) + (cons '%#lambda __tmp135584)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135321 '())))) + (cons __tmp135583 '())))) (declare (not safe)) - (cons __tmp135362 __tmp135320)))) + (cons __tmp135624 __tmp135582)))) (declare (not safe)) - (cons '%#call __tmp135319)))) + (cons '%#call __tmp135581)))) (declare (not safe)) - (cons __tmp135318 '())))) + (cons __tmp135580 '())))) (declare (not safe)) - (cons __tmp135364 __tmp135317))))) - (_generate-slot-bind131337_ - (lambda (_$klass134109_ _id134110_ _$id134111_) - (let ((_$tmp134113_ - (let ((__tmp135365 (gensym '__slot))) + (cons __tmp135626 __tmp135579))))) + (_generate-slot-bind131599_ + (lambda (_$klass134371_ _id134372_ _$id134373_) + (let ((_$tmp134375_ + (let ((__tmp135627 (gensym '__slot))) (declare (not safe)) - (make-symbol__0 __tmp135365)))) - (let ((__tmp135402 + (make-symbol__0 __tmp135627)))) + (let ((__tmp135664 (let () (declare (not safe)) - (cons _$id134111_ '()))) - (__tmp135366 - (let ((__tmp135367 - (let ((__tmp135368 - (let ((__tmp135388 - (let ((__tmp135389 - (let ((__tmp135401 + (cons _$id134373_ '()))) + (__tmp135628 + (let ((__tmp135629 + (let ((__tmp135630 + (let ((__tmp135650 + (let ((__tmp135651 + (let ((__tmp135663 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp134113_ '()))) - (__tmp135390 - (let ((__tmp135391 - (let ((__tmp135392 - (let ((__tmp135399 - (let ((__tmp135400 + (cons _$tmp134375_ '()))) + (__tmp135652 + (let ((__tmp135653 + (let ((__tmp135654 + (let ((__tmp135661 + (let ((__tmp135662 (let () (declare (not safe)) (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp135400))) - (__tmp135393 - (let ((__tmp135397 - (let ((__tmp135398 + (cons '%#ref __tmp135662))) + (__tmp135655 + (let ((__tmp135659 + (let ((__tmp135660 (let () (declare (not safe)) - (cons _$klass134109_ + (cons _$klass134371_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp135398))) + (cons '%#ref __tmp135660))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135394 - (let ((__tmp135395 - (let ((__tmp135396 + (__tmp135656 + (let ((__tmp135657 + (let ((__tmp135658 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id134110_ '())))) + (let () (declare (not safe)) (cons _id134372_ '())))) (declare (not safe)) - (cons '%#quote __tmp135396)))) + (cons '%#quote __tmp135658)))) (declare (not safe)) - (cons __tmp135395 '())))) + (cons __tmp135657 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135397 - __tmp135394)))) + (cons __tmp135659 + __tmp135656)))) (declare (not safe)) - (cons __tmp135399 __tmp135393)))) + (cons __tmp135661 __tmp135655)))) (declare (not safe)) - (cons '%#call __tmp135392)))) + (cons '%#call __tmp135654)))) (declare (not safe)) - (cons __tmp135391 '())))) + (cons __tmp135653 '())))) (declare (not safe)) - (cons __tmp135401 __tmp135390)))) + (cons __tmp135663 __tmp135652)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135389 '()))) - (__tmp135369 - (let ((__tmp135370 - (let ((__tmp135371 - (let ((__tmp135386 + (cons __tmp135651 '()))) + (__tmp135631 + (let ((__tmp135632 + (let ((__tmp135633 + (let ((__tmp135648 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135387 + (let ((__tmp135649 (let () (declare (not safe)) - (cons _$tmp134113_ '())))) + (cons _$tmp134375_ '())))) (declare (not safe)) - (cons '%#ref __tmp135387))) - (__tmp135372 - (let ((__tmp135384 - (let ((__tmp135385 + (cons '%#ref __tmp135649))) + (__tmp135634 + (let ((__tmp135646 + (let ((__tmp135647 (let () (declare (not safe)) - (cons _$tmp134113_ '())))) + (cons _$tmp134375_ '())))) (declare (not safe)) - (cons '%#ref __tmp135385))) - (__tmp135373 - (let ((__tmp135374 - (let ((__tmp135375 - (let ((__tmp135382 - (let ((__tmp135383 + (cons '%#ref __tmp135647))) + (__tmp135635 + (let ((__tmp135636 + (let ((__tmp135637 + (let ((__tmp135644 + (let ((__tmp135645 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp135383))) - (__tmp135376 - (let ((__tmp135380 - (let ((__tmp135381 + (cons '%#ref __tmp135645))) + (__tmp135638 + (let ((__tmp135642 + (let ((__tmp135643 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp135381))) - (__tmp135377 - (let ((__tmp135378 - (let ((__tmp135379 + (cons '%#quote __tmp135643))) + (__tmp135639 + (let ((__tmp135640 + (let ((__tmp135641 (let () (declare (not safe)) - (cons _id134110_ '())))) + (cons _id134372_ '())))) (declare (not safe)) - (cons '%#quote __tmp135379)))) + (cons '%#quote __tmp135641)))) (declare (not safe)) - (cons __tmp135378 '())))) + (cons __tmp135640 '())))) (declare (not safe)) - (cons __tmp135380 __tmp135377)))) + (cons __tmp135642 __tmp135639)))) (declare (not safe)) - (cons __tmp135382 __tmp135376)))) + (cons __tmp135644 __tmp135638)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp135375)))) + (cons '%#call __tmp135637)))) (declare (not safe)) - (cons __tmp135374 '())))) + (cons __tmp135636 '())))) (declare (not safe)) - (cons __tmp135384 __tmp135373)))) + (cons __tmp135646 __tmp135635)))) (declare (not safe)) - (cons __tmp135386 __tmp135372)))) + (cons __tmp135648 __tmp135634)))) (declare (not safe)) - (cons '%#if __tmp135371)))) + (cons '%#if __tmp135633)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135370 '())))) + (cons __tmp135632 '())))) (declare (not safe)) - (cons __tmp135388 __tmp135369)))) + (cons __tmp135650 __tmp135631)))) (declare (not safe)) - (cons '%#let-values __tmp135368)))) + (cons '%#let-values __tmp135630)))) (declare (not safe)) - (cons __tmp135367 '())))) + (cons __tmp135629 '())))) (declare (not safe)) - (cons __tmp135402 __tmp135366))))) - (_generate-specializer-impl131338_ - (lambda (_$klass134103_ - _$method-table134104_ - _methods-bind134105_ - _slots-bind134106_ - _specializer-impl134107_) - (let ((__tmp135403 - (let ((__tmp135404 - (let ((__tmp135410 - (let ((__tmp135411 + (cons __tmp135664 __tmp135628))))) + (_generate-specializer-impl131600_ + (lambda (_$klass134365_ + _$method-table134366_ + _methods-bind134367_ + _slots-bind134368_ + _specializer-impl134369_) + (let ((__tmp135665 + (let ((__tmp135666 + (let ((__tmp135672 + (let ((__tmp135673 (let () (declare (not safe)) - (cons _$method-table134104_ + (cons _$method-table134366_ '())))) (declare (not safe)) - (cons _$klass134103_ __tmp135411))) - (__tmp135405 - (let ((__tmp135406 - (let ((__tmp135407 - (let ((__tmp135409 + (cons _$klass134365_ __tmp135673))) + (__tmp135667 + (let ((__tmp135668 + (let ((__tmp135669 + (let ((__tmp135671 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (foldr1 cons _slots-bind134106_ _methods-bind134105_))) - (__tmp135408 + (foldr1 cons _slots-bind134368_ _methods-bind134367_))) + (__tmp135670 (let () (declare (not safe)) - (cons _specializer-impl134107_ '())))) + (cons _specializer-impl134369_ '())))) (declare (not safe)) - (cons __tmp135409 __tmp135408)))) + (cons __tmp135671 __tmp135670)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp135407)))) + __tmp135669)))) (declare (not safe)) - (cons __tmp135406 '())))) + (cons __tmp135668 '())))) (declare (not safe)) - (cons __tmp135410 __tmp135405)))) + (cons __tmp135672 __tmp135667)))) (declare (not safe)) - (cons '%#lambda __tmp135404)))) + (cons '%#lambda __tmp135666)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135403 _stx131334_)))) - (_generate-specializer-def131339_ - (lambda (_id134099_ - _specializer-id134100_ - _specializer-impl134101_) - (let ((__tmp135412 - (let ((__tmp135413 - (let ((__tmp135414 - (let ((__tmp135427 - (let ((__tmp135428 - (let ((__tmp135429 - (let ((__tmp135431 + (gxc#xform-wrap-source __tmp135665 _stx131596_)))) + (_generate-specializer-def131601_ + (lambda (_id134361_ + _specializer-id134362_ + _specializer-impl134363_) + (let ((__tmp135674 + (let ((__tmp135675 + (let ((__tmp135676 + (let ((__tmp135689 + (let ((__tmp135690 + (let ((__tmp135691 + (let ((__tmp135693 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id134100_ '()))) - (__tmp135430 + (cons _specializer-id134362_ '()))) + (__tmp135692 (let () (declare (not safe)) - (cons _specializer-impl134101_ '())))) + (cons _specializer-impl134363_ '())))) (declare (not safe)) - (cons __tmp135431 __tmp135430)))) + (cons __tmp135693 __tmp135692)))) (declare (not safe)) - (cons '%#define-values __tmp135429)))) + (cons '%#define-values __tmp135691)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135428 - _stx131334_))) - (__tmp135415 - (let ((__tmp135416 - (let ((__tmp135417 - (let ((__tmp135418 + __tmp135690 + _stx131596_))) + (__tmp135677 + (let ((__tmp135678 + (let ((__tmp135679 + (let ((__tmp135680 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135425 - (let ((__tmp135426 + (let ((__tmp135687 + (let ((__tmp135688 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp135426))) - (__tmp135419 - (let ((__tmp135423 - (let ((__tmp135424 + (cons '%#ref __tmp135688))) + (__tmp135681 + (let ((__tmp135685 + (let ((__tmp135686 (let () (declare (not safe)) - (cons _id134099_ '())))) + (cons _id134361_ '())))) (declare (not safe)) - (cons '%#ref __tmp135424))) - (__tmp135420 - (let ((__tmp135421 - (let ((__tmp135422 + (cons '%#ref __tmp135686))) + (__tmp135682 + (let ((__tmp135683 + (let ((__tmp135684 (let () (declare (not safe)) - (cons _specializer-id134100_ + (cons _specializer-id134362_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135422)))) + __tmp135684)))) (declare (not safe)) - (cons __tmp135421 '())))) + (cons __tmp135683 '())))) (declare (not safe)) - (cons __tmp135423 __tmp135420)))) + (cons __tmp135685 __tmp135682)))) (declare (not safe)) - (cons __tmp135425 __tmp135419)))) + (cons __tmp135687 __tmp135681)))) (declare (not safe)) - (cons '%#call __tmp135418)))) + (cons '%#call __tmp135680)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135417 _stx131334_)))) + (gxc#xform-wrap-source __tmp135679 _stx131596_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135416 '())))) + (cons __tmp135678 '())))) (declare (not safe)) - (cons __tmp135427 __tmp135415)))) + (cons __tmp135689 __tmp135677)))) (declare (not safe)) - (cons _stx131334_ __tmp135414)))) + (cons _stx131596_ __tmp135676)))) (declare (not safe)) - (cons '%#begin __tmp135413)))) + (cons '%#begin __tmp135675)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135412 _stx131334_))))) - (let* ((___stx134268134269_ _stx131334_) - (_g131342131362_ + (gxc#xform-wrap-source __tmp135674 _stx131596_))))) + (let* ((___stx134530134531_ _stx131596_) + (_g131604131624_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134268134269_))))) - (let ((___kont134270134271_ - (lambda (_L131406_ _L131407_) - (let ((_method-calls131426_ + ___stx134530134531_))))) + (let ((___kont134532134533_ + (lambda (_L131668_ _L131669_) + (let ((_method-calls131688_ (let () (declare (not safe)) (make-hash-table-eq))) - (_slot-refs131427_ + (_slot-refs131689_ (let () (declare (not safe)) (make-hash-table-eq))) - (_empty131428_ + (_empty131690_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_no-specializer?131430_ + (letrec ((_no-specializer?131692_ (lambda () - (if (let ((__tmp135433 + (if (let ((__tmp135695 (let () (declare (not safe)) (hash-length - _method-calls131426_)))) + _method-calls131688_)))) (declare (not safe)) - (fxzero? __tmp135433)) - (let ((__tmp135432 + (fxzero? __tmp135695)) + (let ((__tmp135694 (let () (declare (not safe)) (hash-length - _slot-refs131427_)))) + _slot-refs131689_)))) (declare (not safe)) - (fxzero? __tmp135432)) + (fxzero? __tmp135694)) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L131406_)) - (let* ((___stx134182134183_ _L131406_) - (_g131817131835_ + (gxc#lambda-expr? _L131668_)) + (let* ((___stx134444134445_ _L131668_) + (_g132079132097_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134182134183_))))) - (let ((___kont134184134185_ - (lambda (_L131871_ _L131872_ _L131873_) + ___stx134444134445_))))) + (let ((___kont134446134447_ + (lambda (_L132133_ _L132134_ _L132135_) (for-each - (lambda (_g131888131890_) + (lambda (_g132150132152_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g131888131890_ - _L131873_ - _method-calls131426_ - _slot-refs131427_))) - _L131871_) + _g132150132152_ + _L132135_ + _method-calls131688_ + _slot-refs131689_))) + _L132133_) (if (let () (declare (not safe)) - (_no-specializer?131430_)) - _stx131334_ - (let* ((_specializer-id131899_ - (let* ((_id131893_ - (let ((__tmp135555 + (_no-specializer?131692_)) + _stx131596_ + (let* ((_specializer-id132161_ + (let* ((_id132155_ + (let ((__tmp135817 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L131407_)))) + (let () (declare (not safe)) (gx#stx-e _L131669_)))) (declare (not safe)) - (make-symbol__1 __tmp135555 '"::specialize"))) - (_specializer-id131896_ - (let ((__tmp135556 + (make-symbol__1 __tmp135817 '"::specialize"))) + (_specializer-id132158_ + (let ((__tmp135818 (let () (declare (not safe)) - (gx#stx-source _stx131334_)))) + (gx#stx-source _stx131596_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id131893_ __tmp135556)))) + (gx#core-quote-syntax__1 _id132155_ __tmp135818)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id131896_)) - _specializer-id131896_)) + (gx#core-bind-runtime!__0 _specializer-id132158_)) + _specializer-id132158_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass131901_ - (let ((__tmp135557 + (_$klass132163_ + (let ((__tmp135819 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp135557))) - (_$method-table131903_ - (let ((__tmp135558 + __tmp135819))) + (_$method-table132165_ + (let ((__tmp135820 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp135558))) - (_methods131905_ + __tmp135820))) + (_methods132167_ (let () (declare (not safe)) (hash-keys - _method-calls131426_))) - (_$methods131909_ - (map (lambda (_id131907_) - (let ((__tmp135559 + _method-calls131688_))) + (_$methods132171_ + (map (lambda (_id132169_) + (let ((__tmp135821 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id131907_))) + (gensym _id132169_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135559))) - _methods131905_)) + (make-symbol__1 '"__" __tmp135821))) + _methods132167_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135560_ + (_g135822_ (for-each - (lambda (_g131910131913_ - _g131911131915_) + (lambda (_g132172132175_ + _g132173132177_) (let () (declare (not safe)) (hash-put! - _method-calls131426_ - _g131910131913_ - _g131911131915_))) - _methods131905_ - _$methods131909_)) - (_methods-bind131926_ - (map (lambda (_g131918131921_ + _method-calls131688_ + _g132172132175_ + _g132173132177_))) + _methods132167_ + _$methods132171_)) + (_methods-bind132188_ + (map (lambda (_g132180132183_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g131919131923_) + _g132181132185_) (let () (declare (not safe)) - (_generate-method-bind131336_ - _$klass131901_ - _$method-table131903_ - _g131918131921_ - _g131919131923_))) - _methods131905_ - _$methods131909_)) + (_generate-method-bind131598_ + _$klass132163_ + _$method-table132165_ + _g132180132183_ + _g132181132185_))) + _methods132167_ + _$methods132171_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots131928_ + (_slots132190_ (let () (declare (not safe)) (hash-keys - _slot-refs131427_))) - (_$slots131932_ - (map (lambda (_id131930_) - (let ((__tmp135561 + _slot-refs131689_))) + (_$slots132194_ + (map (lambda (_id132192_) + (let ((__tmp135823 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id131930_))) + (gensym _id132192_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135561))) - _slots131928_)) + (make-symbol__1 '"__" __tmp135823))) + _slots132190_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135562_ + (_g135824_ (for-each - (lambda (_g131933131936_ - _g131934131938_) + (lambda (_g132195132198_ + _g132196132200_) (let () (declare (not safe)) (hash-put! - _slot-refs131427_ - _g131933131936_ - _g131934131938_))) - _slots131928_ - _$slots131932_)) - (_slots-bind131949_ - (map (lambda (_g131941131944_ + _slot-refs131689_ + _g132195132198_ + _g132196132200_))) + _slots132190_ + _$slots132194_)) + (_slots-bind132211_ + (map (lambda (_g132203132206_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g131942131946_) + _g132204132208_) (let () (declare (not safe)) - (_generate-slot-bind131337_ - _$klass131901_ - _g131941131944_ - _g131942131946_))) - _slots131928_ - _$slots131932_)) + (_generate-slot-bind131599_ + _$klass132163_ + _g132203132206_ + _g132204132208_))) + _slots132190_ + _$slots132194_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-body131955_ - (map (lambda (_g131950131952_) + (_specializer-body132217_ + (map (lambda (_g132212132214_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g131950131952_ - _L131873_ - _$klass131901_ - _method-calls131426_ - _slot-refs131427_))) - _L131871_)) - (_specializer-impl131957_ - (let ((__tmp135563 - (let ((__tmp135564 + _g132212132214_ + _L132135_ + _$klass132163_ + _method-calls131688_ + _slot-refs131689_))) + _L132133_)) + (_specializer-impl132219_ + (let ((__tmp135825 + (let ((__tmp135826 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135565 + (let ((__tmp135827 (let () (declare (not safe)) - (cons _L131873_ _L131872_)))) + (cons _L132135_ _L132134_)))) (declare (not safe)) - (cons __tmp135565 _specializer-body131955_)))) + (cons __tmp135827 _specializer-body132217_)))) (declare (not safe)) - (cons '%#lambda __tmp135564)))) + (cons '%#lambda __tmp135826)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135563 _stx131334_))) + (gxc#xform-wrap-source __tmp135825 _stx131596_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl131959_ + (_specializer-impl132221_ (let () (declare (not safe)) - (_generate-specializer-impl131338_ - _$klass131901_ - _$method-table131903_ - _methods-bind131926_ - _slots-bind131949_ - _specializer-impl131957_)))) - (let ((__tmp135567 + (_generate-specializer-impl131600_ + _$klass132163_ + _$method-table132165_ + _methods-bind132188_ + _slots-bind132211_ + _specializer-impl132219_)))) + (let ((__tmp135829 (let () (declare (not safe)) - (gx#stx-e _L131407_))) - (__tmp135566 + (gx#stx-e _L131669_))) + (__tmp135828 (let () (declare (not safe)) (gx#stx-e - _specializer-id131899_)))) + _specializer-id132161_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135567 + __tmp135829 '" => " - __tmp135566)) + __tmp135828)) (let () (declare (not safe)) - (_generate-specializer-def131339_ - _L131407_ - _specializer-id131899_ - _specializer-impl131959_)))))) - (___kont134186134187_ - (lambda () _stx131334_))) + (_generate-specializer-def131601_ + _L131669_ + _specializer-id132161_ + _specializer-impl132221_)))))) + (___kont134448134449_ + (lambda () _stx131596_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134182134183_)) - (let ((_e131824131847_ + (gx#stx-pair? ___stx134444134445_)) + (let ((_e132086132109_ (let () (declare (not safe)) - (gx#stx-e ___stx134182134183_)))) - (let ((_tl131822131852_ + (gx#stx-e ___stx134444134445_)))) + (let ((_tl132084132114_ (let () (declare (not safe)) - (##cdr _e131824131847_))) - (_hd131823131850_ + (##cdr _e132086132109_))) + (_hd132085132112_ (let () (declare (not safe)) - (##car _e131824131847_)))) + (##car _e132086132109_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131822131852_)) - (let ((_e131827131855_ + (gx#stx-pair? _tl132084132114_)) + (let ((_e132089132117_ (let () (declare (not safe)) (gx#stx-e - _tl131822131852_)))) - (let ((_tl131825131860_ + _tl132084132114_)))) + (let ((_tl132087132122_ (let () (declare (not safe)) - (##cdr _e131827131855_))) - (_hd131826131858_ + (##cdr _e132089132117_))) + (_hd132088132120_ (let () (declare (not safe)) - (##car _e131827131855_)))) + (##car _e132089132117_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd131826131858_)) - (let ((_e131830131863_ + _hd132088132120_)) + (let ((_e132092132125_ (let () (declare (not safe)) (gx#stx-e - _hd131826131858_)))) - (let ((_tl131828131868_ + _hd132088132120_)))) + (let ((_tl132090132130_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131830131863_))) - (_hd131829131866_ - (let () (declare (not safe)) (##car _e131830131863_)))) - (___kont134184134185_ - _tl131825131860_ - _tl131828131868_ - _hd131829131866_))) + (##cdr _e132092132125_))) + (_hd132091132128_ + (let () (declare (not safe)) (##car _e132092132125_)))) + (___kont134446134447_ + _tl132087132122_ + _tl132090132130_ + _hd132091132128_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134186134187_)))) - (___kont134186134187_)))) - (___kont134186134187_)))) + (___kont134448134449_)))) + (___kont134448134449_)))) + (___kont134448134449_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L131406_)) - (let* ((_g131965131984_ - (lambda (_g131966131981_) + (gxc#case-lambda-expr? _L131668_)) + (let* ((_g132227132246_ + (lambda (_g132228132243_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131966131981_)))) - (_g131964132267_ - (lambda (_g131966131987_) + _g132228132243_)))) + (_g132226132529_ + (lambda (_g132228132249_) (if (let () (declare (not safe)) (gx#stx-pair? - _g131966131987_)) - (let ((_e131970131989_ + _g132228132249_)) + (let ((_e132232132251_ (let () (declare (not safe)) (gx#stx-e - _g131966131987_)))) - (let ((_hd131969131992_ + _g132228132249_)))) + (let ((_hd132231132254_ (let () (declare (not safe)) - (##car _e131970131989_))) - (_tl131968131994_ + (##car _e132232132251_))) + (_tl132230132256_ (let () (declare (not safe)) - (##cdr _e131970131989_)))) + (##cdr _e132232132251_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl131968131994_)) - (let ((_g135538_ + _tl132230132256_)) + (let ((_g135800_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl131968131994_ '0)))) + (gx#syntax-split-splice _tl132230132256_ '0)))) (begin - (let ((_g135539_ + (let ((_g135801_ (let () (declare (not safe)) - (if (##values? _g135538_) - (##vector-length _g135538_) + (if (##values? _g135800_) + (##vector-length _g135800_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135539_ 2))) - (error "Context expects 2 values" _g135539_))) - (let ((_target131971131997_ + (##fx= _g135801_ 2))) + (error "Context expects 2 values" _g135801_))) + (let ((_target132233132259_ (let () (declare (not safe)) - (##vector-ref _g135538_ 0))) - (_tl131973131999_ + (##vector-ref _g135800_ 0))) + (_tl132235132261_ (let () (declare (not safe)) - (##vector-ref _g135538_ 1)))) + (##vector-ref _g135800_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131973131999_)) - (letrec ((_loop131974132002_ - (lambda (_hd131972132005_ - _clause131978132007_) + (gx#stx-null? _tl132235132261_)) + (letrec ((_loop132236132264_ + (lambda (_hd132234132267_ + _clause132240132269_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131972132005_)) - (let ((_e131975132010_ + (gx#stx-pair? _hd132234132267_)) + (let ((_e132237132272_ (let () (declare (not safe)) (gx#stx-e - _hd131972132005_)))) - (let ((_lp-hd131976132013_ + _hd132234132267_)))) + (let ((_lp-hd132238132275_ (let () (declare (not safe)) - (##car _e131975132010_))) - (_lp-tl131977132015_ + (##car _e132237132272_))) + (_lp-tl132239132277_ (let () (declare (not safe)) - (##cdr _e131975132010_)))) - (let ((__tmp135554 + (##cdr _e132237132272_)))) + (let ((__tmp135816 (let () (declare (not safe)) - (cons _lp-hd131976132013_ - _clause131978132007_)))) + (cons _lp-hd132238132275_ + _clause132240132269_)))) (declare (not safe)) - (_loop131974132002_ - _lp-tl131977132015_ - __tmp135554)))) - (let ((_clause131979132018_ - (reverse _clause131978132007_))) - ((lambda (_L132021_) + (_loop132236132264_ + _lp-tl132239132277_ + __tmp135816)))) + (let ((_clause132241132280_ + (reverse _clause132240132269_))) + ((lambda (_L132283_) (for-each - (lambda (_clause132034_) - (let* ((___stx134208134209_ - _clause132034_) - (_g132037132052_ + (lambda (_clause132296_) + (let* ((___stx134470134471_ + _clause132296_) + (_g132299132314_ (lambda () (let () (declare @@ -1053,7711 +1053,7711 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134208134209_))))) - (let ((___kont134210134211_ - (lambda (_L132080_ + ___stx134470134471_))))) + (let ((___kont134472134473_ + (lambda (_L132342_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L132081_ - _L132082_) + _L132343_ + _L132344_) (for-each - (lambda (_g132097132099_) + (lambda (_g132359132361_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132097132099_ - _L132082_ - _method-calls131426_ - _slot-refs131427_))) - _L132080_))) - (___kont134212134213_ (lambda () '#!void))) + _g132359132361_ + _L132344_ + _method-calls131688_ + _slot-refs131689_))) + _L132342_))) + (___kont134474134475_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx134208134209_)) - (let ((_e132044132064_ + ___stx134470134471_)) + (let ((_e132306132326_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx134208134209_)))) - (let ((_tl132042132069_ + (gx#stx-e ___stx134470134471_)))) + (let ((_tl132304132331_ (let () (declare (not safe)) - (##cdr _e132044132064_))) - (_hd132043132067_ + (##cdr _e132306132326_))) + (_hd132305132329_ (let () (declare (not safe)) - (##car _e132044132064_)))) + (##car _e132306132326_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132043132067_)) - (let ((_e132047132072_ + (gx#stx-pair? _hd132305132329_)) + (let ((_e132309132334_ (let () (declare (not safe)) - (gx#stx-e _hd132043132067_)))) - (let ((_tl132045132077_ + (gx#stx-e _hd132305132329_)))) + (let ((_tl132307132339_ (let () (declare (not safe)) - (##cdr _e132047132072_))) - (_hd132046132075_ + (##cdr _e132309132334_))) + (_hd132308132337_ (let () (declare (not safe)) - (##car _e132047132072_)))) - (___kont134210134211_ - _tl132042132069_ - _tl132045132077_ - _hd132046132075_))) - (___kont134212134213_)))) - (___kont134212134213_))))) + (##car _e132309132334_)))) + (___kont134472134473_ + _tl132304132331_ + _tl132307132339_ + _hd132308132337_))) + (___kont134474134475_)))) + (___kont134474134475_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135540 - (lambda (_g132104132107_ - _g132105132109_) + (let ((__tmp135802 + (lambda (_g132366132369_ + _g132367132371_) (let () (declare (not safe)) - (cons _g132104132107_ - _g132105132109_))))) + (cons _g132366132369_ + _g132367132371_))))) (declare (not safe)) - (foldr1 __tmp135540 + (foldr1 __tmp135802 '() - _L132021_))) + _L132283_))) (if (let () (declare (not safe)) - (_no-specializer?131430_)) - _stx131334_ - (let* ((_specializer-id132118_ - (let* ((_id132112_ + (_no-specializer?131692_)) + _stx131596_ + (let* ((_specializer-id132380_ + (let* ((_id132374_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135541 + (let ((__tmp135803 (let () (declare (not safe)) - (gx#stx-e _L131407_)))) + (gx#stx-e _L131669_)))) (declare (not safe)) - (make-symbol__1 __tmp135541 '"::specialize"))) - (_specializer-id132115_ - (let ((__tmp135542 + (make-symbol__1 __tmp135803 '"::specialize"))) + (_specializer-id132377_ + (let ((__tmp135804 (let () (declare (not safe)) - (gx#stx-source _stx131334_)))) + (gx#stx-source _stx131596_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id132112_ __tmp135542)))) + (gx#core-quote-syntax__1 _id132374_ __tmp135804)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id132115_)) - _specializer-id132115_)) - (_$klass132120_ - (let ((__tmp135543 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id132377_)) + _specializer-id132377_)) + (_$klass132382_ + (let ((__tmp135805 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135543))) - (_$method-table132122_ - (let ((__tmp135544 (gensym '__method-table))) + (make-symbol__0 __tmp135805))) + (_$method-table132384_ + (let ((__tmp135806 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135544))) - (_methods132124_ + (make-symbol__0 __tmp135806))) + (_methods132386_ (let () (declare (not safe)) - (hash-keys _method-calls131426_))) - (_$methods132128_ - (map (lambda (_id132126_) - (let ((__tmp135545 (gensym _id132126_))) + (hash-keys _method-calls131688_))) + (_$methods132390_ + (map (lambda (_id132388_) + (let ((__tmp135807 (gensym _id132388_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135545))) - _methods132124_)) - (_g135546_ + (make-symbol__1 '"__" __tmp135807))) + _methods132386_)) + (_g135808_ (for-each - (lambda (_g132129132132_ _g132130132134_) + (lambda (_g132391132394_ _g132392132396_) (let () (declare (not safe)) (hash-put! - _method-calls131426_ - _g132129132132_ - _g132130132134_))) - _methods132124_ - _$methods132128_)) - (_methods-bind132145_ - (map (lambda (_g132137132140_ _g132138132142_) + _method-calls131688_ + _g132391132394_ + _g132392132396_))) + _methods132386_ + _$methods132390_)) + (_methods-bind132407_ + (map (lambda (_g132399132402_ _g132400132404_) (let () (declare (not safe)) - (_generate-method-bind131336_ - _$klass132120_ - _$method-table132122_ - _g132137132140_ - _g132138132142_))) - _methods132124_ - _$methods132128_)) - (_slots132147_ - (let () (declare (not safe)) (hash-keys _slot-refs131427_))) - (_$slots132151_ - (map (lambda (_id132149_) - (let ((__tmp135547 (gensym _id132149_))) + (_generate-method-bind131598_ + _$klass132382_ + _$method-table132384_ + _g132399132402_ + _g132400132404_))) + _methods132386_ + _$methods132390_)) + (_slots132409_ + (let () (declare (not safe)) (hash-keys _slot-refs131689_))) + (_$slots132413_ + (map (lambda (_id132411_) + (let ((__tmp135809 (gensym _id132411_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135547))) - _slots132147_)) - (_g135548_ + (make-symbol__1 '"__" __tmp135809))) + _slots132409_)) + (_g135810_ (for-each - (lambda (_g132152132155_ _g132153132157_) + (lambda (_g132414132417_ _g132415132419_) (let () (declare (not safe)) (hash-put! - _slot-refs131427_ - _g132152132155_ - _g132153132157_))) - _slots132147_ - _$slots132151_)) - (_slots-bind132168_ - (map (lambda (_g132160132163_ _g132161132165_) + _slot-refs131689_ + _g132414132417_ + _g132415132419_))) + _slots132409_ + _$slots132413_)) + (_slots-bind132430_ + (map (lambda (_g132422132425_ _g132423132427_) (let () (declare (not safe)) - (_generate-slot-bind131337_ - _$klass132120_ - _g132160132163_ - _g132161132165_))) - _slots132147_ - _$slots132151_)) - (_specializer-clauses132260_ - (map (lambda (_clause132170_) - (let* ((___stx134228134229_ _clause132170_) - (_g132173132188_ + (_generate-slot-bind131599_ + _$klass132382_ + _g132422132425_ + _g132423132427_))) + _slots132409_ + _$slots132413_)) + (_specializer-clauses132522_ + (map (lambda (_clause132432_) + (let* ((___stx134490134491_ _clause132432_) + (_g132435132450_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134228134229_))))) - (let ((___kont134230134231_ - (lambda (_L132216_ _L132217_ _L132218_) - (let* ((_body132248_ - (map (lambda (_g132243132245_) + ___stx134490134491_))))) + (let ((___kont134492134493_ + (lambda (_L132478_ _L132479_ _L132480_) + (let* ((_body132510_ + (map (lambda (_g132505132507_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132243132245_ - _L132218_ - _$klass132120_ - _method-calls131426_ - _slot-refs131427_))) - _L132216_)) - (__tmp135549 + _g132505132507_ + _L132480_ + _$klass132382_ + _method-calls131688_ + _slot-refs131689_))) + _L132478_)) + (__tmp135811 (let () (declare (not safe)) - (cons _L132218_ _L132217_)))) + (cons _L132480_ _L132479_)))) (declare (not safe)) - (cons __tmp135549 _body132248_)))) - (___kont134232134233_ - (lambda () _clause132170_))) + (cons __tmp135811 _body132510_)))) + (___kont134494134495_ + (lambda () _clause132432_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134228134229_)) - (let ((_e132180132200_ + (gx#stx-pair? ___stx134490134491_)) + (let ((_e132442132462_ (let () (declare (not safe)) - (gx#stx-e ___stx134228134229_)))) - (let ((_tl132178132205_ + (gx#stx-e ___stx134490134491_)))) + (let ((_tl132440132467_ (let () (declare (not safe)) - (##cdr _e132180132200_))) - (_hd132179132203_ + (##cdr _e132442132462_))) + (_hd132441132465_ (let () (declare (not safe)) - (##car _e132180132200_)))) + (##car _e132442132462_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132179132203_)) - (let ((_e132183132208_ + (gx#stx-pair? _hd132441132465_)) + (let ((_e132445132470_ (let () (declare (not safe)) (gx#stx-e - _hd132179132203_)))) - (let ((_tl132181132213_ + _hd132441132465_)))) + (let ((_tl132443132475_ (let () (declare (not safe)) - (##cdr _e132183132208_))) - (_hd132182132211_ + (##cdr _e132445132470_))) + (_hd132444132473_ (let () (declare (not safe)) - (##car _e132183132208_)))) - (___kont134230134231_ - _tl132178132205_ - _tl132181132213_ - _hd132182132211_))) - (___kont134232134233_)))) - (___kont134232134233_))))) - (let ((__tmp135550 - (lambda (_g132252132255_ _g132253132257_) + (##car _e132445132470_)))) + (___kont134492134493_ + _tl132440132467_ + _tl132443132475_ + _hd132444132473_))) + (___kont134494134495_)))) + (___kont134494134495_))))) + (let ((__tmp135812 + (lambda (_g132514132517_ _g132515132519_) (let () (declare (not safe)) - (cons _g132252132255_ _g132253132257_))))) + (cons _g132514132517_ _g132515132519_))))) (declare (not safe)) - (foldr1 __tmp135550 '() _L132021_)))) - (_specializer-impl132262_ - (let ((__tmp135551 + (foldr1 __tmp135812 '() _L132283_)))) + (_specializer-impl132524_ + (let ((__tmp135813 (let () (declare (not safe)) - (cons '%#case-lambda _specializer-clauses132260_)))) + (cons '%#case-lambda _specializer-clauses132522_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135551 _stx131334_))) - (_specializer-impl132264_ + (gxc#xform-wrap-source __tmp135813 _stx131596_))) + (_specializer-impl132526_ (let () (declare (not safe)) - (_generate-specializer-impl131338_ - _$klass132120_ - _$method-table132122_ - _methods-bind132145_ - _slots-bind132168_ - _specializer-impl132262_)))) + (_generate-specializer-impl131600_ + _$klass132382_ + _$method-table132384_ + _methods-bind132407_ + _slots-bind132430_ + _specializer-impl132524_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135553 + (let ((__tmp135815 (let () (declare (not safe)) (gx#stx-e - _L131407_))) - (__tmp135552 + _L131669_))) + (__tmp135814 (let () (declare (not safe)) (gx#stx-e - _specializer-id132118_)))) + _specializer-id132380_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135553 + __tmp135815 '" => " - __tmp135552)) + __tmp135814)) (let () (declare (not safe)) - (_generate-specializer-def131339_ - _L131407_ - _specializer-id132118_ - _specializer-impl132264_))))) - _clause131979132018_)))))) + (_generate-specializer-def131601_ + _L131669_ + _specializer-id132380_ + _specializer-impl132526_))))) + _clause132241132280_)))))) (let () (declare (not safe)) - (_loop131974132002_ _target131971131997_ '()))) + (_loop132236132264_ _target132233132259_ '()))) (let () (declare (not safe)) - (_g131965131984_ _g131966131987_)))))) + (_g132227132246_ _g132228132249_)))))) (let () (declare (not safe)) - (_g131965131984_ _g131966131987_))))) + (_g132227132246_ _g132228132249_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g131965131984_ - _g131966131987_)))))) + (_g132227132246_ + _g132228132249_)))))) (declare (not safe)) - (_g131964132267_ _L131406_)) + (_g132226132529_ _L131668_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L131406_)) - (let* ((_g132270132300_ - (lambda (_g132271132297_) + (gxc#opt-lambda-expr? _L131668_)) + (let* ((_g132532132562_ + (lambda (_g132533132559_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132271132297_)))) - (_g132269132905_ - (lambda (_g132271132303_) + _g132533132559_)))) + (_g132531133167_ + (lambda (_g132533132565_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132271132303_)) - (let ((_e132277132305_ + _g132533132565_)) + (let ((_e132539132567_ (let () (declare (not safe)) (gx#stx-e - _g132271132303_)))) - (let ((_hd132276132308_ + _g132533132565_)))) + (let ((_hd132538132570_ (let () (declare (not safe)) - (##car _e132277132305_))) - (_tl132275132310_ + (##car _e132539132567_))) + (_tl132537132572_ (let () (declare (not safe)) - (##cdr _e132277132305_)))) + (##cdr _e132539132567_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132275132310_)) - (let ((_e132280132313_ + _tl132537132572_)) + (let ((_e132542132575_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl132275132310_)))) - (let ((_hd132279132316_ + (gx#stx-e _tl132537132572_)))) + (let ((_hd132541132578_ (let () (declare (not safe)) - (##car _e132280132313_))) - (_tl132278132318_ + (##car _e132542132575_))) + (_tl132540132580_ (let () (declare (not safe)) - (##cdr _e132280132313_)))) + (##cdr _e132542132575_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132279132316_)) - (let ((_e132283132321_ + (gx#stx-pair? _hd132541132578_)) + (let ((_e132545132583_ (let () (declare (not safe)) - (gx#stx-e _hd132279132316_)))) - (let ((_hd132282132324_ + (gx#stx-e _hd132541132578_)))) + (let ((_hd132544132586_ (let () (declare (not safe)) - (##car _e132283132321_))) - (_tl132281132326_ + (##car _e132545132583_))) + (_tl132543132588_ (let () (declare (not safe)) - (##cdr _e132283132321_)))) + (##cdr _e132545132583_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132282132324_)) - (let ((_e132286132329_ + (gx#stx-pair? _hd132544132586_)) + (let ((_e132548132591_ (let () (declare (not safe)) - (gx#stx-e _hd132282132324_)))) - (let ((_hd132285132332_ + (gx#stx-e _hd132544132586_)))) + (let ((_hd132547132594_ (let () (declare (not safe)) - (##car _e132286132329_))) - (_tl132284132334_ + (##car _e132548132591_))) + (_tl132546132596_ (let () (declare (not safe)) - (##cdr _e132286132329_)))) + (##cdr _e132548132591_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132285132332_)) - (let ((_e132289132337_ + (gx#stx-pair? _hd132547132594_)) + (let ((_e132551132599_ (let () (declare (not safe)) (gx#stx-e - _hd132285132332_)))) - (let ((_hd132288132340_ + _hd132547132594_)))) + (let ((_hd132550132602_ (let () (declare (not safe)) - (##car _e132289132337_))) - (_tl132287132342_ + (##car _e132551132599_))) + (_tl132549132604_ (let () (declare (not safe)) - (##cdr _e132289132337_)))) + (##cdr _e132551132599_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132287132342_)) + _tl132549132604_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132284132334_)) - (let ((_e132292132345_ + _tl132546132596_)) + (let ((_e132554132607_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl132284132334_)))) - (let ((_hd132291132348_ - (let () (declare (not safe)) (##car _e132292132345_))) - (_tl132290132350_ - (let () (declare (not safe)) (##cdr _e132292132345_)))) + (gx#stx-e _tl132546132596_)))) + (let ((_hd132553132610_ + (let () (declare (not safe)) (##car _e132554132607_))) + (_tl132552132612_ + (let () (declare (not safe)) (##cdr _e132554132607_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132290132350_)) + (gx#stx-null? _tl132552132612_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132281132326_)) + (gx#stx-null? _tl132543132588_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132278132318_)) - (let ((_e132295132353_ + (gx#stx-pair? _tl132540132580_)) + (let ((_e132557132615_ (let () (declare (not safe)) - (gx#stx-e _tl132278132318_)))) - (let ((_hd132294132356_ + (gx#stx-e _tl132540132580_)))) + (let ((_hd132556132618_ (let () (declare (not safe)) - (##car _e132295132353_))) - (_tl132293132358_ + (##car _e132557132615_))) + (_tl132555132620_ (let () (declare (not safe)) - (##cdr _e132295132353_)))) + (##cdr _e132557132615_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132293132358_)) - ((lambda (_L132361_ _L132362_ _L132363_) - (let* ((_g132386132404_ - (lambda (_g132387132401_) + (gx#stx-null? _tl132555132620_)) + ((lambda (_L132623_ _L132624_ _L132625_) + (let* ((_g132648132666_ + (lambda (_g132649132663_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132387132401_)))) - (_g132385132455_ - (lambda (_g132387132407_) + _g132649132663_)))) + (_g132647132717_ + (lambda (_g132649132669_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132387132407_)) - (let ((_e132393132409_ + _g132649132669_)) + (let ((_e132655132671_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g132387132407_)))) - (let ((_hd132392132412_ - (let () (declare (not safe)) (##car _e132393132409_))) - (_tl132391132414_ + (gx#stx-e _g132649132669_)))) + (let ((_hd132654132674_ + (let () (declare (not safe)) (##car _e132655132671_))) + (_tl132653132676_ (let () (declare (not safe)) - (##cdr _e132393132409_)))) + (##cdr _e132655132671_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132391132414_)) - (let ((_e132396132417_ + (gx#stx-pair? _tl132653132676_)) + (let ((_e132658132679_ (let () (declare (not safe)) - (gx#stx-e _tl132391132414_)))) - (let ((_hd132395132420_ + (gx#stx-e _tl132653132676_)))) + (let ((_hd132657132682_ (let () (declare (not safe)) - (##car _e132396132417_))) - (_tl132394132422_ + (##car _e132658132679_))) + (_tl132656132684_ (let () (declare (not safe)) - (##cdr _e132396132417_)))) + (##cdr _e132658132679_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132395132420_)) - (let ((_e132399132425_ + (gx#stx-pair? _hd132657132682_)) + (let ((_e132661132687_ (let () (declare (not safe)) - (gx#stx-e _hd132395132420_)))) - (let ((_hd132398132428_ + (gx#stx-e _hd132657132682_)))) + (let ((_hd132660132690_ (let () (declare (not safe)) - (##car _e132399132425_))) - (_tl132397132430_ + (##car _e132661132687_))) + (_tl132659132692_ (let () (declare (not safe)) - (##cdr _e132399132425_)))) - ((lambda (_L132433_ _L132434_ _L132435_) + (##cdr _e132661132687_)))) + ((lambda (_L132695_ _L132696_ _L132697_) (for-each - (lambda (_g132450132452_) + (lambda (_g132712132714_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132450132452_ - _L132435_ - _method-calls131426_ - _slot-refs131427_))) - _L132433_)) - _tl132394132422_ - _tl132397132430_ - _hd132398132428_))) + _g132712132714_ + _L132697_ + _method-calls131688_ + _slot-refs131689_))) + _L132695_)) + _tl132656132684_ + _tl132659132692_ + _hd132660132690_))) (let () (declare (not safe)) - (_g132386132404_ _g132387132407_))))) + (_g132648132666_ _g132649132669_))))) (let () (declare (not safe)) - (_g132386132404_ _g132387132407_))))) + (_g132648132666_ _g132649132669_))))) (let () (declare (not safe)) - (_g132386132404_ _g132387132407_)))))) + (_g132648132666_ _g132649132669_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132385132455_ _L132362_)) - (let* ((_g132458132477_ - (lambda (_g132459132474_) + (_g132647132717_ _L132624_)) + (let* ((_g132720132739_ + (lambda (_g132721132736_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132459132474_)))) - (_g132457132596_ - (lambda (_g132459132480_) + _g132721132736_)))) + (_g132719132858_ + (lambda (_g132721132742_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132459132480_)) - (let ((_e132463132482_ + _g132721132742_)) + (let ((_e132725132744_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g132459132480_)))) - (let ((_hd132462132485_ - (let () (declare (not safe)) (##car _e132463132482_))) - (_tl132461132487_ + (gx#stx-e _g132721132742_)))) + (let ((_hd132724132747_ + (let () (declare (not safe)) (##car _e132725132744_))) + (_tl132723132749_ (let () (declare (not safe)) - (##cdr _e132463132482_)))) + (##cdr _e132725132744_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl132461132487_)) - (let ((_g135508_ + (gx#stx-pair/null? _tl132723132749_)) + (let ((_g135770_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl132461132487_ + _tl132723132749_ '0)))) (begin - (let ((_g135509_ + (let ((_g135771_ (let () (declare (not safe)) - (if (##values? _g135508_) - (##vector-length _g135508_) + (if (##values? _g135770_) + (##vector-length _g135770_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135509_ 2))) + (##fx= _g135771_ 2))) (error "Context expects 2 values" - _g135509_))) - (let ((_target132464132490_ + _g135771_))) + (let ((_target132726132752_ (let () (declare (not safe)) - (##vector-ref _g135508_ 0))) - (_tl132466132492_ + (##vector-ref _g135770_ 0))) + (_tl132728132754_ (let () (declare (not safe)) - (##vector-ref _g135508_ 1)))) + (##vector-ref _g135770_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132466132492_)) - (letrec ((_loop132467132495_ - (lambda (_hd132465132498_ - _clause132471132500_) + (gx#stx-null? _tl132728132754_)) + (letrec ((_loop132729132757_ + (lambda (_hd132727132760_ + _clause132733132762_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132465132498_)) - (let ((_e132468132503_ + _hd132727132760_)) + (let ((_e132730132765_ (let () (declare (not safe)) (gx#stx-e - _hd132465132498_)))) - (let ((_lp-hd132469132506_ + _hd132727132760_)))) + (let ((_lp-hd132731132768_ (let () (declare (not safe)) - (##car _e132468132503_))) - (_lp-tl132470132508_ + (##car _e132730132765_))) + (_lp-tl132732132770_ (let () (declare (not safe)) - (##cdr _e132468132503_)))) - (let ((__tmp135511 + (##cdr _e132730132765_)))) + (let ((__tmp135773 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd132469132506_ _clause132471132500_)))) + (cons _lp-hd132731132768_ _clause132733132762_)))) (declare (not safe)) - (_loop132467132495_ _lp-tl132470132508_ __tmp135511)))) + (_loop132729132757_ _lp-tl132732132770_ __tmp135773)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause132472132511_ - (reverse _clause132471132500_))) - ((lambda (_L132514_) + (let ((_clause132734132773_ + (reverse _clause132733132762_))) + ((lambda (_L132776_) (for-each - (lambda (_clause132527_) - (let* ((_g132529132544_ + (lambda (_clause132789_) + (let* ((_g132791132806_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g132530132541_) + (lambda (_g132792132803_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132530132541_)))) - (_g132528132586_ - (lambda (_g132530132547_) + _g132792132803_)))) + (_g132790132848_ + (lambda (_g132792132809_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132530132547_)) - (let ((_e132536132549_ + (gx#stx-pair? _g132792132809_)) + (let ((_e132798132811_ (let () (declare (not safe)) - (gx#stx-e _g132530132547_)))) - (let ((_hd132535132552_ + (gx#stx-e _g132792132809_)))) + (let ((_hd132797132814_ (let () (declare (not safe)) - (##car _e132536132549_))) - (_tl132534132554_ + (##car _e132798132811_))) + (_tl132796132816_ (let () (declare (not safe)) - (##cdr _e132536132549_)))) + (##cdr _e132798132811_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132535132552_)) - (let ((_e132539132557_ + (gx#stx-pair? _hd132797132814_)) + (let ((_e132801132819_ (let () (declare (not safe)) - (gx#stx-e _hd132535132552_)))) - (let ((_hd132538132560_ + (gx#stx-e _hd132797132814_)))) + (let ((_hd132800132822_ (let () (declare (not safe)) - (##car _e132539132557_))) - (_tl132537132562_ + (##car _e132801132819_))) + (_tl132799132824_ (let () (declare (not safe)) - (##cdr _e132539132557_)))) - ((lambda (_L132565_ - _L132566_ - _L132567_) + (##cdr _e132801132819_)))) + ((lambda (_L132827_ + _L132828_ + _L132829_) (for-each - (lambda (_g132581132583_) + (lambda (_g132843132845_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132581132583_ - _L132567_ - _method-calls131426_ - _slot-refs131427_))) - _L132565_)) - _tl132534132554_ - _tl132537132562_ - _hd132538132560_))) + _g132843132845_ + _L132829_ + _method-calls131688_ + _slot-refs131689_))) + _L132827_)) + _tl132796132816_ + _tl132799132824_ + _hd132800132822_))) (let () (declare (not safe)) - (_g132529132544_ _g132530132547_))))) + (_g132791132806_ _g132792132809_))))) (let () (declare (not safe)) - (_g132529132544_ _g132530132547_)))))) + (_g132791132806_ _g132792132809_)))))) (declare (not safe)) - (_g132528132586_ _clause132527_))) - (let ((__tmp135510 - (lambda (_g132588132591_ _g132589132593_) + (_g132790132848_ _clause132789_))) + (let ((__tmp135772 + (lambda (_g132850132853_ _g132851132855_) (let () (declare (not safe)) - (cons _g132588132591_ _g132589132593_))))) + (cons _g132850132853_ _g132851132855_))))) (declare (not safe)) - (foldr1 __tmp135510 '() _L132514_)))) + (foldr1 __tmp135772 '() _L132776_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause132472132511_)))))) + _clause132734132773_)))))) (let () (declare (not safe)) - (_loop132467132495_ - _target132464132490_ + (_loop132729132757_ + _target132726132752_ '()))) (let () (declare (not safe)) - (_g132458132477_ _g132459132480_)))))) + (_g132720132739_ _g132721132742_)))))) (let () (declare (not safe)) - (_g132458132477_ _g132459132480_))))) + (_g132720132739_ _g132721132742_))))) (let () (declare (not safe)) - (_g132458132477_ _g132459132480_)))))) + (_g132720132739_ _g132721132742_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132457132596_ _L132361_)) + (_g132719132858_ _L132623_)) (if (let () (declare (not safe)) - (_no-specializer?131430_)) - _stx131334_ - (let* ((_specializer-id132605_ - (let* ((_id132599_ - (let ((__tmp135512 + (_no-specializer?131692_)) + _stx131596_ + (let* ((_specializer-id132867_ + (let* ((_id132861_ + (let ((__tmp135774 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L131407_)))) + (gx#stx-e _L131669_)))) (declare (not safe)) - (make-symbol__1 __tmp135512 '"::specialize"))) - (_specializer-id132602_ - (let ((__tmp135513 + (make-symbol__1 __tmp135774 '"::specialize"))) + (_specializer-id132864_ + (let ((__tmp135775 (let () (declare (not safe)) - (gx#stx-source _stx131334_)))) + (gx#stx-source _stx131596_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id132599_ __tmp135513)))) + (gx#core-quote-syntax__1 _id132861_ __tmp135775)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id132602_)) - _specializer-id132602_)) + (gx#core-bind-runtime!__0 _specializer-id132864_)) + _specializer-id132864_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass132607_ - (let ((__tmp135514 + (_$klass132869_ + (let ((__tmp135776 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp135514))) - (_$method-table132609_ - (let ((__tmp135515 + __tmp135776))) + (_$method-table132871_ + (let ((__tmp135777 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp135515))) - (_methods132611_ + __tmp135777))) + (_methods132873_ (let () (declare (not safe)) (hash-keys - _method-calls131426_))) - (_$methods132615_ - (map (lambda (_id132613_) - (let ((__tmp135516 + _method-calls131688_))) + (_$methods132877_ + (map (lambda (_id132875_) + (let ((__tmp135778 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id132613_))) + (gensym _id132875_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135516))) - _methods132611_)) + (make-symbol__1 '"__" __tmp135778))) + _methods132873_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135517_ + (_g135779_ (for-each - (lambda (_g132616132619_ - _g132617132621_) + (lambda (_g132878132881_ + _g132879132883_) (let () (declare (not safe)) (hash-put! - _method-calls131426_ - _g132616132619_ - _g132617132621_))) - _methods132611_ - _$methods132615_)) - (_methods-bind132632_ - (map (lambda (_g132624132627_ + _method-calls131688_ + _g132878132881_ + _g132879132883_))) + _methods132873_ + _$methods132877_)) + (_methods-bind132894_ + (map (lambda (_g132886132889_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g132625132629_) + _g132887132891_) (let () (declare (not safe)) - (_generate-method-bind131336_ - _$klass132607_ - _$method-table132609_ - _g132624132627_ - _g132625132629_))) - _methods132611_ - _$methods132615_)) + (_generate-method-bind131598_ + _$klass132869_ + _$method-table132871_ + _g132886132889_ + _g132887132891_))) + _methods132873_ + _$methods132877_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots132634_ + (_slots132896_ (let () (declare (not safe)) (hash-keys - _slot-refs131427_))) - (_$slots132638_ - (map (lambda (_id132636_) - (let ((__tmp135518 + _slot-refs131689_))) + (_$slots132900_ + (map (lambda (_id132898_) + (let ((__tmp135780 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id132636_))) + (gensym _id132898_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135518))) - _slots132634_)) + (make-symbol__1 '"__" __tmp135780))) + _slots132896_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135519_ + (_g135781_ (for-each - (lambda (_g132639132642_ - _g132640132644_) + (lambda (_g132901132904_ + _g132902132906_) (let () (declare (not safe)) (hash-put! - _slot-refs131427_ - _g132639132642_ - _g132640132644_))) - _slots132634_ - _$slots132638_)) - (_slots-bind132655_ - (map (lambda (_g132647132650_ + _slot-refs131689_ + _g132901132904_ + _g132902132906_))) + _slots132896_ + _$slots132900_)) + (_slots-bind132917_ + (map (lambda (_g132909132912_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g132648132652_) + _g132910132914_) (let () (declare (not safe)) - (_generate-slot-bind131337_ - _$klass132607_ - _g132647132650_ - _g132648132652_))) - _slots132634_ - _$slots132638_)) + (_generate-slot-bind131599_ + _$klass132869_ + _g132909132912_ + _g132910132914_))) + _slots132896_ + _$slots132900_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr132741_ - (let* ((_g132657132675_ - (lambda (_g132658132672_) + (_specializer-lambda-expr133003_ + (let* ((_g132919132937_ + (lambda (_g132920132934_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132658132672_)))) - (_g132656132738_ - (lambda (_g132658132678_) + _g132920132934_)))) + (_g132918133000_ + (lambda (_g132920132940_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132658132678_)) - (let ((_e132664132680_ + (gx#stx-pair? _g132920132940_)) + (let ((_e132926132942_ (let () (declare (not safe)) - (gx#stx-e _g132658132678_)))) - (let ((_hd132663132683_ + (gx#stx-e _g132920132940_)))) + (let ((_hd132925132945_ (let () (declare (not safe)) - (##car _e132664132680_))) - (_tl132662132685_ + (##car _e132926132942_))) + (_tl132924132947_ (let () (declare (not safe)) - (##cdr _e132664132680_)))) + (##cdr _e132926132942_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132662132685_)) - (let ((_e132667132688_ + (gx#stx-pair? _tl132924132947_)) + (let ((_e132929132950_ (let () (declare (not safe)) - (gx#stx-e _tl132662132685_)))) - (let ((_hd132666132691_ + (gx#stx-e _tl132924132947_)))) + (let ((_hd132928132953_ (let () (declare (not safe)) - (##car _e132667132688_))) - (_tl132665132693_ + (##car _e132929132950_))) + (_tl132927132955_ (let () (declare (not safe)) - (##cdr _e132667132688_)))) + (##cdr _e132929132950_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132666132691_)) - (let ((_e132670132696_ + (gx#stx-pair? _hd132928132953_)) + (let ((_e132932132958_ (let () (declare (not safe)) (gx#stx-e - _hd132666132691_)))) - (let ((_hd132669132699_ + _hd132928132953_)))) + (let ((_hd132931132961_ (let () (declare (not safe)) - (##car _e132670132696_))) - (_tl132668132701_ + (##car _e132932132958_))) + (_tl132930132963_ (let () (declare (not safe)) - (##cdr _e132670132696_)))) - ((lambda (_L132704_ - _L132705_ - _L132706_) - (let* ((_body132736_ - (map (lambda (_g132731132733_) + (##cdr _e132932132958_)))) + ((lambda (_L132966_ + _L132967_ + _L132968_) + (let* ((_body132998_ + (map (lambda (_g132993132995_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132731132733_ - _L132706_ - _$klass132607_ - _method-calls131426_ - _slot-refs131427_))) - _L132704_)) - (__tmp135520 - (let ((__tmp135521 - (let ((__tmp135522 + _g132993132995_ + _L132968_ + _$klass132869_ + _method-calls131688_ + _slot-refs131689_))) + _L132966_)) + (__tmp135782 + (let ((__tmp135783 + (let ((__tmp135784 (let () (declare (not safe)) - (cons _L132706_ _L132705_)))) + (cons _L132968_ _L132967_)))) (declare (not safe)) - (cons __tmp135522 _body132736_)))) + (cons __tmp135784 _body132998_)))) (declare (not safe)) - (cons '%#lambda __tmp135521)))) + (cons '%#lambda __tmp135783)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135520 - _L132362_))) - _tl132665132693_ - _tl132668132701_ - _hd132669132699_))) + __tmp135782 + _L132624_))) + _tl132927132955_ + _tl132930132963_ + _hd132931132961_))) (let () (declare (not safe)) - (_g132657132675_ - _g132658132678_))))) + (_g132919132937_ + _g132920132940_))))) (let () (declare (not safe)) - (_g132657132675_ _g132658132678_))))) + (_g132919132937_ _g132920132940_))))) (let () (declare (not safe)) - (_g132657132675_ _g132658132678_)))))) + (_g132919132937_ _g132920132940_)))))) (declare (not safe)) - (_g132656132738_ _L132362_))) + (_g132918133000_ _L132624_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-case-lambda-expr132898_ - (let* ((_g132743132762_ - (lambda (_g132744132759_) + (_specializer-case-lambda-expr133160_ + (let* ((_g133005133024_ + (lambda (_g133006133021_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132744132759_)))) - (_g132742132895_ - (lambda (_g132744132765_) + _g133006133021_)))) + (_g133004133157_ + (lambda (_g133006133027_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132744132765_)) - (let ((_e132748132767_ + (gx#stx-pair? _g133006133027_)) + (let ((_e133010133029_ (let () (declare (not safe)) - (gx#stx-e _g132744132765_)))) - (let ((_hd132747132770_ + (gx#stx-e _g133006133027_)))) + (let ((_hd133009133032_ (let () (declare (not safe)) - (##car _e132748132767_))) - (_tl132746132772_ + (##car _e133010133029_))) + (_tl133008133034_ (let () (declare (not safe)) - (##cdr _e132748132767_)))) + (##cdr _e133010133029_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl132746132772_)) - (let ((_g135523_ + (gx#stx-pair/null? _tl133008133034_)) + (let ((_g135785_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl132746132772_ + _tl133008133034_ '0)))) (begin - (let ((_g135524_ + (let ((_g135786_ (let () (declare (not safe)) - (if (##values? _g135523_) + (if (##values? _g135785_) (##vector-length - _g135523_) + _g135785_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135524_ 2))) + (##fx= _g135786_ 2))) (error "Context expects 2 values" - _g135524_))) - (let ((_target132749132775_ + _g135786_))) + (let ((_target133011133037_ (let () (declare (not safe)) - (##vector-ref _g135523_ 0))) - (_tl132751132777_ + (##vector-ref _g135785_ 0))) + (_tl133013133039_ (let () (declare (not safe)) - (##vector-ref _g135523_ 1)))) + (##vector-ref _g135785_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132751132777_)) - (letrec ((_loop132752132780_ - (lambda (_hd132750132783_ + _tl133013133039_)) + (letrec ((_loop133014133042_ + (lambda (_hd133012133045_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause132756132785_) + _clause133018133047_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132750132783_)) - (let ((_e132753132788_ + (gx#stx-pair? _hd133012133045_)) + (let ((_e133015133050_ (let () (declare (not safe)) - (gx#stx-e _hd132750132783_)))) - (let ((_lp-hd132754132791_ + (gx#stx-e _hd133012133045_)))) + (let ((_lp-hd133016133053_ (let () (declare (not safe)) - (##car _e132753132788_))) - (_lp-tl132755132793_ + (##car _e133015133050_))) + (_lp-tl133017133055_ (let () (declare (not safe)) - (##cdr _e132753132788_)))) - (let ((__tmp135528 + (##cdr _e133015133050_)))) + (let ((__tmp135790 (let () (declare (not safe)) - (cons _lp-hd132754132791_ - _clause132756132785_)))) + (cons _lp-hd133016133053_ + _clause133018133047_)))) (declare (not safe)) - (_loop132752132780_ - _lp-tl132755132793_ - __tmp135528)))) - (let ((_clause132757132796_ - (reverse _clause132756132785_))) - ((lambda (_L132799_) - (let* ((_clauses132893_ - (map (lambda (_clause132813_) - (let* ((___stx134248134249_ - _clause132813_) - (_g132816132831_ + (_loop133014133042_ + _lp-tl133017133055_ + __tmp135790)))) + (let ((_clause133019133058_ + (reverse _clause133018133047_))) + ((lambda (_L133061_) + (let* ((_clauses133155_ + (map (lambda (_clause133075_) + (let* ((___stx134510134511_ + _clause133075_) + (_g133078133093_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134248134249_))))) - (let ((___kont134250134251_ - (lambda (_L132859_ - _L132860_ - _L132861_) - (let* ((_body132881_ - (map (lambda (_g132876132878_) + ___stx134510134511_))))) + (let ((___kont134512134513_ + (lambda (_L133121_ + _L133122_ + _L133123_) + (let* ((_body133143_ + (map (lambda (_g133138133140_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132876132878_ - _L132861_ - _$klass132607_ - _method-calls131426_ - _slot-refs131427_))) - _L132859_)) - (__tmp135525 - (let () (declare (not safe)) (cons _L132861_ _L132860_)))) + _g133138133140_ + _L133123_ + _$klass132869_ + _method-calls131688_ + _slot-refs131689_))) + _L133121_)) + (__tmp135787 + (let () (declare (not safe)) (cons _L133123_ _L133122_)))) (declare (not safe)) - (cons __tmp135525 _body132881_)))) + (cons __tmp135787 _body133143_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134252134253_ - (lambda () _clause132813_))) + (___kont134514134515_ + (lambda () _clause133075_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx134248134249_)) - (let ((_e132823132843_ + ___stx134510134511_)) + (let ((_e133085133105_ (let () (declare (not safe)) (gx#stx-e - ___stx134248134249_)))) - (let ((_tl132821132848_ + ___stx134510134511_)))) + (let ((_tl133083133110_ (let () (declare (not safe)) - (##cdr _e132823132843_))) - (_hd132822132846_ + (##cdr _e133085133105_))) + (_hd133084133108_ (let () (declare (not safe)) - (##car _e132823132843_)))) + (##car _e133085133105_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132822132846_)) - (let ((_e132826132851_ + _hd133084133108_)) + (let ((_e133088133113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd132822132846_)))) - (let ((_tl132824132856_ + (gx#stx-e _hd133084133108_)))) + (let ((_tl133086133118_ (let () (declare (not safe)) - (##cdr _e132826132851_))) - (_hd132825132854_ + (##cdr _e133088133113_))) + (_hd133087133116_ (let () (declare (not safe)) - (##car _e132826132851_)))) - (___kont134250134251_ - _tl132821132848_ - _tl132824132856_ - _hd132825132854_))) - (___kont134252134253_)))) + (##car _e133088133113_)))) + (___kont134512134513_ + _tl133083133110_ + _tl133086133118_ + _hd133087133116_))) + (___kont134514134515_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134252134253_))))) - (let ((__tmp135526 - (lambda (_g132885132888_ - _g132886132890_) + (___kont134514134515_))))) + (let ((__tmp135788 + (lambda (_g133147133150_ + _g133148133152_) (let () (declare (not safe)) - (cons _g132885132888_ - _g132886132890_))))) + (cons _g133147133150_ + _g133148133152_))))) (declare (not safe)) - (foldr1 __tmp135526 '() _L132799_)))) - (__tmp135527 + (foldr1 __tmp135788 '() _L133061_)))) + (__tmp135789 (let () (declare (not safe)) - (cons '%#case-lambda _clauses132893_)))) + (cons '%#case-lambda _clauses133155_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135527 _L132361_))) - _clause132757132796_)))))) + (gxc#xform-wrap-source __tmp135789 _L132623_))) + _clause133019133058_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop132752132780_ - _target132749132775_ + (_loop133014133042_ + _target133011133037_ '()))) (let () (declare (not safe)) - (_g132743132762_ - _g132744132765_)))))) + (_g133005133024_ + _g133006133027_)))))) (let () (declare (not safe)) - (_g132743132762_ _g132744132765_))))) + (_g133005133024_ _g133006133027_))))) (let () (declare (not safe)) - (_g132743132762_ _g132744132765_)))))) + (_g133005133024_ _g133006133027_)))))) (declare (not safe)) - (_g132742132895_ _L132361_))) + (_g133004133157_ _L132623_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl132900_ - (let ((__tmp135529 - (let ((__tmp135530 + (_specializer-impl133162_ + (let ((__tmp135791 + (let ((__tmp135792 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135532 - (let ((__tmp135533 - (let ((__tmp135535 + (let ((__tmp135794 + (let ((__tmp135795 + (let ((__tmp135797 (let () (declare (not safe)) - (cons _L132363_ '()))) - (__tmp135534 + (cons _L132625_ '()))) + (__tmp135796 (let () (declare (not safe)) - (cons _specializer-lambda-expr132741_ + (cons _specializer-lambda-expr133003_ '())))) (declare (not safe)) - (cons __tmp135535 __tmp135534)))) + (cons __tmp135797 __tmp135796)))) (declare (not safe)) - (cons __tmp135533 '()))) - (__tmp135531 + (cons __tmp135795 '()))) + (__tmp135793 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr132898_ + (cons _specializer-case-lambda-expr133160_ '())))) (declare (not safe)) - (cons __tmp135532 __tmp135531)))) + (cons __tmp135794 __tmp135793)))) (declare (not safe)) - (cons '%#let-values __tmp135530)))) + (cons '%#let-values __tmp135792)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135529 _stx131334_))) + (gxc#xform-wrap-source __tmp135791 _stx131596_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl132902_ + (_specializer-impl133164_ (let () (declare (not safe)) - (_generate-specializer-impl131338_ - _$klass132607_ - _$method-table132609_ - _methods-bind132632_ - _slots-bind132655_ - _specializer-impl132900_)))) - (let ((__tmp135537 + (_generate-specializer-impl131600_ + _$klass132869_ + _$method-table132871_ + _methods-bind132894_ + _slots-bind132917_ + _specializer-impl133162_)))) + (let ((__tmp135799 (let () (declare (not safe)) - (gx#stx-e _L131407_))) - (__tmp135536 + (gx#stx-e _L131669_))) + (__tmp135798 (let () (declare (not safe)) (gx#stx-e - _specializer-id132605_)))) + _specializer-id132867_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135537 + __tmp135799 '" => " - __tmp135536)) + __tmp135798)) (let () (declare (not safe)) - (_generate-specializer-def131339_ - _L131407_ - _specializer-id132605_ - _specializer-impl132902_))))) - _hd132294132356_ - _hd132291132348_ - _hd132288132340_) + (_generate-specializer-def131601_ + _L131669_ + _specializer-id132867_ + _specializer-impl133164_))))) + _hd132556132618_ + _hd132553132610_ + _hd132550132602_) (let () (declare (not safe)) - (_g132270132300_ _g132271132303_))))) + (_g132532132562_ _g132533132565_))))) (let () (declare (not safe)) - (_g132270132300_ _g132271132303_))) + (_g132532132562_ _g132533132565_))) (let () (declare (not safe)) - (_g132270132300_ _g132271132303_))) + (_g132532132562_ _g132533132565_))) (let () (declare (not safe)) - (_g132270132300_ _g132271132303_))))) - (let () (declare (not safe)) (_g132270132300_ _g132271132303_))) + (_g132532132562_ _g132533132565_))))) + (let () (declare (not safe)) (_g132532132562_ _g132533132565_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132270132300_ - _g132271132303_))))) + (_g132532132562_ + _g132533132565_))))) (let () (declare (not safe)) - (_g132270132300_ - _g132271132303_))))) + (_g132532132562_ + _g132533132565_))))) (let () (declare (not safe)) - (_g132270132300_ _g132271132303_))))) + (_g132532132562_ _g132533132565_))))) (let () (declare (not safe)) - (_g132270132300_ _g132271132303_))))) + (_g132532132562_ _g132533132565_))))) (let () (declare (not safe)) - (_g132270132300_ _g132271132303_))))) + (_g132532132562_ _g132533132565_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132270132300_ - _g132271132303_)))))) + (_g132532132562_ + _g132533132565_)))))) (declare (not safe)) - (_g132269132905_ _L131406_)) + (_g132531133167_ _L131668_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L131406_)) - (let* ((_g132908132961_ - (lambda (_g132909132958_) + (gxc#kw-lambda-expr? _L131668_)) + (let* ((_g133170133223_ + (lambda (_g133171133220_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132909132958_)))) - (_g132907134092_ - (lambda (_g132909132964_) + _g133171133220_)))) + (_g133169134354_ + (lambda (_g133171133226_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132909132964_)) - (let ((_e132917132966_ + _g133171133226_)) + (let ((_e133179133228_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g132909132964_)))) - (let ((_hd132916132969_ - (let () (declare (not safe)) (##car _e132917132966_))) - (_tl132915132971_ - (let () (declare (not safe)) (##cdr _e132917132966_)))) + (gx#stx-e _g133171133226_)))) + (let ((_hd133178133231_ + (let () (declare (not safe)) (##car _e133179133228_))) + (_tl133177133233_ + (let () (declare (not safe)) (##cdr _e133179133228_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132916132969_)) + (gx#identifier? _hd133178133231_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd132916132969_)) + (gx#stx-eq? '%#let-values _hd133178133231_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132915132971_)) - (let ((_e132920132974_ + (gx#stx-pair? _tl133177133233_)) + (let ((_e133182133236_ (let () (declare (not safe)) - (gx#stx-e _tl132915132971_)))) - (let ((_hd132919132977_ + (gx#stx-e _tl133177133233_)))) + (let ((_hd133181133239_ (let () (declare (not safe)) - (##car _e132920132974_))) - (_tl132918132979_ + (##car _e133182133236_))) + (_tl133180133241_ (let () (declare (not safe)) - (##cdr _e132920132974_)))) + (##cdr _e133182133236_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132919132977_)) - (let ((_e132923132982_ + (gx#stx-pair? _hd133181133239_)) + (let ((_e133185133244_ (let () (declare (not safe)) - (gx#stx-e _hd132919132977_)))) - (let ((_hd132922132985_ + (gx#stx-e _hd133181133239_)))) + (let ((_hd133184133247_ (let () (declare (not safe)) - (##car _e132923132982_))) - (_tl132921132987_ + (##car _e133185133244_))) + (_tl133183133249_ (let () (declare (not safe)) - (##cdr _e132923132982_)))) + (##cdr _e133185133244_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132922132985_)) - (let ((_e132926132990_ + _hd133184133247_)) + (let ((_e133188133252_ (let () (declare (not safe)) (gx#stx-e - _hd132922132985_)))) - (let ((_hd132925132993_ + _hd133184133247_)))) + (let ((_hd133187133255_ (let () (declare (not safe)) - (##car _e132926132990_))) - (_tl132924132995_ + (##car _e133188133252_))) + (_tl133186133257_ (let () (declare (not safe)) - (##cdr _e132926132990_)))) + (##cdr _e133188133252_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132925132993_)) - (let ((_e132929132998_ + _hd133187133255_)) + (let ((_e133191133260_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd132925132993_)))) - (let ((_hd132928133001_ - (let () (declare (not safe)) (##car _e132929132998_))) - (_tl132927133003_ - (let () (declare (not safe)) (##cdr _e132929132998_)))) + (gx#stx-e _hd133187133255_)))) + (let ((_hd133190133263_ + (let () (declare (not safe)) (##car _e133191133260_))) + (_tl133189133265_ + (let () (declare (not safe)) (##cdr _e133191133260_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132927133003_)) + (gx#stx-null? _tl133189133265_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132924132995_)) - (let ((_e132932133006_ + (gx#stx-pair? _tl133186133257_)) + (let ((_e133194133268_ (let () (declare (not safe)) - (gx#stx-e _tl132924132995_)))) - (let ((_hd132931133009_ + (gx#stx-e _tl133186133257_)))) + (let ((_hd133193133271_ (let () (declare (not safe)) - (##car _e132932133006_))) - (_tl132930133011_ + (##car _e133194133268_))) + (_tl133192133273_ (let () (declare (not safe)) - (##cdr _e132932133006_)))) + (##cdr _e133194133268_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132931133009_)) - (let ((_e132935133014_ + (gx#stx-pair? _hd133193133271_)) + (let ((_e133197133276_ (let () (declare (not safe)) - (gx#stx-e _hd132931133009_)))) - (let ((_hd132934133017_ + (gx#stx-e _hd133193133271_)))) + (let ((_hd133196133279_ (let () (declare (not safe)) - (##car _e132935133014_))) - (_tl132933133019_ + (##car _e133197133276_))) + (_tl133195133281_ (let () (declare (not safe)) - (##cdr _e132935133014_)))) + (##cdr _e133197133276_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132934133017_)) + (gx#identifier? _hd133196133279_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd132934133017_)) + _hd133196133279_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132933133019_)) - (let ((_e132938133022_ + _tl133195133281_)) + (let ((_e133200133284_ (let () (declare (not safe)) (gx#stx-e - _tl132933133019_)))) - (let ((_hd132937133025_ + _tl133195133281_)))) + (let ((_hd133199133287_ (let () (declare (not safe)) - (##car _e132938133022_))) - (_tl132936133027_ + (##car _e133200133284_))) + (_tl133198133289_ (let () (declare (not safe)) - (##cdr _e132938133022_)))) + (##cdr _e133200133284_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132937133025_)) - (let ((_e132941133030_ + _hd133199133287_)) + (let ((_e133203133292_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd132937133025_)))) - (let ((_hd132940133033_ + (gx#stx-e _hd133199133287_)))) + (let ((_hd133202133295_ (let () (declare (not safe)) - (##car _e132941133030_))) - (_tl132939133035_ + (##car _e133203133292_))) + (_tl133201133297_ (let () (declare (not safe)) - (##cdr _e132941133030_)))) + (##cdr _e133203133292_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132940133033_)) - (let ((_e132944133038_ + (gx#stx-pair? _hd133202133295_)) + (let ((_e133206133300_ (let () (declare (not safe)) - (gx#stx-e _hd132940133033_)))) - (let ((_hd132943133041_ + (gx#stx-e _hd133202133295_)))) + (let ((_hd133205133303_ (let () (declare (not safe)) - (##car _e132944133038_))) - (_tl132942133043_ + (##car _e133206133300_))) + (_tl133204133305_ (let () (declare (not safe)) - (##cdr _e132944133038_)))) + (##cdr _e133206133300_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132943133041_)) - (let ((_e132947133046_ + (gx#stx-pair? _hd133205133303_)) + (let ((_e133209133308_ (let () (declare (not safe)) - (gx#stx-e _hd132943133041_)))) - (let ((_hd132946133049_ + (gx#stx-e _hd133205133303_)))) + (let ((_hd133208133311_ (let () (declare (not safe)) - (##car _e132947133046_))) - (_tl132945133051_ + (##car _e133209133308_))) + (_tl133207133313_ (let () (declare (not safe)) - (##cdr _e132947133046_)))) + (##cdr _e133209133308_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132945133051_)) + (gx#stx-null? _tl133207133313_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132942133043_)) - (let ((_e132950133054_ + _tl133204133305_)) + (let ((_e133212133316_ (let () (declare (not safe)) (gx#stx-e - _tl132942133043_)))) - (let ((_hd132949133057_ + _tl133204133305_)))) + (let ((_hd133211133319_ (let () (declare (not safe)) - (##car _e132950133054_))) - (_tl132948133059_ + (##car _e133212133316_))) + (_tl133210133321_ (let () (declare (not safe)) - (##cdr _e132950133054_)))) + (##cdr _e133212133316_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132948133059_)) + _tl133210133321_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl132939133035_)) + _tl133201133297_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl132936133027_)) - (let ((_e132953133062_ + (gx#stx-pair? _tl133198133289_)) + (let ((_e133215133324_ (let () (declare (not safe)) - (gx#stx-e _tl132936133027_)))) - (let ((_hd132952133065_ + (gx#stx-e _tl133198133289_)))) + (let ((_hd133214133327_ (let () (declare (not safe)) - (##car _e132953133062_))) - (_tl132951133067_ + (##car _e133215133324_))) + (_tl133213133329_ (let () (declare (not safe)) - (##cdr _e132953133062_)))) + (##cdr _e133215133324_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132951133067_)) + (gx#stx-null? _tl133213133329_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132930133011_)) + (gx#stx-null? _tl133192133273_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132921132987_)) + (gx#stx-null? _tl133183133249_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132918132979_)) - (let ((_e132956133070_ + (gx#stx-pair? _tl133180133241_)) + (let ((_e133218133332_ (let () (declare (not safe)) (gx#stx-e - _tl132918132979_)))) - (let ((_hd132955133073_ + _tl133180133241_)))) + (let ((_hd133217133335_ (let () (declare (not safe)) - (##car _e132956133070_))) - (_tl132954133075_ + (##car _e133218133332_))) + (_tl133216133337_ (let () (declare (not safe)) - (##cdr _e132956133070_)))) + (##cdr _e133218133332_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132954133075_)) - ((lambda (_L133078_ - _L133079_ - _L133080_ - _L133081_ - _L133082_) - (let* ((_g133121133183_ - (lambda (_g133122133180_) + _tl133216133337_)) + ((lambda (_L133340_ + _L133341_ + _L133342_ + _L133343_ + _L133344_) + (let* ((_g133383133445_ + (lambda (_g133384133442_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133122133180_)))) - (_g133120134089_ - (lambda (_g133122133186_) + _g133384133442_)))) + (_g133382134351_ + (lambda (_g133384133448_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133122133186_)) - (let ((_e133130133188_ + (gx#stx-pair? _g133384133448_)) + (let ((_e133392133450_ (let () (declare (not safe)) - (gx#stx-e _g133122133186_)))) - (let ((_hd133129133191_ + (gx#stx-e _g133384133448_)))) + (let ((_hd133391133453_ (let () (declare (not safe)) - (##car _e133130133188_))) - (_tl133128133193_ + (##car _e133392133450_))) + (_tl133390133455_ (let () (declare (not safe)) - (##cdr _e133130133188_)))) + (##cdr _e133392133450_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd133129133191_)) + (gx#identifier? _hd133391133453_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd133129133191_)) + _hd133391133453_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133128133193_)) - (let ((_e133133133196_ + (gx#stx-pair? _tl133390133455_)) + (let ((_e133395133458_ (let () (declare (not safe)) (gx#stx-e - _tl133128133193_)))) - (let ((_hd133132133199_ + _tl133390133455_)))) + (let ((_hd133394133461_ (let () (declare (not safe)) - (##car _e133133133196_))) - (_tl133131133201_ + (##car _e133395133458_))) + (_tl133393133463_ (let () (declare (not safe)) - (##cdr _e133133133196_)))) + (##cdr _e133395133458_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133131133201_)) - (let ((_e133136133204_ + _tl133393133463_)) + (let ((_e133398133466_ (let () (declare (not safe)) (gx#stx-e - _tl133131133201_)))) - (let ((_hd133135133207_ + _tl133393133463_)))) + (let ((_hd133397133469_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e133136133204_))) - (_tl133134133209_ - (let () (declare (not safe)) (##cdr _e133136133204_)))) + (##car _e133398133466_))) + (_tl133396133471_ + (let () (declare (not safe)) (##cdr _e133398133466_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133135133207_)) - (let ((_e133139133212_ + (gx#stx-pair? _hd133397133469_)) + (let ((_e133401133474_ (let () (declare (not safe)) - (gx#stx-e _hd133135133207_)))) - (let ((_hd133138133215_ + (gx#stx-e _hd133397133469_)))) + (let ((_hd133400133477_ (let () (declare (not safe)) - (##car _e133139133212_))) - (_tl133137133217_ + (##car _e133401133474_))) + (_tl133399133479_ (let () (declare (not safe)) - (##cdr _e133139133212_)))) + (##cdr _e133401133474_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd133138133215_)) + (gx#identifier? _hd133400133477_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd133138133215_)) + (gx#stx-eq? '%#call _hd133400133477_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133137133217_)) - (let ((_e133142133220_ + (gx#stx-pair? _tl133399133479_)) + (let ((_e133404133482_ (let () (declare (not safe)) - (gx#stx-e _tl133137133217_)))) - (let ((_hd133141133223_ + (gx#stx-e _tl133399133479_)))) + (let ((_hd133403133485_ (let () (declare (not safe)) - (##car _e133142133220_))) - (_tl133140133225_ + (##car _e133404133482_))) + (_tl133402133487_ (let () (declare (not safe)) - (##cdr _e133142133220_)))) + (##cdr _e133404133482_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133141133223_)) - (let ((_e133145133228_ + (gx#stx-pair? _hd133403133485_)) + (let ((_e133407133490_ (let () (declare (not safe)) (gx#stx-e - _hd133141133223_)))) - (let ((_hd133144133231_ + _hd133403133485_)))) + (let ((_hd133406133493_ (let () (declare (not safe)) - (##car _e133145133228_))) - (_tl133143133233_ + (##car _e133407133490_))) + (_tl133405133495_ (let () (declare (not safe)) - (##cdr _e133145133228_)))) + (##cdr _e133407133490_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133144133231_)) + _hd133406133493_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133144133231_)) + _hd133406133493_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133143133233_)) - (let ((_e133148133236_ + _tl133405133495_)) + (let ((_e133410133498_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133143133233_)))) - (let ((_hd133147133239_ + (gx#stx-e _tl133405133495_)))) + (let ((_hd133409133501_ (let () (declare (not safe)) - (##car _e133148133236_))) - (_tl133146133241_ + (##car _e133410133498_))) + (_tl133408133503_ (let () (declare (not safe)) - (##cdr _e133148133236_)))) + (##cdr _e133410133498_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133146133241_)) + (gx#stx-null? _tl133408133503_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133140133225_)) - (let ((_e133151133244_ + (gx#stx-pair? _tl133402133487_)) + (let ((_e133413133506_ (let () (declare (not safe)) - (gx#stx-e _tl133140133225_)))) - (let ((_hd133150133247_ + (gx#stx-e _tl133402133487_)))) + (let ((_hd133412133509_ (let () (declare (not safe)) - (##car _e133151133244_))) - (_tl133149133249_ + (##car _e133413133506_))) + (_tl133411133511_ (let () (declare (not safe)) - (##cdr _e133151133244_)))) + (##cdr _e133413133506_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133150133247_)) - (let ((_e133154133252_ + (gx#stx-pair? _hd133412133509_)) + (let ((_e133416133514_ (let () (declare (not safe)) - (gx#stx-e _hd133150133247_)))) - (let ((_hd133153133255_ + (gx#stx-e _hd133412133509_)))) + (let ((_hd133415133517_ (let () (declare (not safe)) - (##car _e133154133252_))) - (_tl133152133257_ + (##car _e133416133514_))) + (_tl133414133519_ (let () (declare (not safe)) - (##cdr _e133154133252_)))) + (##cdr _e133416133514_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133153133255_)) + _hd133415133517_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133153133255_)) + _hd133415133517_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133152133257_)) - (let ((_e133157133260_ + _tl133414133519_)) + (let ((_e133419133522_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl133152133257_)))) - (let ((_hd133156133263_ - (let () (declare (not safe)) (##car _e133157133260_))) - (_tl133155133265_ + (gx#stx-e _tl133414133519_)))) + (let ((_hd133418133525_ + (let () (declare (not safe)) (##car _e133419133522_))) + (_tl133417133527_ (let () (declare (not safe)) - (##cdr _e133157133260_)))) + (##cdr _e133419133522_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133155133265_)) + (gx#stx-null? _tl133417133527_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133149133249_)) - (let ((_e133160133268_ + (gx#stx-pair? _tl133411133511_)) + (let ((_e133422133530_ (let () (declare (not safe)) - (gx#stx-e _tl133149133249_)))) - (let ((_hd133159133271_ + (gx#stx-e _tl133411133511_)))) + (let ((_hd133421133533_ (let () (declare (not safe)) - (##car _e133160133268_))) - (_tl133158133273_ + (##car _e133422133530_))) + (_tl133420133535_ (let () (declare (not safe)) - (##cdr _e133160133268_)))) + (##cdr _e133422133530_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133159133271_)) - (let ((_e133163133276_ + (gx#stx-pair? _hd133421133533_)) + (let ((_e133425133538_ (let () (declare (not safe)) - (gx#stx-e _hd133159133271_)))) - (let ((_hd133162133279_ + (gx#stx-e _hd133421133533_)))) + (let ((_hd133424133541_ (let () (declare (not safe)) - (##car _e133163133276_))) - (_tl133161133281_ + (##car _e133425133538_))) + (_tl133423133543_ (let () (declare (not safe)) - (##cdr _e133163133276_)))) + (##cdr _e133425133538_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133162133279_)) + _hd133424133541_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133162133279_)) + _hd133424133541_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133161133281_)) - (let ((_e133166133284_ + _tl133423133543_)) + (let ((_e133428133546_ (let () (declare (not safe)) (gx#stx-e - _tl133161133281_)))) - (let ((_hd133165133287_ + _tl133423133543_)))) + (let ((_hd133427133549_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e133166133284_))) - (_tl133164133289_ - (let () (declare (not safe)) (##cdr _e133166133284_)))) + (##car _e133428133546_))) + (_tl133426133551_ + (let () (declare (not safe)) (##cdr _e133428133546_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133164133289_)) + (gx#stx-null? _tl133426133551_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133158133273_)) + (gx#stx-pair/null? _tl133420133535_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl133158133273_)) + (gx#stx-length _tl133420133535_)) '1) - (let ((_g135434_ + (let ((_g135696_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133158133273_ + _tl133420133535_ '1)))) (begin - (let ((_g135435_ + (let ((_g135697_ (let () (declare (not safe)) - (if (##values? _g135434_) - (##vector-length _g135434_) + (if (##values? _g135696_) + (##vector-length _g135696_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135435_ 2))) + (##fx= _g135697_ 2))) (error "Context expects 2 values" - _g135435_))) - (let ((_target133167133292_ + _g135697_))) + (let ((_target133429133554_ (let () (declare (not safe)) - (##vector-ref _g135434_ 0))) - (_tl133169133294_ + (##vector-ref _g135696_ 0))) + (_tl133431133556_ (let () (declare (not safe)) - (##vector-ref _g135434_ 1)))) + (##vector-ref _g135696_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133169133294_)) - (let ((_e133178133297_ + (gx#stx-pair? _tl133431133556_)) + (let ((_e133440133559_ (let () (declare (not safe)) - (gx#stx-e _tl133169133294_)))) - (let ((_hd133177133300_ + (gx#stx-e _tl133431133556_)))) + (let ((_hd133439133562_ (let () (declare (not safe)) - (##car _e133178133297_))) - (_tl133176133302_ + (##car _e133440133559_))) + (_tl133438133564_ (let () (declare (not safe)) - (##cdr _e133178133297_)))) + (##cdr _e133440133559_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133176133302_)) - (letrec ((_loop133170133305_ - (lambda (_hd133168133308_ + _tl133438133564_)) + (letrec ((_loop133432133567_ + (lambda (_hd133430133570_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref133174133310_) + _kw-ref133436133572_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133168133308_)) - (let ((_e133171133313_ + (gx#stx-pair? _hd133430133570_)) + (let ((_e133433133575_ (let () (declare (not safe)) - (gx#stx-e _hd133168133308_)))) - (let ((_lp-hd133172133316_ + (gx#stx-e _hd133430133570_)))) + (let ((_lp-hd133434133578_ (let () (declare (not safe)) - (##car _e133171133313_))) - (_lp-tl133173133318_ + (##car _e133433133575_))) + (_lp-tl133435133580_ (let () (declare (not safe)) - (##cdr _e133171133313_)))) - (let ((__tmp135507 + (##cdr _e133433133575_)))) + (let ((__tmp135769 (let () (declare (not safe)) - (cons _lp-hd133172133316_ - _kw-ref133174133310_)))) + (cons _lp-hd133434133578_ + _kw-ref133436133572_)))) (declare (not safe)) - (_loop133170133305_ - _lp-tl133173133318_ - __tmp135507)))) - (let ((_kw-ref133175133321_ - (reverse _kw-ref133174133310_))) + (_loop133432133567_ + _lp-tl133435133580_ + __tmp135769)))) + (let ((_kw-ref133437133583_ + (reverse _kw-ref133436133572_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133134133209_)) - ((lambda (_L133324_ - _L133325_ - _L133326_ - _L133327_ - _L133328_) - (let* ((_kw-count133379_ - (length (let ((__tmp135436 - (lambda (_g133371133374_ - _g133372133376_) + (gx#stx-null? _tl133396133471_)) + ((lambda (_L133586_ + _L133587_ + _L133588_ + _L133589_ + _L133590_) + (let* ((_kw-count133641_ + (length (let ((__tmp135698 + (lambda (_g133633133636_ + _g133634133638_) (let () (declare (not safe)) - (cons _g133371133374_ - _g133372133376_))))) + (cons _g133633133636_ + _g133634133638_))))) (declare (not safe)) - (foldr1 __tmp135436 + (foldr1 __tmp135698 '() - _L133325_)))) - (_self-index133381_ + _L133587_)))) + (_self-index133643_ (let () (declare (not safe)) - (fx+ _kw-count133379_ '1)))) + (fx+ _kw-count133641_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L133080_)) - (let* ((_g133384133398_ - (lambda (_g133385133395_) + (gxc#lambda-expr? _L133342_)) + (let* ((_g133646133660_ + (lambda (_g133647133657_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133385133395_)))) - (_g133383133511_ - (lambda (_g133385133401_) + _g133647133657_)))) + (_g133645133773_ + (lambda (_g133647133663_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133385133401_)) - (let ((_e133390133403_ + _g133647133663_)) + (let ((_e133652133665_ (let () (declare (not safe)) (gx#stx-e - _g133385133401_)))) - (let ((_hd133389133406_ + _g133647133663_)))) + (let ((_hd133651133668_ (let () (declare (not safe)) - (##car _e133390133403_))) - (_tl133388133408_ + (##car _e133652133665_))) + (_tl133650133670_ (let () (declare (not safe)) - (##cdr _e133390133403_)))) + (##cdr _e133652133665_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133388133408_)) - (let ((_e133393133411_ + _tl133650133670_)) + (let ((_e133655133673_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133388133408_)))) - (let ((_hd133392133414_ + (gx#stx-e _tl133650133670_)))) + (let ((_hd133654133676_ (let () (declare (not safe)) - (##car _e133393133411_))) - (_tl133391133416_ + (##car _e133655133673_))) + (_tl133653133678_ (let () (declare (not safe)) - (##cdr _e133393133411_)))) - ((lambda (_L133419_ _L133420_) - (let ((_self133436_ - (list-ref _L133420_ _self-index133381_))) + (##cdr _e133655133673_)))) + ((lambda (_L133681_ _L133682_) + (let ((_self133698_ + (list-ref _L133682_ _self-index133643_))) (for-each - (lambda (_g133437133439_) + (lambda (_g133699133701_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133437133439_ - _self133436_ - _method-calls131426_ - _slot-refs131427_))) - _L133419_) + _g133699133701_ + _self133698_ + _method-calls131688_ + _slot-refs131689_))) + _L133681_) (if (let () (declare (not safe)) - (_no-specializer?131430_)) - _stx131334_ - (let* ((_specializer-id133448_ - (let* ((_id133442_ - (let ((__tmp135480 + (_no-specializer?131692_)) + _stx131596_ + (let* ((_specializer-id133710_ + (let* ((_id133704_ + (let ((__tmp135742 (let () (declare (not safe)) (gx#stx-e - _L131407_)))) + _L131669_)))) (declare (not safe)) (make-symbol__1 - __tmp135480 + __tmp135742 '"::specialize"))) - (_specializer-id133445_ - (let ((__tmp135481 + (_specializer-id133707_ + (let ((__tmp135743 (let () (declare (not safe)) (gx#stx-source - _stx131334_)))) + _stx131596_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id133442_ - __tmp135481)))) + _id133704_ + __tmp135743)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id133445_)) - _specializer-id133445_)) - (_$klass133450_ - (let ((__tmp135482 (gensym '__klass))) + _specializer-id133707_)) + _specializer-id133707_)) + (_$klass133712_ + (let ((__tmp135744 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135482))) - (_$method-table133452_ - (let ((__tmp135483 + (make-symbol__0 __tmp135744))) + (_$method-table133714_ + (let ((__tmp135745 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135483))) - (_methods133454_ + (make-symbol__0 __tmp135745))) + (_methods133716_ (let () (declare (not safe)) - (hash-keys _method-calls131426_))) - (_$methods133458_ - (map (lambda (_id133456_) - (let ((__tmp135484 - (gensym _id133456_))) + (hash-keys _method-calls131688_))) + (_$methods133720_ + (map (lambda (_id133718_) + (let ((__tmp135746 + (gensym _id133718_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp135484))) - _methods133454_)) - (_g135485_ + __tmp135746))) + _methods133716_)) + (_g135747_ (for-each - (lambda (_g133459133462_ - _g133460133464_) + (lambda (_g133721133724_ + _g133722133726_) (let () (declare (not safe)) (hash-put! - _method-calls131426_ - _g133459133462_ - _g133460133464_))) - _methods133454_ - _$methods133458_)) - (_methods-bind133475_ - (map (lambda (_g133467133470_ - _g133468133472_) + _method-calls131688_ + _g133721133724_ + _g133722133726_))) + _methods133716_ + _$methods133720_)) + (_methods-bind133737_ + (map (lambda (_g133729133732_ + _g133730133734_) (let () (declare (not safe)) - (_generate-method-bind131336_ - _$klass133450_ - _$method-table133452_ - _g133467133470_ - _g133468133472_))) - _methods133454_ - _$methods133458_)) - (_slots133477_ + (_generate-method-bind131598_ + _$klass133712_ + _$method-table133714_ + _g133729133732_ + _g133730133734_))) + _methods133716_ + _$methods133720_)) + (_slots133739_ (let () (declare (not safe)) - (hash-keys _slot-refs131427_))) - (_$slots133481_ - (map (lambda (_id133479_) - (let ((__tmp135486 - (gensym _id133479_))) + (hash-keys _slot-refs131689_))) + (_$slots133743_ + (map (lambda (_id133741_) + (let ((__tmp135748 + (gensym _id133741_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp135486))) - _slots133477_)) - (_g135487_ + __tmp135748))) + _slots133739_)) + (_g135749_ (for-each - (lambda (_g133482133485_ - _g133483133487_) + (lambda (_g133744133747_ + _g133745133749_) (let () (declare (not safe)) (hash-put! - _slot-refs131427_ - _g133482133485_ - _g133483133487_))) - _slots133477_ - _$slots133481_)) - (_slots-bind133498_ - (map (lambda (_g133490133493_ - _g133491133495_) + _slot-refs131689_ + _g133744133747_ + _g133745133749_))) + _slots133739_ + _$slots133743_)) + (_slots-bind133760_ + (map (lambda (_g133752133755_ + _g133753133757_) (let () (declare (not safe)) - (_generate-slot-bind131337_ - _$klass133450_ - _g133490133493_ - _g133491133495_))) - _slots133477_ - _$slots133481_)) - (_specializer-impl133506_ - (let* ((_specializer-body133504_ - (map (lambda (_g133499133501_) + (_generate-slot-bind131599_ + _$klass133712_ + _g133752133755_ + _g133753133757_))) + _slots133739_ + _$slots133743_)) + (_specializer-impl133768_ + (let* ((_specializer-body133766_ + (map (lambda (_g133761133763_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g133499133501_ - _self133436_ - _$klass133450_ - _method-calls131426_ - _slot-refs131427_))) - _L133419_)) - (__tmp135488 - (let ((__tmp135489 - (let ((__tmp135491 - (let ((__tmp135492 + _g133761133763_ + _self133698_ + _$klass133712_ + _method-calls131688_ + _slot-refs131689_))) + _L133681_)) + (__tmp135750 + (let ((__tmp135751 + (let ((__tmp135753 + (let ((__tmp135754 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135504 + (let ((__tmp135766 (let () (declare (not safe)) - (cons _L133082_ '()))) - (__tmp135493 - (let ((__tmp135494 - (let ((__tmp135495 - (let ((__tmp135497 - (let ((__tmp135498 - (let ((__tmp135503 + (cons _L133344_ '()))) + (__tmp135755 + (let ((__tmp135756 + (let ((__tmp135757 + (let ((__tmp135759 + (let ((__tmp135760 + (let ((__tmp135765 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L133081_ '()))) - (__tmp135499 - (let ((__tmp135500 - (let ((__tmp135501 - (let ((__tmp135502 + (cons _L133343_ '()))) + (__tmp135761 + (let ((__tmp135762 + (let ((__tmp135763 + (let ((__tmp135764 (let () (declare (not safe)) - (cons _L133420_ - _specializer-body133504_)))) + (cons _L133682_ + _specializer-body133766_)))) (declare (not safe)) - (cons '%#lambda __tmp135502)))) + (cons '%#lambda __tmp135764)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135501 - _L133080_)))) + __tmp135763 + _L133342_)))) (declare (not safe)) - (cons __tmp135500 '())))) + (cons __tmp135762 '())))) (declare (not safe)) - (cons __tmp135503 __tmp135499)))) + (cons __tmp135765 __tmp135761)))) (declare (not safe)) - (cons __tmp135498 '()))) - (__tmp135496 - (let () (declare (not safe)) (cons _L133079_ '())))) + (cons __tmp135760 '()))) + (__tmp135758 + (let () (declare (not safe)) (cons _L133341_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135497 - __tmp135496)))) + (cons __tmp135759 + __tmp135758)))) (declare (not safe)) (cons '%#let-values - __tmp135495)))) + __tmp135757)))) (declare (not safe)) - (cons __tmp135494 '())))) + (cons __tmp135756 '())))) (declare (not safe)) - (cons __tmp135504 __tmp135493)))) + (cons __tmp135766 __tmp135755)))) (declare (not safe)) - (cons __tmp135492 '()))) - (__tmp135490 - (let () (declare (not safe)) (cons _L133078_ '())))) + (cons __tmp135754 '()))) + (__tmp135752 + (let () (declare (not safe)) (cons _L133340_ '())))) (declare (not safe)) - (cons __tmp135491 __tmp135490)))) + (cons __tmp135753 __tmp135752)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp135489)))) + __tmp135751)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135488 - _stx131334_))) - (_specializer-impl133508_ + __tmp135750 + _stx131596_))) + (_specializer-impl133770_ (let () (declare (not safe)) - (_generate-specializer-impl131338_ - _$klass133450_ - _$method-table133452_ - _methods-bind133475_ - _slots-bind133498_ - _specializer-impl133506_)))) - (let ((__tmp135506 + (_generate-specializer-impl131600_ + _$klass133712_ + _$method-table133714_ + _methods-bind133737_ + _slots-bind133760_ + _specializer-impl133768_)))) + (let ((__tmp135768 (let () (declare (not safe)) - (gx#stx-e _L131407_))) - (__tmp135505 + (gx#stx-e _L131669_))) + (__tmp135767 (let () (declare (not safe)) - (gx#stx-e _specializer-id133448_)))) + (gx#stx-e _specializer-id133710_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135506 + __tmp135768 '" => " - __tmp135505)) + __tmp135767)) (let () (declare (not safe)) - (_generate-specializer-def131339_ - _L131407_ - _specializer-id133448_ - _specializer-impl133508_)))))) - _tl133391133416_ - _hd133392133414_))) + (_generate-specializer-def131601_ + _L131669_ + _specializer-id133710_ + _specializer-impl133770_)))))) + _tl133653133678_ + _hd133654133676_))) (let () (declare (not safe)) - (_g133384133398_ _g133385133401_))))) + (_g133646133660_ _g133647133663_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133384133398_ - _g133385133401_)))))) + (_g133646133660_ + _g133647133663_)))))) (declare (not safe)) - (_g133383133511_ _L133080_)) + (_g133645133773_ _L133342_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L133080_)) - (let* ((_g133514133544_ - (lambda (_g133515133541_) + (gxc#opt-lambda-expr? _L133342_)) + (let* ((_g133776133806_ + (lambda (_g133777133803_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133515133541_)))) - (_g133513134086_ - (lambda (_g133515133547_) + _g133777133803_)))) + (_g133775134348_ + (lambda (_g133777133809_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133515133547_)) - (let ((_e133521133549_ + _g133777133809_)) + (let ((_e133783133811_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g133515133547_)))) - (let ((_hd133520133552_ - (let () (declare (not safe)) (##car _e133521133549_))) - (_tl133519133554_ - (let () (declare (not safe)) (##cdr _e133521133549_)))) + (gx#stx-e _g133777133809_)))) + (let ((_hd133782133814_ + (let () (declare (not safe)) (##car _e133783133811_))) + (_tl133781133816_ + (let () (declare (not safe)) (##cdr _e133783133811_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133519133554_)) - (let ((_e133524133557_ + (gx#stx-pair? _tl133781133816_)) + (let ((_e133786133819_ (let () (declare (not safe)) - (gx#stx-e _tl133519133554_)))) - (let ((_hd133523133560_ + (gx#stx-e _tl133781133816_)))) + (let ((_hd133785133822_ (let () (declare (not safe)) - (##car _e133524133557_))) - (_tl133522133562_ + (##car _e133786133819_))) + (_tl133784133824_ (let () (declare (not safe)) - (##cdr _e133524133557_)))) + (##cdr _e133786133819_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133523133560_)) - (let ((_e133527133565_ + (gx#stx-pair? _hd133785133822_)) + (let ((_e133789133827_ (let () (declare (not safe)) - (gx#stx-e _hd133523133560_)))) - (let ((_hd133526133568_ + (gx#stx-e _hd133785133822_)))) + (let ((_hd133788133830_ (let () (declare (not safe)) - (##car _e133527133565_))) - (_tl133525133570_ + (##car _e133789133827_))) + (_tl133787133832_ (let () (declare (not safe)) - (##cdr _e133527133565_)))) + (##cdr _e133789133827_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133526133568_)) - (let ((_e133530133573_ + (gx#stx-pair? _hd133788133830_)) + (let ((_e133792133835_ (let () (declare (not safe)) - (gx#stx-e _hd133526133568_)))) - (let ((_hd133529133576_ + (gx#stx-e _hd133788133830_)))) + (let ((_hd133791133838_ (let () (declare (not safe)) - (##car _e133530133573_))) - (_tl133528133578_ + (##car _e133792133835_))) + (_tl133790133840_ (let () (declare (not safe)) - (##cdr _e133530133573_)))) + (##cdr _e133792133835_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd133529133576_)) - (let ((_e133533133581_ + _hd133791133838_)) + (let ((_e133795133843_ (let () (declare (not safe)) (gx#stx-e - _hd133529133576_)))) - (let ((_hd133532133584_ + _hd133791133838_)))) + (let ((_hd133794133846_ (let () (declare (not safe)) - (##car _e133533133581_))) - (_tl133531133586_ + (##car _e133795133843_))) + (_tl133793133848_ (let () (declare (not safe)) - (##cdr _e133533133581_)))) + (##cdr _e133795133843_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133531133586_)) + _tl133793133848_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133528133578_)) - (let ((_e133536133589_ + _tl133790133840_)) + (let ((_e133798133851_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133528133578_)))) - (let ((_hd133535133592_ + (gx#stx-e _tl133790133840_)))) + (let ((_hd133797133854_ (let () (declare (not safe)) - (##car _e133536133589_))) - (_tl133534133594_ + (##car _e133798133851_))) + (_tl133796133856_ (let () (declare (not safe)) - (##cdr _e133536133589_)))) + (##cdr _e133798133851_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133534133594_)) + (gx#stx-null? _tl133796133856_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl133525133570_)) + (gx#stx-null? _tl133787133832_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133522133562_)) - (let ((_e133539133597_ + (gx#stx-pair? _tl133784133824_)) + (let ((_e133801133859_ (let () (declare (not safe)) - (gx#stx-e _tl133522133562_)))) - (let ((_hd133538133600_ + (gx#stx-e _tl133784133824_)))) + (let ((_hd133800133862_ (let () (declare (not safe)) - (##car _e133539133597_))) - (_tl133537133602_ + (##car _e133801133859_))) + (_tl133799133864_ (let () (declare (not safe)) - (##cdr _e133539133597_)))) + (##cdr _e133801133859_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133537133602_)) - ((lambda (_L133605_ - _L133606_ - _L133607_) - (let* ((_g133630133644_ - (lambda (_g133631133641_) + (gx#stx-null? _tl133799133864_)) + ((lambda (_L133867_ + _L133868_ + _L133869_) + (let* ((_g133892133906_ + (lambda (_g133893133903_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133631133641_)))) - (_g133629133685_ - (lambda (_g133631133647_) + _g133893133903_)))) + (_g133891133947_ + (lambda (_g133893133909_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133631133647_)) - (let ((_e133636133649_ + _g133893133909_)) + (let ((_e133898133911_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g133631133647_)))) - (let ((_hd133635133652_ + (gx#stx-e _g133893133909_)))) + (let ((_hd133897133914_ (let () (declare (not safe)) - (##car _e133636133649_))) - (_tl133634133654_ + (##car _e133898133911_))) + (_tl133896133916_ (let () (declare (not safe)) - (##cdr _e133636133649_)))) + (##cdr _e133898133911_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133634133654_)) - (let ((_e133639133657_ + (gx#stx-pair? _tl133896133916_)) + (let ((_e133901133919_ (let () (declare (not safe)) - (gx#stx-e _tl133634133654_)))) - (let ((_hd133638133660_ + (gx#stx-e _tl133896133916_)))) + (let ((_hd133900133922_ (let () (declare (not safe)) - (##car _e133639133657_))) - (_tl133637133662_ + (##car _e133901133919_))) + (_tl133899133924_ (let () (declare (not safe)) - (##cdr _e133639133657_)))) - ((lambda (_L133665_ _L133666_) - (let ((_self133679_ + (##cdr _e133901133919_)))) + ((lambda (_L133927_ _L133928_) + (let ((_self133941_ (list-ref - _L133666_ - _self-index133381_))) + _L133928_ + _self-index133643_))) (for-each - (lambda (_g133680133682_) + (lambda (_g133942133944_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133680133682_ - _self133679_ - _method-calls131426_ - _slot-refs131427_))) - _L133665_))) - _tl133637133662_ - _hd133638133660_))) + _g133942133944_ + _self133941_ + _method-calls131688_ + _slot-refs131689_))) + _L133927_))) + _tl133899133924_ + _hd133900133922_))) (let () (declare (not safe)) - (_g133630133644_ _g133631133647_))))) + (_g133892133906_ _g133893133909_))))) (let () (declare (not safe)) - (_g133630133644_ _g133631133647_)))))) + (_g133892133906_ _g133893133909_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133629133685_ _L133606_)) - (let* ((_g133688133707_ - (lambda (_g133689133704_) + (_g133891133947_ _L133868_)) + (let* ((_g133950133969_ + (lambda (_g133951133966_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133689133704_)))) - (_g133687133812_ - (lambda (_g133689133710_) + _g133951133966_)))) + (_g133949134074_ + (lambda (_g133951133972_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133689133710_)) - (let ((_e133693133712_ + _g133951133972_)) + (let ((_e133955133974_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g133689133710_)))) - (let ((_hd133692133715_ + (gx#stx-e _g133951133972_)))) + (let ((_hd133954133977_ (let () (declare (not safe)) - (##car _e133693133712_))) - (_tl133691133717_ + (##car _e133955133974_))) + (_tl133953133979_ (let () (declare (not safe)) - (##cdr _e133693133712_)))) + (##cdr _e133955133974_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133691133717_)) - (let ((_g135437_ + (gx#stx-pair/null? _tl133953133979_)) + (let ((_g135699_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133691133717_ + _tl133953133979_ '0)))) (begin - (let ((_g135438_ + (let ((_g135700_ (let () (declare (not safe)) - (if (##values? _g135437_) - (##vector-length _g135437_) + (if (##values? _g135699_) + (##vector-length _g135699_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135438_ 2))) + (##fx= _g135700_ 2))) (error "Context expects 2 values" - _g135438_))) - (let ((_target133694133720_ + _g135700_))) + (let ((_target133956133982_ (let () (declare (not safe)) - (##vector-ref _g135437_ 0))) - (_tl133696133722_ + (##vector-ref _g135699_ 0))) + (_tl133958133984_ (let () (declare (not safe)) - (##vector-ref _g135437_ 1)))) + (##vector-ref _g135699_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133696133722_)) - (letrec ((_loop133697133725_ - (lambda (_hd133695133728_ - _clause133701133730_) + (gx#stx-null? _tl133958133984_)) + (letrec ((_loop133959133987_ + (lambda (_hd133957133990_ + _clause133963133992_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd133695133728_)) - (let ((_e133698133733_ + _hd133957133990_)) + (let ((_e133960133995_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd133695133728_)))) - (let ((_lp-hd133699133736_ - (let () (declare (not safe)) (##car _e133698133733_))) - (_lp-tl133700133738_ - (let () (declare (not safe)) (##cdr _e133698133733_)))) - (let ((__tmp135440 + (gx#stx-e _hd133957133990_)))) + (let ((_lp-hd133961133998_ + (let () (declare (not safe)) (##car _e133960133995_))) + (_lp-tl133962134000_ + (let () (declare (not safe)) (##cdr _e133960133995_)))) + (let ((__tmp135702 (let () (declare (not safe)) - (cons _lp-hd133699133736_ _clause133701133730_)))) + (cons _lp-hd133961133998_ _clause133963133992_)))) (declare (not safe)) - (_loop133697133725_ _lp-tl133700133738_ __tmp135440)))) - (let ((_clause133702133741_ (reverse _clause133701133730_))) - ((lambda (_L133744_) + (_loop133959133987_ _lp-tl133962134000_ __tmp135702)))) + (let ((_clause133964134003_ (reverse _clause133963133992_))) + ((lambda (_L134006_) (for-each - (lambda (_clause133757_) - (let* ((_g133759133770_ - (lambda (_g133760133767_) + (lambda (_clause134019_) + (let* ((_g134021134032_ + (lambda (_g134022134029_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133760133767_)))) - (_g133758133802_ - (lambda (_g133760133773_) + _g134022134029_)))) + (_g134020134064_ + (lambda (_g134022134035_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133760133773_)) - (let ((_e133765133775_ + (gx#stx-pair? _g134022134035_)) + (let ((_e134027134037_ (let () (declare (not safe)) - (gx#stx-e _g133760133773_)))) - (let ((_hd133764133778_ + (gx#stx-e _g134022134035_)))) + (let ((_hd134026134040_ (let () (declare (not safe)) - (##car _e133765133775_))) - (_tl133763133780_ + (##car _e134027134037_))) + (_tl134025134042_ (let () (declare (not safe)) - (##cdr _e133765133775_)))) - ((lambda (_L133783_ _L133784_) - (let ((_self133796_ + (##cdr _e134027134037_)))) + ((lambda (_L134045_ _L134046_) + (let ((_self134058_ (list-ref - _L133784_ - _self-index133381_))) + _L134046_ + _self-index133643_))) (for-each - (lambda (_g133797133799_) + (lambda (_g134059134061_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133797133799_ - _self133796_ - _method-calls131426_ - _slot-refs131427_))) - _L133783_))) - _tl133763133780_ - _hd133764133778_))) + _g134059134061_ + _self134058_ + _method-calls131688_ + _slot-refs131689_))) + _L134045_))) + _tl134025134042_ + _hd134026134040_))) (let () (declare (not safe)) - (_g133759133770_ _g133760133773_)))))) + (_g134021134032_ _g134022134035_)))))) (declare (not safe)) - (_g133758133802_ _clause133757_))) - (let ((__tmp135439 - (lambda (_g133804133807_ _g133805133809_) + (_g134020134064_ _clause134019_))) + (let ((__tmp135701 + (lambda (_g134066134069_ _g134067134071_) (let () (declare (not safe)) - (cons _g133804133807_ _g133805133809_))))) + (cons _g134066134069_ _g134067134071_))))) (declare (not safe)) - (foldr1 __tmp135439 '() _L133744_)))) - _clause133702133741_)))))) + (foldr1 __tmp135701 '() _L134006_)))) + _clause133964134003_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133697133725_ - _target133694133720_ + (_loop133959133987_ + _target133956133982_ '()))) (let () (declare (not safe)) - (_g133688133707_ _g133689133710_)))))) + (_g133950133969_ _g133951133972_)))))) (let () (declare (not safe)) - (_g133688133707_ _g133689133710_))))) + (_g133950133969_ _g133951133972_))))) (let () (declare (not safe)) - (_g133688133707_ _g133689133710_)))))) + (_g133950133969_ _g133951133972_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133687133812_ _L133605_)) + (_g133949134074_ _L133867_)) (if (let () (declare (not safe)) - (_no-specializer?131430_)) - _stx131334_ - (let* ((_specializer-id133821_ - (let* ((_id133815_ + (_no-specializer?131692_)) + _stx131596_ + (let* ((_specializer-id134083_ + (let* ((_id134077_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135441 + (let ((__tmp135703 (let () (declare (not safe)) - (gx#stx-e _L131407_)))) + (gx#stx-e _L131669_)))) (declare (not safe)) - (make-symbol__1 __tmp135441 '"::specialize"))) - (_specializer-id133818_ - (let ((__tmp135442 + (make-symbol__1 __tmp135703 '"::specialize"))) + (_specializer-id134080_ + (let ((__tmp135704 (let () (declare (not safe)) - (gx#stx-source _stx131334_)))) + (gx#stx-source _stx131596_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id133815_ __tmp135442)))) + (gx#core-quote-syntax__1 _id134077_ __tmp135704)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id133818_)) - _specializer-id133818_)) - (_$klass133823_ - (let ((__tmp135443 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id134080_)) + _specializer-id134080_)) + (_$klass134085_ + (let ((__tmp135705 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135443))) - (_$method-table133825_ - (let ((__tmp135444 (gensym '__method-table))) + (make-symbol__0 __tmp135705))) + (_$method-table134087_ + (let ((__tmp135706 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135444))) - (_methods133827_ + (make-symbol__0 __tmp135706))) + (_methods134089_ (let () (declare (not safe)) - (hash-keys _method-calls131426_))) - (_$methods133831_ - (map (lambda (_id133829_) - (let ((__tmp135445 (gensym _id133829_))) + (hash-keys _method-calls131688_))) + (_$methods134093_ + (map (lambda (_id134091_) + (let ((__tmp135707 (gensym _id134091_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135445))) - _methods133827_)) - (_g135446_ + (make-symbol__1 '"__" __tmp135707))) + _methods134089_)) + (_g135708_ (for-each - (lambda (_g133832133835_ _g133833133837_) + (lambda (_g134094134097_ _g134095134099_) (let () (declare (not safe)) (hash-put! - _method-calls131426_ - _g133832133835_ - _g133833133837_))) - _methods133827_ - _$methods133831_)) - (_methods-bind133848_ - (map (lambda (_g133840133843_ _g133841133845_) + _method-calls131688_ + _g134094134097_ + _g134095134099_))) + _methods134089_ + _$methods134093_)) + (_methods-bind134110_ + (map (lambda (_g134102134105_ _g134103134107_) (let () (declare (not safe)) - (_generate-method-bind131336_ - _$klass133823_ - _$method-table133825_ - _g133840133843_ - _g133841133845_))) - _methods133827_ - _$methods133831_)) - (_slots133850_ - (let () (declare (not safe)) (hash-keys _slot-refs131427_))) - (_$slots133854_ - (map (lambda (_id133852_) - (let ((__tmp135447 (gensym _id133852_))) + (_generate-method-bind131598_ + _$klass134085_ + _$method-table134087_ + _g134102134105_ + _g134103134107_))) + _methods134089_ + _$methods134093_)) + (_slots134112_ + (let () (declare (not safe)) (hash-keys _slot-refs131689_))) + (_$slots134116_ + (map (lambda (_id134114_) + (let ((__tmp135709 (gensym _id134114_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135447))) - _slots133850_)) - (_g135448_ + (make-symbol__1 '"__" __tmp135709))) + _slots134112_)) + (_g135710_ (for-each - (lambda (_g133855133858_ _g133856133860_) + (lambda (_g134117134120_ _g134118134122_) (let () (declare (not safe)) (hash-put! - _slot-refs131427_ - _g133855133858_ - _g133856133860_))) - _slots133850_ - _$slots133854_)) - (_slots-bind133871_ - (map (lambda (_g133863133866_ _g133864133868_) + _slot-refs131689_ + _g134117134120_ + _g134118134122_))) + _slots134112_ + _$slots134116_)) + (_slots-bind134133_ + (map (lambda (_g134125134128_ _g134126134130_) (let () (declare (not safe)) - (_generate-slot-bind131337_ - _$klass133823_ - _g133863133866_ - _g133864133868_))) - _slots133850_ - _$slots133854_)) - (_specializer-lambda-expr133944_ - (let* ((_g133873133887_ - (lambda (_g133874133884_) + (_generate-slot-bind131599_ + _$klass134085_ + _g134125134128_ + _g134126134130_))) + _slots134112_ + _$slots134116_)) + (_specializer-lambda-expr134206_ + (let* ((_g134135134149_ + (lambda (_g134136134146_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133874133884_)))) - (_g133872133941_ - (lambda (_g133874133890_) + _g134136134146_)))) + (_g134134134203_ + (lambda (_g134136134152_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133874133890_)) - (let ((_e133879133892_ + (gx#stx-pair? _g134136134152_)) + (let ((_e134141134154_ (let () (declare (not safe)) - (gx#stx-e _g133874133890_)))) - (let ((_hd133878133895_ + (gx#stx-e _g134136134152_)))) + (let ((_hd134140134157_ (let () (declare (not safe)) - (##car _e133879133892_))) - (_tl133877133897_ + (##car _e134141134154_))) + (_tl134139134159_ (let () (declare (not safe)) - (##cdr _e133879133892_)))) + (##cdr _e134141134154_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133877133897_)) - (let ((_e133882133900_ + (gx#stx-pair? _tl134139134159_)) + (let ((_e134144134162_ (let () (declare (not safe)) - (gx#stx-e _tl133877133897_)))) - (let ((_hd133881133903_ + (gx#stx-e _tl134139134159_)))) + (let ((_hd134143134165_ (let () (declare (not safe)) - (##car _e133882133900_))) - (_tl133880133905_ + (##car _e134144134162_))) + (_tl134142134167_ (let () (declare (not safe)) - (##cdr _e133882133900_)))) - ((lambda (_L133908_ _L133909_) - (let* ((_self133932_ + (##cdr _e134144134162_)))) + ((lambda (_L134170_ _L134171_) + (let* ((_self134194_ (list-ref - _L133909_ - _self-index133381_)) - (_body133938_ - (map (lambda (_g133933133935_) + _L134171_ + _self-index133643_)) + (_body134200_ + (map (lambda (_g134195134197_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g133933133935_ - _self133932_ - _$klass133823_ - _method-calls131426_ - _slot-refs131427_))) - _L133908_))) + _g134195134197_ + _self134194_ + _$klass134085_ + _method-calls131688_ + _slot-refs131689_))) + _L134170_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135449 - (let ((__tmp135450 + (let ((__tmp135711 + (let ((__tmp135712 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L133909_ _body133938_)))) + (cons _L134171_ _body134200_)))) (declare (not safe)) - (cons '%#lambda __tmp135450)))) + (cons '%#lambda __tmp135712)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135449 - _L133606_)))) - _tl133880133905_ - _hd133881133903_))) + __tmp135711 + _L133868_)))) + _tl134142134167_ + _hd134143134165_))) (let () (declare (not safe)) - (_g133873133887_ _g133874133890_))))) + (_g134135134149_ _g134136134152_))))) (let () (declare (not safe)) - (_g133873133887_ _g133874133890_)))))) + (_g134135134149_ _g134136134152_)))))) (declare (not safe)) - (_g133872133941_ _L133606_))) - (_specializer-case-lambda-expr134079_ - (let* ((_g133946133965_ - (lambda (_g133947133962_) + (_g134134134203_ _L133868_))) + (_specializer-case-lambda-expr134341_ + (let* ((_g134208134227_ + (lambda (_g134209134224_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133947133962_)))) - (_g133945134076_ - (lambda (_g133947133968_) + _g134209134224_)))) + (_g134207134338_ + (lambda (_g134209134230_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133947133968_)) - (let ((_e133951133970_ + (gx#stx-pair? _g134209134230_)) + (let ((_e134213134232_ (let () (declare (not safe)) - (gx#stx-e _g133947133968_)))) - (let ((_hd133950133973_ + (gx#stx-e _g134209134230_)))) + (let ((_hd134212134235_ (let () (declare (not safe)) - (##car _e133951133970_))) - (_tl133949133975_ + (##car _e134213134232_))) + (_tl134211134237_ (let () (declare (not safe)) - (##cdr _e133951133970_)))) + (##cdr _e134213134232_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133949133975_)) - (let ((_g135451_ + (gx#stx-pair/null? _tl134211134237_)) + (let ((_g135713_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133949133975_ + _tl134211134237_ '0)))) (begin - (let ((_g135452_ + (let ((_g135714_ (let () (declare (not safe)) - (if (##values? _g135451_) + (if (##values? _g135713_) (##vector-length - _g135451_) + _g135713_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135452_ 2))) + (##fx= _g135714_ 2))) (error "Context expects 2 values" - _g135452_))) - (let ((_target133952133978_ + _g135714_))) + (let ((_target134214134240_ (let () (declare (not safe)) (##vector-ref - _g135451_ + _g135713_ 0))) - (_tl133954133980_ + (_tl134216134242_ (let () (declare (not safe)) (##vector-ref - _g135451_ + _g135713_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133954133980_)) - (letrec ((_loop133955133983_ - (lambda (_hd133953133986_ + _tl134216134242_)) + (letrec ((_loop134217134245_ + (lambda (_hd134215134248_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause133959133988_) + _clause134221134250_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133953133986_)) - (let ((_e133956133991_ + (gx#stx-pair? _hd134215134248_)) + (let ((_e134218134253_ (let () (declare (not safe)) - (gx#stx-e _hd133953133986_)))) - (let ((_lp-hd133957133994_ + (gx#stx-e _hd134215134248_)))) + (let ((_lp-hd134219134256_ (let () (declare (not safe)) - (##car _e133956133991_))) - (_lp-tl133958133996_ + (##car _e134218134253_))) + (_lp-tl134220134258_ (let () (declare (not safe)) - (##cdr _e133956133991_)))) - (let ((__tmp135455 + (##cdr _e134218134253_)))) + (let ((__tmp135717 (let () (declare (not safe)) - (cons _lp-hd133957133994_ - _clause133959133988_)))) + (cons _lp-hd134219134256_ + _clause134221134250_)))) (declare (not safe)) - (_loop133955133983_ - _lp-tl133958133996_ - __tmp135455)))) - (let ((_clause133960133999_ - (reverse _clause133959133988_))) - ((lambda (_L134002_) - (let* ((_clauses134074_ - (map (lambda (_clause134016_) - (let* ((_g134018134029_ - (lambda (_g134019134026_) + (_loop134217134245_ + _lp-tl134220134258_ + __tmp135717)))) + (let ((_clause134222134261_ + (reverse _clause134221134250_))) + ((lambda (_L134264_) + (let* ((_clauses134336_ + (map (lambda (_clause134278_) + (let* ((_g134280134291_ + (lambda (_g134281134288_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134019134026_)))) - (_g134017134064_ - (lambda (_g134019134032_) + _g134281134288_)))) + (_g134279134326_ + (lambda (_g134281134294_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134019134032_)) - (let ((_e134024134034_ + _g134281134294_)) + (let ((_e134286134296_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g134019134032_)))) - (let ((_hd134023134037_ + (gx#stx-e _g134281134294_)))) + (let ((_hd134285134299_ (let () (declare (not safe)) - (##car _e134024134034_))) - (_tl134022134039_ + (##car _e134286134296_))) + (_tl134284134301_ (let () (declare (not safe)) - (##cdr _e134024134034_)))) - ((lambda (_L134042_ _L134043_) - (let* ((_self134055_ - (list-ref _L134043_ _self-index133381_)) - (_body134061_ - (map (lambda (_g134056134058_) + (##cdr _e134286134296_)))) + ((lambda (_L134304_ _L134305_) + (let* ((_self134317_ + (list-ref _L134305_ _self-index133643_)) + (_body134323_ + (map (lambda (_g134318134320_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134056134058_ - _self134055_ - _$klass133823_ - _method-calls131426_ - _slot-refs131427_))) - _L134042_))) + _g134318134320_ + _self134317_ + _$klass134085_ + _method-calls131688_ + _slot-refs131689_))) + _L134304_))) (let () (declare (not safe)) - (cons _L134043_ _body134061_)))) - _tl134022134039_ - _hd134023134037_))) + (cons _L134305_ _body134323_)))) + _tl134284134301_ + _hd134285134299_))) (let () (declare (not safe)) - (_g134018134029_ _g134019134032_)))))) + (_g134280134291_ _g134281134294_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g134017134064_ - _clause134016_))) - (let ((__tmp135453 - (lambda (_g134066134069_ - _g134067134071_) + (_g134279134326_ + _clause134278_))) + (let ((__tmp135715 + (lambda (_g134328134331_ + _g134329134333_) (let () (declare (not safe)) - (cons _g134066134069_ - _g134067134071_))))) + (cons _g134328134331_ + _g134329134333_))))) (declare (not safe)) - (foldr1 __tmp135453 + (foldr1 __tmp135715 '() - _L134002_)))) - (__tmp135454 + _L134264_)))) + (__tmp135716 (let () (declare (not safe)) (cons '%#case-lambda - _clauses134074_)))) + _clauses134336_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135454 - _L133605_))) - _clause133960133999_)))))) + __tmp135716 + _L133867_))) + _clause134222134261_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133955133983_ - _target133952133978_ + (_loop134217134245_ + _target134214134240_ '()))) (let () (declare (not safe)) - (_g133946133965_ - _g133947133968_)))))) + (_g134208134227_ + _g134209134230_)))))) (let () (declare (not safe)) - (_g133946133965_ _g133947133968_))))) + (_g134208134227_ _g134209134230_))))) (let () (declare (not safe)) - (_g133946133965_ _g133947133968_)))))) + (_g134208134227_ _g134209134230_)))))) (declare (not safe)) - (_g133945134076_ _L133605_))) - (_specializer-impl134081_ - (let ((__tmp135456 - (let ((__tmp135457 - (let ((__tmp135459 - (let ((__tmp135460 - (let ((__tmp135477 + (_g134207134338_ _L133867_))) + (_specializer-impl134343_ + (let ((__tmp135718 + (let ((__tmp135719 + (let ((__tmp135721 + (let ((__tmp135722 + (let ((__tmp135739 (let () (declare (not safe)) - (cons _L133082_ '()))) - (__tmp135461 - (let ((__tmp135462 - (let ((__tmp135463 + (cons _L133344_ '()))) + (__tmp135723 + (let ((__tmp135724 + (let ((__tmp135725 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135465 - (let ((__tmp135466 - (let ((__tmp135476 + (let ((__tmp135727 + (let ((__tmp135728 + (let ((__tmp135738 (let () (declare (not safe)) - (cons _L133081_ '()))) - (__tmp135467 - (let ((__tmp135468 - (let ((__tmp135469 - (let ((__tmp135470 + (cons _L133343_ '()))) + (__tmp135729 + (let ((__tmp135730 + (let ((__tmp135731 + (let ((__tmp135732 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135472 - (let ((__tmp135473 - (let ((__tmp135475 + (let ((__tmp135734 + (let ((__tmp135735 + (let ((__tmp135737 (let () (declare (not safe)) - (cons _L133607_ '()))) - (__tmp135474 + (cons _L133869_ '()))) + (__tmp135736 (let () (declare (not safe)) - (cons _specializer-lambda-expr133944_ + (cons _specializer-lambda-expr134206_ '())))) (declare (not safe)) - (cons __tmp135475 __tmp135474)))) + (cons __tmp135737 __tmp135736)))) (declare (not safe)) - (cons __tmp135473 '()))) - (__tmp135471 + (cons __tmp135735 '()))) + (__tmp135733 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr134079_ + (cons _specializer-case-lambda-expr134341_ '())))) (declare (not safe)) - (cons __tmp135472 __tmp135471)))) + (cons __tmp135734 __tmp135733)))) (declare (not safe)) - (cons '%#let-values __tmp135470)))) + (cons '%#let-values __tmp135732)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135469 _stx131334_)))) + (gxc#xform-wrap-source __tmp135731 _stx131596_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135468 '())))) + (cons __tmp135730 '())))) (declare (not safe)) - (cons __tmp135476 __tmp135467)))) + (cons __tmp135738 __tmp135729)))) (declare (not safe)) - (cons __tmp135466 '()))) - (__tmp135464 + (cons __tmp135728 '()))) + (__tmp135726 (let () (declare (not safe)) - (cons _L133079_ '())))) + (cons _L133341_ '())))) (declare (not safe)) - (cons __tmp135465 __tmp135464)))) + (cons __tmp135727 __tmp135726)))) (declare (not safe)) - (cons '%#let-values __tmp135463)))) + (cons '%#let-values __tmp135725)))) (declare (not safe)) - (cons __tmp135462 '())))) + (cons __tmp135724 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135477 - __tmp135461)))) + (cons __tmp135739 + __tmp135723)))) (declare (not safe)) - (cons __tmp135460 '()))) - (__tmp135458 + (cons __tmp135722 '()))) + (__tmp135720 (let () (declare (not safe)) - (cons _L133078_ '())))) + (cons _L133340_ '())))) (declare (not safe)) - (cons __tmp135459 __tmp135458)))) + (cons __tmp135721 __tmp135720)))) (declare (not safe)) - (cons '%#let-values __tmp135457)))) + (cons '%#let-values __tmp135719)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135456 _stx131334_))) - (_specializer-impl134083_ + (gxc#xform-wrap-source __tmp135718 _stx131596_))) + (_specializer-impl134345_ (let () (declare (not safe)) - (_generate-specializer-impl131338_ - _$klass133823_ - _$method-table133825_ - _methods-bind133848_ - _slots-bind133871_ - _specializer-impl134081_)))) + (_generate-specializer-impl131600_ + _$klass134085_ + _$method-table134087_ + _methods-bind134110_ + _slots-bind134133_ + _specializer-impl134343_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135479 + (let ((__tmp135741 (let () (declare (not safe)) (gx#stx-e - _L131407_))) - (__tmp135478 + _L131669_))) + (__tmp135740 (let () (declare (not safe)) (gx#stx-e - _specializer-id133821_)))) + _specializer-id134083_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135479 + __tmp135741 '" => " - __tmp135478)) + __tmp135740)) (let () (declare (not safe)) - (_generate-specializer-def131339_ - _L131407_ - _specializer-id133821_ - _specializer-impl134083_))))) - _hd133538133600_ - _hd133535133592_ - _hd133532133584_) + (_generate-specializer-def131601_ + _L131669_ + _specializer-id134083_ + _specializer-impl134345_))))) + _hd133800133862_ + _hd133797133854_ + _hd133794133846_) (let () (declare (not safe)) - (_g133514133544_ - _g133515133547_))))) + (_g133776133806_ + _g133777133809_))))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_))) + (_g133776133806_ _g133777133809_))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_))) + (_g133776133806_ _g133777133809_))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_))))) + (_g133776133806_ _g133777133809_))))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_))) + (_g133776133806_ _g133777133809_))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_))))) + (_g133776133806_ _g133777133809_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133514133544_ - _g133515133547_))))) + (_g133776133806_ + _g133777133809_))))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_))))) + (_g133776133806_ _g133777133809_))))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_))))) + (_g133776133806_ _g133777133809_))))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_))))) + (_g133776133806_ _g133777133809_))))) (let () (declare (not safe)) - (_g133514133544_ _g133515133547_)))))) + (_g133776133806_ _g133777133809_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133513134086_ _L133080_)) - _stx131334_)))) - _hd133177133300_ - _kw-ref133175133321_ - _hd133165133287_ - _hd133156133263_ - _hd133147133239_) + (_g133775134348_ _L133342_)) + _stx131596_)))) + _hd133439133562_ + _kw-ref133437133583_ + _hd133427133549_ + _hd133418133525_ + _hd133409133501_) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_)))))))) + (_g133383133445_ _g133384133448_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133170133305_ - _target133167133292_ + (_loop133432133567_ + _target133429133554_ '()))) (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))))) + (_g133383133445_ + _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_)))))) + (_g133383133445_ _g133384133448_)))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))))) + (_g133383133445_ _g133384133448_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))) + (_g133383133445_ + _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))) + (_g133383133445_ + _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))))) + (_g133383133445_ + _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))))) + (_g133383133445_ _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))))) + (_g133383133445_ _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))) + (_g133383133445_ + _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))))) + (_g133383133445_ + _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))))) + (_g133383133445_ _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))))) + (_g133383133445_ _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))))) + (_g133383133445_ + _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))))) + (_g133383133445_ + _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))))) + (_g133383133445_ _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))))) + (_g133383133445_ _g133384133448_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))))) + (_g133383133445_ + _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ - _g133122133186_))) + (_g133383133445_ + _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))) + (_g133383133445_ _g133384133448_))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_))))) + (_g133383133445_ _g133384133448_))))) (let () (declare (not safe)) - (_g133121133183_ _g133122133186_)))))) + (_g133383133445_ _g133384133448_)))))) (declare (not safe)) - (_g133120134089_ _L133079_))) + (_g133382134351_ _L133341_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd132955133073_ - _hd132952133065_ - _hd132949133057_ - _hd132946133049_ - _hd132928133001_) + _hd133217133335_ + _hd133214133327_ + _hd133211133319_ + _hd133208133311_ + _hd133190133263_) (let () (declare (not safe)) - (_g132908132961_ - _g132909132964_))))) + (_g133170133223_ + _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ - _g132909132964_))) + (_g133170133223_ + _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))) + (_g133170133223_ _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))) + (_g133170133223_ _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))) + (_g133170133223_ _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))) + (_g133170133223_ _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132908132961_ - _g132909132964_))) + (_g133170133223_ + _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ - _g132909132964_))))) + (_g133170133223_ + _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132908132961_ - _g132909132964_))) + (_g133170133223_ + _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ - _g132909132964_))) + (_g133170133223_ + _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ - _g132909132964_))))) + (_g133170133223_ + _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))) + (_g133170133223_ _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132908132961_ - _g132909132964_))))) + (_g133170133223_ + _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))) + (_g133170133223_ _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))) + (_g133170133223_ _g133171133226_))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_))))) + (_g133170133223_ _g133171133226_))))) (let () (declare (not safe)) - (_g132908132961_ _g132909132964_)))))) + (_g133170133223_ _g133171133226_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132907134092_ _L131406_)) - _stx131334_)))))))) - (___kont134272134273_ (lambda () _stx131334_))) - (let ((___match134301134302_ - (lambda (_e131348131374_ - _hd131347131377_ - _tl131346131379_ - _e131351131382_ - _hd131350131385_ - _tl131349131387_ - _e131354131390_ - _hd131353131393_ - _tl131352131395_ - _e131357131398_ - _hd131356131401_ - _tl131355131403_) - (let ((_L131406_ _hd131356131401_) - (_L131407_ _hd131353131393_)) - (if (let ((__tmp135568 + (_g133169134354_ _L131668_)) + _stx131596_)))))))) + (___kont134534134535_ (lambda () _stx131596_))) + (let ((___match134563134564_ + (lambda (_e131610131636_ + _hd131609131639_ + _tl131608131641_ + _e131613131644_ + _hd131612131647_ + _tl131611131649_ + _e131616131652_ + _hd131615131655_ + _tl131614131657_ + _e131619131660_ + _hd131618131663_ + _tl131617131665_) + (let ((_L131668_ _hd131618131663_) + (_L131669_ _hd131615131655_)) + (if (let ((__tmp135830 (let () (declare (not safe)) - (gxc#identifier-symbol _L131407_)))) + (gxc#identifier-symbol _L131669_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp135568)) - (___kont134270134271_ _L131406_ _L131407_) - (___kont134272134273_)))))) + (gxc#optimizer-top-level-method? __tmp135830)) + (___kont134532134533_ _L131668_ _L131669_) + (___kont134534134535_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134268134269_)) - (let ((_e131348131374_ + (gx#stx-pair? ___stx134530134531_)) + (let ((_e131610131636_ (let () (declare (not safe)) - (gx#stx-e ___stx134268134269_)))) - (let ((_tl131346131379_ + (gx#stx-e ___stx134530134531_)))) + (let ((_tl131608131641_ (let () (declare (not safe)) - (##cdr _e131348131374_))) - (_hd131347131377_ + (##cdr _e131610131636_))) + (_hd131609131639_ (let () (declare (not safe)) - (##car _e131348131374_)))) + (##car _e131610131636_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131346131379_)) - (let ((_e131351131382_ + (gx#stx-pair? _tl131608131641_)) + (let ((_e131613131644_ (let () (declare (not safe)) - (gx#stx-e _tl131346131379_)))) - (let ((_tl131349131387_ + (gx#stx-e _tl131608131641_)))) + (let ((_tl131611131649_ (let () (declare (not safe)) - (##cdr _e131351131382_))) - (_hd131350131385_ + (##cdr _e131613131644_))) + (_hd131612131647_ (let () (declare (not safe)) - (##car _e131351131382_)))) + (##car _e131613131644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131350131385_)) - (let ((_e131354131390_ + (gx#stx-pair? _hd131612131647_)) + (let ((_e131616131652_ (let () (declare (not safe)) - (gx#stx-e _hd131350131385_)))) - (let ((_tl131352131395_ + (gx#stx-e _hd131612131647_)))) + (let ((_tl131614131657_ (let () (declare (not safe)) - (##cdr _e131354131390_))) - (_hd131353131393_ + (##cdr _e131616131652_))) + (_hd131615131655_ (let () (declare (not safe)) - (##car _e131354131390_)))) + (##car _e131616131652_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131352131395_)) + (gx#stx-null? _tl131614131657_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131349131387_)) - (let ((_e131357131398_ + _tl131611131649_)) + (let ((_e131619131660_ (let () (declare (not safe)) (gx#stx-e - _tl131349131387_)))) - (let ((_tl131355131403_ + _tl131611131649_)))) + (let ((_tl131617131665_ (let () (declare (not safe)) - (##cdr _e131357131398_))) - (_hd131356131401_ + (##cdr _e131619131660_))) + (_hd131618131663_ (let () (declare (not safe)) - (##car _e131357131398_)))) + (##car _e131619131660_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl131355131403_)) - (___match134301134302_ - _e131348131374_ - _hd131347131377_ - _tl131346131379_ - _e131351131382_ - _hd131350131385_ - _tl131349131387_ - _e131354131390_ - _hd131353131393_ - _tl131352131395_ - _e131357131398_ - _hd131356131401_ - _tl131355131403_) - (___kont134272134273_)))) - (___kont134272134273_)) - (___kont134272134273_)))) - (___kont134272134273_)))) - (___kont134272134273_)))) - (___kont134272134273_)))))))) + _tl131617131665_)) + (___match134563134564_ + _e131610131636_ + _hd131609131639_ + _tl131608131641_ + _e131613131644_ + _hd131612131647_ + _tl131611131649_ + _e131616131652_ + _hd131615131655_ + _tl131614131657_ + _e131619131660_ + _hd131618131663_ + _tl131617131665_) + (___kont134534134535_)))) + (___kont134534134535_)) + (___kont134534134535_)))) + (___kont134534134535_)))) + (___kont134534134535_)))) + (___kont134534134535_)))))))) (define gxc#collect-object-refs-call% - (lambda (_stx130293_ _self130294_ _methods130295_ _slots130296_) - (let* ((___stx134304134305_ _stx130293_) - (_g130304130526_ + (lambda (_stx130555_ _self130556_ _methods130557_ _slots130558_) + (let* ((___stx134566134567_ _stx130555_) + (_g130566130788_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134304134305_))))) - (let ((___kont134306134307_ - (lambda (_L131283_ _L131284_ _L131285_ _L131286_) - (let ((__tmp135569 - (let () (declare (not safe)) (gx#stx-e _L131284_)))) + ___stx134566134567_))))) + (let ((___kont134568134569_ + (lambda (_L131545_ _L131546_ _L131547_ _L131548_) + (let ((__tmp135831 + (let () (declare (not safe)) (gx#stx-e _L131546_)))) (declare (not safe)) - (hash-put! _methods130295_ __tmp135569 '#t)) + (hash-put! _methods130557_ __tmp135831 '#t)) (for-each - (lambda (_g131319131321_) + (lambda (_g131581131583_) (let () (declare (not safe)) (gxc#compile-e__3 - _g131319131321_ - _self130294_ - _methods130295_ - _slots130296_))) - (let ((__tmp135570 - (lambda (_g131323131326_ _g131324131328_) + _g131581131583_ + _self130556_ + _methods130557_ + _slots130558_))) + (let ((__tmp135832 + (lambda (_g131585131588_ _g131586131590_) (let () (declare (not safe)) - (cons _g131323131326_ _g131324131328_))))) + (cons _g131585131588_ _g131586131590_))))) (declare (not safe)) - (foldr1 __tmp135570 '() _L131283_))))) - (___kont134310134311_ - (lambda (_L131118_ _L131119_ _L131120_ _L131121_ _L131122_) - (let ((__tmp135571 - (let () (declare (not safe)) (gx#stx-e _L131119_)))) + (foldr1 __tmp135832 '() _L131545_))))) + (___kont134572134573_ + (lambda (_L131380_ _L131381_ _L131382_ _L131383_ _L131384_) + (let ((__tmp135833 + (let () (declare (not safe)) (gx#stx-e _L131381_)))) (declare (not safe)) - (hash-put! _methods130295_ __tmp135571 '#t)) + (hash-put! _methods130557_ __tmp135833 '#t)) (for-each - (lambda (_g131162131164_) + (lambda (_g131424131426_) (let () (declare (not safe)) (gxc#compile-e__3 - _g131162131164_ - _self130294_ - _methods130295_ - _slots130296_))) - (let ((__tmp135572 - (lambda (_g131166131169_ _g131167131171_) + _g131424131426_ + _self130556_ + _methods130557_ + _slots130558_))) + (let ((__tmp135834 + (lambda (_g131428131431_ _g131429131433_) (let () (declare (not safe)) - (cons _g131166131169_ _g131167131171_))))) + (cons _g131428131431_ _g131429131433_))))) (declare (not safe)) - (foldr1 __tmp135572 '() _L131118_))))) - (___kont134314134315_ - (lambda (_L130951_ _L130952_ _L130953_) - (let ((__tmp135573 - (let () (declare (not safe)) (gx#stx-e _L130951_)))) + (foldr1 __tmp135834 '() _L131380_))))) + (___kont134576134577_ + (lambda (_L131213_ _L131214_ _L131215_) + (let ((__tmp135835 + (let () (declare (not safe)) (gx#stx-e _L131213_)))) (declare (not safe)) - (hash-put! _slots130296_ __tmp135573 '#t)))) - (___kont134316134317_ - (lambda (_L130828_ _L130829_ _L130830_ _L130831_) - (let ((__tmp135574 - (let () (declare (not safe)) (gx#stx-e _L130829_)))) + (hash-put! _slots130558_ __tmp135835 '#t)))) + (___kont134578134579_ + (lambda (_L131090_ _L131091_ _L131092_ _L131093_) + (let ((__tmp135836 + (let () (declare (not safe)) (gx#stx-e _L131091_)))) (declare (not safe)) - (hash-put! _slots130296_ __tmp135574 '#t)) + (hash-put! _slots130558_ __tmp135836 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L130828_ - _self130294_ - _methods130295_ - _slots130296_)))) - (___kont134318134319_ - (lambda (_L130702_ _L130703_) - (let* ((_accessor130725_ - (let ((__tmp135575 + _L131090_ + _self130556_ + _methods130557_ + _slots130558_)))) + (___kont134580134581_ + (lambda (_L130964_ _L130965_) + (let* ((_accessor130987_ + (let ((__tmp135837 (let () (declare (not safe)) - (gxc#identifier-symbol _L130703_)))) + (gxc#identifier-symbol _L130965_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135575))) - (_klass130727_ - (let ((__tmp135576 + (gxc#optimizer-resolve-type __tmp135837))) + (_klass130989_ + (let ((__tmp135838 (##structure-ref - _accessor130725_ + _accessor130987_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx130293_ - __tmp135576))) - (_slot130729_ + _stx130555_ + __tmp135838))) + (_slot130991_ (##structure-ref - _accessor130725_ + _accessor130987_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp135578 + (if (and (let ((__tmp135840 (##structure-ref - _accessor130725_ + _accessor130987_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp135578)) + (not __tmp135840)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass130727_ - _slot130729_)) + _klass130989_ + _slot130991_)) (##structure-ref - _klass130727_ + _klass130989_ '8 gxc#!class::t '#f))) '#!void - (let ((__tmp135577 + (let ((__tmp135839 (##structure-ref - _accessor130725_ + _accessor130987_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! _slots130296_ __tmp135577 '#t)))))) - (___kont134320134321_ - (lambda (_L130602_ _L130603_ _L130604_) - (let* ((_mutator130631_ - (let ((__tmp135579 + (hash-put! _slots130558_ __tmp135839 '#t)))))) + (___kont134582134583_ + (lambda (_L130864_ _L130865_ _L130866_) + (let* ((_mutator130893_ + (let ((__tmp135841 (let () (declare (not safe)) - (gxc#identifier-symbol _L130604_)))) + (gxc#identifier-symbol _L130866_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135579))) - (_klass130633_ - (let ((__tmp135580 + (gxc#optimizer-resolve-type __tmp135841))) + (_klass130895_ + (let ((__tmp135842 (##structure-ref - _mutator130631_ + _mutator130893_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx130293_ - __tmp135580))) - (_slot130635_ + _stx130555_ + __tmp135842))) + (_slot130897_ (##structure-ref - _mutator130631_ + _mutator130893_ '2 gxc#!mutator::t '#f))) - (if (and (let ((__tmp135581 + (if (and (let ((__tmp135843 (##structure-ref - _mutator130631_ + _mutator130893_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp135581)) + (not __tmp135843)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass130633_ - _slot130635_)) + _klass130895_ + _slot130897_)) (##structure-ref - _klass130633_ + _klass130895_ '8 gxc#!class::t '#f))) '#!void (let () (declare (not safe)) - (hash-put! _slots130296_ _slot130635_ '#t))) + (hash-put! _slots130558_ _slot130897_ '#t))) (let () (declare (not safe)) (gxc#compile-e__3 - _L130602_ - _self130294_ - _methods130295_ - _slots130296_))))) - (___kont134322134323_ + _L130864_ + _self130556_ + _methods130557_ + _slots130558_))))) + (___kont134584134585_ (lambda () (let () (declare (not safe)) (gxc#collect-operands - _stx130293_ - _self130294_ - _methods130295_ - _slots130296_))))) - (let* ((___match134803134804_ - (lambda (_e130500130538_ - _hd130499130541_ - _tl130498130543_ - _e130503130546_ - _hd130502130549_ - _tl130501130551_ - _e130506130554_ - _hd130505130557_ - _tl130504130559_ - _e130509130562_ - _hd130508130565_ - _tl130507130567_ - _e130512130570_ - _hd130511130573_ - _tl130510130575_ - _e130515130578_ - _hd130514130581_ - _tl130513130583_ - _e130518130586_ - _hd130517130589_ - _tl130516130591_ - _e130521130594_ - _hd130520130597_ - _tl130519130599_) - (let ((_L130602_ _hd130520130597_) - (_L130603_ _hd130517130589_) - (_L130604_ _hd130508130565_)) - (if (and (let ((__tmp135582 - (let ((__tmp135583 + _stx130555_ + _self130556_ + _methods130557_ + _slots130558_))))) + (let* ((___match135065135066_ + (lambda (_e130762130800_ + _hd130761130803_ + _tl130760130805_ + _e130765130808_ + _hd130764130811_ + _tl130763130813_ + _e130768130816_ + _hd130767130819_ + _tl130766130821_ + _e130771130824_ + _hd130770130827_ + _tl130769130829_ + _e130774130832_ + _hd130773130835_ + _tl130772130837_ + _e130777130840_ + _hd130776130843_ + _tl130775130845_ + _e130780130848_ + _hd130779130851_ + _tl130778130853_ + _e130783130856_ + _hd130782130859_ + _tl130781130861_) + (let ((_L130864_ _hd130782130859_) + (_L130865_ _hd130779130851_) + (_L130866_ _hd130770130827_)) + (if (and (let ((__tmp135844 + (let ((__tmp135845 (let () (declare (not safe)) (gxc#identifier-symbol - _L130604_)))) + _L130866_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135583)))) + __tmp135845)))) (declare (not safe)) (##structure-instance-of? - __tmp135582 + __tmp135844 'gxc#!mutator::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L130603_ - _self130294_))) - (___kont134320134321_ - _L130602_ - _L130603_ - _L130604_) - (___kont134322134323_))))) - (___match134801134802_ - (lambda (_e130500130538_ - _hd130499130541_ - _tl130498130543_ - _e130503130546_ - _hd130502130549_ - _tl130501130551_ - _e130506130554_ - _hd130505130557_ - _tl130504130559_ - _e130509130562_ - _hd130508130565_ - _tl130507130567_ - _e130512130570_ - _hd130511130573_ - _tl130510130575_ - _e130515130578_ - _hd130514130581_ - _tl130513130583_ - _e130518130586_ - _hd130517130589_ - _tl130516130591_ - _e130521130594_ - _hd130520130597_ - _tl130519130599_) + _L130865_ + _self130556_))) + (___kont134582134583_ + _L130864_ + _L130865_ + _L130866_) + (___kont134584134585_))))) + (___match135063135064_ + (lambda (_e130762130800_ + _hd130761130803_ + _tl130760130805_ + _e130765130808_ + _hd130764130811_ + _tl130763130813_ + _e130768130816_ + _hd130767130819_ + _tl130766130821_ + _e130771130824_ + _hd130770130827_ + _tl130769130829_ + _e130774130832_ + _hd130773130835_ + _tl130772130837_ + _e130777130840_ + _hd130776130843_ + _tl130775130845_ + _e130780130848_ + _hd130779130851_ + _tl130778130853_ + _e130783130856_ + _hd130782130859_ + _tl130781130861_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130519130599_)) - (___match134803134804_ - _e130500130538_ - _hd130499130541_ - _tl130498130543_ - _e130503130546_ - _hd130502130549_ - _tl130501130551_ - _e130506130554_ - _hd130505130557_ - _tl130504130559_ - _e130509130562_ - _hd130508130565_ - _tl130507130567_ - _e130512130570_ - _hd130511130573_ - _tl130510130575_ - _e130515130578_ - _hd130514130581_ - _tl130513130583_ - _e130518130586_ - _hd130517130589_ - _tl130516130591_ - _e130521130594_ - _hd130520130597_ - _tl130519130599_) - (___kont134322134323_)))) - (___match134795134796_ - (lambda (_e130500130538_ - _hd130499130541_ - _tl130498130543_ - _e130503130546_ - _hd130502130549_ - _tl130501130551_ - _e130506130554_ - _hd130505130557_ - _tl130504130559_ - _e130509130562_ - _hd130508130565_ - _tl130507130567_ - _e130512130570_ - _hd130511130573_ - _tl130510130575_ - _e130515130578_ - _hd130514130581_ - _tl130513130583_ - _e130518130586_ - _hd130517130589_ - _tl130516130591_) + (gx#stx-null? _tl130781130861_)) + (___match135065135066_ + _e130762130800_ + _hd130761130803_ + _tl130760130805_ + _e130765130808_ + _hd130764130811_ + _tl130763130813_ + _e130768130816_ + _hd130767130819_ + _tl130766130821_ + _e130771130824_ + _hd130770130827_ + _tl130769130829_ + _e130774130832_ + _hd130773130835_ + _tl130772130837_ + _e130777130840_ + _hd130776130843_ + _tl130775130845_ + _e130780130848_ + _hd130779130851_ + _tl130778130853_ + _e130783130856_ + _hd130782130859_ + _tl130781130861_) + (___kont134584134585_)))) + (___match135057135058_ + (lambda (_e130762130800_ + _hd130761130803_ + _tl130760130805_ + _e130765130808_ + _hd130764130811_ + _tl130763130813_ + _e130768130816_ + _hd130767130819_ + _tl130766130821_ + _e130771130824_ + _hd130770130827_ + _tl130769130829_ + _e130774130832_ + _hd130773130835_ + _tl130772130837_ + _e130777130840_ + _hd130776130843_ + _tl130775130845_ + _e130780130848_ + _hd130779130851_ + _tl130778130853_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130510130575_)) - (let ((_e130521130594_ + (gx#stx-pair? _tl130772130837_)) + (let ((_e130783130856_ (let () (declare (not safe)) - (gx#stx-e _tl130510130575_)))) - (let ((_tl130519130599_ + (gx#stx-e _tl130772130837_)))) + (let ((_tl130781130861_ (let () (declare (not safe)) - (##cdr _e130521130594_))) - (_hd130520130597_ + (##cdr _e130783130856_))) + (_hd130782130859_ (let () (declare (not safe)) - (##car _e130521130594_)))) + (##car _e130783130856_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130519130599_)) - (___match134803134804_ - _e130500130538_ - _hd130499130541_ - _tl130498130543_ - _e130503130546_ - _hd130502130549_ - _tl130501130551_ - _e130506130554_ - _hd130505130557_ - _tl130504130559_ - _e130509130562_ - _hd130508130565_ - _tl130507130567_ - _e130512130570_ - _hd130511130573_ - _tl130510130575_ - _e130515130578_ - _hd130514130581_ - _tl130513130583_ - _e130518130586_ - _hd130517130589_ - _tl130516130591_ - _e130521130594_ - _hd130520130597_ - _tl130519130599_) - (___kont134322134323_)))) - (___kont134322134323_)))) - (___match134741134742_ - (lambda (_e130476130646_ - _hd130475130649_ - _tl130474130651_ - _e130479130654_ - _hd130478130657_ - _tl130477130659_ - _e130482130662_ - _hd130481130665_ - _tl130480130667_ - _e130485130670_ - _hd130484130673_ - _tl130483130675_ - _e130488130678_ - _hd130487130681_ - _tl130486130683_ - _e130491130686_ - _hd130490130689_ - _tl130489130691_ - _e130494130694_ - _hd130493130697_ - _tl130492130699_) - (let ((_L130702_ _hd130493130697_) - (_L130703_ _hd130484130673_)) - (if (and (let ((__tmp135584 - (let ((__tmp135585 + (gx#stx-null? _tl130781130861_)) + (___match135065135066_ + _e130762130800_ + _hd130761130803_ + _tl130760130805_ + _e130765130808_ + _hd130764130811_ + _tl130763130813_ + _e130768130816_ + _hd130767130819_ + _tl130766130821_ + _e130771130824_ + _hd130770130827_ + _tl130769130829_ + _e130774130832_ + _hd130773130835_ + _tl130772130837_ + _e130777130840_ + _hd130776130843_ + _tl130775130845_ + _e130780130848_ + _hd130779130851_ + _tl130778130853_ + _e130783130856_ + _hd130782130859_ + _tl130781130861_) + (___kont134584134585_)))) + (___kont134584134585_)))) + (___match135003135004_ + (lambda (_e130738130908_ + _hd130737130911_ + _tl130736130913_ + _e130741130916_ + _hd130740130919_ + _tl130739130921_ + _e130744130924_ + _hd130743130927_ + _tl130742130929_ + _e130747130932_ + _hd130746130935_ + _tl130745130937_ + _e130750130940_ + _hd130749130943_ + _tl130748130945_ + _e130753130948_ + _hd130752130951_ + _tl130751130953_ + _e130756130956_ + _hd130755130959_ + _tl130754130961_) + (let ((_L130964_ _hd130755130959_) + (_L130965_ _hd130746130935_)) + (if (and (let ((__tmp135846 + (let ((__tmp135847 (let () (declare (not safe)) (gxc#identifier-symbol - _L130703_)))) + _L130965_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135585)))) + __tmp135847)))) (declare (not safe)) (##structure-instance-of? - __tmp135584 + __tmp135846 'gxc#!accessor::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L130702_ - _self130294_))) - (___kont134318134319_ _L130702_ _L130703_) - (___kont134322134323_))))) - (___match134739134740_ - (lambda (_e130476130646_ - _hd130475130649_ - _tl130474130651_ - _e130479130654_ - _hd130478130657_ - _tl130477130659_ - _e130482130662_ - _hd130481130665_ - _tl130480130667_ - _e130485130670_ - _hd130484130673_ - _tl130483130675_ - _e130488130678_ - _hd130487130681_ - _tl130486130683_ - _e130491130686_ - _hd130490130689_ - _tl130489130691_ - _e130494130694_ - _hd130493130697_ - _tl130492130699_) + _L130964_ + _self130556_))) + (___kont134580134581_ _L130964_ _L130965_) + (___kont134584134585_))))) + (___match135001135002_ + (lambda (_e130738130908_ + _hd130737130911_ + _tl130736130913_ + _e130741130916_ + _hd130740130919_ + _tl130739130921_ + _e130744130924_ + _hd130743130927_ + _tl130742130929_ + _e130747130932_ + _hd130746130935_ + _tl130745130937_ + _e130750130940_ + _hd130749130943_ + _tl130748130945_ + _e130753130948_ + _hd130752130951_ + _tl130751130953_ + _e130756130956_ + _hd130755130959_ + _tl130754130961_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130486130683_)) - (___match134741134742_ - _e130476130646_ - _hd130475130649_ - _tl130474130651_ - _e130479130654_ - _hd130478130657_ - _tl130477130659_ - _e130482130662_ - _hd130481130665_ - _tl130480130667_ - _e130485130670_ - _hd130484130673_ - _tl130483130675_ - _e130488130678_ - _hd130487130681_ - _tl130486130683_ - _e130491130686_ - _hd130490130689_ - _tl130489130691_ - _e130494130694_ - _hd130493130697_ - _tl130492130699_) - (___match134795134796_ - _e130476130646_ - _hd130475130649_ - _tl130474130651_ - _e130479130654_ - _hd130478130657_ - _tl130477130659_ - _e130482130662_ - _hd130481130665_ - _tl130480130667_ - _e130485130670_ - _hd130484130673_ - _tl130483130675_ - _e130488130678_ - _hd130487130681_ - _tl130486130683_ - _e130491130686_ - _hd130490130689_ - _tl130489130691_ - _e130494130694_ - _hd130493130697_ - _tl130492130699_)))) - (___match134685134686_ - (lambda (_e130441130740_ - _hd130440130743_ - _tl130439130745_ - _e130444130748_ - _hd130443130751_ - _tl130442130753_ - _e130447130756_ - _hd130446130759_ - _tl130445130761_ - _e130450130764_ - _hd130449130767_ - _tl130448130769_ - _e130453130772_ - _hd130452130775_ - _tl130451130777_ - _e130456130780_ - _hd130455130783_ - _tl130454130785_ - _e130459130788_ - _hd130458130791_ - _tl130457130793_ - _e130462130796_ - _hd130461130799_ - _tl130460130801_ - _e130465130804_ - _hd130464130807_ - _tl130463130809_ - _e130468130812_ - _hd130467130815_ - _tl130466130817_ - _e130471130820_ - _hd130470130823_ - _tl130469130825_) - (let ((_L130828_ _hd130470130823_) - (_L130829_ _hd130467130815_) - (_L130830_ _hd130458130791_) - (_L130831_ _hd130449130767_)) + (gx#stx-null? _tl130748130945_)) + (___match135003135004_ + _e130738130908_ + _hd130737130911_ + _tl130736130913_ + _e130741130916_ + _hd130740130919_ + _tl130739130921_ + _e130744130924_ + _hd130743130927_ + _tl130742130929_ + _e130747130932_ + _hd130746130935_ + _tl130745130937_ + _e130750130940_ + _hd130749130943_ + _tl130748130945_ + _e130753130948_ + _hd130752130951_ + _tl130751130953_ + _e130756130956_ + _hd130755130959_ + _tl130754130961_) + (___match135057135058_ + _e130738130908_ + _hd130737130911_ + _tl130736130913_ + _e130741130916_ + _hd130740130919_ + _tl130739130921_ + _e130744130924_ + _hd130743130927_ + _tl130742130929_ + _e130747130932_ + _hd130746130935_ + _tl130745130937_ + _e130750130940_ + _hd130749130943_ + _tl130748130945_ + _e130753130948_ + _hd130752130951_ + _tl130751130953_ + _e130756130956_ + _hd130755130959_ + _tl130754130961_)))) + (___match134947134948_ + (lambda (_e130703131002_ + _hd130702131005_ + _tl130701131007_ + _e130706131010_ + _hd130705131013_ + _tl130704131015_ + _e130709131018_ + _hd130708131021_ + _tl130707131023_ + _e130712131026_ + _hd130711131029_ + _tl130710131031_ + _e130715131034_ + _hd130714131037_ + _tl130713131039_ + _e130718131042_ + _hd130717131045_ + _tl130716131047_ + _e130721131050_ + _hd130720131053_ + _tl130719131055_ + _e130724131058_ + _hd130723131061_ + _tl130722131063_ + _e130727131066_ + _hd130726131069_ + _tl130725131071_ + _e130730131074_ + _hd130729131077_ + _tl130728131079_ + _e130733131082_ + _hd130732131085_ + _tl130731131087_) + (let ((_L131090_ _hd130732131085_) + (_L131091_ _hd130729131077_) + (_L131092_ _hd130720131053_) + (_L131093_ _hd130711131029_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130831_ + _L131093_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130831_ + _L131093_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L130830_ - _self130294_))) - (___kont134316134317_ - _L130828_ - _L130829_ - _L130830_ - _L130831_) - (___kont134322134323_))))) - (___match134677134678_ - (lambda (_e130441130740_ - _hd130440130743_ - _tl130439130745_ - _e130444130748_ - _hd130443130751_ - _tl130442130753_ - _e130447130756_ - _hd130446130759_ - _tl130445130761_ - _e130450130764_ - _hd130449130767_ - _tl130448130769_ - _e130453130772_ - _hd130452130775_ - _tl130451130777_ - _e130456130780_ - _hd130455130783_ - _tl130454130785_ - _e130459130788_ - _hd130458130791_ - _tl130457130793_ - _e130462130796_ - _hd130461130799_ - _tl130460130801_ - _e130465130804_ - _hd130464130807_ - _tl130463130809_ - _e130468130812_ - _hd130467130815_ - _tl130466130817_) + _L131092_ + _self130556_))) + (___kont134578134579_ + _L131090_ + _L131091_ + _L131092_ + _L131093_) + (___kont134584134585_))))) + (___match134939134940_ + (lambda (_e130703131002_ + _hd130702131005_ + _tl130701131007_ + _e130706131010_ + _hd130705131013_ + _tl130704131015_ + _e130709131018_ + _hd130708131021_ + _tl130707131023_ + _e130712131026_ + _hd130711131029_ + _tl130710131031_ + _e130715131034_ + _hd130714131037_ + _tl130713131039_ + _e130718131042_ + _hd130717131045_ + _tl130716131047_ + _e130721131050_ + _hd130720131053_ + _tl130719131055_ + _e130724131058_ + _hd130723131061_ + _tl130722131063_ + _e130727131066_ + _hd130726131069_ + _tl130725131071_ + _e130730131074_ + _hd130729131077_ + _tl130728131079_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130460130801_)) - (let ((_e130471130820_ + (gx#stx-pair? _tl130722131063_)) + (let ((_e130733131082_ (let () (declare (not safe)) - (gx#stx-e _tl130460130801_)))) - (let ((_tl130469130825_ + (gx#stx-e _tl130722131063_)))) + (let ((_tl130731131087_ (let () (declare (not safe)) - (##cdr _e130471130820_))) - (_hd130470130823_ + (##cdr _e130733131082_))) + (_hd130732131085_ (let () (declare (not safe)) - (##car _e130471130820_)))) + (##car _e130733131082_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130469130825_)) - (___match134685134686_ - _e130441130740_ - _hd130440130743_ - _tl130439130745_ - _e130444130748_ - _hd130443130751_ - _tl130442130753_ - _e130447130756_ - _hd130446130759_ - _tl130445130761_ - _e130450130764_ - _hd130449130767_ - _tl130448130769_ - _e130453130772_ - _hd130452130775_ - _tl130451130777_ - _e130456130780_ - _hd130455130783_ - _tl130454130785_ - _e130459130788_ - _hd130458130791_ - _tl130457130793_ - _e130462130796_ - _hd130461130799_ - _tl130460130801_ - _e130465130804_ - _hd130464130807_ - _tl130463130809_ - _e130468130812_ - _hd130467130815_ - _tl130466130817_ - _e130471130820_ - _hd130470130823_ - _tl130469130825_) - (___kont134322134323_)))) - (___match134801134802_ - _e130441130740_ - _hd130440130743_ - _tl130439130745_ - _e130444130748_ - _hd130443130751_ - _tl130442130753_ - _e130447130756_ - _hd130446130759_ - _tl130445130761_ - _e130450130764_ - _hd130449130767_ - _tl130448130769_ - _e130453130772_ - _hd130452130775_ - _tl130451130777_ - _e130456130780_ - _hd130455130783_ - _tl130454130785_ - _e130459130788_ - _hd130458130791_ - _tl130457130793_ - _e130462130796_ - _hd130461130799_ - _tl130460130801_)))) - (___match134599134600_ - (lambda (_e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_ - _e130431130935_ - _hd130430130938_ - _tl130429130940_ - _e130434130943_ - _hd130433130946_ - _tl130432130948_) - (let ((_L130951_ _hd130433130946_) - (_L130952_ _hd130424130922_) - (_L130953_ _hd130415130898_)) + (gx#stx-null? _tl130731131087_)) + (___match134947134948_ + _e130703131002_ + _hd130702131005_ + _tl130701131007_ + _e130706131010_ + _hd130705131013_ + _tl130704131015_ + _e130709131018_ + _hd130708131021_ + _tl130707131023_ + _e130712131026_ + _hd130711131029_ + _tl130710131031_ + _e130715131034_ + _hd130714131037_ + _tl130713131039_ + _e130718131042_ + _hd130717131045_ + _tl130716131047_ + _e130721131050_ + _hd130720131053_ + _tl130719131055_ + _e130724131058_ + _hd130723131061_ + _tl130722131063_ + _e130727131066_ + _hd130726131069_ + _tl130725131071_ + _e130730131074_ + _hd130729131077_ + _tl130728131079_ + _e130733131082_ + _hd130732131085_ + _tl130731131087_) + (___kont134584134585_)))) + (___match135063135064_ + _e130703131002_ + _hd130702131005_ + _tl130701131007_ + _e130706131010_ + _hd130705131013_ + _tl130704131015_ + _e130709131018_ + _hd130708131021_ + _tl130707131023_ + _e130712131026_ + _hd130711131029_ + _tl130710131031_ + _e130715131034_ + _hd130714131037_ + _tl130713131039_ + _e130718131042_ + _hd130717131045_ + _tl130716131047_ + _e130721131050_ + _hd130720131053_ + _tl130719131055_ + _e130724131058_ + _hd130723131061_ + _tl130722131063_)))) + (___match134861134862_ + (lambda (_e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_ + _e130693131197_ + _hd130692131200_ + _tl130691131202_ + _e130696131205_ + _hd130695131208_ + _tl130694131210_) + (let ((_L131213_ _hd130695131208_) + (_L131214_ _hd130686131184_) + (_L131215_ _hd130677131160_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130953_ + _L131215_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130953_ + _L131215_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L130952_ - _self130294_))) - (___kont134314134315_ - _L130951_ - _L130952_ - _L130953_) - (___match134803134804_ - _e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_))))) - (___match134597134598_ - (lambda (_e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_ - _e130431130935_ - _hd130430130938_ - _tl130429130940_ - _e130434130943_ - _hd130433130946_ - _tl130432130948_) + _L131214_ + _self130556_))) + (___kont134576134577_ + _L131213_ + _L131214_ + _L131215_) + (___match135065135066_ + _e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_))))) + (___match134859134860_ + (lambda (_e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_ + _e130693131197_ + _hd130692131200_ + _tl130691131202_ + _e130696131205_ + _hd130695131208_ + _tl130694131210_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130426130932_)) - (___match134599134600_ - _e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_ - _e130431130935_ - _hd130430130938_ - _tl130429130940_ - _e130434130943_ - _hd130433130946_ - _tl130432130948_) - (___match134677134678_ - _e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_ - _e130431130935_ - _hd130430130938_ - _tl130429130940_ - _e130434130943_ - _hd130433130946_ - _tl130432130948_)))) - (___match134587134588_ - (lambda (_e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_ - _e130431130935_ - _hd130430130938_ - _tl130429130940_) + (gx#stx-null? _tl130688131194_)) + (___match134861134862_ + _e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_ + _e130693131197_ + _hd130692131200_ + _tl130691131202_ + _e130696131205_ + _hd130695131208_ + _tl130694131210_) + (___match134939134940_ + _e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_ + _e130693131197_ + _hd130692131200_ + _tl130691131202_ + _e130696131205_ + _hd130695131208_ + _tl130694131210_)))) + (___match134849134850_ + (lambda (_e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_ + _e130693131197_ + _hd130692131200_ + _tl130691131202_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd130430130938_)) + (gx#stx-eq? '%#quote _hd130692131200_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130429130940_)) - (let ((_e130434130943_ + (gx#stx-pair? _tl130691131202_)) + (let ((_e130696131205_ (let () (declare (not safe)) - (gx#stx-e _tl130429130940_)))) - (let ((_tl130432130948_ + (gx#stx-e _tl130691131202_)))) + (let ((_tl130694131210_ (let () (declare (not safe)) - (##cdr _e130434130943_))) - (_hd130433130946_ + (##cdr _e130696131205_))) + (_hd130695131208_ (let () (declare (not safe)) - (##car _e130434130943_)))) + (##car _e130696131205_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130432130948_)) + (gx#stx-null? _tl130694131210_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl130426130932_)) - (___match134599134600_ - _e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_ - _e130431130935_ - _hd130430130938_ - _tl130429130940_ - _e130434130943_ - _hd130433130946_ - _tl130432130948_) - (___match134677134678_ - _e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_ - _e130431130935_ - _hd130430130938_ - _tl130429130940_ - _e130434130943_ - _hd130433130946_ - _tl130432130948_)) - (___match134801134802_ - _e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_)))) - (___match134801134802_ - _e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_)) - (___match134801134802_ - _e130407130871_ - _hd130406130874_ - _tl130405130876_ - _e130410130879_ - _hd130409130882_ - _tl130408130884_ - _e130413130887_ - _hd130412130890_ - _tl130411130892_ - _e130416130895_ - _hd130415130898_ - _tl130414130900_ - _e130419130903_ - _hd130418130906_ - _tl130417130908_ - _e130422130911_ - _hd130421130914_ - _tl130420130916_ - _e130425130919_ - _hd130424130922_ - _tl130423130924_ - _e130428130927_ - _hd130427130930_ - _tl130426130932_)))) - (___match134519134520_ - (lambda (_e130356130990_ - _hd130355130993_ - _tl130354130995_ - _e130359130998_ - _hd130358131001_ - _tl130357131003_ - _e130362131006_ - _hd130361131009_ - _tl130360131011_ - _e130365131014_ - _hd130364131017_ - _tl130363131019_ - _e130368131022_ - _hd130367131025_ - _tl130366131027_ - _e130371131030_ - _hd130370131033_ - _tl130369131035_ - _e130374131038_ - _hd130373131041_ - _tl130372131043_ - _e130377131046_ - _hd130376131049_ - _tl130375131051_ - _e130380131054_ - _hd130379131057_ - _tl130378131059_ - _e130383131062_ - _hd130382131065_ - _tl130381131067_ - _e130386131070_ - _hd130385131073_ - _tl130384131075_ - _e130389131078_ - _hd130388131081_ - _tl130387131083_ - _e130392131086_ - _hd130391131089_ - _tl130390131091_ - ___splice134312134313_ - _target130393131094_ - _tl130395131096_) - (letrec ((_loop130396131099_ - (lambda (_hd130394131102_ _args130400131104_) + (gx#stx-null? _tl130688131194_)) + (___match134861134862_ + _e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_ + _e130693131197_ + _hd130692131200_ + _tl130691131202_ + _e130696131205_ + _hd130695131208_ + _tl130694131210_) + (___match134939134940_ + _e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_ + _e130693131197_ + _hd130692131200_ + _tl130691131202_ + _e130696131205_ + _hd130695131208_ + _tl130694131210_)) + (___match135063135064_ + _e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_)))) + (___match135063135064_ + _e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_)) + (___match135063135064_ + _e130669131133_ + _hd130668131136_ + _tl130667131138_ + _e130672131141_ + _hd130671131144_ + _tl130670131146_ + _e130675131149_ + _hd130674131152_ + _tl130673131154_ + _e130678131157_ + _hd130677131160_ + _tl130676131162_ + _e130681131165_ + _hd130680131168_ + _tl130679131170_ + _e130684131173_ + _hd130683131176_ + _tl130682131178_ + _e130687131181_ + _hd130686131184_ + _tl130685131186_ + _e130690131189_ + _hd130689131192_ + _tl130688131194_)))) + (___match134781134782_ + (lambda (_e130618131252_ + _hd130617131255_ + _tl130616131257_ + _e130621131260_ + _hd130620131263_ + _tl130619131265_ + _e130624131268_ + _hd130623131271_ + _tl130622131273_ + _e130627131276_ + _hd130626131279_ + _tl130625131281_ + _e130630131284_ + _hd130629131287_ + _tl130628131289_ + _e130633131292_ + _hd130632131295_ + _tl130631131297_ + _e130636131300_ + _hd130635131303_ + _tl130634131305_ + _e130639131308_ + _hd130638131311_ + _tl130637131313_ + _e130642131316_ + _hd130641131319_ + _tl130640131321_ + _e130645131324_ + _hd130644131327_ + _tl130643131329_ + _e130648131332_ + _hd130647131335_ + _tl130646131337_ + _e130651131340_ + _hd130650131343_ + _tl130649131345_ + _e130654131348_ + _hd130653131351_ + _tl130652131353_ + ___splice134574134575_ + _target130655131356_ + _tl130657131358_) + (letrec ((_loop130658131361_ + (lambda (_hd130656131364_ _args130662131366_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130394131102_)) - (let ((_e130397131107_ + (gx#stx-pair? _hd130656131364_)) + (let ((_e130659131369_ (let () (declare (not safe)) - (gx#stx-e _hd130394131102_)))) - (let ((_lp-tl130399131112_ + (gx#stx-e _hd130656131364_)))) + (let ((_lp-tl130661131374_ (let () (declare (not safe)) - (##cdr _e130397131107_))) - (_lp-hd130398131110_ + (##cdr _e130659131369_))) + (_lp-hd130660131372_ (let () (declare (not safe)) - (##car _e130397131107_)))) - (let ((__tmp135586 + (##car _e130659131369_)))) + (let ((__tmp135848 (let () (declare (not safe)) - (cons _lp-hd130398131110_ - _args130400131104_)))) + (cons _lp-hd130660131372_ + _args130662131366_)))) (declare (not safe)) - (_loop130396131099_ - _lp-tl130399131112_ - __tmp135586)))) - (let ((_args130401131115_ - (reverse _args130400131104_))) - (let ((_L131118_ _args130401131115_) - (_L131119_ _hd130391131089_) - (_L131120_ _hd130382131065_) - (_L131121_ _hd130373131041_) - (_L131122_ _hd130364131017_)) + (_loop130658131361_ + _lp-tl130661131374_ + __tmp135848)))) + (let ((_args130663131377_ + (reverse _args130662131366_))) + (let ((_L131380_ _args130663131377_) + (_L131381_ _hd130653131351_) + (_L131382_ _hd130644131327_) + (_L131383_ _hd130635131303_) + (_L131384_ _hd130626131279_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131122_ + _L131384_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131121_ + _L131383_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L131120_ - _self130294_))) - (___kont134310134311_ - _L131118_ - _L131119_ - _L131120_ - _L131121_ - _L131122_) - (___kont134322134323_)))))))) + _L131382_ + _self130556_))) + (___kont134572134573_ + _L131380_ + _L131381_ + _L131382_ + _L131383_ + _L131384_) + (___kont134584134585_)))))))) (let () (declare (not safe)) - (_loop130396131099_ _target130393131094_ '()))))) - (___match134477134478_ - (lambda (_e130356130990_ - _hd130355130993_ - _tl130354130995_ - _e130359130998_ - _hd130358131001_ - _tl130357131003_ - _e130362131006_ - _hd130361131009_ - _tl130360131011_ - _e130365131014_ - _hd130364131017_ - _tl130363131019_ - _e130368131022_ - _hd130367131025_ - _tl130366131027_ - _e130371131030_ - _hd130370131033_ - _tl130369131035_ - _e130374131038_ - _hd130373131041_ - _tl130372131043_ - _e130377131046_ - _hd130376131049_ - _tl130375131051_ - _e130380131054_ - _hd130379131057_ - _tl130378131059_) + (_loop130658131361_ _target130655131356_ '()))))) + (___match134739134740_ + (lambda (_e130618131252_ + _hd130617131255_ + _tl130616131257_ + _e130621131260_ + _hd130620131263_ + _tl130619131265_ + _e130624131268_ + _hd130623131271_ + _tl130622131273_ + _e130627131276_ + _hd130626131279_ + _tl130625131281_ + _e130630131284_ + _hd130629131287_ + _tl130628131289_ + _e130633131292_ + _hd130632131295_ + _tl130631131297_ + _e130636131300_ + _hd130635131303_ + _tl130634131305_ + _e130639131308_ + _hd130638131311_ + _tl130637131313_ + _e130642131316_ + _hd130641131319_ + _tl130640131321_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd130379131057_)) + (gx#stx-eq? '%#ref _hd130641131319_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130378131059_)) - (let ((_e130383131062_ + (gx#stx-pair? _tl130640131321_)) + (let ((_e130645131324_ (let () (declare (not safe)) - (gx#stx-e _tl130378131059_)))) - (let ((_tl130381131067_ + (gx#stx-e _tl130640131321_)))) + (let ((_tl130643131329_ (let () (declare (not safe)) - (##cdr _e130383131062_))) - (_hd130382131065_ + (##cdr _e130645131324_))) + (_hd130644131327_ (let () (declare (not safe)) - (##car _e130383131062_)))) + (##car _e130645131324_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130381131067_)) + (gx#stx-null? _tl130643131329_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130375131051_)) - (let ((_e130386131070_ + (gx#stx-pair? _tl130637131313_)) + (let ((_e130648131332_ (let () (declare (not safe)) (gx#stx-e - _tl130375131051_)))) - (let ((_tl130384131075_ + _tl130637131313_)))) + (let ((_tl130646131337_ (let () (declare (not safe)) - (##cdr _e130386131070_))) - (_hd130385131073_ + (##cdr _e130648131332_))) + (_hd130647131335_ (let () (declare (not safe)) - (##car _e130386131070_)))) + (##car _e130648131332_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd130385131073_)) - (let ((_e130389131078_ + _hd130647131335_)) + (let ((_e130651131340_ (let () (declare (not safe)) (gx#stx-e - _hd130385131073_)))) - (let ((_tl130387131083_ + _hd130647131335_)))) + (let ((_tl130649131345_ (let () (declare (not safe)) - (##cdr _e130389131078_))) - (_hd130388131081_ + (##cdr _e130651131340_))) + (_hd130650131343_ (let () (declare (not safe)) - (##car _e130389131078_)))) + (##car _e130651131340_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd130388131081_)) + _hd130650131343_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd130388131081_)) + (gx#stx-eq? '%#quote _hd130650131343_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130387131083_)) - (let ((_e130392131086_ + (gx#stx-pair? _tl130649131345_)) + (let ((_e130654131348_ (let () (declare (not safe)) - (gx#stx-e _tl130387131083_)))) - (let ((_tl130390131091_ + (gx#stx-e _tl130649131345_)))) + (let ((_tl130652131353_ (let () (declare (not safe)) - (##cdr _e130392131086_))) - (_hd130391131089_ + (##cdr _e130654131348_))) + (_hd130653131351_ (let () (declare (not safe)) - (##car _e130392131086_)))) + (##car _e130654131348_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130390131091_)) + (gx#stx-null? _tl130652131353_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl130384131075_)) - (let ((___splice134312134313_ + (gx#stx-pair/null? _tl130646131337_)) + (let ((___splice134574134575_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl130384131075_ + _tl130646131337_ '0)))) - (let ((_tl130395131096_ + (let ((_tl130657131358_ (let () (declare (not safe)) (##vector-ref - ___splice134312134313_ + ___splice134574134575_ '1))) - (_target130393131094_ + (_target130655131356_ (let () (declare (not safe)) (##vector-ref - ___splice134312134313_ + ___splice134574134575_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130395131096_)) - (___match134519134520_ - _e130356130990_ - _hd130355130993_ - _tl130354130995_ - _e130359130998_ - _hd130358131001_ - _tl130357131003_ - _e130362131006_ - _hd130361131009_ - _tl130360131011_ - _e130365131014_ - _hd130364131017_ - _tl130363131019_ - _e130368131022_ - _hd130367131025_ - _tl130366131027_ - _e130371131030_ - _hd130370131033_ - _tl130369131035_ - _e130374131038_ - _hd130373131041_ - _tl130372131043_ - _e130377131046_ - _hd130376131049_ - _tl130375131051_ - _e130380131054_ - _hd130379131057_ - _tl130378131059_ - _e130383131062_ - _hd130382131065_ - _tl130381131067_ - _e130386131070_ - _hd130385131073_ - _tl130384131075_ - _e130389131078_ - _hd130388131081_ - _tl130387131083_ - _e130392131086_ - _hd130391131089_ - _tl130390131091_ - ___splice134312134313_ - _target130393131094_ - _tl130395131096_) - (___kont134322134323_)))) - (___kont134322134323_)) - (___kont134322134323_)))) - (___kont134322134323_)) - (___kont134322134323_)) - (___kont134322134323_)))) + _tl130657131358_)) + (___match134781134782_ + _e130618131252_ + _hd130617131255_ + _tl130616131257_ + _e130621131260_ + _hd130620131263_ + _tl130619131265_ + _e130624131268_ + _hd130623131271_ + _tl130622131273_ + _e130627131276_ + _hd130626131279_ + _tl130625131281_ + _e130630131284_ + _hd130629131287_ + _tl130628131289_ + _e130633131292_ + _hd130632131295_ + _tl130631131297_ + _e130636131300_ + _hd130635131303_ + _tl130634131305_ + _e130639131308_ + _hd130638131311_ + _tl130637131313_ + _e130642131316_ + _hd130641131319_ + _tl130640131321_ + _e130645131324_ + _hd130644131327_ + _tl130643131329_ + _e130648131332_ + _hd130647131335_ + _tl130646131337_ + _e130651131340_ + _hd130650131343_ + _tl130649131345_ + _e130654131348_ + _hd130653131351_ + _tl130652131353_ + ___splice134574134575_ + _target130655131356_ + _tl130657131358_) + (___kont134584134585_)))) + (___kont134584134585_)) + (___kont134584134585_)))) + (___kont134584134585_)) + (___kont134584134585_)) + (___kont134584134585_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134322134323_)))) - (___match134801134802_ - _e130356130990_ - _hd130355130993_ - _tl130354130995_ - _e130359130998_ - _hd130358131001_ - _tl130357131003_ - _e130362131006_ - _hd130361131009_ - _tl130360131011_ - _e130365131014_ - _hd130364131017_ - _tl130363131019_ - _e130368131022_ - _hd130367131025_ - _tl130366131027_ - _e130371131030_ - _hd130370131033_ - _tl130369131035_ - _e130374131038_ - _hd130373131041_ - _tl130372131043_ - _e130377131046_ - _hd130376131049_ - _tl130375131051_)) - (___match134801134802_ - _e130356130990_ - _hd130355130993_ - _tl130354130995_ - _e130359130998_ - _hd130358131001_ - _tl130357131003_ - _e130362131006_ - _hd130361131009_ - _tl130360131011_ - _e130365131014_ - _hd130364131017_ - _tl130363131019_ - _e130368131022_ - _hd130367131025_ - _tl130366131027_ - _e130371131030_ - _hd130370131033_ - _tl130369131035_ - _e130374131038_ - _hd130373131041_ - _tl130372131043_ - _e130377131046_ - _hd130376131049_ - _tl130375131051_)))) - (___match134801134802_ - _e130356130990_ - _hd130355130993_ - _tl130354130995_ - _e130359130998_ - _hd130358131001_ - _tl130357131003_ - _e130362131006_ - _hd130361131009_ - _tl130360131011_ - _e130365131014_ - _hd130364131017_ - _tl130363131019_ - _e130368131022_ - _hd130367131025_ - _tl130366131027_ - _e130371131030_ - _hd130370131033_ - _tl130369131035_ - _e130374131038_ - _hd130373131041_ - _tl130372131043_ - _e130377131046_ - _hd130376131049_ - _tl130375131051_)) - (___match134587134588_ - _e130356130990_ - _hd130355130993_ - _tl130354130995_ - _e130359130998_ - _hd130358131001_ - _tl130357131003_ - _e130362131006_ - _hd130361131009_ - _tl130360131011_ - _e130365131014_ - _hd130364131017_ - _tl130363131019_ - _e130368131022_ - _hd130367131025_ - _tl130366131027_ - _e130371131030_ - _hd130370131033_ - _tl130369131035_ - _e130374131038_ - _hd130373131041_ - _tl130372131043_ - _e130377131046_ - _hd130376131049_ - _tl130375131051_ - _e130380131054_ - _hd130379131057_ - _tl130378131059_)))) - (___match134409134410_ - (lambda (_e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_ - _e130336131243_ - _hd130335131246_ - _tl130334131248_ - _e130339131251_ - _hd130338131254_ - _tl130337131256_ - ___splice134308134309_ - _target130340131259_ - _tl130342131261_) - (letrec ((_loop130343131264_ - (lambda (_hd130341131267_ _args130347131269_) + (___kont134584134585_)))) + (___match135063135064_ + _e130618131252_ + _hd130617131255_ + _tl130616131257_ + _e130621131260_ + _hd130620131263_ + _tl130619131265_ + _e130624131268_ + _hd130623131271_ + _tl130622131273_ + _e130627131276_ + _hd130626131279_ + _tl130625131281_ + _e130630131284_ + _hd130629131287_ + _tl130628131289_ + _e130633131292_ + _hd130632131295_ + _tl130631131297_ + _e130636131300_ + _hd130635131303_ + _tl130634131305_ + _e130639131308_ + _hd130638131311_ + _tl130637131313_)) + (___match135063135064_ + _e130618131252_ + _hd130617131255_ + _tl130616131257_ + _e130621131260_ + _hd130620131263_ + _tl130619131265_ + _e130624131268_ + _hd130623131271_ + _tl130622131273_ + _e130627131276_ + _hd130626131279_ + _tl130625131281_ + _e130630131284_ + _hd130629131287_ + _tl130628131289_ + _e130633131292_ + _hd130632131295_ + _tl130631131297_ + _e130636131300_ + _hd130635131303_ + _tl130634131305_ + _e130639131308_ + _hd130638131311_ + _tl130637131313_)))) + (___match135063135064_ + _e130618131252_ + _hd130617131255_ + _tl130616131257_ + _e130621131260_ + _hd130620131263_ + _tl130619131265_ + _e130624131268_ + _hd130623131271_ + _tl130622131273_ + _e130627131276_ + _hd130626131279_ + _tl130625131281_ + _e130630131284_ + _hd130629131287_ + _tl130628131289_ + _e130633131292_ + _hd130632131295_ + _tl130631131297_ + _e130636131300_ + _hd130635131303_ + _tl130634131305_ + _e130639131308_ + _hd130638131311_ + _tl130637131313_)) + (___match134849134850_ + _e130618131252_ + _hd130617131255_ + _tl130616131257_ + _e130621131260_ + _hd130620131263_ + _tl130619131265_ + _e130624131268_ + _hd130623131271_ + _tl130622131273_ + _e130627131276_ + _hd130626131279_ + _tl130625131281_ + _e130630131284_ + _hd130629131287_ + _tl130628131289_ + _e130633131292_ + _hd130632131295_ + _tl130631131297_ + _e130636131300_ + _hd130635131303_ + _tl130634131305_ + _e130639131308_ + _hd130638131311_ + _tl130637131313_ + _e130642131316_ + _hd130641131319_ + _tl130640131321_)))) + (___match134671134672_ + (lambda (_e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_ + _e130598131505_ + _hd130597131508_ + _tl130596131510_ + _e130601131513_ + _hd130600131516_ + _tl130599131518_ + ___splice134570134571_ + _target130602131521_ + _tl130604131523_) + (letrec ((_loop130605131526_ + (lambda (_hd130603131529_ _args130609131531_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130341131267_)) - (let ((_e130344131272_ + (gx#stx-pair? _hd130603131529_)) + (let ((_e130606131534_ (let () (declare (not safe)) - (gx#stx-e _hd130341131267_)))) - (let ((_lp-tl130346131277_ + (gx#stx-e _hd130603131529_)))) + (let ((_lp-tl130608131539_ (let () (declare (not safe)) - (##cdr _e130344131272_))) - (_lp-hd130345131275_ + (##cdr _e130606131534_))) + (_lp-hd130607131537_ (let () (declare (not safe)) - (##car _e130344131272_)))) - (let ((__tmp135587 + (##car _e130606131534_)))) + (let ((__tmp135849 (let () (declare (not safe)) - (cons _lp-hd130345131275_ - _args130347131269_)))) + (cons _lp-hd130607131537_ + _args130609131531_)))) (declare (not safe)) - (_loop130343131264_ - _lp-tl130346131277_ - __tmp135587)))) - (let ((_args130348131280_ - (reverse _args130347131269_))) - (let ((_L131283_ _args130348131280_) - (_L131284_ _hd130338131254_) - (_L131285_ _hd130329131230_) - (_L131286_ _hd130320131206_)) + (_loop130605131526_ + _lp-tl130608131539_ + __tmp135849)))) + (let ((_args130610131542_ + (reverse _args130609131531_))) + (let ((_L131545_ _args130610131542_) + (_L131546_ _hd130600131516_) + (_L131547_ _hd130591131492_) + (_L131548_ _hd130582131468_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131286_ + _L131548_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L131285_ - _self130294_))) - (___kont134306134307_ - _L131283_ - _L131284_ - _L131285_ - _L131286_) - (___match134597134598_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_ - _e130336131243_ - _hd130335131246_ - _tl130334131248_ - _e130339131251_ - _hd130338131254_ - _tl130337131256_)))))))) + _L131547_ + _self130556_))) + (___kont134568134569_ + _L131545_ + _L131546_ + _L131547_ + _L131548_) + (___match134859134860_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_ + _e130598131505_ + _hd130597131508_ + _tl130596131510_ + _e130601131513_ + _hd130600131516_ + _tl130599131518_)))))))) (let () (declare (not safe)) - (_loop130343131264_ _target130340131259_ '())))))) + (_loop130605131526_ _target130602131521_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134304134305_)) - (let ((_e130312131179_ + (gx#stx-pair? ___stx134566134567_)) + (let ((_e130574131441_ (let () (declare (not safe)) - (gx#stx-e ___stx134304134305_)))) - (let ((_tl130310131184_ + (gx#stx-e ___stx134566134567_)))) + (let ((_tl130572131446_ (let () (declare (not safe)) - (##cdr _e130312131179_))) - (_hd130311131182_ + (##cdr _e130574131441_))) + (_hd130573131444_ (let () (declare (not safe)) - (##car _e130312131179_)))) + (##car _e130574131441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130310131184_)) - (let ((_e130315131187_ + (gx#stx-pair? _tl130572131446_)) + (let ((_e130577131449_ (let () (declare (not safe)) - (gx#stx-e _tl130310131184_)))) - (let ((_tl130313131192_ + (gx#stx-e _tl130572131446_)))) + (let ((_tl130575131454_ (let () (declare (not safe)) - (##cdr _e130315131187_))) - (_hd130314131190_ + (##cdr _e130577131449_))) + (_hd130576131452_ (let () (declare (not safe)) - (##car _e130315131187_)))) + (##car _e130577131449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130314131190_)) - (let ((_e130318131195_ + (gx#stx-pair? _hd130576131452_)) + (let ((_e130580131457_ (let () (declare (not safe)) - (gx#stx-e _hd130314131190_)))) - (let ((_tl130316131200_ + (gx#stx-e _hd130576131452_)))) + (let ((_tl130578131462_ (let () (declare (not safe)) - (##cdr _e130318131195_))) - (_hd130317131198_ + (##cdr _e130580131457_))) + (_hd130579131460_ (let () (declare (not safe)) - (##car _e130318131195_)))) + (##car _e130580131457_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130317131198_)) + (gx#identifier? _hd130579131460_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd130317131198_)) + _hd130579131460_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130316131200_)) - (let ((_e130321131203_ + _tl130578131462_)) + (let ((_e130583131465_ (let () (declare (not safe)) (gx#stx-e - _tl130316131200_)))) - (let ((_tl130319131208_ + _tl130578131462_)))) + (let ((_tl130581131470_ (let () (declare (not safe)) - (##cdr _e130321131203_))) - (_hd130320131206_ + (##cdr _e130583131465_))) + (_hd130582131468_ (let () (declare (not safe)) - (##car _e130321131203_)))) + (##car _e130583131465_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130319131208_)) + _tl130581131470_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl130313131192_)) - (let ((_e130324131211_ + (gx#stx-pair? _tl130575131454_)) + (let ((_e130586131473_ (let () (declare (not safe)) - (gx#stx-e _tl130313131192_)))) - (let ((_tl130322131216_ + (gx#stx-e _tl130575131454_)))) + (let ((_tl130584131478_ (let () (declare (not safe)) - (##cdr _e130324131211_))) - (_hd130323131214_ + (##cdr _e130586131473_))) + (_hd130585131476_ (let () (declare (not safe)) - (##car _e130324131211_)))) + (##car _e130586131473_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130323131214_)) - (let ((_e130327131219_ + (gx#stx-pair? _hd130585131476_)) + (let ((_e130589131481_ (let () (declare (not safe)) - (gx#stx-e _hd130323131214_)))) - (let ((_tl130325131224_ + (gx#stx-e _hd130585131476_)))) + (let ((_tl130587131486_ (let () (declare (not safe)) - (##cdr _e130327131219_))) - (_hd130326131222_ + (##cdr _e130589131481_))) + (_hd130588131484_ (let () (declare (not safe)) - (##car _e130327131219_)))) + (##car _e130589131481_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130326131222_)) + (gx#identifier? _hd130588131484_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd130326131222_)) + _hd130588131484_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130325131224_)) - (let ((_e130330131227_ + _tl130587131486_)) + (let ((_e130592131489_ (let () (declare (not safe)) (gx#stx-e - _tl130325131224_)))) - (let ((_tl130328131232_ + _tl130587131486_)))) + (let ((_tl130590131494_ (let () (declare (not safe)) - (##cdr _e130330131227_))) - (_hd130329131230_ + (##cdr _e130592131489_))) + (_hd130591131492_ (let () (declare (not safe)) - (##car _e130330131227_)))) + (##car _e130592131489_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130328131232_)) + _tl130590131494_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130322131216_)) - (let ((_e130333131235_ + _tl130584131478_)) + (let ((_e130595131497_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl130322131216_)))) - (let ((_tl130331131240_ + (gx#stx-e _tl130584131478_)))) + (let ((_tl130593131502_ (let () (declare (not safe)) - (##cdr _e130333131235_))) - (_hd130332131238_ + (##cdr _e130595131497_))) + (_hd130594131500_ (let () (declare (not safe)) - (##car _e130333131235_)))) + (##car _e130595131497_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130332131238_)) - (let ((_e130336131243_ + (gx#stx-pair? _hd130594131500_)) + (let ((_e130598131505_ (let () (declare (not safe)) - (gx#stx-e _hd130332131238_)))) - (let ((_tl130334131248_ + (gx#stx-e _hd130594131500_)))) + (let ((_tl130596131510_ (let () (declare (not safe)) - (##cdr _e130336131243_))) - (_hd130335131246_ + (##cdr _e130598131505_))) + (_hd130597131508_ (let () (declare (not safe)) - (##car _e130336131243_)))) + (##car _e130598131505_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130335131246_)) + (gx#identifier? _hd130597131508_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd130335131246_)) + (gx#stx-eq? '%#quote _hd130597131508_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130334131248_)) - (let ((_e130339131251_ + (gx#stx-pair? _tl130596131510_)) + (let ((_e130601131513_ (let () (declare (not safe)) (gx#stx-e - _tl130334131248_)))) - (let ((_tl130337131256_ + _tl130596131510_)))) + (let ((_tl130599131518_ (let () (declare (not safe)) - (##cdr _e130339131251_))) - (_hd130338131254_ + (##cdr _e130601131513_))) + (_hd130600131516_ (let () (declare (not safe)) - (##car _e130339131251_)))) + (##car _e130601131513_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130337131256_)) + _tl130599131518_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl130331131240_)) - (let ((___splice134308134309_ + _tl130593131502_)) + (let ((___splice134570134571_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl130331131240_ '0)))) - (let ((_tl130342131261_ + (gx#syntax-split-splice _tl130593131502_ '0)))) + (let ((_tl130604131523_ (let () (declare (not safe)) - (##vector-ref ___splice134308134309_ '1))) - (_target130340131259_ + (##vector-ref ___splice134570134571_ '1))) + (_target130602131521_ (let () (declare (not safe)) - (##vector-ref ___splice134308134309_ '0)))) + (##vector-ref ___splice134570134571_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130342131261_)) - (___match134409134410_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_ - _e130336131243_ - _hd130335131246_ - _tl130334131248_ - _e130339131251_ - _hd130338131254_ - _tl130337131256_ - ___splice134308134309_ - _target130340131259_ - _tl130342131261_) - (___match134597134598_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_ - _e130336131243_ - _hd130335131246_ - _tl130334131248_ - _e130339131251_ - _hd130338131254_ - _tl130337131256_)))) - (___match134597134598_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_ - _e130336131243_ - _hd130335131246_ - _tl130334131248_ - _e130339131251_ - _hd130338131254_ - _tl130337131256_)) + (gx#stx-null? _tl130604131523_)) + (___match134671134672_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_ + _e130598131505_ + _hd130597131508_ + _tl130596131510_ + _e130601131513_ + _hd130600131516_ + _tl130599131518_ + ___splice134570134571_ + _target130602131521_ + _tl130604131523_) + (___match134859134860_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_ + _e130598131505_ + _hd130597131508_ + _tl130596131510_ + _e130601131513_ + _hd130600131516_ + _tl130599131518_)))) + (___match134859134860_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_ + _e130598131505_ + _hd130597131508_ + _tl130596131510_ + _e130601131513_ + _hd130600131516_ + _tl130599131518_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match134801134802_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_)))) - (___match134801134802_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_)) - (___match134477134478_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_ - _e130336131243_ - _hd130335131246_ - _tl130334131248_)) - (___match134801134802_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_)))) - (___match134801134802_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_ - _e130333131235_ - _hd130332131238_ - _tl130331131240_)))) - (___match134739134740_ - _e130312131179_ - _hd130311131182_ - _tl130310131184_ - _e130315131187_ - _hd130314131190_ - _tl130313131192_ - _e130318131195_ - _hd130317131198_ - _tl130316131200_ - _e130321131203_ - _hd130320131206_ - _tl130319131208_ - _e130324131211_ - _hd130323131214_ - _tl130322131216_ - _e130327131219_ - _hd130326131222_ - _tl130325131224_ - _e130330131227_ - _hd130329131230_ - _tl130328131232_)) - (___kont134322134323_)))) + (___match135063135064_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_)))) + (___match135063135064_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_)) + (___match134739134740_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_ + _e130598131505_ + _hd130597131508_ + _tl130596131510_)) + (___match135063135064_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_)))) + (___match135063135064_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_ + _e130595131497_ + _hd130594131500_ + _tl130593131502_)))) + (___match135001135002_ + _e130574131441_ + _hd130573131444_ + _tl130572131446_ + _e130577131449_ + _hd130576131452_ + _tl130575131454_ + _e130580131457_ + _hd130579131460_ + _tl130578131462_ + _e130583131465_ + _hd130582131468_ + _tl130581131470_ + _e130586131473_ + _hd130585131476_ + _tl130584131478_ + _e130589131481_ + _hd130588131484_ + _tl130587131486_ + _e130592131489_ + _hd130591131492_ + _tl130590131494_)) + (___kont134584134585_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134322134323_)) - (___kont134322134323_)) - (___kont134322134323_)))) - (___kont134322134323_)))) - (___kont134322134323_)) - (___kont134322134323_)))) + (___kont134584134585_)) + (___kont134584134585_)) + (___kont134584134585_)))) + (___kont134584134585_)))) + (___kont134584134585_)) + (___kont134584134585_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134322134323_)) - (___kont134322134323_)) - (___kont134322134323_)))) - (___kont134322134323_)))) - (___kont134322134323_)))) - (___kont134322134323_))))))) + (___kont134584134585_)) + (___kont134584134585_)) + (___kont134584134585_)))) + (___kont134584134585_)))) + (___kont134584134585_)))) + (___kont134584134585_))))))) (define gxc#subst-object-refs-call% - (lambda (_stx129228_ - _self129229_ - _$klass129230_ - _methods129231_ - _slots129232_) - (letrec ((_force-e129234_ - (lambda (_target130291_) - (let ((__tmp135588 - (let ((__tmp135592 - (let ((__tmp135593 + (lambda (_stx129490_ + _self129491_ + _$klass129492_ + _methods129493_ + _slots129494_) + (letrec ((_force-e129496_ + (lambda (_target130553_) + (let ((__tmp135850 + (let ((__tmp135854 + (let ((__tmp135855 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp135593))) - (__tmp135589 - (let ((__tmp135590 - (let ((__tmp135591 + (cons '%#ref __tmp135855))) + (__tmp135851 + (let ((__tmp135852 + (let ((__tmp135853 (let () (declare (not safe)) - (cons _target130291_ '())))) + (cons _target130553_ '())))) (declare (not safe)) - (cons '%#ref __tmp135591)))) + (cons '%#ref __tmp135853)))) (declare (not safe)) - (cons __tmp135590 '())))) + (cons __tmp135852 '())))) (declare (not safe)) - (cons __tmp135592 __tmp135589)))) + (cons __tmp135854 __tmp135851)))) (declare (not safe)) - (cons '%#call __tmp135588))))) - (let* ((___stx134806134807_ _stx129228_) - (_g129242129464_ + (cons '%#call __tmp135850))))) + (let* ((___stx135068135069_ _stx129490_) + (_g129504129726_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134806134807_))))) - (let ((___kont134808134809_ - (lambda (_L130237_ _L130238_ _L130239_ _L130240_) - (let ((_$method130285_ - (let ((__tmp135594 + ___stx135068135069_))))) + (let ((___kont135070135071_ + (lambda (_L130499_ _L130500_ _L130501_ _L130502_) + (let ((_$method130547_ + (let ((__tmp135856 (let () (declare (not safe)) - (gx#stx-e _L130238_)))) + (gx#stx-e _L130500_)))) (declare (not safe)) - (hash-ref__0 _methods129231_ __tmp135594))) - (_args130286_ - (map (lambda (_g130273130275_) + (hash-ref__0 _methods129493_ __tmp135856))) + (_args130548_ + (map (lambda (_g130535130537_) (let () (declare (not safe)) (gxc#compile-e__3 - _g130273130275_ - _self129229_ - _$klass129230_ - _methods129231_ - _slots129232_))) - (let ((__tmp135595 - (lambda (_g130277130280_ - _g130278130282_) + _g130535130537_ + _self129491_ + _$klass129492_ + _methods129493_ + _slots129494_))) + (let ((__tmp135857 + (lambda (_g130539130542_ + _g130540130544_) (let () (declare (not safe)) - (cons _g130277130280_ - _g130278130282_))))) + (cons _g130539130542_ + _g130540130544_))))) (declare (not safe)) - (foldr1 __tmp135595 '() _L130237_))))) - (let ((__tmp135596 - (let ((__tmp135597 - (let ((__tmp135601 + (foldr1 __tmp135857 '() _L130499_))))) + (let ((__tmp135858 + (let ((__tmp135859 + (let ((__tmp135863 (let () (declare (not safe)) - (_force-e129234_ - _$method130285_))) - (__tmp135598 - (let ((__tmp135599 - (let ((__tmp135600 + (_force-e129496_ + _$method130547_))) + (__tmp135860 + (let ((__tmp135861 + (let ((__tmp135862 (let () (declare (not safe)) - (cons _self129229_ + (cons _self129491_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135600)))) + __tmp135862)))) (declare (not safe)) - (cons __tmp135599 - _args130286_)))) + (cons __tmp135861 + _args130548_)))) (declare (not safe)) - (cons __tmp135601 __tmp135598)))) + (cons __tmp135863 __tmp135860)))) (declare (not safe)) - (cons '%#call __tmp135597)))) + (cons '%#call __tmp135859)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135596 _stx129228_))))) - (___kont134812134813_ - (lambda (_L130069_ _L130070_ _L130071_ _L130072_ _L130073_) - (let ((_$method130125_ - (let ((__tmp135602 + (gxc#xform-wrap-source __tmp135858 _stx129490_))))) + (___kont135074135075_ + (lambda (_L130331_ _L130332_ _L130333_ _L130334_ _L130335_) + (let ((_$method130387_ + (let ((__tmp135864 (let () (declare (not safe)) - (gx#stx-e _L130070_)))) + (gx#stx-e _L130332_)))) (declare (not safe)) - (hash-ref__0 _methods129231_ __tmp135602))) - (_args130126_ - (map (lambda (_g130113130115_) + (hash-ref__0 _methods129493_ __tmp135864))) + (_args130388_ + (map (lambda (_g130375130377_) (let () (declare (not safe)) (gxc#compile-e__3 - _g130113130115_ - _self129229_ - _$klass129230_ - _methods129231_ - _slots129232_))) - (let ((__tmp135603 - (lambda (_g130117130120_ - _g130118130122_) + _g130375130377_ + _self129491_ + _$klass129492_ + _methods129493_ + _slots129494_))) + (let ((__tmp135865 + (lambda (_g130379130382_ + _g130380130384_) (let () (declare (not safe)) - (cons _g130117130120_ - _g130118130122_))))) + (cons _g130379130382_ + _g130380130384_))))) (declare (not safe)) - (foldr1 __tmp135603 '() _L130069_))))) - (let ((__tmp135604 - (let ((__tmp135605 - (let ((__tmp135611 - (let ((__tmp135612 + (foldr1 __tmp135865 '() _L130331_))))) + (let ((__tmp135866 + (let ((__tmp135867 + (let ((__tmp135873 + (let ((__tmp135874 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp135612))) - (__tmp135606 - (let ((__tmp135610 + (cons '%#ref __tmp135874))) + (__tmp135868 + (let ((__tmp135872 (let () (declare (not safe)) - (_force-e129234_ - _$method130125_))) - (__tmp135607 - (let ((__tmp135608 - (let ((__tmp135609 + (_force-e129496_ + _$method130387_))) + (__tmp135869 + (let ((__tmp135870 + (let ((__tmp135871 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self129229_ '())))) + (cons _self129491_ '())))) (declare (not safe)) - (cons '%#ref __tmp135609)))) + (cons '%#ref __tmp135871)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135608 - _args130126_)))) + (cons __tmp135870 + _args130388_)))) (declare (not safe)) - (cons __tmp135610 __tmp135607)))) + (cons __tmp135872 __tmp135869)))) (declare (not safe)) - (cons __tmp135611 __tmp135606)))) + (cons __tmp135873 __tmp135868)))) (declare (not safe)) - (cons '%#call __tmp135605)))) + (cons '%#call __tmp135867)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135604 _stx129228_))))) - (___kont134816134817_ - (lambda (_L129900_ _L129901_ _L129902_) - (let* ((_$field129934_ - (let ((__tmp135613 + (gxc#xform-wrap-source __tmp135866 _stx129490_))))) + (___kont135078135079_ + (lambda (_L130162_ _L130163_ _L130164_) + (let* ((_$field130196_ + (let ((__tmp135875 (let () (declare (not safe)) - (gx#stx-e _L129900_)))) + (gx#stx-e _L130162_)))) (declare (not safe)) - (hash-ref__0 _slots129232_ __tmp135613))) - (__tmp135614 - (let ((__tmp135615 - (let ((__tmp135622 - (let ((__tmp135623 + (hash-ref__0 _slots129494_ __tmp135875))) + (__tmp135876 + (let ((__tmp135877 + (let ((__tmp135884 + (let ((__tmp135885 (let () (declare (not safe)) - (cons _$klass129230_ + (cons _$klass129492_ '())))) (declare (not safe)) - (cons '%#ref __tmp135623))) - (__tmp135616 - (let ((__tmp135620 - (let ((__tmp135621 + (cons '%#ref __tmp135885))) + (__tmp135878 + (let ((__tmp135882 + (let ((__tmp135883 (let () (declare (not safe)) - (cons _$field129934_ + (cons _$field130196_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp135621))) - (__tmp135617 - (let ((__tmp135618 - (let ((__tmp135619 + (cons '%#ref __tmp135883))) + (__tmp135879 + (let ((__tmp135880 + (let ((__tmp135881 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _self129229_ '())))) + (cons _self129491_ '())))) (declare (not safe)) - (cons '%#ref __tmp135619)))) + (cons '%#ref __tmp135881)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135618 '())))) + (cons __tmp135880 '())))) (declare (not safe)) - (cons __tmp135620 __tmp135617)))) + (cons __tmp135882 __tmp135879)))) (declare (not safe)) - (cons __tmp135622 __tmp135616)))) + (cons __tmp135884 __tmp135878)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp135615)))) + (cons '%#struct-unchecked-ref __tmp135877)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135614 _stx129228_)))) - (___kont134818134819_ - (lambda (_L129774_ _L129775_ _L129776_ _L129777_) - (let ((_$field129812_ - (let ((__tmp135624 + (gxc#xform-wrap-source __tmp135876 _stx129490_)))) + (___kont135080135081_ + (lambda (_L130036_ _L130037_ _L130038_ _L130039_) + (let ((_$field130074_ + (let ((__tmp135886 (let () (declare (not safe)) - (gx#stx-e _L129775_)))) + (gx#stx-e _L130037_)))) (declare (not safe)) - (hash-ref__0 _slots129232_ __tmp135624))) - (_expr129813_ + (hash-ref__0 _slots129494_ __tmp135886))) + (_expr130075_ (let () (declare (not safe)) (gxc#compile-e__3 - _L129774_ - _self129229_ - _$klass129230_ - _methods129231_ - _slots129232_)))) - (let ((__tmp135625 - (let ((__tmp135626 - (let ((__tmp135634 - (let ((__tmp135635 + _L130036_ + _self129491_ + _$klass129492_ + _methods129493_ + _slots129494_)))) + (let ((__tmp135887 + (let ((__tmp135888 + (let ((__tmp135896 + (let ((__tmp135897 (let () (declare (not safe)) - (cons _$klass129230_ + (cons _$klass129492_ '())))) (declare (not safe)) - (cons '%#ref __tmp135635))) - (__tmp135627 - (let ((__tmp135632 - (let ((__tmp135633 + (cons '%#ref __tmp135897))) + (__tmp135889 + (let ((__tmp135894 + (let ((__tmp135895 (let () (declare (not safe)) - (cons _$field129812_ + (cons _$field130074_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135633))) - (__tmp135628 - (let ((__tmp135630 - (let ((__tmp135631 + __tmp135895))) + (__tmp135890 + (let ((__tmp135892 + (let ((__tmp135893 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self129229_ '())))) + (cons _self129491_ '())))) (declare (not safe)) - (cons '%#ref __tmp135631))) - (__tmp135629 - (let () (declare (not safe)) (cons _expr129813_ '())))) + (cons '%#ref __tmp135893))) + (__tmp135891 + (let () (declare (not safe)) (cons _expr130075_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135630 - __tmp135629)))) + (cons __tmp135892 + __tmp135891)))) (declare (not safe)) - (cons __tmp135632 __tmp135628)))) + (cons __tmp135894 __tmp135890)))) (declare (not safe)) - (cons __tmp135634 __tmp135627)))) + (cons __tmp135896 __tmp135889)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp135626)))) + (cons '%#struct-unchecked-set! __tmp135888)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135625 _stx129228_))))) - (___kont134820134821_ - (lambda (_L129646_ _L129647_) - (let* ((_accessor129669_ - (let ((__tmp135636 + (gxc#xform-wrap-source __tmp135887 _stx129490_))))) + (___kont135082135083_ + (lambda (_L129908_ _L129909_) + (let* ((_accessor129931_ + (let ((__tmp135898 (let () (declare (not safe)) - (gxc#identifier-symbol _L129647_)))) + (gxc#identifier-symbol _L129909_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135636))) - (_klass129671_ - (let ((__tmp135637 + (gxc#optimizer-resolve-type __tmp135898))) + (_klass129933_ + (let ((__tmp135899 (##structure-ref - _accessor129669_ + _accessor129931_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx129228_ - __tmp135637))) - (_slot129673_ + _stx129490_ + __tmp135899))) + (_slot129935_ (##structure-ref - _accessor129669_ + _accessor129931_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp135648 + (if (and (let ((__tmp135910 (##structure-ref - _accessor129669_ + _accessor129931_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp135648)) + (not __tmp135910)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass129671_ - _slot129673_)) + _klass129933_ + _slot129935_)) (##structure-ref - _klass129671_ + _klass129933_ '8 gxc#!class::t '#f))) - _stx129228_ - (let* ((_$field129679_ + _stx129490_ + (let* ((_$field129941_ (let () (declare (not safe)) - (hash-ref__0 _slots129232_ _slot129673_))) - (__tmp135638 - (let ((__tmp135639 - (let ((__tmp135646 - (let ((__tmp135647 + (hash-ref__0 _slots129494_ _slot129935_))) + (__tmp135900 + (let ((__tmp135901 + (let ((__tmp135908 + (let ((__tmp135909 (let () (declare (not safe)) - (cons _$klass129230_ + (cons _$klass129492_ '())))) (declare (not safe)) - (cons '%#ref __tmp135647))) - (__tmp135640 - (let ((__tmp135644 - (let ((__tmp135645 + (cons '%#ref __tmp135909))) + (__tmp135902 + (let ((__tmp135906 + (let ((__tmp135907 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field129679_ '())))) + (cons _$field129941_ '())))) (declare (not safe)) - (cons '%#ref __tmp135645))) - (__tmp135641 - (let ((__tmp135642 - (let ((__tmp135643 + (cons '%#ref __tmp135907))) + (__tmp135903 + (let ((__tmp135904 + (let ((__tmp135905 (let () (declare (not safe)) - (cons _self129229_ '())))) + (cons _self129491_ '())))) (declare (not safe)) - (cons '%#ref __tmp135643)))) + (cons '%#ref __tmp135905)))) (declare (not safe)) - (cons __tmp135642 '())))) + (cons __tmp135904 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135644 - __tmp135641)))) + (cons __tmp135906 + __tmp135903)))) (declare (not safe)) - (cons __tmp135646 __tmp135640)))) + (cons __tmp135908 __tmp135902)))) (declare (not safe)) (cons '%#struct-unchecked-ref - __tmp135639)))) + __tmp135901)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135638 - _stx129228_)))))) - (___kont134822134823_ - (lambda (_L129540_ _L129541_ _L129542_) - (let* ((_mutator129571_ - (let ((__tmp135649 + __tmp135900 + _stx129490_)))))) + (___kont135084135085_ + (lambda (_L129802_ _L129803_ _L129804_) + (let* ((_mutator129833_ + (let ((__tmp135911 (let () (declare (not safe)) - (gxc#identifier-symbol _L129542_)))) + (gxc#identifier-symbol _L129804_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135649))) - (_klass129573_ - (let ((__tmp135650 + (gxc#optimizer-resolve-type __tmp135911))) + (_klass129835_ + (let ((__tmp135912 (##structure-ref - _mutator129571_ + _mutator129833_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx129228_ - __tmp135650))) - (_slot129575_ + _stx129490_ + __tmp135912))) + (_slot129837_ (##structure-ref - _mutator129571_ + _mutator129833_ '2 gxc#!mutator::t '#f)) - (_expr129577_ + (_expr129839_ (let () (declare (not safe)) (gxc#compile-e__3 - _L129540_ - _self129229_ - _$klass129230_ - _methods129231_ - _slots129232_)))) - (if (and (let ((__tmp135672 + _L129802_ + _self129491_ + _$klass129492_ + _methods129493_ + _slots129494_)))) + (if (and (let ((__tmp135934 (##structure-ref - _mutator129571_ + _mutator129833_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp135672)) + (not __tmp135934)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass129573_ - _slot129575_)) + _klass129835_ + _slot129837_)) (##structure-ref - _klass129573_ + _klass129835_ '8 gxc#!class::t '#f))) - (let ((__tmp135662 - (let ((__tmp135663 - (let ((__tmp135669 - (let ((__tmp135671 + (let ((__tmp135924 + (let ((__tmp135925 + (let ((__tmp135931 + (let ((__tmp135933 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp135670 + (__tmp135932 (let () (declare (not safe)) - (cons _L129542_ + (cons _L129804_ '())))) (declare (not safe)) - (cons __tmp135671 - __tmp135670))) - (__tmp135664 - (let ((__tmp135666 - (let ((__tmp135668 + (cons __tmp135933 + __tmp135932))) + (__tmp135926 + (let ((__tmp135928 + (let ((__tmp135930 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp135667 - (let () (declare (not safe)) (cons _L129541_ '())))) + (__tmp135929 + (let () (declare (not safe)) (cons _L129803_ '())))) (declare (not safe)) - (cons __tmp135668 __tmp135667))) - (__tmp135665 - (let () (declare (not safe)) (cons _expr129577_ '())))) + (cons __tmp135930 __tmp135929))) + (__tmp135927 + (let () (declare (not safe)) (cons _expr129839_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135666 - __tmp135665)))) + (cons __tmp135928 + __tmp135927)))) (declare (not safe)) - (cons __tmp135669 __tmp135664)))) + (cons __tmp135931 __tmp135926)))) (declare (not safe)) - (cons '%#call __tmp135663)))) + (cons '%#call __tmp135925)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135662 _stx129228_)) - (let* ((_$field129583_ + (gxc#xform-wrap-source __tmp135924 _stx129490_)) + (let* ((_$field129845_ (let () (declare (not safe)) - (hash-ref__0 _slots129232_ _slot129575_))) - (__tmp135651 - (let ((__tmp135652 - (let ((__tmp135660 - (let ((__tmp135661 + (hash-ref__0 _slots129494_ _slot129837_))) + (__tmp135913 + (let ((__tmp135914 + (let ((__tmp135922 + (let ((__tmp135923 (let () (declare (not safe)) - (cons _$klass129230_ + (cons _$klass129492_ '())))) (declare (not safe)) - (cons '%#ref __tmp135661))) - (__tmp135653 - (let ((__tmp135658 - (let ((__tmp135659 + (cons '%#ref __tmp135923))) + (__tmp135915 + (let ((__tmp135920 + (let ((__tmp135921 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field129583_ '())))) + (cons _$field129845_ '())))) (declare (not safe)) - (cons '%#ref __tmp135659))) - (__tmp135654 - (let ((__tmp135656 - (let ((__tmp135657 + (cons '%#ref __tmp135921))) + (__tmp135916 + (let ((__tmp135918 + (let ((__tmp135919 (let () (declare (not safe)) - (cons _self129229_ '())))) + (cons _self129491_ '())))) (declare (not safe)) - (cons '%#ref __tmp135657))) - (__tmp135655 - (let () (declare (not safe)) (cons _expr129577_ '())))) + (cons '%#ref __tmp135919))) + (__tmp135917 + (let () (declare (not safe)) (cons _expr129839_ '())))) (declare (not safe)) - (cons __tmp135656 __tmp135655)))) + (cons __tmp135918 __tmp135917)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135658 - __tmp135654)))) + (cons __tmp135920 + __tmp135916)))) (declare (not safe)) - (cons __tmp135660 __tmp135653)))) + (cons __tmp135922 __tmp135915)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp135652)))) + __tmp135914)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135651 - _stx129228_)))))) - (___kont134824134825_ + __tmp135913 + _stx129490_)))))) + (___kont135086135087_ (lambda () (let () (declare (not safe)) (gxc#xform-operands - _stx129228_ - _self129229_ - _$klass129230_ - _methods129231_ - _slots129232_))))) - (let* ((___match135305135306_ - (lambda (_e129438129476_ - _hd129437129479_ - _tl129436129481_ - _e129441129484_ - _hd129440129487_ - _tl129439129489_ - _e129444129492_ - _hd129443129495_ - _tl129442129497_ - _e129447129500_ - _hd129446129503_ - _tl129445129505_ - _e129450129508_ - _hd129449129511_ - _tl129448129513_ - _e129453129516_ - _hd129452129519_ - _tl129451129521_ - _e129456129524_ - _hd129455129527_ - _tl129454129529_ - _e129459129532_ - _hd129458129535_ - _tl129457129537_) - (let ((_L129540_ _hd129458129535_) - (_L129541_ _hd129455129527_) - (_L129542_ _hd129446129503_)) + _stx129490_ + _self129491_ + _$klass129492_ + _methods129493_ + _slots129494_))))) + (let* ((___match135567135568_ + (lambda (_e129700129738_ + _hd129699129741_ + _tl129698129743_ + _e129703129746_ + _hd129702129749_ + _tl129701129751_ + _e129706129754_ + _hd129705129757_ + _tl129704129759_ + _e129709129762_ + _hd129708129765_ + _tl129707129767_ + _e129712129770_ + _hd129711129773_ + _tl129710129775_ + _e129715129778_ + _hd129714129781_ + _tl129713129783_ + _e129718129786_ + _hd129717129789_ + _tl129716129791_ + _e129721129794_ + _hd129720129797_ + _tl129719129799_) + (let ((_L129802_ _hd129720129797_) + (_L129803_ _hd129717129789_) + (_L129804_ _hd129708129765_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L129541_ - _self129229_)) - (let ((__tmp135673 - (let ((__tmp135674 + _L129803_ + _self129491_)) + (let ((__tmp135935 + (let ((__tmp135936 (let () (declare (not safe)) (gxc#identifier-symbol - _L129542_)))) + _L129804_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135674)))) + __tmp135936)))) (declare (not safe)) (##structure-instance-of? - __tmp135673 + __tmp135935 'gxc#!mutator::t))) - (___kont134822134823_ - _L129540_ - _L129541_ - _L129542_) - (___kont134824134825_))))) - (___match135303135304_ - (lambda (_e129438129476_ - _hd129437129479_ - _tl129436129481_ - _e129441129484_ - _hd129440129487_ - _tl129439129489_ - _e129444129492_ - _hd129443129495_ - _tl129442129497_ - _e129447129500_ - _hd129446129503_ - _tl129445129505_ - _e129450129508_ - _hd129449129511_ - _tl129448129513_ - _e129453129516_ - _hd129452129519_ - _tl129451129521_ - _e129456129524_ - _hd129455129527_ - _tl129454129529_ - _e129459129532_ - _hd129458129535_ - _tl129457129537_) + (___kont135084135085_ + _L129802_ + _L129803_ + _L129804_) + (___kont135086135087_))))) + (___match135565135566_ + (lambda (_e129700129738_ + _hd129699129741_ + _tl129698129743_ + _e129703129746_ + _hd129702129749_ + _tl129701129751_ + _e129706129754_ + _hd129705129757_ + _tl129704129759_ + _e129709129762_ + _hd129708129765_ + _tl129707129767_ + _e129712129770_ + _hd129711129773_ + _tl129710129775_ + _e129715129778_ + _hd129714129781_ + _tl129713129783_ + _e129718129786_ + _hd129717129789_ + _tl129716129791_ + _e129721129794_ + _hd129720129797_ + _tl129719129799_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129457129537_)) - (___match135305135306_ - _e129438129476_ - _hd129437129479_ - _tl129436129481_ - _e129441129484_ - _hd129440129487_ - _tl129439129489_ - _e129444129492_ - _hd129443129495_ - _tl129442129497_ - _e129447129500_ - _hd129446129503_ - _tl129445129505_ - _e129450129508_ - _hd129449129511_ - _tl129448129513_ - _e129453129516_ - _hd129452129519_ - _tl129451129521_ - _e129456129524_ - _hd129455129527_ - _tl129454129529_ - _e129459129532_ - _hd129458129535_ - _tl129457129537_) - (___kont134824134825_)))) - (___match135297135298_ - (lambda (_e129438129476_ - _hd129437129479_ - _tl129436129481_ - _e129441129484_ - _hd129440129487_ - _tl129439129489_ - _e129444129492_ - _hd129443129495_ - _tl129442129497_ - _e129447129500_ - _hd129446129503_ - _tl129445129505_ - _e129450129508_ - _hd129449129511_ - _tl129448129513_ - _e129453129516_ - _hd129452129519_ - _tl129451129521_ - _e129456129524_ - _hd129455129527_ - _tl129454129529_) + (gx#stx-null? _tl129719129799_)) + (___match135567135568_ + _e129700129738_ + _hd129699129741_ + _tl129698129743_ + _e129703129746_ + _hd129702129749_ + _tl129701129751_ + _e129706129754_ + _hd129705129757_ + _tl129704129759_ + _e129709129762_ + _hd129708129765_ + _tl129707129767_ + _e129712129770_ + _hd129711129773_ + _tl129710129775_ + _e129715129778_ + _hd129714129781_ + _tl129713129783_ + _e129718129786_ + _hd129717129789_ + _tl129716129791_ + _e129721129794_ + _hd129720129797_ + _tl129719129799_) + (___kont135086135087_)))) + (___match135559135560_ + (lambda (_e129700129738_ + _hd129699129741_ + _tl129698129743_ + _e129703129746_ + _hd129702129749_ + _tl129701129751_ + _e129706129754_ + _hd129705129757_ + _tl129704129759_ + _e129709129762_ + _hd129708129765_ + _tl129707129767_ + _e129712129770_ + _hd129711129773_ + _tl129710129775_ + _e129715129778_ + _hd129714129781_ + _tl129713129783_ + _e129718129786_ + _hd129717129789_ + _tl129716129791_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129448129513_)) - (let ((_e129459129532_ + (gx#stx-pair? _tl129710129775_)) + (let ((_e129721129794_ (let () (declare (not safe)) - (gx#stx-e _tl129448129513_)))) - (let ((_tl129457129537_ + (gx#stx-e _tl129710129775_)))) + (let ((_tl129719129799_ (let () (declare (not safe)) - (##cdr _e129459129532_))) - (_hd129458129535_ + (##cdr _e129721129794_))) + (_hd129720129797_ (let () (declare (not safe)) - (##car _e129459129532_)))) + (##car _e129721129794_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129457129537_)) - (___match135305135306_ - _e129438129476_ - _hd129437129479_ - _tl129436129481_ - _e129441129484_ - _hd129440129487_ - _tl129439129489_ - _e129444129492_ - _hd129443129495_ - _tl129442129497_ - _e129447129500_ - _hd129446129503_ - _tl129445129505_ - _e129450129508_ - _hd129449129511_ - _tl129448129513_ - _e129453129516_ - _hd129452129519_ - _tl129451129521_ - _e129456129524_ - _hd129455129527_ - _tl129454129529_ - _e129459129532_ - _hd129458129535_ - _tl129457129537_) - (___kont134824134825_)))) - (___kont134824134825_)))) - (___match135243135244_ - (lambda (_e129414129590_ - _hd129413129593_ - _tl129412129595_ - _e129417129598_ - _hd129416129601_ - _tl129415129603_ - _e129420129606_ - _hd129419129609_ - _tl129418129611_ - _e129423129614_ - _hd129422129617_ - _tl129421129619_ - _e129426129622_ - _hd129425129625_ - _tl129424129627_ - _e129429129630_ - _hd129428129633_ - _tl129427129635_ - _e129432129638_ - _hd129431129641_ - _tl129430129643_) - (let ((_L129646_ _hd129431129641_) - (_L129647_ _hd129422129617_)) + (gx#stx-null? _tl129719129799_)) + (___match135567135568_ + _e129700129738_ + _hd129699129741_ + _tl129698129743_ + _e129703129746_ + _hd129702129749_ + _tl129701129751_ + _e129706129754_ + _hd129705129757_ + _tl129704129759_ + _e129709129762_ + _hd129708129765_ + _tl129707129767_ + _e129712129770_ + _hd129711129773_ + _tl129710129775_ + _e129715129778_ + _hd129714129781_ + _tl129713129783_ + _e129718129786_ + _hd129717129789_ + _tl129716129791_ + _e129721129794_ + _hd129720129797_ + _tl129719129799_) + (___kont135086135087_)))) + (___kont135086135087_)))) + (___match135505135506_ + (lambda (_e129676129852_ + _hd129675129855_ + _tl129674129857_ + _e129679129860_ + _hd129678129863_ + _tl129677129865_ + _e129682129868_ + _hd129681129871_ + _tl129680129873_ + _e129685129876_ + _hd129684129879_ + _tl129683129881_ + _e129688129884_ + _hd129687129887_ + _tl129686129889_ + _e129691129892_ + _hd129690129895_ + _tl129689129897_ + _e129694129900_ + _hd129693129903_ + _tl129692129905_) + (let ((_L129908_ _hd129693129903_) + (_L129909_ _hd129684129879_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L129646_ - _self129229_)) - (let ((__tmp135675 - (let ((__tmp135676 + _L129908_ + _self129491_)) + (let ((__tmp135937 + (let ((__tmp135938 (let () (declare (not safe)) (gxc#identifier-symbol - _L129647_)))) + _L129909_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135676)))) + __tmp135938)))) (declare (not safe)) (##structure-instance-of? - __tmp135675 + __tmp135937 'gxc#!accessor::t))) - (___kont134820134821_ _L129646_ _L129647_) - (___kont134824134825_))))) - (___match135241135242_ - (lambda (_e129414129590_ - _hd129413129593_ - _tl129412129595_ - _e129417129598_ - _hd129416129601_ - _tl129415129603_ - _e129420129606_ - _hd129419129609_ - _tl129418129611_ - _e129423129614_ - _hd129422129617_ - _tl129421129619_ - _e129426129622_ - _hd129425129625_ - _tl129424129627_ - _e129429129630_ - _hd129428129633_ - _tl129427129635_ - _e129432129638_ - _hd129431129641_ - _tl129430129643_) + (___kont135082135083_ _L129908_ _L129909_) + (___kont135086135087_))))) + (___match135503135504_ + (lambda (_e129676129852_ + _hd129675129855_ + _tl129674129857_ + _e129679129860_ + _hd129678129863_ + _tl129677129865_ + _e129682129868_ + _hd129681129871_ + _tl129680129873_ + _e129685129876_ + _hd129684129879_ + _tl129683129881_ + _e129688129884_ + _hd129687129887_ + _tl129686129889_ + _e129691129892_ + _hd129690129895_ + _tl129689129897_ + _e129694129900_ + _hd129693129903_ + _tl129692129905_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129424129627_)) - (___match135243135244_ - _e129414129590_ - _hd129413129593_ - _tl129412129595_ - _e129417129598_ - _hd129416129601_ - _tl129415129603_ - _e129420129606_ - _hd129419129609_ - _tl129418129611_ - _e129423129614_ - _hd129422129617_ - _tl129421129619_ - _e129426129622_ - _hd129425129625_ - _tl129424129627_ - _e129429129630_ - _hd129428129633_ - _tl129427129635_ - _e129432129638_ - _hd129431129641_ - _tl129430129643_) - (___match135297135298_ - _e129414129590_ - _hd129413129593_ - _tl129412129595_ - _e129417129598_ - _hd129416129601_ - _tl129415129603_ - _e129420129606_ - _hd129419129609_ - _tl129418129611_ - _e129423129614_ - _hd129422129617_ - _tl129421129619_ - _e129426129622_ - _hd129425129625_ - _tl129424129627_ - _e129429129630_ - _hd129428129633_ - _tl129427129635_ - _e129432129638_ - _hd129431129641_ - _tl129430129643_)))) - (___match135187135188_ - (lambda (_e129379129686_ - _hd129378129689_ - _tl129377129691_ - _e129382129694_ - _hd129381129697_ - _tl129380129699_ - _e129385129702_ - _hd129384129705_ - _tl129383129707_ - _e129388129710_ - _hd129387129713_ - _tl129386129715_ - _e129391129718_ - _hd129390129721_ - _tl129389129723_ - _e129394129726_ - _hd129393129729_ - _tl129392129731_ - _e129397129734_ - _hd129396129737_ - _tl129395129739_ - _e129400129742_ - _hd129399129745_ - _tl129398129747_ - _e129403129750_ - _hd129402129753_ - _tl129401129755_ - _e129406129758_ - _hd129405129761_ - _tl129404129763_ - _e129409129766_ - _hd129408129769_ - _tl129407129771_) - (let ((_L129774_ _hd129408129769_) - (_L129775_ _hd129405129761_) - (_L129776_ _hd129396129737_) - (_L129777_ _hd129387129713_)) + (gx#stx-null? _tl129686129889_)) + (___match135505135506_ + _e129676129852_ + _hd129675129855_ + _tl129674129857_ + _e129679129860_ + _hd129678129863_ + _tl129677129865_ + _e129682129868_ + _hd129681129871_ + _tl129680129873_ + _e129685129876_ + _hd129684129879_ + _tl129683129881_ + _e129688129884_ + _hd129687129887_ + _tl129686129889_ + _e129691129892_ + _hd129690129895_ + _tl129689129897_ + _e129694129900_ + _hd129693129903_ + _tl129692129905_) + (___match135559135560_ + _e129676129852_ + _hd129675129855_ + _tl129674129857_ + _e129679129860_ + _hd129678129863_ + _tl129677129865_ + _e129682129868_ + _hd129681129871_ + _tl129680129873_ + _e129685129876_ + _hd129684129879_ + _tl129683129881_ + _e129688129884_ + _hd129687129887_ + _tl129686129889_ + _e129691129892_ + _hd129690129895_ + _tl129689129897_ + _e129694129900_ + _hd129693129903_ + _tl129692129905_)))) + (___match135449135450_ + (lambda (_e129641129948_ + _hd129640129951_ + _tl129639129953_ + _e129644129956_ + _hd129643129959_ + _tl129642129961_ + _e129647129964_ + _hd129646129967_ + _tl129645129969_ + _e129650129972_ + _hd129649129975_ + _tl129648129977_ + _e129653129980_ + _hd129652129983_ + _tl129651129985_ + _e129656129988_ + _hd129655129991_ + _tl129654129993_ + _e129659129996_ + _hd129658129999_ + _tl129657130001_ + _e129662130004_ + _hd129661130007_ + _tl129660130009_ + _e129665130012_ + _hd129664130015_ + _tl129663130017_ + _e129668130020_ + _hd129667130023_ + _tl129666130025_ + _e129671130028_ + _hd129670130031_ + _tl129669130033_) + (let ((_L130036_ _hd129670130031_) + (_L130037_ _hd129667130023_) + (_L130038_ _hd129658129999_) + (_L130039_ _hd129649129975_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129777_ + _L130039_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129777_ + _L130039_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L129776_ - _self129229_))) - (___kont134818134819_ - _L129774_ - _L129775_ - _L129776_ - _L129777_) - (___kont134824134825_))))) - (___match135179135180_ - (lambda (_e129379129686_ - _hd129378129689_ - _tl129377129691_ - _e129382129694_ - _hd129381129697_ - _tl129380129699_ - _e129385129702_ - _hd129384129705_ - _tl129383129707_ - _e129388129710_ - _hd129387129713_ - _tl129386129715_ - _e129391129718_ - _hd129390129721_ - _tl129389129723_ - _e129394129726_ - _hd129393129729_ - _tl129392129731_ - _e129397129734_ - _hd129396129737_ - _tl129395129739_ - _e129400129742_ - _hd129399129745_ - _tl129398129747_ - _e129403129750_ - _hd129402129753_ - _tl129401129755_ - _e129406129758_ - _hd129405129761_ - _tl129404129763_) + _L130038_ + _self129491_))) + (___kont135080135081_ + _L130036_ + _L130037_ + _L130038_ + _L130039_) + (___kont135086135087_))))) + (___match135441135442_ + (lambda (_e129641129948_ + _hd129640129951_ + _tl129639129953_ + _e129644129956_ + _hd129643129959_ + _tl129642129961_ + _e129647129964_ + _hd129646129967_ + _tl129645129969_ + _e129650129972_ + _hd129649129975_ + _tl129648129977_ + _e129653129980_ + _hd129652129983_ + _tl129651129985_ + _e129656129988_ + _hd129655129991_ + _tl129654129993_ + _e129659129996_ + _hd129658129999_ + _tl129657130001_ + _e129662130004_ + _hd129661130007_ + _tl129660130009_ + _e129665130012_ + _hd129664130015_ + _tl129663130017_ + _e129668130020_ + _hd129667130023_ + _tl129666130025_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129398129747_)) - (let ((_e129409129766_ + (gx#stx-pair? _tl129660130009_)) + (let ((_e129671130028_ (let () (declare (not safe)) - (gx#stx-e _tl129398129747_)))) - (let ((_tl129407129771_ + (gx#stx-e _tl129660130009_)))) + (let ((_tl129669130033_ (let () (declare (not safe)) - (##cdr _e129409129766_))) - (_hd129408129769_ + (##cdr _e129671130028_))) + (_hd129670130031_ (let () (declare (not safe)) - (##car _e129409129766_)))) + (##car _e129671130028_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129407129771_)) - (___match135187135188_ - _e129379129686_ - _hd129378129689_ - _tl129377129691_ - _e129382129694_ - _hd129381129697_ - _tl129380129699_ - _e129385129702_ - _hd129384129705_ - _tl129383129707_ - _e129388129710_ - _hd129387129713_ - _tl129386129715_ - _e129391129718_ - _hd129390129721_ - _tl129389129723_ - _e129394129726_ - _hd129393129729_ - _tl129392129731_ - _e129397129734_ - _hd129396129737_ - _tl129395129739_ - _e129400129742_ - _hd129399129745_ - _tl129398129747_ - _e129403129750_ - _hd129402129753_ - _tl129401129755_ - _e129406129758_ - _hd129405129761_ - _tl129404129763_ - _e129409129766_ - _hd129408129769_ - _tl129407129771_) - (___kont134824134825_)))) - (___match135303135304_ - _e129379129686_ - _hd129378129689_ - _tl129377129691_ - _e129382129694_ - _hd129381129697_ - _tl129380129699_ - _e129385129702_ - _hd129384129705_ - _tl129383129707_ - _e129388129710_ - _hd129387129713_ - _tl129386129715_ - _e129391129718_ - _hd129390129721_ - _tl129389129723_ - _e129394129726_ - _hd129393129729_ - _tl129392129731_ - _e129397129734_ - _hd129396129737_ - _tl129395129739_ - _e129400129742_ - _hd129399129745_ - _tl129398129747_)))) - (___match135101135102_ - (lambda (_e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_ - _e129369129884_ - _hd129368129887_ - _tl129367129889_ - _e129372129892_ - _hd129371129895_ - _tl129370129897_) - (let ((_L129900_ _hd129371129895_) - (_L129901_ _hd129362129871_) - (_L129902_ _hd129353129847_)) + (gx#stx-null? _tl129669130033_)) + (___match135449135450_ + _e129641129948_ + _hd129640129951_ + _tl129639129953_ + _e129644129956_ + _hd129643129959_ + _tl129642129961_ + _e129647129964_ + _hd129646129967_ + _tl129645129969_ + _e129650129972_ + _hd129649129975_ + _tl129648129977_ + _e129653129980_ + _hd129652129983_ + _tl129651129985_ + _e129656129988_ + _hd129655129991_ + _tl129654129993_ + _e129659129996_ + _hd129658129999_ + _tl129657130001_ + _e129662130004_ + _hd129661130007_ + _tl129660130009_ + _e129665130012_ + _hd129664130015_ + _tl129663130017_ + _e129668130020_ + _hd129667130023_ + _tl129666130025_ + _e129671130028_ + _hd129670130031_ + _tl129669130033_) + (___kont135086135087_)))) + (___match135565135566_ + _e129641129948_ + _hd129640129951_ + _tl129639129953_ + _e129644129956_ + _hd129643129959_ + _tl129642129961_ + _e129647129964_ + _hd129646129967_ + _tl129645129969_ + _e129650129972_ + _hd129649129975_ + _tl129648129977_ + _e129653129980_ + _hd129652129983_ + _tl129651129985_ + _e129656129988_ + _hd129655129991_ + _tl129654129993_ + _e129659129996_ + _hd129658129999_ + _tl129657130001_ + _e129662130004_ + _hd129661130007_ + _tl129660130009_)))) + (___match135363135364_ + (lambda (_e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_ + _e129631130146_ + _hd129630130149_ + _tl129629130151_ + _e129634130154_ + _hd129633130157_ + _tl129632130159_) + (let ((_L130162_ _hd129633130157_) + (_L130163_ _hd129624130133_) + (_L130164_ _hd129615130109_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129902_ + _L130164_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129902_ + _L130164_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L129901_ - _self129229_))) - (___kont134816134817_ - _L129900_ - _L129901_ - _L129902_) - (___match135305135306_ - _e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_))))) - (___match135099135100_ - (lambda (_e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_ - _e129369129884_ - _hd129368129887_ - _tl129367129889_ - _e129372129892_ - _hd129371129895_ - _tl129370129897_) + _L130163_ + _self129491_))) + (___kont135078135079_ + _L130162_ + _L130163_ + _L130164_) + (___match135567135568_ + _e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_))))) + (___match135361135362_ + (lambda (_e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_ + _e129631130146_ + _hd129630130149_ + _tl129629130151_ + _e129634130154_ + _hd129633130157_ + _tl129632130159_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129364129881_)) - (___match135101135102_ - _e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_ - _e129369129884_ - _hd129368129887_ - _tl129367129889_ - _e129372129892_ - _hd129371129895_ - _tl129370129897_) - (___match135179135180_ - _e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_ - _e129369129884_ - _hd129368129887_ - _tl129367129889_ - _e129372129892_ - _hd129371129895_ - _tl129370129897_)))) - (___match135089135090_ - (lambda (_e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_ - _e129369129884_ - _hd129368129887_ - _tl129367129889_) + (gx#stx-null? _tl129626130143_)) + (___match135363135364_ + _e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_ + _e129631130146_ + _hd129630130149_ + _tl129629130151_ + _e129634130154_ + _hd129633130157_ + _tl129632130159_) + (___match135441135442_ + _e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_ + _e129631130146_ + _hd129630130149_ + _tl129629130151_ + _e129634130154_ + _hd129633130157_ + _tl129632130159_)))) + (___match135351135352_ + (lambda (_e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_ + _e129631130146_ + _hd129630130149_ + _tl129629130151_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd129368129887_)) + (gx#stx-eq? '%#quote _hd129630130149_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129367129889_)) - (let ((_e129372129892_ + (gx#stx-pair? _tl129629130151_)) + (let ((_e129634130154_ (let () (declare (not safe)) - (gx#stx-e _tl129367129889_)))) - (let ((_tl129370129897_ + (gx#stx-e _tl129629130151_)))) + (let ((_tl129632130159_ (let () (declare (not safe)) - (##cdr _e129372129892_))) - (_hd129371129895_ + (##cdr _e129634130154_))) + (_hd129633130157_ (let () (declare (not safe)) - (##car _e129372129892_)))) + (##car _e129634130154_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129370129897_)) + (gx#stx-null? _tl129632130159_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl129364129881_)) - (___match135101135102_ - _e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_ - _e129369129884_ - _hd129368129887_ - _tl129367129889_ - _e129372129892_ - _hd129371129895_ - _tl129370129897_) - (___match135179135180_ - _e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_ - _e129369129884_ - _hd129368129887_ - _tl129367129889_ - _e129372129892_ - _hd129371129895_ - _tl129370129897_)) - (___match135303135304_ - _e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_)))) - (___match135303135304_ - _e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_)) - (___match135303135304_ - _e129345129820_ - _hd129344129823_ - _tl129343129825_ - _e129348129828_ - _hd129347129831_ - _tl129346129833_ - _e129351129836_ - _hd129350129839_ - _tl129349129841_ - _e129354129844_ - _hd129353129847_ - _tl129352129849_ - _e129357129852_ - _hd129356129855_ - _tl129355129857_ - _e129360129860_ - _hd129359129863_ - _tl129358129865_ - _e129363129868_ - _hd129362129871_ - _tl129361129873_ - _e129366129876_ - _hd129365129879_ - _tl129364129881_)))) - (___match135021135022_ - (lambda (_e129294129941_ - _hd129293129944_ - _tl129292129946_ - _e129297129949_ - _hd129296129952_ - _tl129295129954_ - _e129300129957_ - _hd129299129960_ - _tl129298129962_ - _e129303129965_ - _hd129302129968_ - _tl129301129970_ - _e129306129973_ - _hd129305129976_ - _tl129304129978_ - _e129309129981_ - _hd129308129984_ - _tl129307129986_ - _e129312129989_ - _hd129311129992_ - _tl129310129994_ - _e129315129997_ - _hd129314130000_ - _tl129313130002_ - _e129318130005_ - _hd129317130008_ - _tl129316130010_ - _e129321130013_ - _hd129320130016_ - _tl129319130018_ - _e129324130021_ - _hd129323130024_ - _tl129322130026_ - _e129327130029_ - _hd129326130032_ - _tl129325130034_ - _e129330130037_ - _hd129329130040_ - _tl129328130042_ - ___splice134814134815_ - _target129331130045_ - _tl129333130047_) - (letrec ((_loop129334130050_ - (lambda (_hd129332130053_ _args129338130055_) + (gx#stx-null? _tl129626130143_)) + (___match135363135364_ + _e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_ + _e129631130146_ + _hd129630130149_ + _tl129629130151_ + _e129634130154_ + _hd129633130157_ + _tl129632130159_) + (___match135441135442_ + _e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_ + _e129631130146_ + _hd129630130149_ + _tl129629130151_ + _e129634130154_ + _hd129633130157_ + _tl129632130159_)) + (___match135565135566_ + _e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_)))) + (___match135565135566_ + _e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_)) + (___match135565135566_ + _e129607130082_ + _hd129606130085_ + _tl129605130087_ + _e129610130090_ + _hd129609130093_ + _tl129608130095_ + _e129613130098_ + _hd129612130101_ + _tl129611130103_ + _e129616130106_ + _hd129615130109_ + _tl129614130111_ + _e129619130114_ + _hd129618130117_ + _tl129617130119_ + _e129622130122_ + _hd129621130125_ + _tl129620130127_ + _e129625130130_ + _hd129624130133_ + _tl129623130135_ + _e129628130138_ + _hd129627130141_ + _tl129626130143_)))) + (___match135283135284_ + (lambda (_e129556130203_ + _hd129555130206_ + _tl129554130208_ + _e129559130211_ + _hd129558130214_ + _tl129557130216_ + _e129562130219_ + _hd129561130222_ + _tl129560130224_ + _e129565130227_ + _hd129564130230_ + _tl129563130232_ + _e129568130235_ + _hd129567130238_ + _tl129566130240_ + _e129571130243_ + _hd129570130246_ + _tl129569130248_ + _e129574130251_ + _hd129573130254_ + _tl129572130256_ + _e129577130259_ + _hd129576130262_ + _tl129575130264_ + _e129580130267_ + _hd129579130270_ + _tl129578130272_ + _e129583130275_ + _hd129582130278_ + _tl129581130280_ + _e129586130283_ + _hd129585130286_ + _tl129584130288_ + _e129589130291_ + _hd129588130294_ + _tl129587130296_ + _e129592130299_ + _hd129591130302_ + _tl129590130304_ + ___splice135076135077_ + _target129593130307_ + _tl129595130309_) + (letrec ((_loop129596130312_ + (lambda (_hd129594130315_ _args129600130317_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129332130053_)) - (let ((_e129335130058_ + (gx#stx-pair? _hd129594130315_)) + (let ((_e129597130320_ (let () (declare (not safe)) - (gx#stx-e _hd129332130053_)))) - (let ((_lp-tl129337130063_ + (gx#stx-e _hd129594130315_)))) + (let ((_lp-tl129599130325_ (let () (declare (not safe)) - (##cdr _e129335130058_))) - (_lp-hd129336130061_ + (##cdr _e129597130320_))) + (_lp-hd129598130323_ (let () (declare (not safe)) - (##car _e129335130058_)))) - (let ((__tmp135677 + (##car _e129597130320_)))) + (let ((__tmp135939 (let () (declare (not safe)) - (cons _lp-hd129336130061_ - _args129338130055_)))) + (cons _lp-hd129598130323_ + _args129600130317_)))) (declare (not safe)) - (_loop129334130050_ - _lp-tl129337130063_ - __tmp135677)))) - (let ((_args129339130066_ - (reverse _args129338130055_))) - (let ((_L130069_ _args129339130066_) - (_L130070_ _hd129329130040_) - (_L130071_ _hd129320130016_) - (_L130072_ _hd129311129992_) - (_L130073_ _hd129302129968_)) + (_loop129596130312_ + _lp-tl129599130325_ + __tmp135939)))) + (let ((_args129601130328_ + (reverse _args129600130317_))) + (let ((_L130331_ _args129601130328_) + (_L130332_ _hd129591130302_) + (_L130333_ _hd129582130278_) + (_L130334_ _hd129573130254_) + (_L130335_ _hd129564130230_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130073_ + _L130335_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130072_ + _L130334_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L130071_ - _self129229_))) - (___kont134812134813_ - _L130069_ - _L130070_ - _L130071_ - _L130072_ - _L130073_) - (___kont134824134825_)))))))) + _L130333_ + _self129491_))) + (___kont135074135075_ + _L130331_ + _L130332_ + _L130333_ + _L130334_ + _L130335_) + (___kont135086135087_)))))))) (let () (declare (not safe)) - (_loop129334130050_ _target129331130045_ '()))))) - (___match134979134980_ - (lambda (_e129294129941_ - _hd129293129944_ - _tl129292129946_ - _e129297129949_ - _hd129296129952_ - _tl129295129954_ - _e129300129957_ - _hd129299129960_ - _tl129298129962_ - _e129303129965_ - _hd129302129968_ - _tl129301129970_ - _e129306129973_ - _hd129305129976_ - _tl129304129978_ - _e129309129981_ - _hd129308129984_ - _tl129307129986_ - _e129312129989_ - _hd129311129992_ - _tl129310129994_ - _e129315129997_ - _hd129314130000_ - _tl129313130002_ - _e129318130005_ - _hd129317130008_ - _tl129316130010_) + (_loop129596130312_ _target129593130307_ '()))))) + (___match135241135242_ + (lambda (_e129556130203_ + _hd129555130206_ + _tl129554130208_ + _e129559130211_ + _hd129558130214_ + _tl129557130216_ + _e129562130219_ + _hd129561130222_ + _tl129560130224_ + _e129565130227_ + _hd129564130230_ + _tl129563130232_ + _e129568130235_ + _hd129567130238_ + _tl129566130240_ + _e129571130243_ + _hd129570130246_ + _tl129569130248_ + _e129574130251_ + _hd129573130254_ + _tl129572130256_ + _e129577130259_ + _hd129576130262_ + _tl129575130264_ + _e129580130267_ + _hd129579130270_ + _tl129578130272_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd129317130008_)) + (gx#stx-eq? '%#ref _hd129579130270_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129316130010_)) - (let ((_e129321130013_ + (gx#stx-pair? _tl129578130272_)) + (let ((_e129583130275_ (let () (declare (not safe)) - (gx#stx-e _tl129316130010_)))) - (let ((_tl129319130018_ + (gx#stx-e _tl129578130272_)))) + (let ((_tl129581130280_ (let () (declare (not safe)) - (##cdr _e129321130013_))) - (_hd129320130016_ + (##cdr _e129583130275_))) + (_hd129582130278_ (let () (declare (not safe)) - (##car _e129321130013_)))) + (##car _e129583130275_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129319130018_)) + (gx#stx-null? _tl129581130280_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129313130002_)) - (let ((_e129324130021_ + (gx#stx-pair? _tl129575130264_)) + (let ((_e129586130283_ (let () (declare (not safe)) (gx#stx-e - _tl129313130002_)))) - (let ((_tl129322130026_ + _tl129575130264_)))) + (let ((_tl129584130288_ (let () (declare (not safe)) - (##cdr _e129324130021_))) - (_hd129323130024_ + (##cdr _e129586130283_))) + (_hd129585130286_ (let () (declare (not safe)) - (##car _e129324130021_)))) + (##car _e129586130283_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd129323130024_)) - (let ((_e129327130029_ + _hd129585130286_)) + (let ((_e129589130291_ (let () (declare (not safe)) (gx#stx-e - _hd129323130024_)))) - (let ((_tl129325130034_ + _hd129585130286_)))) + (let ((_tl129587130296_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e129327130029_))) - (_hd129326130032_ - (let () (declare (not safe)) (##car _e129327130029_)))) + (##cdr _e129589130291_))) + (_hd129588130294_ + (let () (declare (not safe)) (##car _e129589130291_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129326130032_)) + (gx#identifier? _hd129588130294_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd129326130032_)) + (gx#stx-eq? '%#quote _hd129588130294_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129325130034_)) - (let ((_e129330130037_ + (gx#stx-pair? _tl129587130296_)) + (let ((_e129592130299_ (let () (declare (not safe)) - (gx#stx-e _tl129325130034_)))) - (let ((_tl129328130042_ + (gx#stx-e _tl129587130296_)))) + (let ((_tl129590130304_ (let () (declare (not safe)) - (##cdr _e129330130037_))) - (_hd129329130040_ + (##cdr _e129592130299_))) + (_hd129591130302_ (let () (declare (not safe)) - (##car _e129330130037_)))) + (##car _e129592130299_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129328130042_)) + (gx#stx-null? _tl129590130304_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl129322130026_)) - (let ((___splice134814134815_ + (gx#stx-pair/null? _tl129584130288_)) + (let ((___splice135076135077_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl129322130026_ + _tl129584130288_ '0)))) - (let ((_tl129333130047_ + (let ((_tl129595130309_ (let () (declare (not safe)) (##vector-ref - ___splice134814134815_ + ___splice135076135077_ '1))) - (_target129331130045_ + (_target129593130307_ (let () (declare (not safe)) (##vector-ref - ___splice134814134815_ + ___splice135076135077_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129333130047_)) - (___match135021135022_ - _e129294129941_ - _hd129293129944_ - _tl129292129946_ - _e129297129949_ - _hd129296129952_ - _tl129295129954_ - _e129300129957_ - _hd129299129960_ - _tl129298129962_ - _e129303129965_ - _hd129302129968_ - _tl129301129970_ - _e129306129973_ - _hd129305129976_ - _tl129304129978_ - _e129309129981_ - _hd129308129984_ - _tl129307129986_ - _e129312129989_ - _hd129311129992_ - _tl129310129994_ - _e129315129997_ - _hd129314130000_ - _tl129313130002_ - _e129318130005_ - _hd129317130008_ - _tl129316130010_ - _e129321130013_ - _hd129320130016_ - _tl129319130018_ - _e129324130021_ - _hd129323130024_ - _tl129322130026_ - _e129327130029_ - _hd129326130032_ - _tl129325130034_ - _e129330130037_ - _hd129329130040_ - _tl129328130042_ - ___splice134814134815_ - _target129331130045_ - _tl129333130047_) - (___kont134824134825_)))) - (___kont134824134825_)) - (___kont134824134825_)))) - (___kont134824134825_)) - (___kont134824134825_)) - (___kont134824134825_)))) + _tl129595130309_)) + (___match135283135284_ + _e129556130203_ + _hd129555130206_ + _tl129554130208_ + _e129559130211_ + _hd129558130214_ + _tl129557130216_ + _e129562130219_ + _hd129561130222_ + _tl129560130224_ + _e129565130227_ + _hd129564130230_ + _tl129563130232_ + _e129568130235_ + _hd129567130238_ + _tl129566130240_ + _e129571130243_ + _hd129570130246_ + _tl129569130248_ + _e129574130251_ + _hd129573130254_ + _tl129572130256_ + _e129577130259_ + _hd129576130262_ + _tl129575130264_ + _e129580130267_ + _hd129579130270_ + _tl129578130272_ + _e129583130275_ + _hd129582130278_ + _tl129581130280_ + _e129586130283_ + _hd129585130286_ + _tl129584130288_ + _e129589130291_ + _hd129588130294_ + _tl129587130296_ + _e129592130299_ + _hd129591130302_ + _tl129590130304_ + ___splice135076135077_ + _target129593130307_ + _tl129595130309_) + (___kont135086135087_)))) + (___kont135086135087_)) + (___kont135086135087_)))) + (___kont135086135087_)) + (___kont135086135087_)) + (___kont135086135087_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134824134825_)))) - (___match135303135304_ - _e129294129941_ - _hd129293129944_ - _tl129292129946_ - _e129297129949_ - _hd129296129952_ - _tl129295129954_ - _e129300129957_ - _hd129299129960_ - _tl129298129962_ - _e129303129965_ - _hd129302129968_ - _tl129301129970_ - _e129306129973_ - _hd129305129976_ - _tl129304129978_ - _e129309129981_ - _hd129308129984_ - _tl129307129986_ - _e129312129989_ - _hd129311129992_ - _tl129310129994_ - _e129315129997_ - _hd129314130000_ - _tl129313130002_)) - (___match135303135304_ - _e129294129941_ - _hd129293129944_ - _tl129292129946_ - _e129297129949_ - _hd129296129952_ - _tl129295129954_ - _e129300129957_ - _hd129299129960_ - _tl129298129962_ - _e129303129965_ - _hd129302129968_ - _tl129301129970_ - _e129306129973_ - _hd129305129976_ - _tl129304129978_ - _e129309129981_ - _hd129308129984_ - _tl129307129986_ - _e129312129989_ - _hd129311129992_ - _tl129310129994_ - _e129315129997_ - _hd129314130000_ - _tl129313130002_)))) - (___match135303135304_ - _e129294129941_ - _hd129293129944_ - _tl129292129946_ - _e129297129949_ - _hd129296129952_ - _tl129295129954_ - _e129300129957_ - _hd129299129960_ - _tl129298129962_ - _e129303129965_ - _hd129302129968_ - _tl129301129970_ - _e129306129973_ - _hd129305129976_ - _tl129304129978_ - _e129309129981_ - _hd129308129984_ - _tl129307129986_ - _e129312129989_ - _hd129311129992_ - _tl129310129994_ - _e129315129997_ - _hd129314130000_ - _tl129313130002_)) - (___match135089135090_ - _e129294129941_ - _hd129293129944_ - _tl129292129946_ - _e129297129949_ - _hd129296129952_ - _tl129295129954_ - _e129300129957_ - _hd129299129960_ - _tl129298129962_ - _e129303129965_ - _hd129302129968_ - _tl129301129970_ - _e129306129973_ - _hd129305129976_ - _tl129304129978_ - _e129309129981_ - _hd129308129984_ - _tl129307129986_ - _e129312129989_ - _hd129311129992_ - _tl129310129994_ - _e129315129997_ - _hd129314130000_ - _tl129313130002_ - _e129318130005_ - _hd129317130008_ - _tl129316130010_)))) - (___match134911134912_ - (lambda (_e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_ - _e129274130197_ - _hd129273130200_ - _tl129272130202_ - _e129277130205_ - _hd129276130208_ - _tl129275130210_ - ___splice134810134811_ - _target129278130213_ - _tl129280130215_) - (letrec ((_loop129281130218_ - (lambda (_hd129279130221_ _args129285130223_) + (___kont135086135087_)))) + (___match135565135566_ + _e129556130203_ + _hd129555130206_ + _tl129554130208_ + _e129559130211_ + _hd129558130214_ + _tl129557130216_ + _e129562130219_ + _hd129561130222_ + _tl129560130224_ + _e129565130227_ + _hd129564130230_ + _tl129563130232_ + _e129568130235_ + _hd129567130238_ + _tl129566130240_ + _e129571130243_ + _hd129570130246_ + _tl129569130248_ + _e129574130251_ + _hd129573130254_ + _tl129572130256_ + _e129577130259_ + _hd129576130262_ + _tl129575130264_)) + (___match135565135566_ + _e129556130203_ + _hd129555130206_ + _tl129554130208_ + _e129559130211_ + _hd129558130214_ + _tl129557130216_ + _e129562130219_ + _hd129561130222_ + _tl129560130224_ + _e129565130227_ + _hd129564130230_ + _tl129563130232_ + _e129568130235_ + _hd129567130238_ + _tl129566130240_ + _e129571130243_ + _hd129570130246_ + _tl129569130248_ + _e129574130251_ + _hd129573130254_ + _tl129572130256_ + _e129577130259_ + _hd129576130262_ + _tl129575130264_)))) + (___match135565135566_ + _e129556130203_ + _hd129555130206_ + _tl129554130208_ + _e129559130211_ + _hd129558130214_ + _tl129557130216_ + _e129562130219_ + _hd129561130222_ + _tl129560130224_ + _e129565130227_ + _hd129564130230_ + _tl129563130232_ + _e129568130235_ + _hd129567130238_ + _tl129566130240_ + _e129571130243_ + _hd129570130246_ + _tl129569130248_ + _e129574130251_ + _hd129573130254_ + _tl129572130256_ + _e129577130259_ + _hd129576130262_ + _tl129575130264_)) + (___match135351135352_ + _e129556130203_ + _hd129555130206_ + _tl129554130208_ + _e129559130211_ + _hd129558130214_ + _tl129557130216_ + _e129562130219_ + _hd129561130222_ + _tl129560130224_ + _e129565130227_ + _hd129564130230_ + _tl129563130232_ + _e129568130235_ + _hd129567130238_ + _tl129566130240_ + _e129571130243_ + _hd129570130246_ + _tl129569130248_ + _e129574130251_ + _hd129573130254_ + _tl129572130256_ + _e129577130259_ + _hd129576130262_ + _tl129575130264_ + _e129580130267_ + _hd129579130270_ + _tl129578130272_)))) + (___match135173135174_ + (lambda (_e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_ + _e129536130459_ + _hd129535130462_ + _tl129534130464_ + _e129539130467_ + _hd129538130470_ + _tl129537130472_ + ___splice135072135073_ + _target129540130475_ + _tl129542130477_) + (letrec ((_loop129543130480_ + (lambda (_hd129541130483_ _args129547130485_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129279130221_)) - (let ((_e129282130226_ + (gx#stx-pair? _hd129541130483_)) + (let ((_e129544130488_ (let () (declare (not safe)) - (gx#stx-e _hd129279130221_)))) - (let ((_lp-tl129284130231_ + (gx#stx-e _hd129541130483_)))) + (let ((_lp-tl129546130493_ (let () (declare (not safe)) - (##cdr _e129282130226_))) - (_lp-hd129283130229_ + (##cdr _e129544130488_))) + (_lp-hd129545130491_ (let () (declare (not safe)) - (##car _e129282130226_)))) - (let ((__tmp135678 + (##car _e129544130488_)))) + (let ((__tmp135940 (let () (declare (not safe)) - (cons _lp-hd129283130229_ - _args129285130223_)))) + (cons _lp-hd129545130491_ + _args129547130485_)))) (declare (not safe)) - (_loop129281130218_ - _lp-tl129284130231_ - __tmp135678)))) - (let ((_args129286130234_ - (reverse _args129285130223_))) - (let ((_L130237_ _args129286130234_) - (_L130238_ _hd129276130208_) - (_L130239_ _hd129267130184_) - (_L130240_ _hd129258130160_)) + (_loop129543130480_ + _lp-tl129546130493_ + __tmp135940)))) + (let ((_args129548130496_ + (reverse _args129547130485_))) + (let ((_L130499_ _args129548130496_) + (_L130500_ _hd129538130470_) + (_L130501_ _hd129529130446_) + (_L130502_ _hd129520130422_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130240_ + _L130502_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L130239_ - _self129229_))) - (___kont134808134809_ - _L130237_ - _L130238_ - _L130239_ - _L130240_) - (___match135099135100_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_ - _e129274130197_ - _hd129273130200_ - _tl129272130202_ - _e129277130205_ - _hd129276130208_ - _tl129275130210_)))))))) + _L130501_ + _self129491_))) + (___kont135070135071_ + _L130499_ + _L130500_ + _L130501_ + _L130502_) + (___match135361135362_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_ + _e129536130459_ + _hd129535130462_ + _tl129534130464_ + _e129539130467_ + _hd129538130470_ + _tl129537130472_)))))))) (let () (declare (not safe)) - (_loop129281130218_ _target129278130213_ '())))))) + (_loop129543130480_ _target129540130475_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134806134807_)) - (let ((_e129250130133_ + (gx#stx-pair? ___stx135068135069_)) + (let ((_e129512130395_ (let () (declare (not safe)) - (gx#stx-e ___stx134806134807_)))) - (let ((_tl129248130138_ + (gx#stx-e ___stx135068135069_)))) + (let ((_tl129510130400_ (let () (declare (not safe)) - (##cdr _e129250130133_))) - (_hd129249130136_ + (##cdr _e129512130395_))) + (_hd129511130398_ (let () (declare (not safe)) - (##car _e129250130133_)))) + (##car _e129512130395_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129248130138_)) - (let ((_e129253130141_ + (gx#stx-pair? _tl129510130400_)) + (let ((_e129515130403_ (let () (declare (not safe)) - (gx#stx-e _tl129248130138_)))) - (let ((_tl129251130146_ + (gx#stx-e _tl129510130400_)))) + (let ((_tl129513130408_ (let () (declare (not safe)) - (##cdr _e129253130141_))) - (_hd129252130144_ + (##cdr _e129515130403_))) + (_hd129514130406_ (let () (declare (not safe)) - (##car _e129253130141_)))) + (##car _e129515130403_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129252130144_)) - (let ((_e129256130149_ + (gx#stx-pair? _hd129514130406_)) + (let ((_e129518130411_ (let () (declare (not safe)) - (gx#stx-e _hd129252130144_)))) - (let ((_tl129254130154_ + (gx#stx-e _hd129514130406_)))) + (let ((_tl129516130416_ (let () (declare (not safe)) - (##cdr _e129256130149_))) - (_hd129255130152_ + (##cdr _e129518130411_))) + (_hd129517130414_ (let () (declare (not safe)) - (##car _e129256130149_)))) + (##car _e129518130411_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd129255130152_)) + _hd129517130414_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd129255130152_)) + _hd129517130414_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129254130154_)) - (let ((_e129259130157_ + _tl129516130416_)) + (let ((_e129521130419_ (let () (declare (not safe)) (gx#stx-e - _tl129254130154_)))) - (let ((_tl129257130162_ + _tl129516130416_)))) + (let ((_tl129519130424_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e129259130157_))) - (_hd129258130160_ - (let () (declare (not safe)) (##car _e129259130157_)))) + (##cdr _e129521130419_))) + (_hd129520130422_ + (let () (declare (not safe)) (##car _e129521130419_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129257130162_)) + (gx#stx-null? _tl129519130424_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129251130146_)) - (let ((_e129262130165_ + (gx#stx-pair? _tl129513130408_)) + (let ((_e129524130427_ (let () (declare (not safe)) - (gx#stx-e _tl129251130146_)))) - (let ((_tl129260130170_ + (gx#stx-e _tl129513130408_)))) + (let ((_tl129522130432_ (let () (declare (not safe)) - (##cdr _e129262130165_))) - (_hd129261130168_ + (##cdr _e129524130427_))) + (_hd129523130430_ (let () (declare (not safe)) - (##car _e129262130165_)))) + (##car _e129524130427_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129261130168_)) - (let ((_e129265130173_ + (gx#stx-pair? _hd129523130430_)) + (let ((_e129527130435_ (let () (declare (not safe)) - (gx#stx-e _hd129261130168_)))) - (let ((_tl129263130178_ + (gx#stx-e _hd129523130430_)))) + (let ((_tl129525130440_ (let () (declare (not safe)) - (##cdr _e129265130173_))) - (_hd129264130176_ + (##cdr _e129527130435_))) + (_hd129526130438_ (let () (declare (not safe)) - (##car _e129265130173_)))) + (##car _e129527130435_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129264130176_)) + (gx#identifier? _hd129526130438_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd129264130176_)) + _hd129526130438_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129263130178_)) - (let ((_e129268130181_ + _tl129525130440_)) + (let ((_e129530130443_ (let () (declare (not safe)) (gx#stx-e - _tl129263130178_)))) - (let ((_tl129266130186_ + _tl129525130440_)))) + (let ((_tl129528130448_ (let () (declare (not safe)) - (##cdr _e129268130181_))) - (_hd129267130184_ + (##cdr _e129530130443_))) + (_hd129529130446_ (let () (declare (not safe)) - (##car _e129268130181_)))) + (##car _e129530130443_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129266130186_)) + _tl129528130448_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129260130170_)) - (let ((_e129271130189_ + _tl129522130432_)) + (let ((_e129533130451_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl129260130170_)))) - (let ((_tl129269130194_ + (gx#stx-e _tl129522130432_)))) + (let ((_tl129531130456_ (let () (declare (not safe)) - (##cdr _e129271130189_))) - (_hd129270130192_ + (##cdr _e129533130451_))) + (_hd129532130454_ (let () (declare (not safe)) - (##car _e129271130189_)))) + (##car _e129533130451_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129270130192_)) - (let ((_e129274130197_ + (gx#stx-pair? _hd129532130454_)) + (let ((_e129536130459_ (let () (declare (not safe)) - (gx#stx-e _hd129270130192_)))) - (let ((_tl129272130202_ + (gx#stx-e _hd129532130454_)))) + (let ((_tl129534130464_ (let () (declare (not safe)) - (##cdr _e129274130197_))) - (_hd129273130200_ + (##cdr _e129536130459_))) + (_hd129535130462_ (let () (declare (not safe)) - (##car _e129274130197_)))) + (##car _e129536130459_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129273130200_)) + (gx#identifier? _hd129535130462_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd129273130200_)) + _hd129535130462_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129272130202_)) - (let ((_e129277130205_ + (gx#stx-pair? _tl129534130464_)) + (let ((_e129539130467_ (let () (declare (not safe)) (gx#stx-e - _tl129272130202_)))) - (let ((_tl129275130210_ + _tl129534130464_)))) + (let ((_tl129537130472_ (let () (declare (not safe)) - (##cdr _e129277130205_))) - (_hd129276130208_ + (##cdr _e129539130467_))) + (_hd129538130470_ (let () (declare (not safe)) - (##car _e129277130205_)))) + (##car _e129539130467_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129275130210_)) + _tl129537130472_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl129269130194_)) - (let ((___splice134810134811_ + _tl129531130456_)) + (let ((___splice135072135073_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl129269130194_ '0)))) - (let ((_tl129280130215_ + (gx#syntax-split-splice _tl129531130456_ '0)))) + (let ((_tl129542130477_ (let () (declare (not safe)) - (##vector-ref ___splice134810134811_ '1))) - (_target129278130213_ + (##vector-ref ___splice135072135073_ '1))) + (_target129540130475_ (let () (declare (not safe)) - (##vector-ref ___splice134810134811_ '0)))) + (##vector-ref ___splice135072135073_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129280130215_)) - (___match134911134912_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_ - _e129274130197_ - _hd129273130200_ - _tl129272130202_ - _e129277130205_ - _hd129276130208_ - _tl129275130210_ - ___splice134810134811_ - _target129278130213_ - _tl129280130215_) - (___match135099135100_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_ - _e129274130197_ - _hd129273130200_ - _tl129272130202_ - _e129277130205_ - _hd129276130208_ - _tl129275130210_)))) - (___match135099135100_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_ - _e129274130197_ - _hd129273130200_ - _tl129272130202_ - _e129277130205_ - _hd129276130208_ - _tl129275130210_)) + (gx#stx-null? _tl129542130477_)) + (___match135173135174_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_ + _e129536130459_ + _hd129535130462_ + _tl129534130464_ + _e129539130467_ + _hd129538130470_ + _tl129537130472_ + ___splice135072135073_ + _target129540130475_ + _tl129542130477_) + (___match135361135362_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_ + _e129536130459_ + _hd129535130462_ + _tl129534130464_ + _e129539130467_ + _hd129538130470_ + _tl129537130472_)))) + (___match135361135362_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_ + _e129536130459_ + _hd129535130462_ + _tl129534130464_ + _e129539130467_ + _hd129538130470_ + _tl129537130472_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match135303135304_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_)))) - (___match135303135304_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_)) - (___match134979134980_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_ - _e129274130197_ - _hd129273130200_ - _tl129272130202_)) - (___match135303135304_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_)))) - (___match135303135304_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_ - _e129271130189_ - _hd129270130192_ - _tl129269130194_)))) - (___match135241135242_ - _e129250130133_ - _hd129249130136_ - _tl129248130138_ - _e129253130141_ - _hd129252130144_ - _tl129251130146_ - _e129256130149_ - _hd129255130152_ - _tl129254130154_ - _e129259130157_ - _hd129258130160_ - _tl129257130162_ - _e129262130165_ - _hd129261130168_ - _tl129260130170_ - _e129265130173_ - _hd129264130176_ - _tl129263130178_ - _e129268130181_ - _hd129267130184_ - _tl129266130186_)) - (___kont134824134825_)))) + (___match135565135566_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_)))) + (___match135565135566_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_)) + (___match135241135242_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_ + _e129536130459_ + _hd129535130462_ + _tl129534130464_)) + (___match135565135566_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_)))) + (___match135565135566_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_ + _e129533130451_ + _hd129532130454_ + _tl129531130456_)))) + (___match135503135504_ + _e129512130395_ + _hd129511130398_ + _tl129510130400_ + _e129515130403_ + _hd129514130406_ + _tl129513130408_ + _e129518130411_ + _hd129517130414_ + _tl129516130416_ + _e129521130419_ + _hd129520130422_ + _tl129519130424_ + _e129524130427_ + _hd129523130430_ + _tl129522130432_ + _e129527130435_ + _hd129526130438_ + _tl129525130440_ + _e129530130443_ + _hd129529130446_ + _tl129528130448_)) + (___kont135086135087_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134824134825_)) - (___kont134824134825_)) - (___kont134824134825_)))) - (___kont134824134825_)))) - (___kont134824134825_)) - (___kont134824134825_)))) + (___kont135086135087_)) + (___kont135086135087_)) + (___kont135086135087_)))) + (___kont135086135087_)))) + (___kont135086135087_)) + (___kont135086135087_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134824134825_)) - (___kont134824134825_)) - (___kont134824134825_)))) - (___kont134824134825_)))) - (___kont134824134825_)))) - (___kont134824134825_)))))))))) + (___kont135086135087_)) + (___kont135086135087_)) + (___kont135086135087_)))) + (___kont135086135087_)))) + (___kont135086135087_)))) + (___kont135086135087_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index 309ea826..1770011d 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__0.scm @@ -1,2903 +1,2903 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1709375799) + (define gerbil/compiler/optimize-top::timestamp 1709457370) (begin (define gxc#&collect-top-level-type-info (make-promise (lambda () - (let ((_tbl126722_ + (let ((_tbl126984_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128815 (force gxc#&void))) + (let ((__tmp129077 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl126722_ __tmp128815)) + (hash-merge! _tbl126984_ __tmp129077)) (let () (declare (not safe)) - (hash-put! _tbl126722_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl126984_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl126722_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl126984_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl126722_ '%#module gxc#collect-module%)) + (hash-put! _tbl126984_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl126722_ + _tbl126984_ '%#define-values gxc#collect-top-level-type-define-values%)) - _tbl126722_)))) + _tbl126984_)))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx126705_ . _args126707_) - (let ((__tmp128817 + (lambda (_stx126967_ . _args126969_) + (let ((__tmp129079 (lambda () (declare (not safe)) - (if (null? _args126707_) - (gxc#compile-e__0 _stx126705_) - (let ((_arg1126712_ (car _args126707_)) - (_rest126714_ (cdr _args126707_))) - (if (null? _rest126714_) - (gxc#compile-e__1 _stx126705_ _arg1126712_) - (let ((_arg2126717_ (car _rest126714_)) - (_rest126719_ (cdr _rest126714_))) - (if (null? _rest126719_) + (if (null? _args126969_) + (gxc#compile-e__0 _stx126967_) + (let ((_arg1126974_ (car _args126969_)) + (_rest126976_ (cdr _args126969_))) + (if (null? _rest126976_) + (gxc#compile-e__1 _stx126967_ _arg1126974_) + (let ((_arg2126979_ (car _rest126976_)) + (_rest126981_ (cdr _rest126976_))) + (if (null? _rest126981_) (gxc#compile-e__2 - _stx126705_ - _arg1126712_ - _arg2126717_) + _stx126967_ + _arg1126974_ + _arg2126979_) (apply gxc#compile-e - _stx126705_ - _arg1126712_ - _arg2126717_ - _rest126719_)))))))) - (__tmp128816 (force gxc#&collect-top-level-type-info))) + _stx126967_ + _arg1126974_ + _arg2126979_ + _rest126981_)))))))) + (__tmp129078 (force gxc#&collect-top-level-type-info))) (declare (not safe)) (call-with-parameters - __tmp128817 + __tmp129079 gxc#current-compile-methods - __tmp128816)))) + __tmp129078)))) (define gxc#&basic-expression-top-level-type (make-promise (lambda () - (let ((_tbl126702_ + (let ((_tbl126964_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128818 (force gxc#&false))) + (let ((__tmp129080 (force gxc#&false))) (declare (not safe)) - (hash-merge! _tbl126702_ __tmp128818)) + (hash-merge! _tbl126964_ __tmp129080)) (let () (declare (not safe)) (hash-put! - _tbl126702_ + _tbl126964_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl126702_ '%#call gxc#basic-expression-type-call%)) - _tbl126702_)))) + (hash-put! _tbl126964_ '%#call gxc#basic-expression-type-call%)) + _tbl126964_)))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx126685_ . _args126687_) - (let ((__tmp128820 + (lambda (_stx126947_ . _args126949_) + (let ((__tmp129082 (lambda () (declare (not safe)) - (if (null? _args126687_) - (gxc#compile-e__0 _stx126685_) - (let ((_arg1126692_ (car _args126687_)) - (_rest126694_ (cdr _args126687_))) - (if (null? _rest126694_) - (gxc#compile-e__1 _stx126685_ _arg1126692_) - (let ((_arg2126697_ (car _rest126694_)) - (_rest126699_ (cdr _rest126694_))) - (if (null? _rest126699_) + (if (null? _args126949_) + (gxc#compile-e__0 _stx126947_) + (let ((_arg1126954_ (car _args126949_)) + (_rest126956_ (cdr _args126949_))) + (if (null? _rest126956_) + (gxc#compile-e__1 _stx126947_ _arg1126954_) + (let ((_arg2126959_ (car _rest126956_)) + (_rest126961_ (cdr _rest126956_))) + (if (null? _rest126961_) (gxc#compile-e__2 - _stx126685_ - _arg1126692_ - _arg2126697_) + _stx126947_ + _arg1126954_ + _arg2126959_) (apply gxc#compile-e - _stx126685_ - _arg1126692_ - _arg2126697_ - _rest126699_)))))))) - (__tmp128819 (force gxc#&basic-expression-top-level-type))) + _stx126947_ + _arg1126954_ + _arg2126959_ + _rest126961_)))))))) + (__tmp129081 (force gxc#&basic-expression-top-level-type))) (declare (not safe)) (call-with-parameters - __tmp128820 + __tmp129082 gxc#current-compile-methods - __tmp128819)))) + __tmp129081)))) (define gxc#&collect-type-info (make-promise (lambda () - (let ((_tbl126682_ + (let ((_tbl126944_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128821 (force gxc#&void))) + (let ((__tmp129083 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl126682_ __tmp128821)) + (hash-merge! _tbl126944_ __tmp129083)) (let () (declare (not safe)) - (hash-put! _tbl126682_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl126944_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl126682_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl126944_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl126682_ '%#module gxc#collect-module%)) + (hash-put! _tbl126944_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl126682_ + _tbl126944_ '%#define-values gxc#collect-type-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl126682_ + _tbl126944_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl126682_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl126944_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126682_ + _tbl126944_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126682_ + _tbl126944_ '%#let-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126682_ + _tbl126944_ '%#letrec-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126682_ + _tbl126944_ '%#letrec*-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl126682_ '%#call gxc#collect-type-call%)) + (hash-put! _tbl126944_ '%#call gxc#collect-type-call%)) (let () (declare (not safe)) - (hash-put! _tbl126682_ '%#if gxc#collect-operands)) + (hash-put! _tbl126944_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl126682_ '%#set! gxc#collect-body-setq%)) - _tbl126682_)))) + (hash-put! _tbl126944_ '%#set! gxc#collect-body-setq%)) + _tbl126944_)))) (define gxc#apply-collect-type-info - (lambda (_stx126665_ . _args126667_) - (let ((__tmp128823 + (lambda (_stx126927_ . _args126929_) + (let ((__tmp129085 (lambda () (declare (not safe)) - (if (null? _args126667_) - (gxc#compile-e__0 _stx126665_) - (let ((_arg1126672_ (car _args126667_)) - (_rest126674_ (cdr _args126667_))) - (if (null? _rest126674_) - (gxc#compile-e__1 _stx126665_ _arg1126672_) - (let ((_arg2126677_ (car _rest126674_)) - (_rest126679_ (cdr _rest126674_))) - (if (null? _rest126679_) + (if (null? _args126929_) + (gxc#compile-e__0 _stx126927_) + (let ((_arg1126934_ (car _args126929_)) + (_rest126936_ (cdr _args126929_))) + (if (null? _rest126936_) + (gxc#compile-e__1 _stx126927_ _arg1126934_) + (let ((_arg2126939_ (car _rest126936_)) + (_rest126941_ (cdr _rest126936_))) + (if (null? _rest126941_) (gxc#compile-e__2 - _stx126665_ - _arg1126672_ - _arg2126677_) + _stx126927_ + _arg1126934_ + _arg2126939_) (apply gxc#compile-e - _stx126665_ - _arg1126672_ - _arg2126677_ - _rest126679_)))))))) - (__tmp128822 (force gxc#&collect-type-info))) + _stx126927_ + _arg1126934_ + _arg2126939_ + _rest126941_)))))))) + (__tmp129084 (force gxc#&collect-type-info))) (declare (not safe)) (call-with-parameters - __tmp128823 + __tmp129085 gxc#current-compile-methods - __tmp128822)))) + __tmp129084)))) (define gxc#&basic-expression-type (make-promise (lambda () - (let ((_tbl126662_ + (let ((_tbl126924_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128824 (force gxc#&false))) + (let ((__tmp129086 (force gxc#&false))) (declare (not safe)) - (hash-merge! _tbl126662_ __tmp128824)) + (hash-merge! _tbl126924_ __tmp129086)) (let () (declare (not safe)) - (hash-put! _tbl126662_ '%#begin gxc#basic-expression-type-begin%)) + (hash-put! _tbl126924_ '%#begin gxc#basic-expression-type-begin%)) (let () (declare (not safe)) (hash-put! - _tbl126662_ + _tbl126924_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) (hash-put! - _tbl126662_ + _tbl126924_ '%#lambda gxc#basic-expression-type-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126662_ + _tbl126924_ '%#case-lambda gxc#basic-expression-type-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126662_ + _tbl126924_ '%#let-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126662_ + _tbl126924_ '%#letrec-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126662_ + _tbl126924_ '%#letrec*-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl126662_ '%#call gxc#basic-expression-type-call%)) + (hash-put! _tbl126924_ '%#call gxc#basic-expression-type-call%)) (let () (declare (not safe)) - (hash-put! _tbl126662_ '%#ref gxc#basic-expression-type-ref%)) - _tbl126662_)))) + (hash-put! _tbl126924_ '%#ref gxc#basic-expression-type-ref%)) + _tbl126924_)))) (define gxc#apply-basic-expression-type - (lambda (_stx126645_ . _args126647_) - (let ((__tmp128826 + (lambda (_stx126907_ . _args126909_) + (let ((__tmp129088 (lambda () (declare (not safe)) - (if (null? _args126647_) - (gxc#compile-e__0 _stx126645_) - (let ((_arg1126652_ (car _args126647_)) - (_rest126654_ (cdr _args126647_))) - (if (null? _rest126654_) - (gxc#compile-e__1 _stx126645_ _arg1126652_) - (let ((_arg2126657_ (car _rest126654_)) - (_rest126659_ (cdr _rest126654_))) - (if (null? _rest126659_) + (if (null? _args126909_) + (gxc#compile-e__0 _stx126907_) + (let ((_arg1126914_ (car _args126909_)) + (_rest126916_ (cdr _args126909_))) + (if (null? _rest126916_) + (gxc#compile-e__1 _stx126907_ _arg1126914_) + (let ((_arg2126919_ (car _rest126916_)) + (_rest126921_ (cdr _rest126916_))) + (if (null? _rest126921_) (gxc#compile-e__2 - _stx126645_ - _arg1126652_ - _arg2126657_) + _stx126907_ + _arg1126914_ + _arg2126919_) (apply gxc#compile-e - _stx126645_ - _arg1126652_ - _arg2126657_ - _rest126659_)))))))) - (__tmp128825 (force gxc#&basic-expression-type))) + _stx126907_ + _arg1126914_ + _arg2126919_ + _rest126921_)))))))) + (__tmp129087 (force gxc#&basic-expression-type))) (declare (not safe)) (call-with-parameters - __tmp128826 + __tmp129088 gxc#current-compile-methods - __tmp128825)))) + __tmp129087)))) (define gxc#&lift-top-lambdas (make-promise (lambda () - (let ((_tbl126642_ + (let ((_tbl126904_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128827 (force gxc#&basic-xform))) + (let ((__tmp129089 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl126642_ __tmp128827)) + (hash-merge! _tbl126904_ __tmp129089)) (let () (declare (not safe)) (hash-put! - _tbl126642_ + _tbl126904_ '%#define-values gxc#lift-top-lambda-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl126642_ + _tbl126904_ '%#let-values gxc#lift-top-lambda-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126642_ + _tbl126904_ '%#letrec-values gxc#lift-top-lambda-letrec-values%)) (let () (declare (not safe)) (hash-put! - _tbl126642_ + _tbl126904_ '%#letrec*-values gxc#lift-top-lambda-letrec-values%)) - _tbl126642_)))) + _tbl126904_)))) (define gxc#apply-lift-top-lambdas - (lambda (_stx126625_ . _args126627_) - (let ((__tmp128829 + (lambda (_stx126887_ . _args126889_) + (let ((__tmp129091 (lambda () (declare (not safe)) - (if (null? _args126627_) - (gxc#compile-e__0 _stx126625_) - (let ((_arg1126632_ (car _args126627_)) - (_rest126634_ (cdr _args126627_))) - (if (null? _rest126634_) - (gxc#compile-e__1 _stx126625_ _arg1126632_) - (let ((_arg2126637_ (car _rest126634_)) - (_rest126639_ (cdr _rest126634_))) - (if (null? _rest126639_) + (if (null? _args126889_) + (gxc#compile-e__0 _stx126887_) + (let ((_arg1126894_ (car _args126889_)) + (_rest126896_ (cdr _args126889_))) + (if (null? _rest126896_) + (gxc#compile-e__1 _stx126887_ _arg1126894_) + (let ((_arg2126899_ (car _rest126896_)) + (_rest126901_ (cdr _rest126896_))) + (if (null? _rest126901_) (gxc#compile-e__2 - _stx126625_ - _arg1126632_ - _arg2126637_) + _stx126887_ + _arg1126894_ + _arg2126899_) (apply gxc#compile-e - _stx126625_ - _arg1126632_ - _arg2126637_ - _rest126639_)))))))) - (__tmp128828 (force gxc#&lift-top-lambdas))) + _stx126887_ + _arg1126894_ + _arg2126899_ + _rest126901_)))))))) + (__tmp129090 (force gxc#&lift-top-lambdas))) (declare (not safe)) (call-with-parameters - __tmp128829 + __tmp129091 gxc#current-compile-methods - __tmp128828)))) + __tmp129090)))) (define gxc#collect-top-level-type-define-values% - (lambda (_stx126528_) - (let* ((___stx126735126736_ _stx126528_) - (_g126531126551_ + (lambda (_stx126790_) + (let* ((___stx126997126998_ _stx126790_) + (_g126793126813_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126735126736_))))) - (let ((___kont126737126738_ - (lambda (_L126595_ _L126596_) - (let ((_sym126614_ + ___stx126997126998_))))) + (let ((___kont126999127000_ + (lambda (_L126857_ _L126858_) + (let ((_sym126876_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126596_)))) - (if (let ((__tmp128830 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L126858_)))) + (if (let ((__tmp129092 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128830 _sym126614_)) + (hash-get __tmp129092 _sym126876_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym126614_)) - (let ((_type126615126617_ + _sym126876_)) + (let ((_type126877126879_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L126595_)))) - (if _type126615126617_ - (let ((_type126620_ _type126615126617_)) + _L126857_)))) + (if _type126877126879_ + (let ((_type126882_ _type126877126879_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym126614_ - _type126620_)) + _sym126876_ + _type126882_)) '#f)))))) - (___kont126739126740_ (lambda () '#!void))) - (let ((___match126768126769_ - (lambda (_e126537126563_ - _hd126536126566_ - _tl126535126568_ - _e126540126571_ - _hd126539126574_ - _tl126538126576_ - _e126543126579_ - _hd126542126582_ - _tl126541126584_ - _e126546126587_ - _hd126545126590_ - _tl126544126592_) - (let ((_L126595_ _hd126545126590_) - (_L126596_ _hd126542126582_)) + (___kont127001127002_ (lambda () '#!void))) + (let ((___match127030127031_ + (lambda (_e126799126825_ + _hd126798126828_ + _tl126797126830_ + _e126802126833_ + _hd126801126836_ + _tl126800126838_ + _e126805126841_ + _hd126804126844_ + _tl126803126846_ + _e126808126849_ + _hd126807126852_ + _tl126806126854_) + (let ((_L126857_ _hd126807126852_) + (_L126858_ _hd126804126844_)) (if (let () (declare (not safe)) - (gx#identifier? _L126596_)) - (___kont126737126738_ _L126595_ _L126596_) - (___kont126739126740_)))))) + (gx#identifier? _L126858_)) + (___kont126999127000_ _L126857_ _L126858_) + (___kont127001127002_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126735126736_)) - (let ((_e126537126563_ + (gx#stx-pair? ___stx126997126998_)) + (let ((_e126799126825_ (let () (declare (not safe)) - (gx#stx-e ___stx126735126736_)))) - (let ((_tl126535126568_ + (gx#stx-e ___stx126997126998_)))) + (let ((_tl126797126830_ (let () (declare (not safe)) - (##cdr _e126537126563_))) - (_hd126536126566_ + (##cdr _e126799126825_))) + (_hd126798126828_ (let () (declare (not safe)) - (##car _e126537126563_)))) + (##car _e126799126825_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126535126568_)) - (let ((_e126540126571_ + (gx#stx-pair? _tl126797126830_)) + (let ((_e126802126833_ (let () (declare (not safe)) - (gx#stx-e _tl126535126568_)))) - (let ((_tl126538126576_ + (gx#stx-e _tl126797126830_)))) + (let ((_tl126800126838_ (let () (declare (not safe)) - (##cdr _e126540126571_))) - (_hd126539126574_ + (##cdr _e126802126833_))) + (_hd126801126836_ (let () (declare (not safe)) - (##car _e126540126571_)))) + (##car _e126802126833_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126539126574_)) - (let ((_e126543126579_ + (gx#stx-pair? _hd126801126836_)) + (let ((_e126805126841_ (let () (declare (not safe)) - (gx#stx-e _hd126539126574_)))) - (let ((_tl126541126584_ + (gx#stx-e _hd126801126836_)))) + (let ((_tl126803126846_ (let () (declare (not safe)) - (##cdr _e126543126579_))) - (_hd126542126582_ + (##cdr _e126805126841_))) + (_hd126804126844_ (let () (declare (not safe)) - (##car _e126543126579_)))) + (##car _e126805126841_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126541126584_)) + (gx#stx-null? _tl126803126846_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126538126576_)) - (let ((_e126546126587_ + _tl126800126838_)) + (let ((_e126808126849_ (let () (declare (not safe)) (gx#stx-e - _tl126538126576_)))) - (let ((_tl126544126592_ + _tl126800126838_)))) + (let ((_tl126806126854_ (let () (declare (not safe)) - (##cdr _e126546126587_))) - (_hd126545126590_ + (##cdr _e126808126849_))) + (_hd126807126852_ (let () (declare (not safe)) - (##car _e126546126587_)))) + (##car _e126808126849_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126544126592_)) - (___match126768126769_ - _e126537126563_ - _hd126536126566_ - _tl126535126568_ - _e126540126571_ - _hd126539126574_ - _tl126538126576_ - _e126543126579_ - _hd126542126582_ - _tl126541126584_ - _e126546126587_ - _hd126545126590_ - _tl126544126592_) - (___kont126739126740_)))) - (___kont126739126740_)) - (___kont126739126740_)))) - (___kont126739126740_)))) - (___kont126739126740_)))) - (___kont126739126740_))))))) + _tl126806126854_)) + (___match127030127031_ + _e126799126825_ + _hd126798126828_ + _tl126797126830_ + _e126802126833_ + _hd126801126836_ + _tl126800126838_ + _e126805126841_ + _hd126804126844_ + _tl126803126846_ + _e126808126849_ + _hd126807126852_ + _tl126806126854_) + (___kont127001127002_)))) + (___kont127001127002_)) + (___kont127001127002_)))) + (___kont127001127002_)))) + (___kont127001127002_)))) + (___kont127001127002_))))))) (define gxc#collect-type-define-values% - (lambda (_stx126384_) - (let* ((___stx126771126772_ _stx126384_) - (_g126387126418_ + (lambda (_stx126646_) + (let* ((___stx127033127034_ _stx126646_) + (_g126649126680_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126771126772_))))) - (let ((___kont126773126774_ - (lambda (_L126500_ _L126501_) - (let ((_sym126517_ + ___stx127033127034_))))) + (let ((___kont127035127036_ + (lambda (_L126762_ _L126763_) + (let ((_sym126779_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126501_)))) - (if (let ((__tmp128831 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L126763_)))) + (if (let ((__tmp129093 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128831 _sym126517_)) + (hash-get __tmp129093 _sym126779_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym126517_)) + _sym126779_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym126517_)) + (gxc#optimizer-lookup-type _sym126779_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym126517_)) - (let ((_type126518126520_ + _sym126779_)) + (let ((_type126780126782_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L126500_)))) - (if _type126518126520_ - (let ((_type126523_ _type126518126520_)) + _L126762_)))) + (if _type126780126782_ + (let ((_type126785_ _type126780126782_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym126517_ - _type126523_)) + _sym126779_ + _type126785_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__0 _L126500_))))) - (___kont126775126776_ - (lambda (_L126447_ _L126448_) + (gxc#compile-e__0 _L126762_))))) + (___kont127037127038_ + (lambda (_L126709_ _L126710_) (let () (declare (not safe)) - (gxc#compile-e__0 _L126447_))))) - (let ((___match126804126805_ - (lambda (_e126393126468_ - _hd126392126471_ - _tl126391126473_ - _e126396126476_ - _hd126395126479_ - _tl126394126481_ - _e126399126484_ - _hd126398126487_ - _tl126397126489_ - _e126402126492_ - _hd126401126495_ - _tl126400126497_) - (let ((_L126500_ _hd126401126495_) - (_L126501_ _hd126398126487_)) + (gxc#compile-e__0 _L126709_))))) + (let ((___match127066127067_ + (lambda (_e126655126730_ + _hd126654126733_ + _tl126653126735_ + _e126658126738_ + _hd126657126741_ + _tl126656126743_ + _e126661126746_ + _hd126660126749_ + _tl126659126751_ + _e126664126754_ + _hd126663126757_ + _tl126662126759_) + (let ((_L126762_ _hd126663126757_) + (_L126763_ _hd126660126749_)) (if (let () (declare (not safe)) - (gx#identifier? _L126501_)) - (___kont126773126774_ _L126500_ _L126501_) - (___kont126775126776_ - _hd126401126495_ - _hd126395126479_)))))) + (gx#identifier? _L126763_)) + (___kont127035127036_ _L126762_ _L126763_) + (___kont127037127038_ + _hd126663126757_ + _hd126657126741_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126771126772_)) - (let ((_e126393126468_ + (gx#stx-pair? ___stx127033127034_)) + (let ((_e126655126730_ (let () (declare (not safe)) - (gx#stx-e ___stx126771126772_)))) - (let ((_tl126391126473_ + (gx#stx-e ___stx127033127034_)))) + (let ((_tl126653126735_ (let () (declare (not safe)) - (##cdr _e126393126468_))) - (_hd126392126471_ + (##cdr _e126655126730_))) + (_hd126654126733_ (let () (declare (not safe)) - (##car _e126393126468_)))) + (##car _e126655126730_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126391126473_)) - (let ((_e126396126476_ + (gx#stx-pair? _tl126653126735_)) + (let ((_e126658126738_ (let () (declare (not safe)) - (gx#stx-e _tl126391126473_)))) - (let ((_tl126394126481_ + (gx#stx-e _tl126653126735_)))) + (let ((_tl126656126743_ (let () (declare (not safe)) - (##cdr _e126396126476_))) - (_hd126395126479_ + (##cdr _e126658126738_))) + (_hd126657126741_ (let () (declare (not safe)) - (##car _e126396126476_)))) + (##car _e126658126738_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126395126479_)) - (let ((_e126399126484_ + (gx#stx-pair? _hd126657126741_)) + (let ((_e126661126746_ (let () (declare (not safe)) - (gx#stx-e _hd126395126479_)))) - (let ((_tl126397126489_ + (gx#stx-e _hd126657126741_)))) + (let ((_tl126659126751_ (let () (declare (not safe)) - (##cdr _e126399126484_))) - (_hd126398126487_ + (##cdr _e126661126746_))) + (_hd126660126749_ (let () (declare (not safe)) - (##car _e126399126484_)))) + (##car _e126661126746_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126397126489_)) + (gx#stx-null? _tl126659126751_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126394126481_)) - (let ((_e126402126492_ + _tl126656126743_)) + (let ((_e126664126754_ (let () (declare (not safe)) (gx#stx-e - _tl126394126481_)))) - (let ((_tl126400126497_ + _tl126656126743_)))) + (let ((_tl126662126759_ (let () (declare (not safe)) - (##cdr _e126402126492_))) - (_hd126401126495_ + (##cdr _e126664126754_))) + (_hd126663126757_ (let () (declare (not safe)) - (##car _e126402126492_)))) + (##car _e126664126754_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126400126497_)) - (___match126804126805_ - _e126393126468_ - _hd126392126471_ - _tl126391126473_ - _e126396126476_ - _hd126395126479_ - _tl126394126481_ - _e126399126484_ - _hd126398126487_ - _tl126397126489_ - _e126402126492_ - _hd126401126495_ - _tl126400126497_) + _tl126662126759_)) + (___match127066127067_ + _e126655126730_ + _hd126654126733_ + _tl126653126735_ + _e126658126738_ + _hd126657126741_ + _tl126656126743_ + _e126661126746_ + _hd126660126749_ + _tl126659126751_ + _e126664126754_ + _hd126663126757_ + _tl126662126759_) (let () (declare (not safe)) - (_g126387126418_))))) + (_g126649126680_))))) (let () (declare (not safe)) - (_g126387126418_))) + (_g126649126680_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126394126481_)) - (let ((_e126413126439_ + _tl126656126743_)) + (let ((_e126675126701_ (let () (declare (not safe)) (gx#stx-e - _tl126394126481_)))) - (let ((_tl126411126444_ + _tl126656126743_)))) + (let ((_tl126673126706_ (let () (declare (not safe)) - (##cdr _e126413126439_))) - (_hd126412126442_ + (##cdr _e126675126701_))) + (_hd126674126704_ (let () (declare (not safe)) - (##car _e126413126439_)))) + (##car _e126675126701_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126411126444_)) - (___kont126775126776_ - _hd126412126442_ - _hd126395126479_) + _tl126673126706_)) + (___kont127037127038_ + _hd126674126704_ + _hd126657126741_) (let () (declare (not safe)) - (_g126387126418_))))) + (_g126649126680_))))) (let () (declare (not safe)) - (_g126387126418_)))))) + (_g126649126680_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126394126481_)) - (let ((_e126413126439_ + (gx#stx-pair? _tl126656126743_)) + (let ((_e126675126701_ (let () (declare (not safe)) - (gx#stx-e _tl126394126481_)))) - (let ((_tl126411126444_ + (gx#stx-e _tl126656126743_)))) + (let ((_tl126673126706_ (let () (declare (not safe)) - (##cdr _e126413126439_))) - (_hd126412126442_ + (##cdr _e126675126701_))) + (_hd126674126704_ (let () (declare (not safe)) - (##car _e126413126439_)))) + (##car _e126675126701_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126411126444_)) - (___kont126775126776_ - _hd126412126442_ - _hd126395126479_) + _tl126673126706_)) + (___kont127037127038_ + _hd126674126704_ + _hd126657126741_) (let () (declare (not safe)) - (_g126387126418_))))) + (_g126649126680_))))) (let () (declare (not safe)) - (_g126387126418_)))))) - (let () (declare (not safe)) (_g126387126418_))))) - (let () (declare (not safe)) (_g126387126418_)))))))) + (_g126649126680_)))))) + (let () (declare (not safe)) (_g126649126680_))))) + (let () (declare (not safe)) (_g126649126680_)))))))) (define gxc#collect-type-let-values% - (lambda (_stx126169_) - (letrec ((_collect-e126171_ - (lambda (_hd126328_ _expr126329_) - (let* ((___stx126827126828_ _hd126328_) - (_g126332126342_ + (lambda (_stx126431_) + (letrec ((_collect-e126433_ + (lambda (_hd126590_ _expr126591_) + (let* ((___stx127089127090_ _hd126590_) + (_g126594126604_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126827126828_))))) - (let ((___kont126829126830_ - (lambda (_L126362_) - (let ((_sym126373_ + ___stx127089127090_))))) + (let ((___kont127091127092_ + (lambda (_L126624_) + (let ((_sym126635_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126362_)))) - (if (let ((__tmp128832 + (gxc#identifier-symbol _L126624_)))) + (if (let ((__tmp129094 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128832 _sym126373_)) + (hash-get __tmp129094 _sym126635_)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym126373_)) - (let ((_type126374126376_ + _sym126635_)) + (let ((_type126636126638_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr126329_)))) - (if _type126374126376_ - (let ((_type126379_ - _type126374126376_)) + _expr126591_)))) + (if _type126636126638_ + (let ((_type126641_ + _type126636126638_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym126373_ - _type126379_ + _sym126635_ + _type126641_ '#t)) '#f)))))) - (___kont126831126832_ (lambda () '#!void))) - (let ((___match126840126841_ - (lambda (_e126337126354_ - _hd126336126357_ - _tl126335126359_) - (let ((_L126362_ _hd126336126357_)) + (___kont127093127094_ (lambda () '#!void))) + (let ((___match127102127103_ + (lambda (_e126599126616_ + _hd126598126619_ + _tl126597126621_) + (let ((_L126624_ _hd126598126619_)) (if (let () (declare (not safe)) - (gx#identifier? _L126362_)) - (___kont126829126830_ _L126362_) - (___kont126831126832_)))))) + (gx#identifier? _L126624_)) + (___kont127091127092_ _L126624_) + (___kont127093127094_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126827126828_)) - (let ((_e126337126354_ + (gx#stx-pair? ___stx127089127090_)) + (let ((_e126599126616_ (let () (declare (not safe)) - (gx#stx-e ___stx126827126828_)))) - (let ((_tl126335126359_ + (gx#stx-e ___stx127089127090_)))) + (let ((_tl126597126621_ (let () (declare (not safe)) - (##cdr _e126337126354_))) - (_hd126336126357_ + (##cdr _e126599126616_))) + (_hd126598126619_ (let () (declare (not safe)) - (##car _e126337126354_)))) + (##car _e126599126616_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126335126359_)) - (___match126840126841_ - _e126337126354_ - _hd126336126357_ - _tl126335126359_) - (___kont126831126832_)))) - (___kont126831126832_)))))))) - (let* ((_g126173126208_ - (lambda (_g126174126205_) + (gx#stx-null? _tl126597126621_)) + (___match127102127103_ + _e126599126616_ + _hd126598126619_ + _tl126597126621_) + (___kont127093127094_)))) + (___kont127093127094_)))))))) + (let* ((_g126435126470_ + (lambda (_g126436126467_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g126174126205_)))) - (_g126172126325_ - (lambda (_g126174126211_) + _g126436126467_)))) + (_g126434126587_ + (lambda (_g126436126473_) (if (let () (declare (not safe)) - (gx#stx-pair? _g126174126211_)) - (let ((_e126180126213_ + (gx#stx-pair? _g126436126473_)) + (let ((_e126442126475_ (let () (declare (not safe)) - (gx#stx-e _g126174126211_)))) - (let ((_hd126179126216_ + (gx#stx-e _g126436126473_)))) + (let ((_hd126441126478_ (let () (declare (not safe)) - (##car _e126180126213_))) - (_tl126178126218_ + (##car _e126442126475_))) + (_tl126440126480_ (let () (declare (not safe)) - (##cdr _e126180126213_)))) + (##cdr _e126442126475_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126178126218_)) - (let ((_e126183126221_ + (gx#stx-pair? _tl126440126480_)) + (let ((_e126445126483_ (let () (declare (not safe)) - (gx#stx-e _tl126178126218_)))) - (let ((_hd126182126224_ + (gx#stx-e _tl126440126480_)))) + (let ((_hd126444126486_ (let () (declare (not safe)) - (##car _e126183126221_))) - (_tl126181126226_ + (##car _e126445126483_))) + (_tl126443126488_ (let () (declare (not safe)) - (##cdr _e126183126221_)))) + (##cdr _e126445126483_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd126182126224_)) - (let ((_g128833_ + (gx#stx-pair/null? _hd126444126486_)) + (let ((_g129095_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd126182126224_ + _hd126444126486_ '0)))) (begin - (let ((_g128834_ + (let ((_g129096_ (let () (declare (not safe)) - (if (##values? _g128833_) + (if (##values? _g129095_) (##vector-length - _g128833_) + _g129095_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g128834_ 2))) + (##fx= _g129096_ 2))) (error "Context expects 2 values" - _g128834_))) - (let ((_target126184126229_ + _g129096_))) + (let ((_target126446126491_ (let () (declare (not safe)) (##vector-ref - _g128833_ + _g129095_ 0))) - (_tl126186126231_ + (_tl126448126493_ (let () (declare (not safe)) (##vector-ref - _g128833_ + _g129095_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126186126231_)) - (letrec ((_loop126187126234_ - (lambda (_hd126185126237_ + _tl126448126493_)) + (letrec ((_loop126449126496_ + (lambda (_hd126447126499_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr126191126239_ - _hd126192126241_) + _expr126453126501_ + _hd126454126503_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126185126237_)) - (let ((_e126188126244_ + (gx#stx-pair? _hd126447126499_)) + (let ((_e126450126506_ (let () (declare (not safe)) - (gx#stx-e _hd126185126237_)))) - (let ((_lp-hd126189126247_ + (gx#stx-e _hd126447126499_)))) + (let ((_lp-hd126451126509_ (let () (declare (not safe)) - (##car _e126188126244_))) - (_lp-tl126190126249_ + (##car _e126450126506_))) + (_lp-tl126452126511_ (let () (declare (not safe)) - (##cdr _e126188126244_)))) + (##cdr _e126450126506_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd126189126247_)) - (let ((_e126197126252_ + (gx#stx-pair? _lp-hd126451126509_)) + (let ((_e126459126514_ (let () (declare (not safe)) - (gx#stx-e _lp-hd126189126247_)))) - (let ((_hd126196126255_ + (gx#stx-e _lp-hd126451126509_)))) + (let ((_hd126458126517_ (let () (declare (not safe)) - (##car _e126197126252_))) - (_tl126195126257_ + (##car _e126459126514_))) + (_tl126457126519_ (let () (declare (not safe)) - (##cdr _e126197126252_)))) + (##cdr _e126459126514_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126195126257_)) - (let ((_e126200126260_ + (gx#stx-pair? _tl126457126519_)) + (let ((_e126462126522_ (let () (declare (not safe)) (gx#stx-e - _tl126195126257_)))) - (let ((_hd126199126263_ + _tl126457126519_)))) + (let ((_hd126461126525_ (let () (declare (not safe)) - (##car _e126200126260_))) - (_tl126198126265_ + (##car _e126462126522_))) + (_tl126460126527_ (let () (declare (not safe)) - (##cdr _e126200126260_)))) + (##cdr _e126462126522_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126198126265_)) - (let ((__tmp128839 + _tl126460126527_)) + (let ((__tmp129101 (let () (declare (not safe)) - (cons _hd126199126263_ + (cons _hd126461126525_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr126191126239_))) - (__tmp128838 + _expr126453126501_))) + (__tmp129100 (let () (declare (not safe)) - (cons _hd126196126255_ _hd126192126241_)))) + (cons _hd126458126517_ _hd126454126503_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop126187126234_ - _lp-tl126190126249_ - __tmp128839 - __tmp128838)) + (_loop126449126496_ + _lp-tl126452126511_ + __tmp129101 + __tmp129100)) (let () (declare (not safe)) - (_g126173126208_ - _g126174126211_))))) + (_g126435126470_ + _g126436126473_))))) (let () (declare (not safe)) - (_g126173126208_ - _g126174126211_))))) + (_g126435126470_ + _g126436126473_))))) (let () (declare (not safe)) - (_g126173126208_ _g126174126211_))))) - (let ((_expr126193126268_ - (reverse _expr126191126239_)) - (_hd126194126270_ (reverse _hd126192126241_))) + (_g126435126470_ _g126436126473_))))) + (let ((_expr126455126530_ + (reverse _expr126453126501_)) + (_hd126456126532_ (reverse _hd126454126503_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126181126226_)) - (let ((_e126203126273_ + (gx#stx-pair? _tl126443126488_)) + (let ((_e126465126535_ (let () (declare (not safe)) - (gx#stx-e _tl126181126226_)))) - (let ((_hd126202126276_ + (gx#stx-e _tl126443126488_)))) + (let ((_hd126464126538_ (let () (declare (not safe)) - (##car _e126203126273_))) - (_tl126201126278_ + (##car _e126465126535_))) + (_tl126463126540_ (let () (declare (not safe)) - (##cdr _e126203126273_)))) + (##cdr _e126465126535_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126201126278_)) - ((lambda (_L126281_ - _L126282_ - _L126283_) + (gx#stx-null? _tl126463126540_)) + ((lambda (_L126543_ + _L126544_ + _L126545_) (for-each - _collect-e126171_ - (let ((__tmp128835 - (lambda (_g126303126306_ - _g126304126308_) + _collect-e126433_ + (let ((__tmp129097 + (lambda (_g126565126568_ + _g126566126570_) (let () (declare (not safe)) - (cons _g126303126306_ - _g126304126308_))))) + (cons _g126565126568_ + _g126566126570_))))) (declare (not safe)) - (foldr1 __tmp128835 + (foldr1 __tmp129097 '() - _L126283_)) - (let ((__tmp128836 - (lambda (_g126310126313_ - _g126311126315_) + _L126545_)) + (let ((__tmp129098 + (lambda (_g126572126575_ + _g126573126577_) (let () (declare (not safe)) - (cons _g126310126313_ - _g126311126315_))))) + (cons _g126572126575_ + _g126573126577_))))) (declare (not safe)) - (foldr1 __tmp128836 + (foldr1 __tmp129098 '() - _L126282_))) + _L126544_))) (for-each gxc#compile-e - (let ((__tmp128837 - (lambda (_g126317126320_ - _g126318126322_) + (let ((__tmp129099 + (lambda (_g126579126582_ + _g126580126584_) (let () (declare (not safe)) - (cons _g126317126320_ - _g126318126322_))))) + (cons _g126579126582_ + _g126580126584_))))) (declare (not safe)) - (foldr1 __tmp128837 + (foldr1 __tmp129099 '() - _L126282_))) + _L126544_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L126281_))) - _hd126202126276_ - _expr126193126268_ - _hd126194126270_) + (gxc#compile-e__0 _L126543_))) + _hd126464126538_ + _expr126455126530_ + _hd126456126532_) (let () (declare (not safe)) - (_g126173126208_ _g126174126211_))))) + (_g126435126470_ _g126436126473_))))) (let () (declare (not safe)) - (_g126173126208_ _g126174126211_)))))))) + (_g126435126470_ _g126436126473_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop126187126234_ - _target126184126229_ + (_loop126449126496_ + _target126446126491_ '() '()))) (let () (declare (not safe)) - (_g126173126208_ - _g126174126211_)))))) + (_g126435126470_ + _g126436126473_)))))) (let () (declare (not safe)) - (_g126173126208_ _g126174126211_))))) + (_g126435126470_ _g126436126473_))))) (let () (declare (not safe)) - (_g126173126208_ _g126174126211_))))) + (_g126435126470_ _g126436126473_))))) (let () (declare (not safe)) - (_g126173126208_ _g126174126211_)))))) + (_g126435126470_ _g126436126473_)))))) (declare (not safe)) - (_g126172126325_ _stx126169_))))) + (_g126434126587_ _stx126431_))))) (define gxc#collect-type-call% - (lambda (_stx125661_) - (let* ((___stx126843126844_ _stx125661_) - (_g125665125780_ + (lambda (_stx125923_) + (let* ((___stx127105127106_ _stx125923_) + (_g125927126042_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126843126844_))))) - (let ((___kont126845126846_ - (lambda (_L126119_ _L126120_ _L126121_ _L126122_ _L126123_) - (let ((__tmp128843 + ___stx127105127106_))))) + (let ((___kont127107127108_ + (lambda (_L126381_ _L126382_ _L126383_ _L126384_ _L126385_) + (let ((__tmp129105 (let () (declare (not safe)) - (gxc#identifier-symbol _L126122_))) - (__tmp128842 - (let () (declare (not safe)) (gx#stx-e _L126121_))) - (__tmp128841 + (gxc#identifier-symbol _L126384_))) + (__tmp129104 + (let () (declare (not safe)) (gx#stx-e _L126383_))) + (__tmp129103 (let () (declare (not safe)) - (gxc#identifier-symbol _L126120_))) - (__tmp128840 - (let () (declare (not safe)) (gx#stx-e _L126119_)))) + (gxc#identifier-symbol _L126382_))) + (__tmp129102 + (let () (declare (not safe)) (gx#stx-e _L126381_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp128843 - __tmp128842 - __tmp128841 - __tmp128840)))) - (___kont126847126848_ - (lambda (_L125947_ _L125948_ _L125949_ _L125950_) - (let ((__tmp128846 + __tmp129105 + __tmp129104 + __tmp129103 + __tmp129102)))) + (___kont127109127110_ + (lambda (_L126209_ _L126210_ _L126211_ _L126212_) + (let ((__tmp129108 (let () (declare (not safe)) - (gxc#identifier-symbol _L125949_))) - (__tmp128845 - (let () (declare (not safe)) (gx#stx-e _L125948_))) - (__tmp128844 + (gxc#identifier-symbol _L126211_))) + (__tmp129107 + (let () (declare (not safe)) (gx#stx-e _L126210_))) + (__tmp129106 (let () (declare (not safe)) - (gxc#identifier-symbol _L125947_)))) + (gxc#identifier-symbol _L126209_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp128846 - __tmp128845 - __tmp128844 + __tmp129108 + __tmp129107 + __tmp129106 '#f)))) - (___kont126849126850_ - (lambda (_L125817_) + (___kont127111127112_ + (lambda (_L126079_) (for-each gxc#compile-e - (let ((__tmp128847 - (lambda (_g125830125833_ _g125831125835_) + (let ((__tmp129109 + (lambda (_g126092126095_ _g126093126097_) (let () (declare (not safe)) - (cons _g125830125833_ _g125831125835_))))) + (cons _g126092126095_ _g126093126097_))))) (declare (not safe)) - (foldr1 __tmp128847 '() _L125817_)))))) - (let* ((___match127100127101_ - (lambda (_e125766125785_ - _hd125765125788_ - _tl125764125790_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) - (letrec ((_loop125770125798_ - (lambda (_hd125768125801_ _expr125774125803_) + (foldr1 __tmp129109 '() _L126079_)))))) + (let* ((___match127362127363_ + (lambda (_e126028126047_ + _hd126027126050_ + _tl126026126052_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) + (letrec ((_loop126032126060_ + (lambda (_hd126030126063_ _expr126036126065_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125768125801_)) - (let ((_e125771125806_ + (gx#stx-pair? _hd126030126063_)) + (let ((_e126033126068_ (let () (declare (not safe)) - (gx#stx-e _hd125768125801_)))) - (let ((_lp-tl125773125811_ + (gx#stx-e _hd126030126063_)))) + (let ((_lp-tl126035126073_ (let () (declare (not safe)) - (##cdr _e125771125806_))) - (_lp-hd125772125809_ + (##cdr _e126033126068_))) + (_lp-hd126034126071_ (let () (declare (not safe)) - (##car _e125771125806_)))) - (let ((__tmp128848 + (##car _e126033126068_)))) + (let ((__tmp129110 (let () (declare (not safe)) - (cons _lp-hd125772125809_ - _expr125774125803_)))) + (cons _lp-hd126034126071_ + _expr126036126065_)))) (declare (not safe)) - (_loop125770125798_ - _lp-tl125773125811_ - __tmp128848)))) - (let ((_expr125775125814_ - (reverse _expr125774125803_))) - (___kont126849126850_ - _expr125775125814_)))))) + (_loop126032126060_ + _lp-tl126035126073_ + __tmp129110)))) + (let ((_expr126037126076_ + (reverse _expr126036126065_))) + (___kont127111127112_ + _expr126037126076_)))))) (let () (declare (not safe)) - (_loop125770125798_ _target125767125793_ '()))))) - (___match126980126981_ - (lambda (_e125674125991_ - _hd125673125994_ - _tl125672125996_ - _e125677125999_ - _hd125676126002_ - _tl125675126004_ - _e125680126007_ - _hd125679126010_ - _tl125678126012_ - _e125683126015_ - _hd125682126018_ - _tl125681126020_ - _e125686126023_ - _hd125685126026_ - _tl125684126028_ - _e125689126031_ - _hd125688126034_ - _tl125687126036_ - _e125692126039_ - _hd125691126042_ - _tl125690126044_ - _e125695126047_ - _hd125694126050_ - _tl125693126052_ - _e125698126055_ - _hd125697126058_ - _tl125696126060_ - _e125701126063_ - _hd125700126066_ - _tl125699126068_ - _e125704126071_ - _hd125703126074_ - _tl125702126076_ - _e125707126079_ - _hd125706126082_ - _tl125705126084_ - _e125710126087_ - _hd125709126090_ - _tl125708126092_ - _e125713126095_ - _hd125712126098_ - _tl125711126100_ - _e125716126103_ - _hd125715126106_ - _tl125714126108_ - _e125719126111_ - _hd125718126114_ - _tl125717126116_) - (let ((_L126119_ _hd125718126114_) - (_L126120_ _hd125709126090_) - (_L126121_ _hd125700126066_) - (_L126122_ _hd125691126042_) - (_L126123_ _hd125682126018_)) + (_loop126032126060_ _target126029126055_ '()))))) + (___match127242127243_ + (lambda (_e125936126253_ + _hd125935126256_ + _tl125934126258_ + _e125939126261_ + _hd125938126264_ + _tl125937126266_ + _e125942126269_ + _hd125941126272_ + _tl125940126274_ + _e125945126277_ + _hd125944126280_ + _tl125943126282_ + _e125948126285_ + _hd125947126288_ + _tl125946126290_ + _e125951126293_ + _hd125950126296_ + _tl125949126298_ + _e125954126301_ + _hd125953126304_ + _tl125952126306_ + _e125957126309_ + _hd125956126312_ + _tl125955126314_ + _e125960126317_ + _hd125959126320_ + _tl125958126322_ + _e125963126325_ + _hd125962126328_ + _tl125961126330_ + _e125966126333_ + _hd125965126336_ + _tl125964126338_ + _e125969126341_ + _hd125968126344_ + _tl125967126346_ + _e125972126349_ + _hd125971126352_ + _tl125970126354_ + _e125975126357_ + _hd125974126360_ + _tl125973126362_ + _e125978126365_ + _hd125977126368_ + _tl125976126370_ + _e125981126373_ + _hd125980126376_ + _tl125979126378_) + (let ((_L126381_ _hd125980126376_) + (_L126382_ _hd125971126352_) + (_L126383_ _hd125962126328_) + (_L126384_ _hd125953126304_) + (_L126385_ _hd125944126280_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L126123_ + _L126385_ 'bind-method!)) - (___kont126845126846_ - _L126119_ - _L126120_ - _L126121_ - _L126122_ - _L126123_) + (___kont127107127108_ + _L126381_ + _L126382_ + _L126383_ + _L126384_ + _L126385_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))))) + (_g125927126042_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126843126844_)) - (let ((_e125674125991_ + (gx#stx-pair? ___stx127105127106_)) + (let ((_e125936126253_ (let () (declare (not safe)) - (gx#stx-e ___stx126843126844_)))) - (let ((_tl125672125996_ + (gx#stx-e ___stx127105127106_)))) + (let ((_tl125934126258_ (let () (declare (not safe)) - (##cdr _e125674125991_))) - (_hd125673125994_ + (##cdr _e125936126253_))) + (_hd125935126256_ (let () (declare (not safe)) - (##car _e125674125991_)))) + (##car _e125936126253_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125672125996_)) - (let ((_e125677125999_ + (gx#stx-pair? _tl125934126258_)) + (let ((_e125939126261_ (let () (declare (not safe)) - (gx#stx-e _tl125672125996_)))) - (let ((_tl125675126004_ + (gx#stx-e _tl125934126258_)))) + (let ((_tl125937126266_ (let () (declare (not safe)) - (##cdr _e125677125999_))) - (_hd125676126002_ + (##cdr _e125939126261_))) + (_hd125938126264_ (let () (declare (not safe)) - (##car _e125677125999_)))) + (##car _e125939126261_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125676126002_)) - (let ((_e125680126007_ + (gx#stx-pair? _hd125938126264_)) + (let ((_e125942126269_ (let () (declare (not safe)) - (gx#stx-e _hd125676126002_)))) - (let ((_tl125678126012_ + (gx#stx-e _hd125938126264_)))) + (let ((_tl125940126274_ (let () (declare (not safe)) - (##cdr _e125680126007_))) - (_hd125679126010_ + (##cdr _e125942126269_))) + (_hd125941126272_ (let () (declare (not safe)) - (##car _e125680126007_)))) + (##car _e125942126269_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125679126010_)) + (gx#identifier? _hd125941126272_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125679126010_)) + _hd125941126272_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125678126012_)) - (let ((_e125683126015_ + _tl125940126274_)) + (let ((_e125945126277_ (let () (declare (not safe)) (gx#stx-e - _tl125678126012_)))) - (let ((_tl125681126020_ + _tl125940126274_)))) + (let ((_tl125943126282_ (let () (declare (not safe)) - (##cdr _e125683126015_))) - (_hd125682126018_ + (##cdr _e125945126277_))) + (_hd125944126280_ (let () (declare (not safe)) - (##car _e125683126015_)))) + (##car _e125945126277_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125681126020_)) + _tl125943126282_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl125675126004_)) - (let ((_e125686126023_ + (gx#stx-pair? _tl125937126266_)) + (let ((_e125948126285_ (let () (declare (not safe)) - (gx#stx-e _tl125675126004_)))) - (let ((_tl125684126028_ + (gx#stx-e _tl125937126266_)))) + (let ((_tl125946126290_ (let () (declare (not safe)) - (##cdr _e125686126023_))) - (_hd125685126026_ + (##cdr _e125948126285_))) + (_hd125947126288_ (let () (declare (not safe)) - (##car _e125686126023_)))) + (##car _e125948126285_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125685126026_)) - (let ((_e125689126031_ + (gx#stx-pair? _hd125947126288_)) + (let ((_e125951126293_ (let () (declare (not safe)) - (gx#stx-e _hd125685126026_)))) - (let ((_tl125687126036_ + (gx#stx-e _hd125947126288_)))) + (let ((_tl125949126298_ (let () (declare (not safe)) - (##cdr _e125689126031_))) - (_hd125688126034_ + (##cdr _e125951126293_))) + (_hd125950126296_ (let () (declare (not safe)) - (##car _e125689126031_)))) + (##car _e125951126293_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125688126034_)) + (gx#identifier? _hd125950126296_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125688126034_)) + _hd125950126296_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125687126036_)) - (let ((_e125692126039_ + _tl125949126298_)) + (let ((_e125954126301_ (let () (declare (not safe)) (gx#stx-e - _tl125687126036_)))) - (let ((_tl125690126044_ + _tl125949126298_)))) + (let ((_tl125952126306_ (let () (declare (not safe)) - (##cdr _e125692126039_))) - (_hd125691126042_ + (##cdr _e125954126301_))) + (_hd125953126304_ (let () (declare (not safe)) - (##car _e125692126039_)))) + (##car _e125954126301_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125690126044_)) + _tl125952126306_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125684126028_)) - (let ((_e125695126047_ + _tl125946126290_)) + (let ((_e125957126309_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl125684126028_)))) - (let ((_tl125693126052_ + (gx#stx-e _tl125946126290_)))) + (let ((_tl125955126314_ (let () (declare (not safe)) - (##cdr _e125695126047_))) - (_hd125694126050_ + (##cdr _e125957126309_))) + (_hd125956126312_ (let () (declare (not safe)) - (##car _e125695126047_)))) + (##car _e125957126309_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125694126050_)) - (let ((_e125698126055_ + (gx#stx-pair? _hd125956126312_)) + (let ((_e125960126317_ (let () (declare (not safe)) - (gx#stx-e _hd125694126050_)))) - (let ((_tl125696126060_ + (gx#stx-e _hd125956126312_)))) + (let ((_tl125958126322_ (let () (declare (not safe)) - (##cdr _e125698126055_))) - (_hd125697126058_ + (##cdr _e125960126317_))) + (_hd125959126320_ (let () (declare (not safe)) - (##car _e125698126055_)))) + (##car _e125960126317_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125697126058_)) + (gx#identifier? _hd125959126320_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd125697126058_)) + (gx#stx-eq? '%#quote _hd125959126320_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125696126060_)) - (let ((_e125701126063_ + (gx#stx-pair? _tl125958126322_)) + (let ((_e125963126325_ (let () (declare (not safe)) (gx#stx-e - _tl125696126060_)))) - (let ((_tl125699126068_ + _tl125958126322_)))) + (let ((_tl125961126330_ (let () (declare (not safe)) - (##cdr _e125701126063_))) - (_hd125700126066_ + (##cdr _e125963126325_))) + (_hd125962126328_ (let () (declare (not safe)) - (##car _e125701126063_)))) + (##car _e125963126325_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125699126068_)) + _tl125961126330_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125693126052_)) - (let ((_e125704126071_ + _tl125955126314_)) + (let ((_e125966126333_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125693126052_)))) - (let ((_tl125702126076_ - (let () (declare (not safe)) (##cdr _e125704126071_))) - (_hd125703126074_ - (let () (declare (not safe)) (##car _e125704126071_)))) + (gx#stx-e _tl125955126314_)))) + (let ((_tl125964126338_ + (let () (declare (not safe)) (##cdr _e125966126333_))) + (_hd125965126336_ + (let () (declare (not safe)) (##car _e125966126333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125703126074_)) - (let ((_e125707126079_ + (gx#stx-pair? _hd125965126336_)) + (let ((_e125969126341_ (let () (declare (not safe)) - (gx#stx-e _hd125703126074_)))) - (let ((_tl125705126084_ + (gx#stx-e _hd125965126336_)))) + (let ((_tl125967126346_ (let () (declare (not safe)) - (##cdr _e125707126079_))) - (_hd125706126082_ + (##cdr _e125969126341_))) + (_hd125968126344_ (let () (declare (not safe)) - (##car _e125707126079_)))) + (##car _e125969126341_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125706126082_)) + (gx#identifier? _hd125968126344_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125706126082_)) + (gx#stx-eq? '%#ref _hd125968126344_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125705126084_)) - (let ((_e125710126087_ + (gx#stx-pair? _tl125967126346_)) + (let ((_e125972126349_ (let () (declare (not safe)) - (gx#stx-e _tl125705126084_)))) - (let ((_tl125708126092_ + (gx#stx-e _tl125967126346_)))) + (let ((_tl125970126354_ (let () (declare (not safe)) - (##cdr _e125710126087_))) - (_hd125709126090_ + (##cdr _e125972126349_))) + (_hd125971126352_ (let () (declare (not safe)) - (##car _e125710126087_)))) + (##car _e125972126349_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125708126092_)) + _tl125970126354_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125702126076_)) - (let ((_e125713126095_ + _tl125964126338_)) + (let ((_e125975126357_ (let () (declare (not safe)) (gx#stx-e - _tl125702126076_)))) - (let ((_tl125711126100_ + _tl125964126338_)))) + (let ((_tl125973126362_ (let () (declare (not safe)) - (##cdr _e125713126095_))) - (_hd125712126098_ + (##cdr _e125975126357_))) + (_hd125974126360_ (let () (declare (not safe)) - (##car _e125713126095_)))) + (##car _e125975126357_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd125712126098_)) - (let ((_e125716126103_ + _hd125974126360_)) + (let ((_e125978126365_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd125712126098_)))) - (let ((_tl125714126108_ + (gx#stx-e _hd125974126360_)))) + (let ((_tl125976126370_ (let () (declare (not safe)) - (##cdr _e125716126103_))) - (_hd125715126106_ + (##cdr _e125978126365_))) + (_hd125977126368_ (let () (declare (not safe)) - (##car _e125716126103_)))) + (##car _e125978126365_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125715126106_)) + (gx#identifier? _hd125977126368_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd125715126106_)) + (gx#stx-eq? '%#quote _hd125977126368_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125714126108_)) - (let ((_e125719126111_ + (gx#stx-pair? _tl125976126370_)) + (let ((_e125981126373_ (let () (declare (not safe)) - (gx#stx-e _tl125714126108_)))) - (let ((_tl125717126116_ + (gx#stx-e _tl125976126370_)))) + (let ((_tl125979126378_ (let () (declare (not safe)) - (##cdr _e125719126111_))) - (_hd125718126114_ + (##cdr _e125981126373_))) + (_hd125980126376_ (let () (declare (not safe)) - (##car _e125719126111_)))) + (##car _e125981126373_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125717126116_)) + (gx#stx-null? _tl125979126378_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl125711126100_)) - (___match126980126981_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - _e125677125999_ - _hd125676126002_ - _tl125675126004_ - _e125680126007_ - _hd125679126010_ - _tl125678126012_ - _e125683126015_ - _hd125682126018_ - _tl125681126020_ - _e125686126023_ - _hd125685126026_ - _tl125684126028_ - _e125689126031_ - _hd125688126034_ - _tl125687126036_ - _e125692126039_ - _hd125691126042_ - _tl125690126044_ - _e125695126047_ - _hd125694126050_ - _tl125693126052_ - _e125698126055_ - _hd125697126058_ - _tl125696126060_ - _e125701126063_ - _hd125700126066_ - _tl125699126068_ - _e125704126071_ - _hd125703126074_ - _tl125702126076_ - _e125707126079_ - _hd125706126082_ - _tl125705126084_ - _e125710126087_ - _hd125709126090_ - _tl125708126092_ - _e125713126095_ - _hd125712126098_ - _tl125711126100_ - _e125716126103_ - _hd125715126106_ - _tl125714126108_ - _e125719126111_ - _hd125718126114_ - _tl125717126116_) + _tl125973126362_)) + (___match127242127243_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + _e125939126261_ + _hd125938126264_ + _tl125937126266_ + _e125942126269_ + _hd125941126272_ + _tl125940126274_ + _e125945126277_ + _hd125944126280_ + _tl125943126282_ + _e125948126285_ + _hd125947126288_ + _tl125946126290_ + _e125951126293_ + _hd125950126296_ + _tl125949126298_ + _e125954126301_ + _hd125953126304_ + _tl125952126306_ + _e125957126309_ + _hd125956126312_ + _tl125955126314_ + _e125960126317_ + _hd125959126320_ + _tl125958126322_ + _e125963126325_ + _hd125962126328_ + _tl125961126330_ + _e125966126333_ + _hd125965126336_ + _tl125964126338_ + _e125969126341_ + _hd125968126344_ + _tl125967126346_ + _e125972126349_ + _hd125971126352_ + _tl125970126354_ + _e125975126357_ + _hd125974126360_ + _tl125973126362_ + _e125978126365_ + _hd125977126368_ + _tl125976126370_ + _e125981126373_ + _hd125980126376_ + _tl125979126378_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))))) + (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl125702126076_)) - (if (let ((__tmp128849 + _tl125964126338_)) + (if (let ((__tmp129111 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp128849 'bind-method!)) - (let ((_L125947_ _hd125709126090_) - (_L125948_ _hd125700126066_) - (_L125949_ _hd125691126042_) - (_L125950_ _hd125682126018_)) - (___kont126847126848_ - _L125947_ - _L125948_ - _L125949_ - _L125950_)) + (gxc#runtime-identifier=? __tmp129111 'bind-method!)) + (let ((_L126209_ _hd125971126352_) + (_L126210_ _hd125962126328_) + (_L126211_ _hd125953126304_) + (_L126212_ _hd125944126280_)) + (___kont127109127110_ + _L126209_ + _L126210_ + _L126211_ + _L126212_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))) + (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) - (let () (declare (not safe)) (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_))))) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) + (let () (declare (not safe)) (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))))) + (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) - (let () (declare (not safe)) (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) + (let () (declare (not safe)) (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) - (let () (declare (not safe)) (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))))) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) + (let () (declare (not safe)) (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))) + (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) - (let () (declare (not safe)) (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))))) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) + (let () (declare (not safe)) (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))) + (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))))) + (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl125672125996_ '0)))) - (let ((_tl125769125795_ + (gx#syntax-split-splice _tl125934126258_ '0)))) + (let ((_tl126031126057_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '1))) - (_target125767125793_ + (##vector-ref ___splice127113127114_ '1))) + (_target126029126055_ (let () (declare (not safe)) - (##vector-ref ___splice126851126852_ '0)))) + (##vector-ref ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) - (let () (declare (not safe)) (_g125665125780_))))) - (let () (declare (not safe)) (_g125665125780_)))) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) + (let () (declare (not safe)) (_g125927126042_))))) + (let () (declare (not safe)) (_g125927126042_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))) + (_g125927126042_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125672125996_)) - (let ((___splice126851126852_ + _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) + (_g125927126042_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125672125996_)) - (let ((___splice126851126852_ + (gx#stx-pair/null? _tl125934126258_)) + (let ((___splice127113127114_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125672125996_ + _tl125934126258_ '0)))) - (let ((_tl125769125795_ + (let ((_tl126031126057_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '1))) - (_target125767125793_ + (_target126029126055_ (let () (declare (not safe)) (##vector-ref - ___splice126851126852_ + ___splice127113127114_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125769125795_)) - (___match127100127101_ - _e125674125991_ - _hd125673125994_ - _tl125672125996_ - ___splice126851126852_ - _target125767125793_ - _tl125769125795_) + (gx#stx-null? _tl126031126057_)) + (___match127362127363_ + _e125936126253_ + _hd125935126256_ + _tl125934126258_ + ___splice127113127114_ + _target126029126055_ + _tl126031126057_) (let () (declare (not safe)) - (_g125665125780_))))) + (_g125927126042_))))) (let () (declare (not safe)) - (_g125665125780_)))))) - (let () (declare (not safe)) (_g125665125780_)))))))) + (_g125927126042_)))))) + (let () (declare (not safe)) (_g125927126042_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_stx125601_) - (let* ((___stx127103127104_ _stx125601_) - (_g125604125617_ + (lambda (_stx125863_) + (let* ((___stx127365127366_ _stx125863_) + (_g125866125879_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127103127104_))))) - (let ((___kont127105127106_ - (lambda (_L125645_) - (let () (declare (not safe)) (gxc#compile-e__0 _L125645_)))) - (___kont127107127108_ (lambda () '#f))) + ___stx127365127366_))))) + (let ((___kont127367127368_ + (lambda (_L125907_) + (let () (declare (not safe)) (gxc#compile-e__0 _L125907_)))) + (___kont127369127370_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127103127104_)) - (let ((_e125609125629_ + (gx#stx-pair? ___stx127365127366_)) + (let ((_e125871125891_ (let () (declare (not safe)) - (gx#stx-e ___stx127103127104_)))) - (let ((_tl125607125634_ - (let () (declare (not safe)) (##cdr _e125609125629_))) - (_hd125608125632_ + (gx#stx-e ___stx127365127366_)))) + (let ((_tl125869125896_ + (let () (declare (not safe)) (##cdr _e125871125891_))) + (_hd125870125894_ (let () (declare (not safe)) - (##car _e125609125629_)))) + (##car _e125871125891_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125607125634_)) - (let ((_e125612125637_ + (gx#stx-pair? _tl125869125896_)) + (let ((_e125874125899_ (let () (declare (not safe)) - (gx#stx-e _tl125607125634_)))) - (let ((_tl125610125642_ + (gx#stx-e _tl125869125896_)))) + (let ((_tl125872125904_ (let () (declare (not safe)) - (##cdr _e125612125637_))) - (_hd125611125640_ + (##cdr _e125874125899_))) + (_hd125873125902_ (let () (declare (not safe)) - (##car _e125612125637_)))) + (##car _e125874125899_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125610125642_)) - (___kont127105127106_ _hd125611125640_) - (___kont127107127108_)))) - (___kont127107127108_)))) - (___kont127107127108_)))))) + (gx#stx-null? _tl125872125904_)) + (___kont127367127368_ _hd125873125902_) + (___kont127369127370_)))) + (___kont127369127370_)))) + (___kont127369127370_)))))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_stx125481_) - (let* ((_g125483125500_ - (lambda (_g125484125497_) + (lambda (_stx125743_) + (let* ((_g125745125762_ + (lambda (_g125746125759_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125484125497_)))) - (_g125482125598_ - (lambda (_g125484125503_) + _g125746125759_)))) + (_g125744125860_ + (lambda (_g125746125765_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125484125503_)) - (let ((_e125489125505_ + (gx#stx-pair? _g125746125765_)) + (let ((_e125751125767_ (let () (declare (not safe)) - (gx#stx-e _g125484125503_)))) - (let ((_hd125488125508_ + (gx#stx-e _g125746125765_)))) + (let ((_hd125750125770_ (let () (declare (not safe)) - (##car _e125489125505_))) - (_tl125487125510_ + (##car _e125751125767_))) + (_tl125749125772_ (let () (declare (not safe)) - (##cdr _e125489125505_)))) + (##cdr _e125751125767_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125487125510_)) - (let ((_e125492125513_ + (gx#stx-pair? _tl125749125772_)) + (let ((_e125754125775_ (let () (declare (not safe)) - (gx#stx-e _tl125487125510_)))) - (let ((_hd125491125516_ + (gx#stx-e _tl125749125772_)))) + (let ((_hd125753125778_ (let () (declare (not safe)) - (##car _e125492125513_))) - (_tl125490125518_ + (##car _e125754125775_))) + (_tl125752125780_ (let () (declare (not safe)) - (##cdr _e125492125513_)))) + (##cdr _e125754125775_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125490125518_)) - (let ((_e125495125521_ + (gx#stx-pair? _tl125752125780_)) + (let ((_e125757125783_ (let () (declare (not safe)) - (gx#stx-e _tl125490125518_)))) - (let ((_hd125494125524_ + (gx#stx-e _tl125752125780_)))) + (let ((_hd125756125786_ (let () (declare (not safe)) - (##car _e125495125521_))) - (_tl125493125526_ + (##car _e125757125783_))) + (_tl125755125788_ (let () (declare (not safe)) - (##cdr _e125495125521_)))) + (##cdr _e125757125783_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125493125526_)) - ((lambda (_L125529_ _L125530_) - (let* ((___stx127125127126_ - _L125530_) - (_g125546125557_ + _tl125755125788_)) + ((lambda (_L125791_ _L125792_) + (let* ((___stx127387127388_ + _L125792_) + (_g125808125819_ (lambda () (let () (declare @@ -2905,272 +2905,272 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127125127126_))))) - (let ((___kont127127127128_ - (lambda (_L125577_ + ___stx127387127388_))))) + (let ((___kont127389127390_ + (lambda (_L125839_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L125578_) - (let ((_$e125590_ - (let ((__tmp128850 + _L125840_) + (let ((_$e125852_ + (let ((__tmp129112 (let () (declare (not safe)) - (gx#stx-e _L125578_)))) + (gx#stx-e _L125840_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-annotations - __tmp128850)))) - (if _$e125590_ - ((lambda (_type-e125593_) - (_type-e125593_ _stx125481_ _L125530_)) - _$e125590_) + __tmp129112)))) + (if _$e125852_ + ((lambda (_type-e125855_) + (_type-e125855_ _stx125743_ _L125792_)) + _$e125852_) (let () (declare (not safe)) - (gxc#compile-e__0 _L125529_)))))) - (___kont127129127130_ + (gxc#compile-e__0 _L125791_)))))) + (___kont127391127392_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__0 _L125529_))))) + (gxc#compile-e__0 _L125791_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match127136127137_ - (lambda (_e125552125569_ + (let ((___match127398127399_ + (lambda (_e125814125831_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd125551125572_ - _tl125550125574_) - (let ((_L125577_ _tl125550125574_) - (_L125578_ _hd125551125572_)) + _hd125813125834_ + _tl125812125836_) + (let ((_L125839_ _tl125812125836_) + (_L125840_ _hd125813125834_)) (if (let () (declare (not safe)) - (gx#identifier? _L125578_)) - (___kont127127127128_ _L125577_ _L125578_) - (___kont127129127130_)))))) + (gx#identifier? _L125840_)) + (___kont127389127390_ _L125839_ _L125840_) + (___kont127391127392_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127125127126_)) - (let ((_e125552125569_ + (gx#stx-pair? ___stx127387127388_)) + (let ((_e125814125831_ (let () (declare (not safe)) - (gx#stx-e ___stx127125127126_)))) - (let ((_tl125550125574_ + (gx#stx-e ___stx127387127388_)))) + (let ((_tl125812125836_ (let () (declare (not safe)) - (##cdr _e125552125569_))) - (_hd125551125572_ + (##cdr _e125814125831_))) + (_hd125813125834_ (let () (declare (not safe)) - (##car _e125552125569_)))) - (___match127136127137_ - _e125552125569_ - _hd125551125572_ - _tl125550125574_))) - (___kont127129127130_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd125494125524_ - _hd125491125516_) + (##car _e125814125831_)))) + (___match127398127399_ + _e125814125831_ + _hd125813125834_ + _tl125812125836_))) + (___kont127391127392_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd125756125786_ + _hd125753125778_) (let () (declare (not safe)) - (_g125483125500_ - _g125484125503_))))) + (_g125745125762_ + _g125746125765_))))) (let () (declare (not safe)) - (_g125483125500_ _g125484125503_))))) + (_g125745125762_ _g125746125765_))))) (let () (declare (not safe)) - (_g125483125500_ _g125484125503_))))) + (_g125745125762_ _g125746125765_))))) (let () (declare (not safe)) - (_g125483125500_ _g125484125503_)))))) + (_g125745125762_ _g125746125765_)))))) (declare (not safe)) - (_g125482125598_ _stx125481_)))) + (_g125744125860_ _stx125743_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx125325_ _ann125326_) - (let* ((_g125328125365_ - (lambda (_g125329125362_) + (lambda (_stx125587_ _ann125588_) + (let* ((_g125590125627_ + (lambda (_g125591125624_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125329125362_)))) - (_g125327125478_ - (lambda (_g125329125368_) + _g125591125624_)))) + (_g125589125740_ + (lambda (_g125591125630_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125329125368_)) - (let ((_e125339125370_ + (gx#stx-pair? _g125591125630_)) + (let ((_e125601125632_ (let () (declare (not safe)) - (gx#stx-e _g125329125368_)))) - (let ((_hd125338125373_ + (gx#stx-e _g125591125630_)))) + (let ((_hd125600125635_ (let () (declare (not safe)) - (##car _e125339125370_))) - (_tl125337125375_ + (##car _e125601125632_))) + (_tl125599125637_ (let () (declare (not safe)) - (##cdr _e125339125370_)))) + (##cdr _e125601125632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125337125375_)) - (let ((_e125342125378_ + (gx#stx-pair? _tl125599125637_)) + (let ((_e125604125640_ (let () (declare (not safe)) - (gx#stx-e _tl125337125375_)))) - (let ((_hd125341125381_ + (gx#stx-e _tl125599125637_)))) + (let ((_hd125603125643_ (let () (declare (not safe)) - (##car _e125342125378_))) - (_tl125340125383_ + (##car _e125604125640_))) + (_tl125602125645_ (let () (declare (not safe)) - (##cdr _e125342125378_)))) + (##cdr _e125604125640_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125340125383_)) - (let ((_e125345125386_ + (gx#stx-pair? _tl125602125645_)) + (let ((_e125607125648_ (let () (declare (not safe)) - (gx#stx-e _tl125340125383_)))) - (let ((_hd125344125389_ + (gx#stx-e _tl125602125645_)))) + (let ((_hd125606125651_ (let () (declare (not safe)) - (##car _e125345125386_))) - (_tl125343125391_ + (##car _e125607125648_))) + (_tl125605125653_ (let () (declare (not safe)) - (##cdr _e125345125386_)))) + (##cdr _e125607125648_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125343125391_)) - (let ((_e125348125394_ + _tl125605125653_)) + (let ((_e125610125656_ (let () (declare (not safe)) (gx#stx-e - _tl125343125391_)))) - (let ((_hd125347125397_ + _tl125605125653_)))) + (let ((_hd125609125659_ (let () (declare (not safe)) - (##car _e125348125394_))) - (_tl125346125399_ + (##car _e125610125656_))) + (_tl125608125661_ (let () (declare (not safe)) - (##cdr _e125348125394_)))) + (##cdr _e125610125656_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125346125399_)) - (let ((_e125351125402_ + _tl125608125661_)) + (let ((_e125613125664_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125346125399_)))) - (let ((_hd125350125405_ - (let () (declare (not safe)) (##car _e125351125402_))) - (_tl125349125407_ - (let () (declare (not safe)) (##cdr _e125351125402_)))) + (gx#stx-e _tl125608125661_)))) + (let ((_hd125612125667_ + (let () (declare (not safe)) (##car _e125613125664_))) + (_tl125611125669_ + (let () (declare (not safe)) (##cdr _e125613125664_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125349125407_)) - (let ((_e125354125410_ + (gx#stx-pair? _tl125611125669_)) + (let ((_e125616125672_ (let () (declare (not safe)) - (gx#stx-e _tl125349125407_)))) - (let ((_hd125353125413_ + (gx#stx-e _tl125611125669_)))) + (let ((_hd125615125675_ (let () (declare (not safe)) - (##car _e125354125410_))) - (_tl125352125415_ + (##car _e125616125672_))) + (_tl125614125677_ (let () (declare (not safe)) - (##cdr _e125354125410_)))) + (##cdr _e125616125672_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125352125415_)) - (let ((_e125357125418_ + (gx#stx-pair? _tl125614125677_)) + (let ((_e125619125680_ (let () (declare (not safe)) - (gx#stx-e _tl125352125415_)))) - (let ((_hd125356125421_ + (gx#stx-e _tl125614125677_)))) + (let ((_hd125618125683_ (let () (declare (not safe)) - (##car _e125357125418_))) - (_tl125355125423_ + (##car _e125619125680_))) + (_tl125617125685_ (let () (declare (not safe)) - (##cdr _e125357125418_)))) + (##cdr _e125619125680_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125355125423_)) - (let ((_e125360125426_ + (gx#stx-pair? _tl125617125685_)) + (let ((_e125622125688_ (let () (declare (not safe)) - (gx#stx-e _tl125355125423_)))) - (let ((_hd125359125429_ + (gx#stx-e _tl125617125685_)))) + (let ((_hd125621125691_ (let () (declare (not safe)) - (##car _e125360125426_))) - (_tl125358125431_ + (##car _e125622125688_))) + (_tl125620125693_ (let () (declare (not safe)) - (##cdr _e125360125426_)))) + (##cdr _e125622125688_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125358125431_)) - ((lambda (_L125434_ - _L125435_ - _L125436_ - _L125437_ - _L125438_ - _L125439_ - _L125440_) - (let ((_type-id125470_ + _tl125620125693_)) + ((lambda (_L125696_ + _L125697_ + _L125698_ + _L125699_ + _L125700_ + _L125701_ + _L125702_) + (let ((_type-id125732_ (let () (declare (not safe)) (gx#stx-e - _L125440_))) - (_super125471_ + _L125702_))) + (_super125733_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _L125439_))) - (_slots125472_ + _L125701_))) + (_slots125734_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _L125438_))) - (_ctor-method125473_ + _L125700_))) + (_ctor-method125735_ (let () (declare (not safe)) (gx#stx-e - _L125437_))) - (_struct?125474_ + _L125699_))) + (_struct?125736_ (let () (declare (not safe)) (gx#stx-e - _L125436_))) - (_final?125475_ + _L125698_))) + (_final?125737_ (let () (declare (not safe)) (gx#stx-e - _L125435_))) - (_metaclass125476_ + _L125697_))) + (_metaclass125738_ (if (let () (declare (not safe)) (gx#stx-e - _L125434_)) + _L125696_)) (let () (declare (not safe)) (gxc#identifier-symbol - _L125434_)) + _L125696_)) '#f))) - (let ((__obj128808 + (let ((__obj129070 (let () (declare (not safe)) @@ -3187,424 +3187,424 @@ '#f '#f)))) (gxc#!class:::init! - __obj128808 - _type-id125470_ - _super125471_ - _slots125472_ - _ctor-method125473_ - _struct?125474_ - _final?125475_ - _metaclass125476_) - __obj128808))) - _hd125359125429_ - _hd125356125421_ - _hd125353125413_ - _hd125350125405_ - _hd125347125397_ - _hd125344125389_ - _hd125341125381_) + __obj129070 + _type-id125732_ + _super125733_ + _slots125734_ + _ctor-method125735_ + _struct?125736_ + _final?125737_ + _metaclass125738_) + __obj129070))) + _hd125621125691_ + _hd125618125683_ + _hd125615125675_ + _hd125612125667_ + _hd125609125659_ + _hd125606125651_ + _hd125603125643_) (let () (declare (not safe)) - (_g125328125365_ - _g125329125368_))))) + (_g125590125627_ + _g125591125630_))))) (let () (declare (not safe)) - (_g125328125365_ _g125329125368_))))) + (_g125590125627_ _g125591125630_))))) (let () (declare (not safe)) - (_g125328125365_ _g125329125368_))))) + (_g125590125627_ _g125591125630_))))) (let () (declare (not safe)) - (_g125328125365_ _g125329125368_))))) + (_g125590125627_ _g125591125630_))))) (let () (declare (not safe)) - (_g125328125365_ _g125329125368_))))) + (_g125590125627_ _g125591125630_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125328125365_ - _g125329125368_))))) + (_g125590125627_ + _g125591125630_))))) (let () (declare (not safe)) - (_g125328125365_ _g125329125368_))))) + (_g125590125627_ _g125591125630_))))) (let () (declare (not safe)) - (_g125328125365_ _g125329125368_))))) + (_g125590125627_ _g125591125630_))))) (let () (declare (not safe)) - (_g125328125365_ _g125329125368_)))))) + (_g125590125627_ _g125591125630_)))))) (declare (not safe)) - (_g125327125478_ _ann125326_)))) + (_g125589125740_ _ann125588_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx125273_ _ann125274_) - (let* ((_g125276125289_ - (lambda (_g125277125286_) + (lambda (_stx125535_ _ann125536_) + (let* ((_g125538125551_ + (lambda (_g125539125548_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125277125286_)))) - (_g125275125322_ - (lambda (_g125277125292_) + _g125539125548_)))) + (_g125537125584_ + (lambda (_g125539125554_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125277125292_)) - (let ((_e125281125294_ + (gx#stx-pair? _g125539125554_)) + (let ((_e125543125556_ (let () (declare (not safe)) - (gx#stx-e _g125277125292_)))) - (let ((_hd125280125297_ + (gx#stx-e _g125539125554_)))) + (let ((_hd125542125559_ (let () (declare (not safe)) - (##car _e125281125294_))) - (_tl125279125299_ + (##car _e125543125556_))) + (_tl125541125561_ (let () (declare (not safe)) - (##cdr _e125281125294_)))) + (##cdr _e125543125556_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125279125299_)) - (let ((_e125284125302_ + (gx#stx-pair? _tl125541125561_)) + (let ((_e125546125564_ (let () (declare (not safe)) - (gx#stx-e _tl125279125299_)))) - (let ((_hd125283125305_ + (gx#stx-e _tl125541125561_)))) + (let ((_hd125545125567_ (let () (declare (not safe)) - (##car _e125284125302_))) - (_tl125282125307_ + (##car _e125546125564_))) + (_tl125544125569_ (let () (declare (not safe)) - (##cdr _e125284125302_)))) + (##cdr _e125546125564_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125282125307_)) - ((lambda (_L125310_) - (let ((__tmp128851 + (gx#stx-null? _tl125544125569_)) + ((lambda (_L125572_) + (let ((__tmp129113 (let () (declare (not safe)) (gxc#identifier-symbol - _L125310_)))) + _L125572_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp128851))) - _hd125283125305_) + __tmp129113))) + _hd125545125567_) (let () (declare (not safe)) - (_g125276125289_ _g125277125292_))))) + (_g125538125551_ _g125539125554_))))) (let () (declare (not safe)) - (_g125276125289_ _g125277125292_))))) + (_g125538125551_ _g125539125554_))))) (let () (declare (not safe)) - (_g125276125289_ _g125277125292_)))))) + (_g125538125551_ _g125539125554_)))))) (declare (not safe)) - (_g125275125322_ _ann125274_)))) + (_g125537125584_ _ann125536_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx125221_ _ann125222_) - (let* ((_g125224125237_ - (lambda (_g125225125234_) + (lambda (_stx125483_ _ann125484_) + (let* ((_g125486125499_ + (lambda (_g125487125496_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125225125234_)))) - (_g125223125270_ - (lambda (_g125225125240_) + _g125487125496_)))) + (_g125485125532_ + (lambda (_g125487125502_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125225125240_)) - (let ((_e125229125242_ + (gx#stx-pair? _g125487125502_)) + (let ((_e125491125504_ (let () (declare (not safe)) - (gx#stx-e _g125225125240_)))) - (let ((_hd125228125245_ + (gx#stx-e _g125487125502_)))) + (let ((_hd125490125507_ (let () (declare (not safe)) - (##car _e125229125242_))) - (_tl125227125247_ + (##car _e125491125504_))) + (_tl125489125509_ (let () (declare (not safe)) - (##cdr _e125229125242_)))) + (##cdr _e125491125504_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125227125247_)) - (let ((_e125232125250_ + (gx#stx-pair? _tl125489125509_)) + (let ((_e125494125512_ (let () (declare (not safe)) - (gx#stx-e _tl125227125247_)))) - (let ((_hd125231125253_ + (gx#stx-e _tl125489125509_)))) + (let ((_hd125493125515_ (let () (declare (not safe)) - (##car _e125232125250_))) - (_tl125230125255_ + (##car _e125494125512_))) + (_tl125492125517_ (let () (declare (not safe)) - (##cdr _e125232125250_)))) + (##cdr _e125494125512_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125230125255_)) - ((lambda (_L125258_) - (let ((__tmp128852 + (gx#stx-null? _tl125492125517_)) + ((lambda (_L125520_) + (let ((__tmp129114 (let () (declare (not safe)) (gxc#identifier-symbol - _L125258_)))) + _L125520_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp128852))) - _hd125231125253_) + __tmp129114))) + _hd125493125515_) (let () (declare (not safe)) - (_g125224125237_ _g125225125240_))))) + (_g125486125499_ _g125487125502_))))) (let () (declare (not safe)) - (_g125224125237_ _g125225125240_))))) + (_g125486125499_ _g125487125502_))))) (let () (declare (not safe)) - (_g125224125237_ _g125225125240_)))))) + (_g125486125499_ _g125487125502_)))))) (declare (not safe)) - (_g125223125270_ _ann125222_)))) + (_g125485125532_ _ann125484_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx125137_ _ann125138_) - (let* ((_g125140125161_ - (lambda (_g125141125158_) + (lambda (_stx125399_ _ann125400_) + (let* ((_g125402125423_ + (lambda (_g125403125420_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125141125158_)))) - (_g125139125218_ - (lambda (_g125141125164_) + _g125403125420_)))) + (_g125401125480_ + (lambda (_g125403125426_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125141125164_)) - (let ((_e125147125166_ + (gx#stx-pair? _g125403125426_)) + (let ((_e125409125428_ (let () (declare (not safe)) - (gx#stx-e _g125141125164_)))) - (let ((_hd125146125169_ + (gx#stx-e _g125403125426_)))) + (let ((_hd125408125431_ (let () (declare (not safe)) - (##car _e125147125166_))) - (_tl125145125171_ + (##car _e125409125428_))) + (_tl125407125433_ (let () (declare (not safe)) - (##cdr _e125147125166_)))) + (##cdr _e125409125428_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125145125171_)) - (let ((_e125150125174_ + (gx#stx-pair? _tl125407125433_)) + (let ((_e125412125436_ (let () (declare (not safe)) - (gx#stx-e _tl125145125171_)))) - (let ((_hd125149125177_ + (gx#stx-e _tl125407125433_)))) + (let ((_hd125411125439_ (let () (declare (not safe)) - (##car _e125150125174_))) - (_tl125148125179_ + (##car _e125412125436_))) + (_tl125410125441_ (let () (declare (not safe)) - (##cdr _e125150125174_)))) + (##cdr _e125412125436_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125148125179_)) - (let ((_e125153125182_ + (gx#stx-pair? _tl125410125441_)) + (let ((_e125415125444_ (let () (declare (not safe)) - (gx#stx-e _tl125148125179_)))) - (let ((_hd125152125185_ + (gx#stx-e _tl125410125441_)))) + (let ((_hd125414125447_ (let () (declare (not safe)) - (##car _e125153125182_))) - (_tl125151125187_ + (##car _e125415125444_))) + (_tl125413125449_ (let () (declare (not safe)) - (##cdr _e125153125182_)))) + (##cdr _e125415125444_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125151125187_)) - (let ((_e125156125190_ + _tl125413125449_)) + (let ((_e125418125452_ (let () (declare (not safe)) (gx#stx-e - _tl125151125187_)))) - (let ((_hd125155125193_ + _tl125413125449_)))) + (let ((_hd125417125455_ (let () (declare (not safe)) - (##car _e125156125190_))) - (_tl125154125195_ + (##car _e125418125452_))) + (_tl125416125457_ (let () (declare (not safe)) - (##cdr _e125156125190_)))) + (##cdr _e125418125452_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125154125195_)) - ((lambda (_L125198_ - _L125199_ - _L125200_) - (let ((__tmp128855 + _tl125416125457_)) + ((lambda (_L125460_ + _L125461_ + _L125462_) + (let ((__tmp129117 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L125200_))) - (__tmp128854 - (let () (declare (not safe)) (gx#stx-e _L125199_))) - (__tmp128853 - (let () (declare (not safe)) (gx#stx-e _L125198_)))) + (gxc#identifier-symbol _L125462_))) + (__tmp129116 + (let () (declare (not safe)) (gx#stx-e _L125461_))) + (__tmp129115 + (let () (declare (not safe)) (gx#stx-e _L125460_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp128855 - __tmp128854 - __tmp128853))) - _hd125155125193_ - _hd125152125185_ - _hd125149125177_) + __tmp129117 + __tmp129116 + __tmp129115))) + _hd125417125455_ + _hd125414125447_ + _hd125411125439_) (let () (declare (not safe)) - (_g125140125161_ _g125141125164_))))) + (_g125402125423_ _g125403125426_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125140125161_ - _g125141125164_))))) + (_g125402125423_ + _g125403125426_))))) (let () (declare (not safe)) - (_g125140125161_ _g125141125164_))))) + (_g125402125423_ _g125403125426_))))) (let () (declare (not safe)) - (_g125140125161_ _g125141125164_))))) + (_g125402125423_ _g125403125426_))))) (let () (declare (not safe)) - (_g125140125161_ _g125141125164_)))))) + (_g125402125423_ _g125403125426_)))))) (declare (not safe)) - (_g125139125218_ _ann125138_)))) + (_g125401125480_ _ann125400_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx125053_ _ann125054_) - (let* ((_g125056125077_ - (lambda (_g125057125074_) + (lambda (_stx125315_ _ann125316_) + (let* ((_g125318125339_ + (lambda (_g125319125336_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125057125074_)))) - (_g125055125134_ - (lambda (_g125057125080_) + _g125319125336_)))) + (_g125317125396_ + (lambda (_g125319125342_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125057125080_)) - (let ((_e125063125082_ + (gx#stx-pair? _g125319125342_)) + (let ((_e125325125344_ (let () (declare (not safe)) - (gx#stx-e _g125057125080_)))) - (let ((_hd125062125085_ + (gx#stx-e _g125319125342_)))) + (let ((_hd125324125347_ (let () (declare (not safe)) - (##car _e125063125082_))) - (_tl125061125087_ + (##car _e125325125344_))) + (_tl125323125349_ (let () (declare (not safe)) - (##cdr _e125063125082_)))) + (##cdr _e125325125344_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125061125087_)) - (let ((_e125066125090_ + (gx#stx-pair? _tl125323125349_)) + (let ((_e125328125352_ (let () (declare (not safe)) - (gx#stx-e _tl125061125087_)))) - (let ((_hd125065125093_ + (gx#stx-e _tl125323125349_)))) + (let ((_hd125327125355_ (let () (declare (not safe)) - (##car _e125066125090_))) - (_tl125064125095_ + (##car _e125328125352_))) + (_tl125326125357_ (let () (declare (not safe)) - (##cdr _e125066125090_)))) + (##cdr _e125328125352_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125064125095_)) - (let ((_e125069125098_ + (gx#stx-pair? _tl125326125357_)) + (let ((_e125331125360_ (let () (declare (not safe)) - (gx#stx-e _tl125064125095_)))) - (let ((_hd125068125101_ + (gx#stx-e _tl125326125357_)))) + (let ((_hd125330125363_ (let () (declare (not safe)) - (##car _e125069125098_))) - (_tl125067125103_ + (##car _e125331125360_))) + (_tl125329125365_ (let () (declare (not safe)) - (##cdr _e125069125098_)))) + (##cdr _e125331125360_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125067125103_)) - (let ((_e125072125106_ + _tl125329125365_)) + (let ((_e125334125368_ (let () (declare (not safe)) (gx#stx-e - _tl125067125103_)))) - (let ((_hd125071125109_ + _tl125329125365_)))) + (let ((_hd125333125371_ (let () (declare (not safe)) - (##car _e125072125106_))) - (_tl125070125111_ + (##car _e125334125368_))) + (_tl125332125373_ (let () (declare (not safe)) - (##cdr _e125072125106_)))) + (##cdr _e125334125368_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125070125111_)) - ((lambda (_L125114_ - _L125115_ - _L125116_) - (let ((__tmp128858 + _tl125332125373_)) + ((lambda (_L125376_ + _L125377_ + _L125378_) + (let ((__tmp129120 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L125116_))) - (__tmp128857 - (let () (declare (not safe)) (gx#stx-e _L125115_))) - (__tmp128856 - (let () (declare (not safe)) (gx#stx-e _L125114_)))) + (gxc#identifier-symbol _L125378_))) + (__tmp129119 + (let () (declare (not safe)) (gx#stx-e _L125377_))) + (__tmp129118 + (let () (declare (not safe)) (gx#stx-e _L125376_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp128858 - __tmp128857 - __tmp128856))) - _hd125071125109_ - _hd125068125101_ - _hd125065125093_) + __tmp129120 + __tmp129119 + __tmp129118))) + _hd125333125371_ + _hd125330125363_ + _hd125327125355_) (let () (declare (not safe)) - (_g125056125077_ _g125057125080_))))) + (_g125318125339_ _g125319125342_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125056125077_ - _g125057125080_))))) + (_g125318125339_ + _g125319125342_))))) (let () (declare (not safe)) - (_g125056125077_ _g125057125080_))))) + (_g125318125339_ _g125319125342_))))) (let () (declare (not safe)) - (_g125056125077_ _g125057125080_))))) + (_g125318125339_ _g125319125342_))))) (let () (declare (not safe)) - (_g125056125077_ _g125057125080_)))))) + (_g125318125339_ _g125319125342_)))))) (declare (not safe)) - (_g125055125134_ _ann125054_)))) + (_g125317125396_ _ann125316_)))) (let () (declare (not safe)) (hash-put! @@ -3636,2048 +3636,2048 @@ '@mop.mutator gxc#basic-expression-type-annotation-mop.mutator)) (define gxc#basic-expression-type-lambda% - (lambda (_stx124173_) - (let* ((___stx127139127140_ _stx124173_) - (_g124179124375_ + (lambda (_stx124435_) + (let* ((___stx127401127402_ _stx124435_) + (_g124441124637_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127139127140_))))) - (let ((___kont127141127142_ - (lambda (_L125041_) - (let ((__obj128809 + ___stx127401127402_))))) + (let ((___kont127403127404_ + (lambda (_L125303_) + (let ((__obj129071 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128809 + __obj129071 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L125041_)) + (gxc#lambda-form-arity _L125303_)) '#f) - __obj128809))) - (___kont127143127144_ - (lambda (_L124968_ - _L124969_ - _L124970_ - _L124971_ - _L124972_ - _L124973_) - (let* ((_tab125023_ - (let () (declare (not safe)) (gx#stx-e _L124970_))) - (_keys125025_ - (if _tab125023_ - (let ((__tmp128859 (vector->list _tab125023_))) + __obj129071))) + (___kont127405127406_ + (lambda (_L125230_ + _L125231_ + _L125232_ + _L125233_ + _L125234_ + _L125235_) + (let* ((_tab125285_ + (let () (declare (not safe)) (gx#stx-e _L125232_))) + (_keys125287_ + (if _tab125285_ + (let ((__tmp129121 (vector->list _tab125285_))) (declare (not safe)) - (filter values __tmp128859)) + (filter values __tmp129121)) '#f))) - (let ((__tmp128860 + (let ((__tmp129122 (let () (declare (not safe)) - (gxc#identifier-symbol _L124969_)))) + (gxc#identifier-symbol _L125231_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys125025_ - __tmp128860))))) - (___kont127145127146_ - (lambda (_L124701_ - _L124702_ - _L124703_ - _L124704_ - _L124705_ - _L124706_ - _L124707_ - _L124708_ - _L124709_ - _L124710_) - (let ((__tmp128862 + _keys125287_ + __tmp129122))))) + (___kont127407127408_ + (lambda (_L124963_ + _L124964_ + _L124965_ + _L124966_ + _L124967_ + _L124968_ + _L124969_ + _L124970_ + _L124971_ + _L124972_) + (let ((__tmp129124 (map gx#stx-e - (let ((__tmp128863 - (lambda (_g124803124806_ _g124804124808_) + (let ((__tmp129125 + (lambda (_g125065125068_ _g125066125070_) (let () (declare (not safe)) - (cons _g124803124806_ - _g124804124808_))))) + (cons _g125065125068_ + _g125066125070_))))) (declare (not safe)) - (foldr1 __tmp128863 '() _L124703_)))) - (__tmp128861 + (foldr1 __tmp129125 '() _L124965_)))) + (__tmp129123 (let () (declare (not safe)) - (gxc#identifier-symbol _L124707_)))) + (gxc#identifier-symbol _L124969_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp128862 - __tmp128861)))) - (___kont127149127150_ - (lambda (_L124411_) - (let ((__obj128810 + __tmp129124 + __tmp129123)))) + (___kont127411127412_ + (lambda (_L124673_) + (let ((__obj129072 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128810 + __obj129072 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L124411_)) + (gxc#lambda-form-arity _L124673_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L124411_))) - __obj128810))) - (___kont127151127152_ - (lambda (_L124388_) - (let ((__obj128811 + (gxc#dispatch-lambda-form-delegate _L124673_))) + __obj129072))) + (___kont127413127414_ + (lambda (_L124650_) + (let ((__obj129073 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128811 + __obj129073 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L124388_)) + (gxc#lambda-form-arity _L124650_)) '#f) - __obj128811)))) - (let* ((___match127458127459_ - (lambda (_e124366124403_ _hd124365124406_ _tl124364124408_) - (let ((_L124411_ _tl124364124408_)) + __obj129073)))) + (let* ((___match127720127721_ + (lambda (_e124628124665_ _hd124627124668_ _tl124626124670_) + (let ((_L124673_ _tl124626124670_)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _L124411_)) - (___kont127149127150_ _L124411_) - (___kont127151127152_ _tl124364124408_))))) - (___match127452127453_ - (lambda (_e124260124425_ - _hd124259124428_ - _tl124258124430_ - _e124263124433_ - _hd124262124436_ - _tl124261124438_ - _e124266124441_ - _hd124265124444_ - _tl124264124446_ - _e124269124449_ - _hd124268124452_ - _tl124267124454_ - _e124272124457_ - _hd124271124460_ - _tl124270124462_ - _e124275124465_ - _hd124274124468_ - _tl124273124470_ - _e124278124473_ - _hd124277124476_ - _tl124276124478_ - _e124281124481_ - _hd124280124484_ - _tl124279124486_ - _e124284124489_ - _hd124283124492_ - _tl124282124494_ - _e124287124497_ - _hd124286124500_ - _tl124285124502_ - _e124290124505_ - _hd124289124508_ - _tl124288124510_ - _e124293124513_ - _hd124292124516_ - _tl124291124518_ - _e124296124521_ - _hd124295124524_ - _tl124294124526_ - _e124299124529_ - _hd124298124532_ - _tl124297124534_ - ___splice127147127148_ - _target124300124537_ - _tl124302124539_ - _e124317124542_ - _hd124316124545_ - _tl124315124547_ - _e124320124550_ - _hd124319124553_ - _tl124318124555_ - _e124323124558_ - _hd124322124561_ - _tl124321124563_) - (letrec ((_loop124303124566_ - (lambda (_hd124301124569_ - _-absent-value124307124571_ - _key124308124573_ - _-xkwvar124309124575_ - _-hash-ref124310124577_) + (gxc#dispatch-lambda-form? _L124673_)) + (___kont127411127412_ _L124673_) + (___kont127413127414_ _tl124626124670_))))) + (___match127714127715_ + (lambda (_e124522124687_ + _hd124521124690_ + _tl124520124692_ + _e124525124695_ + _hd124524124698_ + _tl124523124700_ + _e124528124703_ + _hd124527124706_ + _tl124526124708_ + _e124531124711_ + _hd124530124714_ + _tl124529124716_ + _e124534124719_ + _hd124533124722_ + _tl124532124724_ + _e124537124727_ + _hd124536124730_ + _tl124535124732_ + _e124540124735_ + _hd124539124738_ + _tl124538124740_ + _e124543124743_ + _hd124542124746_ + _tl124541124748_ + _e124546124751_ + _hd124545124754_ + _tl124544124756_ + _e124549124759_ + _hd124548124762_ + _tl124547124764_ + _e124552124767_ + _hd124551124770_ + _tl124550124772_ + _e124555124775_ + _hd124554124778_ + _tl124553124780_ + _e124558124783_ + _hd124557124786_ + _tl124556124788_ + _e124561124791_ + _hd124560124794_ + _tl124559124796_ + ___splice127409127410_ + _target124562124799_ + _tl124564124801_ + _e124579124804_ + _hd124578124807_ + _tl124577124809_ + _e124582124812_ + _hd124581124815_ + _tl124580124817_ + _e124585124820_ + _hd124584124823_ + _tl124583124825_) + (letrec ((_loop124565124828_ + (lambda (_hd124563124831_ + _-absent-value124569124833_ + _key124570124835_ + _-xkwvar124571124837_ + _-hash-ref124572124839_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124301124569_)) - (let ((_e124304124580_ + (gx#stx-pair? _hd124563124831_)) + (let ((_e124566124842_ (let () (declare (not safe)) - (gx#stx-e _hd124301124569_)))) - (let ((_lp-tl124306124585_ + (gx#stx-e _hd124563124831_)))) + (let ((_lp-tl124568124847_ (let () (declare (not safe)) - (##cdr _e124304124580_))) - (_lp-hd124305124583_ + (##cdr _e124566124842_))) + (_lp-hd124567124845_ (let () (declare (not safe)) - (##car _e124304124580_)))) + (##car _e124566124842_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd124305124583_)) - (let ((_e124326124588_ + _lp-hd124567124845_)) + (let ((_e124588124850_ (let () (declare (not safe)) (gx#stx-e - _lp-hd124305124583_)))) - (let ((_tl124324124593_ + _lp-hd124567124845_)))) + (let ((_tl124586124855_ (let () (declare (not safe)) - (##cdr _e124326124588_))) - (_hd124325124591_ + (##cdr _e124588124850_))) + (_hd124587124853_ (let () (declare (not safe)) - (##car _e124326124588_)))) + (##car _e124588124850_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124325124591_)) + _hd124587124853_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124325124591_)) + _hd124587124853_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl124324124593_)) - (let ((_e124329124596_ + (gx#stx-pair? _tl124586124855_)) + (let ((_e124591124858_ (let () (declare (not safe)) - (gx#stx-e _tl124324124593_)))) - (let ((_tl124327124601_ + (gx#stx-e _tl124586124855_)))) + (let ((_tl124589124863_ (let () (declare (not safe)) - (##cdr _e124329124596_))) - (_hd124328124599_ + (##cdr _e124591124858_))) + (_hd124590124861_ (let () (declare (not safe)) - (##car _e124329124596_)))) + (##car _e124591124858_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124328124599_)) - (let ((_e124332124604_ + (gx#stx-pair? _hd124590124861_)) + (let ((_e124594124866_ (let () (declare (not safe)) - (gx#stx-e _hd124328124599_)))) - (let ((_tl124330124609_ + (gx#stx-e _hd124590124861_)))) + (let ((_tl124592124871_ (let () (declare (not safe)) - (##cdr _e124332124604_))) - (_hd124331124607_ + (##cdr _e124594124866_))) + (_hd124593124869_ (let () (declare (not safe)) - (##car _e124332124604_)))) + (##car _e124594124866_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124331124607_)) + (gx#identifier? _hd124593124869_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124331124607_)) + _hd124593124869_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124330124609_)) - (let ((_e124335124612_ + _tl124592124871_)) + (let ((_e124597124874_ (let () (declare (not safe)) (gx#stx-e - _tl124330124609_)))) - (let ((_tl124333124617_ + _tl124592124871_)))) + (let ((_tl124595124879_ (let () (declare (not safe)) - (##cdr _e124335124612_))) - (_hd124334124615_ + (##cdr _e124597124874_))) + (_hd124596124877_ (let () (declare (not safe)) - (##car _e124335124612_)))) + (##car _e124597124874_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124333124617_)) + _tl124595124879_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124327124601_)) - (let ((_e124338124620_ + _tl124589124863_)) + (let ((_e124600124882_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124327124601_)))) - (let ((_tl124336124625_ + (gx#stx-e _tl124589124863_)))) + (let ((_tl124598124887_ (let () (declare (not safe)) - (##cdr _e124338124620_))) - (_hd124337124623_ + (##cdr _e124600124882_))) + (_hd124599124885_ (let () (declare (not safe)) - (##car _e124338124620_)))) + (##car _e124600124882_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124337124623_)) - (let ((_e124341124628_ + (gx#stx-pair? _hd124599124885_)) + (let ((_e124603124890_ (let () (declare (not safe)) - (gx#stx-e _hd124337124623_)))) - (let ((_tl124339124633_ + (gx#stx-e _hd124599124885_)))) + (let ((_tl124601124895_ (let () (declare (not safe)) - (##cdr _e124341124628_))) - (_hd124340124631_ + (##cdr _e124603124890_))) + (_hd124602124893_ (let () (declare (not safe)) - (##car _e124341124628_)))) + (##car _e124603124890_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124340124631_)) + (gx#identifier? _hd124602124893_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124340124631_)) + (gx#stx-eq? '%#ref _hd124602124893_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124339124633_)) - (let ((_e124344124636_ + (gx#stx-pair? _tl124601124895_)) + (let ((_e124606124898_ (let () (declare (not safe)) (gx#stx-e - _tl124339124633_)))) - (let ((_tl124342124641_ + _tl124601124895_)))) + (let ((_tl124604124903_ (let () (declare (not safe)) - (##cdr _e124344124636_))) - (_hd124343124639_ + (##cdr _e124606124898_))) + (_hd124605124901_ (let () (declare (not safe)) - (##car _e124344124636_)))) + (##car _e124606124898_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124342124641_)) + _tl124604124903_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124336124625_)) - (let ((_e124347124644_ + _tl124598124887_)) + (let ((_e124609124906_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124336124625_)))) - (let ((_tl124345124649_ - (let () (declare (not safe)) (##cdr _e124347124644_))) - (_hd124346124647_ - (let () (declare (not safe)) (##car _e124347124644_)))) + (gx#stx-e _tl124598124887_)))) + (let ((_tl124607124911_ + (let () (declare (not safe)) (##cdr _e124609124906_))) + (_hd124608124909_ + (let () (declare (not safe)) (##car _e124609124906_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124346124647_)) - (let ((_e124350124652_ + (gx#stx-pair? _hd124608124909_)) + (let ((_e124612124914_ (let () (declare (not safe)) - (gx#stx-e _hd124346124647_)))) - (let ((_tl124348124657_ + (gx#stx-e _hd124608124909_)))) + (let ((_tl124610124919_ (let () (declare (not safe)) - (##cdr _e124350124652_))) - (_hd124349124655_ + (##cdr _e124612124914_))) + (_hd124611124917_ (let () (declare (not safe)) - (##car _e124350124652_)))) + (##car _e124612124914_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124349124655_)) + (gx#identifier? _hd124611124917_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd124349124655_)) + (gx#stx-eq? '%#quote _hd124611124917_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124348124657_)) - (let ((_e124353124660_ + (gx#stx-pair? _tl124610124919_)) + (let ((_e124615124922_ (let () (declare (not safe)) - (gx#stx-e _tl124348124657_)))) - (let ((_tl124351124665_ + (gx#stx-e _tl124610124919_)))) + (let ((_tl124613124927_ (let () (declare (not safe)) - (##cdr _e124353124660_))) - (_hd124352124663_ + (##cdr _e124615124922_))) + (_hd124614124925_ (let () (declare (not safe)) - (##car _e124353124660_)))) + (##car _e124615124922_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124351124665_)) + _tl124613124927_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124345124649_)) - (let ((_e124356124668_ + _tl124607124911_)) + (let ((_e124618124930_ (let () (declare (not safe)) (gx#stx-e - _tl124345124649_)))) - (let ((_tl124354124673_ + _tl124607124911_)))) + (let ((_tl124616124935_ (let () (declare (not safe)) - (##cdr _e124356124668_))) - (_hd124355124671_ + (##cdr _e124618124930_))) + (_hd124617124933_ (let () (declare (not safe)) - (##car _e124356124668_)))) + (##car _e124618124930_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124355124671_)) - (let ((_e124359124676_ + _hd124617124933_)) + (let ((_e124621124938_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124355124671_)))) - (let ((_tl124357124681_ + (gx#stx-e _hd124617124933_)))) + (let ((_tl124619124943_ (let () (declare (not safe)) - (##cdr _e124359124676_))) - (_hd124358124679_ + (##cdr _e124621124938_))) + (_hd124620124941_ (let () (declare (not safe)) - (##car _e124359124676_)))) + (##car _e124621124938_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124358124679_)) + (gx#identifier? _hd124620124941_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124358124679_)) + (gx#stx-eq? '%#ref _hd124620124941_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124357124681_)) - (let ((_e124362124684_ + (gx#stx-pair? _tl124619124943_)) + (let ((_e124624124946_ (let () (declare (not safe)) - (gx#stx-e _tl124357124681_)))) - (let ((_tl124360124689_ + (gx#stx-e _tl124619124943_)))) + (let ((_tl124622124951_ (let () (declare (not safe)) - (##cdr _e124362124684_))) - (_hd124361124687_ + (##cdr _e124624124946_))) + (_hd124623124949_ (let () (declare (not safe)) - (##car _e124362124684_)))) + (##car _e124624124946_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124360124689_)) + (gx#stx-null? _tl124622124951_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124354124673_)) - (let ((__tmp128878 + _tl124616124935_)) + (let ((__tmp129140 (let () (declare (not safe)) - (cons _hd124361124687_ - _-absent-value124307124571_))) - (__tmp128877 + (cons _hd124623124949_ + _-absent-value124569124833_))) + (__tmp129139 (let () (declare (not safe)) - (cons _hd124352124663_ - _key124308124573_))) - (__tmp128876 + (cons _hd124614124925_ + _key124570124835_))) + (__tmp129138 (let () (declare (not safe)) - (cons _hd124343124639_ - _-xkwvar124309124575_))) - (__tmp128875 + (cons _hd124605124901_ + _-xkwvar124571124837_))) + (__tmp129137 (let () (declare (not safe)) - (cons _hd124334124615_ - _-hash-ref124310124577_)))) + (cons _hd124596124877_ + _-hash-ref124572124839_)))) (declare (not safe)) - (_loop124303124566_ - _lp-tl124306124585_ - __tmp128878 - __tmp128877 - __tmp128876 - __tmp128875)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (let ((_-hash-ref124314124698_ - (reverse _-hash-ref124310124577_)) - (_-xkwvar124313124696_ - (reverse _-xkwvar124309124575_)) - (_key124312124694_ - (reverse _key124308124573_)) - (_-absent-value124311124692_ - (reverse _-absent-value124307124571_))) + (_loop124565124828_ + _lp-tl124568124847_ + __tmp129140 + __tmp129139 + __tmp129138 + __tmp129137)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (let ((_-hash-ref124576124960_ + (reverse _-hash-ref124572124839_)) + (_-xkwvar124575124958_ + (reverse _-xkwvar124571124837_)) + (_key124574124956_ + (reverse _key124570124835_)) + (_-absent-value124573124954_ + (reverse _-absent-value124569124833_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124267124454_)) - (let ((_L124701_ _hd124322124561_) - (_L124702_ - _-absent-value124311124692_) - (_L124703_ _key124312124694_) - (_L124704_ - _-xkwvar124313124696_) - (_L124705_ - _-hash-ref124314124698_) - (_L124706_ _hd124298124532_) - (_L124707_ _hd124289124508_) - (_L124708_ _hd124280124484_) - (_L124709_ _tl124264124446_) - (_L124710_ _hd124265124444_)) + (gx#stx-null? _tl124529124716_)) + (let ((_L124963_ _hd124584124823_) + (_L124964_ + _-absent-value124573124954_) + (_L124965_ _key124574124956_) + (_L124966_ + _-xkwvar124575124958_) + (_L124967_ + _-hash-ref124576124960_) + (_L124968_ _hd124560124794_) + (_L124969_ _hd124551124770_) + (_L124970_ _hd124542124746_) + (_L124971_ _tl124526124708_) + (_L124972_ _hd124527124706_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L124710_)) + _L124972_)) (let () (declare (not safe)) (gx#identifier? - _L124709_)) + _L124971_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L124708_ + _L124970_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L124710_ - _L124706_)) - (let ((__tmp128873 - (let ((__tmp128874 + _L124972_ + _L124968_)) + (let ((__tmp129135 + (let ((__tmp129136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124763124766_ _g124764124768_) + (lambda (_g125025125028_ _g125026125030_) (let () (declare (not safe)) - (cons _g124763124766_ _g124764124768_))))) + (cons _g125025125028_ _g125026125030_))))) (declare (not safe)) - (foldr1 __tmp128874 '() _L124703_)))) + (foldr1 __tmp129136 '() _L124965_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp128873)) - (let ((__tmp128872 - (lambda (_g124770124772_) + (andmap1 gx#stx-keyword? __tmp129135)) + (let ((__tmp129134 + (lambda (_g125032125034_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g124770124772_ + _g125032125034_ 'hash-ref)))) - (__tmp128870 - (let ((__tmp128871 - (lambda (_g124774124777_ _g124775124779_) + (__tmp129132 + (let ((__tmp129133 + (lambda (_g125036125039_ _g125037125041_) (let () (declare (not safe)) - (cons _g124774124777_ _g124775124779_))))) + (cons _g125036125039_ _g125037125041_))))) (declare (not safe)) - (foldr1 __tmp128871 '() _L124705_)))) + (foldr1 __tmp129133 '() _L124967_)))) (declare (not safe)) - (andmap1 __tmp128872 __tmp128870)) - (let ((__tmp128869 - (lambda (_g124781124783_) + (andmap1 __tmp129134 __tmp129132)) + (let ((__tmp129131 + (lambda (_g125043125045_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g124781124783_ + _g125043125045_ 'absent-value)))) - (__tmp128867 - (let ((__tmp128868 - (lambda (_g124785124788_ _g124786124790_) + (__tmp129129 + (let ((__tmp129130 + (lambda (_g125047125050_ _g125048125052_) (let () (declare (not safe)) - (cons _g124785124788_ _g124786124790_))))) + (cons _g125047125050_ _g125048125052_))))) (declare (not safe)) - (foldr1 __tmp128868 '() _L124702_)))) + (foldr1 __tmp129130 '() _L124964_)))) (declare (not safe)) - (andmap1 __tmp128869 __tmp128867)) - (let ((__tmp128866 - (lambda (_g124792124794_) + (andmap1 __tmp129131 __tmp129129)) + (let ((__tmp129128 + (lambda (_g125054125056_) (let () (declare (not safe)) - (gx#free-identifier=? _g124792124794_ _L124710_)))) - (__tmp128864 - (let ((__tmp128865 - (lambda (_g124796124799_ _g124797124801_) + (gx#free-identifier=? _g125054125056_ _L124972_)))) + (__tmp129126 + (let ((__tmp129127 + (lambda (_g125058125061_ _g125059125063_) (let () (declare (not safe)) - (cons _g124796124799_ _g124797124801_))))) + (cons _g125058125061_ _g125059125063_))))) (declare (not safe)) - (foldr1 __tmp128865 '() _L124704_)))) + (foldr1 __tmp129127 '() _L124966_)))) (declare (not safe)) - (andmap1 __tmp128866 __tmp128864))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127145127146_ - _L124701_ - _L124702_ - _L124703_ - _L124704_ - _L124705_ - _L124706_ - _L124707_ - _L124708_ - _L124709_ - _L124710_) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_))))))) + (andmap1 __tmp129128 __tmp129126))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127407127408_ + _L124963_ + _L124964_ + _L124965_ + _L124966_ + _L124967_ + _L124968_ + _L124969_ + _L124970_ + _L124971_ + _L124972_) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_))))))) (let () (declare (not safe)) - (_loop124303124566_ - _target124300124537_ + (_loop124565124828_ + _target124562124799_ '() '() '() '()))))) - (___match127324127325_ - (lambda (_e124260124425_ - _hd124259124428_ - _tl124258124430_ - _e124263124433_ - _hd124262124436_ - _tl124261124438_) + (___match127586127587_ + (lambda (_e124522124687_ + _hd124521124690_ + _tl124520124692_ + _e124525124695_ + _hd124524124698_ + _tl124523124700_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124262124436_)) - (let ((_e124266124441_ + (gx#stx-pair? _hd124524124698_)) + (let ((_e124528124703_ (let () (declare (not safe)) - (gx#stx-e _hd124262124436_)))) - (let ((_tl124264124446_ + (gx#stx-e _hd124524124698_)))) + (let ((_tl124526124708_ (let () (declare (not safe)) - (##cdr _e124266124441_))) - (_hd124265124444_ + (##cdr _e124528124703_))) + (_hd124527124706_ (let () (declare (not safe)) - (##car _e124266124441_)))) + (##car _e124528124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124261124438_)) - (let ((_e124269124449_ + (gx#stx-pair? _tl124523124700_)) + (let ((_e124531124711_ (let () (declare (not safe)) - (gx#stx-e _tl124261124438_)))) - (let ((_tl124267124454_ + (gx#stx-e _tl124523124700_)))) + (let ((_tl124529124716_ (let () (declare (not safe)) - (##cdr _e124269124449_))) - (_hd124268124452_ + (##cdr _e124531124711_))) + (_hd124530124714_ (let () (declare (not safe)) - (##car _e124269124449_)))) + (##car _e124531124711_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124268124452_)) - (let ((_e124272124457_ + (gx#stx-pair? _hd124530124714_)) + (let ((_e124534124719_ (let () (declare (not safe)) (gx#stx-e - _hd124268124452_)))) - (let ((_tl124270124462_ + _hd124530124714_)))) + (let ((_tl124532124724_ (let () (declare (not safe)) - (##cdr _e124272124457_))) - (_hd124271124460_ + (##cdr _e124534124719_))) + (_hd124533124722_ (let () (declare (not safe)) - (##car _e124272124457_)))) + (##car _e124534124719_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124271124460_)) + _hd124533124722_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124271124460_)) + _hd124533124722_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124270124462_)) - (let ((_e124275124465_ + _tl124532124724_)) + (let ((_e124537124727_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124270124462_)))) - (let ((_tl124273124470_ + (gx#stx-e _tl124532124724_)))) + (let ((_tl124535124732_ (let () (declare (not safe)) - (##cdr _e124275124465_))) - (_hd124274124468_ + (##cdr _e124537124727_))) + (_hd124536124730_ (let () (declare (not safe)) - (##car _e124275124465_)))) + (##car _e124537124727_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124274124468_)) - (let ((_e124278124473_ + (gx#stx-pair? _hd124536124730_)) + (let ((_e124540124735_ (let () (declare (not safe)) - (gx#stx-e _hd124274124468_)))) - (let ((_tl124276124478_ + (gx#stx-e _hd124536124730_)))) + (let ((_tl124538124740_ (let () (declare (not safe)) - (##cdr _e124278124473_))) - (_hd124277124476_ + (##cdr _e124540124735_))) + (_hd124539124738_ (let () (declare (not safe)) - (##car _e124278124473_)))) + (##car _e124540124735_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124277124476_)) + (gx#identifier? _hd124539124738_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124277124476_)) + (gx#stx-eq? '%#ref _hd124539124738_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124276124478_)) - (let ((_e124281124481_ + (gx#stx-pair? _tl124538124740_)) + (let ((_e124543124743_ (let () (declare (not safe)) (gx#stx-e - _tl124276124478_)))) - (let ((_tl124279124486_ + _tl124538124740_)))) + (let ((_tl124541124748_ (let () (declare (not safe)) - (##cdr _e124281124481_))) - (_hd124280124484_ + (##cdr _e124543124743_))) + (_hd124542124746_ (let () (declare (not safe)) - (##car _e124281124481_)))) + (##car _e124543124743_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124279124486_)) + _tl124541124748_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124273124470_)) - (let ((_e124284124489_ + _tl124535124732_)) + (let ((_e124546124751_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124273124470_)))) - (let ((_tl124282124494_ - (let () (declare (not safe)) (##cdr _e124284124489_))) - (_hd124283124492_ - (let () (declare (not safe)) (##car _e124284124489_)))) + (gx#stx-e _tl124535124732_)))) + (let ((_tl124544124756_ + (let () (declare (not safe)) (##cdr _e124546124751_))) + (_hd124545124754_ + (let () (declare (not safe)) (##car _e124546124751_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124283124492_)) - (let ((_e124287124497_ + (gx#stx-pair? _hd124545124754_)) + (let ((_e124549124759_ (let () (declare (not safe)) - (gx#stx-e _hd124283124492_)))) - (let ((_tl124285124502_ + (gx#stx-e _hd124545124754_)))) + (let ((_tl124547124764_ (let () (declare (not safe)) - (##cdr _e124287124497_))) - (_hd124286124500_ + (##cdr _e124549124759_))) + (_hd124548124762_ (let () (declare (not safe)) - (##car _e124287124497_)))) + (##car _e124549124759_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124286124500_)) + (gx#identifier? _hd124548124762_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124286124500_)) + (gx#stx-eq? '%#ref _hd124548124762_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124285124502_)) - (let ((_e124290124505_ + (gx#stx-pair? _tl124547124764_)) + (let ((_e124552124767_ (let () (declare (not safe)) - (gx#stx-e _tl124285124502_)))) - (let ((_tl124288124510_ + (gx#stx-e _tl124547124764_)))) + (let ((_tl124550124772_ (let () (declare (not safe)) - (##cdr _e124290124505_))) - (_hd124289124508_ + (##cdr _e124552124767_))) + (_hd124551124770_ (let () (declare (not safe)) - (##car _e124290124505_)))) + (##car _e124552124767_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124288124510_)) + _tl124550124772_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124282124494_)) - (let ((_e124293124513_ + _tl124544124756_)) + (let ((_e124555124775_ (let () (declare (not safe)) (gx#stx-e - _tl124282124494_)))) - (let ((_tl124291124518_ + _tl124544124756_)))) + (let ((_tl124553124780_ (let () (declare (not safe)) - (##cdr _e124293124513_))) - (_hd124292124516_ + (##cdr _e124555124775_))) + (_hd124554124778_ (let () (declare (not safe)) - (##car _e124293124513_)))) + (##car _e124555124775_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124292124516_)) - (let ((_e124296124521_ + _hd124554124778_)) + (let ((_e124558124783_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124292124516_)))) - (let ((_tl124294124526_ + (gx#stx-e _hd124554124778_)))) + (let ((_tl124556124788_ (let () (declare (not safe)) - (##cdr _e124296124521_))) - (_hd124295124524_ + (##cdr _e124558124783_))) + (_hd124557124786_ (let () (declare (not safe)) - (##car _e124296124521_)))) + (##car _e124558124783_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124295124524_)) + (gx#identifier? _hd124557124786_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124295124524_)) + (gx#stx-eq? '%#ref _hd124557124786_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124294124526_)) - (let ((_e124299124529_ + (gx#stx-pair? _tl124556124788_)) + (let ((_e124561124791_ (let () (declare (not safe)) - (gx#stx-e _tl124294124526_)))) - (let ((_tl124297124534_ + (gx#stx-e _tl124556124788_)))) + (let ((_tl124559124796_ (let () (declare (not safe)) - (##cdr _e124299124529_))) - (_hd124298124532_ + (##cdr _e124561124791_))) + (_hd124560124794_ (let () (declare (not safe)) - (##car _e124299124529_)))) + (##car _e124561124791_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124297124534_)) + (gx#stx-null? _tl124559124796_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl124291124518_)) + _tl124553124780_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl124291124518_)) + _tl124553124780_)) '1) - (let ((___splice127147127148_ + (let ((___splice127409127410_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl124291124518_ + _tl124553124780_ '1)))) - (let ((_tl124302124539_ + (let ((_tl124564124801_ (let () (declare (not safe)) (##vector-ref - ___splice127147127148_ + ___splice127409127410_ '1))) - (_target124300124537_ + (_target124562124799_ (let () (declare (not safe)) (##vector-ref - ___splice127147127148_ + ___splice127409127410_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124302124539_)) - (let ((_e124317124542_ + _tl124564124801_)) + (let ((_e124579124804_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124302124539_)))) - (let ((_tl124315124547_ + (gx#stx-e _tl124564124801_)))) + (let ((_tl124577124809_ (let () (declare (not safe)) - (##cdr _e124317124542_))) - (_hd124316124545_ + (##cdr _e124579124804_))) + (_hd124578124807_ (let () (declare (not safe)) - (##car _e124317124542_)))) + (##car _e124579124804_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124316124545_)) - (let ((_e124320124550_ + (gx#stx-pair? _hd124578124807_)) + (let ((_e124582124812_ (let () (declare (not safe)) - (gx#stx-e _hd124316124545_)))) - (let ((_tl124318124555_ + (gx#stx-e _hd124578124807_)))) + (let ((_tl124580124817_ (let () (declare (not safe)) - (##cdr _e124320124550_))) - (_hd124319124553_ + (##cdr _e124582124812_))) + (_hd124581124815_ (let () (declare (not safe)) - (##car _e124320124550_)))) + (##car _e124582124812_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124319124553_)) + (gx#identifier? _hd124581124815_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124319124553_)) + (gx#stx-eq? '%#ref _hd124581124815_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124318124555_)) - (let ((_e124323124558_ + (gx#stx-pair? _tl124580124817_)) + (let ((_e124585124820_ (let () (declare (not safe)) (gx#stx-e - _tl124318124555_)))) - (let ((_tl124321124563_ + _tl124580124817_)))) + (let ((_tl124583124825_ (let () (declare (not safe)) - (##cdr _e124323124558_))) - (_hd124322124561_ + (##cdr _e124585124820_))) + (_hd124584124823_ (let () (declare (not safe)) - (##car _e124323124558_)))) + (##car _e124585124820_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124321124563_)) + _tl124583124825_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124315124547_)) - (___match127452127453_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_ - _e124263124433_ - _hd124262124436_ - _tl124261124438_ - _e124266124441_ - _hd124265124444_ - _tl124264124446_ - _e124269124449_ - _hd124268124452_ - _tl124267124454_ - _e124272124457_ - _hd124271124460_ - _tl124270124462_ - _e124275124465_ - _hd124274124468_ - _tl124273124470_ - _e124278124473_ - _hd124277124476_ - _tl124276124478_ - _e124281124481_ - _hd124280124484_ - _tl124279124486_ - _e124284124489_ - _hd124283124492_ - _tl124282124494_ - _e124287124497_ - _hd124286124500_ - _tl124285124502_ - _e124290124505_ - _hd124289124508_ - _tl124288124510_ - _e124293124513_ - _hd124292124516_ - _tl124291124518_ - _e124296124521_ - _hd124295124524_ - _tl124294124526_ - _e124299124529_ - _hd124298124532_ - _tl124297124534_ - ___splice127147127148_ - _target124300124537_ - _tl124302124539_ - _e124317124542_ - _hd124316124545_ - _tl124315124547_ - _e124320124550_ - _hd124319124553_ - _tl124318124555_ - _e124323124558_ - _hd124322124561_ - _tl124321124563_) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127458127459_ - _e124260124425_ - _hd124259124428_ - _tl124258124430_)))) - (___match127312127313_ - (lambda (_e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_ - _e124199124832_ - _hd124198124835_ - _tl124197124837_ - _e124202124840_ - _hd124201124843_ - _tl124200124845_ - _e124205124848_ - _hd124204124851_ - _tl124203124853_ - _e124208124856_ - _hd124207124859_ - _tl124206124861_ - _e124211124864_ - _hd124210124867_ - _tl124209124869_ - _e124214124872_ - _hd124213124875_ - _tl124212124877_ - _e124217124880_ - _hd124216124883_ - _tl124215124885_ - _e124220124888_ - _hd124219124891_ - _tl124218124893_ - _e124223124896_ - _hd124222124899_ - _tl124221124901_ - _e124226124904_ - _hd124225124907_ - _tl124224124909_ - _e124229124912_ - _hd124228124915_ - _tl124227124917_ - _e124232124920_ - _hd124231124923_ - _tl124230124925_ - _e124235124928_ - _hd124234124931_ - _tl124233124933_ - _e124238124936_ - _hd124237124939_ - _tl124236124941_ - _e124241124944_ - _hd124240124947_ - _tl124239124949_ - _e124244124952_ - _hd124243124955_ - _tl124242124957_ - _e124247124960_ - _hd124246124963_ - _tl124245124965_) - (let ((_L124968_ _hd124246124963_) - (_L124969_ _hd124237124939_) - (_L124970_ _hd124228124915_) - (_L124971_ _hd124219124891_) - (_L124972_ _hd124210124867_) - (_L124973_ _hd124195124827_)) + _tl124577124809_)) + (___match127714127715_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_ + _e124525124695_ + _hd124524124698_ + _tl124523124700_ + _e124528124703_ + _hd124527124706_ + _tl124526124708_ + _e124531124711_ + _hd124530124714_ + _tl124529124716_ + _e124534124719_ + _hd124533124722_ + _tl124532124724_ + _e124537124727_ + _hd124536124730_ + _tl124535124732_ + _e124540124735_ + _hd124539124738_ + _tl124538124740_ + _e124543124743_ + _hd124542124746_ + _tl124541124748_ + _e124546124751_ + _hd124545124754_ + _tl124544124756_ + _e124549124759_ + _hd124548124762_ + _tl124547124764_ + _e124552124767_ + _hd124551124770_ + _tl124550124772_ + _e124555124775_ + _hd124554124778_ + _tl124553124780_ + _e124558124783_ + _hd124557124786_ + _tl124556124788_ + _e124561124791_ + _hd124560124794_ + _tl124559124796_ + ___splice127409127410_ + _target124562124799_ + _tl124564124801_ + _e124579124804_ + _hd124578124807_ + _tl124577124809_ + _e124582124812_ + _hd124581124815_ + _tl124580124817_ + _e124585124820_ + _hd124584124823_ + _tl124583124825_) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127720127721_ + _e124522124687_ + _hd124521124690_ + _tl124520124692_)))) + (___match127574127575_ + (lambda (_e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_ + _e124461125094_ + _hd124460125097_ + _tl124459125099_ + _e124464125102_ + _hd124463125105_ + _tl124462125107_ + _e124467125110_ + _hd124466125113_ + _tl124465125115_ + _e124470125118_ + _hd124469125121_ + _tl124468125123_ + _e124473125126_ + _hd124472125129_ + _tl124471125131_ + _e124476125134_ + _hd124475125137_ + _tl124474125139_ + _e124479125142_ + _hd124478125145_ + _tl124477125147_ + _e124482125150_ + _hd124481125153_ + _tl124480125155_ + _e124485125158_ + _hd124484125161_ + _tl124483125163_ + _e124488125166_ + _hd124487125169_ + _tl124486125171_ + _e124491125174_ + _hd124490125177_ + _tl124489125179_ + _e124494125182_ + _hd124493125185_ + _tl124492125187_ + _e124497125190_ + _hd124496125193_ + _tl124495125195_ + _e124500125198_ + _hd124499125201_ + _tl124498125203_ + _e124503125206_ + _hd124502125209_ + _tl124501125211_ + _e124506125214_ + _hd124505125217_ + _tl124504125219_ + _e124509125222_ + _hd124508125225_ + _tl124507125227_) + (let ((_L125230_ _hd124508125225_) + (_L125231_ _hd124499125201_) + (_L125232_ _hd124490125177_) + (_L125233_ _hd124481125153_) + (_L125234_ _hd124472125129_) + (_L125235_ _hd124457125089_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L124973_)) + (gx#identifier? _L125235_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L124972_ 'apply)) + (gxc#runtime-identifier=? _L125234_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L124971_ + _L125233_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L124973_ _L124968_))) - (___kont127143127144_ - _L124968_ - _L124969_ - _L124970_ - _L124971_ - _L124972_ - _L124973_) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_))))) - (___match127166127167_ - (lambda (_e124193124816_ _hd124192124819_ _tl124191124821_) + (gx#free-identifier=? _L125235_ _L125230_))) + (___kont127405127406_ + _L125230_ + _L125231_ + _L125232_ + _L125233_ + _L125234_ + _L125235_) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_))))) + (___match127428127429_ + (lambda (_e124455125078_ _hd124454125081_ _tl124453125083_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124191124821_)) - (let ((_e124196124824_ + (gx#stx-pair? _tl124453125083_)) + (let ((_e124458125086_ (let () (declare (not safe)) - (gx#stx-e _tl124191124821_)))) - (let ((_tl124194124829_ + (gx#stx-e _tl124453125083_)))) + (let ((_tl124456125091_ (let () (declare (not safe)) - (##cdr _e124196124824_))) - (_hd124195124827_ + (##cdr _e124458125086_))) + (_hd124457125089_ (let () (declare (not safe)) - (##car _e124196124824_)))) + (##car _e124458125086_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124194124829_)) - (let ((_e124199124832_ + (gx#stx-pair? _tl124456125091_)) + (let ((_e124461125094_ (let () (declare (not safe)) - (gx#stx-e _tl124194124829_)))) - (let ((_tl124197124837_ + (gx#stx-e _tl124456125091_)))) + (let ((_tl124459125099_ (let () (declare (not safe)) - (##cdr _e124199124832_))) - (_hd124198124835_ + (##cdr _e124461125094_))) + (_hd124460125097_ (let () (declare (not safe)) - (##car _e124199124832_)))) + (##car _e124461125094_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124198124835_)) - (let ((_e124202124840_ + (gx#stx-pair? _hd124460125097_)) + (let ((_e124464125102_ (let () (declare (not safe)) (gx#stx-e - _hd124198124835_)))) - (let ((_tl124200124845_ + _hd124460125097_)))) + (let ((_tl124462125107_ (let () (declare (not safe)) - (##cdr _e124202124840_))) - (_hd124201124843_ + (##cdr _e124464125102_))) + (_hd124463125105_ (let () (declare (not safe)) - (##car _e124202124840_)))) + (##car _e124464125102_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124201124843_)) + _hd124463125105_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124201124843_)) + _hd124463125105_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124200124845_)) - (let ((_e124205124848_ + _tl124462125107_)) + (let ((_e124467125110_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124200124845_)))) - (let ((_tl124203124853_ + (gx#stx-e _tl124462125107_)))) + (let ((_tl124465125115_ (let () (declare (not safe)) - (##cdr _e124205124848_))) - (_hd124204124851_ + (##cdr _e124467125110_))) + (_hd124466125113_ (let () (declare (not safe)) - (##car _e124205124848_)))) + (##car _e124467125110_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124204124851_)) - (let ((_e124208124856_ + (gx#stx-pair? _hd124466125113_)) + (let ((_e124470125118_ (let () (declare (not safe)) - (gx#stx-e _hd124204124851_)))) - (let ((_tl124206124861_ + (gx#stx-e _hd124466125113_)))) + (let ((_tl124468125123_ (let () (declare (not safe)) - (##cdr _e124208124856_))) - (_hd124207124859_ + (##cdr _e124470125118_))) + (_hd124469125121_ (let () (declare (not safe)) - (##car _e124208124856_)))) + (##car _e124470125118_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124207124859_)) + (gx#identifier? _hd124469125121_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124207124859_)) + (gx#stx-eq? '%#ref _hd124469125121_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124206124861_)) - (let ((_e124211124864_ + (gx#stx-pair? _tl124468125123_)) + (let ((_e124473125126_ (let () (declare (not safe)) (gx#stx-e - _tl124206124861_)))) - (let ((_tl124209124869_ + _tl124468125123_)))) + (let ((_tl124471125131_ (let () (declare (not safe)) - (##cdr _e124211124864_))) - (_hd124210124867_ + (##cdr _e124473125126_))) + (_hd124472125129_ (let () (declare (not safe)) - (##car _e124211124864_)))) + (##car _e124473125126_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124209124869_)) + _tl124471125131_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124203124853_)) - (let ((_e124214124872_ + _tl124465125115_)) + (let ((_e124476125134_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124203124853_)))) - (let ((_tl124212124877_ - (let () (declare (not safe)) (##cdr _e124214124872_))) - (_hd124213124875_ - (let () (declare (not safe)) (##car _e124214124872_)))) + (gx#stx-e _tl124465125115_)))) + (let ((_tl124474125139_ + (let () (declare (not safe)) (##cdr _e124476125134_))) + (_hd124475125137_ + (let () (declare (not safe)) (##car _e124476125134_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124213124875_)) - (let ((_e124217124880_ + (gx#stx-pair? _hd124475125137_)) + (let ((_e124479125142_ (let () (declare (not safe)) - (gx#stx-e _hd124213124875_)))) - (let ((_tl124215124885_ + (gx#stx-e _hd124475125137_)))) + (let ((_tl124477125147_ (let () (declare (not safe)) - (##cdr _e124217124880_))) - (_hd124216124883_ + (##cdr _e124479125142_))) + (_hd124478125145_ (let () (declare (not safe)) - (##car _e124217124880_)))) + (##car _e124479125142_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124216124883_)) + (gx#identifier? _hd124478125145_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124216124883_)) + (gx#stx-eq? '%#ref _hd124478125145_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124215124885_)) - (let ((_e124220124888_ + (gx#stx-pair? _tl124477125147_)) + (let ((_e124482125150_ (let () (declare (not safe)) - (gx#stx-e _tl124215124885_)))) - (let ((_tl124218124893_ + (gx#stx-e _tl124477125147_)))) + (let ((_tl124480125155_ (let () (declare (not safe)) - (##cdr _e124220124888_))) - (_hd124219124891_ + (##cdr _e124482125150_))) + (_hd124481125153_ (let () (declare (not safe)) - (##car _e124220124888_)))) + (##car _e124482125150_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124218124893_)) + _tl124480125155_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124212124877_)) - (let ((_e124223124896_ + _tl124474125139_)) + (let ((_e124485125158_ (let () (declare (not safe)) (gx#stx-e - _tl124212124877_)))) - (let ((_tl124221124901_ + _tl124474125139_)))) + (let ((_tl124483125163_ (let () (declare (not safe)) - (##cdr _e124223124896_))) - (_hd124222124899_ + (##cdr _e124485125158_))) + (_hd124484125161_ (let () (declare (not safe)) - (##car _e124223124896_)))) + (##car _e124485125158_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124222124899_)) - (let ((_e124226124904_ + _hd124484125161_)) + (let ((_e124488125166_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124222124899_)))) - (let ((_tl124224124909_ + (gx#stx-e _hd124484125161_)))) + (let ((_tl124486125171_ (let () (declare (not safe)) - (##cdr _e124226124904_))) - (_hd124225124907_ + (##cdr _e124488125166_))) + (_hd124487125169_ (let () (declare (not safe)) - (##car _e124226124904_)))) + (##car _e124488125166_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124225124907_)) + (gx#identifier? _hd124487125169_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd124225124907_)) + (gx#stx-eq? '%#quote _hd124487125169_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124224124909_)) - (let ((_e124229124912_ + (gx#stx-pair? _tl124486125171_)) + (let ((_e124491125174_ (let () (declare (not safe)) - (gx#stx-e _tl124224124909_)))) - (let ((_tl124227124917_ + (gx#stx-e _tl124486125171_)))) + (let ((_tl124489125179_ (let () (declare (not safe)) - (##cdr _e124229124912_))) - (_hd124228124915_ + (##cdr _e124491125174_))) + (_hd124490125177_ (let () (declare (not safe)) - (##car _e124229124912_)))) + (##car _e124491125174_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124227124917_)) + (gx#stx-null? _tl124489125179_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124221124901_)) - (let ((_e124232124920_ + _tl124483125163_)) + (let ((_e124494125182_ (let () (declare (not safe)) (gx#stx-e - _tl124221124901_)))) - (let ((_tl124230124925_ + _tl124483125163_)))) + (let ((_tl124492125187_ (let () (declare (not safe)) - (##cdr _e124232124920_))) - (_hd124231124923_ + (##cdr _e124494125182_))) + (_hd124493125185_ (let () (declare (not safe)) - (##car _e124232124920_)))) + (##car _e124494125182_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124231124923_)) - (let ((_e124235124928_ + _hd124493125185_)) + (let ((_e124497125190_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd124231124923_)))) - (let ((_tl124233124933_ - (let () (declare (not safe)) (##cdr _e124235124928_))) - (_hd124234124931_ - (let () (declare (not safe)) (##car _e124235124928_)))) + (gx#stx-e _hd124493125185_)))) + (let ((_tl124495125195_ + (let () (declare (not safe)) (##cdr _e124497125190_))) + (_hd124496125193_ + (let () (declare (not safe)) (##car _e124497125190_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124234124931_)) + (gx#identifier? _hd124496125193_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124234124931_)) + (gx#stx-eq? '%#ref _hd124496125193_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124233124933_)) - (let ((_e124238124936_ + (gx#stx-pair? _tl124495125195_)) + (let ((_e124500125198_ (let () (declare (not safe)) - (gx#stx-e _tl124233124933_)))) - (let ((_tl124236124941_ + (gx#stx-e _tl124495125195_)))) + (let ((_tl124498125203_ (let () (declare (not safe)) - (##cdr _e124238124936_))) - (_hd124237124939_ + (##cdr _e124500125198_))) + (_hd124499125201_ (let () (declare (not safe)) - (##car _e124238124936_)))) + (##car _e124500125198_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124236124941_)) + (gx#stx-null? _tl124498125203_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124230124925_)) - (let ((_e124241124944_ + (gx#stx-pair? _tl124492125187_)) + (let ((_e124503125206_ (let () (declare (not safe)) (gx#stx-e - _tl124230124925_)))) - (let ((_tl124239124949_ + _tl124492125187_)))) + (let ((_tl124501125211_ (let () (declare (not safe)) - (##cdr _e124241124944_))) - (_hd124240124947_ + (##cdr _e124503125206_))) + (_hd124502125209_ (let () (declare (not safe)) - (##car _e124241124944_)))) + (##car _e124503125206_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124240124947_)) - (let ((_e124244124952_ + _hd124502125209_)) + (let ((_e124506125214_ (let () (declare (not safe)) (gx#stx-e - _hd124240124947_)))) - (let ((_tl124242124957_ + _hd124502125209_)))) + (let ((_tl124504125219_ (let () (declare (not safe)) - (##cdr _e124244124952_))) - (_hd124243124955_ + (##cdr _e124506125214_))) + (_hd124505125217_ (let () (declare (not safe)) - (##car _e124244124952_)))) + (##car _e124506125214_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124243124955_)) + _hd124505125217_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd124243124955_)) + (gx#stx-eq? '%#ref _hd124505125217_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124242124957_)) - (let ((_e124247124960_ + (gx#stx-pair? _tl124504125219_)) + (let ((_e124509125222_ (let () (declare (not safe)) - (gx#stx-e _tl124242124957_)))) - (let ((_tl124245124965_ + (gx#stx-e _tl124504125219_)))) + (let ((_tl124507125227_ (let () (declare (not safe)) - (##cdr _e124247124960_))) - (_hd124246124963_ + (##cdr _e124509125222_))) + (_hd124508125225_ (let () (declare (not safe)) - (##car _e124247124960_)))) + (##car _e124509125222_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124245124965_)) + (gx#stx-null? _tl124507125227_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl124239124949_)) + (gx#stx-null? _tl124501125211_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl124197124837_)) - (___match127312127313_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_ - _e124199124832_ - _hd124198124835_ - _tl124197124837_ - _e124202124840_ - _hd124201124843_ - _tl124200124845_ - _e124205124848_ - _hd124204124851_ - _tl124203124853_ - _e124208124856_ - _hd124207124859_ - _tl124206124861_ - _e124211124864_ - _hd124210124867_ - _tl124209124869_ - _e124214124872_ - _hd124213124875_ - _tl124212124877_ - _e124217124880_ - _hd124216124883_ - _tl124215124885_ - _e124220124888_ - _hd124219124891_ - _tl124218124893_ - _e124223124896_ - _hd124222124899_ - _tl124221124901_ - _e124226124904_ - _hd124225124907_ - _tl124224124909_ - _e124229124912_ - _hd124228124915_ - _tl124227124917_ - _e124232124920_ - _hd124231124923_ - _tl124230124925_ - _e124235124928_ - _hd124234124931_ - _tl124233124933_ - _e124238124936_ - _hd124237124939_ - _tl124236124941_ - _e124241124944_ - _hd124240124947_ - _tl124239124949_ - _e124244124952_ - _hd124243124955_ - _tl124242124957_ - _e124247124960_ - _hd124246124963_ - _tl124245124965_) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127324127325_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_ - _e124196124824_ - _hd124195124827_ - _tl124194124829_)))) - (___match127458127459_ - _e124193124816_ - _hd124192124819_ - _tl124191124821_))))) + (gx#stx-null? _tl124459125099_)) + (___match127574127575_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_ + _e124461125094_ + _hd124460125097_ + _tl124459125099_ + _e124464125102_ + _hd124463125105_ + _tl124462125107_ + _e124467125110_ + _hd124466125113_ + _tl124465125115_ + _e124470125118_ + _hd124469125121_ + _tl124468125123_ + _e124473125126_ + _hd124472125129_ + _tl124471125131_ + _e124476125134_ + _hd124475125137_ + _tl124474125139_ + _e124479125142_ + _hd124478125145_ + _tl124477125147_ + _e124482125150_ + _hd124481125153_ + _tl124480125155_ + _e124485125158_ + _hd124484125161_ + _tl124483125163_ + _e124488125166_ + _hd124487125169_ + _tl124486125171_ + _e124491125174_ + _hd124490125177_ + _tl124489125179_ + _e124494125182_ + _hd124493125185_ + _tl124492125187_ + _e124497125190_ + _hd124496125193_ + _tl124495125195_ + _e124500125198_ + _hd124499125201_ + _tl124498125203_ + _e124503125206_ + _hd124502125209_ + _tl124501125211_ + _e124506125214_ + _hd124505125217_ + _tl124504125219_ + _e124509125222_ + _hd124508125225_ + _tl124507125227_) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127586127587_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_ + _e124458125086_ + _hd124457125089_ + _tl124456125091_)))) + (___match127720127721_ + _e124455125078_ + _hd124454125081_ + _tl124453125083_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127139127140_)) - (let ((_e124184125033_ + (gx#stx-pair? ___stx127401127402_)) + (let ((_e124446125295_ (let () (declare (not safe)) - (gx#stx-e ___stx127139127140_)))) - (let ((_tl124182125038_ + (gx#stx-e ___stx127401127402_)))) + (let ((_tl124444125300_ (let () (declare (not safe)) - (##cdr _e124184125033_))) - (_hd124183125036_ + (##cdr _e124446125295_))) + (_hd124445125298_ (let () (declare (not safe)) - (##car _e124184125033_)))) + (##car _e124446125295_)))) (if (gxc#current-compile-type-closure) - (let ((_L125041_ _tl124182125038_)) - (___kont127141127142_ _L125041_)) - (___match127166127167_ - _e124184125033_ - _hd124183125036_ - _tl124182125038_)))) - (let () (declare (not safe)) (_g124179124375_)))))))) + (let ((_L125303_ _tl124444125300_)) + (___kont127403127404_ _L125303_)) + (___match127428127429_ + _e124446125295_ + _hd124445125298_ + _tl124444125300_)))) + (let () (declare (not safe)) (_g124441124637_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx124128_) - (letrec ((_clause-e124130_ - (lambda (_form124171_) - (let ((__obj128812 + (lambda (_stx124390_) + (letrec ((_clause-e124392_ + (lambda (_form124433_) + (let ((__obj129074 (let () (declare (not safe)) (##structure @@ -5688,4953 +5688,4953 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj128812 + __obj129074 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form124171_)) - (if (let ((__tmp128879 + (gxc#lambda-form-arity _form124433_)) + (if (let ((__tmp129141 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp128879)) + (not __tmp129141)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form124171_)) + (gxc#dispatch-lambda-form? _form124433_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form124171_)) + _form124433_)) '#f) '#f)) - __obj128812)))) - (let* ((_g124132124142_ - (lambda (_g124133124139_) + __obj129074)))) + (let* ((_g124394124404_ + (lambda (_g124395124401_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124133124139_)))) - (_g124131124168_ - (lambda (_g124133124145_) + _g124395124401_)))) + (_g124393124430_ + (lambda (_g124395124407_) (if (let () (declare (not safe)) - (gx#stx-pair? _g124133124145_)) - (let ((_e124137124147_ + (gx#stx-pair? _g124395124407_)) + (let ((_e124399124409_ (let () (declare (not safe)) - (gx#stx-e _g124133124145_)))) - (let ((_hd124136124150_ + (gx#stx-e _g124395124407_)))) + (let ((_hd124398124412_ (let () (declare (not safe)) - (##car _e124137124147_))) - (_tl124135124152_ + (##car _e124399124409_))) + (_tl124397124414_ (let () (declare (not safe)) - (##cdr _e124137124147_)))) - ((lambda (_L124155_) - (let ((_clauses124166_ - (map _clause-e124130_ _L124155_))) + (##cdr _e124399124409_)))) + ((lambda (_L124417_) + (let ((_clauses124428_ + (map _clause-e124392_ _L124417_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses124166_))) - _tl124135124152_))) + _clauses124428_))) + _tl124397124414_))) (let () (declare (not safe)) - (_g124132124142_ _g124133124145_)))))) + (_g124394124404_ _g124395124407_)))))) (declare (not safe)) - (_g124131124168_ _stx124128_))))) + (_g124393124430_ _stx124390_))))) (define gxc#basic-expression-type-let-values% - (lambda (_stx124060_) - (let* ((_g124062124079_ - (lambda (_g124063124076_) + (lambda (_stx124322_) + (let* ((_g124324124341_ + (lambda (_g124325124338_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124063124076_)))) - (_g124061124125_ - (lambda (_g124063124082_) + _g124325124338_)))) + (_g124323124387_ + (lambda (_g124325124344_) (if (let () (declare (not safe)) - (gx#stx-pair? _g124063124082_)) - (let ((_e124068124084_ + (gx#stx-pair? _g124325124344_)) + (let ((_e124330124346_ (let () (declare (not safe)) - (gx#stx-e _g124063124082_)))) - (let ((_hd124067124087_ + (gx#stx-e _g124325124344_)))) + (let ((_hd124329124349_ (let () (declare (not safe)) - (##car _e124068124084_))) - (_tl124066124089_ + (##car _e124330124346_))) + (_tl124328124351_ (let () (declare (not safe)) - (##cdr _e124068124084_)))) + (##cdr _e124330124346_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124066124089_)) - (let ((_e124071124092_ + (gx#stx-pair? _tl124328124351_)) + (let ((_e124333124354_ (let () (declare (not safe)) - (gx#stx-e _tl124066124089_)))) - (let ((_hd124070124095_ + (gx#stx-e _tl124328124351_)))) + (let ((_hd124332124357_ (let () (declare (not safe)) - (##car _e124071124092_))) - (_tl124069124097_ + (##car _e124333124354_))) + (_tl124331124359_ (let () (declare (not safe)) - (##cdr _e124071124092_)))) + (##cdr _e124333124354_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124069124097_)) - (let ((_e124074124100_ + (gx#stx-pair? _tl124331124359_)) + (let ((_e124336124362_ (let () (declare (not safe)) - (gx#stx-e _tl124069124097_)))) - (let ((_hd124073124103_ + (gx#stx-e _tl124331124359_)))) + (let ((_hd124335124365_ (let () (declare (not safe)) - (##car _e124074124100_))) - (_tl124072124105_ + (##car _e124336124362_))) + (_tl124334124367_ (let () (declare (not safe)) - (##cdr _e124074124100_)))) + (##cdr _e124336124362_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124072124105_)) - ((lambda (_L124108_ _L124109_) - (let ((__tmp128880 + _tl124334124367_)) + ((lambda (_L124370_ _L124371_) + (let ((__tmp129142 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L124108_))))) + _L124370_))))) (declare (not safe)) (call-with-parameters - __tmp128880 + __tmp129142 gxc#current-compile-type-closure '#t))) - _hd124073124103_ - _hd124070124095_) + _hd124335124365_ + _hd124332124357_) (let () (declare (not safe)) - (_g124062124079_ - _g124063124082_))))) + (_g124324124341_ + _g124325124344_))))) (let () (declare (not safe)) - (_g124062124079_ _g124063124082_))))) + (_g124324124341_ _g124325124344_))))) (let () (declare (not safe)) - (_g124062124079_ _g124063124082_))))) + (_g124324124341_ _g124325124344_))))) (let () (declare (not safe)) - (_g124062124079_ _g124063124082_)))))) + (_g124324124341_ _g124325124344_)))))) (declare (not safe)) - (_g124061124125_ _stx124060_)))) + (_g124323124387_ _stx124322_)))) (define gxc#basic-expression-type-builtin (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_stx123965_) - (let* ((___stx127467127468_ _stx123965_) - (_g123968123988_ + (lambda (_stx124227_) + (let* ((___stx127729127730_ _stx124227_) + (_g124230124250_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127467127468_))))) - (let ((___kont127469127470_ - (lambda (_L124032_ _L124033_) - (let ((_type-e124050124052_ - (let ((__tmp128881 + ___stx127729127730_))))) + (let ((___kont127731127732_ + (lambda (_L124294_ _L124295_) + (let ((_type-e124312124314_ + (let ((__tmp129143 (let () (declare (not safe)) - (gxc#identifier-symbol _L124033_)))) + (gxc#identifier-symbol _L124295_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-builtin - __tmp128881)))) - (if _type-e124050124052_ - (let ((_type-e124055_ _type-e124050124052_)) - (_type-e124055_ _stx123965_ _L124032_)) + __tmp129143)))) + (if _type-e124312124314_ + (let ((_type-e124317_ _type-e124312124314_)) + (_type-e124317_ _stx124227_ _L124294_)) '#f)))) - (___kont127471127472_ (lambda () '#f))) + (___kont127733127734_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127467127468_)) - (let ((_e123974124000_ + (gx#stx-pair? ___stx127729127730_)) + (let ((_e124236124262_ (let () (declare (not safe)) - (gx#stx-e ___stx127467127468_)))) - (let ((_tl123972124005_ - (let () (declare (not safe)) (##cdr _e123974124000_))) - (_hd123973124003_ + (gx#stx-e ___stx127729127730_)))) + (let ((_tl124234124267_ + (let () (declare (not safe)) (##cdr _e124236124262_))) + (_hd124235124265_ (let () (declare (not safe)) - (##car _e123974124000_)))) + (##car _e124236124262_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123972124005_)) - (let ((_e123977124008_ + (gx#stx-pair? _tl124234124267_)) + (let ((_e124239124270_ (let () (declare (not safe)) - (gx#stx-e _tl123972124005_)))) - (let ((_tl123975124013_ + (gx#stx-e _tl124234124267_)))) + (let ((_tl124237124275_ (let () (declare (not safe)) - (##cdr _e123977124008_))) - (_hd123976124011_ + (##cdr _e124239124270_))) + (_hd124238124273_ (let () (declare (not safe)) - (##car _e123977124008_)))) + (##car _e124239124270_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123976124011_)) - (let ((_e123980124016_ + (gx#stx-pair? _hd124238124273_)) + (let ((_e124242124278_ (let () (declare (not safe)) - (gx#stx-e _hd123976124011_)))) - (let ((_tl123978124021_ + (gx#stx-e _hd124238124273_)))) + (let ((_tl124240124283_ (let () (declare (not safe)) - (##cdr _e123980124016_))) - (_hd123979124019_ + (##cdr _e124242124278_))) + (_hd124241124281_ (let () (declare (not safe)) - (##car _e123980124016_)))) + (##car _e124242124278_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123979124019_)) + (gx#identifier? _hd124241124281_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123979124019_)) + _hd124241124281_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123978124021_)) - (let ((_e123983124024_ + _tl124240124283_)) + (let ((_e124245124286_ (let () (declare (not safe)) (gx#stx-e - _tl123978124021_)))) - (let ((_tl123981124029_ + _tl124240124283_)))) + (let ((_tl124243124291_ (let () (declare (not safe)) - (##cdr _e123983124024_))) - (_hd123982124027_ + (##cdr _e124245124286_))) + (_hd124244124289_ (let () (declare (not safe)) - (##car _e123983124024_)))) + (##car _e124245124286_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123981124029_)) - (___kont127469127470_ - _tl123975124013_ - _hd123982124027_) - (___kont127471127472_)))) - (___kont127471127472_)) - (___kont127471127472_)) - (___kont127471127472_)))) - (___kont127471127472_)))) - (___kont127471127472_)))) - (___kont127471127472_)))))) + _tl124243124291_)) + (___kont127731127732_ + _tl124237124275_ + _hd124244124289_) + (___kont127733127734_)))) + (___kont127733127734_)) + (___kont127733127734_)) + (___kont127733127734_)))) + (___kont127733127734_)))) + (___kont127733127734_)))) + (___kont127733127734_)))))) (define gxc#basic-expression-type-ref% - (lambda (_stx123914_) - (let* ((_g123916123929_ - (lambda (_g123917123926_) + (lambda (_stx124176_) + (let* ((_g124178124191_ + (lambda (_g124179124188_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g123917123926_)))) - (_g123915123962_ - (lambda (_g123917123932_) + _g124179124188_)))) + (_g124177124224_ + (lambda (_g124179124194_) (if (let () (declare (not safe)) - (gx#stx-pair? _g123917123932_)) - (let ((_e123921123934_ + (gx#stx-pair? _g124179124194_)) + (let ((_e124183124196_ (let () (declare (not safe)) - (gx#stx-e _g123917123932_)))) - (let ((_hd123920123937_ + (gx#stx-e _g124179124194_)))) + (let ((_hd124182124199_ (let () (declare (not safe)) - (##car _e123921123934_))) - (_tl123919123939_ + (##car _e124183124196_))) + (_tl124181124201_ (let () (declare (not safe)) - (##cdr _e123921123934_)))) + (##cdr _e124183124196_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123919123939_)) - (let ((_e123924123942_ + (gx#stx-pair? _tl124181124201_)) + (let ((_e124186124204_ (let () (declare (not safe)) - (gx#stx-e _tl123919123939_)))) - (let ((_hd123923123945_ + (gx#stx-e _tl124181124201_)))) + (let ((_hd124185124207_ (let () (declare (not safe)) - (##car _e123924123942_))) - (_tl123922123947_ + (##car _e124186124204_))) + (_tl124184124209_ (let () (declare (not safe)) - (##cdr _e123924123942_)))) + (##cdr _e124186124204_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123922123947_)) - ((lambda (_L123950_) - (let ((__tmp128882 + (gx#stx-null? _tl124184124209_)) + ((lambda (_L124212_) + (let ((__tmp129144 (let () (declare (not safe)) (gxc#identifier-symbol - _L123950_)))) + _L124212_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp128882))) - _hd123923123945_) + __tmp129144))) + _hd124185124207_) (let () (declare (not safe)) - (_g123916123929_ _g123917123932_))))) + (_g124178124191_ _g124179124194_))))) (let () (declare (not safe)) - (_g123916123929_ _g123917123932_))))) + (_g124178124191_ _g124179124194_))))) (let () (declare (not safe)) - (_g123916123929_ _g123917123932_)))))) + (_g124178124191_ _g124179124194_)))))) (declare (not safe)) - (_g123915123962_ _stx123914_)))) + (_g124177124224_ _stx124176_)))) (define gxc#dispatch-lambda-form? - (lambda (_form123148_) - (let* ((___stx127505127506_ _form123148_) - (_g123153123310_ + (lambda (_form123410_) + (let* ((___stx127767127768_ _form123410_) + (_g123415123572_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127505127506_))))) - (let ((___kont127507127508_ - (lambda (_L123834_ _L123835_ _L123836_) '#t)) - (___kont127513127514_ - (lambda (_L123622_ - _L123623_ - _L123624_ - _L123625_ - _L123626_ - _L123627_) + ___stx127767127768_))))) + (let ((___kont127769127770_ + (lambda (_L124096_ _L124097_ _L124098_) '#t)) + (___kont127775127776_ + (lambda (_L123884_ + _L123885_ + _L123886_ + _L123887_ + _L123888_ + _L123889_) '#t)) - (___kont127519127520_ - (lambda (_L123418_ _L123419_ _L123420_ _L123421_) '#t)) - (___kont127521127522_ (lambda () '#f))) - (let* ((___match127646127647_ - (lambda (_e123272123322_ - _hd123271123325_ - _tl123270123327_ - _e123275123330_ - _hd123274123333_ - _tl123273123335_ - _e123278123338_ - _hd123277123341_ - _tl123276123343_ - _e123281123346_ - _hd123280123349_ - _tl123279123351_ - _e123284123354_ - _hd123283123357_ - _tl123282123359_ - _e123287123362_ - _hd123286123365_ - _tl123285123367_ - _e123290123370_ - _hd123289123373_ - _tl123288123375_ - _e123293123378_ - _hd123292123381_ - _tl123291123383_ - _e123296123386_ - _hd123295123389_ - _tl123294123391_ - _e123299123394_ - _hd123298123397_ - _tl123297123399_ - _e123302123402_ - _hd123301123405_ - _tl123300123407_ - _e123305123410_ - _hd123304123413_ - _tl123303123415_) - (let ((_L123418_ _hd123304123413_) - (_L123419_ _hd123295123389_) - (_L123420_ _hd123286123365_) - (_L123421_ _hd123271123325_)) + (___kont127781127782_ + (lambda (_L123680_ _L123681_ _L123682_ _L123683_) '#t)) + (___kont127783127784_ (lambda () '#f))) + (let* ((___match127908127909_ + (lambda (_e123534123584_ + _hd123533123587_ + _tl123532123589_ + _e123537123592_ + _hd123536123595_ + _tl123535123597_ + _e123540123600_ + _hd123539123603_ + _tl123538123605_ + _e123543123608_ + _hd123542123611_ + _tl123541123613_ + _e123546123616_ + _hd123545123619_ + _tl123544123621_ + _e123549123624_ + _hd123548123627_ + _tl123547123629_ + _e123552123632_ + _hd123551123635_ + _tl123550123637_ + _e123555123640_ + _hd123554123643_ + _tl123553123645_ + _e123558123648_ + _hd123557123651_ + _tl123556123653_ + _e123561123656_ + _hd123560123659_ + _tl123559123661_ + _e123564123664_ + _hd123563123667_ + _tl123562123669_ + _e123567123672_ + _hd123566123675_ + _tl123565123677_) + (let ((_L123680_ _hd123566123675_) + (_L123681_ _hd123557123651_) + (_L123682_ _hd123548123627_) + (_L123683_ _hd123533123587_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L123421_)) + (gx#identifier? _L123683_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123420_ 'apply)) + (gxc#runtime-identifier=? _L123682_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L123421_ _L123418_)) - (let ((__tmp128883 + (gx#free-identifier=? _L123683_ _L123680_)) + (let ((__tmp129145 (let () (declare (not safe)) (gx#free-identifier=? - _L123419_ - _L123421_)))) + _L123681_ + _L123683_)))) (declare (not safe)) - (not __tmp128883))) - (___kont127519127520_ - _L123418_ - _L123419_ - _L123420_ - _L123421_) - (___kont127521127522_))))) - (___match127618127619_ - (lambda (_e123272123322_ - _hd123271123325_ - _tl123270123327_ - _e123275123330_ - _hd123274123333_ - _tl123273123335_ - _e123278123338_ - _hd123277123341_ - _tl123276123343_ - _e123281123346_ - _hd123280123349_ - _tl123279123351_ - _e123284123354_ - _hd123283123357_ - _tl123282123359_ - _e123287123362_ - _hd123286123365_ - _tl123285123367_ - _e123290123370_ - _hd123289123373_ - _tl123288123375_ - _e123293123378_ - _hd123292123381_ - _tl123291123383_ - _e123296123386_ - _hd123295123389_ - _tl123294123391_) + (not __tmp129145))) + (___kont127781127782_ + _L123680_ + _L123681_ + _L123682_ + _L123683_) + (___kont127783127784_))))) + (___match127880127881_ + (lambda (_e123534123584_ + _hd123533123587_ + _tl123532123589_ + _e123537123592_ + _hd123536123595_ + _tl123535123597_ + _e123540123600_ + _hd123539123603_ + _tl123538123605_ + _e123543123608_ + _hd123542123611_ + _tl123541123613_ + _e123546123616_ + _hd123545123619_ + _tl123544123621_ + _e123549123624_ + _hd123548123627_ + _tl123547123629_ + _e123552123632_ + _hd123551123635_ + _tl123550123637_ + _e123555123640_ + _hd123554123643_ + _tl123553123645_ + _e123558123648_ + _hd123557123651_ + _tl123556123653_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123288123375_)) - (let ((_e123299123394_ + (gx#stx-pair? _tl123550123637_)) + (let ((_e123561123656_ (let () (declare (not safe)) - (gx#stx-e _tl123288123375_)))) - (let ((_tl123297123399_ + (gx#stx-e _tl123550123637_)))) + (let ((_tl123559123661_ (let () (declare (not safe)) - (##cdr _e123299123394_))) - (_hd123298123397_ + (##cdr _e123561123656_))) + (_hd123560123659_ (let () (declare (not safe)) - (##car _e123299123394_)))) + (##car _e123561123656_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123298123397_)) - (let ((_e123302123402_ + (gx#stx-pair? _hd123560123659_)) + (let ((_e123564123664_ (let () (declare (not safe)) - (gx#stx-e _hd123298123397_)))) - (let ((_tl123300123407_ + (gx#stx-e _hd123560123659_)))) + (let ((_tl123562123669_ (let () (declare (not safe)) - (##cdr _e123302123402_))) - (_hd123301123405_ + (##cdr _e123564123664_))) + (_hd123563123667_ (let () (declare (not safe)) - (##car _e123302123402_)))) + (##car _e123564123664_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123301123405_)) + (gx#identifier? _hd123563123667_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123301123405_)) + _hd123563123667_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123300123407_)) - (let ((_e123305123410_ + _tl123562123669_)) + (let ((_e123567123672_ (let () (declare (not safe)) (gx#stx-e - _tl123300123407_)))) - (let ((_tl123303123415_ + _tl123562123669_)))) + (let ((_tl123565123677_ (let () (declare (not safe)) - (##cdr _e123305123410_))) - (_hd123304123413_ + (##cdr _e123567123672_))) + (_hd123566123675_ (let () (declare (not safe)) - (##car _e123305123410_)))) + (##car _e123567123672_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123303123415_)) + _tl123565123677_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl123297123399_)) + (gx#stx-null? _tl123559123661_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123273123335_)) - (___match127646127647_ - _e123272123322_ - _hd123271123325_ - _tl123270123327_ - _e123275123330_ - _hd123274123333_ - _tl123273123335_ - _e123278123338_ - _hd123277123341_ - _tl123276123343_ - _e123281123346_ - _hd123280123349_ - _tl123279123351_ - _e123284123354_ - _hd123283123357_ - _tl123282123359_ - _e123287123362_ - _hd123286123365_ - _tl123285123367_ - _e123290123370_ - _hd123289123373_ - _tl123288123375_ - _e123293123378_ - _hd123292123381_ - _tl123291123383_ - _e123296123386_ - _hd123295123389_ - _tl123294123391_ - _e123299123394_ - _hd123298123397_ - _tl123297123399_ - _e123302123402_ - _hd123301123405_ - _tl123300123407_ - _e123305123410_ - _hd123304123413_ - _tl123303123415_) - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)))) - (___kont127521127522_)))) - (___match127548127549_ - (lambda (_e123208123462_ - _hd123207123465_ - _tl123206123467_ - ___splice127515127516_ - _target123209123470_ - _tl123211123472_) - (letrec ((_loop123212123475_ - (lambda (_hd123210123478_ _arg123216123480_) + (gx#stx-null? _tl123535123597_)) + (___match127908127909_ + _e123534123584_ + _hd123533123587_ + _tl123532123589_ + _e123537123592_ + _hd123536123595_ + _tl123535123597_ + _e123540123600_ + _hd123539123603_ + _tl123538123605_ + _e123543123608_ + _hd123542123611_ + _tl123541123613_ + _e123546123616_ + _hd123545123619_ + _tl123544123621_ + _e123549123624_ + _hd123548123627_ + _tl123547123629_ + _e123552123632_ + _hd123551123635_ + _tl123550123637_ + _e123555123640_ + _hd123554123643_ + _tl123553123645_ + _e123558123648_ + _hd123557123651_ + _tl123556123653_ + _e123561123656_ + _hd123560123659_ + _tl123559123661_ + _e123564123664_ + _hd123563123667_ + _tl123562123669_ + _e123567123672_ + _hd123566123675_ + _tl123565123677_) + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)))) + (___kont127783127784_)))) + (___match127810127811_ + (lambda (_e123470123724_ + _hd123469123727_ + _tl123468123729_ + ___splice127777127778_ + _target123471123732_ + _tl123473123734_) + (letrec ((_loop123474123737_ + (lambda (_hd123472123740_ _arg123478123742_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123210123478_)) - (let ((_e123213123483_ + (gx#stx-pair? _hd123472123740_)) + (let ((_e123475123745_ (let () (declare (not safe)) - (gx#stx-e _hd123210123478_)))) - (let ((_lp-tl123215123488_ + (gx#stx-e _hd123472123740_)))) + (let ((_lp-tl123477123750_ (let () (declare (not safe)) - (##cdr _e123213123483_))) - (_lp-hd123214123486_ + (##cdr _e123475123745_))) + (_lp-hd123476123748_ (let () (declare (not safe)) - (##car _e123213123483_)))) - (let ((__tmp128898 + (##car _e123475123745_)))) + (let ((__tmp129160 (let () (declare (not safe)) - (cons _lp-hd123214123486_ - _arg123216123480_)))) + (cons _lp-hd123476123748_ + _arg123478123742_)))) (declare (not safe)) - (_loop123212123475_ - _lp-tl123215123488_ - __tmp128898)))) - (let ((_arg123217123491_ - (reverse _arg123216123480_))) + (_loop123474123737_ + _lp-tl123477123750_ + __tmp129160)))) + (let ((_arg123479123753_ + (reverse _arg123478123742_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123206123467_)) - (let ((_e123220123494_ + (gx#stx-pair? _tl123468123729_)) + (let ((_e123482123756_ (let () (declare (not safe)) (gx#stx-e - _tl123206123467_)))) - (let ((_tl123218123499_ + _tl123468123729_)))) + (let ((_tl123480123761_ (let () (declare (not safe)) - (##cdr _e123220123494_))) - (_hd123219123497_ + (##cdr _e123482123756_))) + (_hd123481123759_ (let () (declare (not safe)) - (##car _e123220123494_)))) + (##car _e123482123756_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123219123497_)) - (let ((_e123223123502_ + _hd123481123759_)) + (let ((_e123485123764_ (let () (declare (not safe)) (gx#stx-e - _hd123219123497_)))) - (let ((_tl123221123507_ + _hd123481123759_)))) + (let ((_tl123483123769_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123223123502_))) - (_hd123222123505_ - (let () (declare (not safe)) (##car _e123223123502_)))) + (##cdr _e123485123764_))) + (_hd123484123767_ + (let () (declare (not safe)) (##car _e123485123764_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123222123505_)) + (gx#identifier? _hd123484123767_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd123222123505_)) + (gx#stx-eq? '%#call _hd123484123767_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123221123507_)) - (let ((_e123226123510_ + (gx#stx-pair? _tl123483123769_)) + (let ((_e123488123772_ (let () (declare (not safe)) - (gx#stx-e _tl123221123507_)))) - (let ((_tl123224123515_ + (gx#stx-e _tl123483123769_)))) + (let ((_tl123486123777_ (let () (declare (not safe)) - (##cdr _e123226123510_))) - (_hd123225123513_ + (##cdr _e123488123772_))) + (_hd123487123775_ (let () (declare (not safe)) - (##car _e123226123510_)))) + (##car _e123488123772_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123225123513_)) - (let ((_e123229123518_ + (gx#stx-pair? _hd123487123775_)) + (let ((_e123491123780_ (let () (declare (not safe)) - (gx#stx-e _hd123225123513_)))) - (let ((_tl123227123523_ + (gx#stx-e _hd123487123775_)))) + (let ((_tl123489123785_ (let () (declare (not safe)) - (##cdr _e123229123518_))) - (_hd123228123521_ + (##cdr _e123491123780_))) + (_hd123490123783_ (let () (declare (not safe)) - (##car _e123229123518_)))) + (##car _e123491123780_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123228123521_)) + _hd123490123783_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123228123521_)) + _hd123490123783_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123227123523_)) - (let ((_e123232123526_ + _tl123489123785_)) + (let ((_e123494123788_ (let () (declare (not safe)) (gx#stx-e - _tl123227123523_)))) - (let ((_tl123230123531_ + _tl123489123785_)))) + (let ((_tl123492123793_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123232123526_))) - (_hd123231123529_ - (let () (declare (not safe)) (##car _e123232123526_)))) + (##cdr _e123494123788_))) + (_hd123493123791_ + (let () (declare (not safe)) (##car _e123494123788_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123230123531_)) + (gx#stx-null? _tl123492123793_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123224123515_)) - (let ((_e123235123534_ + (gx#stx-pair? _tl123486123777_)) + (let ((_e123497123796_ (let () (declare (not safe)) - (gx#stx-e _tl123224123515_)))) - (let ((_tl123233123539_ + (gx#stx-e _tl123486123777_)))) + (let ((_tl123495123801_ (let () (declare (not safe)) - (##cdr _e123235123534_))) - (_hd123234123537_ + (##cdr _e123497123796_))) + (_hd123496123799_ (let () (declare (not safe)) - (##car _e123235123534_)))) + (##car _e123497123796_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123234123537_)) - (let ((_e123238123542_ + (gx#stx-pair? _hd123496123799_)) + (let ((_e123500123804_ (let () (declare (not safe)) - (gx#stx-e _hd123234123537_)))) - (let ((_tl123236123547_ + (gx#stx-e _hd123496123799_)))) + (let ((_tl123498123809_ (let () (declare (not safe)) - (##cdr _e123238123542_))) - (_hd123237123545_ + (##cdr _e123500123804_))) + (_hd123499123807_ (let () (declare (not safe)) - (##car _e123238123542_)))) + (##car _e123500123804_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123237123545_)) + (gx#identifier? _hd123499123807_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123237123545_)) + _hd123499123807_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123236123547_)) - (let ((_e123241123550_ + _tl123498123809_)) + (let ((_e123503123812_ (let () (declare (not safe)) (gx#stx-e - _tl123236123547_)))) - (let ((_tl123239123555_ + _tl123498123809_)))) + (let ((_tl123501123817_ (let () (declare (not safe)) - (##cdr _e123241123550_))) - (_hd123240123553_ + (##cdr _e123503123812_))) + (_hd123502123815_ (let () (declare (not safe)) - (##car _e123241123550_)))) + (##car _e123503123812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123239123555_)) + _tl123501123817_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl123233123539_)) + _tl123495123801_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl123233123539_)) + (gx#stx-length _tl123495123801_)) '1) - (let ((___splice127517127518_ + (let ((___splice127779127780_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl123233123539_ + _tl123495123801_ '1)))) - (let ((_tl123244123560_ + (let ((_tl123506123822_ (let () (declare (not safe)) - (##vector-ref ___splice127517127518_ '1))) - (_target123242123558_ + (##vector-ref ___splice127779127780_ '1))) + (_target123504123820_ (let () (declare (not safe)) - (##vector-ref ___splice127517127518_ '0)))) + (##vector-ref ___splice127779127780_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123244123560_)) - (let ((_e123253123563_ + (gx#stx-pair? _tl123506123822_)) + (let ((_e123515123825_ (let () (declare (not safe)) - (gx#stx-e _tl123244123560_)))) - (let ((_tl123251123568_ + (gx#stx-e _tl123506123822_)))) + (let ((_tl123513123830_ (let () (declare (not safe)) - (##cdr _e123253123563_))) - (_hd123252123566_ + (##cdr _e123515123825_))) + (_hd123514123828_ (let () (declare (not safe)) - (##car _e123253123563_)))) + (##car _e123515123825_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123252123566_)) - (let ((_e123256123571_ + (gx#stx-pair? _hd123514123828_)) + (let ((_e123518123833_ (let () (declare (not safe)) - (gx#stx-e _hd123252123566_)))) - (let ((_tl123254123576_ + (gx#stx-e _hd123514123828_)))) + (let ((_tl123516123838_ (let () (declare (not safe)) - (##cdr _e123256123571_))) - (_hd123255123574_ + (##cdr _e123518123833_))) + (_hd123517123836_ (let () (declare (not safe)) - (##car _e123256123571_)))) + (##car _e123518123833_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123255123574_)) + _hd123517123836_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123255123574_)) + _hd123517123836_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123254123576_)) - (let ((_e123259123579_ + _tl123516123838_)) + (let ((_e123521123841_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl123254123576_)))) - (let ((_tl123257123584_ - (let () (declare (not safe)) (##cdr _e123259123579_))) - (_hd123258123582_ + (gx#stx-e _tl123516123838_)))) + (let ((_tl123519123846_ + (let () (declare (not safe)) (##cdr _e123521123841_))) + (_hd123520123844_ (let () (declare (not safe)) - (##car _e123259123579_)))) + (##car _e123521123841_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123257123584_)) + (gx#stx-null? _tl123519123846_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123251123568_)) - (letrec ((_loop123245123587_ - (lambda (_hd123243123590_ - _xarg123249123592_) + (gx#stx-null? _tl123513123830_)) + (letrec ((_loop123507123849_ + (lambda (_hd123505123852_ + _xarg123511123854_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123243123590_)) - (let ((_e123246123595_ + (gx#stx-pair? _hd123505123852_)) + (let ((_e123508123857_ (let () (declare (not safe)) (gx#stx-e - _hd123243123590_)))) - (let ((_lp-tl123248123600_ + _hd123505123852_)))) + (let ((_lp-tl123510123862_ (let () (declare (not safe)) - (##cdr _e123246123595_))) - (_lp-hd123247123598_ + (##cdr _e123508123857_))) + (_lp-hd123509123860_ (let () (declare (not safe)) - (##car _e123246123595_)))) + (##car _e123508123857_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd123247123598_)) - (let ((_e123262123603_ + _lp-hd123509123860_)) + (let ((_e123524123865_ (let () (declare (not safe)) (gx#stx-e - _lp-hd123247123598_)))) - (let ((_tl123260123608_ + _lp-hd123509123860_)))) + (let ((_tl123522123870_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123262123603_))) - (_hd123261123606_ - (let () (declare (not safe)) (##car _e123262123603_)))) + (##cdr _e123524123865_))) + (_hd123523123868_ + (let () (declare (not safe)) (##car _e123524123865_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123261123606_)) + (gx#identifier? _hd123523123868_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123261123606_)) + (gx#stx-eq? '%#ref _hd123523123868_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123260123608_)) - (let ((_e123265123611_ + (gx#stx-pair? _tl123522123870_)) + (let ((_e123527123873_ (let () (declare (not safe)) - (gx#stx-e _tl123260123608_)))) - (let ((_tl123263123616_ + (gx#stx-e _tl123522123870_)))) + (let ((_tl123525123878_ (let () (declare (not safe)) - (##cdr _e123265123611_))) - (_hd123264123614_ + (##cdr _e123527123873_))) + (_hd123526123876_ (let () (declare (not safe)) - (##car _e123265123611_)))) + (##car _e123527123873_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123263123616_)) - (let ((__tmp128897 + (gx#stx-null? _tl123525123878_)) + (let ((__tmp129159 (let () (declare (not safe)) - (cons _hd123264123614_ - _xarg123249123592_)))) + (cons _hd123526123876_ + _xarg123511123854_)))) (declare (not safe)) - (_loop123245123587_ - _lp-tl123248123600_ - __tmp128897)) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)))) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)))) - (let ((_xarg123250123619_ - (reverse _xarg123249123592_))) + (_loop123507123849_ + _lp-tl123510123862_ + __tmp129159)) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)))) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)))) + (let ((_xarg123512123881_ + (reverse _xarg123511123854_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123218123499_)) - (let ((_L123622_ - _hd123258123582_) - (_L123623_ - _xarg123250123619_) - (_L123624_ - _hd123240123553_) - (_L123625_ - _hd123231123529_) - (_L123626_ - _tl123211123472_) - (_L123627_ - _arg123217123491_)) - (if (and (let ((__tmp128895 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128896 - (lambda (_g123670123673_ _g123671123675_) + _tl123480123761_)) + (let ((_L123884_ + _hd123520123844_) + (_L123885_ + _xarg123512123881_) + (_L123886_ + _hd123502123815_) + (_L123887_ + _hd123493123791_) + (_L123888_ + _tl123473123734_) + (_L123889_ + _arg123479123753_)) + (if (and (let ((__tmp129157 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129158 + (lambda (_g123932123935_ _g123933123937_) (let () (declare (not safe)) - (cons _g123670123673_ - _g123671123675_))))) + (cons _g123932123935_ + _g123933123937_))))) (declare (not safe)) - (foldr1 __tmp128896 '() _L123627_)))) + (foldr1 __tmp129158 '() _L123889_)))) (declare (not safe)) - (gx#identifier-list? __tmp128895)) - (let () (declare (not safe)) (gx#identifier? _L123626_)) + (gx#identifier-list? __tmp129157)) + (let () (declare (not safe)) (gx#identifier? _L123888_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123625_ 'apply)) - (fx= (length (let ((__tmp128893 - (lambda (_g123677123680_ - _g123678123682_) + (gxc#runtime-identifier=? _L123887_ 'apply)) + (fx= (length (let ((__tmp129155 + (lambda (_g123939123942_ + _g123940123944_) (let () (declare (not safe)) - (cons _g123677123680_ - _g123678123682_))))) + (cons _g123939123942_ + _g123940123944_))))) (declare (not safe)) - (foldr1 __tmp128893 '() _L123627_))) - (length (let ((__tmp128894 - (lambda (_g123684123687_ - _g123685123689_) + (foldr1 __tmp129155 '() _L123889_))) + (length (let ((__tmp129156 + (lambda (_g123946123949_ + _g123947123951_) (let () (declare (not safe)) - (cons _g123684123687_ - _g123685123689_))))) + (cons _g123946123949_ + _g123947123951_))))) (declare (not safe)) - (foldr1 __tmp128894 '() _L123623_)))) - (let ((__tmp128891 - (let ((__tmp128892 - (lambda (_g123691123694_ _g123692123696_) + (foldr1 __tmp129156 '() _L123885_)))) + (let ((__tmp129153 + (let ((__tmp129154 + (lambda (_g123953123956_ _g123954123958_) (let () (declare (not safe)) - (cons _g123691123694_ - _g123692123696_))))) + (cons _g123953123956_ + _g123954123958_))))) (declare (not safe)) - (foldr1 __tmp128892 '() _L123627_))) - (__tmp128889 - (let ((__tmp128890 - (lambda (_g123698123701_ _g123699123703_) + (foldr1 __tmp129154 '() _L123889_))) + (__tmp129151 + (let ((__tmp129152 + (lambda (_g123960123963_ _g123961123965_) (let () (declare (not safe)) - (cons _g123698123701_ - _g123699123703_))))) + (cons _g123960123963_ + _g123961123965_))))) (declare (not safe)) - (foldr1 __tmp128890 '() _L123623_)))) + (foldr1 __tmp129152 '() _L123885_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp128891 __tmp128889)) + (andmap2 gx#free-identifier=? __tmp129153 __tmp129151)) (let () (declare (not safe)) - (gx#free-identifier=? _L123626_ _L123622_)) - (let ((__tmp128884 - (let ((__tmp128888 - (lambda (_g123705123707_) + (gx#free-identifier=? _L123888_ _L123884_)) + (let ((__tmp129146 + (let ((__tmp129150 + (lambda (_g123967123969_) (let () (declare (not safe)) (gx#free-identifier=? - _g123705123707_ - _L123624_)))) - (__tmp128885 - (let ((__tmp128887 - (lambda (_g123709123712_ - _g123710123714_) + _g123967123969_ + _L123886_)))) + (__tmp129147 + (let ((__tmp129149 + (lambda (_g123971123974_ + _g123972123976_) (let () (declare (not safe)) - (cons _g123709123712_ - _g123710123714_)))) - (__tmp128886 + (cons _g123971123974_ + _g123972123976_)))) + (__tmp129148 (let () (declare (not safe)) - (cons _L123626_ '())))) + (cons _L123888_ '())))) (declare (not safe)) - (foldr1 __tmp128887 - __tmp128886 - _L123627_)))) + (foldr1 __tmp129149 + __tmp129148 + _L123889_)))) (declare (not safe)) - (find __tmp128888 __tmp128885)))) + (find __tmp129150 __tmp129147)))) (declare (not safe)) - (not __tmp128884))) - (___kont127513127514_ - _L123622_ - _L123623_ - _L123624_ - _L123625_ - _L123626_ - _L123627_) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_))))))) + (not __tmp129146))) + (___kont127775127776_ + _L123884_ + _L123885_ + _L123886_ + _L123887_ + _L123888_ + _L123889_) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_))))))) (let () (declare (not safe)) - (_loop123245123587_ _target123242123558_ '()))) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)))) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)))) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)))) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)))) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)) - (___match127618127619_ - _e123208123462_ - _hd123207123465_ - _tl123206123467_ - _e123220123494_ - _hd123219123497_ - _tl123218123499_ - _e123223123502_ - _hd123222123505_ - _tl123221123507_ - _e123226123510_ - _hd123225123513_ - _tl123224123515_ - _e123229123518_ - _hd123228123521_ - _tl123227123523_ - _e123232123526_ - _hd123231123529_ - _tl123230123531_ - _e123235123534_ - _hd123234123537_ - _tl123233123539_ - _e123238123542_ - _hd123237123545_ - _tl123236123547_ - _e123241123550_ - _hd123240123553_ - _tl123239123555_)) - (___kont127521127522_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)))) - (___kont127521127522_)) - (___kont127521127522_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)))) - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127521127522_)))) - (___kont127521127522_))))))) + (_loop123507123849_ _target123504123820_ '()))) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)))) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)))) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)))) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)))) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)) + (___match127880127881_ + _e123470123724_ + _hd123469123727_ + _tl123468123729_ + _e123482123756_ + _hd123481123759_ + _tl123480123761_ + _e123485123764_ + _hd123484123767_ + _tl123483123769_ + _e123488123772_ + _hd123487123775_ + _tl123486123777_ + _e123491123780_ + _hd123490123783_ + _tl123489123785_ + _e123494123788_ + _hd123493123791_ + _tl123492123793_ + _e123497123796_ + _hd123496123799_ + _tl123495123801_ + _e123500123804_ + _hd123499123807_ + _tl123498123809_ + _e123503123812_ + _hd123502123815_ + _tl123501123817_)) + (___kont127783127784_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)))) + (___kont127783127784_)) + (___kont127783127784_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)))) + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127783127784_)))) + (___kont127783127784_))))))) (let () (declare (not safe)) - (_loop123212123475_ _target123209123470_ '()))))) - (___match127536127537_ - (lambda (_e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_) - (letrec ((_loop123164123735_ - (lambda (_hd123162123738_ _arg123168123740_) + (_loop123474123737_ _target123471123732_ '()))))) + (___match127798127799_ + (lambda (_e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_) + (letrec ((_loop123426123997_ + (lambda (_hd123424124000_ _arg123430124002_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123162123738_)) - (let ((_e123165123743_ + (gx#stx-pair? _hd123424124000_)) + (let ((_e123427124005_ (let () (declare (not safe)) - (gx#stx-e _hd123162123738_)))) - (let ((_lp-tl123167123748_ + (gx#stx-e _hd123424124000_)))) + (let ((_lp-tl123429124010_ (let () (declare (not safe)) - (##cdr _e123165123743_))) - (_lp-hd123166123746_ + (##cdr _e123427124005_))) + (_lp-hd123428124008_ (let () (declare (not safe)) - (##car _e123165123743_)))) - (let ((__tmp128912 + (##car _e123427124005_)))) + (let ((__tmp129174 (let () (declare (not safe)) - (cons _lp-hd123166123746_ - _arg123168123740_)))) + (cons _lp-hd123428124008_ + _arg123430124002_)))) (declare (not safe)) - (_loop123164123735_ - _lp-tl123167123748_ - __tmp128912)))) - (let ((_arg123169123751_ - (reverse _arg123168123740_))) + (_loop123426123997_ + _lp-tl123429124010_ + __tmp129174)))) + (let ((_arg123431124013_ + (reverse _arg123430124002_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123158123727_)) - (let ((_e123172123754_ + (gx#stx-pair? _tl123420123989_)) + (let ((_e123434124016_ (let () (declare (not safe)) (gx#stx-e - _tl123158123727_)))) - (let ((_tl123170123759_ + _tl123420123989_)))) + (let ((_tl123432124021_ (let () (declare (not safe)) - (##cdr _e123172123754_))) - (_hd123171123757_ + (##cdr _e123434124016_))) + (_hd123433124019_ (let () (declare (not safe)) - (##car _e123172123754_)))) + (##car _e123434124016_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123171123757_)) - (let ((_e123175123762_ + _hd123433124019_)) + (let ((_e123437124024_ (let () (declare (not safe)) (gx#stx-e - _hd123171123757_)))) - (let ((_tl123173123767_ + _hd123433124019_)))) + (let ((_tl123435124029_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123175123762_))) - (_hd123174123765_ - (let () (declare (not safe)) (##car _e123175123762_)))) + (##cdr _e123437124024_))) + (_hd123436124027_ + (let () (declare (not safe)) (##car _e123437124024_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123174123765_)) + (gx#identifier? _hd123436124027_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd123174123765_)) + (gx#stx-eq? '%#call _hd123436124027_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123173123767_)) - (let ((_e123178123770_ + (gx#stx-pair? _tl123435124029_)) + (let ((_e123440124032_ (let () (declare (not safe)) - (gx#stx-e _tl123173123767_)))) - (let ((_tl123176123775_ + (gx#stx-e _tl123435124029_)))) + (let ((_tl123438124037_ (let () (declare (not safe)) - (##cdr _e123178123770_))) - (_hd123177123773_ + (##cdr _e123440124032_))) + (_hd123439124035_ (let () (declare (not safe)) - (##car _e123178123770_)))) + (##car _e123440124032_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123177123773_)) - (let ((_e123181123778_ + (gx#stx-pair? _hd123439124035_)) + (let ((_e123443124040_ (let () (declare (not safe)) - (gx#stx-e _hd123177123773_)))) - (let ((_tl123179123783_ + (gx#stx-e _hd123439124035_)))) + (let ((_tl123441124045_ (let () (declare (not safe)) - (##cdr _e123181123778_))) - (_hd123180123781_ + (##cdr _e123443124040_))) + (_hd123442124043_ (let () (declare (not safe)) - (##car _e123181123778_)))) + (##car _e123443124040_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123180123781_)) + _hd123442124043_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123180123781_)) + _hd123442124043_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123179123783_)) - (let ((_e123184123786_ + _tl123441124045_)) + (let ((_e123446124048_ (let () (declare (not safe)) (gx#stx-e - _tl123179123783_)))) - (let ((_tl123182123791_ + _tl123441124045_)))) + (let ((_tl123444124053_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123184123786_))) - (_hd123183123789_ - (let () (declare (not safe)) (##car _e123184123786_)))) + (##cdr _e123446124048_))) + (_hd123445124051_ + (let () (declare (not safe)) (##car _e123446124048_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123182123791_)) + (gx#stx-null? _tl123444124053_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl123176123775_)) - (let ((___splice127511127512_ + (gx#stx-pair/null? _tl123438124037_)) + (let ((___splice127773127774_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl123176123775_ + _tl123438124037_ '0)))) - (let ((_tl123187123796_ + (let ((_tl123449124058_ (let () (declare (not safe)) - (##vector-ref ___splice127511127512_ '1))) - (_target123185123794_ + (##vector-ref ___splice127773127774_ '1))) + (_target123447124056_ (let () (declare (not safe)) - (##vector-ref ___splice127511127512_ '0)))) + (##vector-ref ___splice127773127774_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123187123796_)) - (letrec ((_loop123188123799_ - (lambda (_hd123186123802_ - _xarg123192123804_) + (gx#stx-null? _tl123449124058_)) + (letrec ((_loop123450124061_ + (lambda (_hd123448124064_ + _xarg123454124066_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123186123802_)) - (let ((_e123189123807_ + _hd123448124064_)) + (let ((_e123451124069_ (let () (declare (not safe)) (gx#stx-e - _hd123186123802_)))) - (let ((_lp-tl123191123812_ + _hd123448124064_)))) + (let ((_lp-tl123453124074_ (let () (declare (not safe)) - (##cdr _e123189123807_))) - (_lp-hd123190123810_ + (##cdr _e123451124069_))) + (_lp-hd123452124072_ (let () (declare (not safe)) - (##car _e123189123807_)))) + (##car _e123451124069_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd123190123810_)) - (let ((_e123196123815_ + _lp-hd123452124072_)) + (let ((_e123458124077_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd123190123810_)))) - (let ((_tl123194123820_ - (let () (declare (not safe)) (##cdr _e123196123815_))) - (_hd123195123818_ + (gx#stx-e _lp-hd123452124072_)))) + (let ((_tl123456124082_ + (let () (declare (not safe)) (##cdr _e123458124077_))) + (_hd123457124080_ (let () (declare (not safe)) - (##car _e123196123815_)))) + (##car _e123458124077_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123195123818_)) + (gx#identifier? _hd123457124080_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123195123818_)) + (gx#stx-eq? '%#ref _hd123457124080_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123194123820_)) - (let ((_e123199123823_ + (gx#stx-pair? _tl123456124082_)) + (let ((_e123461124085_ (let () (declare (not safe)) - (gx#stx-e _tl123194123820_)))) - (let ((_tl123197123828_ + (gx#stx-e _tl123456124082_)))) + (let ((_tl123459124090_ (let () (declare (not safe)) - (##cdr _e123199123823_))) - (_hd123198123826_ + (##cdr _e123461124085_))) + (_hd123460124088_ (let () (declare (not safe)) - (##car _e123199123823_)))) + (##car _e123461124085_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123197123828_)) - (let ((__tmp128911 + (gx#stx-null? _tl123459124090_)) + (let ((__tmp129173 (let () (declare (not safe)) - (cons _hd123198123826_ - _xarg123192123804_)))) + (cons _hd123460124088_ + _xarg123454124066_)))) (declare (not safe)) - (_loop123188123799_ - _lp-tl123191123812_ - __tmp128911)) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg123193123831_ - (reverse _xarg123192123804_))) + (_loop123450124061_ + _lp-tl123453124074_ + __tmp129173)) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg123455124093_ + (reverse _xarg123454124066_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123170123759_)) - (let ((_L123834_ - _xarg123193123831_) - (_L123835_ - _hd123183123789_) - (_L123836_ - _arg123169123751_)) - (if (and (let ((__tmp128909 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128910 - (lambda (_g123864123867_ - _g123865123869_) + _tl123432124021_)) + (let ((_L124096_ + _xarg123455124093_) + (_L124097_ + _hd123445124051_) + (_L124098_ + _arg123431124013_)) + (if (and (let ((__tmp129171 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129172 + (lambda (_g124126124129_ + _g124127124131_) (let () (declare (not safe)) - (cons _g123864123867_ - _g123865123869_))))) + (cons _g124126124129_ + _g124127124131_))))) (declare (not safe)) - (foldr1 __tmp128910 '() _L123836_)))) + (foldr1 __tmp129172 '() _L124098_)))) (declare (not safe)) - (gx#identifier-list? __tmp128909)) - (fx= (length (let ((__tmp128907 - (lambda (_g123871123874_ - _g123872123876_) + (gx#identifier-list? __tmp129171)) + (fx= (length (let ((__tmp129169 + (lambda (_g124133124136_ + _g124134124138_) (let () (declare (not safe)) - (cons _g123871123874_ - _g123872123876_))))) + (cons _g124133124136_ + _g124134124138_))))) (declare (not safe)) - (foldr1 __tmp128907 '() _L123836_))) - (length (let ((__tmp128908 - (lambda (_g123878123881_ - _g123879123883_) + (foldr1 __tmp129169 '() _L124098_))) + (length (let ((__tmp129170 + (lambda (_g124140124143_ + _g124141124145_) (let () (declare (not safe)) - (cons _g123878123881_ - _g123879123883_))))) + (cons _g124140124143_ + _g124141124145_))))) (declare (not safe)) - (foldr1 __tmp128908 '() _L123834_)))) - (let ((__tmp128905 - (let ((__tmp128906 - (lambda (_g123885123888_ - _g123886123890_) + (foldr1 __tmp129170 '() _L124096_)))) + (let ((__tmp129167 + (let ((__tmp129168 + (lambda (_g124147124150_ + _g124148124152_) (let () (declare (not safe)) - (cons _g123885123888_ - _g123886123890_))))) + (cons _g124147124150_ + _g124148124152_))))) (declare (not safe)) - (foldr1 __tmp128906 '() _L123836_))) - (__tmp128903 - (let ((__tmp128904 - (lambda (_g123892123895_ - _g123893123897_) + (foldr1 __tmp129168 '() _L124098_))) + (__tmp129165 + (let ((__tmp129166 + (lambda (_g124154124157_ + _g124155124159_) (let () (declare (not safe)) - (cons _g123892123895_ - _g123893123897_))))) + (cons _g124154124157_ + _g124155124159_))))) (declare (not safe)) - (foldr1 __tmp128904 '() _L123834_)))) + (foldr1 __tmp129166 '() _L124096_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp128905 - __tmp128903)) - (let ((__tmp128899 - (let ((__tmp128902 - (lambda (_g123899123901_) + __tmp129167 + __tmp129165)) + (let ((__tmp129161 + (let ((__tmp129164 + (lambda (_g124161124163_) (let () (declare (not safe)) (gx#free-identifier=? - _g123899123901_ - _L123835_)))) - (__tmp128900 - (let ((__tmp128901 - (lambda (_g123903123906_ - _g123904123908_) + _g124161124163_ + _L124097_)))) + (__tmp129162 + (let ((__tmp129163 + (lambda (_g124165124168_ + _g124166124170_) (let () (declare (not safe)) - (cons _g123903123906_ - _g123904123908_))))) + (cons _g124165124168_ + _g124166124170_))))) (declare (not safe)) - (foldr1 __tmp128901 '() _L123836_)))) + (foldr1 __tmp129163 '() _L124098_)))) (declare (not safe)) - (find __tmp128902 __tmp128900)))) + (find __tmp129164 __tmp129162)))) (declare (not safe)) - (not __tmp128899))) - (___kont127507127508_ _L123834_ _L123835_ _L123836_) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_))) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_))))))) + (not __tmp129161))) + (___kont127769127770_ _L124096_ _L124097_ _L124098_) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_))) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop123188123799_ - _target123185123794_ + (_loop123450124061_ + _target123447124056_ '()))) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_))))))) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_))))))) (let () (declare (not safe)) - (_loop123164123735_ _target123161123730_ '())))))) + (_loop123426123997_ _target123423123992_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127505127506_)) - (let ((_e123160123722_ + (gx#stx-pair? ___stx127767127768_)) + (let ((_e123422123984_ (let () (declare (not safe)) - (gx#stx-e ___stx127505127506_)))) - (let ((_tl123158123727_ + (gx#stx-e ___stx127767127768_)))) + (let ((_tl123420123989_ (let () (declare (not safe)) - (##cdr _e123160123722_))) - (_hd123159123725_ + (##cdr _e123422123984_))) + (_hd123421123987_ (let () (declare (not safe)) - (##car _e123160123722_)))) + (##car _e123422123984_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd123159123725_)) - (let ((___splice127509127510_ + (gx#stx-pair/null? _hd123421123987_)) + (let ((___splice127771127772_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd123159123725_ + _hd123421123987_ '0)))) - (let ((_tl123163123732_ + (let ((_tl123425123994_ (let () (declare (not safe)) - (##vector-ref ___splice127509127510_ '1))) - (_target123161123730_ + (##vector-ref ___splice127771127772_ '1))) + (_target123423123992_ (let () (declare (not safe)) (##vector-ref - ___splice127509127510_ + ___splice127771127772_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123163123732_)) - (___match127536127537_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_) - (___match127548127549_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - ___splice127509127510_ - _target123161123730_ - _tl123163123732_)))) + (gx#stx-null? _tl123425123994_)) + (___match127798127799_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_) + (___match127810127811_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + ___splice127771127772_ + _target123423123992_ + _tl123425123994_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123158123727_)) - (let ((_e123275123330_ + (gx#stx-pair? _tl123420123989_)) + (let ((_e123537123592_ (let () (declare (not safe)) - (gx#stx-e _tl123158123727_)))) - (let ((_tl123273123335_ + (gx#stx-e _tl123420123989_)))) + (let ((_tl123535123597_ (let () (declare (not safe)) - (##cdr _e123275123330_))) - (_hd123274123333_ + (##cdr _e123537123592_))) + (_hd123536123595_ (let () (declare (not safe)) - (##car _e123275123330_)))) + (##car _e123537123592_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123274123333_)) - (let ((_e123278123338_ + (gx#stx-pair? _hd123536123595_)) + (let ((_e123540123600_ (let () (declare (not safe)) - (gx#stx-e _hd123274123333_)))) - (let ((_tl123276123343_ + (gx#stx-e _hd123536123595_)))) + (let ((_tl123538123605_ (let () (declare (not safe)) - (##cdr _e123278123338_))) - (_hd123277123341_ + (##cdr _e123540123600_))) + (_hd123539123603_ (let () (declare (not safe)) - (##car _e123278123338_)))) + (##car _e123540123600_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123277123341_)) + _hd123539123603_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd123277123341_)) + _hd123539123603_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123276123343_)) - (let ((_e123281123346_ + _tl123538123605_)) + (let ((_e123543123608_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl123276123343_)))) - (let ((_tl123279123351_ - (let () (declare (not safe)) (##cdr _e123281123346_))) - (_hd123280123349_ - (let () (declare (not safe)) (##car _e123281123346_)))) + (gx#stx-e _tl123538123605_)))) + (let ((_tl123541123613_ + (let () (declare (not safe)) (##cdr _e123543123608_))) + (_hd123542123611_ + (let () (declare (not safe)) (##car _e123543123608_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123280123349_)) - (let ((_e123284123354_ + (gx#stx-pair? _hd123542123611_)) + (let ((_e123546123616_ (let () (declare (not safe)) - (gx#stx-e _hd123280123349_)))) - (let ((_tl123282123359_ + (gx#stx-e _hd123542123611_)))) + (let ((_tl123544123621_ (let () (declare (not safe)) - (##cdr _e123284123354_))) - (_hd123283123357_ + (##cdr _e123546123616_))) + (_hd123545123619_ (let () (declare (not safe)) - (##car _e123284123354_)))) + (##car _e123546123616_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123283123357_)) + (gx#identifier? _hd123545123619_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123283123357_)) + (gx#stx-eq? '%#ref _hd123545123619_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123282123359_)) - (let ((_e123287123362_ + (gx#stx-pair? _tl123544123621_)) + (let ((_e123549123624_ (let () (declare (not safe)) - (gx#stx-e _tl123282123359_)))) - (let ((_tl123285123367_ + (gx#stx-e _tl123544123621_)))) + (let ((_tl123547123629_ (let () (declare (not safe)) - (##cdr _e123287123362_))) - (_hd123286123365_ + (##cdr _e123549123624_))) + (_hd123548123627_ (let () (declare (not safe)) - (##car _e123287123362_)))) + (##car _e123549123624_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123285123367_)) + _tl123547123629_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123279123351_)) - (let ((_e123290123370_ + _tl123541123613_)) + (let ((_e123552123632_ (let () (declare (not safe)) (gx#stx-e - _tl123279123351_)))) - (let ((_tl123288123375_ + _tl123541123613_)))) + (let ((_tl123550123637_ (let () (declare (not safe)) - (##cdr _e123290123370_))) - (_hd123289123373_ + (##cdr _e123552123632_))) + (_hd123551123635_ (let () (declare (not safe)) - (##car _e123290123370_)))) + (##car _e123552123632_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123289123373_)) - (let ((_e123293123378_ + _hd123551123635_)) + (let ((_e123555123640_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd123289123373_)))) - (let ((_tl123291123383_ + (gx#stx-e _hd123551123635_)))) + (let ((_tl123553123645_ (let () (declare (not safe)) - (##cdr _e123293123378_))) - (_hd123292123381_ + (##cdr _e123555123640_))) + (_hd123554123643_ (let () (declare (not safe)) - (##car _e123293123378_)))) + (##car _e123555123640_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123292123381_)) + (gx#identifier? _hd123554123643_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123292123381_)) + (gx#stx-eq? '%#ref _hd123554123643_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123291123383_)) - (let ((_e123296123386_ + (gx#stx-pair? _tl123553123645_)) + (let ((_e123558123648_ (let () (declare (not safe)) - (gx#stx-e _tl123291123383_)))) - (let ((_tl123294123391_ + (gx#stx-e _tl123553123645_)))) + (let ((_tl123556123653_ (let () (declare (not safe)) - (##cdr _e123296123386_))) - (_hd123295123389_ + (##cdr _e123558123648_))) + (_hd123557123651_ (let () (declare (not safe)) - (##car _e123296123386_)))) + (##car _e123558123648_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123294123391_)) + (gx#stx-null? _tl123556123653_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123288123375_)) - (let ((_e123299123394_ + _tl123550123637_)) + (let ((_e123561123656_ (let () (declare (not safe)) (gx#stx-e - _tl123288123375_)))) - (let ((_tl123297123399_ + _tl123550123637_)))) + (let ((_tl123559123661_ (let () (declare (not safe)) - (##cdr _e123299123394_))) - (_hd123298123397_ + (##cdr _e123561123656_))) + (_hd123560123659_ (let () (declare (not safe)) - (##car _e123299123394_)))) + (##car _e123561123656_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123298123397_)) - (let ((_e123302123402_ + _hd123560123659_)) + (let ((_e123564123664_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd123298123397_)))) - (let ((_tl123300123407_ - (let () (declare (not safe)) (##cdr _e123302123402_))) - (_hd123301123405_ - (let () (declare (not safe)) (##car _e123302123402_)))) + (gx#stx-e _hd123560123659_)))) + (let ((_tl123562123669_ + (let () (declare (not safe)) (##cdr _e123564123664_))) + (_hd123563123667_ + (let () (declare (not safe)) (##car _e123564123664_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123301123405_)) + (gx#identifier? _hd123563123667_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123301123405_)) + (gx#stx-eq? '%#ref _hd123563123667_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123300123407_)) - (let ((_e123305123410_ + (gx#stx-pair? _tl123562123669_)) + (let ((_e123567123672_ (let () (declare (not safe)) - (gx#stx-e _tl123300123407_)))) - (let ((_tl123303123415_ + (gx#stx-e _tl123562123669_)))) + (let ((_tl123565123677_ (let () (declare (not safe)) - (##cdr _e123305123410_))) - (_hd123304123413_ + (##cdr _e123567123672_))) + (_hd123566123675_ (let () (declare (not safe)) - (##car _e123305123410_)))) + (##car _e123567123672_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123303123415_)) + (gx#stx-null? _tl123565123677_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123297123399_)) + (gx#stx-null? _tl123559123661_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123273123335_)) - (___match127646127647_ - _e123160123722_ - _hd123159123725_ - _tl123158123727_ - _e123275123330_ - _hd123274123333_ - _tl123273123335_ - _e123278123338_ - _hd123277123341_ - _tl123276123343_ - _e123281123346_ - _hd123280123349_ - _tl123279123351_ - _e123284123354_ - _hd123283123357_ - _tl123282123359_ - _e123287123362_ - _hd123286123365_ - _tl123285123367_ - _e123290123370_ - _hd123289123373_ - _tl123288123375_ - _e123293123378_ - _hd123292123381_ - _tl123291123383_ - _e123296123386_ - _hd123295123389_ - _tl123294123391_ - _e123299123394_ - _hd123298123397_ - _tl123297123399_ - _e123302123402_ - _hd123301123405_ - _tl123300123407_ - _e123305123410_ - _hd123304123413_ - _tl123303123415_) - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)) - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)))) - (___kont127521127522_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127521127522_)) - (___kont127521127522_)))) - (___kont127521127522_)))) - (___kont127521127522_))))) - (___kont127521127522_))))))) + _tl123535123597_)) + (___match127908127909_ + _e123422123984_ + _hd123421123987_ + _tl123420123989_ + _e123537123592_ + _hd123536123595_ + _tl123535123597_ + _e123540123600_ + _hd123539123603_ + _tl123538123605_ + _e123543123608_ + _hd123542123611_ + _tl123541123613_ + _e123546123616_ + _hd123545123619_ + _tl123544123621_ + _e123549123624_ + _hd123548123627_ + _tl123547123629_ + _e123552123632_ + _hd123551123635_ + _tl123550123637_ + _e123555123640_ + _hd123554123643_ + _tl123553123645_ + _e123558123648_ + _hd123557123651_ + _tl123556123653_ + _e123561123656_ + _hd123560123659_ + _tl123559123661_ + _e123564123664_ + _hd123563123667_ + _tl123562123669_ + _e123567123672_ + _hd123566123675_ + _tl123565123677_) + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)) + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)))) + (___kont127783127784_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127783127784_)) + (___kont127783127784_)))) + (___kont127783127784_)))) + (___kont127783127784_))))) + (___kont127783127784_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form122616_) - (let* ((___stx127649127650_ _form122616_) - (_g122620122744_ + (lambda (_form122878_) + (let* ((___stx127911127912_ _form122878_) + (_g122882123006_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127649127650_))))) - (let ((___kont127651127652_ - (lambda (_L123114_ _L123115_ _L123116_) + ___stx127911127912_))))) + (let ((___kont127913127914_ + (lambda (_L123376_ _L123377_ _L123378_) (let () (declare (not safe)) - (gxc#identifier-symbol _L123115_)))) - (___kont127657127658_ - (lambda (_L122962_ _L122963_ _L122964_ _L122965_) + (gxc#identifier-symbol _L123377_)))) + (___kont127919127920_ + (lambda (_L123224_ _L123225_ _L123226_ _L123227_) (let () (declare (not safe)) - (gxc#identifier-symbol _L122962_)))) - (___kont127661127662_ - (lambda (_L122829_ _L122830_ _L122831_) + (gxc#identifier-symbol _L123224_)))) + (___kont127923127924_ + (lambda (_L123091_ _L123092_ _L123093_) (let () (declare (not safe)) - (gxc#identifier-symbol _L122829_))))) - (let* ((___match127758127759_ - (lambda (_e122712122749_ - _hd122711122752_ - _tl122710122754_ - _e122715122757_ - _hd122714122760_ - _tl122713122762_ - _e122718122765_ - _hd122717122768_ - _tl122716122770_ - _e122721122773_ - _hd122720122776_ - _tl122719122778_ - _e122724122781_ - _hd122723122784_ - _tl122722122786_ - _e122727122789_ - _hd122726122792_ - _tl122725122794_ - _e122730122797_ - _hd122729122800_ - _tl122728122802_ - _e122733122805_ - _hd122732122808_ - _tl122731122810_ - _e122736122813_ - _hd122735122816_ - _tl122734122818_) + (gxc#identifier-symbol _L123091_))))) + (let* ((___match128020128021_ + (lambda (_e122974123011_ + _hd122973123014_ + _tl122972123016_ + _e122977123019_ + _hd122976123022_ + _tl122975123024_ + _e122980123027_ + _hd122979123030_ + _tl122978123032_ + _e122983123035_ + _hd122982123038_ + _tl122981123040_ + _e122986123043_ + _hd122985123046_ + _tl122984123048_ + _e122989123051_ + _hd122988123054_ + _tl122987123056_ + _e122992123059_ + _hd122991123062_ + _tl122990123064_ + _e122995123067_ + _hd122994123070_ + _tl122993123072_ + _e122998123075_ + _hd122997123078_ + _tl122996123080_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122728122802_)) - (let ((_e122739122821_ + (gx#stx-pair? _tl122990123064_)) + (let ((_e123001123083_ (let () (declare (not safe)) - (gx#stx-e _tl122728122802_)))) - (let ((_tl122737122826_ + (gx#stx-e _tl122990123064_)))) + (let ((_tl122999123088_ (let () (declare (not safe)) - (##cdr _e122739122821_))) - (_hd122738122824_ + (##cdr _e123001123083_))) + (_hd123000123086_ (let () (declare (not safe)) - (##car _e122739122821_)))) + (##car _e123001123083_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122737122826_)) + (gx#stx-null? _tl122999123088_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122713122762_)) - (___kont127661127662_ - _hd122735122816_ - _hd122726122792_ - _hd122711122752_) + (gx#stx-null? _tl122975123024_)) + (___kont127923127924_ + _hd122997123078_ + _hd122988123054_ + _hd122973123014_) (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))))) - (let () (declare (not safe)) (_g122620122744_))))) - (___match127688127689_ - (lambda (_e122673122866_ - _hd122672122869_ - _tl122671122871_ - ___splice127659127660_ - _target122674122874_ - _tl122676122876_) - (letrec ((_loop122677122879_ - (lambda (_hd122675122882_ _arg122681122884_) + (_g122882123006_))))) + (let () (declare (not safe)) (_g122882123006_))))) + (___match127950127951_ + (lambda (_e122935123128_ + _hd122934123131_ + _tl122933123133_ + ___splice127921127922_ + _target122936123136_ + _tl122938123138_) + (letrec ((_loop122939123141_ + (lambda (_hd122937123144_ _arg122943123146_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122675122882_)) - (let ((_e122678122887_ + (gx#stx-pair? _hd122937123144_)) + (let ((_e122940123149_ (let () (declare (not safe)) - (gx#stx-e _hd122675122882_)))) - (let ((_lp-tl122680122892_ + (gx#stx-e _hd122937123144_)))) + (let ((_lp-tl122942123154_ (let () (declare (not safe)) - (##cdr _e122678122887_))) - (_lp-hd122679122890_ + (##cdr _e122940123149_))) + (_lp-hd122941123152_ (let () (declare (not safe)) - (##car _e122678122887_)))) - (let ((__tmp128913 + (##car _e122940123149_)))) + (let ((__tmp129175 (let () (declare (not safe)) - (cons _lp-hd122679122890_ - _arg122681122884_)))) + (cons _lp-hd122941123152_ + _arg122943123146_)))) (declare (not safe)) - (_loop122677122879_ - _lp-tl122680122892_ - __tmp128913)))) - (let ((_arg122682122895_ - (reverse _arg122681122884_))) + (_loop122939123141_ + _lp-tl122942123154_ + __tmp129175)))) + (let ((_arg122944123157_ + (reverse _arg122943123146_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122671122871_)) - (let ((_e122685122898_ + (gx#stx-pair? _tl122933123133_)) + (let ((_e122947123160_ (let () (declare (not safe)) (gx#stx-e - _tl122671122871_)))) - (let ((_tl122683122903_ + _tl122933123133_)))) + (let ((_tl122945123165_ (let () (declare (not safe)) - (##cdr _e122685122898_))) - (_hd122684122901_ + (##cdr _e122947123160_))) + (_hd122946123163_ (let () (declare (not safe)) - (##car _e122685122898_)))) + (##car _e122947123160_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122684122901_)) - (let ((_e122688122906_ + _hd122946123163_)) + (let ((_e122950123168_ (let () (declare (not safe)) (gx#stx-e - _hd122684122901_)))) - (let ((_tl122686122911_ + _hd122946123163_)))) + (let ((_tl122948123173_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122688122906_))) - (_hd122687122909_ - (let () (declare (not safe)) (##car _e122688122906_)))) + (##cdr _e122950123168_))) + (_hd122949123171_ + (let () (declare (not safe)) (##car _e122950123168_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122687122909_)) + (gx#identifier? _hd122949123171_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd122687122909_)) + (gx#stx-eq? '%#call _hd122949123171_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122686122911_)) - (let ((_e122691122914_ + (gx#stx-pair? _tl122948123173_)) + (let ((_e122953123176_ (let () (declare (not safe)) - (gx#stx-e _tl122686122911_)))) - (let ((_tl122689122919_ + (gx#stx-e _tl122948123173_)))) + (let ((_tl122951123181_ (let () (declare (not safe)) - (##cdr _e122691122914_))) - (_hd122690122917_ + (##cdr _e122953123176_))) + (_hd122952123179_ (let () (declare (not safe)) - (##car _e122691122914_)))) + (##car _e122953123176_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122690122917_)) - (let ((_e122694122922_ + (gx#stx-pair? _hd122952123179_)) + (let ((_e122956123184_ (let () (declare (not safe)) - (gx#stx-e _hd122690122917_)))) - (let ((_tl122692122927_ + (gx#stx-e _hd122952123179_)))) + (let ((_tl122954123189_ (let () (declare (not safe)) - (##cdr _e122694122922_))) - (_hd122693122925_ + (##cdr _e122956123184_))) + (_hd122955123187_ (let () (declare (not safe)) - (##car _e122694122922_)))) + (##car _e122956123184_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122693122925_)) + _hd122955123187_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122693122925_)) + _hd122955123187_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122692122927_)) - (let ((_e122697122930_ + _tl122954123189_)) + (let ((_e122959123192_ (let () (declare (not safe)) (gx#stx-e - _tl122692122927_)))) - (let ((_tl122695122935_ + _tl122954123189_)))) + (let ((_tl122957123197_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122697122930_))) - (_hd122696122933_ - (let () (declare (not safe)) (##car _e122697122930_)))) + (##cdr _e122959123192_))) + (_hd122958123195_ + (let () (declare (not safe)) (##car _e122959123192_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122695122935_)) + (gx#stx-null? _tl122957123197_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122689122919_)) - (let ((_e122700122938_ + (gx#stx-pair? _tl122951123181_)) + (let ((_e122962123200_ (let () (declare (not safe)) - (gx#stx-e _tl122689122919_)))) - (let ((_tl122698122943_ + (gx#stx-e _tl122951123181_)))) + (let ((_tl122960123205_ (let () (declare (not safe)) - (##cdr _e122700122938_))) - (_hd122699122941_ + (##cdr _e122962123200_))) + (_hd122961123203_ (let () (declare (not safe)) - (##car _e122700122938_)))) + (##car _e122962123200_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122699122941_)) - (let ((_e122703122946_ + (gx#stx-pair? _hd122961123203_)) + (let ((_e122965123208_ (let () (declare (not safe)) - (gx#stx-e _hd122699122941_)))) - (let ((_tl122701122951_ + (gx#stx-e _hd122961123203_)))) + (let ((_tl122963123213_ (let () (declare (not safe)) - (##cdr _e122703122946_))) - (_hd122702122949_ + (##cdr _e122965123208_))) + (_hd122964123211_ (let () (declare (not safe)) - (##car _e122703122946_)))) + (##car _e122965123208_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122702122949_)) + (gx#identifier? _hd122964123211_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122702122949_)) + _hd122964123211_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122701122951_)) - (let ((_e122706122954_ + _tl122963123213_)) + (let ((_e122968123216_ (let () (declare (not safe)) (gx#stx-e - _tl122701122951_)))) - (let ((_tl122704122959_ + _tl122963123213_)))) + (let ((_tl122966123221_ (let () (declare (not safe)) - (##cdr _e122706122954_))) - (_hd122705122957_ + (##cdr _e122968123216_))) + (_hd122967123219_ (let () (declare (not safe)) - (##car _e122706122954_)))) + (##car _e122968123216_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122704122959_)) + _tl122966123221_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl122683122903_)) - (___kont127657127658_ - _hd122705122957_ - _hd122696122933_ - _tl122676122876_ - _arg122682122895_) - (___match127758127759_ - _e122673122866_ - _hd122672122869_ - _tl122671122871_ - _e122685122898_ - _hd122684122901_ - _tl122683122903_ - _e122688122906_ - _hd122687122909_ - _tl122686122911_ - _e122691122914_ - _hd122690122917_ - _tl122689122919_ - _e122694122922_ - _hd122693122925_ - _tl122692122927_ - _e122697122930_ - _hd122696122933_ - _tl122695122935_ - _e122700122938_ - _hd122699122941_ - _tl122698122943_ - _e122703122946_ - _hd122702122949_ - _tl122701122951_ - _e122706122954_ - _hd122705122957_ - _tl122704122959_)) + _tl122945123165_)) + (___kont127919127920_ + _hd122967123219_ + _hd122958123195_ + _tl122938123138_ + _arg122944123157_) + (___match128020128021_ + _e122935123128_ + _hd122934123131_ + _tl122933123133_ + _e122947123160_ + _hd122946123163_ + _tl122945123165_ + _e122950123168_ + _hd122949123171_ + _tl122948123173_ + _e122953123176_ + _hd122952123179_ + _tl122951123181_ + _e122956123184_ + _hd122955123187_ + _tl122954123189_ + _e122959123192_ + _hd122958123195_ + _tl122957123197_ + _e122962123200_ + _hd122961123203_ + _tl122960123205_ + _e122965123208_ + _hd122964123211_ + _tl122963123213_ + _e122968123216_ + _hd122967123219_ + _tl122966123221_)) (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_))))) - (let () (declare (not safe)) (_g122620122744_))) - (let () (declare (not safe)) (_g122620122744_))))) + (_g122882123006_))))) + (let () (declare (not safe)) (_g122882123006_))) + (let () (declare (not safe)) (_g122882123006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_))))) - (let () (declare (not safe)) (_g122620122744_))) - (let () (declare (not safe)) (_g122620122744_))) - (let () (declare (not safe)) (_g122620122744_))))) + (_g122882123006_))))) + (let () (declare (not safe)) (_g122882123006_))) + (let () (declare (not safe)) (_g122882123006_))) + (let () (declare (not safe)) (_g122882123006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_)))))))) + (_g122882123006_)))))))) (let () (declare (not safe)) - (_loop122677122879_ _target122674122874_ '()))))) - (___match127676127677_ - (lambda (_e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_) - (letrec ((_loop122631123015_ - (lambda (_hd122629123018_ _arg122635123020_) + (_loop122939123141_ _target122936123136_ '()))))) + (___match127938127939_ + (lambda (_e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_) + (letrec ((_loop122893123277_ + (lambda (_hd122891123280_ _arg122897123282_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122629123018_)) - (let ((_e122632123023_ + (gx#stx-pair? _hd122891123280_)) + (let ((_e122894123285_ (let () (declare (not safe)) - (gx#stx-e _hd122629123018_)))) - (let ((_lp-tl122634123028_ + (gx#stx-e _hd122891123280_)))) + (let ((_lp-tl122896123290_ (let () (declare (not safe)) - (##cdr _e122632123023_))) - (_lp-hd122633123026_ + (##cdr _e122894123285_))) + (_lp-hd122895123288_ (let () (declare (not safe)) - (##car _e122632123023_)))) - (let ((__tmp128915 + (##car _e122894123285_)))) + (let ((__tmp129177 (let () (declare (not safe)) - (cons _lp-hd122633123026_ - _arg122635123020_)))) + (cons _lp-hd122895123288_ + _arg122897123282_)))) (declare (not safe)) - (_loop122631123015_ - _lp-tl122634123028_ - __tmp128915)))) - (let ((_arg122636123031_ - (reverse _arg122635123020_))) + (_loop122893123277_ + _lp-tl122896123290_ + __tmp129177)))) + (let ((_arg122898123293_ + (reverse _arg122897123282_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122625123007_)) - (let ((_e122639123034_ + (gx#stx-pair? _tl122887123269_)) + (let ((_e122901123296_ (let () (declare (not safe)) (gx#stx-e - _tl122625123007_)))) - (let ((_tl122637123039_ + _tl122887123269_)))) + (let ((_tl122899123301_ (let () (declare (not safe)) - (##cdr _e122639123034_))) - (_hd122638123037_ + (##cdr _e122901123296_))) + (_hd122900123299_ (let () (declare (not safe)) - (##car _e122639123034_)))) + (##car _e122901123296_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122638123037_)) - (let ((_e122642123042_ + _hd122900123299_)) + (let ((_e122904123304_ (let () (declare (not safe)) (gx#stx-e - _hd122638123037_)))) - (let ((_tl122640123047_ + _hd122900123299_)))) + (let ((_tl122902123309_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122642123042_))) - (_hd122641123045_ - (let () (declare (not safe)) (##car _e122642123042_)))) + (##cdr _e122904123304_))) + (_hd122903123307_ + (let () (declare (not safe)) (##car _e122904123304_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122641123045_)) + (gx#identifier? _hd122903123307_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd122641123045_)) + (gx#stx-eq? '%#call _hd122903123307_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122640123047_)) - (let ((_e122645123050_ + (gx#stx-pair? _tl122902123309_)) + (let ((_e122907123312_ (let () (declare (not safe)) - (gx#stx-e _tl122640123047_)))) - (let ((_tl122643123055_ + (gx#stx-e _tl122902123309_)))) + (let ((_tl122905123317_ (let () (declare (not safe)) - (##cdr _e122645123050_))) - (_hd122644123053_ + (##cdr _e122907123312_))) + (_hd122906123315_ (let () (declare (not safe)) - (##car _e122645123050_)))) + (##car _e122907123312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122644123053_)) - (let ((_e122648123058_ + (gx#stx-pair? _hd122906123315_)) + (let ((_e122910123320_ (let () (declare (not safe)) - (gx#stx-e _hd122644123053_)))) - (let ((_tl122646123063_ + (gx#stx-e _hd122906123315_)))) + (let ((_tl122908123325_ (let () (declare (not safe)) - (##cdr _e122648123058_))) - (_hd122647123061_ + (##cdr _e122910123320_))) + (_hd122909123323_ (let () (declare (not safe)) - (##car _e122648123058_)))) + (##car _e122910123320_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122647123061_)) + _hd122909123323_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122647123061_)) + _hd122909123323_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122646123063_)) - (let ((_e122651123066_ + _tl122908123325_)) + (let ((_e122913123328_ (let () (declare (not safe)) (gx#stx-e - _tl122646123063_)))) - (let ((_tl122649123071_ + _tl122908123325_)))) + (let ((_tl122911123333_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122651123066_))) - (_hd122650123069_ - (let () (declare (not safe)) (##car _e122651123066_)))) + (##cdr _e122913123328_))) + (_hd122912123331_ + (let () (declare (not safe)) (##car _e122913123328_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122649123071_)) + (gx#stx-null? _tl122911123333_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl122643123055_)) - (let ((___splice127655127656_ + (gx#stx-pair/null? _tl122905123317_)) + (let ((___splice127917127918_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl122643123055_ + _tl122905123317_ '0)))) - (let ((_tl122654123076_ + (let ((_tl122916123338_ (let () (declare (not safe)) - (##vector-ref ___splice127655127656_ '1))) - (_target122652123074_ + (##vector-ref ___splice127917127918_ '1))) + (_target122914123336_ (let () (declare (not safe)) - (##vector-ref ___splice127655127656_ '0)))) + (##vector-ref ___splice127917127918_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122654123076_)) - (letrec ((_loop122655123079_ - (lambda (_hd122653123082_ - _xarg122659123084_) + (gx#stx-null? _tl122916123338_)) + (letrec ((_loop122917123341_ + (lambda (_hd122915123344_ + _xarg122921123346_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122653123082_)) - (let ((_e122656123087_ + _hd122915123344_)) + (let ((_e122918123349_ (let () (declare (not safe)) (gx#stx-e - _hd122653123082_)))) - (let ((_lp-tl122658123092_ + _hd122915123344_)))) + (let ((_lp-tl122920123354_ (let () (declare (not safe)) - (##cdr _e122656123087_))) - (_lp-hd122657123090_ + (##cdr _e122918123349_))) + (_lp-hd122919123352_ (let () (declare (not safe)) - (##car _e122656123087_)))) + (##car _e122918123349_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd122657123090_)) - (let ((_e122663123095_ + _lp-hd122919123352_)) + (let ((_e122925123357_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd122657123090_)))) - (let ((_tl122661123100_ - (let () (declare (not safe)) (##cdr _e122663123095_))) - (_hd122662123098_ + (gx#stx-e _lp-hd122919123352_)))) + (let ((_tl122923123362_ + (let () (declare (not safe)) (##cdr _e122925123357_))) + (_hd122924123360_ (let () (declare (not safe)) - (##car _e122663123095_)))) + (##car _e122925123357_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122662123098_)) + (gx#identifier? _hd122924123360_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122662123098_)) + (gx#stx-eq? '%#ref _hd122924123360_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122661123100_)) - (let ((_e122666123103_ + (gx#stx-pair? _tl122923123362_)) + (let ((_e122928123365_ (let () (declare (not safe)) - (gx#stx-e _tl122661123100_)))) - (let ((_tl122664123108_ + (gx#stx-e _tl122923123362_)))) + (let ((_tl122926123370_ (let () (declare (not safe)) - (##cdr _e122666123103_))) - (_hd122665123106_ + (##cdr _e122928123365_))) + (_hd122927123368_ (let () (declare (not safe)) - (##car _e122666123103_)))) + (##car _e122928123365_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122664123108_)) - (let ((__tmp128914 + (gx#stx-null? _tl122926123370_)) + (let ((__tmp129176 (let () (declare (not safe)) - (cons _hd122665123106_ - _xarg122659123084_)))) + (cons _hd122927123368_ + _xarg122921123346_)))) (declare (not safe)) - (_loop122655123079_ - _lp-tl122658123092_ - __tmp128914)) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg122660123111_ - (reverse _xarg122659123084_))) + (_loop122917123341_ + _lp-tl122920123354_ + __tmp129176)) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg122922123373_ + (reverse _xarg122921123346_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122637123039_)) - (___kont127651127652_ - _xarg122660123111_ - _hd122650123069_ - _arg122636123031_) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_))))))) + _tl122899123301_)) + (___kont127913127914_ + _xarg122922123373_ + _hd122912123331_ + _arg122898123293_) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_))))))) (let () (declare (not safe)) - (_loop122655123079_ - _target122652123074_ + (_loop122917123341_ + _target122914123336_ '()))) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_))))))) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_))))))) (let () (declare (not safe)) - (_loop122631123015_ _target122628123010_ '())))))) + (_loop122893123277_ _target122890123272_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127649127650_)) - (let ((_e122627123002_ + (gx#stx-pair? ___stx127911127912_)) + (let ((_e122889123264_ (let () (declare (not safe)) - (gx#stx-e ___stx127649127650_)))) - (let ((_tl122625123007_ + (gx#stx-e ___stx127911127912_)))) + (let ((_tl122887123269_ (let () (declare (not safe)) - (##cdr _e122627123002_))) - (_hd122626123005_ + (##cdr _e122889123264_))) + (_hd122888123267_ (let () (declare (not safe)) - (##car _e122627123002_)))) + (##car _e122889123264_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd122626123005_)) - (let ((___splice127653127654_ + (gx#stx-pair/null? _hd122888123267_)) + (let ((___splice127915127916_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd122626123005_ + _hd122888123267_ '0)))) - (let ((_tl122630123012_ + (let ((_tl122892123274_ (let () (declare (not safe)) - (##vector-ref ___splice127653127654_ '1))) - (_target122628123010_ + (##vector-ref ___splice127915127916_ '1))) + (_target122890123272_ (let () (declare (not safe)) (##vector-ref - ___splice127653127654_ + ___splice127915127916_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122630123012_)) - (___match127676127677_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_) - (___match127688127689_ - _e122627123002_ - _hd122626123005_ - _tl122625123007_ - ___splice127653127654_ - _target122628123010_ - _tl122630123012_)))) + (gx#stx-null? _tl122892123274_)) + (___match127938127939_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_) + (___match127950127951_ + _e122889123264_ + _hd122888123267_ + _tl122887123269_ + ___splice127915127916_ + _target122890123272_ + _tl122892123274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122625123007_)) - (let ((_e122715122757_ + (gx#stx-pair? _tl122887123269_)) + (let ((_e122977123019_ (let () (declare (not safe)) - (gx#stx-e _tl122625123007_)))) - (let ((_tl122713122762_ + (gx#stx-e _tl122887123269_)))) + (let ((_tl122975123024_ (let () (declare (not safe)) - (##cdr _e122715122757_))) - (_hd122714122760_ + (##cdr _e122977123019_))) + (_hd122976123022_ (let () (declare (not safe)) - (##car _e122715122757_)))) + (##car _e122977123019_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122714122760_)) - (let ((_e122718122765_ + (gx#stx-pair? _hd122976123022_)) + (let ((_e122980123027_ (let () (declare (not safe)) - (gx#stx-e _hd122714122760_)))) - (let ((_tl122716122770_ + (gx#stx-e _hd122976123022_)))) + (let ((_tl122978123032_ (let () (declare (not safe)) - (##cdr _e122718122765_))) - (_hd122717122768_ + (##cdr _e122980123027_))) + (_hd122979123030_ (let () (declare (not safe)) - (##car _e122718122765_)))) + (##car _e122980123027_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122717122768_)) + _hd122979123030_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd122717122768_)) + _hd122979123030_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122716122770_)) - (let ((_e122721122773_ + _tl122978123032_)) + (let ((_e122983123035_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl122716122770_)))) - (let ((_tl122719122778_ - (let () (declare (not safe)) (##cdr _e122721122773_))) - (_hd122720122776_ - (let () (declare (not safe)) (##car _e122721122773_)))) + (gx#stx-e _tl122978123032_)))) + (let ((_tl122981123040_ + (let () (declare (not safe)) (##cdr _e122983123035_))) + (_hd122982123038_ + (let () (declare (not safe)) (##car _e122983123035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122720122776_)) - (let ((_e122724122781_ + (gx#stx-pair? _hd122982123038_)) + (let ((_e122986123043_ (let () (declare (not safe)) - (gx#stx-e _hd122720122776_)))) - (let ((_tl122722122786_ + (gx#stx-e _hd122982123038_)))) + (let ((_tl122984123048_ (let () (declare (not safe)) - (##cdr _e122724122781_))) - (_hd122723122784_ + (##cdr _e122986123043_))) + (_hd122985123046_ (let () (declare (not safe)) - (##car _e122724122781_)))) + (##car _e122986123043_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122723122784_)) + (gx#identifier? _hd122985123046_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122723122784_)) + (gx#stx-eq? '%#ref _hd122985123046_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122722122786_)) - (let ((_e122727122789_ + (gx#stx-pair? _tl122984123048_)) + (let ((_e122989123051_ (let () (declare (not safe)) - (gx#stx-e _tl122722122786_)))) - (let ((_tl122725122794_ + (gx#stx-e _tl122984123048_)))) + (let ((_tl122987123056_ (let () (declare (not safe)) - (##cdr _e122727122789_))) - (_hd122726122792_ + (##cdr _e122989123051_))) + (_hd122988123054_ (let () (declare (not safe)) - (##car _e122727122789_)))) + (##car _e122989123051_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122725122794_)) + _tl122987123056_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122719122778_)) - (let ((_e122730122797_ + _tl122981123040_)) + (let ((_e122992123059_ (let () (declare (not safe)) (gx#stx-e - _tl122719122778_)))) - (let ((_tl122728122802_ + _tl122981123040_)))) + (let ((_tl122990123064_ (let () (declare (not safe)) - (##cdr _e122730122797_))) - (_hd122729122800_ + (##cdr _e122992123059_))) + (_hd122991123062_ (let () (declare (not safe)) - (##car _e122730122797_)))) + (##car _e122992123059_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122729122800_)) - (let ((_e122733122805_ + _hd122991123062_)) + (let ((_e122995123067_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd122729122800_)))) - (let ((_tl122731122810_ + (gx#stx-e _hd122991123062_)))) + (let ((_tl122993123072_ (let () (declare (not safe)) - (##cdr _e122733122805_))) - (_hd122732122808_ + (##cdr _e122995123067_))) + (_hd122994123070_ (let () (declare (not safe)) - (##car _e122733122805_)))) + (##car _e122995123067_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122732122808_)) + (gx#identifier? _hd122994123070_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122732122808_)) + (gx#stx-eq? '%#ref _hd122994123070_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122731122810_)) - (let ((_e122736122813_ + (gx#stx-pair? _tl122993123072_)) + (let ((_e122998123075_ (let () (declare (not safe)) - (gx#stx-e _tl122731122810_)))) - (let ((_tl122734122818_ + (gx#stx-e _tl122993123072_)))) + (let ((_tl122996123080_ (let () (declare (not safe)) - (##cdr _e122736122813_))) - (_hd122735122816_ + (##cdr _e122998123075_))) + (_hd122997123078_ (let () (declare (not safe)) - (##car _e122736122813_)))) + (##car _e122998123075_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122734122818_)) + (gx#stx-null? _tl122996123080_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122728122802_)) - (let ((_e122739122821_ + _tl122990123064_)) + (let ((_e123001123083_ (let () (declare (not safe)) (gx#stx-e - _tl122728122802_)))) - (let ((_tl122737122826_ + _tl122990123064_)))) + (let ((_tl122999123088_ (let () (declare (not safe)) - (##cdr _e122739122821_))) - (_hd122738122824_ + (##cdr _e123001123083_))) + (_hd123000123086_ (let () (declare (not safe)) - (##car _e122739122821_)))) + (##car _e123001123083_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122737122826_)) + _tl122999123088_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl122713122762_)) - (___kont127661127662_ - _hd122735122816_ - _hd122726122792_ - _hd122626123005_) + _tl122975123024_)) + (___kont127923127924_ + _hd122997123078_ + _hd122988123054_ + _hd122888123267_) (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_))) - (let () (declare (not safe)) (_g122620122744_))) - (let () (declare (not safe)) (_g122620122744_))))) - (let () (declare (not safe)) (_g122620122744_))))) + (_g122882123006_))) + (let () (declare (not safe)) (_g122882123006_))) + (let () (declare (not safe)) (_g122882123006_))))) + (let () (declare (not safe)) (_g122882123006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))))) - (let () (declare (not safe)) (_g122620122744_))))) - (let () (declare (not safe)) (_g122620122744_))) + (_g122882123006_))))) + (let () (declare (not safe)) (_g122882123006_))))) + (let () (declare (not safe)) (_g122882123006_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122620122744_))) + (_g122882123006_))) (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_))))) + (_g122882123006_))))) (let () (declare (not safe)) - (_g122620122744_)))))) - (let () (declare (not safe)) (_g122620122744_)))))))) + (_g122882123006_)))))) + (let () (declare (not safe)) (_g122882123006_)))))))) (define gxc#lambda-form-arity - (lambda (_form122420_) - (let* ((_g122422122436_ - (lambda (_g122423122433_) + (lambda (_form122682_) + (let* ((_g122684122698_ + (lambda (_g122685122695_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122423122433_)))) - (_g122421122613_ - (lambda (_g122423122439_) + _g122685122695_)))) + (_g122683122875_ + (lambda (_g122685122701_) (if (let () (declare (not safe)) - (gx#stx-pair? _g122423122439_)) - (let ((_e122428122441_ + (gx#stx-pair? _g122685122701_)) + (let ((_e122690122703_ (let () (declare (not safe)) - (gx#stx-e _g122423122439_)))) - (let ((_hd122427122444_ + (gx#stx-e _g122685122701_)))) + (let ((_hd122689122706_ (let () (declare (not safe)) - (##car _e122428122441_))) - (_tl122426122446_ + (##car _e122690122703_))) + (_tl122688122708_ (let () (declare (not safe)) - (##cdr _e122428122441_)))) + (##cdr _e122690122703_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122426122446_)) - (let ((_e122431122449_ + (gx#stx-pair? _tl122688122708_)) + (let ((_e122693122711_ (let () (declare (not safe)) - (gx#stx-e _tl122426122446_)))) - (let ((_hd122430122452_ + (gx#stx-e _tl122688122708_)))) + (let ((_hd122692122714_ (let () (declare (not safe)) - (##car _e122431122449_))) - (_tl122429122454_ + (##car _e122693122711_))) + (_tl122691122716_ (let () (declare (not safe)) - (##cdr _e122431122449_)))) + (##cdr _e122693122711_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122429122454_)) - ((lambda (_L122457_ _L122458_) - (let* ((___stx127771127772_ _L122458_) - (_g122473122501_ + (gx#stx-null? _tl122691122716_)) + ((lambda (_L122719_ _L122720_) + (let* ((___stx128033128034_ _L122720_) + (_g122735122763_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127771127772_))))) - (let ((___kont127773127774_ - (lambda (_L122592_) - (length (let ((__tmp128916 + ___stx128033128034_))))) + (let ((___kont128035128036_ + (lambda (_L122854_) + (length (let ((__tmp129178 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g122602122605_ _g122603122607_) + (lambda (_g122864122867_ _g122865122869_) (let () (declare (not safe)) - (cons _g122602122605_ _g122603122607_))))) + (cons _g122864122867_ _g122865122869_))))) (declare (not safe)) - (foldr1 __tmp128916 '() _L122592_))))) + (foldr1 __tmp129178 '() _L122854_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127777127778_ - (lambda (_L122543_ _L122544_) - (let ((__tmp128917 - (length (let ((__tmp128918 + (___kont128039128040_ + (lambda (_L122805_ _L122806_) + (let ((__tmp129179 + (length (let ((__tmp129180 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g122555122558_ _g122556122560_) + (lambda (_g122817122820_ _g122818122822_) (let () (declare (not safe)) - (cons _g122555122558_ - _g122556122560_))))) + (cons _g122817122820_ + _g122818122822_))))) (declare (not safe)) - (foldr1 __tmp128918 '() _L122544_))))) + (foldr1 __tmp129180 '() _L122806_))))) (declare (not safe)) - (cons __tmp128917 '())))) + (cons __tmp129179 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127781127782_ - (lambda (_L122506_) + (___kont128043128044_ + (lambda (_L122768_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match127796127797_ - (lambda (___splice127779127780_ - _target122487122519_ - _tl122489122521_) - (letrec ((_loop122490122524_ + (let* ((___match128058128059_ + (lambda (___splice128041128042_ + _target122749122781_ + _tl122751122783_) + (letrec ((_loop122752122786_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd122488122527_ _arg122494122529_) + (lambda (_hd122750122789_ _arg122756122791_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122488122527_)) - (let ((_e122491122532_ + (gx#stx-pair? _hd122750122789_)) + (let ((_e122753122794_ (let () (declare (not safe)) - (gx#stx-e _hd122488122527_)))) - (let ((_lp-tl122493122537_ + (gx#stx-e _hd122750122789_)))) + (let ((_lp-tl122755122799_ (let () (declare (not safe)) - (##cdr _e122491122532_))) - (_lp-hd122492122535_ + (##cdr _e122753122794_))) + (_lp-hd122754122797_ (let () (declare (not safe)) - (##car _e122491122532_)))) - (let ((__tmp128919 + (##car _e122753122794_)))) + (let ((__tmp129181 (let () (declare (not safe)) - (cons _lp-hd122492122535_ - _arg122494122529_)))) + (cons _lp-hd122754122797_ + _arg122756122791_)))) (declare (not safe)) - (_loop122490122524_ - _lp-tl122493122537_ - __tmp128919)))) - (let ((_arg122495122540_ - (reverse _arg122494122529_))) - (___kont127777127778_ - _tl122489122521_ - _arg122495122540_)))))) + (_loop122752122786_ + _lp-tl122755122799_ + __tmp129181)))) + (let ((_arg122757122802_ + (reverse _arg122756122791_))) + (___kont128039128040_ + _tl122751122783_ + _arg122757122802_)))))) (let () (declare (not safe)) - (_loop122490122524_ _target122487122519_ '()))))) + (_loop122752122786_ _target122749122781_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127790127791_ - (lambda (___splice127775127776_ - _target122476122568_ - _tl122478122570_) - (letrec ((_loop122479122573_ + (___match128052128053_ + (lambda (___splice128037128038_ + _target122738122830_ + _tl122740122832_) + (letrec ((_loop122741122835_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd122477122576_ _arg122483122578_) + (lambda (_hd122739122838_ _arg122745122840_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122477122576_)) - (let ((_e122480122581_ + (gx#stx-pair? _hd122739122838_)) + (let ((_e122742122843_ (let () (declare (not safe)) - (gx#stx-e _hd122477122576_)))) - (let ((_lp-tl122482122586_ + (gx#stx-e _hd122739122838_)))) + (let ((_lp-tl122744122848_ (let () (declare (not safe)) - (##cdr _e122480122581_))) - (_lp-hd122481122584_ + (##cdr _e122742122843_))) + (_lp-hd122743122846_ (let () (declare (not safe)) - (##car _e122480122581_)))) - (let ((__tmp128920 + (##car _e122742122843_)))) + (let ((__tmp129182 (let () (declare (not safe)) - (cons _lp-hd122481122584_ - _arg122483122578_)))) + (cons _lp-hd122743122846_ + _arg122745122840_)))) (declare (not safe)) - (_loop122479122573_ - _lp-tl122482122586_ - __tmp128920)))) - (let ((_arg122484122589_ - (reverse _arg122483122578_))) - (___kont127773127774_ _arg122484122589_)))))) + (_loop122741122835_ + _lp-tl122744122848_ + __tmp129182)))) + (let ((_arg122746122851_ + (reverse _arg122745122840_))) + (___kont128035128036_ _arg122746122851_)))))) (let () (declare (not safe)) - (_loop122479122573_ _target122476122568_ '())))))) + (_loop122741122835_ _target122738122830_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx127771127772_)) - (let ((___splice127775127776_ + ___stx128033128034_)) + (let ((___splice128037128038_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx127771127772_ + ___stx128033128034_ '0)))) - (let ((_tl122478122570_ + (let ((_tl122740122832_ (let () (declare (not safe)) (##vector-ref - ___splice127775127776_ + ___splice128037128038_ '1))) - (_target122476122568_ + (_target122738122830_ (let () (declare (not safe)) (##vector-ref - ___splice127775127776_ + ___splice128037128038_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122478122570_)) - (___match127790127791_ - ___splice127775127776_ - _target122476122568_ - _tl122478122570_) - (___match127796127797_ - ___splice127775127776_ - _target122476122568_ - _tl122478122570_)))) - (___kont127781127782_ - ___stx127771127772_)))))) - _hd122430122452_ - _hd122427122444_) + _tl122740122832_)) + (___match128052128053_ + ___splice128037128038_ + _target122738122830_ + _tl122740122832_) + (___match128058128059_ + ___splice128037128038_ + _target122738122830_ + _tl122740122832_)))) + (___kont128043128044_ + ___stx128033128034_)))))) + _hd122692122714_ + _hd122689122706_) (let () (declare (not safe)) - (_g122422122436_ _g122423122439_))))) + (_g122684122698_ _g122685122701_))))) (let () (declare (not safe)) - (_g122422122436_ _g122423122439_))))) + (_g122684122698_ _g122685122701_))))) (let () (declare (not safe)) - (_g122422122436_ _g122423122439_)))))) + (_g122684122698_ _g122685122701_)))))) (declare (not safe)) - (_g122421122613_ _form122420_)))) + (_g122683122875_ _form122682_)))) (define gxc#lambda-expr? - (lambda (_expr122373_) - (let* ((___stx127799127800_ _expr122373_) - (_g122376122386_ + (lambda (_expr122635_) + (let* ((___stx128061128062_ _expr122635_) + (_g122638122648_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127799127800_))))) - (let ((___kont127801127802_ (lambda (_L122406_) '#t)) - (___kont127803127804_ (lambda () '#f))) + ___stx128061128062_))))) + (let ((___kont128063128064_ (lambda (_L122668_) '#t)) + (___kont128065128066_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127799127800_)) - (let ((_e122381122398_ + (gx#stx-pair? ___stx128061128062_)) + (let ((_e122643122660_ (let () (declare (not safe)) - (gx#stx-e ___stx127799127800_)))) - (let ((_tl122379122403_ - (let () (declare (not safe)) (##cdr _e122381122398_))) - (_hd122380122401_ + (gx#stx-e ___stx128061128062_)))) + (let ((_tl122641122665_ + (let () (declare (not safe)) (##cdr _e122643122660_))) + (_hd122642122663_ (let () (declare (not safe)) - (##car _e122381122398_)))) + (##car _e122643122660_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122380122401_)) + (gx#identifier? _hd122642122663_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd122380122401_)) - (___kont127801127802_ _tl122379122403_) - (___kont127803127804_)) - (___kont127803127804_)))) - (___kont127803127804_)))))) + (gx#stx-eq? '%#lambda _hd122642122663_)) + (___kont128063128064_ _tl122641122665_) + (___kont128065128066_)) + (___kont128065128066_)))) + (___kont128065128066_)))))) (define gxc#case-lambda-expr? - (lambda (_expr122326_) - (let* ((___stx127817127818_ _expr122326_) - (_g122329122339_ + (lambda (_expr122588_) + (let* ((___stx128079128080_ _expr122588_) + (_g122591122601_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127817127818_))))) - (let ((___kont127819127820_ (lambda (_L122359_) '#t)) - (___kont127821127822_ (lambda () '#f))) + ___stx128079128080_))))) + (let ((___kont128081128082_ (lambda (_L122621_) '#t)) + (___kont128083128084_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127817127818_)) - (let ((_e122334122351_ + (gx#stx-pair? ___stx128079128080_)) + (let ((_e122596122613_ (let () (declare (not safe)) - (gx#stx-e ___stx127817127818_)))) - (let ((_tl122332122356_ - (let () (declare (not safe)) (##cdr _e122334122351_))) - (_hd122333122354_ + (gx#stx-e ___stx128079128080_)))) + (let ((_tl122594122618_ + (let () (declare (not safe)) (##cdr _e122596122613_))) + (_hd122595122616_ (let () (declare (not safe)) - (##car _e122334122351_)))) + (##car _e122596122613_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122333122354_)) + (gx#identifier? _hd122595122616_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd122333122354_)) - (___kont127819127820_ _tl122332122356_) - (___kont127821127822_)) - (___kont127821127822_)))) - (___kont127821127822_)))))) + (gx#stx-eq? '%#case-lambda _hd122595122616_)) + (___kont128081128082_ _tl122594122618_) + (___kont128083128084_)) + (___kont128083128084_)))) + (___kont128083128084_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr122195_) - (let* ((___stx127835127836_ _expr122195_) - (_g122198122228_ + (lambda (_expr122457_) + (let* ((___stx128097128098_ _expr122457_) + (_g122460122490_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127835127836_))))) - (let ((___kont127837127838_ - (lambda (_L122296_ _L122297_ _L122298_) - (if (let () (declare (not safe)) (gx#identifier? _L122298_)) + ___stx128097128098_))))) + (let ((___kont128099128100_ + (lambda (_L122558_ _L122559_ _L122560_) + (if (let () (declare (not safe)) (gx#identifier? _L122560_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L122297_)) + (gxc#lambda-expr? _L122559_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L122296_)) + (gxc#case-lambda-expr? _L122558_)) '#f) '#f))) - (___kont127839127840_ (lambda () '#f))) + (___kont128101128102_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127835127836_)) - (let ((_e122205122240_ + (gx#stx-pair? ___stx128097128098_)) + (let ((_e122467122502_ (let () (declare (not safe)) - (gx#stx-e ___stx127835127836_)))) - (let ((_tl122203122245_ - (let () (declare (not safe)) (##cdr _e122205122240_))) - (_hd122204122243_ + (gx#stx-e ___stx128097128098_)))) + (let ((_tl122465122507_ + (let () (declare (not safe)) (##cdr _e122467122502_))) + (_hd122466122505_ (let () (declare (not safe)) - (##car _e122205122240_)))) + (##car _e122467122502_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122204122243_)) + (gx#identifier? _hd122466122505_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd122204122243_)) + (gx#stx-eq? '%#let-values _hd122466122505_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122203122245_)) - (let ((_e122208122248_ + (gx#stx-pair? _tl122465122507_)) + (let ((_e122470122510_ (let () (declare (not safe)) - (gx#stx-e _tl122203122245_)))) - (let ((_tl122206122253_ + (gx#stx-e _tl122465122507_)))) + (let ((_tl122468122515_ (let () (declare (not safe)) - (##cdr _e122208122248_))) - (_hd122207122251_ + (##cdr _e122470122510_))) + (_hd122469122513_ (let () (declare (not safe)) - (##car _e122208122248_)))) + (##car _e122470122510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122207122251_)) - (let ((_e122211122256_ + (gx#stx-pair? _hd122469122513_)) + (let ((_e122473122518_ (let () (declare (not safe)) - (gx#stx-e _hd122207122251_)))) - (let ((_tl122209122261_ + (gx#stx-e _hd122469122513_)))) + (let ((_tl122471122523_ (let () (declare (not safe)) - (##cdr _e122211122256_))) - (_hd122210122259_ + (##cdr _e122473122518_))) + (_hd122472122521_ (let () (declare (not safe)) - (##car _e122211122256_)))) + (##car _e122473122518_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122210122259_)) - (let ((_e122214122264_ + _hd122472122521_)) + (let ((_e122476122526_ (let () (declare (not safe)) (gx#stx-e - _hd122210122259_)))) - (let ((_tl122212122269_ + _hd122472122521_)))) + (let ((_tl122474122531_ (let () (declare (not safe)) - (##cdr _e122214122264_))) - (_hd122213122267_ + (##cdr _e122476122526_))) + (_hd122475122529_ (let () (declare (not safe)) - (##car _e122214122264_)))) + (##car _e122476122526_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122213122267_)) - (let ((_e122217122272_ + _hd122475122529_)) + (let ((_e122479122534_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd122213122267_)))) - (let ((_tl122215122277_ - (let () (declare (not safe)) (##cdr _e122217122272_))) - (_hd122216122275_ + (gx#stx-e _hd122475122529_)))) + (let ((_tl122477122539_ + (let () (declare (not safe)) (##cdr _e122479122534_))) + (_hd122478122537_ (let () (declare (not safe)) - (##car _e122217122272_)))) + (##car _e122479122534_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122215122277_)) + (gx#stx-null? _tl122477122539_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122212122269_)) - (let ((_e122220122280_ + (gx#stx-pair? _tl122474122531_)) + (let ((_e122482122542_ (let () (declare (not safe)) - (gx#stx-e _tl122212122269_)))) - (let ((_tl122218122285_ + (gx#stx-e _tl122474122531_)))) + (let ((_tl122480122547_ (let () (declare (not safe)) - (##cdr _e122220122280_))) - (_hd122219122283_ + (##cdr _e122482122542_))) + (_hd122481122545_ (let () (declare (not safe)) - (##car _e122220122280_)))) + (##car _e122482122542_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122218122285_)) + (gx#stx-null? _tl122480122547_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122209122261_)) + (gx#stx-null? _tl122471122523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122206122253_)) - (let ((_e122223122288_ + (gx#stx-pair? _tl122468122515_)) + (let ((_e122485122550_ (let () (declare (not safe)) (gx#stx-e - _tl122206122253_)))) - (let ((_tl122221122293_ + _tl122468122515_)))) + (let ((_tl122483122555_ (let () (declare (not safe)) - (##cdr _e122223122288_))) - (_hd122222122291_ + (##cdr _e122485122550_))) + (_hd122484122553_ (let () (declare (not safe)) - (##car _e122223122288_)))) + (##car _e122485122550_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122221122293_)) - (___kont127837127838_ - _hd122222122291_ - _hd122219122283_ - _hd122216122275_) - (___kont127839127840_)))) - (___kont127839127840_)) - (___kont127839127840_)) - (___kont127839127840_)))) - (___kont127839127840_)) - (___kont127839127840_)))) - (___kont127839127840_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127839127840_)))) - (___kont127839127840_)))) - (___kont127839127840_)) - (___kont127839127840_)) - (___kont127839127840_)))) - (___kont127839127840_)))))) + _tl122483122555_)) + (___kont128099128100_ + _hd122484122553_ + _hd122481122545_ + _hd122478122537_) + (___kont128101128102_)))) + (___kont128101128102_)) + (___kont128101128102_)) + (___kont128101128102_)))) + (___kont128101128102_)) + (___kont128101128102_)))) + (___kont128101128102_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128101128102_)))) + (___kont128101128102_)))) + (___kont128101128102_)) + (___kont128101128102_)) + (___kont128101128102_)))) + (___kont128101128102_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr121520_) - (let* ((___stx127897127898_ _expr121520_) - (_g121523121681_ + (lambda (_expr121782_) + (let* ((___stx128159128160_ _expr121782_) + (_g121785121943_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127897127898_))))) - (let ((___kont127899127900_ - (lambda (_L122069_ - _L122070_ - _L122071_ - _L122072_ - _L122073_ - _L122074_ - _L122075_ - _L122076_ - _L122077_ - _L122078_ - _L122079_) + ___stx128159128160_))))) + (let ((___kont128161128162_ + (lambda (_L122331_ + _L122332_ + _L122333_ + _L122334_ + _L122335_ + _L122336_ + _L122337_ + _L122338_ + _L122339_ + _L122340_ + _L122341_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L122076_ 'apply)) + (gxc#runtime-identifier=? _L122338_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L122072_ 'apply)) + (gxc#runtime-identifier=? _L122334_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L122071_ + _L122333_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122079_ - _L122070_)) + _L122341_ + _L122332_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122078_ - _L122075_)) + _L122340_ + _L122337_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122073_ - _L122069_)) + _L122335_ + _L122331_)) (let () (declare (not safe)) (gx#free-identifier=? - _L122077_ - _L122074_)) + _L122339_ + _L122336_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont127901127902_ (lambda () '#f))) + (___kont128163128164_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127897127898_)) - (let ((_e121538121693_ + (gx#stx-pair? ___stx128159128160_)) + (let ((_e121800121955_ (let () (declare (not safe)) - (gx#stx-e ___stx127897127898_)))) - (let ((_tl121536121698_ - (let () (declare (not safe)) (##cdr _e121538121693_))) - (_hd121537121696_ + (gx#stx-e ___stx128159128160_)))) + (let ((_tl121798121960_ + (let () (declare (not safe)) (##cdr _e121800121955_))) + (_hd121799121958_ (let () (declare (not safe)) - (##car _e121538121693_)))) + (##car _e121800121955_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121537121696_)) + (gx#identifier? _hd121799121958_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd121537121696_)) + (gx#stx-eq? '%#let-values _hd121799121958_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121536121698_)) - (let ((_e121541121701_ + (gx#stx-pair? _tl121798121960_)) + (let ((_e121803121963_ (let () (declare (not safe)) - (gx#stx-e _tl121536121698_)))) - (let ((_tl121539121706_ + (gx#stx-e _tl121798121960_)))) + (let ((_tl121801121968_ (let () (declare (not safe)) - (##cdr _e121541121701_))) - (_hd121540121704_ + (##cdr _e121803121963_))) + (_hd121802121966_ (let () (declare (not safe)) - (##car _e121541121701_)))) + (##car _e121803121963_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121540121704_)) - (let ((_e121544121709_ + (gx#stx-pair? _hd121802121966_)) + (let ((_e121806121971_ (let () (declare (not safe)) - (gx#stx-e _hd121540121704_)))) - (let ((_tl121542121714_ + (gx#stx-e _hd121802121966_)))) + (let ((_tl121804121976_ (let () (declare (not safe)) - (##cdr _e121544121709_))) - (_hd121543121712_ + (##cdr _e121806121971_))) + (_hd121805121974_ (let () (declare (not safe)) - (##car _e121544121709_)))) + (##car _e121806121971_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121543121712_)) - (let ((_e121547121717_ + _hd121805121974_)) + (let ((_e121809121979_ (let () (declare (not safe)) (gx#stx-e - _hd121543121712_)))) - (let ((_tl121545121722_ + _hd121805121974_)))) + (let ((_tl121807121984_ (let () (declare (not safe)) - (##cdr _e121547121717_))) - (_hd121546121720_ + (##cdr _e121809121979_))) + (_hd121808121982_ (let () (declare (not safe)) - (##car _e121547121717_)))) + (##car _e121809121979_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121546121720_)) - (let ((_e121550121725_ + _hd121808121982_)) + (let ((_e121812121987_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121546121720_)))) - (let ((_tl121548121730_ - (let () (declare (not safe)) (##cdr _e121550121725_))) - (_hd121549121728_ + (gx#stx-e _hd121808121982_)))) + (let ((_tl121810121992_ + (let () (declare (not safe)) (##cdr _e121812121987_))) + (_hd121811121990_ (let () (declare (not safe)) - (##car _e121550121725_)))) + (##car _e121812121987_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121548121730_)) + (gx#stx-null? _tl121810121992_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121545121722_)) - (let ((_e121553121733_ + (gx#stx-pair? _tl121807121984_)) + (let ((_e121815121995_ (let () (declare (not safe)) - (gx#stx-e _tl121545121722_)))) - (let ((_tl121551121738_ + (gx#stx-e _tl121807121984_)))) + (let ((_tl121813122000_ (let () (declare (not safe)) - (##cdr _e121553121733_))) - (_hd121552121736_ + (##cdr _e121815121995_))) + (_hd121814121998_ (let () (declare (not safe)) - (##car _e121553121733_)))) + (##car _e121815121995_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121552121736_)) - (let ((_e121556121741_ + (gx#stx-pair? _hd121814121998_)) + (let ((_e121818122003_ (let () (declare (not safe)) - (gx#stx-e _hd121552121736_)))) - (let ((_tl121554121746_ + (gx#stx-e _hd121814121998_)))) + (let ((_tl121816122008_ (let () (declare (not safe)) - (##cdr _e121556121741_))) - (_hd121555121744_ + (##cdr _e121818122003_))) + (_hd121817122006_ (let () (declare (not safe)) - (##car _e121556121741_)))) + (##car _e121818122003_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121555121744_)) + _hd121817122006_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd121555121744_)) + _hd121817122006_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121554121746_)) - (let ((_e121559121749_ + _tl121816122008_)) + (let ((_e121821122011_ (let () (declare (not safe)) (gx#stx-e - _tl121554121746_)))) - (let ((_tl121557121754_ + _tl121816122008_)))) + (let ((_tl121819122016_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121559121749_))) - (_hd121558121752_ - (let () (declare (not safe)) (##car _e121559121749_)))) + (##cdr _e121821122011_))) + (_hd121820122014_ + (let () (declare (not safe)) (##car _e121821122011_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121558121752_)) - (let ((_e121562121757_ + (gx#stx-pair? _hd121820122014_)) + (let ((_e121824122019_ (let () (declare (not safe)) - (gx#stx-e _hd121558121752_)))) - (let ((_tl121560121762_ + (gx#stx-e _hd121820122014_)))) + (let ((_tl121822122024_ (let () (declare (not safe)) - (##cdr _e121562121757_))) - (_hd121561121760_ + (##cdr _e121824122019_))) + (_hd121823122022_ (let () (declare (not safe)) - (##car _e121562121757_)))) + (##car _e121824122019_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121561121760_)) - (let ((_e121565121765_ + (gx#stx-pair? _hd121823122022_)) + (let ((_e121827122027_ (let () (declare (not safe)) - (gx#stx-e _hd121561121760_)))) - (let ((_tl121563121770_ + (gx#stx-e _hd121823122022_)))) + (let ((_tl121825122032_ (let () (declare (not safe)) - (##cdr _e121565121765_))) - (_hd121564121768_ + (##cdr _e121827122027_))) + (_hd121826122030_ (let () (declare (not safe)) - (##car _e121565121765_)))) + (##car _e121827122027_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121564121768_)) - (let ((_e121568121773_ + (gx#stx-pair? _hd121826122030_)) + (let ((_e121830122035_ (let () (declare (not safe)) - (gx#stx-e _hd121564121768_)))) - (let ((_tl121566121778_ + (gx#stx-e _hd121826122030_)))) + (let ((_tl121828122040_ (let () (declare (not safe)) - (##cdr _e121568121773_))) - (_hd121567121776_ + (##cdr _e121830122035_))) + (_hd121829122038_ (let () (declare (not safe)) - (##car _e121568121773_)))) + (##car _e121830122035_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121566121778_)) + (gx#stx-null? _tl121828122040_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121563121770_)) - (let ((_e121571121781_ + _tl121825122032_)) + (let ((_e121833122043_ (let () (declare (not safe)) (gx#stx-e - _tl121563121770_)))) - (let ((_tl121569121786_ + _tl121825122032_)))) + (let ((_tl121831122048_ (let () (declare (not safe)) - (##cdr _e121571121781_))) - (_hd121570121784_ + (##cdr _e121833122043_))) + (_hd121832122046_ (let () (declare (not safe)) - (##car _e121571121781_)))) + (##car _e121833122043_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121569121786_)) + _tl121831122048_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121560121762_)) + _tl121822122024_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121557121754_)) - (let ((_e121574121789_ + (gx#stx-pair? _tl121819122016_)) + (let ((_e121836122051_ (let () (declare (not safe)) - (gx#stx-e _tl121557121754_)))) - (let ((_tl121572121794_ + (gx#stx-e _tl121819122016_)))) + (let ((_tl121834122056_ (let () (declare (not safe)) - (##cdr _e121574121789_))) - (_hd121573121792_ + (##cdr _e121836122051_))) + (_hd121835122054_ (let () (declare (not safe)) - (##car _e121574121789_)))) + (##car _e121836122051_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121573121792_)) - (let ((_e121577121797_ + (gx#stx-pair? _hd121835122054_)) + (let ((_e121839122059_ (let () (declare (not safe)) - (gx#stx-e _hd121573121792_)))) - (let ((_tl121575121802_ + (gx#stx-e _hd121835122054_)))) + (let ((_tl121837122064_ (let () (declare (not safe)) - (##cdr _e121577121797_))) - (_hd121576121800_ + (##cdr _e121839122059_))) + (_hd121838122062_ (let () (declare (not safe)) - (##car _e121577121797_)))) + (##car _e121839122059_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121576121800_)) + (gx#identifier? _hd121838122062_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd121576121800_)) + _hd121838122062_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121575121802_)) - (let ((_e121580121805_ + _tl121837122064_)) + (let ((_e121842122067_ (let () (declare (not safe)) (gx#stx-e - _tl121575121802_)))) - (let ((_tl121578121810_ + _tl121837122064_)))) + (let ((_tl121840122072_ (let () (declare (not safe)) - (##cdr _e121580121805_))) - (_hd121579121808_ + (##cdr _e121842122067_))) + (_hd121841122070_ (let () (declare (not safe)) - (##car _e121580121805_)))) + (##car _e121842122067_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121579121808_)) - (let ((_e121583121813_ + _hd121841122070_)) + (let ((_e121845122075_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121579121808_)))) - (let ((_tl121581121818_ - (let () (declare (not safe)) (##cdr _e121583121813_))) - (_hd121582121816_ + (gx#stx-e _hd121841122070_)))) + (let ((_tl121843122080_ + (let () (declare (not safe)) (##cdr _e121845122075_))) + (_hd121844122078_ (let () (declare (not safe)) - (##car _e121583121813_)))) + (##car _e121845122075_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121578121810_)) - (let ((_e121586121821_ + (gx#stx-pair? _tl121840122072_)) + (let ((_e121848122083_ (let () (declare (not safe)) - (gx#stx-e _tl121578121810_)))) - (let ((_tl121584121826_ + (gx#stx-e _tl121840122072_)))) + (let ((_tl121846122088_ (let () (declare (not safe)) - (##cdr _e121586121821_))) - (_hd121585121824_ + (##cdr _e121848122083_))) + (_hd121847122086_ (let () (declare (not safe)) - (##car _e121586121821_)))) + (##car _e121848122083_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121585121824_)) - (let ((_e121589121829_ + (gx#stx-pair? _hd121847122086_)) + (let ((_e121851122091_ (let () (declare (not safe)) - (gx#stx-e _hd121585121824_)))) - (let ((_tl121587121834_ + (gx#stx-e _hd121847122086_)))) + (let ((_tl121849122096_ (let () (declare (not safe)) - (##cdr _e121589121829_))) - (_hd121588121832_ + (##cdr _e121851122091_))) + (_hd121850122094_ (let () (declare (not safe)) - (##car _e121589121829_)))) + (##car _e121851122091_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121588121832_)) + (gx#identifier? _hd121850122094_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd121588121832_)) + _hd121850122094_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121587121834_)) - (let ((_e121592121837_ + _tl121849122096_)) + (let ((_e121854122099_ (let () (declare (not safe)) (gx#stx-e - _tl121587121834_)))) - (let ((_tl121590121842_ + _tl121849122096_)))) + (let ((_tl121852122104_ (let () (declare (not safe)) - (##cdr _e121592121837_))) - (_hd121591121840_ + (##cdr _e121854122099_))) + (_hd121853122102_ (let () (declare (not safe)) - (##car _e121592121837_)))) + (##car _e121854122099_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121591121840_)) - (let ((_e121595121845_ + _hd121853122102_)) + (let ((_e121857122107_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121591121840_)))) - (let ((_tl121593121850_ - (let () (declare (not safe)) (##cdr _e121595121845_))) - (_hd121594121848_ + (gx#stx-e _hd121853122102_)))) + (let ((_tl121855122112_ + (let () (declare (not safe)) (##cdr _e121857122107_))) + (_hd121856122110_ (let () (declare (not safe)) - (##car _e121595121845_)))) + (##car _e121857122107_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121594121848_)) + (gx#identifier? _hd121856122110_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121594121848_)) + (gx#stx-eq? '%#ref _hd121856122110_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121593121850_)) - (let ((_e121598121853_ + (gx#stx-pair? _tl121855122112_)) + (let ((_e121860122115_ (let () (declare (not safe)) - (gx#stx-e _tl121593121850_)))) - (let ((_tl121596121858_ + (gx#stx-e _tl121855122112_)))) + (let ((_tl121858122120_ (let () (declare (not safe)) - (##cdr _e121598121853_))) - (_hd121597121856_ + (##cdr _e121860122115_))) + (_hd121859122118_ (let () (declare (not safe)) - (##car _e121598121853_)))) + (##car _e121860122115_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121596121858_)) + (gx#stx-null? _tl121858122120_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121590121842_)) - (let ((_e121601121861_ + (gx#stx-pair? _tl121852122104_)) + (let ((_e121863122123_ (let () (declare (not safe)) (gx#stx-e - _tl121590121842_)))) - (let ((_tl121599121866_ + _tl121852122104_)))) + (let ((_tl121861122128_ (let () (declare (not safe)) - (##cdr _e121601121861_))) - (_hd121600121864_ + (##cdr _e121863122123_))) + (_hd121862122126_ (let () (declare (not safe)) - (##car _e121601121861_)))) + (##car _e121863122123_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121600121864_)) - (let ((_e121604121869_ + _hd121862122126_)) + (let ((_e121866122131_ (let () (declare (not safe)) (gx#stx-e - _hd121600121864_)))) - (let ((_tl121602121874_ + _hd121862122126_)))) + (let ((_tl121864122136_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121604121869_))) - (_hd121603121872_ - (let () (declare (not safe)) (##car _e121604121869_)))) + (##cdr _e121866122131_))) + (_hd121865122134_ + (let () (declare (not safe)) (##car _e121866122131_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121603121872_)) + (gx#identifier? _hd121865122134_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121603121872_)) + (gx#stx-eq? '%#ref _hd121865122134_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121602121874_)) - (let ((_e121607121877_ + (gx#stx-pair? _tl121864122136_)) + (let ((_e121869122139_ (let () (declare (not safe)) - (gx#stx-e _tl121602121874_)))) - (let ((_tl121605121882_ + (gx#stx-e _tl121864122136_)))) + (let ((_tl121867122144_ (let () (declare (not safe)) - (##cdr _e121607121877_))) - (_hd121606121880_ + (##cdr _e121869122139_))) + (_hd121868122142_ (let () (declare (not safe)) - (##car _e121607121877_)))) + (##car _e121869122139_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121605121882_)) + (gx#stx-null? _tl121867122144_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121599121866_)) - (let ((_e121610121885_ + (gx#stx-pair? _tl121861122128_)) + (let ((_e121872122147_ (let () (declare (not safe)) - (gx#stx-e _tl121599121866_)))) - (let ((_tl121608121890_ + (gx#stx-e _tl121861122128_)))) + (let ((_tl121870122152_ (let () (declare (not safe)) - (##cdr _e121610121885_))) - (_hd121609121888_ + (##cdr _e121872122147_))) + (_hd121871122150_ (let () (declare (not safe)) - (##car _e121610121885_)))) + (##car _e121872122147_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121609121888_)) - (let ((_e121613121893_ + _hd121871122150_)) + (let ((_e121875122155_ (let () (declare (not safe)) (gx#stx-e - _hd121609121888_)))) - (let ((_tl121611121898_ + _hd121871122150_)))) + (let ((_tl121873122160_ (let () (declare (not safe)) - (##cdr _e121613121893_))) - (_hd121612121896_ + (##cdr _e121875122155_))) + (_hd121874122158_ (let () (declare (not safe)) - (##car _e121613121893_)))) + (##car _e121875122155_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121612121896_)) + _hd121874122158_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121612121896_)) + _hd121874122158_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121611121898_)) - (let ((_e121616121901_ + (gx#stx-pair? _tl121873122160_)) + (let ((_e121878122163_ (let () (declare (not safe)) - (gx#stx-e _tl121611121898_)))) - (let ((_tl121614121906_ + (gx#stx-e _tl121873122160_)))) + (let ((_tl121876122168_ (let () (declare (not safe)) - (##cdr _e121616121901_))) - (_hd121615121904_ + (##cdr _e121878122163_))) + (_hd121877122166_ (let () (declare (not safe)) - (##car _e121616121901_)))) + (##car _e121878122163_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121614121906_)) + (gx#stx-null? _tl121876122168_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121584121826_)) + (gx#stx-null? _tl121846122088_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121572121794_)) + (gx#stx-null? _tl121834122056_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121551121738_)) + (gx#stx-null? _tl121813122000_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121542121714_)) + _tl121804121976_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121539121706_)) - (let ((_e121619121909_ + _tl121801121968_)) + (let ((_e121881122171_ (let () (declare (not safe)) (gx#stx-e - _tl121539121706_)))) - (let ((_tl121617121914_ + _tl121801121968_)))) + (let ((_tl121879122176_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121619121909_))) - (_hd121618121912_ - (let () (declare (not safe)) (##car _e121619121909_)))) + (##cdr _e121881122171_))) + (_hd121880122174_ + (let () (declare (not safe)) (##car _e121881122171_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121618121912_)) - (let ((_e121622121917_ + (gx#stx-pair? _hd121880122174_)) + (let ((_e121884122179_ (let () (declare (not safe)) - (gx#stx-e _hd121618121912_)))) - (let ((_tl121620121922_ + (gx#stx-e _hd121880122174_)))) + (let ((_tl121882122184_ (let () (declare (not safe)) - (##cdr _e121622121917_))) - (_hd121621121920_ + (##cdr _e121884122179_))) + (_hd121883122182_ (let () (declare (not safe)) - (##car _e121622121917_)))) + (##car _e121884122179_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121621121920_)) + (gx#identifier? _hd121883122182_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd121621121920_)) + (gx#stx-eq? '%#lambda _hd121883122182_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121620121922_)) - (let ((_e121625121925_ + (gx#stx-pair? _tl121882122184_)) + (let ((_e121887122187_ (let () (declare (not safe)) - (gx#stx-e _tl121620121922_)))) - (let ((_tl121623121930_ + (gx#stx-e _tl121882122184_)))) + (let ((_tl121885122192_ (let () (declare (not safe)) - (##cdr _e121625121925_))) - (_hd121624121928_ + (##cdr _e121887122187_))) + (_hd121886122190_ (let () (declare (not safe)) - (##car _e121625121925_)))) + (##car _e121887122187_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121623121930_)) - (let ((_e121628121933_ + (gx#stx-pair? _tl121885122192_)) + (let ((_e121890122195_ (let () (declare (not safe)) (gx#stx-e - _tl121623121930_)))) - (let ((_tl121626121938_ + _tl121885122192_)))) + (let ((_tl121888122200_ (let () (declare (not safe)) - (##cdr _e121628121933_))) - (_hd121627121936_ + (##cdr _e121890122195_))) + (_hd121889122198_ (let () (declare (not safe)) - (##car _e121628121933_)))) + (##car _e121890122195_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121627121936_)) - (let ((_e121631121941_ + _hd121889122198_)) + (let ((_e121893122203_ (let () (declare (not safe)) (gx#stx-e - _hd121627121936_)))) - (let ((_tl121629121946_ + _hd121889122198_)))) + (let ((_tl121891122208_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121631121941_))) - (_hd121630121944_ - (let () (declare (not safe)) (##car _e121631121941_)))) + (##cdr _e121893122203_))) + (_hd121892122206_ + (let () (declare (not safe)) (##car _e121893122203_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121630121944_)) + (gx#identifier? _hd121892122206_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd121630121944_)) + (gx#stx-eq? '%#call _hd121892122206_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121629121946_)) - (let ((_e121634121949_ + (gx#stx-pair? _tl121891122208_)) + (let ((_e121896122211_ (let () (declare (not safe)) - (gx#stx-e _tl121629121946_)))) - (let ((_tl121632121954_ + (gx#stx-e _tl121891122208_)))) + (let ((_tl121894122216_ (let () (declare (not safe)) - (##cdr _e121634121949_))) - (_hd121633121952_ + (##cdr _e121896122211_))) + (_hd121895122214_ (let () (declare (not safe)) - (##car _e121634121949_)))) + (##car _e121896122211_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121633121952_)) - (let ((_e121637121957_ + (gx#stx-pair? _hd121895122214_)) + (let ((_e121899122219_ (let () (declare (not safe)) - (gx#stx-e _hd121633121952_)))) - (let ((_tl121635121962_ + (gx#stx-e _hd121895122214_)))) + (let ((_tl121897122224_ (let () (declare (not safe)) - (##cdr _e121637121957_))) - (_hd121636121960_ + (##cdr _e121899122219_))) + (_hd121898122222_ (let () (declare (not safe)) - (##car _e121637121957_)))) + (##car _e121899122219_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121636121960_)) + _hd121898122222_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121636121960_)) + _hd121898122222_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121635121962_)) - (let ((_e121640121965_ + _tl121897122224_)) + (let ((_e121902122227_ (let () (declare (not safe)) (gx#stx-e - _tl121635121962_)))) - (let ((_tl121638121970_ + _tl121897122224_)))) + (let ((_tl121900122232_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121640121965_))) - (_hd121639121968_ - (let () (declare (not safe)) (##car _e121640121965_)))) + (##cdr _e121902122227_))) + (_hd121901122230_ + (let () (declare (not safe)) (##car _e121902122227_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121638121970_)) + (gx#stx-null? _tl121900122232_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121632121954_)) - (let ((_e121643121973_ + (gx#stx-pair? _tl121894122216_)) + (let ((_e121905122235_ (let () (declare (not safe)) - (gx#stx-e _tl121632121954_)))) - (let ((_tl121641121978_ + (gx#stx-e _tl121894122216_)))) + (let ((_tl121903122240_ (let () (declare (not safe)) - (##cdr _e121643121973_))) - (_hd121642121976_ + (##cdr _e121905122235_))) + (_hd121904122238_ (let () (declare (not safe)) - (##car _e121643121973_)))) + (##car _e121905122235_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121642121976_)) - (let ((_e121646121981_ + (gx#stx-pair? _hd121904122238_)) + (let ((_e121908122243_ (let () (declare (not safe)) - (gx#stx-e _hd121642121976_)))) - (let ((_tl121644121986_ + (gx#stx-e _hd121904122238_)))) + (let ((_tl121906122248_ (let () (declare (not safe)) - (##cdr _e121646121981_))) - (_hd121645121984_ + (##cdr _e121908122243_))) + (_hd121907122246_ (let () (declare (not safe)) - (##car _e121646121981_)))) + (##car _e121908122243_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121645121984_)) + (gx#identifier? _hd121907122246_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121645121984_)) + _hd121907122246_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121644121986_)) - (let ((_e121649121989_ + _tl121906122248_)) + (let ((_e121911122251_ (let () (declare (not safe)) (gx#stx-e - _tl121644121986_)))) - (let ((_tl121647121994_ + _tl121906122248_)))) + (let ((_tl121909122256_ (let () (declare (not safe)) - (##cdr _e121649121989_))) - (_hd121648121992_ + (##cdr _e121911122251_))) + (_hd121910122254_ (let () (declare (not safe)) - (##car _e121649121989_)))) + (##car _e121911122251_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121647121994_)) + _tl121909122256_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121641121978_)) - (let ((_e121652121997_ + _tl121903122240_)) + (let ((_e121914122259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl121641121978_)))) - (let ((_tl121650122002_ + (gx#stx-e _tl121903122240_)))) + (let ((_tl121912122264_ (let () (declare (not safe)) - (##cdr _e121652121997_))) - (_hd121651122000_ + (##cdr _e121914122259_))) + (_hd121913122262_ (let () (declare (not safe)) - (##car _e121652121997_)))) + (##car _e121914122259_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121651122000_)) - (let ((_e121655122005_ + (gx#stx-pair? _hd121913122262_)) + (let ((_e121917122267_ (let () (declare (not safe)) - (gx#stx-e _hd121651122000_)))) - (let ((_tl121653122010_ + (gx#stx-e _hd121913122262_)))) + (let ((_tl121915122272_ (let () (declare (not safe)) - (##cdr _e121655122005_))) - (_hd121654122008_ + (##cdr _e121917122267_))) + (_hd121916122270_ (let () (declare (not safe)) - (##car _e121655122005_)))) + (##car _e121917122267_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121654122008_)) + (gx#identifier? _hd121916122270_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd121654122008_)) + _hd121916122270_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121653122010_)) - (let ((_e121658122013_ + (gx#stx-pair? _tl121915122272_)) + (let ((_e121920122275_ (let () (declare (not safe)) (gx#stx-e - _tl121653122010_)))) - (let ((_tl121656122018_ + _tl121915122272_)))) + (let ((_tl121918122280_ (let () (declare (not safe)) - (##cdr _e121658122013_))) - (_hd121657122016_ + (##cdr _e121920122275_))) + (_hd121919122278_ (let () (declare (not safe)) - (##car _e121658122013_)))) + (##car _e121920122275_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121656122018_)) + _tl121918122280_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121650122002_)) - (let ((_e121661122021_ + _tl121912122264_)) + (let ((_e121923122283_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl121650122002_)))) - (let ((_tl121659122026_ - (let () (declare (not safe)) (##cdr _e121661122021_))) - (_hd121660122024_ + (gx#stx-e _tl121912122264_)))) + (let ((_tl121921122288_ + (let () (declare (not safe)) (##cdr _e121923122283_))) + (_hd121922122286_ (let () (declare (not safe)) - (##car _e121661122021_)))) + (##car _e121923122283_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121660122024_)) - (let ((_e121664122029_ + (gx#stx-pair? _hd121922122286_)) + (let ((_e121926122291_ (let () (declare (not safe)) - (gx#stx-e _hd121660122024_)))) - (let ((_tl121662122034_ + (gx#stx-e _hd121922122286_)))) + (let ((_tl121924122296_ (let () (declare (not safe)) - (##cdr _e121664122029_))) - (_hd121663122032_ + (##cdr _e121926122291_))) + (_hd121925122294_ (let () (declare (not safe)) - (##car _e121664122029_)))) + (##car _e121926122291_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121663122032_)) + (gx#identifier? _hd121925122294_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121663122032_)) + (gx#stx-eq? '%#ref _hd121925122294_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121662122034_)) - (let ((_e121667122037_ + (gx#stx-pair? _tl121924122296_)) + (let ((_e121929122299_ (let () (declare (not safe)) - (gx#stx-e _tl121662122034_)))) - (let ((_tl121665122042_ + (gx#stx-e _tl121924122296_)))) + (let ((_tl121927122304_ (let () (declare (not safe)) - (##cdr _e121667122037_))) - (_hd121666122040_ + (##cdr _e121929122299_))) + (_hd121928122302_ (let () (declare (not safe)) - (##car _e121667122037_)))) + (##car _e121929122299_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121665122042_)) + _tl121927122304_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121659122026_)) - (let ((_e121670122045_ + _tl121921122288_)) + (let ((_e121932122307_ (let () (declare (not safe)) (gx#stx-e - _tl121659122026_)))) - (let ((_tl121668122050_ + _tl121921122288_)))) + (let ((_tl121930122312_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121670122045_))) - (_hd121669122048_ - (let () (declare (not safe)) (##car _e121670122045_)))) + (##cdr _e121932122307_))) + (_hd121931122310_ + (let () (declare (not safe)) (##car _e121932122307_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121669122048_)) - (let ((_e121673122053_ + (gx#stx-pair? _hd121931122310_)) + (let ((_e121935122315_ (let () (declare (not safe)) - (gx#stx-e _hd121669122048_)))) - (let ((_tl121671122058_ + (gx#stx-e _hd121931122310_)))) + (let ((_tl121933122320_ (let () (declare (not safe)) - (##cdr _e121673122053_))) - (_hd121672122056_ + (##cdr _e121935122315_))) + (_hd121934122318_ (let () (declare (not safe)) - (##car _e121673122053_)))) + (##car _e121935122315_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121672122056_)) + (gx#identifier? _hd121934122318_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121672122056_)) + (gx#stx-eq? '%#ref _hd121934122318_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121671122058_)) - (let ((_e121676122061_ + (gx#stx-pair? _tl121933122320_)) + (let ((_e121938122323_ (let () (declare (not safe)) - (gx#stx-e _tl121671122058_)))) - (let ((_tl121674122066_ + (gx#stx-e _tl121933122320_)))) + (let ((_tl121936122328_ (let () (declare (not safe)) - (##cdr _e121676122061_))) - (_hd121675122064_ + (##cdr _e121938122323_))) + (_hd121937122326_ (let () (declare (not safe)) - (##car _e121676122061_)))) + (##car _e121938122323_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121674122066_)) + (gx#stx-null? _tl121936122328_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121668122050_)) + _tl121930122312_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121626121938_)) + _tl121888122200_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121617121914_)) - (___kont127899127900_ - _hd121675122064_ - _hd121666122040_ - _hd121648121992_ - _hd121639121968_ - _hd121624121928_ - _hd121615121904_ - _hd121606121880_ - _hd121597121856_ - _hd121582121816_ - _hd121567121776_ - _hd121549121728_) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127901127902_)))) - (___kont127901127902_)))) - (___kont127901127902_)) - (___kont127901127902_)) - (___kont127901127902_)))) - (___kont127901127902_)))))) + _tl121879122176_)) + (___kont128161128162_ + _hd121937122326_ + _hd121928122302_ + _hd121910122254_ + _hd121901122230_ + _hd121886122190_ + _hd121877122166_ + _hd121868122142_ + _hd121859122118_ + _hd121844122078_ + _hd121829122038_ + _hd121811121990_) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128163128164_)))) + (___kont128163128164_)))) + (___kont128163128164_)) + (___kont128163128164_)) + (___kont128163128164_)))) + (___kont128163128164_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx121262_ _id121263_ _clauses121264_ _gensym?121265_) - (let _lp121267_ ((_rest121269_ _clauses121264_) - (_ids121270_ '()) - (_impls121271_ '()) - (_clauses121272_ '())) - (let* ((_rest121273121281_ _rest121269_) - (_else121275121289_ + (lambda (_stx121524_ _id121525_ _clauses121526_ _gensym?121527_) + (let _lp121529_ ((_rest121531_ _clauses121526_) + (_ids121532_ '()) + (_impls121533_ '()) + (_clauses121534_ '())) + (let* ((_rest121535121543_ _rest121531_) + (_else121537121551_ (lambda () - (values (reverse _ids121270_) - (reverse _impls121271_) - (reverse _clauses121272_)))) - (_K121277121494_ - (lambda (_rest121292_ _clause121293_) + (values (reverse _ids121532_) + (reverse _impls121533_) + (reverse _clauses121534_)))) + (_K121539121756_ + (lambda (_rest121554_ _clause121555_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause121293_)) - (let ((__tmp128976 + (gxc#dispatch-lambda-form? _clause121555_)) + (let ((__tmp129238 (let () (declare (not safe)) - (cons _clause121293_ _clauses121272_)))) + (cons _clause121555_ _clauses121534_)))) (declare (not safe)) - (_lp121267_ - _rest121292_ - _ids121270_ - _impls121271_ - __tmp128976)) - (let* ((_g121295121306_ - (lambda (_g121296121303_) + (_lp121529_ + _rest121554_ + _ids121532_ + _impls121533_ + __tmp129238)) + (let* ((_g121557121568_ + (lambda (_g121558121565_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g121296121303_)))) - (_g121294121491_ - (lambda (_g121296121309_) + _g121558121565_)))) + (_g121556121753_ + (lambda (_g121558121571_) (if (let () (declare (not safe)) - (gx#stx-pair? _g121296121309_)) - (let ((_e121301121311_ + (gx#stx-pair? _g121558121571_)) + (let ((_e121563121573_ (let () (declare (not safe)) - (gx#stx-e _g121296121309_)))) - (let ((_hd121300121314_ + (gx#stx-e _g121558121571_)))) + (let ((_hd121562121576_ (let () (declare (not safe)) - (##car _e121301121311_))) - (_tl121299121316_ + (##car _e121563121573_))) + (_tl121561121578_ (let () (declare (not safe)) - (##cdr _e121301121311_)))) - ((lambda (_L121319_ _L121320_) - (let* ((_id121337_ - (let ((__tmp128923 + (##cdr _e121563121573_)))) + ((lambda (_L121581_ _L121582_) + (let* ((_id121599_ + (let ((__tmp129185 (let () (declare (not safe)) (gx#stx-e - _id121263_))) - (__tmp128922 - (length _clauses121272_)) - (__tmp128921 - (if _gensym?121265_ + _id121525_))) + (__tmp129184 + (length _clauses121534_)) + (__tmp129183 + (if _gensym?121527_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp128923 + __tmp129185 '"__" - __tmp128922 - __tmp128921))) - (_id121339_ - (let ((__tmp128924 + __tmp129184 + __tmp129183))) + (_id121601_ + (let ((__tmp129186 (let () (declare (not safe)) (gx#stx-source - _stx121262_)))) + _stx121524_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id121337_ - __tmp128924))) - (_impl121341_ - (let ((__tmp128925 - (let ((__tmp128927 + _id121599_ + __tmp129186))) + (_impl121603_ + (let ((__tmp129187 + (let ((__tmp129189 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp128926 + (__tmp129188 (let () (declare (not safe)) - (cons _L121320_ _L121319_)))) + (cons _L121582_ _L121581_)))) (declare (not safe)) - (cons __tmp128927 __tmp128926)))) + (cons __tmp129189 __tmp129188)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128925 _stx121262_))) + (gxc#xform-wrap-source __tmp129187 _stx121524_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause121488_ - (let* ((___stx128281128282_ - _L121320_) - (_g121345121373_ + (_clause121750_ + (let* ((___stx128543128544_ + _L121582_) + (_g121607121635_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10642,1813 +10642,1813 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128281128282_))))) - (let ((___kont128283128284_ - (lambda (_L121467_) - (let ((__tmp128928 - (let ((__tmp128929 - (let ((__tmp128930 - (let ((__tmp128931 - (let ((__tmp128937 - (let ((__tmp128938 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id121339_ '())))) + ___stx128543128544_))))) + (let ((___kont128545128546_ + (lambda (_L121729_) + (let ((__tmp129190 + (let ((__tmp129191 + (let ((__tmp129192 + (let ((__tmp129193 + (let ((__tmp129199 + (let ((__tmp129200 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id121601_ '())))) (declare (not safe)) - (cons '%#ref __tmp128938))) - (__tmp128932 - (let ((__tmp128933 - (lambda (_g121477121480_ _g121478121482_) - (let ((__tmp128934 - (let ((__tmp128936 + (cons '%#ref __tmp129200))) + (__tmp129194 + (let ((__tmp129195 + (lambda (_g121739121742_ _g121740121744_) + (let ((__tmp129196 + (let ((__tmp129198 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128935 + (__tmp129197 (let () (declare (not safe)) - (cons _g121477121480_ '())))) + (cons _g121739121742_ '())))) (declare (not safe)) - (cons __tmp128936 __tmp128935)))) + (cons __tmp129198 __tmp129197)))) (declare (not safe)) - (cons __tmp128934 _g121478121482_))))) + (cons __tmp129196 _g121740121744_))))) (declare (not safe)) - (foldr1 __tmp128933 '() _L121467_)))) + (foldr1 __tmp129195 '() _L121729_)))) (declare (not safe)) - (cons __tmp128937 __tmp128932)))) + (cons __tmp129199 __tmp129194)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128931)))) + (cons '%#call __tmp129193)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128930 - _stx121262_)))) + __tmp129192 + _stx121524_)))) (declare (not safe)) - (cons __tmp128929 '())))) + (cons __tmp129191 '())))) (declare (not safe)) - (cons _L121320_ __tmp128928)))) - (___kont128287128288_ - (lambda (_L121418_ _L121419_) - (let ((__tmp128939 - (let ((__tmp128940 - (let ((__tmp128941 - (let ((__tmp128942 - (let ((__tmp128956 - (let ((__tmp128957 + (cons _L121582_ __tmp129190)))) + (___kont128549128550_ + (lambda (_L121680_ _L121681_) + (let ((__tmp129201 + (let ((__tmp129202 + (let ((__tmp129203 + (let ((__tmp129204 + (let ((__tmp129218 + (let ((__tmp129219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp128957))) - (__tmp128943 - (let ((__tmp128954 - (let ((__tmp128955 + (cons '%#ref __tmp129219))) + (__tmp129205 + (let ((__tmp129216 + (let ((__tmp129217 (let () (declare (not safe)) - (cons _id121339_ '())))) + (cons _id121601_ '())))) (declare (not safe)) - (cons '%#ref __tmp128955))) - (__tmp128944 - (let ((__tmp128950 - (let ((__tmp128951 - (let ((__tmp128953 + (cons '%#ref __tmp129217))) + (__tmp129206 + (let ((__tmp129212 + (let ((__tmp129213 + (let ((__tmp129215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128952 + (__tmp129214 (let () (declare (not safe)) - (cons _L121418_ '())))) + (cons _L121680_ '())))) (declare (not safe)) - (cons __tmp128953 __tmp128952)))) + (cons __tmp129215 __tmp129214)))) (declare (not safe)) - (cons __tmp128951 '()))) - (__tmp128945 - (let ((__tmp128946 - (lambda (_g121430121433_ - _g121431121435_) - (let ((__tmp128947 - (let ((__tmp128949 + (cons __tmp129213 '()))) + (__tmp129207 + (let ((__tmp129208 + (lambda (_g121692121695_ + _g121693121697_) + (let ((__tmp129209 + (let ((__tmp129211 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128948 + (__tmp129210 (let () (declare (not safe)) - (cons _g121430121433_ + (cons _g121692121695_ '())))) (declare (not safe)) - (cons __tmp128949 - __tmp128948)))) + (cons __tmp129211 + __tmp129210)))) (declare (not safe)) - (cons __tmp128947 - _g121431121435_))))) + (cons __tmp129209 + _g121693121697_))))) (declare (not safe)) - (foldr1 __tmp128946 '() _L121419_)))) + (foldr1 __tmp129208 '() _L121681_)))) (declare (not safe)) - (foldr1 cons __tmp128950 __tmp128945)))) + (foldr1 cons __tmp129212 __tmp129207)))) (declare (not safe)) - (cons __tmp128954 __tmp128944)))) + (cons __tmp129216 __tmp129206)))) (declare (not safe)) - (cons __tmp128956 __tmp128943)))) + (cons __tmp129218 __tmp129205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128942)))) + (cons '%#call __tmp129204)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128941 - _stx121262_)))) + __tmp129203 + _stx121524_)))) (declare (not safe)) - (cons __tmp128940 '())))) + (cons __tmp129202 '())))) (declare (not safe)) - (cons _L121320_ __tmp128939)))) - (___kont128291128292_ - (lambda (_L121378_) - (let ((__tmp128958 - (let ((__tmp128959 - (let ((__tmp128960 - (let ((__tmp128961 - (let ((__tmp128969 - (let ((__tmp128970 + (cons _L121582_ __tmp129201)))) + (___kont128553128554_ + (lambda (_L121640_) + (let ((__tmp129220 + (let ((__tmp129221 + (let ((__tmp129222 + (let ((__tmp129223 + (let ((__tmp129231 + (let ((__tmp129232 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp128970))) - (__tmp128962 - (let ((__tmp128967 - (let ((__tmp128968 + (cons '%#ref __tmp129232))) + (__tmp129224 + (let ((__tmp129229 + (let ((__tmp129230 (let () (declare (not safe)) - (cons _id121339_ '())))) + (cons _id121601_ '())))) (declare (not safe)) - (cons '%#ref __tmp128968))) - (__tmp128963 - (let ((__tmp128964 - (let ((__tmp128966 + (cons '%#ref __tmp129230))) + (__tmp129225 + (let ((__tmp129226 + (let ((__tmp129228 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128965 + (__tmp129227 (let () (declare (not safe)) - (cons _L121378_ '())))) + (cons _L121640_ '())))) (declare (not safe)) - (cons __tmp128966 __tmp128965)))) + (cons __tmp129228 __tmp129227)))) (declare (not safe)) - (cons __tmp128964 '())))) + (cons __tmp129226 '())))) (declare (not safe)) - (cons __tmp128967 __tmp128963)))) + (cons __tmp129229 __tmp129225)))) (declare (not safe)) - (cons __tmp128969 __tmp128962)))) + (cons __tmp129231 __tmp129224)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128961)))) + (cons '%#call __tmp129223)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128960 - _stx121262_)))) + __tmp129222 + _stx121524_)))) (declare (not safe)) - (cons __tmp128959 '())))) + (cons __tmp129221 '())))) (declare (not safe)) - (cons _L121320_ __tmp128958))))) - (let* ((___match128306128307_ - (lambda (___splice128289128290_ - _target121359121394_ - _tl121361121396_) - (letrec ((_loop121362121399_ - (lambda (_hd121360121402_ - _arg121366121404_) + (cons _L121582_ __tmp129220))))) + (let* ((___match128568128569_ + (lambda (___splice128551128552_ + _target121621121656_ + _tl121623121658_) + (letrec ((_loop121624121661_ + (lambda (_hd121622121664_ + _arg121628121666_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121360121402_)) - (let ((_e121363121407_ + (gx#stx-pair? _hd121622121664_)) + (let ((_e121625121669_ (let () (declare (not safe)) (gx#stx-e - _hd121360121402_)))) - (let ((_lp-tl121365121412_ + _hd121622121664_)))) + (let ((_lp-tl121627121674_ (let () (declare (not safe)) - (##cdr _e121363121407_))) - (_lp-hd121364121410_ + (##cdr _e121625121669_))) + (_lp-hd121626121672_ (let () (declare (not safe)) - (##car _e121363121407_)))) - (let ((__tmp128971 + (##car _e121625121669_)))) + (let ((__tmp129233 (let () (declare (not safe)) - (cons _lp-hd121364121410_ - _arg121366121404_)))) + (cons _lp-hd121626121672_ + _arg121628121666_)))) (declare (not safe)) - (_loop121362121399_ - _lp-tl121365121412_ - __tmp128971)))) - (let ((_arg121367121415_ - (reverse _arg121366121404_))) - (___kont128287128288_ - _tl121361121396_ - _arg121367121415_)))))) + (_loop121624121661_ + _lp-tl121627121674_ + __tmp129233)))) + (let ((_arg121629121677_ + (reverse _arg121628121666_))) + (___kont128549128550_ + _tl121623121658_ + _arg121629121677_)))))) (let () (declare (not safe)) - (_loop121362121399_ - _target121359121394_ + (_loop121624121661_ + _target121621121656_ '()))))) - (___match128300128301_ - (lambda (___splice128285128286_ - _target121348121443_ - _tl121350121445_) - (letrec ((_loop121351121448_ - (lambda (_hd121349121451_ - _arg121355121453_) + (___match128562128563_ + (lambda (___splice128547128548_ + _target121610121705_ + _tl121612121707_) + (letrec ((_loop121613121710_ + (lambda (_hd121611121713_ + _arg121617121715_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121349121451_)) - (let ((_e121352121456_ + (gx#stx-pair? _hd121611121713_)) + (let ((_e121614121718_ (let () (declare (not safe)) (gx#stx-e - _hd121349121451_)))) - (let ((_lp-tl121354121461_ + _hd121611121713_)))) + (let ((_lp-tl121616121723_ (let () (declare (not safe)) - (##cdr _e121352121456_))) - (_lp-hd121353121459_ + (##cdr _e121614121718_))) + (_lp-hd121615121721_ (let () (declare (not safe)) - (##car _e121352121456_)))) - (let ((__tmp128972 + (##car _e121614121718_)))) + (let ((__tmp129234 (let () (declare (not safe)) - (cons _lp-hd121353121459_ - _arg121355121453_)))) + (cons _lp-hd121615121721_ + _arg121617121715_)))) (declare (not safe)) - (_loop121351121448_ - _lp-tl121354121461_ - __tmp128972)))) - (let ((_arg121356121464_ - (reverse _arg121355121453_))) - (___kont128283128284_ - _arg121356121464_)))))) + (_loop121613121710_ + _lp-tl121616121723_ + __tmp129234)))) + (let ((_arg121618121726_ + (reverse _arg121617121715_))) + (___kont128545128546_ + _arg121618121726_)))))) (let () (declare (not safe)) - (_loop121351121448_ - _target121348121443_ + (_loop121613121710_ + _target121610121705_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx128281128282_)) - (let ((___splice128285128286_ + (gx#stx-pair/null? ___stx128543128544_)) + (let ((___splice128547128548_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx128281128282_ + ___stx128543128544_ '0)))) - (let ((_tl121350121445_ + (let ((_tl121612121707_ (let () (declare (not safe)) - (##vector-ref ___splice128285128286_ '1))) - (_target121348121443_ + (##vector-ref ___splice128547128548_ '1))) + (_target121610121705_ (let () (declare (not safe)) - (##vector-ref ___splice128285128286_ '0)))) + (##vector-ref ___splice128547128548_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121350121445_)) - (___match128300128301_ - ___splice128285128286_ - _target121348121443_ - _tl121350121445_) - (___match128306128307_ - ___splice128285128286_ - _target121348121443_ - _tl121350121445_)))) - (___kont128291128292_ ___stx128281128282_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp128975 + (gx#stx-null? _tl121612121707_)) + (___match128562128563_ + ___splice128547128548_ + _target121610121705_ + _tl121612121707_) + (___match128568128569_ + ___splice128547128548_ + _target121610121705_ + _tl121612121707_)))) + (___kont128553128554_ ___stx128543128544_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp129237 (let () (declare (not safe)) - (cons _id121339_ - _ids121270_))) - (__tmp128974 + (cons _id121601_ + _ids121532_))) + (__tmp129236 (let () (declare (not safe)) - (cons _impl121341_ - _impls121271_))) - (__tmp128973 + (cons _impl121603_ + _impls121533_))) + (__tmp129235 (let () (declare (not safe)) - (cons _clause121488_ - _clauses121272_)))) + (cons _clause121750_ + _clauses121534_)))) (declare (not safe)) - (_lp121267_ - _rest121292_ - __tmp128975 - __tmp128974 - __tmp128973)))) - _tl121299121316_ - _hd121300121314_))) + (_lp121529_ + _rest121554_ + __tmp129237 + __tmp129236 + __tmp129235)))) + _tl121561121578_ + _hd121562121576_))) (let () (declare (not safe)) - (_g121295121306_ _g121296121309_)))))) + (_g121557121568_ _g121558121571_)))))) (declare (not safe)) - (_g121294121491_ _clause121293_)))))) - (if (let () (declare (not safe)) (##pair? _rest121273121281_)) - (let ((_hd121278121497_ + (_g121556121753_ _clause121555_)))))) + (if (let () (declare (not safe)) (##pair? _rest121535121543_)) + (let ((_hd121540121759_ (let () (declare (not safe)) - (##car _rest121273121281_))) - (_tl121279121499_ + (##car _rest121535121543_))) + (_tl121541121761_ (let () (declare (not safe)) - (##cdr _rest121273121281_)))) - (let* ((_clause121502_ _hd121278121497_) - (_rest121504_ _tl121279121499_)) + (##cdr _rest121535121543_)))) + (let* ((_clause121764_ _hd121540121759_) + (_rest121766_ _tl121541121761_)) (declare (not safe)) - (_K121277121494_ _rest121504_ _clause121502_))) - (let () (declare (not safe)) (_else121275121289_))))))) + (_K121539121756_ _rest121766_ _clause121764_))) + (let () (declare (not safe)) (_else121537121551_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx121509_ _id121510_ _clauses121511_) - (let ((_gensym?121513_ '#f)) + (lambda (_stx121771_ _id121772_ _clauses121773_) + (let ((_gensym?121775_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx121509_ - _id121510_ - _clauses121511_ - _gensym?121513_)))) + _stx121771_ + _id121772_ + _clauses121773_ + _gensym?121775_)))) (define gxc#lift-case-lambda-clauses - (lambda _g128978_ - (let ((_g128977_ (let () (declare (not safe)) (##length _g128978_)))) - (cond ((let () (declare (not safe)) (##fx= _g128977_ 3)) - (apply (lambda (_stx121509_ _id121510_ _clauses121511_) + (lambda _g129240_ + (let ((_g129239_ (let () (declare (not safe)) (##length _g129240_)))) + (cond ((let () (declare (not safe)) (##fx= _g129239_ 3)) + (apply (lambda (_stx121771_ _id121772_ _clauses121773_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx121509_ - _id121510_ - _clauses121511_))) - _g128978_)) - ((let () (declare (not safe)) (##fx= _g128977_ 4)) - (apply (lambda (_stx121515_ - _id121516_ - _clauses121517_ - _gensym?121518_) + _stx121771_ + _id121772_ + _clauses121773_))) + _g129240_)) + ((let () (declare (not safe)) (##fx= _g129239_ 4)) + (apply (lambda (_stx121777_ + _id121778_ + _clauses121779_ + _gensym?121780_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx121515_ - _id121516_ - _clauses121517_ - _gensym?121518_))) - _g128978_)) + _stx121777_ + _id121778_ + _clauses121779_ + _gensym?121780_))) + _g129240_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g128978_)))))) + _g129240_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx120539_) - (letrec ((_case-lambda-clause-def120541_ - (lambda (_id121258_ _impl121259_) - (let ((__tmp128979 - (let ((__tmp128980 - (let ((__tmp128983 + (lambda (_stx120801_) + (letrec ((_case-lambda-clause-def120803_ + (lambda (_id121520_ _impl121521_) + (let ((__tmp129241 + (let ((__tmp129242 + (let ((__tmp129245 (let () (declare (not safe)) - (cons _id121258_ '()))) - (__tmp128981 - (let ((__tmp128982 + (cons _id121520_ '()))) + (__tmp129243 + (let ((__tmp129244 (let () (declare (not safe)) (gxc#compile-e__0 - _impl121259_)))) + _impl121521_)))) (declare (not safe)) - (cons __tmp128982 '())))) + (cons __tmp129244 '())))) (declare (not safe)) - (cons __tmp128983 __tmp128981)))) + (cons __tmp129245 __tmp129243)))) (declare (not safe)) - (cons '%#define-values __tmp128980)))) + (cons '%#define-values __tmp129242)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128979 _stx120539_)))) - (_opt-lambda-dispatch-name120542_ - (lambda (_id121254_) - (if (uninterned-symbol? _id121254_) - (let ((_str121256_ (symbol->string _id121254_))) + (gxc#xform-wrap-source __tmp129241 _stx120801_)))) + (_opt-lambda-dispatch-name120804_ + (lambda (_id121516_) + (if (uninterned-symbol? _id121516_) + (let ((_str121518_ (symbol->string _id121516_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str121256_)) + (string-prefix? '"opt-lambda" _str121518_)) '"%" - _id121254_)) - _id121254_))) - (_kw-lambda-dispatch-name120543_ - (lambda (_id121249_ _name121250_) - (if (uninterned-symbol? _id121249_) - (let ((_str121252_ (symbol->string _id121249_))) + _id121516_)) + _id121516_))) + (_kw-lambda-dispatch-name120805_ + (lambda (_id121511_ _name121512_) + (if (uninterned-symbol? _id121511_) + (let ((_str121514_ (symbol->string _id121511_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str121252_)) - _name121250_ - _id121249_)) - _id121249_)))) - (let* ((___stx128329128330_ _stx120539_) - (_g120548120607_ + (string-prefix? '"kw-lambda" _str121514_)) + _name121512_ + _id121511_)) + _id121511_)))) + (let* ((___stx128591128592_ _stx120801_) + (_g120810120869_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128329128330_))))) - (let ((___kont128331128332_ - (lambda (_L121158_ _L121159_) - (let* ((___stx128309128310_ _L121158_) - (_g121176121190_ + ___stx128591128592_))))) + (let ((___kont128593128594_ + (lambda (_L121420_ _L121421_) + (let* ((___stx128571128572_ _L121420_) + (_g121438121452_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128309128310_))))) - (let ((___kont128311128312_ - (lambda (_L121234_) _stx120539_)) - (___kont128313128314_ - (lambda (_L121203_) - (let ((_g128984_ + ___stx128571128572_))))) + (let ((___kont128573128574_ + (lambda (_L121496_) _stx120801_)) + (___kont128575128576_ + (lambda (_L121465_) + (let ((_g129246_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx120539_ - _L121159_ - _L121203_)))) + _stx120801_ + _L121421_ + _L121465_)))) (begin - (let ((_g128985_ + (let ((_g129247_ (let () (declare (not safe)) - (if (##values? _g128984_) - (##vector-length _g128984_) + (if (##values? _g129246_) + (##vector-length _g129246_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g128985_ 3))) + (##fx= _g129247_ 3))) (error "Context expects 3 values" - _g128985_))) - (let ((_ids121213_ + _g129247_))) + (let ((_ids121475_ (let () (declare (not safe)) - (##vector-ref _g128984_ 0))) - (_impls121214_ + (##vector-ref _g129246_ 0))) + (_impls121476_ (let () (declare (not safe)) - (##vector-ref _g128984_ 1))) - (_clauses121215_ + (##vector-ref _g129246_ 1))) + (_clauses121477_ (let () (declare (not safe)) - (##vector-ref _g128984_ 2)))) - (let* ((_g128986_ + (##vector-ref _g129246_ 2)))) + (let* ((_g129248_ (for-each gx#core-bind-runtime! - _ids121213_)) - (_defs121218_ - (map _case-lambda-clause-def120541_ - _ids121213_ - _impls121214_))) - (let ((__tmp128988 + _ids121475_)) + (_defs121480_ + (map _case-lambda-clause-def120803_ + _ids121475_ + _impls121476_))) + (let ((__tmp129250 (let () (declare (not safe)) (gxc#identifier-symbol - _L121159_))) - (__tmp128987 + _L121421_))) + (__tmp129249 (map gxc#identifier-symbol - _ids121213_))) + _ids121475_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp128988 + __tmp129250 '" => " - __tmp128987)) - (let ((__tmp128989 - (let ((__tmp128990 - (let ((__tmp128991 - (let ((__tmp128992 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128993 - (let ((__tmp128994 - (let ((__tmp128999 + __tmp129249)) + (let ((__tmp129251 + (let ((__tmp129252 + (let ((__tmp129253 + (let ((__tmp129254 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129255 + (let ((__tmp129256 + (let ((__tmp129261 (let () (declare (not safe)) - (cons _L121159_ '()))) - (__tmp128995 - (let ((__tmp128996 - (let ((__tmp128998 + (cons _L121421_ '()))) + (__tmp129257 + (let ((__tmp129258 + (let ((__tmp129260 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses121215_))) - (__tmp128997 + (cons '%#case-lambda _clauses121477_))) + (__tmp129259 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128998 __tmp128997)))) + (gxc#xform-wrap-source __tmp129260 __tmp129259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp128996 '())))) + (cons __tmp129258 '())))) (declare (not safe)) - (cons __tmp128999 __tmp128995)))) + (cons __tmp129261 __tmp129257)))) (declare (not safe)) - (cons '%#define-values __tmp128994)))) + (cons '%#define-values __tmp129256)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128993 - _stx120539_)))) + __tmp129255 + _stx120801_)))) (declare (not safe)) - (cons __tmp128992 '())))) + (cons __tmp129254 '())))) (declare (not safe)) - (foldr1 cons __tmp128991 _defs121218_)))) + (foldr1 cons __tmp129253 _defs121480_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp128990)))) + (cons '%#begin __tmp129252)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128989 - _stx120539_))))))))) - (let ((___match128320128321_ - (lambda (_e121181121226_ - _hd121180121229_ - _tl121179121231_) - (let ((_L121234_ _tl121179121231_)) + __tmp129251 + _stx120801_))))))))) + (let ((___match128582128583_ + (lambda (_e121443121488_ + _hd121442121491_ + _tl121441121493_) + (let ((_L121496_ _tl121441121493_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L121234_)) - (___kont128311128312_ _L121234_) - (___kont128313128314_ - _tl121179121231_)))))) + _L121496_)) + (___kont128573128574_ _L121496_) + (___kont128575128576_ + _tl121441121493_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128309128310_)) - (let ((_e121181121226_ + (gx#stx-pair? ___stx128571128572_)) + (let ((_e121443121488_ (let () (declare (not safe)) - (gx#stx-e ___stx128309128310_)))) - (let ((_tl121179121231_ + (gx#stx-e ___stx128571128572_)))) + (let ((_tl121441121493_ (let () (declare (not safe)) - (##cdr _e121181121226_))) - (_hd121180121229_ + (##cdr _e121443121488_))) + (_hd121442121491_ (let () (declare (not safe)) - (##car _e121181121226_)))) - (___match128320128321_ - _e121181121226_ - _hd121180121229_ - _tl121179121231_))) + (##car _e121443121488_)))) + (___match128582128583_ + _e121443121488_ + _hd121442121491_ + _tl121441121493_))) (let () (declare (not safe)) - (_g121176121190_)))))))) - (___kont128333128334_ - (lambda (_L120976_ _L120977_) - (let* ((_g120993121023_ - (lambda (_g120994121020_) + (_g121438121452_)))))))) + (___kont128595128596_ + (lambda (_L121238_ _L121239_) + (let* ((_g121255121285_ + (lambda (_g121256121282_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120994121020_)))) - (_g120992121118_ - (lambda (_g120994121026_) + _g121256121282_)))) + (_g121254121380_ + (lambda (_g121256121288_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120994121026_)) - (let ((_e121000121028_ + (gx#stx-pair? _g121256121288_)) + (let ((_e121262121290_ (let () (declare (not safe)) - (gx#stx-e _g120994121026_)))) - (let ((_hd120999121031_ + (gx#stx-e _g121256121288_)))) + (let ((_hd121261121293_ (let () (declare (not safe)) - (##car _e121000121028_))) - (_tl120998121033_ + (##car _e121262121290_))) + (_tl121260121295_ (let () (declare (not safe)) - (##cdr _e121000121028_)))) + (##cdr _e121262121290_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120998121033_)) - (let ((_e121003121036_ + (gx#stx-pair? _tl121260121295_)) + (let ((_e121265121298_ (let () (declare (not safe)) (gx#stx-e - _tl120998121033_)))) - (let ((_hd121002121039_ + _tl121260121295_)))) + (let ((_hd121264121301_ (let () (declare (not safe)) - (##car _e121003121036_))) - (_tl121001121041_ + (##car _e121265121298_))) + (_tl121263121303_ (let () (declare (not safe)) - (##cdr _e121003121036_)))) + (##cdr _e121265121298_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121002121039_)) - (let ((_e121006121044_ + _hd121264121301_)) + (let ((_e121268121306_ (let () (declare (not safe)) (gx#stx-e - _hd121002121039_)))) - (let ((_hd121005121047_ + _hd121264121301_)))) + (let ((_hd121267121309_ (let () (declare (not safe)) - (##car _e121006121044_))) - (_tl121004121049_ + (##car _e121268121306_))) + (_tl121266121311_ (let () (declare (not safe)) - (##cdr _e121006121044_)))) + (##cdr _e121268121306_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121005121047_)) - (let ((_e121009121052_ + _hd121267121309_)) + (let ((_e121271121314_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd121005121047_)))) - (let ((_hd121008121055_ + (gx#stx-e _hd121267121309_)))) + (let ((_hd121270121317_ (let () (declare (not safe)) - (##car _e121009121052_))) - (_tl121007121057_ + (##car _e121271121314_))) + (_tl121269121319_ (let () (declare (not safe)) - (##cdr _e121009121052_)))) + (##cdr _e121271121314_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121008121055_)) - (let ((_e121012121060_ + (gx#stx-pair? _hd121270121317_)) + (let ((_e121274121322_ (let () (declare (not safe)) - (gx#stx-e _hd121008121055_)))) - (let ((_hd121011121063_ + (gx#stx-e _hd121270121317_)))) + (let ((_hd121273121325_ (let () (declare (not safe)) - (##car _e121012121060_))) - (_tl121010121065_ + (##car _e121274121322_))) + (_tl121272121327_ (let () (declare (not safe)) - (##cdr _e121012121060_)))) + (##cdr _e121274121322_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121010121065_)) + (gx#stx-null? _tl121272121327_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121007121057_)) - (let ((_e121015121068_ + (gx#stx-pair? _tl121269121319_)) + (let ((_e121277121330_ (let () (declare (not safe)) - (gx#stx-e _tl121007121057_)))) - (let ((_hd121014121071_ + (gx#stx-e _tl121269121319_)))) + (let ((_hd121276121333_ (let () (declare (not safe)) - (##car _e121015121068_))) - (_tl121013121073_ + (##car _e121277121330_))) + (_tl121275121335_ (let () (declare (not safe)) - (##cdr _e121015121068_)))) + (##cdr _e121277121330_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121013121073_)) + _tl121275121335_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121004121049_)) + _tl121266121311_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121001121041_)) - (let ((_e121018121076_ + _tl121263121303_)) + (let ((_e121280121338_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl121001121041_)))) - (let ((_hd121017121079_ - (let () (declare (not safe)) (##car _e121018121076_))) - (_tl121016121081_ - (let () (declare (not safe)) (##cdr _e121018121076_)))) + (gx#stx-e _tl121263121303_)))) + (let ((_hd121279121341_ + (let () (declare (not safe)) (##car _e121280121338_))) + (_tl121278121343_ + (let () (declare (not safe)) (##cdr _e121280121338_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121016121081_)) - ((lambda (_L121084_ _L121085_ _L121086_) - (let* ((_lambda-id121110_ - (let ((__tmp129002 + (gx#stx-null? _tl121278121343_)) + ((lambda (_L121346_ _L121347_ _L121348_) + (let* ((_lambda-id121372_ + (let ((__tmp129264 (let () (declare (not safe)) - (gx#stx-e _L120977_))) - (__tmp129000 - (let ((__tmp129001 + (gx#stx-e _L121239_))) + (__tmp129262 + (let ((__tmp129263 (let () (declare (not safe)) - (gx#stx-e _L121086_)))) + (gx#stx-e _L121348_)))) (declare (not safe)) - (_opt-lambda-dispatch-name120542_ - __tmp129001)))) + (_opt-lambda-dispatch-name120804_ + __tmp129263)))) (declare (not safe)) (make-symbol__1 - __tmp129002 + __tmp129264 '"__" - __tmp129000))) - (_lambda-id121112_ - (let ((__tmp129003 + __tmp129262))) + (_lambda-id121374_ + (let ((__tmp129265 (let () (declare (not safe)) - (gx#stx-source _stx120539_)))) + (gx#stx-source _stx120801_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id121110_ - __tmp129003))) - (_g129004_ + _lambda-id121372_ + __tmp129265))) + (_g129266_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id121112_))) - (_new-case-lambda-expr121115_ + _lambda-id121374_))) + (_new-case-lambda-expr121377_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121084_ - _L121086_ - _lambda-id121112_)))) - (let ((__tmp129006 + _L121346_ + _L121348_ + _lambda-id121374_)))) + (let ((__tmp129268 (let () (declare (not safe)) - (gxc#identifier-symbol _L120977_))) - (__tmp129005 + (gxc#identifier-symbol _L121239_))) + (__tmp129267 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id121112_)))) + _lambda-id121374_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129006 + __tmp129268 '" => " - __tmp129005)) - (let ((__tmp129007 - (let ((__tmp129008 - (let ((__tmp129016 - (let ((__tmp129017 - (let ((__tmp129018 - (let ((__tmp129021 + __tmp129267)) + (let ((__tmp129269 + (let ((__tmp129270 + (let ((__tmp129278 + (let ((__tmp129279 + (let ((__tmp129280 + (let ((__tmp129283 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id121112_ '()))) - (__tmp129019 - (let ((__tmp129020 + (cons _lambda-id121374_ '()))) + (__tmp129281 + (let ((__tmp129282 (let () (declare (not safe)) - (gxc#compile-e__0 _L121085_)))) + (gxc#compile-e__0 _L121347_)))) (declare (not safe)) - (cons __tmp129020 '())))) + (cons __tmp129282 '())))) (declare (not safe)) - (cons __tmp129021 __tmp129019)))) + (cons __tmp129283 __tmp129281)))) (declare (not safe)) - (cons '%#define-values __tmp129018)))) + (cons '%#define-values __tmp129280)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129017 - _stx120539_))) - (__tmp129009 - (let ((__tmp129010 - (let ((__tmp129011 - (let ((__tmp129012 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129013 - (let ((__tmp129015 + __tmp129279 + _stx120801_))) + (__tmp129271 + (let ((__tmp129272 + (let ((__tmp129273 + (let ((__tmp129274 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129275 + (let ((__tmp129277 (let () (declare (not safe)) - (cons _L120977_ '()))) - (__tmp129014 + (cons _L121239_ '()))) + (__tmp129276 (let () (declare (not safe)) - (cons _new-case-lambda-expr121115_ + (cons _new-case-lambda-expr121377_ '())))) (declare (not safe)) - (cons __tmp129015 __tmp129014)))) + (cons __tmp129277 __tmp129276)))) (declare (not safe)) - (cons '%#define-values __tmp129013)))) + (cons '%#define-values __tmp129275)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129012 _stx120539_)))) + (gxc#xform-wrap-source __tmp129274 _stx120801_)))) (declare (not safe)) - (gxc#lift-top-lambda-define-values% __tmp129011)))) + (gxc#lift-top-lambda-define-values% __tmp129273)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129010 '())))) + (cons __tmp129272 '())))) (declare (not safe)) - (cons __tmp129016 __tmp129009)))) + (cons __tmp129278 __tmp129271)))) (declare (not safe)) - (cons '%#begin __tmp129008)))) + (cons '%#begin __tmp129270)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129007 - _stx120539_)))) - _hd121017121079_ - _hd121014121071_ - _hd121011121063_) + __tmp129269 + _stx120801_)))) + _hd121279121341_ + _hd121276121333_ + _hd121273121325_) (let () (declare (not safe)) - (_g120993121023_ _g120994121026_))))) - (let () (declare (not safe)) (_g120993121023_ _g120994121026_))) + (_g121255121285_ _g121256121288_))))) + (let () (declare (not safe)) (_g121255121285_ _g121256121288_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120993121023_ - _g120994121026_))) + (_g121255121285_ + _g121256121288_))) (let () (declare (not safe)) - (_g120993121023_ - _g120994121026_))))) + (_g121255121285_ + _g121256121288_))))) (let () (declare (not safe)) - (_g120993121023_ _g120994121026_))) + (_g121255121285_ _g121256121288_))) (let () (declare (not safe)) - (_g120993121023_ _g120994121026_))))) + (_g121255121285_ _g121256121288_))))) (let () (declare (not safe)) - (_g120993121023_ _g120994121026_))))) + (_g121255121285_ _g121256121288_))))) (let () (declare (not safe)) - (_g120993121023_ _g120994121026_))))) + (_g121255121285_ _g121256121288_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120993121023_ - _g120994121026_))))) + (_g121255121285_ + _g121256121288_))))) (let () (declare (not safe)) - (_g120993121023_ - _g120994121026_))))) + (_g121255121285_ + _g121256121288_))))) (let () (declare (not safe)) - (_g120993121023_ _g120994121026_)))))) + (_g121255121285_ _g121256121288_)))))) (declare (not safe)) - (_g120992121118_ _L120976_)))) - (___kont128335128336_ - (lambda (_L120690_ _L120691_) - (let* ((_g120707120760_ - (lambda (_g120708120757_) + (_g121254121380_ _L121238_)))) + (___kont128597128598_ + (lambda (_L120952_ _L120953_) + (let* ((_g120969121022_ + (lambda (_g120970121019_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120708120757_)))) - (_g120706120936_ - (lambda (_g120708120763_) + _g120970121019_)))) + (_g120968121198_ + (lambda (_g120970121025_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120708120763_)) - (let ((_e120716120765_ + (gx#stx-pair? _g120970121025_)) + (let ((_e120978121027_ (let () (declare (not safe)) - (gx#stx-e _g120708120763_)))) - (let ((_hd120715120768_ + (gx#stx-e _g120970121025_)))) + (let ((_hd120977121030_ (let () (declare (not safe)) - (##car _e120716120765_))) - (_tl120714120770_ + (##car _e120978121027_))) + (_tl120976121032_ (let () (declare (not safe)) - (##cdr _e120716120765_)))) + (##cdr _e120978121027_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120714120770_)) - (let ((_e120719120773_ + (gx#stx-pair? _tl120976121032_)) + (let ((_e120981121035_ (let () (declare (not safe)) (gx#stx-e - _tl120714120770_)))) - (let ((_hd120718120776_ + _tl120976121032_)))) + (let ((_hd120980121038_ (let () (declare (not safe)) - (##car _e120719120773_))) - (_tl120717120778_ + (##car _e120981121035_))) + (_tl120979121040_ (let () (declare (not safe)) - (##cdr _e120719120773_)))) + (##cdr _e120981121035_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120718120776_)) - (let ((_e120722120781_ + _hd120980121038_)) + (let ((_e120984121043_ (let () (declare (not safe)) (gx#stx-e - _hd120718120776_)))) - (let ((_hd120721120784_ + _hd120980121038_)))) + (let ((_hd120983121046_ (let () (declare (not safe)) - (##car _e120722120781_))) - (_tl120720120786_ + (##car _e120984121043_))) + (_tl120982121048_ (let () (declare (not safe)) - (##cdr _e120722120781_)))) + (##cdr _e120984121043_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120721120784_)) - (let ((_e120725120789_ + _hd120983121046_)) + (let ((_e120987121051_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd120721120784_)))) - (let ((_hd120724120792_ + (gx#stx-e _hd120983121046_)))) + (let ((_hd120986121054_ (let () (declare (not safe)) - (##car _e120725120789_))) - (_tl120723120794_ + (##car _e120987121051_))) + (_tl120985121056_ (let () (declare (not safe)) - (##cdr _e120725120789_)))) + (##cdr _e120987121051_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120724120792_)) - (let ((_e120728120797_ + (gx#stx-pair? _hd120986121054_)) + (let ((_e120990121059_ (let () (declare (not safe)) - (gx#stx-e _hd120724120792_)))) - (let ((_hd120727120800_ + (gx#stx-e _hd120986121054_)))) + (let ((_hd120989121062_ (let () (declare (not safe)) - (##car _e120728120797_))) - (_tl120726120802_ + (##car _e120990121059_))) + (_tl120988121064_ (let () (declare (not safe)) - (##cdr _e120728120797_)))) + (##cdr _e120990121059_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120726120802_)) + (gx#stx-null? _tl120988121064_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120723120794_)) - (let ((_e120731120805_ + (gx#stx-pair? _tl120985121056_)) + (let ((_e120993121067_ (let () (declare (not safe)) - (gx#stx-e _tl120723120794_)))) - (let ((_hd120730120808_ + (gx#stx-e _tl120985121056_)))) + (let ((_hd120992121070_ (let () (declare (not safe)) - (##car _e120731120805_))) - (_tl120729120810_ + (##car _e120993121067_))) + (_tl120991121072_ (let () (declare (not safe)) - (##cdr _e120731120805_)))) + (##cdr _e120993121067_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120730120808_)) - (let ((_e120734120813_ + _hd120992121070_)) + (let ((_e120996121075_ (let () (declare (not safe)) (gx#stx-e - _hd120730120808_)))) - (let ((_hd120733120816_ + _hd120992121070_)))) + (let ((_hd120995121078_ (let () (declare (not safe)) - (##car _e120734120813_))) - (_tl120732120818_ + (##car _e120996121075_))) + (_tl120994121080_ (let () (declare (not safe)) - (##cdr _e120734120813_)))) + (##cdr _e120996121075_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120732120818_)) - (let ((_e120737120821_ + _tl120994121080_)) + (let ((_e120999121083_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120732120818_)))) - (let ((_hd120736120824_ - (let () (declare (not safe)) (##car _e120737120821_))) - (_tl120735120826_ - (let () (declare (not safe)) (##cdr _e120737120821_)))) + (gx#stx-e _tl120994121080_)))) + (let ((_hd120998121086_ + (let () (declare (not safe)) (##car _e120999121083_))) + (_tl120997121088_ + (let () (declare (not safe)) (##cdr _e120999121083_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120736120824_)) - (let ((_e120740120829_ + (gx#stx-pair? _hd120998121086_)) + (let ((_e121002121091_ (let () (declare (not safe)) - (gx#stx-e _hd120736120824_)))) - (let ((_hd120739120832_ + (gx#stx-e _hd120998121086_)))) + (let ((_hd121001121094_ (let () (declare (not safe)) - (##car _e120740120829_))) - (_tl120738120834_ + (##car _e121002121091_))) + (_tl121000121096_ (let () (declare (not safe)) - (##cdr _e120740120829_)))) + (##cdr _e121002121091_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120739120832_)) - (let ((_e120743120837_ + (gx#stx-pair? _hd121001121094_)) + (let ((_e121005121099_ (let () (declare (not safe)) - (gx#stx-e _hd120739120832_)))) - (let ((_hd120742120840_ + (gx#stx-e _hd121001121094_)))) + (let ((_hd121004121102_ (let () (declare (not safe)) - (##car _e120743120837_))) - (_tl120741120842_ + (##car _e121005121099_))) + (_tl121003121104_ (let () (declare (not safe)) - (##cdr _e120743120837_)))) + (##cdr _e121005121099_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120742120840_)) - (let ((_e120746120845_ + (gx#stx-pair? _hd121004121102_)) + (let ((_e121008121107_ (let () (declare (not safe)) - (gx#stx-e _hd120742120840_)))) - (let ((_hd120745120848_ + (gx#stx-e _hd121004121102_)))) + (let ((_hd121007121110_ (let () (declare (not safe)) - (##car _e120746120845_))) - (_tl120744120850_ + (##car _e121008121107_))) + (_tl121006121112_ (let () (declare (not safe)) - (##cdr _e120746120845_)))) + (##cdr _e121008121107_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120744120850_)) + _tl121006121112_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120741120842_)) - (let ((_e120749120853_ + _tl121003121104_)) + (let ((_e121011121115_ (let () (declare (not safe)) (gx#stx-e - _tl120741120842_)))) - (let ((_hd120748120856_ + _tl121003121104_)))) + (let ((_hd121010121118_ (let () (declare (not safe)) - (##car _e120749120853_))) - (_tl120747120858_ + (##car _e121011121115_))) + (_tl121009121120_ (let () (declare (not safe)) - (##cdr _e120749120853_)))) + (##cdr _e121011121115_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120747120858_)) + _tl121009121120_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl120738120834_)) + (gx#stx-null? _tl121000121096_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120735120826_)) - (let ((_e120752120861_ + (gx#stx-pair? _tl120997121088_)) + (let ((_e121014121123_ (let () (declare (not safe)) - (gx#stx-e _tl120735120826_)))) - (let ((_hd120751120864_ + (gx#stx-e _tl120997121088_)))) + (let ((_hd121013121126_ (let () (declare (not safe)) - (##car _e120752120861_))) - (_tl120750120866_ + (##car _e121014121123_))) + (_tl121012121128_ (let () (declare (not safe)) - (##cdr _e120752120861_)))) + (##cdr _e121014121123_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120750120866_)) + (gx#stx-null? _tl121012121128_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120729120810_)) + (gx#stx-null? _tl120991121072_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120720120786_)) + (gx#stx-null? _tl120982121048_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120717120778_)) - (let ((_e120755120869_ + _tl120979121040_)) + (let ((_e121017121131_ (let () (declare (not safe)) (gx#stx-e - _tl120717120778_)))) - (let ((_hd120754120872_ + _tl120979121040_)))) + (let ((_hd121016121134_ (let () (declare (not safe)) - (##car _e120755120869_))) - (_tl120753120874_ + (##car _e121017121131_))) + (_tl121015121136_ (let () (declare (not safe)) - (##cdr _e120755120869_)))) + (##cdr _e121017121131_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120753120874_)) - ((lambda (_L120877_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L120878_ - _L120879_ - _L120880_ - _L120881_) - (let* ((_get-kws-id120921_ - (let ((__tmp129024 + _tl121015121136_)) + ((lambda (_L121139_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L121140_ + _L121141_ + _L121142_ + _L121143_) + (let* ((_get-kws-id121183_ + (let ((__tmp129286 (let () (declare (not safe)) - (gx#stx-e _L120691_))) - (__tmp129022 - (let ((__tmp129023 + (gx#stx-e _L120953_))) + (__tmp129284 + (let ((__tmp129285 (let () (declare (not safe)) - (gx#stx-e _L120881_)))) + (gx#stx-e _L121143_)))) (declare (not safe)) - (_kw-lambda-dispatch-name120543_ - __tmp129023 + (_kw-lambda-dispatch-name120805_ + __tmp129285 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp129024 '"__" __tmp129022))) - (_get-kws-id120923_ - (let ((__tmp129025 + (make-symbol__1 __tmp129286 '"__" __tmp129284))) + (_get-kws-id121185_ + (let ((__tmp129287 (let () (declare (not safe)) - (gx#stx-source _stx120539_)))) + (gx#stx-source _stx120801_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id120921_ - __tmp129025))) - (_main-id120925_ - (let ((__tmp129028 + _get-kws-id121183_ + __tmp129287))) + (_main-id121187_ + (let ((__tmp129290 (let () (declare (not safe)) - (gx#stx-e _L120691_))) - (__tmp129026 - (let ((__tmp129027 + (gx#stx-e _L120953_))) + (__tmp129288 + (let ((__tmp129289 (let () (declare (not safe)) - (gx#stx-e _L120880_)))) + (gx#stx-e _L121142_)))) (declare (not safe)) - (_kw-lambda-dispatch-name120543_ - __tmp129027 + (_kw-lambda-dispatch-name120805_ + __tmp129289 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp129028 '"__" __tmp129026))) - (_main-id120927_ - (let ((__tmp129029 + (make-symbol__1 __tmp129290 '"__" __tmp129288))) + (_main-id121189_ + (let ((__tmp129291 (let () (declare (not safe)) - (gx#stx-source _stx120539_)))) + (gx#stx-source _stx120801_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id120925_ - __tmp129029))) - (_g129030_ + _main-id121187_ + __tmp129291))) + (_g129292_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id120923_))) - (_g129031_ + (gx#core-bind-runtime!__0 _get-kws-id121185_))) + (_g129293_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id120927_))) - (_new-kw-dispatch120931_ + (gx#core-bind-runtime!__0 _main-id121189_))) + (_new-kw-dispatch121193_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120877_ - _L120881_ - _get-kws-id120923_))) - (_new-get-kws120933_ + _L121139_ + _L121143_ + _get-kws-id121185_))) + (_new-get-kws121195_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120878_ - _L120880_ - _main-id120927_)))) - (let ((__tmp129034 + _L121140_ + _L121142_ + _main-id121189_)))) + (let ((__tmp129296 (let () (declare (not safe)) - (gxc#identifier-symbol _L120691_))) - (__tmp129033 + (gxc#identifier-symbol _L120953_))) + (__tmp129295 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id120923_))) - (__tmp129032 + (gxc#identifier-symbol _get-kws-id121185_))) + (__tmp129294 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id120927_)))) + (gxc#identifier-symbol _main-id121189_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129034 + __tmp129296 '" => " - __tmp129033 + __tmp129295 '" => " - __tmp129032)) - (let ((__tmp129035 - (let ((__tmp129036 - (let ((__tmp129049 - (let ((__tmp129050 - (let ((__tmp129051 - (let ((__tmp129052 - (let ((__tmp129054 + __tmp129294)) + (let ((__tmp129297 + (let ((__tmp129298 + (let ((__tmp129311 + (let ((__tmp129312 + (let ((__tmp129313 + (let ((__tmp129314 + (let ((__tmp129316 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id120927_ '()))) - (__tmp129053 + (cons _main-id121189_ '()))) + (__tmp129315 (let () (declare (not safe)) - (cons _L120879_ '())))) + (cons _L121141_ '())))) (declare (not safe)) - (cons __tmp129054 __tmp129053)))) + (cons __tmp129316 __tmp129315)))) (declare (not safe)) - (cons '%#define-values __tmp129052)))) + (cons '%#define-values __tmp129314)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129051 - _stx120539_)))) + __tmp129313 + _stx120801_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - __tmp129050))) - (__tmp129037 - (let ((__tmp129044 - (let ((__tmp129045 - (let ((__tmp129046 - (let ((__tmp129048 + __tmp129312))) + (__tmp129299 + (let ((__tmp129306 + (let ((__tmp129307 + (let ((__tmp129308 + (let ((__tmp129310 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id120923_ '()))) - (__tmp129047 + (cons _get-kws-id121185_ '()))) + (__tmp129309 (let () (declare (not safe)) - (cons _new-get-kws120933_ '())))) + (cons _new-get-kws121195_ '())))) (declare (not safe)) - (cons __tmp129048 __tmp129047)))) + (cons __tmp129310 __tmp129309)))) (declare (not safe)) - (cons '%#define-values __tmp129046)))) + (cons '%#define-values __tmp129308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129045 - _stx120539_))) - (__tmp129038 - (let ((__tmp129039 - (let ((__tmp129040 - (let ((__tmp129041 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129043 + __tmp129307 + _stx120801_))) + (__tmp129300 + (let ((__tmp129301 + (let ((__tmp129302 + (let ((__tmp129303 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129305 (let () (declare (not safe)) - (cons _L120691_ '()))) - (__tmp129042 + (cons _L120953_ '()))) + (__tmp129304 (let () (declare (not safe)) - (cons _new-kw-dispatch120931_ '())))) + (cons _new-kw-dispatch121193_ '())))) (declare (not safe)) - (cons __tmp129043 __tmp129042)))) + (cons __tmp129305 __tmp129304)))) (declare (not safe)) - (cons '%#define-values __tmp129041)))) + (cons '%#define-values __tmp129303)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129040 _stx120539_)))) + (gxc#xform-wrap-source __tmp129302 _stx120801_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129039 '())))) + (cons __tmp129301 '())))) (declare (not safe)) - (cons __tmp129044 __tmp129038)))) + (cons __tmp129306 __tmp129300)))) (declare (not safe)) - (cons __tmp129049 __tmp129037)))) + (cons __tmp129311 __tmp129299)))) (declare (not safe)) - (cons '%#begin __tmp129036)))) + (cons '%#begin __tmp129298)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129035 _stx120539_)))) - _hd120754120872_ - _hd120751120864_ - _hd120748120856_ - _hd120745120848_ - _hd120727120800_) + (gxc#xform-wrap-source __tmp129297 _stx120801_)))) + _hd121016121134_ + _hd121013121126_ + _hd121010121118_ + _hd121007121110_ + _hd120989121062_) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120707120760_ - _g120708120763_))) + (_g120969121022_ + _g120970121025_))) (let () (declare (not safe)) - (_g120707120760_ - _g120708120763_))) + (_g120969121022_ + _g120970121025_))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))) + (_g120969121022_ _g120970121025_))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))) + (_g120969121022_ _g120970121025_))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))) + (_g120969121022_ _g120970121025_))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120707120760_ - _g120708120763_))) + (_g120969121022_ + _g120970121025_))) (let () (declare (not safe)) - (_g120707120760_ - _g120708120763_))))) + (_g120969121022_ + _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120707120760_ - _g120708120763_))))) + (_g120969121022_ + _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))) + (_g120969121022_ _g120970121025_))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_))))) + (_g120969121022_ _g120970121025_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120707120760_ - _g120708120763_))))) + (_g120969121022_ + _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ - _g120708120763_))))) + (_g120969121022_ + _g120970121025_))))) (let () (declare (not safe)) - (_g120707120760_ _g120708120763_)))))) + (_g120969121022_ _g120970121025_)))))) (declare (not safe)) - (_g120706120936_ _L120690_)))) - (___kont128337128338_ - (lambda (_L120636_ _L120637_) - (let ((__tmp129055 - (let ((__tmp129056 - (let ((__tmp129057 - (let ((__tmp129058 + (_g120968121198_ _L120952_)))) + (___kont128599128600_ + (lambda (_L120898_ _L120899_) + (let ((__tmp129317 + (let ((__tmp129318 + (let ((__tmp129319 + (let ((__tmp129320 (let () (declare (not safe)) (gxc#compile-e__0 - _L120636_)))) + _L120898_)))) (declare (not safe)) - (cons __tmp129058 '())))) + (cons __tmp129320 '())))) (declare (not safe)) - (cons _L120637_ __tmp129057)))) + (cons _L120899_ __tmp129319)))) (declare (not safe)) - (cons '%#define-values __tmp129056)))) + (cons '%#define-values __tmp129318)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129055 _stx120539_))))) - (let* ((___match128422128423_ - (lambda (_e120582120658_ - _hd120581120661_ - _tl120580120663_ - _e120585120666_ - _hd120584120669_ - _tl120583120671_ - _e120588120674_ - _hd120587120677_ - _tl120586120679_ - _e120591120682_ - _hd120590120685_ - _tl120589120687_) - (let ((_L120690_ _hd120590120685_) - (_L120691_ _hd120587120677_)) + (gxc#xform-wrap-source __tmp129317 _stx120801_))))) + (let* ((___match128684128685_ + (lambda (_e120844120920_ + _hd120843120923_ + _tl120842120925_ + _e120847120928_ + _hd120846120931_ + _tl120845120933_ + _e120850120936_ + _hd120849120939_ + _tl120848120941_ + _e120853120944_ + _hd120852120947_ + _tl120851120949_) + (let ((_L120952_ _hd120852120947_) + (_L120953_ _hd120849120939_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L120691_)) + (gx#identifier? _L120953_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L120690_))) - (___kont128335128336_ _L120690_ _L120691_) - (___kont128337128338_ - _hd120590120685_ - _hd120584120669_))))) - (___match128394128395_ - (lambda (_e120568120944_ - _hd120567120947_ - _tl120566120949_ - _e120571120952_ - _hd120570120955_ - _tl120569120957_ - _e120574120960_ - _hd120573120963_ - _tl120572120965_ - _e120577120968_ - _hd120576120971_ - _tl120575120973_) - (let ((_L120976_ _hd120576120971_) - (_L120977_ _hd120573120963_)) + (gxc#kw-lambda-expr? _L120952_))) + (___kont128597128598_ _L120952_ _L120953_) + (___kont128599128600_ + _hd120852120947_ + _hd120846120931_))))) + (___match128656128657_ + (lambda (_e120830121206_ + _hd120829121209_ + _tl120828121211_ + _e120833121214_ + _hd120832121217_ + _tl120831121219_ + _e120836121222_ + _hd120835121225_ + _tl120834121227_ + _e120839121230_ + _hd120838121233_ + _tl120837121235_) + (let ((_L121238_ _hd120838121233_) + (_L121239_ _hd120835121225_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L120977_)) + (gx#identifier? _L121239_)) (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L120976_))) - (___kont128333128334_ _L120976_ _L120977_) - (___match128422128423_ - _e120568120944_ - _hd120567120947_ - _tl120566120949_ - _e120571120952_ - _hd120570120955_ - _tl120569120957_ - _e120574120960_ - _hd120573120963_ - _tl120572120965_ - _e120577120968_ - _hd120576120971_ - _tl120575120973_))))) - (___match128366128367_ - (lambda (_e120554121126_ - _hd120553121129_ - _tl120552121131_ - _e120557121134_ - _hd120556121137_ - _tl120555121139_ - _e120560121142_ - _hd120559121145_ - _tl120558121147_ - _e120563121150_ - _hd120562121153_ - _tl120561121155_) - (let ((_L121158_ _hd120562121153_) - (_L121159_ _hd120559121145_)) + (gxc#opt-lambda-expr? _L121238_))) + (___kont128595128596_ _L121238_ _L121239_) + (___match128684128685_ + _e120830121206_ + _hd120829121209_ + _tl120828121211_ + _e120833121214_ + _hd120832121217_ + _tl120831121219_ + _e120836121222_ + _hd120835121225_ + _tl120834121227_ + _e120839121230_ + _hd120838121233_ + _tl120837121235_))))) + (___match128628128629_ + (lambda (_e120816121388_ + _hd120815121391_ + _tl120814121393_ + _e120819121396_ + _hd120818121399_ + _tl120817121401_ + _e120822121404_ + _hd120821121407_ + _tl120820121409_ + _e120825121412_ + _hd120824121415_ + _tl120823121417_) + (let ((_L121420_ _hd120824121415_) + (_L121421_ _hd120821121407_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L121159_)) + (gx#identifier? _L121421_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L121158_))) - (___kont128331128332_ _L121158_ _L121159_) - (___match128394128395_ - _e120554121126_ - _hd120553121129_ - _tl120552121131_ - _e120557121134_ - _hd120556121137_ - _tl120555121139_ - _e120560121142_ - _hd120559121145_ - _tl120558121147_ - _e120563121150_ - _hd120562121153_ - _tl120561121155_)))))) + (gxc#case-lambda-expr? _L121420_))) + (___kont128593128594_ _L121420_ _L121421_) + (___match128656128657_ + _e120816121388_ + _hd120815121391_ + _tl120814121393_ + _e120819121396_ + _hd120818121399_ + _tl120817121401_ + _e120822121404_ + _hd120821121407_ + _tl120820121409_ + _e120825121412_ + _hd120824121415_ + _tl120823121417_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128329128330_)) - (let ((_e120554121126_ + (gx#stx-pair? ___stx128591128592_)) + (let ((_e120816121388_ (let () (declare (not safe)) - (gx#stx-e ___stx128329128330_)))) - (let ((_tl120552121131_ + (gx#stx-e ___stx128591128592_)))) + (let ((_tl120814121393_ (let () (declare (not safe)) - (##cdr _e120554121126_))) - (_hd120553121129_ + (##cdr _e120816121388_))) + (_hd120815121391_ (let () (declare (not safe)) - (##car _e120554121126_)))) + (##car _e120816121388_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120552121131_)) - (let ((_e120557121134_ + (gx#stx-pair? _tl120814121393_)) + (let ((_e120819121396_ (let () (declare (not safe)) - (gx#stx-e _tl120552121131_)))) - (let ((_tl120555121139_ + (gx#stx-e _tl120814121393_)))) + (let ((_tl120817121401_ (let () (declare (not safe)) - (##cdr _e120557121134_))) - (_hd120556121137_ + (##cdr _e120819121396_))) + (_hd120818121399_ (let () (declare (not safe)) - (##car _e120557121134_)))) + (##car _e120819121396_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120556121137_)) - (let ((_e120560121142_ + (gx#stx-pair? _hd120818121399_)) + (let ((_e120822121404_ (let () (declare (not safe)) - (gx#stx-e _hd120556121137_)))) - (let ((_tl120558121147_ + (gx#stx-e _hd120818121399_)))) + (let ((_tl120820121409_ (let () (declare (not safe)) - (##cdr _e120560121142_))) - (_hd120559121145_ + (##cdr _e120822121404_))) + (_hd120821121407_ (let () (declare (not safe)) - (##car _e120560121142_)))) + (##car _e120822121404_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120558121147_)) + (gx#stx-null? _tl120820121409_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120555121139_)) - (let ((_e120563121150_ + _tl120817121401_)) + (let ((_e120825121412_ (let () (declare (not safe)) (gx#stx-e - _tl120555121139_)))) - (let ((_tl120561121155_ + _tl120817121401_)))) + (let ((_tl120823121417_ (let () (declare (not safe)) - (##cdr _e120563121150_))) - (_hd120562121153_ + (##cdr _e120825121412_))) + (_hd120824121415_ (let () (declare (not safe)) - (##car _e120563121150_)))) + (##car _e120825121412_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120561121155_)) - (___match128366128367_ - _e120554121126_ - _hd120553121129_ - _tl120552121131_ - _e120557121134_ - _hd120556121137_ - _tl120555121139_ - _e120560121142_ - _hd120559121145_ - _tl120558121147_ - _e120563121150_ - _hd120562121153_ - _tl120561121155_) + _tl120823121417_)) + (___match128628128629_ + _e120816121388_ + _hd120815121391_ + _tl120814121393_ + _e120819121396_ + _hd120818121399_ + _tl120817121401_ + _e120822121404_ + _hd120821121407_ + _tl120820121409_ + _e120825121412_ + _hd120824121415_ + _tl120823121417_) (let () (declare (not safe)) - (_g120548120607_))))) + (_g120810120869_))))) (let () (declare (not safe)) - (_g120548120607_))) + (_g120810120869_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120555121139_)) - (let ((_e120602120628_ + _tl120817121401_)) + (let ((_e120864120890_ (let () (declare (not safe)) (gx#stx-e - _tl120555121139_)))) - (let ((_tl120600120633_ + _tl120817121401_)))) + (let ((_tl120862120895_ (let () (declare (not safe)) - (##cdr _e120602120628_))) - (_hd120601120631_ + (##cdr _e120864120890_))) + (_hd120863120893_ (let () (declare (not safe)) - (##car _e120602120628_)))) + (##car _e120864120890_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120600120633_)) - (___kont128337128338_ - _hd120601120631_ - _hd120556121137_) + _tl120862120895_)) + (___kont128599128600_ + _hd120863120893_ + _hd120818121399_) (let () (declare (not safe)) - (_g120548120607_))))) + (_g120810120869_))))) (let () (declare (not safe)) - (_g120548120607_)))))) + (_g120810120869_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120555121139_)) - (let ((_e120602120628_ + (gx#stx-pair? _tl120817121401_)) + (let ((_e120864120890_ (let () (declare (not safe)) - (gx#stx-e _tl120555121139_)))) - (let ((_tl120600120633_ + (gx#stx-e _tl120817121401_)))) + (let ((_tl120862120895_ (let () (declare (not safe)) - (##cdr _e120602120628_))) - (_hd120601120631_ + (##cdr _e120864120890_))) + (_hd120863120893_ (let () (declare (not safe)) - (##car _e120602120628_)))) + (##car _e120864120890_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120600120633_)) - (___kont128337128338_ - _hd120601120631_ - _hd120556121137_) + _tl120862120895_)) + (___kont128599128600_ + _hd120863120893_ + _hd120818121399_) (let () (declare (not safe)) - (_g120548120607_))))) + (_g120810120869_))))) (let () (declare (not safe)) - (_g120548120607_)))))) - (let () (declare (not safe)) (_g120548120607_))))) - (let () (declare (not safe)) (_g120548120607_))))))))) + (_g120810120869_)))))) + (let () (declare (not safe)) (_g120810120869_))))) + (let () (declare (not safe)) (_g120810120869_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_stx119471_) - (letrec* ((_bind-e__126725126726_ - (lambda (_id120523_ _expr120524_ _compile?120525_) - (let ((__tmp129061 + (lambda (_stx119733_) + (letrec* ((_bind-e__126987126988_ + (lambda (_id120785_ _expr120786_ _compile?120787_) + (let ((__tmp129323 (let () (declare (not safe)) - (cons _id120523_ '()))) - (__tmp129059 - (let ((__tmp129060 - (if _compile?120525_ + (cons _id120785_ '()))) + (__tmp129321 + (let ((__tmp129322 + (if _compile?120787_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr120524_)) - _expr120524_))) + (gxc#compile-e__0 _expr120786_)) + _expr120786_))) (declare (not safe)) - (cons __tmp129060 '())))) + (cons __tmp129322 '())))) (declare (not safe)) - (cons __tmp129061 __tmp129059)))) - (_bind-e__0__126727126728_ - (lambda (_id120530_ _expr120531_) - (let ((_compile?120533_ '#t)) + (cons __tmp129323 __tmp129321)))) + (_bind-e__0__126989126990_ + (lambda (_id120792_ _expr120793_) + (let ((_compile?120795_ '#t)) (declare (not safe)) - (_bind-e__126725126726_ - _id120530_ - _expr120531_ - _compile?120533_)))) - (_bind-e119473_ - (lambda _g129063_ - (let ((_g129062_ + (_bind-e__126987126988_ + _id120792_ + _expr120793_ + _compile?120795_)))) + (_bind-e119735_ + (lambda _g129325_ + (let ((_g129324_ (let () (declare (not safe)) - (##length _g129063_)))) - (cond ((let () (declare (not safe)) (##fx= _g129062_ 2)) - (apply (lambda (_id120530_ _expr120531_) + (##length _g129325_)))) + (cond ((let () (declare (not safe)) (##fx= _g129324_ 2)) + (apply (lambda (_id120792_ _expr120793_) (let () (declare (not safe)) - (_bind-e__0__126727126728_ - _id120530_ - _expr120531_))) - _g129063_)) - ((let () (declare (not safe)) (##fx= _g129062_ 3)) - (apply (lambda (_id120535_ - _expr120536_ - _compile?120537_) + (_bind-e__0__126989126990_ + _id120792_ + _expr120793_))) + _g129325_)) + ((let () (declare (not safe)) (##fx= _g129324_ 3)) + (apply (lambda (_id120797_ + _expr120798_ + _compile?120799_) (let () (declare (not safe)) - (_bind-e__126725126726_ - _id120535_ - _expr120536_ - _compile?120537_))) - _g129063_)) + (_bind-e__126987126988_ + _id120797_ + _expr120798_ + _compile?120799_))) + _g129325_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129063_)))))) - (_compile-bindings119474_ - (lambda (_bindings120107_) - (let _lp120109_ ((_rest120111_ _bindings120107_) - (_lift1120112_ '()) - (_lift2120113_ '()) - (_bind120114_ '())) - (let* ((_rest120115120123_ _rest120111_) - (_else120117120131_ + _g129325_)))))) + (_compile-bindings119736_ + (lambda (_bindings120369_) + (let _lp120371_ ((_rest120373_ _bindings120369_) + (_lift1120374_ '()) + (_lift2120375_ '()) + (_bind120376_ '())) + (let* ((_rest120377120385_ _rest120373_) + (_else120379120393_ (lambda () - (values (reverse _lift1120112_) - (reverse _lift2120113_) - (reverse _bind120114_)))) - (_K120119120510_ - (lambda (_rest120134_ _hd120135_) - (let* ((___stx128465128466_ _hd120135_) - (_g120139120175_ + (values (reverse _lift1120374_) + (reverse _lift2120375_) + (reverse _bind120376_)))) + (_K120381120772_ + (lambda (_rest120396_ _hd120397_) + (let* ((___stx128727128728_ _hd120397_) + (_g120401120437_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128465128466_))))) - (let ((___kont128467128468_ - (lambda (_L120417_ _L120418_) - (let* ((___stx128445128446_ - _L120417_) - (_g120433120447_ + ___stx128727128728_))))) + (let ((___kont128729128730_ + (lambda (_L120679_ _L120680_) + (let* ((___stx128707128708_ + _L120679_) + (_g120695120709_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128445128446_))))) - (let ((___kont128447128448_ - (lambda (_L120495_) - (let ((__tmp129064 - (let ((__tmp129065 + ___stx128707128708_))))) + (let ((___kont128709128710_ + (lambda (_L120757_) + (let ((__tmp129326 + (let ((__tmp129327 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126725126726_ - _L120418_ - _L120417_ + (_bind-e__126987126988_ + _L120680_ + _L120679_ '#f)))) (declare (not safe)) - (cons __tmp129065 _bind120114_)))) + (cons __tmp129327 _bind120376_)))) (declare (not safe)) - (_lp120109_ - _rest120134_ - _lift1120112_ - _lift2120113_ - __tmp129064)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128449128450_ - (lambda (_L120460_) - (let ((_g129066_ + (_lp120371_ + _rest120396_ + _lift1120374_ + _lift2120375_ + __tmp129326)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128711128712_ + (lambda (_L120722_) + (let ((_g129328_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx119471_ - _L120418_ - _L120460_ + _stx119733_ + _L120680_ + _L120722_ '#t)))) (begin - (let ((_g129067_ + (let ((_g129329_ (let () (declare (not safe)) - (if (##values? _g129066_) - (##vector-length _g129066_) + (if (##values? _g129328_) + (##vector-length _g129328_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129067_ 3))) - (error "Context expects 3 values" _g129067_))) - (let ((_ids120470_ + (##fx= _g129329_ 3))) + (error "Context expects 3 values" _g129329_))) + (let ((_ids120732_ (let () (declare (not safe)) - (##vector-ref _g129066_ 0))) - (_impls120471_ + (##vector-ref _g129328_ 0))) + (_impls120733_ (let () (declare (not safe)) - (##vector-ref _g129066_ 1))) - (_clauses120472_ + (##vector-ref _g129328_ 1))) + (_clauses120734_ (let () (declare (not safe)) - (##vector-ref _g129066_ 2)))) - (let* ((_g129068_ - (for-each gx#core-bind-runtime! _ids120470_)) - (_xbind120475_ - (map _bind-e119473_ _ids120470_ _impls120471_)) - (_expr*120477_ - (let ((__tmp129070 + (##vector-ref _g129328_ 2)))) + (let* ((_g129330_ + (for-each gx#core-bind-runtime! _ids120732_)) + (_xbind120737_ + (map _bind-e119735_ _ids120732_ _impls120733_)) + (_expr*120739_ + (let ((__tmp129332 (let () (declare (not safe)) - (cons '%#case-lambda _clauses120472_))) - (__tmp129069 + (cons '%#case-lambda _clauses120734_))) + (__tmp129331 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12456,1584 +12456,1584 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129070 - __tmp129069))) - (_bind*120479_ + __tmp129332 + __tmp129331))) + (_bind*120741_ (let () (declare (not safe)) - (_bind-e__126725126726_ - _L120418_ - _expr*120477_ + (_bind-e__126987126988_ + _L120680_ + _expr*120739_ '#f)))) - (let ((__tmp129072 + (let ((__tmp129334 (let () (declare (not safe)) - (gxc#identifier-symbol _L120418_))) - (__tmp129071 - (map gxc#identifier-symbol _ids120470_))) + (gxc#identifier-symbol _L120680_))) + (__tmp129333 + (map gxc#identifier-symbol _ids120732_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp129072 + __tmp129334 '" => " - __tmp129071)) - (let ((__tmp129074 + __tmp129333)) + (let ((__tmp129336 (let () (declare (not safe)) - (foldl1 cons _lift2120113_ _xbind120475_))) - (__tmp129073 + (foldl1 cons _lift2120375_ _xbind120737_))) + (__tmp129335 (let () (declare (not safe)) - (cons _bind*120479_ _bind120114_)))) + (cons _bind*120741_ _bind120376_)))) (declare (not safe)) - (_lp120109_ - _rest120134_ - _lift1120112_ - __tmp129074 - __tmp129073))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match128456128457_ - (lambda (_e120438120487_ - _hd120437120490_ - _tl120436120492_) - (let ((_L120495_ - _tl120436120492_)) + (_lp120371_ + _rest120396_ + _lift1120374_ + __tmp129336 + __tmp129335))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match128718128719_ + (lambda (_e120700120749_ + _hd120699120752_ + _tl120698120754_) + (let ((_L120757_ + _tl120698120754_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L120495_)) - (___kont128447128448_ _L120495_) - (___kont128449128450_ _tl120436120492_)))))) + (andmap1 gxc#dispatch-lambda-form? _L120757_)) + (___kont128709128710_ _L120757_) + (___kont128711128712_ _tl120698120754_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128445128446_)) - (let ((_e120438120487_ + ___stx128707128708_)) + (let ((_e120700120749_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx128445128446_)))) - (let ((_tl120436120492_ - (let () (declare (not safe)) (##cdr _e120438120487_))) - (_hd120437120490_ - (let () (declare (not safe)) (##car _e120438120487_)))) - (___match128456128457_ - _e120438120487_ - _hd120437120490_ - _tl120436120492_))) - (let () (declare (not safe)) (_g120433120447_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128469128470_ - (lambda (_L120245_ _L120246_) - (let* ((_g120260120290_ - (lambda (_g120261120287_) + (gx#stx-e ___stx128707128708_)))) + (let ((_tl120698120754_ + (let () (declare (not safe)) (##cdr _e120700120749_))) + (_hd120699120752_ + (let () (declare (not safe)) (##car _e120700120749_)))) + (___match128718128719_ + _e120700120749_ + _hd120699120752_ + _tl120698120754_))) + (let () (declare (not safe)) (_g120695120709_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128731128732_ + (lambda (_L120507_ _L120508_) + (let* ((_g120522120552_ + (lambda (_g120523120549_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120261120287_)))) - (_g120259120385_ - (lambda (_g120261120293_) + _g120523120549_)))) + (_g120521120647_ + (lambda (_g120523120555_) (if (let () (declare (not safe)) (gx#stx-pair? - _g120261120293_)) - (let ((_e120267120295_ + _g120523120555_)) + (let ((_e120529120557_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g120261120293_)))) - (let ((_hd120266120298_ + (gx#stx-e _g120523120555_)))) + (let ((_hd120528120560_ (let () (declare (not safe)) - (##car _e120267120295_))) - (_tl120265120300_ + (##car _e120529120557_))) + (_tl120527120562_ (let () (declare (not safe)) - (##cdr _e120267120295_)))) + (##cdr _e120529120557_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120265120300_)) - (let ((_e120270120303_ + (gx#stx-pair? _tl120527120562_)) + (let ((_e120532120565_ (let () (declare (not safe)) - (gx#stx-e _tl120265120300_)))) - (let ((_hd120269120306_ + (gx#stx-e _tl120527120562_)))) + (let ((_hd120531120568_ (let () (declare (not safe)) - (##car _e120270120303_))) - (_tl120268120308_ + (##car _e120532120565_))) + (_tl120530120570_ (let () (declare (not safe)) - (##cdr _e120270120303_)))) + (##cdr _e120532120565_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120269120306_)) - (let ((_e120273120311_ + (gx#stx-pair? _hd120531120568_)) + (let ((_e120535120573_ (let () (declare (not safe)) - (gx#stx-e _hd120269120306_)))) - (let ((_hd120272120314_ + (gx#stx-e _hd120531120568_)))) + (let ((_hd120534120576_ (let () (declare (not safe)) - (##car _e120273120311_))) - (_tl120271120316_ + (##car _e120535120573_))) + (_tl120533120578_ (let () (declare (not safe)) - (##cdr _e120273120311_)))) + (##cdr _e120535120573_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120272120314_)) - (let ((_e120276120319_ + (gx#stx-pair? _hd120534120576_)) + (let ((_e120538120581_ (let () (declare (not safe)) (gx#stx-e - _hd120272120314_)))) - (let ((_hd120275120322_ + _hd120534120576_)))) + (let ((_hd120537120584_ (let () (declare (not safe)) - (##car _e120276120319_))) - (_tl120274120324_ + (##car _e120538120581_))) + (_tl120536120586_ (let () (declare (not safe)) - (##cdr _e120276120319_)))) + (##cdr _e120538120581_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120275120322_)) - (let ((_e120279120327_ + _hd120537120584_)) + (let ((_e120541120589_ (let () (declare (not safe)) (gx#stx-e - _hd120275120322_)))) - (let ((_hd120278120330_ + _hd120537120584_)))) + (let ((_hd120540120592_ (let () (declare (not safe)) - (##car _e120279120327_))) - (_tl120277120332_ + (##car _e120541120589_))) + (_tl120539120594_ (let () (declare (not safe)) - (##cdr _e120279120327_)))) + (##cdr _e120541120589_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120277120332_)) + _tl120539120594_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl120274120324_)) - (let ((_e120282120335_ + (gx#stx-pair? _tl120536120586_)) + (let ((_e120544120597_ (let () (declare (not safe)) - (gx#stx-e _tl120274120324_)))) - (let ((_hd120281120338_ + (gx#stx-e _tl120536120586_)))) + (let ((_hd120543120600_ (let () (declare (not safe)) - (##car _e120282120335_))) - (_tl120280120340_ + (##car _e120544120597_))) + (_tl120542120602_ (let () (declare (not safe)) - (##cdr _e120282120335_)))) + (##cdr _e120544120597_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120280120340_)) + (gx#stx-null? _tl120542120602_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120271120316_)) + (gx#stx-null? _tl120533120578_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120268120308_)) - (let ((_e120285120343_ + (gx#stx-pair? _tl120530120570_)) + (let ((_e120547120605_ (let () (declare (not safe)) - (gx#stx-e _tl120268120308_)))) - (let ((_hd120284120346_ + (gx#stx-e _tl120530120570_)))) + (let ((_hd120546120608_ (let () (declare (not safe)) - (##car _e120285120343_))) - (_tl120283120348_ + (##car _e120547120605_))) + (_tl120545120610_ (let () (declare (not safe)) - (##cdr _e120285120343_)))) + (##cdr _e120547120605_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120283120348_)) - ((lambda (_L120351_ - _L120352_ - _L120353_) - (let* ((_lambda-id120377_ - (let ((__tmp129076 + _tl120545120610_)) + ((lambda (_L120613_ + _L120614_ + _L120615_) + (let* ((_lambda-id120639_ + (let ((__tmp129338 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L120246_))) - (__tmp129075 (gensym '__))) + (gx#stx-e _L120508_))) + (__tmp129337 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp129076 __tmp129075))) - (_lambda-id120379_ - (let ((__tmp129077 + (make-symbol__1 __tmp129338 __tmp129337))) + (_lambda-id120641_ + (let ((__tmp129339 (let () (declare (not safe)) - (gx#stx-source _stx119471_)))) + (gx#stx-source _stx119733_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id120377_ __tmp129077))) - (_g129078_ + (gx#core-quote-syntax__1 _lambda-id120639_ __tmp129339))) + (_g129340_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id120379_))) - (_new-case-lambda-expr120382_ + (gx#core-bind-runtime!__0 _lambda-id120641_))) + (_new-case-lambda-expr120644_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120351_ - _L120353_ - _lambda-id120379_)))) + _L120613_ + _L120615_ + _lambda-id120641_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp129080 + (let ((__tmp129342 (let () (declare (not safe)) (gxc#identifier-symbol - _L120246_))) - (__tmp129079 + _L120508_))) + (__tmp129341 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id120379_)))) + _lambda-id120641_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129080 + __tmp129342 '" => " - __tmp129079)) - (let ((__tmp129083 - (let ((__tmp129084 + __tmp129341)) + (let ((__tmp129345 + (let ((__tmp129346 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126725126726_ - _L120246_ - _new-case-lambda-expr120382_ + (_bind-e__126987126988_ + _L120508_ + _new-case-lambda-expr120644_ '#f)))) (declare (not safe)) - (cons __tmp129084 _rest120134_))) - (__tmp129081 - (let ((__tmp129082 + (cons __tmp129346 _rest120396_))) + (__tmp129343 + (let ((__tmp129344 (let () (declare (not safe)) - (_bind-e__0__126727126728_ - _lambda-id120379_ - _L120352_)))) + (_bind-e__0__126989126990_ + _lambda-id120641_ + _L120614_)))) (declare (not safe)) - (cons __tmp129082 _lift1120112_)))) + (cons __tmp129344 _lift1120374_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp120109_ - __tmp129083 - __tmp129081 - _lift2120113_ - _bind120114_)))) - _hd120284120346_ - _hd120281120338_ - _hd120278120330_) + (_lp120371_ + __tmp129345 + __tmp129343 + _lift2120375_ + _bind120376_)))) + _hd120546120608_ + _hd120543120600_ + _hd120540120592_) (let () (declare (not safe)) - (_g120260120290_ - _g120261120293_))))) + (_g120522120552_ + _g120523120555_))))) (let () (declare (not safe)) - (_g120260120290_ _g120261120293_))) + (_g120522120552_ _g120523120555_))) (let () (declare (not safe)) - (_g120260120290_ _g120261120293_))) + (_g120522120552_ _g120523120555_))) (let () (declare (not safe)) - (_g120260120290_ _g120261120293_))))) + (_g120522120552_ _g120523120555_))))) (let () (declare (not safe)) - (_g120260120290_ _g120261120293_))) + (_g120522120552_ _g120523120555_))) (let () (declare (not safe)) - (_g120260120290_ _g120261120293_))))) + (_g120522120552_ _g120523120555_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120260120290_ - _g120261120293_))))) + (_g120522120552_ + _g120523120555_))))) (let () (declare (not safe)) - (_g120260120290_ - _g120261120293_))))) + (_g120522120552_ + _g120523120555_))))) (let () (declare (not safe)) - (_g120260120290_ _g120261120293_))))) + (_g120522120552_ _g120523120555_))))) (let () (declare (not safe)) - (_g120260120290_ _g120261120293_))))) + (_g120522120552_ _g120523120555_))))) (let () (declare (not safe)) - (_g120260120290_ _g120261120293_)))))) + (_g120522120552_ _g120523120555_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g120259120385_ _L120245_)))) - (___kont128471128472_ - (lambda (_L120196_ _L120197_) - (let ((__tmp129085 - (let ((__tmp129086 - (let ((__tmp129087 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129088 + (_g120521120647_ _L120507_)))) + (___kont128733128734_ + (lambda (_L120458_ _L120459_) + (let ((__tmp129347 + (let ((__tmp129348 + (let ((__tmp129349 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129350 (let () (declare (not safe)) - (gxc#compile-e__0 _L120196_)))) + (gxc#compile-e__0 _L120458_)))) (declare (not safe)) - (cons __tmp129088 '())))) + (cons __tmp129350 '())))) (declare (not safe)) - (cons _L120197_ __tmp129087)))) + (cons _L120459_ __tmp129349)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129086 - _bind120114_)))) + (cons __tmp129348 + _bind120376_)))) (declare (not safe)) - (_lp120109_ - _rest120134_ - _lift1120112_ - _lift2120113_ - __tmp129085))))) - (let* ((___match128516128517_ - (lambda (_e120156120221_ - _hd120155120224_ - _tl120154120226_ - _e120159120229_ - _hd120158120232_ - _tl120157120234_ - _e120162120237_ - _hd120161120240_ - _tl120160120242_) - (let ((_L120245_ - _hd120161120240_) - (_L120246_ - _hd120158120232_)) + (_lp120371_ + _rest120396_ + _lift1120374_ + _lift2120375_ + __tmp129347))))) + (let* ((___match128778128779_ + (lambda (_e120418120483_ + _hd120417120486_ + _tl120416120488_ + _e120421120491_ + _hd120420120494_ + _tl120419120496_ + _e120424120499_ + _hd120423120502_ + _tl120422120504_) + (let ((_L120507_ + _hd120423120502_) + (_L120508_ + _hd120420120494_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120246_)) + _L120508_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L120245_))) - (___kont128469128470_ - _L120245_ - _L120246_) - (___kont128471128472_ - _hd120161120240_ - _hd120155120224_))))) - (___match128494128495_ - (lambda (_e120145120393_ - _hd120144120396_ - _tl120143120398_ - _e120148120401_ - _hd120147120404_ - _tl120146120406_ - _e120151120409_ - _hd120150120412_ - _tl120149120414_) - (let ((_L120417_ - _hd120150120412_) - (_L120418_ - _hd120147120404_)) + _L120507_))) + (___kont128731128732_ + _L120507_ + _L120508_) + (___kont128733128734_ + _hd120423120502_ + _hd120417120486_))))) + (___match128756128757_ + (lambda (_e120407120655_ + _hd120406120658_ + _tl120405120660_ + _e120410120663_ + _hd120409120666_ + _tl120408120668_ + _e120413120671_ + _hd120412120674_ + _tl120411120676_) + (let ((_L120679_ + _hd120412120674_) + (_L120680_ + _hd120409120666_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120418_)) + _L120680_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L120417_))) - (___kont128467128468_ - _L120417_ - _L120418_) - (___match128516128517_ - _e120145120393_ - _hd120144120396_ - _tl120143120398_ - _e120148120401_ - _hd120147120404_ - _tl120146120406_ - _e120151120409_ - _hd120150120412_ - _tl120149120414_)))))) + _L120679_))) + (___kont128729128730_ + _L120679_ + _L120680_) + (___match128778128779_ + _e120407120655_ + _hd120406120658_ + _tl120405120660_ + _e120410120663_ + _hd120409120666_ + _tl120408120668_ + _e120413120671_ + _hd120412120674_ + _tl120411120676_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128465128466_)) - (let ((_e120145120393_ + ___stx128727128728_)) + (let ((_e120407120655_ (let () (declare (not safe)) (gx#stx-e - ___stx128465128466_)))) - (let ((_tl120143120398_ + ___stx128727128728_)))) + (let ((_tl120405120660_ (let () (declare (not safe)) - (##cdr _e120145120393_))) - (_hd120144120396_ + (##cdr _e120407120655_))) + (_hd120406120658_ (let () (declare (not safe)) - (##car _e120145120393_)))) + (##car _e120407120655_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120144120396_)) - (let ((_e120148120401_ + _hd120406120658_)) + (let ((_e120410120663_ (let () (declare (not safe)) (gx#stx-e - _hd120144120396_)))) - (let ((_tl120146120406_ + _hd120406120658_)))) + (let ((_tl120408120668_ (let () (declare (not safe)) - (##cdr _e120148120401_))) - (_hd120147120404_ + (##cdr _e120410120663_))) + (_hd120409120666_ (let () (declare (not safe)) - (##car _e120148120401_)))) + (##car _e120410120663_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120146120406_)) + _tl120408120668_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl120143120398_)) - (let ((_e120151120409_ + (gx#stx-pair? _tl120405120660_)) + (let ((_e120413120671_ (let () (declare (not safe)) - (gx#stx-e _tl120143120398_)))) - (let ((_tl120149120414_ + (gx#stx-e _tl120405120660_)))) + (let ((_tl120411120676_ (let () (declare (not safe)) - (##cdr _e120151120409_))) - (_hd120150120412_ + (##cdr _e120413120671_))) + (_hd120412120674_ (let () (declare (not safe)) - (##car _e120151120409_)))) + (##car _e120413120671_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120149120414_)) - (___match128494128495_ - _e120145120393_ - _hd120144120396_ - _tl120143120398_ - _e120148120401_ - _hd120147120404_ - _tl120146120406_ - _e120151120409_ - _hd120150120412_ - _tl120149120414_) + (gx#stx-null? _tl120411120676_)) + (___match128756128757_ + _e120407120655_ + _hd120406120658_ + _tl120405120660_ + _e120410120663_ + _hd120409120666_ + _tl120408120668_ + _e120413120671_ + _hd120412120674_ + _tl120411120676_) (let () (declare (not safe)) - (_g120139120175_))))) - (let () (declare (not safe)) (_g120139120175_))) + (_g120401120437_))))) + (let () (declare (not safe)) (_g120401120437_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120143120398_)) - (let ((_e120170120188_ + (gx#stx-pair? _tl120405120660_)) + (let ((_e120432120450_ (let () (declare (not safe)) - (gx#stx-e _tl120143120398_)))) - (let ((_tl120168120193_ + (gx#stx-e _tl120405120660_)))) + (let ((_tl120430120455_ (let () (declare (not safe)) - (##cdr _e120170120188_))) - (_hd120169120191_ + (##cdr _e120432120450_))) + (_hd120431120453_ (let () (declare (not safe)) - (##car _e120170120188_)))) + (##car _e120432120450_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120168120193_)) - (___kont128471128472_ - _hd120169120191_ - _hd120144120396_) + (gx#stx-null? _tl120430120455_)) + (___kont128733128734_ + _hd120431120453_ + _hd120406120658_) (let () (declare (not safe)) - (_g120139120175_))))) - (let () (declare (not safe)) (_g120139120175_)))))) + (_g120401120437_))))) + (let () (declare (not safe)) (_g120401120437_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl120143120398_)) - (let ((_e120170120188_ + _tl120405120660_)) + (let ((_e120432120450_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120143120398_)))) - (let ((_tl120168120193_ - (let () (declare (not safe)) (##cdr _e120170120188_))) - (_hd120169120191_ - (let () (declare (not safe)) (##car _e120170120188_)))) + (gx#stx-e _tl120405120660_)))) + (let ((_tl120430120455_ + (let () (declare (not safe)) (##cdr _e120432120450_))) + (_hd120431120453_ + (let () (declare (not safe)) (##car _e120432120450_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120168120193_)) - (___kont128471128472_ _hd120169120191_ _hd120144120396_) - (let () (declare (not safe)) (_g120139120175_))))) - (let () (declare (not safe)) (_g120139120175_)))))) + (gx#stx-null? _tl120430120455_)) + (___kont128733128734_ _hd120431120453_ _hd120406120658_) + (let () (declare (not safe)) (_g120401120437_))))) + (let () (declare (not safe)) (_g120401120437_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120139120175_))))))))) + (_g120401120437_))))))))) (if (let () (declare (not safe)) - (##pair? _rest120115120123_)) - (let ((_hd120120120513_ + (##pair? _rest120377120385_)) + (let ((_hd120382120775_ (let () (declare (not safe)) - (##car _rest120115120123_))) - (_tl120121120515_ + (##car _rest120377120385_))) + (_tl120383120777_ (let () (declare (not safe)) - (##cdr _rest120115120123_)))) - (let* ((_hd120518_ _hd120120120513_) - (_rest120520_ _tl120121120515_)) + (##cdr _rest120377120385_)))) + (let* ((_hd120780_ _hd120382120775_) + (_rest120782_ _tl120383120777_)) (declare (not safe)) - (_K120119120510_ _rest120520_ _hd120518_))) + (_K120381120772_ _rest120782_ _hd120780_))) (let () (declare (not safe)) - (_else120117120131_))))))) - (_lift-kw-lambda?119475_ - (lambda (_bind120031_) - (let* ((___stx128533128534_ _bind120031_) - (_g120034120051_ + (_else120379120393_))))))) + (_lift-kw-lambda?119737_ + (lambda (_bind120293_) + (let* ((___stx128795128796_ _bind120293_) + (_g120296120313_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128533128534_))))) - (let ((___kont128535128536_ - (lambda (_L120087_ _L120088_) + ___stx128795128796_))))) + (let ((___kont128797128798_ + (lambda (_L120349_ _L120350_) (if (let () (declare (not safe)) - (gx#identifier? _L120088_)) + (gx#identifier? _L120350_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L120087_)) + (gxc#kw-lambda-expr? _L120349_)) '#f))) - (___kont128537128538_ (lambda () '#f))) + (___kont128799128800_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128533128534_)) - (let ((_e120040120063_ + (gx#stx-pair? ___stx128795128796_)) + (let ((_e120302120325_ (let () (declare (not safe)) - (gx#stx-e ___stx128533128534_)))) - (let ((_tl120038120068_ + (gx#stx-e ___stx128795128796_)))) + (let ((_tl120300120330_ (let () (declare (not safe)) - (##cdr _e120040120063_))) - (_hd120039120066_ + (##cdr _e120302120325_))) + (_hd120301120328_ (let () (declare (not safe)) - (##car _e120040120063_)))) + (##car _e120302120325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120039120066_)) - (let ((_e120043120071_ + (gx#stx-pair? _hd120301120328_)) + (let ((_e120305120333_ (let () (declare (not safe)) - (gx#stx-e _hd120039120066_)))) - (let ((_tl120041120076_ + (gx#stx-e _hd120301120328_)))) + (let ((_tl120303120338_ (let () (declare (not safe)) - (##cdr _e120043120071_))) - (_hd120042120074_ + (##cdr _e120305120333_))) + (_hd120304120336_ (let () (declare (not safe)) - (##car _e120043120071_)))) + (##car _e120305120333_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120041120076_)) + (gx#stx-null? _tl120303120338_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120038120068_)) - (let ((_e120046120079_ + _tl120300120330_)) + (let ((_e120308120341_ (let () (declare (not safe)) (gx#stx-e - _tl120038120068_)))) - (let ((_tl120044120084_ + _tl120300120330_)))) + (let ((_tl120306120346_ (let () (declare (not safe)) - (##cdr _e120046120079_))) - (_hd120045120082_ + (##cdr _e120308120341_))) + (_hd120307120344_ (let () (declare (not safe)) - (##car _e120046120079_)))) + (##car _e120308120341_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120044120084_)) - (___kont128535128536_ - _hd120045120082_ - _hd120042120074_) - (___kont128537128538_)))) - (___kont128537128538_)) - (___kont128537128538_)))) - (___kont128537128538_)))) - (___kont128537128538_)))))) - (_lift-kw-lambda-bindings119476_ - (lambda (_bindings119643_) - (let _lp119645_ ((_rest119647_ _bindings119643_) - (_lift1119648_ '()) - (_lift2119649_ '()) - (_bind119650_ '())) - (let* ((_rest119651119659_ _rest119647_) - (_else119653119667_ + _tl120306120346_)) + (___kont128797128798_ + _hd120307120344_ + _hd120304120336_) + (___kont128799128800_)))) + (___kont128799128800_)) + (___kont128799128800_)))) + (___kont128799128800_)))) + (___kont128799128800_)))))) + (_lift-kw-lambda-bindings119738_ + (lambda (_bindings119905_) + (let _lp119907_ ((_rest119909_ _bindings119905_) + (_lift1119910_ '()) + (_lift2119911_ '()) + (_bind119912_ '())) + (let* ((_rest119913119921_ _rest119909_) + (_else119915119929_ (lambda () - (values (reverse _lift1119648_) - (reverse _lift2119649_) - (reverse _bind119650_)))) - (_K119655120019_ - (lambda (_rest119670_ _hd119671_) - (let* ((___stx128563128564_ _hd119671_) - (_g119674119699_ + (values (reverse _lift1119910_) + (reverse _lift2119911_) + (reverse _bind119912_)))) + (_K119917120281_ + (lambda (_rest119932_ _hd119933_) + (let* ((___stx128825128826_ _hd119933_) + (_g119936119961_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128563128564_))))) - (let ((___kont128565128566_ - (lambda (_L119769_ _L119770_) - (let* ((_g119784119837_ - (lambda (_g119785119834_) + ___stx128825128826_))))) + (let ((___kont128827128828_ + (lambda (_L120031_ _L120032_) + (let* ((_g120046120099_ + (lambda (_g120047120096_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g119785119834_)))) - (_g119783120013_ - (lambda (_g119785119840_) + _g120047120096_)))) + (_g120045120275_ + (lambda (_g120047120102_) (if (let () (declare (not safe)) (gx#stx-pair? - _g119785119840_)) - (let ((_e119793119842_ + _g120047120102_)) + (let ((_e120055120104_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g119785119840_)))) - (let ((_hd119792119845_ + (gx#stx-e _g120047120102_)))) + (let ((_hd120054120107_ (let () (declare (not safe)) - (##car _e119793119842_))) - (_tl119791119847_ + (##car _e120055120104_))) + (_tl120053120109_ (let () (declare (not safe)) - (##cdr _e119793119842_)))) + (##cdr _e120055120104_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119791119847_)) - (let ((_e119796119850_ + (gx#stx-pair? _tl120053120109_)) + (let ((_e120058120112_ (let () (declare (not safe)) - (gx#stx-e _tl119791119847_)))) - (let ((_hd119795119853_ + (gx#stx-e _tl120053120109_)))) + (let ((_hd120057120115_ (let () (declare (not safe)) - (##car _e119796119850_))) - (_tl119794119855_ + (##car _e120058120112_))) + (_tl120056120117_ (let () (declare (not safe)) - (##cdr _e119796119850_)))) + (##cdr _e120058120112_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119795119853_)) - (let ((_e119799119858_ + (gx#stx-pair? _hd120057120115_)) + (let ((_e120061120120_ (let () (declare (not safe)) - (gx#stx-e _hd119795119853_)))) - (let ((_hd119798119861_ + (gx#stx-e _hd120057120115_)))) + (let ((_hd120060120123_ (let () (declare (not safe)) - (##car _e119799119858_))) - (_tl119797119863_ + (##car _e120061120120_))) + (_tl120059120125_ (let () (declare (not safe)) - (##cdr _e119799119858_)))) + (##cdr _e120061120120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119798119861_)) - (let ((_e119802119866_ + (gx#stx-pair? _hd120060120123_)) + (let ((_e120064120128_ (let () (declare (not safe)) (gx#stx-e - _hd119798119861_)))) - (let ((_hd119801119869_ + _hd120060120123_)))) + (let ((_hd120063120131_ (let () (declare (not safe)) - (##car _e119802119866_))) - (_tl119800119871_ + (##car _e120064120128_))) + (_tl120062120133_ (let () (declare (not safe)) - (##cdr _e119802119866_)))) + (##cdr _e120064120128_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119801119869_)) - (let ((_e119805119874_ + _hd120063120131_)) + (let ((_e120067120136_ (let () (declare (not safe)) (gx#stx-e - _hd119801119869_)))) - (let ((_hd119804119877_ + _hd120063120131_)))) + (let ((_hd120066120139_ (let () (declare (not safe)) - (##car _e119805119874_))) - (_tl119803119879_ + (##car _e120067120136_))) + (_tl120065120141_ (let () (declare (not safe)) - (##cdr _e119805119874_)))) + (##cdr _e120067120136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119803119879_)) + _tl120065120141_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl119800119871_)) - (let ((_e119808119882_ + (gx#stx-pair? _tl120062120133_)) + (let ((_e120070120144_ (let () (declare (not safe)) - (gx#stx-e _tl119800119871_)))) - (let ((_hd119807119885_ + (gx#stx-e _tl120062120133_)))) + (let ((_hd120069120147_ (let () (declare (not safe)) - (##car _e119808119882_))) - (_tl119806119887_ + (##car _e120070120144_))) + (_tl120068120149_ (let () (declare (not safe)) - (##cdr _e119808119882_)))) + (##cdr _e120070120144_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119807119885_)) - (let ((_e119811119890_ + (gx#stx-pair? _hd120069120147_)) + (let ((_e120073120152_ (let () (declare (not safe)) - (gx#stx-e _hd119807119885_)))) - (let ((_hd119810119893_ + (gx#stx-e _hd120069120147_)))) + (let ((_hd120072120155_ (let () (declare (not safe)) - (##car _e119811119890_))) - (_tl119809119895_ + (##car _e120073120152_))) + (_tl120071120157_ (let () (declare (not safe)) - (##cdr _e119811119890_)))) + (##cdr _e120073120152_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119809119895_)) - (let ((_e119814119898_ + (gx#stx-pair? _tl120071120157_)) + (let ((_e120076120160_ (let () (declare (not safe)) - (gx#stx-e _tl119809119895_)))) - (let ((_hd119813119901_ + (gx#stx-e _tl120071120157_)))) + (let ((_hd120075120163_ (let () (declare (not safe)) - (##car _e119814119898_))) - (_tl119812119903_ + (##car _e120076120160_))) + (_tl120074120165_ (let () (declare (not safe)) - (##cdr _e119814119898_)))) + (##cdr _e120076120160_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119813119901_)) - (let ((_e119817119906_ + _hd120075120163_)) + (let ((_e120079120168_ (let () (declare (not safe)) (gx#stx-e - _hd119813119901_)))) - (let ((_hd119816119909_ + _hd120075120163_)))) + (let ((_hd120078120171_ (let () (declare (not safe)) - (##car _e119817119906_))) - (_tl119815119911_ + (##car _e120079120168_))) + (_tl120077120173_ (let () (declare (not safe)) - (##cdr _e119817119906_)))) + (##cdr _e120079120168_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119816119909_)) - (let ((_e119820119914_ + _hd120078120171_)) + (let ((_e120082120176_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd119816119909_)))) - (let ((_hd119819119917_ - (let () (declare (not safe)) (##car _e119820119914_))) - (_tl119818119919_ - (let () (declare (not safe)) (##cdr _e119820119914_)))) + (gx#stx-e _hd120078120171_)))) + (let ((_hd120081120179_ + (let () (declare (not safe)) (##car _e120082120176_))) + (_tl120080120181_ + (let () (declare (not safe)) (##cdr _e120082120176_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119819119917_)) - (let ((_e119823119922_ + (gx#stx-pair? _hd120081120179_)) + (let ((_e120085120184_ (let () (declare (not safe)) - (gx#stx-e _hd119819119917_)))) - (let ((_hd119822119925_ + (gx#stx-e _hd120081120179_)))) + (let ((_hd120084120187_ (let () (declare (not safe)) - (##car _e119823119922_))) - (_tl119821119927_ + (##car _e120085120184_))) + (_tl120083120189_ (let () (declare (not safe)) - (##cdr _e119823119922_)))) + (##cdr _e120085120184_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119821119927_)) + (gx#stx-null? _tl120083120189_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119818119919_)) - (let ((_e119826119930_ + (gx#stx-pair? _tl120080120181_)) + (let ((_e120088120192_ (let () (declare (not safe)) - (gx#stx-e _tl119818119919_)))) - (let ((_hd119825119933_ + (gx#stx-e _tl120080120181_)))) + (let ((_hd120087120195_ (let () (declare (not safe)) - (##car _e119826119930_))) - (_tl119824119935_ + (##car _e120088120192_))) + (_tl120086120197_ (let () (declare (not safe)) - (##cdr _e119826119930_)))) + (##cdr _e120088120192_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119824119935_)) + (gx#stx-null? _tl120086120197_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl119815119911_)) + _tl120077120173_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl119812119903_)) - (let ((_e119829119938_ + _tl120074120165_)) + (let ((_e120091120200_ (let () (declare (not safe)) (gx#stx-e - _tl119812119903_)))) - (let ((_hd119828119941_ + _tl120074120165_)))) + (let ((_hd120090120203_ (let () (declare (not safe)) - (##car _e119829119938_))) - (_tl119827119943_ + (##car _e120091120200_))) + (_tl120089120205_ (let () (declare (not safe)) - (##cdr _e119829119938_)))) + (##cdr _e120091120200_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119827119943_)) + _tl120089120205_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl119806119887_)) + (gx#stx-null? _tl120068120149_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl119797119863_)) + (gx#stx-null? _tl120059120125_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119794119855_)) - (let ((_e119832119946_ + (gx#stx-pair? _tl120056120117_)) + (let ((_e120094120208_ (let () (declare (not safe)) - (gx#stx-e _tl119794119855_)))) - (let ((_hd119831119949_ + (gx#stx-e _tl120056120117_)))) + (let ((_hd120093120211_ (let () (declare (not safe)) - (##car _e119832119946_))) - (_tl119830119951_ + (##car _e120094120208_))) + (_tl120092120213_ (let () (declare (not safe)) - (##cdr _e119832119946_)))) + (##cdr _e120094120208_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119830119951_)) - ((lambda (_L119954_ - _L119955_ - _L119956_ - _L119957_ - _L119958_) - (let* ((_get-kws-id119998_ - (let ((__tmp129090 + (gx#stx-null? _tl120092120213_)) + ((lambda (_L120216_ + _L120217_ + _L120218_ + _L120219_ + _L120220_) + (let* ((_get-kws-id120260_ + (let ((__tmp129352 (let () (declare (not safe)) (gx#stx-e - _L119770_))) - (__tmp129089 + _L120032_))) + (__tmp129351 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129090 - __tmp129089))) - (_get-kws-id120000_ - (let ((__tmp129091 + __tmp129352 + __tmp129351))) + (_get-kws-id120262_ + (let ((__tmp129353 (let () (declare (not safe)) (gx#stx-source - _stx119471_)))) + _stx119733_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id119998_ - __tmp129091))) - (_main-id120002_ - (let ((__tmp129093 + _get-kws-id120260_ + __tmp129353))) + (_main-id120264_ + (let ((__tmp129355 (let () (declare (not safe)) (gx#stx-e - _L119770_))) - (__tmp129092 + _L120032_))) + (__tmp129354 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129093 - __tmp129092))) - (_main-id120004_ - (let ((__tmp129094 + __tmp129355 + __tmp129354))) + (_main-id120266_ + (let ((__tmp129356 (let () (declare (not safe)) (gx#stx-source - _stx119471_)))) + _stx119733_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id120002_ - __tmp129094))) - (_g129095_ + _main-id120264_ + __tmp129356))) + (_g129357_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id120000_))) - (_g129096_ + _get-kws-id120262_))) + (_g129358_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id120004_))) - (_new-kw-dispatch120008_ + _main-id120266_))) + (_new-kw-dispatch120270_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119954_ - _L119958_ - _get-kws-id120000_))) - (_new-get-kws120010_ + _L120216_ + _L120220_ + _get-kws-id120262_))) + (_new-get-kws120272_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119955_ - _L119957_ - _main-id120004_)))) - (let ((__tmp129099 + _L120217_ + _L120219_ + _main-id120266_)))) + (let ((__tmp129361 (let () (declare (not safe)) (gxc#identifier-symbol - _L119770_))) - (__tmp129098 + _L120032_))) + (__tmp129360 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id120000_))) - (__tmp129097 + _get-kws-id120262_))) + (__tmp129359 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id120004_)))) + _main-id120266_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129099 + __tmp129361 '" => " - __tmp129098 + __tmp129360 '" => " - __tmp129097)) - (let ((__tmp129104 - (let ((__tmp129105 + __tmp129359)) + (let ((__tmp129366 + (let ((__tmp129367 (let () (declare (not safe)) - (_bind-e__126725126726_ - _main-id120004_ - _L119956_ + (_bind-e__126987126988_ + _main-id120266_ + _L120218_ '#f)))) (declare (not safe)) - (cons __tmp129105 - _lift1119648_))) - (__tmp129102 - (let ((__tmp129103 + (cons __tmp129367 + _lift1119910_))) + (__tmp129364 + (let ((__tmp129365 (let () (declare (not safe)) - (_bind-e__126725126726_ - _get-kws-id120000_ - _new-get-kws120010_ + (_bind-e__126987126988_ + _get-kws-id120262_ + _new-get-kws120272_ '#f)))) (declare (not safe)) - (cons __tmp129103 - _lift2119649_))) - (__tmp129100 - (let ((__tmp129101 + (cons __tmp129365 + _lift2119911_))) + (__tmp129362 + (let ((__tmp129363 (let () (declare (not safe)) - (_bind-e__126725126726_ - _L119770_ - _new-kw-dispatch120008_ + (_bind-e__126987126988_ + _L120032_ + _new-kw-dispatch120270_ '#f)))) (declare (not safe)) - (cons __tmp129101 - _bind119650_)))) + (cons __tmp129363 + _bind119912_)))) (declare (not safe)) - (_lp119645_ - _rest119670_ - __tmp129104 - __tmp129102 - __tmp129100)))) - _hd119831119949_ - _hd119828119941_ - _hd119825119933_ - _hd119822119925_ - _hd119804119877_) + (_lp119907_ + _rest119932_ + __tmp129366 + __tmp129364 + __tmp129362)))) + _hd120093120211_ + _hd120090120203_ + _hd120087120195_ + _hd120084120187_ + _hd120066120139_) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))) + (_g120046120099_ _g120047120102_))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))) + (_g120046120099_ _g120047120102_))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))) + (_g120046120099_ _g120047120102_))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119784119837_ - _g119785119840_))) + (_g120046120099_ + _g120047120102_))) (let () (declare (not safe)) - (_g119784119837_ - _g119785119840_))) + (_g120046120099_ + _g120047120102_))) (let () (declare (not safe)) - (_g119784119837_ - _g119785119840_))))) + (_g120046120099_ + _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))) + (_g120046120099_ _g120047120102_))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119784119837_ - _g119785119840_))))) + (_g120046120099_ + _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))) + (_g120046120099_ _g120047120102_))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119784119837_ - _g119785119840_))))) + (_g120046120099_ + _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ - _g119785119840_))))) + (_g120046120099_ + _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_))))) + (_g120046120099_ _g120047120102_))))) (let () (declare (not safe)) - (_g119784119837_ _g119785119840_)))))) + (_g120046120099_ _g120047120102_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g119783120013_ _L119769_)))) - (___kont128567128568_ - (lambda (_L119720_ _L119721_) - (let ((__tmp129106 - (let ((__tmp129107 - (let ((__tmp129108 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L119720_ '())))) + (_g120045120275_ _L120031_)))) + (___kont128829128830_ + (lambda (_L119982_ _L119983_) + (let ((__tmp129368 + (let ((__tmp129369 + (let ((__tmp129370 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L119982_ '())))) (declare (not safe)) - (cons _L119721_ __tmp129108)))) + (cons _L119983_ __tmp129370)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129107 - _bind119650_)))) + (cons __tmp129369 + _bind119912_)))) (declare (not safe)) - (_lp119645_ - _rest119670_ - _lift1119648_ - _lift2119649_ - __tmp129106))))) - (let ((___match128590128591_ - (lambda (_e119680119745_ - _hd119679119748_ - _tl119678119750_ - _e119683119753_ - _hd119682119756_ - _tl119681119758_ - _e119686119761_ - _hd119685119764_ - _tl119684119766_) - (let ((_L119769_ - _hd119685119764_) - (_L119770_ - _hd119682119756_)) + (_lp119907_ + _rest119932_ + _lift1119910_ + _lift2119911_ + __tmp129368))))) + (let ((___match128852128853_ + (lambda (_e119942120007_ + _hd119941120010_ + _tl119940120012_ + _e119945120015_ + _hd119944120018_ + _tl119943120020_ + _e119948120023_ + _hd119947120026_ + _tl119946120028_) + (let ((_L120031_ + _hd119947120026_) + (_L120032_ + _hd119944120018_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119770_)) + _L120032_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L119769_))) - (___kont128565128566_ - _L119769_ - _L119770_) - (___kont128567128568_ - _hd119685119764_ - _hd119679119748_)))))) + _L120031_))) + (___kont128827128828_ + _L120031_ + _L120032_) + (___kont128829128830_ + _hd119947120026_ + _hd119941120010_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128563128564_)) - (let ((_e119680119745_ + ___stx128825128826_)) + (let ((_e119942120007_ (let () (declare (not safe)) (gx#stx-e - ___stx128563128564_)))) - (let ((_tl119678119750_ + ___stx128825128826_)))) + (let ((_tl119940120012_ (let () (declare (not safe)) - (##cdr _e119680119745_))) - (_hd119679119748_ + (##cdr _e119942120007_))) + (_hd119941120010_ (let () (declare (not safe)) - (##car _e119680119745_)))) + (##car _e119942120007_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119679119748_)) - (let ((_e119683119753_ + _hd119941120010_)) + (let ((_e119945120015_ (let () (declare (not safe)) (gx#stx-e - _hd119679119748_)))) - (let ((_tl119681119758_ + _hd119941120010_)))) + (let ((_tl119943120020_ (let () (declare (not safe)) - (##cdr _e119683119753_))) - (_hd119682119756_ + (##cdr _e119945120015_))) + (_hd119944120018_ (let () (declare (not safe)) - (##car _e119683119753_)))) + (##car _e119945120015_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119681119758_)) + _tl119943120020_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl119678119750_)) - (let ((_e119686119761_ + (gx#stx-pair? _tl119940120012_)) + (let ((_e119948120023_ (let () (declare (not safe)) - (gx#stx-e _tl119678119750_)))) - (let ((_tl119684119766_ + (gx#stx-e _tl119940120012_)))) + (let ((_tl119946120028_ (let () (declare (not safe)) - (##cdr _e119686119761_))) - (_hd119685119764_ + (##cdr _e119948120023_))) + (_hd119947120026_ (let () (declare (not safe)) - (##car _e119686119761_)))) + (##car _e119948120023_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119684119766_)) - (___match128590128591_ - _e119680119745_ - _hd119679119748_ - _tl119678119750_ - _e119683119753_ - _hd119682119756_ - _tl119681119758_ - _e119686119761_ - _hd119685119764_ - _tl119684119766_) + (gx#stx-null? _tl119946120028_)) + (___match128852128853_ + _e119942120007_ + _hd119941120010_ + _tl119940120012_ + _e119945120015_ + _hd119944120018_ + _tl119943120020_ + _e119948120023_ + _hd119947120026_ + _tl119946120028_) (let () (declare (not safe)) - (_g119674119699_))))) - (let () (declare (not safe)) (_g119674119699_))) + (_g119936119961_))))) + (let () (declare (not safe)) (_g119936119961_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119678119750_)) - (let ((_e119694119712_ + (gx#stx-pair? _tl119940120012_)) + (let ((_e119956119974_ (let () (declare (not safe)) - (gx#stx-e _tl119678119750_)))) - (let ((_tl119692119717_ + (gx#stx-e _tl119940120012_)))) + (let ((_tl119954119979_ (let () (declare (not safe)) - (##cdr _e119694119712_))) - (_hd119693119715_ + (##cdr _e119956119974_))) + (_hd119955119977_ (let () (declare (not safe)) - (##car _e119694119712_)))) + (##car _e119956119974_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119692119717_)) - (___kont128567128568_ - _hd119693119715_ - _hd119679119748_) + (gx#stx-null? _tl119954119979_)) + (___kont128829128830_ + _hd119955119977_ + _hd119941120010_) (let () (declare (not safe)) - (_g119674119699_))))) - (let () (declare (not safe)) (_g119674119699_)))))) + (_g119936119961_))))) + (let () (declare (not safe)) (_g119936119961_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl119678119750_)) - (let ((_e119694119712_ + _tl119940120012_)) + (let ((_e119956119974_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl119678119750_)))) - (let ((_tl119692119717_ - (let () (declare (not safe)) (##cdr _e119694119712_))) - (_hd119693119715_ - (let () (declare (not safe)) (##car _e119694119712_)))) + (gx#stx-e _tl119940120012_)))) + (let ((_tl119954119979_ + (let () (declare (not safe)) (##cdr _e119956119974_))) + (_hd119955119977_ + (let () (declare (not safe)) (##car _e119956119974_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119692119717_)) - (___kont128567128568_ _hd119693119715_ _hd119679119748_) - (let () (declare (not safe)) (_g119674119699_))))) - (let () (declare (not safe)) (_g119674119699_)))))) + (gx#stx-null? _tl119954119979_)) + (___kont128829128830_ _hd119955119977_ _hd119941120010_) + (let () (declare (not safe)) (_g119936119961_))))) + (let () (declare (not safe)) (_g119936119961_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119674119699_))))))))) + (_g119936119961_))))))))) (if (let () (declare (not safe)) - (##pair? _rest119651119659_)) - (let ((_hd119656120022_ + (##pair? _rest119913119921_)) + (let ((_hd119918120284_ (let () (declare (not safe)) - (##car _rest119651119659_))) - (_tl119657120024_ + (##car _rest119913119921_))) + (_tl119919120286_ (let () (declare (not safe)) - (##cdr _rest119651119659_)))) - (let* ((_hd120027_ _hd119656120022_) - (_rest120029_ _tl119657120024_)) + (##cdr _rest119913119921_)))) + (let* ((_hd120289_ _hd119918120284_) + (_rest120291_ _tl119919120286_)) (declare (not safe)) - (_K119655120019_ _rest120029_ _hd120027_))) + (_K119917120281_ _rest120291_ _hd120289_))) (let () (declare (not safe)) - (_else119653119667_)))))))) - (let* ((___stx128607128608_ _stx119471_) - (_g119479119505_ + (_else119915119929_)))))))) + (let* ((___stx128869128870_ _stx119733_) + (_g119741119767_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128607128608_))))) - (let ((___kont128609128610_ - (lambda (_L119565_ _L119566_) - (let ((__tmp129110 + ___stx128869128870_))))) + (let ((___kont128871128872_ + (lambda (_L119827_ _L119828_) + (let ((__tmp129372 (lambda () - (if (let ((__tmp129137 - (let ((__tmp129138 - (lambda (_g119594119597_ - _g119595119599_) + (if (let ((__tmp129399 + (let ((__tmp129400 + (lambda (_g119856119859_ + _g119857119861_) (let () (declare (not safe)) - (cons _g119594119597_ - _g119595119599_))))) + (cons _g119856119859_ + _g119857119861_))))) (declare (not safe)) - (foldr1 __tmp129138 + (foldr1 __tmp129400 '() - _L119566_)))) + _L119828_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?119475_ - __tmp129137)) - (let ((_g129124_ - (let ((__tmp129126 - (let ((__tmp129127 - (lambda (_g119601119604_ - _g119602119606_) + (ormap1 _lift-kw-lambda?119737_ + __tmp129399)) + (let ((_g129386_ + (let ((__tmp129388 + (let ((__tmp129389 + (lambda (_g119863119866_ + _g119864119868_) (let () (declare (not safe)) - (cons _g119601119604_ + (cons _g119863119866_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g119602119606_))))) + _g119864119868_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp129127 + (foldr1 __tmp129389 '() - _L119566_)))) + _L119828_)))) (declare (not safe)) - (_lift-kw-lambda-bindings119476_ - __tmp129126)))) + (_lift-kw-lambda-bindings119738_ + __tmp129388)))) (begin - (let ((_g129125_ + (let ((_g129387_ (let () (declare (not safe)) - (if (##values? _g129124_) - (##vector-length _g129124_) + (if (##values? _g129386_) + (##vector-length _g129386_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129125_ 3))) + (##fx= _g129387_ 3))) (error "Context expects 3 values" - _g129125_))) - (let ((_lift1119609_ + _g129387_))) + (let ((_lift1119871_ (let () (declare (not safe)) - (##vector-ref _g129124_ 0))) - (_lift2119610_ + (##vector-ref _g129386_ 0))) + (_lift2119872_ (let () (declare (not safe)) - (##vector-ref _g129124_ 1))) - (_hd119611_ + (##vector-ref _g129386_ 1))) + (_hd119873_ (let () (declare (not safe)) - (##vector-ref _g129124_ 2)))) - (let* ((_expr119613_ - (let ((__tmp129128 - (let ((__tmp129129 - (let ((__tmp129130 + (##vector-ref _g129386_ 2)))) + (let* ((_expr119875_ + (let ((__tmp129390 + (let ((__tmp129391 + (let ((__tmp129392 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L119565_ '())))) + (cons _L119827_ '())))) (declare (not safe)) - (cons _hd119611_ __tmp129130)))) + (cons _hd119873_ __tmp129392)))) (declare (not safe)) - (cons '%#let-values __tmp129129)))) + (cons '%#let-values __tmp129391)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129128 - _stx119471_))) - (_expr119615_ - (let ((__tmp129131 - (let ((__tmp129132 - (let ((__tmp129133 + __tmp129390 + _stx119733_))) + (_expr119877_ + (let ((__tmp129393 + (let ((__tmp129394 + (let ((__tmp129395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr119613_ '())))) + (cons _expr119875_ '())))) (declare (not safe)) - (cons _lift2119610_ __tmp129133)))) + (cons _lift2119872_ __tmp129395)))) (declare (not safe)) - (cons '%#let-values __tmp129132)))) + (cons '%#let-values __tmp129394)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129131 - _stx119471_))) - (_expr119617_ - (let ((__tmp129134 - (let ((__tmp129135 - (let ((__tmp129136 + __tmp129393 + _stx119733_))) + (_expr119879_ + (let ((__tmp129396 + (let ((__tmp129397 + (let ((__tmp129398 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr119615_ '())))) + (cons _expr119877_ '())))) (declare (not safe)) - (cons _lift1119609_ __tmp129136)))) + (cons _lift1119871_ __tmp129398)))) (declare (not safe)) - (cons '%#let-values __tmp129135)))) + (cons '%#let-values __tmp129397)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129134 - _stx119471_)))) + __tmp129396 + _stx119733_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _expr119617_)))))) - (let ((_g129111_ - (let ((__tmp129113 - (let ((__tmp129114 - (lambda (_g119619119622_ - _g119620119624_) + _expr119879_)))))) + (let ((_g129373_ + (let ((__tmp129375 + (let ((__tmp129376 + (lambda (_g119881119884_ + _g119882119886_) (let () (declare (not safe)) - (cons _g119619119622_ + (cons _g119881119884_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g119620119624_))))) + _g119882119886_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp129114 + (foldr1 __tmp129376 '() - _L119566_)))) + _L119828_)))) (declare (not safe)) - (_compile-bindings119474_ - __tmp129113)))) + (_compile-bindings119736_ + __tmp129375)))) (begin - (let ((_g129112_ + (let ((_g129374_ (let () (declare (not safe)) - (if (##values? _g129111_) - (##vector-length _g129111_) + (if (##values? _g129373_) + (##vector-length _g129373_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129112_ 3))) + (##fx= _g129374_ 3))) (error "Context expects 3 values" - _g129112_))) - (let ((_lift1119627_ + _g129374_))) + (let ((_lift1119889_ (let () (declare (not safe)) - (##vector-ref _g129111_ 0))) - (_lift2119628_ + (##vector-ref _g129373_ 0))) + (_lift2119890_ (let () (declare (not safe)) - (##vector-ref _g129111_ 1))) - (_hd119629_ + (##vector-ref _g129373_ 1))) + (_hd119891_ (let () (declare (not safe)) - (##vector-ref _g129111_ 2)))) - (let* ((_body119631_ + (##vector-ref _g129373_ 2)))) + (let* ((_body119893_ (let () (declare (not safe)) (gxc#compile-e__0 - _L119565_))) - (_expr119633_ - (let ((__tmp129115 - (let ((__tmp129116 - (let ((__tmp129117 + _L119827_))) + (_expr119895_ + (let ((__tmp129377 + (let ((__tmp129378 + (let ((__tmp129379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body119631_ '())))) + (cons _body119893_ '())))) (declare (not safe)) - (cons _hd119629_ __tmp129117)))) + (cons _hd119891_ __tmp129379)))) (declare (not safe)) - (cons '%#let-values __tmp129116)))) + (cons '%#let-values __tmp129378)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129115 - _stx119471_))) - (_expr119635_ + __tmp129377 + _stx119733_))) + (_expr119897_ (if (let () (declare (not safe)) - (null? _lift2119628_)) - _expr119633_ - (let ((__tmp129118 - (let ((__tmp129119 + (null? _lift2119890_)) + _expr119895_ + (let ((__tmp129380 + (let ((__tmp129381 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129120 + (let ((__tmp129382 (let () (declare (not safe)) - (cons _expr119633_ '())))) + (cons _expr119895_ '())))) (declare (not safe)) - (cons _lift2119628_ __tmp129120)))) + (cons _lift2119890_ __tmp129382)))) (declare (not safe)) - (cons '%#let-values __tmp129119)))) + (cons '%#let-values __tmp129381)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129118 _stx119471_)))) + (gxc#xform-wrap-source __tmp129380 _stx119733_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr119637_ + (_expr119899_ (if (let () (declare (not safe)) - (null? _lift1119627_)) - _expr119635_ - (let ((__tmp129121 - (let ((__tmp129122 + (null? _lift1119889_)) + _expr119897_ + (let ((__tmp129383 + (let ((__tmp129384 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129123 + (let ((__tmp129385 (let () (declare (not safe)) - (cons _expr119635_ '())))) + (cons _expr119897_ '())))) (declare (not safe)) - (cons _lift1119627_ __tmp129123)))) + (cons _lift1119889_ __tmp129385)))) (declare (not safe)) - (cons '%#let-values __tmp129122)))) + (cons '%#let-values __tmp129384)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129121 _stx119471_))))) + (gxc#xform-wrap-source __tmp129383 _stx119733_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr119637_))))))) - (__tmp129109 - (let ((__obj128813 + _expr119899_))))))) + (__tmp129371 + (let ((__obj129075 (let () (declare (not safe)) (##structure @@ -14043,314 +14043,314 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj128813) - __obj128813))) + (gx#local-context:::init! __obj129075) + __obj129075))) (declare (not safe)) (call-with-parameters - __tmp129110 + __tmp129372 gx#current-expander-context - __tmp129109)))) - (___kont128613128614_ + __tmp129371)))) + (___kont128875128876_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx119471_))))) - (let ((___match128634128635_ - (lambda (_e119485119517_ - _hd119484119520_ - _tl119483119522_ - _e119488119525_ - _hd119487119528_ - _tl119486119530_ - ___splice128611128612_ - _target119489119533_ - _tl119491119535_) - (letrec ((_loop119492119538_ - (lambda (_hd119490119541_ _bind119496119543_) + (gxc#xform-let-values% _stx119733_))))) + (let ((___match128896128897_ + (lambda (_e119747119779_ + _hd119746119782_ + _tl119745119784_ + _e119750119787_ + _hd119749119790_ + _tl119748119792_ + ___splice128873128874_ + _target119751119795_ + _tl119753119797_) + (letrec ((_loop119754119800_ + (lambda (_hd119752119803_ _bind119758119805_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119490119541_)) - (let ((_e119493119546_ + (gx#stx-pair? _hd119752119803_)) + (let ((_e119755119808_ (let () (declare (not safe)) - (gx#stx-e _hd119490119541_)))) - (let ((_lp-tl119495119551_ + (gx#stx-e _hd119752119803_)))) + (let ((_lp-tl119757119813_ (let () (declare (not safe)) - (##cdr _e119493119546_))) - (_lp-hd119494119549_ + (##cdr _e119755119808_))) + (_lp-hd119756119811_ (let () (declare (not safe)) - (##car _e119493119546_)))) - (let ((__tmp129141 + (##car _e119755119808_)))) + (let ((__tmp129403 (let () (declare (not safe)) - (cons _lp-hd119494119549_ - _bind119496119543_)))) + (cons _lp-hd119756119811_ + _bind119758119805_)))) (declare (not safe)) - (_loop119492119538_ - _lp-tl119495119551_ - __tmp129141)))) - (let ((_bind119497119554_ - (reverse _bind119496119543_))) + (_loop119754119800_ + _lp-tl119757119813_ + __tmp129403)))) + (let ((_bind119759119816_ + (reverse _bind119758119805_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119486119530_)) - (let ((_e119500119557_ + (gx#stx-pair? _tl119748119792_)) + (let ((_e119762119819_ (let () (declare (not safe)) (gx#stx-e - _tl119486119530_)))) - (let ((_tl119498119562_ + _tl119748119792_)))) + (let ((_tl119760119824_ (let () (declare (not safe)) - (##cdr _e119500119557_))) - (_hd119499119560_ + (##cdr _e119762119819_))) + (_hd119761119822_ (let () (declare (not safe)) - (##car _e119500119557_)))) + (##car _e119762119819_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119498119562_)) - (let ((_L119565_ - _hd119499119560_) - (_L119566_ - _bind119497119554_)) - (if (let ((__tmp129139 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129140 - (lambda (_g119586119589_ _g119587119591_) + _tl119760119824_)) + (let ((_L119827_ + _hd119761119822_) + (_L119828_ + _bind119759119816_)) + (if (let ((__tmp129401 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129402 + (lambda (_g119848119851_ _g119849119853_) (let () (declare (not safe)) - (cons _g119586119589_ _g119587119591_))))) + (cons _g119848119851_ _g119849119853_))))) (declare (not safe)) - (foldr1 __tmp129140 '() _L119566_)))) + (foldr1 __tmp129402 '() _L119828_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp129139)) - (___kont128609128610_ _L119565_ _L119566_) - (___kont128613128614_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp129401)) + (___kont128871128872_ _L119827_ _L119828_) + (___kont128875128876_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128613128614_)))) - (___kont128613128614_))))))) + (___kont128875128876_)))) + (___kont128875128876_))))))) (let () (declare (not safe)) - (_loop119492119538_ _target119489119533_ '())))))) + (_loop119754119800_ _target119751119795_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128607128608_)) - (let ((_e119485119517_ + (gx#stx-pair? ___stx128869128870_)) + (let ((_e119747119779_ (let () (declare (not safe)) - (gx#stx-e ___stx128607128608_)))) - (let ((_tl119483119522_ + (gx#stx-e ___stx128869128870_)))) + (let ((_tl119745119784_ (let () (declare (not safe)) - (##cdr _e119485119517_))) - (_hd119484119520_ + (##cdr _e119747119779_))) + (_hd119746119782_ (let () (declare (not safe)) - (##car _e119485119517_)))) + (##car _e119747119779_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119483119522_)) - (let ((_e119488119525_ + (gx#stx-pair? _tl119745119784_)) + (let ((_e119750119787_ (let () (declare (not safe)) - (gx#stx-e _tl119483119522_)))) - (let ((_tl119486119530_ + (gx#stx-e _tl119745119784_)))) + (let ((_tl119748119792_ (let () (declare (not safe)) - (##cdr _e119488119525_))) - (_hd119487119528_ + (##cdr _e119750119787_))) + (_hd119749119790_ (let () (declare (not safe)) - (##car _e119488119525_)))) + (##car _e119750119787_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd119487119528_)) - (let ((___splice128611128612_ + (gx#stx-pair/null? _hd119749119790_)) + (let ((___splice128873128874_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd119487119528_ + _hd119749119790_ '0)))) - (let ((_tl119491119535_ + (let ((_tl119753119797_ (let () (declare (not safe)) (##vector-ref - ___splice128611128612_ + ___splice128873128874_ '1))) - (_target119489119533_ + (_target119751119795_ (let () (declare (not safe)) (##vector-ref - ___splice128611128612_ + ___splice128873128874_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119491119535_)) - (___match128634128635_ - _e119485119517_ - _hd119484119520_ - _tl119483119522_ - _e119488119525_ - _hd119487119528_ - _tl119486119530_ - ___splice128611128612_ - _target119489119533_ - _tl119491119535_) - (___kont128613128614_)))) - (___kont128613128614_)))) - (___kont128613128614_)))) - (___kont128613128614_)))))))) + (gx#stx-null? _tl119753119797_)) + (___match128896128897_ + _e119747119779_ + _hd119746119782_ + _tl119745119784_ + _e119750119787_ + _hd119749119790_ + _tl119748119792_ + ___splice128873128874_ + _target119751119795_ + _tl119753119797_) + (___kont128875128876_)))) + (___kont128875128876_)))) + (___kont128875128876_)))) + (___kont128875128876_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx118615_) - (letrec* ((_bind-e__126730126731_ - (lambda (_id119455_ _expr119456_ _compile?119457_) - (let ((__tmp129144 + (lambda (_stx118877_) + (letrec* ((_bind-e__126992126993_ + (lambda (_id119717_ _expr119718_ _compile?119719_) + (let ((__tmp129406 (let () (declare (not safe)) - (cons _id119455_ '()))) - (__tmp129142 - (let ((__tmp129143 - (if _compile?119457_ + (cons _id119717_ '()))) + (__tmp129404 + (let ((__tmp129405 + (if _compile?119719_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr119456_)) - _expr119456_))) + (gxc#compile-e__0 _expr119718_)) + _expr119718_))) (declare (not safe)) - (cons __tmp129143 '())))) + (cons __tmp129405 '())))) (declare (not safe)) - (cons __tmp129144 __tmp129142)))) - (_bind-e__0__126732126733_ - (lambda (_id119462_ _expr119463_) - (let ((_compile?119465_ '#t)) + (cons __tmp129406 __tmp129404)))) + (_bind-e__0__126994126995_ + (lambda (_id119724_ _expr119725_) + (let ((_compile?119727_ '#t)) (declare (not safe)) - (_bind-e__126730126731_ - _id119462_ - _expr119463_ - _compile?119465_)))) - (_bind-e118617_ - (lambda _g129146_ - (let ((_g129145_ + (_bind-e__126992126993_ + _id119724_ + _expr119725_ + _compile?119727_)))) + (_bind-e118879_ + (lambda _g129408_ + (let ((_g129407_ (let () (declare (not safe)) - (##length _g129146_)))) - (cond ((let () (declare (not safe)) (##fx= _g129145_ 2)) - (apply (lambda (_id119462_ _expr119463_) + (##length _g129408_)))) + (cond ((let () (declare (not safe)) (##fx= _g129407_ 2)) + (apply (lambda (_id119724_ _expr119725_) (let () (declare (not safe)) - (_bind-e__0__126732126733_ - _id119462_ - _expr119463_))) - _g129146_)) - ((let () (declare (not safe)) (##fx= _g129145_ 3)) - (apply (lambda (_id119467_ - _expr119468_ - _compile?119469_) + (_bind-e__0__126994126995_ + _id119724_ + _expr119725_))) + _g129408_)) + ((let () (declare (not safe)) (##fx= _g129407_ 3)) + (apply (lambda (_id119729_ + _expr119730_ + _compile?119731_) (let () (declare (not safe)) - (_bind-e__126730126731_ - _id119467_ - _expr119468_ - _compile?119469_))) - _g129146_)) + (_bind-e__126992126993_ + _id119729_ + _expr119730_ + _compile?119731_))) + _g129408_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129146_)))))) - (_compile-bindings118618_ - (lambda (_rest118753_) - (let _lp118755_ ((_rest118757_ _rest118753_) - (_bind118758_ '())) - (let* ((_rest118759118767_ _rest118757_) - (_else118761118775_ - (lambda () (reverse _bind118758_))) - (_K118763119442_ - (lambda (_rest118778_ _hd118779_) - (let* ((___stx128657128658_ _hd118779_) - (_g118784118831_ + _g129408_)))))) + (_compile-bindings118880_ + (lambda (_rest119015_) + (let _lp119017_ ((_rest119019_ _rest119015_) + (_bind119020_ '())) + (let* ((_rest119021119029_ _rest119019_) + (_else119023119037_ + (lambda () (reverse _bind119020_))) + (_K119025119704_ + (lambda (_rest119040_ _hd119041_) + (let* ((___stx128919128920_ _hd119041_) + (_g119046119093_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128657128658_))))) - (let ((___kont128659128660_ - (lambda (_L119349_ _L119350_) - (let* ((___stx128637128638_ - _L119349_) - (_g119365119379_ + ___stx128919128920_))))) + (let ((___kont128921128922_ + (lambda (_L119611_ _L119612_) + (let* ((___stx128899128900_ + _L119611_) + (_g119627119641_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128637128638_))))) - (let ((___kont128639128640_ - (lambda (_L119427_) - (let ((__tmp129147 - (let ((__tmp129148 + ___stx128899128900_))))) + (let ((___kont128901128902_ + (lambda (_L119689_) + (let ((__tmp129409 + (let ((__tmp129410 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126730126731_ - _L119350_ - _L119349_ + (_bind-e__126992126993_ + _L119612_ + _L119611_ '#f)))) (declare (not safe)) - (cons __tmp129148 _bind118758_)))) + (cons __tmp129410 _bind119020_)))) (declare (not safe)) - (_lp118755_ _rest118778_ __tmp129147)))) + (_lp119017_ _rest119040_ __tmp129409)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128641128642_ - (lambda (_L119392_) - (let ((_g129149_ + (___kont128903128904_ + (lambda (_L119654_) + (let ((_g129411_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx118615_ - _L119350_ - _L119392_ + _stx118877_ + _L119612_ + _L119654_ '#t)))) (begin - (let ((_g129150_ + (let ((_g129412_ (let () (declare (not safe)) - (if (##values? _g129149_) - (##vector-length _g129149_) + (if (##values? _g129411_) + (##vector-length _g129411_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129150_ 3))) - (error "Context expects 3 values" _g129150_))) - (let ((_ids119402_ + (##fx= _g129412_ 3))) + (error "Context expects 3 values" _g129412_))) + (let ((_ids119664_ (let () (declare (not safe)) - (##vector-ref _g129149_ 0))) - (_impls119403_ + (##vector-ref _g129411_ 0))) + (_impls119665_ (let () (declare (not safe)) - (##vector-ref _g129149_ 1))) - (_clauses119404_ + (##vector-ref _g129411_ 1))) + (_clauses119666_ (let () (declare (not safe)) - (##vector-ref _g129149_ 2)))) - (let* ((_g129151_ - (for-each gx#core-bind-runtime! _ids119402_)) - (_xbind119407_ - (map _bind-e118617_ _ids119402_ _impls119403_)) - (_expr*119409_ - (let ((__tmp129153 + (##vector-ref _g129411_ 2)))) + (let* ((_g129413_ + (for-each gx#core-bind-runtime! _ids119664_)) + (_xbind119669_ + (map _bind-e118879_ _ids119664_ _impls119665_)) + (_expr*119671_ + (let ((__tmp129415 (let () (declare (not safe)) - (cons '%#case-lambda _clauses119404_))) - (__tmp129152 + (cons '%#case-lambda _clauses119666_))) + (__tmp129414 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14358,1134 +14358,1134 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129153 - __tmp129152))) - (_bind*119411_ + __tmp129415 + __tmp129414))) + (_bind*119673_ (let () (declare (not safe)) - (_bind-e__126730126731_ - _L119350_ - _expr*119409_ + (_bind-e__126992126993_ + _L119612_ + _expr*119671_ '#f)))) - (let ((__tmp129155 + (let ((__tmp129417 (let () (declare (not safe)) - (gxc#identifier-symbol _L119350_))) - (__tmp129154 - (map gxc#identifier-symbol _ids119402_))) + (gxc#identifier-symbol _L119612_))) + (__tmp129416 + (map gxc#identifier-symbol _ids119664_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp129155 + __tmp129417 '" => " - __tmp129154)) - (let ((__tmp129156 - (let ((__tmp129157 + __tmp129416)) + (let ((__tmp129418 + (let ((__tmp129419 (let () (declare (not safe)) (foldl1 cons - _bind118758_ - _xbind119407_)))) + _bind119020_ + _xbind119669_)))) (declare (not safe)) - (cons _bind*119411_ __tmp129157)))) + (cons _bind*119673_ __tmp129419)))) (declare (not safe)) - (_lp118755_ _rest118778_ __tmp129156))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match128648128649_ - (lambda (_e119370119419_ - _hd119369119422_ - _tl119368119424_) - (let ((_L119427_ - _tl119368119424_)) + (_lp119017_ _rest119040_ __tmp129418))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match128910128911_ + (lambda (_e119632119681_ + _hd119631119684_ + _tl119630119686_) + (let ((_L119689_ + _tl119630119686_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L119427_)) - (___kont128639128640_ _L119427_) - (___kont128641128642_ _tl119368119424_)))))) + (andmap1 gxc#dispatch-lambda-form? _L119689_)) + (___kont128901128902_ _L119689_) + (___kont128903128904_ _tl119630119686_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128637128638_)) - (let ((_e119370119419_ + ___stx128899128900_)) + (let ((_e119632119681_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx128637128638_)))) - (let ((_tl119368119424_ - (let () (declare (not safe)) (##cdr _e119370119419_))) - (_hd119369119422_ - (let () (declare (not safe)) (##car _e119370119419_)))) - (___match128648128649_ - _e119370119419_ - _hd119369119422_ - _tl119368119424_))) - (let () (declare (not safe)) (_g119365119379_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128661128662_ - (lambda (_L119177_ _L119178_) - (let* ((_g119192119222_ - (lambda (_g119193119219_) + (gx#stx-e ___stx128899128900_)))) + (let ((_tl119630119686_ + (let () (declare (not safe)) (##cdr _e119632119681_))) + (_hd119631119684_ + (let () (declare (not safe)) (##car _e119632119681_)))) + (___match128910128911_ + _e119632119681_ + _hd119631119684_ + _tl119630119686_))) + (let () (declare (not safe)) (_g119627119641_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128923128924_ + (lambda (_L119439_ _L119440_) + (let* ((_g119454119484_ + (lambda (_g119455119481_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g119193119219_)))) - (_g119191119317_ - (lambda (_g119193119225_) + _g119455119481_)))) + (_g119453119579_ + (lambda (_g119455119487_) (if (let () (declare (not safe)) (gx#stx-pair? - _g119193119225_)) - (let ((_e119199119227_ + _g119455119487_)) + (let ((_e119461119489_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g119193119225_)))) - (let ((_hd119198119230_ + (gx#stx-e _g119455119487_)))) + (let ((_hd119460119492_ (let () (declare (not safe)) - (##car _e119199119227_))) - (_tl119197119232_ + (##car _e119461119489_))) + (_tl119459119494_ (let () (declare (not safe)) - (##cdr _e119199119227_)))) + (##cdr _e119461119489_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119197119232_)) - (let ((_e119202119235_ + (gx#stx-pair? _tl119459119494_)) + (let ((_e119464119497_ (let () (declare (not safe)) - (gx#stx-e _tl119197119232_)))) - (let ((_hd119201119238_ + (gx#stx-e _tl119459119494_)))) + (let ((_hd119463119500_ (let () (declare (not safe)) - (##car _e119202119235_))) - (_tl119200119240_ + (##car _e119464119497_))) + (_tl119462119502_ (let () (declare (not safe)) - (##cdr _e119202119235_)))) + (##cdr _e119464119497_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119201119238_)) - (let ((_e119205119243_ + (gx#stx-pair? _hd119463119500_)) + (let ((_e119467119505_ (let () (declare (not safe)) - (gx#stx-e _hd119201119238_)))) - (let ((_hd119204119246_ + (gx#stx-e _hd119463119500_)))) + (let ((_hd119466119508_ (let () (declare (not safe)) - (##car _e119205119243_))) - (_tl119203119248_ + (##car _e119467119505_))) + (_tl119465119510_ (let () (declare (not safe)) - (##cdr _e119205119243_)))) + (##cdr _e119467119505_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119204119246_)) - (let ((_e119208119251_ + (gx#stx-pair? _hd119466119508_)) + (let ((_e119470119513_ (let () (declare (not safe)) (gx#stx-e - _hd119204119246_)))) - (let ((_hd119207119254_ + _hd119466119508_)))) + (let ((_hd119469119516_ (let () (declare (not safe)) - (##car _e119208119251_))) - (_tl119206119256_ + (##car _e119470119513_))) + (_tl119468119518_ (let () (declare (not safe)) - (##cdr _e119208119251_)))) + (##cdr _e119470119513_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119207119254_)) - (let ((_e119211119259_ + _hd119469119516_)) + (let ((_e119473119521_ (let () (declare (not safe)) (gx#stx-e - _hd119207119254_)))) - (let ((_hd119210119262_ + _hd119469119516_)))) + (let ((_hd119472119524_ (let () (declare (not safe)) - (##car _e119211119259_))) - (_tl119209119264_ + (##car _e119473119521_))) + (_tl119471119526_ (let () (declare (not safe)) - (##cdr _e119211119259_)))) + (##cdr _e119473119521_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119209119264_)) + _tl119471119526_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl119206119256_)) - (let ((_e119214119267_ + (gx#stx-pair? _tl119468119518_)) + (let ((_e119476119529_ (let () (declare (not safe)) - (gx#stx-e _tl119206119256_)))) - (let ((_hd119213119270_ + (gx#stx-e _tl119468119518_)))) + (let ((_hd119475119532_ (let () (declare (not safe)) - (##car _e119214119267_))) - (_tl119212119272_ + (##car _e119476119529_))) + (_tl119474119534_ (let () (declare (not safe)) - (##cdr _e119214119267_)))) + (##cdr _e119476119529_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119212119272_)) + (gx#stx-null? _tl119474119534_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl119203119248_)) + (gx#stx-null? _tl119465119510_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119200119240_)) - (let ((_e119217119275_ + (gx#stx-pair? _tl119462119502_)) + (let ((_e119479119537_ (let () (declare (not safe)) - (gx#stx-e _tl119200119240_)))) - (let ((_hd119216119278_ + (gx#stx-e _tl119462119502_)))) + (let ((_hd119478119540_ (let () (declare (not safe)) - (##car _e119217119275_))) - (_tl119215119280_ + (##car _e119479119537_))) + (_tl119477119542_ (let () (declare (not safe)) - (##cdr _e119217119275_)))) + (##cdr _e119479119537_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119215119280_)) - ((lambda (_L119283_ - _L119284_ - _L119285_) - (let* ((_lambda-id119309_ - (let ((__tmp129159 + _tl119477119542_)) + ((lambda (_L119545_ + _L119546_ + _L119547_) + (let* ((_lambda-id119571_ + (let ((__tmp129421 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L119178_))) - (__tmp129158 (gensym '__))) + (gx#stx-e _L119440_))) + (__tmp129420 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp129159 __tmp129158))) - (_lambda-id119311_ - (let ((__tmp129160 + (make-symbol__1 __tmp129421 __tmp129420))) + (_lambda-id119573_ + (let ((__tmp129422 (let () (declare (not safe)) - (gx#stx-source _stx118615_)))) + (gx#stx-source _stx118877_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id119309_ __tmp129160))) - (_g129161_ + (gx#core-quote-syntax__1 _lambda-id119571_ __tmp129422))) + (_g129423_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id119311_))) - (_new-case-lambda-expr119314_ + (gx#core-bind-runtime!__0 _lambda-id119573_))) + (_new-case-lambda-expr119576_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119283_ - _L119285_ - _lambda-id119311_)))) + _L119545_ + _L119547_ + _lambda-id119573_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp129163 + (let ((__tmp129425 (let () (declare (not safe)) (gxc#identifier-symbol - _L119178_))) - (__tmp129162 + _L119440_))) + (__tmp129424 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id119311_)))) + _lambda-id119573_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129163 + __tmp129425 '" => " - __tmp129162)) - (let ((__tmp129166 - (let ((__tmp129167 + __tmp129424)) + (let ((__tmp129428 + (let ((__tmp129429 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126730126731_ - _L119178_ - _new-case-lambda-expr119314_ + (_bind-e__126992126993_ + _L119440_ + _new-case-lambda-expr119576_ '#f)))) (declare (not safe)) - (cons __tmp129167 _rest118778_))) - (__tmp129164 - (let ((__tmp129165 + (cons __tmp129429 _rest119040_))) + (__tmp129426 + (let ((__tmp129427 (let () (declare (not safe)) - (_bind-e__0__126732126733_ - _lambda-id119311_ - _L119284_)))) + (_bind-e__0__126994126995_ + _lambda-id119573_ + _L119546_)))) (declare (not safe)) - (cons __tmp129165 _bind118758_)))) + (cons __tmp129427 _bind119020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp118755_ - __tmp129166 - __tmp129164)))) - _hd119216119278_ - _hd119213119270_ - _hd119210119262_) + (_lp119017_ + __tmp129428 + __tmp129426)))) + _hd119478119540_ + _hd119475119532_ + _hd119472119524_) (let () (declare (not safe)) - (_g119192119222_ - _g119193119225_))))) + (_g119454119484_ + _g119455119487_))))) (let () (declare (not safe)) - (_g119192119222_ _g119193119225_))) + (_g119454119484_ _g119455119487_))) (let () (declare (not safe)) - (_g119192119222_ _g119193119225_))) + (_g119454119484_ _g119455119487_))) (let () (declare (not safe)) - (_g119192119222_ _g119193119225_))))) + (_g119454119484_ _g119455119487_))))) (let () (declare (not safe)) - (_g119192119222_ _g119193119225_))) + (_g119454119484_ _g119455119487_))) (let () (declare (not safe)) - (_g119192119222_ _g119193119225_))))) + (_g119454119484_ _g119455119487_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119192119222_ - _g119193119225_))))) + (_g119454119484_ + _g119455119487_))))) (let () (declare (not safe)) - (_g119192119222_ - _g119193119225_))))) + (_g119454119484_ + _g119455119487_))))) (let () (declare (not safe)) - (_g119192119222_ _g119193119225_))))) + (_g119454119484_ _g119455119487_))))) (let () (declare (not safe)) - (_g119192119222_ _g119193119225_))))) + (_g119454119484_ _g119455119487_))))) (let () (declare (not safe)) - (_g119192119222_ _g119193119225_)))))) + (_g119454119484_ _g119455119487_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g119191119317_ _L119177_)))) - (___kont128663128664_ - (lambda (_L118901_ _L118902_) - (let* ((_g118916118969_ - (lambda (_g118917118966_) + (_g119453119579_ _L119439_)))) + (___kont128925128926_ + (lambda (_L119163_ _L119164_) + (let* ((_g119178119231_ + (lambda (_g119179119228_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118917118966_)))) - (_g118915119145_ - (lambda (_g118917118972_) + _g119179119228_)))) + (_g119177119407_ + (lambda (_g119179119234_) (if (let () (declare (not safe)) (gx#stx-pair? - _g118917118972_)) - (let ((_e118925118974_ + _g119179119234_)) + (let ((_e119187119236_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g118917118972_)))) - (let ((_hd118924118977_ + (gx#stx-e _g119179119234_)))) + (let ((_hd119186119239_ (let () (declare (not safe)) - (##car _e118925118974_))) - (_tl118923118979_ + (##car _e119187119236_))) + (_tl119185119241_ (let () (declare (not safe)) - (##cdr _e118925118974_)))) + (##cdr _e119187119236_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118923118979_)) - (let ((_e118928118982_ + (gx#stx-pair? _tl119185119241_)) + (let ((_e119190119244_ (let () (declare (not safe)) - (gx#stx-e _tl118923118979_)))) - (let ((_hd118927118985_ + (gx#stx-e _tl119185119241_)))) + (let ((_hd119189119247_ (let () (declare (not safe)) - (##car _e118928118982_))) - (_tl118926118987_ + (##car _e119190119244_))) + (_tl119188119249_ (let () (declare (not safe)) - (##cdr _e118928118982_)))) + (##cdr _e119190119244_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118927118985_)) - (let ((_e118931118990_ + (gx#stx-pair? _hd119189119247_)) + (let ((_e119193119252_ (let () (declare (not safe)) - (gx#stx-e _hd118927118985_)))) - (let ((_hd118930118993_ + (gx#stx-e _hd119189119247_)))) + (let ((_hd119192119255_ (let () (declare (not safe)) - (##car _e118931118990_))) - (_tl118929118995_ + (##car _e119193119252_))) + (_tl119191119257_ (let () (declare (not safe)) - (##cdr _e118931118990_)))) + (##cdr _e119193119252_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118930118993_)) - (let ((_e118934118998_ + (gx#stx-pair? _hd119192119255_)) + (let ((_e119196119260_ (let () (declare (not safe)) (gx#stx-e - _hd118930118993_)))) - (let ((_hd118933119001_ + _hd119192119255_)))) + (let ((_hd119195119263_ (let () (declare (not safe)) - (##car _e118934118998_))) - (_tl118932119003_ + (##car _e119196119260_))) + (_tl119194119265_ (let () (declare (not safe)) - (##cdr _e118934118998_)))) + (##cdr _e119196119260_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118933119001_)) - (let ((_e118937119006_ + _hd119195119263_)) + (let ((_e119199119268_ (let () (declare (not safe)) (gx#stx-e - _hd118933119001_)))) - (let ((_hd118936119009_ + _hd119195119263_)))) + (let ((_hd119198119271_ (let () (declare (not safe)) - (##car _e118937119006_))) - (_tl118935119011_ + (##car _e119199119268_))) + (_tl119197119273_ (let () (declare (not safe)) - (##cdr _e118937119006_)))) + (##cdr _e119199119268_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118935119011_)) + _tl119197119273_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl118932119003_)) - (let ((_e118940119014_ + (gx#stx-pair? _tl119194119265_)) + (let ((_e119202119276_ (let () (declare (not safe)) - (gx#stx-e _tl118932119003_)))) - (let ((_hd118939119017_ + (gx#stx-e _tl119194119265_)))) + (let ((_hd119201119279_ (let () (declare (not safe)) - (##car _e118940119014_))) - (_tl118938119019_ + (##car _e119202119276_))) + (_tl119200119281_ (let () (declare (not safe)) - (##cdr _e118940119014_)))) + (##cdr _e119202119276_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118939119017_)) - (let ((_e118943119022_ + (gx#stx-pair? _hd119201119279_)) + (let ((_e119205119284_ (let () (declare (not safe)) - (gx#stx-e _hd118939119017_)))) - (let ((_hd118942119025_ + (gx#stx-e _hd119201119279_)))) + (let ((_hd119204119287_ (let () (declare (not safe)) - (##car _e118943119022_))) - (_tl118941119027_ + (##car _e119205119284_))) + (_tl119203119289_ (let () (declare (not safe)) - (##cdr _e118943119022_)))) + (##cdr _e119205119284_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118941119027_)) - (let ((_e118946119030_ + (gx#stx-pair? _tl119203119289_)) + (let ((_e119208119292_ (let () (declare (not safe)) - (gx#stx-e _tl118941119027_)))) - (let ((_hd118945119033_ + (gx#stx-e _tl119203119289_)))) + (let ((_hd119207119295_ (let () (declare (not safe)) - (##car _e118946119030_))) - (_tl118944119035_ + (##car _e119208119292_))) + (_tl119206119297_ (let () (declare (not safe)) - (##cdr _e118946119030_)))) + (##cdr _e119208119292_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118945119033_)) - (let ((_e118949119038_ + _hd119207119295_)) + (let ((_e119211119300_ (let () (declare (not safe)) (gx#stx-e - _hd118945119033_)))) - (let ((_hd118948119041_ + _hd119207119295_)))) + (let ((_hd119210119303_ (let () (declare (not safe)) - (##car _e118949119038_))) - (_tl118947119043_ + (##car _e119211119300_))) + (_tl119209119305_ (let () (declare (not safe)) - (##cdr _e118949119038_)))) + (##cdr _e119211119300_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118948119041_)) - (let ((_e118952119046_ + _hd119210119303_)) + (let ((_e119214119308_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd118948119041_)))) - (let ((_hd118951119049_ - (let () (declare (not safe)) (##car _e118952119046_))) - (_tl118950119051_ - (let () (declare (not safe)) (##cdr _e118952119046_)))) + (gx#stx-e _hd119210119303_)))) + (let ((_hd119213119311_ + (let () (declare (not safe)) (##car _e119214119308_))) + (_tl119212119313_ + (let () (declare (not safe)) (##cdr _e119214119308_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118951119049_)) - (let ((_e118955119054_ + (gx#stx-pair? _hd119213119311_)) + (let ((_e119217119316_ (let () (declare (not safe)) - (gx#stx-e _hd118951119049_)))) - (let ((_hd118954119057_ + (gx#stx-e _hd119213119311_)))) + (let ((_hd119216119319_ (let () (declare (not safe)) - (##car _e118955119054_))) - (_tl118953119059_ + (##car _e119217119316_))) + (_tl119215119321_ (let () (declare (not safe)) - (##cdr _e118955119054_)))) + (##cdr _e119217119316_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118953119059_)) + (gx#stx-null? _tl119215119321_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118950119051_)) - (let ((_e118958119062_ + (gx#stx-pair? _tl119212119313_)) + (let ((_e119220119324_ (let () (declare (not safe)) - (gx#stx-e _tl118950119051_)))) - (let ((_hd118957119065_ + (gx#stx-e _tl119212119313_)))) + (let ((_hd119219119327_ (let () (declare (not safe)) - (##car _e118958119062_))) - (_tl118956119067_ + (##car _e119220119324_))) + (_tl119218119329_ (let () (declare (not safe)) - (##cdr _e118958119062_)))) + (##cdr _e119220119324_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118956119067_)) + (gx#stx-null? _tl119218119329_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl118947119043_)) + _tl119209119305_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118944119035_)) - (let ((_e118961119070_ + _tl119206119297_)) + (let ((_e119223119332_ (let () (declare (not safe)) (gx#stx-e - _tl118944119035_)))) - (let ((_hd118960119073_ + _tl119206119297_)))) + (let ((_hd119222119335_ (let () (declare (not safe)) - (##car _e118961119070_))) - (_tl118959119075_ + (##car _e119223119332_))) + (_tl119221119337_ (let () (declare (not safe)) - (##cdr _e118961119070_)))) + (##cdr _e119223119332_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118959119075_)) + _tl119221119337_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl118938119019_)) + (gx#stx-null? _tl119200119281_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl118929118995_)) + (gx#stx-null? _tl119191119257_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118926118987_)) - (let ((_e118964119078_ + (gx#stx-pair? _tl119188119249_)) + (let ((_e119226119340_ (let () (declare (not safe)) - (gx#stx-e _tl118926118987_)))) - (let ((_hd118963119081_ + (gx#stx-e _tl119188119249_)))) + (let ((_hd119225119343_ (let () (declare (not safe)) - (##car _e118964119078_))) - (_tl118962119083_ + (##car _e119226119340_))) + (_tl119224119345_ (let () (declare (not safe)) - (##cdr _e118964119078_)))) + (##cdr _e119226119340_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118962119083_)) - ((lambda (_L119086_ - _L119087_ - _L119088_ - _L119089_ - _L119090_) - (let* ((_get-kws-id119130_ - (let ((__tmp129169 + (gx#stx-null? _tl119224119345_)) + ((lambda (_L119348_ + _L119349_ + _L119350_ + _L119351_ + _L119352_) + (let* ((_get-kws-id119392_ + (let ((__tmp129431 (let () (declare (not safe)) (gx#stx-e - _L118902_))) - (__tmp129168 + _L119164_))) + (__tmp129430 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129169 - __tmp129168))) - (_get-kws-id119132_ - (let ((__tmp129170 + __tmp129431 + __tmp129430))) + (_get-kws-id119394_ + (let ((__tmp129432 (let () (declare (not safe)) (gx#stx-source - _stx118615_)))) + _stx118877_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id119130_ - __tmp129170))) - (_main-id119134_ - (let ((__tmp129172 + _get-kws-id119392_ + __tmp129432))) + (_main-id119396_ + (let ((__tmp129434 (let () (declare (not safe)) (gx#stx-e - _L118902_))) - (__tmp129171 + _L119164_))) + (__tmp129433 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129172 - __tmp129171))) - (_main-id119136_ - (let ((__tmp129173 + __tmp129434 + __tmp129433))) + (_main-id119398_ + (let ((__tmp129435 (let () (declare (not safe)) (gx#stx-source - _stx118615_)))) + _stx118877_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id119134_ - __tmp129173))) - (_g129174_ + _main-id119396_ + __tmp129435))) + (_g129436_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id119132_))) - (_g129175_ + _get-kws-id119394_))) + (_g129437_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id119136_))) - (_new-kw-dispatch119140_ + _main-id119398_))) + (_new-kw-dispatch119402_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119086_ - _L119090_ - _get-kws-id119132_))) - (_new-get-kws119142_ + _L119348_ + _L119352_ + _get-kws-id119394_))) + (_new-get-kws119404_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119087_ - _L119089_ - _main-id119136_)))) - (let ((__tmp129178 + _L119349_ + _L119351_ + _main-id119398_)))) + (let ((__tmp129440 (let () (declare (not safe)) (gxc#identifier-symbol - _L118902_))) - (__tmp129177 + _L119164_))) + (__tmp129439 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id119132_))) - (__tmp129176 + _get-kws-id119394_))) + (__tmp129438 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id119136_)))) + _main-id119398_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129178 + __tmp129440 '" => " - __tmp129177 + __tmp129439 '" => " - __tmp129176)) - (let ((__tmp129179 - (let ((__tmp129184 + __tmp129438)) + (let ((__tmp129441 + (let ((__tmp129446 (let () (declare (not safe)) - (_bind-e__126730126731_ - _main-id119136_ - _L119088_ + (_bind-e__126992126993_ + _main-id119398_ + _L119350_ '#f))) - (__tmp129180 - (let ((__tmp129183 + (__tmp129442 + (let ((__tmp129445 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__126730126731_ - _get-kws-id119132_ - _new-get-kws119142_ + (_bind-e__126992126993_ + _get-kws-id119394_ + _new-get-kws119404_ '#f))) - (__tmp129181 - (let ((__tmp129182 + (__tmp129443 + (let ((__tmp129444 (let () (declare (not safe)) - (_bind-e__126730126731_ - _L118902_ - _new-kw-dispatch119140_ + (_bind-e__126992126993_ + _L119164_ + _new-kw-dispatch119402_ '#f)))) (declare (not safe)) - (cons __tmp129182 _rest118778_)))) + (cons __tmp129444 _rest119040_)))) (declare (not safe)) - (cons __tmp129183 __tmp129181)))) + (cons __tmp129445 __tmp129443)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129184 - __tmp129180)))) + (cons __tmp129446 + __tmp129442)))) (declare (not safe)) - (_lp118755_ - __tmp129179 - _bind118758_)))) - _hd118963119081_ - _hd118960119073_ - _hd118957119065_ - _hd118954119057_ - _hd118936119009_) + (_lp119017_ + __tmp129441 + _bind119020_)))) + _hd119225119343_ + _hd119222119335_ + _hd119219119327_ + _hd119216119319_ + _hd119198119271_) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))) + (_g119178119231_ _g119179119234_))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))) + (_g119178119231_ _g119179119234_))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))) + (_g119178119231_ _g119179119234_))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118916118969_ - _g118917118972_))) + (_g119178119231_ + _g119179119234_))) (let () (declare (not safe)) - (_g118916118969_ - _g118917118972_))) + (_g119178119231_ + _g119179119234_))) (let () (declare (not safe)) - (_g118916118969_ - _g118917118972_))))) + (_g119178119231_ + _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))) + (_g119178119231_ _g119179119234_))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118916118969_ - _g118917118972_))))) + (_g119178119231_ + _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))) + (_g119178119231_ _g119179119234_))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118916118969_ - _g118917118972_))))) + (_g119178119231_ + _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ - _g118917118972_))))) + (_g119178119231_ + _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_))))) + (_g119178119231_ _g119179119234_))))) (let () (declare (not safe)) - (_g118916118969_ _g118917118972_)))))) + (_g119178119231_ _g119179119234_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g118915119145_ _L118901_)))) - (___kont128665128666_ - (lambda (_L118852_ _L118853_) - (let ((__tmp129185 - (let ((__tmp129186 - (let ((__tmp129187 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129188 + (_g119177119407_ _L119163_)))) + (___kont128927128928_ + (lambda (_L119114_ _L119115_) + (let ((__tmp129447 + (let ((__tmp129448 + (let ((__tmp129449 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129450 (let () (declare (not safe)) - (gxc#compile-e__0 _L118852_)))) + (gxc#compile-e__0 _L119114_)))) (declare (not safe)) - (cons __tmp129188 '())))) + (cons __tmp129450 '())))) (declare (not safe)) - (cons _L118853_ __tmp129187)))) + (cons _L119115_ __tmp129449)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129186 - _bind118758_)))) + (cons __tmp129448 + _bind119020_)))) (declare (not safe)) - (_lp118755_ - _rest118778_ - __tmp129185))))) - (let* ((___match128732128733_ - (lambda (_e118812118877_ - _hd118811118880_ - _tl118810118882_ - _e118815118885_ - _hd118814118888_ - _tl118813118890_ - _e118818118893_ - _hd118817118896_ - _tl118816118898_) - (let ((_L118901_ - _hd118817118896_) - (_L118902_ - _hd118814118888_)) + (_lp119017_ + _rest119040_ + __tmp129447))))) + (let* ((___match128994128995_ + (lambda (_e119074119139_ + _hd119073119142_ + _tl119072119144_ + _e119077119147_ + _hd119076119150_ + _tl119075119152_ + _e119080119155_ + _hd119079119158_ + _tl119078119160_) + (let ((_L119163_ + _hd119079119158_) + (_L119164_ + _hd119076119150_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L118902_)) + _L119164_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L118901_))) - (___kont128663128664_ - _L118901_ - _L118902_) - (___kont128665128666_ - _hd118817118896_ - _hd118811118880_))))) - (___match128710128711_ - (lambda (_e118801119153_ - _hd118800119156_ - _tl118799119158_ - _e118804119161_ - _hd118803119164_ - _tl118802119166_ - _e118807119169_ - _hd118806119172_ - _tl118805119174_) - (let ((_L119177_ - _hd118806119172_) - (_L119178_ - _hd118803119164_)) + _L119163_))) + (___kont128925128926_ + _L119163_ + _L119164_) + (___kont128927128928_ + _hd119079119158_ + _hd119073119142_))))) + (___match128972128973_ + (lambda (_e119063119415_ + _hd119062119418_ + _tl119061119420_ + _e119066119423_ + _hd119065119426_ + _tl119064119428_ + _e119069119431_ + _hd119068119434_ + _tl119067119436_) + (let ((_L119439_ + _hd119068119434_) + (_L119440_ + _hd119065119426_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119178_)) + _L119440_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L119177_))) - (___kont128661128662_ - _L119177_ - _L119178_) - (___match128732128733_ - _e118801119153_ - _hd118800119156_ - _tl118799119158_ - _e118804119161_ - _hd118803119164_ - _tl118802119166_ - _e118807119169_ - _hd118806119172_ - _tl118805119174_))))) - (___match128688128689_ - (lambda (_e118790119325_ - _hd118789119328_ - _tl118788119330_ - _e118793119333_ - _hd118792119336_ - _tl118791119338_ - _e118796119341_ - _hd118795119344_ - _tl118794119346_) - (let ((_L119349_ - _hd118795119344_) - (_L119350_ - _hd118792119336_)) + _L119439_))) + (___kont128923128924_ + _L119439_ + _L119440_) + (___match128994128995_ + _e119063119415_ + _hd119062119418_ + _tl119061119420_ + _e119066119423_ + _hd119065119426_ + _tl119064119428_ + _e119069119431_ + _hd119068119434_ + _tl119067119436_))))) + (___match128950128951_ + (lambda (_e119052119587_ + _hd119051119590_ + _tl119050119592_ + _e119055119595_ + _hd119054119598_ + _tl119053119600_ + _e119058119603_ + _hd119057119606_ + _tl119056119608_) + (let ((_L119611_ + _hd119057119606_) + (_L119612_ + _hd119054119598_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119350_)) + _L119612_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L119349_))) - (___kont128659128660_ - _L119349_ - _L119350_) - (___match128710128711_ - _e118790119325_ - _hd118789119328_ - _tl118788119330_ - _e118793119333_ - _hd118792119336_ - _tl118791119338_ - _e118796119341_ - _hd118795119344_ - _tl118794119346_)))))) + _L119611_))) + (___kont128921128922_ + _L119611_ + _L119612_) + (___match128972128973_ + _e119052119587_ + _hd119051119590_ + _tl119050119592_ + _e119055119595_ + _hd119054119598_ + _tl119053119600_ + _e119058119603_ + _hd119057119606_ + _tl119056119608_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128657128658_)) - (let ((_e118790119325_ + ___stx128919128920_)) + (let ((_e119052119587_ (let () (declare (not safe)) (gx#stx-e - ___stx128657128658_)))) - (let ((_tl118788119330_ + ___stx128919128920_)))) + (let ((_tl119050119592_ (let () (declare (not safe)) - (##cdr _e118790119325_))) - (_hd118789119328_ + (##cdr _e119052119587_))) + (_hd119051119590_ (let () (declare (not safe)) - (##car _e118790119325_)))) + (##car _e119052119587_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118789119328_)) - (let ((_e118793119333_ + _hd119051119590_)) + (let ((_e119055119595_ (let () (declare (not safe)) (gx#stx-e - _hd118789119328_)))) - (let ((_tl118791119338_ + _hd119051119590_)))) + (let ((_tl119053119600_ (let () (declare (not safe)) - (##cdr _e118793119333_))) - (_hd118792119336_ + (##cdr _e119055119595_))) + (_hd119054119598_ (let () (declare (not safe)) - (##car _e118793119333_)))) + (##car _e119055119595_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118791119338_)) + _tl119053119600_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl118788119330_)) - (let ((_e118796119341_ + (gx#stx-pair? _tl119050119592_)) + (let ((_e119058119603_ (let () (declare (not safe)) - (gx#stx-e _tl118788119330_)))) - (let ((_tl118794119346_ + (gx#stx-e _tl119050119592_)))) + (let ((_tl119056119608_ (let () (declare (not safe)) - (##cdr _e118796119341_))) - (_hd118795119344_ + (##cdr _e119058119603_))) + (_hd119057119606_ (let () (declare (not safe)) - (##car _e118796119341_)))) + (##car _e119058119603_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118794119346_)) - (___match128688128689_ - _e118790119325_ - _hd118789119328_ - _tl118788119330_ - _e118793119333_ - _hd118792119336_ - _tl118791119338_ - _e118796119341_ - _hd118795119344_ - _tl118794119346_) + (gx#stx-null? _tl119056119608_)) + (___match128950128951_ + _e119052119587_ + _hd119051119590_ + _tl119050119592_ + _e119055119595_ + _hd119054119598_ + _tl119053119600_ + _e119058119603_ + _hd119057119606_ + _tl119056119608_) (let () (declare (not safe)) - (_g118784118831_))))) - (let () (declare (not safe)) (_g118784118831_))) + (_g119046119093_))))) + (let () (declare (not safe)) (_g119046119093_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118788119330_)) - (let ((_e118826118844_ + (gx#stx-pair? _tl119050119592_)) + (let ((_e119088119106_ (let () (declare (not safe)) - (gx#stx-e _tl118788119330_)))) - (let ((_tl118824118849_ + (gx#stx-e _tl119050119592_)))) + (let ((_tl119086119111_ (let () (declare (not safe)) - (##cdr _e118826118844_))) - (_hd118825118847_ + (##cdr _e119088119106_))) + (_hd119087119109_ (let () (declare (not safe)) - (##car _e118826118844_)))) + (##car _e119088119106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118824118849_)) - (___kont128665128666_ - _hd118825118847_ - _hd118789119328_) + (gx#stx-null? _tl119086119111_)) + (___kont128927128928_ + _hd119087119109_ + _hd119051119590_) (let () (declare (not safe)) - (_g118784118831_))))) - (let () (declare (not safe)) (_g118784118831_)))))) + (_g119046119093_))))) + (let () (declare (not safe)) (_g119046119093_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl118788119330_)) - (let ((_e118826118844_ + _tl119050119592_)) + (let ((_e119088119106_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl118788119330_)))) - (let ((_tl118824118849_ - (let () (declare (not safe)) (##cdr _e118826118844_))) - (_hd118825118847_ - (let () (declare (not safe)) (##car _e118826118844_)))) + (gx#stx-e _tl119050119592_)))) + (let ((_tl119086119111_ + (let () (declare (not safe)) (##cdr _e119088119106_))) + (_hd119087119109_ + (let () (declare (not safe)) (##car _e119088119106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118824118849_)) - (___kont128665128666_ _hd118825118847_ _hd118789119328_) - (let () (declare (not safe)) (_g118784118831_))))) - (let () (declare (not safe)) (_g118784118831_)))))) + (gx#stx-null? _tl119086119111_)) + (___kont128927128928_ _hd119087119109_ _hd119051119590_) + (let () (declare (not safe)) (_g119046119093_))))) + (let () (declare (not safe)) (_g119046119093_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118784118831_))))))))) + (_g119046119093_))))))))) (if (let () (declare (not safe)) - (##pair? _rest118759118767_)) - (let ((_hd118764119445_ + (##pair? _rest119021119029_)) + (let ((_hd119026119707_ (let () (declare (not safe)) - (##car _rest118759118767_))) - (_tl118765119447_ + (##car _rest119021119029_))) + (_tl119027119709_ (let () (declare (not safe)) - (##cdr _rest118759118767_)))) - (let* ((_hd119450_ _hd118764119445_) - (_rest119452_ _tl118765119447_)) + (##cdr _rest119021119029_)))) + (let* ((_hd119712_ _hd119026119707_) + (_rest119714_ _tl119027119709_)) (declare (not safe)) - (_K118763119442_ _rest119452_ _hd119450_))) + (_K119025119704_ _rest119714_ _hd119712_))) (let () (declare (not safe)) - (_else118761118775_)))))))) - (let* ((___stx128749128750_ _stx118615_) - (_g118621118648_ + (_else119023119037_)))))))) + (let* ((___stx129011129012_ _stx118877_) + (_g118883118910_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128749128750_))))) - (let ((___kont128751128752_ - (lambda (_L118708_ _L118709_ _L118710_) - (let ((__tmp129190 + ___stx129011129012_))))) + (let ((___kont129013129014_ + (lambda (_L118970_ _L118971_ _L118972_) + (let ((__tmp129452 (lambda () - (let ((_hd118747_ - (let ((__tmp129191 - (let ((__tmp129192 - (lambda (_g118739118742_ - _g118740118744_) + (let ((_hd119009_ + (let ((__tmp129453 + (let ((__tmp129454 + (lambda (_g119001119004_ + _g119002119006_) (let () (declare (not safe)) - (cons _g118739118742_ - _g118740118744_))))) + (cons _g119001119004_ + _g119002119006_))))) (declare (not safe)) - (foldr1 __tmp129192 + (foldr1 __tmp129454 '() - _L118709_)))) + _L118971_)))) (declare (not safe)) - (_compile-bindings118618_ __tmp129191))) - (_body118748_ + (_compile-bindings118880_ __tmp129453))) + (_body119010_ (let () (declare (not safe)) - (gxc#compile-e__0 _L118708_)))) - (let ((__tmp129193 - (let ((__tmp129194 - (let ((__tmp129195 + (gxc#compile-e__0 _L118970_)))) + (let ((__tmp129455 + (let ((__tmp129456 + (let ((__tmp129457 (let () (declare (not safe)) - (cons _body118748_ + (cons _body119010_ '())))) (declare (not safe)) - (cons _hd118747_ - __tmp129195)))) + (cons _hd119009_ + __tmp129457)))) (declare (not safe)) - (cons _L118710_ __tmp129194)))) + (cons _L118972_ __tmp129456)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129193 - _stx118615_))))) - (__tmp129189 - (let ((__obj128814 + __tmp129455 + _stx118877_))))) + (__tmp129451 + (let ((__obj129076 (let () (declare (not safe)) (##structure @@ -15495,254 +15495,254 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj128814) - __obj128814))) + (gx#local-context:::init! __obj129076) + __obj129076))) (declare (not safe)) (call-with-parameters - __tmp129190 + __tmp129452 gx#current-expander-context - __tmp129189)))) - (___kont128755128756_ + __tmp129451)))) + (___kont129017129018_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx118615_))))) - (let ((___match128776128777_ - (lambda (_e118628118660_ - _hd118627118663_ - _tl118626118665_ - _e118631118668_ - _hd118630118671_ - _tl118629118673_ - ___splice128753128754_ - _target118632118676_ - _tl118634118678_) - (letrec ((_loop118635118681_ - (lambda (_hd118633118684_ _bind118639118686_) + (gxc#xform-let-values% _stx118877_))))) + (let ((___match129038129039_ + (lambda (_e118890118922_ + _hd118889118925_ + _tl118888118927_ + _e118893118930_ + _hd118892118933_ + _tl118891118935_ + ___splice129015129016_ + _target118894118938_ + _tl118896118940_) + (letrec ((_loop118897118943_ + (lambda (_hd118895118946_ _bind118901118948_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118633118684_)) - (let ((_e118636118689_ + (gx#stx-pair? _hd118895118946_)) + (let ((_e118898118951_ (let () (declare (not safe)) - (gx#stx-e _hd118633118684_)))) - (let ((_lp-tl118638118694_ + (gx#stx-e _hd118895118946_)))) + (let ((_lp-tl118900118956_ (let () (declare (not safe)) - (##cdr _e118636118689_))) - (_lp-hd118637118692_ + (##cdr _e118898118951_))) + (_lp-hd118899118954_ (let () (declare (not safe)) - (##car _e118636118689_)))) - (let ((__tmp129198 + (##car _e118898118951_)))) + (let ((__tmp129460 (let () (declare (not safe)) - (cons _lp-hd118637118692_ - _bind118639118686_)))) + (cons _lp-hd118899118954_ + _bind118901118948_)))) (declare (not safe)) - (_loop118635118681_ - _lp-tl118638118694_ - __tmp129198)))) - (let ((_bind118640118697_ - (reverse _bind118639118686_))) + (_loop118897118943_ + _lp-tl118900118956_ + __tmp129460)))) + (let ((_bind118902118959_ + (reverse _bind118901118948_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118629118673_)) - (let ((_e118643118700_ + (gx#stx-pair? _tl118891118935_)) + (let ((_e118905118962_ (let () (declare (not safe)) (gx#stx-e - _tl118629118673_)))) - (let ((_tl118641118705_ + _tl118891118935_)))) + (let ((_tl118903118967_ (let () (declare (not safe)) - (##cdr _e118643118700_))) - (_hd118642118703_ + (##cdr _e118905118962_))) + (_hd118904118965_ (let () (declare (not safe)) - (##car _e118643118700_)))) + (##car _e118905118962_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118641118705_)) - (let ((_L118708_ - _hd118642118703_) - (_L118709_ - _bind118640118697_) - (_L118710_ - _hd118627118663_)) - (if (let ((__tmp129196 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129197 - (lambda (_g118731118734_ _g118732118736_) + _tl118903118967_)) + (let ((_L118970_ + _hd118904118965_) + (_L118971_ + _bind118902118959_) + (_L118972_ + _hd118889118925_)) + (if (let ((__tmp129458 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129459 + (lambda (_g118993118996_ _g118994118998_) (let () (declare (not safe)) - (cons _g118731118734_ _g118732118736_))))) + (cons _g118993118996_ _g118994118998_))))) (declare (not safe)) - (foldr1 __tmp129197 '() _L118709_)))) + (foldr1 __tmp129459 '() _L118971_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp129196)) - (___kont128751128752_ _L118708_ _L118709_ _L118710_) - (___kont128755128756_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp129458)) + (___kont129013129014_ _L118970_ _L118971_ _L118972_) + (___kont129017129018_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128755128756_)))) - (___kont128755128756_))))))) + (___kont129017129018_)))) + (___kont129017129018_))))))) (let () (declare (not safe)) - (_loop118635118681_ _target118632118676_ '())))))) + (_loop118897118943_ _target118894118938_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128749128750_)) - (let ((_e118628118660_ + (gx#stx-pair? ___stx129011129012_)) + (let ((_e118890118922_ (let () (declare (not safe)) - (gx#stx-e ___stx128749128750_)))) - (let ((_tl118626118665_ + (gx#stx-e ___stx129011129012_)))) + (let ((_tl118888118927_ (let () (declare (not safe)) - (##cdr _e118628118660_))) - (_hd118627118663_ + (##cdr _e118890118922_))) + (_hd118889118925_ (let () (declare (not safe)) - (##car _e118628118660_)))) + (##car _e118890118922_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118626118665_)) - (let ((_e118631118668_ + (gx#stx-pair? _tl118888118927_)) + (let ((_e118893118930_ (let () (declare (not safe)) - (gx#stx-e _tl118626118665_)))) - (let ((_tl118629118673_ + (gx#stx-e _tl118888118927_)))) + (let ((_tl118891118935_ (let () (declare (not safe)) - (##cdr _e118631118668_))) - (_hd118630118671_ + (##cdr _e118893118930_))) + (_hd118892118933_ (let () (declare (not safe)) - (##car _e118631118668_)))) + (##car _e118893118930_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd118630118671_)) - (let ((___splice128753128754_ + (gx#stx-pair/null? _hd118892118933_)) + (let ((___splice129015129016_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd118630118671_ + _hd118892118933_ '0)))) - (let ((_tl118634118678_ + (let ((_tl118896118940_ (let () (declare (not safe)) (##vector-ref - ___splice128753128754_ + ___splice129015129016_ '1))) - (_target118632118676_ + (_target118894118938_ (let () (declare (not safe)) (##vector-ref - ___splice128753128754_ + ___splice129015129016_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118634118678_)) - (___match128776128777_ - _e118628118660_ - _hd118627118663_ - _tl118626118665_ - _e118631118668_ - _hd118630118671_ - _tl118629118673_ - ___splice128753128754_ - _target118632118676_ - _tl118634118678_) - (___kont128755128756_)))) - (___kont128755128756_)))) - (___kont128755128756_)))) - (___kont128755128756_)))))))) + (gx#stx-null? _tl118896118940_)) + (___match129038129039_ + _e118890118922_ + _hd118889118925_ + _tl118888118927_ + _e118893118930_ + _hd118892118933_ + _tl118891118935_ + ___splice129015129016_ + _target118894118938_ + _tl118896118940_) + (___kont129017129018_)))) + (___kont129017129018_)))) + (___kont129017129018_)))) + (___kont129017129018_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind118533_) - (let* ((___stx128779128780_ _bind118533_) - (_g118536118553_ + (lambda (_bind118795_) + (let* ((___stx129041129042_ _bind118795_) + (_g118798118815_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128779128780_))))) - (let ((___kont128781128782_ - (lambda (_L118589_ _L118590_) - (if (let () (declare (not safe)) (gx#identifier? _L118590_)) - (let ((_$e118606_ + ___stx129041129042_))))) + (let ((___kont129043129044_ + (lambda (_L118851_ _L118852_) + (if (let () (declare (not safe)) (gx#identifier? _L118852_)) + (let ((_$e118868_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L118589_)))) - (if _$e118606_ - _$e118606_ - (let ((_$e118609_ + (gxc#case-lambda-expr? _L118851_)))) + (if _$e118868_ + _$e118868_ + (let ((_$e118871_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L118589_)))) - (if _$e118609_ - _$e118609_ + (gxc#opt-lambda-expr? _L118851_)))) + (if _$e118871_ + _$e118871_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L118589_)))))) + (gxc#kw-lambda-expr? _L118851_)))))) '#f))) - (___kont128783128784_ (lambda () '#f))) + (___kont129045129046_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128779128780_)) - (let ((_e118542118565_ + (gx#stx-pair? ___stx129041129042_)) + (let ((_e118804118827_ (let () (declare (not safe)) - (gx#stx-e ___stx128779128780_)))) - (let ((_tl118540118570_ - (let () (declare (not safe)) (##cdr _e118542118565_))) - (_hd118541118568_ + (gx#stx-e ___stx129041129042_)))) + (let ((_tl118802118832_ + (let () (declare (not safe)) (##cdr _e118804118827_))) + (_hd118803118830_ (let () (declare (not safe)) - (##car _e118542118565_)))) + (##car _e118804118827_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118541118568_)) - (let ((_e118545118573_ + (gx#stx-pair? _hd118803118830_)) + (let ((_e118807118835_ (let () (declare (not safe)) - (gx#stx-e _hd118541118568_)))) - (let ((_tl118543118578_ + (gx#stx-e _hd118803118830_)))) + (let ((_tl118805118840_ (let () (declare (not safe)) - (##cdr _e118545118573_))) - (_hd118544118576_ + (##cdr _e118807118835_))) + (_hd118806118838_ (let () (declare (not safe)) - (##car _e118545118573_)))) + (##car _e118807118835_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118543118578_)) + (gx#stx-null? _tl118805118840_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118540118570_)) - (let ((_e118548118581_ + (gx#stx-pair? _tl118802118832_)) + (let ((_e118810118843_ (let () (declare (not safe)) - (gx#stx-e _tl118540118570_)))) - (let ((_tl118546118586_ + (gx#stx-e _tl118802118832_)))) + (let ((_tl118808118848_ (let () (declare (not safe)) - (##cdr _e118548118581_))) - (_hd118547118584_ + (##cdr _e118810118843_))) + (_hd118809118846_ (let () (declare (not safe)) - (##car _e118548118581_)))) + (##car _e118810118843_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118546118586_)) - (___kont128781128782_ - _hd118547118584_ - _hd118544118576_) - (___kont128783128784_)))) - (___kont128783128784_)) - (___kont128783128784_)))) - (___kont128783128784_)))) - (___kont128783128784_)))))))) + (gx#stx-null? _tl118808118848_)) + (___kont129043129044_ + _hd118809118846_ + _hd118806118838_) + (___kont129045129046_)))) + (___kont129045129046_)) + (___kont129045129046_)))) + (___kont129045129046_)))) + (___kont129045129046_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index 5f7ac2ba..95613db3 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__1.scm @@ -1,398 +1,398 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_$stx118256_) - (let* ((_g118260118289_ - (lambda (_g118261118285_) + (lambda (_$stx118518_) + (let* ((_g118522118551_ + (lambda (_g118523118547_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118261118285_)))) - (_g118259118390_ - (lambda (_g118261118293_) + _g118523118547_)))) + (_g118521118652_ + (lambda (_g118523118555_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118261118293_)) - (let ((_e118266118296_ + (gx#stx-pair? _g118523118555_)) + (let ((_e118528118558_ (let () (declare (not safe)) - (gx#syntax-e _g118261118293_)))) - (let ((_hd118265118300_ + (gx#syntax-e _g118523118555_)))) + (let ((_hd118527118562_ (let () (declare (not safe)) - (##car _e118266118296_))) - (_tl118264118303_ + (##car _e118528118558_))) + (_tl118526118565_ (let () (declare (not safe)) - (##cdr _e118266118296_)))) + (##cdr _e118528118558_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl118264118303_)) - (let ((_g129199_ + (gx#stx-pair/null? _tl118526118565_)) + (let ((_g129461_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl118264118303_ + _tl118526118565_ '0)))) (begin - (let ((_g129200_ + (let ((_g129462_ (let () (declare (not safe)) - (if (##values? _g129199_) - (##vector-length _g129199_) + (if (##values? _g129461_) + (##vector-length _g129461_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129200_ 2))) + (##fx= _g129462_ 2))) (error "Context expects 2 values" - _g129200_))) - (let ((_target118267118306_ + _g129462_))) + (let ((_target118529118568_ (let () (declare (not safe)) - (##vector-ref _g129199_ 0))) - (_tl118269118309_ + (##vector-ref _g129461_ 0))) + (_tl118531118571_ (let () (declare (not safe)) - (##vector-ref _g129199_ 1)))) + (##vector-ref _g129461_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118269118309_)) - (letrec ((_loop118270118312_ - (lambda (_hd118268118316_ - _type-e118274118319_ - _id118275118321_) + (gx#stx-null? _tl118531118571_)) + (letrec ((_loop118532118574_ + (lambda (_hd118530118578_ + _type-e118536118581_ + _id118537118583_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118268118316_)) - (let ((_e118271118324_ + _hd118530118578_)) + (let ((_e118533118586_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd118268118316_)))) - (let ((_lp-hd118272118328_ - (let () (declare (not safe)) (##car _e118271118324_))) - (_lp-tl118273118331_ - (let () (declare (not safe)) (##cdr _e118271118324_)))) + (gx#syntax-e _hd118530118578_)))) + (let ((_lp-hd118534118590_ + (let () (declare (not safe)) (##car _e118533118586_))) + (_lp-tl118535118593_ + (let () (declare (not safe)) (##cdr _e118533118586_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd118272118328_)) - (let ((_e118280118334_ + (gx#stx-pair? _lp-hd118534118590_)) + (let ((_e118542118596_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd118272118328_)))) - (let ((_hd118279118338_ + (gx#syntax-e _lp-hd118534118590_)))) + (let ((_hd118541118600_ (let () (declare (not safe)) - (##car _e118280118334_))) - (_tl118278118341_ + (##car _e118542118596_))) + (_tl118540118603_ (let () (declare (not safe)) - (##cdr _e118280118334_)))) + (##cdr _e118542118596_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118278118341_)) - (let ((_e118283118344_ + (gx#stx-pair? _tl118540118603_)) + (let ((_e118545118606_ (let () (declare (not safe)) - (gx#syntax-e _tl118278118341_)))) - (let ((_hd118282118348_ + (gx#syntax-e _tl118540118603_)))) + (let ((_hd118544118610_ (let () (declare (not safe)) - (##car _e118283118344_))) - (_tl118281118351_ + (##car _e118545118606_))) + (_tl118543118613_ (let () (declare (not safe)) - (##cdr _e118283118344_)))) + (##cdr _e118545118606_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118281118351_)) - (_loop118270118312_ - _lp-tl118273118331_ + (gx#stx-null? _tl118543118613_)) + (_loop118532118574_ + _lp-tl118535118593_ (let () (declare (not safe)) - (cons _hd118282118348_ - _type-e118274118319_)) + (cons _hd118544118610_ + _type-e118536118581_)) (let () (declare (not safe)) - (cons _hd118279118338_ - _id118275118321_))) - (_g118260118289_ _g118261118293_)))) - (_g118260118289_ _g118261118293_)))) - (_g118260118289_ _g118261118293_)))) - (let ((_type-e118276118354_ (reverse _type-e118274118319_)) - (_id118277118357_ (reverse _id118275118321_))) - ((lambda (_L118360_ _L118362_) - (let ((__tmp129212 + (cons _hd118541118600_ + _id118537118583_))) + (_g118522118551_ _g118523118555_)))) + (_g118522118551_ _g118523118555_)))) + (_g118522118551_ _g118523118555_)))) + (let ((_type-e118538118616_ (reverse _type-e118536118581_)) + (_id118539118619_ (reverse _id118537118583_))) + ((lambda (_L118622_ _L118624_) + (let ((__tmp129474 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp129201 + (__tmp129463 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L118360_ - _L118362_)) - (let ((__tmp129202 - (lambda (_g118378118382_ - _g118379118385_ - _g118380118387_) - (let ((__tmp129203 - (let ((__tmp129211 + _L118622_ + _L118624_)) + (let ((__tmp129464 + (lambda (_g118640118644_ + _g118641118647_ + _g118642118649_) + (let ((__tmp129465 + (let ((__tmp129473 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp129204 - (let ((__tmp129210 + (__tmp129466 + (let ((__tmp129472 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp129205 - (let ((__tmp129207 + (__tmp129467 + (let ((__tmp129469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129209 + (let ((__tmp129471 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp129208 + (__tmp129470 (let () (declare (not safe)) - (cons _g118379118385_ '())))) + (cons _g118641118647_ '())))) (declare (not safe)) - (cons __tmp129209 __tmp129208))) - (__tmp129206 + (cons __tmp129471 __tmp129470))) + (__tmp129468 (let () (declare (not safe)) - (cons _g118378118382_ '())))) + (cons _g118640118644_ '())))) (declare (not safe)) - (cons __tmp129207 __tmp129206)))) + (cons __tmp129469 __tmp129468)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129210 - __tmp129205)))) + (cons __tmp129472 + __tmp129467)))) (declare (not safe)) - (cons __tmp129211 __tmp129204)))) + (cons __tmp129473 __tmp129466)))) (declare (not safe)) - (cons __tmp129203 _g118380118387_))))) + (cons __tmp129465 _g118642118649_))))) (declare (not safe)) - (foldr2 __tmp129202 '() _L118360_ _L118362_))))) + (foldr2 __tmp129464 '() _L118622_ _L118624_))))) (declare (not safe)) - (cons __tmp129212 __tmp129201))) - _type-e118276118354_ - _id118277118357_)))))) + (cons __tmp129474 __tmp129463))) + _type-e118538118616_ + _id118539118619_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop118270118312_ - _target118267118306_ + (_loop118532118574_ + _target118529118568_ '() '())) - (_g118260118289_ _g118261118293_))))) - (_g118260118289_ _g118261118293_)))) - (_g118260118289_ _g118261118293_))))) - (_g118259118390_ _$stx118256_)))) + (_g118522118551_ _g118523118555_))))) + (_g118522118551_ _g118523118555_)))) + (_g118522118551_ _g118523118555_))))) + (_g118521118652_ _$stx118518_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx118395_) - (let* ((_g118399118428_ - (lambda (_g118400118424_) + (lambda (_$stx118657_) + (let* ((_g118661118690_ + (lambda (_g118662118686_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118400118424_)))) - (_g118398118528_ - (lambda (_g118400118432_) + _g118662118686_)))) + (_g118660118790_ + (lambda (_g118662118694_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118400118432_)) - (let ((_e118405118435_ + (gx#stx-pair? _g118662118694_)) + (let ((_e118667118697_ (let () (declare (not safe)) - (gx#syntax-e _g118400118432_)))) - (let ((_hd118404118439_ + (gx#syntax-e _g118662118694_)))) + (let ((_hd118666118701_ (let () (declare (not safe)) - (##car _e118405118435_))) - (_tl118403118442_ + (##car _e118667118697_))) + (_tl118665118704_ (let () (declare (not safe)) - (##cdr _e118405118435_)))) + (##cdr _e118667118697_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl118403118442_)) - (let ((_g129213_ + (gx#stx-pair/null? _tl118665118704_)) + (let ((_g129475_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl118403118442_ + _tl118665118704_ '0)))) (begin - (let ((_g129214_ + (let ((_g129476_ (let () (declare (not safe)) - (if (##values? _g129213_) - (##vector-length _g129213_) + (if (##values? _g129475_) + (##vector-length _g129475_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129214_ 2))) + (##fx= _g129476_ 2))) (error "Context expects 2 values" - _g129214_))) - (let ((_target118406118445_ + _g129476_))) + (let ((_target118668118707_ (let () (declare (not safe)) - (##vector-ref _g129213_ 0))) - (_tl118408118448_ + (##vector-ref _g129475_ 0))) + (_tl118670118710_ (let () (declare (not safe)) - (##vector-ref _g129213_ 1)))) + (##vector-ref _g129475_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118408118448_)) - (letrec ((_loop118409118451_ - (lambda (_hd118407118455_ - _type-e118413118458_ - _id118414118460_) + (gx#stx-null? _tl118670118710_)) + (letrec ((_loop118671118713_ + (lambda (_hd118669118717_ + _type-e118675118720_ + _id118676118722_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118407118455_)) - (let ((_e118410118463_ + _hd118669118717_)) + (let ((_e118672118725_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd118407118455_)))) - (let ((_lp-hd118411118467_ - (let () (declare (not safe)) (##car _e118410118463_))) - (_lp-tl118412118470_ - (let () (declare (not safe)) (##cdr _e118410118463_)))) + (gx#syntax-e _hd118669118717_)))) + (let ((_lp-hd118673118729_ + (let () (declare (not safe)) (##car _e118672118725_))) + (_lp-tl118674118732_ + (let () (declare (not safe)) (##cdr _e118672118725_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd118411118467_)) - (let ((_e118419118473_ + (gx#stx-pair? _lp-hd118673118729_)) + (let ((_e118681118735_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd118411118467_)))) - (let ((_hd118418118477_ + (gx#syntax-e _lp-hd118673118729_)))) + (let ((_hd118680118739_ (let () (declare (not safe)) - (##car _e118419118473_))) - (_tl118417118480_ + (##car _e118681118735_))) + (_tl118679118742_ (let () (declare (not safe)) - (##cdr _e118419118473_)))) + (##cdr _e118681118735_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118417118480_)) - (let ((_e118422118483_ + (gx#stx-pair? _tl118679118742_)) + (let ((_e118684118745_ (let () (declare (not safe)) - (gx#syntax-e _tl118417118480_)))) - (let ((_hd118421118487_ + (gx#syntax-e _tl118679118742_)))) + (let ((_hd118683118749_ (let () (declare (not safe)) - (##car _e118422118483_))) - (_tl118420118490_ + (##car _e118684118745_))) + (_tl118682118752_ (let () (declare (not safe)) - (##cdr _e118422118483_)))) + (##cdr _e118684118745_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118420118490_)) - (_loop118409118451_ - _lp-tl118412118470_ + (gx#stx-null? _tl118682118752_)) + (_loop118671118713_ + _lp-tl118674118732_ (let () (declare (not safe)) - (cons _hd118421118487_ - _type-e118413118458_)) + (cons _hd118683118749_ + _type-e118675118720_)) (let () (declare (not safe)) - (cons _hd118418118477_ - _id118414118460_))) - (_g118399118428_ _g118400118432_)))) - (_g118399118428_ _g118400118432_)))) - (_g118399118428_ _g118400118432_)))) - (let ((_type-e118415118493_ (reverse _type-e118413118458_)) - (_id118416118496_ (reverse _id118414118460_))) - ((lambda (_L118499_ _L118501_) - (let ((__tmp129226 + (cons _hd118680118739_ + _id118676118722_))) + (_g118661118690_ _g118662118694_)))) + (_g118661118690_ _g118662118694_)))) + (_g118661118690_ _g118662118694_)))) + (let ((_type-e118677118755_ (reverse _type-e118675118720_)) + (_id118678118758_ (reverse _id118676118722_))) + ((lambda (_L118761_ _L118763_) + (let ((__tmp129488 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp129215 + (__tmp129477 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L118499_ - _L118501_)) - (let ((__tmp129216 - (lambda (_g118516118520_ - _g118517118523_ - _g118518118525_) - (let ((__tmp129217 - (let ((__tmp129225 + _L118761_ + _L118763_)) + (let ((__tmp129478 + (lambda (_g118778118782_ + _g118779118785_ + _g118780118787_) + (let ((__tmp129479 + (let ((__tmp129487 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp129218 - (let ((__tmp129224 + (__tmp129480 + (let ((__tmp129486 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp129219 - (let ((__tmp129221 + (__tmp129481 + (let ((__tmp129483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129223 + (let ((__tmp129485 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp129222 + (__tmp129484 (let () (declare (not safe)) - (cons _g118517118523_ '())))) + (cons _g118779118785_ '())))) (declare (not safe)) - (cons __tmp129223 __tmp129222))) - (__tmp129220 + (cons __tmp129485 __tmp129484))) + (__tmp129482 (let () (declare (not safe)) - (cons _g118516118520_ '())))) + (cons _g118778118782_ '())))) (declare (not safe)) - (cons __tmp129221 __tmp129220)))) + (cons __tmp129483 __tmp129482)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129224 - __tmp129219)))) + (cons __tmp129486 + __tmp129481)))) (declare (not safe)) - (cons __tmp129225 __tmp129218)))) + (cons __tmp129487 __tmp129480)))) (declare (not safe)) - (cons __tmp129217 _g118518118525_))))) + (cons __tmp129479 _g118780118787_))))) (declare (not safe)) - (foldr2 __tmp129216 '() _L118499_ _L118501_))))) + (foldr2 __tmp129478 '() _L118761_ _L118763_))))) (declare (not safe)) - (cons __tmp129226 __tmp129215))) - _type-e118415118493_ - _id118416118496_)))))) + (cons __tmp129488 __tmp129477))) + _type-e118677118755_ + _id118678118758_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop118409118451_ - _target118406118445_ + (_loop118671118713_ + _target118668118707_ '() '())) - (_g118399118428_ _g118400118432_))))) - (_g118399118428_ _g118400118432_)))) - (_g118399118428_ _g118400118432_))))) - (_g118398118528_ _$stx118395_))))) + (_g118661118690_ _g118662118694_))))) + (_g118661118690_ _g118662118694_)))) + (_g118661118690_ _g118662118694_))))) + (_g118660118790_ _$stx118657_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 7c45b456..9086ffa4 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm @@ -1,4148 +1,4148 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1709375799) + (define gerbil/compiler/optimize-xform::timestamp 1709457370) (begin (define gxc#&identity-expression (make-promise (lambda () - (let ((_tbl117900_ + (let ((_tbl118162_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#begin-annotation gxc#xform-identity)) + (hash-put! _tbl118162_ '%#begin-annotation gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#lambda gxc#xform-identity)) + (hash-put! _tbl118162_ '%#lambda gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#case-lambda gxc#xform-identity)) + (hash-put! _tbl118162_ '%#case-lambda gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#let-values gxc#xform-identity)) + (hash-put! _tbl118162_ '%#let-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#letrec-values gxc#xform-identity)) + (hash-put! _tbl118162_ '%#letrec-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#letrec*-values gxc#xform-identity)) + (hash-put! _tbl118162_ '%#letrec*-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#quote gxc#xform-identity)) + (hash-put! _tbl118162_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#quote-syntax gxc#xform-identity)) + (hash-put! _tbl118162_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#call gxc#xform-identity)) + (hash-put! _tbl118162_ '%#call gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#call-unchecked gxc#xform-identity)) + (hash-put! _tbl118162_ '%#call-unchecked gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#if gxc#xform-identity)) + (hash-put! _tbl118162_ '%#if gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#ref gxc#xform-identity)) + (hash-put! _tbl118162_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#set! gxc#xform-identity)) + (hash-put! _tbl118162_ '%#set! gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#struct-instance? gxc#xform-identity)) + (hash-put! _tbl118162_ '%#struct-instance? gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117900_ + _tbl118162_ '%#struct-direct-instance? gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#struct-ref gxc#xform-identity)) + (hash-put! _tbl118162_ '%#struct-ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#struct-set! gxc#xform-identity)) + (hash-put! _tbl118162_ '%#struct-set! gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#struct-direct-ref gxc#xform-identity)) + (hash-put! _tbl118162_ '%#struct-direct-ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117900_ '%#struct-direct-set! gxc#xform-identity)) + (hash-put! _tbl118162_ '%#struct-direct-set! gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117900_ + _tbl118162_ '%#struct-unchecked-ref gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117900_ + _tbl118162_ '%#struct-unchecked-set! gxc#xform-identity)) - _tbl117900_)))) + _tbl118162_)))) (define gxc#&identity-special-form (make-promise (lambda () - (let ((_tbl117896_ + (let ((_tbl118158_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#begin gxc#xform-identity)) + (hash-put! _tbl118158_ '%#begin gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#begin-syntax gxc#xform-identity)) + (hash-put! _tbl118158_ '%#begin-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#begin-foreign gxc#xform-identity)) + (hash-put! _tbl118158_ '%#begin-foreign gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#module gxc#xform-identity)) + (hash-put! _tbl118158_ '%#module gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#import gxc#xform-identity)) + (hash-put! _tbl118158_ '%#import gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#export gxc#xform-identity)) + (hash-put! _tbl118158_ '%#export gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#provide gxc#xform-identity)) + (hash-put! _tbl118158_ '%#provide gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#extern gxc#xform-identity)) + (hash-put! _tbl118158_ '%#extern gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#define-values gxc#xform-identity)) + (hash-put! _tbl118158_ '%#define-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#define-syntax gxc#xform-identity)) + (hash-put! _tbl118158_ '%#define-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#define-alias gxc#xform-identity)) + (hash-put! _tbl118158_ '%#define-alias gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117896_ '%#declare gxc#xform-identity)) - _tbl117896_)))) + (hash-put! _tbl118158_ '%#declare gxc#xform-identity)) + _tbl118158_)))) (define gxc#&identity (make-promise (lambda () - (let ((_tbl117892_ + (let ((_tbl118154_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118146 (force gxc#&identity-special-form))) + (let ((__tmp118408 (force gxc#&identity-special-form))) (declare (not safe)) - (hash-merge! _tbl117892_ __tmp118146)) - (let ((__tmp118147 (force gxc#&identity-expression))) + (hash-merge! _tbl118154_ __tmp118408)) + (let ((__tmp118409 (force gxc#&identity-expression))) (declare (not safe)) - (hash-merge! _tbl117892_ __tmp118147)) - _tbl117892_)))) + (hash-merge! _tbl118154_ __tmp118409)) + _tbl118154_)))) (define gxc#&basic-xform-expression (make-promise (lambda () - (let ((_tbl117888_ + (let ((_tbl118150_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) (hash-put! - _tbl117888_ + _tbl118150_ '%#begin-annotation gxc#xform-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#lambda gxc#xform-lambda%)) + (hash-put! _tbl118150_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#case-lambda gxc#xform-case-lambda%)) + (hash-put! _tbl118150_ '%#case-lambda gxc#xform-case-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#let-values gxc#xform-let-values%)) + (hash-put! _tbl118150_ '%#let-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#letrec-values gxc#xform-let-values%)) + (hash-put! _tbl118150_ '%#letrec-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#letrec*-values gxc#xform-let-values%)) + (hash-put! _tbl118150_ '%#letrec*-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#quote gxc#xform-identity)) + (hash-put! _tbl118150_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#quote-syntax gxc#xform-identity)) + (hash-put! _tbl118150_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#call gxc#xform-operands)) + (hash-put! _tbl118150_ '%#call gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#call-unchecked gxc#xform-operands)) + (hash-put! _tbl118150_ '%#call-unchecked gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#if gxc#xform-operands)) + (hash-put! _tbl118150_ '%#if gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#ref gxc#xform-identity)) + (hash-put! _tbl118150_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#set! gxc#xform-setq%)) + (hash-put! _tbl118150_ '%#set! gxc#xform-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#struct-instance? gxc#xform-operands)) + (hash-put! _tbl118150_ '%#struct-instance? gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117888_ + _tbl118150_ '%#struct-direct-instance? gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#struct-ref gxc#xform-operands)) + (hash-put! _tbl118150_ '%#struct-ref gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#struct-set! gxc#xform-operands)) + (hash-put! _tbl118150_ '%#struct-set! gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#struct-direct-ref gxc#xform-operands)) + (hash-put! _tbl118150_ '%#struct-direct-ref gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117888_ '%#struct-direct-set! gxc#xform-operands)) + (hash-put! _tbl118150_ '%#struct-direct-set! gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117888_ + _tbl118150_ '%#struct-unchecked-ref gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117888_ + _tbl118150_ '%#struct-unchecked-set! gxc#xform-operands)) - _tbl117888_)))) + _tbl118150_)))) (define gxc#&basic-xform (make-promise (lambda () - (let ((_tbl117884_ + (let ((_tbl118146_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118148 (force gxc#&basic-xform-expression))) + (let ((__tmp118410 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl117884_ __tmp118148)) - (let ((__tmp118149 (force gxc#&identity))) + (hash-merge! _tbl118146_ __tmp118410)) + (let ((__tmp118411 (force gxc#&identity))) (declare (not safe)) - (hash-merge! _tbl117884_ __tmp118149)) + (hash-merge! _tbl118146_ __tmp118411)) (let () (declare (not safe)) - (hash-put! _tbl117884_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl118146_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117884_ '%#begin-syntax gxc#xform-begin-syntax%)) + (hash-put! _tbl118146_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117884_ '%#module gxc#xform-module%)) + (hash-put! _tbl118146_ '%#module gxc#xform-module%)) (let () (declare (not safe)) - (hash-put! _tbl117884_ '%#define-values gxc#xform-define-values%)) + (hash-put! _tbl118146_ '%#define-values gxc#xform-define-values%)) (let () (declare (not safe)) - (hash-put! _tbl117884_ '%#define-syntax gxc#xform-define-syntax%)) - _tbl117884_)))) + (hash-put! _tbl118146_ '%#define-syntax gxc#xform-define-syntax%)) + _tbl118146_)))) (define gxc#&collect-mutators (make-promise (lambda () - (let ((_tbl117880_ + (let ((_tbl118142_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118150 (force gxc#&void))) + (let ((__tmp118412 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl117880_ __tmp118150)) + (hash-merge! _tbl118142_ __tmp118412)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl118142_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl118142_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#module gxc#collect-module%)) + (hash-put! _tbl118142_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#define-values gxc#collect-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#define-syntax gxc#collect-define-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl118142_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#call gxc#collect-operands)) + (hash-put! _tbl118142_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#call-unchecked gxc#collect-operands)) + (hash-put! _tbl118142_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#if gxc#collect-operands)) + (hash-put! _tbl118142_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#set! gxc#collect-mutators-setq%)) + (hash-put! _tbl118142_ '%#set! gxc#collect-mutators-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#struct-instance? gxc#collect-operands)) + (hash-put! _tbl118142_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl118142_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl118142_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117880_ '%#struct-direct-ref gxc#collect-operands)) + (hash-put! _tbl118142_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117880_ + _tbl118142_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl117880_)))) + _tbl118142_)))) (define gxc#apply-collect-mutators - (lambda (_stx117863_ . _args117865_) - (let ((__tmp118152 + (lambda (_stx118125_ . _args118127_) + (let ((__tmp118414 (lambda () (declare (not safe)) - (if (null? _args117865_) - (gxc#compile-e__0 _stx117863_) - (let ((_arg1117870_ (car _args117865_)) - (_rest117872_ (cdr _args117865_))) - (if (null? _rest117872_) - (gxc#compile-e__1 _stx117863_ _arg1117870_) - (let ((_arg2117875_ (car _rest117872_)) - (_rest117877_ (cdr _rest117872_))) - (if (null? _rest117877_) + (if (null? _args118127_) + (gxc#compile-e__0 _stx118125_) + (let ((_arg1118132_ (car _args118127_)) + (_rest118134_ (cdr _args118127_))) + (if (null? _rest118134_) + (gxc#compile-e__1 _stx118125_ _arg1118132_) + (let ((_arg2118137_ (car _rest118134_)) + (_rest118139_ (cdr _rest118134_))) + (if (null? _rest118139_) (gxc#compile-e__2 - _stx117863_ - _arg1117870_ - _arg2117875_) + _stx118125_ + _arg1118132_ + _arg2118137_) (apply gxc#compile-e - _stx117863_ - _arg1117870_ - _arg2117875_ - _rest117877_)))))))) - (__tmp118151 (force gxc#&collect-mutators))) + _stx118125_ + _arg1118132_ + _arg2118137_ + _rest118139_)))))))) + (__tmp118413 (force gxc#&collect-mutators))) (declare (not safe)) (call-with-parameters - __tmp118152 + __tmp118414 gxc#current-compile-methods - __tmp118151)))) + __tmp118413)))) (define gxc#&collect-methods (make-promise (lambda () - (let ((_tbl117860_ + (let ((_tbl118122_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118153 (force gxc#&void))) + (let ((__tmp118415 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl117860_ __tmp118153)) + (hash-merge! _tbl118122_ __tmp118415)) (let () (declare (not safe)) - (hash-put! _tbl117860_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl118122_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117860_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl118122_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117860_ '%#module gxc#collect-module%)) + (hash-put! _tbl118122_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (hash-put! _tbl117860_ '%#call gxc#collect-methods-call%)) + (hash-put! _tbl118122_ '%#call gxc#collect-methods-call%)) (let () (declare (not safe)) (hash-put! - _tbl117860_ + _tbl118122_ '%#call-unchecked gxc#collect-methods-call%)) - _tbl117860_)))) + _tbl118122_)))) (define gxc#apply-collect-methods - (lambda (_stx117843_ . _args117845_) - (let ((__tmp118155 + (lambda (_stx118105_ . _args118107_) + (let ((__tmp118417 (lambda () (declare (not safe)) - (if (null? _args117845_) - (gxc#compile-e__0 _stx117843_) - (let ((_arg1117850_ (car _args117845_)) - (_rest117852_ (cdr _args117845_))) - (if (null? _rest117852_) - (gxc#compile-e__1 _stx117843_ _arg1117850_) - (let ((_arg2117855_ (car _rest117852_)) - (_rest117857_ (cdr _rest117852_))) - (if (null? _rest117857_) + (if (null? _args118107_) + (gxc#compile-e__0 _stx118105_) + (let ((_arg1118112_ (car _args118107_)) + (_rest118114_ (cdr _args118107_))) + (if (null? _rest118114_) + (gxc#compile-e__1 _stx118105_ _arg1118112_) + (let ((_arg2118117_ (car _rest118114_)) + (_rest118119_ (cdr _rest118114_))) + (if (null? _rest118119_) (gxc#compile-e__2 - _stx117843_ - _arg1117850_ - _arg2117855_) + _stx118105_ + _arg1118112_ + _arg2118117_) (apply gxc#compile-e - _stx117843_ - _arg1117850_ - _arg2117855_ - _rest117857_)))))))) - (__tmp118154 (force gxc#&collect-methods))) + _stx118105_ + _arg1118112_ + _arg2118117_ + _rest118119_)))))))) + (__tmp118416 (force gxc#&collect-methods))) (declare (not safe)) (call-with-parameters - __tmp118155 + __tmp118417 gxc#current-compile-methods - __tmp118154)))) + __tmp118416)))) (define gxc#&expression-subst (make-promise (lambda () - (let ((_tbl117840_ + (let ((_tbl118102_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118156 (force gxc#&basic-xform-expression))) + (let ((__tmp118418 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl117840_ __tmp118156)) + (hash-merge! _tbl118102_ __tmp118418)) (let () (declare (not safe)) - (hash-put! _tbl117840_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl118102_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117840_ '%#ref gxc#expression-subst-ref%)) + (hash-put! _tbl118102_ '%#ref gxc#expression-subst-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117840_ '%#set! gxc#expression-subst-setq%)) - _tbl117840_)))) + (hash-put! _tbl118102_ '%#set! gxc#expression-subst-setq%)) + _tbl118102_)))) (define gxc#apply-expression-subst - (lambda (_stx117823_ . _args117825_) - (let ((__tmp118158 + (lambda (_stx118085_ . _args118087_) + (let ((__tmp118420 (lambda () (declare (not safe)) - (if (null? _args117825_) - (gxc#compile-e__0 _stx117823_) - (let ((_arg1117830_ (car _args117825_)) - (_rest117832_ (cdr _args117825_))) - (if (null? _rest117832_) - (gxc#compile-e__1 _stx117823_ _arg1117830_) - (let ((_arg2117835_ (car _rest117832_)) - (_rest117837_ (cdr _rest117832_))) - (if (null? _rest117837_) + (if (null? _args118087_) + (gxc#compile-e__0 _stx118085_) + (let ((_arg1118092_ (car _args118087_)) + (_rest118094_ (cdr _args118087_))) + (if (null? _rest118094_) + (gxc#compile-e__1 _stx118085_ _arg1118092_) + (let ((_arg2118097_ (car _rest118094_)) + (_rest118099_ (cdr _rest118094_))) + (if (null? _rest118099_) (gxc#compile-e__2 - _stx117823_ - _arg1117830_ - _arg2117835_) + _stx118085_ + _arg1118092_ + _arg2118097_) (apply gxc#compile-e - _stx117823_ - _arg1117830_ - _arg2117835_ - _rest117837_)))))))) - (__tmp118157 (force gxc#&expression-subst))) + _stx118085_ + _arg1118092_ + _arg2118097_ + _rest118099_)))))))) + (__tmp118419 (force gxc#&expression-subst))) (declare (not safe)) (call-with-parameters - __tmp118158 + __tmp118420 gxc#current-compile-methods - __tmp118157)))) + __tmp118419)))) (define gxc#&expression-subst* (make-promise (lambda () - (let ((_tbl117820_ + (let ((_tbl118082_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118159 (force gxc#&expression-subst))) + (let ((__tmp118421 (force gxc#&expression-subst))) (declare (not safe)) - (hash-merge! _tbl117820_ __tmp118159)) + (hash-merge! _tbl118082_ __tmp118421)) (let () (declare (not safe)) - (hash-put! _tbl117820_ '%#ref gxc#expression-subst*-ref%)) + (hash-put! _tbl118082_ '%#ref gxc#expression-subst*-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117820_ '%#set! gxc#expression-subst*-setq%)) - _tbl117820_)))) + (hash-put! _tbl118082_ '%#set! gxc#expression-subst*-setq%)) + _tbl118082_)))) (define gxc#apply-expression-subst* - (lambda (_stx117803_ . _args117805_) - (let ((__tmp118161 + (lambda (_stx118065_ . _args118067_) + (let ((__tmp118423 (lambda () (declare (not safe)) - (if (null? _args117805_) - (gxc#compile-e__0 _stx117803_) - (let ((_arg1117810_ (car _args117805_)) - (_rest117812_ (cdr _args117805_))) - (if (null? _rest117812_) - (gxc#compile-e__1 _stx117803_ _arg1117810_) - (let ((_arg2117815_ (car _rest117812_)) - (_rest117817_ (cdr _rest117812_))) - (if (null? _rest117817_) + (if (null? _args118067_) + (gxc#compile-e__0 _stx118065_) + (let ((_arg1118072_ (car _args118067_)) + (_rest118074_ (cdr _args118067_))) + (if (null? _rest118074_) + (gxc#compile-e__1 _stx118065_ _arg1118072_) + (let ((_arg2118077_ (car _rest118074_)) + (_rest118079_ (cdr _rest118074_))) + (if (null? _rest118079_) (gxc#compile-e__2 - _stx117803_ - _arg1117810_ - _arg2117815_) + _stx118065_ + _arg1118072_ + _arg2118077_) (apply gxc#compile-e - _stx117803_ - _arg1117810_ - _arg2117815_ - _rest117817_)))))))) - (__tmp118160 (force gxc#&expression-subst*))) + _stx118065_ + _arg1118072_ + _arg2118077_ + _rest118079_)))))))) + (__tmp118422 (force gxc#&expression-subst*))) (declare (not safe)) (call-with-parameters - __tmp118161 + __tmp118423 gxc#current-compile-methods - __tmp118160)))) + __tmp118422)))) (define gxc#&find-expression (make-promise (lambda () - (let ((_tbl117800_ + (let ((_tbl118062_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118162 (force gxc#&false-expression))) + (let ((__tmp118424 (force gxc#&false-expression))) (declare (not safe)) - (hash-merge! _tbl117800_ __tmp118162)) + (hash-merge! _tbl118062_ __tmp118424)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#begin gxc#find-body%)) + (hash-put! _tbl118062_ '%#begin gxc#find-body%)) (let () (declare (not safe)) (hash-put! - _tbl117800_ + _tbl118062_ '%#begin-annotation gxc#find-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#lambda gxc#find-lambda%)) + (hash-put! _tbl118062_ '%#lambda gxc#find-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#case-lambda gxc#find-case-lambda%)) + (hash-put! _tbl118062_ '%#case-lambda gxc#find-case-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#let-values gxc#find-let-values%)) + (hash-put! _tbl118062_ '%#let-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#letrec-values gxc#find-let-values%)) + (hash-put! _tbl118062_ '%#letrec-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#letrec*-values gxc#find-let-values%)) + (hash-put! _tbl118062_ '%#letrec*-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#call gxc#find-body%)) + (hash-put! _tbl118062_ '%#call gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#call-unchecked gxc#find-body%)) + (hash-put! _tbl118062_ '%#call-unchecked gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#if gxc#find-body%)) + (hash-put! _tbl118062_ '%#if gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#set! gxc#find-setq%)) + (hash-put! _tbl118062_ '%#set! gxc#find-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#struct-instance? gxc#find-body%)) + (hash-put! _tbl118062_ '%#struct-instance? gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#struct-direct-instance? gxc#find-body%)) + (hash-put! _tbl118062_ '%#struct-direct-instance? gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#struct-ref gxc#find-body%)) + (hash-put! _tbl118062_ '%#struct-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#struct-set! gxc#find-body%)) + (hash-put! _tbl118062_ '%#struct-set! gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#struct-direct-ref gxc#find-body%)) + (hash-put! _tbl118062_ '%#struct-direct-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#struct-direct-set! gxc#find-body%)) + (hash-put! _tbl118062_ '%#struct-direct-set! gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#struct-unchecked-ref gxc#find-body%)) + (hash-put! _tbl118062_ '%#struct-unchecked-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117800_ '%#struct-unchecked-set! gxc#find-body%)) - _tbl117800_)))) + (hash-put! _tbl118062_ '%#struct-unchecked-set! gxc#find-body%)) + _tbl118062_)))) (define gxc#&find-var-refs (make-promise (lambda () - (let ((_tbl117796_ + (let ((_tbl118058_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118163 (force gxc#&find-expression))) + (let ((__tmp118425 (force gxc#&find-expression))) (declare (not safe)) - (hash-merge! _tbl117796_ __tmp118163)) + (hash-merge! _tbl118058_ __tmp118425)) (let () (declare (not safe)) - (hash-put! _tbl117796_ '%#ref gxc#find-var-refs-ref%)) + (hash-put! _tbl118058_ '%#ref gxc#find-var-refs-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117796_ '%#set! gxc#find-var-refs-setq%)) - _tbl117796_)))) + (hash-put! _tbl118058_ '%#set! gxc#find-var-refs-setq%)) + _tbl118058_)))) (define gxc#apply-find-var-refs - (lambda (_stx117779_ . _args117781_) - (let ((__tmp118165 + (lambda (_stx118041_ . _args118043_) + (let ((__tmp118427 (lambda () (declare (not safe)) - (if (null? _args117781_) - (gxc#compile-e__0 _stx117779_) - (let ((_arg1117786_ (car _args117781_)) - (_rest117788_ (cdr _args117781_))) - (if (null? _rest117788_) - (gxc#compile-e__1 _stx117779_ _arg1117786_) - (let ((_arg2117791_ (car _rest117788_)) - (_rest117793_ (cdr _rest117788_))) - (if (null? _rest117793_) + (if (null? _args118043_) + (gxc#compile-e__0 _stx118041_) + (let ((_arg1118048_ (car _args118043_)) + (_rest118050_ (cdr _args118043_))) + (if (null? _rest118050_) + (gxc#compile-e__1 _stx118041_ _arg1118048_) + (let ((_arg2118053_ (car _rest118050_)) + (_rest118055_ (cdr _rest118050_))) + (if (null? _rest118055_) (gxc#compile-e__2 - _stx117779_ - _arg1117786_ - _arg2117791_) + _stx118041_ + _arg1118048_ + _arg2118053_) (apply gxc#compile-e - _stx117779_ - _arg1117786_ - _arg2117791_ - _rest117793_)))))))) - (__tmp118164 (force gxc#&find-var-refs))) + _stx118041_ + _arg1118048_ + _arg2118053_ + _rest118055_)))))))) + (__tmp118426 (force gxc#&find-var-refs))) (declare (not safe)) (call-with-parameters - __tmp118165 + __tmp118427 gxc#current-compile-methods - __tmp118164)))) + __tmp118426)))) (define gxc#&collect-runtime-refs (make-promise (lambda () - (let ((_tbl117776_ + (let ((_tbl118038_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118166 (force gxc#&collect-expression-refs))) + (let ((__tmp118428 (force gxc#&collect-expression-refs))) (declare (not safe)) - (hash-merge! _tbl117776_ __tmp118166)) + (hash-merge! _tbl118038_ __tmp118428)) (let () (declare (not safe)) - (hash-put! _tbl117776_ '%#ref gxc#collect-runtime-refs-ref%)) + (hash-put! _tbl118038_ '%#ref gxc#collect-runtime-refs-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117776_ '%#set! gxc#collect-runtime-refs-setq%)) - _tbl117776_)))) + (hash-put! _tbl118038_ '%#set! gxc#collect-runtime-refs-setq%)) + _tbl118038_)))) (define gxc#apply-collect-runtime-refs - (lambda (_stx117759_ . _args117761_) - (let ((__tmp118168 + (lambda (_stx118021_ . _args118023_) + (let ((__tmp118430 (lambda () (declare (not safe)) - (if (null? _args117761_) - (gxc#compile-e__0 _stx117759_) - (let ((_arg1117766_ (car _args117761_)) - (_rest117768_ (cdr _args117761_))) - (if (null? _rest117768_) - (gxc#compile-e__1 _stx117759_ _arg1117766_) - (let ((_arg2117771_ (car _rest117768_)) - (_rest117773_ (cdr _rest117768_))) - (if (null? _rest117773_) + (if (null? _args118023_) + (gxc#compile-e__0 _stx118021_) + (let ((_arg1118028_ (car _args118023_)) + (_rest118030_ (cdr _args118023_))) + (if (null? _rest118030_) + (gxc#compile-e__1 _stx118021_ _arg1118028_) + (let ((_arg2118033_ (car _rest118030_)) + (_rest118035_ (cdr _rest118030_))) + (if (null? _rest118035_) (gxc#compile-e__2 - _stx117759_ - _arg1117766_ - _arg2117771_) + _stx118021_ + _arg1118028_ + _arg2118033_) (apply gxc#compile-e - _stx117759_ - _arg1117766_ - _arg2117771_ - _rest117773_)))))))) - (__tmp118167 (force gxc#&collect-runtime-refs))) + _stx118021_ + _arg1118028_ + _arg2118033_ + _rest118035_)))))))) + (__tmp118429 (force gxc#&collect-runtime-refs))) (declare (not safe)) (call-with-parameters - __tmp118168 + __tmp118430 gxc#current-compile-methods - __tmp118167)))) + __tmp118429)))) (define gxc#xform-identity - (lambda (_stx117756_ . _args117757_) _stx117756_)) + (lambda (_stx118018_ . _args118019_) _stx118018_)) (define gxc#xform-wrap-source - (lambda (_stx117753_ _src-stx117754_) - (let ((__tmp118169 - (let () (declare (not safe)) (gx#stx-source _src-stx117754_)))) + (lambda (_stx118015_ _src-stx118016_) + (let ((__tmp118431 + (let () (declare (not safe)) (gx#stx-source _src-stx118016_)))) (declare (not safe)) - (gx#stx-wrap-source _stx117753_ __tmp118169)))) + (gx#stx-wrap-source _stx118015_ __tmp118431)))) (define gxc#xform-apply-compile-e - (lambda (_args117740_) - (lambda (_stx117742_) - (if (let () (declare (not safe)) (null? _args117740_)) - (let () (declare (not safe)) (gxc#compile-e__0 _stx117742_)) - (let ((_arg1117744_ (car _args117740_)) - (_rest117746_ (cdr _args117740_))) - (if (let () (declare (not safe)) (null? _rest117746_)) + (lambda (_args118002_) + (lambda (_stx118004_) + (if (let () (declare (not safe)) (null? _args118002_)) + (let () (declare (not safe)) (gxc#compile-e__0 _stx118004_)) + (let ((_arg1118006_ (car _args118002_)) + (_rest118008_ (cdr _args118002_))) + (if (let () (declare (not safe)) (null? _rest118008_)) (let () (declare (not safe)) - (gxc#compile-e__1 _stx117742_ _arg1117744_)) - (let ((_arg2117749_ (car _rest117746_)) - (_rest117751_ (cdr _rest117746_))) - (if (let () (declare (not safe)) (null? _rest117751_)) + (gxc#compile-e__1 _stx118004_ _arg1118006_)) + (let ((_arg2118011_ (car _rest118008_)) + (_rest118013_ (cdr _rest118008_))) + (if (let () (declare (not safe)) (null? _rest118013_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx117742_ - _arg1117744_ - _arg2117749_)) + _stx118004_ + _arg1118006_ + _arg2118011_)) (apply gxc#compile-e - _stx117742_ - _arg1117744_ - _arg2117749_ - _rest117751_))))))))) + _stx118004_ + _arg1118006_ + _arg2118011_ + _rest118013_))))))))) (define gxc#xform-begin% - (lambda (_stx117699_ . _args117700_) - (let* ((_g117702117712_ - (lambda (_g117703117709_) + (lambda (_stx117961_ . _args117962_) + (let* ((_g117964117974_ + (lambda (_g117965117971_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117703117709_)))) - (_g117701117737_ - (lambda (_g117703117715_) + _g117965117971_)))) + (_g117963117999_ + (lambda (_g117965117977_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117703117715_)) - (let ((_e117707117717_ + (gx#stx-pair? _g117965117977_)) + (let ((_e117969117979_ (let () (declare (not safe)) - (gx#stx-e _g117703117715_)))) - (let ((_hd117706117720_ + (gx#stx-e _g117965117977_)))) + (let ((_hd117968117982_ (let () (declare (not safe)) - (##car _e117707117717_))) - (_tl117705117722_ + (##car _e117969117979_))) + (_tl117967117984_ (let () (declare (not safe)) - (##cdr _e117707117717_)))) - ((lambda (_L117725_) - (let* ((_forms117735_ + (##cdr _e117969117979_)))) + ((lambda (_L117987_) + (let* ((_forms117997_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117700_)) - _L117725_)) - (__tmp118170 + _args117962_)) + _L117987_)) + (__tmp118432 (let () (declare (not safe)) - (cons '%#begin _forms117735_)))) + (cons '%#begin _forms117997_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118170 - _stx117699_))) - _tl117705117722_))) + __tmp118432 + _stx117961_))) + _tl117967117984_))) (let () (declare (not safe)) - (_g117702117712_ _g117703117715_)))))) + (_g117964117974_ _g117965117977_)))))) (declare (not safe)) - (_g117701117737_ _stx117699_)))) + (_g117963117999_ _stx117961_)))) (define gxc#xform-begin-syntax% - (lambda (_stx117657_ . _args117658_) - (let* ((_g117660117670_ - (lambda (_g117661117667_) + (lambda (_stx117919_ . _args117920_) + (let* ((_g117922117932_ + (lambda (_g117923117929_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117661117667_)))) - (_g117659117696_ - (lambda (_g117661117673_) + _g117923117929_)))) + (_g117921117958_ + (lambda (_g117923117935_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117661117673_)) - (let ((_e117665117675_ + (gx#stx-pair? _g117923117935_)) + (let ((_e117927117937_ (let () (declare (not safe)) - (gx#stx-e _g117661117673_)))) - (let ((_hd117664117678_ + (gx#stx-e _g117923117935_)))) + (let ((_hd117926117940_ (let () (declare (not safe)) - (##car _e117665117675_))) - (_tl117663117680_ + (##car _e117927117937_))) + (_tl117925117942_ (let () (declare (not safe)) - (##cdr _e117665117675_)))) - ((lambda (_L117683_) - (let ((__tmp118173 + (##cdr _e117927117937_)))) + ((lambda (_L117945_) + (let ((__tmp118435 (lambda () - (let* ((_forms117694_ + (let* ((_forms117956_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117658_)) - _L117683_)) - (__tmp118174 + _args117920_)) + _L117945_)) + (__tmp118436 (let () (declare (not safe)) (cons '%#begin-syntax - _forms117694_)))) + _forms117956_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118174 - _stx117657_)))) - (__tmp118171 - (let ((__tmp118172 + __tmp118436 + _stx117919_)))) + (__tmp118433 + (let ((__tmp118434 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp118172 '1)))) + (fx+ __tmp118434 '1)))) (declare (not safe)) (call-with-parameters - __tmp118173 + __tmp118435 gx#current-expander-phi - __tmp118171))) - _tl117663117680_))) + __tmp118433))) + _tl117925117942_))) (let () (declare (not safe)) - (_g117660117670_ _g117661117673_)))))) + (_g117922117932_ _g117923117935_)))))) (declare (not safe)) - (_g117659117696_ _stx117657_)))) + (_g117921117958_ _stx117919_)))) (define gxc#xform-module% - (lambda (_stx117585_ . _args117586_) - (let* ((_g117588117602_ - (lambda (_g117589117599_) + (lambda (_stx117847_ . _args117848_) + (let* ((_g117850117864_ + (lambda (_g117851117861_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117589117599_)))) - (_g117587117654_ - (lambda (_g117589117605_) + _g117851117861_)))) + (_g117849117916_ + (lambda (_g117851117867_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117589117605_)) - (let ((_e117594117607_ + (gx#stx-pair? _g117851117867_)) + (let ((_e117856117869_ (let () (declare (not safe)) - (gx#stx-e _g117589117605_)))) - (let ((_hd117593117610_ + (gx#stx-e _g117851117867_)))) + (let ((_hd117855117872_ (let () (declare (not safe)) - (##car _e117594117607_))) - (_tl117592117612_ + (##car _e117856117869_))) + (_tl117854117874_ (let () (declare (not safe)) - (##cdr _e117594117607_)))) + (##cdr _e117856117869_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117592117612_)) - (let ((_e117597117615_ + (gx#stx-pair? _tl117854117874_)) + (let ((_e117859117877_ (let () (declare (not safe)) - (gx#stx-e _tl117592117612_)))) - (let ((_hd117596117618_ + (gx#stx-e _tl117854117874_)))) + (let ((_hd117858117880_ (let () (declare (not safe)) - (##car _e117597117615_))) - (_tl117595117620_ + (##car _e117859117877_))) + (_tl117857117882_ (let () (declare (not safe)) - (##cdr _e117597117615_)))) - ((lambda (_L117623_ _L117624_) - (let* ((_ctx117637_ + (##cdr _e117859117877_)))) + ((lambda (_L117885_ _L117886_) + (let* ((_ctx117899_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L117624_))) - (_code117639_ + _L117886_))) + (_code117901_ (##structure-ref - _ctx117637_ + _ctx117899_ '11 gx#module-context::t '#f)) - (_code117651_ - (let ((__tmp118175 + (_code117913_ + (let ((__tmp118437 (lambda () (if (let () (declare (not safe)) - (null? _args117586_)) + (null? _args117848_)) (let () (declare (not safe)) (gxc#compile-e__0 - _code117639_)) - (let ((_arg1117642_ + _code117901_)) + (let ((_arg1117904_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _args117586_)) - (_rest117644_ (cdr _args117586_))) - (if (let () (declare (not safe)) (null? _rest117644_)) + (car _args117848_)) + (_rest117906_ (cdr _args117848_))) + (if (let () (declare (not safe)) (null? _rest117906_)) (let () (declare (not safe)) - (gxc#compile-e__1 _code117639_ _arg1117642_)) - (let ((_arg2117647_ (car _rest117644_)) - (_rest117649_ (cdr _rest117644_))) + (gxc#compile-e__1 _code117901_ _arg1117904_)) + (let ((_arg2117909_ (car _rest117906_)) + (_rest117911_ (cdr _rest117906_))) (if (let () (declare (not safe)) - (null? _rest117649_)) + (null? _rest117911_)) (let () (declare (not safe)) (gxc#compile-e__2 - _code117639_ - _arg1117642_ - _arg2117647_)) + _code117901_ + _arg1117904_ + _arg2117909_)) (apply gxc#compile-e - _code117639_ - _arg1117642_ - _arg2117647_ - _rest117649_))))))))) + _code117901_ + _arg1117904_ + _arg2117909_ + _rest117911_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp118175 + __tmp118437 gx#current-expander-context - _ctx117637_)))) + _ctx117899_)))) (##structure-set! - _ctx117637_ - _code117651_ + _ctx117899_ + _code117913_ '11 gx#module-context::t '#f) - (let ((__tmp118176 - (let ((__tmp118177 - (let ((__tmp118178 + (let ((__tmp118438 + (let ((__tmp118439 + (let ((__tmp118440 (let () (declare (not safe)) - (cons _code117651_ + (cons _code117913_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L117624_ __tmp118178)))) + (cons _L117886_ __tmp118440)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp118177)))) + (cons '%#module __tmp118439)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118176 - _stx117585_)))) - _tl117595117620_ - _hd117596117618_))) + __tmp118438 + _stx117847_)))) + _tl117857117882_ + _hd117858117880_))) (let () (declare (not safe)) - (_g117588117602_ _g117589117605_))))) + (_g117850117864_ _g117851117867_))))) (let () (declare (not safe)) - (_g117588117602_ _g117589117605_)))))) + (_g117850117864_ _g117851117867_)))))) (declare (not safe)) - (_g117587117654_ _stx117585_)))) + (_g117849117916_ _stx117847_)))) (define gxc#xform-define-values% - (lambda (_stx117506_ . _args117507_) - (let* ((_g117509117526_ - (lambda (_g117510117523_) + (lambda (_stx117768_ . _args117769_) + (let* ((_g117771117788_ + (lambda (_g117772117785_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117510117523_)))) - (_g117508117582_ - (lambda (_g117510117529_) + _g117772117785_)))) + (_g117770117844_ + (lambda (_g117772117791_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117510117529_)) - (let ((_e117515117531_ + (gx#stx-pair? _g117772117791_)) + (let ((_e117777117793_ (let () (declare (not safe)) - (gx#stx-e _g117510117529_)))) - (let ((_hd117514117534_ + (gx#stx-e _g117772117791_)))) + (let ((_hd117776117796_ (let () (declare (not safe)) - (##car _e117515117531_))) - (_tl117513117536_ + (##car _e117777117793_))) + (_tl117775117798_ (let () (declare (not safe)) - (##cdr _e117515117531_)))) + (##cdr _e117777117793_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117513117536_)) - (let ((_e117518117539_ + (gx#stx-pair? _tl117775117798_)) + (let ((_e117780117801_ (let () (declare (not safe)) - (gx#stx-e _tl117513117536_)))) - (let ((_hd117517117542_ + (gx#stx-e _tl117775117798_)))) + (let ((_hd117779117804_ (let () (declare (not safe)) - (##car _e117518117539_))) - (_tl117516117544_ + (##car _e117780117801_))) + (_tl117778117806_ (let () (declare (not safe)) - (##cdr _e117518117539_)))) + (##cdr _e117780117801_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117516117544_)) - (let ((_e117521117547_ + (gx#stx-pair? _tl117778117806_)) + (let ((_e117783117809_ (let () (declare (not safe)) - (gx#stx-e _tl117516117544_)))) - (let ((_hd117520117550_ + (gx#stx-e _tl117778117806_)))) + (let ((_hd117782117812_ (let () (declare (not safe)) - (##car _e117521117547_))) - (_tl117519117552_ + (##car _e117783117809_))) + (_tl117781117814_ (let () (declare (not safe)) - (##cdr _e117521117547_)))) + (##cdr _e117783117809_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117519117552_)) - ((lambda (_L117555_ _L117556_) - (let* ((_expr117580_ + _tl117781117814_)) + ((lambda (_L117817_ _L117818_) + (let* ((_expr117842_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args117507_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L117555_)) - (let ((_arg1117571_ (car _args117507_)) - (_rest117573_ (cdr _args117507_))) - (if (let () (declare (not safe)) (null? _rest117573_)) + (null? _args117769_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L117817_)) + (let ((_arg1117833_ (car _args117769_)) + (_rest117835_ (cdr _args117769_))) + (if (let () (declare (not safe)) (null? _rest117835_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L117555_ _arg1117571_)) - (let ((_arg2117576_ (car _rest117573_)) - (_rest117578_ (cdr _rest117573_))) + (gxc#compile-e__1 _L117817_ _arg1117833_)) + (let ((_arg2117838_ (car _rest117835_)) + (_rest117840_ (cdr _rest117835_))) (if (let () (declare (not safe)) - (null? _rest117578_)) + (null? _rest117840_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117555_ - _arg1117571_ - _arg2117576_)) + _L117817_ + _arg1117833_ + _arg2117838_)) (apply gxc#compile-e - _L117555_ - _arg1117571_ - _arg2117576_ - _rest117578_))))))) - (__tmp118179 - (let ((__tmp118180 - (let ((__tmp118181 + _L117817_ + _arg1117833_ + _arg2117838_ + _rest117840_))))))) + (__tmp118441 + (let ((__tmp118442 + (let ((__tmp118443 (let () (declare (not safe)) - (cons _expr117580_ '())))) + (cons _expr117842_ '())))) (declare (not safe)) - (cons _L117556_ __tmp118181)))) + (cons _L117818_ __tmp118443)))) (declare (not safe)) - (cons '%#define-values __tmp118180)))) + (cons '%#define-values __tmp118442)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118179 - _stx117506_))) - _hd117520117550_ - _hd117517117542_) + __tmp118441 + _stx117768_))) + _hd117782117812_ + _hd117779117804_) (let () (declare (not safe)) - (_g117509117526_ - _g117510117529_))))) + (_g117771117788_ + _g117772117791_))))) (let () (declare (not safe)) - (_g117509117526_ _g117510117529_))))) + (_g117771117788_ _g117772117791_))))) (let () (declare (not safe)) - (_g117509117526_ _g117510117529_))))) + (_g117771117788_ _g117772117791_))))) (let () (declare (not safe)) - (_g117509117526_ _g117510117529_)))))) + (_g117771117788_ _g117772117791_)))))) (declare (not safe)) - (_g117508117582_ _stx117506_)))) + (_g117770117844_ _stx117768_)))) (define gxc#xform-define-syntax% - (lambda (_stx117426_ . _args117427_) - (let* ((_g117429117446_ - (lambda (_g117430117443_) + (lambda (_stx117688_ . _args117689_) + (let* ((_g117691117708_ + (lambda (_g117692117705_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117430117443_)))) - (_g117428117503_ - (lambda (_g117430117449_) + _g117692117705_)))) + (_g117690117765_ + (lambda (_g117692117711_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117430117449_)) - (let ((_e117435117451_ + (gx#stx-pair? _g117692117711_)) + (let ((_e117697117713_ (let () (declare (not safe)) - (gx#stx-e _g117430117449_)))) - (let ((_hd117434117454_ + (gx#stx-e _g117692117711_)))) + (let ((_hd117696117716_ (let () (declare (not safe)) - (##car _e117435117451_))) - (_tl117433117456_ + (##car _e117697117713_))) + (_tl117695117718_ (let () (declare (not safe)) - (##cdr _e117435117451_)))) + (##cdr _e117697117713_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117433117456_)) - (let ((_e117438117459_ + (gx#stx-pair? _tl117695117718_)) + (let ((_e117700117721_ (let () (declare (not safe)) - (gx#stx-e _tl117433117456_)))) - (let ((_hd117437117462_ + (gx#stx-e _tl117695117718_)))) + (let ((_hd117699117724_ (let () (declare (not safe)) - (##car _e117438117459_))) - (_tl117436117464_ + (##car _e117700117721_))) + (_tl117698117726_ (let () (declare (not safe)) - (##cdr _e117438117459_)))) + (##cdr _e117700117721_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117436117464_)) - (let ((_e117441117467_ + (gx#stx-pair? _tl117698117726_)) + (let ((_e117703117729_ (let () (declare (not safe)) - (gx#stx-e _tl117436117464_)))) - (let ((_hd117440117470_ + (gx#stx-e _tl117698117726_)))) + (let ((_hd117702117732_ (let () (declare (not safe)) - (##car _e117441117467_))) - (_tl117439117472_ + (##car _e117703117729_))) + (_tl117701117734_ (let () (declare (not safe)) - (##cdr _e117441117467_)))) + (##cdr _e117703117729_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117439117472_)) - ((lambda (_L117475_ _L117476_) - (let ((__tmp118184 + _tl117701117734_)) + ((lambda (_L117737_ _L117738_) + (let ((__tmp118446 (lambda () - (let* ((_expr117501_ + (let* ((_expr117763_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (null? _args117427_)) + (null? _args117689_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L117475_)) - (let ((_arg1117492_ (car _args117427_)) - (_rest117494_ (cdr _args117427_))) + (gxc#compile-e__0 _L117737_)) + (let ((_arg1117754_ (car _args117689_)) + (_rest117756_ (cdr _args117689_))) (if (let () (declare (not safe)) - (null? _rest117494_)) + (null? _rest117756_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L117475_ - _arg1117492_)) - (let ((_arg2117497_ (car _rest117494_)) - (_rest117499_ (cdr _rest117494_))) + _L117737_ + _arg1117754_)) + (let ((_arg2117759_ (car _rest117756_)) + (_rest117761_ (cdr _rest117756_))) (if (let () (declare (not safe)) - (null? _rest117499_)) + (null? _rest117761_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117475_ - _arg1117492_ - _arg2117497_)) + _L117737_ + _arg1117754_ + _arg2117759_)) (apply gxc#compile-e - _L117475_ - _arg1117492_ - _arg2117497_ - _rest117499_))))))) - (__tmp118185 - (let ((__tmp118186 - (let ((__tmp118187 + _L117737_ + _arg1117754_ + _arg2117759_ + _rest117761_))))))) + (__tmp118447 + (let ((__tmp118448 + (let ((__tmp118449 (let () (declare (not safe)) - (cons _expr117501_ '())))) + (cons _expr117763_ '())))) (declare (not safe)) - (cons _L117476_ __tmp118187)))) + (cons _L117738_ __tmp118449)))) (declare (not safe)) - (cons '%#define-syntax __tmp118186)))) + (cons '%#define-syntax __tmp118448)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp118185 _stx117426_)))) - (__tmp118182 - (let ((__tmp118183 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp118447 _stx117688_)))) + (__tmp118444 + (let ((__tmp118445 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp118183 '1)))) + (fx+ __tmp118445 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp118184 + __tmp118446 gx#current-expander-phi - __tmp118182))) - _hd117440117470_ - _hd117437117462_) + __tmp118444))) + _hd117702117732_ + _hd117699117724_) (let () (declare (not safe)) - (_g117429117446_ - _g117430117449_))))) + (_g117691117708_ + _g117692117711_))))) (let () (declare (not safe)) - (_g117429117446_ _g117430117449_))))) + (_g117691117708_ _g117692117711_))))) (let () (declare (not safe)) - (_g117429117446_ _g117430117449_))))) + (_g117691117708_ _g117692117711_))))) (let () (declare (not safe)) - (_g117429117446_ _g117430117449_)))))) + (_g117691117708_ _g117692117711_)))))) (declare (not safe)) - (_g117428117503_ _stx117426_)))) + (_g117690117765_ _stx117688_)))) (define gxc#xform-begin-annotation% - (lambda (_stx117347_ . _args117348_) - (let* ((_g117350117367_ - (lambda (_g117351117364_) + (lambda (_stx117609_ . _args117610_) + (let* ((_g117612117629_ + (lambda (_g117613117626_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117351117364_)))) - (_g117349117423_ - (lambda (_g117351117370_) + _g117613117626_)))) + (_g117611117685_ + (lambda (_g117613117632_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117351117370_)) - (let ((_e117356117372_ + (gx#stx-pair? _g117613117632_)) + (let ((_e117618117634_ (let () (declare (not safe)) - (gx#stx-e _g117351117370_)))) - (let ((_hd117355117375_ + (gx#stx-e _g117613117632_)))) + (let ((_hd117617117637_ (let () (declare (not safe)) - (##car _e117356117372_))) - (_tl117354117377_ + (##car _e117618117634_))) + (_tl117616117639_ (let () (declare (not safe)) - (##cdr _e117356117372_)))) + (##cdr _e117618117634_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117354117377_)) - (let ((_e117359117380_ + (gx#stx-pair? _tl117616117639_)) + (let ((_e117621117642_ (let () (declare (not safe)) - (gx#stx-e _tl117354117377_)))) - (let ((_hd117358117383_ + (gx#stx-e _tl117616117639_)))) + (let ((_hd117620117645_ (let () (declare (not safe)) - (##car _e117359117380_))) - (_tl117357117385_ + (##car _e117621117642_))) + (_tl117619117647_ (let () (declare (not safe)) - (##cdr _e117359117380_)))) + (##cdr _e117621117642_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117357117385_)) - (let ((_e117362117388_ + (gx#stx-pair? _tl117619117647_)) + (let ((_e117624117650_ (let () (declare (not safe)) - (gx#stx-e _tl117357117385_)))) - (let ((_hd117361117391_ + (gx#stx-e _tl117619117647_)))) + (let ((_hd117623117653_ (let () (declare (not safe)) - (##car _e117362117388_))) - (_tl117360117393_ + (##car _e117624117650_))) + (_tl117622117655_ (let () (declare (not safe)) - (##cdr _e117362117388_)))) + (##cdr _e117624117650_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117360117393_)) - ((lambda (_L117396_ _L117397_) - (let* ((_expr117421_ + _tl117622117655_)) + ((lambda (_L117658_ _L117659_) + (let* ((_expr117683_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args117348_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L117396_)) - (let ((_arg1117412_ (car _args117348_)) - (_rest117414_ (cdr _args117348_))) - (if (let () (declare (not safe)) (null? _rest117414_)) + (null? _args117610_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L117658_)) + (let ((_arg1117674_ (car _args117610_)) + (_rest117676_ (cdr _args117610_))) + (if (let () (declare (not safe)) (null? _rest117676_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L117396_ _arg1117412_)) - (let ((_arg2117417_ (car _rest117414_)) - (_rest117419_ (cdr _rest117414_))) + (gxc#compile-e__1 _L117658_ _arg1117674_)) + (let ((_arg2117679_ (car _rest117676_)) + (_rest117681_ (cdr _rest117676_))) (if (let () (declare (not safe)) - (null? _rest117419_)) + (null? _rest117681_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117396_ - _arg1117412_ - _arg2117417_)) + _L117658_ + _arg1117674_ + _arg2117679_)) (apply gxc#compile-e - _L117396_ - _arg1117412_ - _arg2117417_ - _rest117419_))))))) - (__tmp118188 - (let ((__tmp118189 - (let ((__tmp118190 + _L117658_ + _arg1117674_ + _arg2117679_ + _rest117681_))))))) + (__tmp118450 + (let ((__tmp118451 + (let ((__tmp118452 (let () (declare (not safe)) - (cons _expr117421_ '())))) + (cons _expr117683_ '())))) (declare (not safe)) - (cons _L117397_ __tmp118190)))) + (cons _L117659_ __tmp118452)))) (declare (not safe)) - (cons '%#begin-annotation __tmp118189)))) + (cons '%#begin-annotation __tmp118451)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118188 - _stx117347_))) - _hd117361117391_ - _hd117358117383_) + __tmp118450 + _stx117609_))) + _hd117623117653_ + _hd117620117645_) (let () (declare (not safe)) - (_g117350117367_ - _g117351117370_))))) + (_g117612117629_ + _g117613117632_))))) (let () (declare (not safe)) - (_g117350117367_ _g117351117370_))))) + (_g117612117629_ _g117613117632_))))) (let () (declare (not safe)) - (_g117350117367_ _g117351117370_))))) + (_g117612117629_ _g117613117632_))))) (let () (declare (not safe)) - (_g117350117367_ _g117351117370_)))))) + (_g117612117629_ _g117613117632_)))))) (declare (not safe)) - (_g117349117423_ _stx117347_)))) + (_g117611117685_ _stx117609_)))) (define gxc#xform-lambda% - (lambda (_stx117290_ . _args117291_) - (let* ((_g117293117307_ - (lambda (_g117294117304_) + (lambda (_stx117552_ . _args117553_) + (let* ((_g117555117569_ + (lambda (_g117556117566_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117294117304_)))) - (_g117292117344_ - (lambda (_g117294117310_) + _g117556117566_)))) + (_g117554117606_ + (lambda (_g117556117572_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117294117310_)) - (let ((_e117299117312_ + (gx#stx-pair? _g117556117572_)) + (let ((_e117561117574_ (let () (declare (not safe)) - (gx#stx-e _g117294117310_)))) - (let ((_hd117298117315_ + (gx#stx-e _g117556117572_)))) + (let ((_hd117560117577_ (let () (declare (not safe)) - (##car _e117299117312_))) - (_tl117297117317_ + (##car _e117561117574_))) + (_tl117559117579_ (let () (declare (not safe)) - (##cdr _e117299117312_)))) + (##cdr _e117561117574_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117297117317_)) - (let ((_e117302117320_ + (gx#stx-pair? _tl117559117579_)) + (let ((_e117564117582_ (let () (declare (not safe)) - (gx#stx-e _tl117297117317_)))) - (let ((_hd117301117323_ + (gx#stx-e _tl117559117579_)))) + (let ((_hd117563117585_ (let () (declare (not safe)) - (##car _e117302117320_))) - (_tl117300117325_ + (##car _e117564117582_))) + (_tl117562117587_ (let () (declare (not safe)) - (##cdr _e117302117320_)))) - ((lambda (_L117328_ _L117329_) - (let* ((_body117342_ + (##cdr _e117564117582_)))) + ((lambda (_L117590_ _L117591_) + (let* ((_body117604_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117291_)) - _L117328_)) - (__tmp118191 - (let ((__tmp118192 + _args117553_)) + _L117590_)) + (__tmp118453 + (let ((__tmp118454 (let () (declare (not safe)) - (cons _L117329_ - _body117342_)))) + (cons _L117591_ + _body117604_)))) (declare (not safe)) - (cons '%#lambda __tmp118192)))) + (cons '%#lambda __tmp118454)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118191 - _stx117290_))) - _tl117300117325_ - _hd117301117323_))) + __tmp118453 + _stx117552_))) + _tl117562117587_ + _hd117563117585_))) (let () (declare (not safe)) - (_g117293117307_ _g117294117310_))))) + (_g117555117569_ _g117556117572_))))) (let () (declare (not safe)) - (_g117293117307_ _g117294117310_)))))) + (_g117555117569_ _g117556117572_)))))) (declare (not safe)) - (_g117292117344_ _stx117290_)))) + (_g117554117606_ _stx117552_)))) (define gxc#xform-case-lambda% - (lambda (_stx117203_ . _args117204_) - (letrec ((_clause-e117206_ - (lambda (_clause117247_) - (let* ((_g117249117260_ - (lambda (_g117250117257_) + (lambda (_stx117465_ . _args117466_) + (letrec ((_clause-e117468_ + (lambda (_clause117509_) + (let* ((_g117511117522_ + (lambda (_g117512117519_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117250117257_)))) - (_g117248117287_ - (lambda (_g117250117263_) + _g117512117519_)))) + (_g117510117549_ + (lambda (_g117512117525_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117250117263_)) - (let ((_e117255117265_ + (gx#stx-pair? _g117512117525_)) + (let ((_e117517117527_ (let () (declare (not safe)) - (gx#stx-e _g117250117263_)))) - (let ((_hd117254117268_ + (gx#stx-e _g117512117525_)))) + (let ((_hd117516117530_ (let () (declare (not safe)) - (##car _e117255117265_))) - (_tl117253117270_ + (##car _e117517117527_))) + (_tl117515117532_ (let () (declare (not safe)) - (##cdr _e117255117265_)))) - ((lambda (_L117273_ _L117274_) - (let ((_body117285_ + (##cdr _e117517117527_)))) + ((lambda (_L117535_ _L117536_) + (let ((_body117547_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117204_)) - _L117273_))) + _args117466_)) + _L117535_))) (declare (not safe)) - (cons _L117274_ _body117285_))) - _tl117253117270_ - _hd117254117268_))) + (cons _L117536_ _body117547_))) + _tl117515117532_ + _hd117516117530_))) (let () (declare (not safe)) - (_g117249117260_ _g117250117263_)))))) + (_g117511117522_ _g117512117525_)))))) (declare (not safe)) - (_g117248117287_ _clause117247_))))) - (let* ((_g117208117218_ - (lambda (_g117209117215_) + (_g117510117549_ _clause117509_))))) + (let* ((_g117470117480_ + (lambda (_g117471117477_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117209117215_)))) - (_g117207117244_ - (lambda (_g117209117221_) + _g117471117477_)))) + (_g117469117506_ + (lambda (_g117471117483_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117209117221_)) - (let ((_e117213117223_ + (gx#stx-pair? _g117471117483_)) + (let ((_e117475117485_ (let () (declare (not safe)) - (gx#stx-e _g117209117221_)))) - (let ((_hd117212117226_ + (gx#stx-e _g117471117483_)))) + (let ((_hd117474117488_ (let () (declare (not safe)) - (##car _e117213117223_))) - (_tl117211117228_ + (##car _e117475117485_))) + (_tl117473117490_ (let () (declare (not safe)) - (##cdr _e117213117223_)))) - ((lambda (_L117231_) - (let* ((_clauses117242_ - (map _clause-e117206_ _L117231_)) - (__tmp118193 + (##cdr _e117475117485_)))) + ((lambda (_L117493_) + (let* ((_clauses117504_ + (map _clause-e117468_ _L117493_)) + (__tmp118455 (let () (declare (not safe)) (cons '%#case-lambda - _clauses117242_)))) + _clauses117504_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118193 - _stx117203_))) - _tl117211117228_))) + __tmp118455 + _stx117465_))) + _tl117473117490_))) (let () (declare (not safe)) - (_g117208117218_ _g117209117221_)))))) + (_g117470117480_ _g117471117483_)))))) (declare (not safe)) - (_g117207117244_ _stx117203_))))) + (_g117469117506_ _stx117465_))))) (define gxc#xform-let-values% - (lambda (_stx116997_ . _args116998_) - (let* ((_g117000117033_ - (lambda (_g117001117030_) + (lambda (_stx117259_ . _args117260_) + (let* ((_g117262117295_ + (lambda (_g117263117292_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117001117030_)))) - (_g116999117200_ - (lambda (_g117001117036_) + _g117263117292_)))) + (_g117261117462_ + (lambda (_g117263117298_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117001117036_)) - (let ((_e117008117038_ + (gx#stx-pair? _g117263117298_)) + (let ((_e117270117300_ (let () (declare (not safe)) - (gx#stx-e _g117001117036_)))) - (let ((_hd117007117041_ + (gx#stx-e _g117263117298_)))) + (let ((_hd117269117303_ (let () (declare (not safe)) - (##car _e117008117038_))) - (_tl117006117043_ + (##car _e117270117300_))) + (_tl117268117305_ (let () (declare (not safe)) - (##cdr _e117008117038_)))) + (##cdr _e117270117300_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117006117043_)) - (let ((_e117011117046_ + (gx#stx-pair? _tl117268117305_)) + (let ((_e117273117308_ (let () (declare (not safe)) - (gx#stx-e _tl117006117043_)))) - (let ((_hd117010117049_ + (gx#stx-e _tl117268117305_)))) + (let ((_hd117272117311_ (let () (declare (not safe)) - (##car _e117011117046_))) - (_tl117009117051_ + (##car _e117273117308_))) + (_tl117271117313_ (let () (declare (not safe)) - (##cdr _e117011117046_)))) + (##cdr _e117273117308_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd117010117049_)) - (let ((_g118194_ + (gx#stx-pair/null? _hd117272117311_)) + (let ((_g118456_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd117010117049_ + _hd117272117311_ '0)))) (begin - (let ((_g118195_ + (let ((_g118457_ (let () (declare (not safe)) - (if (##values? _g118194_) + (if (##values? _g118456_) (##vector-length - _g118194_) + _g118456_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118195_ 2))) + (##fx= _g118457_ 2))) (error "Context expects 2 values" - _g118195_))) - (let ((_target117012117054_ + _g118457_))) + (let ((_target117274117316_ (let () (declare (not safe)) - (##vector-ref _g118194_ 0))) - (_tl117014117056_ + (##vector-ref _g118456_ 0))) + (_tl117276117318_ (let () (declare (not safe)) (##vector-ref - _g118194_ + _g118456_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117014117056_)) - (letrec ((_loop117015117059_ - (lambda (_hd117013117062_ + _tl117276117318_)) + (letrec ((_loop117277117321_ + (lambda (_hd117275117324_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr117019117064_ - _hd117020117066_) + _expr117281117326_ + _hd117282117328_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd117013117062_)) - (let ((_e117016117069_ + (gx#stx-pair? _hd117275117324_)) + (let ((_e117278117331_ (let () (declare (not safe)) - (gx#stx-e _hd117013117062_)))) - (let ((_lp-hd117017117072_ + (gx#stx-e _hd117275117324_)))) + (let ((_lp-hd117279117334_ (let () (declare (not safe)) - (##car _e117016117069_))) - (_lp-tl117018117074_ + (##car _e117278117331_))) + (_lp-tl117280117336_ (let () (declare (not safe)) - (##cdr _e117016117069_)))) + (##cdr _e117278117331_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd117017117072_)) - (let ((_e117025117077_ + (gx#stx-pair? _lp-hd117279117334_)) + (let ((_e117287117339_ (let () (declare (not safe)) - (gx#stx-e _lp-hd117017117072_)))) - (let ((_hd117024117080_ + (gx#stx-e _lp-hd117279117334_)))) + (let ((_hd117286117342_ (let () (declare (not safe)) - (##car _e117025117077_))) - (_tl117023117082_ + (##car _e117287117339_))) + (_tl117285117344_ (let () (declare (not safe)) - (##cdr _e117025117077_)))) + (##cdr _e117287117339_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117023117082_)) - (let ((_e117028117085_ + (gx#stx-pair? _tl117285117344_)) + (let ((_e117290117347_ (let () (declare (not safe)) - (gx#stx-e _tl117023117082_)))) - (let ((_hd117027117088_ + (gx#stx-e _tl117285117344_)))) + (let ((_hd117289117350_ (let () (declare (not safe)) - (##car _e117028117085_))) - (_tl117026117090_ + (##car _e117290117347_))) + (_tl117288117352_ (let () (declare (not safe)) - (##cdr _e117028117085_)))) + (##cdr _e117290117347_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117026117090_)) - (let ((__tmp118208 + _tl117288117352_)) + (let ((__tmp118470 (let () (declare (not safe)) - (cons _hd117027117088_ - _expr117019117064_))) - (__tmp118207 + (cons _hd117289117350_ + _expr117281117326_))) + (__tmp118469 (let () (declare (not safe)) - (cons _hd117024117080_ - _hd117020117066_)))) + (cons _hd117286117342_ + _hd117282117328_)))) (declare (not safe)) - (_loop117015117059_ - _lp-tl117018117074_ - __tmp118208 - __tmp118207)) + (_loop117277117321_ + _lp-tl117280117336_ + __tmp118470 + __tmp118469)) (let () (declare (not safe)) - (_g117000117033_ - _g117001117036_))))) + (_g117262117295_ + _g117263117298_))))) (let () (declare (not safe)) - (_g117000117033_ _g117001117036_))))) + (_g117262117295_ _g117263117298_))))) (let () (declare (not safe)) - (_g117000117033_ _g117001117036_))))) - (let ((_expr117021117093_ (reverse _expr117019117064_)) - (_hd117022117095_ (reverse _hd117020117066_))) - ((lambda (_L117098_ _L117099_ _L117100_ _L117101_) - (let* ((_g117120117136_ - (lambda (_g117121117133_) + (_g117262117295_ _g117263117298_))))) + (let ((_expr117283117355_ (reverse _expr117281117326_)) + (_hd117284117357_ (reverse _hd117282117328_))) + ((lambda (_L117360_ _L117361_ _L117362_ _L117363_) + (let* ((_g117382117398_ + (lambda (_g117383117395_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117121117133_)))) - (_g117119117190_ - (lambda (_g117121117139_) + _g117383117395_)))) + (_g117381117452_ + (lambda (_g117383117401_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g117121117139_)) - (let ((_g118196_ + _g117383117401_)) + (let ((_g118458_ (let () (declare (not safe)) (gx#syntax-split-splice - _g117121117139_ + _g117383117401_ '0)))) (begin - (let ((_g118197_ + (let ((_g118459_ (let () (declare (not safe)) (if (##values? - _g118196_) + _g118458_) (##vector-length - _g118196_) + _g118458_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118197_ + (##fx= _g118459_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g118197_))) - (let ((_target117123117141_ + _g118459_))) + (let ((_target117385117403_ (let () (declare (not safe)) (##vector-ref - _g118196_ + _g118458_ 0))) - (_tl117125117143_ + (_tl117387117405_ (let () (declare (not safe)) (##vector-ref - _g118196_ + _g118458_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117125117143_)) - (letrec ((_loop117126117146_ - (lambda (_hd117124117149_ + _tl117387117405_)) + (letrec ((_loop117388117408_ + (lambda (_hd117386117411_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr117130117151_) + _expr117392117413_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd117124117149_)) - (let ((_e117127117154_ + (gx#stx-pair? _hd117386117411_)) + (let ((_e117389117416_ (let () (declare (not safe)) - (gx#syntax-e _hd117124117149_)))) - (let ((_lp-hd117128117157_ + (gx#syntax-e _hd117386117411_)))) + (let ((_lp-hd117390117419_ (let () (declare (not safe)) - (##car _e117127117154_))) - (_lp-tl117129117159_ + (##car _e117389117416_))) + (_lp-tl117391117421_ (let () (declare (not safe)) - (##cdr _e117127117154_)))) - (let ((__tmp118204 + (##cdr _e117389117416_)))) + (let ((__tmp118466 (let () (declare (not safe)) - (cons _lp-hd117128117157_ - _expr117130117151_)))) + (cons _lp-hd117390117419_ + _expr117392117413_)))) (declare (not safe)) - (_loop117126117146_ - _lp-tl117129117159_ - __tmp118204)))) - (let ((_expr117131117162_ - (reverse _expr117130117151_))) - ((lambda (_L117165_) + (_loop117388117408_ + _lp-tl117391117421_ + __tmp118466)))) + (let ((_expr117393117424_ + (reverse _expr117392117413_))) + ((lambda (_L117427_) (let () - (let* ((_body117178_ + (let* ((_body117440_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116998_)) - _L117098_)) - (__tmp118198 - (let ((__tmp118199 - (let ((__tmp118200 + _args117260_)) + _L117360_)) + (__tmp118460 + (let ((__tmp118461 + (let ((__tmp118462 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L117165_ - _L117100_)) - (let ((__tmp118201 + _L117427_ + _L117362_)) + (let ((__tmp118463 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g117179117183_ - _g117180117185_ - _g117181117187_) - (let ((__tmp118202 - (let ((__tmp118203 + (lambda (_g117441117445_ + _g117442117447_ + _g117443117449_) + (let ((__tmp118464 + (let ((__tmp118465 (let () (declare (not safe)) - (cons _g117179117183_ '())))) + (cons _g117441117445_ '())))) (declare (not safe)) - (cons _g117180117185_ __tmp118203)))) + (cons _g117442117447_ __tmp118465)))) (declare (not safe)) - (cons __tmp118202 _g117181117187_))))) + (cons __tmp118464 _g117443117449_))))) (declare (not safe)) - (foldr2 __tmp118201 '() _L117165_ _L117100_))))) + (foldr2 __tmp118463 '() _L117427_ _L117362_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp118200 - _body117178_)))) + (cons __tmp118462 + _body117440_)))) (declare (not safe)) - (cons _L117101_ __tmp118199)))) + (cons _L117363_ __tmp118461)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118198 - _stx116997_)))) - _expr117131117162_)))))) + __tmp118460 + _stx117259_)))) + _expr117393117424_)))))) (let () (declare (not safe)) - (_loop117126117146_ _target117123117141_ '()))) + (_loop117388117408_ _target117385117403_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g117120117136_ - _g117121117139_)))))) + (_g117382117398_ + _g117383117401_)))))) (let () (declare (not safe)) - (_g117120117136_ - _g117121117139_))))) - (__tmp118205 + (_g117382117398_ + _g117383117401_))))) + (__tmp118467 (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116998_)) - (let ((__tmp118206 - (lambda (_g117192117195_ - _g117193117197_) + _args117260_)) + (let ((__tmp118468 + (lambda (_g117454117457_ + _g117455117459_) (let () (declare (not safe)) - (cons _g117192117195_ - _g117193117197_))))) + (cons _g117454117457_ + _g117455117459_))))) (declare (not safe)) - (foldr1 __tmp118206 + (foldr1 __tmp118468 '() - _L117099_))))) + _L117361_))))) (declare (not safe)) - (_g117119117190_ __tmp118205))) - _tl117009117051_ - _expr117021117093_ - _hd117022117095_ - _hd117007117041_)))))) + (_g117381117452_ __tmp118467))) + _tl117271117313_ + _expr117283117355_ + _hd117284117357_ + _hd117269117303_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop117015117059_ - _target117012117054_ + (_loop117277117321_ + _target117274117316_ '() '()))) (let () (declare (not safe)) - (_g117000117033_ - _g117001117036_)))))) + (_g117262117295_ + _g117263117298_)))))) (let () (declare (not safe)) - (_g117000117033_ _g117001117036_))))) + (_g117262117295_ _g117263117298_))))) (let () (declare (not safe)) - (_g117000117033_ _g117001117036_))))) + (_g117262117295_ _g117263117298_))))) (let () (declare (not safe)) - (_g117000117033_ _g117001117036_)))))) + (_g117262117295_ _g117263117298_)))))) (declare (not safe)) - (_g116999117200_ _stx116997_)))) + (_g117261117462_ _stx117259_)))) (define gxc#xform-operands - (lambda (_stx116953_ . _args116954_) - (let* ((_g116956116967_ - (lambda (_g116957116964_) + (lambda (_stx117215_ . _args117216_) + (let* ((_g117218117229_ + (lambda (_g117219117226_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116957116964_)))) - (_g116955116994_ - (lambda (_g116957116970_) + _g117219117226_)))) + (_g117217117256_ + (lambda (_g117219117232_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116957116970_)) - (let ((_e116962116972_ + (gx#stx-pair? _g117219117232_)) + (let ((_e117224117234_ (let () (declare (not safe)) - (gx#stx-e _g116957116970_)))) - (let ((_hd116961116975_ + (gx#stx-e _g117219117232_)))) + (let ((_hd117223117237_ (let () (declare (not safe)) - (##car _e116962116972_))) - (_tl116960116977_ + (##car _e117224117234_))) + (_tl117222117239_ (let () (declare (not safe)) - (##cdr _e116962116972_)))) - ((lambda (_L116980_ _L116981_) - (let* ((_rands116992_ + (##cdr _e117224117234_)))) + ((lambda (_L117242_ _L117243_) + (let* ((_rands117254_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116954_)) - _L116980_)) - (__tmp118209 + _args117216_)) + _L117242_)) + (__tmp118471 (let () (declare (not safe)) - (cons _L116981_ _rands116992_)))) + (cons _L117243_ _rands117254_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118209 - _stx116953_))) - _tl116960116977_ - _hd116961116975_))) + __tmp118471 + _stx117215_))) + _tl117222117239_ + _hd117223117237_))) (let () (declare (not safe)) - (_g116956116967_ _g116957116970_)))))) + (_g117218117229_ _g117219117232_)))))) (declare (not safe)) - (_g116955116994_ _stx116953_)))) + (_g117217117256_ _stx117215_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx116874_ . _args116875_) - (let* ((_g116877116894_ - (lambda (_g116878116891_) + (lambda (_stx117136_ . _args117137_) + (let* ((_g117139117156_ + (lambda (_g117140117153_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116878116891_)))) - (_g116876116950_ - (lambda (_g116878116897_) + _g117140117153_)))) + (_g117138117212_ + (lambda (_g117140117159_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116878116897_)) - (let ((_e116883116899_ + (gx#stx-pair? _g117140117159_)) + (let ((_e117145117161_ (let () (declare (not safe)) - (gx#stx-e _g116878116897_)))) - (let ((_hd116882116902_ + (gx#stx-e _g117140117159_)))) + (let ((_hd117144117164_ (let () (declare (not safe)) - (##car _e116883116899_))) - (_tl116881116904_ + (##car _e117145117161_))) + (_tl117143117166_ (let () (declare (not safe)) - (##cdr _e116883116899_)))) + (##cdr _e117145117161_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116881116904_)) - (let ((_e116886116907_ + (gx#stx-pair? _tl117143117166_)) + (let ((_e117148117169_ (let () (declare (not safe)) - (gx#stx-e _tl116881116904_)))) - (let ((_hd116885116910_ + (gx#stx-e _tl117143117166_)))) + (let ((_hd117147117172_ (let () (declare (not safe)) - (##car _e116886116907_))) - (_tl116884116912_ + (##car _e117148117169_))) + (_tl117146117174_ (let () (declare (not safe)) - (##cdr _e116886116907_)))) + (##cdr _e117148117169_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116884116912_)) - (let ((_e116889116915_ + (gx#stx-pair? _tl117146117174_)) + (let ((_e117151117177_ (let () (declare (not safe)) - (gx#stx-e _tl116884116912_)))) - (let ((_hd116888116918_ + (gx#stx-e _tl117146117174_)))) + (let ((_hd117150117180_ (let () (declare (not safe)) - (##car _e116889116915_))) - (_tl116887116920_ + (##car _e117151117177_))) + (_tl117149117182_ (let () (declare (not safe)) - (##cdr _e116889116915_)))) + (##cdr _e117151117177_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116887116920_)) - ((lambda (_L116923_ _L116924_) - (let* ((_expr116948_ + _tl117149117182_)) + ((lambda (_L117185_ _L117186_) + (let* ((_expr117210_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args116875_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L116923_)) - (let ((_arg1116939_ (car _args116875_)) - (_rest116941_ (cdr _args116875_))) - (if (let () (declare (not safe)) (null? _rest116941_)) + (null? _args117137_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L117185_)) + (let ((_arg1117201_ (car _args117137_)) + (_rest117203_ (cdr _args117137_))) + (if (let () (declare (not safe)) (null? _rest117203_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L116923_ _arg1116939_)) - (let ((_arg2116944_ (car _rest116941_)) - (_rest116946_ (cdr _rest116941_))) + (gxc#compile-e__1 _L117185_ _arg1117201_)) + (let ((_arg2117206_ (car _rest117203_)) + (_rest117208_ (cdr _rest117203_))) (if (let () (declare (not safe)) - (null? _rest116946_)) + (null? _rest117208_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L116923_ - _arg1116939_ - _arg2116944_)) + _L117185_ + _arg1117201_ + _arg2117206_)) (apply gxc#compile-e - _L116923_ - _arg1116939_ - _arg2116944_ - _rest116946_))))))) - (__tmp118210 - (let ((__tmp118211 - (let ((__tmp118212 + _L117185_ + _arg1117201_ + _arg2117206_ + _rest117208_))))))) + (__tmp118472 + (let ((__tmp118473 + (let ((__tmp118474 (let () (declare (not safe)) - (cons _expr116948_ '())))) + (cons _expr117210_ '())))) (declare (not safe)) - (cons _L116924_ __tmp118212)))) + (cons _L117186_ __tmp118474)))) (declare (not safe)) - (cons '%#set! __tmp118211)))) + (cons '%#set! __tmp118473)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118210 - _stx116874_))) - _hd116888116918_ - _hd116885116910_) + __tmp118472 + _stx117136_))) + _hd117150117180_ + _hd117147117172_) (let () (declare (not safe)) - (_g116877116894_ - _g116878116897_))))) + (_g117139117156_ + _g117140117159_))))) (let () (declare (not safe)) - (_g116877116894_ _g116878116897_))))) + (_g117139117156_ _g117140117159_))))) (let () (declare (not safe)) - (_g116877116894_ _g116878116897_))))) + (_g117139117156_ _g117140117159_))))) (let () (declare (not safe)) - (_g116877116894_ _g116878116897_)))))) + (_g117139117156_ _g117140117159_)))))) (declare (not safe)) - (_g116876116950_ _stx116874_)))) + (_g117138117212_ _stx117136_)))) (define gxc#collect-mutators-setq% - (lambda (_stx116805_) - (let* ((_g116807116824_ - (lambda (_g116808116821_) + (lambda (_stx117067_) + (let* ((_g117069117086_ + (lambda (_g117070117083_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116808116821_)))) - (_g116806116871_ - (lambda (_g116808116827_) + _g117070117083_)))) + (_g117068117133_ + (lambda (_g117070117089_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116808116827_)) - (let ((_e116813116829_ + (gx#stx-pair? _g117070117089_)) + (let ((_e117075117091_ (let () (declare (not safe)) - (gx#stx-e _g116808116827_)))) - (let ((_hd116812116832_ + (gx#stx-e _g117070117089_)))) + (let ((_hd117074117094_ (let () (declare (not safe)) - (##car _e116813116829_))) - (_tl116811116834_ + (##car _e117075117091_))) + (_tl117073117096_ (let () (declare (not safe)) - (##cdr _e116813116829_)))) + (##cdr _e117075117091_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116811116834_)) - (let ((_e116816116837_ + (gx#stx-pair? _tl117073117096_)) + (let ((_e117078117099_ (let () (declare (not safe)) - (gx#stx-e _tl116811116834_)))) - (let ((_hd116815116840_ + (gx#stx-e _tl117073117096_)))) + (let ((_hd117077117102_ (let () (declare (not safe)) - (##car _e116816116837_))) - (_tl116814116842_ + (##car _e117078117099_))) + (_tl117076117104_ (let () (declare (not safe)) - (##cdr _e116816116837_)))) + (##cdr _e117078117099_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116814116842_)) - (let ((_e116819116845_ + (gx#stx-pair? _tl117076117104_)) + (let ((_e117081117107_ (let () (declare (not safe)) - (gx#stx-e _tl116814116842_)))) - (let ((_hd116818116848_ + (gx#stx-e _tl117076117104_)))) + (let ((_hd117080117110_ (let () (declare (not safe)) - (##car _e116819116845_))) - (_tl116817116850_ + (##car _e117081117107_))) + (_tl117079117112_ (let () (declare (not safe)) - (##cdr _e116819116845_)))) + (##cdr _e117081117107_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116817116850_)) - ((lambda (_L116853_ _L116854_) - (let ((_sym116869_ + _tl117079117112_)) + ((lambda (_L117115_ _L117116_) + (let ((_sym117131_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116854_)))) + _L117116_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym116869_)) - (let ((__tmp118213 + _sym117131_)) + (let ((__tmp118475 (gxc#current-compile-mutators))) (declare (not safe)) (hash-put! - __tmp118213 - _sym116869_ + __tmp118475 + _sym117131_ '#t)) (let () (declare (not safe)) (gxc#compile-e__0 - _L116853_)))) - _hd116818116848_ - _hd116815116840_) + _L117115_)))) + _hd117080117110_ + _hd117077117102_) (let () (declare (not safe)) - (_g116807116824_ - _g116808116827_))))) + (_g117069117086_ + _g117070117089_))))) (let () (declare (not safe)) - (_g116807116824_ _g116808116827_))))) + (_g117069117086_ _g117070117089_))))) (let () (declare (not safe)) - (_g116807116824_ _g116808116827_))))) + (_g117069117086_ _g117070117089_))))) (let () (declare (not safe)) - (_g116807116824_ _g116808116827_)))))) + (_g117069117086_ _g117070117089_)))))) (declare (not safe)) - (_g116806116871_ _stx116805_)))) + (_g117068117133_ _stx117067_)))) (define gxc#collect-methods-call% - (lambda (_stx116359_) - (let* ((___stx117903117904_ _stx116359_) - (_g116363116465_ + (lambda (_stx116621_) + (let* ((___stx118165118166_ _stx116621_) + (_g116625116727_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx117903117904_))))) - (let ((___kont117905117906_ - (lambda (_L116755_ _L116756_ _L116757_ _L116758_ _L116759_) - (let ((__tmp118214 + ___stx118165118166_))))) + (let ((___kont118167118168_ + (lambda (_L117017_ _L117018_ _L117019_ _L117020_ _L117021_) + (let ((__tmp118476 (let () (declare (not safe)) - (gxc#identifier-symbol _L116756_)))) + (gxc#identifier-symbol _L117018_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp118214)))) - (___kont117907117908_ - (lambda (_L116581_ _L116582_ _L116583_ _L116584_) - (let ((__tmp118215 + (gxc#optimizer-top-level-method! __tmp118476)))) + (___kont118169118170_ + (lambda (_L116843_ _L116844_ _L116845_ _L116846_) + (let ((__tmp118477 (let () (declare (not safe)) - (gxc#identifier-symbol _L116581_)))) + (gxc#identifier-symbol _L116843_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp118215)))) - (___kont117909117910_ (lambda () '#!void))) - (let ((___match118038118039_ - (lambda (_e116372116627_ - _hd116371116630_ - _tl116370116632_ - _e116375116635_ - _hd116374116638_ - _tl116373116640_ - _e116378116643_ - _hd116377116646_ - _tl116376116648_ - _e116381116651_ - _hd116380116654_ - _tl116379116656_ - _e116384116659_ - _hd116383116662_ - _tl116382116664_ - _e116387116667_ - _hd116386116670_ - _tl116385116672_ - _e116390116675_ - _hd116389116678_ - _tl116388116680_ - _e116393116683_ - _hd116392116686_ - _tl116391116688_ - _e116396116691_ - _hd116395116694_ - _tl116394116696_ - _e116399116699_ - _hd116398116702_ - _tl116397116704_ - _e116402116707_ - _hd116401116710_ - _tl116400116712_ - _e116405116715_ - _hd116404116718_ - _tl116403116720_ - _e116408116723_ - _hd116407116726_ - _tl116406116728_ - _e116411116731_ - _hd116410116734_ - _tl116409116736_ - _e116414116739_ - _hd116413116742_ - _tl116412116744_ - _e116417116747_ - _hd116416116750_ - _tl116415116752_) - (let ((_L116755_ _hd116416116750_) - (_L116756_ _hd116407116726_) - (_L116757_ _hd116398116702_) - (_L116758_ _hd116389116678_) - (_L116759_ _hd116380116654_)) + (gxc#optimizer-top-level-method! __tmp118477)))) + (___kont118171118172_ (lambda () '#!void))) + (let ((___match118300118301_ + (lambda (_e116634116889_ + _hd116633116892_ + _tl116632116894_ + _e116637116897_ + _hd116636116900_ + _tl116635116902_ + _e116640116905_ + _hd116639116908_ + _tl116638116910_ + _e116643116913_ + _hd116642116916_ + _tl116641116918_ + _e116646116921_ + _hd116645116924_ + _tl116644116926_ + _e116649116929_ + _hd116648116932_ + _tl116647116934_ + _e116652116937_ + _hd116651116940_ + _tl116650116942_ + _e116655116945_ + _hd116654116948_ + _tl116653116950_ + _e116658116953_ + _hd116657116956_ + _tl116656116958_ + _e116661116961_ + _hd116660116964_ + _tl116659116966_ + _e116664116969_ + _hd116663116972_ + _tl116662116974_ + _e116667116977_ + _hd116666116980_ + _tl116665116982_ + _e116670116985_ + _hd116669116988_ + _tl116668116990_ + _e116673116993_ + _hd116672116996_ + _tl116671116998_ + _e116676117001_ + _hd116675117004_ + _tl116674117006_ + _e116679117009_ + _hd116678117012_ + _tl116677117014_) + (let ((_L117017_ _hd116678117012_) + (_L117018_ _hd116669116988_) + (_L117019_ _hd116660116964_) + (_L117020_ _hd116651116940_) + (_L117021_ _hd116642116916_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L116759_ + _L117021_ 'bind-method!)) - (___kont117905117906_ - _L116755_ - _L116756_ - _L116757_ - _L116758_ - _L116759_) - (___kont117909117910_)))))) + (___kont118167118168_ + _L117017_ + _L117018_ + _L117019_ + _L117020_ + _L117021_) + (___kont118171118172_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx117903117904_)) - (let ((_e116372116627_ + (gx#stx-pair? ___stx118165118166_)) + (let ((_e116634116889_ (let () (declare (not safe)) - (gx#stx-e ___stx117903117904_)))) - (let ((_tl116370116632_ + (gx#stx-e ___stx118165118166_)))) + (let ((_tl116632116894_ (let () (declare (not safe)) - (##cdr _e116372116627_))) - (_hd116371116630_ + (##cdr _e116634116889_))) + (_hd116633116892_ (let () (declare (not safe)) - (##car _e116372116627_)))) + (##car _e116634116889_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116370116632_)) - (let ((_e116375116635_ + (gx#stx-pair? _tl116632116894_)) + (let ((_e116637116897_ (let () (declare (not safe)) - (gx#stx-e _tl116370116632_)))) - (let ((_tl116373116640_ + (gx#stx-e _tl116632116894_)))) + (let ((_tl116635116902_ (let () (declare (not safe)) - (##cdr _e116375116635_))) - (_hd116374116638_ + (##cdr _e116637116897_))) + (_hd116636116900_ (let () (declare (not safe)) - (##car _e116375116635_)))) + (##car _e116637116897_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116374116638_)) - (let ((_e116378116643_ + (gx#stx-pair? _hd116636116900_)) + (let ((_e116640116905_ (let () (declare (not safe)) - (gx#stx-e _hd116374116638_)))) - (let ((_tl116376116648_ + (gx#stx-e _hd116636116900_)))) + (let ((_tl116638116910_ (let () (declare (not safe)) - (##cdr _e116378116643_))) - (_hd116377116646_ + (##cdr _e116640116905_))) + (_hd116639116908_ (let () (declare (not safe)) - (##car _e116378116643_)))) + (##car _e116640116905_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116377116646_)) + (gx#identifier? _hd116639116908_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd116377116646_)) + _hd116639116908_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116376116648_)) - (let ((_e116381116651_ + _tl116638116910_)) + (let ((_e116643116913_ (let () (declare (not safe)) (gx#stx-e - _tl116376116648_)))) - (let ((_tl116379116656_ + _tl116638116910_)))) + (let ((_tl116641116918_ (let () (declare (not safe)) - (##cdr _e116381116651_))) - (_hd116380116654_ + (##cdr _e116643116913_))) + (_hd116642116916_ (let () (declare (not safe)) - (##car _e116381116651_)))) + (##car _e116643116913_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116379116656_)) + _tl116641116918_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl116373116640_)) - (let ((_e116384116659_ + (gx#stx-pair? _tl116635116902_)) + (let ((_e116646116921_ (let () (declare (not safe)) - (gx#stx-e _tl116373116640_)))) - (let ((_tl116382116664_ + (gx#stx-e _tl116635116902_)))) + (let ((_tl116644116926_ (let () (declare (not safe)) - (##cdr _e116384116659_))) - (_hd116383116662_ + (##cdr _e116646116921_))) + (_hd116645116924_ (let () (declare (not safe)) - (##car _e116384116659_)))) + (##car _e116646116921_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116383116662_)) - (let ((_e116387116667_ + (gx#stx-pair? _hd116645116924_)) + (let ((_e116649116929_ (let () (declare (not safe)) - (gx#stx-e _hd116383116662_)))) - (let ((_tl116385116672_ + (gx#stx-e _hd116645116924_)))) + (let ((_tl116647116934_ (let () (declare (not safe)) - (##cdr _e116387116667_))) - (_hd116386116670_ + (##cdr _e116649116929_))) + (_hd116648116932_ (let () (declare (not safe)) - (##car _e116387116667_)))) + (##car _e116649116929_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116386116670_)) + (gx#identifier? _hd116648116932_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd116386116670_)) + _hd116648116932_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116385116672_)) - (let ((_e116390116675_ + _tl116647116934_)) + (let ((_e116652116937_ (let () (declare (not safe)) (gx#stx-e - _tl116385116672_)))) - (let ((_tl116388116680_ + _tl116647116934_)))) + (let ((_tl116650116942_ (let () (declare (not safe)) - (##cdr _e116390116675_))) - (_hd116389116678_ + (##cdr _e116652116937_))) + (_hd116651116940_ (let () (declare (not safe)) - (##car _e116390116675_)))) + (##car _e116652116937_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116388116680_)) + _tl116650116942_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116382116664_)) - (let ((_e116393116683_ + _tl116644116926_)) + (let ((_e116655116945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl116382116664_)))) - (let ((_tl116391116688_ + (gx#stx-e _tl116644116926_)))) + (let ((_tl116653116950_ (let () (declare (not safe)) - (##cdr _e116393116683_))) - (_hd116392116686_ + (##cdr _e116655116945_))) + (_hd116654116948_ (let () (declare (not safe)) - (##car _e116393116683_)))) + (##car _e116655116945_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116392116686_)) - (let ((_e116396116691_ + (gx#stx-pair? _hd116654116948_)) + (let ((_e116658116953_ (let () (declare (not safe)) - (gx#stx-e _hd116392116686_)))) - (let ((_tl116394116696_ + (gx#stx-e _hd116654116948_)))) + (let ((_tl116656116958_ (let () (declare (not safe)) - (##cdr _e116396116691_))) - (_hd116395116694_ + (##cdr _e116658116953_))) + (_hd116657116956_ (let () (declare (not safe)) - (##car _e116396116691_)))) + (##car _e116658116953_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116395116694_)) + (gx#identifier? _hd116657116956_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd116395116694_)) + (gx#stx-eq? '%#quote _hd116657116956_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116394116696_)) - (let ((_e116399116699_ + (gx#stx-pair? _tl116656116958_)) + (let ((_e116661116961_ (let () (declare (not safe)) (gx#stx-e - _tl116394116696_)))) - (let ((_tl116397116704_ + _tl116656116958_)))) + (let ((_tl116659116966_ (let () (declare (not safe)) - (##cdr _e116399116699_))) - (_hd116398116702_ + (##cdr _e116661116961_))) + (_hd116660116964_ (let () (declare (not safe)) - (##car _e116399116699_)))) + (##car _e116661116961_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116397116704_)) + _tl116659116966_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116391116688_)) - (let ((_e116402116707_ + _tl116653116950_)) + (let ((_e116664116969_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl116391116688_)))) - (let ((_tl116400116712_ - (let () (declare (not safe)) (##cdr _e116402116707_))) - (_hd116401116710_ - (let () (declare (not safe)) (##car _e116402116707_)))) + (gx#stx-e _tl116653116950_)))) + (let ((_tl116662116974_ + (let () (declare (not safe)) (##cdr _e116664116969_))) + (_hd116663116972_ + (let () (declare (not safe)) (##car _e116664116969_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116401116710_)) - (let ((_e116405116715_ + (gx#stx-pair? _hd116663116972_)) + (let ((_e116667116977_ (let () (declare (not safe)) - (gx#stx-e _hd116401116710_)))) - (let ((_tl116403116720_ + (gx#stx-e _hd116663116972_)))) + (let ((_tl116665116982_ (let () (declare (not safe)) - (##cdr _e116405116715_))) - (_hd116404116718_ + (##cdr _e116667116977_))) + (_hd116666116980_ (let () (declare (not safe)) - (##car _e116405116715_)))) + (##car _e116667116977_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116404116718_)) + (gx#identifier? _hd116666116980_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd116404116718_)) + (gx#stx-eq? '%#ref _hd116666116980_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116403116720_)) - (let ((_e116408116723_ + (gx#stx-pair? _tl116665116982_)) + (let ((_e116670116985_ (let () (declare (not safe)) - (gx#stx-e _tl116403116720_)))) - (let ((_tl116406116728_ + (gx#stx-e _tl116665116982_)))) + (let ((_tl116668116990_ (let () (declare (not safe)) - (##cdr _e116408116723_))) - (_hd116407116726_ + (##cdr _e116670116985_))) + (_hd116669116988_ (let () (declare (not safe)) - (##car _e116408116723_)))) + (##car _e116670116985_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116406116728_)) + _tl116668116990_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116400116712_)) - (let ((_e116411116731_ + _tl116662116974_)) + (let ((_e116673116993_ (let () (declare (not safe)) (gx#stx-e - _tl116400116712_)))) - (let ((_tl116409116736_ + _tl116662116974_)))) + (let ((_tl116671116998_ (let () (declare (not safe)) - (##cdr _e116411116731_))) - (_hd116410116734_ + (##cdr _e116673116993_))) + (_hd116672116996_ (let () (declare (not safe)) - (##car _e116411116731_)))) + (##car _e116673116993_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd116410116734_)) - (let ((_e116414116739_ + _hd116672116996_)) + (let ((_e116676117001_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd116410116734_)))) - (let ((_tl116412116744_ + (gx#stx-e _hd116672116996_)))) + (let ((_tl116674117006_ (let () (declare (not safe)) - (##cdr _e116414116739_))) - (_hd116413116742_ + (##cdr _e116676117001_))) + (_hd116675117004_ (let () (declare (not safe)) - (##car _e116414116739_)))) + (##car _e116676117001_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116413116742_)) + (gx#identifier? _hd116675117004_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd116413116742_)) + (gx#stx-eq? '%#quote _hd116675117004_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116412116744_)) - (let ((_e116417116747_ + (gx#stx-pair? _tl116674117006_)) + (let ((_e116679117009_ (let () (declare (not safe)) - (gx#stx-e _tl116412116744_)))) - (let ((_tl116415116752_ + (gx#stx-e _tl116674117006_)))) + (let ((_tl116677117014_ (let () (declare (not safe)) - (##cdr _e116417116747_))) - (_hd116416116750_ + (##cdr _e116679117009_))) + (_hd116678117012_ (let () (declare (not safe)) - (##car _e116417116747_)))) + (##car _e116679117009_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116415116752_)) + (gx#stx-null? _tl116677117014_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl116409116736_)) - (___match118038118039_ - _e116372116627_ - _hd116371116630_ - _tl116370116632_ - _e116375116635_ - _hd116374116638_ - _tl116373116640_ - _e116378116643_ - _hd116377116646_ - _tl116376116648_ - _e116381116651_ - _hd116380116654_ - _tl116379116656_ - _e116384116659_ - _hd116383116662_ - _tl116382116664_ - _e116387116667_ - _hd116386116670_ - _tl116385116672_ - _e116390116675_ - _hd116389116678_ - _tl116388116680_ - _e116393116683_ - _hd116392116686_ - _tl116391116688_ - _e116396116691_ - _hd116395116694_ - _tl116394116696_ - _e116399116699_ - _hd116398116702_ - _tl116397116704_ - _e116402116707_ - _hd116401116710_ - _tl116400116712_ - _e116405116715_ - _hd116404116718_ - _tl116403116720_ - _e116408116723_ - _hd116407116726_ - _tl116406116728_ - _e116411116731_ - _hd116410116734_ - _tl116409116736_ - _e116414116739_ - _hd116413116742_ - _tl116412116744_ - _e116417116747_ - _hd116416116750_ - _tl116415116752_) - (___kont117909117910_)) - (___kont117909117910_)))) - (___kont117909117910_)) - (___kont117909117910_)) - (___kont117909117910_)))) - (___kont117909117910_)))) + _tl116671116998_)) + (___match118300118301_ + _e116634116889_ + _hd116633116892_ + _tl116632116894_ + _e116637116897_ + _hd116636116900_ + _tl116635116902_ + _e116640116905_ + _hd116639116908_ + _tl116638116910_ + _e116643116913_ + _hd116642116916_ + _tl116641116918_ + _e116646116921_ + _hd116645116924_ + _tl116644116926_ + _e116649116929_ + _hd116648116932_ + _tl116647116934_ + _e116652116937_ + _hd116651116940_ + _tl116650116942_ + _e116655116945_ + _hd116654116948_ + _tl116653116950_ + _e116658116953_ + _hd116657116956_ + _tl116656116958_ + _e116661116961_ + _hd116660116964_ + _tl116659116966_ + _e116664116969_ + _hd116663116972_ + _tl116662116974_ + _e116667116977_ + _hd116666116980_ + _tl116665116982_ + _e116670116985_ + _hd116669116988_ + _tl116668116990_ + _e116673116993_ + _hd116672116996_ + _tl116671116998_ + _e116676117001_ + _hd116675117004_ + _tl116674117006_ + _e116679117009_ + _hd116678117012_ + _tl116677117014_) + (___kont118171118172_)) + (___kont118171118172_)))) + (___kont118171118172_)) + (___kont118171118172_)) + (___kont118171118172_)))) + (___kont118171118172_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl116400116712_)) - (if (let ((__tmp118216 + _tl116662116974_)) + (if (let ((__tmp118478 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp118216 'bind-method!)) - (let ((_L116581_ _hd116407116726_) - (_L116582_ _hd116398116702_) - (_L116583_ _hd116389116678_) - (_L116584_ _hd116380116654_)) - (___kont117907117908_ - _L116581_ - _L116582_ - _L116583_ - _L116584_)) - (___kont117909117910_)) - (___kont117909117910_))) + (gxc#runtime-identifier=? __tmp118478 'bind-method!)) + (let ((_L116843_ _hd116669116988_) + (_L116844_ _hd116660116964_) + (_L116845_ _hd116651116940_) + (_L116846_ _hd116642116916_)) + (___kont118169118170_ + _L116843_ + _L116844_ + _L116845_ + _L116846_)) + (___kont118171118172_)) + (___kont118171118172_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117909117910_)))) - (___kont117909117910_)) - (___kont117909117910_)) - (___kont117909117910_)))) - (___kont117909117910_)))) - (___kont117909117910_)) + (___kont118171118172_)))) + (___kont118171118172_)) + (___kont118171118172_)) + (___kont118171118172_)))) + (___kont118171118172_)))) + (___kont118171118172_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117909117910_)))) - (___kont117909117910_)) - (___kont117909117910_)) - (___kont117909117910_)))) - (___kont117909117910_)))) - (___kont117909117910_)) - (___kont117909117910_)))) + (___kont118171118172_)))) + (___kont118171118172_)) + (___kont118171118172_)) + (___kont118171118172_)))) + (___kont118171118172_)))) + (___kont118171118172_)) + (___kont118171118172_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117909117910_)) - (___kont117909117910_)) - (___kont117909117910_)))) - (___kont117909117910_)))) - (___kont117909117910_)) - (___kont117909117910_)))) + (___kont118171118172_)) + (___kont118171118172_)) + (___kont118171118172_)))) + (___kont118171118172_)))) + (___kont118171118172_)) + (___kont118171118172_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117909117910_)) - (___kont117909117910_)) - (___kont117909117910_)))) - (___kont117909117910_)))) - (___kont117909117910_)))) - (___kont117909117910_))))))) + (___kont118171118172_)) + (___kont118171118172_)) + (___kont118171118172_)))) + (___kont118171118172_)))) + (___kont118171118172_)))) + (___kont118171118172_))))))) (define gxc#expression-subst-ref% - (lambda (_stx116306_ _id116307_ _new-id116308_) - (let* ((_g116310116323_ - (lambda (_g116311116320_) + (lambda (_stx116568_ _id116569_ _new-id116570_) + (let* ((_g116572116585_ + (lambda (_g116573116582_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116311116320_)))) - (_g116309116356_ - (lambda (_g116311116326_) + _g116573116582_)))) + (_g116571116618_ + (lambda (_g116573116588_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116311116326_)) - (let ((_e116315116328_ + (gx#stx-pair? _g116573116588_)) + (let ((_e116577116590_ (let () (declare (not safe)) - (gx#stx-e _g116311116326_)))) - (let ((_hd116314116331_ + (gx#stx-e _g116573116588_)))) + (let ((_hd116576116593_ (let () (declare (not safe)) - (##car _e116315116328_))) - (_tl116313116333_ + (##car _e116577116590_))) + (_tl116575116595_ (let () (declare (not safe)) - (##cdr _e116315116328_)))) + (##cdr _e116577116590_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116313116333_)) - (let ((_e116318116336_ + (gx#stx-pair? _tl116575116595_)) + (let ((_e116580116598_ (let () (declare (not safe)) - (gx#stx-e _tl116313116333_)))) - (let ((_hd116317116339_ + (gx#stx-e _tl116575116595_)))) + (let ((_hd116579116601_ (let () (declare (not safe)) - (##car _e116318116336_))) - (_tl116316116341_ + (##car _e116580116598_))) + (_tl116578116603_ (let () (declare (not safe)) - (##cdr _e116318116336_)))) + (##cdr _e116580116598_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116316116341_)) - ((lambda (_L116344_) + (gx#stx-null? _tl116578116603_)) + ((lambda (_L116606_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L116344_ - _id116307_)) - (let ((__tmp118217 - (let ((__tmp118218 + _L116606_ + _id116569_)) + (let ((__tmp118479 + (let ((__tmp118480 (let () (declare (not safe)) - (cons _new-id116308_ + (cons _new-id116570_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp118218)))) + (cons '%#ref __tmp118480)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118217 - _stx116306_)) - _stx116306_)) - _hd116317116339_) + __tmp118479 + _stx116568_)) + _stx116568_)) + _hd116579116601_) (let () (declare (not safe)) - (_g116310116323_ _g116311116326_))))) + (_g116572116585_ _g116573116588_))))) (let () (declare (not safe)) - (_g116310116323_ _g116311116326_))))) + (_g116572116585_ _g116573116588_))))) (let () (declare (not safe)) - (_g116310116323_ _g116311116326_)))))) + (_g116572116585_ _g116573116588_)))))) (declare (not safe)) - (_g116309116356_ _stx116306_)))) + (_g116571116618_ _stx116568_)))) (define gxc#expression-subst*-ref% - (lambda (_stx116247_ _subst116248_) - (let* ((_g116250116263_ - (lambda (_g116251116260_) + (lambda (_stx116509_ _subst116510_) + (let* ((_g116512116525_ + (lambda (_g116513116522_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116251116260_)))) - (_g116249116303_ - (lambda (_g116251116266_) + _g116513116522_)))) + (_g116511116565_ + (lambda (_g116513116528_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116251116266_)) - (let ((_e116255116268_ + (gx#stx-pair? _g116513116528_)) + (let ((_e116517116530_ (let () (declare (not safe)) - (gx#stx-e _g116251116266_)))) - (let ((_hd116254116271_ + (gx#stx-e _g116513116528_)))) + (let ((_hd116516116533_ (let () (declare (not safe)) - (##car _e116255116268_))) - (_tl116253116273_ + (##car _e116517116530_))) + (_tl116515116535_ (let () (declare (not safe)) - (##cdr _e116255116268_)))) + (##cdr _e116517116530_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116253116273_)) - (let ((_e116258116276_ + (gx#stx-pair? _tl116515116535_)) + (let ((_e116520116538_ (let () (declare (not safe)) - (gx#stx-e _tl116253116273_)))) - (let ((_hd116257116279_ + (gx#stx-e _tl116515116535_)))) + (let ((_hd116519116541_ (let () (declare (not safe)) - (##car _e116258116276_))) - (_tl116256116281_ + (##car _e116520116538_))) + (_tl116518116543_ (let () (declare (not safe)) - (##cdr _e116258116276_)))) + (##cdr _e116520116538_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116256116281_)) - ((lambda (_L116284_) - (let ((_$e116298_ - (let ((__tmp118219 - (lambda (_sub116296_) - (let ((__tmp118220 - (car _sub116296_))) + (gx#stx-null? _tl116518116543_)) + ((lambda (_L116546_) + (let ((_$e116560_ + (let ((__tmp118481 + (lambda (_sub116558_) + (let ((__tmp118482 + (car _sub116558_))) (declare (not safe)) (gx#free-identifier=? - _L116284_ - __tmp118220))))) + _L116546_ + __tmp118482))))) (declare (not safe)) - (find __tmp118219 - _subst116248_)))) - (if _$e116298_ - ((lambda (_sub116301_) - (let ((__tmp118221 - (let ((__tmp118222 - (let ((__tmp118223 + (find __tmp118481 + _subst116510_)))) + (if _$e116560_ + ((lambda (_sub116563_) + (let ((__tmp118483 + (let ((__tmp118484 + (let ((__tmp118485 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub116301_))) + (cdr _sub116563_))) (declare (not safe)) - (cons __tmp118223 '())))) + (cons __tmp118485 '())))) (declare (not safe)) - (cons '%#ref __tmp118222)))) + (cons '%#ref __tmp118484)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118221 - _stx116247_))) - _$e116298_) - _stx116247_))) - _hd116257116279_) + __tmp118483 + _stx116509_))) + _$e116560_) + _stx116509_))) + _hd116519116541_) (let () (declare (not safe)) - (_g116250116263_ _g116251116266_))))) + (_g116512116525_ _g116513116528_))))) (let () (declare (not safe)) - (_g116250116263_ _g116251116266_))))) + (_g116512116525_ _g116513116528_))))) (let () (declare (not safe)) - (_g116250116263_ _g116251116266_)))))) + (_g116512116525_ _g116513116528_)))))) (declare (not safe)) - (_g116249116303_ _stx116247_)))) + (_g116511116565_ _stx116509_)))) (define gxc#expression-subst-setq% - (lambda (_stx116175_ _id116176_ _new-id116177_) - (let* ((_g116179116196_ - (lambda (_g116180116193_) + (lambda (_stx116437_ _id116438_ _new-id116439_) + (let* ((_g116441116458_ + (lambda (_g116442116455_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116180116193_)))) - (_g116178116244_ - (lambda (_g116180116199_) + _g116442116455_)))) + (_g116440116506_ + (lambda (_g116442116461_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116180116199_)) - (let ((_e116185116201_ + (gx#stx-pair? _g116442116461_)) + (let ((_e116447116463_ (let () (declare (not safe)) - (gx#stx-e _g116180116199_)))) - (let ((_hd116184116204_ + (gx#stx-e _g116442116461_)))) + (let ((_hd116446116466_ (let () (declare (not safe)) - (##car _e116185116201_))) - (_tl116183116206_ + (##car _e116447116463_))) + (_tl116445116468_ (let () (declare (not safe)) - (##cdr _e116185116201_)))) + (##cdr _e116447116463_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116183116206_)) - (let ((_e116188116209_ + (gx#stx-pair? _tl116445116468_)) + (let ((_e116450116471_ (let () (declare (not safe)) - (gx#stx-e _tl116183116206_)))) - (let ((_hd116187116212_ + (gx#stx-e _tl116445116468_)))) + (let ((_hd116449116474_ (let () (declare (not safe)) - (##car _e116188116209_))) - (_tl116186116214_ + (##car _e116450116471_))) + (_tl116448116476_ (let () (declare (not safe)) - (##cdr _e116188116209_)))) + (##cdr _e116450116471_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116186116214_)) - (let ((_e116191116217_ + (gx#stx-pair? _tl116448116476_)) + (let ((_e116453116479_ (let () (declare (not safe)) - (gx#stx-e _tl116186116214_)))) - (let ((_hd116190116220_ + (gx#stx-e _tl116448116476_)))) + (let ((_hd116452116482_ (let () (declare (not safe)) - (##car _e116191116217_))) - (_tl116189116222_ + (##car _e116453116479_))) + (_tl116451116484_ (let () (declare (not safe)) - (##cdr _e116191116217_)))) + (##cdr _e116453116479_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116189116222_)) - ((lambda (_L116225_ _L116226_) - (let ((_new-expr116241_ + _tl116451116484_)) + ((lambda (_L116487_ _L116488_) + (let ((_new-expr116503_ (let () (declare (not safe)) (gxc#compile-e__2 - _L116225_ - _id116176_ - _new-id116177_))) - (_new-xid116242_ + _L116487_ + _id116438_ + _new-id116439_))) + (_new-xid116504_ (if (let () (declare (not safe)) (gx#free-identifier=? - _L116226_ - _id116176_)) - _new-id116177_ - _L116226_))) - (let ((__tmp118224 - (let ((__tmp118225 + _L116488_ + _id116438_)) + _new-id116439_ + _L116488_))) + (let ((__tmp118486 + (let ((__tmp118487 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp118226 + (let ((__tmp118488 (let () (declare (not safe)) - (cons _new-expr116241_ '())))) + (cons _new-expr116503_ '())))) (declare (not safe)) - (cons _new-xid116242_ __tmp118226)))) + (cons _new-xid116504_ __tmp118488)))) (declare (not safe)) - (cons '%#set! __tmp118225)))) + (cons '%#set! __tmp118487)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118224 - _stx116175_)))) - _hd116190116220_ - _hd116187116212_) + __tmp118486 + _stx116437_)))) + _hd116452116482_ + _hd116449116474_) (let () (declare (not safe)) - (_g116179116196_ - _g116180116199_))))) + (_g116441116458_ + _g116442116461_))))) (let () (declare (not safe)) - (_g116179116196_ _g116180116199_))))) + (_g116441116458_ _g116442116461_))))) (let () (declare (not safe)) - (_g116179116196_ _g116180116199_))))) + (_g116441116458_ _g116442116461_))))) (let () (declare (not safe)) - (_g116179116196_ _g116180116199_)))))) + (_g116441116458_ _g116442116461_)))))) (declare (not safe)) - (_g116178116244_ _stx116175_)))) + (_g116440116506_ _stx116437_)))) (define gxc#expression-subst*-setq% - (lambda (_stx116099_ _subst116100_) - (let* ((_g116102116119_ - (lambda (_g116103116116_) + (lambda (_stx116361_ _subst116362_) + (let* ((_g116364116381_ + (lambda (_g116365116378_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116103116116_)))) - (_g116101116172_ - (lambda (_g116103116122_) + _g116365116378_)))) + (_g116363116434_ + (lambda (_g116365116384_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116103116122_)) - (let ((_e116108116124_ + (gx#stx-pair? _g116365116384_)) + (let ((_e116370116386_ (let () (declare (not safe)) - (gx#stx-e _g116103116122_)))) - (let ((_hd116107116127_ + (gx#stx-e _g116365116384_)))) + (let ((_hd116369116389_ (let () (declare (not safe)) - (##car _e116108116124_))) - (_tl116106116129_ + (##car _e116370116386_))) + (_tl116368116391_ (let () (declare (not safe)) - (##cdr _e116108116124_)))) + (##cdr _e116370116386_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116106116129_)) - (let ((_e116111116132_ + (gx#stx-pair? _tl116368116391_)) + (let ((_e116373116394_ (let () (declare (not safe)) - (gx#stx-e _tl116106116129_)))) - (let ((_hd116110116135_ + (gx#stx-e _tl116368116391_)))) + (let ((_hd116372116397_ (let () (declare (not safe)) - (##car _e116111116132_))) - (_tl116109116137_ + (##car _e116373116394_))) + (_tl116371116399_ (let () (declare (not safe)) - (##cdr _e116111116132_)))) + (##cdr _e116373116394_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116109116137_)) - (let ((_e116114116140_ + (gx#stx-pair? _tl116371116399_)) + (let ((_e116376116402_ (let () (declare (not safe)) - (gx#stx-e _tl116109116137_)))) - (let ((_hd116113116143_ + (gx#stx-e _tl116371116399_)))) + (let ((_hd116375116405_ (let () (declare (not safe)) - (##car _e116114116140_))) - (_tl116112116145_ + (##car _e116376116402_))) + (_tl116374116407_ (let () (declare (not safe)) - (##cdr _e116114116140_)))) + (##cdr _e116376116402_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116112116145_)) - ((lambda (_L116148_ _L116149_) - (let ((_new-expr116169_ + _tl116374116407_)) + ((lambda (_L116410_ _L116411_) + (let ((_new-expr116431_ (let () (declare (not safe)) (gxc#compile-e__1 - _L116148_ - _subst116100_))) - (_new-xid116170_ - (let ((_$e116166_ - (let ((__tmp118227 + _L116410_ + _subst116362_))) + (_new-xid116432_ + (let ((_$e116428_ + (let ((__tmp118489 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub116164_) - (let ((__tmp118228 (car _sub116164_))) + (lambda (_sub116426_) + (let ((__tmp118490 (car _sub116426_))) (declare (not safe)) (gx#free-identifier=? - _L116149_ - __tmp118228))))) + _L116411_ + __tmp118490))))) (declare (not safe)) - (find __tmp118227 _subst116100_)))) - (if _$e116166_ (cdr _$e116166_) _L116149_)))) + (find __tmp118489 _subst116362_)))) + (if _$e116428_ (cdr _$e116428_) _L116411_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp118229 - (let ((__tmp118230 + (let ((__tmp118491 + (let ((__tmp118492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp118231 + (let ((__tmp118493 (let () (declare (not safe)) - (cons _new-expr116169_ '())))) + (cons _new-expr116431_ '())))) (declare (not safe)) - (cons _new-xid116170_ __tmp118231)))) + (cons _new-xid116432_ __tmp118493)))) (declare (not safe)) - (cons '%#set! __tmp118230)))) + (cons '%#set! __tmp118492)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118229 - _stx116099_)))) - _hd116113116143_ - _hd116110116135_) + __tmp118491 + _stx116361_)))) + _hd116375116405_ + _hd116372116397_) (let () (declare (not safe)) - (_g116102116119_ - _g116103116122_))))) + (_g116364116381_ + _g116365116384_))))) (let () (declare (not safe)) - (_g116102116119_ _g116103116122_))))) + (_g116364116381_ _g116365116384_))))) (let () (declare (not safe)) - (_g116102116119_ _g116103116122_))))) + (_g116364116381_ _g116365116384_))))) (let () (declare (not safe)) - (_g116102116119_ _g116103116122_)))))) + (_g116364116381_ _g116365116384_)))))) (declare (not safe)) - (_g116101116172_ _stx116099_)))) + (_g116363116434_ _stx116361_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_stx116045_ _ht116046_) - (let* ((_g116048116061_ - (lambda (_g116049116058_) + (lambda (_stx116307_ _ht116308_) + (let* ((_g116310116323_ + (lambda (_g116311116320_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116049116058_)))) - (_g116047116096_ - (lambda (_g116049116064_) + _g116311116320_)))) + (_g116309116358_ + (lambda (_g116311116326_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116049116064_)) - (let ((_e116053116066_ + (gx#stx-pair? _g116311116326_)) + (let ((_e116315116328_ (let () (declare (not safe)) - (gx#stx-e _g116049116064_)))) - (let ((_hd116052116069_ + (gx#stx-e _g116311116326_)))) + (let ((_hd116314116331_ (let () (declare (not safe)) - (##car _e116053116066_))) - (_tl116051116071_ + (##car _e116315116328_))) + (_tl116313116333_ (let () (declare (not safe)) - (##cdr _e116053116066_)))) + (##cdr _e116315116328_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116051116071_)) - (let ((_e116056116074_ + (gx#stx-pair? _tl116313116333_)) + (let ((_e116318116336_ (let () (declare (not safe)) - (gx#stx-e _tl116051116071_)))) - (let ((_hd116055116077_ + (gx#stx-e _tl116313116333_)))) + (let ((_hd116317116339_ (let () (declare (not safe)) - (##car _e116056116074_))) - (_tl116054116079_ + (##car _e116318116336_))) + (_tl116316116341_ (let () (declare (not safe)) - (##cdr _e116056116074_)))) + (##cdr _e116318116336_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116054116079_)) - ((lambda (_L116082_) - (let ((_eid116094_ + (gx#stx-null? _tl116316116341_)) + ((lambda (_L116344_) + (let ((_eid116356_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116082_)))) + _L116344_)))) (declare (not safe)) (hash-update!__% - _ht116046_ - _eid116094_ + _ht116308_ + _eid116356_ 1+ '0))) - _hd116055116077_) + _hd116317116339_) (let () (declare (not safe)) - (_g116048116061_ _g116049116064_))))) + (_g116310116323_ _g116311116326_))))) (let () (declare (not safe)) - (_g116048116061_ _g116049116064_))))) + (_g116310116323_ _g116311116326_))))) (let () (declare (not safe)) - (_g116048116061_ _g116049116064_)))))) + (_g116310116323_ _g116311116326_)))))) (declare (not safe)) - (_g116047116096_ _stx116045_)))) + (_g116309116358_ _stx116307_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_stx115975_ _ht115976_) - (let* ((_g115978115995_ - (lambda (_g115979115992_) + (lambda (_stx116237_ _ht116238_) + (let* ((_g116240116257_ + (lambda (_g116241116254_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115979115992_)))) - (_g115977116042_ - (lambda (_g115979115998_) + _g116241116254_)))) + (_g116239116304_ + (lambda (_g116241116260_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115979115998_)) - (let ((_e115984116000_ + (gx#stx-pair? _g116241116260_)) + (let ((_e116246116262_ (let () (declare (not safe)) - (gx#stx-e _g115979115998_)))) - (let ((_hd115983116003_ + (gx#stx-e _g116241116260_)))) + (let ((_hd116245116265_ (let () (declare (not safe)) - (##car _e115984116000_))) - (_tl115982116005_ + (##car _e116246116262_))) + (_tl116244116267_ (let () (declare (not safe)) - (##cdr _e115984116000_)))) + (##cdr _e116246116262_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115982116005_)) - (let ((_e115987116008_ + (gx#stx-pair? _tl116244116267_)) + (let ((_e116249116270_ (let () (declare (not safe)) - (gx#stx-e _tl115982116005_)))) - (let ((_hd115986116011_ + (gx#stx-e _tl116244116267_)))) + (let ((_hd116248116273_ (let () (declare (not safe)) - (##car _e115987116008_))) - (_tl115985116013_ + (##car _e116249116270_))) + (_tl116247116275_ (let () (declare (not safe)) - (##cdr _e115987116008_)))) + (##cdr _e116249116270_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115985116013_)) - (let ((_e115990116016_ + (gx#stx-pair? _tl116247116275_)) + (let ((_e116252116278_ (let () (declare (not safe)) - (gx#stx-e _tl115985116013_)))) - (let ((_hd115989116019_ + (gx#stx-e _tl116247116275_)))) + (let ((_hd116251116281_ (let () (declare (not safe)) - (##car _e115990116016_))) - (_tl115988116021_ + (##car _e116252116278_))) + (_tl116250116283_ (let () (declare (not safe)) - (##cdr _e115990116016_)))) + (##cdr _e116252116278_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115988116021_)) - ((lambda (_L116024_ _L116025_) - (let ((_eid116040_ + _tl116250116283_)) + ((lambda (_L116286_ _L116287_) + (let ((_eid116302_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116025_)))) + _L116287_)))) (let () (declare (not safe)) (hash-update!__% - _ht115976_ - _eid116040_ + _ht116238_ + _eid116302_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _L116024_ - _ht115976_)))) - _hd115989116019_ - _hd115986116011_) + _L116286_ + _ht116238_)))) + _hd116251116281_ + _hd116248116273_) (let () (declare (not safe)) - (_g115978115995_ - _g115979115998_))))) + (_g116240116257_ + _g116241116260_))))) (let () (declare (not safe)) - (_g115978115995_ _g115979115998_))))) + (_g116240116257_ _g116241116260_))))) (let () (declare (not safe)) - (_g115978115995_ _g115979115998_))))) + (_g116240116257_ _g116241116260_))))) (let () (declare (not safe)) - (_g115978115995_ _g115979115998_)))))) + (_g116240116257_ _g116241116260_)))))) (declare (not safe)) - (_g115977116042_ _stx115975_)))) + (_g116239116304_ _stx116237_)))) (define gxc#find-body% - (lambda (_stx115888_ _arg115889_) - (let* ((_g115891115910_ - (lambda (_g115892115907_) + (lambda (_stx116150_ _arg116151_) + (let* ((_g116153116172_ + (lambda (_g116154116169_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115892115907_)))) - (_g115890115972_ - (lambda (_g115892115913_) + _g116154116169_)))) + (_g116152116234_ + (lambda (_g116154116175_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115892115913_)) - (let ((_e115896115915_ + (gx#stx-pair? _g116154116175_)) + (let ((_e116158116177_ (let () (declare (not safe)) - (gx#stx-e _g115892115913_)))) - (let ((_hd115895115918_ + (gx#stx-e _g116154116175_)))) + (let ((_hd116157116180_ (let () (declare (not safe)) - (##car _e115896115915_))) - (_tl115894115920_ + (##car _e116158116177_))) + (_tl116156116182_ (let () (declare (not safe)) - (##cdr _e115896115915_)))) + (##cdr _e116158116177_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl115894115920_)) - (let ((_g118232_ + (gx#stx-pair/null? _tl116156116182_)) + (let ((_g118494_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl115894115920_ + _tl116156116182_ '0)))) (begin - (let ((_g118233_ + (let ((_g118495_ (let () (declare (not safe)) - (if (##values? _g118232_) - (##vector-length _g118232_) + (if (##values? _g118494_) + (##vector-length _g118494_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118233_ 2))) + (##fx= _g118495_ 2))) (error "Context expects 2 values" - _g118233_))) - (let ((_target115897115923_ + _g118495_))) + (let ((_target116159116185_ (let () (declare (not safe)) - (##vector-ref _g118232_ 0))) - (_tl115899115925_ + (##vector-ref _g118494_ 0))) + (_tl116161116187_ (let () (declare (not safe)) - (##vector-ref _g118232_ 1)))) + (##vector-ref _g118494_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115899115925_)) - (letrec ((_loop115900115928_ - (lambda (_hd115898115931_ - _expr115904115933_) + (gx#stx-null? _tl116161116187_)) + (letrec ((_loop116162116190_ + (lambda (_hd116160116193_ + _expr116166116195_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd115898115931_)) - (let ((_e115901115936_ + _hd116160116193_)) + (let ((_e116163116198_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd115898115931_)))) - (let ((_lp-hd115902115939_ - (let () (declare (not safe)) (##car _e115901115936_))) - (_lp-tl115903115941_ + (gx#stx-e _hd116160116193_)))) + (let ((_lp-hd116164116201_ + (let () (declare (not safe)) (##car _e116163116198_))) + (_lp-tl116165116203_ (let () (declare (not safe)) - (##cdr _e115901115936_)))) - (let ((__tmp118237 + (##cdr _e116163116198_)))) + (let ((__tmp118499 (let () (declare (not safe)) - (cons _lp-hd115902115939_ _expr115904115933_)))) + (cons _lp-hd116164116201_ _expr116166116195_)))) (declare (not safe)) - (_loop115900115928_ _lp-tl115903115941_ __tmp118237)))) - (let ((_expr115905115944_ (reverse _expr115904115933_))) - ((lambda (_L115947_) - (let ((__tmp118236 - (lambda (_g115960115962_) + (_loop116162116190_ _lp-tl116165116203_ __tmp118499)))) + (let ((_expr116167116206_ (reverse _expr116166116195_))) + ((lambda (_L116209_) + (let ((__tmp118498 + (lambda (_g116222116224_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115960115962_ - _arg115889_)))) - (__tmp118234 - (let ((__tmp118235 - (lambda (_g115964115967_ _g115965115969_) + _g116222116224_ + _arg116151_)))) + (__tmp118496 + (let ((__tmp118497 + (lambda (_g116226116229_ _g116227116231_) (let () (declare (not safe)) - (cons _g115964115967_ - _g115965115969_))))) + (cons _g116226116229_ + _g116227116231_))))) (declare (not safe)) - (foldr1 __tmp118235 '() _L115947_)))) + (foldr1 __tmp118497 '() _L116209_)))) (declare (not safe)) - (ormap1 __tmp118236 __tmp118234))) - _expr115905115944_)))))) + (ormap1 __tmp118498 __tmp118496))) + _expr116167116206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115900115928_ - _target115897115923_ + (_loop116162116190_ + _target116159116185_ '()))) (let () (declare (not safe)) - (_g115891115910_ - _g115892115913_)))))) + (_g116153116172_ + _g116154116175_)))))) (let () (declare (not safe)) - (_g115891115910_ _g115892115913_))))) + (_g116153116172_ _g116154116175_))))) (let () (declare (not safe)) - (_g115891115910_ _g115892115913_)))))) + (_g116153116172_ _g116154116175_)))))) (declare (not safe)) - (_g115890115972_ _stx115888_)))) + (_g116152116234_ _stx116150_)))) (define gxc#find-begin-annotation% - (lambda (_stx115820_ _arg115821_) - (let* ((_g115823115840_ - (lambda (_g115824115837_) + (lambda (_stx116082_ _arg116083_) + (let* ((_g116085116102_ + (lambda (_g116086116099_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115824115837_)))) - (_g115822115885_ - (lambda (_g115824115843_) + _g116086116099_)))) + (_g116084116147_ + (lambda (_g116086116105_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115824115843_)) - (let ((_e115829115845_ + (gx#stx-pair? _g116086116105_)) + (let ((_e116091116107_ (let () (declare (not safe)) - (gx#stx-e _g115824115843_)))) - (let ((_hd115828115848_ + (gx#stx-e _g116086116105_)))) + (let ((_hd116090116110_ (let () (declare (not safe)) - (##car _e115829115845_))) - (_tl115827115850_ + (##car _e116091116107_))) + (_tl116089116112_ (let () (declare (not safe)) - (##cdr _e115829115845_)))) + (##cdr _e116091116107_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115827115850_)) - (let ((_e115832115853_ + (gx#stx-pair? _tl116089116112_)) + (let ((_e116094116115_ (let () (declare (not safe)) - (gx#stx-e _tl115827115850_)))) - (let ((_hd115831115856_ + (gx#stx-e _tl116089116112_)))) + (let ((_hd116093116118_ (let () (declare (not safe)) - (##car _e115832115853_))) - (_tl115830115858_ + (##car _e116094116115_))) + (_tl116092116120_ (let () (declare (not safe)) - (##cdr _e115832115853_)))) + (##cdr _e116094116115_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115830115858_)) - (let ((_e115835115861_ + (gx#stx-pair? _tl116092116120_)) + (let ((_e116097116123_ (let () (declare (not safe)) - (gx#stx-e _tl115830115858_)))) - (let ((_hd115834115864_ + (gx#stx-e _tl116092116120_)))) + (let ((_hd116096116126_ (let () (declare (not safe)) - (##car _e115835115861_))) - (_tl115833115866_ + (##car _e116097116123_))) + (_tl116095116128_ (let () (declare (not safe)) - (##cdr _e115835115861_)))) + (##cdr _e116097116123_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115833115866_)) - ((lambda (_L115869_ _L115870_) + _tl116095116128_)) + ((lambda (_L116131_ _L116132_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115869_ - _arg115821_))) - _hd115834115864_ - _hd115831115856_) + _L116131_ + _arg116083_))) + _hd116096116126_ + _hd116093116118_) (let () (declare (not safe)) - (_g115823115840_ - _g115824115843_))))) + (_g116085116102_ + _g116086116105_))))) (let () (declare (not safe)) - (_g115823115840_ _g115824115843_))))) + (_g116085116102_ _g116086116105_))))) (let () (declare (not safe)) - (_g115823115840_ _g115824115843_))))) + (_g116085116102_ _g116086116105_))))) (let () (declare (not safe)) - (_g115823115840_ _g115824115843_)))))) + (_g116085116102_ _g116086116105_)))))) (declare (not safe)) - (_g115822115885_ _stx115820_)))) + (_g116084116147_ _stx116082_)))) (define gxc#find-lambda% - (lambda (_stx115752_ _arg115753_) - (let* ((_g115755115772_ - (lambda (_g115756115769_) + (lambda (_stx116014_ _arg116015_) + (let* ((_g116017116034_ + (lambda (_g116018116031_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115756115769_)))) - (_g115754115817_ - (lambda (_g115756115775_) + _g116018116031_)))) + (_g116016116079_ + (lambda (_g116018116037_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115756115775_)) - (let ((_e115761115777_ + (gx#stx-pair? _g116018116037_)) + (let ((_e116023116039_ (let () (declare (not safe)) - (gx#stx-e _g115756115775_)))) - (let ((_hd115760115780_ + (gx#stx-e _g116018116037_)))) + (let ((_hd116022116042_ (let () (declare (not safe)) - (##car _e115761115777_))) - (_tl115759115782_ + (##car _e116023116039_))) + (_tl116021116044_ (let () (declare (not safe)) - (##cdr _e115761115777_)))) + (##cdr _e116023116039_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115759115782_)) - (let ((_e115764115785_ + (gx#stx-pair? _tl116021116044_)) + (let ((_e116026116047_ (let () (declare (not safe)) - (gx#stx-e _tl115759115782_)))) - (let ((_hd115763115788_ + (gx#stx-e _tl116021116044_)))) + (let ((_hd116025116050_ (let () (declare (not safe)) - (##car _e115764115785_))) - (_tl115762115790_ + (##car _e116026116047_))) + (_tl116024116052_ (let () (declare (not safe)) - (##cdr _e115764115785_)))) + (##cdr _e116026116047_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115762115790_)) - (let ((_e115767115793_ + (gx#stx-pair? _tl116024116052_)) + (let ((_e116029116055_ (let () (declare (not safe)) - (gx#stx-e _tl115762115790_)))) - (let ((_hd115766115796_ + (gx#stx-e _tl116024116052_)))) + (let ((_hd116028116058_ (let () (declare (not safe)) - (##car _e115767115793_))) - (_tl115765115798_ + (##car _e116029116055_))) + (_tl116027116060_ (let () (declare (not safe)) - (##cdr _e115767115793_)))) + (##cdr _e116029116055_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115765115798_)) - ((lambda (_L115801_ _L115802_) + _tl116027116060_)) + ((lambda (_L116063_ _L116064_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115801_ - _arg115753_))) - _hd115766115796_ - _hd115763115788_) + _L116063_ + _arg116015_))) + _hd116028116058_ + _hd116025116050_) (let () (declare (not safe)) - (_g115755115772_ - _g115756115775_))))) + (_g116017116034_ + _g116018116037_))))) (let () (declare (not safe)) - (_g115755115772_ _g115756115775_))))) + (_g116017116034_ _g116018116037_))))) (let () (declare (not safe)) - (_g115755115772_ _g115756115775_))))) + (_g116017116034_ _g116018116037_))))) (let () (declare (not safe)) - (_g115755115772_ _g115756115775_)))))) + (_g116017116034_ _g116018116037_)))))) (declare (not safe)) - (_g115754115817_ _stx115752_)))) + (_g116016116079_ _stx116014_)))) (define gxc#find-case-lambda% - (lambda (_stx115634_ _arg115635_) - (let* ((_g115637115665_ - (lambda (_g115638115662_) + (lambda (_stx115896_ _arg115897_) + (let* ((_g115899115927_ + (lambda (_g115900115924_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115638115662_)))) - (_g115636115749_ - (lambda (_g115638115668_) + _g115900115924_)))) + (_g115898116011_ + (lambda (_g115900115930_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115638115668_)) - (let ((_e115643115670_ + (gx#stx-pair? _g115900115930_)) + (let ((_e115905115932_ (let () (declare (not safe)) - (gx#stx-e _g115638115668_)))) - (let ((_hd115642115673_ + (gx#stx-e _g115900115930_)))) + (let ((_hd115904115935_ (let () (declare (not safe)) - (##car _e115643115670_))) - (_tl115641115675_ + (##car _e115905115932_))) + (_tl115903115937_ (let () (declare (not safe)) - (##cdr _e115643115670_)))) + (##cdr _e115905115932_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl115641115675_)) - (let ((_g118238_ + (gx#stx-pair/null? _tl115903115937_)) + (let ((_g118500_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl115641115675_ + _tl115903115937_ '0)))) (begin - (let ((_g118239_ + (let ((_g118501_ (let () (declare (not safe)) - (if (##values? _g118238_) - (##vector-length _g118238_) + (if (##values? _g118500_) + (##vector-length _g118500_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118239_ 2))) + (##fx= _g118501_ 2))) (error "Context expects 2 values" - _g118239_))) - (let ((_target115644115678_ + _g118501_))) + (let ((_target115906115940_ (let () (declare (not safe)) - (##vector-ref _g118238_ 0))) - (_tl115646115680_ + (##vector-ref _g118500_ 0))) + (_tl115908115942_ (let () (declare (not safe)) - (##vector-ref _g118238_ 1)))) + (##vector-ref _g118500_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115646115680_)) - (letrec ((_loop115647115683_ - (lambda (_hd115645115686_ - _body115651115688_ - _hd115652115690_) + (gx#stx-null? _tl115908115942_)) + (letrec ((_loop115909115945_ + (lambda (_hd115907115948_ + _body115913115950_ + _hd115914115952_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd115645115686_)) - (let ((_e115648115693_ + _hd115907115948_)) + (let ((_e115910115955_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd115645115686_)))) - (let ((_lp-hd115649115696_ - (let () (declare (not safe)) (##car _e115648115693_))) - (_lp-tl115650115698_ + (gx#stx-e _hd115907115948_)))) + (let ((_lp-hd115911115958_ + (let () (declare (not safe)) (##car _e115910115955_))) + (_lp-tl115912115960_ (let () (declare (not safe)) - (##cdr _e115648115693_)))) + (##cdr _e115910115955_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd115649115696_)) - (let ((_e115657115701_ + (gx#stx-pair? _lp-hd115911115958_)) + (let ((_e115919115963_ (let () (declare (not safe)) - (gx#stx-e _lp-hd115649115696_)))) - (let ((_hd115656115704_ + (gx#stx-e _lp-hd115911115958_)))) + (let ((_hd115918115966_ (let () (declare (not safe)) - (##car _e115657115701_))) - (_tl115655115706_ + (##car _e115919115963_))) + (_tl115917115968_ (let () (declare (not safe)) - (##cdr _e115657115701_)))) + (##cdr _e115919115963_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115655115706_)) - (let ((_e115660115709_ + (gx#stx-pair? _tl115917115968_)) + (let ((_e115922115971_ (let () (declare (not safe)) - (gx#stx-e _tl115655115706_)))) - (let ((_hd115659115712_ + (gx#stx-e _tl115917115968_)))) + (let ((_hd115921115974_ (let () (declare (not safe)) - (##car _e115660115709_))) - (_tl115658115714_ + (##car _e115922115971_))) + (_tl115920115976_ (let () (declare (not safe)) - (##cdr _e115660115709_)))) + (##cdr _e115922115971_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115658115714_)) - (let ((__tmp118244 + (gx#stx-null? _tl115920115976_)) + (let ((__tmp118506 (let () (declare (not safe)) - (cons _hd115659115712_ - _body115651115688_))) - (__tmp118243 + (cons _hd115921115974_ + _body115913115950_))) + (__tmp118505 (let () (declare (not safe)) - (cons _hd115656115704_ - _hd115652115690_)))) + (cons _hd115918115966_ + _hd115914115952_)))) (declare (not safe)) - (_loop115647115683_ - _lp-tl115650115698_ - __tmp118244 - __tmp118243)) + (_loop115909115945_ + _lp-tl115912115960_ + __tmp118506 + __tmp118505)) (let () (declare (not safe)) - (_g115637115665_ _g115638115668_))))) + (_g115899115927_ _g115900115930_))))) (let () (declare (not safe)) - (_g115637115665_ _g115638115668_))))) + (_g115899115927_ _g115900115930_))))) (let () (declare (not safe)) - (_g115637115665_ _g115638115668_))))) - (let ((_body115653115717_ (reverse _body115651115688_)) - (_hd115654115719_ (reverse _hd115652115690_))) - ((lambda (_L115722_ _L115723_) - (let ((__tmp118242 - (lambda (_g115737115739_) + (_g115899115927_ _g115900115930_))))) + (let ((_body115915115979_ (reverse _body115913115950_)) + (_hd115916115981_ (reverse _hd115914115952_))) + ((lambda (_L115984_ _L115985_) + (let ((__tmp118504 + (lambda (_g115999116001_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115737115739_ - _arg115635_)))) - (__tmp118240 - (let ((__tmp118241 - (lambda (_g115741115744_ _g115742115746_) + _g115999116001_ + _arg115897_)))) + (__tmp118502 + (let ((__tmp118503 + (lambda (_g116003116006_ _g116004116008_) (let () (declare (not safe)) - (cons _g115741115744_ - _g115742115746_))))) + (cons _g116003116006_ + _g116004116008_))))) (declare (not safe)) - (foldr1 __tmp118241 '() _L115722_)))) + (foldr1 __tmp118503 '() _L115984_)))) (declare (not safe)) - (ormap1 __tmp118242 __tmp118240))) - _body115653115717_ - _hd115654115719_)))))) + (ormap1 __tmp118504 __tmp118502))) + _body115915115979_ + _hd115916115981_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115647115683_ - _target115644115678_ + (_loop115909115945_ + _target115906115940_ '() '()))) (let () (declare (not safe)) - (_g115637115665_ - _g115638115668_)))))) + (_g115899115927_ + _g115900115930_)))))) (let () (declare (not safe)) - (_g115637115665_ _g115638115668_))))) + (_g115899115927_ _g115900115930_))))) (let () (declare (not safe)) - (_g115637115665_ _g115638115668_)))))) + (_g115899115927_ _g115900115930_)))))) (declare (not safe)) - (_g115636115749_ _stx115634_)))) + (_g115898116011_ _stx115896_)))) (define gxc#find-let-values% - (lambda (_stx115484_ _arg115485_) - (let* ((_g115487115522_ - (lambda (_g115488115519_) + (lambda (_stx115746_ _arg115747_) + (let* ((_g115749115784_ + (lambda (_g115750115781_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115488115519_)))) - (_g115486115631_ - (lambda (_g115488115525_) + _g115750115781_)))) + (_g115748115893_ + (lambda (_g115750115787_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115488115525_)) - (let ((_e115494115527_ + (gx#stx-pair? _g115750115787_)) + (let ((_e115756115789_ (let () (declare (not safe)) - (gx#stx-e _g115488115525_)))) - (let ((_hd115493115530_ + (gx#stx-e _g115750115787_)))) + (let ((_hd115755115792_ (let () (declare (not safe)) - (##car _e115494115527_))) - (_tl115492115532_ + (##car _e115756115789_))) + (_tl115754115794_ (let () (declare (not safe)) - (##cdr _e115494115527_)))) + (##cdr _e115756115789_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115492115532_)) - (let ((_e115497115535_ + (gx#stx-pair? _tl115754115794_)) + (let ((_e115759115797_ (let () (declare (not safe)) - (gx#stx-e _tl115492115532_)))) - (let ((_hd115496115538_ + (gx#stx-e _tl115754115794_)))) + (let ((_hd115758115800_ (let () (declare (not safe)) - (##car _e115497115535_))) - (_tl115495115540_ + (##car _e115759115797_))) + (_tl115757115802_ (let () (declare (not safe)) - (##cdr _e115497115535_)))) + (##cdr _e115759115797_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd115496115538_)) - (let ((_g118245_ + (gx#stx-pair/null? _hd115758115800_)) + (let ((_g118507_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd115496115538_ + _hd115758115800_ '0)))) (begin - (let ((_g118246_ + (let ((_g118508_ (let () (declare (not safe)) - (if (##values? _g118245_) + (if (##values? _g118507_) (##vector-length - _g118245_) + _g118507_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118246_ 2))) + (##fx= _g118508_ 2))) (error "Context expects 2 values" - _g118246_))) - (let ((_target115498115543_ + _g118508_))) + (let ((_target115760115805_ (let () (declare (not safe)) - (##vector-ref _g118245_ 0))) - (_tl115500115545_ + (##vector-ref _g118507_ 0))) + (_tl115762115807_ (let () (declare (not safe)) (##vector-ref - _g118245_ + _g118507_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115500115545_)) - (letrec ((_loop115501115548_ - (lambda (_hd115499115551_ + _tl115762115807_)) + (letrec ((_loop115763115810_ + (lambda (_hd115761115813_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr115505115553_ - _bind115506115555_) + _expr115767115815_ + _bind115768115817_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd115499115551_)) - (let ((_e115502115558_ + (gx#stx-pair? _hd115761115813_)) + (let ((_e115764115820_ (let () (declare (not safe)) - (gx#stx-e _hd115499115551_)))) - (let ((_lp-hd115503115561_ + (gx#stx-e _hd115761115813_)))) + (let ((_lp-hd115765115823_ (let () (declare (not safe)) - (##car _e115502115558_))) - (_lp-tl115504115563_ + (##car _e115764115820_))) + (_lp-tl115766115825_ (let () (declare (not safe)) - (##cdr _e115502115558_)))) + (##cdr _e115764115820_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd115503115561_)) - (let ((_e115511115566_ + (gx#stx-pair? _lp-hd115765115823_)) + (let ((_e115773115828_ (let () (declare (not safe)) - (gx#stx-e _lp-hd115503115561_)))) - (let ((_hd115510115569_ + (gx#stx-e _lp-hd115765115823_)))) + (let ((_hd115772115831_ (let () (declare (not safe)) - (##car _e115511115566_))) - (_tl115509115571_ + (##car _e115773115828_))) + (_tl115771115833_ (let () (declare (not safe)) - (##cdr _e115511115566_)))) + (##cdr _e115773115828_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115509115571_)) - (let ((_e115514115574_ + (gx#stx-pair? _tl115771115833_)) + (let ((_e115776115836_ (let () (declare (not safe)) - (gx#stx-e _tl115509115571_)))) - (let ((_hd115513115577_ + (gx#stx-e _tl115771115833_)))) + (let ((_hd115775115839_ (let () (declare (not safe)) - (##car _e115514115574_))) - (_tl115512115579_ + (##car _e115776115836_))) + (_tl115774115841_ (let () (declare (not safe)) - (##cdr _e115514115574_)))) + (##cdr _e115776115836_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115512115579_)) - (let ((__tmp118251 + _tl115774115841_)) + (let ((__tmp118513 (let () (declare (not safe)) - (cons _hd115513115577_ - _expr115505115553_))) - (__tmp118250 + (cons _hd115775115839_ + _expr115767115815_))) + (__tmp118512 (let () (declare (not safe)) - (cons _hd115510115569_ - _bind115506115555_)))) + (cons _hd115772115831_ + _bind115768115817_)))) (declare (not safe)) - (_loop115501115548_ - _lp-tl115504115563_ - __tmp118251 - __tmp118250)) + (_loop115763115810_ + _lp-tl115766115825_ + __tmp118513 + __tmp118512)) (let () (declare (not safe)) - (_g115487115522_ - _g115488115525_))))) + (_g115749115784_ + _g115750115787_))))) (let () (declare (not safe)) - (_g115487115522_ _g115488115525_))))) + (_g115749115784_ _g115750115787_))))) (let () (declare (not safe)) - (_g115487115522_ _g115488115525_))))) - (let ((_expr115507115582_ (reverse _expr115505115553_)) - (_bind115508115584_ - (reverse _bind115506115555_))) + (_g115749115784_ _g115750115787_))))) + (let ((_expr115769115844_ (reverse _expr115767115815_)) + (_bind115770115846_ + (reverse _bind115768115817_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115495115540_)) - (let ((_e115517115587_ + (gx#stx-pair? _tl115757115802_)) + (let ((_e115779115849_ (let () (declare (not safe)) - (gx#stx-e _tl115495115540_)))) - (let ((_hd115516115590_ + (gx#stx-e _tl115757115802_)))) + (let ((_hd115778115852_ (let () (declare (not safe)) - (##car _e115517115587_))) - (_tl115515115592_ + (##car _e115779115849_))) + (_tl115777115854_ (let () (declare (not safe)) - (##cdr _e115517115587_)))) + (##cdr _e115779115849_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115515115592_)) - ((lambda (_L115595_ _L115596_ _L115597_) - (let ((_$e115628_ - (let ((__tmp118249 - (lambda (_g115616115618_) + (gx#stx-null? _tl115777115854_)) + ((lambda (_L115857_ _L115858_ _L115859_) + (let ((_$e115890_ + (let ((__tmp118511 + (lambda (_g115878115880_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115616115618_ - _arg115485_)))) - (__tmp118247 - (let ((__tmp118248 - (lambda (_g115620115623_ + _g115878115880_ + _arg115747_)))) + (__tmp118509 + (let ((__tmp118510 + (lambda (_g115882115885_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g115621115625_) + _g115883115887_) (let () (declare (not safe)) - (cons _g115620115623_ _g115621115625_))))) + (cons _g115882115885_ _g115883115887_))))) (declare (not safe)) - (foldr1 __tmp118248 '() _L115596_)))) + (foldr1 __tmp118510 '() _L115858_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp118249 - __tmp118247)))) - (if _$e115628_ - _$e115628_ + (ormap1 __tmp118511 + __tmp118509)))) + (if _$e115890_ + _$e115890_ (let () (declare (not safe)) (gxc#compile-e__1 - _L115595_ - _arg115485_))))) - _hd115516115590_ - _expr115507115582_ - _bind115508115584_) + _L115857_ + _arg115747_))))) + _hd115778115852_ + _expr115769115844_ + _bind115770115846_) (let () (declare (not safe)) - (_g115487115522_ _g115488115525_))))) + (_g115749115784_ _g115750115787_))))) (let () (declare (not safe)) - (_g115487115522_ _g115488115525_)))))))) + (_g115749115784_ _g115750115787_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115501115548_ - _target115498115543_ + (_loop115763115810_ + _target115760115805_ '() '()))) (let () (declare (not safe)) - (_g115487115522_ - _g115488115525_)))))) + (_g115749115784_ + _g115750115787_)))))) (let () (declare (not safe)) - (_g115487115522_ _g115488115525_))))) + (_g115749115784_ _g115750115787_))))) (let () (declare (not safe)) - (_g115487115522_ _g115488115525_))))) + (_g115749115784_ _g115750115787_))))) (let () (declare (not safe)) - (_g115487115522_ _g115488115525_)))))) + (_g115749115784_ _g115750115787_)))))) (declare (not safe)) - (_g115486115631_ _stx115484_)))) + (_g115748115893_ _stx115746_)))) (define gxc#find-setq% - (lambda (_stx115416_ _arg115417_) - (let* ((_g115419115436_ - (lambda (_g115420115433_) + (lambda (_stx115678_ _arg115679_) + (let* ((_g115681115698_ + (lambda (_g115682115695_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115420115433_)))) - (_g115418115481_ - (lambda (_g115420115439_) + _g115682115695_)))) + (_g115680115743_ + (lambda (_g115682115701_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115420115439_)) - (let ((_e115425115441_ + (gx#stx-pair? _g115682115701_)) + (let ((_e115687115703_ (let () (declare (not safe)) - (gx#stx-e _g115420115439_)))) - (let ((_hd115424115444_ + (gx#stx-e _g115682115701_)))) + (let ((_hd115686115706_ (let () (declare (not safe)) - (##car _e115425115441_))) - (_tl115423115446_ + (##car _e115687115703_))) + (_tl115685115708_ (let () (declare (not safe)) - (##cdr _e115425115441_)))) + (##cdr _e115687115703_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115423115446_)) - (let ((_e115428115449_ + (gx#stx-pair? _tl115685115708_)) + (let ((_e115690115711_ (let () (declare (not safe)) - (gx#stx-e _tl115423115446_)))) - (let ((_hd115427115452_ + (gx#stx-e _tl115685115708_)))) + (let ((_hd115689115714_ (let () (declare (not safe)) - (##car _e115428115449_))) - (_tl115426115454_ + (##car _e115690115711_))) + (_tl115688115716_ (let () (declare (not safe)) - (##cdr _e115428115449_)))) + (##cdr _e115690115711_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115426115454_)) - (let ((_e115431115457_ + (gx#stx-pair? _tl115688115716_)) + (let ((_e115693115719_ (let () (declare (not safe)) - (gx#stx-e _tl115426115454_)))) - (let ((_hd115430115460_ + (gx#stx-e _tl115688115716_)))) + (let ((_hd115692115722_ (let () (declare (not safe)) - (##car _e115431115457_))) - (_tl115429115462_ + (##car _e115693115719_))) + (_tl115691115724_ (let () (declare (not safe)) - (##cdr _e115431115457_)))) + (##cdr _e115693115719_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115429115462_)) - ((lambda (_L115465_ _L115466_) + _tl115691115724_)) + ((lambda (_L115727_ _L115728_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115465_ - _arg115417_))) - _hd115430115460_ - _hd115427115452_) + _L115727_ + _arg115679_))) + _hd115692115722_ + _hd115689115714_) (let () (declare (not safe)) - (_g115419115436_ - _g115420115439_))))) + (_g115681115698_ + _g115682115701_))))) (let () (declare (not safe)) - (_g115419115436_ _g115420115439_))))) + (_g115681115698_ _g115682115701_))))) (let () (declare (not safe)) - (_g115419115436_ _g115420115439_))))) + (_g115681115698_ _g115682115701_))))) (let () (declare (not safe)) - (_g115419115436_ _g115420115439_)))))) + (_g115681115698_ _g115682115701_)))))) (declare (not safe)) - (_g115418115481_ _stx115416_)))) + (_g115680115743_ _stx115678_)))) (define gxc#find-var-refs-ref% - (lambda (_stx115360_ _ids115361_) - (let* ((_g115363115376_ - (lambda (_g115364115373_) + (lambda (_stx115622_ _ids115623_) + (let* ((_g115625115638_ + (lambda (_g115626115635_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115364115373_)))) - (_g115362115413_ - (lambda (_g115364115379_) + _g115626115635_)))) + (_g115624115675_ + (lambda (_g115626115641_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115364115379_)) - (let ((_e115368115381_ + (gx#stx-pair? _g115626115641_)) + (let ((_e115630115643_ (let () (declare (not safe)) - (gx#stx-e _g115364115379_)))) - (let ((_hd115367115384_ + (gx#stx-e _g115626115641_)))) + (let ((_hd115629115646_ (let () (declare (not safe)) - (##car _e115368115381_))) - (_tl115366115386_ + (##car _e115630115643_))) + (_tl115628115648_ (let () (declare (not safe)) - (##cdr _e115368115381_)))) + (##cdr _e115630115643_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115366115386_)) - (let ((_e115371115389_ + (gx#stx-pair? _tl115628115648_)) + (let ((_e115633115651_ (let () (declare (not safe)) - (gx#stx-e _tl115366115386_)))) - (let ((_hd115370115392_ + (gx#stx-e _tl115628115648_)))) + (let ((_hd115632115654_ (let () (declare (not safe)) - (##car _e115371115389_))) - (_tl115369115394_ + (##car _e115633115651_))) + (_tl115631115656_ (let () (declare (not safe)) - (##cdr _e115371115389_)))) + (##cdr _e115633115651_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115369115394_)) - ((lambda (_L115397_) - (let ((__tmp118252 - (lambda (_g115408115410_) + (gx#stx-null? _tl115631115656_)) + ((lambda (_L115659_) + (let ((__tmp118514 + (lambda (_g115670115672_) (let () (declare (not safe)) (gx#free-identifier=? - _L115397_ - _g115408115410_))))) + _L115659_ + _g115670115672_))))) (declare (not safe)) - (find __tmp118252 _ids115361_))) - _hd115370115392_) + (find __tmp118514 _ids115623_))) + _hd115632115654_) (let () (declare (not safe)) - (_g115363115376_ _g115364115379_))))) + (_g115625115638_ _g115626115641_))))) (let () (declare (not safe)) - (_g115363115376_ _g115364115379_))))) + (_g115625115638_ _g115626115641_))))) (let () (declare (not safe)) - (_g115363115376_ _g115364115379_)))))) + (_g115625115638_ _g115626115641_)))))) (declare (not safe)) - (_g115362115413_ _stx115360_)))) + (_g115624115675_ _stx115622_)))) (define gxc#find-var-refs-setq% - (lambda (_stx115284_ _ids115285_) - (let* ((_g115287115304_ - (lambda (_g115288115301_) + (lambda (_stx115546_ _ids115547_) + (let* ((_g115549115566_ + (lambda (_g115550115563_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115288115301_)))) - (_g115286115357_ - (lambda (_g115288115307_) + _g115550115563_)))) + (_g115548115619_ + (lambda (_g115550115569_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115288115307_)) - (let ((_e115293115309_ + (gx#stx-pair? _g115550115569_)) + (let ((_e115555115571_ (let () (declare (not safe)) - (gx#stx-e _g115288115307_)))) - (let ((_hd115292115312_ + (gx#stx-e _g115550115569_)))) + (let ((_hd115554115574_ (let () (declare (not safe)) - (##car _e115293115309_))) - (_tl115291115314_ + (##car _e115555115571_))) + (_tl115553115576_ (let () (declare (not safe)) - (##cdr _e115293115309_)))) + (##cdr _e115555115571_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115291115314_)) - (let ((_e115296115317_ + (gx#stx-pair? _tl115553115576_)) + (let ((_e115558115579_ (let () (declare (not safe)) - (gx#stx-e _tl115291115314_)))) - (let ((_hd115295115320_ + (gx#stx-e _tl115553115576_)))) + (let ((_hd115557115582_ (let () (declare (not safe)) - (##car _e115296115317_))) - (_tl115294115322_ + (##car _e115558115579_))) + (_tl115556115584_ (let () (declare (not safe)) - (##cdr _e115296115317_)))) + (##cdr _e115558115579_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115294115322_)) - (let ((_e115299115325_ + (gx#stx-pair? _tl115556115584_)) + (let ((_e115561115587_ (let () (declare (not safe)) - (gx#stx-e _tl115294115322_)))) - (let ((_hd115298115328_ + (gx#stx-e _tl115556115584_)))) + (let ((_hd115560115590_ (let () (declare (not safe)) - (##car _e115299115325_))) - (_tl115297115330_ + (##car _e115561115587_))) + (_tl115559115592_ (let () (declare (not safe)) - (##cdr _e115299115325_)))) + (##cdr _e115561115587_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115297115330_)) - ((lambda (_L115333_ _L115334_) - (let ((_$e115354_ - (let ((__tmp118253 - (lambda (_g115349115351_) + _tl115559115592_)) + ((lambda (_L115595_ _L115596_) + (let ((_$e115616_ + (let ((__tmp118515 + (lambda (_g115611115613_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L115334_ _g115349115351_))))) + (gx#free-identifier=? _L115596_ _g115611115613_))))) (declare (not safe)) - (find __tmp118253 _ids115285_)))) + (find __tmp118515 _ids115547_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e115354_ - _$e115354_ + (if _$e115616_ + _$e115616_ (let () (declare (not safe)) (gxc#compile-e__1 - _L115333_ - _ids115285_))))) - _hd115298115328_ - _hd115295115320_) + _L115595_ + _ids115547_))))) + _hd115560115590_ + _hd115557115582_) (let () (declare (not safe)) - (_g115287115304_ - _g115288115307_))))) + (_g115549115566_ + _g115550115569_))))) (let () (declare (not safe)) - (_g115287115304_ _g115288115307_))))) + (_g115549115566_ _g115550115569_))))) (let () (declare (not safe)) - (_g115287115304_ _g115288115307_))))) + (_g115549115566_ _g115550115569_))))) (let () (declare (not safe)) - (_g115287115304_ _g115288115307_)))))) + (_g115549115566_ _g115550115569_)))))) (declare (not safe)) - (_g115286115357_ _stx115284_)))))) + (_g115548115619_ _stx115546_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index dbe73366..7118da59 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,93 +1,93 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1709375802) + (define gerbil/compiler/optimize::timestamp 1709457374) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj156558 + (let ((__obj156820 (let () (declare (not safe)) (##structure gxc#optimizer-info::t '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj156558) - __obj156558))))) + (gxc#optimizer-info:::init! __obj156820) + __obj156820))))) (define gxc#optimize! - (lambda (_ctx156251_) - (let ((__tmp156562 + (lambda (_ctx156513_) + (let ((__tmp156824 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx156251_)) + (gxc#optimizer-load-ssxi-deps _ctx156513_)) (let () (declare (not safe)) (gxc#optimizer-load-builtin-ssxi)) - (let ((__tmp156564 + (let ((__tmp156826 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156563 + (__tmp156825 (##structure-ref - _ctx156251_ + _ctx156513_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp156564 __tmp156563 '#t)) - (let ((_code156254_ - (let ((__tmp156565 + (hash-put! __tmp156826 __tmp156825 '#t)) + (let ((_code156516_ + (let ((__tmp156827 (##structure-ref - _ctx156251_ + _ctx156513_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp156565)))) + (gxc#optimize-source __tmp156827)))) (##structure-set! - _ctx156251_ - _code156254_ + _ctx156513_ + _code156516_ '11 gx#module-context::t '#f)))) - (__tmp156561 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp156560 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp156823 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp156822 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters - __tmp156562 + __tmp156824 gxc#current-compile-mutators - __tmp156561 + __tmp156823 gxc#current-compile-local-type - __tmp156560)))) + __tmp156822)))) (define gxc#optimizer-load-builtin-ssxi (lambda () - (letrec ((_load-it!156247_ - (lambda (_id156249_) - (if (let ((__tmp156567 + (letrec ((_load-it!156509_ + (lambda (_id156511_) + (if (let ((__tmp156829 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp156567 _id156249_)) + (hash-get __tmp156829 _id156511_)) '#!void (begin (let () (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id _id156249_)) - (let ((__tmp156566 + (gxc#optimizer-import-ssxi-by-id _id156511_)) + (let ((__tmp156828 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp156566 _id156249_ '#t))))))) + (hash-put! __tmp156828 _id156511_ '#t))))))) (for-each - _load-it!156247_ + _load-it!156509_ '(gerbil/runtime/gambit gerbil/runtime/util gerbil/runtime/table @@ -107,1688 +107,1688 @@ gerbil/runtime gerbil/builtin))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx156191_) - (letrec* ((_deps156193_ - (let* ((_imports156237_ + (lambda (_ctx156453_) + (letrec* ((_deps156455_ + (let* ((_imports156499_ (##structure-ref - _ctx156191_ + _ctx156453_ '8 gx#module-context::t '#f)) - (_$e156239_ + (_$e156501_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx156191_)))) - (if _$e156239_ - ((lambda (_g156241156243_) + (gx#core-context-prelude__% _ctx156453_)))) + (if _$e156501_ + ((lambda (_g156503156505_) (let () (declare (not safe)) - (cons _g156241156243_ _imports156237_))) - _$e156239_) - _imports156237_)))) - (let _lp156195_ ((_rest156197_ _deps156193_)) - (let* ((_rest156198156206_ _rest156197_) - (_else156200156214_ (lambda () '#!void)) - (_K156202156225_ - (lambda (_rest156217_ _hd156218_) + (cons _g156503156505_ _imports156499_))) + _$e156501_) + _imports156499_)))) + (let _lp156457_ ((_rest156459_ _deps156455_)) + (let* ((_rest156460156468_ _rest156459_) + (_else156462156476_ (lambda () '#!void)) + (_K156464156487_ + (lambda (_rest156479_ _hd156480_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd156218_ + _hd156480_ 'gx#module-context::t)) (begin - (if (let ((__tmp156581 + (if (let ((__tmp156843 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156580 + (__tmp156842 (##structure-ref - _hd156218_ + _hd156480_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp156581 __tmp156580)) + (hash-get __tmp156843 __tmp156842)) '#!void (begin - (let ((_$e156220_ + (let ((_$e156482_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd156218_)))) - (if _$e156220_ - ((lambda (_pre156223_) - (let ((__tmp156578 - (let ((__tmp156579 + _hd156480_)))) + (if _$e156482_ + ((lambda (_pre156485_) + (let ((__tmp156840 + (let ((__tmp156841 (##structure-ref - _hd156218_ + _hd156480_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre156223_ - __tmp156579)))) + (cons _pre156485_ + __tmp156841)))) (declare (not safe)) - (_lp156195_ __tmp156578))) - _$e156220_) - (let ((__tmp156577 + (_lp156457_ __tmp156840))) + _$e156482_) + (let ((__tmp156839 (##structure-ref - _hd156218_ + _hd156480_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp156195_ __tmp156577)))) + (_lp156457_ __tmp156839)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd156218_)))) + (gxc#optimizer-load-ssxi _hd156480_)))) (let () (declare (not safe)) - (_lp156195_ _rest156217_))) + (_lp156457_ _rest156479_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd156218_ + _hd156480_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp156576 + (if (let ((__tmp156838 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156575 + (__tmp156837 (##structure-ref - _hd156218_ + _hd156480_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp156576 __tmp156575)) + (hash-get __tmp156838 __tmp156837)) '#!void (begin - (let ((__tmp156574 + (let ((__tmp156836 (##structure-ref - _hd156218_ + _hd156480_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp156195_ __tmp156574)) + (_lp156457_ __tmp156836)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd156218_)))) + (gxc#optimizer-load-ssxi _hd156480_)))) (let () (declare (not safe)) - (_lp156195_ _rest156217_))) + (_lp156457_ _rest156479_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156218_ + _hd156480_ 'gx#module-import::t)) - (let ((__tmp156572 - (let ((__tmp156573 + (let ((__tmp156834 + (let ((__tmp156835 (##direct-structure-ref - _hd156218_ + _hd156480_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp156573 _rest156217_)))) + (cons __tmp156835 _rest156479_)))) (declare (not safe)) - (_lp156195_ __tmp156572)) + (_lp156457_ __tmp156834)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156218_ + _hd156480_ 'gx#module-export::t)) - (let ((__tmp156570 - (let ((__tmp156571 + (let ((__tmp156832 + (let ((__tmp156833 (##direct-structure-ref - _hd156218_ + _hd156480_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp156571 - _rest156217_)))) + (cons __tmp156833 + _rest156479_)))) (declare (not safe)) - (_lp156195_ __tmp156570)) + (_lp156457_ __tmp156832)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156218_ + _hd156480_ 'gx#import-set::t)) - (let ((__tmp156568 - (let ((__tmp156569 + (let ((__tmp156830 + (let ((__tmp156831 (##direct-structure-ref - _hd156218_ + _hd156480_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp156569 - _rest156217_)))) + (cons __tmp156831 + _rest156479_)))) (declare (not safe)) - (_lp156195_ __tmp156568)) + (_lp156457_ __tmp156830)) (let () (declare (not safe)) (error '"Unexpected module import" - _hd156218_)))))))))) - (if (let () (declare (not safe)) (##pair? _rest156198156206_)) - (let ((_hd156203156228_ + _hd156480_)))))))))) + (if (let () (declare (not safe)) (##pair? _rest156460156468_)) + (let ((_hd156465156490_ (let () (declare (not safe)) - (##car _rest156198156206_))) - (_tl156204156230_ + (##car _rest156460156468_))) + (_tl156466156492_ (let () (declare (not safe)) - (##cdr _rest156198156206_)))) - (let* ((_hd156233_ _hd156203156228_) - (_rest156235_ _tl156204156230_)) + (##cdr _rest156460156468_)))) + (let* ((_hd156495_ _hd156465156490_) + (_rest156497_ _tl156466156492_)) (declare (not safe)) - (_K156202156225_ _rest156235_ _hd156233_))) + (_K156464156487_ _rest156497_ _hd156495_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx156171_) + (lambda (_ctx156433_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx156171_ + _ctx156433_ 'gx#module-context::t)) - (let ((__tmp156582 + (let ((__tmp156844 (##structure-ref - _ctx156171_ + _ctx156433_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp156582))) + (list? __tmp156844))) '#!void - (let* ((_ht156173_ + (let* ((_ht156435_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id156175_ + (_id156437_ (##structure-ref - _ctx156171_ + _ctx156433_ '1 gx#expander-context::t '#f)) - (_mod156177_ + (_mod156439_ (let () (declare (not safe)) - (hash-get _ht156173_ _id156175_)))) - (let ((_$e156180_ _mod156177_)) - (if _$e156180_ - _$e156180_ - (let* ((_mod156183_ + (hash-get _ht156435_ _id156437_)))) + (let ((_$e156442_ _mod156439_)) + (if _$e156442_ + _$e156442_ + (let* ((_mod156445_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx156171_))) - (_val156188_ - (let ((_$e156185_ _mod156183_)) - (if _$e156185_ _$e156185_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx156433_))) + (_val156450_ + (let ((_$e156447_ _mod156445_)) + (if _$e156447_ _$e156447_ '#!void)))) (let () (declare (not safe)) - (hash-put! _ht156173_ _id156175_ _val156188_)) - _val156188_))))))) + (hash-put! _ht156435_ _id156437_ _val156450_)) + _val156450_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx156169_) - (if (##structure-ref _ctx156169_ '1 gx#expander-context::t '#f) - (let ((__tmp156583 + (lambda (_ctx156431_) + (if (##structure-ref _ctx156431_ '1 gx#expander-context::t '#f) + (let ((__tmp156845 (##structure-ref - _ctx156169_ + _ctx156431_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp156583)) + (gxc#optimizer-import-ssxi-by-id __tmp156845)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id156146_) - (letrec ((_catch-e156148_ - (lambda (_exn156167_) + (lambda (_id156408_) + (letrec ((_catch-e156410_ + (lambda (_exn156429_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id156146_)) - (display-exception _exn156167_)) + _id156408_)) + (display-exception _exn156429_)) '#!void) '#f)) - (_import-e156149_ + (_import-e156411_ (lambda () - (let* ((_str-id156152_ + (let* ((_str-id156414_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id156146_)) + (gxc#module-id->path-string _id156408_)) '".ssxi")) - (_artefact-path156160_ - (let ((_odir156153156155_ + (_artefact-path156422_ + (let ((_odir156415156417_ (gxc#current-compile-output-dir))) - (if _odir156153156155_ - (let ((_odir156158_ _odir156153156155_)) + (if _odir156415156417_ + (let ((_odir156420_ _odir156415156417_)) (path-expand - (string-append _str-id156152_ '".ss") - _odir156158_)) + (string-append _str-id156414_ '".ss") + _odir156420_)) '#f))) - (_library-path156162_ + (_library-path156424_ (string->symbol - (string-append '":" _str-id156152_ '".ss"))) - (_ssxi-path156164_ - (if (and _artefact-path156160_ - (file-exists? _artefact-path156160_)) - _artefact-path156160_ - _library-path156162_))) + (string-append '":" _str-id156414_ '".ss"))) + (_ssxi-path156426_ + (if (and _artefact-path156422_ + (file-exists? _artefact-path156422_)) + _artefact-path156422_ + _library-path156424_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path156164_)) + _ssxi-path156426_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path156164_ '#t '#t)))))) + (gx#import-module__% _ssxi-path156426_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e156148_ _import-e156149_))))) + (with-catch _catch-e156410_ _import-e156411_))))) (define gxc#optimize-source - (lambda (_stx156137_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx156137_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx156137_)) + (lambda (_stx156399_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx156399_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx156399_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx156137_)) - (let* ((_stx156139_ + (gxc#apply-collect-top-level-type-info _stx156399_)) + (let* ((_stx156401_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx156137_))) - (_stx156141_ + (gxc#apply-generate-method-specializers _stx156399_))) + (_stx156403_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx156139_)))) + (gxc#apply-lift-top-lambdas _stx156401_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx156141_)) - (let ((_stx156144_ + (gxc#apply-collect-type-info _stx156403_)) + (let ((_stx156406_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx156141_)))) + (gxc#apply-optimize-annotated _stx156403_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx156144_))))) + (gxc#apply-optimize-call _stx156406_))))) (define gxc#&generate-ssxi (make-promise (lambda () - (let ((_tbl156134_ + (let ((_tbl156396_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp156584 (force gxc#&generate-runtime-empty))) + (let ((__tmp156846 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-merge! _tbl156134_ __tmp156584)) + (hash-merge! _tbl156396_ __tmp156846)) (let () (declare (not safe)) - (hash-put! _tbl156134_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl156396_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (hash-put! - _tbl156134_ + _tbl156396_ '%#begin-syntax gxc#generate-ssxi-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl156134_ '%#module gxc#generate-ssxi-module%)) + (hash-put! _tbl156396_ '%#module gxc#generate-ssxi-module%)) (let () (declare (not safe)) (hash-put! - _tbl156134_ + _tbl156396_ '%#define-values gxc#generate-ssxi-define-values%)) (let () (declare (not safe)) - (hash-put! _tbl156134_ '%#call gxc#generate-ssxi-call%)) - _tbl156134_)))) + (hash-put! _tbl156396_ '%#call gxc#generate-ssxi-call%)) + _tbl156396_)))) (define gxc#apply-generate-ssxi - (lambda (_stx156117_ . _args156119_) - (let ((__tmp156586 + (lambda (_stx156379_ . _args156381_) + (let ((__tmp156848 (lambda () (declare (not safe)) - (if (null? _args156119_) - (gxc#compile-e__0 _stx156117_) - (let ((_arg1156124_ (car _args156119_)) - (_rest156126_ (cdr _args156119_))) - (if (null? _rest156126_) - (gxc#compile-e__1 _stx156117_ _arg1156124_) - (let ((_arg2156129_ (car _rest156126_)) - (_rest156131_ (cdr _rest156126_))) - (if (null? _rest156131_) + (if (null? _args156381_) + (gxc#compile-e__0 _stx156379_) + (let ((_arg1156386_ (car _args156381_)) + (_rest156388_ (cdr _args156381_))) + (if (null? _rest156388_) + (gxc#compile-e__1 _stx156379_ _arg1156386_) + (let ((_arg2156391_ (car _rest156388_)) + (_rest156393_ (cdr _rest156388_))) + (if (null? _rest156393_) (gxc#compile-e__2 - _stx156117_ - _arg1156124_ - _arg2156129_) + _stx156379_ + _arg1156386_ + _arg2156391_) (apply gxc#compile-e - _stx156117_ - _arg1156124_ - _arg2156129_ - _rest156131_)))))))) - (__tmp156585 (force gxc#&generate-ssxi))) + _stx156379_ + _arg1156386_ + _arg2156391_ + _rest156393_)))))))) + (__tmp156847 (force gxc#&generate-ssxi))) (declare (not safe)) (call-with-parameters - __tmp156586 + __tmp156848 gxc#current-compile-methods - __tmp156585)))) + __tmp156847)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_stx156078_) - (let* ((_g156080156090_ - (lambda (_g156081156087_) + (lambda (_stx156340_) + (let* ((_g156342156352_ + (lambda (_g156343156349_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156081156087_)))) - (_g156079156114_ - (lambda (_g156081156093_) + _g156343156349_)))) + (_g156341156376_ + (lambda (_g156343156355_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156081156093_)) - (let ((_e156085156095_ + (gx#stx-pair? _g156343156355_)) + (let ((_e156347156357_ (let () (declare (not safe)) - (gx#stx-e _g156081156093_)))) - (let ((_hd156084156098_ + (gx#stx-e _g156343156355_)))) + (let ((_hd156346156360_ (let () (declare (not safe)) - (##car _e156085156095_))) - (_tl156083156100_ + (##car _e156347156357_))) + (_tl156345156362_ (let () (declare (not safe)) - (##cdr _e156085156095_)))) - ((lambda (_L156103_) - (let ((__tmp156589 + (##cdr _e156347156357_)))) + ((lambda (_L156365_) + (let ((__tmp156851 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _stx156078_)))) - (__tmp156587 - (let ((__tmp156588 + _stx156340_)))) + (__tmp156849 + (let ((__tmp156850 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp156588 '1)))) + (fx+ __tmp156850 '1)))) (declare (not safe)) (call-with-parameters - __tmp156589 + __tmp156851 gx#current-expander-phi - __tmp156587))) - _tl156083156100_))) + __tmp156849))) + _tl156345156362_))) (let () (declare (not safe)) - (_g156080156090_ _g156081156093_)))))) + (_g156342156352_ _g156343156355_)))))) (declare (not safe)) - (_g156079156114_ _stx156078_)))) + (_g156341156376_ _stx156340_)))) (define gxc#generate-ssxi-module% - (lambda (_stx156018_) - (let* ((_g156020156034_ - (lambda (_g156021156031_) + (lambda (_stx156280_) + (let* ((_g156282156296_ + (lambda (_g156283156293_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156021156031_)))) - (_g156019156075_ - (lambda (_g156021156037_) + _g156283156293_)))) + (_g156281156337_ + (lambda (_g156283156299_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156021156037_)) - (let ((_e156026156039_ + (gx#stx-pair? _g156283156299_)) + (let ((_e156288156301_ (let () (declare (not safe)) - (gx#stx-e _g156021156037_)))) - (let ((_hd156025156042_ + (gx#stx-e _g156283156299_)))) + (let ((_hd156287156304_ (let () (declare (not safe)) - (##car _e156026156039_))) - (_tl156024156044_ + (##car _e156288156301_))) + (_tl156286156306_ (let () (declare (not safe)) - (##cdr _e156026156039_)))) + (##cdr _e156288156301_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156024156044_)) - (let ((_e156029156047_ + (gx#stx-pair? _tl156286156306_)) + (let ((_e156291156309_ (let () (declare (not safe)) - (gx#stx-e _tl156024156044_)))) - (let ((_hd156028156050_ + (gx#stx-e _tl156286156306_)))) + (let ((_hd156290156312_ (let () (declare (not safe)) - (##car _e156029156047_))) - (_tl156027156052_ + (##car _e156291156309_))) + (_tl156289156314_ (let () (declare (not safe)) - (##cdr _e156029156047_)))) - ((lambda (_L156055_ _L156056_) - (let* ((_ctx156069_ + (##cdr _e156291156309_)))) + ((lambda (_L156317_ _L156318_) + (let* ((_ctx156331_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L156056_))) - (_code156071_ + _L156318_))) + (_code156333_ (##structure-ref - _ctx156069_ + _ctx156331_ '11 gx#module-context::t '#f))) - (let ((__tmp156590 + (let ((__tmp156852 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _code156071_))))) + _code156333_))))) (declare (not safe)) (call-with-parameters - __tmp156590 + __tmp156852 gx#current-expander-context - _ctx156069_)))) - _tl156027156052_ - _hd156028156050_))) + _ctx156331_)))) + _tl156289156314_ + _hd156290156312_))) (let () (declare (not safe)) - (_g156020156034_ _g156021156037_))))) + (_g156282156296_ _g156283156299_))))) (let () (declare (not safe)) - (_g156020156034_ _g156021156037_)))))) + (_g156282156296_ _g156283156299_)))))) (declare (not safe)) - (_g156019156075_ _stx156018_)))) + (_g156281156337_ _stx156280_)))) (define gxc#generate-ssxi-define-values% - (lambda (_stx155828_) - (letrec ((_generate-e155830_ - (lambda (_id156007_) - (let* ((_sym156009_ - (if (let ((__tmp156591 + (lambda (_stx156090_) + (letrec ((_generate-e156092_ + (lambda (_id156269_) + (let* ((_sym156271_ + (if (let ((__tmp156853 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp156591)) + (gx#identifier? __tmp156853)) (let () (declare (not safe)) - (gxc#identifier-symbol _id156007_)) + (gxc#identifier-symbol _id156269_)) '#f)) - (_$e156011_ - (if _sym156009_ + (_$e156273_ + (if _sym156271_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym156009_)) + (gxc#optimizer-lookup-type _sym156271_)) '#f))) - (if _$e156011_ - ((lambda (_type156014_) + (if _$e156273_ + ((lambda (_type156276_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym156009_)) - (let* ((_typedecl156016_ - (let ((__method156559 + (gxc#verbose '"generate typedecl " _sym156271_)) + (let* ((_typedecl156278_ + (let ((__method156821 (let () (declare (not safe)) (method-ref - _type156014_ + _type156276_ 'typedecl)))) - (if __method156559 - (__method156559 _type156014_) + (if __method156821 + (__method156821 _type156276_) (let () (declare (not safe)) (error '"Missing method" - _type156014_ + _type156276_ 'typedecl))))) - (__tmp156592 - (let ((__tmp156593 + (__tmp156854 + (let ((__tmp156855 (let () (declare (not safe)) - (cons _typedecl156016_ '())))) + (cons _typedecl156278_ '())))) (declare (not safe)) - (cons _sym156009_ __tmp156593)))) + (cons _sym156271_ __tmp156855)))) (declare (not safe)) - (cons 'declare-type __tmp156592))) - _$e156011_) + (cons 'declare-type __tmp156854))) + _$e156273_) '(begin)))))) - (let* ((___stx156257156258_ _stx155828_) - (_g155833155871_ + (let* ((___stx156519156520_ _stx156090_) + (_g156095156133_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx156257156258_))))) - (let ((___kont156259156260_ - (lambda (_L155989_) + ___stx156519156520_))))) + (let ((___kont156521156522_ + (lambda (_L156251_) (let () (declare (not safe)) - (_generate-e155830_ _L155989_)))) - (___kont156261156262_ - (lambda (_L155924_) - (let ((_types155950_ - (map _generate-e155830_ - (let ((__tmp156594 - (lambda (_g155942155945_ - _g155943155947_) + (_generate-e156092_ _L156251_)))) + (___kont156523156524_ + (lambda (_L156186_) + (let ((_types156212_ + (map _generate-e156092_ + (let ((__tmp156856 + (lambda (_g156204156207_ + _g156205156209_) (let () (declare (not safe)) - (cons _g155942155945_ - _g155943155947_))))) + (cons _g156204156207_ + _g156205156209_))))) (declare (not safe)) - (foldr1 __tmp156594 '() _L155924_))))) + (foldr1 __tmp156856 '() _L156186_))))) (declare (not safe)) - (cons 'begin _types155950_))))) - (let ((___match156312156313_ - (lambda (_e155851155876_ - _hd155850155879_ - _tl155849155881_ - _e155854155884_ - _hd155853155887_ - _tl155852155889_ - ___splice156263156264_ - _target155855155892_ - _tl155857155894_) - (letrec ((_loop155858155897_ - (lambda (_hd155856155900_ _id155862155902_) + (cons 'begin _types156212_))))) + (let ((___match156574156575_ + (lambda (_e156113156138_ + _hd156112156141_ + _tl156111156143_ + _e156116156146_ + _hd156115156149_ + _tl156114156151_ + ___splice156525156526_ + _target156117156154_ + _tl156119156156_) + (letrec ((_loop156120156159_ + (lambda (_hd156118156162_ _id156124156164_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155856155900_)) - (let ((_e155859155905_ + (gx#stx-pair? _hd156118156162_)) + (let ((_e156121156167_ (let () (declare (not safe)) - (gx#stx-e _hd155856155900_)))) - (let ((_lp-tl155861155910_ + (gx#stx-e _hd156118156162_)))) + (let ((_lp-tl156123156172_ (let () (declare (not safe)) - (##cdr _e155859155905_))) - (_lp-hd155860155908_ + (##cdr _e156121156167_))) + (_lp-hd156122156170_ (let () (declare (not safe)) - (##car _e155859155905_)))) - (let ((__tmp156595 + (##car _e156121156167_)))) + (let ((__tmp156857 (let () (declare (not safe)) - (cons _lp-hd155860155908_ - _id155862155902_)))) + (cons _lp-hd156122156170_ + _id156124156164_)))) (declare (not safe)) - (_loop155858155897_ - _lp-tl155861155910_ - __tmp156595)))) - (let ((_id155863155913_ - (reverse _id155862155902_))) + (_loop156120156159_ + _lp-tl156123156172_ + __tmp156857)))) + (let ((_id156125156175_ + (reverse _id156124156164_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155852155889_)) - (let ((_e155866155916_ + (gx#stx-pair? _tl156114156151_)) + (let ((_e156128156178_ (let () (declare (not safe)) (gx#stx-e - _tl155852155889_)))) - (let ((_tl155864155921_ + _tl156114156151_)))) + (let ((_tl156126156183_ (let () (declare (not safe)) - (##cdr _e155866155916_))) - (_hd155865155919_ + (##cdr _e156128156178_))) + (_hd156127156181_ (let () (declare (not safe)) - (##car _e155866155916_)))) + (##car _e156128156178_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155864155921_)) - (___kont156261156262_ - _id155863155913_) + _tl156126156183_)) + (___kont156523156524_ + _id156125156175_) (let () (declare (not safe)) - (_g155833155871_))))) + (_g156095156133_))))) (let () (declare (not safe)) - (_g155833155871_)))))))) + (_g156095156133_)))))))) (let () (declare (not safe)) - (_loop155858155897_ _target155855155892_ '())))))) + (_loop156120156159_ _target156117156154_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx156257156258_)) - (let ((_e155838155957_ + (gx#stx-pair? ___stx156519156520_)) + (let ((_e156100156219_ (let () (declare (not safe)) - (gx#stx-e ___stx156257156258_)))) - (let ((_tl155836155962_ + (gx#stx-e ___stx156519156520_)))) + (let ((_tl156098156224_ (let () (declare (not safe)) - (##cdr _e155838155957_))) - (_hd155837155960_ + (##cdr _e156100156219_))) + (_hd156099156222_ (let () (declare (not safe)) - (##car _e155838155957_)))) + (##car _e156100156219_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155836155962_)) - (let ((_e155841155965_ + (gx#stx-pair? _tl156098156224_)) + (let ((_e156103156227_ (let () (declare (not safe)) - (gx#stx-e _tl155836155962_)))) - (let ((_tl155839155970_ + (gx#stx-e _tl156098156224_)))) + (let ((_tl156101156232_ (let () (declare (not safe)) - (##cdr _e155841155965_))) - (_hd155840155968_ + (##cdr _e156103156227_))) + (_hd156102156230_ (let () (declare (not safe)) - (##car _e155841155965_)))) + (##car _e156103156227_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155840155968_)) - (let ((_e155844155973_ + (gx#stx-pair? _hd156102156230_)) + (let ((_e156106156235_ (let () (declare (not safe)) - (gx#stx-e _hd155840155968_)))) - (let ((_tl155842155978_ + (gx#stx-e _hd156102156230_)))) + (let ((_tl156104156240_ (let () (declare (not safe)) - (##cdr _e155844155973_))) - (_hd155843155976_ + (##cdr _e156106156235_))) + (_hd156105156238_ (let () (declare (not safe)) - (##car _e155844155973_)))) + (##car _e156106156235_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155842155978_)) + (gx#stx-null? _tl156104156240_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155839155970_)) - (let ((_e155847155981_ + _tl156101156232_)) + (let ((_e156109156243_ (let () (declare (not safe)) (gx#stx-e - _tl155839155970_)))) - (let ((_tl155845155986_ + _tl156101156232_)))) + (let ((_tl156107156248_ (let () (declare (not safe)) - (##cdr _e155847155981_))) - (_hd155846155984_ + (##cdr _e156109156243_))) + (_hd156108156246_ (let () (declare (not safe)) - (##car _e155847155981_)))) + (##car _e156109156243_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155845155986_)) - (___kont156259156260_ - _hd155843155976_) + _tl156107156248_)) + (___kont156521156522_ + _hd156105156238_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155840155968_)) - (let ((___splice156263156264_ + _hd156102156230_)) + (let ((___splice156525156526_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd155840155968_ '0)))) - (let ((_tl155857155894_ + (gx#syntax-split-splice _hd156102156230_ '0)))) + (let ((_tl156119156156_ (let () (declare (not safe)) - (##vector-ref ___splice156263156264_ '1))) - (_target155855155892_ + (##vector-ref ___splice156525156526_ '1))) + (_target156117156154_ (let () (declare (not safe)) - (##vector-ref ___splice156263156264_ '0)))) + (##vector-ref ___splice156525156526_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155857155894_)) - (___match156312156313_ - _e155838155957_ - _hd155837155960_ - _tl155836155962_ - _e155841155965_ - _hd155840155968_ - _tl155839155970_ - ___splice156263156264_ - _target155855155892_ - _tl155857155894_) - (let () (declare (not safe)) (_g155833155871_))))) - (let () (declare (not safe)) (_g155833155871_)))))) + (gx#stx-null? _tl156119156156_)) + (___match156574156575_ + _e156100156219_ + _hd156099156222_ + _tl156098156224_ + _e156103156227_ + _hd156102156230_ + _tl156101156232_ + ___splice156525156526_ + _target156117156154_ + _tl156119156156_) + (let () (declare (not safe)) (_g156095156133_))))) + (let () (declare (not safe)) (_g156095156133_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155840155968_)) - (let ((___splice156263156264_ + _hd156102156230_)) + (let ((___splice156525156526_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155840155968_ + _hd156102156230_ '0)))) - (let ((_tl155857155894_ + (let ((_tl156119156156_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice156263156264_ '1))) - (_target155855155892_ + (##vector-ref ___splice156525156526_ '1))) + (_target156117156154_ (let () (declare (not safe)) - (##vector-ref ___splice156263156264_ '0)))) + (##vector-ref ___splice156525156526_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155857155894_)) - (___match156312156313_ - _e155838155957_ - _hd155837155960_ - _tl155836155962_ - _e155841155965_ - _hd155840155968_ - _tl155839155970_ - ___splice156263156264_ - _target155855155892_ - _tl155857155894_) - (let () (declare (not safe)) (_g155833155871_))))) + (gx#stx-null? _tl156119156156_)) + (___match156574156575_ + _e156100156219_ + _hd156099156222_ + _tl156098156224_ + _e156103156227_ + _hd156102156230_ + _tl156101156232_ + ___splice156525156526_ + _target156117156154_ + _tl156119156156_) + (let () (declare (not safe)) (_g156095156133_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g155833155871_)))) + (_g156095156133_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155840155968_)) - (let ((___splice156263156264_ + _hd156102156230_)) + (let ((___splice156525156526_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155840155968_ + _hd156102156230_ '0)))) - (let ((_tl155857155894_ + (let ((_tl156119156156_ (let () (declare (not safe)) (##vector-ref - ___splice156263156264_ + ___splice156525156526_ '1))) - (_target155855155892_ + (_target156117156154_ (let () (declare (not safe)) (##vector-ref - ___splice156263156264_ + ___splice156525156526_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155857155894_)) - (___match156312156313_ - _e155838155957_ - _hd155837155960_ - _tl155836155962_ - _e155841155965_ - _hd155840155968_ - _tl155839155970_ - ___splice156263156264_ - _target155855155892_ - _tl155857155894_) + _tl156119156156_)) + (___match156574156575_ + _e156100156219_ + _hd156099156222_ + _tl156098156224_ + _e156103156227_ + _hd156102156230_ + _tl156101156232_ + ___splice156525156526_ + _target156117156154_ + _tl156119156156_) (let () (declare (not safe)) - (_g155833155871_))))) + (_g156095156133_))))) (let () (declare (not safe)) - (_g155833155871_)))))) + (_g156095156133_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd155840155968_)) - (let ((___splice156263156264_ + (gx#stx-pair/null? _hd156102156230_)) + (let ((___splice156525156526_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155840155968_ + _hd156102156230_ '0)))) - (let ((_tl155857155894_ + (let ((_tl156119156156_ (let () (declare (not safe)) (##vector-ref - ___splice156263156264_ + ___splice156525156526_ '1))) - (_target155855155892_ + (_target156117156154_ (let () (declare (not safe)) (##vector-ref - ___splice156263156264_ + ___splice156525156526_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155857155894_)) - (___match156312156313_ - _e155838155957_ - _hd155837155960_ - _tl155836155962_ - _e155841155965_ - _hd155840155968_ - _tl155839155970_ - ___splice156263156264_ - _target155855155892_ - _tl155857155894_) + _tl156119156156_)) + (___match156574156575_ + _e156100156219_ + _hd156099156222_ + _tl156098156224_ + _e156103156227_ + _hd156102156230_ + _tl156101156232_ + ___splice156525156526_ + _target156117156154_ + _tl156119156156_) (let () (declare (not safe)) - (_g155833155871_))))) + (_g156095156133_))))) (let () (declare (not safe)) - (_g155833155871_)))))) - (let () (declare (not safe)) (_g155833155871_))))) - (let () (declare (not safe)) (_g155833155871_))))))))) + (_g156095156133_)))))) + (let () (declare (not safe)) (_g156095156133_))))) + (let () (declare (not safe)) (_g156095156133_))))))))) (define gxc#generate-ssxi-call% - (lambda (_stx155382_) - (let* ((___stx156315156316_ _stx155382_) - (_g155386155488_ + (lambda (_stx155644_) + (let* ((___stx156577156578_ _stx155644_) + (_g155648155750_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx156315156316_))))) - (let ((___kont156317156318_ - (lambda (_L155778_ _L155779_ _L155780_ _L155781_ _L155782_) - (let ((__tmp156596 - (let ((__tmp156603 + ___stx156577156578_))))) + (let ((___kont156579156580_ + (lambda (_L156040_ _L156041_ _L156042_ _L156043_ _L156044_) + (let ((__tmp156858 + (let ((__tmp156865 (let () (declare (not safe)) - (gxc#identifier-symbol _L155781_))) - (__tmp156597 - (let ((__tmp156602 + (gxc#identifier-symbol _L156043_))) + (__tmp156859 + (let ((__tmp156864 (let () (declare (not safe)) - (gx#stx-e _L155780_))) - (__tmp156598 - (let ((__tmp156601 + (gx#stx-e _L156042_))) + (__tmp156860 + (let ((__tmp156863 (let () (declare (not safe)) (gxc#identifier-symbol - _L155779_))) - (__tmp156599 - (let ((__tmp156600 + _L156041_))) + (__tmp156861 + (let ((__tmp156862 (let () (declare (not safe)) - (gx#stx-e _L155778_)))) + (gx#stx-e _L156040_)))) (declare (not safe)) - (cons __tmp156600 '())))) + (cons __tmp156862 '())))) (declare (not safe)) - (cons __tmp156601 __tmp156599)))) + (cons __tmp156863 __tmp156861)))) (declare (not safe)) - (cons __tmp156602 __tmp156598)))) + (cons __tmp156864 __tmp156860)))) (declare (not safe)) - (cons __tmp156603 __tmp156597)))) + (cons __tmp156865 __tmp156859)))) (declare (not safe)) - (cons 'declare-method __tmp156596)))) - (___kont156319156320_ - (lambda (_L155604_ _L155605_ _L155606_ _L155607_) - (let ((__tmp156604 - (let ((__tmp156610 + (cons 'declare-method __tmp156858)))) + (___kont156581156582_ + (lambda (_L155866_ _L155867_ _L155868_ _L155869_) + (let ((__tmp156866 + (let ((__tmp156872 (let () (declare (not safe)) - (gxc#identifier-symbol _L155606_))) - (__tmp156605 - (let ((__tmp156609 + (gxc#identifier-symbol _L155868_))) + (__tmp156867 + (let ((__tmp156871 (let () (declare (not safe)) - (gx#stx-e _L155605_))) - (__tmp156606 - (let ((__tmp156608 + (gx#stx-e _L155867_))) + (__tmp156868 + (let ((__tmp156870 (let () (declare (not safe)) (gxc#identifier-symbol - _L155604_))) - (__tmp156607 + _L155866_))) + (__tmp156869 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp156608 __tmp156607)))) + (cons __tmp156870 __tmp156869)))) (declare (not safe)) - (cons __tmp156609 __tmp156606)))) + (cons __tmp156871 __tmp156868)))) (declare (not safe)) - (cons __tmp156610 __tmp156605)))) + (cons __tmp156872 __tmp156867)))) (declare (not safe)) - (cons 'declare-method __tmp156604)))) - (___kont156321156322_ (lambda () '(begin)))) - (let ((___match156450156451_ - (lambda (_e155395155650_ - _hd155394155653_ - _tl155393155655_ - _e155398155658_ - _hd155397155661_ - _tl155396155663_ - _e155401155666_ - _hd155400155669_ - _tl155399155671_ - _e155404155674_ - _hd155403155677_ - _tl155402155679_ - _e155407155682_ - _hd155406155685_ - _tl155405155687_ - _e155410155690_ - _hd155409155693_ - _tl155408155695_ - _e155413155698_ - _hd155412155701_ - _tl155411155703_ - _e155416155706_ - _hd155415155709_ - _tl155414155711_ - _e155419155714_ - _hd155418155717_ - _tl155417155719_ - _e155422155722_ - _hd155421155725_ - _tl155420155727_ - _e155425155730_ - _hd155424155733_ - _tl155423155735_ - _e155428155738_ - _hd155427155741_ - _tl155426155743_ - _e155431155746_ - _hd155430155749_ - _tl155429155751_ - _e155434155754_ - _hd155433155757_ - _tl155432155759_ - _e155437155762_ - _hd155436155765_ - _tl155435155767_ - _e155440155770_ - _hd155439155773_ - _tl155438155775_) - (let ((_L155778_ _hd155439155773_) - (_L155779_ _hd155430155749_) - (_L155780_ _hd155421155725_) - (_L155781_ _hd155412155701_) - (_L155782_ _hd155403155677_)) + (cons 'declare-method __tmp156866)))) + (___kont156583156584_ (lambda () '(begin)))) + (let ((___match156712156713_ + (lambda (_e155657155912_ + _hd155656155915_ + _tl155655155917_ + _e155660155920_ + _hd155659155923_ + _tl155658155925_ + _e155663155928_ + _hd155662155931_ + _tl155661155933_ + _e155666155936_ + _hd155665155939_ + _tl155664155941_ + _e155669155944_ + _hd155668155947_ + _tl155667155949_ + _e155672155952_ + _hd155671155955_ + _tl155670155957_ + _e155675155960_ + _hd155674155963_ + _tl155673155965_ + _e155678155968_ + _hd155677155971_ + _tl155676155973_ + _e155681155976_ + _hd155680155979_ + _tl155679155981_ + _e155684155984_ + _hd155683155987_ + _tl155682155989_ + _e155687155992_ + _hd155686155995_ + _tl155685155997_ + _e155690156000_ + _hd155689156003_ + _tl155688156005_ + _e155693156008_ + _hd155692156011_ + _tl155691156013_ + _e155696156016_ + _hd155695156019_ + _tl155694156021_ + _e155699156024_ + _hd155698156027_ + _tl155697156029_ + _e155702156032_ + _hd155701156035_ + _tl155700156037_) + (let ((_L156040_ _hd155701156035_) + (_L156041_ _hd155692156011_) + (_L156042_ _hd155683155987_) + (_L156043_ _hd155674155963_) + (_L156044_ _hd155665155939_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L155782_ + _L156044_ 'bind-method!)) - (___kont156317156318_ - _L155778_ - _L155779_ - _L155780_ - _L155781_ - _L155782_) - (___kont156321156322_)))))) + (___kont156579156580_ + _L156040_ + _L156041_ + _L156042_ + _L156043_ + _L156044_) + (___kont156583156584_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx156315156316_)) - (let ((_e155395155650_ + (gx#stx-pair? ___stx156577156578_)) + (let ((_e155657155912_ (let () (declare (not safe)) - (gx#stx-e ___stx156315156316_)))) - (let ((_tl155393155655_ + (gx#stx-e ___stx156577156578_)))) + (let ((_tl155655155917_ (let () (declare (not safe)) - (##cdr _e155395155650_))) - (_hd155394155653_ + (##cdr _e155657155912_))) + (_hd155656155915_ (let () (declare (not safe)) - (##car _e155395155650_)))) + (##car _e155657155912_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155393155655_)) - (let ((_e155398155658_ + (gx#stx-pair? _tl155655155917_)) + (let ((_e155660155920_ (let () (declare (not safe)) - (gx#stx-e _tl155393155655_)))) - (let ((_tl155396155663_ + (gx#stx-e _tl155655155917_)))) + (let ((_tl155658155925_ (let () (declare (not safe)) - (##cdr _e155398155658_))) - (_hd155397155661_ + (##cdr _e155660155920_))) + (_hd155659155923_ (let () (declare (not safe)) - (##car _e155398155658_)))) + (##car _e155660155920_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155397155661_)) - (let ((_e155401155666_ + (gx#stx-pair? _hd155659155923_)) + (let ((_e155663155928_ (let () (declare (not safe)) - (gx#stx-e _hd155397155661_)))) - (let ((_tl155399155671_ + (gx#stx-e _hd155659155923_)))) + (let ((_tl155661155933_ (let () (declare (not safe)) - (##cdr _e155401155666_))) - (_hd155400155669_ + (##cdr _e155663155928_))) + (_hd155662155931_ (let () (declare (not safe)) - (##car _e155401155666_)))) + (##car _e155663155928_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155400155669_)) + (gx#identifier? _hd155662155931_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd155400155669_)) + _hd155662155931_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155399155671_)) - (let ((_e155404155674_ + _tl155661155933_)) + (let ((_e155666155936_ (let () (declare (not safe)) (gx#stx-e - _tl155399155671_)))) - (let ((_tl155402155679_ + _tl155661155933_)))) + (let ((_tl155664155941_ (let () (declare (not safe)) - (##cdr _e155404155674_))) - (_hd155403155677_ + (##cdr _e155666155936_))) + (_hd155665155939_ (let () (declare (not safe)) - (##car _e155404155674_)))) + (##car _e155666155936_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155402155679_)) + _tl155664155941_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl155396155663_)) - (let ((_e155407155682_ + (gx#stx-pair? _tl155658155925_)) + (let ((_e155669155944_ (let () (declare (not safe)) - (gx#stx-e _tl155396155663_)))) - (let ((_tl155405155687_ + (gx#stx-e _tl155658155925_)))) + (let ((_tl155667155949_ (let () (declare (not safe)) - (##cdr _e155407155682_))) - (_hd155406155685_ + (##cdr _e155669155944_))) + (_hd155668155947_ (let () (declare (not safe)) - (##car _e155407155682_)))) + (##car _e155669155944_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155406155685_)) - (let ((_e155410155690_ + (gx#stx-pair? _hd155668155947_)) + (let ((_e155672155952_ (let () (declare (not safe)) - (gx#stx-e _hd155406155685_)))) - (let ((_tl155408155695_ + (gx#stx-e _hd155668155947_)))) + (let ((_tl155670155957_ (let () (declare (not safe)) - (##cdr _e155410155690_))) - (_hd155409155693_ + (##cdr _e155672155952_))) + (_hd155671155955_ (let () (declare (not safe)) - (##car _e155410155690_)))) + (##car _e155672155952_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155409155693_)) + (gx#identifier? _hd155671155955_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd155409155693_)) + _hd155671155955_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155408155695_)) - (let ((_e155413155698_ + _tl155670155957_)) + (let ((_e155675155960_ (let () (declare (not safe)) (gx#stx-e - _tl155408155695_)))) - (let ((_tl155411155703_ + _tl155670155957_)))) + (let ((_tl155673155965_ (let () (declare (not safe)) - (##cdr _e155413155698_))) - (_hd155412155701_ + (##cdr _e155675155960_))) + (_hd155674155963_ (let () (declare (not safe)) - (##car _e155413155698_)))) + (##car _e155675155960_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155411155703_)) + _tl155673155965_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155405155687_)) - (let ((_e155416155706_ + _tl155667155949_)) + (let ((_e155678155968_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl155405155687_)))) - (let ((_tl155414155711_ + (gx#stx-e _tl155667155949_)))) + (let ((_tl155676155973_ (let () (declare (not safe)) - (##cdr _e155416155706_))) - (_hd155415155709_ + (##cdr _e155678155968_))) + (_hd155677155971_ (let () (declare (not safe)) - (##car _e155416155706_)))) + (##car _e155678155968_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155415155709_)) - (let ((_e155419155714_ + (gx#stx-pair? _hd155677155971_)) + (let ((_e155681155976_ (let () (declare (not safe)) - (gx#stx-e _hd155415155709_)))) - (let ((_tl155417155719_ + (gx#stx-e _hd155677155971_)))) + (let ((_tl155679155981_ (let () (declare (not safe)) - (##cdr _e155419155714_))) - (_hd155418155717_ + (##cdr _e155681155976_))) + (_hd155680155979_ (let () (declare (not safe)) - (##car _e155419155714_)))) + (##car _e155681155976_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155418155717_)) + (gx#identifier? _hd155680155979_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd155418155717_)) + (gx#stx-eq? '%#quote _hd155680155979_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155417155719_)) - (let ((_e155422155722_ + (gx#stx-pair? _tl155679155981_)) + (let ((_e155684155984_ (let () (declare (not safe)) (gx#stx-e - _tl155417155719_)))) - (let ((_tl155420155727_ + _tl155679155981_)))) + (let ((_tl155682155989_ (let () (declare (not safe)) - (##cdr _e155422155722_))) - (_hd155421155725_ + (##cdr _e155684155984_))) + (_hd155683155987_ (let () (declare (not safe)) - (##car _e155422155722_)))) + (##car _e155684155984_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155420155727_)) + _tl155682155989_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155414155711_)) - (let ((_e155425155730_ + _tl155676155973_)) + (let ((_e155687155992_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl155414155711_)))) - (let ((_tl155423155735_ - (let () (declare (not safe)) (##cdr _e155425155730_))) - (_hd155424155733_ - (let () (declare (not safe)) (##car _e155425155730_)))) + (gx#stx-e _tl155676155973_)))) + (let ((_tl155685155997_ + (let () (declare (not safe)) (##cdr _e155687155992_))) + (_hd155686155995_ + (let () (declare (not safe)) (##car _e155687155992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155424155733_)) - (let ((_e155428155738_ + (gx#stx-pair? _hd155686155995_)) + (let ((_e155690156000_ (let () (declare (not safe)) - (gx#stx-e _hd155424155733_)))) - (let ((_tl155426155743_ + (gx#stx-e _hd155686155995_)))) + (let ((_tl155688156005_ (let () (declare (not safe)) - (##cdr _e155428155738_))) - (_hd155427155741_ + (##cdr _e155690156000_))) + (_hd155689156003_ (let () (declare (not safe)) - (##car _e155428155738_)))) + (##car _e155690156000_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155427155741_)) + (gx#identifier? _hd155689156003_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd155427155741_)) + (gx#stx-eq? '%#ref _hd155689156003_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155426155743_)) - (let ((_e155431155746_ + (gx#stx-pair? _tl155688156005_)) + (let ((_e155693156008_ (let () (declare (not safe)) - (gx#stx-e _tl155426155743_)))) - (let ((_tl155429155751_ + (gx#stx-e _tl155688156005_)))) + (let ((_tl155691156013_ (let () (declare (not safe)) - (##cdr _e155431155746_))) - (_hd155430155749_ + (##cdr _e155693156008_))) + (_hd155692156011_ (let () (declare (not safe)) - (##car _e155431155746_)))) + (##car _e155693156008_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155429155751_)) + _tl155691156013_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155423155735_)) - (let ((_e155434155754_ + _tl155685155997_)) + (let ((_e155696156016_ (let () (declare (not safe)) (gx#stx-e - _tl155423155735_)))) - (let ((_tl155432155759_ + _tl155685155997_)))) + (let ((_tl155694156021_ (let () (declare (not safe)) - (##cdr _e155434155754_))) - (_hd155433155757_ + (##cdr _e155696156016_))) + (_hd155695156019_ (let () (declare (not safe)) - (##car _e155434155754_)))) + (##car _e155696156016_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd155433155757_)) - (let ((_e155437155762_ + _hd155695156019_)) + (let ((_e155699156024_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd155433155757_)))) - (let ((_tl155435155767_ + (gx#stx-e _hd155695156019_)))) + (let ((_tl155697156029_ (let () (declare (not safe)) - (##cdr _e155437155762_))) - (_hd155436155765_ + (##cdr _e155699156024_))) + (_hd155698156027_ (let () (declare (not safe)) - (##car _e155437155762_)))) + (##car _e155699156024_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155436155765_)) + (gx#identifier? _hd155698156027_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd155436155765_)) + (gx#stx-eq? '%#quote _hd155698156027_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155435155767_)) - (let ((_e155440155770_ + (gx#stx-pair? _tl155697156029_)) + (let ((_e155702156032_ (let () (declare (not safe)) - (gx#stx-e _tl155435155767_)))) - (let ((_tl155438155775_ + (gx#stx-e _tl155697156029_)))) + (let ((_tl155700156037_ (let () (declare (not safe)) - (##cdr _e155440155770_))) - (_hd155439155773_ + (##cdr _e155702156032_))) + (_hd155701156035_ (let () (declare (not safe)) - (##car _e155440155770_)))) + (##car _e155702156032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155438155775_)) + (gx#stx-null? _tl155700156037_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl155432155759_)) - (___match156450156451_ - _e155395155650_ - _hd155394155653_ - _tl155393155655_ - _e155398155658_ - _hd155397155661_ - _tl155396155663_ - _e155401155666_ - _hd155400155669_ - _tl155399155671_ - _e155404155674_ - _hd155403155677_ - _tl155402155679_ - _e155407155682_ - _hd155406155685_ - _tl155405155687_ - _e155410155690_ - _hd155409155693_ - _tl155408155695_ - _e155413155698_ - _hd155412155701_ - _tl155411155703_ - _e155416155706_ - _hd155415155709_ - _tl155414155711_ - _e155419155714_ - _hd155418155717_ - _tl155417155719_ - _e155422155722_ - _hd155421155725_ - _tl155420155727_ - _e155425155730_ - _hd155424155733_ - _tl155423155735_ - _e155428155738_ - _hd155427155741_ - _tl155426155743_ - _e155431155746_ - _hd155430155749_ - _tl155429155751_ - _e155434155754_ - _hd155433155757_ - _tl155432155759_ - _e155437155762_ - _hd155436155765_ - _tl155435155767_ - _e155440155770_ - _hd155439155773_ - _tl155438155775_) - (___kont156321156322_)) - (___kont156321156322_)))) - (___kont156321156322_)) - (___kont156321156322_)) - (___kont156321156322_)))) - (___kont156321156322_)))) + _tl155694156021_)) + (___match156712156713_ + _e155657155912_ + _hd155656155915_ + _tl155655155917_ + _e155660155920_ + _hd155659155923_ + _tl155658155925_ + _e155663155928_ + _hd155662155931_ + _tl155661155933_ + _e155666155936_ + _hd155665155939_ + _tl155664155941_ + _e155669155944_ + _hd155668155947_ + _tl155667155949_ + _e155672155952_ + _hd155671155955_ + _tl155670155957_ + _e155675155960_ + _hd155674155963_ + _tl155673155965_ + _e155678155968_ + _hd155677155971_ + _tl155676155973_ + _e155681155976_ + _hd155680155979_ + _tl155679155981_ + _e155684155984_ + _hd155683155987_ + _tl155682155989_ + _e155687155992_ + _hd155686155995_ + _tl155685155997_ + _e155690156000_ + _hd155689156003_ + _tl155688156005_ + _e155693156008_ + _hd155692156011_ + _tl155691156013_ + _e155696156016_ + _hd155695156019_ + _tl155694156021_ + _e155699156024_ + _hd155698156027_ + _tl155697156029_ + _e155702156032_ + _hd155701156035_ + _tl155700156037_) + (___kont156583156584_)) + (___kont156583156584_)))) + (___kont156583156584_)) + (___kont156583156584_)) + (___kont156583156584_)))) + (___kont156583156584_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl155423155735_)) - (if (let ((__tmp156611 + _tl155685155997_)) + (if (let ((__tmp156873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp156611 'bind-method!)) - (let ((_L155604_ _hd155430155749_) - (_L155605_ _hd155421155725_) - (_L155606_ _hd155412155701_) - (_L155607_ _hd155403155677_)) - (___kont156319156320_ - _L155604_ - _L155605_ - _L155606_ - _L155607_)) - (___kont156321156322_)) - (___kont156321156322_))) + (gxc#runtime-identifier=? __tmp156873 'bind-method!)) + (let ((_L155866_ _hd155692156011_) + (_L155867_ _hd155683155987_) + (_L155868_ _hd155674155963_) + (_L155869_ _hd155665155939_)) + (___kont156581156582_ + _L155866_ + _L155867_ + _L155868_ + _L155869_)) + (___kont156583156584_)) + (___kont156583156584_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156321156322_)))) - (___kont156321156322_)) - (___kont156321156322_)) - (___kont156321156322_)))) - (___kont156321156322_)))) - (___kont156321156322_)) + (___kont156583156584_)))) + (___kont156583156584_)) + (___kont156583156584_)) + (___kont156583156584_)))) + (___kont156583156584_)))) + (___kont156583156584_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156321156322_)))) - (___kont156321156322_)) - (___kont156321156322_)) - (___kont156321156322_)))) - (___kont156321156322_)))) - (___kont156321156322_)) - (___kont156321156322_)))) + (___kont156583156584_)))) + (___kont156583156584_)) + (___kont156583156584_)) + (___kont156583156584_)))) + (___kont156583156584_)))) + (___kont156583156584_)) + (___kont156583156584_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156321156322_)) - (___kont156321156322_)) - (___kont156321156322_)))) - (___kont156321156322_)))) - (___kont156321156322_)) - (___kont156321156322_)))) + (___kont156583156584_)) + (___kont156583156584_)) + (___kont156583156584_)))) + (___kont156583156584_)))) + (___kont156583156584_)) + (___kont156583156584_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156321156322_)) - (___kont156321156322_)) - (___kont156321156322_)))) - (___kont156321156322_)))) - (___kont156321156322_)))) - (___kont156321156322_))))))) + (___kont156583156584_)) + (___kont156583156584_)) + (___kont156583156584_)))) + (___kont156583156584_)))) + (___kont156583156584_)))) + (___kont156583156584_))))))) (define gxc#!alias::typedecl - (lambda (_self155358_) - (let* ((_self155359155365_ _self155358_) - (_E155361155369_ + (lambda (_self155620_) + (let* ((_self155621155627_ _self155620_) + (_E155623155631_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self155359155365_)))) - (_K155362155374_ - (lambda (_alias-id155372_) - (let ((__tmp156612 + (error '"No clause matching" _self155621155627_)))) + (_K155624155636_ + (lambda (_alias-id155634_) + (let ((__tmp156874 (let () (declare (not safe)) - (cons _alias-id155372_ '())))) + (cons _alias-id155634_ '())))) (declare (not safe)) - (cons '@alias __tmp156612))))) + (cons '@alias __tmp156874))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self155359155365_ 'gxc#!alias::t)) - (let* ((_e155363155377_ + (##structure-instance-of? _self155621155627_ 'gxc#!alias::t)) + (let* ((_e155625155639_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155359155365_ + _self155621155627_ '1 gxc#!type::t '#f))) - (_alias-id155380_ _e155363155377_)) + (_alias-id155642_ _e155625155639_)) (declare (not safe)) - (_K155362155374_ _alias-id155380_)) - (let () (declare (not safe)) (_E155361155369_)))))) + (_K155624155636_ _alias-id155642_)) + (let () (declare (not safe)) (_E155623155631_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self155149_) - (let* ((_self155150155165_ _self155149_) - (_E155152155169_ + (lambda (_self155411_) + (let* ((_self155412155427_ _self155411_) + (_E155414155431_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self155150155165_)))) - (_K155153155183_ - (lambda (_methods155172_ - _metaclass155173_ - _final?155174_ - _struct?155175_ - _constructor155176_ - _fields155177_ - _slots155178_ - _precendence-list155179_ - _super155180_ - _id155181_) - (let ((__tmp156613 - (let ((__tmp156614 - (let ((__tmp156615 - (let ((__tmp156616 - (let ((__tmp156617 - (let ((__tmp156618 - (let ((__tmp156619 + (error '"No clause matching" _self155412155427_)))) + (_K155415155445_ + (lambda (_methods155434_ + _metaclass155435_ + _final?155436_ + _struct?155437_ + _constructor155438_ + _fields155439_ + _slots155440_ + _precendence-list155441_ + _super155442_ + _id155443_) + (let ((__tmp156875 + (let ((__tmp156876 + (let ((__tmp156877 + (let ((__tmp156878 + (let ((__tmp156879 + (let ((__tmp156880 + (let ((__tmp156881 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp156620 - (let ((__tmp156621 - (let ((__tmp156622 - (let ((__tmp156623 - (if _methods155172_ + (let ((__tmp156882 + (let ((__tmp156883 + (let ((__tmp156884 + (let ((__tmp156885 + (if _methods155434_ (let () (declare (not safe)) (hash->list - _methods155172_)) + _methods155434_)) '#f))) (declare (not safe)) - (cons __tmp156623 '())))) + (cons __tmp156885 '())))) (declare (not safe)) - (cons _metaclass155173_ - __tmp156622)))) + (cons _metaclass155435_ + __tmp156884)))) (declare (not safe)) - (cons _final?155174_ __tmp156621)))) + (cons _final?155436_ __tmp156883)))) (declare (not safe)) - (cons _struct?155175_ __tmp156620)))) + (cons _struct?155437_ __tmp156882)))) (declare (not safe)) - (cons _constructor155176_ __tmp156619)))) + (cons _constructor155438_ __tmp156881)))) (declare (not safe)) - (cons _fields155177_ __tmp156618)))) + (cons _fields155439_ __tmp156880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots155178_ - __tmp156617)))) + (cons _slots155440_ + __tmp156879)))) (declare (not safe)) - (cons _precendence-list155179_ - __tmp156616)))) + (cons _precendence-list155441_ + __tmp156878)))) (declare (not safe)) - (cons _super155180_ __tmp156615)))) + (cons _super155442_ __tmp156877)))) (declare (not safe)) - (cons _id155181_ __tmp156614)))) + (cons _id155443_ __tmp156876)))) (declare (not safe)) - (cons '@class __tmp156613))))) + (cons '@class __tmp156875))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self155150155165_ 'gxc#!class::t)) - (let* ((_e155154155186_ + (##structure-instance-of? _self155412155427_ 'gxc#!class::t)) + (let* ((_e155416155448_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '1 gxc#!type::t '#f))) - (_id155189_ _e155154155186_) - (_e155155155191_ + (_id155451_ _e155416155448_) + (_e155417155453_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '2 gxc#!class::t '#f))) - (_super155194_ _e155155155191_) - (_e155156155196_ + (_super155456_ _e155417155453_) + (_e155418155458_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '3 gxc#!class::t '#f))) - (_precendence-list155199_ _e155156155196_) - (_e155157155201_ + (_precendence-list155461_ _e155418155458_) + (_e155419155463_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '4 gxc#!class::t '#f))) - (_slots155204_ _e155157155201_) - (_e155158155206_ + (_slots155466_ _e155419155463_) + (_e155420155468_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '5 gxc#!class::t '#f))) - (_fields155209_ _e155158155206_) - (_e155159155211_ + (_fields155471_ _e155420155468_) + (_e155421155473_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '6 gxc#!class::t '#f))) - (_constructor155214_ _e155159155211_) - (_e155160155216_ + (_constructor155476_ _e155421155473_) + (_e155422155478_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '7 gxc#!class::t '#f))) - (_struct?155219_ _e155160155216_) - (_e155161155221_ + (_struct?155481_ _e155422155478_) + (_e155423155483_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '8 gxc#!class::t '#f))) - (_final?155224_ _e155161155221_) - (_e155162155226_ + (_final?155486_ _e155423155483_) + (_e155424155488_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '9 gxc#!class::t '#f))) - (_metaclass155229_ _e155162155226_) - (_e155163155231_ + (_metaclass155491_ _e155424155488_) + (_e155425155493_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155150155165_ + _self155412155427_ '10 gxc#!class::t '#f))) - (_methods155234_ _e155163155231_)) + (_methods155496_ _e155425155493_)) (declare (not safe)) - (_K155153155183_ - _methods155234_ - _metaclass155229_ - _final?155224_ - _struct?155219_ - _constructor155214_ - _fields155209_ - _slots155204_ - _precendence-list155199_ - _super155194_ - _id155189_)) - (let () (declare (not safe)) (_E155152155169_)))))) + (_K155415155445_ + _methods155496_ + _metaclass155491_ + _final?155486_ + _struct?155481_ + _constructor155476_ + _fields155471_ + _slots155466_ + _precendence-list155461_ + _super155456_ + _id155451_)) + (let () (declare (not safe)) (_E155414155431_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self155003_) - (let* ((_self155004155010_ _self155003_) - (_E155006155014_ + (lambda (_self155265_) + (let* ((_self155266155272_ _self155265_) + (_E155268155276_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self155004155010_)))) - (_K155007155019_ - (lambda (_klass-id155017_) - (let ((__tmp156624 + (error '"No clause matching" _self155266155272_)))) + (_K155269155281_ + (lambda (_klass-id155279_) + (let ((__tmp156886 (let () (declare (not safe)) - (cons _klass-id155017_ '())))) + (cons _klass-id155279_ '())))) (declare (not safe)) - (cons '@predicate __tmp156624))))) + (cons '@predicate __tmp156886))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self155004155010_ + _self155266155272_ 'gxc#!predicate::t)) - (let* ((_e155008155022_ + (let* ((_e155270155284_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155004155010_ + _self155266155272_ '1 gxc#!type::t '#f))) - (_klass-id155025_ _e155008155022_)) + (_klass-id155287_ _e155270155284_)) (declare (not safe)) - (_K155007155019_ _klass-id155025_)) - (let () (declare (not safe)) (_E155006155014_)))))) + (_K155269155281_ _klass-id155287_)) + (let () (declare (not safe)) (_E155268155276_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1797,38 +1797,38 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_self154857_) - (let* ((_self154858154864_ _self154857_) - (_E154860154868_ + (lambda (_self155119_) + (let* ((_self155120155126_ _self155119_) + (_E155122155130_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154858154864_)))) - (_K154861154873_ - (lambda (_klass-id154871_) - (let ((__tmp156625 + (error '"No clause matching" _self155120155126_)))) + (_K155123155135_ + (lambda (_klass-id155133_) + (let ((__tmp156887 (let () (declare (not safe)) - (cons _klass-id154871_ '())))) + (cons _klass-id155133_ '())))) (declare (not safe)) - (cons '@constructor __tmp156625))))) + (cons '@constructor __tmp156887))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154858154864_ + _self155120155126_ 'gxc#!constructor::t)) - (let* ((_e154862154876_ + (let* ((_e155124155138_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154858154864_ + _self155120155126_ '1 gxc#!type::t '#f))) - (_klass-id154879_ _e154862154876_)) + (_klass-id155141_ _e155124155138_)) (declare (not safe)) - (_K154861154873_ _klass-id154879_)) - (let () (declare (not safe)) (_E154860154868_)))))) + (_K155123155135_ _klass-id155141_)) + (let () (declare (not safe)) (_E155122155130_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1837,305 +1837,305 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self154697_) - (let* ((_self154698154706_ _self154697_) - (_E154700154710_ + (lambda (_self154959_) + (let* ((_self154960154968_ _self154959_) + (_E154962154972_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154698154706_)))) - (_K154701154717_ - (lambda (_checked?154713_ _slot154714_ _klass-id154715_) - (let ((__tmp156626 - (let ((__tmp156627 - (let ((__tmp156628 + (error '"No clause matching" _self154960154968_)))) + (_K154963154979_ + (lambda (_checked?154975_ _slot154976_ _klass-id154977_) + (let ((__tmp156888 + (let ((__tmp156889 + (let ((__tmp156890 (let () (declare (not safe)) - (cons _checked?154713_ '())))) + (cons _checked?154975_ '())))) (declare (not safe)) - (cons _slot154714_ __tmp156628)))) + (cons _slot154976_ __tmp156890)))) (declare (not safe)) - (cons _klass-id154715_ __tmp156627)))) + (cons _klass-id154977_ __tmp156889)))) (declare (not safe)) - (cons '@accessor __tmp156626))))) + (cons '@accessor __tmp156888))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154698154706_ + _self154960154968_ 'gxc#!accessor::t)) - (let* ((_e154702154720_ + (let* ((_e154964154982_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154698154706_ + _self154960154968_ '1 gxc#!type::t '#f))) - (_klass-id154723_ _e154702154720_) - (_e154703154725_ + (_klass-id154985_ _e154964154982_) + (_e154965154987_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154698154706_ + _self154960154968_ '2 gxc#!accessor::t '#f))) - (_slot154728_ _e154703154725_) - (_e154704154730_ + (_slot154990_ _e154965154987_) + (_e154966154992_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154698154706_ + _self154960154968_ '3 gxc#!accessor::t '#f))) - (_checked?154733_ _e154704154730_)) + (_checked?154995_ _e154966154992_)) (declare (not safe)) - (_K154701154717_ - _checked?154733_ - _slot154728_ - _klass-id154723_)) - (let () (declare (not safe)) (_E154700154710_)))))) + (_K154963154979_ + _checked?154995_ + _slot154990_ + _klass-id154985_)) + (let () (declare (not safe)) (_E154962154972_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self154537_) - (let* ((_self154538154546_ _self154537_) - (_E154540154550_ + (lambda (_self154799_) + (let* ((_self154800154808_ _self154799_) + (_E154802154812_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154538154546_)))) - (_K154541154557_ - (lambda (_checked?154553_ _slot154554_ _klass-id154555_) - (let ((__tmp156629 - (let ((__tmp156630 - (let ((__tmp156631 + (error '"No clause matching" _self154800154808_)))) + (_K154803154819_ + (lambda (_checked?154815_ _slot154816_ _klass-id154817_) + (let ((__tmp156891 + (let ((__tmp156892 + (let ((__tmp156893 (let () (declare (not safe)) - (cons _checked?154553_ '())))) + (cons _checked?154815_ '())))) (declare (not safe)) - (cons _slot154554_ __tmp156631)))) + (cons _slot154816_ __tmp156893)))) (declare (not safe)) - (cons _klass-id154555_ __tmp156630)))) + (cons _klass-id154817_ __tmp156892)))) (declare (not safe)) - (cons '@mutator __tmp156629))))) + (cons '@mutator __tmp156891))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self154538154546_ 'gxc#!mutator::t)) - (let* ((_e154542154560_ + (##structure-instance-of? _self154800154808_ 'gxc#!mutator::t)) + (let* ((_e154804154822_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154538154546_ + _self154800154808_ '1 gxc#!type::t '#f))) - (_klass-id154563_ _e154542154560_) - (_e154543154565_ + (_klass-id154825_ _e154804154822_) + (_e154805154827_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154538154546_ + _self154800154808_ '2 gxc#!mutator::t '#f))) - (_slot154568_ _e154543154565_) - (_e154544154570_ + (_slot154830_ _e154805154827_) + (_e154806154832_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154538154546_ + _self154800154808_ '3 gxc#!mutator::t '#f))) - (_checked?154573_ _e154544154570_)) + (_checked?154835_ _e154806154832_)) (declare (not safe)) - (_K154541154557_ - _checked?154573_ - _slot154568_ - _klass-id154563_)) - (let () (declare (not safe)) (_E154540154550_)))))) + (_K154803154819_ + _checked?154835_ + _slot154830_ + _klass-id154825_)) + (let () (declare (not safe)) (_E154802154812_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self154363_) - (let* ((_self154364154374_ _self154363_) - (_E154366154378_ + (lambda (_self154625_) + (let* ((_self154626154636_ _self154625_) + (_E154628154640_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154364154374_)))) - (_K154367154389_ - (lambda (_typedecl154381_ - _inline154382_ - _dispatch154383_ - _arity154384_) - (if _inline154382_ - (let ((_$e154386_ _typedecl154381_)) - (if _$e154386_ - _$e154386_ + (error '"No clause matching" _self154626154636_)))) + (_K154629154651_ + (lambda (_typedecl154643_ + _inline154644_ + _dispatch154645_ + _arity154646_) + (if _inline154644_ + (let ((_$e154648_ _typedecl154643_)) + (if _$e154648_ + _$e154648_ (let () (declare (not safe)) (error '"Cannot generate typedecl for inline rules")))) - (let ((__tmp156632 - (let ((__tmp156633 + (let ((__tmp156894 + (let ((__tmp156895 (let () (declare (not safe)) - (cons _dispatch154383_ '())))) + (cons _dispatch154645_ '())))) (declare (not safe)) - (cons _arity154384_ __tmp156633)))) + (cons _arity154646_ __tmp156895)))) (declare (not safe)) - (cons '@lambda __tmp156632)))))) + (cons '@lambda __tmp156894)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self154364154374_ 'gxc#!lambda::t)) - (let* ((_e154368154392_ + (##structure-instance-of? _self154626154636_ 'gxc#!lambda::t)) + (let* ((_e154630154654_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154364154374_ + _self154626154636_ '1 gxc#!type::t '#f))) - (_e154369154395_ + (_e154631154657_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154364154374_ + _self154626154636_ '2 gxc#!lambda::t '#f))) - (_arity154398_ _e154369154395_) - (_e154370154400_ + (_arity154660_ _e154631154657_) + (_e154632154662_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154364154374_ + _self154626154636_ '3 gxc#!lambda::t '#f))) - (_dispatch154403_ _e154370154400_) - (_e154371154405_ + (_dispatch154665_ _e154632154662_) + (_e154633154667_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154364154374_ + _self154626154636_ '4 gxc#!lambda::t '#f))) - (_inline154408_ _e154371154405_) - (_e154372154410_ + (_inline154670_ _e154633154667_) + (_e154634154672_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154364154374_ + _self154626154636_ '5 gxc#!lambda::t '#f))) - (_typedecl154413_ _e154372154410_)) + (_typedecl154675_ _e154634154672_)) (declare (not safe)) - (_K154367154389_ - _typedecl154413_ - _inline154408_ - _dispatch154403_ - _arity154398_)) - (let () (declare (not safe)) (_E154366154378_)))))) + (_K154629154651_ + _typedecl154675_ + _inline154670_ + _dispatch154665_ + _arity154660_)) + (let () (declare (not safe)) (_E154628154640_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self154174_) - (letrec ((_clause-e154176_ - (lambda (_clause154206_) - (let* ((_clause154207154215_ _clause154206_) - (_E154209154219_ + (lambda (_self154436_) + (letrec ((_clause-e154438_ + (lambda (_clause154468_) + (let* ((_clause154469154477_ _clause154468_) + (_E154471154481_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause154207154215_)))) - (_K154210154225_ - (lambda (_dispatch154222_ _arity154223_) - (let ((__tmp156634 + _clause154469154477_)))) + (_K154472154487_ + (lambda (_dispatch154484_ _arity154485_) + (let ((__tmp156896 (let () (declare (not safe)) - (cons _dispatch154222_ '())))) + (cons _dispatch154484_ '())))) (declare (not safe)) - (cons _arity154223_ __tmp156634))))) + (cons _arity154485_ __tmp156896))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause154207154215_ + _clause154469154477_ 'gxc#!lambda::t)) - (let* ((_e154211154228_ + (let* ((_e154473154490_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154207154215_ + _clause154469154477_ '1 gxc#!type::t '#f))) - (_e154212154231_ + (_e154474154493_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154207154215_ + _clause154469154477_ '2 gxc#!lambda::t '#f))) - (_arity154234_ _e154212154231_) - (_e154213154236_ + (_arity154496_ _e154474154493_) + (_e154475154498_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154207154215_ + _clause154469154477_ '3 gxc#!lambda::t '#f))) - (_dispatch154239_ _e154213154236_)) + (_dispatch154501_ _e154475154498_)) (declare (not safe)) - (_K154210154225_ _dispatch154239_ _arity154234_)) - (let () (declare (not safe)) (_E154209154219_))))))) - (let* ((_self154177154184_ _self154174_) - (_E154179154188_ + (_K154472154487_ _dispatch154501_ _arity154496_)) + (let () (declare (not safe)) (_E154471154481_))))))) + (let* ((_self154439154446_ _self154436_) + (_E154441154450_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154177154184_)))) - (_K154180154195_ - (lambda (_clauses154191_) - (let ((_clauses154193_ - (map _clause-e154176_ _clauses154191_))) + (error '"No clause matching" _self154439154446_)))) + (_K154442154457_ + (lambda (_clauses154453_) + (let ((_clauses154455_ + (map _clause-e154438_ _clauses154453_))) (declare (not safe)) - (cons '@case-lambda _clauses154193_))))) + (cons '@case-lambda _clauses154455_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154177154184_ + _self154439154446_ 'gxc#!case-lambda::t)) - (let* ((_e154181154198_ + (let* ((_e154443154460_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154177154184_ + _self154439154446_ '1 gxc#!type::t '#f))) - (_e154182154201_ + (_e154444154463_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154177154184_ + _self154439154446_ '2 gxc#!case-lambda::t '#f))) - (_clauses154204_ _e154182154201_)) + (_clauses154466_ _e154444154463_)) (declare (not safe)) - (_K154180154195_ _clauses154204_)) - (let () (declare (not safe)) (_E154179154188_))))))) + (_K154442154457_ _clauses154466_)) + (let () (declare (not safe)) (_E154441154450_))))))) (let () (declare (not safe)) (bind-method!__% @@ -2144,58 +2144,58 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self154017_) - (let* ((_self154018154026_ _self154017_) - (_E154020154030_ + (lambda (_self154279_) + (let* ((_self154280154288_ _self154279_) + (_E154282154292_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154018154026_)))) - (_K154021154036_ - (lambda (_dispatch154033_ _table154034_) - (let ((__tmp156635 - (let ((__tmp156636 + (error '"No clause matching" _self154280154288_)))) + (_K154283154298_ + (lambda (_dispatch154295_ _table154296_) + (let ((__tmp156897 + (let ((__tmp156898 (let () (declare (not safe)) - (cons _dispatch154033_ '())))) + (cons _dispatch154295_ '())))) (declare (not safe)) - (cons _table154034_ __tmp156636)))) + (cons _table154296_ __tmp156898)))) (declare (not safe)) - (cons '@kw-lambda __tmp156635))))) + (cons '@kw-lambda __tmp156897))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154018154026_ + _self154280154288_ 'gxc#!kw-lambda::t)) - (let* ((_e154022154039_ + (let* ((_e154284154301_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154018154026_ + _self154280154288_ '1 gxc#!type::t '#f))) - (_e154023154042_ + (_e154285154304_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154018154026_ + _self154280154288_ '2 gxc#!kw-lambda::t '#f))) - (_table154045_ _e154023154042_) - (_e154024154047_ + (_table154307_ _e154285154304_) + (_e154286154309_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154018154026_ + _self154280154288_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch154050_ _e154024154047_)) + (_dispatch154312_ _e154286154309_)) (declare (not safe)) - (_K154021154036_ _dispatch154050_ _table154045_)) - (let () (declare (not safe)) (_E154020154030_)))))) + (_K154283154298_ _dispatch154312_ _table154307_)) + (let () (declare (not safe)) (_E154282154292_)))))) (let () (declare (not safe)) (bind-method!__% @@ -2204,58 +2204,58 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self153860_) - (let* ((_self153861153869_ _self153860_) - (_E153863153873_ + (lambda (_self154122_) + (let* ((_self154123154131_ _self154122_) + (_E154125154135_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153861153869_)))) - (_K153864153879_ - (lambda (_main153876_ _keys153877_) - (let ((__tmp156637 - (let ((__tmp156638 + (error '"No clause matching" _self154123154131_)))) + (_K154126154141_ + (lambda (_main154138_ _keys154139_) + (let ((__tmp156899 + (let ((__tmp156900 (let () (declare (not safe)) - (cons _main153876_ '())))) + (cons _main154138_ '())))) (declare (not safe)) - (cons _keys153877_ __tmp156638)))) + (cons _keys154139_ __tmp156900)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp156637))))) + (cons '@kw-lambda-dispatch __tmp156899))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self153861153869_ + _self154123154131_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e153865153882_ + (let* ((_e154127154144_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153861153869_ + _self154123154131_ '1 gxc#!type::t '#f))) - (_e153866153885_ + (_e154128154147_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153861153869_ + _self154123154131_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys153888_ _e153866153885_) - (_e153867153890_ + (_keys154150_ _e154128154147_) + (_e154129154152_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153861153869_ + _self154123154131_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main153893_ _e153867153890_)) + (_main154155_ _e154129154152_)) (declare (not safe)) - (_K153864153879_ _main153893_ _keys153888_)) - (let () (declare (not safe)) (_E153863153873_)))))) + (_K154126154141_ _main154155_ _keys154150_)) + (let () (declare (not safe)) (_E154125154135_)))))) (let () (declare (not safe)) (bind-method!__% diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index 7a673422..f846b763 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,4594 +1,4594 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx158453_) - (let* ((_g158457158475_ - (lambda (_g158458158471_) + (lambda (_$stx158715_) + (let* ((_g158719158737_ + (lambda (_g158720158733_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158458158471_)))) - (_g158456158530_ - (lambda (_g158458158479_) + _g158720158733_)))) + (_g158718158792_ + (lambda (_g158720158741_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158458158479_)) - (let ((_e158463158482_ + (gx#stx-pair? _g158720158741_)) + (let ((_e158725158744_ (let () (declare (not safe)) - (gx#syntax-e _g158458158479_)))) - (let ((_hd158462158486_ + (gx#syntax-e _g158720158741_)))) + (let ((_hd158724158748_ (let () (declare (not safe)) - (##car _e158463158482_))) - (_tl158461158489_ + (##car _e158725158744_))) + (_tl158723158751_ (let () (declare (not safe)) - (##cdr _e158463158482_)))) + (##cdr _e158725158744_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158461158489_)) - (let ((_e158466158492_ + (gx#stx-pair? _tl158723158751_)) + (let ((_e158728158754_ (let () (declare (not safe)) - (gx#syntax-e _tl158461158489_)))) - (let ((_hd158465158496_ + (gx#syntax-e _tl158723158751_)))) + (let ((_hd158727158758_ (let () (declare (not safe)) - (##car _e158466158492_))) - (_tl158464158499_ + (##car _e158728158754_))) + (_tl158726158761_ (let () (declare (not safe)) - (##cdr _e158466158492_)))) + (##cdr _e158728158754_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158464158499_)) - (let ((_e158469158502_ + (gx#stx-pair? _tl158726158761_)) + (let ((_e158731158764_ (let () (declare (not safe)) - (gx#syntax-e _tl158464158499_)))) - (let ((_hd158468158506_ + (gx#syntax-e _tl158726158761_)))) + (let ((_hd158730158768_ (let () (declare (not safe)) - (##car _e158469158502_))) - (_tl158467158509_ + (##car _e158731158764_))) + (_tl158729158771_ (let () (declare (not safe)) - (##cdr _e158469158502_)))) + (##cdr _e158731158764_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158467158509_)) - ((lambda (_L158512_ _L158514_) + (gx#stx-null? _tl158729158771_)) + ((lambda (_L158774_ _L158776_) (if (let () (declare (not safe)) (gx#identifier? - _L158514_)) - (let ((__tmp161994 + _L158776_)) + (let ((__tmp162256 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp161989 - (let ((__tmp161991 + (__tmp162251 + (let ((__tmp162253 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp161993 + (let ((__tmp162255 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp161992 + (__tmp162254 (let () (declare (not safe)) - (cons _L158514_ '())))) + (cons _L158776_ '())))) (declare (not safe)) - (cons __tmp161993 __tmp161992))) - (__tmp161990 - (let () (declare (not safe)) (cons _L158512_ '())))) + (cons __tmp162255 __tmp162254))) + (__tmp162252 + (let () (declare (not safe)) (cons _L158774_ '())))) (declare (not safe)) - (cons __tmp161991 __tmp161990)))) + (cons __tmp162253 __tmp162252)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp161994 - __tmp161989)) - (_g158457158475_ - _g158458158479_))) - _hd158468158506_ - _hd158465158496_) - (_g158457158475_ - _g158458158479_)))) - (_g158457158475_ _g158458158479_)))) - (_g158457158475_ _g158458158479_)))) - (_g158457158475_ _g158458158479_))))) - (_g158456158530_ _$stx158453_)))) + (cons __tmp162256 + __tmp162251)) + (_g158719158737_ + _g158720158741_))) + _hd158730158768_ + _hd158727158758_) + (_g158719158737_ + _g158720158741_)))) + (_g158719158737_ _g158720158741_)))) + (_g158719158737_ _g158720158741_)))) + (_g158719158737_ _g158720158741_))))) + (_g158718158792_ _$stx158715_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx158534_) - (let* ((_g158538158567_ - (lambda (_g158539158563_) + (lambda (_$stx158796_) + (let* ((_g158800158829_ + (lambda (_g158801158825_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158539158563_)))) - (_g158537158667_ - (lambda (_g158539158571_) + _g158801158825_)))) + (_g158799158929_ + (lambda (_g158801158833_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158539158571_)) - (let ((_e158544158574_ + (gx#stx-pair? _g158801158833_)) + (let ((_e158806158836_ (let () (declare (not safe)) - (gx#syntax-e _g158539158571_)))) - (let ((_hd158543158578_ + (gx#syntax-e _g158801158833_)))) + (let ((_hd158805158840_ (let () (declare (not safe)) - (##car _e158544158574_))) - (_tl158542158581_ + (##car _e158806158836_))) + (_tl158804158843_ (let () (declare (not safe)) - (##cdr _e158544158574_)))) + (##cdr _e158806158836_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl158542158581_)) - (let ((_g161995_ + (gx#stx-pair/null? _tl158804158843_)) + (let ((_g162257_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl158542158581_ + _tl158804158843_ '0)))) (begin - (let ((_g161996_ + (let ((_g162258_ (let () (declare (not safe)) - (if (##values? _g161995_) - (##vector-length _g161995_) + (if (##values? _g162257_) + (##vector-length _g162257_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g161996_ 2))) + (##fx= _g162258_ 2))) (error "Context expects 2 values" - _g161996_))) - (let ((_target158545158584_ + _g162258_))) + (let ((_target158807158846_ (let () (declare (not safe)) - (##vector-ref _g161995_ 0))) - (_tl158547158587_ + (##vector-ref _g162257_ 0))) + (_tl158809158849_ (let () (declare (not safe)) - (##vector-ref _g161995_ 1)))) + (##vector-ref _g162257_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158547158587_)) - (letrec ((_loop158548158590_ - (lambda (_hd158546158594_ - _type158552158597_ - _symbol158553158599_) + (gx#stx-null? _tl158809158849_)) + (letrec ((_loop158810158852_ + (lambda (_hd158808158856_ + _type158814158859_ + _symbol158815158861_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd158546158594_)) - (let ((_e158549158602_ + _hd158808158856_)) + (let ((_e158811158864_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd158546158594_)))) - (let ((_lp-hd158550158606_ - (let () (declare (not safe)) (##car _e158549158602_))) - (_lp-tl158551158609_ - (let () (declare (not safe)) (##cdr _e158549158602_)))) + (gx#syntax-e _hd158808158856_)))) + (let ((_lp-hd158812158868_ + (let () (declare (not safe)) (##car _e158811158864_))) + (_lp-tl158813158871_ + (let () (declare (not safe)) (##cdr _e158811158864_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd158550158606_)) - (let ((_e158558158612_ + (gx#stx-pair? _lp-hd158812158868_)) + (let ((_e158820158874_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd158550158606_)))) - (let ((_hd158557158616_ + (gx#syntax-e _lp-hd158812158868_)))) + (let ((_hd158819158878_ (let () (declare (not safe)) - (##car _e158558158612_))) - (_tl158556158619_ + (##car _e158820158874_))) + (_tl158818158881_ (let () (declare (not safe)) - (##cdr _e158558158612_)))) + (##cdr _e158820158874_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158556158619_)) - (let ((_e158561158622_ + (gx#stx-pair? _tl158818158881_)) + (let ((_e158823158884_ (let () (declare (not safe)) - (gx#syntax-e _tl158556158619_)))) - (let ((_hd158560158626_ + (gx#syntax-e _tl158818158881_)))) + (let ((_hd158822158888_ (let () (declare (not safe)) - (##car _e158561158622_))) - (_tl158559158629_ + (##car _e158823158884_))) + (_tl158821158891_ (let () (declare (not safe)) - (##cdr _e158561158622_)))) + (##cdr _e158823158884_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158559158629_)) - (_loop158548158590_ - _lp-tl158551158609_ + (gx#stx-null? _tl158821158891_)) + (_loop158810158852_ + _lp-tl158813158871_ (let () (declare (not safe)) - (cons _hd158560158626_ - _type158552158597_)) + (cons _hd158822158888_ + _type158814158859_)) (let () (declare (not safe)) - (cons _hd158557158616_ - _symbol158553158599_))) - (_g158538158567_ _g158539158571_)))) - (_g158538158567_ _g158539158571_)))) - (_g158538158567_ _g158539158571_)))) - (let ((_type158554158632_ (reverse _type158552158597_)) - (_symbol158555158635_ (reverse _symbol158553158599_))) - ((lambda (_L158638_ _L158640_) - (let ((__tmp162003 + (cons _hd158819158878_ + _symbol158815158861_))) + (_g158800158829_ _g158801158833_)))) + (_g158800158829_ _g158801158833_)))) + (_g158800158829_ _g158801158833_)))) + (let ((_type158816158894_ (reverse _type158814158859_)) + (_symbol158817158897_ (reverse _symbol158815158861_))) + ((lambda (_L158900_ _L158902_) + (let ((__tmp162265 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp161997 + (__tmp162259 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L158638_ - _L158640_)) - (let ((__tmp161998 - (lambda (_g158655158659_ - _g158656158662_ - _g158657158664_) - (let ((__tmp161999 - (let ((__tmp162002 + _L158900_ + _L158902_)) + (let ((__tmp162260 + (lambda (_g158917158921_ + _g158918158924_ + _g158919158926_) + (let ((__tmp162261 + (let ((__tmp162264 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162000 - (let ((__tmp162001 + (__tmp162262 + (let ((__tmp162263 (let () (declare (not safe)) - (cons _g158655158659_ + (cons _g158917158921_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g158656158662_ - __tmp162001)))) + (cons _g158918158924_ + __tmp162263)))) (declare (not safe)) - (cons __tmp162002 __tmp162000)))) + (cons __tmp162264 __tmp162262)))) (declare (not safe)) - (cons __tmp161999 _g158657158664_))))) + (cons __tmp162261 _g158919158926_))))) (declare (not safe)) - (foldr2 __tmp161998 '() _L158638_ _L158640_))))) + (foldr2 __tmp162260 '() _L158900_ _L158902_))))) (declare (not safe)) - (cons __tmp162003 __tmp161997))) - _type158554158632_ - _symbol158555158635_)))))) + (cons __tmp162265 __tmp162259))) + _type158816158894_ + _symbol158817158897_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop158548158590_ - _target158545158584_ + (_loop158810158852_ + _target158807158846_ '() '())) - (_g158538158567_ _g158539158571_))))) - (_g158538158567_ _g158539158571_)))) - (_g158538158567_ _g158539158571_))))) - (_g158537158667_ _$stx158534_)))) + (_g158800158829_ _g158801158833_))))) + (_g158800158829_ _g158801158833_)))) + (_g158800158829_ _g158801158833_))))) + (_g158799158929_ _$stx158796_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx158672_) - (let* ((___stx161554161555_ _$stx158672_) - (_g158677158719_ + (lambda (_$stx158934_) + (let* ((___stx161816161817_ _$stx158934_) + (_g158939158981_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161554161555_))))) - (let ((___kont161557161558_ - (lambda (_L158847_ _L158849_ _L158850_ _L158851_) - (let ((__tmp162017 + ___stx161816161817_))))) + (let ((___kont161819161820_ + (lambda (_L159109_ _L159111_ _L159112_ _L159113_) + (let ((__tmp162279 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp162004 - (let ((__tmp162014 - (let ((__tmp162016 + (__tmp162266 + (let ((__tmp162276 + (let ((__tmp162278 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162015 + (__tmp162277 (let () (declare (not safe)) - (cons _L158851_ '())))) + (cons _L159113_ '())))) (declare (not safe)) - (cons __tmp162016 __tmp162015))) - (__tmp162005 - (let ((__tmp162011 - (let ((__tmp162013 + (cons __tmp162278 __tmp162277))) + (__tmp162267 + (let ((__tmp162273 + (let ((__tmp162275 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162012 + (__tmp162274 (let () (declare (not safe)) - (cons _L158850_ '())))) + (cons _L159112_ '())))) (declare (not safe)) - (cons __tmp162013 __tmp162012))) - (__tmp162006 - (let ((__tmp162008 - (let ((__tmp162010 + (cons __tmp162275 __tmp162274))) + (__tmp162268 + (let ((__tmp162270 + (let ((__tmp162272 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162009 + (__tmp162271 (let () (declare (not safe)) - (cons _L158849_ '())))) + (cons _L159111_ '())))) (declare (not safe)) - (cons __tmp162010 __tmp162009))) - (__tmp162007 + (cons __tmp162272 __tmp162271))) + (__tmp162269 (let () (declare (not safe)) - (cons _L158847_ '())))) + (cons _L159109_ '())))) (declare (not safe)) - (cons __tmp162008 __tmp162007)))) + (cons __tmp162270 __tmp162269)))) (declare (not safe)) - (cons __tmp162011 __tmp162006)))) + (cons __tmp162273 __tmp162268)))) (declare (not safe)) - (cons __tmp162014 __tmp162005)))) + (cons __tmp162276 __tmp162267)))) (declare (not safe)) - (cons __tmp162017 __tmp162004)))) - (___kont161559161560_ - (lambda (_L158766_ _L158768_ _L158769_ _L158770_) - (let ((__tmp162018 - (let ((__tmp162019 - (let ((__tmp162020 - (let ((__tmp162021 - (let ((__tmp162022 + (cons __tmp162279 __tmp162266)))) + (___kont161821161822_ + (lambda (_L159028_ _L159030_ _L159031_ _L159032_) + (let ((__tmp162280 + (let ((__tmp162281 + (let ((__tmp162282 + (let ((__tmp162283 + (let ((__tmp162284 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp162022 '())))) + (cons __tmp162284 '())))) (declare (not safe)) - (cons _L158766_ __tmp162021)))) + (cons _L159028_ __tmp162283)))) (declare (not safe)) - (cons _L158768_ __tmp162020)))) + (cons _L159030_ __tmp162282)))) (declare (not safe)) - (cons _L158769_ __tmp162019)))) + (cons _L159031_ __tmp162281)))) (declare (not safe)) - (cons _L158770_ __tmp162018))))) - (let ((___match161593161594_ - (lambda (_e158685158797_ - _hd158684158801_ - _tl158683158804_ - _e158688158807_ - _hd158687158811_ - _tl158686158814_ - _e158691158817_ - _hd158690158821_ - _tl158689158824_ - _e158694158827_ - _hd158693158831_ - _tl158692158834_ - _e158697158837_ - _hd158696158841_ - _tl158695158844_) - (let ((_L158847_ _hd158696158841_) - (_L158849_ _hd158693158831_) - (_L158850_ _hd158690158821_) - (_L158851_ _hd158687158811_)) + (cons _L159032_ __tmp162280))))) + (let ((___match161855161856_ + (lambda (_e158947159059_ + _hd158946159063_ + _tl158945159066_ + _e158950159069_ + _hd158949159073_ + _tl158948159076_ + _e158953159079_ + _hd158952159083_ + _tl158951159086_ + _e158956159089_ + _hd158955159093_ + _tl158954159096_ + _e158959159099_ + _hd158958159103_ + _tl158957159106_) + (let ((_L159109_ _hd158958159103_) + (_L159111_ _hd158955159093_) + (_L159112_ _hd158952159083_) + (_L159113_ _hd158949159073_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L158851_)) + (gx#identifier? _L159113_)) (let () (declare (not safe)) - (gx#identifier? _L158850_)) + (gx#identifier? _L159112_)) (let () (declare (not safe)) - (gx#identifier? _L158849_))) - (___kont161557161558_ - _L158847_ - _L158849_ - _L158850_ - _L158851_) - (let () (declare (not safe)) (_g158677158719_))))))) + (gx#identifier? _L159111_))) + (___kont161819161820_ + _L159109_ + _L159111_ + _L159112_ + _L159113_) + (let () (declare (not safe)) (_g158939158981_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161554161555_)) - (let ((_e158685158797_ + (gx#stx-pair? ___stx161816161817_)) + (let ((_e158947159059_ (let () (declare (not safe)) - (gx#syntax-e ___stx161554161555_)))) - (let ((_tl158683158804_ - (let () (declare (not safe)) (##cdr _e158685158797_))) - (_hd158684158801_ + (gx#syntax-e ___stx161816161817_)))) + (let ((_tl158945159066_ + (let () (declare (not safe)) (##cdr _e158947159059_))) + (_hd158946159063_ (let () (declare (not safe)) - (##car _e158685158797_)))) + (##car _e158947159059_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158683158804_)) - (let ((_e158688158807_ + (gx#stx-pair? _tl158945159066_)) + (let ((_e158950159069_ (let () (declare (not safe)) - (gx#syntax-e _tl158683158804_)))) - (let ((_tl158686158814_ + (gx#syntax-e _tl158945159066_)))) + (let ((_tl158948159076_ (let () (declare (not safe)) - (##cdr _e158688158807_))) - (_hd158687158811_ + (##cdr _e158950159069_))) + (_hd158949159073_ (let () (declare (not safe)) - (##car _e158688158807_)))) + (##car _e158950159069_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158686158814_)) - (let ((_e158691158817_ + (gx#stx-pair? _tl158948159076_)) + (let ((_e158953159079_ (let () (declare (not safe)) - (gx#syntax-e _tl158686158814_)))) - (let ((_tl158689158824_ + (gx#syntax-e _tl158948159076_)))) + (let ((_tl158951159086_ (let () (declare (not safe)) - (##cdr _e158691158817_))) - (_hd158690158821_ + (##cdr _e158953159079_))) + (_hd158952159083_ (let () (declare (not safe)) - (##car _e158691158817_)))) + (##car _e158953159079_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158689158824_)) - (let ((_e158694158827_ + (gx#stx-pair? _tl158951159086_)) + (let ((_e158956159089_ (let () (declare (not safe)) (gx#syntax-e - _tl158689158824_)))) - (let ((_tl158692158834_ + _tl158951159086_)))) + (let ((_tl158954159096_ (let () (declare (not safe)) - (##cdr _e158694158827_))) - (_hd158693158831_ + (##cdr _e158956159089_))) + (_hd158955159093_ (let () (declare (not safe)) - (##car _e158694158827_)))) + (##car _e158956159089_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl158692158834_)) - (let ((_e158697158837_ + _tl158954159096_)) + (let ((_e158959159099_ (let () (declare (not safe)) (gx#syntax-e - _tl158692158834_)))) - (let ((_tl158695158844_ + _tl158954159096_)))) + (let ((_tl158957159106_ (let () (declare (not safe)) - (##cdr _e158697158837_))) - (_hd158696158841_ + (##cdr _e158959159099_))) + (_hd158958159103_ (let () (declare (not safe)) - (##car _e158697158837_)))) + (##car _e158959159099_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158695158844_)) - (___match161593161594_ - _e158685158797_ - _hd158684158801_ - _tl158683158804_ - _e158688158807_ - _hd158687158811_ - _tl158686158814_ - _e158691158817_ - _hd158690158821_ - _tl158689158824_ - _e158694158827_ - _hd158693158831_ - _tl158692158834_ - _e158697158837_ - _hd158696158841_ - _tl158695158844_) + _tl158957159106_)) + (___match161855161856_ + _e158947159059_ + _hd158946159063_ + _tl158945159066_ + _e158950159069_ + _hd158949159073_ + _tl158948159076_ + _e158953159079_ + _hd158952159083_ + _tl158951159086_ + _e158956159089_ + _hd158955159093_ + _tl158954159096_ + _e158959159099_ + _hd158958159103_ + _tl158957159106_) (let () (declare (not safe)) - (_g158677158719_))))) + (_g158939158981_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158692158834_)) - (___kont161559161560_ - _hd158693158831_ - _hd158690158821_ - _hd158687158811_ - _hd158684158801_) + _tl158954159096_)) + (___kont161821161822_ + _hd158955159093_ + _hd158952159083_ + _hd158949159073_ + _hd158946159063_) (let () (declare (not safe)) - (_g158677158719_)))))) + (_g158939158981_)))))) (let () (declare (not safe)) - (_g158677158719_))))) + (_g158939158981_))))) (let () (declare (not safe)) - (_g158677158719_))))) - (let () (declare (not safe)) (_g158677158719_))))) - (let () (declare (not safe)) (_g158677158719_)))))))) + (_g158939158981_))))) + (let () (declare (not safe)) (_g158939158981_))))) + (let () (declare (not safe)) (_g158939158981_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx158876_) - (let* ((_g158880158915_ - (lambda (_g158881158911_) + (lambda (_$stx159138_) + (let* ((_g159142159177_ + (lambda (_g159143159173_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158881158911_)))) - (_g158879159034_ - (lambda (_g158881158919_) + _g159143159173_)))) + (_g159141159296_ + (lambda (_g159143159181_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158881158919_)) - (let ((_e158887158922_ + (gx#stx-pair? _g159143159181_)) + (let ((_e159149159184_ (let () (declare (not safe)) - (gx#syntax-e _g158881158919_)))) - (let ((_hd158886158926_ + (gx#syntax-e _g159143159181_)))) + (let ((_hd159148159188_ (let () (declare (not safe)) - (##car _e158887158922_))) - (_tl158885158929_ + (##car _e159149159184_))) + (_tl159147159191_ (let () (declare (not safe)) - (##cdr _e158887158922_)))) + (##cdr _e159149159184_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl158885158929_)) - (let ((_g162023_ + (gx#stx-pair/null? _tl159147159191_)) + (let ((_g162285_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl158885158929_ + _tl159147159191_ '0)))) (begin - (let ((_g162024_ + (let ((_g162286_ (let () (declare (not safe)) - (if (##values? _g162023_) - (##vector-length _g162023_) + (if (##values? _g162285_) + (##vector-length _g162285_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162024_ 2))) + (##fx= _g162286_ 2))) (error "Context expects 2 values" - _g162024_))) - (let ((_target158888158932_ + _g162286_))) + (let ((_target159150159194_ (let () (declare (not safe)) - (##vector-ref _g162023_ 0))) - (_tl158890158935_ + (##vector-ref _g162285_ 0))) + (_tl159152159197_ (let () (declare (not safe)) - (##vector-ref _g162023_ 1)))) + (##vector-ref _g162285_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158890158935_)) - (letrec ((_loop158891158938_ - (lambda (_hd158889158942_ - _symbol158895158945_ - _method158896158947_ - _type-t158897158949_) + (gx#stx-null? _tl159152159197_)) + (letrec ((_loop159153159200_ + (lambda (_hd159151159204_ + _symbol159157159207_ + _method159158159209_ + _type-t159159159211_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd158889158942_)) - (let ((_e158892158952_ + _hd159151159204_)) + (let ((_e159154159214_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd158889158942_)))) - (let ((_lp-hd158893158956_ - (let () (declare (not safe)) (##car _e158892158952_))) - (_lp-tl158894158959_ - (let () (declare (not safe)) (##cdr _e158892158952_)))) + (gx#syntax-e _hd159151159204_)))) + (let ((_lp-hd159155159218_ + (let () (declare (not safe)) (##car _e159154159214_))) + (_lp-tl159156159221_ + (let () (declare (not safe)) (##cdr _e159154159214_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd158893158956_)) - (let ((_e158903158962_ + (gx#stx-pair? _lp-hd159155159218_)) + (let ((_e159165159224_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd158893158956_)))) - (let ((_hd158902158966_ + (gx#syntax-e _lp-hd159155159218_)))) + (let ((_hd159164159228_ (let () (declare (not safe)) - (##car _e158903158962_))) - (_tl158901158969_ + (##car _e159165159224_))) + (_tl159163159231_ (let () (declare (not safe)) - (##cdr _e158903158962_)))) + (##cdr _e159165159224_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158901158969_)) - (let ((_e158906158972_ + (gx#stx-pair? _tl159163159231_)) + (let ((_e159168159234_ (let () (declare (not safe)) - (gx#syntax-e _tl158901158969_)))) - (let ((_hd158905158976_ + (gx#syntax-e _tl159163159231_)))) + (let ((_hd159167159238_ (let () (declare (not safe)) - (##car _e158906158972_))) - (_tl158904158979_ + (##car _e159168159234_))) + (_tl159166159241_ (let () (declare (not safe)) - (##cdr _e158906158972_)))) + (##cdr _e159168159234_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158904158979_)) - (let ((_e158909158982_ + (gx#stx-pair? _tl159166159241_)) + (let ((_e159171159244_ (let () (declare (not safe)) (gx#syntax-e - _tl158904158979_)))) - (let ((_hd158908158986_ + _tl159166159241_)))) + (let ((_hd159170159248_ (let () (declare (not safe)) - (##car _e158909158982_))) - (_tl158907158989_ + (##car _e159171159244_))) + (_tl159169159251_ (let () (declare (not safe)) - (##cdr _e158909158982_)))) + (##cdr _e159171159244_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158907158989_)) - (_loop158891158938_ - _lp-tl158894158959_ + _tl159169159251_)) + (_loop159153159200_ + _lp-tl159156159221_ (let () (declare (not safe)) - (cons _hd158908158986_ - _symbol158895158945_)) + (cons _hd159170159248_ + _symbol159157159207_)) (let () (declare (not safe)) - (cons _hd158905158976_ - _method158896158947_)) + (cons _hd159167159238_ + _method159158159209_)) (let () (declare (not safe)) - (cons _hd158902158966_ - _type-t158897158949_))) - (_g158880158915_ - _g158881158919_)))) - (_g158880158915_ _g158881158919_)))) - (_g158880158915_ _g158881158919_)))) - (_g158880158915_ _g158881158919_)))) - (let ((_symbol158898158992_ (reverse _symbol158895158945_)) - (_method158899158995_ (reverse _method158896158947_)) - (_type-t158900158997_ (reverse _type-t158897158949_))) - ((lambda (_L159000_ _L159002_ _L159003_) - (let ((__tmp162032 + (cons _hd159164159228_ + _type-t159159159211_))) + (_g159142159177_ + _g159143159181_)))) + (_g159142159177_ _g159143159181_)))) + (_g159142159177_ _g159143159181_)))) + (_g159142159177_ _g159143159181_)))) + (let ((_symbol159160159254_ (reverse _symbol159157159207_)) + (_method159161159257_ (reverse _method159158159209_)) + (_type-t159162159259_ (reverse _type-t159159159211_))) + ((lambda (_L159262_ _L159264_ _L159265_) + (let ((__tmp162294 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162025 + (__tmp162287 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L159000_ - _L159002_ - _L159003_)) - (let ((__tmp162026 - (lambda (_g159019159024_ - _g159020159027_ - _g159021159029_ - _g159022159031_) - (let ((__tmp162027 - (let ((__tmp162031 + _L159262_ + _L159264_ + _L159265_)) + (let ((__tmp162288 + (lambda (_g159281159286_ + _g159282159289_ + _g159283159291_ + _g159284159293_) + (let ((__tmp162289 + (let ((__tmp162293 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp162028 - (let ((__tmp162029 - (let ((__tmp162030 + (__tmp162290 + (let ((__tmp162291 + (let ((__tmp162292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g159019159024_ '())))) + (cons _g159281159286_ '())))) (declare (not safe)) - (cons _g159020159027_ __tmp162030)))) + (cons _g159282159289_ __tmp162292)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g159021159029_ - __tmp162029)))) + (cons _g159283159291_ + __tmp162291)))) (declare (not safe)) - (cons __tmp162031 __tmp162028)))) + (cons __tmp162293 __tmp162290)))) (declare (not safe)) - (cons __tmp162027 _g159022159031_))))) + (cons __tmp162289 _g159284159293_))))) (declare (not safe)) - (foldr* __tmp162026 + (foldr* __tmp162288 '() - _L159000_ - _L159002_ - _L159003_))))) + _L159262_ + _L159264_ + _L159265_))))) (declare (not safe)) - (cons __tmp162032 __tmp162025))) - _symbol158898158992_ - _method158899158995_ - _type-t158900158997_)))))) + (cons __tmp162294 __tmp162287))) + _symbol159160159254_ + _method159161159257_ + _type-t159162159259_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop158891158938_ - _target158888158932_ + (_loop159153159200_ + _target159150159194_ '() '() '())) - (_g158880158915_ _g158881158919_))))) - (_g158880158915_ _g158881158919_)))) - (_g158880158915_ _g158881158919_))))) - (_g158879159034_ _$stx158876_)))) + (_g159142159177_ _g159143159181_))))) + (_g159142159177_ _g159143159181_)))) + (_g159142159177_ _g159143159181_))))) + (_g159141159296_ _$stx159138_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx159039_) - (let* ((_g159043159076_ - (lambda (_g159044159072_) + (lambda (_$stx159301_) + (let* ((_g159305159338_ + (lambda (_g159306159334_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159044159072_)))) - (_g159042159190_ - (lambda (_g159044159080_) + _g159306159334_)))) + (_g159304159452_ + (lambda (_g159306159342_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159044159080_)) - (let ((_e159050159083_ + (gx#stx-pair? _g159306159342_)) + (let ((_e159312159345_ (let () (declare (not safe)) - (gx#syntax-e _g159044159080_)))) - (let ((_hd159049159087_ + (gx#syntax-e _g159306159342_)))) + (let ((_hd159311159349_ (let () (declare (not safe)) - (##car _e159050159083_))) - (_tl159048159090_ + (##car _e159312159345_))) + (_tl159310159352_ (let () (declare (not safe)) - (##cdr _e159050159083_)))) + (##cdr _e159312159345_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159048159090_)) - (let ((_e159053159093_ + (gx#stx-pair? _tl159310159352_)) + (let ((_e159315159355_ (let () (declare (not safe)) - (gx#syntax-e _tl159048159090_)))) - (let ((_hd159052159097_ + (gx#syntax-e _tl159310159352_)))) + (let ((_hd159314159359_ (let () (declare (not safe)) - (##car _e159053159093_))) - (_tl159051159100_ + (##car _e159315159355_))) + (_tl159313159362_ (let () (declare (not safe)) - (##cdr _e159053159093_)))) + (##cdr _e159315159355_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl159051159100_)) - (let ((_g162033_ + (gx#stx-pair/null? _tl159313159362_)) + (let ((_g162295_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl159051159100_ + _tl159313159362_ '0)))) (begin - (let ((_g162034_ + (let ((_g162296_ (let () (declare (not safe)) - (if (##values? _g162033_) + (if (##values? _g162295_) (##vector-length - _g162033_) + _g162295_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162034_ 2))) + (##fx= _g162296_ 2))) (error "Context expects 2 values" - _g162034_))) - (let ((_target159054159103_ + _g162296_))) + (let ((_target159316159365_ (let () (declare (not safe)) - (##vector-ref _g162033_ 0))) - (_tl159056159106_ + (##vector-ref _g162295_ 0))) + (_tl159318159368_ (let () (declare (not safe)) - (##vector-ref _g162033_ 1)))) + (##vector-ref _g162295_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159056159106_)) - (letrec ((_loop159057159109_ - (lambda (_hd159055159113_ + _tl159318159368_)) + (letrec ((_loop159319159371_ + (lambda (_hd159317159375_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol159061159116_ - _method159062159118_) + _symbol159323159378_ + _method159324159380_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd159055159113_)) - (let ((_e159058159121_ + (gx#stx-pair? _hd159317159375_)) + (let ((_e159320159383_ (let () (declare (not safe)) - (gx#syntax-e _hd159055159113_)))) - (let ((_lp-hd159059159125_ + (gx#syntax-e _hd159317159375_)))) + (let ((_lp-hd159321159387_ (let () (declare (not safe)) - (##car _e159058159121_))) - (_lp-tl159060159128_ + (##car _e159320159383_))) + (_lp-tl159322159390_ (let () (declare (not safe)) - (##cdr _e159058159121_)))) + (##cdr _e159320159383_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd159059159125_)) - (let ((_e159067159131_ + (gx#stx-pair? _lp-hd159321159387_)) + (let ((_e159329159393_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd159059159125_)))) - (let ((_hd159066159135_ + (gx#syntax-e _lp-hd159321159387_)))) + (let ((_hd159328159397_ (let () (declare (not safe)) - (##car _e159067159131_))) - (_tl159065159138_ + (##car _e159329159393_))) + (_tl159327159400_ (let () (declare (not safe)) - (##cdr _e159067159131_)))) + (##cdr _e159329159393_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159065159138_)) - (let ((_e159070159141_ + (gx#stx-pair? _tl159327159400_)) + (let ((_e159332159403_ (let () (declare (not safe)) (gx#syntax-e - _tl159065159138_)))) - (let ((_hd159069159145_ + _tl159327159400_)))) + (let ((_hd159331159407_ (let () (declare (not safe)) - (##car _e159070159141_))) - (_tl159068159148_ + (##car _e159332159403_))) + (_tl159330159410_ (let () (declare (not safe)) - (##cdr _e159070159141_)))) + (##cdr _e159332159403_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159068159148_)) - (_loop159057159109_ - _lp-tl159060159128_ + _tl159330159410_)) + (_loop159319159371_ + _lp-tl159322159390_ (let () (declare (not safe)) - (cons _hd159069159145_ - _symbol159061159116_)) + (cons _hd159331159407_ + _symbol159323159378_)) (let () (declare (not safe)) - (cons _hd159066159135_ - _method159062159118_))) - (_g159043159076_ - _g159044159080_)))) - (_g159043159076_ _g159044159080_)))) - (_g159043159076_ _g159044159080_)))) - (let ((_symbol159063159151_ - (reverse _symbol159061159116_)) - (_method159064159154_ - (reverse _method159062159118_))) - ((lambda (_L159157_ _L159159_ _L159160_) - (let ((__tmp162042 + (cons _hd159328159397_ + _method159324159380_))) + (_g159305159338_ + _g159306159342_)))) + (_g159305159338_ _g159306159342_)))) + (_g159305159338_ _g159306159342_)))) + (let ((_symbol159325159413_ + (reverse _symbol159323159378_)) + (_method159326159416_ + (reverse _method159324159380_))) + ((lambda (_L159419_ _L159421_ _L159422_) + (let ((__tmp162304 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162035 + (__tmp162297 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L159157_ - _L159159_)) - (let ((__tmp162036 - (lambda (_g159178159182_ - _g159179159185_ - _g159180159187_) - (let ((__tmp162037 - (let ((__tmp162041 + _L159419_ + _L159421_)) + (let ((__tmp162298 + (lambda (_g159440159444_ + _g159441159447_ + _g159442159449_) + (let ((__tmp162299 + (let ((__tmp162303 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp162038 - (let ((__tmp162039 + (__tmp162300 + (let ((__tmp162301 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp162040 + (let ((__tmp162302 (let () (declare (not safe)) - (cons _g159178159182_ '())))) + (cons _g159440159444_ '())))) (declare (not safe)) - (cons _g159179159185_ __tmp162040)))) + (cons _g159441159447_ __tmp162302)))) (declare (not safe)) - (cons _L159160_ __tmp162039)))) + (cons _L159422_ __tmp162301)))) (declare (not safe)) - (cons __tmp162041 __tmp162038)))) + (cons __tmp162303 __tmp162300)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162037 - _g159180159187_))))) + (cons __tmp162299 + _g159442159449_))))) (declare (not safe)) - (foldr2 __tmp162036 + (foldr2 __tmp162298 '() - _L159157_ - _L159159_))))) + _L159419_ + _L159421_))))) (declare (not safe)) - (cons __tmp162042 __tmp162035))) - _symbol159063159151_ - _method159064159154_ - _hd159052159097_)))))) + (cons __tmp162304 __tmp162297))) + _symbol159325159413_ + _method159326159416_ + _hd159314159359_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop159057159109_ - _target159054159103_ + (_loop159319159371_ + _target159316159365_ '() '())) - (_g159043159076_ - _g159044159080_))))) - (_g159043159076_ _g159044159080_)))) - (_g159043159076_ _g159044159080_)))) - (_g159043159076_ _g159044159080_))))) - (_g159042159190_ _$stx159039_)))) + (_g159305159338_ + _g159306159342_))))) + (_g159305159338_ _g159306159342_)))) + (_g159305159338_ _g159306159342_)))) + (_g159305159338_ _g159306159342_))))) + (_g159304159452_ _$stx159301_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx159195_) - (let* ((_g159199159213_ - (lambda (_g159200159209_) + (lambda (_$stx159457_) + (let* ((_g159461159475_ + (lambda (_g159462159471_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159200159209_)))) - (_g159198159254_ - (lambda (_g159200159217_) + _g159462159471_)))) + (_g159460159516_ + (lambda (_g159462159479_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159200159217_)) - (let ((_e159204159220_ + (gx#stx-pair? _g159462159479_)) + (let ((_e159466159482_ (let () (declare (not safe)) - (gx#syntax-e _g159200159217_)))) - (let ((_hd159203159224_ + (gx#syntax-e _g159462159479_)))) + (let ((_hd159465159486_ (let () (declare (not safe)) - (##car _e159204159220_))) - (_tl159202159227_ + (##car _e159466159482_))) + (_tl159464159489_ (let () (declare (not safe)) - (##cdr _e159204159220_)))) + (##cdr _e159466159482_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159202159227_)) - (let ((_e159207159230_ + (gx#stx-pair? _tl159464159489_)) + (let ((_e159469159492_ (let () (declare (not safe)) - (gx#syntax-e _tl159202159227_)))) - (let ((_hd159206159234_ + (gx#syntax-e _tl159464159489_)))) + (let ((_hd159468159496_ (let () (declare (not safe)) - (##car _e159207159230_))) - (_tl159205159237_ + (##car _e159469159492_))) + (_tl159467159499_ (let () (declare (not safe)) - (##cdr _e159207159230_)))) + (##cdr _e159469159492_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159205159237_)) - ((lambda (_L159240_) - (let ((__tmp162047 + (gx#stx-null? _tl159467159499_)) + ((lambda (_L159502_) + (let ((__tmp162309 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp162043 - (let ((__tmp162044 - (let ((__tmp162046 + (__tmp162305 + (let ((__tmp162306 + (let ((__tmp162308 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162045 + (__tmp162307 (let () (declare (not safe)) - (cons _L159240_ + (cons _L159502_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162046 __tmp162045)))) + (cons __tmp162308 __tmp162307)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162044 '())))) + (cons __tmp162306 '())))) (declare (not safe)) - (cons __tmp162047 __tmp162043))) - _hd159206159234_) - (_g159199159213_ _g159200159217_)))) - (_g159199159213_ _g159200159217_)))) - (_g159199159213_ _g159200159217_))))) - (_g159198159254_ _$stx159195_)))) + (cons __tmp162309 __tmp162305))) + _hd159468159496_) + (_g159461159475_ _g159462159479_)))) + (_g159461159475_ _g159462159479_)))) + (_g159461159475_ _g159462159479_))))) + (_g159460159516_ _$stx159457_)))) (define |gxc[:0:]#@class| - (lambda (_$stx159258_) - (let* ((_g159262159312_ - (lambda (_g159263159308_) + (lambda (_$stx159520_) + (let* ((_g159524159574_ + (lambda (_g159525159570_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159263159308_)))) - (_g159261159479_ - (lambda (_g159263159316_) + _g159525159570_)))) + (_g159523159741_ + (lambda (_g159525159578_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159263159316_)) - (let ((_e159276159319_ + (gx#stx-pair? _g159525159578_)) + (let ((_e159538159581_ (let () (declare (not safe)) - (gx#syntax-e _g159263159316_)))) - (let ((_hd159275159323_ + (gx#syntax-e _g159525159578_)))) + (let ((_hd159537159585_ (let () (declare (not safe)) - (##car _e159276159319_))) - (_tl159274159326_ + (##car _e159538159581_))) + (_tl159536159588_ (let () (declare (not safe)) - (##cdr _e159276159319_)))) + (##cdr _e159538159581_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159274159326_)) - (let ((_e159279159329_ + (gx#stx-pair? _tl159536159588_)) + (let ((_e159541159591_ (let () (declare (not safe)) - (gx#syntax-e _tl159274159326_)))) - (let ((_hd159278159333_ + (gx#syntax-e _tl159536159588_)))) + (let ((_hd159540159595_ (let () (declare (not safe)) - (##car _e159279159329_))) - (_tl159277159336_ + (##car _e159541159591_))) + (_tl159539159598_ (let () (declare (not safe)) - (##cdr _e159279159329_)))) + (##cdr _e159541159591_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159277159336_)) - (let ((_e159282159339_ + (gx#stx-pair? _tl159539159598_)) + (let ((_e159544159601_ (let () (declare (not safe)) - (gx#syntax-e _tl159277159336_)))) - (let ((_hd159281159343_ + (gx#syntax-e _tl159539159598_)))) + (let ((_hd159543159605_ (let () (declare (not safe)) - (##car _e159282159339_))) - (_tl159280159346_ + (##car _e159544159601_))) + (_tl159542159608_ (let () (declare (not safe)) - (##cdr _e159282159339_)))) + (##cdr _e159544159601_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159280159346_)) - (let ((_e159285159349_ + (gx#stx-pair? _tl159542159608_)) + (let ((_e159547159611_ (let () (declare (not safe)) (gx#syntax-e - _tl159280159346_)))) - (let ((_hd159284159353_ + _tl159542159608_)))) + (let ((_hd159546159615_ (let () (declare (not safe)) - (##car _e159285159349_))) - (_tl159283159356_ + (##car _e159547159611_))) + (_tl159545159618_ (let () (declare (not safe)) - (##cdr _e159285159349_)))) + (##cdr _e159547159611_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159283159356_)) - (let ((_e159288159359_ + _tl159545159618_)) + (let ((_e159550159621_ (let () (declare (not safe)) (gx#syntax-e - _tl159283159356_)))) - (let ((_hd159287159363_ + _tl159545159618_)))) + (let ((_hd159549159625_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e159288159359_))) - (_tl159286159366_ - (let () (declare (not safe)) (##cdr _e159288159359_)))) + (##car _e159550159621_))) + (_tl159548159628_ + (let () (declare (not safe)) (##cdr _e159550159621_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159286159366_)) - (let ((_e159291159369_ + (gx#stx-pair? _tl159548159628_)) + (let ((_e159553159631_ (let () (declare (not safe)) - (gx#syntax-e _tl159286159366_)))) - (let ((_hd159290159373_ + (gx#syntax-e _tl159548159628_)))) + (let ((_hd159552159635_ (let () (declare (not safe)) - (##car _e159291159369_))) - (_tl159289159376_ + (##car _e159553159631_))) + (_tl159551159638_ (let () (declare (not safe)) - (##cdr _e159291159369_)))) + (##cdr _e159553159631_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159289159376_)) - (let ((_e159294159379_ + (gx#stx-pair? _tl159551159638_)) + (let ((_e159556159641_ (let () (declare (not safe)) - (gx#syntax-e _tl159289159376_)))) - (let ((_hd159293159383_ + (gx#syntax-e _tl159551159638_)))) + (let ((_hd159555159645_ (let () (declare (not safe)) - (##car _e159294159379_))) - (_tl159292159386_ + (##car _e159556159641_))) + (_tl159554159648_ (let () (declare (not safe)) - (##cdr _e159294159379_)))) + (##cdr _e159556159641_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159292159386_)) - (let ((_e159297159389_ + (gx#stx-pair? _tl159554159648_)) + (let ((_e159559159651_ (let () (declare (not safe)) - (gx#syntax-e _tl159292159386_)))) - (let ((_hd159296159393_ + (gx#syntax-e _tl159554159648_)))) + (let ((_hd159558159655_ (let () (declare (not safe)) - (##car _e159297159389_))) - (_tl159295159396_ + (##car _e159559159651_))) + (_tl159557159658_ (let () (declare (not safe)) - (##cdr _e159297159389_)))) + (##cdr _e159559159651_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159295159396_)) - (let ((_e159300159399_ + (gx#stx-pair? _tl159557159658_)) + (let ((_e159562159661_ (let () (declare (not safe)) (gx#syntax-e - _tl159295159396_)))) - (let ((_hd159299159403_ + _tl159557159658_)))) + (let ((_hd159561159665_ (let () (declare (not safe)) - (##car _e159300159399_))) - (_tl159298159406_ + (##car _e159562159661_))) + (_tl159560159668_ (let () (declare (not safe)) - (##cdr _e159300159399_)))) + (##cdr _e159562159661_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159298159406_)) - (let ((_e159303159409_ + _tl159560159668_)) + (let ((_e159565159671_ (let () (declare (not safe)) (gx#syntax-e - _tl159298159406_)))) - (let ((_hd159302159413_ + _tl159560159668_)))) + (let ((_hd159564159675_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e159303159409_))) - (_tl159301159416_ - (let () (declare (not safe)) (##cdr _e159303159409_)))) + (##car _e159565159671_))) + (_tl159563159678_ + (let () (declare (not safe)) (##cdr _e159565159671_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159301159416_)) - (let ((_e159306159419_ + (gx#stx-pair? _tl159563159678_)) + (let ((_e159568159681_ (let () (declare (not safe)) - (gx#syntax-e _tl159301159416_)))) - (let ((_hd159305159423_ + (gx#syntax-e _tl159563159678_)))) + (let ((_hd159567159685_ (let () (declare (not safe)) - (##car _e159306159419_))) - (_tl159304159426_ + (##car _e159568159681_))) + (_tl159566159688_ (let () (declare (not safe)) - (##cdr _e159306159419_)))) + (##cdr _e159568159681_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159304159426_)) - ((lambda (_L159429_ - _L159431_ - _L159432_ - _L159433_ - _L159434_ - _L159435_ - _L159436_ - _L159437_ - _L159438_ - _L159439_) - (let ((__tmp162082 + (gx#stx-null? _tl159566159688_)) + ((lambda (_L159691_ + _L159693_ + _L159694_ + _L159695_ + _L159696_ + _L159697_ + _L159698_ + _L159699_ + _L159700_ + _L159701_) + (let ((__tmp162344 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp162048 - (let ((__tmp162079 - (let ((__tmp162081 + (__tmp162310 + (let ((__tmp162341 + (let ((__tmp162343 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162080 + (__tmp162342 (let () (declare (not safe)) - (cons _L159439_ '())))) + (cons _L159701_ '())))) (declare (not safe)) - (cons __tmp162081 __tmp162080))) - (__tmp162049 - (let ((__tmp162076 - (let ((__tmp162078 + (cons __tmp162343 __tmp162342))) + (__tmp162311 + (let ((__tmp162338 + (let ((__tmp162340 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162077 + (__tmp162339 (let () (declare (not safe)) - (cons _L159438_ + (cons _L159700_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162078 __tmp162077))) + (cons __tmp162340 __tmp162339))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp162050 - (let ((__tmp162073 - (let ((__tmp162075 + (__tmp162312 + (let ((__tmp162335 + (let ((__tmp162337 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162074 - (let () (declare (not safe)) (cons _L159437_ '())))) + (__tmp162336 + (let () (declare (not safe)) (cons _L159699_ '())))) (declare (not safe)) - (cons __tmp162075 __tmp162074))) - (__tmp162051 - (let ((__tmp162070 - (let ((__tmp162072 + (cons __tmp162337 __tmp162336))) + (__tmp162313 + (let ((__tmp162332 + (let ((__tmp162334 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162071 + (__tmp162333 (let () (declare (not safe)) - (cons _L159436_ '())))) + (cons _L159698_ '())))) (declare (not safe)) - (cons __tmp162072 __tmp162071))) - (__tmp162052 - (let ((__tmp162067 - (let ((__tmp162069 + (cons __tmp162334 __tmp162333))) + (__tmp162314 + (let ((__tmp162329 + (let ((__tmp162331 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162068 + (__tmp162330 (let () (declare (not safe)) - (cons _L159435_ '())))) + (cons _L159697_ '())))) (declare (not safe)) - (cons __tmp162069 __tmp162068))) - (__tmp162053 - (let ((__tmp162064 - (let ((__tmp162066 + (cons __tmp162331 __tmp162330))) + (__tmp162315 + (let ((__tmp162326 + (let ((__tmp162328 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162065 + (__tmp162327 (let () (declare (not safe)) - (cons _L159434_ '())))) + (cons _L159696_ '())))) (declare (not safe)) - (cons __tmp162066 __tmp162065))) - (__tmp162054 - (let ((__tmp162055 - (let ((__tmp162056 - (let ((__tmp162061 - (let ((__tmp162063 + (cons __tmp162328 __tmp162327))) + (__tmp162316 + (let ((__tmp162317 + (let ((__tmp162318 + (let ((__tmp162323 + (let ((__tmp162325 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162062 + (__tmp162324 (let () (declare (not safe)) - (cons _L159431_ '())))) + (cons _L159693_ '())))) (declare (not safe)) - (cons __tmp162063 __tmp162062))) - (__tmp162057 - (let ((__tmp162058 - (let ((__tmp162060 + (cons __tmp162325 __tmp162324))) + (__tmp162319 + (let ((__tmp162320 + (let ((__tmp162322 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162059 + (__tmp162321 (let () (declare (not safe)) - (cons _L159429_ '())))) + (cons _L159691_ '())))) (declare (not safe)) - (cons __tmp162060 __tmp162059)))) + (cons __tmp162322 __tmp162321)))) (declare (not safe)) - (cons __tmp162058 '())))) + (cons __tmp162320 '())))) (declare (not safe)) - (cons __tmp162061 __tmp162057)))) + (cons __tmp162323 __tmp162319)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L159432_ - __tmp162056)))) + (cons _L159694_ + __tmp162318)))) (declare (not safe)) - (cons _L159433_ __tmp162055)))) + (cons _L159695_ __tmp162317)))) (declare (not safe)) - (cons __tmp162064 __tmp162054)))) + (cons __tmp162326 __tmp162316)))) (declare (not safe)) - (cons __tmp162067 __tmp162053)))) + (cons __tmp162329 __tmp162315)))) (declare (not safe)) - (cons __tmp162070 __tmp162052)))) + (cons __tmp162332 __tmp162314)))) (declare (not safe)) - (cons __tmp162073 __tmp162051)))) + (cons __tmp162335 __tmp162313)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162076 - __tmp162050)))) + (cons __tmp162338 + __tmp162312)))) (declare (not safe)) - (cons __tmp162079 __tmp162049)))) + (cons __tmp162341 __tmp162311)))) (declare (not safe)) - (cons __tmp162082 __tmp162048))) - _hd159305159423_ - _hd159302159413_ - _hd159299159403_ - _hd159296159393_ - _hd159293159383_ - _hd159290159373_ - _hd159287159363_ - _hd159284159353_ - _hd159281159343_ - _hd159278159333_) - (_g159262159312_ _g159263159316_)))) - (_g159262159312_ _g159263159316_)))) + (cons __tmp162344 __tmp162310))) + _hd159567159685_ + _hd159564159675_ + _hd159561159665_ + _hd159558159655_ + _hd159555159645_ + _hd159552159635_ + _hd159549159625_ + _hd159546159615_ + _hd159543159605_ + _hd159540159595_) + (_g159524159574_ _g159525159578_)))) + (_g159524159574_ _g159525159578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g159262159312_ - _g159263159316_)))) - (_g159262159312_ - _g159263159316_)))) - (_g159262159312_ _g159263159316_)))) - (_g159262159312_ _g159263159316_)))) - (_g159262159312_ _g159263159316_)))) + (_g159524159574_ + _g159525159578_)))) + (_g159524159574_ + _g159525159578_)))) + (_g159524159574_ _g159525159578_)))) + (_g159524159574_ _g159525159578_)))) + (_g159524159574_ _g159525159578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g159262159312_ - _g159263159316_)))) - (_g159262159312_ - _g159263159316_)))) - (_g159262159312_ _g159263159316_)))) - (_g159262159312_ _g159263159316_)))) - (_g159262159312_ _g159263159316_))))) - (_g159261159479_ _$stx159258_)))) + (_g159524159574_ + _g159525159578_)))) + (_g159524159574_ + _g159525159578_)))) + (_g159524159574_ _g159525159578_)))) + (_g159524159574_ _g159525159578_)))) + (_g159524159574_ _g159525159578_))))) + (_g159523159741_ _$stx159520_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx159483_) - (let* ((_g159487159501_ - (lambda (_g159488159497_) + (lambda (_$stx159745_) + (let* ((_g159749159763_ + (lambda (_g159750159759_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159488159497_)))) - (_g159486159542_ - (lambda (_g159488159505_) + _g159750159759_)))) + (_g159748159804_ + (lambda (_g159750159767_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159488159505_)) - (let ((_e159492159508_ + (gx#stx-pair? _g159750159767_)) + (let ((_e159754159770_ (let () (declare (not safe)) - (gx#syntax-e _g159488159505_)))) - (let ((_hd159491159512_ + (gx#syntax-e _g159750159767_)))) + (let ((_hd159753159774_ (let () (declare (not safe)) - (##car _e159492159508_))) - (_tl159490159515_ + (##car _e159754159770_))) + (_tl159752159777_ (let () (declare (not safe)) - (##cdr _e159492159508_)))) + (##cdr _e159754159770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159490159515_)) - (let ((_e159495159518_ + (gx#stx-pair? _tl159752159777_)) + (let ((_e159757159780_ (let () (declare (not safe)) - (gx#syntax-e _tl159490159515_)))) - (let ((_hd159494159522_ + (gx#syntax-e _tl159752159777_)))) + (let ((_hd159756159784_ (let () (declare (not safe)) - (##car _e159495159518_))) - (_tl159493159525_ + (##car _e159757159780_))) + (_tl159755159787_ (let () (declare (not safe)) - (##cdr _e159495159518_)))) + (##cdr _e159757159780_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159493159525_)) - ((lambda (_L159528_) - (let ((__tmp162087 + (gx#stx-null? _tl159755159787_)) + ((lambda (_L159790_) + (let ((__tmp162349 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp162083 - (let ((__tmp162084 - (let ((__tmp162086 + (__tmp162345 + (let ((__tmp162346 + (let ((__tmp162348 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162085 + (__tmp162347 (let () (declare (not safe)) - (cons _L159528_ + (cons _L159790_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162086 __tmp162085)))) + (cons __tmp162348 __tmp162347)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162084 '())))) + (cons __tmp162346 '())))) (declare (not safe)) - (cons __tmp162087 __tmp162083))) - _hd159494159522_) - (_g159487159501_ _g159488159505_)))) - (_g159487159501_ _g159488159505_)))) - (_g159487159501_ _g159488159505_))))) - (_g159486159542_ _$stx159483_)))) + (cons __tmp162349 __tmp162345))) + _hd159756159784_) + (_g159749159763_ _g159750159767_)))) + (_g159749159763_ _g159750159767_)))) + (_g159749159763_ _g159750159767_))))) + (_g159748159804_ _$stx159745_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx159546_) - (let* ((_g159550159564_ - (lambda (_g159551159560_) + (lambda (_$stx159808_) + (let* ((_g159812159826_ + (lambda (_g159813159822_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159551159560_)))) - (_g159549159605_ - (lambda (_g159551159568_) + _g159813159822_)))) + (_g159811159867_ + (lambda (_g159813159830_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159551159568_)) - (let ((_e159555159571_ + (gx#stx-pair? _g159813159830_)) + (let ((_e159817159833_ (let () (declare (not safe)) - (gx#syntax-e _g159551159568_)))) - (let ((_hd159554159575_ + (gx#syntax-e _g159813159830_)))) + (let ((_hd159816159837_ (let () (declare (not safe)) - (##car _e159555159571_))) - (_tl159553159578_ + (##car _e159817159833_))) + (_tl159815159840_ (let () (declare (not safe)) - (##cdr _e159555159571_)))) + (##cdr _e159817159833_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159553159578_)) - (let ((_e159558159581_ + (gx#stx-pair? _tl159815159840_)) + (let ((_e159820159843_ (let () (declare (not safe)) - (gx#syntax-e _tl159553159578_)))) - (let ((_hd159557159585_ + (gx#syntax-e _tl159815159840_)))) + (let ((_hd159819159847_ (let () (declare (not safe)) - (##car _e159558159581_))) - (_tl159556159588_ + (##car _e159820159843_))) + (_tl159818159850_ (let () (declare (not safe)) - (##cdr _e159558159581_)))) + (##cdr _e159820159843_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159556159588_)) - ((lambda (_L159591_) - (let ((__tmp162092 + (gx#stx-null? _tl159818159850_)) + ((lambda (_L159853_) + (let ((__tmp162354 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp162088 - (let ((__tmp162089 - (let ((__tmp162091 + (__tmp162350 + (let ((__tmp162351 + (let ((__tmp162353 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162090 + (__tmp162352 (let () (declare (not safe)) - (cons _L159591_ + (cons _L159853_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162091 __tmp162090)))) + (cons __tmp162353 __tmp162352)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162089 '())))) + (cons __tmp162351 '())))) (declare (not safe)) - (cons __tmp162092 __tmp162088))) - _hd159557159585_) - (_g159550159564_ _g159551159568_)))) - (_g159550159564_ _g159551159568_)))) - (_g159550159564_ _g159551159568_))))) - (_g159549159605_ _$stx159546_)))) + (cons __tmp162354 __tmp162350))) + _hd159819159847_) + (_g159812159826_ _g159813159830_)))) + (_g159812159826_ _g159813159830_)))) + (_g159812159826_ _g159813159830_))))) + (_g159811159867_ _$stx159808_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx159609_) - (let* ((_g159613159635_ - (lambda (_g159614159631_) + (lambda (_$stx159871_) + (let* ((_g159875159897_ + (lambda (_g159876159893_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159614159631_)))) - (_g159612159704_ - (lambda (_g159614159639_) + _g159876159893_)))) + (_g159874159966_ + (lambda (_g159876159901_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159614159639_)) - (let ((_e159620159642_ + (gx#stx-pair? _g159876159901_)) + (let ((_e159882159904_ (let () (declare (not safe)) - (gx#syntax-e _g159614159639_)))) - (let ((_hd159619159646_ + (gx#syntax-e _g159876159901_)))) + (let ((_hd159881159908_ (let () (declare (not safe)) - (##car _e159620159642_))) - (_tl159618159649_ + (##car _e159882159904_))) + (_tl159880159911_ (let () (declare (not safe)) - (##cdr _e159620159642_)))) + (##cdr _e159882159904_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159618159649_)) - (let ((_e159623159652_ + (gx#stx-pair? _tl159880159911_)) + (let ((_e159885159914_ (let () (declare (not safe)) - (gx#syntax-e _tl159618159649_)))) - (let ((_hd159622159656_ + (gx#syntax-e _tl159880159911_)))) + (let ((_hd159884159918_ (let () (declare (not safe)) - (##car _e159623159652_))) - (_tl159621159659_ + (##car _e159885159914_))) + (_tl159883159921_ (let () (declare (not safe)) - (##cdr _e159623159652_)))) + (##cdr _e159885159914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159621159659_)) - (let ((_e159626159662_ + (gx#stx-pair? _tl159883159921_)) + (let ((_e159888159924_ (let () (declare (not safe)) - (gx#syntax-e _tl159621159659_)))) - (let ((_hd159625159666_ + (gx#syntax-e _tl159883159921_)))) + (let ((_hd159887159928_ (let () (declare (not safe)) - (##car _e159626159662_))) - (_tl159624159669_ + (##car _e159888159924_))) + (_tl159886159931_ (let () (declare (not safe)) - (##cdr _e159626159662_)))) + (##cdr _e159888159924_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159624159669_)) - (let ((_e159629159672_ + (gx#stx-pair? _tl159886159931_)) + (let ((_e159891159934_ (let () (declare (not safe)) (gx#syntax-e - _tl159624159669_)))) - (let ((_hd159628159676_ + _tl159886159931_)))) + (let ((_hd159890159938_ (let () (declare (not safe)) - (##car _e159629159672_))) - (_tl159627159679_ + (##car _e159891159934_))) + (_tl159889159941_ (let () (declare (not safe)) - (##cdr _e159629159672_)))) + (##cdr _e159891159934_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159627159679_)) - ((lambda (_L159682_ - _L159684_ - _L159685_) - (let ((__tmp162102 + _tl159889159941_)) + ((lambda (_L159944_ + _L159946_ + _L159947_) + (let ((__tmp162364 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp162093 - (let ((__tmp162099 - (let ((__tmp162101 + (__tmp162355 + (let ((__tmp162361 + (let ((__tmp162363 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162100 + (__tmp162362 (let () (declare (not safe)) - (cons _L159685_ '())))) + (cons _L159947_ '())))) (declare (not safe)) - (cons __tmp162101 __tmp162100))) - (__tmp162094 - (let ((__tmp162096 - (let ((__tmp162098 + (cons __tmp162363 __tmp162362))) + (__tmp162356 + (let ((__tmp162358 + (let ((__tmp162360 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162097 + (__tmp162359 (let () (declare (not safe)) - (cons _L159684_ '())))) + (cons _L159946_ '())))) (declare (not safe)) - (cons __tmp162098 __tmp162097))) - (__tmp162095 + (cons __tmp162360 __tmp162359))) + (__tmp162357 (let () (declare (not safe)) - (cons _L159682_ '())))) + (cons _L159944_ '())))) (declare (not safe)) - (cons __tmp162096 __tmp162095)))) + (cons __tmp162358 __tmp162357)))) (declare (not safe)) - (cons __tmp162099 __tmp162094)))) + (cons __tmp162361 __tmp162356)))) (declare (not safe)) - (cons __tmp162102 __tmp162093))) + (cons __tmp162364 __tmp162355))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd159628159676_ - _hd159625159666_ - _hd159622159656_) - (_g159613159635_ - _g159614159639_)))) - (_g159613159635_ - _g159614159639_)))) - (_g159613159635_ _g159614159639_)))) - (_g159613159635_ _g159614159639_)))) - (_g159613159635_ _g159614159639_))))) - (_g159612159704_ _$stx159609_)))) + _hd159890159938_ + _hd159887159928_ + _hd159884159918_) + (_g159875159897_ + _g159876159901_)))) + (_g159875159897_ + _g159876159901_)))) + (_g159875159897_ _g159876159901_)))) + (_g159875159897_ _g159876159901_)))) + (_g159875159897_ _g159876159901_))))) + (_g159874159966_ _$stx159871_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx159708_) - (let* ((_g159712159734_ - (lambda (_g159713159730_) + (lambda (_$stx159970_) + (let* ((_g159974159996_ + (lambda (_g159975159992_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159713159730_)))) - (_g159711159803_ - (lambda (_g159713159738_) + _g159975159992_)))) + (_g159973160065_ + (lambda (_g159975160000_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159713159738_)) - (let ((_e159719159741_ + (gx#stx-pair? _g159975160000_)) + (let ((_e159981160003_ (let () (declare (not safe)) - (gx#syntax-e _g159713159738_)))) - (let ((_hd159718159745_ + (gx#syntax-e _g159975160000_)))) + (let ((_hd159980160007_ (let () (declare (not safe)) - (##car _e159719159741_))) - (_tl159717159748_ + (##car _e159981160003_))) + (_tl159979160010_ (let () (declare (not safe)) - (##cdr _e159719159741_)))) + (##cdr _e159981160003_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159717159748_)) - (let ((_e159722159751_ + (gx#stx-pair? _tl159979160010_)) + (let ((_e159984160013_ (let () (declare (not safe)) - (gx#syntax-e _tl159717159748_)))) - (let ((_hd159721159755_ + (gx#syntax-e _tl159979160010_)))) + (let ((_hd159983160017_ (let () (declare (not safe)) - (##car _e159722159751_))) - (_tl159720159758_ + (##car _e159984160013_))) + (_tl159982160020_ (let () (declare (not safe)) - (##cdr _e159722159751_)))) + (##cdr _e159984160013_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159720159758_)) - (let ((_e159725159761_ + (gx#stx-pair? _tl159982160020_)) + (let ((_e159987160023_ (let () (declare (not safe)) - (gx#syntax-e _tl159720159758_)))) - (let ((_hd159724159765_ + (gx#syntax-e _tl159982160020_)))) + (let ((_hd159986160027_ (let () (declare (not safe)) - (##car _e159725159761_))) - (_tl159723159768_ + (##car _e159987160023_))) + (_tl159985160030_ (let () (declare (not safe)) - (##cdr _e159725159761_)))) + (##cdr _e159987160023_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159723159768_)) - (let ((_e159728159771_ + (gx#stx-pair? _tl159985160030_)) + (let ((_e159990160033_ (let () (declare (not safe)) (gx#syntax-e - _tl159723159768_)))) - (let ((_hd159727159775_ + _tl159985160030_)))) + (let ((_hd159989160037_ (let () (declare (not safe)) - (##car _e159728159771_))) - (_tl159726159778_ + (##car _e159990160033_))) + (_tl159988160040_ (let () (declare (not safe)) - (##cdr _e159728159771_)))) + (##cdr _e159990160033_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159726159778_)) - ((lambda (_L159781_ - _L159783_ - _L159784_) - (let ((__tmp162112 + _tl159988160040_)) + ((lambda (_L160043_ + _L160045_ + _L160046_) + (let ((__tmp162374 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp162103 - (let ((__tmp162109 - (let ((__tmp162111 + (__tmp162365 + (let ((__tmp162371 + (let ((__tmp162373 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162110 + (__tmp162372 (let () (declare (not safe)) - (cons _L159784_ '())))) + (cons _L160046_ '())))) (declare (not safe)) - (cons __tmp162111 __tmp162110))) - (__tmp162104 - (let ((__tmp162106 - (let ((__tmp162108 + (cons __tmp162373 __tmp162372))) + (__tmp162366 + (let ((__tmp162368 + (let ((__tmp162370 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162107 + (__tmp162369 (let () (declare (not safe)) - (cons _L159783_ '())))) + (cons _L160045_ '())))) (declare (not safe)) - (cons __tmp162108 __tmp162107))) - (__tmp162105 + (cons __tmp162370 __tmp162369))) + (__tmp162367 (let () (declare (not safe)) - (cons _L159781_ '())))) + (cons _L160043_ '())))) (declare (not safe)) - (cons __tmp162106 __tmp162105)))) + (cons __tmp162368 __tmp162367)))) (declare (not safe)) - (cons __tmp162109 __tmp162104)))) + (cons __tmp162371 __tmp162366)))) (declare (not safe)) - (cons __tmp162112 __tmp162103))) + (cons __tmp162374 __tmp162365))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd159727159775_ - _hd159724159765_ - _hd159721159755_) - (_g159712159734_ - _g159713159738_)))) - (_g159712159734_ - _g159713159738_)))) - (_g159712159734_ _g159713159738_)))) - (_g159712159734_ _g159713159738_)))) - (_g159712159734_ _g159713159738_))))) - (_g159711159803_ _$stx159708_)))) + _hd159989160037_ + _hd159986160027_ + _hd159983160017_) + (_g159974159996_ + _g159975160000_)))) + (_g159974159996_ + _g159975160000_)))) + (_g159974159996_ _g159975160000_)))) + (_g159974159996_ _g159975160000_)))) + (_g159974159996_ _g159975160000_))))) + (_g159973160065_ _$stx159970_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx159807_) - (let* ((___stx161622161623_ _$stx159807_) - (_g159815159883_ + (lambda (_$stx160069_) + (let* ((___stx161884161885_ _$stx160069_) + (_g160077160145_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161622161623_))))) - (let ((___kont161625161626_ - (lambda (_L160161_ _L160163_) - (let ((__tmp162133 + ___stx161884161885_))))) + (let ((___kont161887161888_ + (lambda (_L160423_ _L160425_) + (let ((__tmp162395 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp162113 - (let ((__tmp162129 - (let ((__tmp162132 + (__tmp162375 + (let ((__tmp162391 + (let ((__tmp162394 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162130 - (let ((__tmp162131 + (__tmp162392 + (let ((__tmp162393 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162131 '())))) + (cons __tmp162393 '())))) (declare (not safe)) - (cons __tmp162132 __tmp162130))) - (__tmp162114 - (let ((__tmp162126 - (let ((__tmp162128 + (cons __tmp162394 __tmp162392))) + (__tmp162376 + (let ((__tmp162388 + (let ((__tmp162390 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162127 + (__tmp162389 (let () (declare (not safe)) - (cons _L160163_ '())))) + (cons _L160425_ '())))) (declare (not safe)) - (cons __tmp162128 __tmp162127))) - (__tmp162115 - (let ((__tmp162116 - (let ((__tmp162117 - (let ((__tmp162118 - (let ((__tmp162125 + (cons __tmp162390 __tmp162389))) + (__tmp162377 + (let ((__tmp162378 + (let ((__tmp162379 + (let ((__tmp162380 + (let ((__tmp162387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162119 - (let ((__tmp162120 - (let ((__tmp162124 + (__tmp162381 + (let ((__tmp162382 + (let ((__tmp162386 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162121 - (let ((__tmp162122 - (let ((__tmp162123 + (__tmp162383 + (let ((__tmp162384 + (let ((__tmp162385 (let () (declare (not safe)) - (cons _L160161_ '())))) + (cons _L160423_ '())))) (declare (not safe)) - (cons 'inline: __tmp162123)))) + (cons 'inline: __tmp162385)))) (declare (not safe)) - (cons _L160163_ __tmp162122)))) + (cons _L160425_ __tmp162384)))) (declare (not safe)) - (cons __tmp162124 __tmp162121)))) + (cons __tmp162386 __tmp162383)))) (declare (not safe)) - (cons __tmp162120 '())))) + (cons __tmp162382 '())))) (declare (not safe)) - (cons __tmp162125 __tmp162119)))) + (cons __tmp162387 __tmp162381)))) (declare (not safe)) - (cons __tmp162118 '())))) + (cons __tmp162380 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L160161_ __tmp162117)))) + (cons _L160423_ __tmp162379)))) (declare (not safe)) - (cons '#f __tmp162116)))) + (cons '#f __tmp162378)))) (declare (not safe)) - (cons __tmp162126 __tmp162115)))) + (cons __tmp162388 __tmp162377)))) (declare (not safe)) - (cons __tmp162129 __tmp162114)))) + (cons __tmp162391 __tmp162376)))) (declare (not safe)) - (cons __tmp162133 __tmp162113)))) - (___kont161627161628_ - (lambda (_L160092_ _L160094_) - (let ((__tmp162134 - (let ((__tmp162135 - (let ((__tmp162136 + (cons __tmp162395 __tmp162375)))) + (___kont161889161890_ + (lambda (_L160354_ _L160356_) + (let ((__tmp162396 + (let ((__tmp162397 + (let ((__tmp162398 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L160092_ __tmp162136)))) + (cons _L160354_ __tmp162398)))) (declare (not safe)) - (cons 'primitive: __tmp162135)))) + (cons 'primitive: __tmp162397)))) (declare (not safe)) - (cons _L160094_ __tmp162134)))) - (___kont161629161630_ - (lambda (_L160031_ _L160033_) - (let ((__tmp162150 + (cons _L160356_ __tmp162396)))) + (___kont161891161892_ + (lambda (_L160293_ _L160295_) + (let ((__tmp162412 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp162137 - (let ((__tmp162146 - (let ((__tmp162149 + (__tmp162399 + (let ((__tmp162408 + (let ((__tmp162411 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162147 - (let ((__tmp162148 + (__tmp162409 + (let ((__tmp162410 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162148 '())))) + (cons __tmp162410 '())))) (declare (not safe)) - (cons __tmp162149 __tmp162147))) - (__tmp162138 - (let ((__tmp162143 - (let ((__tmp162145 + (cons __tmp162411 __tmp162409))) + (__tmp162400 + (let ((__tmp162405 + (let ((__tmp162407 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162144 + (__tmp162406 (let () (declare (not safe)) - (cons _L160033_ '())))) + (cons _L160295_ '())))) (declare (not safe)) - (cons __tmp162145 __tmp162144))) - (__tmp162139 - (let ((__tmp162140 - (let ((__tmp162142 + (cons __tmp162407 __tmp162406))) + (__tmp162401 + (let ((__tmp162402 + (let ((__tmp162404 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162141 + (__tmp162403 (let () (declare (not safe)) - (cons _L160031_ '())))) + (cons _L160293_ '())))) (declare (not safe)) - (cons __tmp162142 - __tmp162141)))) + (cons __tmp162404 + __tmp162403)))) (declare (not safe)) - (cons __tmp162140 '())))) + (cons __tmp162402 '())))) (declare (not safe)) - (cons __tmp162143 __tmp162139)))) + (cons __tmp162405 __tmp162401)))) (declare (not safe)) - (cons __tmp162146 __tmp162138)))) + (cons __tmp162408 __tmp162400)))) (declare (not safe)) - (cons __tmp162150 __tmp162137)))) - (___kont161631161632_ - (lambda (_L159963_ _L159965_) - (let ((__tmp162164 + (cons __tmp162412 __tmp162399)))) + (___kont161893161894_ + (lambda (_L160225_ _L160227_) + (let ((__tmp162426 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp162151 - (let ((__tmp162160 - (let ((__tmp162163 + (__tmp162413 + (let ((__tmp162422 + (let ((__tmp162425 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162161 - (let ((__tmp162162 + (__tmp162423 + (let ((__tmp162424 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162162 '())))) + (cons __tmp162424 '())))) (declare (not safe)) - (cons __tmp162163 __tmp162161))) - (__tmp162152 - (let ((__tmp162157 - (let ((__tmp162159 + (cons __tmp162425 __tmp162423))) + (__tmp162414 + (let ((__tmp162419 + (let ((__tmp162421 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162158 + (__tmp162420 (let () (declare (not safe)) - (cons _L159965_ '())))) + (cons _L160227_ '())))) (declare (not safe)) - (cons __tmp162159 __tmp162158))) - (__tmp162153 - (let ((__tmp162154 - (let ((__tmp162156 + (cons __tmp162421 __tmp162420))) + (__tmp162415 + (let ((__tmp162416 + (let ((__tmp162418 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162155 + (__tmp162417 (let () (declare (not safe)) - (cons _L159963_ '())))) + (cons _L160225_ '())))) (declare (not safe)) - (cons __tmp162156 - __tmp162155)))) + (cons __tmp162418 + __tmp162417)))) (declare (not safe)) - (cons __tmp162154 '())))) + (cons __tmp162416 '())))) (declare (not safe)) - (cons __tmp162157 __tmp162153)))) + (cons __tmp162419 __tmp162415)))) (declare (not safe)) - (cons __tmp162160 __tmp162152)))) + (cons __tmp162422 __tmp162414)))) (declare (not safe)) - (cons __tmp162164 __tmp162151)))) - (___kont161633161634_ - (lambda (_L159910_ _L159912_) - (let ((__tmp162165 - (let ((__tmp162166 + (cons __tmp162426 __tmp162413)))) + (___kont161895161896_ + (lambda (_L160172_ _L160174_) + (let ((__tmp162427 + (let ((__tmp162428 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L159910_ __tmp162166)))) + (cons _L160172_ __tmp162428)))) (declare (not safe)) - (cons _L159912_ __tmp162165))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx161622161623_)) - (let ((_e159821160117_ + (cons _L160174_ __tmp162427))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx161884161885_)) + (let ((_e160083160379_ (let () (declare (not safe)) - (gx#syntax-e ___stx161622161623_)))) - (let ((_tl159819160124_ - (let () (declare (not safe)) (##cdr _e159821160117_))) - (_hd159820160121_ - (let () (declare (not safe)) (##car _e159821160117_)))) + (gx#syntax-e ___stx161884161885_)))) + (let ((_tl160081160386_ + (let () (declare (not safe)) (##cdr _e160083160379_))) + (_hd160082160383_ + (let () (declare (not safe)) (##car _e160083160379_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159819160124_)) - (let ((_e159824160127_ + (gx#stx-pair? _tl160081160386_)) + (let ((_e160086160389_ (let () (declare (not safe)) - (gx#syntax-e _tl159819160124_)))) - (let ((_tl159822160134_ + (gx#syntax-e _tl160081160386_)))) + (let ((_tl160084160396_ (let () (declare (not safe)) - (##cdr _e159824160127_))) - (_hd159823160131_ + (##cdr _e160086160389_))) + (_hd160085160393_ (let () (declare (not safe)) - (##car _e159824160127_)))) + (##car _e160086160389_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159822160134_)) - (let ((_e159827160137_ + (gx#stx-pair? _tl160084160396_)) + (let ((_e160089160399_ (let () (declare (not safe)) - (gx#syntax-e _tl159822160134_)))) - (let ((_tl159825160144_ + (gx#syntax-e _tl160084160396_)))) + (let ((_tl160087160406_ (let () (declare (not safe)) - (##cdr _e159827160137_))) - (_hd159826160141_ + (##cdr _e160089160399_))) + (_hd160088160403_ (let () (declare (not safe)) - (##car _e159827160137_)))) + (##car _e160089160399_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159826160141_)) - (let ((_e159828160147_ + (gx#stx-datum? _hd160088160403_)) + (let ((_e160090160409_ (let () (declare (not safe)) - (gx#stx-e _hd159826160141_)))) + (gx#stx-e _hd160088160403_)))) (if (let () (declare (not safe)) - (equal? _e159828160147_ + (equal? _e160090160409_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159825160144_)) - (let ((_e159831160151_ + _tl160087160406_)) + (let ((_e160093160413_ (let () (declare (not safe)) (gx#syntax-e - _tl159825160144_)))) - (let ((_tl159829160158_ + _tl160087160406_)))) + (let ((_tl160091160420_ (let () (declare (not safe)) - (##cdr _e159831160151_))) - (_hd159830160155_ + (##cdr _e160093160413_))) + (_hd160092160417_ (let () (declare (not safe)) - (##car _e159831160151_)))) + (##car _e160093160413_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159829160158_)) - (___kont161625161626_ - _hd159830160155_ - _hd159823160131_) + _tl160091160420_)) + (___kont161887161888_ + _hd160092160417_ + _hd160085160393_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd159823160131_)) - (let ((_e159840160078_ + _hd160085160393_)) + (let ((_e160102160340_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd159823160131_)))) + (gx#stx-e _hd160085160393_)))) (declare (not safe)) - (_g159815159883_)) - (let () (declare (not safe)) (_g159815159883_)))))) + (_g160077160145_)) + (let () (declare (not safe)) (_g160077160145_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd159823160131_)) - (let ((_e159840160078_ + _hd160085160393_)) + (let ((_e160102160340_ (let () (declare (not safe)) (gx#stx-e - _hd159823160131_)))) + _hd160085160393_)))) (if (let () (declare (not safe)) - (equal? _e159840160078_ + (equal? _e160102160340_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl159825160144_)) - (___kont161627161628_ _hd159826160141_ _hd159820160121_) - (let () (declare (not safe)) (_g159815159883_))) + (gx#stx-null? _tl160087160406_)) + (___kont161889161890_ _hd160088160403_ _hd160082160383_) + (let () (declare (not safe)) (_g160077160145_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159825160144_)) - (___kont161631161632_ _hd159826160141_ _hd159823160131_) - (let () (declare (not safe)) (_g159815159883_))))) + (gx#stx-null? _tl160087160406_)) + (___kont161893161894_ _hd160088160403_ _hd160085160393_) + (let () (declare (not safe)) (_g160077160145_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159825160144_)) - (___kont161631161632_ - _hd159826160141_ - _hd159823160131_) + _tl160087160406_)) + (___kont161893161894_ + _hd160088160403_ + _hd160085160393_) (let () (declare (not safe)) - (_g159815159883_))))) + (_g160077160145_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd159823160131_)) - (let ((_e159840160078_ + _hd160085160393_)) + (let ((_e160102160340_ (let () (declare (not safe)) (gx#stx-e - _hd159823160131_)))) + _hd160085160393_)))) (if (let () (declare (not safe)) - (equal? _e159840160078_ + (equal? _e160102160340_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl159825160144_)) - (___kont161627161628_ - _hd159826160141_ - _hd159820160121_) + _tl160087160406_)) + (___kont161889161890_ + _hd160088160403_ + _hd160082160383_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl159825160144_)) - (let ((_e159858160021_ + (gx#stx-pair? _tl160087160406_)) + (let ((_e160120160283_ (let () (declare (not safe)) - (gx#syntax-e _tl159825160144_)))) - (let ((_tl159856160028_ + (gx#syntax-e _tl160087160406_)))) + (let ((_tl160118160290_ (let () (declare (not safe)) - (##cdr _e159858160021_))) - (_hd159857160025_ + (##cdr _e160120160283_))) + (_hd160119160287_ (let () (declare (not safe)) - (##car _e159858160021_)))) + (##car _e160120160283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159856160028_)) - (___kont161629161630_ - _hd159857160025_ - _hd159826160141_) + (gx#stx-null? _tl160118160290_)) + (___kont161891161892_ + _hd160119160287_ + _hd160088160403_) (let () (declare (not safe)) - (_g159815159883_))))) - (let () (declare (not safe)) (_g159815159883_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl159825160144_)) - (___kont161631161632_ _hd159826160141_ _hd159823160131_) - (let () (declare (not safe)) (_g159815159883_))))) + (_g160077160145_))))) + (let () (declare (not safe)) (_g160077160145_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl160087160406_)) + (___kont161893161894_ _hd160088160403_ _hd160085160393_) + (let () (declare (not safe)) (_g160077160145_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159825160144_)) - (___kont161631161632_ - _hd159826160141_ - _hd159823160131_) + _tl160087160406_)) + (___kont161893161894_ + _hd160088160403_ + _hd160085160393_) (let () (declare (not safe)) - (_g159815159883_)))))) + (_g160077160145_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159823160131_)) - (let ((_e159840160078_ + (gx#stx-datum? _hd160085160393_)) + (let ((_e160102160340_ (let () (declare (not safe)) (gx#stx-e - _hd159823160131_)))) + _hd160085160393_)))) (if (let () (declare (not safe)) - (equal? _e159840160078_ + (equal? _e160102160340_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl159825160144_)) - (___kont161627161628_ - _hd159826160141_ - _hd159820160121_) + _tl160087160406_)) + (___kont161889161890_ + _hd160088160403_ + _hd160082160383_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159825160144_)) - (let ((_e159858160021_ + _tl160087160406_)) + (let ((_e160120160283_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl159825160144_)))) - (let ((_tl159856160028_ - (let () (declare (not safe)) (##cdr _e159858160021_))) - (_hd159857160025_ + (gx#syntax-e _tl160087160406_)))) + (let ((_tl160118160290_ + (let () (declare (not safe)) (##cdr _e160120160283_))) + (_hd160119160287_ (let () (declare (not safe)) - (##car _e159858160021_)))) + (##car _e160120160283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159856160028_)) - (___kont161629161630_ - _hd159857160025_ - _hd159826160141_) - (let () (declare (not safe)) (_g159815159883_))))) - (let () (declare (not safe)) (_g159815159883_)))) + (gx#stx-null? _tl160118160290_)) + (___kont161891161892_ + _hd160119160287_ + _hd160088160403_) + (let () (declare (not safe)) (_g160077160145_))))) + (let () (declare (not safe)) (_g160077160145_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159825160144_)) - (___kont161631161632_ - _hd159826160141_ - _hd159823160131_) + _tl160087160406_)) + (___kont161893161894_ + _hd160088160403_ + _hd160085160393_) (let () (declare (not safe)) - (_g159815159883_))))) + (_g160077160145_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159825160144_)) - (___kont161631161632_ - _hd159826160141_ - _hd159823160131_) + _tl160087160406_)) + (___kont161893161894_ + _hd160088160403_ + _hd160085160393_) (let () (declare (not safe)) - (_g159815159883_))))))) + (_g160077160145_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159823160131_)) - (let ((_e159840160078_ + (gx#stx-datum? _hd160085160393_)) + (let ((_e160102160340_ (let () (declare (not safe)) - (gx#stx-e _hd159823160131_)))) + (gx#stx-e _hd160085160393_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159822160134_)) - (___kont161633161634_ - _hd159823160131_ - _hd159820160121_) + (gx#stx-null? _tl160084160396_)) + (___kont161895161896_ + _hd160085160393_ + _hd160082160383_) (let () (declare (not safe)) - (_g159815159883_)))) + (_g160077160145_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159822160134_)) - (___kont161633161634_ - _hd159823160131_ - _hd159820160121_) + (gx#stx-null? _tl160084160396_)) + (___kont161895161896_ + _hd160085160393_ + _hd160082160383_) (let () (declare (not safe)) - (_g159815159883_))))))) - (let () (declare (not safe)) (_g159815159883_))))) - (let () (declare (not safe)) (_g159815159883_))))))) + (_g160077160145_))))))) + (let () (declare (not safe)) (_g160077160145_))))) + (let () (declare (not safe)) (_g160077160145_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx160185_) - (let* ((___stx161762161763_ _$stx160185_) - (_g160190160245_ + (lambda (_$stx160447_) + (let* ((___stx162024162025_ _$stx160447_) + (_g160452160507_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161762161763_))))) - (let ((___kont161765161766_ - (lambda (_L160430_ _L160432_) - (let ((__tmp162182 + ___stx162024162025_))))) + (let ((___kont162027162028_ + (lambda (_L160692_ _L160694_) + (let ((__tmp162444 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp162167 - (let ((__tmp162178 - (let ((__tmp162181 + (__tmp162429 + (let ((__tmp162440 + (let ((__tmp162443 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162179 - (let ((__tmp162180 + (__tmp162441 + (let ((__tmp162442 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp162180 '())))) + (cons __tmp162442 '())))) (declare (not safe)) - (cons __tmp162181 __tmp162179))) - (__tmp162168 - (let ((__tmp162169 - (let ((__tmp162177 + (cons __tmp162443 __tmp162441))) + (__tmp162430 + (let ((__tmp162431 + (let ((__tmp162439 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp162170 + (__tmp162432 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L160430_ - _L160432_)) - (let ((__tmp162171 - (lambda (_g160449160453_ - _g160450160456_ - _g160451160458_) - (let ((__tmp162172 - (let ((__tmp162176 + _L160692_ + _L160694_)) + (let ((__tmp162433 + (lambda (_g160711160715_ + _g160712160718_ + _g160713160720_) + (let ((__tmp162434 + (let ((__tmp162438 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162173 - (let ((__tmp162174 - (let ((__tmp162175 + (__tmp162435 + (let ((__tmp162436 + (let ((__tmp162437 (let () (declare (not safe)) - (cons _g160449160453_ '())))) + (cons _g160711160715_ '())))) (declare (not safe)) - (cons _g160450160456_ __tmp162175)))) + (cons _g160712160718_ __tmp162437)))) (declare (not safe)) - (cons 'primitive: __tmp162174)))) + (cons 'primitive: __tmp162436)))) (declare (not safe)) - (cons __tmp162176 __tmp162173)))) + (cons __tmp162438 __tmp162435)))) (declare (not safe)) - (cons __tmp162172 _g160451160458_))))) + (cons __tmp162434 _g160713160720_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp162171 + (foldr2 __tmp162433 '() - _L160430_ - _L160432_))))) + _L160692_ + _L160694_))))) (declare (not safe)) - (cons __tmp162177 __tmp162170)))) + (cons __tmp162439 __tmp162432)))) (declare (not safe)) - (cons __tmp162169 '())))) + (cons __tmp162431 '())))) (declare (not safe)) - (cons __tmp162178 __tmp162168)))) + (cons __tmp162440 __tmp162430)))) (declare (not safe)) - (cons __tmp162182 __tmp162167)))) - (___kont161769161770_ - (lambda (_L160316_ _L160318_) - (let ((__tmp162197 + (cons __tmp162444 __tmp162429)))) + (___kont162031162032_ + (lambda (_L160578_ _L160580_) + (let ((__tmp162459 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp162183 - (let ((__tmp162193 - (let ((__tmp162196 + (__tmp162445 + (let ((__tmp162455 + (let ((__tmp162458 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162194 - (let ((__tmp162195 + (__tmp162456 + (let ((__tmp162457 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp162195 '())))) + (cons __tmp162457 '())))) (declare (not safe)) - (cons __tmp162196 __tmp162194))) - (__tmp162184 - (let ((__tmp162185 - (let ((__tmp162192 + (cons __tmp162458 __tmp162456))) + (__tmp162446 + (let ((__tmp162447 + (let ((__tmp162454 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp162186 + (__tmp162448 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L160316_ - _L160318_)) - (let ((__tmp162187 - (lambda (_g160333160337_ - _g160334160340_ - _g160335160342_) - (let ((__tmp162188 - (let ((__tmp162191 + _L160578_ + _L160580_)) + (let ((__tmp162449 + (lambda (_g160595160599_ + _g160596160602_ + _g160597160604_) + (let ((__tmp162450 + (let ((__tmp162453 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162189 - (let ((__tmp162190 + (__tmp162451 + (let ((__tmp162452 (let () (declare (not safe)) - (cons _g160333160337_ '())))) + (cons _g160595160599_ '())))) (declare (not safe)) - (cons _g160334160340_ __tmp162190)))) + (cons _g160596160602_ __tmp162452)))) (declare (not safe)) - (cons __tmp162191 __tmp162189)))) + (cons __tmp162453 __tmp162451)))) (declare (not safe)) - (cons __tmp162188 _g160335160342_))))) + (cons __tmp162450 _g160597160604_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp162187 + (foldr2 __tmp162449 '() - _L160316_ - _L160318_))))) + _L160578_ + _L160580_))))) (declare (not safe)) - (cons __tmp162192 __tmp162186)))) + (cons __tmp162454 __tmp162448)))) (declare (not safe)) - (cons __tmp162185 '())))) + (cons __tmp162447 '())))) (declare (not safe)) - (cons __tmp162193 __tmp162184)))) + (cons __tmp162455 __tmp162446)))) (declare (not safe)) - (cons __tmp162197 __tmp162183))))) - (let* ((___match161813161814_ - (lambda (_e160222160252_ - _hd160221160256_ - _tl160220160259_ - ___splice161771161772_ - _target160223160262_ - _tl160225160265_) - (letrec ((_loop160226160268_ - (lambda (_hd160224160272_ - _dispatch160230160275_ - _arity160231160277_) + (cons __tmp162459 __tmp162445))))) + (let* ((___match162075162076_ + (lambda (_e160484160514_ + _hd160483160518_ + _tl160482160521_ + ___splice162033162034_ + _target160485160524_ + _tl160487160527_) + (letrec ((_loop160488160530_ + (lambda (_hd160486160534_ + _dispatch160492160537_ + _arity160493160539_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160224160272_)) - (let ((_e160227160280_ + (gx#stx-pair? _hd160486160534_)) + (let ((_e160489160542_ (let () (declare (not safe)) - (gx#syntax-e _hd160224160272_)))) - (let ((_lp-tl160229160287_ + (gx#syntax-e _hd160486160534_)))) + (let ((_lp-tl160491160549_ (let () (declare (not safe)) - (##cdr _e160227160280_))) - (_lp-hd160228160284_ + (##cdr _e160489160542_))) + (_lp-hd160490160546_ (let () (declare (not safe)) - (##car _e160227160280_)))) + (##car _e160489160542_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd160228160284_)) - (let ((_e160236160290_ + _lp-hd160490160546_)) + (let ((_e160498160552_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd160228160284_)))) - (let ((_tl160234160297_ + _lp-hd160490160546_)))) + (let ((_tl160496160559_ (let () (declare (not safe)) - (##cdr _e160236160290_))) - (_hd160235160294_ + (##cdr _e160498160552_))) + (_hd160497160556_ (let () (declare (not safe)) - (##car _e160236160290_)))) + (##car _e160498160552_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160234160297_)) - (let ((_e160239160300_ + _tl160496160559_)) + (let ((_e160501160562_ (let () (declare (not safe)) (gx#syntax-e - _tl160234160297_)))) - (let ((_tl160237160307_ + _tl160496160559_)))) + (let ((_tl160499160569_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e160239160300_))) - (_hd160238160304_ - (let () (declare (not safe)) (##car _e160239160300_)))) + (##cdr _e160501160562_))) + (_hd160500160566_ + (let () (declare (not safe)) (##car _e160501160562_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160237160307_)) - (_loop160226160268_ - _lp-tl160229160287_ + (gx#stx-null? _tl160499160569_)) + (_loop160488160530_ + _lp-tl160491160549_ (let () (declare (not safe)) - (cons _hd160238160304_ _dispatch160230160275_)) + (cons _hd160500160566_ _dispatch160492160537_)) (let () (declare (not safe)) - (cons _hd160235160294_ _arity160231160277_))) - (let () (declare (not safe)) (_g160190160245_))))) + (cons _hd160497160556_ _arity160493160539_))) + (let () (declare (not safe)) (_g160452160507_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g160190160245_))))) + (_g160452160507_))))) (let () (declare (not safe)) - (_g160190160245_))))) - (let ((_arity160233160313_ - (reverse _arity160231160277_)) - (_dispatch160232160310_ - (reverse _dispatch160230160275_))) - (___kont161769161770_ - _dispatch160232160310_ - _arity160233160313_)))))) - (_loop160226160268_ _target160223160262_ '() '())))) - (___match161805161806_ - (lambda (_e160222160252_ _hd160221160256_ _tl160220160259_) + (_g160452160507_))))) + (let ((_arity160495160575_ + (reverse _arity160493160539_)) + (_dispatch160494160572_ + (reverse _dispatch160492160537_))) + (___kont162031162032_ + _dispatch160494160572_ + _arity160495160575_)))))) + (_loop160488160530_ _target160485160524_ '() '())))) + (___match162067162068_ + (lambda (_e160484160514_ _hd160483160518_ _tl160482160521_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160220160259_)) - (let ((___splice161771161772_ + (gx#stx-pair/null? _tl160482160521_)) + (let ((___splice162033162034_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160220160259_ + _tl160482160521_ '0)))) - (let ((_tl160225160265_ + (let ((_tl160487160527_ (let () (declare (not safe)) - (##vector-ref ___splice161771161772_ '1))) - (_target160223160262_ + (##vector-ref ___splice162033162034_ '1))) + (_target160485160524_ (let () (declare (not safe)) - (##vector-ref ___splice161771161772_ '0)))) + (##vector-ref ___splice162033162034_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160225160265_)) - (___match161813161814_ - _e160222160252_ - _hd160221160256_ - _tl160220160259_ - ___splice161771161772_ - _target160223160262_ - _tl160225160265_) + (gx#stx-null? _tl160487160527_)) + (___match162075162076_ + _e160484160514_ + _hd160483160518_ + _tl160482160521_ + ___splice162033162034_ + _target160485160524_ + _tl160487160527_) (let () (declare (not safe)) - (_g160190160245_))))) - (let () (declare (not safe)) (_g160190160245_))))) - (___match161799161800_ - (lambda (_e160196160352_ - _hd160195160356_ - _tl160194160359_ - _e160199160362_ - _hd160198160366_ - _tl160197160369_ - _e160200160372_ - ___splice161767161768_ - _target160201160376_ - _tl160203160379_) - (letrec ((_loop160204160382_ - (lambda (_hd160202160386_ - _dispatch160208160389_ - _arity160209160391_) + (_g160452160507_))))) + (let () (declare (not safe)) (_g160452160507_))))) + (___match162061162062_ + (lambda (_e160458160614_ + _hd160457160618_ + _tl160456160621_ + _e160461160624_ + _hd160460160628_ + _tl160459160631_ + _e160462160634_ + ___splice162029162030_ + _target160463160638_ + _tl160465160641_) + (letrec ((_loop160466160644_ + (lambda (_hd160464160648_ + _dispatch160470160651_ + _arity160471160653_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160202160386_)) - (let ((_e160205160394_ + (gx#stx-pair? _hd160464160648_)) + (let ((_e160467160656_ (let () (declare (not safe)) - (gx#syntax-e _hd160202160386_)))) - (let ((_lp-tl160207160401_ + (gx#syntax-e _hd160464160648_)))) + (let ((_lp-tl160469160663_ (let () (declare (not safe)) - (##cdr _e160205160394_))) - (_lp-hd160206160398_ + (##cdr _e160467160656_))) + (_lp-hd160468160660_ (let () (declare (not safe)) - (##car _e160205160394_)))) + (##car _e160467160656_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd160206160398_)) - (let ((_e160214160404_ + _lp-hd160468160660_)) + (let ((_e160476160666_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd160206160398_)))) - (let ((_tl160212160411_ + _lp-hd160468160660_)))) + (let ((_tl160474160673_ (let () (declare (not safe)) - (##cdr _e160214160404_))) - (_hd160213160408_ + (##cdr _e160476160666_))) + (_hd160475160670_ (let () (declare (not safe)) - (##car _e160214160404_)))) + (##car _e160476160666_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160212160411_)) - (let ((_e160217160414_ + _tl160474160673_)) + (let ((_e160479160676_ (let () (declare (not safe)) (gx#syntax-e - _tl160212160411_)))) - (let ((_tl160215160421_ + _tl160474160673_)))) + (let ((_tl160477160683_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e160217160414_))) - (_hd160216160418_ - (let () (declare (not safe)) (##car _e160217160414_)))) + (##cdr _e160479160676_))) + (_hd160478160680_ + (let () (declare (not safe)) (##car _e160479160676_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160215160421_)) - (_loop160204160382_ - _lp-tl160207160401_ + (gx#stx-null? _tl160477160683_)) + (_loop160466160644_ + _lp-tl160469160663_ (let () (declare (not safe)) - (cons _hd160216160418_ _dispatch160208160389_)) + (cons _hd160478160680_ _dispatch160470160651_)) (let () (declare (not safe)) - (cons _hd160213160408_ _arity160209160391_))) - (___match161805161806_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_)))) + (cons _hd160475160670_ _arity160471160653_))) + (___match162067162068_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match161805161806_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_)))) - (___match161805161806_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_)))) - (let ((_arity160211160427_ - (reverse _arity160209160391_)) - (_dispatch160210160424_ - (reverse _dispatch160208160389_))) - (___kont161765161766_ - _dispatch160210160424_ - _arity160211160427_)))))) - (_loop160204160382_ _target160201160376_ '() '()))))) + (___match162067162068_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_)))) + (___match162067162068_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_)))) + (let ((_arity160473160689_ + (reverse _arity160471160653_)) + (_dispatch160472160686_ + (reverse _dispatch160470160651_))) + (___kont162027162028_ + _dispatch160472160686_ + _arity160473160689_)))))) + (_loop160466160644_ _target160463160638_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161762161763_)) - (let ((_e160196160352_ + (gx#stx-pair? ___stx162024162025_)) + (let ((_e160458160614_ (let () (declare (not safe)) - (gx#syntax-e ___stx161762161763_)))) - (let ((_tl160194160359_ - (let () (declare (not safe)) (##cdr _e160196160352_))) - (_hd160195160356_ + (gx#syntax-e ___stx162024162025_)))) + (let ((_tl160456160621_ + (let () (declare (not safe)) (##cdr _e160458160614_))) + (_hd160457160618_ (let () (declare (not safe)) - (##car _e160196160352_)))) + (##car _e160458160614_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160194160359_)) - (let ((_e160199160362_ + (gx#stx-pair? _tl160456160621_)) + (let ((_e160461160624_ (let () (declare (not safe)) - (gx#syntax-e _tl160194160359_)))) - (let ((_tl160197160369_ + (gx#syntax-e _tl160456160621_)))) + (let ((_tl160459160631_ (let () (declare (not safe)) - (##cdr _e160199160362_))) - (_hd160198160366_ + (##cdr _e160461160624_))) + (_hd160460160628_ (let () (declare (not safe)) - (##car _e160199160362_)))) + (##car _e160461160624_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd160198160366_)) - (let ((_e160200160372_ + (gx#stx-datum? _hd160460160628_)) + (let ((_e160462160634_ (let () (declare (not safe)) - (gx#stx-e _hd160198160366_)))) + (gx#stx-e _hd160460160628_)))) (if (let () (declare (not safe)) - (equal? _e160200160372_ 'primitive:)) + (equal? _e160462160634_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160197160369_)) - (let ((___splice161767161768_ + _tl160459160631_)) + (let ((___splice162029162030_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160197160369_ + _tl160459160631_ '0)))) - (let ((_tl160203160379_ + (let ((_tl160465160641_ (let () (declare (not safe)) (##vector-ref - ___splice161767161768_ + ___splice162029162030_ '1))) - (_target160201160376_ + (_target160463160638_ (let () (declare (not safe)) (##vector-ref - ___splice161767161768_ + ___splice162029162030_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160203160379_)) - (___match161799161800_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_ - _e160199160362_ - _hd160198160366_ - _tl160197160369_ - _e160200160372_ - ___splice161767161768_ - _target160201160376_ - _tl160203160379_) + _tl160465160641_)) + (___match162061162062_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_ + _e160461160624_ + _hd160460160628_ + _tl160459160631_ + _e160462160634_ + ___splice162029162030_ + _target160463160638_ + _tl160465160641_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160194160359_)) - (let ((___splice161771161772_ + _tl160456160621_)) + (let ((___splice162033162034_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160194160359_ '0)))) - (let ((_tl160225160265_ + (gx#syntax-split-splice _tl160456160621_ '0)))) + (let ((_tl160487160527_ (let () (declare (not safe)) - (##vector-ref ___splice161771161772_ '1))) - (_target160223160262_ + (##vector-ref ___splice162033162034_ '1))) + (_target160485160524_ (let () (declare (not safe)) - (##vector-ref ___splice161771161772_ '0)))) + (##vector-ref ___splice162033162034_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160225160265_)) - (___match161813161814_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_ - ___splice161771161772_ - _target160223160262_ - _tl160225160265_) - (let () (declare (not safe)) (_g160190160245_))))) - (let () (declare (not safe)) (_g160190160245_)))))) + (gx#stx-null? _tl160487160527_)) + (___match162075162076_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_ + ___splice162033162034_ + _target160485160524_ + _tl160487160527_) + (let () (declare (not safe)) (_g160452160507_))))) + (let () (declare (not safe)) (_g160452160507_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160194160359_)) - (let ((___splice161771161772_ + _tl160456160621_)) + (let ((___splice162033162034_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160194160359_ + _tl160456160621_ '0)))) - (let ((_tl160225160265_ + (let ((_tl160487160527_ (let () (declare (not safe)) (##vector-ref - ___splice161771161772_ + ___splice162033162034_ '1))) - (_target160223160262_ + (_target160485160524_ (let () (declare (not safe)) (##vector-ref - ___splice161771161772_ + ___splice162033162034_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160225160265_)) - (___match161813161814_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_ - ___splice161771161772_ - _target160223160262_ - _tl160225160265_) + _tl160487160527_)) + (___match162075162076_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_ + ___splice162033162034_ + _target160485160524_ + _tl160487160527_) (let () (declare (not safe)) - (_g160190160245_))))) + (_g160452160507_))))) (let () (declare (not safe)) - (_g160190160245_)))) + (_g160452160507_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160194160359_)) - (let ((___splice161771161772_ + _tl160456160621_)) + (let ((___splice162033162034_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160194160359_ + _tl160456160621_ '0)))) - (let ((_tl160225160265_ + (let ((_tl160487160527_ (let () (declare (not safe)) (##vector-ref - ___splice161771161772_ + ___splice162033162034_ '1))) - (_target160223160262_ + (_target160485160524_ (let () (declare (not safe)) (##vector-ref - ___splice161771161772_ + ___splice162033162034_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160225160265_)) - (___match161813161814_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_ - ___splice161771161772_ - _target160223160262_ - _tl160225160265_) + _tl160487160527_)) + (___match162075162076_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_ + ___splice162033162034_ + _target160485160524_ + _tl160487160527_) (let () (declare (not safe)) - (_g160190160245_))))) + (_g160452160507_))))) (let () (declare (not safe)) - (_g160190160245_))))) + (_g160452160507_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160194160359_)) - (let ((___splice161771161772_ + (gx#stx-pair/null? _tl160456160621_)) + (let ((___splice162033162034_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160194160359_ + _tl160456160621_ '0)))) - (let ((_tl160225160265_ + (let ((_tl160487160527_ (let () (declare (not safe)) (##vector-ref - ___splice161771161772_ + ___splice162033162034_ '1))) - (_target160223160262_ + (_target160485160524_ (let () (declare (not safe)) (##vector-ref - ___splice161771161772_ + ___splice162033162034_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160225160265_)) - (___match161813161814_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_ - ___splice161771161772_ - _target160223160262_ - _tl160225160265_) + (gx#stx-null? _tl160487160527_)) + (___match162075162076_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_ + ___splice162033162034_ + _target160485160524_ + _tl160487160527_) (let () (declare (not safe)) - (_g160190160245_))))) + (_g160452160507_))))) (let () (declare (not safe)) - (_g160190160245_)))))) + (_g160452160507_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160194160359_)) - (let ((___splice161771161772_ + (gx#stx-pair/null? _tl160456160621_)) + (let ((___splice162033162034_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160194160359_ + _tl160456160621_ '0)))) - (let ((_tl160225160265_ + (let ((_tl160487160527_ (let () (declare (not safe)) (##vector-ref - ___splice161771161772_ + ___splice162033162034_ '1))) - (_target160223160262_ + (_target160485160524_ (let () (declare (not safe)) (##vector-ref - ___splice161771161772_ + ___splice162033162034_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160225160265_)) - (___match161813161814_ - _e160196160352_ - _hd160195160356_ - _tl160194160359_ - ___splice161771161772_ - _target160223160262_ - _tl160225160265_) + (gx#stx-null? _tl160487160527_)) + (___match162075162076_ + _e160458160614_ + _hd160457160618_ + _tl160456160621_ + ___splice162033162034_ + _target160485160524_ + _tl160487160527_) (let () (declare (not safe)) - (_g160190160245_))))) - (let () (declare (not safe)) (_g160190160245_)))))) - (let () (declare (not safe)) (_g160190160245_)))))))) + (_g160452160507_))))) + (let () (declare (not safe)) (_g160452160507_)))))) + (let () (declare (not safe)) (_g160452160507_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx160467_) - (let* ((_g160471160489_ - (lambda (_g160472160485_) + (lambda (_$stx160729_) + (let* ((_g160733160751_ + (lambda (_g160734160747_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160472160485_)))) - (_g160470160544_ - (lambda (_g160472160493_) + _g160734160747_)))) + (_g160732160806_ + (lambda (_g160734160755_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160472160493_)) - (let ((_e160477160496_ + (gx#stx-pair? _g160734160755_)) + (let ((_e160739160758_ (let () (declare (not safe)) - (gx#syntax-e _g160472160493_)))) - (let ((_hd160476160500_ + (gx#syntax-e _g160734160755_)))) + (let ((_hd160738160762_ (let () (declare (not safe)) - (##car _e160477160496_))) - (_tl160475160503_ + (##car _e160739160758_))) + (_tl160737160765_ (let () (declare (not safe)) - (##cdr _e160477160496_)))) + (##cdr _e160739160758_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160475160503_)) - (let ((_e160480160506_ + (gx#stx-pair? _tl160737160765_)) + (let ((_e160742160768_ (let () (declare (not safe)) - (gx#syntax-e _tl160475160503_)))) - (let ((_hd160479160510_ + (gx#syntax-e _tl160737160765_)))) + (let ((_hd160741160772_ (let () (declare (not safe)) - (##car _e160480160506_))) - (_tl160478160513_ + (##car _e160742160768_))) + (_tl160740160775_ (let () (declare (not safe)) - (##cdr _e160480160506_)))) + (##cdr _e160742160768_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160478160513_)) - (let ((_e160483160516_ + (gx#stx-pair? _tl160740160775_)) + (let ((_e160745160778_ (let () (declare (not safe)) - (gx#syntax-e _tl160478160513_)))) - (let ((_hd160482160520_ + (gx#syntax-e _tl160740160775_)))) + (let ((_hd160744160782_ (let () (declare (not safe)) - (##car _e160483160516_))) - (_tl160481160523_ + (##car _e160745160778_))) + (_tl160743160785_ (let () (declare (not safe)) - (##cdr _e160483160516_)))) + (##cdr _e160745160778_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160481160523_)) - ((lambda (_L160526_ _L160528_) - (let ((__tmp162211 + (gx#stx-null? _tl160743160785_)) + ((lambda (_L160788_ _L160790_) + (let ((__tmp162473 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp162198 - (let ((__tmp162207 - (let ((__tmp162210 + (__tmp162460 + (let ((__tmp162469 + (let ((__tmp162472 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162208 - (let ((__tmp162209 + (__tmp162470 + (let ((__tmp162471 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp162209 '())))) + (cons __tmp162471 '())))) (declare (not safe)) - (cons __tmp162210 __tmp162208))) - (__tmp162199 - (let ((__tmp162204 - (let ((__tmp162206 + (cons __tmp162472 __tmp162470))) + (__tmp162461 + (let ((__tmp162466 + (let ((__tmp162468 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162205 + (__tmp162467 (let () (declare (not safe)) - (cons _L160528_ '())))) + (cons _L160790_ '())))) (declare (not safe)) - (cons __tmp162206 __tmp162205))) - (__tmp162200 - (let ((__tmp162201 - (let ((__tmp162203 + (cons __tmp162468 __tmp162467))) + (__tmp162462 + (let ((__tmp162463 + (let ((__tmp162465 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162202 + (__tmp162464 (let () (declare (not safe)) - (cons _L160526_ '())))) + (cons _L160788_ '())))) (declare (not safe)) - (cons __tmp162203 __tmp162202)))) + (cons __tmp162465 __tmp162464)))) (declare (not safe)) - (cons __tmp162201 '())))) + (cons __tmp162463 '())))) (declare (not safe)) - (cons __tmp162204 __tmp162200)))) + (cons __tmp162466 __tmp162462)))) (declare (not safe)) - (cons __tmp162207 __tmp162199)))) + (cons __tmp162469 __tmp162461)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162211 - __tmp162198))) - _hd160482160520_ - _hd160479160510_) - (_g160471160489_ - _g160472160493_)))) - (_g160471160489_ _g160472160493_)))) - (_g160471160489_ _g160472160493_)))) - (_g160471160489_ _g160472160493_))))) - (_g160470160544_ _$stx160467_)))) + (cons __tmp162473 + __tmp162460))) + _hd160744160782_ + _hd160741160772_) + (_g160733160751_ + _g160734160755_)))) + (_g160733160751_ _g160734160755_)))) + (_g160733160751_ _g160734160755_)))) + (_g160733160751_ _g160734160755_))))) + (_g160732160806_ _$stx160729_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx160548_) - (let* ((_g160552160570_ - (lambda (_g160553160566_) + (lambda (_$stx160810_) + (let* ((_g160814160832_ + (lambda (_g160815160828_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160553160566_)))) - (_g160551160625_ - (lambda (_g160553160574_) + _g160815160828_)))) + (_g160813160887_ + (lambda (_g160815160836_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160553160574_)) - (let ((_e160558160577_ + (gx#stx-pair? _g160815160836_)) + (let ((_e160820160839_ (let () (declare (not safe)) - (gx#syntax-e _g160553160574_)))) - (let ((_hd160557160581_ + (gx#syntax-e _g160815160836_)))) + (let ((_hd160819160843_ (let () (declare (not safe)) - (##car _e160558160577_))) - (_tl160556160584_ + (##car _e160820160839_))) + (_tl160818160846_ (let () (declare (not safe)) - (##cdr _e160558160577_)))) + (##cdr _e160820160839_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160556160584_)) - (let ((_e160561160587_ + (gx#stx-pair? _tl160818160846_)) + (let ((_e160823160849_ (let () (declare (not safe)) - (gx#syntax-e _tl160556160584_)))) - (let ((_hd160560160591_ + (gx#syntax-e _tl160818160846_)))) + (let ((_hd160822160853_ (let () (declare (not safe)) - (##car _e160561160587_))) - (_tl160559160594_ + (##car _e160823160849_))) + (_tl160821160856_ (let () (declare (not safe)) - (##cdr _e160561160587_)))) + (##cdr _e160823160849_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160559160594_)) - (let ((_e160564160597_ + (gx#stx-pair? _tl160821160856_)) + (let ((_e160826160859_ (let () (declare (not safe)) - (gx#syntax-e _tl160559160594_)))) - (let ((_hd160563160601_ + (gx#syntax-e _tl160821160856_)))) + (let ((_hd160825160863_ (let () (declare (not safe)) - (##car _e160564160597_))) - (_tl160562160604_ + (##car _e160826160859_))) + (_tl160824160866_ (let () (declare (not safe)) - (##cdr _e160564160597_)))) + (##cdr _e160826160859_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160562160604_)) - ((lambda (_L160607_ _L160609_) - (let ((__tmp162225 + (gx#stx-null? _tl160824160866_)) + ((lambda (_L160869_ _L160871_) + (let ((__tmp162487 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp162212 - (let ((__tmp162221 - (let ((__tmp162224 + (__tmp162474 + (let ((__tmp162483 + (let ((__tmp162486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162222 - (let ((__tmp162223 + (__tmp162484 + (let ((__tmp162485 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp162223 '())))) + (cons __tmp162485 '())))) (declare (not safe)) - (cons __tmp162224 __tmp162222))) - (__tmp162213 - (let ((__tmp162218 - (let ((__tmp162220 + (cons __tmp162486 __tmp162484))) + (__tmp162475 + (let ((__tmp162480 + (let ((__tmp162482 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162219 + (__tmp162481 (let () (declare (not safe)) - (cons _L160609_ '())))) + (cons _L160871_ '())))) (declare (not safe)) - (cons __tmp162220 __tmp162219))) - (__tmp162214 - (let ((__tmp162215 - (let ((__tmp162217 + (cons __tmp162482 __tmp162481))) + (__tmp162476 + (let ((__tmp162477 + (let ((__tmp162479 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162216 + (__tmp162478 (let () (declare (not safe)) - (cons _L160607_ '())))) + (cons _L160869_ '())))) (declare (not safe)) - (cons __tmp162217 __tmp162216)))) + (cons __tmp162479 __tmp162478)))) (declare (not safe)) - (cons __tmp162215 '())))) + (cons __tmp162477 '())))) (declare (not safe)) - (cons __tmp162218 __tmp162214)))) + (cons __tmp162480 __tmp162476)))) (declare (not safe)) - (cons __tmp162221 __tmp162213)))) + (cons __tmp162483 __tmp162475)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162225 - __tmp162212))) - _hd160563160601_ - _hd160560160591_) - (_g160552160570_ - _g160553160574_)))) - (_g160552160570_ _g160553160574_)))) - (_g160552160570_ _g160553160574_)))) - (_g160552160570_ _g160553160574_))))) - (_g160551160625_ _$stx160548_)))) + (cons __tmp162487 + __tmp162474))) + _hd160825160863_ + _hd160822160853_) + (_g160814160832_ + _g160815160836_)))) + (_g160814160832_ _g160815160836_)))) + (_g160814160832_ _g160815160836_)))) + (_g160814160832_ _g160815160836_))))) + (_g160813160887_ _$stx160810_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx160629_) - (let* ((___stx161816161817_ _$stx160629_) - (_g160636160707_ + (lambda (_$stx160891_) + (let* ((___stx162078162079_ _$stx160891_) + (_g160898160969_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161816161817_))))) - (let ((___kont161819161820_ - (lambda (_L160998_ _L161000_) - (let ((__tmp162231 + ___stx162078162079_))))) + (let ((___kont162081162082_ + (lambda (_L161260_ _L161262_) + (let ((__tmp162493 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162226 - (let ((__tmp162227 - (let ((__tmp162228 - (let ((__tmp162230 + (__tmp162488 + (let ((__tmp162489 + (let ((__tmp162490 + (let ((__tmp162492 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162229 + (__tmp162491 (let () (declare (not safe)) - (cons _L160998_ '())))) + (cons _L161260_ '())))) (declare (not safe)) - (cons __tmp162230 __tmp162229)))) + (cons __tmp162492 __tmp162491)))) (declare (not safe)) - (cons __tmp162228 '())))) + (cons __tmp162490 '())))) (declare (not safe)) - (cons _L161000_ __tmp162227)))) + (cons _L161262_ __tmp162489)))) (declare (not safe)) - (cons __tmp162231 __tmp162226)))) - (___kont161821161822_ - (lambda (_L160917_ _L160919_) - (let ((__tmp162240 + (cons __tmp162493 __tmp162488)))) + (___kont162083162084_ + (lambda (_L161179_ _L161181_) + (let ((__tmp162502 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162232 - (let ((__tmp162233 - (let ((__tmp162234 - (let ((__tmp162239 + (__tmp162494 + (let ((__tmp162495 + (let ((__tmp162496 + (let ((__tmp162501 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162235 - (let ((__tmp162236 - (lambda (_g160938160941_ - _g160939160944_) - (let ((__tmp162237 - (let ((__tmp162238 + (__tmp162497 + (let ((__tmp162498 + (lambda (_g161200161203_ + _g161201161206_) + (let ((__tmp162499 + (let ((__tmp162500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g160938160941_ __tmp162238)))) + (cons _g161200161203_ __tmp162500)))) (declare (not safe)) - (cons __tmp162237 _g160939160944_))))) + (cons __tmp162499 _g161201161206_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp162236 + (foldr1 __tmp162498 '() - _L160917_)))) + _L161179_)))) (declare (not safe)) - (cons __tmp162239 __tmp162235)))) + (cons __tmp162501 __tmp162497)))) (declare (not safe)) - (cons __tmp162234 '())))) + (cons __tmp162496 '())))) (declare (not safe)) - (cons _L160919_ __tmp162233)))) + (cons _L161181_ __tmp162495)))) (declare (not safe)) - (cons __tmp162240 __tmp162232)))) - (___kont161825161826_ - (lambda (_L160829_ _L160831_) - (let ((__tmp162247 + (cons __tmp162502 __tmp162494)))) + (___kont162087162088_ + (lambda (_L161091_ _L161093_) + (let ((__tmp162509 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162241 - (let ((__tmp162242 - (let ((__tmp162243 - (let ((__tmp162246 + (__tmp162503 + (let ((__tmp162504 + (let ((__tmp162505 + (let ((__tmp162508 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162244 - (let ((__tmp162245 + (__tmp162506 + (let ((__tmp162507 (let () (declare (not safe)) - (cons _L160829_ '())))) + (cons _L161091_ '())))) (declare (not safe)) (cons 'primitive: - __tmp162245)))) + __tmp162507)))) (declare (not safe)) - (cons __tmp162246 __tmp162244)))) + (cons __tmp162508 __tmp162506)))) (declare (not safe)) - (cons __tmp162243 '())))) + (cons __tmp162505 '())))) (declare (not safe)) - (cons _L160831_ __tmp162242)))) + (cons _L161093_ __tmp162504)))) (declare (not safe)) - (cons __tmp162247 __tmp162241)))) - (___kont161827161828_ - (lambda (_L160764_ _L160766_) - (let ((__tmp162257 + (cons __tmp162509 __tmp162503)))) + (___kont162089162090_ + (lambda (_L161026_ _L161028_) + (let ((__tmp162519 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162248 - (let ((__tmp162249 - (let ((__tmp162250 - (let ((__tmp162256 + (__tmp162510 + (let ((__tmp162511 + (let ((__tmp162512 + (let ((__tmp162518 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162251 - (let ((__tmp162252 - (let ((__tmp162253 - (lambda (_g160783160786_ + (__tmp162513 + (let ((__tmp162514 + (let ((__tmp162515 + (lambda (_g161045161048_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g160784160789_) - (let ((__tmp162254 - (let ((__tmp162255 + _g161046161051_) + (let ((__tmp162516 + (let ((__tmp162517 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g160783160786_ __tmp162255)))) + (cons _g161045161048_ __tmp162517)))) (declare (not safe)) - (cons __tmp162254 _g160784160789_))))) + (cons __tmp162516 _g161046161051_))))) (declare (not safe)) - (foldr1 __tmp162253 '() _L160764_)))) + (foldr1 __tmp162515 '() _L161026_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp162252)))) + __tmp162514)))) (declare (not safe)) - (cons __tmp162256 __tmp162251)))) + (cons __tmp162518 __tmp162513)))) (declare (not safe)) - (cons __tmp162250 '())))) + (cons __tmp162512 '())))) (declare (not safe)) - (cons _L160766_ __tmp162249)))) + (cons _L161028_ __tmp162511)))) (declare (not safe)) - (cons __tmp162257 __tmp162248))))) - (let* ((___match161935161936_ - (lambda (_e160689160714_ - _hd160688160718_ - _tl160687160721_ - _e160692160724_ - _hd160691160728_ - _tl160690160731_ - ___splice161829161830_ - _target160693160734_ - _tl160695160737_) - (letrec ((_loop160696160740_ - (lambda (_hd160694160744_ _arity160700160747_) + (cons __tmp162519 __tmp162510))))) + (let* ((___match162197162198_ + (lambda (_e160951160976_ + _hd160950160980_ + _tl160949160983_ + _e160954160986_ + _hd160953160990_ + _tl160952160993_ + ___splice162091162092_ + _target160955160996_ + _tl160957160999_) + (letrec ((_loop160958161002_ + (lambda (_hd160956161006_ _arity160962161009_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160694160744_)) - (let ((_e160697160750_ + (gx#stx-pair? _hd160956161006_)) + (let ((_e160959161012_ (let () (declare (not safe)) - (gx#syntax-e _hd160694160744_)))) - (let ((_lp-tl160699160757_ + (gx#syntax-e _hd160956161006_)))) + (let ((_lp-tl160961161019_ (let () (declare (not safe)) - (##cdr _e160697160750_))) - (_lp-hd160698160754_ + (##cdr _e160959161012_))) + (_lp-hd160960161016_ (let () (declare (not safe)) - (##car _e160697160750_)))) - (_loop160696160740_ - _lp-tl160699160757_ + (##car _e160959161012_)))) + (_loop160958161002_ + _lp-tl160961161019_ (let () (declare (not safe)) - (cons _lp-hd160698160754_ - _arity160700160747_))))) - (let ((_arity160701160760_ - (reverse _arity160700160747_))) - (___kont161827161828_ - _arity160701160760_ - _hd160691160728_)))))) - (_loop160696160740_ _target160693160734_ '())))) - (___match161895161896_ - (lambda (_e160657160853_ - _hd160656160857_ - _tl160655160860_ - _e160660160863_ - _hd160659160867_ - _tl160658160870_ - _e160663160873_ - _hd160662160877_ - _tl160661160880_ - _e160664160883_ - ___splice161823161824_ - _target160665160887_ - _tl160667160890_) - (letrec ((_loop160668160893_ - (lambda (_hd160666160897_ _arity160672160900_) + (cons _lp-hd160960161016_ + _arity160962161009_))))) + (let ((_arity160963161022_ + (reverse _arity160962161009_))) + (___kont162089162090_ + _arity160963161022_ + _hd160953160990_)))))) + (_loop160958161002_ _target160955160996_ '())))) + (___match162157162158_ + (lambda (_e160919161115_ + _hd160918161119_ + _tl160917161122_ + _e160922161125_ + _hd160921161129_ + _tl160920161132_ + _e160925161135_ + _hd160924161139_ + _tl160923161142_ + _e160926161145_ + ___splice162085162086_ + _target160927161149_ + _tl160929161152_) + (letrec ((_loop160930161155_ + (lambda (_hd160928161159_ _arity160934161162_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160666160897_)) - (let ((_e160669160903_ + (gx#stx-pair? _hd160928161159_)) + (let ((_e160931161165_ (let () (declare (not safe)) - (gx#syntax-e _hd160666160897_)))) - (let ((_lp-tl160671160910_ + (gx#syntax-e _hd160928161159_)))) + (let ((_lp-tl160933161172_ (let () (declare (not safe)) - (##cdr _e160669160903_))) - (_lp-hd160670160907_ + (##cdr _e160931161165_))) + (_lp-hd160932161169_ (let () (declare (not safe)) - (##car _e160669160903_)))) - (_loop160668160893_ - _lp-tl160671160910_ + (##car _e160931161165_)))) + (_loop160930161155_ + _lp-tl160933161172_ (let () (declare (not safe)) - (cons _lp-hd160670160907_ - _arity160672160900_))))) - (let ((_arity160673160913_ - (reverse _arity160672160900_))) - (___kont161821161822_ - _arity160673160913_ - _hd160659160867_)))))) - (_loop160668160893_ _target160665160887_ '()))))) + (cons _lp-hd160932161169_ + _arity160934161162_))))) + (let ((_arity160935161175_ + (reverse _arity160934161162_))) + (___kont162083162084_ + _arity160935161175_ + _hd160921161129_)))))) + (_loop160930161155_ _target160927161149_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161816161817_)) - (let ((_e160642160954_ + (gx#stx-pair? ___stx162078162079_)) + (let ((_e160904161216_ (let () (declare (not safe)) - (gx#syntax-e ___stx161816161817_)))) - (let ((_tl160640160961_ - (let () (declare (not safe)) (##cdr _e160642160954_))) - (_hd160641160958_ + (gx#syntax-e ___stx162078162079_)))) + (let ((_tl160902161223_ + (let () (declare (not safe)) (##cdr _e160904161216_))) + (_hd160903161220_ (let () (declare (not safe)) - (##car _e160642160954_)))) + (##car _e160904161216_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160640160961_)) - (let ((_e160645160964_ + (gx#stx-pair? _tl160902161223_)) + (let ((_e160907161226_ (let () (declare (not safe)) - (gx#syntax-e _tl160640160961_)))) - (let ((_tl160643160971_ + (gx#syntax-e _tl160902161223_)))) + (let ((_tl160905161233_ (let () (declare (not safe)) - (##cdr _e160645160964_))) - (_hd160644160968_ + (##cdr _e160907161226_))) + (_hd160906161230_ (let () (declare (not safe)) - (##car _e160645160964_)))) + (##car _e160907161226_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160643160971_)) - (let ((_e160648160974_ + (gx#stx-pair? _tl160905161233_)) + (let ((_e160910161236_ (let () (declare (not safe)) - (gx#syntax-e _tl160643160971_)))) - (let ((_tl160646160981_ + (gx#syntax-e _tl160905161233_)))) + (let ((_tl160908161243_ (let () (declare (not safe)) - (##cdr _e160648160974_))) - (_hd160647160978_ + (##cdr _e160910161236_))) + (_hd160909161240_ (let () (declare (not safe)) - (##car _e160648160974_)))) + (##car _e160910161236_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd160647160978_)) - (let ((_e160649160984_ + (gx#stx-datum? _hd160909161240_)) + (let ((_e160911161246_ (let () (declare (not safe)) - (gx#stx-e _hd160647160978_)))) + (gx#stx-e _hd160909161240_)))) (if (let () (declare (not safe)) - (equal? _e160649160984_ + (equal? _e160911161246_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160646160981_)) - (let ((_e160652160988_ + _tl160908161243_)) + (let ((_e160914161250_ (let () (declare (not safe)) (gx#syntax-e - _tl160646160981_)))) - (let ((_tl160650160995_ + _tl160908161243_)))) + (let ((_tl160912161257_ (let () (declare (not safe)) - (##cdr _e160652160988_))) - (_hd160651160992_ + (##cdr _e160914161250_))) + (_hd160913161254_ (let () (declare (not safe)) - (##car _e160652160988_)))) + (##car _e160914161250_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160650160995_)) - (___kont161819161820_ - _hd160651160992_ - _hd160644160968_) + _tl160912161257_)) + (___kont162081162082_ + _hd160913161254_ + _hd160906161230_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl160646160981_)) - (let ((___splice161823161824_ + (gx#stx-pair/null? _tl160908161243_)) + (let ((___splice162085162086_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl160646160981_ '0)))) - (let ((_tl160667160890_ + (gx#syntax-split-splice _tl160908161243_ '0)))) + (let ((_tl160929161152_ (let () (declare (not safe)) - (##vector-ref ___splice161823161824_ '1))) - (_target160665160887_ + (##vector-ref ___splice162085162086_ '1))) + (_target160927161149_ (let () (declare (not safe)) - (##vector-ref ___splice161823161824_ '0)))) + (##vector-ref ___splice162085162086_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160667160890_)) - (___match161895161896_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - _e160648160974_ - _hd160647160978_ - _tl160646160981_ - _e160649160984_ - ___splice161823161824_ - _target160665160887_ - _tl160667160890_) + (gx#stx-null? _tl160929161152_)) + (___match162157162158_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + _e160910161236_ + _hd160909161240_ + _tl160908161243_ + _e160911161246_ + ___splice162085162086_ + _target160927161149_ + _tl160929161152_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160643160971_)) - (let ((___splice161829161830_ + (gx#stx-pair/null? _tl160905161233_)) + (let ((___splice162091162092_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160643160971_ + _tl160905161233_ '0)))) - (let ((_tl160695160737_ + (let ((_tl160957160999_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '1))) - (_target160693160734_ + (_target160955160996_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160695160737_)) - (___match161935161936_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - ___splice161829161830_ - _target160693160734_ - _tl160695160737_) + (gx#stx-null? _tl160957160999_)) + (___match162197162198_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + ___splice162091162092_ + _target160955160996_ + _tl160957160999_) (let () (declare (not safe)) - (_g160636160707_))))) + (_g160898160969_))))) (let () (declare (not safe)) - (_g160636160707_)))))) + (_g160898160969_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160643160971_)) - (let ((___splice161829161830_ + (gx#stx-pair/null? _tl160905161233_)) + (let ((___splice162091162092_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160643160971_ + _tl160905161233_ '0)))) - (let ((_tl160695160737_ + (let ((_tl160957160999_ (let () (declare (not safe)) - (##vector-ref ___splice161829161830_ '1))) - (_target160693160734_ + (##vector-ref ___splice162091162092_ '1))) + (_target160955160996_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160695160737_)) - (___match161935161936_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - ___splice161829161830_ - _target160693160734_ - _tl160695160737_) + (gx#stx-null? _tl160957160999_)) + (___match162197162198_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + ___splice162091162092_ + _target160955160996_ + _tl160957160999_) (let () (declare (not safe)) - (_g160636160707_))))) - (let () (declare (not safe)) (_g160636160707_))))))) + (_g160898160969_))))) + (let () (declare (not safe)) (_g160898160969_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160646160981_)) - (let ((___splice161823161824_ + _tl160908161243_)) + (let ((___splice162085162086_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160646160981_ '0)))) - (let ((_tl160667160890_ + (gx#syntax-split-splice _tl160908161243_ '0)))) + (let ((_tl160929161152_ (let () (declare (not safe)) - (##vector-ref ___splice161823161824_ '1))) - (_target160665160887_ + (##vector-ref ___splice162085162086_ '1))) + (_target160927161149_ (let () (declare (not safe)) - (##vector-ref ___splice161823161824_ '0)))) + (##vector-ref ___splice162085162086_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160667160890_)) - (___match161895161896_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - _e160648160974_ - _hd160647160978_ - _tl160646160981_ - _e160649160984_ - ___splice161823161824_ - _target160665160887_ - _tl160667160890_) + (gx#stx-null? _tl160929161152_)) + (___match162157162158_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + _e160910161236_ + _hd160909161240_ + _tl160908161243_ + _e160911161246_ + ___splice162085162086_ + _target160927161149_ + _tl160929161152_) (if (let () (declare (not safe)) - (gx#stx-null? _tl160646160981_)) - (___kont161825161826_ - _hd160647160978_ - _hd160644160968_) + (gx#stx-null? _tl160908161243_)) + (___kont162087162088_ + _hd160909161240_ + _hd160906161230_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160643160971_)) - (let ((___splice161829161830_ + (gx#stx-pair/null? _tl160905161233_)) + (let ((___splice162091162092_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160643160971_ + _tl160905161233_ '0)))) - (let ((_tl160695160737_ + (let ((_tl160957160999_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '1))) - (_target160693160734_ + (_target160955160996_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160695160737_)) - (___match161935161936_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - ___splice161829161830_ - _target160693160734_ - _tl160695160737_) + (gx#stx-null? _tl160957160999_)) + (___match162197162198_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + ___splice162091162092_ + _target160955160996_ + _tl160957160999_) (let () (declare (not safe)) - (_g160636160707_))))) + (_g160898160969_))))) (let () (declare (not safe)) - (_g160636160707_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl160646160981_)) - (___kont161825161826_ _hd160647160978_ _hd160644160968_) + (_g160898160969_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl160908161243_)) + (___kont162087162088_ _hd160909161240_ _hd160906161230_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160643160971_)) - (let ((___splice161829161830_ + (gx#stx-pair/null? _tl160905161233_)) + (let ((___splice162091162092_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl160643160971_ '0)))) - (let ((_tl160695160737_ + (gx#syntax-split-splice _tl160905161233_ '0)))) + (let ((_tl160957160999_ (let () (declare (not safe)) - (##vector-ref ___splice161829161830_ '1))) - (_target160693160734_ + (##vector-ref ___splice162091162092_ '1))) + (_target160955160996_ (let () (declare (not safe)) - (##vector-ref ___splice161829161830_ '0)))) + (##vector-ref ___splice162091162092_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160695160737_)) - (___match161935161936_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - ___splice161829161830_ - _target160693160734_ - _tl160695160737_) + (gx#stx-null? _tl160957160999_)) + (___match162197162198_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + ___splice162091162092_ + _target160955160996_ + _tl160957160999_) (let () (declare (not safe)) - (_g160636160707_))))) - (let () (declare (not safe)) (_g160636160707_)))))) + (_g160898160969_))))) + (let () (declare (not safe)) (_g160898160969_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl160646160981_)) - (___kont161825161826_ - _hd160647160978_ - _hd160644160968_) + _tl160908161243_)) + (___kont162087162088_ + _hd160909161240_ + _hd160906161230_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160643160971_)) - (let ((___splice161829161830_ + _tl160905161233_)) + (let ((___splice162091162092_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160643160971_ '0)))) - (let ((_tl160695160737_ + (gx#syntax-split-splice _tl160905161233_ '0)))) + (let ((_tl160957160999_ (let () (declare (not safe)) - (##vector-ref ___splice161829161830_ '1))) - (_target160693160734_ + (##vector-ref ___splice162091162092_ '1))) + (_target160955160996_ (let () (declare (not safe)) - (##vector-ref ___splice161829161830_ '0)))) + (##vector-ref ___splice162091162092_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160695160737_)) - (___match161935161936_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - ___splice161829161830_ - _target160693160734_ - _tl160695160737_) - (let () (declare (not safe)) (_g160636160707_))))) - (let () (declare (not safe)) (_g160636160707_)))))) + (gx#stx-null? _tl160957160999_)) + (___match162197162198_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + ___splice162091162092_ + _target160955160996_ + _tl160957160999_) + (let () (declare (not safe)) (_g160898160969_))))) + (let () (declare (not safe)) (_g160898160969_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl160646160981_)) - (___kont161825161826_ - _hd160647160978_ - _hd160644160968_) + (gx#stx-null? _tl160908161243_)) + (___kont162087162088_ + _hd160909161240_ + _hd160906161230_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160643160971_)) - (let ((___splice161829161830_ + _tl160905161233_)) + (let ((___splice162091162092_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160643160971_ + _tl160905161233_ '0)))) - (let ((_tl160695160737_ + (let ((_tl160957160999_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '1))) - (_target160693160734_ + (_target160955160996_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160695160737_)) - (___match161935161936_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - ___splice161829161830_ - _target160693160734_ - _tl160695160737_) + _tl160957160999_)) + (___match162197162198_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + ___splice162091162092_ + _target160955160996_ + _tl160957160999_) (let () (declare (not safe)) - (_g160636160707_))))) + (_g160898160969_))))) (let () (declare (not safe)) - (_g160636160707_))))))) + (_g160898160969_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160643160971_)) - (let ((___splice161829161830_ + (gx#stx-pair/null? _tl160905161233_)) + (let ((___splice162091162092_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160643160971_ + _tl160905161233_ '0)))) - (let ((_tl160695160737_ + (let ((_tl160957160999_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '1))) - (_target160693160734_ + (_target160955160996_ (let () (declare (not safe)) (##vector-ref - ___splice161829161830_ + ___splice162091162092_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160695160737_)) - (___match161935161936_ - _e160642160954_ - _hd160641160958_ - _tl160640160961_ - _e160645160964_ - _hd160644160968_ - _tl160643160971_ - ___splice161829161830_ - _target160693160734_ - _tl160695160737_) + (gx#stx-null? _tl160957160999_)) + (___match162197162198_ + _e160904161216_ + _hd160903161220_ + _tl160902161223_ + _e160907161226_ + _hd160906161230_ + _tl160905161233_ + ___splice162091162092_ + _target160955160996_ + _tl160957160999_) (let () (declare (not safe)) - (_g160636160707_))))) + (_g160898160969_))))) (let () (declare (not safe)) - (_g160636160707_)))))) - (let () (declare (not safe)) (_g160636160707_))))) - (let () (declare (not safe)) (_g160636160707_)))))))) + (_g160898160969_)))))) + (let () (declare (not safe)) (_g160898160969_))))) + (let () (declare (not safe)) (_g160898160969_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx161024_) - (let* ((___stx161938161939_ _$stx161024_) - (_g161029161064_ + (lambda (_$stx161286_) + (let* ((___stx162200162201_ _$stx161286_) + (_g161291161326_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161938161939_))))) - (let ((___kont161941161942_ - (lambda (_L161186_ _L161188_) - (let ((__tmp162263 + ___stx162200162201_))))) + (let ((___kont162203162204_ + (lambda (_L161448_ _L161450_) + (let ((__tmp162525 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162258 - (let ((__tmp162259 - (let ((__tmp162260 - (let ((__tmp162262 + (__tmp162520 + (let ((__tmp162521 + (let ((__tmp162522 + (let ((__tmp162524 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162261 + (__tmp162523 (let () (declare (not safe)) - (cons _L161186_ '())))) + (cons _L161448_ '())))) (declare (not safe)) - (cons __tmp162262 __tmp162261)))) + (cons __tmp162524 __tmp162523)))) (declare (not safe)) - (cons __tmp162260 '())))) + (cons __tmp162522 '())))) (declare (not safe)) - (cons _L161188_ __tmp162259)))) + (cons _L161450_ __tmp162521)))) (declare (not safe)) - (cons __tmp162263 __tmp162258)))) - (___kont161943161944_ - (lambda (_L161121_ _L161123_) - (let ((__tmp162272 + (cons __tmp162525 __tmp162520)))) + (___kont162205162206_ + (lambda (_L161383_ _L161385_) + (let ((__tmp162534 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162264 - (let ((__tmp162265 - (let ((__tmp162266 - (let ((__tmp162271 + (__tmp162526 + (let ((__tmp162527 + (let ((__tmp162528 + (let ((__tmp162533 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162267 - (let ((__tmp162268 - (lambda (_g161140161143_ - _g161141161146_) - (let ((__tmp162269 - (let ((__tmp162270 + (__tmp162529 + (let ((__tmp162530 + (lambda (_g161402161405_ + _g161403161408_) + (let ((__tmp162531 + (let ((__tmp162532 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g161140161143_ __tmp162270)))) + (cons _g161402161405_ __tmp162532)))) (declare (not safe)) - (cons __tmp162269 _g161141161146_))))) + (cons __tmp162531 _g161403161408_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp162268 + (foldr1 __tmp162530 '() - _L161121_)))) + _L161383_)))) (declare (not safe)) - (cons __tmp162271 __tmp162267)))) + (cons __tmp162533 __tmp162529)))) (declare (not safe)) - (cons __tmp162266 '())))) + (cons __tmp162528 '())))) (declare (not safe)) - (cons _L161123_ __tmp162265)))) + (cons _L161385_ __tmp162527)))) (declare (not safe)) - (cons __tmp162272 __tmp162264))))) - (let ((___match161987161988_ - (lambda (_e161046161071_ - _hd161045161075_ - _tl161044161078_ - _e161049161081_ - _hd161048161085_ - _tl161047161088_ - ___splice161945161946_ - _target161050161091_ - _tl161052161094_) - (letrec ((_loop161053161097_ - (lambda (_hd161051161101_ _arity161057161104_) + (cons __tmp162534 __tmp162526))))) + (let ((___match162249162250_ + (lambda (_e161308161333_ + _hd161307161337_ + _tl161306161340_ + _e161311161343_ + _hd161310161347_ + _tl161309161350_ + ___splice162207162208_ + _target161312161353_ + _tl161314161356_) + (letrec ((_loop161315161359_ + (lambda (_hd161313161363_ _arity161319161366_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd161051161101_)) - (let ((_e161054161107_ + (gx#stx-pair? _hd161313161363_)) + (let ((_e161316161369_ (let () (declare (not safe)) - (gx#syntax-e _hd161051161101_)))) - (let ((_lp-tl161056161114_ + (gx#syntax-e _hd161313161363_)))) + (let ((_lp-tl161318161376_ (let () (declare (not safe)) - (##cdr _e161054161107_))) - (_lp-hd161055161111_ + (##cdr _e161316161369_))) + (_lp-hd161317161373_ (let () (declare (not safe)) - (##car _e161054161107_)))) - (_loop161053161097_ - _lp-tl161056161114_ + (##car _e161316161369_)))) + (_loop161315161359_ + _lp-tl161318161376_ (let () (declare (not safe)) - (cons _lp-hd161055161111_ - _arity161057161104_))))) - (let ((_arity161058161117_ - (reverse _arity161057161104_))) - (___kont161943161944_ - _arity161058161117_ - _hd161048161085_)))))) - (_loop161053161097_ _target161050161091_ '()))))) + (cons _lp-hd161317161373_ + _arity161319161366_))))) + (let ((_arity161320161379_ + (reverse _arity161319161366_))) + (___kont162205162206_ + _arity161320161379_ + _hd161310161347_)))))) + (_loop161315161359_ _target161312161353_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161938161939_)) - (let ((_e161035161156_ + (gx#stx-pair? ___stx162200162201_)) + (let ((_e161297161418_ (let () (declare (not safe)) - (gx#syntax-e ___stx161938161939_)))) - (let ((_tl161033161163_ - (let () (declare (not safe)) (##cdr _e161035161156_))) - (_hd161034161160_ + (gx#syntax-e ___stx162200162201_)))) + (let ((_tl161295161425_ + (let () (declare (not safe)) (##cdr _e161297161418_))) + (_hd161296161422_ (let () (declare (not safe)) - (##car _e161035161156_)))) + (##car _e161297161418_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161033161163_)) - (let ((_e161038161166_ + (gx#stx-pair? _tl161295161425_)) + (let ((_e161300161428_ (let () (declare (not safe)) - (gx#syntax-e _tl161033161163_)))) - (let ((_tl161036161173_ + (gx#syntax-e _tl161295161425_)))) + (let ((_tl161298161435_ (let () (declare (not safe)) - (##cdr _e161038161166_))) - (_hd161037161170_ + (##cdr _e161300161428_))) + (_hd161299161432_ (let () (declare (not safe)) - (##car _e161038161166_)))) + (##car _e161300161428_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161036161173_)) - (let ((_e161041161176_ + (gx#stx-pair? _tl161298161435_)) + (let ((_e161303161438_ (let () (declare (not safe)) - (gx#syntax-e _tl161036161173_)))) - (let ((_tl161039161183_ + (gx#syntax-e _tl161298161435_)))) + (let ((_tl161301161445_ (let () (declare (not safe)) - (##cdr _e161041161176_))) - (_hd161040161180_ + (##cdr _e161303161438_))) + (_hd161302161442_ (let () (declare (not safe)) - (##car _e161041161176_)))) + (##car _e161303161438_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161039161183_)) - (___kont161941161942_ - _hd161040161180_ - _hd161037161170_) + (gx#stx-null? _tl161301161445_)) + (___kont162203162204_ + _hd161302161442_ + _hd161299161432_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl161036161173_)) - (let ((___splice161945161946_ + _tl161298161435_)) + (let ((___splice162207162208_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161036161173_ + _tl161298161435_ '0)))) - (let ((_tl161052161094_ + (let ((_tl161314161356_ (let () (declare (not safe)) (##vector-ref - ___splice161945161946_ + ___splice162207162208_ '1))) - (_target161050161091_ + (_target161312161353_ (let () (declare (not safe)) (##vector-ref - ___splice161945161946_ + ___splice162207162208_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161052161094_)) - (___match161987161988_ - _e161035161156_ - _hd161034161160_ - _tl161033161163_ - _e161038161166_ - _hd161037161170_ - _tl161036161173_ - ___splice161945161946_ - _target161050161091_ - _tl161052161094_) + _tl161314161356_)) + (___match162249162250_ + _e161297161418_ + _hd161296161422_ + _tl161295161425_ + _e161300161428_ + _hd161299161432_ + _tl161298161435_ + ___splice162207162208_ + _target161312161353_ + _tl161314161356_) (let () (declare (not safe)) - (_g161029161064_))))) + (_g161291161326_))))) (let () (declare (not safe)) - (_g161029161064_)))))) + (_g161291161326_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161036161173_)) - (let ((___splice161945161946_ + (gx#stx-pair/null? _tl161298161435_)) + (let ((___splice162207162208_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161036161173_ + _tl161298161435_ '0)))) - (let ((_tl161052161094_ + (let ((_tl161314161356_ (let () (declare (not safe)) (##vector-ref - ___splice161945161946_ + ___splice162207162208_ '1))) - (_target161050161091_ + (_target161312161353_ (let () (declare (not safe)) (##vector-ref - ___splice161945161946_ + ___splice162207162208_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161052161094_)) - (___match161987161988_ - _e161035161156_ - _hd161034161160_ - _tl161033161163_ - _e161038161166_ - _hd161037161170_ - _tl161036161173_ - ___splice161945161946_ - _target161050161091_ - _tl161052161094_) + (gx#stx-null? _tl161314161356_)) + (___match162249162250_ + _e161297161418_ + _hd161296161422_ + _tl161295161425_ + _e161300161428_ + _hd161299161432_ + _tl161298161435_ + ___splice162207162208_ + _target161312161353_ + _tl161314161356_) (let () (declare (not safe)) - (_g161029161064_))))) + (_g161291161326_))))) (let () (declare (not safe)) - (_g161029161064_)))))) - (let () (declare (not safe)) (_g161029161064_))))) - (let () (declare (not safe)) (_g161029161064_)))))))) + (_g161291161326_)))))) + (let () (declare (not safe)) (_g161291161326_))))) + (let () (declare (not safe)) (_g161291161326_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx161208_) - (let* ((_g161212161247_ - (lambda (_g161213161243_) + (lambda (_$stx161470_) + (let* ((_g161474161509_ + (lambda (_g161475161505_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161213161243_)))) - (_g161211161375_ - (lambda (_g161213161251_) + _g161475161505_)))) + (_g161473161637_ + (lambda (_g161475161513_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161213161251_)) - (let ((_e161218161254_ + (gx#stx-pair? _g161475161513_)) + (let ((_e161480161516_ (let () (declare (not safe)) - (gx#syntax-e _g161213161251_)))) - (let ((_hd161217161258_ + (gx#syntax-e _g161475161513_)))) + (let ((_hd161479161520_ (let () (declare (not safe)) - (##car _e161218161254_))) - (_tl161216161261_ + (##car _e161480161516_))) + (_tl161478161523_ (let () (declare (not safe)) - (##cdr _e161218161254_)))) + (##cdr _e161480161516_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161216161261_)) - (let ((_g162273_ + (gx#stx-pair/null? _tl161478161523_)) + (let ((_g162535_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161216161261_ + _tl161478161523_ '0)))) (begin - (let ((_g162274_ + (let ((_g162536_ (let () (declare (not safe)) - (if (##values? _g162273_) - (##vector-length _g162273_) + (if (##values? _g162535_) + (##vector-length _g162535_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162274_ 2))) + (##fx= _g162536_ 2))) (error "Context expects 2 values" - _g162274_))) - (let ((_target161219161264_ + _g162536_))) + (let ((_target161481161526_ (let () (declare (not safe)) - (##vector-ref _g162273_ 0))) - (_tl161221161267_ + (##vector-ref _g162535_ 0))) + (_tl161483161529_ (let () (declare (not safe)) - (##vector-ref _g162273_ 1)))) + (##vector-ref _g162535_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161221161267_)) - (letrec ((_loop161222161270_ - (lambda (_hd161220161274_ - _arity161226161277_ - _prim161227161279_) + (gx#stx-null? _tl161483161529_)) + (letrec ((_loop161484161532_ + (lambda (_hd161482161536_ + _arity161488161539_ + _prim161489161541_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161220161274_)) - (let ((_e161223161282_ + _hd161482161536_)) + (let ((_e161485161544_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd161220161274_)))) - (let ((_lp-hd161224161286_ - (let () (declare (not safe)) (##car _e161223161282_))) - (_lp-tl161225161289_ - (let () (declare (not safe)) (##cdr _e161223161282_)))) + (gx#syntax-e _hd161482161536_)))) + (let ((_lp-hd161486161548_ + (let () (declare (not safe)) (##car _e161485161544_))) + (_lp-tl161487161551_ + (let () (declare (not safe)) (##cdr _e161485161544_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161224161286_)) - (let ((_e161232161292_ + (gx#stx-pair? _lp-hd161486161548_)) + (let ((_e161494161554_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161224161286_)))) - (let ((_hd161231161296_ + (gx#syntax-e _lp-hd161486161548_)))) + (let ((_hd161493161558_ (let () (declare (not safe)) - (##car _e161232161292_))) - (_tl161230161299_ + (##car _e161494161554_))) + (_tl161492161561_ (let () (declare (not safe)) - (##cdr _e161232161292_)))) + (##cdr _e161494161554_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161230161299_)) - (let ((_g162283_ + (gx#stx-pair/null? _tl161492161561_)) + (let ((_g162545_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161230161299_ + _tl161492161561_ '0)))) (begin - (let ((_g162284_ + (let ((_g162546_ (let () (declare (not safe)) - (if (##values? _g162283_) - (##vector-length _g162283_) + (if (##values? _g162545_) + (##vector-length _g162545_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162284_ 2))) + (##fx= _g162546_ 2))) (error "Context expects 2 values" - _g162284_))) - (let ((_target161233161302_ + _g162546_))) + (let ((_target161495161564_ (let () (declare (not safe)) - (##vector-ref _g162283_ 0))) - (_tl161235161305_ + (##vector-ref _g162545_ 0))) + (_tl161497161567_ (let () (declare (not safe)) - (##vector-ref _g162283_ 1)))) + (##vector-ref _g162545_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161235161305_)) - (letrec ((_loop161236161308_ - (lambda (_hd161234161312_ - _arity161240161315_) + (gx#stx-null? _tl161497161567_)) + (letrec ((_loop161498161570_ + (lambda (_hd161496161574_ + _arity161502161577_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161234161312_)) - (let ((_e161237161318_ + _hd161496161574_)) + (let ((_e161499161580_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd161234161312_)))) - (let ((_lp-hd161238161322_ - (let () (declare (not safe)) (##car _e161237161318_))) - (_lp-tl161239161325_ + (gx#syntax-e _hd161496161574_)))) + (let ((_lp-hd161500161584_ + (let () (declare (not safe)) (##car _e161499161580_))) + (_lp-tl161501161587_ (let () (declare (not safe)) - (##cdr _e161237161318_)))) - (_loop161236161308_ - _lp-tl161239161325_ + (##cdr _e161499161580_)))) + (_loop161498161570_ + _lp-tl161501161587_ (let () (declare (not safe)) - (cons _lp-hd161238161322_ _arity161240161315_))))) - (let ((_arity161241161328_ (reverse _arity161240161315_))) - (_loop161222161270_ - _lp-tl161225161289_ + (cons _lp-hd161500161584_ _arity161502161577_))))) + (let ((_arity161503161590_ (reverse _arity161502161577_))) + (_loop161484161532_ + _lp-tl161487161551_ (let () (declare (not safe)) - (cons _arity161241161328_ _arity161226161277_)) + (cons _arity161503161590_ _arity161488161539_)) (let () (declare (not safe)) - (cons _hd161231161296_ _prim161227161279_)))))))) + (cons _hd161493161558_ _prim161489161541_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161236161308_ - _target161233161302_ + (_loop161498161570_ + _target161495161564_ '())) - (_g161212161247_ _g161213161251_))))) - (_g161212161247_ _g161213161251_)))) - (_g161212161247_ _g161213161251_)))) - (let ((_arity161228161332_ (reverse _arity161226161277_)) - (_prim161229161335_ (reverse _prim161227161279_))) - ((lambda (_L161338_ _L161340_) - (let ((__tmp162282 + (_g161474161509_ _g161475161513_))))) + (_g161474161509_ _g161475161513_)))) + (_g161474161509_ _g161475161513_)))) + (let ((_arity161490161594_ (reverse _arity161488161539_)) + (_prim161491161597_ (reverse _prim161489161541_))) + ((lambda (_L161600_ _L161602_) + (let ((__tmp162544 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162275 + (__tmp162537 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161338_ - _L161340_)) - (let ((__tmp162276 - (lambda (_g161355161361_ - _g161356161364_ - _g161357161366_) - (let ((__tmp162277 - (let ((__tmp162281 + _L161600_ + _L161602_)) + (let ((__tmp162538 + (lambda (_g161617161623_ + _g161618161626_ + _g161619161628_) + (let ((__tmp162539 + (let ((__tmp162543 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp162278 - (let ((__tmp162279 - (let ((__tmp162280 + (__tmp162540 + (let ((__tmp162541 + (let ((__tmp162542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g161358161369_ _g161359161372_) + (lambda (_g161620161631_ _g161621161634_) (let () (declare (not safe)) - (cons _g161358161369_ _g161359161372_))))) + (cons _g161620161631_ _g161621161634_))))) (declare (not safe)) - (foldr1 __tmp162280 '() _g161355161361_)))) + (foldr1 __tmp162542 '() _g161617161623_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g161356161364_ - __tmp162279)))) + (cons _g161618161626_ + __tmp162541)))) (declare (not safe)) - (cons __tmp162281 __tmp162278)))) + (cons __tmp162543 __tmp162540)))) (declare (not safe)) - (cons __tmp162277 _g161357161366_))))) + (cons __tmp162539 _g161619161628_))))) (declare (not safe)) - (foldr2 __tmp162276 '() _L161338_ _L161340_))))) + (foldr2 __tmp162538 '() _L161600_ _L161602_))))) (declare (not safe)) - (cons __tmp162282 __tmp162275))) - _arity161228161332_ - _prim161229161335_)))))) + (cons __tmp162544 __tmp162537))) + _arity161490161594_ + _prim161491161597_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161222161270_ - _target161219161264_ + (_loop161484161532_ + _target161481161526_ '() '())) - (_g161212161247_ _g161213161251_))))) - (_g161212161247_ _g161213161251_)))) - (_g161212161247_ _g161213161251_))))) - (_g161211161375_ _$stx161208_)))) + (_g161474161509_ _g161475161513_))))) + (_g161474161509_ _g161475161513_)))) + (_g161474161509_ _g161475161513_))))) + (_g161473161637_ _$stx161470_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx161381_) - (let* ((_g161385161420_ - (lambda (_g161386161416_) + (lambda (_$stx161643_) + (let* ((_g161647161682_ + (lambda (_g161648161678_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161386161416_)))) - (_g161384161548_ - (lambda (_g161386161424_) + _g161648161678_)))) + (_g161646161810_ + (lambda (_g161648161686_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161386161424_)) - (let ((_e161391161427_ + (gx#stx-pair? _g161648161686_)) + (let ((_e161653161689_ (let () (declare (not safe)) - (gx#syntax-e _g161386161424_)))) - (let ((_hd161390161431_ + (gx#syntax-e _g161648161686_)))) + (let ((_hd161652161693_ (let () (declare (not safe)) - (##car _e161391161427_))) - (_tl161389161434_ + (##car _e161653161689_))) + (_tl161651161696_ (let () (declare (not safe)) - (##cdr _e161391161427_)))) + (##cdr _e161653161689_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161389161434_)) - (let ((_g162285_ + (gx#stx-pair/null? _tl161651161696_)) + (let ((_g162547_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161389161434_ + _tl161651161696_ '0)))) (begin - (let ((_g162286_ + (let ((_g162548_ (let () (declare (not safe)) - (if (##values? _g162285_) - (##vector-length _g162285_) + (if (##values? _g162547_) + (##vector-length _g162547_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162286_ 2))) + (##fx= _g162548_ 2))) (error "Context expects 2 values" - _g162286_))) - (let ((_target161392161437_ + _g162548_))) + (let ((_target161654161699_ (let () (declare (not safe)) - (##vector-ref _g162285_ 0))) - (_tl161394161440_ + (##vector-ref _g162547_ 0))) + (_tl161656161702_ (let () (declare (not safe)) - (##vector-ref _g162285_ 1)))) + (##vector-ref _g162547_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161394161440_)) - (letrec ((_loop161395161443_ - (lambda (_hd161393161447_ - _arity161399161450_ - _prim161400161452_) + (gx#stx-null? _tl161656161702_)) + (letrec ((_loop161657161705_ + (lambda (_hd161655161709_ + _arity161661161712_ + _prim161662161714_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161393161447_)) - (let ((_e161396161455_ + _hd161655161709_)) + (let ((_e161658161717_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd161393161447_)))) - (let ((_lp-hd161397161459_ - (let () (declare (not safe)) (##car _e161396161455_))) - (_lp-tl161398161462_ - (let () (declare (not safe)) (##cdr _e161396161455_)))) + (gx#syntax-e _hd161655161709_)))) + (let ((_lp-hd161659161721_ + (let () (declare (not safe)) (##car _e161658161717_))) + (_lp-tl161660161724_ + (let () (declare (not safe)) (##cdr _e161658161717_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161397161459_)) - (let ((_e161405161465_ + (gx#stx-pair? _lp-hd161659161721_)) + (let ((_e161667161727_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161397161459_)))) - (let ((_hd161404161469_ + (gx#syntax-e _lp-hd161659161721_)))) + (let ((_hd161666161731_ (let () (declare (not safe)) - (##car _e161405161465_))) - (_tl161403161472_ + (##car _e161667161727_))) + (_tl161665161734_ (let () (declare (not safe)) - (##cdr _e161405161465_)))) + (##cdr _e161667161727_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161403161472_)) - (let ((_g162295_ + (gx#stx-pair/null? _tl161665161734_)) + (let ((_g162557_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161403161472_ + _tl161665161734_ '0)))) (begin - (let ((_g162296_ + (let ((_g162558_ (let () (declare (not safe)) - (if (##values? _g162295_) - (##vector-length _g162295_) + (if (##values? _g162557_) + (##vector-length _g162557_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162296_ 2))) + (##fx= _g162558_ 2))) (error "Context expects 2 values" - _g162296_))) - (let ((_target161406161475_ + _g162558_))) + (let ((_target161668161737_ (let () (declare (not safe)) - (##vector-ref _g162295_ 0))) - (_tl161408161478_ + (##vector-ref _g162557_ 0))) + (_tl161670161740_ (let () (declare (not safe)) - (##vector-ref _g162295_ 1)))) + (##vector-ref _g162557_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161408161478_)) - (letrec ((_loop161409161481_ - (lambda (_hd161407161485_ - _arity161413161488_) + (gx#stx-null? _tl161670161740_)) + (letrec ((_loop161671161743_ + (lambda (_hd161669161747_ + _arity161675161750_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161407161485_)) - (let ((_e161410161491_ + _hd161669161747_)) + (let ((_e161672161753_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd161407161485_)))) - (let ((_lp-hd161411161495_ - (let () (declare (not safe)) (##car _e161410161491_))) - (_lp-tl161412161498_ + (gx#syntax-e _hd161669161747_)))) + (let ((_lp-hd161673161757_ + (let () (declare (not safe)) (##car _e161672161753_))) + (_lp-tl161674161760_ (let () (declare (not safe)) - (##cdr _e161410161491_)))) - (_loop161409161481_ - _lp-tl161412161498_ + (##cdr _e161672161753_)))) + (_loop161671161743_ + _lp-tl161674161760_ (let () (declare (not safe)) - (cons _lp-hd161411161495_ _arity161413161488_))))) - (let ((_arity161414161501_ (reverse _arity161413161488_))) - (_loop161395161443_ - _lp-tl161398161462_ + (cons _lp-hd161673161757_ _arity161675161750_))))) + (let ((_arity161676161763_ (reverse _arity161675161750_))) + (_loop161657161705_ + _lp-tl161660161724_ (let () (declare (not safe)) - (cons _arity161414161501_ _arity161399161450_)) + (cons _arity161676161763_ _arity161661161712_)) (let () (declare (not safe)) - (cons _hd161404161469_ _prim161400161452_)))))))) + (cons _hd161666161731_ _prim161662161714_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161409161481_ - _target161406161475_ + (_loop161671161743_ + _target161668161737_ '())) - (_g161385161420_ _g161386161424_))))) - (_g161385161420_ _g161386161424_)))) - (_g161385161420_ _g161386161424_)))) - (let ((_arity161401161505_ (reverse _arity161399161450_)) - (_prim161402161508_ (reverse _prim161400161452_))) - ((lambda (_L161511_ _L161513_) - (let ((__tmp162294 + (_g161647161682_ _g161648161686_))))) + (_g161647161682_ _g161648161686_)))) + (_g161647161682_ _g161648161686_)))) + (let ((_arity161663161767_ (reverse _arity161661161712_)) + (_prim161664161770_ (reverse _prim161662161714_))) + ((lambda (_L161773_ _L161775_) + (let ((__tmp162556 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162287 + (__tmp162549 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161511_ - _L161513_)) - (let ((__tmp162288 - (lambda (_g161528161534_ - _g161529161537_ - _g161530161539_) - (let ((__tmp162289 - (let ((__tmp162293 + _L161773_ + _L161775_)) + (let ((__tmp162550 + (lambda (_g161790161796_ + _g161791161799_ + _g161792161801_) + (let ((__tmp162551 + (let ((__tmp162555 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp162290 - (let ((__tmp162291 - (let ((__tmp162292 + (__tmp162552 + (let ((__tmp162553 + (let ((__tmp162554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g161531161542_ _g161532161545_) + (lambda (_g161793161804_ _g161794161807_) (let () (declare (not safe)) - (cons _g161531161542_ _g161532161545_))))) + (cons _g161793161804_ _g161794161807_))))) (declare (not safe)) - (foldr1 __tmp162292 '() _g161528161534_)))) + (foldr1 __tmp162554 '() _g161790161796_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g161529161537_ - __tmp162291)))) + (cons _g161791161799_ + __tmp162553)))) (declare (not safe)) - (cons __tmp162293 __tmp162290)))) + (cons __tmp162555 __tmp162552)))) (declare (not safe)) - (cons __tmp162289 _g161530161539_))))) + (cons __tmp162551 _g161792161801_))))) (declare (not safe)) - (foldr2 __tmp162288 '() _L161511_ _L161513_))))) + (foldr2 __tmp162550 '() _L161773_ _L161775_))))) (declare (not safe)) - (cons __tmp162294 __tmp162287))) - _arity161401161505_ - _prim161402161508_)))))) + (cons __tmp162556 __tmp162549))) + _arity161663161767_ + _prim161664161770_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161395161443_ - _target161392161437_ + (_loop161657161705_ + _target161654161699_ '() '())) - (_g161385161420_ _g161386161424_))))) - (_g161385161420_ _g161386161424_)))) - (_g161385161420_ _g161386161424_))))) - (_g161384161548_ _$stx161381_))))) + (_g161647161682_ _g161648161686_))))) + (_g161647161682_ _g161648161686_)))) + (_g161647161682_ _g161648161686_))))) + (_g161646161810_ _$stx161643_))))) diff --git a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm index 23bb09d5..1ef9de1d 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 1709375795) + (define gerbil/core$<MOP>$<MOP:2>::timestamp 1709457366) (begin (define gerbil/core$<MOP>$<MOP:2>#class-type-info::t (let ((__tmp49652 (list))) @@ -453,12 +453,12 @@ (let () (declare (not safe)) (##car _e1927519310_))) (_lp-tl1927719315_ (let () (declare (not safe)) (##cdr _e1927519310_)))) - (let ((__tmp49656 + (let ((__tmp49657 (let () (declare (not safe)) (cons _lp-hd1927619313_ _arg1927819307_)))) (declare (not safe)) - (_loop1927419302_ _lp-tl1927719315_ __tmp49656)))) + (_loop1927419302_ _lp-tl1927719315_ __tmp49657)))) (let ((_arg1927919318_ (reverse _arg1927819307_))) ((lambda (_L19321_) (let ((_$e19335_ @@ -482,14 +482,15 @@ (if _$e19335_ ((lambda (_make19338_) (let ((__tmp49655 - (foldr (lambda (_g1933919342_ + (let ((__tmp49656 + (lambda (_g1933919342_ _g1934019344_) (let () (declare (not safe)) (cons _g1933919342_ - _g1934019344_))) - '() - _L19321_))) + _g1934019344_))))) + (declare (not safe)) + (foldr1 __tmp49656 '() _L19321_)))) (declare (not safe)) (cons _make19338_ __tmp49655))) _$e19335_) @@ -516,10 +517,12 @@ (_g1926519284_ _g1926619287_)))))) (declare (not safe)) (_g1926419347_ _stx19263_)))) - (bind-method! - gerbil/core$<MOP>$<MOP:2>#class-type-info::t - 'apply-macro-expander - gerbil/core$<MOP>$<MOP:2>#class-type-info::apply-macro-expander) + (let () + (declare (not safe)) + (bind-method!__0 + gerbil/core$<MOP>$<MOP:2>#class-type-info::t + 'apply-macro-expander + gerbil/core$<MOP>$<MOP:2>#class-type-info::apply-macro-expander)) (define gerbil/core$<MOP>$<MOP:2>#syntax-local-class-type-info?__% (lambda (_stx19243_ _is?19244_) (if (gx#identifier? _stx19243_) @@ -543,24 +546,24 @@ _stx19255_ _is?19257_)))) (define gerbil/core$<MOP>$<MOP:2>#syntax-local-class-type-info? - (lambda _g49658_ - (let ((_g49657_ (let () (declare (not safe)) (##length _g49658_)))) - (cond ((let () (declare (not safe)) (##fx= _g49657_ 1)) + (lambda _g49659_ + (let ((_g49658_ (let () (declare (not safe)) (##length _g49659_)))) + (cond ((let () (declare (not safe)) (##fx= _g49658_ 1)) (apply (lambda (_stx19255_) (let () (declare (not safe)) (gerbil/core$<MOP>$<MOP:2>#syntax-local-class-type-info?__0 _stx19255_))) - _g49658_)) - ((let () (declare (not safe)) (##fx= _g49657_ 2)) + _g49659_)) + ((let () (declare (not safe)) (##fx= _g49658_ 2)) (apply (lambda (_stx19259_ _is?19260_) (let () (declare (not safe)) (gerbil/core$<MOP>$<MOP:2>#syntax-local-class-type-info?__% _stx19259_ _is?19260_))) - _g49658_)) + _g49659_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core$<MOP>$<MOP:2>#syntax-local-class-type-info? - _g49658_)))))))) + _g49659_)))))))) diff --git a/src/bootstrap/gerbil/core$_macro-object___0.scm b/src/bootstrap/gerbil/core$_macro-object___0.scm index ce4bc4d5..92be4ce3 100644 --- a/src/bootstrap/gerbil/core$_macro-object___0.scm +++ b/src/bootstrap/gerbil/core$_macro-object___0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$<macro-object>::timestamp 1709375795) + (define gerbil/core$<macro-object>::timestamp 1709457366) (begin (define gerbil/core$<macro-object>#macro-object::t - (let ((__tmp49659 (list))) + (let ((__tmp49660 (list))) (declare (not safe)) (make-class-type 'gerbil.core#macro-object::t 'macro-object - __tmp49659 + __tmp49660 '(macro) '() '#f))) @@ -88,11 +88,15 @@ __klass43971 '#f)) _stx23415_))))) - (bind-specializer! - gerbil/core$<macro-object>#macro-object::apply-macro-expander - gerbil/core$<macro-object>#macro-object::apply-macro-expander::specialize) - (bind-method! - gerbil/core$<macro-object>#macro-object::t - 'apply-macro-expander - gerbil/core$<macro-object>#macro-object::apply-macro-expander - '#f))) + (let () + (declare (not safe)) + (bind-specializer! + gerbil/core$<macro-object>#macro-object::apply-macro-expander + gerbil/core$<macro-object>#macro-object::apply-macro-expander::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + gerbil/core$<macro-object>#macro-object::t + 'apply-macro-expander + gerbil/core$<macro-object>#macro-object::apply-macro-expander + '#f)))) diff --git a/src/bootstrap/gerbil/core.ssxi.ss b/src/bootstrap/gerbil/core.ssxi.ss index d8684b47..9a5dadc7 100644 --- a/src/bootstrap/gerbil/core.ssxi.ss +++ b/src/bootstrap/gerbil/core.ssxi.ss @@ -323,11 +323,6 @@ package: gerbil (declare-type gerbil/core$<macro-object>#macro-object::apply-macro-expander::specialize (@lambda 2 #f)) - (declare-method - gerbil/core$<macro-object>#macro-object::t - apply-macro-expander - gerbil/core$<macro-object>#macro-object::apply-macro-expander - #f) (declare-type |gerbil/core$<match>[1]#match-macro::t| (@class gerbil.core#match-macro::t diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index feae362b..cff4004c 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -1,116 +1,116 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<match>[1]#_g51844_| + (define |gerbil/core$<match>[1]#_g52204_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51845_| + (define |gerbil/core$<match>[1]#_g52205_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51901_| + (define |gerbil/core$<match>[1]#_g52262_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51902_| + (define |gerbil/core$<match>[1]#_g52263_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51903_| + (define |gerbil/core$<match>[1]#_g52264_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51905_| + (define |gerbil/core$<match>[1]#_g52266_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51906_| + (define |gerbil/core$<match>[1]#_g52267_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51907_| + (define |gerbil/core$<match>[1]#_g52268_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51908_| + (define |gerbil/core$<match>[1]#_g52269_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51909_| + (define |gerbil/core$<match>[1]#_g52270_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51910_| + (define |gerbil/core$<match>[1]#_g52271_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51911_| + (define |gerbil/core$<match>[1]#_g52272_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51912_| + (define |gerbil/core$<match>[1]#_g52273_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51913_| + (define |gerbil/core$<match>[1]#_g52274_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g51914_| + (define |gerbil/core$<match>[1]#_g52275_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52294_| + (define |gerbil/core$<match>[1]#_g52670_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52374_| + (define |gerbil/core$<match>[1]#_g52754_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52394_| + (define |gerbil/core$<match>[1]#_g52774_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52395_| + (define |gerbil/core$<match>[1]#_g52775_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52512_| + (define |gerbil/core$<match>[1]#_g52904_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52513_| + (define |gerbil/core$<match>[1]#_g52905_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52514_| + (define |gerbil/core$<match>[1]#_g52906_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52515_| + (define |gerbil/core$<match>[1]#_g52907_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52516_| + (define |gerbil/core$<match>[1]#_g52908_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$<match>[1]#match-macro::t| - (let ((__tmp51828 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp52188 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#match-macro::t 'match-macro - __tmp51828 + __tmp52188 '() '() '#f))) @@ -150,11 +150,11 @@ (define |gerbil/core$<match>[1]#syntax-local-match-macro?| (lambda (_stx30638_) (if (gx#identifier? _stx30638_) - (let ((__tmp51829 (gx#syntax-local-value _stx30638_ false))) + (let ((__tmp52189 (gx#syntax-local-value _stx30638_ false))) (declare (not safe)) (class-instance? |gerbil/core$<match>[1]#match-macro::t| - __tmp51829)) + __tmp52189)) '#f))) (define |gerbil/core$<match>[1]#parse-match-pattern__%| (lambda (_stx28944_ _match-stx28946_) @@ -178,75 +178,75 @@ ___stx4690246903_)))) (let ((___kont4690546906_ (lambda () - (let ((__tmp51830 + (let ((__tmp52190 (let () (declare (not safe)) (cons _L30403_ '())))) (declare (not safe)) - (cons '?: __tmp51830)))) + (cons '?: __tmp52190)))) (___kont4690746908_ (lambda (_L30594_) - (let ((__tmp51831 - (let ((__tmp51832 - (let ((__tmp51833 + (let ((__tmp52191 + (let ((__tmp52192 + (let ((__tmp52193 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (_parse128948_ _L30594_)))) (declare (not safe)) - (cons __tmp51833 '())))) + (cons __tmp52193 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp51832)))) + __tmp52192)))) (declare (not safe)) - (cons '?: __tmp51831)))) + (cons '?: __tmp52191)))) (___kont4690946910_ (lambda (_L30564_) - (let ((__tmp51834 - (let ((__tmp51835 - (let ((__tmp51836 - (let ((__tmp51837 + (let ((__tmp52194 + (let ((__tmp52195 + (let ((__tmp52196 + (let ((__tmp52197 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (_parse128948_ _L30564_)))) (declare (not safe)) - (cons __tmp51837 '())))) + (cons __tmp52197 '())))) (declare (not safe)) - (cons '=>: __tmp51836)))) + (cons '=>: __tmp52196)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp51835)))) + __tmp52195)))) (declare (not safe)) - (cons '?: __tmp51834)))) + (cons '?: __tmp52194)))) (___kont4691146912_ (lambda (_L30515_ _L30517_) - (let ((__tmp51838 - (let ((__tmp51839 - (let ((__tmp51840 - (let ((__tmp51841 + (let ((__tmp52198 + (let ((__tmp52199 + (let ((__tmp52200 + (let ((__tmp52201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51842 - (let ((__tmp51843 + (let ((__tmp52202 + (let ((__tmp52203 (let () (declare (not safe)) (_parse128948_ _L30515_)))) (declare (not safe)) - (cons __tmp51843 '())))) + (cons __tmp52203 '())))) (declare (not safe)) - (cons '=>: __tmp51842)))) + (cons '=>: __tmp52202)))) (declare (not safe)) - (cons _L30517_ __tmp51841)))) + (cons _L30517_ __tmp52201)))) (declare (not safe)) - (cons ':: __tmp51840)))) + (cons ':: __tmp52200)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp51839)))) + __tmp52199)))) (declare (not safe)) - (cons '?: __tmp51838)))) + (cons '?: __tmp52198)))) (___kont4691346914_ (lambda () (let () @@ -275,7 +275,7 @@ _hd3042430588_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<match>[1]#_g51845_| + |gerbil/core$<match>[1]#_g52205_| _hd3042430588_) (if (gx#stx-pair? _tl3042330591_) (let ((_e3043230554_ (gx#syntax-e _tl3042330591_))) @@ -322,7 +322,7 @@ (if (gx#identifier? _hd3044330499_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51844_| + |gerbil/core$<match>[1]#_g52204_| _hd3044330499_) (if (gx#stx-pair? _tl3044230502_) @@ -369,12 +369,12 @@ (_parse128948_ _L30357_)))) (___kont4688946890_ (lambda () - (let ((__tmp51846 + (let ((__tmp52206 (gx#stx-map _parse128948_ _L30306_))) (declare (not safe)) - (cons 'and: __tmp51846))))) + (cons 'and: __tmp52206))))) (if (gx#stx-pair? ___stx4688446885_) (let ((_e3032330347_ (gx#syntax-e ___stx4688446885_))) @@ -407,12 +407,12 @@ (_parse128948_ _L30272_)))) (___kont4687146872_ (lambda () - (let ((__tmp51847 + (let ((__tmp52207 (gx#stx-map _parse128948_ _L30221_))) (declare (not safe)) - (cons 'or: __tmp51847))))) + (cons 'or: __tmp52207))))) (if (gx#stx-pair? ___stx4686646867_) (let ((_e3023830262_ (gx#syntax-e ___stx4686646867_))) @@ -431,80 +431,80 @@ (___kont4687146872_)))))) (___kont4699146992_ (lambda (_L30191_) - (let ((__tmp51848 - (let ((__tmp51849 + (let ((__tmp52208 + (let ((__tmp52209 (let () (declare (not safe)) (_parse128948_ _L30191_)))) (declare (not safe)) - (cons __tmp51849 '())))) + (cons __tmp52209 '())))) (declare (not safe)) - (cons 'not: __tmp51848)))) + (cons 'not: __tmp52208)))) (___kont4699346994_ (lambda (_L30147_ _L30149_) - (let ((__tmp51850 - (let ((__tmp51853 + (let ((__tmp52210 + (let ((__tmp52213 (let () (declare (not safe)) (_parse128948_ _L30149_))) - (__tmp51851 - (let ((__tmp51852 + (__tmp52211 + (let ((__tmp52212 (let () (declare (not safe)) (_parse128948_ _L30147_)))) (declare (not safe)) - (cons __tmp51852 '())))) + (cons __tmp52212 '())))) (declare (not safe)) - (cons __tmp51853 __tmp51851)))) + (cons __tmp52213 __tmp52211)))) (declare (not safe)) - (cons 'cons: __tmp51850)))) + (cons 'cons: __tmp52210)))) (___kont4699546996_ (lambda (_L30091_ _L30093_ _L30094_) (if (gx#stx-null? _L30091_) - (let ((__tmp51861 - (let ((__tmp51864 + (let ((__tmp52221 + (let ((__tmp52224 (let () (declare (not safe)) (_parse128948_ _L30094_))) - (__tmp51862 - (let ((__tmp51863 + (__tmp52222 + (let ((__tmp52223 (let () (declare (not safe)) (_parse128948_ _L30093_)))) (declare (not safe)) - (cons __tmp51863 '())))) + (cons __tmp52223 '())))) (declare (not safe)) - (cons __tmp51864 __tmp51862)))) + (cons __tmp52224 __tmp52222)))) (declare (not safe)) - (cons 'cons: __tmp51861)) - (let ((__tmp51854 - (let ((__tmp51860 + (cons 'cons: __tmp52221)) + (let ((__tmp52214 + (let ((__tmp52220 (let () (declare (not safe)) (_parse128948_ _L30094_))) - (__tmp51855 - (let ((__tmp51856 - (let ((__tmp51857 - (let ((__tmp51859 + (__tmp52215 + (let ((__tmp52216 + (let ((__tmp52217 + (let ((__tmp52219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons*)) - (__tmp51858 + (__tmp52218 (let () (declare (not safe)) (cons _L30093_ _L30091_)))) (declare (not safe)) - (cons __tmp51859 __tmp51858)))) + (cons __tmp52219 __tmp52218)))) (declare (not safe)) - (_parse128948_ __tmp51857)))) + (_parse128948_ __tmp52217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51856 '())))) + (cons __tmp52216 '())))) (declare (not safe)) - (cons __tmp51860 __tmp51855)))) + (cons __tmp52220 __tmp52215)))) (declare (not safe)) - (cons 'cons: __tmp51854))))) + (cons 'cons: __tmp52214))))) (___kont4699746998_ (lambda (_L30043_) (let () @@ -512,26 +512,26 @@ (_parse-list28950_ _L30043_)))) (___kont4699947000_ (lambda (_L30013_) - (let ((__tmp51865 - (let ((__tmp51866 + (let ((__tmp52225 + (let ((__tmp52226 (let () (declare (not safe)) (_parse128948_ _L30013_)))) (declare (not safe)) - (cons __tmp51866 '())))) + (cons __tmp52226 '())))) (declare (not safe)) - (cons 'box: __tmp51865)))) + (cons 'box: __tmp52225)))) (___kont4700147002_ (lambda (_L29976_) - (let ((__tmp51867 - (let ((__tmp51868 + (let ((__tmp52227 + (let ((__tmp52228 (let () (declare (not safe)) (_parse128948_ _L29976_)))) (declare (not safe)) - (cons __tmp51868 '())))) + (cons __tmp52228 '())))) (declare (not safe)) - (cons 'box: __tmp51867)))) + (cons 'box: __tmp52227)))) (___kont4700347004_ (lambda (_L29952_) (let () @@ -539,117 +539,118 @@ (_parse128948_ _L29952_)))) (___kont4700547006_ (lambda (_L29914_) - (let ((__tmp51869 - (let ((__tmp51870 + (let ((__tmp52229 + (let ((__tmp52230 (let () (declare (not safe)) (_parse-vector28951_ _L29914_)))) (declare (not safe)) - (cons __tmp51870 '())))) + (cons __tmp52230 '())))) (declare (not safe)) - (cons 'values: __tmp51869)))) + (cons 'values: __tmp52229)))) (___kont4700747008_ (lambda (_L29886_) - (let ((__tmp51871 - (let ((__tmp51872 + (let ((__tmp52231 + (let ((__tmp52232 (let () (declare (not safe)) (_parse-vector28951_ _L29886_)))) (declare (not safe)) - (cons __tmp51872 '())))) + (cons __tmp52232 '())))) (declare (not safe)) - (cons 'vector: __tmp51871)))) + (cons 'vector: __tmp52231)))) (___kont4700947010_ (lambda (_L29847_) - (let ((__tmp51873 - (let ((__tmp51874 - (let ((__tmp51875 - (foldr (lambda (_g2986029863_ + (let ((__tmp52233 + (let ((__tmp52234 + (let ((__tmp52235 + (let ((__tmp52236 + (lambda (_g2986029863_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2986129866_) (let () (declare (not safe)) - (cons _g2986029863_ _g2986129866_))) - '() - _L29847_))) + (cons _g2986029863_ _g2986129866_))))) + (declare (not safe)) + (foldr1 __tmp52236 '() _L29847_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_parse-vector28951_ - __tmp51875)))) + __tmp52235)))) (declare (not safe)) - (cons __tmp51874 '())))) + (cons __tmp52234 '())))) (declare (not safe)) - (cons 'vector: __tmp51873)))) + (cons 'vector: __tmp52233)))) (___kont4701347014_ (lambda (_L29793_ _L29795_) - (let ((__tmp51876 - (let ((__tmp51879 + (let ((__tmp52237 + (let ((__tmp52240 (gx#syntax-local-value _L29795_)) - (__tmp51877 - (let ((__tmp51878 + (__tmp52238 + (let ((__tmp52239 (let () (declare (not safe)) (_parse-vector28951_ _L29793_)))) (declare (not safe)) - (cons __tmp51878 '())))) + (cons __tmp52239 '())))) (declare (not safe)) - (cons __tmp51879 __tmp51877)))) + (cons __tmp52240 __tmp52238)))) (declare (not safe)) - (cons 'struct: __tmp51876)))) + (cons 'struct: __tmp52237)))) (___kont4701547016_ (lambda (_L29763_ _L29765_) - (let ((__tmp51880 - (let ((__tmp51883 + (let ((__tmp52241 + (let ((__tmp52244 (gx#syntax-local-value _L29765_)) - (__tmp51881 - (let ((__tmp51882 + (__tmp52242 + (let ((__tmp52243 (let () (declare (not safe)) (_parse-class-body28953_ _L29763_)))) (declare (not safe)) - (cons __tmp51882 '())))) + (cons __tmp52243 '())))) (declare (not safe)) - (cons __tmp51883 __tmp51881)))) + (cons __tmp52244 __tmp52242)))) (declare (not safe)) - (cons 'class: __tmp51880)))) + (cons 'class: __tmp52241)))) (___kont4701747018_ (lambda (_L29723_ _L29725_) - (let ((__tmp51884 - (let ((__tmp51885 - (let ((__tmp51890 + (let ((__tmp52245 + (let ((__tmp52246 + (let ((__tmp52251 (gx#datum->syntax '#f 'cut)) - (__tmp51886 - (let ((__tmp51887 - (let ((__tmp51889 + (__tmp52247 + (let ((__tmp52248 + (let ((__tmp52250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '<>)) - (__tmp51888 + (__tmp52249 (let () (declare (not safe)) (cons _L29723_ '())))) (declare (not safe)) - (cons __tmp51889 __tmp51888)))) + (cons __tmp52250 __tmp52249)))) (declare (not safe)) - (cons _L29725_ __tmp51887)))) + (cons _L29725_ __tmp52248)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51890 __tmp51886)))) + (cons __tmp52251 __tmp52247)))) (declare (not safe)) - (cons __tmp51885 '())))) + (cons __tmp52246 '())))) (declare (not safe)) - (cons '?: __tmp51884)))) + (cons '?: __tmp52245)))) (___kont4701947020_ (lambda (_L29683_) - (let ((__tmp51891 - (let ((__tmp51892 (gx#stx-e _L29683_))) + (let ((__tmp52252 + (let ((__tmp52253 (gx#stx-e _L29683_))) (declare (not safe)) - (cons __tmp51892 '())))) + (cons __tmp52253 '())))) (declare (not safe)) - (cons 'datum: __tmp51891)))) + (cons 'datum: __tmp52252)))) (___kont4702147022_ (lambda (_L29643_) (let () @@ -657,22 +658,22 @@ (_parse-qq28954_ _L29643_)))) (___kont4702347024_ (lambda (_L29599_ _L29601_) - (let ((__tmp51893 - (let ((__tmp51894 - (let ((__tmp51895 + (let ((__tmp52254 + (let ((__tmp52255 + (let ((__tmp52256 (let () (declare (not safe)) (_parse128948_ _L29599_)))) (declare (not safe)) - (cons __tmp51895 '())))) + (cons __tmp52256 '())))) (declare (not safe)) - (cons _L29601_ __tmp51894)))) + (cons _L29601_ __tmp52255)))) (declare (not safe)) - (cons 'apply: __tmp51893)))) + (cons 'apply: __tmp52254)))) (___kont4702547026_ (lambda (_L29547_) - (let ((__tmp51896 + (let ((__tmp52257 (gx#core-apply-expander (gx#syntax-local-e _L29547_) (gx#stx-wrap-source @@ -685,26 +686,26 @@ _$e29558_ (gx#stx-source _stx28944_))))))) (declare (not safe)) - (_parse128948_ __tmp51896)))) + (_parse128948_ __tmp52257)))) (___kont4702747028_ (lambda (_L29521_) (let () (declare (not safe)) (cons 'any: '())))) (___kont4702947030_ (lambda (_L29505_) - (let ((__tmp51897 + (let ((__tmp52258 (let () (declare (not safe)) (cons _L29505_ '())))) (declare (not safe)) - (cons 'var: __tmp51897)))) + (cons 'var: __tmp52258)))) (___kont4703147032_ (lambda (_L29487_) - (let ((__tmp51898 - (let ((__tmp51899 (gx#stx-e _L29487_))) + (let ((__tmp52259 + (let ((__tmp52260 (gx#stx-e _L29487_))) (declare (not safe)) - (cons __tmp51899 '())))) + (cons __tmp52260 '())))) (declare (not safe)) - (cons 'datum: __tmp51898)))) + (cons 'datum: __tmp52259)))) (___kont4703347034_ (lambda () (let () @@ -720,10 +721,10 @@ (lambda () (let ((_L29505_ ___stx4698246983_)) (if (and (gx#identifier? _L29505_) - (let ((__tmp51900 + (let ((__tmp52261 (gx#ellipsis? _L29505_))) (declare (not safe)) - (not __tmp51900))) + (not __tmp52261))) (___kont4702947030_ _L29505_) (let () (declare (not safe)) @@ -773,12 +774,12 @@ (___kont4701747018_ _L29723_ _L29725_) (if (gx#identifier? _hd2942729707_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51902_| + |gerbil/core$<match>[1]#_g52263_| _hd2942729707_) (___kont4701947020_ _hd2943029717_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51901_| + |gerbil/core$<match>[1]#_g52262_| _hd2942729707_) (___kont4702147022_ _hd2943029717_) @@ -825,7 +826,7 @@ (if (gx#identifier? _hd2942229757_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51902_| + |gerbil/core$<match>[1]#_g52263_| _hd2942229757_) (___match4730947310_ _e2942329753_ @@ -833,14 +834,14 @@ _tl2942129760_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<match>[1]#_g51901_| + |gerbil/core$<match>[1]#_g52262_| _hd2942229757_) (___match4730947310_ _e2942329753_ _hd2942229757_ _tl2942129760_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51903_| + |gerbil/core$<match>[1]#_g52264_| _hd2942229757_) (if (gx#stx-pair? _tl2942929720_) (let ((_e2945629589_ @@ -916,14 +917,14 @@ (declare (not safe)) (##car _e2940929833_)))) - (let ((__tmp51904 + (let ((__tmp52265 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _lp-hd2941029837_ _body2941229830_)))) (declare (not safe)) - (_loop2940829823_ _lp-tl2941129840_ __tmp51904)))) + (_loop2940829823_ _lp-tl2941129840_ __tmp52265)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body2941329843_ (reverse _body2941229830_))) @@ -1019,7 +1020,7 @@ (##car _e2933330381_)))) (if (gx#identifier? _hd2933230385_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51914_| + |gerbil/core$<match>[1]#_g52275_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2933630391_ @@ -1041,21 +1042,21 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51913_| + |gerbil/core$<match>[1]#_g52274_| _hd2933230385_) (___match4706147062_ _e2933330381_ _hd2933230385_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51912_| + |gerbil/core$<match>[1]#_g52273_| _hd2933230385_) (___match4707147072_ _e2933330381_ _hd2933230385_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51911_| + |gerbil/core$<match>[1]#_g52272_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) @@ -1079,7 +1080,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51910_| + |gerbil/core$<match>[1]#_g52271_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2935930127_ (gx#syntax-e _tl2933130388_))) @@ -1119,7 +1120,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51909_| + |gerbil/core$<match>[1]#_g52270_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2937130071_ (gx#syntax-e _tl2933130388_))) @@ -1155,11 +1156,11 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51908_| + |gerbil/core$<match>[1]#_g52269_| _hd2933230385_) (___kont4699746998_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51907_| + |gerbil/core$<match>[1]#_g52268_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2938530003_ @@ -1183,7 +1184,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51906_| + |gerbil/core$<match>[1]#_g52267_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2939429942_ @@ -1203,7 +1204,7 @@ _tl2933130388_)))) (___kont4700547006_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g51905_| + |gerbil/core$<match>[1]#_g52266_| _hd2933230385_) (___kont4700747008_ _tl2933130388_) (___match4722347224_ @@ -1234,52 +1235,52 @@ (_parse128948_ _L29283_)))) (___kont4731747318_ (lambda (_L29235_ _L29237_ _L29238_) - (let ((__tmp51915 - (let ((__tmp51918 + (let ((__tmp52276 + (let ((__tmp52279 (let () (declare (not safe)) (_parse128948_ _L29238_))) - (__tmp51916 - (let ((__tmp51917 + (__tmp52277 + (let ((__tmp52278 (let () (declare (not safe)) (_parse-list28950_ _L29235_)))) (declare (not safe)) - (cons __tmp51917 '())))) + (cons __tmp52278 '())))) (declare (not safe)) - (cons __tmp51918 __tmp51916)))) + (cons __tmp52279 __tmp52277)))) (declare (not safe)) - (cons 'splice: __tmp51915)))) + (cons 'splice: __tmp52276)))) (___kont4731947320_ (lambda (_L29193_ _L29195_) - (let ((__tmp51919 - (let ((__tmp51922 + (let ((__tmp52280 + (let ((__tmp52283 (let () (declare (not safe)) (_parse128948_ _L29195_))) - (__tmp51920 - (let ((__tmp51921 + (__tmp52281 + (let ((__tmp52282 (let () (declare (not safe)) (_parse-list28950_ _L29193_)))) (declare (not safe)) - (cons __tmp51921 '())))) + (cons __tmp52282 '())))) (declare (not safe)) - (cons __tmp51922 __tmp51920)))) + (cons __tmp52283 __tmp52281)))) (declare (not safe)) - (cons 'cons: __tmp51919)))) + (cons 'cons: __tmp52280)))) (___kont4732147322_ (lambda () (if (gx#stx-null? _body29130_) (let () (declare (not safe)) (cons 'null: '())) - (if (let ((__tmp51923 + (if (let ((__tmp52284 (gx#stx-pair? _body29130_))) (declare (not safe)) - (not __tmp51923)) + (not __tmp52284)) (let () (declare (not safe)) (_parse128948_ _body29130_)) @@ -1292,10 +1293,10 @@ _tl2915729190_) (let ((_L29193_ _tl2915729190_) (_L29195_ _hd2915829187_)) - (if (let ((__tmp51924 + (if (let ((__tmp52285 (gx#ellipsis? _L29195_))) (declare (not safe)) - (not __tmp51924)) + (not __tmp52285)) (___kont4731947320_ _L29193_ _L29195_) (___kont4732147322_))))) (___match4735547356_ @@ -1412,22 +1413,22 @@ (if (let () (declare (not safe)) (_simple-vector?28952_ _body29127_)) - (let ((__tmp51927 - (let ((__tmp51928 + (let ((__tmp52288 + (let ((__tmp52289 (gx#stx-map _parse128948_ _body29127_))) (declare (not safe)) - (cons __tmp51928 '())))) + (cons __tmp52289 '())))) (declare (not safe)) - (cons 'simple: __tmp51927)) - (let ((__tmp51925 - (let ((__tmp51926 + (cons 'simple: __tmp52288)) + (let ((__tmp52286 + (let ((__tmp52287 (let () (declare (not safe)) (_parse-list28950_ _body29127_)))) (declare (not safe)) - (cons __tmp51926 '())))) + (cons __tmp52287 '())))) (declare (not safe)) - (cons 'list: __tmp51925))))) + (cons 'list: __tmp52286))))) (_simple-vector?28952_ (lambda (_body29064_) (let* ((___stx4736447365_ _body29064_) @@ -1439,9 +1440,9 @@ ___stx4736447365_)))) (let ((___kont4736747368_ (lambda (_L29108_ _L29110_) - (if (let ((__tmp51929 (gx#ellipsis? _L29110_))) + (if (let ((__tmp52290 (gx#ellipsis? _L29110_))) (declare (not safe)) - (not __tmp51929)) + (not __tmp52290)) (let () (declare (not safe)) (_simple-vector?28952_ _L29108_)) @@ -1475,19 +1476,19 @@ ___stx4738047381_)))) (let ((___kont4738347384_ (lambda (_L29037_ _L29039_ _L29040_) - (let ((__tmp51930 - (let ((__tmp51932 + (let ((__tmp52291 + (let ((__tmp52293 (let () (declare (not safe)) (_parse128948_ _L29039_))) - (__tmp51931 + (__tmp52292 (let () (declare (not safe)) (_recur28976_ _L29037_)))) (declare (not safe)) - (cons __tmp51932 __tmp51931)))) + (cons __tmp52293 __tmp52292)))) (declare (not safe)) - (cons _L29040_ __tmp51930)))) + (cons _L29040_ __tmp52291)))) (___kont4738547386_ (lambda () (if (gx#stx-null? _rest28979_) @@ -1558,21 +1559,21 @@ '#f '"bad syntax; illegal pattern" (if _match-stx28946_ - (let ((__tmp51934 - (let ((__tmp51935 + (let ((__tmp52295 + (let ((__tmp52296 (let () (declare (not safe)) (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28944_ __tmp51935)))) + (cons _stx28944_ __tmp52296)))) (declare (not safe)) - (cons _match-stx28946_ __tmp51934)) - (let ((__tmp51933 + (cons _match-stx28946_ __tmp52295)) + (let ((__tmp52294 (let () (declare (not safe)) (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28944_ __tmp51933))))))) + (cons _stx28944_ __tmp52294))))))) (let () (declare (not safe)) (_parse128948_ _stx28944_))))) (define |gerbil/core$<match>[1]#parse-match-pattern__0| (lambda (_stx30628_) @@ -1582,27 +1583,27 @@ _stx30628_ _match-stx30631_)))) (define |gerbil/core$<match>[1]#parse-match-pattern| - (lambda _g51937_ - (let ((_g51936_ (let () (declare (not safe)) (##length _g51937_)))) - (cond ((let () (declare (not safe)) (##fx= _g51936_ 1)) + (lambda _g52298_ + (let ((_g52297_ (let () (declare (not safe)) (##length _g52298_)))) + (cond ((let () (declare (not safe)) (##fx= _g52297_ 1)) (apply (lambda (_stx30628_) (let () (declare (not safe)) (|gerbil/core$<match>[1]#parse-match-pattern__0| _stx30628_))) - _g51937_)) - ((let () (declare (not safe)) (##fx= _g51936_ 2)) + _g52298_)) + ((let () (declare (not safe)) (##fx= _g52297_ 2)) (apply (lambda (_stx30634_ _match-stx30636_) (let () (declare (not safe)) (|gerbil/core$<match>[1]#parse-match-pattern__%| _stx30634_ _match-stx30636_))) - _g51937_)) + _g52298_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$<match>[1]#parse-match-pattern| - _g51937_)))))) + _g52298_)))))) (define |gerbil/core$<match>[1]#match-pattern?| (lambda (_stx28928_) (call-with-current-continuation @@ -1774,9 +1775,9 @@ ___stx4740247403_)))) (let ((___kont4740547406_ (lambda (_L28654_ _L28656_) - (let ((__tmp51938 + (let ((__tmp52299 (lambda (_g2866828670_) - (let ((__tmp51939 + (let ((__tmp52300 (let () (declare (not safe)) @@ -1786,14 +1787,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_loop27666_ - __tmp51939 + __tmp52300 _g2866828670_ _K27956_))))) (declare (not safe)) (_loop27666_ _L28656_ _vars27955_ - __tmp51938)))) + __tmp52299)))) (___kont4740747408_ (lambda () (_K27956_ _vars27955_)))) (if (gx#stx-pair? ___stx4740247403_) @@ -1818,7 +1819,7 @@ (_loop27666_ _L28565_ _vars27955_ _K27956_)))) (___kont4750747508_ (lambda (_L28511_ _L28513_) - (let ((__tmp51940 + (let ((__tmp52301 (lambda (_g2852828530_) (let () (declare (not safe)) @@ -1830,10 +1831,10 @@ (_loop27666_ _L28513_ _vars27955_ - __tmp51940)))) + __tmp52301)))) (___kont4750947510_ (lambda (_L28447_ _L28449_) - (let ((__tmp51941 + (let ((__tmp52302 (lambda (_g2846428466_) (let () (declare (not safe)) @@ -1845,7 +1846,7 @@ (_loop27666_ _L28449_ _vars27955_ - __tmp51941)))) + __tmp52302)))) (___kont4751147512_ (lambda (_L28392_) (let () @@ -1882,11 +1883,13 @@ (_loop27666_ _L28183_ _vars27955_ _K27956_)))) (___kont4752147522_ (lambda (_L28121_) - (if (find (lambda (_g2813628138_) - (gx#bound-identifier=? - _g2813628138_ - _L28121_)) - _vars27955_) + (if (let ((__tmp52303 + (lambda (_g2813628138_) + (gx#bound-identifier=? + _g2813628138_ + _L28121_)))) + (declare (not safe)) + (find __tmp52303 _vars27955_)) (_K27956_ _vars27955_) (_K27956_ (let () @@ -2322,7 +2325,7 @@ ___stx4780647807_)))) (let ((___kont4780947810_ (lambda (_L27805_ _L27807_) - (let ((__tmp51942 + (let ((__tmp52304 (lambda (_g2781927821_) (let () (declare (not safe)) @@ -2334,7 +2337,7 @@ (_loop27666_ _L27807_ _vars27761_ - __tmp51942)))) + __tmp52304)))) (___kont4781147812_ (lambda () (_K27762_ _vars27761_)))) (if (gx#stx-pair? ___stx4780647807_) @@ -2363,7 +2366,7 @@ ___stx4782247823_)))) (let ((___kont4782547826_ (lambda (_L27731_ _L27733_) - (let ((__tmp51943 + (let ((__tmp52305 (lambda (_g2774927751_) (let () (declare (not safe)) @@ -2375,7 +2378,7 @@ (_loop27666_ _L27733_ _vars27674_ - __tmp51943)))) + __tmp52305)))) (___kont4782747828_ (lambda () (_K27675_ _vars27674_)))) (if (gx#stx-pair? ___stx4782247823_) @@ -2441,46 +2444,46 @@ ___stx4797647977_)))) (let ((___kont4797947980_ (lambda () - (let ((__tmp51944 - (let ((__tmp51947 + (let ((__tmp52306 + (let ((__tmp52309 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51950 (gx#datum->syntax '#f '?)) - (__tmp51948 - (let ((__tmp51949 + (let ((__tmp52312 (gx#datum->syntax '#f '?)) + (__tmp52310 + (let ((__tmp52311 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp51949)))) + (cons _L27376_ __tmp52311)))) (declare (not safe)) - (cons __tmp51950 __tmp51948))) - (__tmp51945 - (let ((__tmp51946 + (cons __tmp52312 __tmp52310))) + (__tmp52307 + (let ((__tmp52308 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp51946)))) + (cons _K25879_ __tmp52308)))) (declare (not safe)) - (cons __tmp51947 __tmp51945)))) + (cons __tmp52309 __tmp52307)))) (declare (not safe)) - (cons 'if __tmp51944)))) + (cons 'if __tmp52306)))) (___kont4798147982_ (lambda (_L27629_) - (let ((__tmp51951 - (let ((__tmp51955 - (let ((__tmp51958 (gx#datum->syntax '#f '?)) - (__tmp51956 - (let ((__tmp51957 + (let ((__tmp52313 + (let ((__tmp52317 + (let ((__tmp52320 (gx#datum->syntax '#f '?)) + (__tmp52318 + (let ((__tmp52319 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp51957)))) + (cons _L27376_ __tmp52319)))) (declare (not safe)) - (cons __tmp51958 __tmp51956))) - (__tmp51952 - (let ((__tmp51954 + (cons __tmp52320 __tmp52318))) + (__tmp52314 + (let ((__tmp52316 (let () (declare (not safe)) (_generate124631_ @@ -2488,16 +2491,16 @@ _L27629_ _K25879_ _E25880_))) - (__tmp51953 + (__tmp52315 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp51954 __tmp51953)))) + (cons __tmp52316 __tmp52315)))) (declare (not safe)) - (cons __tmp51955 __tmp51952)))) + (cons __tmp52317 __tmp52314)))) (declare (not safe)) - (cons 'if __tmp51951)))) + (cons 'if __tmp52313)))) (___kont4798347984_ (lambda (_L27567_) (let* ((_g2758127589_ @@ -2510,31 +2513,31 @@ (lambda (_g2758227593_) ((lambda (_L27596_) (let () - (let ((__tmp51959 - (let ((__tmp51966 - (let ((__tmp51967 - (let ((__tmp51968 - (let ((__tmp51969 + (let ((__tmp52321 + (let ((__tmp52328 + (let ((__tmp52329 + (let ((__tmp52330 + (let ((__tmp52331 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51970 + (let ((__tmp52332 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp51970)))) + (cons _L27376_ __tmp52332)))) (declare (not safe)) - (cons __tmp51969 '())))) + (cons __tmp52331 '())))) (declare (not safe)) - (cons _L27596_ __tmp51968)))) + (cons _L27596_ __tmp52330)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51967 '()))) - (__tmp51960 - (let ((__tmp51961 - (let ((__tmp51962 - (let ((__tmp51963 + (cons __tmp52329 '()))) + (__tmp52322 + (let ((__tmp52323 + (let ((__tmp52324 + (let ((__tmp52325 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51965 + (let ((__tmp52327 (let () (declare (not safe)) (_generate124631_ @@ -2542,27 +2545,27 @@ _L27567_ _K25879_ _E25880_))) - (__tmp51964 + (__tmp52326 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp51965 __tmp51964)))) + (cons __tmp52327 __tmp52326)))) (declare (not safe)) - (cons _L27596_ __tmp51963)))) + (cons _L27596_ __tmp52325)))) (declare (not safe)) - (cons 'if __tmp51962)))) + (cons 'if __tmp52324)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51961 '())))) + (cons __tmp52323 '())))) (declare (not safe)) - (cons __tmp51966 __tmp51960)))) + (cons __tmp52328 __tmp52322)))) (declare (not safe)) - (cons 'let __tmp51959)))) + (cons 'let __tmp52321)))) _g2758227593_))) - (__tmp51971 (gx#genident 'e))) + (__tmp52333 (gx#genident 'e))) (declare (not safe)) - (_g2758027608_ __tmp51971)))) + (_g2758027608_ __tmp52333)))) (___kont4798547986_ (lambda (_L27483_ _L27485_) (let* ((_g2750527513_ @@ -2575,12 +2578,12 @@ (lambda (_g2750627517_) ((lambda (_L27520_) (let () - (let ((__tmp51972 - (let ((__tmp51984 - (let ((__tmp51987 + (let ((__tmp52334 + (let ((__tmp52346 + (let ((__tmp52349 (gx#datum->syntax '#f '?)) - (__tmp51985 - (let ((__tmp51986 + (__tmp52347 + (let ((__tmp52348 (let () (declare (not safe)) @@ -2588,32 +2591,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L27376_ __tmp51986)))) + (cons _L27376_ __tmp52348)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51987 __tmp51985))) - (__tmp51973 - (let ((__tmp51975 - (let ((__tmp51976 - (let ((__tmp51979 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51980 - (let ((__tmp51981 - (let ((__tmp51982 - (let ((__tmp51983 + (cons __tmp52349 __tmp52347))) + (__tmp52335 + (let ((__tmp52337 + (let ((__tmp52338 + (let ((__tmp52341 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52342 + (let ((__tmp52343 + (let ((__tmp52344 + (let ((__tmp52345 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27485_ __tmp51983)))) + (cons _L27485_ __tmp52345)))) (declare (not safe)) - (cons __tmp51982 '())))) + (cons __tmp52344 '())))) (declare (not safe)) - (cons _L27520_ __tmp51981)))) + (cons _L27520_ __tmp52343)))) (declare (not safe)) - (cons __tmp51980 '()))) - (__tmp51977 - (let ((__tmp51978 + (cons __tmp52342 '()))) + (__tmp52339 + (let ((__tmp52340 (let () (declare (not safe)) (_generate124631_ @@ -2622,26 +2625,26 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp51978 '())))) + (cons __tmp52340 '())))) (declare (not safe)) - (cons __tmp51979 __tmp51977)))) + (cons __tmp52341 __tmp52339)))) (declare (not safe)) - (cons 'let __tmp51976))) + (cons 'let __tmp52338))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51974 + (__tmp52336 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp51975 __tmp51974)))) + (cons __tmp52337 __tmp52336)))) (declare (not safe)) - (cons __tmp51984 __tmp51973)))) + (cons __tmp52346 __tmp52335)))) (declare (not safe)) - (cons 'if __tmp51972)))) + (cons 'if __tmp52334)))) _g2750627517_))) - (__tmp51988 (gx#genident 'e))) + (__tmp52350 (gx#genident 'e))) (declare (not safe)) - (_g2750427532_ __tmp51988))))) + (_g2750427532_ __tmp52350))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_g2739027640_ (lambda () @@ -2775,8 +2778,8 @@ (let ((___kont4796347964_ (lambda (_L27324_ _L27326_) - (let ((__tmp51989 - (let ((__tmp51990 + (let ((__tmp52351 + (let ((__tmp52352 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2784,14 +2787,14 @@ (declare (not safe)) (_generate124631_ _tgt25876_ - __tmp51990 + __tmp52352 _K25879_ _E25880_)))) (declare (not safe)) (_generate124631_ _tgt25876_ _L27326_ - __tmp51989 + __tmp52351 _E25880_)))) (___kont4796547966_ (lambda () _K25879_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2823,8 +2826,8 @@ (let ((___kont4794747948_ (lambda (_L27231_ _L27233_) - (let ((__tmp51991 - (let ((__tmp51992 + (let ((__tmp52353 + (let ((__tmp52354 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2832,7 +2835,7 @@ (declare (not safe)) (_generate124631_ _tgt25876_ - __tmp51992 + __tmp52354 _K25879_ _E25880_)))) (declare (not safe)) @@ -2840,7 +2843,7 @@ _tgt25876_ _L27233_ _K25879_ - __tmp51991)))) + __tmp52353)))) (___kont4794947950_ (lambda () _E25880_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? @@ -2903,22 +2906,22 @@ (if (gx#stx-null? _tl2705127083_) ((lambda (_L27086_ _L27088_) (let () - (let ((__tmp51993 - (let ((__tmp52031 - (let ((__tmp52033 + (let ((__tmp52355 + (let ((__tmp52393 + (let ((__tmp52395 (gx#datum->syntax '#f '##pair?)) - (__tmp52032 + (__tmp52394 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52033 __tmp52032))) - (__tmp51994 - (let ((__tmp51996 + (cons __tmp52395 __tmp52394))) + (__tmp52356 + (let ((__tmp52358 (let ((_hd-pat27104_ (gx#stx-e _L27027_)) (_tl-pat27106_ (gx#stx-e _L27025_))) (if (and (let () @@ -2931,28 +2934,28 @@ (if (let () (declare (not safe)) (equal? _tl-pat27106_ '(any:))) - (let ((__tmp52022 - (let ((__tmp52025 - (let ((__tmp52026 - (let ((__tmp52027 - (let ((__tmp52028 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52030 (gx#datum->syntax '#f '##car)) - (__tmp52029 + (let ((__tmp52384 + (let ((__tmp52387 + (let ((__tmp52388 + (let ((__tmp52389 + (let ((__tmp52390 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52392 (gx#datum->syntax '#f '##car)) + (__tmp52391 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52030 __tmp52029)))) + (cons __tmp52392 __tmp52391)))) (declare (not safe)) - (cons __tmp52028 '())))) + (cons __tmp52390 '())))) (declare (not safe)) - (cons _L27088_ __tmp52027)))) + (cons _L27088_ __tmp52389)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52026 '()))) - (__tmp52023 - (let ((__tmp52024 + (cons __tmp52388 '()))) + (__tmp52385 + (let ((__tmp52386 (let () (declare (not safe)) (_generate124631_ @@ -2961,36 +2964,36 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52024 '())))) + (cons __tmp52386 '())))) (declare (not safe)) - (cons __tmp52025 __tmp52023)))) + (cons __tmp52387 __tmp52385)))) (declare (not safe)) - (cons 'let __tmp52022)) + (cons 'let __tmp52384)) (if (let () (declare (not safe)) (equal? _hd-pat27104_ '(any:))) - (let ((__tmp52013 - (let ((__tmp52016 - (let ((__tmp52017 - (let ((__tmp52018 - (let ((__tmp52019 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52021 (gx#datum->syntax '#f '##cdr)) - (__tmp52020 + (let ((__tmp52375 + (let ((__tmp52378 + (let ((__tmp52379 + (let ((__tmp52380 + (let ((__tmp52381 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52383 (gx#datum->syntax '#f '##cdr)) + (__tmp52382 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52021 __tmp52020)))) + (cons __tmp52383 __tmp52382)))) (declare (not safe)) - (cons __tmp52019 '())))) + (cons __tmp52381 '())))) (declare (not safe)) - (cons _L27086_ __tmp52018)))) + (cons _L27086_ __tmp52380)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52017 '()))) - (__tmp52014 - (let ((__tmp52015 + (cons __tmp52379 '()))) + (__tmp52376 + (let ((__tmp52377 (let () (declare (not safe)) (_generate124631_ @@ -2999,53 +3002,53 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52015 '())))) + (cons __tmp52377 '())))) (declare (not safe)) - (cons __tmp52016 __tmp52014)))) + (cons __tmp52378 __tmp52376)))) (declare (not safe)) - (cons 'let __tmp52013)) - (let ((__tmp51997 - (let ((__tmp52001 - (let ((__tmp52008 - (let ((__tmp52009 - (let ((__tmp52010 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52012 (gx#datum->syntax '#f '##car)) - (__tmp52011 + (cons 'let __tmp52375)) + (let ((__tmp52359 + (let ((__tmp52363 + (let ((__tmp52370 + (let ((__tmp52371 + (let ((__tmp52372 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52374 (gx#datum->syntax '#f '##car)) + (__tmp52373 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52012 __tmp52011)))) + (cons __tmp52374 __tmp52373)))) (declare (not safe)) - (cons __tmp52010 '())))) + (cons __tmp52372 '())))) (declare (not safe)) - (cons _L27088_ __tmp52009))) - (__tmp52002 - (let ((__tmp52003 - (let ((__tmp52004 - (let ((__tmp52005 - (let ((__tmp52007 + (cons _L27088_ __tmp52371))) + (__tmp52364 + (let ((__tmp52365 + (let ((__tmp52366 + (let ((__tmp52367 + (let ((__tmp52369 (gx#datum->syntax '#f '##cdr)) - (__tmp52006 + (__tmp52368 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52007 __tmp52006)))) + (cons __tmp52369 __tmp52368)))) (declare (not safe)) - (cons __tmp52005 '())))) + (cons __tmp52367 '())))) (declare (not safe)) - (cons _L27086_ __tmp52004)))) + (cons _L27086_ __tmp52366)))) (declare (not safe)) - (cons __tmp52003 '())))) + (cons __tmp52365 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52008 - __tmp52002))) - (__tmp51998 - (let ((__tmp51999 - (let ((__tmp52000 + (cons __tmp52370 + __tmp52364))) + (__tmp52360 + (let ((__tmp52361 + (let ((__tmp52362 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -3055,24 +3058,24 @@ _K25879_ _E25880_)))) (declare (not safe)) - (_generate124631_ _L27088_ _L27027_ __tmp52000 _E25880_)))) + (_generate124631_ _L27088_ _L27027_ __tmp52362 _E25880_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51999 '())))) + (cons __tmp52361 '())))) (declare (not safe)) - (cons __tmp52001 __tmp51998)))) + (cons __tmp52363 __tmp52360)))) (declare (not safe)) - (cons 'let __tmp51997))))))) - (__tmp51995 + (cons 'let __tmp52359))))))) + (__tmp52357 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp51996 __tmp51995)))) + (cons __tmp52358 __tmp52357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52031 - __tmp51994)))) + (cons __tmp52393 + __tmp52356)))) (declare (not safe)) - (cons 'if __tmp51993)))) + (cons 'if __tmp52355)))) _hd2705227080_ _hd2704927070_) (let () @@ -3085,33 +3088,33 @@ (declare (not safe)) (_g2704427059_ _g2704527063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52034 + (__tmp52396 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2704327108_ __tmp52034)))) + (_g2704327108_ __tmp52396)))) (___kont4807148072_ (lambda () - (let ((__tmp52035 - (let ((__tmp52038 - (let ((__tmp52040 + (let ((__tmp52397 + (let ((__tmp52400 + (let ((__tmp52402 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##null?)) - (__tmp52039 + (__tmp52401 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52040 __tmp52039))) - (__tmp52036 - (let ((__tmp52037 + (cons __tmp52402 __tmp52401))) + (__tmp52398 + (let ((__tmp52399 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp52037)))) + (cons _K25879_ __tmp52399)))) (declare (not safe)) - (cons __tmp52038 __tmp52036)))) + (cons __tmp52400 __tmp52398)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp52035)))) + (cons 'if __tmp52397)))) (___kont4807348074_ (lambda (_L26941_ _L26943_) (let () @@ -3134,41 +3137,41 @@ (lambda (_g2687026881_) ((lambda (_L26884_) (let () - (let ((__tmp52041 + (let ((__tmp52403 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52054 - (let ((__tmp52056 + (let ((__tmp52416 + (let ((__tmp52418 (gx#datum->syntax '#f '##box?)) - (__tmp52055 + (__tmp52417 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52056 __tmp52055))) - (__tmp52042 - (let ((__tmp52044 - (let ((__tmp52045 - (let ((__tmp52048 - (let ((__tmp52049 - (let ((__tmp52050 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52051 - (let ((__tmp52053 + (cons __tmp52418 __tmp52417))) + (__tmp52404 + (let ((__tmp52406 + (let ((__tmp52407 + (let ((__tmp52410 + (let ((__tmp52411 + (let ((__tmp52412 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52413 + (let ((__tmp52415 (gx#datum->syntax '#f '##unbox)) - (__tmp52052 + (__tmp52414 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52053 __tmp52052)))) + (cons __tmp52415 __tmp52414)))) (declare (not safe)) - (cons __tmp52051 '())))) + (cons __tmp52413 '())))) (declare (not safe)) - (cons _L26884_ __tmp52050)))) + (cons _L26884_ __tmp52412)))) (declare (not safe)) - (cons __tmp52049 '()))) - (__tmp52046 - (let ((__tmp52047 + (cons __tmp52411 '()))) + (__tmp52408 + (let ((__tmp52409 (let () (declare (not safe)) (_generate124631_ @@ -3177,29 +3180,29 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52047 '())))) + (cons __tmp52409 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52048 - __tmp52046)))) + (cons __tmp52410 + __tmp52408)))) (declare (not safe)) - (cons 'let __tmp52045))) - (__tmp52043 + (cons 'let __tmp52407))) + (__tmp52405 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52044 __tmp52043)))) + (cons __tmp52406 __tmp52405)))) (declare (not safe)) - (cons __tmp52054 __tmp52042)))) + (cons __tmp52416 __tmp52404)))) (declare (not safe)) - (cons 'if __tmp52041)))) + (cons 'if __tmp52403)))) _g2687026881_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52057 + (__tmp52419 (gx#genident 'e))) (declare (not safe)) - (_g2686826896_ __tmp52057)))) + (_g2686826896_ __tmp52419)))) (___kont4807748078_ (lambda (_L26660_) (let* ((___stx4789447895_ @@ -3223,30 +3226,30 @@ (lambda (_g2679026801_) ((lambda (_L26804_) (let () - (let ((__tmp52058 - (let ((__tmp52062 - (let ((__tmp52068 + (let ((__tmp52420 + (let ((__tmp52424 + (let ((__tmp52430 (gx#datum->syntax '#f '##fx=)) - (__tmp52063 - (let ((__tmp52065 - (let ((__tmp52067 + (__tmp52425 + (let ((__tmp52427 + (let ((__tmp52429 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'values-count)) - (__tmp52066 + (__tmp52428 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52067 __tmp52066))) - (__tmp52064 + (cons __tmp52429 __tmp52428))) + (__tmp52426 (let () (declare (not safe)) (cons _L26804_ '())))) (declare (not safe)) - (cons __tmp52065 __tmp52064)))) + (cons __tmp52427 __tmp52426)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52068 __tmp52063))) - (__tmp52059 - (let ((__tmp52061 + (cons __tmp52430 __tmp52425))) + (__tmp52421 + (let ((__tmp52423 (let () (declare (not safe)) (_generate-simple-vector24634_ @@ -3255,20 +3258,20 @@ '0 _K25879_ _E25880_))) - (__tmp52060 + (__tmp52422 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52061 __tmp52060)))) + (cons __tmp52423 __tmp52422)))) (declare (not safe)) - (cons __tmp52062 __tmp52059)))) + (cons __tmp52424 __tmp52421)))) (declare (not safe)) - (cons 'if __tmp52058)))) + (cons 'if __tmp52420)))) _g2679026801_))) - (__tmp52069 (gx#stx-length _L26775_))) + (__tmp52431 (gx#stx-length _L26775_))) (declare (not safe)) - (_g2678826816_ __tmp52069)))) + (_g2678826816_ __tmp52431)))) (___kont4789947900_ (lambda (_L26729_) (let () @@ -3365,46 +3368,46 @@ (lambda (_g2659526606_) ((lambda (_L26609_) (let () - (let ((__tmp52070 - (let ((__tmp52085 - (let ((__tmp52087 + (let ((__tmp52432 + (let ((__tmp52447 + (let ((__tmp52449 (gx#datum->syntax '#f '##vector?)) - (__tmp52086 + (__tmp52448 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52087 __tmp52086))) - (__tmp52071 - (let ((__tmp52073 - (let ((__tmp52074 - (let ((__tmp52078 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52084 (gx#datum->syntax '#f '##fx=)) - (__tmp52079 - (let ((__tmp52081 - (let ((__tmp52083 + (cons __tmp52449 __tmp52448))) + (__tmp52433 + (let ((__tmp52435 + (let ((__tmp52436 + (let ((__tmp52440 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52446 (gx#datum->syntax '#f '##fx=)) + (__tmp52441 + (let ((__tmp52443 + (let ((__tmp52445 (gx#datum->syntax '#f '##vector-length)) - (__tmp52082 + (__tmp52444 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52083 __tmp52082))) - (__tmp52080 + (cons __tmp52445 __tmp52444))) + (__tmp52442 (let () (declare (not safe)) (cons _L26609_ '())))) (declare (not safe)) - (cons __tmp52081 __tmp52080)))) + (cons __tmp52443 __tmp52442)))) (declare (not safe)) - (cons __tmp52084 __tmp52079))) - (__tmp52075 - (let ((__tmp52077 + (cons __tmp52446 __tmp52441))) + (__tmp52437 + (let ((__tmp52439 (let () (declare (not safe)) (_generate-simple-vector24634_ @@ -3413,45 +3416,45 @@ '0 _K25879_ _E25880_))) - (__tmp52076 + (__tmp52438 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52077 __tmp52076)))) + (cons __tmp52439 __tmp52438)))) (declare (not safe)) - (cons __tmp52078 __tmp52075)))) + (cons __tmp52440 __tmp52437)))) (declare (not safe)) - (cons 'if __tmp52074))) + (cons 'if __tmp52436))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52072 + (__tmp52434 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52073 __tmp52072)))) + (cons __tmp52435 __tmp52434)))) (declare (not safe)) - (cons __tmp52085 __tmp52071)))) + (cons __tmp52447 __tmp52433)))) (declare (not safe)) - (cons 'if __tmp52070)))) + (cons 'if __tmp52432)))) _g2659526606_))) - (__tmp52088 (gx#stx-length _L26580_))) + (__tmp52450 (gx#stx-length _L26580_))) (declare (not safe)) - (_g2659326621_ __tmp52088)))) + (_g2659326621_ __tmp52450)))) (___kont4784947850_ (lambda (_L26534_) - (let ((__tmp52089 - (let ((__tmp52093 - (let ((__tmp52095 + (let ((__tmp52451 + (let ((__tmp52455 + (let ((__tmp52457 (gx#datum->syntax '#f '##vector?)) - (__tmp52094 + (__tmp52456 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52095 __tmp52094))) - (__tmp52090 - (let ((__tmp52092 + (cons __tmp52457 __tmp52456))) + (__tmp52452 + (let ((__tmp52454 (let () (declare (not safe)) (_generate-list-vector24635_ @@ -3460,16 +3463,16 @@ 'vector->list _K25879_ _E25880_))) - (__tmp52091 + (__tmp52453 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52092 __tmp52091)))) + (cons __tmp52454 __tmp52453)))) (declare (not safe)) - (cons __tmp52093 __tmp52090)))) + (cons __tmp52455 __tmp52452)))) (declare (not safe)) - (cons 'if __tmp52089))))) + (cons 'if __tmp52451))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4784447845_) @@ -3535,22 +3538,22 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4808148082_ (lambda (_L26416_ _L26418_) - (let ((__tmp52096 + (let ((__tmp52458 (gx#stx-e _L26418_))) (declare (not safe)) (_generate-struct24636_ - __tmp52096 + __tmp52458 _tgt25876_ _L26416_ _K25879_ _E25880_)))) (___kont4808348084_ (lambda (_L26357_ _L26359_) - (let ((__tmp52097 + (let ((__tmp52459 (gx#stx-e _L26359_))) (declare (not safe)) (_generate-class24639_ - __tmp52097 + __tmp52459 _tgt25876_ _L26357_ _K25879_ @@ -3567,44 +3570,44 @@ (lambda (_g2627526286_) ((lambda (_L26289_) (let () - (let ((__tmp52098 + (let ((__tmp52460 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52101 - (let ((__tmp52102 - (let ((__tmp52103 - (let ((__tmp52104 - (let ((__tmp52106 + (let ((__tmp52463 + (let ((__tmp52464 + (let ((__tmp52465 + (let ((__tmp52466 + (let ((__tmp52468 (gx#datum->syntax '#f 'quote)) - (__tmp52105 + (__tmp52467 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L26260_ '())))) (declare (not safe)) - (cons __tmp52106 __tmp52105)))) + (cons __tmp52468 __tmp52467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52104 '())))) + (cons __tmp52466 '())))) (declare (not safe)) - (cons _L25897_ __tmp52103)))) + (cons _L25897_ __tmp52465)))) (declare (not safe)) - (cons _L26289_ __tmp52102))) - (__tmp52099 - (let ((__tmp52100 + (cons _L26289_ __tmp52464))) + (__tmp52461 + (let ((__tmp52462 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp52100)))) + (cons _K25879_ __tmp52462)))) (declare (not safe)) - (cons __tmp52101 __tmp52099)))) + (cons __tmp52463 __tmp52461)))) (declare (not safe)) - (cons 'if __tmp52098)))) + (cons 'if __tmp52460)))) _g2627526286_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52107 + (__tmp52469 (let ((_e26305_ (gx#stx-e _L26260_))) @@ -3620,7 +3623,7 @@ 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2627326301_ __tmp52107)))) + (_g2627326301_ __tmp52469)))) (___kont4808748088_ (lambda (_L26180_ _L26182_) (let* ((_g2619826206_ @@ -3633,28 +3636,28 @@ (lambda (_g2619926210_) ((lambda (_L26213_) (let () - (let ((__tmp52108 + (let ((__tmp52470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52111 - (let ((__tmp52112 - (let ((__tmp52113 - (let ((__tmp52114 - (let ((__tmp52115 + (let ((__tmp52473 + (let ((__tmp52474 + (let ((__tmp52475 + (let ((__tmp52476 + (let ((__tmp52477 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L26182_ __tmp52115)))) + (cons _L26182_ __tmp52477)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52114 '())))) + (cons __tmp52476 '())))) (declare (not safe)) - (cons _L26213_ __tmp52113)))) + (cons _L26213_ __tmp52475)))) (declare (not safe)) - (cons __tmp52112 '()))) - (__tmp52109 - (let ((__tmp52110 + (cons __tmp52474 '()))) + (__tmp52471 + (let ((__tmp52472 (let () (declare (not safe)) (_generate124631_ @@ -3663,38 +3666,38 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52110 '())))) + (cons __tmp52472 '())))) (declare (not safe)) - (cons __tmp52111 __tmp52109)))) + (cons __tmp52473 __tmp52471)))) (declare (not safe)) - (cons 'let __tmp52108)))) + (cons 'let __tmp52470)))) _g2619926210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52116 + (__tmp52478 (gx#genident 'e))) (declare (not safe)) - (_g2619726225_ __tmp52116)))) + (_g2619726225_ __tmp52478)))) (___kont4808948090_ (lambda (_L26122_) - (let ((__tmp52117 - (let ((__tmp52119 - (let ((__tmp52120 + (let ((__tmp52479 + (let ((__tmp52481 + (let ((__tmp52482 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52121 + (let ((__tmp52483 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L26122_ __tmp52121)))) + (cons _L26122_ __tmp52483)))) (declare (not safe)) - (cons __tmp52120 '()))) - (__tmp52118 + (cons __tmp52482 '()))) + (__tmp52480 (let () (declare (not safe)) (cons _K25879_ '())))) (declare (not safe)) - (cons __tmp52119 __tmp52118)))) + (cons __tmp52481 __tmp52480)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp52117)))) + (cons 'let __tmp52479)))) (___kont4809148092_ (lambda () _K25879_))) (if (gx#stx-pair? ___stx4805848059_) @@ -4095,30 +4098,30 @@ (_g2525425872_ (lambda (_g2525625276_) (if (gx#stx-pair/null? _g2525625276_) - (let ((_g52122_ + (let ((_g52484_ (gx#syntax-split-splice _g2525625276_ '0))) (begin - (let ((_g52123_ + (let ((_g52485_ (let () (declare (not safe)) - (if (##values? _g52122_) - (##vector-length _g52122_) + (if (##values? _g52484_) + (##vector-length _g52484_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52123_ 2))) + (##fx= _g52485_ 2))) (error "Context expects 2 values" - _g52123_))) + _g52485_))) (let ((_target2525825279_ (let () (declare (not safe)) - (##vector-ref _g52122_ 0))) + (##vector-ref _g52484_ 0))) (_tl2526025282_ (let () (declare (not safe)) - (##vector-ref _g52122_ 1)))) + (##vector-ref _g52484_ 1)))) (if (gx#stx-null? _tl2526025282_) (letrec ((_loop2526125285_ (lambda (_hd2525925289_ @@ -4136,12 +4139,12 @@ (let () (declare (not safe)) (##cdr _e2526225295_)))) - (let ((__tmp52205 + (let ((__tmp52578 (let () (declare (not safe)) (cons _lp-hd2526325299_ _var2526525292_)))) (declare (not safe)) - (_loop2526125285_ _lp-tl2526425302_ __tmp52205)))) + (_loop2526125285_ _lp-tl2526425302_ __tmp52578)))) (let ((_var2526625305_ (reverse _var2526525292_))) ((lambda (_L25309_) (let () @@ -4154,34 +4157,34 @@ (_g2532425860_ (lambda (_g2532625346_) (if (gx#stx-pair/null? _g2532625346_) - (let ((_g52124_ + (let ((_g52486_ (gx#syntax-split-splice _g2532625346_ '0))) (begin - (let ((_g52125_ + (let ((_g52487_ (let () (declare (not safe)) - (if (##values? _g52124_) + (if (##values? _g52486_) (##vector-length - _g52124_) + _g52486_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52125_ 2))) + (##fx= _g52487_ 2))) (error "Context expects 2 values" - _g52125_))) + _g52487_))) (let ((_target2532825349_ (let () (declare (not safe)) (##vector-ref - _g52124_ + _g52486_ 0))) (_tl2533025352_ (let () (declare (not safe)) (##vector-ref - _g52124_ + _g52486_ 1)))) (if (gx#stx-null? _tl2533025352_) @@ -4199,7 +4202,7 @@ (let () (declare (not safe)) (##cdr _e2533225365_)))) - (let ((__tmp52203 + (let ((__tmp52575 (let () (declare (not safe)) (cons _lp-hd2533325369_ @@ -4207,7 +4210,7 @@ (declare (not safe)) (_loop2533125355_ _lp-tl2533425372_ - __tmp52203)))) + __tmp52575)))) (let ((_var-r2533625375_ (reverse _var-r2533525362_))) ((lambda (_L25379_) @@ -4222,36 +4225,36 @@ (lambda (_g2539725417_) (if (gx#stx-pair/null? _g2539725417_) - (let ((_g52126_ + (let ((_g52488_ (gx#syntax-split-splice _g2539725417_ '0))) (begin - (let ((_g52127_ + (let ((_g52489_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52126_) - (##vector-length _g52126_) + _g52488_) + (##vector-length _g52488_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52127_ 2))) - (error "Context expects 2 values" _g52127_))) + (if (not (let () (declare (not safe)) (##fx= _g52489_ 2))) + (error "Context expects 2 values" _g52489_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2539925420_ (let () (declare (not safe)) (##vector-ref - _g52126_ + _g52488_ 0))) (_tl2540125423_ (let () (declare (not safe)) (##vector-ref - _g52126_ + _g52488_ 1)))) (if (gx#stx-null? _tl2540125423_) @@ -4269,7 +4272,7 @@ (let () (declare (not safe)) (##cdr _e2540325436_)))) - (let ((__tmp52200 + (let ((__tmp52569 (let () (declare (not safe)) (cons _lp-hd2540425440_ @@ -4277,7 +4280,7 @@ (declare (not safe)) (_loop2540225426_ _lp-tl2540525443_ - __tmp52200)))) + __tmp52569)))) (let ((_init2540725446_ (reverse _init2540625433_))) ((lambda (_L25450_) @@ -4387,192 +4390,197 @@ ((lambda (_L25734_) (let () (let () - (let ((__tmp52176 + (let ((__tmp52543 (gx#datum->syntax '#f 'letrec)) - (__tmp52128 - (let ((__tmp52133 - (let ((__tmp52168 - (let ((__tmp52169 - (let ((__tmp52170 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52175 (gx#datum->syntax '#f 'lambda)) - (__tmp52171 - (let ((__tmp52173 - (let ((__tmp52174 - (foldr (lambda (_g2575625759_ + (__tmp52490 + (let ((__tmp52496 + (let ((__tmp52534 + (let ((__tmp52535 + (let ((__tmp52536 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52542 (gx#datum->syntax '#f 'lambda)) + (__tmp52537 + (let ((__tmp52539 + (let ((__tmp52540 + (let ((__tmp52541 + (lambda (_g2575625759_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2575725762_) (let () (declare (not safe)) - (cons _g2575625759_ _g2575725762_))) - '() - _L25309_))) + (cons _g2575625759_ _g2575725762_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp52541 + '() + _L25309_)))) (declare (not safe)) - (cons _L25622_ __tmp52174))) - (__tmp52172 + (cons _L25622_ __tmp52540))) + (__tmp52538 (let () (declare (not safe)) (cons _L25650_ '())))) (declare (not safe)) - (cons __tmp52173 __tmp52172)))) + (cons __tmp52539 __tmp52538)))) (declare (not safe)) - (cons __tmp52175 __tmp52171)))) + (cons __tmp52542 __tmp52537)))) (declare (not safe)) - (cons __tmp52170 '())))) + (cons __tmp52536 '())))) (declare (not safe)) - (cons _L25510_ __tmp52169))) + (cons _L25510_ __tmp52535))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52134 - (let ((__tmp52159 - (let ((__tmp52160 + (__tmp52497 + (let ((__tmp52524 + (let ((__tmp52525 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52161 - (let ((__tmp52167 + (let ((__tmp52526 + (let ((__tmp52533 (gx#datum->syntax '#f 'lambda)) - (__tmp52162 - (let ((__tmp52164 - (let ((__tmp52165 - (let ((__tmp52166 - (foldr (lambda (_g2575425765_ + (__tmp52527 + (let ((__tmp52529 + (let ((__tmp52530 + (let ((__tmp52531 + (let ((__tmp52532 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2575525768_) + (lambda (_g2575425765_ _g2575525768_) (let () (declare (not safe)) - (cons _g2575425765_ _g2575525768_))) - '() - _L25379_))) + (cons _g2575425765_ _g2575525768_))))) + (declare (not safe)) + (foldr1 __tmp52532 '() _L25379_)))) (declare (not safe)) - (cons _L25622_ __tmp52166)))) + (cons _L25622_ __tmp52531)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25594_ __tmp52165))) - (__tmp52163 + (cons _L25594_ __tmp52530))) + (__tmp52528 (let () (declare (not safe)) (cons _L25734_ '())))) (declare (not safe)) - (cons __tmp52164 __tmp52163)))) + (cons __tmp52529 __tmp52528)))) (declare (not safe)) - (cons __tmp52167 __tmp52162)))) + (cons __tmp52533 __tmp52527)))) (declare (not safe)) - (cons __tmp52161 '())))) + (cons __tmp52526 '())))) (declare (not safe)) - (cons _L25566_ __tmp52160))) - (__tmp52135 - (let ((__tmp52136 - (let ((__tmp52137 - (let ((__tmp52138 - (let ((__tmp52158 + (cons _L25566_ __tmp52525))) + (__tmp52498 + (let ((__tmp52499 + (let ((__tmp52500 + (let ((__tmp52501 + (let ((__tmp52523 (gx#datum->syntax '#f 'lambda)) - (__tmp52139 - (let ((__tmp52156 - (let ((__tmp52157 - (foldr (lambda (_g2575225771_ + (__tmp52502 + (let ((__tmp52520 + (let ((__tmp52521 + (let ((__tmp52522 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2575325774_) + (lambda (_g2575225771_ _g2575325774_) (let () (declare (not safe)) - (cons _g2575225771_ _g2575325774_))) - '() - _L25379_))) + (cons _g2575225771_ _g2575325774_))))) + (declare (not safe)) + (foldr1 __tmp52522 '() _L25379_)))) (declare (not safe)) - (cons _L25622_ __tmp52157))) - (__tmp52140 - (let ((__tmp52141 - (let ((__tmp52155 (gx#datum->syntax '#f 'if)) - (__tmp52142 - (let ((__tmp52152 - (let ((__tmp52154 + (cons _L25622_ __tmp52521))) + (__tmp52503 + (let ((__tmp52504 + (let ((__tmp52519 (gx#datum->syntax '#f 'if)) + (__tmp52505 + (let ((__tmp52516 + (let ((__tmp52518 (gx#datum->syntax '#f 'pair?)) - (__tmp52153 + (__tmp52517 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52154 __tmp52153))) - (__tmp52143 - (let ((__tmp52145 - (let ((__tmp52146 - (let ((__tmp52149 - (let ((__tmp52151 + (cons __tmp52518 __tmp52517))) + (__tmp52506 + (let ((__tmp52508 + (let ((__tmp52509 + (let ((__tmp52513 + (let ((__tmp52515 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp52150 + (__tmp52514 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52151 __tmp52150))) - (__tmp52147 - (let ((__tmp52148 - (foldr (lambda (_g2575025777_ _g2575125780_) + (cons __tmp52515 __tmp52514))) + (__tmp52510 + (let ((__tmp52511 + (let ((__tmp52512 + (lambda (_g2575025777_ _g2575125780_) (let () (declare (not safe)) - (cons _g2575025777_ _g2575125780_))) - '() - _L25379_))) + (cons _g2575025777_ _g2575125780_))))) + (declare (not safe)) + (foldr1 __tmp52512 '() _L25379_)))) (declare (not safe)) - (cons _L25622_ __tmp52148)))) + (cons _L25622_ __tmp52511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52149 - __tmp52147)))) + (cons __tmp52513 + __tmp52510)))) (declare (not safe)) - (cons _L25566_ __tmp52146))) - (__tmp52144 + (cons _L25566_ __tmp52509))) + (__tmp52507 (let () (declare (not safe)) (cons _L25706_ '())))) (declare (not safe)) - (cons __tmp52145 __tmp52144)))) + (cons __tmp52508 __tmp52507)))) (declare (not safe)) - (cons __tmp52152 __tmp52143)))) + (cons __tmp52516 __tmp52506)))) (declare (not safe)) - (cons __tmp52155 __tmp52142)))) + (cons __tmp52519 __tmp52505)))) (declare (not safe)) - (cons __tmp52141 '())))) + (cons __tmp52504 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52156 - __tmp52140)))) + (cons __tmp52520 + __tmp52503)))) (declare (not safe)) - (cons __tmp52158 __tmp52139)))) + (cons __tmp52523 __tmp52502)))) (declare (not safe)) - (cons __tmp52138 '())))) + (cons __tmp52501 '())))) (declare (not safe)) - (cons _L25538_ __tmp52137)))) + (cons _L25538_ __tmp52500)))) (declare (not safe)) - (cons __tmp52136 '())))) + (cons __tmp52499 '())))) (declare (not safe)) - (cons __tmp52159 __tmp52135)))) + (cons __tmp52524 __tmp52498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52168 __tmp52134))) - (__tmp52129 - (let ((__tmp52130 - (let ((__tmp52131 - (let ((__tmp52132 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g2574825783_ _g2574925786_) + (cons __tmp52534 __tmp52497))) + (__tmp52491 + (let ((__tmp52492 + (let ((__tmp52493 + (let ((__tmp52494 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52495 + (lambda (_g2574825783_ _g2574925786_) (let () (declare (not safe)) - (cons _g2574825783_ _g2574925786_))) - '() - _L25450_))) + (cons _g2574825783_ _g2574925786_))))) + (declare (not safe)) + (foldr1 __tmp52495 '() _L25450_)))) (declare (not safe)) - (cons _L25482_ __tmp52132)))) + (cons _L25482_ __tmp52494)))) (declare (not safe)) - (cons _L25538_ __tmp52131)))) + (cons _L25538_ __tmp52493)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52130 '())))) + (cons __tmp52492 '())))) (declare (not safe)) - (cons __tmp52133 __tmp52129)))) + (cons __tmp52496 __tmp52491)))) (declare (not safe)) - (cons __tmp52176 __tmp52128))))) + (cons __tmp52543 __tmp52490))))) _g2572025731_))) - (__tmp52177 + (__tmp52544 (let () (declare (not safe)) (_generate124631_ @@ -4581,85 +4589,88 @@ _L25678_ _L25706_)))) (declare (not safe)) - (_g2571825789_ __tmp52177)))) + (_g2571825789_ __tmp52544)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2569225703_))) - (__tmp52178 - (let ((__tmp52179 - (let ((__tmp52180 - (foldr (lambda (_g2579625799_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2579725802_) - (let ((__tmp52181 - (let ((__tmp52183 + (__tmp52545 + (let ((__tmp52546 + (let ((__tmp52547 + (let ((__tmp52548 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g2579625799_ _g2579725802_) + (let ((__tmp52549 + (let ((__tmp52551 (gx#datum->syntax '#f 'reverse)) - (__tmp52182 + (__tmp52550 (let () (declare (not safe)) (cons _g2579625799_ '())))) (declare (not safe)) - (cons __tmp52183 __tmp52182)))) + (cons __tmp52551 __tmp52550)))) (declare (not safe)) - (cons __tmp52181 _g2579725802_))) - '() - _L25379_))) + (cons __tmp52549 _g2579725802_))))) + (declare (not safe)) + (foldr1 __tmp52548 '() _L25379_)))) (declare (not safe)) - (cons _L25622_ __tmp52180)))) + (cons _L25622_ __tmp52547)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L25510_ - __tmp52179)))) + __tmp52546)))) (declare (not safe)) - (_g2569025793_ __tmp52178)))) + (_g2569025793_ __tmp52545)))) _g2566425675_))) - (__tmp52184 - (let ((__tmp52185 - (let ((__tmp52191 - (let ((__tmp52193 + (__tmp52552 + (let ((__tmp52553 + (let ((__tmp52560 + (let ((__tmp52562 (gx#datum->syntax '#f '##cdr)) - (__tmp52192 + (__tmp52561 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52193 - __tmp52192))) - (__tmp52186 + (cons __tmp52562 + __tmp52561))) + (__tmp52554 (begin (gx#syntax-check-splice-targets _L25379_ _L25309_) - (foldr (lambda (_g2580825812_ + (let ((__tmp52555 + (lambda (_g2580825812_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2580925815_ _g2581025817_) - (let ((__tmp52187 - (let ((__tmp52190 (gx#datum->syntax '#f 'cons)) - (__tmp52188 - (let ((__tmp52189 + (let ((__tmp52556 + (let ((__tmp52559 (gx#datum->syntax '#f 'cons)) + (__tmp52557 + (let ((__tmp52558 (let () (declare (not safe)) (cons _g2580825812_ '())))) (declare (not safe)) - (cons _g2580925815_ __tmp52189)))) + (cons _g2580925815_ __tmp52558)))) (declare (not safe)) - (cons __tmp52190 __tmp52188)))) + (cons __tmp52559 __tmp52557)))) (declare (not safe)) - (cons __tmp52187 _g2581025817_))) - '() - _L25379_ - _L25309_)))) + (cons __tmp52556 _g2581025817_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr2 __tmp52555 + '() + _L25379_ + _L25309_))))) (declare (not safe)) - (cons __tmp52191 __tmp52186)))) + (cons __tmp52560 __tmp52554)))) (declare (not safe)) - (cons _L25538_ __tmp52185)))) + (cons _L25538_ __tmp52553)))) (declare (not safe)) - (_g2566225805_ __tmp52184)))) + (_g2566225805_ __tmp52552)))) _g2563625647_))) - (__tmp52194 + (__tmp52563 (let () (declare (not safe)) (_generate124631_ @@ -4670,30 +4681,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2563425820_ - __tmp52194)))) + __tmp52563)))) _g2560825619_))) - (__tmp52195 (gx#genident 'rest))) + (__tmp52564 (gx#genident 'rest))) (declare (not safe)) - (_g2560625824_ __tmp52195)))) + (_g2560625824_ __tmp52564)))) _g2558025591_))) - (__tmp52196 (gx#genident 'hd))) + (__tmp52565 (gx#genident 'hd))) (declare (not safe)) - (_g2557825828_ __tmp52196)))) + (_g2557825828_ __tmp52565)))) _g2555225563_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52197 + (__tmp52566 (gx#genident 'splice-try))) (declare (not safe)) - (_g2555025832_ __tmp52197)))) + (_g2555025832_ __tmp52566)))) _g2552425535_))) - (__tmp52198 (gx#genident 'splice-loop))) + (__tmp52567 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2552225836_ __tmp52198)))) + (_g2552225836_ __tmp52567)))) _g2549625507_))) - (__tmp52199 (gx#genident 'splice-rest))) + (__tmp52568 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2549425840_ __tmp52199)))) + (_g2549425840_ __tmp52568)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2546825479_)))) (declare (not safe)) @@ -4710,25 +4721,34 @@ (declare (not safe)) (_g2539625413_ _g2539725417_))))) - (__tmp52201 - (make-list - (gx#stx-length - (foldr (lambda (_g2585125854_ - _g2585225857_) - (let () - (declare (not safe)) - (cons _g2585125854_ - _g2585225857_))) - '() - _L25309_)) - (let ((__tmp52202 - (gx#datum->syntax - '#f - '@list))) - (declare (not safe)) - (cons __tmp52202 '()))))) + (__tmp52570 + (let ((__tmp52573 + (gx#stx-length + (let ((__tmp52574 + (lambda (_g2585125854_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2585225857_) + (let () + (declare (not safe)) + (cons _g2585125854_ _g2585225857_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp52574 + '() + _L25309_)))) + (__tmp52571 + (let ((__tmp52572 + (gx#datum->syntax + '#f + '@list))) + (declare (not safe)) + (cons __tmp52572 '())))) + (declare (not safe)) + (make-list__% + __tmp52573 + __tmp52571)))) (declare (not safe)) - (_g2539525848_ __tmp52201)))) + (_g2539525848_ __tmp52570)))) _var-r2533625375_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4743,18 +4763,19 @@ (let () (declare (not safe)) (_g2532525342_ _g2532625346_))))) - (__tmp52204 + (__tmp52576 (gx#gentemps - (foldr (lambda (_g2586325866_ + (let ((__tmp52577 + (lambda (_g2586325866_ _g2586425869_) (let () (declare (not safe)) (cons _g2586325866_ - _g2586425869_))) - '() - _L25309_)))) + _g2586425869_))))) + (declare (not safe)) + (foldr1 __tmp52577 '() _L25309_))))) (declare (not safe)) - (_g2532425860_ __tmp52204)))) + (_g2532425860_ __tmp52576)))) _var2526625305_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4769,13 +4790,13 @@ (let () (declare (not safe)) (_g2525525272_ _g2525625276_))))) - (__tmp52206 + (__tmp52579 (let () (declare (not safe)) (|gerbil/core$<match>[1]#match-pattern-vars| _hd25250_)))) (declare (not safe)) - (_g2525425872_ __tmp52206)))) + (_g2525425872_ __tmp52579)))) (_generate-simple-vector24634_ (lambda (_tgt25090_ _body25092_ @@ -4838,49 +4859,49 @@ (if (gx#stx-null? _tl2517325215_) ((lambda (_L25218_ _L25220_ _L25221_) (let () - (let ((__tmp52207 - (let ((__tmp52212 - (let ((__tmp52213 - (let ((__tmp52214 - (let ((__tmp52215 + (let ((__tmp52580 + (let ((__tmp52585 + (let ((__tmp52586 + (let ((__tmp52587 + (let ((__tmp52588 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52218 + (let ((__tmp52591 (gx#datum->syntax '#f '##vector-ref)) - (__tmp52216 - (let ((__tmp52217 + (__tmp52589 + (let ((__tmp52590 (let () (declare (not safe)) (cons _L25218_ '())))) (declare (not safe)) - (cons _L25220_ __tmp52217)))) + (cons _L25220_ __tmp52590)))) (declare (not safe)) - (cons __tmp52218 __tmp52216)))) + (cons __tmp52591 __tmp52589)))) (declare (not safe)) - (cons __tmp52215 '())))) + (cons __tmp52588 '())))) (declare (not safe)) - (cons _L25221_ __tmp52214)))) + (cons _L25221_ __tmp52587)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52213 '()))) - (__tmp52208 - (let ((__tmp52209 - (let ((__tmp52210 - (let ((__tmp52211 + (cons __tmp52586 '()))) + (__tmp52581 + (let ((__tmp52582 + (let ((__tmp52583 + (let ((__tmp52584 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (fx+ _off25102_ '1)))) (declare (not safe)) - (_recur25097_ _L25145_ __tmp52211)))) + (_recur25097_ _L25145_ __tmp52584)))) (declare (not safe)) - (_generate124631_ _L25221_ _L25147_ __tmp52210 _E25095_)))) + (_generate124631_ _L25221_ _L25147_ __tmp52583 _E25095_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52209 '())))) + (cons __tmp52582 '())))) (declare (not safe)) - (cons __tmp52212 __tmp52208)))) + (cons __tmp52585 __tmp52581)))) (declare (not safe)) - (cons 'let __tmp52207)))) + (cons 'let __tmp52580)))) _hd2517425212_ _hd2517125202_ _hd2516825192_) @@ -4896,12 +4917,12 @@ (declare (not safe)) (_g2516225181_ _g2516325185_))))) - (__tmp52219 + (__tmp52592 (list (gx#genident 'e) _tgt25090_ _off25102_))) (declare (not safe)) - (_g2516125240_ __tmp52219)))) + (_g2516125240_ __tmp52592)))) (___kont4842148422_ (lambda () _K25094_))) (if (gx#stx-pair? ___stx4841648417_) (let ((_e2511125135_ @@ -4956,19 +4977,19 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp52220 - (let ((__tmp52223 - (let ((__tmp52224 - (let ((__tmp52225 + (let ((__tmp52593 + (let ((__tmp52596 + (let ((__tmp52597 + (let ((__tmp52598 (let () (declare (not safe)) (cons _L25059_ '())))) (declare (not safe)) - (cons _L25004_ __tmp52225)))) + (cons _L25004_ __tmp52598)))) (declare (not safe)) - (cons __tmp52224 '()))) - (__tmp52221 - (let ((__tmp52222 + (cons __tmp52597 '()))) + (__tmp52594 + (let ((__tmp52595 (let () (declare (not safe)) (_generate124631_ @@ -4977,56 +4998,56 @@ _K24986_ _E24987_)))) (declare (not safe)) - (cons __tmp52222 '())))) + (cons __tmp52595 '())))) (declare (not safe)) - (cons __tmp52223 __tmp52221)))) + (cons __tmp52596 __tmp52594)))) (declare (not safe)) - (cons 'let __tmp52220))))) + (cons 'let __tmp52593))))) _g2504525056_))) - (__tmp52226 + (__tmp52599 (let ((_$e25078_ _->list24985_)) (if (let () (declare (not safe)) (eq? 'values->list _$e25078_)) - (let ((__tmp52235 (gx#datum->syntax '#f 'values->list)) - (__tmp52234 + (let ((__tmp52608 (gx#datum->syntax '#f 'values->list)) + (__tmp52607 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52235 __tmp52234)) + (cons __tmp52608 __tmp52607)) (if (let () (declare (not safe)) (eq? 'vector->list _$e25078_)) - (let ((__tmp52233 + (let ((__tmp52606 (gx#datum->syntax '#f '##vector->list)) - (__tmp52232 + (__tmp52605 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52233 __tmp52232)) + (cons __tmp52606 __tmp52605)) (if (let () (declare (not safe)) (eq? 'struct->list _$e25078_)) - (let ((__tmp52231 + (let ((__tmp52604 (gx#datum->syntax '#f '##cdr)) - (__tmp52227 - (let ((__tmp52228 - (let ((__tmp52230 + (__tmp52600 + (let ((__tmp52601 + (let ((__tmp52603 (gx#datum->syntax '#f '##structure->list)) - (__tmp52229 + (__tmp52602 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52230 __tmp52229)))) + (cons __tmp52603 __tmp52602)))) (declare (not safe)) - (cons __tmp52228 '())))) + (cons __tmp52601 '())))) (declare (not safe)) - (cons __tmp52231 __tmp52227)) + (cons __tmp52604 __tmp52600)) (gx#raise-syntax-error '#f '"Unexpected list conversion" @@ -5035,14 +5056,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2504325074_ - __tmp52226)))) + __tmp52599)))) _g2501725028_)))) (declare (not safe)) (_g2501525082_ _tgt24982_)))) _g2499025001_))) - (__tmp52236 (gx#genident 'e))) + (__tmp52609 (gx#genident 'e))) (declare (not safe)) - (_g2498825086_ __tmp52236)))) + (_g2498825086_ __tmp52609)))) (_generate-struct24636_ (lambda (_info24853_ _tgt24855_ @@ -5063,9 +5084,9 @@ (declare (not safe)) (_struct-field-accessors24638_ _info24853_))) - (__tmp52237 - (let ((__tmp52241 - (let ((__tmp52243 + (__tmp52610 + (let ((__tmp52614 + (let ((__tmp52616 (let ((__obj49635 _info24853_)) (if (let () @@ -5086,14 +5107,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49635 'predicate)))) - (__tmp52242 + (__tmp52615 (let () (declare (not safe)) (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp52243 __tmp52242))) - (__tmp52238 - (let ((__tmp52240 + (cons __tmp52616 __tmp52615))) + (__tmp52611 + (let ((__tmp52613 (let () (declare (not safe)) (_generate-simple-struct-body24637_ @@ -5102,21 +5123,21 @@ _L24961_ _K24857_ _E24858_))) - (__tmp52239 + (__tmp52612 (let () (declare (not safe)) (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp52240 __tmp52239)))) + (cons __tmp52613 __tmp52612)))) (declare (not safe)) - (cons __tmp52241 __tmp52238)))) + (cons __tmp52614 __tmp52611)))) (declare (not safe)) - (cons 'if __tmp52237)))) + (cons 'if __tmp52610)))) (___kont4843748438_ (lambda (_L24915_) - (let ((__tmp52244 - (let ((__tmp52248 - (let ((__tmp52250 + (let ((__tmp52617 + (let ((__tmp52621 + (let ((__tmp52623 (let ((__obj49636 _info24853_)) (if (let () @@ -5137,14 +5158,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49636 'predicate)))) - (__tmp52249 + (__tmp52622 (let () (declare (not safe)) (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp52250 __tmp52249))) - (__tmp52245 - (let ((__tmp52247 + (cons __tmp52623 __tmp52622))) + (__tmp52618 + (let ((__tmp52620 (let () (declare (not safe)) (_generate-list-vector24635_ @@ -5153,16 +5174,16 @@ 'struct->list _K24857_ _E24858_))) - (__tmp52246 + (__tmp52619 (let () (declare (not safe)) (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp52247 __tmp52246)))) + (cons __tmp52620 __tmp52619)))) (declare (not safe)) - (cons __tmp52248 __tmp52245)))) + (cons __tmp52621 __tmp52618)))) (declare (not safe)) - (cons 'if __tmp52244))))) + (cons 'if __tmp52617))))) (if (gx#stx-pair? ___stx4843248433_) (let ((_e2486624937_ (gx#syntax-e ___stx4843248433_))) @@ -5285,45 +5306,45 @@ 'name)))) (let ((_$tgt24845_ (gx#genident 'e)) (_getf24847_ (car _fields24785_))) - (let ((__tmp52251 - (let ((__tmp52256 - (let ((__tmp52257 - (let ((__tmp52258 + (let ((__tmp52624 + (let ((__tmp52629 + (let ((__tmp52630 + (let ((__tmp52631 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52259 - (let ((__tmp52260 + (let ((__tmp52632 + (let ((__tmp52633 (let () (declare (not safe)) (cons _tgt24775_ '())))) (declare (not safe)) - (cons _getf24847_ __tmp52260)))) + (cons _getf24847_ __tmp52633)))) (declare (not safe)) - (cons __tmp52259 '())))) + (cons __tmp52632 '())))) (declare (not safe)) - (cons _$tgt24845_ __tmp52258)))) + (cons _$tgt24845_ __tmp52631)))) (declare (not safe)) - (cons __tmp52257 '()))) + (cons __tmp52630 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52252 - (let ((__tmp52253 - (let ((__tmp52254 + (__tmp52625 + (let ((__tmp52626 + (let ((__tmp52627 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52255 (cdr _fields24785_))) + (let ((__tmp52628 (cdr _fields24785_))) (declare (not safe)) - (_recur24780_ _L24828_ __tmp52255)))) + (_recur24780_ _L24828_ __tmp52628)))) (declare (not safe)) (_generate124631_ _$tgt24845_ _L24830_ - __tmp52254 + __tmp52627 _E24778_)))) (declare (not safe)) - (cons __tmp52253 '())))) + (cons __tmp52626 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52256 __tmp52252)))) + (cons __tmp52629 __tmp52625)))) (declare (not safe)) - (cons 'let __tmp52251)))))) + (cons 'let __tmp52624)))))) (___kont4848748488_ (lambda () _K24777_))) (if (gx#stx-pair? ___stx4848248483_) (let ((_e2479424818_ @@ -5349,7 +5370,7 @@ (if (let () (declare (not safe)) (null? _next24760_)) '() (let ((_ti24763_ (car _next24760_))) - (append (let ((__tmp52261 + (append (let ((__tmp52634 (map gx#syntax-local-value (let ((__obj49638 _ti24763_)) (if (let () @@ -5369,30 +5390,34 @@ __obj49638 'super)))))) (declare (not safe)) - (_recur24757_ __tmp52261)) + (_recur24757_ __tmp52634)) (map (lambda (_slot24766_) (let ((_$e24769_ - (assgetq _slot24766_ - (let ((__obj49639 + (let ((__tmp52635 + (let ((__obj49639 + _ti24763_)) + (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ti24763_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj49639 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj49639 - '14 - gerbil/core$<MOP>$<MOP:2>#class-type-info::t - '#f)) - (class-slot-ref - gerbil/core$<MOP>$<MOP:2>#class-type-info::t + (declare (not safe)) + (##structure-direct-instance-of? __obj49639 - 'unchecked-accessors)))))) + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj49639 + '14 + gerbil/core$<MOP>$<MOP:2>#class-type-info::t + '#f)) + (class-slot-ref + gerbil/core$<MOP>$<MOP:2>#class-type-info::t + __obj49639 + 'unchecked-accessors))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (assgetq__0 + _slot24766_ + __tmp52635)))) (if _$e24769_ _$e24769_ (gx#raise-syntax-error @@ -5424,9 +5449,9 @@ _body24750_ _K24751_ _E24752_) - (let ((__tmp52262 - (let ((__tmp52266 - (let ((__tmp52268 + (let ((__tmp52636 + (let ((__tmp52640 + (let ((__tmp52642 (let ((__obj49641 _info24747_)) (if (let () (declare (not safe)) @@ -5444,14 +5469,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49641 'predicate)))) - (__tmp52267 + (__tmp52641 (let () (declare (not safe)) (cons _tgt24749_ '())))) (declare (not safe)) - (cons __tmp52268 __tmp52267))) - (__tmp52263 - (let ((__tmp52265 + (cons __tmp52642 __tmp52641))) + (__tmp52637 + (let ((__tmp52639 (let () (declare (not safe)) (_generate-class-body24640_ @@ -5460,16 +5485,16 @@ _body24750_ _K24751_ _E24752_))) - (__tmp52264 + (__tmp52638 (let () (declare (not safe)) (cons _E24752_ '())))) (declare (not safe)) - (cons __tmp52265 __tmp52264)))) + (cons __tmp52639 __tmp52638)))) (declare (not safe)) - (cons __tmp52266 __tmp52263)))) + (cons __tmp52640 __tmp52637)))) (declare (not safe)) - (cons 'if __tmp52262)))) + (cons 'if __tmp52636)))) (_generate-class-body24640_ (lambda (_info24642_ _tgt24644_ @@ -5487,51 +5512,54 @@ (let ((___kont4850148502_ (lambda (_L24710_ _L24712_ _L24713_) (let ((_$e24733_ - (assgetq (string->symbol - (keyword->string - (gx#stx-e _L24713_))) - (let ((__obj49642 - _info24642_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj49642 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj49642 - '14 - gerbil/core$<MOP>$<MOP:2>#class-type-info::t - '#f)) - (class-slot-ref - gerbil/core$<MOP>$<MOP:2>#class-type-info::t + (let ((__tmp52644 + (string->symbol + (keyword->string + (gx#stx-e _L24713_)))) + (__tmp52643 + (let ((__obj49642 _info24642_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? __obj49642 - 'unchecked-accessors)))))) + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj49642 + '14 + gerbil/core$<MOP>$<MOP:2>#class-type-info::t + '#f)) + (class-slot-ref + gerbil/core$<MOP>$<MOP:2>#class-type-info::t + __obj49642 + 'unchecked-accessors))))) + (declare (not safe)) + (assgetq__0 __tmp52644 __tmp52643)))) (if _$e24733_ ((lambda (_getf24737_) (let* ((_$tgt24740_ (gx#genident 'e)) - (__tmp52269 - (let ((__tmp52273 - (let ((__tmp52274 - (let ((__tmp52275 + (__tmp52645 + (let ((__tmp52649 + (let ((__tmp52650 + (let ((__tmp52651 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52276 - (let ((__tmp52277 + (let ((__tmp52652 + (let ((__tmp52653 (let () (declare (not safe)) (cons _tgt24644_ '())))) (declare (not safe)) - (cons _getf24737_ __tmp52277)))) + (cons _getf24737_ __tmp52653)))) (declare (not safe)) - (cons __tmp52276 '())))) + (cons __tmp52652 '())))) (declare (not safe)) - (cons _$tgt24740_ __tmp52275)))) + (cons _$tgt24740_ __tmp52651)))) (declare (not safe)) - (cons __tmp52274 '()))) - (__tmp52270 - (let ((__tmp52271 - (let ((__tmp52272 + (cons __tmp52650 '()))) + (__tmp52646 + (let ((__tmp52647 + (let ((__tmp52648 (let () (declare (not safe)) (_recur24649_ _L24710_)))) @@ -5539,16 +5567,16 @@ (_generate124631_ _$tgt24740_ _L24712_ - __tmp52272 + __tmp52648 _E24647_)))) (declare (not safe)) - (cons __tmp52271 '())))) + (cons __tmp52647 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52273 - __tmp52270)))) + (cons __tmp52649 + __tmp52646)))) (declare (not safe)) - (cons 'let __tmp52269))) + (cons 'let __tmp52645))) _$e24733_) (gx#raise-syntax-error '#f @@ -5613,33 +5641,33 @@ (let ((___kont4852348524_ (lambda (_L24601_) (if (gx#stx-null? _L24497_) - (let ((__tmp52278 - (let ((__tmp52283 + (let ((__tmp52654 + (let ((__tmp52659 (gx#genident 'else)) - (__tmp52279 - (let ((__tmp52280 + (__tmp52655 + (let ((__tmp52656 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52281 + (let ((__tmp52657 (gx#stx-wrap-source - (let ((__tmp52282 + (let ((__tmp52658 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52282 _L24601_)) + (cons __tmp52658 _L24601_)) (let ((_$e24612_ (gx#stx-source _L24499_))) (if _$e24612_ _$e24612_ (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp52281 '())))) + (cons __tmp52657 '())))) (declare (not safe)) - (cons '#f __tmp52280)))) + (cons '#f __tmp52656)))) (declare (not safe)) - (cons __tmp52283 __tmp52279)))) + (cons __tmp52659 __tmp52655)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52278 _r24454_)) + (cons __tmp52654 _r24454_)) (gx#raise-syntax-error '#f '"bad syntax; misplaced else" @@ -5647,13 +5675,13 @@ _L24499_)))) (___kont4852548526_ (lambda (_L24560_ _L24562_) - (let ((__tmp52284 - (let ((__tmp52285 - (let ((__tmp52291 + (let ((__tmp52660 + (let ((__tmp52661 + (let ((__tmp52667 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#genident 'try-match)) - (__tmp52286 - (let ((__tmp52290 + (__tmp52662 + (let ((__tmp52666 (gx#stx-map (lambda (_g2457424576_) (let () @@ -5662,32 +5690,32 @@ _g2457424576_ _stx23520_))) _L24562_)) - (__tmp52287 - (let ((__tmp52288 + (__tmp52663 + (let ((__tmp52664 (gx#stx-wrap-source - (let ((__tmp52289 + (let ((__tmp52665 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52289 _L24560_)) + (cons __tmp52665 _L24560_)) (let ((_$e24580_ (gx#stx-source _L24499_))) (if _$e24580_ _$e24580_ (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp52288 '())))) + (cons __tmp52664 '())))) (declare (not safe)) - (cons __tmp52290 __tmp52287)))) + (cons __tmp52666 __tmp52663)))) (declare (not safe)) - (cons __tmp52291 __tmp52286)))) + (cons __tmp52667 __tmp52662)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52285 + (cons __tmp52661 _r24454_)))) (declare (not safe)) (_lp24449_ _L24497_ - __tmp52284)))) + __tmp52660)))) (___kont4852748528_ (lambda () (gx#raise-syntax-error @@ -5708,11 +5736,11 @@ _hd-len24446_) (gx#stx-list? _L24560_) - (let ((__tmp52292 + (let ((__tmp52668 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24560_))) (declare (not safe)) - (not __tmp52292))) + (not __tmp52668))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4852548526_ _L24560_ @@ -5725,11 +5753,11 @@ (let ((_L24601_ _tl2451924598_)) (if (and (gx#stx-list? _L24601_) - (let ((__tmp52293 + (let ((__tmp52669 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24601_))) (declare (not safe)) - (not __tmp52293))) + (not __tmp52669))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4852348524_ _L24601_) @@ -5752,7 +5780,7 @@ (if (gx#identifier? _hd2452024595_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52294_| + |gerbil/core$<match>[1]#_g52670_| _hd2452024595_) (___match4853948540_ _e2452124591_ @@ -5805,36 +5833,36 @@ (lambda (_g2426224282_) (if (gx#stx-pair/null? _g2426224282_) - (let ((_g52295_ + (let ((_g52671_ (gx#syntax-split-splice _g2426224282_ '0))) (begin - (let ((_g52296_ + (let ((_g52672_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52295_) - (##vector-length _g52295_) + _g52671_) + (##vector-length _g52671_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52296_ 2))) - (error "Context expects 2 values" _g52296_))) + (if (not (let () (declare (not safe)) (##fx= _g52672_ 2))) + (error "Context expects 2 values" _g52672_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2426424285_ (let () (declare (not safe)) (##vector-ref - _g52295_ + _g52671_ 0))) (_tl2426624288_ (let () (declare (not safe)) (##vector-ref - _g52295_ + _g52671_ 1)))) (if (gx#stx-null? _tl2426624288_) @@ -5852,7 +5880,7 @@ (let () (declare (not safe)) (##cdr _e2426824301_)))) - (let ((__tmp52318 + (let ((__tmp52695 (let () (declare (not safe)) (cons _lp-hd2426924305_ @@ -5860,7 +5888,7 @@ (declare (not safe)) (_loop2426724291_ _lp-tl2427024308_ - __tmp52318)))) + __tmp52695)))) (let ((_target2427224311_ (reverse _target2427124298_))) ((lambda (_L24315_) @@ -5897,104 +5925,107 @@ ((lambda (_L24403_) (let () (let () - (let ((__tmp52300 + (let ((__tmp52676 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp52297 - (let ((__tmp52299 + (__tmp52673 + (let ((__tmp52675 (gx#datum->syntax '#f '@match)) - (__tmp52298 + (__tmp52674 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L24403_ '())))) (declare (not safe)) - (cons __tmp52299 __tmp52298)))) + (cons __tmp52675 __tmp52674)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52300 - __tmp52297))))) + (cons __tmp52676 + __tmp52673))))) _g2438924400_))) - (__tmp52301 + (__tmp52677 (gx#stx-wrap-source - (let ((__tmp52307 + (let ((__tmp52683 (gx#datum->syntax '#f 'let)) - (__tmp52302 - (let ((__tmp52304 - (let ((__tmp52305 - (let ((__tmp52306 + (__tmp52678 + (let ((__tmp52680 + (let ((__tmp52681 + (let ((__tmp52682 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L24347_ '())))) (declare (not safe)) - (cons _L24249_ __tmp52306)))) + (cons _L24249_ __tmp52682)))) (declare (not safe)) - (cons __tmp52305 '()))) - (__tmp52303 (let () (declare (not safe)) (cons _L24375_ '())))) + (cons __tmp52681 '()))) + (__tmp52679 (let () (declare (not safe)) (cons _L24375_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52304 - __tmp52303)))) + (cons __tmp52680 + __tmp52679)))) (declare (not safe)) - (cons __tmp52307 __tmp52302)) + (cons __tmp52683 __tmp52678)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2438724418_ __tmp52301)))) + (_g2438724418_ __tmp52677)))) _g2436124372_))) - (__tmp52308 - (let ((__tmp52309 + (__tmp52684 + (let ((__tmp52685 (let () (declare (not safe)) (cons _L24249_ '())))) (declare (not safe)) - (_generate-clauses23528_ _body24231_ __tmp52309)))) + (_generate-clauses23528_ _body24231_ __tmp52685)))) (declare (not safe)) - (_g2435924422_ __tmp52308)))) + (_g2435924422_ __tmp52684)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2433324344_))) - (__tmp52310 + (__tmp52686 (gx#stx-wrap-source - (let ((__tmp52317 + (let ((__tmp52694 (gx#datum->syntax '#f 'lambda)) - (__tmp52311 - (let ((__tmp52312 + (__tmp52687 + (let ((__tmp52688 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52313 - (let ((__tmp52316 + (let ((__tmp52689 + (let ((__tmp52693 (gx#datum->syntax '#f 'error)) - (__tmp52314 - (let ((__tmp52315 - (foldr (lambda (_g2442924432_ + (__tmp52690 + (let ((__tmp52691 + (let ((__tmp52692 + (lambda (_g2442924432_ _g2443024435_) (let () (declare (not safe)) (cons _g2442924432_ - _g2443024435_))) - '() - _L24315_))) + _g2443024435_))))) + (declare (not safe)) + (foldr1 __tmp52692 + '() + _L24315_)))) (declare (not safe)) (cons '"No clause matching" - __tmp52315)))) + __tmp52691)))) (declare (not safe)) - (cons __tmp52316 __tmp52314)))) + (cons __tmp52693 __tmp52690)))) (declare (not safe)) - (cons __tmp52313 '())))) + (cons __tmp52689 '())))) (declare (not safe)) - (cons '() __tmp52312)))) + (cons '() __tmp52688)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52317 - __tmp52311)) + (cons __tmp52694 + __tmp52687)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2433124426_ __tmp52310)))) + (_g2433124426_ __tmp52686)))) _target2427224311_)))))) (let () (declare (not safe)) @@ -6010,9 +6041,9 @@ (declare (not safe)) (_g2426024438_ _tgt-lst23522_)))) _g2423524246_))) - (__tmp52319 (gx#genident 'E))) + (__tmp52696 (gx#genident 'E))) (declare (not safe)) - (_g2423324442_ __tmp52319)))) + (_g2423324442_ __tmp52696)))) (_generate-clauses23528_ (lambda (_rest23883_ _E23885_) (let* ((___stx4856448565_ _rest23883_) @@ -6069,9 +6100,9 @@ (##cdr _e2416224195_)))) (if (gx#stx-null? _tl2416024202_) ((lambda (_L24205_ _L24207_) - (let ((__tmp52320 - (let ((__tmp52321 - (let ((__tmp52322 + (let ((__tmp52697 + (let ((__tmp52698 + (let ((__tmp52699 (if (gx#stx-e _L24207_) (let () (declare (not safe)) @@ -6081,11 +6112,11 @@ _E23885_)) _L24205_))) (declare (not safe)) - (cons __tmp52322 '())))) + (cons __tmp52699 '())))) (declare (not safe)) - (cons '@match-body __tmp52321)))) + (cons '@match-body __tmp52698)))) (declare (not safe)) - (cons 'begin-annotation __tmp52320))) + (cons 'begin-annotation __tmp52697))) _hd2416124199_ _hd2415824189_) (let () @@ -6189,38 +6220,38 @@ (if (gx#stx-null? _tl2403124063_) ((lambda (_L24066_ _L24068_) (let () - (let ((__tmp52349 (gx#datum->syntax '#f 'let)) - (__tmp52340 - (let ((__tmp52342 - (let ((__tmp52343 - (let ((__tmp52344 - (let ((__tmp52345 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52348 (gx#datum->syntax '#f 'lambda)) - (__tmp52346 - (let ((__tmp52347 + (let ((__tmp52726 (gx#datum->syntax '#f 'let)) + (__tmp52717 + (let ((__tmp52719 + (let ((__tmp52720 + (let ((__tmp52721 + (let ((__tmp52722 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52725 (gx#datum->syntax '#f 'lambda)) + (__tmp52723 + (let ((__tmp52724 (let () (declare (not safe)) (cons _L24068_ '())))) (declare (not safe)) - (cons '() __tmp52347)))) + (cons '() __tmp52724)))) (declare (not safe)) - (cons __tmp52348 __tmp52346)))) + (cons __tmp52725 __tmp52723)))) (declare (not safe)) - (cons __tmp52345 '())))) + (cons __tmp52722 '())))) (declare (not safe)) - (cons _L24007_ __tmp52344)))) + (cons _L24007_ __tmp52721)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52343 '()))) - (__tmp52341 + (cons __tmp52720 '()))) + (__tmp52718 (let () (declare (not safe)) (cons _L24066_ '())))) (declare (not safe)) - (cons __tmp52342 __tmp52341)))) + (cons __tmp52719 __tmp52718)))) (declare (not safe)) - (cons __tmp52349 __tmp52340)))) + (cons __tmp52726 __tmp52717)))) _hd2403224060_ _hd2402924050_) (let () @@ -6234,14 +6265,14 @@ (declare (not safe)) (_g2402424039_ _g2402524043_))))) - (__tmp52350 + (__tmp52727 (list (let () (declare (not safe)) (_generate123529_ _L24006_ _L24004_ _E23885_)) - (let ((__tmp52351 + (let ((__tmp52728 (let () (declare (not safe)) (cons _L24007_ @@ -6251,9 +6282,9 @@ (declare (not safe)) (_generate-clauses23528_ _L23933_ - __tmp52351))))) + __tmp52728))))) (declare (not safe)) - (_g2402324084_ __tmp52350)) + (_g2402324084_ __tmp52727)) (let* ((_g2408824096_ (lambda (_g2408924092_) (gx#raise-syntax-error @@ -6264,71 +6295,71 @@ (lambda (_g2408924100_) ((lambda (_L24103_) (let () - (let ((__tmp52337 + (let ((__tmp52714 (gx#datum->syntax '#f 'let)) - (__tmp52323 - (let ((__tmp52325 + (__tmp52700 + (let ((__tmp52702 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52326 - (let ((__tmp52327 - (let ((__tmp52328 - (let ((__tmp52336 + (let ((__tmp52703 + (let ((__tmp52704 + (let ((__tmp52705 + (let ((__tmp52713 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp52329 - (let ((__tmp52335 + (__tmp52706 + (let ((__tmp52712 (gx#datum->syntax '#f '@match-else)) - (__tmp52330 - (let ((__tmp52331 + (__tmp52707 + (let ((__tmp52708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52334 (gx#datum->syntax '#f 'lambda)) - (__tmp52332 - (let ((__tmp52333 + (let ((__tmp52711 (gx#datum->syntax '#f 'lambda)) + (__tmp52709 + (let ((__tmp52710 (let () (declare (not safe)) (cons _L24004_ '())))) (declare (not safe)) - (cons '() __tmp52333)))) + (cons '() __tmp52710)))) (declare (not safe)) - (cons __tmp52334 __tmp52332)))) + (cons __tmp52711 __tmp52709)))) (declare (not safe)) - (cons __tmp52331 '())))) + (cons __tmp52708 '())))) (declare (not safe)) - (cons __tmp52335 __tmp52330)))) + (cons __tmp52712 __tmp52707)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52336 __tmp52329)))) + (cons __tmp52713 __tmp52706)))) (declare (not safe)) - (cons __tmp52328 '())))) + (cons __tmp52705 '())))) (declare (not safe)) - (cons _L24007_ __tmp52327)))) + (cons _L24007_ __tmp52704)))) (declare (not safe)) - (cons __tmp52326 '()))) - (__tmp52324 + (cons __tmp52703 '()))) + (__tmp52701 (let () (declare (not safe)) (cons _L24103_ '())))) (declare (not safe)) - (cons __tmp52325 __tmp52324)))) + (cons __tmp52702 __tmp52701)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52337 - __tmp52323)))) + (cons __tmp52714 + __tmp52700)))) _g2408924100_))) - (__tmp52338 - (let ((__tmp52339 + (__tmp52715 + (let ((__tmp52716 (let () (declare (not safe)) (cons _L24007_ '())))) (declare (not safe)) (_generate-clauses23528_ _L23933_ - __tmp52339)))) + __tmp52716)))) (declare (not safe)) - (_g2408724114_ __tmp52338)))) + (_g2408724114_ __tmp52715)))) _hd2396023998_ _hd2395723988_ _hd2395423978_) @@ -6351,15 +6382,15 @@ (_g2394724118_ _L23935_)))) (___kont4857148572_ (lambda () - (let ((__tmp52352 - (let ((__tmp52353 + (let ((__tmp52729 + (let ((__tmp52730 (let () (declare (not safe)) (cons _E23885_ '())))) (declare (not safe)) - (cons '@match-body __tmp52353)))) + (cons '@match-body __tmp52730)))) (declare (not safe)) - (cons 'begin-annotation __tmp52352))))) + (cons 'begin-annotation __tmp52729))))) (if (gx#stx-pair? ___stx4856448565_) (let ((_e2389424129_ (gx#syntax-e ___stx4856448565_))) @@ -6411,25 +6442,25 @@ (##cdr _e2354523577_)))) (if (gx#stx-pair/null? _hd2354423581_) - (let ((_g52354_ + (let ((_g52731_ (gx#syntax-split-splice _hd2354423581_ '0))) (begin - (let ((_g52355_ + (let ((_g52732_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g52354_) - (##vector-length _g52354_) + (if (##values? _g52731_) + (##vector-length _g52731_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52355_ 2))) - (error "Context expects 2 values" _g52355_))) + (if (not (let () (declare (not safe)) (##fx= _g52732_ 2))) + (error "Context expects 2 values" _g52732_))) (let ((_target2354623587_ - (let () (declare (not safe)) (##vector-ref _g52354_ 0))) + (let () (declare (not safe)) (##vector-ref _g52731_ 0))) (_tl2354823590_ - (let () (declare (not safe)) (##vector-ref _g52354_ 1)))) + (let () (declare (not safe)) (##vector-ref _g52731_ 1)))) (if (gx#stx-null? _tl2354823590_) (letrec ((_loop2354923593_ (lambda (_hd2354723597_ _var2355323600_) @@ -6444,7 +6475,7 @@ (let () (declare (not safe)) (##cdr _e2355023603_)))) - (let ((__tmp52369 + (let ((__tmp52749 (let () (declare (not safe)) (cons _lp-hd2355123607_ @@ -6452,23 +6483,26 @@ (declare (not safe)) (_loop2354923593_ _lp-tl2355223610_ - __tmp52369)))) + __tmp52749)))) (let ((_var2355423613_ (reverse _var2355323600_))) (if (gx#stx-null? _tl2354323584_) ((lambda (_L23617_ _L23619_) (let () (gx#check-duplicate-identifiers - (foldr (lambda (_g2364023643_ + (let ((__tmp52733 + (lambda (_g2364023643_ _g2364123646_) (let () (declare (not safe)) (cons _g2364023643_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2364123646_))) - '() - _L23617_) + _g2364123646_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp52733 + '() + _L23617_)) _stx23520_) (let* ((_g2364923657_ (lambda (_g2365023653_) @@ -6503,61 +6537,61 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp52360 + (let ((__tmp52738 (gx#datum->syntax '#f 'let)) - (__tmp52356 - (let ((__tmp52358 + (__tmp52734 + (let ((__tmp52736 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52359 + (let ((__tmp52737 (let () (declare (not safe)) (cons _L23720_ '())))) (declare (not safe)) - (cons _L23619_ __tmp52359))) - (__tmp52357 + (cons _L23619_ __tmp52737))) + (__tmp52735 (let () (declare (not safe)) (cons _L23664_ '())))) (declare (not safe)) - (cons __tmp52358 __tmp52357)))) + (cons __tmp52736 __tmp52735)))) (declare (not safe)) - (cons __tmp52360 __tmp52356)) + (cons __tmp52738 __tmp52734)) (gx#stx-source _stx23520_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2370623717_))) - (__tmp52361 + (__tmp52739 (gx#stx-wrap-source - (let ((__tmp52365 + (let ((__tmp52744 (gx#datum->syntax '#f 'lambda)) - (__tmp52362 - (let ((__tmp52364 - (foldr (lambda (_g2373823741_ + (__tmp52740 + (let ((__tmp52742 + (let ((__tmp52743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2373923744_) + (lambda (_g2373823741_ _g2373923744_) (let () (declare (not safe)) - (cons _g2373823741_ _g2373923744_))) - '() - _L23617_)) - (__tmp52363 + (cons _g2373823741_ _g2373923744_))))) + (declare (not safe)) + (foldr1 __tmp52743 '() _L23617_))) + (__tmp52741 (let () (declare (not safe)) (cons _L23692_ '())))) (declare (not safe)) - (cons __tmp52364 __tmp52363)))) + (cons __tmp52742 __tmp52741)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52365 __tmp52362)) + (cons __tmp52744 __tmp52740)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2370423735_ __tmp52361)))) + (_g2370423735_ __tmp52739)))) _g2367823689_)))) (declare (not safe)) (_g2367623747_ _body23533_)))) _g2365023661_))) - (__tmp52366 + (__tmp52745 (let _recur23755_ ((_rest23758_ _clause23531_) (_rest-targets23760_ _tgt-lst23522_)) (let* ((___stx4859048591_ _rest23758_) @@ -6589,7 +6623,7 @@ (declare (not safe)) (##cdr _e2383423847_)))) ((lambda (_L23857_ _L23859_) - (let ((__tmp52367 + (let ((__tmp52746 (let () (declare (not safe)) (_recur23755_ @@ -6600,7 +6634,7 @@ _stx23520_ _L23859_ _L23813_ - __tmp52367 + __tmp52746 _E23534_))) _tl2383223854_ _hd2383323851_))) @@ -6611,16 +6645,17 @@ (_g2382723871_ _rest-targets23760_)))) (___kont4859548596_ (lambda () - (let ((__tmp52368 - (foldr (lambda (_g2378523788_ _g2378623791_) + (let ((__tmp52747 + (let ((__tmp52748 + (lambda (_g2378523788_ _g2378623791_) (let () (declare (not safe)) (cons _g2378523788_ - _g2378623791_))) - '() - _L23617_))) + _g2378623791_))))) + (declare (not safe)) + (foldr1 __tmp52748 '() _L23617_)))) (declare (not safe)) - (cons _L23619_ __tmp52368))))) + (cons _L23619_ __tmp52747))))) (if (gx#stx-pair? ___stx4859048591_) (let ((_e2376923801_ (gx#syntax-e ___stx4859048591_))) (let ((_tl2376723808_ @@ -6637,7 +6672,7 @@ (___kont4859548596_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2364823751_ __tmp52366)))) + (_g2364823751_ __tmp52745)))) _var2355423613_ _hd2354123571_) (let () @@ -6661,19 +6696,19 @@ (let () (declare (not safe)) (_g2353623560_ _g2353723564_))))) - (__tmp52370 + (__tmp52750 (list (gx#genident 'K) (apply append (map |gerbil/core$<match>[1]#match-pattern-vars| _clause23531_))))) (declare (not safe)) - (_g2353523879_ __tmp52370))))) - (let ((__tmp52371 - (let ((__tmp52372 (gx#stx-length _tgt-lst23522_))) + (_g2353523879_ __tmp52750))))) + (let ((__tmp52751 + (let ((__tmp52752 (gx#stx-length _tgt-lst23522_))) (declare (not safe)) - (_parse-body23525_ __tmp52372)))) + (_parse-body23525_ __tmp52752)))) (declare (not safe)) - (_generate-body23527_ __tmp52371))))) + (_generate-body23527_ __tmp52751))))) (define |gerbil/core$<match>[1]#generate-match| (lambda (_stx23422_ _tgt23424_ _clauses23425_) (letrec ((_reclause23427_ @@ -6689,12 +6724,12 @@ (___kont4861148612_ (lambda (_L23478_ _L23480_) (gx#stx-wrap-source - (let ((__tmp52373 + (let ((__tmp52753 (let () (declare (not safe)) (cons _L23480_ '())))) (declare (not safe)) - (cons __tmp52373 _L23478_)) + (cons __tmp52753 _L23478_)) (gx#stx-source (gx#datum->syntax '#f 'clause))))) (___kont4861348614_ @@ -6717,7 +6752,7 @@ (##car _e2343923502_)))) (if (gx#identifier? _hd2343823506_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52374_| + |gerbil/core$<match>[1]#_g52754_| _hd2343823506_) (___kont4860948610_) (___kont4861148612_ @@ -6727,14 +6762,14 @@ _tl2343723509_ _hd2343823506_)))) (___kont4861348614_))))))) - (let ((__tmp52376 + (let ((__tmp52756 (let () (declare (not safe)) (cons _tgt23424_ '()))) - (__tmp52375 (gx#stx-map _reclause23427_ _clauses23425_))) + (__tmp52755 (gx#stx-map _reclause23427_ _clauses23425_))) (declare (not safe)) (|gerbil/core$<match>[1]#generate-match*| _stx23422_ - __tmp52376 - __tmp52375))))) + __tmp52756 + __tmp52755))))) (define |gerbil/core$<match>[:0:]#match| (lambda (_stx30653_) (let* ((___stx4863448635_ _stx30653_) @@ -6767,33 +6802,33 @@ ((lambda (_L30982_) (let () (let () - (let ((__tmp52380 + (let ((__tmp52760 (gx#datum->syntax '#f 'lambda)) - (__tmp52377 - (let ((__tmp52379 + (__tmp52757 + (let ((__tmp52759 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30955_ '()))) - (__tmp52378 + (__tmp52758 (let () (declare (not safe)) (cons _L30982_ '())))) (declare (not safe)) - (cons __tmp52379 __tmp52378)))) + (cons __tmp52759 __tmp52758)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52380 - __tmp52377))))) + (cons __tmp52760 + __tmp52757))))) _g3096830979_)))) (_g3096630997_ (gx#stx-wrap-source - (let ((__tmp52382 + (let ((__tmp52762 (gx#datum->syntax '#f 'match)) - (__tmp52381 + (__tmp52761 (let () (declare (not safe)) (cons _L30955_ _L30927_)))) (declare (not safe)) - (cons __tmp52382 __tmp52381)) + (cons __tmp52762 __tmp52761)) (gx#stx-source _stx30653_)))))) _g3094130952_)))) (_g3093931001_ (gx#genident 'e))))) @@ -6820,31 +6855,31 @@ ((lambda (_L30877_) (let () (let () - (let ((__tmp52385 + (let ((__tmp52765 (gx#datum->syntax '#f 'lambda)) - (__tmp52383 - (let ((__tmp52384 + (__tmp52763 + (let ((__tmp52764 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30877_ '())))) (declare (not safe)) - (cons _L30850_ __tmp52384)))) + (cons _L30850_ __tmp52764)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52385 - __tmp52383))))) + (cons __tmp52765 + __tmp52763))))) _g3086330874_)))) (_g3086130892_ (gx#stx-wrap-source - (let ((__tmp52387 + (let ((__tmp52767 (gx#datum->syntax '#f 'match)) - (__tmp52386 + (__tmp52766 (let () (declare (not safe)) (cons _L30850_ _L30822_)))) (declare (not safe)) - (cons __tmp52387 __tmp52386)) + (cons __tmp52767 __tmp52766)) (gx#stx-source _stx30653_)))))) _g3083630847_)))) (_g3083430896_ (gx#genident 'args))))) @@ -6871,30 +6906,30 @@ ((lambda (_L30772_) (let () (let () - (let ((__tmp52393 + (let ((__tmp52773 (gx#datum->syntax '#f 'let)) - (__tmp52388 - (let ((__tmp52390 + (__tmp52768 + (let ((__tmp52770 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52391 - (let ((__tmp52392 + (let ((__tmp52771 + (let ((__tmp52772 (let () (declare (not safe)) (cons _L30716_ '())))) (declare (not safe)) - (cons _L30745_ __tmp52392)))) + (cons _L30745_ __tmp52772)))) (declare (not safe)) - (cons __tmp52391 '()))) - (__tmp52389 + (cons __tmp52771 '()))) + (__tmp52769 (let () (declare (not safe)) (cons _L30772_ '())))) (declare (not safe)) - (cons __tmp52390 __tmp52389)))) + (cons __tmp52770 __tmp52769)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52393 - __tmp52388))))) + (cons __tmp52773 + __tmp52768))))) _g3075830769_)))) (_g3075630787_ (let () @@ -6971,7 +7006,7 @@ (##car _e3066630917_)))) (if (gx#identifier? _hd3066530921_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52395_| + |gerbil/core$<match>[1]#_g52775_| _hd3066530921_) (___match4865948660_ _e3066330907_ @@ -6981,7 +7016,7 @@ _hd3066530921_ _tl3066430924_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52394_| + |gerbil/core$<match>[1]#_g52774_| _hd3066530921_) (___match4867548676_ _e3066330907_ @@ -7038,31 +7073,31 @@ (declare (not safe)) (##cdr _e3102131053_)))) (if (gx#stx-pair/null? _hd3102031057_) - (let ((_g52396_ + (let ((_g52776_ (gx#syntax-split-splice _hd3102031057_ '0))) (begin - (let ((_g52397_ + (let ((_g52777_ (let () (declare (not safe)) - (if (##values? _g52396_) + (if (##values? _g52776_) (##vector-length - _g52396_) + _g52776_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52397_ 2))) + (##fx= _g52777_ 2))) (error "Context expects 2 values" - _g52397_))) + _g52777_))) (let ((_target3102231063_ (let () (declare (not safe)) - (##vector-ref _g52396_ 0))) + (##vector-ref _g52776_ 0))) (_tl3102431066_ (let () (declare (not safe)) - (##vector-ref _g52396_ 1)))) + (##vector-ref _g52776_ 1)))) (if (gx#stx-null? _tl3102431066_) (letrec ((_loop3102531069_ (lambda (_hd3102331073_ @@ -7096,41 +7131,41 @@ (lambda (_g3111431134_) (if (gx#stx-pair/null? _g3111431134_) - (let ((_g52398_ + (let ((_g52778_ (gx#syntax-split-splice _g3111431134_ '0))) (begin - (let ((_g52399_ + (let ((_g52779_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52398_) - (##vector-length _g52398_) + _g52778_) + (##vector-length _g52778_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g52399_ 2))) - (error "Context expects 2 values" _g52399_))) + (##fx= _g52779_ 2))) + (error "Context expects 2 values" _g52779_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3111631137_ (let () (declare (not safe)) (##vector-ref - _g52398_ + _g52778_ 0))) (_tl3111831140_ (let () (declare (not safe)) (##vector-ref - _g52398_ + _g52778_ 1)))) (if (gx#stx-null? _tl3111831140_) @@ -7169,59 +7204,62 @@ ((lambda (_L31198_) (let () (let () - (let ((__tmp52405 + (let ((__tmp52786 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp52400 - (let ((__tmp52402 + (__tmp52780 + (let ((__tmp52782 (begin (gx#syntax-check-splice-targets _L31095_ _L31167_) - (foldr (lambda (_g3121231216_ + (let ((__tmp52783 + (lambda (_g3121231216_ _g3121331219_ _g3121431221_) - (let ((__tmp52403 - (let ((__tmp52404 + (let ((__tmp52784 + (let ((__tmp52785 (let () (declare (not safe)) (cons _g3121231216_ '())))) (declare (not safe)) (cons _g3121331219_ - __tmp52404)))) + __tmp52785)))) (declare (not safe)) - (cons __tmp52403 _g3121431221_))) - '() - _L31095_ - _L31167_))) - (__tmp52401 + (cons __tmp52784 _g3121431221_))))) + (declare (not safe)) + (foldr2 __tmp52783 '() _L31095_ _L31167_)))) + (__tmp52781 (let () (declare (not safe)) (cons _L31198_ '())))) (declare (not safe)) - (cons __tmp52402 __tmp52401)))) + (cons __tmp52782 __tmp52781)))) (declare (not safe)) - (cons __tmp52405 __tmp52400))))) + (cons __tmp52786 __tmp52780))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3118431195_)))) (_g3118231224_ - (let ((__tmp52406 - (foldr (lambda (_g3122731230_ + (let ((__tmp52787 + (let ((__tmp52788 + (lambda (_g3122731230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3122831233_) (let () (declare (not safe)) - (cons _g3122731230_ _g3122831233_))) - '() - _L31167_))) + (cons _g3122731230_ _g3122831233_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp52788 + '() + _L31167_)))) (declare (not safe)) (|gerbil/core$<match>[1]#generate-match*| _stx31009_ - __tmp52406 + __tmp52787 _L31093_)))))) _$e3112431163_)))))) (_loop3111931143_ _target3111631137_ '())) @@ -7231,14 +7269,15 @@ _g3111431134_))))) (_g3111231236_ (gx#gentemps - (foldr (lambda (_g3123931242_ + (let ((__tmp52789 + (lambda (_g3123931242_ _g3124031245_) (let () (declare (not safe)) (cons _g3123931242_ - _g3124031245_))) - '() - _L31095_)))) + _g3124031245_))))) + (declare (not safe)) + (foldr1 __tmp52789 '() _L31095_))))) (_g3101231036_ _g3101331040_))) _tl3101931060_ _e3103031089_)))))) @@ -7263,85 +7302,94 @@ ___stx4869048691_)))) (let ((___kont4869348694_ (lambda (_L31673_) - (let ((__tmp52409 (gx#datum->syntax '#f 'let)) - (__tmp52407 - (let ((__tmp52408 - (foldr (lambda (_g3168931692_ _g3169031695_) + (let ((__tmp52793 (gx#datum->syntax '#f 'let)) + (__tmp52790 + (let ((__tmp52791 + (let ((__tmp52792 + (lambda (_g3168931692_ _g3169031695_) (let () (declare (not safe)) (cons _g3168931692_ - _g3169031695_))) - '() - _L31673_))) + _g3169031695_))))) + (declare (not safe)) + (foldr1 __tmp52792 '() _L31673_)))) (declare (not safe)) - (cons '() __tmp52408)))) + (cons '() __tmp52791)))) (declare (not safe)) - (cons __tmp52409 __tmp52407)))) + (cons __tmp52793 __tmp52790)))) (___kont4869748698_ (lambda (_L31581_ _L31583_ _L31584_ _L31585_) - (let ((__tmp52410 - (let ((__tmp52412 - (let ((__tmp52413 - (let ((__tmp52414 + (let ((__tmp52794 + (let ((__tmp52797 + (let ((__tmp52798 + (let ((__tmp52799 (let () (declare (not safe)) (cons _L31583_ '())))) (declare (not safe)) - (cons _L31584_ __tmp52414)))) + (cons _L31584_ __tmp52799)))) (declare (not safe)) - (cons __tmp52413 '()))) - (__tmp52411 - (foldr (lambda (_g3160731610_ _g3160831613_) + (cons __tmp52798 '()))) + (__tmp52795 + (let ((__tmp52796 + (lambda (_g3160731610_ _g3160831613_) (let () (declare (not safe)) (cons _g3160731610_ - _g3160831613_))) - '() - _L31581_))) + _g3160831613_))))) + (declare (not safe)) + (foldr1 __tmp52796 '() _L31581_)))) (declare (not safe)) - (cons __tmp52412 __tmp52411)))) + (cons __tmp52797 __tmp52795)))) (declare (not safe)) - (cons _L31585_ __tmp52410)))) + (cons _L31585_ __tmp52794)))) (___kont4870148702_ (lambda (_L31454_ _L31456_ _L31457_) - (let ((__tmp52421 (gx#datum->syntax '#f 'match*)) - (__tmp52415 - (let ((__tmp52420 - (foldr (lambda (_g3148331486_ _g3148431489_) + (let ((__tmp52809 (gx#datum->syntax '#f 'match*)) + (__tmp52800 + (let ((__tmp52807 + (let ((__tmp52808 + (lambda (_g3148331486_ _g3148431489_) (let () (declare (not safe)) (cons _g3148331486_ - _g3148431489_))) - '() - _L31456_)) - (__tmp52416 - (let ((__tmp52417 - (let ((__tmp52419 - (foldr (lambda (_g3148131492_ + _g3148431489_))))) + (declare (not safe)) + (foldr1 __tmp52808 '() _L31456_))) + (__tmp52801 + (let ((__tmp52802 + (let ((__tmp52805 + (let ((__tmp52806 + (lambda (_g3148131492_ _g3148231495_) (let () (declare (not safe)) (cons _g3148131492_ - _g3148231495_))) - '() - _L31457_)) - (__tmp52418 - (foldr (lambda (_g3147931498_ + _g3148231495_))))) + (declare (not safe)) + (foldr1 __tmp52806 + '() + _L31457_))) + (__tmp52803 + (let ((__tmp52804 + (lambda (_g3147931498_ _g3148031501_) (let () (declare (not safe)) (cons _g3147931498_ - _g3148031501_))) - '() - _L31454_))) + _g3148031501_))))) + (declare (not safe)) + (foldr1 __tmp52804 + '() + _L31454_)))) (declare (not safe)) - (cons __tmp52419 __tmp52418)))) + (cons __tmp52805 __tmp52803)))) (declare (not safe)) - (cons __tmp52417 '())))) + (cons __tmp52802 '())))) (declare (not safe)) - (cons __tmp52420 __tmp52416)))) + (cons __tmp52807 __tmp52801)))) (declare (not safe)) - (cons __tmp52421 __tmp52415))))) + (cons __tmp52809 __tmp52800))))) (let* ((___match4878348784_ (lambda (_e3130831350_ _hd3130731354_ @@ -7931,57 +7979,59 @@ ___stx4878648787_)))) (let ((___kont4878948790_ (lambda (_L31933_ _L31935_ _L31936_ _L31937_ _L31938_) - (let ((__tmp52430 (gx#datum->syntax '#f 'with)) - (__tmp52422 - (let ((__tmp52427 - (let ((__tmp52428 - (let ((__tmp52429 + (let ((__tmp52819 (gx#datum->syntax '#f 'with)) + (__tmp52810 + (let ((__tmp52816 + (let ((__tmp52817 + (let ((__tmp52818 (let () (declare (not safe)) (cons _L31936_ '())))) (declare (not safe)) - (cons _L31937_ __tmp52429)))) + (cons _L31937_ __tmp52818)))) (declare (not safe)) - (cons __tmp52428 '()))) - (__tmp52423 - (let ((__tmp52424 - (let ((__tmp52425 - (let ((__tmp52426 - (foldr (lambda (_g3196331966_ + (cons __tmp52817 '()))) + (__tmp52811 + (let ((__tmp52812 + (let ((__tmp52813 + (let ((__tmp52814 + (let ((__tmp52815 + (lambda (_g3196331966_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3196431969_) (let () (declare (not safe)) - (cons _g3196331966_ _g3196431969_))) - '() - _L31933_))) + (cons _g3196331966_ _g3196431969_))))) + (declare (not safe)) + (foldr1 __tmp52815 '() _L31933_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L31935_ __tmp52426)))) + (cons _L31935_ __tmp52814)))) (declare (not safe)) - (cons _L31938_ __tmp52425)))) + (cons _L31938_ __tmp52813)))) (declare (not safe)) - (cons __tmp52424 '())))) + (cons __tmp52812 '())))) (declare (not safe)) - (cons __tmp52427 __tmp52423)))) + (cons __tmp52816 __tmp52811)))) (declare (not safe)) - (cons __tmp52430 __tmp52422)))) + (cons __tmp52819 __tmp52810)))) (___kont4879348794_ (lambda (_L31820_) - (let ((__tmp52433 (gx#datum->syntax '#f 'let)) - (__tmp52431 - (let ((__tmp52432 - (foldr (lambda (_g3183731840_ _g3183831843_) + (let ((__tmp52823 (gx#datum->syntax '#f 'let)) + (__tmp52820 + (let ((__tmp52821 + (let ((__tmp52822 + (lambda (_g3183731840_ _g3183831843_) (let () (declare (not safe)) (cons _g3183731840_ - _g3183831843_))) - '() - _L31820_))) + _g3183831843_))))) + (declare (not safe)) + (foldr1 __tmp52822 '() _L31820_)))) (declare (not safe)) - (cons '() __tmp52432)))) + (cons '() __tmp52821)))) (declare (not safe)) - (cons __tmp52433 __tmp52431))))) + (cons __tmp52823 __tmp52820))))) (let* ((___match4885948860_ (lambda (_e3174531770_ _hd3174431774_ @@ -8213,269 +8263,271 @@ ___stx4886248863_)))) (let ((___kont4886548866_ (lambda (_L32739_ _L32741_ _L32742_) - (let ((__tmp52438 (gx#datum->syntax '#f 'and)) - (__tmp52434 - (foldr (lambda (_g3276332766_ _g3276432769_) - (let ((__tmp52435 - (let ((__tmp52436 - (let ((__tmp52437 + (let ((__tmp52829 (gx#datum->syntax '#f 'and)) + (__tmp52824 + (let ((__tmp52825 + (lambda (_g3276332766_ _g3276432769_) + (let ((__tmp52826 + (let ((__tmp52827 + (let ((__tmp52828 (let () (declare (not safe)) (cons _L32739_ '())))) (declare (not safe)) (cons _g3276332766_ - __tmp52437)))) + __tmp52828)))) (declare (not safe)) - (cons _L32742_ __tmp52436)))) + (cons _L32742_ __tmp52827)))) (declare (not safe)) - (cons __tmp52435 _g3276432769_))) - '() - _L32741_))) + (cons __tmp52826 _g3276432769_))))) + (declare (not safe)) + (foldr1 __tmp52825 '() _L32741_)))) (declare (not safe)) - (cons __tmp52438 __tmp52434)))) + (cons __tmp52829 __tmp52824)))) (___kont4886948870_ (lambda (_L32629_ _L32631_ _L32632_) - (let ((__tmp52443 (gx#datum->syntax '#f 'or)) - (__tmp52439 - (foldr (lambda (_g3265332656_ _g3265432659_) - (let ((__tmp52440 - (let ((__tmp52441 - (let ((__tmp52442 + (let ((__tmp52835 (gx#datum->syntax '#f 'or)) + (__tmp52830 + (let ((__tmp52831 + (lambda (_g3265332656_ _g3265432659_) + (let ((__tmp52832 + (let ((__tmp52833 + (let ((__tmp52834 (let () (declare (not safe)) (cons _L32629_ '())))) (declare (not safe)) (cons _g3265332656_ - __tmp52442)))) + __tmp52834)))) (declare (not safe)) - (cons _L32632_ __tmp52441)))) + (cons _L32632_ __tmp52833)))) (declare (not safe)) - (cons __tmp52440 _g3265432659_))) - '() - _L32631_))) + (cons __tmp52832 _g3265432659_))))) + (declare (not safe)) + (foldr1 __tmp52831 '() _L32631_)))) (declare (not safe)) - (cons __tmp52443 __tmp52439)))) + (cons __tmp52835 __tmp52830)))) (___kont4887348874_ (lambda (_L32529_ _L32531_ _L32532_) - (let ((__tmp52448 (gx#datum->syntax '#f 'not)) - (__tmp52444 - (let ((__tmp52445 - (let ((__tmp52446 - (let ((__tmp52447 + (let ((__tmp52840 (gx#datum->syntax '#f 'not)) + (__tmp52836 + (let ((__tmp52837 + (let ((__tmp52838 + (let ((__tmp52839 (let () (declare (not safe)) (cons _L32529_ '())))) (declare (not safe)) - (cons _L32531_ __tmp52447)))) + (cons _L32531_ __tmp52839)))) (declare (not safe)) - (cons _L32532_ __tmp52446)))) + (cons _L32532_ __tmp52838)))) (declare (not safe)) - (cons __tmp52445 '())))) + (cons __tmp52837 '())))) (declare (not safe)) - (cons __tmp52448 __tmp52444)))) + (cons __tmp52840 __tmp52836)))) (___kont4887548876_ (lambda (_L32455_ _L32457_) - (let ((__tmp52449 + (let ((__tmp52841 (let () (declare (not safe)) (cons _L32455_ '())))) (declare (not safe)) - (cons _L32457_ __tmp52449)))) + (cons _L32457_ __tmp52841)))) (___kont4887748878_ (lambda (_L32403_ _L32405_) - (let ((__tmp52458 (gx#datum->syntax '#f 'lambda)) - (__tmp52450 - (let ((__tmp52456 - (let ((__tmp52457 + (let ((__tmp52850 (gx#datum->syntax '#f 'lambda)) + (__tmp52842 + (let ((__tmp52848 + (let ((__tmp52849 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52457 '()))) - (__tmp52451 - (let ((__tmp52452 - (let ((__tmp52453 - (let ((__tmp52454 - (let ((__tmp52455 + (cons __tmp52849 '()))) + (__tmp52843 + (let ((__tmp52844 + (let ((__tmp52845 + (let ((__tmp52846 + (let ((__tmp52847 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52455 + (cons __tmp52847 '())))) (declare (not safe)) - (cons _L32403_ __tmp52454)))) + (cons _L32403_ __tmp52846)))) (declare (not safe)) - (cons _L32405_ __tmp52453)))) + (cons _L32405_ __tmp52845)))) (declare (not safe)) - (cons __tmp52452 '())))) + (cons __tmp52844 '())))) (declare (not safe)) - (cons __tmp52456 __tmp52451)))) + (cons __tmp52848 __tmp52843)))) (declare (not safe)) - (cons __tmp52458 __tmp52450)))) + (cons __tmp52850 __tmp52842)))) (___kont4887948880_ (lambda (_L32355_ _L32357_ _L32358_) - (let ((__tmp52477 (gx#datum->syntax '#f 'lambda)) - (__tmp52459 - (let ((__tmp52475 - (let ((__tmp52476 + (let ((__tmp52869 (gx#datum->syntax '#f 'lambda)) + (__tmp52851 + (let ((__tmp52867 + (let ((__tmp52868 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52476 '()))) - (__tmp52460 - (let ((__tmp52461 - (let ((__tmp52474 + (cons __tmp52868 '()))) + (__tmp52852 + (let ((__tmp52853 + (let ((__tmp52866 (gx#datum->syntax '#f 'alet)) - (__tmp52462 - (let ((__tmp52467 - (let ((__tmp52473 + (__tmp52854 + (let ((__tmp52859 + (let ((__tmp52865 (gx#datum->syntax '#f '$val)) - (__tmp52468 - (let ((__tmp52469 + (__tmp52860 + (let ((__tmp52861 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52470 - (let ((__tmp52471 - (let ((__tmp52472 + (let ((__tmp52862 + (let ((__tmp52863 + (let ((__tmp52864 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52472 '())))) + (cons __tmp52864 '())))) (declare (not safe)) - (cons _L32357_ __tmp52471)))) + (cons _L32357_ __tmp52863)))) (declare (not safe)) - (cons _L32358_ __tmp52470)))) + (cons _L32358_ __tmp52862)))) (declare (not safe)) - (cons __tmp52469 '())))) + (cons __tmp52861 '())))) (declare (not safe)) - (cons __tmp52473 __tmp52468))) + (cons __tmp52865 __tmp52860))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52463 - (let ((__tmp52464 - (let ((__tmp52465 + (__tmp52855 + (let ((__tmp52856 + (let ((__tmp52857 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52466 (gx#datum->syntax '#f '$val))) + (let ((__tmp52858 (gx#datum->syntax '#f '$val))) (declare (not safe)) - (cons __tmp52466 '())))) + (cons __tmp52858 '())))) (declare (not safe)) - (cons _L32355_ __tmp52465)))) + (cons _L32355_ __tmp52857)))) (declare (not safe)) - (cons __tmp52464 '())))) + (cons __tmp52856 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52467 - __tmp52463)))) + (cons __tmp52859 + __tmp52855)))) (declare (not safe)) - (cons __tmp52474 __tmp52462)))) + (cons __tmp52866 __tmp52854)))) (declare (not safe)) - (cons __tmp52461 '())))) + (cons __tmp52853 '())))) (declare (not safe)) - (cons __tmp52475 __tmp52460)))) + (cons __tmp52867 __tmp52852)))) (declare (not safe)) - (cons __tmp52477 __tmp52459)))) + (cons __tmp52869 __tmp52851)))) (___kont4888148882_ (lambda (_L32286_ _L32288_ _L32289_) - (let ((__tmp52493 (gx#datum->syntax '#f 'lambda)) - (__tmp52478 - (let ((__tmp52491 - (let ((__tmp52492 + (let ((__tmp52885 (gx#datum->syntax '#f 'lambda)) + (__tmp52870 + (let ((__tmp52883 + (let ((__tmp52884 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52492 '()))) - (__tmp52479 - (let ((__tmp52480 - (let ((__tmp52490 + (cons __tmp52884 '()))) + (__tmp52871 + (let ((__tmp52872 + (let ((__tmp52882 (gx#datum->syntax '#f 'and)) - (__tmp52481 - (let ((__tmp52486 - (let ((__tmp52487 - (let ((__tmp52488 + (__tmp52873 + (let ((__tmp52878 + (let ((__tmp52879 + (let ((__tmp52880 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52489 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52881 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52489 '())))) + (cons __tmp52881 '())))) (declare (not safe)) - (cons _L32288_ __tmp52488)))) + (cons _L32288_ __tmp52880)))) (declare (not safe)) - (cons _L32289_ __tmp52487))) + (cons _L32289_ __tmp52879))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52482 - (let ((__tmp52483 - (let ((__tmp52484 + (__tmp52874 + (let ((__tmp52875 + (let ((__tmp52876 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52485 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52877 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52485 '())))) + (cons __tmp52877 '())))) (declare (not safe)) - (cons _L32286_ __tmp52484)))) + (cons _L32286_ __tmp52876)))) (declare (not safe)) - (cons __tmp52483 '())))) + (cons __tmp52875 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52486 - __tmp52482)))) + (cons __tmp52878 + __tmp52874)))) (declare (not safe)) - (cons __tmp52490 __tmp52481)))) + (cons __tmp52882 __tmp52873)))) (declare (not safe)) - (cons __tmp52480 '())))) + (cons __tmp52872 '())))) (declare (not safe)) - (cons __tmp52491 __tmp52479)))) + (cons __tmp52883 __tmp52871)))) (declare (not safe)) - (cons __tmp52493 __tmp52478)))) + (cons __tmp52885 __tmp52870)))) (___kont4888348884_ (lambda (_L32206_ _L32208_ _L32209_ _L32210_) - (let ((__tmp52511 (gx#datum->syntax '#f 'lambda)) - (__tmp52494 - (let ((__tmp52509 - (let ((__tmp52510 + (let ((__tmp52903 (gx#datum->syntax '#f 'lambda)) + (__tmp52886 + (let ((__tmp52901 + (let ((__tmp52902 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52510 '()))) - (__tmp52495 - (let ((__tmp52496 - (let ((__tmp52508 + (cons __tmp52902 '()))) + (__tmp52887 + (let ((__tmp52888 + (let ((__tmp52900 (gx#datum->syntax '#f 'and)) - (__tmp52497 - (let ((__tmp52504 - (let ((__tmp52505 - (let ((__tmp52506 + (__tmp52889 + (let ((__tmp52896 + (let ((__tmp52897 + (let ((__tmp52898 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52507 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52899 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52507 '())))) + (cons __tmp52899 '())))) (declare (not safe)) - (cons _L32209_ __tmp52506)))) + (cons _L32209_ __tmp52898)))) (declare (not safe)) - (cons _L32210_ __tmp52505))) + (cons _L32210_ __tmp52897))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52498 - (let ((__tmp52499 - (let ((__tmp52500 + (__tmp52890 + (let ((__tmp52891 + (let ((__tmp52892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52501 - (let ((__tmp52502 - (let ((__tmp52503 + (let ((__tmp52893 + (let ((__tmp52894 + (let ((__tmp52895 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52503 '())))) + (cons __tmp52895 '())))) (declare (not safe)) - (cons _L32208_ __tmp52502)))) + (cons _L32208_ __tmp52894)))) (declare (not safe)) - (cons __tmp52501 '())))) + (cons __tmp52893 '())))) (declare (not safe)) - (cons _L32206_ __tmp52500)))) + (cons _L32206_ __tmp52892)))) (declare (not safe)) - (cons __tmp52499 '())))) + (cons __tmp52891 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52504 - __tmp52498)))) + (cons __tmp52896 + __tmp52890)))) (declare (not safe)) - (cons __tmp52508 __tmp52497)))) + (cons __tmp52900 __tmp52889)))) (declare (not safe)) - (cons __tmp52496 '())))) + (cons __tmp52888 '())))) (declare (not safe)) - (cons __tmp52509 __tmp52495)))) + (cons __tmp52901 __tmp52887)))) (declare (not safe)) - (cons __tmp52511 __tmp52494))))) + (cons __tmp52903 __tmp52886))))) (let* ((___match4903549036_ (lambda (_e3208132315_ _hd3208032319_ @@ -8488,7 +8540,7 @@ _tl3208532342_) (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3208632339_) (if (gx#stx-pair? _tl3208532342_) (let ((_e3209032345_ @@ -8549,7 +8601,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) @@ -8606,7 +8658,7 @@ (##car _e3208732335_)))) (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3208632339_) (if (gx#stx-pair? _tl3208532342_) (let ((_e3209032345_ @@ -8671,7 +8723,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -8885,7 +8937,7 @@ (##car _e3200232689_)))) (if (gx#identifier? _hd3200132693_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52516_| + |gerbil/core$<match>[1]#_g52908_| _hd3200132693_) (if (gx#stx-pair/null? _tl3200032696_) @@ -8941,7 +8993,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9007,7 +9059,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9065,7 +9117,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9126,7 +9178,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) @@ -9168,7 +9220,7 @@ (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52515_| + |gerbil/core$<match>[1]#_g52907_| _hd3200132693_) (if (gx#stx-pair/null? _tl3200032696_) @@ -9215,7 +9267,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9280,7 +9332,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9341,7 +9393,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9404,7 +9456,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9445,7 +9497,7 @@ (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52514_| + |gerbil/core$<match>[1]#_g52906_| _hd3200132693_) (if (gx#stx-pair? _tl3200032696_) @@ -9477,7 +9529,7 @@ _hd3199532673_) (if (gx#identifier? _hd3205532523_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3205532523_) (if (gx#stx-pair? _tl3205432526_) (let ((_e3209032345_ @@ -9544,7 +9596,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9610,7 +9662,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9677,7 +9729,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9742,7 +9794,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9808,7 +9860,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9861,7 +9913,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9924,7 +9976,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9984,7 +10036,7 @@ (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10044,7 +10096,7 @@ (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) @@ -10104,7 +10156,7 @@ (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52513_| + |gerbil/core$<match>[1]#_g52905_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) @@ -10165,7 +10217,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52512_| + |gerbil/core$<match>[1]#_g52904_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) @@ -10224,256 +10276,256 @@ ___stx4913049131_)))) (let ((___kont4913349134_ (lambda (_L32921_ _L32923_ _L32924_) - (let ((__tmp52578 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52517 - (let ((__tmp52518 - (let ((__tmp52519 - (let ((__tmp52577 + (let ((__tmp52970 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52909 + (let ((__tmp52910 + (let ((__tmp52911 + (let ((__tmp52969 (gx#datum->syntax '#f 'make-match-macro)) - (__tmp52520 - (let ((__tmp52521 - (let ((__tmp52522 - (let ((__tmp52576 + (__tmp52912 + (let ((__tmp52913 + (let ((__tmp52914 + (let ((__tmp52968 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp52523 - (let ((__tmp52568 - (let ((__tmp52573 - (let ((__tmp52575 + (__tmp52915 + (let ((__tmp52960 + (let ((__tmp52965 + (let ((__tmp52967 (gx#datum->syntax '#f '$match-e)) - (__tmp52574 + (__tmp52966 (let () (declare (not safe)) (cons _L32923_ '())))) (declare (not safe)) - (cons __tmp52575 __tmp52574))) - (__tmp52569 - (let ((__tmp52570 - (let ((__tmp52572 + (cons __tmp52967 __tmp52966))) + (__tmp52961 + (let ((__tmp52962 + (let ((__tmp52964 (gx#datum->syntax '#f '$macro-e)) - (__tmp52571 + (__tmp52963 (let () (declare (not safe)) (cons _L32921_ '())))) (declare (not safe)) - (cons __tmp52572 - __tmp52571)))) + (cons __tmp52964 + __tmp52963)))) (declare (not safe)) - (cons __tmp52570 '())))) + (cons __tmp52962 '())))) (declare (not safe)) - (cons __tmp52573 __tmp52569))) - (__tmp52524 - (let ((__tmp52525 - (let ((__tmp52567 + (cons __tmp52965 __tmp52961))) + (__tmp52916 + (let ((__tmp52917 + (let ((__tmp52959 (gx#datum->syntax '#f 'lambda)) - (__tmp52526 - (let ((__tmp52565 - (let ((__tmp52566 + (__tmp52918 + (let ((__tmp52957 + (let ((__tmp52958 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52566 + (cons __tmp52958 '()))) - (__tmp52527 - (let ((__tmp52528 - (let ((__tmp52564 + (__tmp52919 + (let ((__tmp52920 + (let ((__tmp52956 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp52529 - (let ((__tmp52563 (gx#datum->syntax '#f '$stx)) - (__tmp52530 - (let ((__tmp52531 - (let ((__tmp52542 - (let ((__tmp52561 - (let ((__tmp52562 + (__tmp52921 + (let ((__tmp52955 (gx#datum->syntax '#f '$stx)) + (__tmp52922 + (let ((__tmp52923 + (let ((__tmp52934 + (let ((__tmp52953 + (let ((__tmp52954 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons 'match: __tmp52562))) - (__tmp52543 - (let ((__tmp52544 - (let ((__tmp52560 + (cons 'match: __tmp52954))) + (__tmp52935 + (let ((__tmp52936 + (let ((__tmp52952 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp52545 - (let ((__tmp52559 + (__tmp52937 + (let ((__tmp52951 (gx#datum->syntax '#f '$match-e)) - (__tmp52546 - (let ((__tmp52547 - (let ((__tmp52558 + (__tmp52938 + (let ((__tmp52939 + (let ((__tmp52950 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp52548 - (let ((__tmp52554 - (let ((__tmp52557 + (__tmp52940 + (let ((__tmp52946 + (let ((__tmp52949 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp52555 - (let ((__tmp52556 (gx#datum->syntax '#f 'body))) + (__tmp52947 + (let ((__tmp52948 (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons __tmp52556 '())))) + (cons __tmp52948 '())))) (declare (not safe)) - (cons __tmp52557 __tmp52555))) - (__tmp52549 - (let ((__tmp52550 - (let ((__tmp52553 + (cons __tmp52949 __tmp52947))) + (__tmp52941 + (let ((__tmp52942 + (let ((__tmp52945 (gx#datum->syntax '#f 'stx-source)) - (__tmp52551 - (let ((__tmp52552 + (__tmp52943 + (let ((__tmp52944 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52552 '())))) + (cons __tmp52944 '())))) (declare (not safe)) - (cons __tmp52553 __tmp52551)))) + (cons __tmp52945 __tmp52943)))) (declare (not safe)) - (cons __tmp52550 '())))) + (cons __tmp52942 '())))) (declare (not safe)) - (cons __tmp52554 __tmp52549)))) + (cons __tmp52946 __tmp52941)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52558 __tmp52548)))) + (cons __tmp52950 __tmp52940)))) (declare (not safe)) - (cons __tmp52547 '())))) + (cons __tmp52939 '())))) (declare (not safe)) - (cons __tmp52559 __tmp52546)))) + (cons __tmp52951 __tmp52938)))) (declare (not safe)) - (cons __tmp52560 __tmp52545)))) + (cons __tmp52952 __tmp52937)))) (declare (not safe)) - (cons __tmp52544 '())))) + (cons __tmp52936 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52561 - __tmp52543))) - (__tmp52532 - (let ((__tmp52533 - (let ((__tmp52541 + (cons __tmp52953 + __tmp52935))) + (__tmp52924 + (let ((__tmp52925 + (let ((__tmp52933 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp52534 - (let ((__tmp52535 - (let ((__tmp52540 + (__tmp52926 + (let ((__tmp52927 + (let ((__tmp52932 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp52536 - (let ((__tmp52539 + (__tmp52928 + (let ((__tmp52931 (gx#datum->syntax '#f '$macro-e)) - (__tmp52537 - (let ((__tmp52538 + (__tmp52929 + (let ((__tmp52930 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52538 '())))) + (cons __tmp52930 '())))) (declare (not safe)) - (cons __tmp52539 __tmp52537)))) + (cons __tmp52931 __tmp52929)))) (declare (not safe)) - (cons __tmp52540 __tmp52536)))) + (cons __tmp52932 __tmp52928)))) (declare (not safe)) - (cons __tmp52535 '())))) + (cons __tmp52927 '())))) (declare (not safe)) - (cons __tmp52541 __tmp52534)))) + (cons __tmp52933 __tmp52926)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52533 '())))) + (cons __tmp52925 '())))) (declare (not safe)) - (cons __tmp52542 __tmp52532)))) + (cons __tmp52934 __tmp52924)))) (declare (not safe)) - (cons '() __tmp52531)))) + (cons '() __tmp52923)))) (declare (not safe)) - (cons __tmp52563 __tmp52530)))) + (cons __tmp52955 __tmp52922)))) (declare (not safe)) - (cons __tmp52564 __tmp52529)))) + (cons __tmp52956 __tmp52921)))) (declare (not safe)) - (cons __tmp52528 '())))) + (cons __tmp52920 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52565 - __tmp52527)))) + (cons __tmp52957 + __tmp52919)))) (declare (not safe)) - (cons __tmp52567 __tmp52526)))) + (cons __tmp52959 __tmp52918)))) (declare (not safe)) - (cons __tmp52525 '())))) + (cons __tmp52917 '())))) (declare (not safe)) - (cons __tmp52568 __tmp52524)))) + (cons __tmp52960 __tmp52916)))) (declare (not safe)) - (cons __tmp52576 __tmp52523)))) + (cons __tmp52968 __tmp52915)))) (declare (not safe)) - (cons __tmp52522 '())))) + (cons __tmp52914 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'macro: __tmp52521)))) + (cons 'macro: __tmp52913)))) (declare (not safe)) - (cons __tmp52577 __tmp52520)))) + (cons __tmp52969 __tmp52912)))) (declare (not safe)) - (cons __tmp52519 '())))) + (cons __tmp52911 '())))) (declare (not safe)) - (cons _L32924_ __tmp52518)))) + (cons _L32924_ __tmp52910)))) (declare (not safe)) - (cons __tmp52578 __tmp52517)))) + (cons __tmp52970 __tmp52909)))) (___kont4913549136_ (lambda (_L32854_ _L32856_ _L32857_) - (let ((__tmp52579 - (let ((__tmp52580 - (let ((__tmp52581 - (let ((__tmp52582 - (let ((__tmp52593 + (let ((__tmp52971 + (let ((__tmp52972 + (let ((__tmp52973 + (let ((__tmp52974 + (let ((__tmp52985 (gx#datum->syntax '#f 'lambda)) - (__tmp52583 - (let ((__tmp52591 - (let ((__tmp52592 + (__tmp52975 + (let ((__tmp52983 + (let ((__tmp52984 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52592 '()))) - (__tmp52584 - (let ((__tmp52585 - (let ((__tmp52590 + (cons __tmp52984 '()))) + (__tmp52976 + (let ((__tmp52977 + (let ((__tmp52982 (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp52586 - (let ((__tmp52587 - (let ((__tmp52588 - (let ((__tmp52589 + (__tmp52978 + (let ((__tmp52979 + (let ((__tmp52980 + (let ((__tmp52981 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52589 '())))) + (cons __tmp52981 '())))) (declare (not safe)) (cons '"bad syntax; no macro definition for defsyntax-for-match" - __tmp52588)))) + __tmp52980)))) (declare (not safe)) - (cons '#f __tmp52587)))) + (cons '#f __tmp52979)))) (declare (not safe)) - (cons __tmp52590 __tmp52586)))) + (cons __tmp52982 __tmp52978)))) (declare (not safe)) - (cons __tmp52585 '())))) + (cons __tmp52977 '())))) (declare (not safe)) - (cons __tmp52591 __tmp52584)))) + (cons __tmp52983 __tmp52976)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52593 - __tmp52583)))) + (cons __tmp52985 + __tmp52975)))) (declare (not safe)) - (cons __tmp52582 '())))) + (cons __tmp52974 '())))) (declare (not safe)) - (cons _L32854_ __tmp52581)))) + (cons _L32854_ __tmp52973)))) (declare (not safe)) - (cons _L32856_ __tmp52580)))) + (cons _L32856_ __tmp52972)))) (declare (not safe)) - (cons _L32857_ __tmp52579))))) + (cons _L32857_ __tmp52971))))) (let ((___match4916349164_ (lambda (_e3279032881_ _hd3278932885_ @@ -10595,25 +10647,25 @@ (declare (not safe)) (##cdr _e3295932982_)))) ((lambda (_L32992_ _L32994_) - (let ((__tmp52598 + (let ((__tmp52990 (gx#datum->syntax '#f 'defsyntax-for-match)) - (__tmp52594 - (let ((__tmp52595 - (let ((__tmp52596 - (let ((__tmp52597 + (__tmp52986 + (let ((__tmp52987 + (let ((__tmp52988 + (let ((__tmp52989 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp52597 _L32992_)))) + (cons __tmp52989 _L32992_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52596 '())))) + (cons __tmp52988 '())))) (declare (not safe)) - (cons _L32994_ __tmp52595)))) + (cons _L32994_ __tmp52987)))) (declare (not safe)) - (cons __tmp52598 __tmp52594))) + (cons __tmp52990 __tmp52986))) _tl3295732989_ _hd3295832986_))) (_g3295032965_ _g3295132969_)))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index 25985f84..362c80e7 100644 --- a/src/bootstrap/gerbil/core__11.scm +++ b/src/bootstrap/gerbil/core__11.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<match>[2]#_g52601_| + (define |gerbil/core$<match>[2]#_g52993_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52603_| + (define |gerbil/core$<match>[2]#_g52995_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52605_| + (define |gerbil/core$<match>[2]#_g52997_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52607_| + (define |gerbil/core$<match>[2]#_g52999_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52611_| + (define |gerbil/core$<match>[2]#_g53003_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52615_| + (define |gerbil/core$<match>[2]#_g53007_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52619_| + (define |gerbil/core$<match>[2]#_g53011_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52623_| + (define |gerbil/core$<match>[2]#_g53015_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -101,14 +101,14 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52599 - (let ((__tmp52600 |gerbil/core$<match>[2]#_g52601_|)) + (let ((__tmp52991 + (let ((__tmp52992 |gerbil/core$<match>[2]#_g52993_|)) (declare (not safe)) - (cons __tmp52600 '())))) + (cons __tmp52992 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52599 + __tmp52991 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) @@ -144,83 +144,83 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52602 |gerbil/core$<match>[2]#_g52603_|)) + (let ((__tmp52994 |gerbil/core$<match>[2]#_g52995_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52602 + __tmp52994 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52604 |gerbil/core$<match>[2]#_g52605_|)) + (let ((__tmp52996 |gerbil/core$<match>[2]#_g52997_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52604 + __tmp52996 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52606 |gerbil/core$<match>[2]#_g52607_|)) + (let ((__tmp52998 |gerbil/core$<match>[2]#_g52999_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52606 + __tmp52998 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52608 - (let ((__tmp52609 - (let ((__tmp52610 |gerbil/core$<match>[2]#_g52611_|)) + (let ((__tmp53000 + (let ((__tmp53001 + (let ((__tmp53002 |gerbil/core$<match>[2]#_g53003_|)) (declare (not safe)) - (cons 'macro __tmp52610)))) + (cons 'macro __tmp53002)))) (declare (not safe)) - (cons __tmp52609 '())))) + (cons __tmp53001 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52608 + __tmp53000 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52612 - (let ((__tmp52613 - (let ((__tmp52614 |gerbil/core$<match>[2]#_g52615_|)) + (let ((__tmp53004 + (let ((__tmp53005 + (let ((__tmp53006 |gerbil/core$<match>[2]#_g53007_|)) (declare (not safe)) - (cons 'macro __tmp52614)))) + (cons 'macro __tmp53006)))) (declare (not safe)) - (cons __tmp52613 '())))) + (cons __tmp53005 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52612 + __tmp53004 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52616 - (let ((__tmp52617 - (let ((__tmp52618 |gerbil/core$<match>[2]#_g52619_|)) + (let ((__tmp53008 + (let ((__tmp53009 + (let ((__tmp53010 |gerbil/core$<match>[2]#_g53011_|)) (declare (not safe)) - (cons 'macro __tmp52618)))) + (cons 'macro __tmp53010)))) (declare (not safe)) - (cons __tmp52617 '())))) + (cons __tmp53009 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52616 + __tmp53008 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52620 - (let ((__tmp52621 - (let ((__tmp52622 |gerbil/core$<match>[2]#_g52623_|)) + (let ((__tmp53012 + (let ((__tmp53013 + (let ((__tmp53014 |gerbil/core$<match>[2]#_g53015_|)) (declare (not safe)) - (cons 'macro __tmp52622)))) + (cons 'macro __tmp53014)))) (declare (not safe)) - (cons __tmp52621 '())))) + (cons __tmp53013 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52620 + __tmp53012 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index 66636cef..e65cb890 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -37,12 +37,12 @@ _g3305933061_)))) (_g3305833065_ _$stx33055_)))) (define |gerbil/core$<more-sugar>[1]#setq-macro::t| - (let ((__tmp52624 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp53016 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setq-macro::t 'setq-macro - __tmp52624 + __tmp53016 '() '() '#f))) @@ -80,12 +80,12 @@ |gerbil/core$<more-sugar>[1]#setq-macro::t| 'macro))) (define |gerbil/core$<more-sugar>[1]#setf-macro::t| - (let ((__tmp52625 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp53017 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setf-macro::t 'setf-macro - __tmp52625 + __tmp53017 '() '() '#f))) @@ -125,20 +125,20 @@ (define |gerbil/core$<more-sugar>[1]#syntax-local-setf-macro?| (lambda (_stx33073_) (if (gx#identifier? _stx33073_) - (let ((__tmp52626 (gx#syntax-local-value _stx33073_ false))) + (let ((__tmp53018 (gx#syntax-local-value _stx33073_ false))) (declare (not safe)) (class-instance? |gerbil/core$<more-sugar>[1]#setf-macro::t| - __tmp52626)) + __tmp53018)) '#f))) (define |gerbil/core$<more-sugar>[1]#syntax-local-setq-macro?| (lambda (_stx33070_) (if (gx#identifier? _stx33070_) - (let ((__tmp52627 (gx#syntax-local-value _stx33070_ false))) + (let ((__tmp53019 (gx#syntax-local-value _stx33070_ false))) (declare (not safe)) (class-instance? |gerbil/core$<more-sugar>[1]#setq-macro::t| - __tmp52627)) + __tmp53019)) '#f))) (define |gerbil/core$<more-sugar>[:0:]#set!| (lambda (_stx33084_) @@ -166,19 +166,24 @@ (lambda (_g3334733358_) ((lambda (_L33361_) (let () - (let ((__tmp52628 - (foldr (lambda (_g3337233375_ + (let ((__tmp53020 + (let ((__tmp53022 + (lambda (_g3337233375_ _g3337333378_) (let () (declare (not safe)) (cons _g3337233375_ - _g3337333378_))) + _g3337333378_)))) + (__tmp53021 (let () (declare (not safe)) - (cons _L33321_ '())) - _L33323_))) + (cons _L33321_ '())))) + (declare (not safe)) + (foldr1 __tmp53022 + __tmp53021 + _L33323_)))) (declare (not safe)) - (cons _L33361_ __tmp52628)))) + (cons _L33361_ __tmp53020)))) _g3334733358_)))) (_g3334533381_ (gx#stx-identifier _L33324_ _L33324_ '"-set!"))))) @@ -189,16 +194,16 @@ _stx33084_))) (___kont4919749198_ (lambda (_L33186_ _L33188_) - (let ((__tmp52631 (gx#datum->syntax '#f '%#set!)) - (__tmp52629 - (let ((__tmp52630 + (let ((__tmp53025 (gx#datum->syntax '#f '%#set!)) + (__tmp53023 + (let ((__tmp53024 (let () (declare (not safe)) (cons _L33186_ '())))) (declare (not safe)) - (cons _L33188_ __tmp52630)))) + (cons _L33188_ __tmp53024)))) (declare (not safe)) - (cons __tmp52631 __tmp52629))))) + (cons __tmp53025 __tmp53023))))) (let* ((___match4927749278_ (lambda (_e3313733156_ _hd3313633160_ @@ -361,11 +366,11 @@ (let () (declare (not safe)) (##car _e3310133412_)))) - (if (let ((__tmp52632 + (if (let ((__tmp53026 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$<more-sugar>[1]#syntax-local-setf-macro?| - __tmp52632)) + __tmp53026)) (let ((_L33422_ _hd3310033416_)) (___kont4918949190_ _L33422_)) (if (gx#stx-pair/null? _tl3309933419_) @@ -445,30 +450,30 @@ (##cdr _e3345133476_)))) (if (gx#stx-pair/null? _tl3344933483_) (if (fx>= (gx#stx-length _tl3344933483_) '1) - (let ((_g52633_ + (let ((_g53027_ (gx#syntax-split-splice _tl3344933483_ '1))) (begin - (let ((_g52634_ + (let ((_g53028_ (let () (declare (not safe)) - (if (##values? _g52633_) - (##vector-length _g52633_) + (if (##values? _g53027_) + (##vector-length _g53027_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52634_ 2))) + (##fx= _g53028_ 2))) (error "Context expects 2 values" - _g52634_))) + _g53028_))) (let ((_target3345233486_ (let () (declare (not safe)) - (##vector-ref _g52633_ 0))) + (##vector-ref _g53027_ 0))) (_tl3345433489_ (let () (declare (not safe)) - (##vector-ref _g52633_ 1)))) + (##vector-ref _g53027_ 1)))) (if (gx#stx-pair? _tl3345433489_) (let ((_e3346333492_ (gx#syntax-e _tl3345433489_))) @@ -511,38 +516,38 @@ (_g3354533635_ (lambda (_g3354733567_) (if (gx#stx-pair/null? _g3354733567_) - (let ((_g52635_ + (let ((_g53029_ (gx#syntax-split-splice _g3354733567_ '0))) (begin - (let ((_g52636_ + (let ((_g53030_ (let () (declare (not safe)) (if (##values? - _g52635_) + _g53029_) (##vector-length - _g52635_) + _g53029_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52636_ + (##fx= _g53030_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g52636_))) + (error "Context expects 2 values" _g53030_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3354933570_ (let () (declare (not safe)) (##vector-ref - _g52635_ + _g53029_ 0))) (_tl3355133573_ (let () (declare (not safe)) (##vector-ref - _g52635_ + _g53029_ 1)))) (if (gx#stx-null? _tl3355133573_) @@ -569,58 +574,59 @@ (let ((_$e3355733596_ (reverse _$e3355633583_))) ((lambda (_L33600_) (let () - (let ((__tmp52647 + (let ((__tmp53043 (gx#datum->syntax '#f 'let-values)) - (__tmp52637 - (let ((__tmp52643 - (let ((__tmp52644 - (let ((__tmp52646 + (__tmp53031 + (let ((__tmp53038 + (let ((__tmp53039 + (let ((__tmp53041 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g3361833621_ _g3361933624_) + (let ((__tmp53042 + (lambda (_g3361833621_ _g3361933624_) (let () (declare (not safe)) - (cons _g3361833621_ _g3361933624_))) - '() - _L33600_)) - (__tmp52645 + (cons _g3361833621_ _g3361933624_))))) + (declare (not safe)) + (foldr1 __tmp53042 '() _L33600_))) + (__tmp53040 (let () (declare (not safe)) (cons _L33526_ '())))) (declare (not safe)) - (cons __tmp52646 __tmp52645)))) + (cons __tmp53041 __tmp53040)))) (declare (not safe)) - (cons __tmp52644 '()))) + (cons __tmp53039 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52638 + (__tmp53032 (begin (gx#syntax-check-splice-targets _L33600_ _L33528_) - (foldr (lambda (_g3361533627_ + (let ((__tmp53033 + (lambda (_g3361533627_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3361633630_ _g3361733632_) - (let ((__tmp52639 - (let ((__tmp52642 (gx#datum->syntax '#f 'set!)) - (__tmp52640 - (let ((__tmp52641 + (let ((__tmp53034 + (let ((__tmp53037 (gx#datum->syntax '#f 'set!)) + (__tmp53035 + (let ((__tmp53036 (let () (declare (not safe)) (cons _g3361533627_ '())))) (declare (not safe)) - (cons _g3361633630_ __tmp52641)))) + (cons _g3361633630_ __tmp53036)))) (declare (not safe)) - (cons __tmp52642 __tmp52640)))) + (cons __tmp53037 __tmp53035)))) (declare (not safe)) - (cons __tmp52639 _g3361733632_))) - '() - _L33600_ - _L33528_)))) + (cons __tmp53034 _g3361733632_))))) + (declare (not safe)) + (foldr2 __tmp53033 '() _L33600_ _L33528_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52643 __tmp52638)))) + (cons __tmp53038 __tmp53032)))) (declare (not safe)) - (cons __tmp52647 __tmp52637)))) + (cons __tmp53043 __tmp53031)))) _$e3355733596_)))))) (_loop3355233576_ _target3354933570_ '())) (_g3354633563_ _g3354733567_))))) @@ -628,13 +634,14 @@ (_g3354633563_ _g3354733567_))))) (_g3354533635_ (gx#gentemps - (foldr (lambda (_g3363833641_ _g3363933644_) + (let ((__tmp53044 + (lambda (_g3363833641_ _g3363933644_) (let () (declare (not safe)) (cons _g3363833641_ - _g3363933644_))) - '() - _L33528_))))) + _g3363933644_))))) + (declare (not safe)) + (foldr1 __tmp53044 '() _L33528_)))))) _hd3346233496_ _tgt3346033522_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -659,19 +666,21 @@ ___stx4928049281_)))) (let ((___kont4928349284_ (lambda (_L34049_) - (let ((__tmp52650 (gx#datum->syntax '#f 'let)) - (__tmp52648 - (let ((__tmp52649 - (foldr (lambda (_g3406534068_ _g3406634071_) + (let ((__tmp53048 (gx#datum->syntax '#f 'let)) + (__tmp53045 + (let ((__tmp53046 + (let ((__tmp53047 + (lambda (_g3406534068_ _g3406634071_) (let () (declare (not safe)) - (cons _g3406534068_ _g3406634071_))) - '() - _L34049_))) + (cons _g3406534068_ + _g3406634071_))))) + (declare (not safe)) + (foldr1 __tmp53047 '() _L34049_)))) (declare (not safe)) - (cons '() __tmp52649)))) + (cons '() __tmp53046)))) (declare (not safe)) - (cons __tmp52650 __tmp52648)))) + (cons __tmp53048 __tmp53045)))) (___kont4928749288_ (lambda (_L33826_ _L33828_ _L33829_) (let* ((_g3385233860_ @@ -693,37 +702,37 @@ (_g3387833960_ (lambda (_g3388033900_) (if (gx#stx-pair/null? _g3388033900_) - (let ((_g52651_ + (let ((_g53049_ (gx#syntax-split-splice _g3388033900_ '0))) (begin - (let ((_g52652_ + (let ((_g53050_ (let () (declare (not safe)) (if (##values? - _g52651_) + _g53049_) (##vector-length - _g52651_) + _g53049_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g52652_ 2))) - (error "Context expects 2 values" _g52652_))) + (##fx= _g53050_ 2))) + (error "Context expects 2 values" _g53050_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3388233903_ (let () (declare (not safe)) (##vector-ref - _g52651_ + _g53049_ 0))) (_tl3388433906_ (let () (declare (not safe)) (##vector-ref - _g52651_ + _g53049_ 1)))) (if (gx#stx-null? _tl3388433906_) @@ -752,68 +761,81 @@ ((lambda (_L33933_) (let () (let () - (let ((__tmp52655 + (let ((__tmp53054 (gx#datum->syntax '#f 'call-with-parameters)) - (__tmp52653 - (let ((__tmp52654 - (foldr (lambda (_g3395133954_ + (__tmp53051 + (let ((__tmp53052 + (let ((__tmp53053 + (lambda (_g3395133954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3395233957_) (let () (declare (not safe)) - (cons _g3395133954_ _g3395233957_))) - '() - _L33933_))) + (cons _g3395133954_ _g3395233957_))))) + (declare (not safe)) + (foldr1 __tmp53053 '() _L33933_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L33867_ __tmp52654)))) + (cons _L33867_ __tmp53052)))) (declare (not safe)) - (cons __tmp52655 __tmp52653))))) + (cons __tmp53054 __tmp53051))))) _arg3389033929_)))))) (_loop3388533909_ _target3388233903_ '())) (_g3387933896_ _g3388033900_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3387933896_ _g3388033900_))))) (_g3387833960_ - (foldr cons* - '() + (let ((__tmp53057 (gx#syntax->list - (foldr (lambda (_g3396333966_ + (let ((__tmp53058 + (lambda (_g3396333966_ _g3396433969_) (let () (declare (not safe)) (cons _g3396333966_ - _g3396433969_))) - '() - _L33829_)) + _g3396433969_))))) + (declare (not safe)) + (foldr1 __tmp53058 + '() + _L33829_)))) + (__tmp53055 (gx#syntax->list - (foldr (lambda (_g3397133974_ + (let ((__tmp53056 + (lambda (_g3397133974_ _g3397233977_) (let () (declare (not safe)) (cons _g3397133974_ - _g3397233977_))) - '() - _L33828_))))))) + _g3397233977_))))) + (declare (not safe)) + (foldr1 __tmp53056 + '() + _L33828_))))) + (declare (not safe)) + (foldr2 cons* + '() + __tmp53057 + __tmp53055)))))) _g3385333864_)))) (_g3385133980_ (gx#stx-wrap-source - (let ((__tmp52658 (gx#datum->syntax '#f 'lambda)) - (__tmp52656 - (let ((__tmp52657 - (foldr (lambda (_g3398333986_ _g3398433989_) + (let ((__tmp53062 (gx#datum->syntax '#f 'lambda)) + (__tmp53059 + (let ((__tmp53060 + (let ((__tmp53061 + (lambda (_g3398333986_ _g3398433989_) (let () (declare (not safe)) (cons _g3398333986_ - _g3398433989_))) - '() - _L33826_))) + _g3398433989_))))) + (declare (not safe)) + (foldr1 __tmp53061 '() _L33826_)))) (declare (not safe)) - (cons '() __tmp52657)))) + (cons '() __tmp53060)))) (declare (not safe)) - (cons __tmp52658 __tmp52656)) + (cons __tmp53062 __tmp53059)) (gx#stx-source _stx33653_))))))) (let* ((___match4933549336_ (lambda (_e3368033722_ @@ -1155,30 +1177,30 @@ (declare (not safe)) (##cdr _e3409534127_)))) (if (gx#stx-pair/null? _tl3409334134_) - (let ((_g52659_ + (let ((_g53063_ (gx#syntax-split-splice _tl3409334134_ '0))) (begin - (let ((_g52660_ + (let ((_g53064_ (let () (declare (not safe)) - (if (##values? _g52659_) - (##vector-length _g52659_) + (if (##values? _g53063_) + (##vector-length _g53063_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52660_ 2))) + (##fx= _g53064_ 2))) (error "Context expects 2 values" - _g52660_))) + _g53064_))) (let ((_target3409634137_ (let () (declare (not safe)) - (##vector-ref _g52659_ 0))) + (##vector-ref _g53063_ 0))) (_tl3409834140_ (let () (declare (not safe)) - (##vector-ref _g52659_ 1)))) + (##vector-ref _g53063_ 1)))) (if (gx#stx-null? _tl3409834140_) (letrec ((_loop3409934143_ (lambda (_hd3409734147_ @@ -1202,38 +1224,39 @@ (let ((_body3410434163_ (reverse _body3410334150_))) ((lambda (_L34167_ _L34169_) (if (gx#identifier? _L34169_) - (let ((__tmp52667 + (let ((__tmp53072 (gx#datum->syntax '#f 'call/cc)) - (__tmp52661 - (let ((__tmp52662 - (let ((__tmp52666 + (__tmp53065 + (let ((__tmp53066 + (let ((__tmp53071 (gx#datum->syntax '#f 'lambda)) - (__tmp52663 - (let ((__tmp52665 + (__tmp53067 + (let ((__tmp53070 (let () (declare (not safe)) (cons _L34169_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp52664 - (foldr (lambda (_g3418634189_ _g3418734192_) + (__tmp53068 + (let ((__tmp53069 + (lambda (_g3418634189_ _g3418734192_) (let () (declare (not safe)) - (cons _g3418634189_ _g3418734192_))) - '() - _L34167_))) + (cons _g3418634189_ _g3418734192_))))) + (declare (not safe)) + (foldr1 __tmp53069 '() _L34167_)))) (declare (not safe)) - (cons __tmp52665 __tmp52664)))) + (cons __tmp53070 __tmp53068)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52666 __tmp52663)))) + (cons __tmp53071 __tmp53067)))) (declare (not safe)) - (cons __tmp52662 '())))) + (cons __tmp53066 '())))) (declare (not safe)) - (cons __tmp52667 __tmp52661)) + (cons __tmp53072 __tmp53065)) (_g3408634110_ _g3408734114_))) _body3410434163_ _hd3409434131_)))))) @@ -1277,30 +1300,30 @@ (declare (not safe)) (##cdr _e3421334245_)))) (if (gx#stx-pair/null? _tl3421134252_) - (let ((_g52668_ + (let ((_g53073_ (gx#syntax-split-splice _tl3421134252_ '0))) (begin - (let ((_g52669_ + (let ((_g53074_ (let () (declare (not safe)) - (if (##values? _g52668_) - (##vector-length _g52668_) + (if (##values? _g53073_) + (##vector-length _g53073_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52669_ 2))) + (##fx= _g53074_ 2))) (error "Context expects 2 values" - _g52669_))) + _g53074_))) (let ((_target3421434255_ (let () (declare (not safe)) - (##vector-ref _g52668_ 0))) + (##vector-ref _g53073_ 0))) (_tl3421634258_ (let () (declare (not safe)) - (##vector-ref _g52668_ 1)))) + (##vector-ref _g53073_ 1)))) (if (gx#stx-null? _tl3421634258_) (letrec ((_loop3421734261_ (lambda (_hd3421534265_ @@ -1324,38 +1347,39 @@ (let ((_body3422234281_ (reverse _body3422134268_))) ((lambda (_L34285_ _L34287_) (if (gx#identifier? _L34287_) - (let ((__tmp52676 + (let ((__tmp53082 (gx#datum->syntax '#f 'call/esc)) - (__tmp52670 - (let ((__tmp52671 - (let ((__tmp52675 + (__tmp53075 + (let ((__tmp53076 + (let ((__tmp53081 (gx#datum->syntax '#f 'lambda)) - (__tmp52672 - (let ((__tmp52674 + (__tmp53077 + (let ((__tmp53080 (let () (declare (not safe)) (cons _L34287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp52673 - (foldr (lambda (_g3430434307_ _g3430534310_) + (__tmp53078 + (let ((__tmp53079 + (lambda (_g3430434307_ _g3430534310_) (let () (declare (not safe)) - (cons _g3430434307_ _g3430534310_))) - '() - _L34285_))) + (cons _g3430434307_ _g3430534310_))))) + (declare (not safe)) + (foldr1 __tmp53079 '() _L34285_)))) (declare (not safe)) - (cons __tmp52674 __tmp52673)))) + (cons __tmp53080 __tmp53078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52675 __tmp52672)))) + (cons __tmp53081 __tmp53077)))) (declare (not safe)) - (cons __tmp52671 '())))) + (cons __tmp53076 '())))) (declare (not safe)) - (cons __tmp52676 __tmp52670)) + (cons __tmp53082 __tmp53075)) (_g3420434228_ _g3420534232_))) _body3422234281_ _hd3421234249_)))))) @@ -1410,38 +1434,38 @@ (declare (not safe)) (##cdr _e3433534377_)))) (if (gx#stx-pair/null? _tl3433334384_) - (let ((_g52677_ + (let ((_g53083_ (gx#syntax-split-splice _tl3433334384_ '0))) (begin - (let ((_g52678_ + (let ((_g53084_ (let () (declare (not safe)) (if (##values? - _g52677_) + _g53083_) (##vector-length - _g52677_) + _g53083_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52678_ + (##fx= _g53084_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g52678_))) + (error "Context expects 2 values" _g53084_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3433634387_ (let () (declare (not safe)) (##vector-ref - _g52677_ + _g53083_ 0))) (_tl3433834390_ (let () (declare (not safe)) (##vector-ref - _g52677_ + _g53083_ 1)))) (if (gx#stx-null? _tl3433834390_) @@ -1469,59 +1493,60 @@ (let ((_rest3434434413_ (reverse _rest3434334400_))) ((lambda (_L34417_ _L34419_ _L34420_) - (let ((__tmp52690 + (let ((__tmp53097 (gx#datum->syntax '#f 'with-unwind-protect)) - (__tmp52679 - (let ((__tmp52686 - (let ((__tmp52689 + (__tmp53085 + (let ((__tmp53093 + (let ((__tmp53096 (gx#datum->syntax '#f 'lambda)) - (__tmp52687 - (let ((__tmp52688 + (__tmp53094 + (let ((__tmp53095 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L34420_ '())))) (declare (not safe)) - (cons '() __tmp52688)))) + (cons '() __tmp53095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52689 - __tmp52687))) - (__tmp52680 - (let ((__tmp52681 - (let ((__tmp52685 + (cons __tmp53096 + __tmp53094))) + (__tmp53086 + (let ((__tmp53087 + (let ((__tmp53092 (gx#datum->syntax '#f 'lambda)) - (__tmp52682 - (let ((__tmp52683 + (__tmp53088 + (let ((__tmp53089 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52684 - (foldr (lambda (_g3444034443_ + (let ((__tmp53090 + (let ((__tmp53091 + (lambda (_g3444034443_ _g3444134446_) (let () (declare (not safe)) (cons _g3444034443_ - _g3444134446_))) - '() - _L34417_))) + _g3444134446_))))) + (declare (not safe)) + (foldr1 __tmp53091 '() _L34417_)))) (declare (not safe)) - (cons _L34419_ __tmp52684)))) + (cons _L34419_ __tmp53090)))) (declare (not safe)) - (cons '() __tmp52683)))) + (cons '() __tmp53089)))) (declare (not safe)) - (cons __tmp52685 __tmp52682)))) + (cons __tmp53092 __tmp53088)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52681 '())))) + (cons __tmp53087 '())))) (declare (not safe)) - (cons __tmp52686 __tmp52680)))) + (cons __tmp53093 __tmp53086)))) (declare (not safe)) - (cons __tmp52690 __tmp52679))) + (cons __tmp53097 __tmp53085))) _rest3434434413_ _hd3433434381_ _hd3433134371_)))))) @@ -1576,13 +1601,13 @@ (lambda (_g3451334524_) ((lambda (_L34527_) (let () - (let ((__tmp52692 + (let ((__tmp53099 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52691 + (__tmp53098 (let () (declare (not safe)) (cons _L34527_ '())))) (declare (not safe)) - (cons __tmp52692 __tmp52691)))) + (cons __tmp53099 __tmp53098)))) _g3451334524_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3451134539_ diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index e8aa2875..4d14edc9 100644 --- a/src/bootstrap/gerbil/core__13.scm +++ b/src/bootstrap/gerbil/core__13.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<more-sugar>[2]#_g52695_| + (define |gerbil/core$<more-sugar>[2]#_g53102_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52697_| + (define |gerbil/core$<more-sugar>[2]#_g53104_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52699_| + (define |gerbil/core$<more-sugar>[2]#_g53106_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52701_| + (define |gerbil/core$<more-sugar>[2]#_g53108_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52705_| + (define |gerbil/core$<more-sugar>[2]#_g53112_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52709_| + (define |gerbil/core$<more-sugar>[2]#_g53116_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52713_| + (define |gerbil/core$<more-sugar>[2]#_g53120_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52717_| + (define |gerbil/core$<more-sugar>[2]#_g53124_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52721_| + (define |gerbil/core$<more-sugar>[2]#_g53128_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52723_| + (define |gerbil/core$<more-sugar>[2]#_g53130_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52725_| + (define |gerbil/core$<more-sugar>[2]#_g53132_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52729_| + (define |gerbil/core$<more-sugar>[2]#_g53136_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52733_| + (define |gerbil/core$<more-sugar>[2]#_g53140_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52737_| + (define |gerbil/core$<more-sugar>[2]#_g53144_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52741_| + (define |gerbil/core$<more-sugar>[2]#_g53148_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -151,14 +151,14 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52693 - (let ((__tmp52694 |gerbil/core$<more-sugar>[2]#_g52695_|)) + (let ((__tmp53100 + (let ((__tmp53101 |gerbil/core$<more-sugar>[2]#_g53102_|)) (declare (not safe)) - (cons __tmp52694 '())))) + (cons __tmp53101 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52693 + __tmp53100 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) @@ -194,87 +194,87 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52696 |gerbil/core$<more-sugar>[2]#_g52697_|)) + (let ((__tmp53103 |gerbil/core$<more-sugar>[2]#_g53104_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52696 + __tmp53103 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52698 |gerbil/core$<more-sugar>[2]#_g52699_|)) + (let ((__tmp53105 |gerbil/core$<more-sugar>[2]#_g53106_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52698 + __tmp53105 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52700 |gerbil/core$<more-sugar>[2]#_g52701_|)) + (let ((__tmp53107 |gerbil/core$<more-sugar>[2]#_g53108_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52700 + __tmp53107 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52702 - (let ((__tmp52703 - (let ((__tmp52704 - |gerbil/core$<more-sugar>[2]#_g52705_|)) + (let ((__tmp53109 + (let ((__tmp53110 + (let ((__tmp53111 + |gerbil/core$<more-sugar>[2]#_g53112_|)) (declare (not safe)) - (cons 'macro __tmp52704)))) + (cons 'macro __tmp53111)))) (declare (not safe)) - (cons __tmp52703 '())))) + (cons __tmp53110 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52702 + __tmp53109 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52706 - (let ((__tmp52707 - (let ((__tmp52708 - |gerbil/core$<more-sugar>[2]#_g52709_|)) + (let ((__tmp53113 + (let ((__tmp53114 + (let ((__tmp53115 + |gerbil/core$<more-sugar>[2]#_g53116_|)) (declare (not safe)) - (cons 'macro __tmp52708)))) + (cons 'macro __tmp53115)))) (declare (not safe)) - (cons __tmp52707 '())))) + (cons __tmp53114 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52706 + __tmp53113 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52710 - (let ((__tmp52711 - (let ((__tmp52712 - |gerbil/core$<more-sugar>[2]#_g52713_|)) + (let ((__tmp53117 + (let ((__tmp53118 + (let ((__tmp53119 + |gerbil/core$<more-sugar>[2]#_g53120_|)) (declare (not safe)) - (cons 'macro __tmp52712)))) + (cons 'macro __tmp53119)))) (declare (not safe)) - (cons __tmp52711 '())))) + (cons __tmp53118 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52710 + __tmp53117 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52714 - (let ((__tmp52715 - (let ((__tmp52716 - |gerbil/core$<more-sugar>[2]#_g52717_|)) + (let ((__tmp53121 + (let ((__tmp53122 + (let ((__tmp53123 + |gerbil/core$<more-sugar>[2]#_g53124_|)) (declare (not safe)) - (cons 'macro __tmp52716)))) + (cons 'macro __tmp53123)))) (declare (not safe)) - (cons __tmp52715 '())))) + (cons __tmp53122 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52714 + __tmp53121 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) @@ -324,14 +324,14 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52718 - (let ((__tmp52719 |gerbil/core$<more-sugar>[2]#_g52695_|)) + (let ((__tmp53125 + (let ((__tmp53126 |gerbil/core$<more-sugar>[2]#_g53102_|)) (declare (not safe)) - (cons __tmp52719 '())))) + (cons __tmp53126 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52718 + __tmp53125 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) @@ -367,87 +367,87 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52720 |gerbil/core$<more-sugar>[2]#_g52721_|)) + (let ((__tmp53127 |gerbil/core$<more-sugar>[2]#_g53128_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52720 + __tmp53127 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52722 |gerbil/core$<more-sugar>[2]#_g52723_|)) + (let ((__tmp53129 |gerbil/core$<more-sugar>[2]#_g53130_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52722 + __tmp53129 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52724 |gerbil/core$<more-sugar>[2]#_g52725_|)) + (let ((__tmp53131 |gerbil/core$<more-sugar>[2]#_g53132_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52724 + __tmp53131 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52726 - (let ((__tmp52727 - (let ((__tmp52728 - |gerbil/core$<more-sugar>[2]#_g52729_|)) + (let ((__tmp53133 + (let ((__tmp53134 + (let ((__tmp53135 + |gerbil/core$<more-sugar>[2]#_g53136_|)) (declare (not safe)) - (cons 'macro __tmp52728)))) + (cons 'macro __tmp53135)))) (declare (not safe)) - (cons __tmp52727 '())))) + (cons __tmp53134 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52726 + __tmp53133 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52730 - (let ((__tmp52731 - (let ((__tmp52732 - |gerbil/core$<more-sugar>[2]#_g52733_|)) + (let ((__tmp53137 + (let ((__tmp53138 + (let ((__tmp53139 + |gerbil/core$<more-sugar>[2]#_g53140_|)) (declare (not safe)) - (cons 'macro __tmp52732)))) + (cons 'macro __tmp53139)))) (declare (not safe)) - (cons __tmp52731 '())))) + (cons __tmp53138 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52730 + __tmp53137 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52734 - (let ((__tmp52735 - (let ((__tmp52736 - |gerbil/core$<more-sugar>[2]#_g52737_|)) + (let ((__tmp53141 + (let ((__tmp53142 + (let ((__tmp53143 + |gerbil/core$<more-sugar>[2]#_g53144_|)) (declare (not safe)) - (cons 'macro __tmp52736)))) + (cons 'macro __tmp53143)))) (declare (not safe)) - (cons __tmp52735 '())))) + (cons __tmp53142 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52734 + __tmp53141 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52738 - (let ((__tmp52739 - (let ((__tmp52740 - |gerbil/core$<more-sugar>[2]#_g52741_|)) + (let ((__tmp53145 + (let ((__tmp53146 + (let ((__tmp53147 + |gerbil/core$<more-sugar>[2]#_g53148_|)) (declare (not safe)) - (cons 'macro __tmp52740)))) + (cons 'macro __tmp53147)))) (declare (not safe)) - (cons __tmp52739 '())))) + (cons __tmp53146 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52738 + __tmp53145 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index 16b1e13d..26340954 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -21,23 +21,23 @@ (declare (not safe)) (##cdr _e3455934572_)))) ((lambda (_L34582_) - (let ((__tmp52746 + (let ((__tmp53153 (gx#datum->syntax '#f 'make-setq-macro)) - (__tmp52742 - (let ((__tmp52743 - (let ((__tmp52744 - (let ((__tmp52745 + (__tmp53149 + (let ((__tmp53150 + (let ((__tmp53151 + (let ((__tmp53152 (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp52745 _L34582_)))) + (cons __tmp53152 _L34582_)))) (declare (not safe)) - (cons __tmp52744 '())))) + (cons __tmp53151 '())))) (declare (not safe)) - (cons 'macro: __tmp52743)))) + (cons 'macro: __tmp53150)))) (declare (not safe)) - (cons __tmp52746 __tmp52742))) + (cons __tmp53153 __tmp53149))) _tl3455734579_))) (_g3455434565_ _g3455534569_))))) (_g3455334595_ _$stx34550_)))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index fe56ddc3..914bb992 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -11,52 +11,52 @@ ___stx4933849339_)))) (let ((___kont4934149342_ (lambda () - (let ((__tmp52747 (gx#datum->syntax '#f 'begin))) + (let ((__tmp53154 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52747 '())))) + (cons __tmp53154 '())))) (___kont4934349344_ (lambda (_L34665_ _L34667_ _L34668_) - (let ((__tmp52760 (gx#datum->syntax '#f 'cond-expand)) - (__tmp52748 - (let ((__tmp52757 - (let ((__tmp52758 - (let ((__tmp52759 + (let ((__tmp53167 (gx#datum->syntax '#f 'cond-expand)) + (__tmp53155 + (let ((__tmp53164 + (let ((__tmp53165 + (let ((__tmp53166 (let () (declare (not safe)) (cons _L34668_ _L34665_)))) (declare (not safe)) - (cons __tmp52759 '())))) + (cons __tmp53166 '())))) (declare (not safe)) - (cons _L34667_ __tmp52758))) - (__tmp52749 - (let ((__tmp52750 - (let ((__tmp52756 + (cons _L34667_ __tmp53165))) + (__tmp53156 + (let ((__tmp53157 + (let ((__tmp53163 (gx#datum->syntax '#f 'else)) - (__tmp52751 - (let ((__tmp52752 - (let ((__tmp52755 + (__tmp53158 + (let ((__tmp53159 + (let ((__tmp53162 (gx#datum->syntax '#f 'syntax-error)) - (__tmp52753 - (let ((__tmp52754 + (__tmp53160 + (let ((__tmp53161 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L34667_ '())))) (declare (not safe)) - (cons '"Missing required feature" __tmp52754)))) + (cons '"Missing required feature" __tmp53161)))) (declare (not safe)) - (cons __tmp52755 __tmp52753)))) + (cons __tmp53162 __tmp53160)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52752 '())))) + (cons __tmp53159 '())))) (declare (not safe)) - (cons __tmp52756 __tmp52751)))) + (cons __tmp53163 __tmp53158)))) (declare (not safe)) - (cons __tmp52750 '())))) + (cons __tmp53157 '())))) (declare (not safe)) - (cons __tmp52757 __tmp52749)))) + (cons __tmp53164 __tmp53156)))) (declare (not safe)) - (cons __tmp52760 __tmp52748))))) + (cons __tmp53167 __tmp53155))))) (if (gx#stx-pair? ___stx4933849339_) (let ((_e3462334691_ (gx#syntax-e ___stx4933849339_))) (let ((_tl3462134698_ @@ -92,54 +92,55 @@ ___stx4936849369_)))) (let ((___kont4937149372_ (lambda (_L34892_ _L34894_) - (let ((__tmp52766 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52761 - (let ((__tmp52762 - (let ((__tmp52763 - (let ((__tmp52765 + (let ((__tmp53173 (gx#datum->syntax '#f 'defsyntax)) + (__tmp53168 + (let ((__tmp53169 + (let ((__tmp53170 + (let ((__tmp53172 (gx#datum->syntax '#f 'make-import-expander)) - (__tmp52764 + (__tmp53171 (let () (declare (not safe)) (cons _L34892_ '())))) (declare (not safe)) - (cons __tmp52765 __tmp52764)))) + (cons __tmp53172 __tmp53171)))) (declare (not safe)) - (cons __tmp52763 '())))) + (cons __tmp53170 '())))) (declare (not safe)) - (cons _L34894_ __tmp52762)))) + (cons _L34894_ __tmp53169)))) (declare (not safe)) - (cons __tmp52766 __tmp52761)))) + (cons __tmp53173 __tmp53168)))) (___kont4937349374_ (lambda (_L34821_ _L34823_ _L34824_ _L34825_) - (let ((__tmp52767 - (let ((__tmp52768 - (let ((__tmp52769 - (let ((__tmp52772 + (let ((__tmp53174 + (let ((__tmp53175 + (let ((__tmp53176 + (let ((__tmp53180 (gx#datum->syntax '#f 'lambda)) - (__tmp52770 - (let ((__tmp52771 - (foldr (lambda (_g3484634849_ + (__tmp53177 + (let ((__tmp53178 + (let ((__tmp53179 + (lambda (_g3484634849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3484734852_) (let () (declare (not safe)) - (cons _g3484634849_ _g3484734852_))) - '() - _L34821_))) + (cons _g3484634849_ _g3484734852_))))) + (declare (not safe)) + (foldr1 __tmp53179 '() _L34821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L34823_ __tmp52771)))) + (cons _L34823_ __tmp53178)))) (declare (not safe)) - (cons __tmp52772 __tmp52770)))) + (cons __tmp53180 __tmp53177)))) (declare (not safe)) - (cons __tmp52769 '())))) + (cons __tmp53176 '())))) (declare (not safe)) - (cons _L34824_ __tmp52768)))) + (cons _L34824_ __tmp53175)))) (declare (not safe)) - (cons _L34825_ __tmp52767))))) + (cons _L34825_ __tmp53174))))) (let* ((___match4942349424_ (lambda (_e3473334761_ _hd3473234765_ @@ -405,54 +406,55 @@ ___stx4942649427_)))) (let ((___kont4942949430_ (lambda (_L35097_ _L35099_) - (let ((__tmp52778 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52773 - (let ((__tmp52774 - (let ((__tmp52775 - (let ((__tmp52777 + (let ((__tmp53186 (gx#datum->syntax '#f 'defsyntax)) + (__tmp53181 + (let ((__tmp53182 + (let ((__tmp53183 + (let ((__tmp53185 (gx#datum->syntax '#f 'make-export-expander)) - (__tmp52776 + (__tmp53184 (let () (declare (not safe)) (cons _L35097_ '())))) (declare (not safe)) - (cons __tmp52777 __tmp52776)))) + (cons __tmp53185 __tmp53184)))) (declare (not safe)) - (cons __tmp52775 '())))) + (cons __tmp53183 '())))) (declare (not safe)) - (cons _L35099_ __tmp52774)))) + (cons _L35099_ __tmp53182)))) (declare (not safe)) - (cons __tmp52778 __tmp52773)))) + (cons __tmp53186 __tmp53181)))) (___kont4943149432_ (lambda (_L35026_ _L35028_ _L35029_ _L35030_) - (let ((__tmp52779 - (let ((__tmp52780 - (let ((__tmp52781 - (let ((__tmp52784 + (let ((__tmp53187 + (let ((__tmp53188 + (let ((__tmp53189 + (let ((__tmp53193 (gx#datum->syntax '#f 'lambda)) - (__tmp52782 - (let ((__tmp52783 - (foldr (lambda (_g3505135054_ + (__tmp53190 + (let ((__tmp53191 + (let ((__tmp53192 + (lambda (_g3505135054_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3505235057_) (let () (declare (not safe)) - (cons _g3505135054_ _g3505235057_))) - '() - _L35026_))) + (cons _g3505135054_ _g3505235057_))))) + (declare (not safe)) + (foldr1 __tmp53192 '() _L35026_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35028_ __tmp52783)))) + (cons _L35028_ __tmp53191)))) (declare (not safe)) - (cons __tmp52784 __tmp52782)))) + (cons __tmp53193 __tmp53190)))) (declare (not safe)) - (cons __tmp52781 '())))) + (cons __tmp53189 '())))) (declare (not safe)) - (cons _L35029_ __tmp52780)))) + (cons _L35029_ __tmp53188)))) (declare (not safe)) - (cons _L35030_ __tmp52779))))) + (cons _L35030_ __tmp53187))))) (let* ((___match4948149482_ (lambda (_e3493834966_ _hd3493734970_ @@ -718,54 +720,55 @@ ___stx4948449485_)))) (let ((___kont4948749488_ (lambda (_L35302_ _L35304_) - (let ((__tmp52790 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52785 - (let ((__tmp52786 - (let ((__tmp52787 - (let ((__tmp52789 + (let ((__tmp53199 (gx#datum->syntax '#f 'defsyntax)) + (__tmp53194 + (let ((__tmp53195 + (let ((__tmp53196 + (let ((__tmp53198 (gx#datum->syntax '#f 'make-import-export-expander)) - (__tmp52788 + (__tmp53197 (let () (declare (not safe)) (cons _L35302_ '())))) (declare (not safe)) - (cons __tmp52789 __tmp52788)))) + (cons __tmp53198 __tmp53197)))) (declare (not safe)) - (cons __tmp52787 '())))) + (cons __tmp53196 '())))) (declare (not safe)) - (cons _L35304_ __tmp52786)))) + (cons _L35304_ __tmp53195)))) (declare (not safe)) - (cons __tmp52790 __tmp52785)))) + (cons __tmp53199 __tmp53194)))) (___kont4948949490_ (lambda (_L35231_ _L35233_ _L35234_ _L35235_) - (let ((__tmp52791 - (let ((__tmp52792 - (let ((__tmp52793 - (let ((__tmp52796 + (let ((__tmp53200 + (let ((__tmp53201 + (let ((__tmp53202 + (let ((__tmp53206 (gx#datum->syntax '#f 'lambda)) - (__tmp52794 - (let ((__tmp52795 - (foldr (lambda (_g3525635259_ + (__tmp53203 + (let ((__tmp53204 + (let ((__tmp53205 + (lambda (_g3525635259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3525735262_) (let () (declare (not safe)) - (cons _g3525635259_ _g3525735262_))) - '() - _L35231_))) + (cons _g3525635259_ _g3525735262_))))) + (declare (not safe)) + (foldr1 __tmp53205 '() _L35231_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35233_ __tmp52795)))) + (cons _L35233_ __tmp53204)))) (declare (not safe)) - (cons __tmp52796 __tmp52794)))) + (cons __tmp53206 __tmp53203)))) (declare (not safe)) - (cons __tmp52793 '())))) + (cons __tmp53202 '())))) (declare (not safe)) - (cons _L35234_ __tmp52792)))) + (cons _L35234_ __tmp53201)))) (declare (not safe)) - (cons _L35235_ __tmp52791))))) + (cons _L35235_ __tmp53200))))) (let* ((___match4953949540_ (lambda (_e3514335171_ _hd3514235175_ @@ -1042,30 +1045,30 @@ (declare (not safe)) (##cdr _e3533235354_)))) (if (gx#stx-pair/null? _tl3533035361_) - (let ((_g52797_ + (let ((_g53207_ (gx#syntax-split-splice _tl3533035361_ '0))) (begin - (let ((_g52798_ + (let ((_g53208_ (let () (declare (not safe)) - (if (##values? _g52797_) - (##vector-length _g52797_) + (if (##values? _g53207_) + (##vector-length _g53207_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52798_ 2))) + (##fx= _g53208_ 2))) (error "Context expects 2 values" - _g52798_))) + _g53208_))) (let ((_target3533335364_ (let () (declare (not safe)) - (##vector-ref _g52797_ 0))) + (##vector-ref _g53207_ 0))) (_tl3533535367_ (let () (declare (not safe)) - (##vector-ref _g52797_ 1)))) + (##vector-ref _g53207_ 1)))) (if (gx#stx-null? _tl3533535367_) (letrec ((_loop3533635370_ (lambda (_hd3533435374_ @@ -1089,19 +1092,20 @@ (cons _lp-hd3533835384_ _body3534035377_))))) (let ((_body3534135390_ (reverse _body3534035377_))) ((lambda (_L35394_) - (let ((__tmp52799 - (let ((__tmp52800 - (foldr (lambda (_g3540935412_ _g3541035415_) + (let ((__tmp53209 + (let ((__tmp53210 + (let ((__tmp53211 + (lambda (_g3540935412_ _g3541035415_) (let () (declare (not safe)) (cons _g3540935412_ - _g3541035415_))) - '() - _L35394_))) + _g3541035415_))))) + (declare (not safe)) + (foldr1 __tmp53211 '() _L35394_)))) (declare (not safe)) - (cons '1 __tmp52800)))) + (cons '1 __tmp53210)))) (declare (not safe)) - (cons 'phi: __tmp52799))) + (cons 'phi: __tmp53209))) _body3534135390_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3533635370_ @@ -1133,30 +1137,30 @@ (declare (not safe)) (##cdr _e3543135453_)))) (if (gx#stx-pair/null? _tl3542935460_) - (let ((_g52801_ + (let ((_g53212_ (gx#syntax-split-splice _tl3542935460_ '0))) (begin - (let ((_g52802_ + (let ((_g53213_ (let () (declare (not safe)) - (if (##values? _g52801_) - (##vector-length _g52801_) + (if (##values? _g53212_) + (##vector-length _g53212_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52802_ 2))) + (##fx= _g53213_ 2))) (error "Context expects 2 values" - _g52802_))) + _g53213_))) (let ((_target3543235463_ (let () (declare (not safe)) - (##vector-ref _g52801_ 0))) + (##vector-ref _g53212_ 0))) (_tl3543435466_ (let () (declare (not safe)) - (##vector-ref _g52801_ 1)))) + (##vector-ref _g53212_ 1)))) (if (gx#stx-null? _tl3543435466_) (letrec ((_loop3543535469_ (lambda (_hd3543335473_ @@ -1180,19 +1184,20 @@ (cons _lp-hd3543735483_ _body3543935476_))))) (let ((_body3544035489_ (reverse _body3543935476_))) ((lambda (_L35493_) - (let ((__tmp52803 - (let ((__tmp52804 - (foldr (lambda (_g3550835511_ _g3550935514_) + (let ((__tmp53214 + (let ((__tmp53215 + (let ((__tmp53216 + (lambda (_g3550835511_ _g3550935514_) (let () (declare (not safe)) (cons _g3550835511_ - _g3550935514_))) - '() - _L35493_))) + _g3550935514_))))) + (declare (not safe)) + (foldr1 __tmp53216 '() _L35493_)))) (declare (not safe)) - (cons '-1 __tmp52804)))) + (cons '-1 __tmp53215)))) (declare (not safe)) - (cons 'phi: __tmp52803))) + (cons 'phi: __tmp53214))) _body3544035489_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3543535469_ @@ -1235,31 +1240,31 @@ (declare (not safe)) (##cdr _e3553435566_)))) (if (gx#stx-pair/null? _tl3553235573_) - (let ((_g52805_ + (let ((_g53217_ (gx#syntax-split-splice _tl3553235573_ '0))) (begin - (let ((_g52806_ + (let ((_g53218_ (let () (declare (not safe)) - (if (##values? _g52805_) + (if (##values? _g53217_) (##vector-length - _g52805_) + _g53217_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52806_ 2))) + (##fx= _g53218_ 2))) (error "Context expects 2 values" - _g52806_))) + _g53218_))) (let ((_target3553535576_ (let () (declare (not safe)) - (##vector-ref _g52805_ 0))) + (##vector-ref _g53217_ 0))) (_tl3553735579_ (let () (declare (not safe)) - (##vector-ref _g52805_ 1)))) + (##vector-ref _g53217_ 1)))) (if (gx#stx-null? _tl3553735579_) (letrec ((_loop3553835582_ (lambda (_hd3553635586_ @@ -1283,24 +1288,26 @@ (let ((_id3554335602_ (reverse _id3554235589_))) ((lambda (_L35606_ _L35608_) (if (gx#identifier-list? - (foldr (lambda (_g3562535628_ _g3562635631_) + (let ((__tmp53223 + (lambda (_g3562535628_ _g3562635631_) (let () (declare (not safe)) (cons _g3562535628_ - _g3562635631_))) - '() - _L35606_)) + _g3562635631_))))) + (declare (not safe)) + (foldr1 __tmp53223 '() _L35606_))) (let* ((_keys35642_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3563335636_ + (let ((__tmp53219 + (lambda (_g3563335636_ _g3563435639_) (let () (declare (not safe)) (cons _g3563335636_ - _g3563435639_))) - '() - _L35606_))) + _g3563435639_))))) + (declare (not safe)) + (foldr1 __tmp53219 '() _L35606_)))) (_keytab35653_ (let ((_ht35645_ (let () @@ -1324,26 +1331,28 @@ (lambda (_in35662_ _r35664_) (if (gx#module-import? _in35662_) - (if (let ((__tmp52807 + (if (let ((__tmp53221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35662_))) (declare (not safe)) - (hash-get _keytab35653_ __tmp52807)) + (hash-get _keytab35653_ __tmp53221)) (let () (declare (not safe)) (cons _in35662_ _r35664_)) _r35664_) (if (gx#import-set? _in35662_) - (foldl _fold-e35659_ - _r35664_ - (gx#import-set-imports _in35662_)) + (let ((__tmp53220 (gx#import-set-imports _in35662_))) + (declare (not safe)) + (foldl1 _fold-e35659_ _r35664_ __tmp53220)) _r35664_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35659_))) - (let ((__tmp52808 - (foldl _fold-e35666_ - '() - _imports35656_))) + (let ((__tmp53222 + (let () + (declare (not safe)) + (foldl1 _fold-e35666_ + '() + _imports35656_)))) (declare (not safe)) - (cons 'begin: __tmp52808))) + (cons 'begin: __tmp53222))) (_g3552535549_ _g3552635553_))) _id3554335602_ _hd3553335570_)))))) @@ -1390,31 +1399,31 @@ (declare (not safe)) (##cdr _e3568835720_)))) (if (gx#stx-pair/null? _tl3568635727_) - (let ((_g52809_ + (let ((_g53224_ (gx#syntax-split-splice _tl3568635727_ '0))) (begin - (let ((_g52810_ + (let ((_g53225_ (let () (declare (not safe)) - (if (##values? _g52809_) + (if (##values? _g53224_) (##vector-length - _g52809_) + _g53224_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52810_ 2))) + (##fx= _g53225_ 2))) (error "Context expects 2 values" - _g52810_))) + _g53225_))) (let ((_target3568935730_ (let () (declare (not safe)) - (##vector-ref _g52809_ 0))) + (##vector-ref _g53224_ 0))) (_tl3569135733_ (let () (declare (not safe)) - (##vector-ref _g52809_ 1)))) + (##vector-ref _g53224_ 1)))) (if (gx#stx-null? _tl3569135733_) (letrec ((_loop3569235736_ (lambda (_hd3569035740_ @@ -1438,24 +1447,26 @@ (let ((_id3569735756_ (reverse _id3569635743_))) ((lambda (_L35760_ _L35762_) (if (gx#identifier-list? - (foldr (lambda (_g3577935782_ _g3578035785_) + (let ((__tmp53230 + (lambda (_g3577935782_ _g3578035785_) (let () (declare (not safe)) (cons _g3577935782_ - _g3578035785_))) - '() - _L35760_)) + _g3578035785_))))) + (declare (not safe)) + (foldr1 __tmp53230 '() _L35760_))) (let* ((_keys35796_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3578735790_ + (let ((__tmp53226 + (lambda (_g3578735790_ _g3578835793_) (let () (declare (not safe)) (cons _g3578735790_ - _g3578835793_))) - '() - _L35760_))) + _g3578835793_))))) + (declare (not safe)) + (foldr1 __tmp53226 '() _L35760_)))) (_keytab35807_ (let ((_ht35799_ (let () @@ -1479,28 +1490,30 @@ (lambda (_in35816_ _r35818_) (if (gx#module-import? _in35816_) - (if (let ((__tmp52811 + (if (let ((__tmp53228 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35816_))) (declare (not safe)) - (hash-get _keytab35807_ __tmp52811)) + (hash-get _keytab35807_ __tmp53228)) _r35818_ (let () (declare (not safe)) (cons _in35816_ _r35818_))) (if (gx#import-set? _in35816_) - (foldl _fold-e35813_ - _r35818_ - (gx#import-set-imports _in35816_)) + (let ((__tmp53227 (gx#import-set-imports _in35816_))) + (declare (not safe)) + (foldl1 _fold-e35813_ _r35818_ __tmp53227)) (let () (declare (not safe)) (cons _in35816_ _r35818_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35813_))) - (let ((__tmp52812 - (foldl _fold-e35820_ - '() - _imports35810_))) + (let ((__tmp53229 + (let () + (declare (not safe)) + (foldl1 _fold-e35820_ + '() + _imports35810_)))) (declare (not safe)) - (cons 'begin: __tmp52812))) + (cons 'begin: __tmp53229))) (_g3567935703_ _g3568035707_))) _id3569735756_ _hd3568735724_)))))) @@ -1525,12 +1538,18 @@ (lambda (_name35830_ _pre35832_) (let* ((_name3583335841_ _name35830_) (_else3583535853_ - (lambda () (make-symbol _pre35832_ _name35830_))) + (lambda () + (let () + (declare (not safe)) + (make-symbol__1 _pre35832_ _name35830_)))) (_K3583735861_ (lambda (_mark35857_ _id35859_) - (let ((__tmp52813 (make-symbol _pre35832_ _id35859_))) + (let ((__tmp53231 + (let () + (declare (not safe)) + (make-symbol__1 _pre35832_ _id35859_)))) (declare (not safe)) - (cons __tmp52813 _mark35857_))))) + (cons __tmp53231 _mark35857_))))) (if (let () (declare (not safe)) (##pair? _name3583335841_)) (let ((_hd3583835865_ (let () (declare (not safe)) (##car _name3583335841_))) @@ -1573,31 +1592,31 @@ (declare (not safe)) (##cdr _e3589435934_)))) (if (gx#stx-pair/null? _tl3589235941_) - (let ((_g52814_ + (let ((_g53232_ (gx#syntax-split-splice _tl3589235941_ '0))) (begin - (let ((_g52815_ + (let ((_g53233_ (let () (declare (not safe)) - (if (##values? _g52814_) + (if (##values? _g53232_) (##vector-length - _g52814_) + _g53232_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52815_ 2))) + (##fx= _g53233_ 2))) (error "Context expects 2 values" - _g52815_))) + _g53233_))) (let ((_target3589535944_ (let () (declare (not safe)) - (##vector-ref _g52814_ 0))) + (##vector-ref _g53232_ 0))) (_tl3589735947_ (let () (declare (not safe)) - (##vector-ref _g52814_ 1)))) + (##vector-ref _g53232_ 1)))) (if (gx#stx-null? _tl3589735947_) (letrec ((_loop3589835950_ (lambda (_hd3589635954_ @@ -1654,23 +1673,25 @@ (_id3590535995_ (reverse _id3590335959_))) ((lambda (_L35998_ _L36000_ _L36001_) (if (and (gx#identifier-list? - (foldr (lambda (_g3601936022_ + (let ((__tmp53244 + (lambda (_g3601936022_ _g3602036025_) (let () (declare (not safe)) (cons _g3601936022_ - _g3602036025_))) - '() - _L36000_)) + _g3602036025_))))) + (declare (not safe)) + (foldr1 __tmp53244 '() _L36000_))) (gx#identifier-list? - (foldr (lambda (_g3602736030_ + (let ((__tmp53243 + (lambda (_g3602736030_ _g3602836033_) (let () (declare (not safe)) (cons _g3602736030_ - _g3602836033_))) - '() - _L35998_))) + _g3602836033_))))) + (declare (not safe)) + (foldr1 __tmp53243 '() _L35998_)))) (let* ((_keytab36036_ (let () (declare (not safe)) @@ -1679,36 +1700,38 @@ (let () (declare (not safe)) (make-hash-table))) - (_g52818_ + (_g53238_ (for-each (lambda (_id36042_ _new-id36044_) - (let ((__tmp52817 + (let ((__tmp53235 (gx#core-identifier-key _id36042_)) - (__tmp52816 + (__tmp53234 (gx#core-identifier-key _new-id36044_))) (declare (not safe)) (hash-put! _keytab36036_ - __tmp52817 - __tmp52816))) - (foldr (lambda (_g3604536048_ + __tmp53235 + __tmp53234))) + (let ((__tmp53236 + (lambda (_g3604536048_ _g3604636051_) (let () (declare (not safe)) (cons _g3604536048_ - _g3604636051_))) - '() - _L36000_) - (foldr (lambda (_g3605336056_ + _g3604636051_))))) + (declare (not safe)) + (foldr1 __tmp53236 '() _L36000_)) + (let ((__tmp53237 + (lambda (_g3605336056_ _g3605436059_) (let () (declare (not safe)) (cons _g3605336056_ - _g3605436059_))) - '() - _L35998_))) + _g3605436059_))))) + (declare (not safe)) + (foldr1 __tmp53237 '() _L35998_)))) (_imports36064_ (gx#core-expand-import-source _L36001_)) @@ -1730,49 +1753,52 @@ (let () (declare (not safe)) (hash-put! _found36039_ _name36074_ '#t)) - (let ((__tmp52819 + (let ((__tmp53240 (let () (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-import-rename| _in36070_ _rename36081_)))) (declare (not safe)) - (cons __tmp52819 _r36072_))) + (cons __tmp53240 _r36072_))) _$e36077_) (let () (declare (not safe)) (cons _in36070_ _r36072_)))) (if (gx#import-set? _in36070_) - (foldl _fold-e36067_ - _r36072_ - (gx#import-set-imports _in36070_)) + (let ((__tmp53239 (gx#import-set-imports _in36070_))) + (declare (not safe)) + (foldl1 _fold-e36067_ _r36072_ __tmp53239)) (let () (declare (not safe)) (cons _in36070_ _r36072_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36067_)) (_new-imports36087_ - (foldl _fold-e36084_ - '() - _imports36064_))) + (let () + (declare (not safe)) + (foldl1 _fold-e36084_ + '() + _imports36064_)))) (for-each (lambda (_id36092_) - (if (let ((__tmp52820 + (if (let ((__tmp53241 (gx#core-identifier-key _id36092_))) (declare (not safe)) - (hash-get _found36039_ __tmp52820)) + (hash-get _found36039_ __tmp53241)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" _stx35881_ _id36092_))) - (foldr (lambda (_g3609436097_ _g3609536100_) + (let ((__tmp53242 + (lambda (_g3609436097_ _g3609536100_) (let () (declare (not safe)) (cons _g3609436097_ - _g3609536100_))) - '() - _L36000_)) + _g3609536100_))))) + (declare (not safe)) + (foldr1 __tmp53242 '() _L36000_))) (let () (declare (not safe)) (cons 'begin: _new-imports36087_))) @@ -1856,29 +1882,35 @@ (letrec ((_fold-e36197_ (lambda (_in36200_ _r36202_) (if (gx#module-import? _in36200_) - (let ((__tmp52821 - (let ((__tmp52822 + (let ((__tmp53246 + (let ((__tmp53247 (_rename-e36194_ (gx#module-import-name _in36200_)))) (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-import-rename| _in36200_ - __tmp52822)))) + __tmp53247)))) (declare (not safe)) - (cons __tmp52821 _r36202_)) + (cons __tmp53246 _r36202_)) (if (gx#import-set? _in36200_) - (foldl _fold-e36197_ - _r36202_ + (let ((__tmp53245 (gx#import-set-imports - _in36200_)) + _in36200_))) + (declare (not safe)) + (foldl1 _fold-e36197_ + _r36202_ + __tmp53245)) (let () (declare (not safe)) (cons _in36200_ _r36202_))))))) _fold-e36197_))) - (let ((__tmp52823 (foldl _fold-e36204_ '() _imports36188_))) + (let ((__tmp53248 + (let () + (declare (not safe)) + (foldl1 _fold-e36204_ '() _imports36188_)))) (declare (not safe)) - (cons 'begin: __tmp52823))) + (cons 'begin: __tmp53248))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3611236130_ _g3611336134_))) @@ -1894,7 +1926,8 @@ (lambda (_stx36213_) (letrec ((_flatten36216_ (lambda (_list-of-lists36471_) - (foldr (lambda (_v36474_ _acc36476_) + (let ((__tmp53249 + (lambda (_v36474_ _acc36476_) (if (let () (declare (not safe)) (null? _v36474_)) _acc36476_ (if (let () @@ -1904,9 +1937,9 @@ _acc36476_) (let () (declare (not safe)) - (cons _v36474_ _acc36476_))))) - '() - _list-of-lists36471_))) + (cons _v36474_ _acc36476_))))))) + (declare (not safe)) + (foldr1 __tmp53249 '() _list-of-lists36471_)))) (_expand-path36218_ (lambda (_top36339_ _mod36341_) (let* ((___stx4954249543_ _mod36341_) @@ -1929,14 +1962,17 @@ (_expand-path36218_ _L36436_ _g3645336455_)) - (foldr (lambda (_g3645836461_ + (let ((__tmp53250 + (lambda (_g3645836461_ _g3645936464_) (let () (declare (not safe)) (cons _g3645836461_ - _g3645936464_))) - '() - _L36434_)))))) + _g3645936464_))))) + (declare (not safe)) + (foldr1 __tmp53250 + '() + _L36434_))))))) (___kont4954949550_ (lambda (_L36373_) (gx#stx-identifier @@ -2066,32 +2102,32 @@ (declare (not safe)) (##cdr _e3622936261_)))) (if (gx#stx-pair/null? _tl3622736268_) - (let ((_g52824_ + (let ((_g53251_ (gx#syntax-split-splice _tl3622736268_ '0))) (begin - (let ((_g52825_ + (let ((_g53252_ (let () (declare (not safe)) - (if (##values? _g52824_) + (if (##values? _g53251_) (##vector-length - _g52824_) + _g53251_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52825_ 2))) + (##fx= _g53252_ 2))) (error "Context expects 2 values" - _g52825_))) + _g53252_))) (let ((_target3623036271_ (let () (declare (not safe)) - (##vector-ref _g52824_ 0))) + (##vector-ref _g53251_ 0))) (_tl3623236274_ (let () (declare (not safe)) (##vector-ref - _g52824_ + _g53251_ 1)))) (if (gx#stx-null? _tl3623236274_) (letrec ((_loop3623336277_ @@ -2115,22 +2151,25 @@ (cons _lp-hd3623536291_ _mod3623736284_))))) (let ((_mod3623836297_ (reverse _mod3623736284_))) ((lambda (_L36301_ _L36303_) - (let ((__tmp52826 + (let ((__tmp53253 (_flatten36216_ (map (lambda (_g3632136323_) (_expand-path36218_ _L36303_ _g3632136323_)) - (foldr (lambda (_g3632636329_ + (let ((__tmp53254 + (lambda (_g3632636329_ _g3632736332_) (let () (declare (not safe)) (cons _g3632636329_ - _g3632736332_))) - '() - _L36301_))))) + _g3632736332_))))) + (declare (not safe)) + (foldr1 __tmp53254 + '() + _L36301_)))))) (declare (not safe)) - (cons 'begin: __tmp52826))) + (cons 'begin: __tmp53253))) _mod3623836297_ _hd3622836265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2176,31 +2215,31 @@ (declare (not safe)) (##cdr _e3649236524_)))) (if (gx#stx-pair/null? _tl3649036531_) - (let ((_g52827_ + (let ((_g53255_ (gx#syntax-split-splice _tl3649036531_ '0))) (begin - (let ((_g52828_ + (let ((_g53256_ (let () (declare (not safe)) - (if (##values? _g52827_) + (if (##values? _g53255_) (##vector-length - _g52827_) + _g53255_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52828_ 2))) + (##fx= _g53256_ 2))) (error "Context expects 2 values" - _g52828_))) + _g53256_))) (let ((_target3649336534_ (let () (declare (not safe)) - (##vector-ref _g52827_ 0))) + (##vector-ref _g53255_ 0))) (_tl3649536537_ (let () (declare (not safe)) - (##vector-ref _g52827_ 1)))) + (##vector-ref _g53255_ 1)))) (if (gx#stx-null? _tl3649536537_) (letrec ((_loop3649636540_ (lambda (_hd3649436544_ @@ -2224,24 +2263,26 @@ (let ((_id3650136560_ (reverse _id3650036547_))) ((lambda (_L36564_ _L36566_) (if (gx#identifier-list? - (foldr (lambda (_g3658336586_ _g3658436589_) + (let ((__tmp53261 + (lambda (_g3658336586_ _g3658436589_) (let () (declare (not safe)) (cons _g3658336586_ - _g3658436589_))) - '() - _L36564_)) + _g3658436589_))))) + (declare (not safe)) + (foldr1 __tmp53261 '() _L36564_))) (let* ((_keys36600_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_g3659136594_ + (let ((__tmp53257 + (lambda (_g3659136594_ _g3659236597_) (let () (declare (not safe)) (cons _g3659136594_ - _g3659236597_))) - '() - _L36564_))) + _g3659236597_))))) + (declare (not safe)) + (foldr1 __tmp53257 '() _L36564_)))) (_keytab36611_ (let ((_ht36603_ (let () @@ -2265,26 +2306,28 @@ (lambda (_out36620_ _r36622_) (if (gx#module-export? _out36620_) - (if (let ((__tmp52829 + (if (let ((__tmp53259 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-export-name _out36620_))) (declare (not safe)) - (hash-get _keytab36611_ __tmp52829)) + (hash-get _keytab36611_ __tmp53259)) _r36622_ (let () (declare (not safe)) (cons _out36620_ _r36622_))) (if (gx#export-set? _out36620_) - (foldl _fold-e36617_ - _r36622_ - (gx#export-set-exports _out36620_)) + (let ((__tmp53258 (gx#export-set-exports _out36620_))) + (declare (not safe)) + (foldl1 _fold-e36617_ _r36622_ __tmp53258)) _r36622_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36617_))) - (let ((__tmp52830 - (foldl _fold-e36624_ - '() - _exports36614_))) + (let ((__tmp53260 + (let () + (declare (not safe)) + (foldl1 _fold-e36624_ + '() + _exports36614_)))) (declare (not safe)) - (cons 'begin: __tmp52830))) + (cons 'begin: __tmp53260))) (_g3648336507_ _g3648436511_))) _id3650136560_ _hd3649136528_)))))) @@ -2339,31 +2382,31 @@ (declare (not safe)) (##cdr _e3665136691_)))) (if (gx#stx-pair/null? _tl3664936698_) - (let ((_g52831_ + (let ((_g53262_ (gx#syntax-split-splice _tl3664936698_ '0))) (begin - (let ((_g52832_ + (let ((_g53263_ (let () (declare (not safe)) - (if (##values? _g52831_) + (if (##values? _g53262_) (##vector-length - _g52831_) + _g53262_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52832_ 2))) + (##fx= _g53263_ 2))) (error "Context expects 2 values" - _g52832_))) + _g53263_))) (let ((_target3665236701_ (let () (declare (not safe)) - (##vector-ref _g52831_ 0))) + (##vector-ref _g53262_ 0))) (_tl3665436704_ (let () (declare (not safe)) - (##vector-ref _g52831_ 1)))) + (##vector-ref _g53262_ 1)))) (if (gx#stx-null? _tl3665436704_) (letrec ((_loop3665536707_ (lambda (_hd3665336711_ @@ -2420,23 +2463,25 @@ (_id3666236752_ (reverse _id3666036716_))) ((lambda (_L36755_ _L36757_ _L36758_) (if (and (gx#identifier-list? - (foldr (lambda (_g3677636779_ + (let ((__tmp53274 + (lambda (_g3677636779_ _g3677736782_) (let () (declare (not safe)) (cons _g3677636779_ - _g3677736782_))) - '() - _L36757_)) + _g3677736782_))))) + (declare (not safe)) + (foldr1 __tmp53274 '() _L36757_))) (gx#identifier-list? - (foldr (lambda (_g3678436787_ + (let ((__tmp53273 + (lambda (_g3678436787_ _g3678536790_) (let () (declare (not safe)) (cons _g3678436787_ - _g3678536790_))) - '() - _L36755_))) + _g3678536790_))))) + (declare (not safe)) + (foldr1 __tmp53273 '() _L36755_)))) (let* ((_keytab36793_ (let () (declare (not safe)) @@ -2445,36 +2490,38 @@ (let () (declare (not safe)) (make-hash-table))) - (_g52835_ + (_g53268_ (for-each (lambda (_id36799_ _new-id36801_) - (let ((__tmp52834 + (let ((__tmp53265 (gx#core-identifier-key _id36799_)) - (__tmp52833 + (__tmp53264 (gx#core-identifier-key _new-id36801_))) (declare (not safe)) (hash-put! _keytab36793_ - __tmp52834 - __tmp52833))) - (foldr (lambda (_g3680236805_ + __tmp53265 + __tmp53264))) + (let ((__tmp53266 + (lambda (_g3680236805_ _g3680336808_) (let () (declare (not safe)) (cons _g3680236805_ - _g3680336808_))) - '() - _L36757_) - (foldr (lambda (_g3681036813_ + _g3680336808_))))) + (declare (not safe)) + (foldr1 __tmp53266 '() _L36757_)) + (let ((__tmp53267 + (lambda (_g3681036813_ _g3681136816_) (let () (declare (not safe)) (cons _g3681036813_ - _g3681136816_))) - '() - _L36755_))) + _g3681136816_))))) + (declare (not safe)) + (foldr1 __tmp53267 '() _L36755_)))) (_exports36821_ (gx#core-expand-export-source _L36758_)) @@ -2496,51 +2543,54 @@ (let () (declare (not safe)) (hash-put! _found36796_ _name36831_ '#t)) - (let ((__tmp52836 + (let ((__tmp53270 (let () (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-export-rename| _out36827_ _rename36838_)))) (declare (not safe)) - (cons __tmp52836 _r36829_))) + (cons __tmp53270 _r36829_))) _$e36834_) (let () (declare (not safe)) (cons _out36827_ _r36829_)))) (if (gx#export-set? _out36827_) - (foldl _fold-e36824_ - _r36829_ - (gx#export-set-exports _out36827_)) + (let ((__tmp53269 (gx#export-set-exports _out36827_))) + (declare (not safe)) + (foldl1 _fold-e36824_ _r36829_ __tmp53269)) (let () (declare (not safe)) (cons _out36827_ _r36829_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36824_)) (_new-exports36844_ - (foldl _fold-e36841_ - '() - _exports36821_))) + (let () + (declare (not safe)) + (foldl1 _fold-e36841_ + '() + _exports36821_)))) (for-each (lambda (_id36849_) - (if (let ((__tmp52837 + (if (let ((__tmp53271 (gx#core-identifier-key _id36849_))) (declare (not safe)) - (hash-get _found36796_ __tmp52837)) + (hash-get _found36796_ __tmp53271)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" _stx36638_ _id36849_))) - (foldr (lambda (_g3685136854_ _g3685236857_) + (let ((__tmp53272 + (lambda (_g3685136854_ _g3685236857_) (let () (declare (not safe)) (cons _g3685136854_ - _g3685236857_))) - '() - _L36757_)) + _g3685236857_))))) + (declare (not safe)) + (foldr1 __tmp53272 '() _L36757_))) (let () (declare (not safe)) (cons 'begin: _new-exports36844_))) @@ -2624,29 +2674,35 @@ (letrec ((_fold-e36954_ (lambda (_out36957_ _r36959_) (if (gx#module-export? _out36957_) - (let ((__tmp52838 - (let ((__tmp52839 + (let ((__tmp53276 + (let ((__tmp53277 (_rename-e36951_ (gx#module-export-name _out36957_)))) (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-export-rename| _out36957_ - __tmp52839)))) + __tmp53277)))) (declare (not safe)) - (cons __tmp52838 _r36959_)) + (cons __tmp53276 _r36959_)) (if (gx#export-set? _out36957_) - (foldl _fold-e36954_ - _r36959_ + (let ((__tmp53275 (gx#export-set-exports - _out36957_)) + _out36957_))) + (declare (not safe)) + (foldl1 _fold-e36954_ + _r36959_ + __tmp53275)) (let () (declare (not safe)) (cons _out36957_ _r36959_))))))) _fold-e36954_))) - (let ((__tmp52840 (foldl _fold-e36961_ '() _exports36945_))) + (let ((__tmp53278 + (let () + (declare (not safe)) + (foldl1 _fold-e36961_ '() _exports36945_)))) (declare (not safe)) - (cons 'begin: __tmp52840))) + (cons 'begin: __tmp53278))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3686936887_ _g3687036891_))) @@ -2668,8 +2724,8 @@ (class-instance? gerbil/core$<MOP>$<MOP:2>#class-type-info::t _info37209_)) - (let ((__tmp52841 - (let ((__tmp52845 + (let ((__tmp53279 + (let ((__tmp53291 (let ((__obj49645 _info37209_)) (if (let () (declare (not safe)) @@ -2687,9 +2743,9 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49645 'type-descriptor)))) - (__tmp52842 - (foldr cons - (let ((__tmp52844 + (__tmp53280 + (let ((__tmp53282 + (let ((__tmp53290 (let ((__obj49646 _info37209_)) (if (let () @@ -2710,12 +2766,12 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49646 'predicate)))) - (__tmp52843 - (foldr cons - (foldr cons + (__tmp53283 + (let ((__tmp53285 + (let ((__tmp53287 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if _unchecked?37207_ - (foldr cons + (let ((__tmp53289 (map cdr (let ((__obj49647 _info37209_)) (if (let () @@ -2733,7 +2789,8 @@ (class-slot-ref gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49647 - 'unchecked-mutators)))) + 'unchecked-mutators))))) + (__tmp53288 (map cdr (let ((__obj49648 _info37209_)) (if (let () @@ -2751,8 +2808,11 @@ (class-slot-ref gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49648 - 'unchecked-accessors))))) - '()) + 'unchecked-accessors)))))) + (declare (not safe)) + (foldr1 cons __tmp53289 __tmp53288)) + '())) + (__tmp53286 (map cdr (let ((__obj49649 _info37209_)) (if (let () @@ -2770,7 +2830,10 @@ (class-slot-ref gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49649 - 'mutators))))) + 'mutators)))))) + (declare (not safe)) + (foldr1 cons __tmp53287 __tmp53286))) + (__tmp53284 (map cdr (let ((__obj49650 _info37209_)) (if (let () @@ -2788,10 +2851,13 @@ (class-slot-ref gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49650 - 'accessors))))))) + 'accessors)))))) + (declare (not safe)) + (foldr1 cons __tmp53285 __tmp53284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52844 __tmp52843)) + (cons __tmp53290 __tmp53283))) + (__tmp53281 (let ((_ctor37212_ (let ((__obj49651 _info37209_)) @@ -2817,11 +2883,13 @@ (let () (declare (not safe)) (cons _ctor37212_ '())) - '()))))) + '())))) + (declare (not safe)) + (foldr1 cons __tmp53282 __tmp53281)))) (declare (not safe)) - (cons __tmp52845 __tmp52842)))) + (cons __tmp53291 __tmp53280)))) (declare (not safe)) - (cons _id37205_ __tmp52841)) + (cons _id37205_ __tmp53279)) (gx#raise-syntax-error '#f '"no class type info" @@ -2836,36 +2904,38 @@ ___stx4956849569_)))) (let ((___kont4957149572_ (lambda (_L37166_ _L37168_) - (let ((__tmp52846 + (let ((__tmp53292 (concatenate (gx#stx-map (lambda (_g3718737189_) (_identifiers36973_ _g3718737189_ (gx#stx-e _L37168_))) - (foldr (lambda (_g3719237195_ _g3719337198_) + (let ((__tmp53293 + (lambda (_g3719237195_ _g3719337198_) (let () (declare (not safe)) - (cons _g3719237195_ _g3719337198_))) - '() - _L37166_))))) + (cons _g3719237195_ _g3719337198_))))) + (declare (not safe)) + (foldr1 __tmp53293 '() _L37166_)))))) (declare (not safe)) - (cons 'begin: __tmp52846)))) + (cons 'begin: __tmp53292)))) (___kont4957549576_ (lambda (_L37065_) - (let ((__tmp52847 + (let ((__tmp53294 (concatenate (gx#stx-map (lambda (_g3708137083_) (_identifiers36973_ _g3708137083_ '#f)) - (foldr (lambda (_g3708637089_ _g3708737092_) + (let ((__tmp53295 + (lambda (_g3708637089_ _g3708737092_) (let () (declare (not safe)) - (cons _g3708637089_ _g3708737092_))) - '() - _L37065_))))) + (cons _g3708637089_ _g3708737092_))))) + (declare (not safe)) + (foldr1 __tmp53295 '() _L37065_)))))) (declare (not safe)) - (cons 'begin: __tmp52847))))) + (cons 'begin: __tmp53294))))) (let* ((___match4962549626_ (lambda (_e3700337025_ _hd3700237029_ diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index 65c437f7..1044234d 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -32,10 +32,10 @@ (if (gx#current-expander-compiling?) (gx#eval-syntax _L37262_) '#!void) - (let ((__tmp52848 + (let ((__tmp53296 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp52848 '()))) + (cons __tmp53296 '()))) _hd3722837256_) (_g3722137235_ _g3722237239_)))) (_g3722137235_ _g3722237239_)))) diff --git a/src/bootstrap/gerbil/core__2.scm b/src/bootstrap/gerbil/core__2.scm index 12130b32..b4759e32 100644 --- a/src/bootstrap/gerbil/core__2.scm +++ b/src/bootstrap/gerbil/core__2.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<syntax-sugar>[1]#_g49730_| + (define |gerbil/core$<syntax-sugar>[1]#_g49741_| (##structure gx#syntax-quote::t 'values @@ -34,31 +34,31 @@ (declare (not safe)) (##cdr _e6092_)))) (if (gx#stx-pair/null? _tl5899_) - (let ((_g49660_ + (let ((_g49661_ (gx#syntax-split-splice _tl5899_ '0))) (begin - (let ((_g49661_ + (let ((_g49662_ (let () (declare (not safe)) - (if (##values? _g49660_) + (if (##values? _g49661_) (##vector-length - _g49660_) + _g49661_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49661_ 2))) + (##fx= _g49662_ 2))) (error "Context expects 2 values" - _g49661_))) + _g49662_))) (let ((_target61102_ (let () (declare (not safe)) - (##vector-ref _g49660_ 0))) + (##vector-ref _g49661_ 0))) (_tl63105_ (let () (declare (not safe)) - (##vector-ref _g49660_ 1)))) + (##vector-ref _g49661_ 1)))) (if (gx#stx-null? _tl63105_) (letrec ((_loop64108_ (lambda (_hd62112_ @@ -95,43 +95,43 @@ ___stx4397643977_)))) (let ((___kont4397943980_ (lambda (_L270_ _L272_) - (let ((__tmp49662 - (let ((__tmp49663 + (let ((__tmp49663 + (let ((__tmp49664 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49665 (gx#datum->syntax '#f 'syntax)) - (__tmp49664 + (let ((__tmp49666 (gx#datum->syntax '#f 'syntax)) + (__tmp49665 (let () (declare (not safe)) (cons _L270_ '())))) (declare (not safe)) - (cons __tmp49665 __tmp49664)))) + (cons __tmp49666 __tmp49665)))) (declare (not safe)) - (cons __tmp49663 '())))) + (cons __tmp49664 '())))) (declare (not safe)) - (cons _L272_ __tmp49662)))) + (cons _L272_ __tmp49663)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4398143982_ (lambda (_L222_ _L224_ _L225_) - (let ((__tmp49666 - (let ((__tmp49667 + (let ((__tmp49667 + (let ((__tmp49668 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49668 - (let ((__tmp49670 + (let ((__tmp49669 + (let ((__tmp49671 (gx#datum->syntax '#f 'syntax)) - (__tmp49669 + (__tmp49670 (let () (declare (not safe)) (cons _L222_ '())))) (declare (not safe)) - (cons __tmp49670 __tmp49669)))) + (cons __tmp49671 __tmp49670)))) (declare (not safe)) - (cons __tmp49668 '())))) + (cons __tmp49669 '())))) (declare (not safe)) - (cons _L224_ __tmp49667)))) + (cons _L224_ __tmp49668)))) (declare (not safe)) - (cons _L225_ __tmp49666))))) + (cons _L225_ __tmp49667))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4397643977_) @@ -178,13 +178,14 @@ (let () (declare (not safe)) (_g158185_)))))) - (foldr (lambda (_g288291_ _g289294_) + (let ((__tmp49672 + (lambda (_g288291_ _g289294_) (let () (declare (not safe)) (cons _g288291_ - _g289294_))) - '() - _L132_))) + _g289294_))))) + (declare (not safe)) + (foldr1 __tmp49672 '() _L132_)))) (_g300317_ (lambda (_g301313_) (gx#raise-syntax-error @@ -194,41 +195,41 @@ (_g299376_ (lambda (_g301321_) (if (gx#stx-pair/null? _g301321_) - (let ((_g49671_ + (let ((_g49673_ (gx#syntax-split-splice _g301321_ '0))) (begin - (let ((_g49672_ + (let ((_g49674_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49671_) - (##vector-length _g49671_) + _g49673_) + (##vector-length _g49673_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g49672_ 2))) - (error "Context expects 2 values" _g49672_))) + (##fx= _g49674_ 2))) + (error "Context expects 2 values" _g49674_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target303324_ (let () (declare (not safe)) (##vector-ref - _g49671_ + _g49673_ 0))) (_tl305327_ (let () (declare (not safe)) (##vector-ref - _g49671_ + _g49673_ 1)))) (if (gx#stx-null? _tl305327_) @@ -253,44 +254,46 @@ (let ((_clause311350_ (reverse _clause310337_))) ((lambda (_L354_) - (let ((__tmp49683 + (let ((__tmp49686 (gx#datum->syntax '#f 'lambda%)) - (__tmp49673 - (let ((__tmp49681 - (let ((__tmp49682 + (__tmp49675 + (let ((__tmp49684 + (let ((__tmp49685 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp49682 '()))) - (__tmp49674 - (let ((__tmp49675 - (let ((__tmp49680 + (cons __tmp49685 '()))) + (__tmp49676 + (let ((__tmp49677 + (let ((__tmp49683 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp49676 - (let ((__tmp49679 (gx#datum->syntax '#f '$stx)) - (__tmp49677 - (let ((__tmp49678 - (foldr (lambda (_g367370_ _g368373_) + (__tmp49678 + (let ((__tmp49682 (gx#datum->syntax '#f '$stx)) + (__tmp49679 + (let ((__tmp49680 + (let ((__tmp49681 + (lambda (_g367370_ _g368373_) (let () (declare (not safe)) - (cons _g367370_ _g368373_))) - '() - _L354_))) + (cons _g367370_ + _g368373_))))) + (declare (not safe)) + (foldr1 __tmp49681 '() _L354_)))) (declare (not safe)) - (cons _L134_ __tmp49678)))) + (cons _L134_ __tmp49680)))) (declare (not safe)) - (cons __tmp49679 __tmp49677)))) + (cons __tmp49682 __tmp49679)))) (declare (not safe)) - (cons __tmp49680 __tmp49676)))) + (cons __tmp49683 __tmp49678)))) (declare (not safe)) - (cons __tmp49675 '())))) + (cons __tmp49677 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49681 __tmp49674)))) + (cons __tmp49684 __tmp49676)))) (declare (not safe)) - (cons __tmp49683 __tmp49673))) + (cons __tmp49686 __tmp49675))) _clause311350_)))))) (_loop306330_ _target303324_ '())) (_g300317_ _g301321_))))) @@ -320,116 +323,122 @@ ___stx4402044021_)))) (let ((___kont4402344024_ (lambda (_L816_) - (let ((__tmp49686 (gx#datum->syntax '#f 'let-values)) - (__tmp49684 - (let ((__tmp49685 - (foldr (lambda (_g832835_ _g833838_) + (let ((__tmp49690 (gx#datum->syntax '#f 'let-values)) + (__tmp49687 + (let ((__tmp49688 + (let ((__tmp49689 + (lambda (_g832835_ _g833838_) (let () (declare (not safe)) - (cons _g832835_ _g833838_))) - '() - _L816_))) + (cons _g832835_ _g833838_))))) + (declare (not safe)) + (foldr1 __tmp49689 '() _L816_)))) (declare (not safe)) - (cons '() __tmp49685)))) + (cons '() __tmp49688)))) (declare (not safe)) - (cons __tmp49686 __tmp49684)))) + (cons __tmp49690 __tmp49687)))) (___kont4402744028_ (lambda (_L724_ _L726_ _L727_) - (let ((__tmp49696 (gx#datum->syntax '#f 'syntax-case)) - (__tmp49687 - (let ((__tmp49688 - (let ((__tmp49689 - (let ((__tmp49690 - (let ((__tmp49691 - (let ((__tmp49692 - (let ((__tmp49695 + (let ((__tmp49701 (gx#datum->syntax '#f 'syntax-case)) + (__tmp49691 + (let ((__tmp49692 + (let ((__tmp49693 + (let ((__tmp49694 + (let ((__tmp49695 + (let ((__tmp49696 + (let ((__tmp49700 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp49693 - (let ((__tmp49694 - (foldr (lambda (_g750753_ _g751756_) + (__tmp49697 + (let ((__tmp49698 + (let ((__tmp49699 + (lambda (_g750753_ _g751756_) (let () (declare (not safe)) - (cons _g750753_ _g751756_))) - '() - _L724_))) + (cons _g750753_ _g751756_))))) + (declare (not safe)) + (foldr1 __tmp49699 '() _L724_)))) (declare (not safe)) - (cons '() __tmp49694)))) + (cons '() __tmp49698)))) (declare (not safe)) - (cons __tmp49695 __tmp49693)))) + (cons __tmp49700 __tmp49697)))) (declare (not safe)) - (cons __tmp49692 '())))) + (cons __tmp49696 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L727_ __tmp49691)))) + (cons _L727_ __tmp49695)))) (declare (not safe)) - (cons __tmp49690 '())))) + (cons __tmp49694 '())))) (declare (not safe)) - (cons '() __tmp49689)))) + (cons '() __tmp49693)))) (declare (not safe)) - (cons _L726_ __tmp49688)))) + (cons _L726_ __tmp49692)))) (declare (not safe)) - (cons __tmp49696 __tmp49687)))) + (cons __tmp49701 __tmp49691)))) (___kont4403144032_ (lambda (_L587_ _L589_ _L590_) - (let ((__tmp49710 (gx#datum->syntax '#f 'syntax-case)) - (__tmp49697 - (let ((__tmp49707 - (let ((__tmp49709 + (let ((__tmp49718 (gx#datum->syntax '#f 'syntax-case)) + (__tmp49702 + (let ((__tmp49714 + (let ((__tmp49717 (gx#datum->syntax '#f 'list)) - (__tmp49708 - (foldr (lambda (_g616619_ _g617622_) + (__tmp49715 + (let ((__tmp49716 + (lambda (_g616619_ _g617622_) (let () (declare (not safe)) - (cons _g616619_ _g617622_))) - '() - _L589_))) + (cons _g616619_ + _g617622_))))) + (declare (not safe)) + (foldr1 __tmp49716 '() _L589_)))) (declare (not safe)) - (cons __tmp49709 __tmp49708))) - (__tmp49698 - (let ((__tmp49699 - (let ((__tmp49700 - (let ((__tmp49706 - (foldr (lambda (_g614625_ + (cons __tmp49717 __tmp49715))) + (__tmp49703 + (let ((__tmp49704 + (let ((__tmp49705 + (let ((__tmp49712 + (let ((__tmp49713 + (lambda (_g614625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g615628_) (let () (declare (not safe)) - (cons _g614625_ _g615628_))) - '() - _L590_)) + (cons _g614625_ _g615628_))))) + (declare (not safe)) + (foldr1 __tmp49713 '() _L590_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49701 - (let ((__tmp49702 - (let ((__tmp49705 + (__tmp49706 + (let ((__tmp49707 + (let ((__tmp49711 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp49703 - (let ((__tmp49704 - (foldr (lambda (_g612631_ _g613634_) + (__tmp49708 + (let ((__tmp49709 + (let ((__tmp49710 + (lambda (_g612631_ _g613634_) (let () (declare (not safe)) - (cons _g612631_ _g613634_))) - '() - _L587_))) + (cons _g612631_ _g613634_))))) + (declare (not safe)) + (foldr1 __tmp49710 '() _L587_)))) (declare (not safe)) - (cons '() __tmp49704)))) + (cons '() __tmp49709)))) (declare (not safe)) - (cons __tmp49705 __tmp49703)))) + (cons __tmp49711 __tmp49708)))) (declare (not safe)) - (cons __tmp49702 '())))) + (cons __tmp49707 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49706 - __tmp49701)))) + (cons __tmp49712 + __tmp49706)))) (declare (not safe)) - (cons __tmp49700 '())))) + (cons __tmp49705 '())))) (declare (not safe)) - (cons '() __tmp49699)))) + (cons '() __tmp49704)))) (declare (not safe)) - (cons __tmp49707 __tmp49698)))) + (cons __tmp49714 __tmp49703)))) (declare (not safe)) - (cons __tmp49710 __tmp49697))))) + (cons __tmp49718 __tmp49702))))) (let* ((___match4412144122_ (lambda (_e441483_ _hd440487_ @@ -1041,87 +1050,90 @@ ___stx4412444125_)))) (let ((___kont4412744128_ (lambda (_L1227_) - (let ((__tmp49713 (gx#datum->syntax '#f 'let-values)) - (__tmp49711 - (let ((__tmp49712 - (foldr (lambda (_g12431246_ _g12441249_) + (let ((__tmp49722 (gx#datum->syntax '#f 'let-values)) + (__tmp49719 + (let ((__tmp49720 + (let ((__tmp49721 + (lambda (_g12431246_ _g12441249_) (let () (declare (not safe)) - (cons _g12431246_ _g12441249_))) - '() - _L1227_))) + (cons _g12431246_ _g12441249_))))) + (declare (not safe)) + (foldr1 __tmp49721 '() _L1227_)))) (declare (not safe)) - (cons '() __tmp49712)))) + (cons '() __tmp49720)))) (declare (not safe)) - (cons __tmp49713 __tmp49711)))) + (cons __tmp49722 __tmp49719)))) (___kont4413144132_ (lambda (_L1129_ _L1131_ _L1132_ _L1133_ _L1134_) - (let ((__tmp49722 (gx#datum->syntax '#f 'let-values)) - (__tmp49714 - (let ((__tmp49719 - (let ((__tmp49720 - (let ((__tmp49721 + (let ((__tmp49732 (gx#datum->syntax '#f 'let-values)) + (__tmp49723 + (let ((__tmp49729 + (let ((__tmp49730 + (let ((__tmp49731 (let () (declare (not safe)) (cons _L1132_ '())))) (declare (not safe)) - (cons _L1133_ __tmp49721)))) + (cons _L1133_ __tmp49731)))) (declare (not safe)) - (cons __tmp49720 '()))) - (__tmp49715 - (let ((__tmp49716 - (let ((__tmp49717 - (let ((__tmp49718 - (foldr (lambda (_g11611164_ + (cons __tmp49730 '()))) + (__tmp49724 + (let ((__tmp49725 + (let ((__tmp49726 + (let ((__tmp49727 + (let ((__tmp49728 + (lambda (_g11611164_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g11621167_) (let () (declare (not safe)) - (cons _g11611164_ _g11621167_))) - '() - _L1129_))) + (cons _g11611164_ _g11621167_))))) + (declare (not safe)) + (foldr1 __tmp49728 '() _L1129_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1131_ __tmp49718)))) + (cons _L1131_ __tmp49727)))) (declare (not safe)) - (cons _L1134_ __tmp49717)))) + (cons _L1134_ __tmp49726)))) (declare (not safe)) - (cons __tmp49716 '())))) + (cons __tmp49725 '())))) (declare (not safe)) - (cons __tmp49719 __tmp49715)))) + (cons __tmp49729 __tmp49724)))) (declare (not safe)) - (cons __tmp49722 __tmp49714)))) + (cons __tmp49732 __tmp49723)))) (___kont4413544136_ (lambda (_L998_ _L1000_ _L1001_ _L1002_) - (let ((__tmp49729 (gx#datum->syntax '#f 'with-syntax)) - (__tmp49723 - (let ((__tmp49728 + (let ((__tmp49740 (gx#datum->syntax '#f 'with-syntax)) + (__tmp49733 + (let ((__tmp49739 (let () (declare (not safe)) (cons _L1001_ '()))) - (__tmp49724 - (let ((__tmp49725 - (let ((__tmp49726 - (let ((__tmp49727 - (foldr (lambda (_g10231026_ + (__tmp49734 + (let ((__tmp49735 + (let ((__tmp49736 + (let ((__tmp49737 + (let ((__tmp49738 + (lambda (_g10231026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g10241029_) (let () (declare (not safe)) - (cons _g10231026_ _g10241029_))) - '() - _L998_))) + (cons _g10231026_ _g10241029_))))) + (declare (not safe)) + (foldr1 __tmp49738 '() _L998_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1000_ __tmp49727)))) + (cons _L1000_ __tmp49737)))) (declare (not safe)) - (cons _L1002_ __tmp49726)))) + (cons _L1002_ __tmp49736)))) (declare (not safe)) - (cons __tmp49725 '())))) + (cons __tmp49735 '())))) (declare (not safe)) - (cons __tmp49728 __tmp49724)))) + (cons __tmp49739 __tmp49734)))) (declare (not safe)) - (cons __tmp49729 __tmp49723))))) + (cons __tmp49740 __tmp49733))))) (let* ((___match4423744238_ (lambda (_e910938_ _hd909942_ @@ -1333,7 +1345,7 @@ (let () (declare (not safe)) (##car _e8911079_)))) (if (gx#identifier? _hd8901083_) (if (gx#free-identifier=? - |gerbil/core$<syntax-sugar>[1]#_g49730_| + |gerbil/core$<syntax-sugar>[1]#_g49741_| _hd8901083_) (if (gx#stx-pair? _tl8861076_) (let ((_e8941089_ (gx#syntax-e _tl8861076_))) @@ -1642,39 +1654,39 @@ (##cdr _e12741307_)))) (if (gx#stx-null? _tl12721314_) ((lambda (_L1317_ _L1319_) - (let ((__tmp49739 + (let ((__tmp49750 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp49731 - (let ((__tmp49736 - (let ((__tmp49738 + (__tmp49742 + (let ((__tmp49747 + (let ((__tmp49749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp49737 + (__tmp49748 (let () (declare (not safe)) (cons _L1317_ '())))) (declare (not safe)) - (cons __tmp49738 __tmp49737))) - (__tmp49732 - (let ((__tmp49733 - (let ((__tmp49735 + (cons __tmp49749 __tmp49748))) + (__tmp49743 + (let ((__tmp49744 + (let ((__tmp49746 (gx#datum->syntax '#f 'stx-source)) - (__tmp49734 + (__tmp49745 (let () (declare (not safe)) (cons _L1319_ '())))) (declare (not safe)) - (cons __tmp49735 __tmp49734)))) + (cons __tmp49746 __tmp49745)))) (declare (not safe)) - (cons __tmp49733 '())))) + (cons __tmp49744 '())))) (declare (not safe)) - (cons __tmp49736 __tmp49732)))) + (cons __tmp49747 __tmp49743)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49739 - __tmp49731))) + (cons __tmp49750 + __tmp49742))) _hd12731311_ _hd12701301_) (_g12621280_ _g12631284_)))) diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index f3e44e4a..0b19b336 100644 --- a/src/bootstrap/gerbil/core__3.scm +++ b/src/bootstrap/gerbil/core__3.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<sugar>$<sugar:1>[1]#_g49824_| + (define |gerbil/core$<sugar>$<sugar:1>[1]#_g49847_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:1>[1]#_g49825_| + (define |gerbil/core$<sugar>$<sugar:1>[1]#_g49848_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:1>[1]#_g49902_| + (define |gerbil/core$<sugar>$<sugar:1>[1]#_g49931_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:1>[1]#_g49903_| + (define |gerbil/core$<sugar>$<sugar:1>[1]#_g49932_| (##structure gx#syntax-quote::t 'else @@ -66,37 +66,37 @@ (declare (not safe)) (##cdr _e13581400_)))) (if (gx#stx-pair/null? _tl13561407_) - (let ((_g49740_ + (let ((_g49751_ (gx#syntax-split-splice _tl13561407_ '0))) (begin - (let ((_g49741_ + (let ((_g49752_ (let () (declare (not safe)) (if (##values? - _g49740_) + _g49751_) (##vector-length - _g49740_) + _g49751_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g49741_ 2))) - (error "Context expects 2 values" _g49741_))) + (##fx= _g49752_ 2))) + (error "Context expects 2 values" _g49752_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target13591410_ (let () (declare (not safe)) (##vector-ref - _g49740_ + _g49751_ 0))) (_tl13611413_ (let () (declare (not safe)) (##vector-ref - _g49740_ + _g49751_ 1)))) (if (gx#stx-null? _tl13611413_) @@ -123,35 +123,37 @@ (reverse _clauses13661423_))) ((lambda (_L1440_ _L1442_ _L1443_) (if (gx#identifier? _L1443_) - (let ((__tmp49748 + (let ((__tmp49760 (gx#datum->syntax '#f 'define-syntax)) - (__tmp49742 - (let ((__tmp49743 - (let ((__tmp49744 - (let ((__tmp49747 + (__tmp49753 + (let ((__tmp49754 + (let ((__tmp49755 + (let ((__tmp49759 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules)) - (__tmp49745 - (let ((__tmp49746 - (foldr (lambda (_g14651468_ _g14661471_) + (__tmp49756 + (let ((__tmp49757 + (let ((__tmp49758 + (lambda (_g14651468_ _g14661471_) (let () (declare (not safe)) - (cons _g14651468_ _g14661471_))) - '() - _L1440_))) + (cons _g14651468_ + _g14661471_))))) + (declare (not safe)) + (foldr1 __tmp49758 '() _L1440_)))) (declare (not safe)) - (cons _L1442_ __tmp49746)))) + (cons _L1442_ __tmp49757)))) (declare (not safe)) - (cons __tmp49747 __tmp49745)))) + (cons __tmp49759 __tmp49756)))) (declare (not safe)) - (cons __tmp49744 '())))) + (cons __tmp49755 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1443_ __tmp49743)))) + (cons _L1443_ __tmp49754)))) (declare (not safe)) - (cons __tmp49748 __tmp49742)) + (cons __tmp49760 __tmp49753)) (_g13451373_ _g13461377_))) _clauses13671436_ _hd13571404_ @@ -175,45 +177,46 @@ ___stx4424044241_)))) (let ((___kont4424344244_ (lambda (_L1645_ _L1647_ _L1648_) - (let ((__tmp49755 (gx#datum->syntax '#f 'define-syntax)) - (__tmp49749 - (let ((__tmp49750 - (let ((__tmp49751 - (let ((__tmp49754 + (let ((__tmp49768 (gx#datum->syntax '#f 'define-syntax)) + (__tmp49761 + (let ((__tmp49762 + (let ((__tmp49763 + (let ((__tmp49767 (gx#datum->syntax '#f 'lambda%)) - (__tmp49752 - (let ((__tmp49753 - (foldr (lambda (_g16671670_ + (__tmp49764 + (let ((__tmp49765 + (let ((__tmp49766 + (lambda (_g16671670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g16681673_) (let () (declare (not safe)) - (cons _g16671670_ _g16681673_))) - '() - _L1645_))) + (cons _g16671670_ _g16681673_))))) + (declare (not safe)) + (foldr1 __tmp49766 '() _L1645_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1647_ __tmp49753)))) + (cons _L1647_ __tmp49765)))) (declare (not safe)) - (cons __tmp49754 __tmp49752)))) + (cons __tmp49767 __tmp49764)))) (declare (not safe)) - (cons __tmp49751 '())))) + (cons __tmp49763 '())))) (declare (not safe)) - (cons _L1648_ __tmp49750)))) + (cons _L1648_ __tmp49762)))) (declare (not safe)) - (cons __tmp49755 __tmp49749)))) + (cons __tmp49768 __tmp49761)))) (___kont4424744248_ (lambda (_L1560_ _L1562_) - (let ((__tmp49758 (gx#datum->syntax '#f 'define-syntax)) - (__tmp49756 - (let ((__tmp49757 + (let ((__tmp49771 (gx#datum->syntax '#f 'define-syntax)) + (__tmp49769 + (let ((__tmp49770 (let () (declare (not safe)) (cons _L1560_ '())))) (declare (not safe)) - (cons _L1562_ __tmp49757)))) + (cons _L1562_ __tmp49770)))) (declare (not safe)) - (cons __tmp49758 __tmp49756))))) + (cons __tmp49771 __tmp49769))))) (let* ((___match4429544296_ (lambda (_e15111530_ _hd15101534_ @@ -497,22 +500,22 @@ (##cdr _e16971730_)))) (if (gx#stx-null? _tl16951737_) ((lambda (_L1740_ _L1742_) - (let ((__tmp49761 + (let ((__tmp49774 (gx#datum->syntax '#f 'define-alias)) - (__tmp49759 - (let ((__tmp49760 + (__tmp49772 + (let ((__tmp49773 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L1740_ '())))) (declare (not safe)) - (cons _L1742_ __tmp49760)))) + (cons _L1742_ __tmp49773)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49761 - __tmp49759))) + (cons __tmp49774 + __tmp49772))) _hd16961734_ _hd16931724_) (_g16851703_ _g16861707_)))) @@ -531,53 +534,54 @@ ___stx4429844299_)))) (let ((___kont4430144302_ (lambda (_L1928_ _L1930_ _L1931_) - (let ((__tmp49769 (gx#datum->syntax '#f 'define-values)) - (__tmp49762 - (let ((__tmp49768 + (let ((__tmp49783 (gx#datum->syntax '#f 'define-values)) + (__tmp49775 + (let ((__tmp49782 (let () (declare (not safe)) (cons _L1931_ '()))) - (__tmp49763 - (let ((__tmp49764 - (let ((__tmp49767 + (__tmp49776 + (let ((__tmp49777 + (let ((__tmp49781 (gx#datum->syntax '#f 'lambda%)) - (__tmp49765 - (let ((__tmp49766 - (foldr (lambda (_g19501953_ + (__tmp49778 + (let ((__tmp49779 + (let ((__tmp49780 + (lambda (_g19501953_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g19511956_) (let () (declare (not safe)) - (cons _g19501953_ _g19511956_))) - '() - _L1928_))) + (cons _g19501953_ _g19511956_))))) + (declare (not safe)) + (foldr1 __tmp49780 '() _L1928_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1930_ __tmp49766)))) + (cons _L1930_ __tmp49779)))) (declare (not safe)) - (cons __tmp49767 __tmp49765)))) + (cons __tmp49781 __tmp49778)))) (declare (not safe)) - (cons __tmp49764 '())))) + (cons __tmp49777 '())))) (declare (not safe)) - (cons __tmp49768 __tmp49763)))) + (cons __tmp49782 __tmp49776)))) (declare (not safe)) - (cons __tmp49769 __tmp49762)))) + (cons __tmp49783 __tmp49775)))) (___kont4430544306_ (lambda (_L1843_ _L1845_) - (let ((__tmp49773 (gx#datum->syntax '#f 'define-values)) - (__tmp49770 - (let ((__tmp49772 + (let ((__tmp49787 (gx#datum->syntax '#f 'define-values)) + (__tmp49784 + (let ((__tmp49786 (let () (declare (not safe)) (cons _L1845_ '()))) - (__tmp49771 + (__tmp49785 (let () (declare (not safe)) (cons _L1843_ '())))) (declare (not safe)) - (cons __tmp49772 __tmp49771)))) + (cons __tmp49786 __tmp49785)))) (declare (not safe)) - (cons __tmp49773 __tmp49770))))) + (cons __tmp49787 __tmp49784))))) (let* ((___match4435344354_ (lambda (_e17941813_ _hd17931817_ @@ -829,50 +833,52 @@ ___stx4435644357_)))) (let ((___kont4435944360_ (lambda (_L2172_) - (let ((__tmp49776 (gx#datum->syntax '#f 'let-values)) - (__tmp49774 - (let ((__tmp49775 - (foldr (lambda (_g21882191_ _g21892194_) + (let ((__tmp49791 (gx#datum->syntax '#f 'let-values)) + (__tmp49788 + (let ((__tmp49789 + (let ((__tmp49790 + (lambda (_g21882191_ _g21892194_) (let () (declare (not safe)) - (cons _g21882191_ _g21892194_))) - '() - _L2172_))) + (cons _g21882191_ _g21892194_))))) + (declare (not safe)) + (foldr1 __tmp49790 '() _L2172_)))) (declare (not safe)) - (cons '() __tmp49775)))) + (cons '() __tmp49789)))) (declare (not safe)) - (cons __tmp49776 __tmp49774)))) + (cons __tmp49791 __tmp49788)))) (___kont4436344364_ (lambda (_L2081_ _L2083_ _L2084_ _L2085_) - (let ((__tmp49783 (gx#datum->syntax '#f 'let-values)) - (__tmp49777 - (let ((__tmp49782 + (let ((__tmp49799 (gx#datum->syntax '#f 'let-values)) + (__tmp49792 + (let ((__tmp49798 (let () (declare (not safe)) (cons _L2084_ '()))) - (__tmp49778 - (let ((__tmp49779 - (let ((__tmp49780 - (let ((__tmp49781 - (foldr (lambda (_g21062109_ + (__tmp49793 + (let ((__tmp49794 + (let ((__tmp49795 + (let ((__tmp49796 + (let ((__tmp49797 + (lambda (_g21062109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g21072112_) (let () (declare (not safe)) - (cons _g21062109_ _g21072112_))) - '() - _L2081_))) + (cons _g21062109_ _g21072112_))))) + (declare (not safe)) + (foldr1 __tmp49797 '() _L2081_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L2083_ __tmp49781)))) + (cons _L2083_ __tmp49796)))) (declare (not safe)) - (cons _L2085_ __tmp49780)))) + (cons _L2085_ __tmp49795)))) (declare (not safe)) - (cons __tmp49779 '())))) + (cons __tmp49794 '())))) (declare (not safe)) - (cons __tmp49782 __tmp49778)))) + (cons __tmp49798 __tmp49793)))) (declare (not safe)) - (cons __tmp49783 __tmp49777))))) + (cons __tmp49799 __tmp49792))))) (let* ((___match4441544416_ (lambda (_e19932021_ _hd19922025_ @@ -1063,86 +1069,92 @@ ___stx4441844419_)))) (let ((___kont4442144422_ (lambda (_L2478_ _L2480_ _L2481_ _L2482_ _L2483_) - (let ((__tmp49785 - (let ((__tmp49797 + (let ((__tmp49802 + (let ((__tmp49816 (gx#datum->syntax '#f 'letrec-values)) - (__tmp49786 - (let ((__tmp49788 - (let ((__tmp49789 - (let ((__tmp49796 + (__tmp49803 + (let ((__tmp49805 + (let ((__tmp49806 + (let ((__tmp49815 (let () (declare (not safe)) (cons _L2483_ '()))) - (__tmp49790 - (let ((__tmp49791 - (let ((__tmp49795 + (__tmp49807 + (let ((__tmp49808 + (let ((__tmp49814 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda%)) - (__tmp49792 - (let ((__tmp49794 - (foldr (lambda (_g25122515_ _g25132518_) + (__tmp49809 + (let ((__tmp49812 + (let ((__tmp49813 + (lambda (_g25122515_ _g25132518_) (let () (declare (not safe)) - (cons _g25122515_ _g25132518_))) - _L2480_ - _L2482_)) - (__tmp49793 - (foldr (lambda (_g25102521_ _g25112524_) + (cons _g25122515_ + _g25132518_))))) + (declare (not safe)) + (foldr1 __tmp49813 _L2480_ _L2482_))) + (__tmp49810 + (let ((__tmp49811 + (lambda (_g25102521_ _g25112524_) (let () (declare (not safe)) - (cons _g25102521_ _g25112524_))) - '() - _L2478_))) + (cons _g25102521_ + _g25112524_))))) + (declare (not safe)) + (foldr1 __tmp49811 '() _L2478_)))) (declare (not safe)) - (cons __tmp49794 __tmp49793)))) + (cons __tmp49812 __tmp49810)))) (declare (not safe)) - (cons __tmp49795 __tmp49792)))) + (cons __tmp49814 __tmp49809)))) (declare (not safe)) - (cons __tmp49791 '())))) + (cons __tmp49808 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49796 - __tmp49790)))) + (cons __tmp49815 + __tmp49807)))) (declare (not safe)) - (cons __tmp49789 '()))) - (__tmp49787 + (cons __tmp49806 '()))) + (__tmp49804 (let () (declare (not safe)) (cons _L2483_ '())))) (declare (not safe)) - (cons __tmp49788 __tmp49787)))) + (cons __tmp49805 __tmp49804)))) (declare (not safe)) - (cons __tmp49797 __tmp49786))) - (__tmp49784 - (foldr (lambda (_g25082527_ _g25092530_) + (cons __tmp49816 __tmp49803))) + (__tmp49800 + (let ((__tmp49801 + (lambda (_g25082527_ _g25092530_) (let () (declare (not safe)) - (cons _g25082527_ _g25092530_))) - '() - _L2481_))) + (cons _g25082527_ _g25092530_))))) + (declare (not safe)) + (foldr1 __tmp49801 '() _L2481_)))) (declare (not safe)) - (cons __tmp49785 __tmp49784)))) + (cons __tmp49802 __tmp49800)))) (___kont4442744428_ (lambda (_L2329_ _L2331_) - (let ((__tmp49802 (gx#datum->syntax '#f '~let)) - (__tmp49798 - (let ((__tmp49801 (gx#datum->syntax '#f 'let-values)) - (__tmp49799 - (let ((__tmp49800 - (foldr (lambda (_g23482351_ + (let ((__tmp49822 (gx#datum->syntax '#f '~let)) + (__tmp49817 + (let ((__tmp49821 (gx#datum->syntax '#f 'let-values)) + (__tmp49818 + (let ((__tmp49819 + (let ((__tmp49820 + (lambda (_g23482351_ _g23492354_) (let () (declare (not safe)) (cons _g23482351_ - _g23492354_))) - '() - _L2329_))) + _g23492354_))))) + (declare (not safe)) + (foldr1 __tmp49820 '() _L2329_)))) (declare (not safe)) - (cons _L2331_ __tmp49800)))) + (cons _L2331_ __tmp49819)))) (declare (not safe)) - (cons __tmp49801 __tmp49799)))) + (cons __tmp49821 __tmp49818)))) (declare (not safe)) - (cons __tmp49802 __tmp49798))))) + (cons __tmp49822 __tmp49817))))) (let* ((___match4447544476_ (lambda (_e22542279_ _hd22532283_ @@ -1531,31 +1543,31 @@ (declare (not safe)) (##cdr _e25532585_)))) (if (gx#stx-pair/null? _tl25512592_) - (let ((_g49803_ + (let ((_g49823_ (gx#syntax-split-splice _tl25512592_ '0))) (begin - (let ((_g49804_ + (let ((_g49824_ (let () (declare (not safe)) - (if (##values? _g49803_) + (if (##values? _g49823_) (##vector-length - _g49803_) + _g49823_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49804_ 2))) + (##fx= _g49824_ 2))) (error "Context expects 2 values" - _g49804_))) + _g49824_))) (let ((_target25542595_ (let () (declare (not safe)) - (##vector-ref _g49803_ 0))) + (##vector-ref _g49823_ 0))) (_tl25562598_ (let () (declare (not safe)) - (##vector-ref _g49803_ 1)))) + (##vector-ref _g49823_ 1)))) (if (gx#stx-null? _tl25562598_) (letrec ((_loop25572601_ (lambda (_hd25552605_ @@ -1578,27 +1590,30 @@ (cons _lp-hd25592615_ _body25612608_))))) (let ((_body25622621_ (reverse _body25612608_))) ((lambda (_L2625_ _L2627_) - (let ((__tmp49809 (gx#datum->syntax '#f '~let)) - (__tmp49805 - (let ((__tmp49808 + (let ((__tmp49830 (gx#datum->syntax '#f '~let)) + (__tmp49825 + (let ((__tmp49829 (gx#datum->syntax '#f 'let*-values)) - (__tmp49806 - (let ((__tmp49807 - (foldr (lambda (_g26442647_ + (__tmp49826 + (let ((__tmp49827 + (let ((__tmp49828 + (lambda (_g26442647_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g26452650_) (let () (declare (not safe)) - (cons _g26442647_ _g26452650_))) - '() - _L2625_))) + (cons _g26442647_ _g26452650_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp49828 + '() + _L2625_)))) (declare (not safe)) - (cons _L2627_ __tmp49807)))) + (cons _L2627_ __tmp49827)))) (declare (not safe)) - (cons __tmp49808 __tmp49806)))) + (cons __tmp49829 __tmp49826)))) (declare (not safe)) - (cons __tmp49809 __tmp49805))) + (cons __tmp49830 __tmp49825))) _body25622621_ _hd25522589_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1641,31 +1656,31 @@ (declare (not safe)) (##cdr _e26712703_)))) (if (gx#stx-pair/null? _tl26692710_) - (let ((_g49810_ + (let ((_g49831_ (gx#syntax-split-splice _tl26692710_ '0))) (begin - (let ((_g49811_ + (let ((_g49832_ (let () (declare (not safe)) - (if (##values? _g49810_) + (if (##values? _g49831_) (##vector-length - _g49810_) + _g49831_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49811_ 2))) + (##fx= _g49832_ 2))) (error "Context expects 2 values" - _g49811_))) + _g49832_))) (let ((_target26722713_ (let () (declare (not safe)) - (##vector-ref _g49810_ 0))) + (##vector-ref _g49831_ 0))) (_tl26742716_ (let () (declare (not safe)) - (##vector-ref _g49810_ 1)))) + (##vector-ref _g49831_ 1)))) (if (gx#stx-null? _tl26742716_) (letrec ((_loop26752719_ (lambda (_hd26732723_ @@ -1688,29 +1703,32 @@ (cons _lp-hd26772733_ _body26792726_))))) (let ((_body26802739_ (reverse _body26792726_))) ((lambda (_L2743_ _L2745_) - (let ((__tmp49816 (gx#datum->syntax '#f '~let)) - (__tmp49812 - (let ((__tmp49815 + (let ((__tmp49838 (gx#datum->syntax '#f '~let)) + (__tmp49833 + (let ((__tmp49837 (gx#datum->syntax '#f 'letrec-values)) - (__tmp49813 - (let ((__tmp49814 - (foldr (lambda (_g27622765_ + (__tmp49834 + (let ((__tmp49835 + (let ((__tmp49836 + (lambda (_g27622765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g27632768_) (let () (declare (not safe)) - (cons _g27622765_ _g27632768_))) - '() - _L2743_))) + (cons _g27622765_ _g27632768_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp49836 + '() + _L2743_)))) (declare (not safe)) - (cons _L2745_ __tmp49814)))) + (cons _L2745_ __tmp49835)))) (declare (not safe)) - (cons __tmp49815 __tmp49813)))) + (cons __tmp49837 __tmp49834)))) (declare (not safe)) - (cons __tmp49816 __tmp49812))) + (cons __tmp49838 __tmp49833))) _body26802739_ _hd26702707_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1753,31 +1771,31 @@ (declare (not safe)) (##cdr _e27892821_)))) (if (gx#stx-pair/null? _tl27872828_) - (let ((_g49817_ + (let ((_g49839_ (gx#syntax-split-splice _tl27872828_ '0))) (begin - (let ((_g49818_ + (let ((_g49840_ (let () (declare (not safe)) - (if (##values? _g49817_) + (if (##values? _g49839_) (##vector-length - _g49817_) + _g49839_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49818_ 2))) + (##fx= _g49840_ 2))) (error "Context expects 2 values" - _g49818_))) + _g49840_))) (let ((_target27902831_ (let () (declare (not safe)) - (##vector-ref _g49817_ 0))) + (##vector-ref _g49839_ 0))) (_tl27922834_ (let () (declare (not safe)) - (##vector-ref _g49817_ 1)))) + (##vector-ref _g49839_ 1)))) (if (gx#stx-null? _tl27922834_) (letrec ((_loop27932837_ (lambda (_hd27912841_ @@ -1800,29 +1818,32 @@ (cons _lp-hd27952851_ _body27972844_))))) (let ((_body27982857_ (reverse _body27972844_))) ((lambda (_L2861_ _L2863_) - (let ((__tmp49823 (gx#datum->syntax '#f '~let)) - (__tmp49819 - (let ((__tmp49822 + (let ((__tmp49846 (gx#datum->syntax '#f '~let)) + (__tmp49841 + (let ((__tmp49845 (gx#datum->syntax '#f 'letrec*-values)) - (__tmp49820 - (let ((__tmp49821 - (foldr (lambda (_g28802883_ + (__tmp49842 + (let ((__tmp49843 + (let ((__tmp49844 + (lambda (_g28802883_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g28812886_) (let () (declare (not safe)) - (cons _g28802883_ _g28812886_))) - '() - _L2861_))) + (cons _g28802883_ _g28812886_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp49844 + '() + _L2861_)))) (declare (not safe)) - (cons _L2863_ __tmp49821)))) + (cons _L2863_ __tmp49843)))) (declare (not safe)) - (cons __tmp49822 __tmp49820)))) + (cons __tmp49845 __tmp49842)))) (declare (not safe)) - (cons __tmp49823 __tmp49819))) + (cons __tmp49846 __tmp49841))) _body27982857_ _hd27882825_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1863,7 +1884,7 @@ (##car _e33863410_)))) (if (gx#identifier? _hd33853414_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:1>[1]#_g49824_| + |gerbil/core$<sugar>$<sugar:1>[1]#_g49847_| _hd33853414_) (___kont4448144482_ _tl33843417_) (___kont4448344484_)) @@ -1893,7 +1914,7 @@ (##car _e33263350_)))) (if (gx#identifier? _hd33253354_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:1>[1]#_g49825_| + |gerbil/core$<sugar>$<sugar:1>[1]#_g49848_| _hd33253354_) (___kont4450144502_ _tl33243357_) (___kont4450344504_)) @@ -1908,24 +1929,24 @@ ___stx4451844519_)))) (let ((___kont4452144522_ (lambda (_L3286_ _L3288_ _L3289_ _L3290_ _L3291_) - (let ((__tmp49826 - (let ((__tmp49827 - (let ((__tmp49828 - (let ((__tmp49829 - (let ((__tmp49830 + (let ((__tmp49849 + (let ((__tmp49850 + (let ((__tmp49851 + (let ((__tmp49852 + (let ((__tmp49853 (let () (declare (not safe)) (cons _L3288_ '())))) (declare (not safe)) - (cons _L3289_ __tmp49830)))) + (cons _L3289_ __tmp49853)))) (declare (not safe)) - (cons __tmp49829 '())))) + (cons __tmp49852 '())))) (declare (not safe)) - (cons __tmp49828 _L3286_)))) + (cons __tmp49851 _L3286_)))) (declare (not safe)) - (cons _L3290_ __tmp49827)))) + (cons _L3290_ __tmp49850)))) (declare (not safe)) - (cons _L3291_ __tmp49826)))) + (cons _L3291_ __tmp49849)))) (___kont4452344524_ (lambda (_L3089_ _L3091_ _L3092_ _L3093_) (let* ((_g31283145_ @@ -1937,30 +1958,30 @@ (_g31273217_ (lambda (_g31293149_) (if (gx#stx-pair/null? _g31293149_) - (let ((_g49831_ + (let ((_g49854_ (gx#syntax-split-splice _g31293149_ '0))) (begin - (let ((_g49832_ + (let ((_g49855_ (let () (declare (not safe)) - (if (##values? _g49831_) - (##vector-length _g49831_) + (if (##values? _g49854_) + (##vector-length _g49854_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49832_ 2))) + (##fx= _g49855_ 2))) (error "Context expects 2 values" - _g49832_))) + _g49855_))) (let ((_target31313152_ (let () (declare (not safe)) - (##vector-ref _g49831_ 0))) + (##vector-ref _g49854_ 0))) (_tl31333155_ (let () (declare (not safe)) - (##vector-ref _g49831_ 1)))) + (##vector-ref _g49854_ 1)))) (if (gx#stx-null? _tl31333155_) (letrec ((_loop31343158_ (lambda (_hd31323162_ @@ -1986,42 +2007,46 @@ (let ((_hd-bind31393178_ (reverse _hd-bind31383165_))) ((lambda (_L3182_) (let () - (let ((__tmp49833 - (let ((__tmp49835 + (let ((__tmp49856 + (let ((__tmp49859 (begin (gx#syntax-check-splice-targets _L3091_ _L3182_) - (foldr (lambda (_g31993203_ + (let ((__tmp49860 + (lambda (_g31993203_ _g32003206_ _g32013208_) - (let ((__tmp49836 - (let ((__tmp49837 + (let ((__tmp49861 + (let ((__tmp49862 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _g31993203_ '())))) (declare (not safe)) - (cons _g32003206_ __tmp49837)))) + (cons _g32003206_ __tmp49862)))) (declare (not safe)) - (cons __tmp49836 _g32013208_))) + (cons __tmp49861 _g32013208_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '() - _L3091_ - _L3182_))) - (__tmp49834 - (foldr (lambda (_g31973211_ + (declare (not safe)) + (foldr2 __tmp49860 + '() + _L3091_ + _L3182_)))) + (__tmp49857 + (let ((__tmp49858 + (lambda (_g31973211_ _g31983214_) (let () (declare (not safe)) (cons _g31973211_ - _g31983214_))) - '() - _L3089_))) + _g31983214_))))) + (declare (not safe)) + (foldr1 __tmp49858 '() _L3089_)))) (declare (not safe)) - (cons __tmp49835 __tmp49834)))) + (cons __tmp49859 __tmp49857)))) (declare (not safe)) - (cons _L3093_ __tmp49833)))) + (cons _L3093_ __tmp49856)))) _hd-bind31393178_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop31343158_ @@ -2032,12 +2057,13 @@ (_g31273217_ (gx#stx-map _let-head2899_ - (foldr (lambda (_g32203223_ _g32213226_) + (let ((__tmp49863 + (lambda (_g32203223_ _g32213226_) (let () (declare (not safe)) - (cons _g32203223_ _g32213226_))) - '() - _L3092_))))))) + (cons _g32203223_ _g32213226_))))) + (declare (not safe)) + (foldr1 __tmp49863 '() _L3092_)))))))) (let* ((___match4458744588_ (lambda (_e29302975_ _hd29292979_ @@ -2152,13 +2178,14 @@ (_L3093_ _hd29322989_)) (if (gx#stx-andmap _let-head?2897_ - (foldr (lambda (_g31193122_ _g31203125_) + (let ((__tmp49864 + (lambda (_g31193122_ _g31203125_) (let () (declare (not safe)) (cons _g31193122_ - _g31203125_))) - '() - _L3092_)) + _g31203125_))))) + (declare (not safe)) + (foldr1 __tmp49864 '() _L3092_))) (___kont4452344524_ _L3089_ _L3091_ @@ -2425,23 +2452,23 @@ (___kont4459544596_ (lambda (_L3544_) _L3544_)) (___kont4459744598_ (lambda (_L3499_ _L3501_ _L3502_) - (let ((__tmp49842 (gx#datum->syntax '#f 'if)) - (__tmp49838 - (let ((__tmp49839 - (let ((__tmp49841 + (let ((__tmp49869 (gx#datum->syntax '#f 'if)) + (__tmp49865 + (let ((__tmp49866 + (let ((__tmp49868 (let () (declare (not safe)) (cons _L3502_ _L3499_))) - (__tmp49840 + (__tmp49867 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp49841 __tmp49840)))) + (cons __tmp49868 __tmp49867)))) (declare (not safe)) - (cons _L3501_ __tmp49839)))) + (cons _L3501_ __tmp49866)))) (declare (not safe)) - (cons __tmp49842 __tmp49838))))) + (cons __tmp49869 __tmp49865))))) (if (gx#stx-pair? ___stx4459044591_) (let ((_e34503564_ (gx#syntax-e ___stx4459044591_))) (let ((_tl34483571_ @@ -2481,52 +2508,52 @@ (___kont4464144642_ (lambda (_L3686_) _L3686_)) (___kont4464344644_ (lambda (_L3641_ _L3643_ _L3644_) - (let ((__tmp49856 (gx#datum->syntax '#f 'let)) - (__tmp49843 - (let ((__tmp49853 - (let ((__tmp49855 (gx#datum->syntax '#f '$e)) - (__tmp49854 + (let ((__tmp49883 (gx#datum->syntax '#f 'let)) + (__tmp49870 + (let ((__tmp49880 + (let ((__tmp49882 (gx#datum->syntax '#f '$e)) + (__tmp49881 (let () (declare (not safe)) (cons _L3643_ '())))) (declare (not safe)) - (cons __tmp49855 __tmp49854))) - (__tmp49844 - (let ((__tmp49845 - (let ((__tmp49852 + (cons __tmp49882 __tmp49881))) + (__tmp49871 + (let ((__tmp49872 + (let ((__tmp49879 (gx#datum->syntax '#f 'if)) - (__tmp49846 - (let ((__tmp49851 + (__tmp49873 + (let ((__tmp49878 (gx#datum->syntax '#f '$e)) - (__tmp49847 - (let ((__tmp49850 + (__tmp49874 + (let ((__tmp49877 (gx#datum->syntax '#f '$e)) - (__tmp49848 - (let ((__tmp49849 + (__tmp49875 + (let ((__tmp49876 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L3644_ _L3641_)))) (declare (not safe)) - (cons __tmp49849 '())))) + (cons __tmp49876 '())))) (declare (not safe)) - (cons __tmp49850 __tmp49848)))) + (cons __tmp49877 __tmp49875)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49851 - __tmp49847)))) + (cons __tmp49878 + __tmp49874)))) (declare (not safe)) - (cons __tmp49852 __tmp49846)))) + (cons __tmp49879 __tmp49873)))) (declare (not safe)) - (cons __tmp49845 '())))) + (cons __tmp49872 '())))) (declare (not safe)) - (cons __tmp49853 __tmp49844)))) + (cons __tmp49880 __tmp49871)))) (declare (not safe)) - (cons __tmp49856 __tmp49843))))) + (cons __tmp49883 __tmp49870))))) (if (gx#stx-pair? ___stx4463644637_) (let ((_e35923706_ (gx#syntax-e ___stx4463644637_))) (let ((_tl35903713_ @@ -2565,166 +2592,170 @@ (let ((___kont4468544686_ (lambda () '#!void)) (___kont4468744688_ (lambda (_L4171_) - (let ((__tmp49861 (gx#datum->syntax '#f '%#expression)) - (__tmp49857 - (let ((__tmp49858 - (let ((__tmp49860 + (let ((__tmp49889 (gx#datum->syntax '#f '%#expression)) + (__tmp49884 + (let ((__tmp49885 + (let ((__tmp49888 (gx#datum->syntax '#f 'begin)) - (__tmp49859 - (foldr (lambda (_g41904193_ + (__tmp49886 + (let ((__tmp49887 + (lambda (_g41904193_ _g41914196_) (let () (declare (not safe)) (cons _g41904193_ - _g41914196_))) - '() - _L4171_))) + _g41914196_))))) + (declare (not safe)) + (foldr1 __tmp49887 '() _L4171_)))) (declare (not safe)) - (cons __tmp49860 __tmp49859)))) + (cons __tmp49888 __tmp49886)))) (declare (not safe)) - (cons __tmp49858 '())))) + (cons __tmp49885 '())))) (declare (not safe)) - (cons __tmp49861 __tmp49857)))) + (cons __tmp49889 __tmp49884)))) (___kont4469144692_ (lambda () - (let ((__tmp49863 (gx#datum->syntax '#f 'syntax-error)) - (__tmp49862 + (let ((__tmp49891 (gx#datum->syntax '#f 'syntax-error)) + (__tmp49890 (let () (declare (not safe)) (cons '"bad syntax; misplaced else" '())))) (declare (not safe)) - (cons __tmp49863 __tmp49862)))) + (cons __tmp49891 __tmp49890)))) (___kont4469344694_ (lambda (_L4044_ _L4046_ _L4047_) - (let ((__tmp49877 (gx#datum->syntax '#f 'let)) - (__tmp49864 - (let ((__tmp49874 - (let ((__tmp49876 (gx#datum->syntax '#f '$e)) - (__tmp49875 + (let ((__tmp49905 (gx#datum->syntax '#f 'let)) + (__tmp49892 + (let ((__tmp49902 + (let ((__tmp49904 (gx#datum->syntax '#f '$e)) + (__tmp49903 (let () (declare (not safe)) (cons _L4046_ '())))) (declare (not safe)) - (cons __tmp49876 __tmp49875))) - (__tmp49865 - (let ((__tmp49866 - (let ((__tmp49873 + (cons __tmp49904 __tmp49903))) + (__tmp49893 + (let ((__tmp49894 + (let ((__tmp49901 (gx#datum->syntax '#f 'if)) - (__tmp49867 - (let ((__tmp49872 + (__tmp49895 + (let ((__tmp49900 (gx#datum->syntax '#f '$e)) - (__tmp49868 - (let ((__tmp49871 + (__tmp49896 + (let ((__tmp49899 (gx#datum->syntax '#f '$e)) - (__tmp49869 - (let ((__tmp49870 + (__tmp49897 + (let ((__tmp49898 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4047_ _L4044_)))) (declare (not safe)) - (cons __tmp49870 '())))) + (cons __tmp49898 '())))) (declare (not safe)) - (cons __tmp49871 __tmp49869)))) + (cons __tmp49899 __tmp49897)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49872 - __tmp49868)))) + (cons __tmp49900 + __tmp49896)))) (declare (not safe)) - (cons __tmp49873 __tmp49867)))) + (cons __tmp49901 __tmp49895)))) (declare (not safe)) - (cons __tmp49866 '())))) + (cons __tmp49894 '())))) (declare (not safe)) - (cons __tmp49874 __tmp49865)))) + (cons __tmp49902 __tmp49893)))) (declare (not safe)) - (cons __tmp49877 __tmp49864)))) + (cons __tmp49905 __tmp49892)))) (___kont4469544696_ (lambda (_L3982_ _L3984_ _L3985_ _L3986_) - (let ((__tmp49893 (gx#datum->syntax '#f 'let)) - (__tmp49878 - (let ((__tmp49890 - (let ((__tmp49892 (gx#datum->syntax '#f '$e)) - (__tmp49891 + (let ((__tmp49921 (gx#datum->syntax '#f 'let)) + (__tmp49906 + (let ((__tmp49918 + (let ((__tmp49920 (gx#datum->syntax '#f '$e)) + (__tmp49919 (let () (declare (not safe)) (cons _L3985_ '())))) (declare (not safe)) - (cons __tmp49892 __tmp49891))) - (__tmp49879 - (let ((__tmp49880 - (let ((__tmp49889 + (cons __tmp49920 __tmp49919))) + (__tmp49907 + (let ((__tmp49908 + (let ((__tmp49917 (gx#datum->syntax '#f 'if)) - (__tmp49881 - (let ((__tmp49888 + (__tmp49909 + (let ((__tmp49916 (gx#datum->syntax '#f '$e)) - (__tmp49882 - (let ((__tmp49885 - (let ((__tmp49886 + (__tmp49910 + (let ((__tmp49913 + (let ((__tmp49914 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49887 (gx#datum->syntax '#f '$e))) + (let ((__tmp49915 (gx#datum->syntax '#f '$e))) (declare (not safe)) - (cons __tmp49887 '())))) + (cons __tmp49915 '())))) (declare (not safe)) - (cons _L3984_ __tmp49886))) - (__tmp49883 - (let ((__tmp49884 + (cons _L3984_ __tmp49914))) + (__tmp49911 + (let ((__tmp49912 (let () (declare (not safe)) (cons _L3986_ _L3982_)))) (declare (not safe)) - (cons __tmp49884 '())))) + (cons __tmp49912 '())))) (declare (not safe)) - (cons __tmp49885 __tmp49883)))) + (cons __tmp49913 __tmp49911)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49888 - __tmp49882)))) + (cons __tmp49916 + __tmp49910)))) (declare (not safe)) - (cons __tmp49889 __tmp49881)))) + (cons __tmp49917 __tmp49909)))) (declare (not safe)) - (cons __tmp49880 '())))) + (cons __tmp49908 '())))) (declare (not safe)) - (cons __tmp49890 __tmp49879)))) + (cons __tmp49918 __tmp49907)))) (declare (not safe)) - (cons __tmp49893 __tmp49878)))) + (cons __tmp49921 __tmp49906)))) (___kont4469744698_ (lambda (_L3891_ _L3893_ _L3894_ _L3895_) - (let ((__tmp49901 (gx#datum->syntax '#f 'if)) - (__tmp49894 - (let ((__tmp49895 - (let ((__tmp49898 - (let ((__tmp49900 + (let ((__tmp49930 (gx#datum->syntax '#f 'if)) + (__tmp49922 + (let ((__tmp49923 + (let ((__tmp49926 + (let ((__tmp49929 (gx#datum->syntax '#f 'begin)) - (__tmp49899 - (foldr (lambda (_g39163919_ + (__tmp49927 + (let ((__tmp49928 + (lambda (_g39163919_ _g39173922_) (let () (declare (not safe)) (cons _g39163919_ - _g39173922_))) - '() - _L3893_))) + _g39173922_))))) + (declare (not safe)) + (foldr1 __tmp49928 + '() + _L3893_)))) (declare (not safe)) - (cons __tmp49900 __tmp49899))) - (__tmp49896 - (let ((__tmp49897 + (cons __tmp49929 __tmp49927))) + (__tmp49924 + (let ((__tmp49925 (let () (declare (not safe)) (cons _L3895_ _L3891_)))) (declare (not safe)) - (cons __tmp49897 '())))) + (cons __tmp49925 '())))) (declare (not safe)) - (cons __tmp49898 __tmp49896)))) + (cons __tmp49926 __tmp49924)))) (declare (not safe)) - (cons _L3894_ __tmp49895)))) + (cons _L3894_ __tmp49923)))) (declare (not safe)) - (cons __tmp49901 __tmp49894))))) + (cons __tmp49930 __tmp49922))))) (let* ((___match4484344844_ (lambda (_e38033831_ _hd38023835_ @@ -2834,7 +2865,7 @@ (##car _e37474131_)))) (if (gx#identifier? _hd37464135_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:1>[1]#_g49903_| + |gerbil/core$<sugar>$<sugar:1>[1]#_g49932_| _hd37464135_) (if (gx#stx-pair/null? _tl37454138_) @@ -2885,7 +2916,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:1>[1]#_g49902_| + |gerbil/core$<sugar>$<sugar:1>[1]#_g49931_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ @@ -3094,7 +3125,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:1>[1]#_g49902_| + |gerbil/core$<sugar>$<sugar:1>[1]#_g49931_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ (gx#syntax-e _tl37913969_))) @@ -3310,31 +3341,31 @@ (declare (not safe)) (##cdr _e42394271_)))) (if (gx#stx-pair/null? _tl42374278_) - (let ((_g49904_ + (let ((_g49933_ (gx#syntax-split-splice _tl42374278_ '0))) (begin - (let ((_g49905_ + (let ((_g49934_ (let () (declare (not safe)) - (if (##values? _g49904_) + (if (##values? _g49933_) (##vector-length - _g49904_) + _g49933_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49905_ 2))) + (##fx= _g49934_ 2))) (error "Context expects 2 values" - _g49905_))) + _g49934_))) (let ((_target42404281_ (let () (declare (not safe)) - (##vector-ref _g49904_ 0))) + (##vector-ref _g49933_ 0))) (_tl42424284_ (let () (declare (not safe)) - (##vector-ref _g49904_ 1)))) + (##vector-ref _g49933_ 1)))) (if (gx#stx-null? _tl42424284_) (letrec ((_loop42434287_ (lambda (_hd42414291_ @@ -3357,37 +3388,38 @@ (cons _lp-hd42454301_ _expr42474294_))))) (let ((_expr42484307_ (reverse _expr42474294_))) ((lambda (_L4311_ _L4313_) - (let ((__tmp49912 (gx#datum->syntax '#f 'if)) - (__tmp49906 - (let ((__tmp49907 - (let ((__tmp49909 - (let ((__tmp49911 + (let ((__tmp49942 (gx#datum->syntax '#f 'if)) + (__tmp49935 + (let ((__tmp49936 + (let ((__tmp49938 + (let ((__tmp49941 (gx#datum->syntax '#f 'begin)) - (__tmp49910 - (foldr (lambda (_g43304333_ + (__tmp49939 + (let ((__tmp49940 + (lambda (_g43304333_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g43314336_) (let () (declare (not safe)) - (cons _g43304333_ _g43314336_))) - '() - _L4311_))) + (cons _g43304333_ _g43314336_))))) + (declare (not safe)) + (foldr1 __tmp49940 '() _L4311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49911 - __tmp49910))) - (__tmp49908 + (cons __tmp49941 + __tmp49939))) + (__tmp49937 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp49909 __tmp49908)))) + (cons __tmp49938 __tmp49937)))) (declare (not safe)) - (cons _L4313_ __tmp49907)))) + (cons _L4313_ __tmp49936)))) (declare (not safe)) - (cons __tmp49912 __tmp49906))) + (cons __tmp49942 __tmp49935))) _expr42484307_ _hd42384275_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3430,31 +3462,31 @@ (declare (not safe)) (##cdr _e43574389_)))) (if (gx#stx-pair/null? _tl43554396_) - (let ((_g49913_ + (let ((_g49943_ (gx#syntax-split-splice _tl43554396_ '0))) (begin - (let ((_g49914_ + (let ((_g49944_ (let () (declare (not safe)) - (if (##values? _g49913_) + (if (##values? _g49943_) (##vector-length - _g49913_) + _g49943_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49914_ 2))) + (##fx= _g49944_ 2))) (error "Context expects 2 values" - _g49914_))) + _g49944_))) (let ((_target43584399_ (let () (declare (not safe)) - (##vector-ref _g49913_ 0))) + (##vector-ref _g49943_ 0))) (_tl43604402_ (let () (declare (not safe)) - (##vector-ref _g49913_ 1)))) + (##vector-ref _g49943_ 1)))) (if (gx#stx-null? _tl43604402_) (letrec ((_loop43614405_ (lambda (_hd43594409_ @@ -3477,34 +3509,35 @@ (cons _lp-hd43634419_ _expr43654412_))))) (let ((_expr43664425_ (reverse _expr43654412_))) ((lambda (_L4429_ _L4431_) - (let ((__tmp49921 (gx#datum->syntax '#f 'if)) - (__tmp49915 - (let ((__tmp49916 - (let ((__tmp49917 - (let ((__tmp49918 - (let ((__tmp49920 + (let ((__tmp49952 (gx#datum->syntax '#f 'if)) + (__tmp49945 + (let ((__tmp49946 + (let ((__tmp49947 + (let ((__tmp49948 + (let ((__tmp49951 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin)) - (__tmp49919 - (foldr (lambda (_g44484451_ _g44494454_) + (__tmp49949 + (let ((__tmp49950 + (lambda (_g44484451_ _g44494454_) (let () (declare (not safe)) - (cons _g44484451_ _g44494454_))) - '() - _L4429_))) + (cons _g44484451_ _g44494454_))))) + (declare (not safe)) + (foldr1 __tmp49950 '() _L4429_)))) (declare (not safe)) - (cons __tmp49920 __tmp49919)))) + (cons __tmp49951 __tmp49949)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49918 '())))) + (cons __tmp49948 '())))) (declare (not safe)) - (cons '#!void __tmp49917)))) + (cons '#!void __tmp49947)))) (declare (not safe)) - (cons _L4431_ __tmp49916)))) + (cons _L4431_ __tmp49946)))) (declare (not safe)) - (cons __tmp49921 __tmp49915))) + (cons __tmp49952 __tmp49945))) _expr43664425_ _hd43564393_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3547,31 +3580,31 @@ (declare (not safe)) (##cdr _e44744506_)))) (if (gx#stx-pair/null? _tl44724513_) - (let ((_g49922_ + (let ((_g49953_ (gx#syntax-split-splice _tl44724513_ '0))) (begin - (let ((_g49923_ + (let ((_g49954_ (let () (declare (not safe)) - (if (##values? _g49922_) + (if (##values? _g49953_) (##vector-length - _g49922_) + _g49953_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49923_ 2))) + (##fx= _g49954_ 2))) (error "Context expects 2 values" - _g49923_))) + _g49954_))) (let ((_target44754516_ (let () (declare (not safe)) - (##vector-ref _g49922_ 0))) + (##vector-ref _g49953_ 0))) (_tl44774519_ (let () (declare (not safe)) - (##vector-ref _g49922_ 1)))) + (##vector-ref _g49953_ 1)))) (if (gx#stx-null? _tl44774519_) (letrec ((_loop44784522_ (lambda (_hd44764526_ @@ -3600,14 +3633,15 @@ (gx#stx-e _L4548_) _stx4462_ (gx#syntax->list - (foldr (lambda (_g45654568_ + (let ((__tmp49955 + (lambda (_g45654568_ _g45664571_) (let () (declare (not safe)) (cons _g45654568_ - _g45664571_))) - '() - _L4546_))) + _g45664571_))))) + (declare (not safe)) + (foldr1 __tmp49955 '() _L4546_)))) (_g44654489_ _g44664493_))) _detail44834542_ _hd44734510_)))))) @@ -3663,52 +3697,52 @@ (##cdr _e45954628_)))) (if (gx#stx-null? _tl45934635_) ((lambda (_L4638_ _L4640_) - (let ((__tmp49937 + (let ((__tmp49969 (gx#datum->syntax '#f 'begin)) - (__tmp49924 - (let ((__tmp49933 - (let ((__tmp49936 + (__tmp49956 + (let ((__tmp49965 + (let ((__tmp49968 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp49934 - (let ((__tmp49935 + (__tmp49966 + (let ((__tmp49967 (let () (declare (not safe)) (cons _L4638_ '())))) (declare (not safe)) - (cons _L4640_ __tmp49935)))) + (cons _L4640_ __tmp49967)))) (declare (not safe)) - (cons __tmp49936 __tmp49934))) - (__tmp49925 - (let ((__tmp49929 - (let ((__tmp49932 (gx#datum->syntax '#f 'set!)) - (__tmp49930 - (let ((__tmp49931 + (cons __tmp49968 __tmp49966))) + (__tmp49957 + (let ((__tmp49961 + (let ((__tmp49964 (gx#datum->syntax '#f 'set!)) + (__tmp49962 + (let ((__tmp49963 (let () (declare (not safe)) (cons _L4640_ '())))) (declare (not safe)) - (cons _L4640_ __tmp49931)))) + (cons _L4640_ __tmp49963)))) (declare (not safe)) - (cons __tmp49932 __tmp49930))) - (__tmp49926 - (let ((__tmp49927 - (let ((__tmp49928 + (cons __tmp49964 __tmp49962))) + (__tmp49958 + (let ((__tmp49959 + (let ((__tmp49960 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp49928 '())))) + (cons __tmp49960 '())))) (declare (not safe)) - (cons __tmp49927 '())))) + (cons __tmp49959 '())))) (declare (not safe)) - (cons __tmp49929 __tmp49926)))) + (cons __tmp49961 __tmp49958)))) (declare (not safe)) - (cons __tmp49933 __tmp49925)))) + (cons __tmp49965 __tmp49957)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49937 - __tmp49924))) + (cons __tmp49969 + __tmp49956))) _hd45944632_ _hd45914622_) (_g45834601_ _g45844605_)))) diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index 5046337d..996a6ab4 100644 --- a/src/bootstrap/gerbil/core__4.scm +++ b/src/bootstrap/gerbil/core__4.scm @@ -1,101 +1,101 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50128_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50194_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50129_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50195_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50130_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50196_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52896_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51026_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52899_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51029_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52900_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51030_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52961_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51103_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52962_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51104_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52963_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51106_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52964_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51107_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53008_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51152_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53009_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51153_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53010_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51154_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53011_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51155_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53022_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51167_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53023_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51168_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$<sugar>$<sugar:2>[:0:]#lambda| @@ -233,24 +233,24 @@ (_lp7768_ _L7817_ _pre7773_ - (let ((__tmp49938 - (let ((__tmp49939 + (let ((__tmp49970 + (let ((__tmp49971 (_generate-bind4670_ _L7890_))) (declare (not safe)) - (cons __tmp49939 + (cons __tmp49971 _L7888_)))) (declare (not safe)) - (cons __tmp49938 _opt7774_))))) + (cons __tmp49970 _opt7774_))))) (___kont4489144892_ (lambda () (_lp7768_ _L7817_ - (let ((__tmp49940 + (let ((__tmp49972 (_generate-bind4670_ _L7819_))) (declare (not safe)) - (cons __tmp49940 _pre7773_)) + (cons __tmp49972 _pre7773_)) _opt7774_)))) (if (gx#stx-pair? ___stx4488644887_) (let ((_e78417868_ @@ -540,12 +540,15 @@ (let ((___kont4505145052_ (lambda (_L7330_ _L7332_ _L7333_) (let ((_key7347_ (gx#stx-e _L7333_))) - (if (find (lambda (_kwarg7350_) - (let ((__tmp49946 - (car _kwarg7350_))) - (declare (not safe)) - (eq? _key7347_ __tmp49946))) - _kwargs7175_) + (if (let ((__tmp49978 + (lambda (_kwarg7350_) + (let ((__tmp49979 + (car _kwarg7350_))) + (declare (not safe)) + (eq? _key7347_ + __tmp49979))))) + (declare (not safe)) + (find __tmp49978 _kwargs7175_)) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" @@ -564,7 +567,7 @@ (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp49941 + (let ((__tmp49973 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -572,7 +575,7 @@ _L7407_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49941 + (cons __tmp49973 _kwargs7175_)) _args7176_))) (___kont4502945030_ @@ -580,25 +583,25 @@ (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp49942 + (let ((__tmp49974 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L7332_) - (let ((__tmp49945 (gx#datum->syntax '#f 'error)) - (__tmp49943 - (let ((__tmp49944 + (let ((__tmp49977 (gx#datum->syntax '#f 'error)) + (__tmp49975 + (let ((__tmp49976 (let () (declare (not safe)) (cons _L7333_ '())))) (declare (not safe)) (cons '"Missing required keyword argument" - __tmp49944)))) + __tmp49976)))) (declare (not safe)) - (cons __tmp49945 __tmp49943))))) + (cons __tmp49977 __tmp49975))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49942 + (cons __tmp49974 _kwargs7175_)) _args7176_)))) (if (gx#stx-pair? ___stx4502445025_) @@ -658,7 +661,11 @@ (lambda () (values _kwvar7174_ (reverse _kwargs7175_) - (foldl cons _rest7172_ _args7176_))))) + (let () + (declare (not safe)) + (foldl1 cons + _rest7172_ + _args7176_)))))) (let ((___match4507145072_ (lambda (_e71887310_ _hd71877314_ @@ -870,10 +877,10 @@ (_g69917003_ _g69927007_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g69907105_ _L6914_)) - (if (let ((__tmp49947 + (if (let ((__tmp49980 (gx#stx-e _L6916_))) (declare (not safe)) - (eq? __tmp49947 '#!key)) + (eq? __tmp49980 '#!key)) (let* ((_g71097121_ (lambda (_g71107117_) (gx#raise-syntax-error @@ -952,34 +959,34 @@ (declare (not safe)) (##cdr _e66666706_)))) (if (gx#stx-pair/null? _hd66656710_) - (let ((_g49948_ + (let ((_g49981_ (gx#syntax-split-splice _hd66656710_ '0))) (begin - (let ((_g49949_ + (let ((_g49982_ (let () (declare (not safe)) - (if (##values? _g49948_) + (if (##values? _g49981_) (##vector-length - _g49948_) + _g49981_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49949_ 2))) + (##fx= _g49982_ 2))) (error "Context expects 2 values" - _g49949_))) + _g49982_))) (let ((_target66676716_ (let () (declare (not safe)) (##vector-ref - _g49948_ + _g49981_ 0))) (_tl66696719_ (let () (declare (not safe)) (##vector-ref - _g49948_ + _g49981_ 1)))) (if (gx#stx-null? _tl66696719_) (letrec ((_loop66706722_ @@ -1014,34 +1021,34 @@ (declare (not safe)) (##cdr _e66786746_)))) (if (gx#stx-pair/null? _hd66776750_) - (let ((_g49950_ + (let ((_g49983_ (gx#syntax-split-splice _hd66776750_ '0))) (begin - (let ((_g49951_ + (let ((_g49984_ (let () (declare (not safe)) - (if (##values? _g49950_) + (if (##values? _g49983_) (##vector-length - _g49950_) + _g49983_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49951_ 2))) + (##fx= _g49984_ 2))) (error "Context expects 2 values" - _g49951_))) + _g49984_))) (let ((_target66796756_ (let () (declare (not safe)) (##vector-ref - _g49950_ + _g49983_ 0))) (_tl66816759_ (let () (declare (not safe)) (##vector-ref - _g49950_ + _g49983_ 1)))) (if (gx#stx-null? _tl66816759_) (letrec ((_loop66826762_ @@ -1092,28 +1099,33 @@ _L6809_ _L6810_) (let () - (let ((__tmp49954 + (let ((__tmp49990 (gx#datum->syntax '#f 'lambda%)) - (__tmp49952 - (let ((__tmp49953 + (__tmp49985 + (let ((__tmp49986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g68396844_ _g68406847_) + (let ((__tmp49989 + (lambda (_g68396844_ _g68406847_) (let () (declare (not safe)) - (cons _g68396844_ _g68406847_))) - (foldr (lambda (_g68416850_ _g68426853_) + (cons _g68396844_ _g68406847_)))) + (__tmp49987 + (let ((__tmp49988 + (lambda (_g68416850_ _g68426853_) (let () (declare (not safe)) - (cons _g68416850_ _g68426853_))) - _L6808_ - _L6809_) - _L6810_))) + (cons _g68416850_ + _g68426853_))))) + (declare (not safe)) + (foldr1 __tmp49988 _L6808_ _L6809_)))) + (declare (not safe)) + (foldr1 __tmp49989 __tmp49987 _L6810_)))) (declare (not safe)) - (cons __tmp49953 _L6806_)))) + (cons __tmp49986 _L6806_)))) (declare (not safe)) - (cons __tmp49954 __tmp49952)))) + (cons __tmp49990 __tmp49985)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd66926800_ _hd66896790_ @@ -1141,20 +1153,20 @@ _body6656_))))) (_generate-opt-dispatch4673_ (lambda (_primary6646_ _pre6648_ _opt6649_ _tail6650_) - (let ((__tmp49956 + (let ((__tmp49992 (list _pre6648_ (_generate-opt-clause4675_ _primary6646_ _pre6648_ _opt6649_))) - (__tmp49955 + (__tmp49991 (_generate-opt-dispatch*4674_ _primary6646_ _pre6648_ _opt6649_ _tail6650_))) (declare (not safe)) - (cons __tmp49956 __tmp49955)))) + (cons __tmp49992 __tmp49991)))) (_generate-opt-dispatch*4674_ (lambda (_primary6203_ _pre6205_ _opt6206_ _tail6207_) (let _recur6209_ ((_opt-rest6212_ _opt6206_) @@ -1175,34 +1187,34 @@ (_g62246425_ (lambda (_g62266246_) (if (gx#stx-pair/null? _g62266246_) - (let ((_g49964_ + (let ((_g50007_ (gx#syntax-split-splice _g62266246_ '0))) (begin - (let ((_g49965_ + (let ((_g50008_ (let () (declare (not safe)) - (if (##values? _g49964_) + (if (##values? _g50007_) (##vector-length - _g49964_) + _g50007_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49965_ 2))) + (##fx= _g50008_ 2))) (error "Context expects 2 values" - _g49965_))) + _g50008_))) (let ((_target62286249_ (let () (declare (not safe)) (##vector-ref - _g49964_ + _g50007_ 0))) (_tl62306252_ (let () (declare (not safe)) (##vector-ref - _g49964_ + _g50007_ 1)))) (if (gx#stx-null? _tl62306252_) (letrec ((_loop62316255_ @@ -1237,41 +1249,41 @@ (_g62996421_ (lambda (_g63016321_) (if (gx#stx-pair/null? _g63016321_) - (let ((_g49966_ + (let ((_g50009_ (gx#syntax-split-splice _g63016321_ '0))) (begin - (let ((_g49967_ + (let ((_g50010_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49966_) - (##vector-length _g49966_) + _g50009_) + (##vector-length _g50009_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g49967_ 2))) - (error "Context expects 2 values" _g49967_))) + (##fx= _g50010_ 2))) + (error "Context expects 2 values" _g50010_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target63036324_ (let () (declare (not safe)) (##vector-ref - _g49966_ + _g50009_ 0))) (_tl63056327_ (let () (declare (not safe)) (##vector-ref - _g49966_ + _g50009_ 1)))) (if (gx#stx-null? _tl63056327_) @@ -1310,30 +1322,39 @@ ((lambda (_L6386_) (let () (let () - (let ((__tmp49969 - (list (foldr (lambda (_g64006405_ + (let ((__tmp50012 + (list (let ((__tmp50016 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g64016408_) + (lambda (_g64006405_ _g64016408_) (let () (declare (not safe)) - (cons _g64006405_ _g64016408_))) - (foldr (lambda (_g64026411_ _g64036414_) + (cons _g64006405_ _g64016408_)))) + (__tmp50013 + (let ((__tmp50015 + (lambda (_g64026411_ _g64036414_) (let () (declare (not safe)) (cons _g64026411_ - _g64036414_))) + _g64036414_)))) + (__tmp50014 (let () (declare (not safe)) - (cons _L6386_ '())) - _L6354_) - _L6279_) + (cons _L6386_ '())))) + (declare (not safe)) + (foldr1 __tmp50015 + __tmp50014 + _L6354_)))) + (declare (not safe)) + (foldr1 __tmp50016 __tmp50013 _L6279_)) (_generate-opt-clause4675_ _primary6203_ - (foldr cons (reverse _right*6222_) _pre6205_) + (let ((__tmp50017 (reverse _right*6222_))) + (declare (not safe)) + (foldr1 cons __tmp50017 _pre6205_)) _rest6219_))) - (__tmp49968 (_recur6209_ _rest6219_ _right*6222_))) + (__tmp50011 (_recur6209_ _rest6219_ _right*6222_))) (declare (not safe)) - (cons __tmp49969 __tmp49968))))) + (cons __tmp50012 __tmp50011))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g63726383_)))) (_g63706417_ _hd6216_)))) @@ -1374,26 +1395,26 @@ (##cdr _e64376477_)))) (if (gx#stx-pair/null? _hd64366481_) - (let ((_g49957_ + (let ((_g49993_ (gx#syntax-split-splice _hd64366481_ '0))) (begin - (let ((_g49958_ + (let ((_g49994_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g49957_) - (##vector-length _g49957_) + (if (##values? _g49993_) + (##vector-length _g49993_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49958_ 2))) - (error "Context expects 2 values" _g49958_))) + (if (not (let () (declare (not safe)) (##fx= _g49994_ 2))) + (error "Context expects 2 values" _g49994_))) (let ((_target64386487_ - (let () (declare (not safe)) (##vector-ref _g49957_ 0))) + (let () (declare (not safe)) (##vector-ref _g49993_ 0))) (_tl64406490_ (let () (declare (not safe)) - (##vector-ref _g49957_ 1)))) + (##vector-ref _g49993_ 1)))) (if (gx#stx-null? _tl64406490_) (letrec ((_loop64416493_ (lambda (_hd64396497_ _pre64456500_) @@ -1429,26 +1450,26 @@ (##cdr _e64496517_)))) (if (gx#stx-pair/null? _hd64486521_) - (let ((_g49959_ + (let ((_g49995_ (gx#syntax-split-splice _hd64486521_ '0))) (begin - (let ((_g49960_ + (let ((_g49996_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g49959_) - (##vector-length _g49959_) + (if (##values? _g49995_) + (##vector-length _g49995_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49960_ 2))) - (error "Context expects 2 values" _g49960_))) + (if (not (let () (declare (not safe)) (##fx= _g49996_ 2))) + (error "Context expects 2 values" _g49996_))) (let ((_target64506527_ - (let () (declare (not safe)) (##vector-ref _g49959_ 0))) + (let () (declare (not safe)) (##vector-ref _g49995_ 0))) (_tl64526530_ (let () (declare (not safe)) - (##vector-ref _g49959_ 1)))) + (##vector-ref _g49995_ 1)))) (if (gx#stx-null? _tl64526530_) (letrec ((_loop64536533_ (lambda (_hd64516537_ _opt64576540_) @@ -1497,43 +1518,55 @@ (if (gx#stx-null? _tl64626574_) ((lambda (_L6577_ _L6579_ _L6580_ _L6581_) (let () - (list (list (foldr (lambda (_g66096614_ _g66106617_) + (list (list (let ((__tmp49999 + (lambda (_g66096614_ _g66106617_) (let () (declare (not safe)) (cons _g66096614_ - _g66106617_))) - (foldr (lambda (_g66116620_ + _g66106617_)))) + (__tmp49997 + (let ((__tmp49998 + (lambda (_g66116620_ _g66126623_) (let () (declare (not safe)) (cons _g66116620_ - _g66126623_))) - _L6579_ - _L6580_) - _L6581_) + _g66126623_))))) + (declare (not safe)) + (foldr1 __tmp49998 + _L6579_ + _L6580_)))) + (declare (not safe)) + (foldr1 __tmp49999 __tmp49997 _L6581_)) (gx#stx-wrap-source - (let ((__tmp49963 + (let ((__tmp50006 (gx#datum->syntax '#f 'apply)) - (__tmp49961 - (let ((__tmp49962 - (foldr (lambda (_g66256630_ + (__tmp50000 + (let ((__tmp50001 + (let ((__tmp50005 + (lambda (_g66256630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g66266633_) (let () (declare (not safe)) - (cons _g66256630_ _g66266633_))) - (foldr (lambda (_g66276636_ _g66286639_) + (cons _g66256630_ _g66266633_)))) + (__tmp50002 + (let ((__tmp50004 + (lambda (_g66276636_ _g66286639_) (let () (declare (not safe)) - (cons _g66276636_ _g66286639_))) - (let () (declare (not safe)) (cons _L6579_ '())) - _L6580_) - _L6581_))) + (cons _g66276636_ _g66286639_)))) + (__tmp50003 + (let () (declare (not safe)) (cons _L6579_ '())))) + (declare (not safe)) + (foldr1 __tmp50004 __tmp50003 _L6580_)))) + (declare (not safe)) + (foldr1 __tmp50005 __tmp50002 _L6581_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L6577_ __tmp49962)))) + (cons _L6577_ __tmp50001)))) (declare (not safe)) - (cons __tmp49963 __tmp49961)) + (cons __tmp50006 __tmp50000)) (gx#stx-source _stx4661_)))))) _hd64636571_ _hd64606561_ @@ -1600,32 +1633,32 @@ ((lambda (_L5993_) (let () (let () - (let ((__tmp49981 + (let ((__tmp50032 (gx#datum->syntax '#f 'let-values)) - (__tmp49975 - (let ((__tmp49977 - (let ((__tmp49978 - (let ((__tmp49980 + (__tmp50026 + (let ((__tmp50028 + (let ((__tmp50029 + (let ((__tmp50031 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L5934_ '()))) - (__tmp49979 + (__tmp50030 (let () (declare (not safe)) (cons _L5965_ '())))) (declare (not safe)) - (cons __tmp49980 __tmp49979)))) + (cons __tmp50031 __tmp50030)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49978 '()))) - (__tmp49976 + (cons __tmp50029 '()))) + (__tmp50027 (let () (declare (not safe)) (cons _L5993_ '())))) (declare (not safe)) - (cons __tmp49977 __tmp49976)))) + (cons __tmp50028 __tmp50027)))) (declare (not safe)) - (cons __tmp49981 __tmp49975))))) + (cons __tmp50032 __tmp50026))))) _g59795990_)))) (_g59776008_ (_recur5906_ @@ -1659,36 +1692,36 @@ (##cdr _e60276064_)))) (if (gx#stx-pair/null? _hd60266068_) - (let ((_g49970_ + (let ((_g50018_ (gx#syntax-split-splice _hd60266068_ '0))) (begin - (let ((_g49971_ + (let ((_g50019_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49970_) - (##vector-length _g49970_) + _g50018_) + (##vector-length _g50018_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49971_ 2))) - (error "Context expects 2 values" _g49971_))) + (if (not (let () (declare (not safe)) (##fx= _g50019_ 2))) + (error "Context expects 2 values" _g50019_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60286074_ (let () (declare (not safe)) (##vector-ref - _g49970_ + _g50018_ 0))) (_tl60306077_ (let () (declare (not safe)) (##vector-ref - _g49970_ + _g50018_ 1)))) (if (gx#stx-null? _tl60306077_) @@ -1727,36 +1760,36 @@ (##cdr _e60396104_)))) (if (gx#stx-pair/null? _hd60386108_) - (let ((_g49972_ + (let ((_g50020_ (gx#syntax-split-splice _hd60386108_ '0))) (begin - (let ((_g49973_ + (let ((_g50021_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49972_) - (##vector-length _g49972_) + _g50020_) + (##vector-length _g50020_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49973_ 2))) - (error "Context expects 2 values" _g49973_))) + (if (not (let () (declare (not safe)) (##fx= _g50021_ 2))) + (error "Context expects 2 values" _g50021_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60406114_ (let () (declare (not safe)) (##vector-ref - _g49972_ + _g50020_ 0))) (_tl60426117_ (let () (declare (not safe)) (##vector-ref - _g49972_ + _g50020_ 1)))) (if (gx#stx-null? _tl60426117_) @@ -1799,22 +1832,25 @@ _L6157_) (let () (gx#stx-wrap-source - (let ((__tmp49974 - (foldr (lambda (_g61826187_ + (let ((__tmp50022 + (let ((__tmp50025 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g61836190_) + (lambda (_g61826187_ _g61836190_) (let () (declare (not safe)) - (cons _g61826187_ _g61836190_))) - (foldr (lambda (_g61846193_ _g61856196_) + (cons _g61826187_ _g61836190_)))) + (__tmp50023 + (let ((__tmp50024 + (lambda (_g61846193_ _g61856196_) (let () (declare (not safe)) - (cons _g61846193_ _g61856196_))) - '() - _L6156_) - _L6157_))) + (cons _g61846193_ _g61856196_))))) + (declare (not safe)) + (foldr1 __tmp50024 '() _L6156_)))) + (declare (not safe)) + (foldr1 __tmp50025 __tmp50023 _L6157_)))) (declare (not safe)) - (cons _L6154_ __tmp49974)) + (cons _L6154_ __tmp50022)) (gx#stx-source _stx4661_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd60506148_ @@ -1906,62 +1942,62 @@ _L5867_ _L5868_) (let () - (let ((__tmp49998 + (let ((__tmp50049 (gx#datum->syntax '#f 'let-values)) - (__tmp49982 - (let ((__tmp49984 - (let ((__tmp49985 + (__tmp50033 + (let ((__tmp50035 + (let ((__tmp50036 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49997 + (let ((__tmp50048 (let () (declare (not safe)) (cons _L5868_ '()))) - (__tmp49986 - (let ((__tmp49987 - (let ((__tmp49996 + (__tmp50037 + (let ((__tmp50038 + (let ((__tmp50047 (gx#datum->syntax '#f 'if)) - (__tmp49988 - (let ((__tmp49991 - (let ((__tmp49995 + (__tmp50039 + (let ((__tmp50042 + (let ((__tmp50046 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'eq?)) - (__tmp49992 - (let ((__tmp49993 - (let ((__tmp49994 + (__tmp50043 + (let ((__tmp50044 + (let ((__tmp50045 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp49994 '())))) + (cons __tmp50045 '())))) (declare (not safe)) - (cons _L5867_ __tmp49993)))) + (cons _L5867_ __tmp50044)))) (declare (not safe)) - (cons __tmp49995 __tmp49992))) - (__tmp49989 - (let ((__tmp49990 + (cons __tmp50046 __tmp50043))) + (__tmp50040 + (let ((__tmp50041 (let () (declare (not safe)) (cons _L5867_ '())))) (declare (not safe)) - (cons _L5866_ __tmp49990)))) + (cons _L5866_ __tmp50041)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49991 - __tmp49989)))) + (cons __tmp50042 + __tmp50040)))) (declare (not safe)) - (cons __tmp49996 __tmp49988)))) + (cons __tmp50047 __tmp50039)))) (declare (not safe)) - (cons __tmp49987 '())))) + (cons __tmp50038 '())))) (declare (not safe)) - (cons __tmp49997 __tmp49986)))) + (cons __tmp50048 __tmp50037)))) (declare (not safe)) - (cons __tmp49985 '()))) - (__tmp49983 + (cons __tmp50036 '()))) + (__tmp50034 (let () (declare (not safe)) (cons _L5864_ '())))) (declare (not safe)) - (cons __tmp49984 __tmp49983)))) + (cons __tmp50035 __tmp50034)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49998 - __tmp49982)))) + (cons __tmp50049 + __tmp50033)))) _hd58105858_ _hd58075848_ _hd58045838_ @@ -2005,28 +2041,28 @@ (lambda (_g56065626_) (if (gx#stx-pair/null? _g56065626_) - (let ((_g49999_ + (let ((_g50050_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g56065626_ '0))) (begin - (let ((_g50000_ + (let ((_g50051_ (let () (declare (not safe)) - (if (##values? _g49999_) - (##vector-length _g49999_) + (if (##values? _g50050_) + (##vector-length _g50050_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50000_ 2))) - (error "Context expects 2 values" _g50000_))) + (##fx= _g50051_ 2))) + (error "Context expects 2 values" _g50051_))) (let ((_target56085629_ (let () (declare (not safe)) - (##vector-ref _g49999_ 0))) + (##vector-ref _g50050_ 0))) (_tl56105632_ (let () (declare (not safe)) - (##vector-ref _g49999_ 1)))) + (##vector-ref _g50050_ 1)))) (if (gx#stx-null? _tl56105632_) (letrec ((_loop56115635_ (lambda (_hd56095639_ _kwval56155642_) @@ -2075,40 +2111,42 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp50005 + (let ((__tmp50057 (gx#datum->syntax '#f 'lambda)) - (__tmp50001 - (let ((__tmp50003 - (let ((__tmp50004 + (__tmp50052 + (let ((__tmp50054 + (let ((__tmp50055 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g57335736_ _g57345739_) + (let ((__tmp50056 + (lambda (_g57335736_ _g57345739_) (let () (declare (not safe)) - (cons _g57335736_ _g57345739_))) - _L5691_ - _L5659_))) + (cons _g57335736_ _g57345739_))))) + (declare (not safe)) + (foldr1 __tmp50056 _L5691_ _L5659_)))) (declare (not safe)) - (cons _L5593_ __tmp50004))) - (__tmp50002 + (cons _L5593_ __tmp50055))) + (__tmp50053 (let () (declare (not safe)) (cons _L5719_ '())))) (declare (not safe)) - (cons __tmp50003 __tmp50002)))) + (cons __tmp50054 __tmp50053)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50005 __tmp50001)) + (cons __tmp50057 __tmp50052)) (gx#stx-source _stx4661_))))) _g57055716_)))) (_g57035742_ (_make-body5283_ _kwargs5279_ - (foldr (lambda (_g57455748_ _g57465751_) + (let ((__tmp50058 + (lambda (_g57455748_ _g57465751_) (let () (declare (not safe)) - (cons _g57455748_ _g57465751_))) - '() - _L5659_)))))) + (cons _g57455748_ _g57465751_))))) + (declare (not safe)) + (foldr1 __tmp50058 '() _L5659_))))))) _g56775688_)))) (_g56755754_ _args5280_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2146,28 +2184,28 @@ (lambda (_g54175437_) (if (gx#stx-pair/null? _g54175437_) - (let ((_g50006_ + (let ((_g50059_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g54175437_ '0))) (begin - (let ((_g50007_ + (let ((_g50060_ (let () (declare (not safe)) - (if (##values? _g50006_) - (##vector-length _g50006_) + (if (##values? _g50059_) + (##vector-length _g50059_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50007_ 2))) - (error "Context expects 2 values" _g50007_))) + (##fx= _g50060_ 2))) + (error "Context expects 2 values" _g50060_))) (let ((_target54195440_ (let () (declare (not safe)) - (##vector-ref _g50006_ 0))) + (##vector-ref _g50059_ 0))) (_tl54215443_ (let () (declare (not safe)) - (##vector-ref _g50006_ 1)))) + (##vector-ref _g50059_ 1)))) (if (gx#stx-null? _tl54215443_) (letrec ((_loop54225446_ (lambda (_hd54205450_ @@ -2207,48 +2245,51 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp50018 + (let ((__tmp50073 (gx#datum->syntax '#f 'lambda)) - (__tmp50008 - (let ((__tmp50016 - (let ((__tmp50017 + (__tmp50061 + (let ((__tmp50071 + (let ((__tmp50072 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons _L5404_ __tmp50017))) - (__tmp50009 - (let ((__tmp50010 - (let ((__tmp50015 + (cons _L5404_ __tmp50072))) + (__tmp50062 + (let ((__tmp50063 + (let ((__tmp50070 (gx#datum->syntax '#f 'apply)) - (__tmp50011 - (let ((__tmp50012 + (__tmp50064 + (let ((__tmp50065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50013 - (foldr (lambda (_g55165519_ _g55175522_) + (let ((__tmp50066 + (let ((__tmp50069 + (lambda (_g55165519_ _g55175522_) (let () (declare (not safe)) - (cons _g55165519_ _g55175522_))) - (let ((__tmp50014 + (cons _g55165519_ _g55175522_)))) + (__tmp50067 + (let ((__tmp50068 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons __tmp50014 '())) - _L5470_))) + (cons __tmp50068 '())))) + (declare (not safe)) + (foldr1 __tmp50069 __tmp50067 _L5470_)))) (declare (not safe)) - (cons _L5404_ __tmp50013)))) + (cons _L5404_ __tmp50066)))) (declare (not safe)) - (cons _L5502_ __tmp50012)))) + (cons _L5502_ __tmp50065)))) (declare (not safe)) - (cons __tmp50015 __tmp50011)))) + (cons __tmp50070 __tmp50064)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50010 '())))) + (cons __tmp50063 '())))) (declare (not safe)) - (cons __tmp50016 __tmp50009)))) + (cons __tmp50071 __tmp50062)))) (declare (not safe)) - (cons __tmp50018 __tmp50008)) + (cons __tmp50073 __tmp50061)) (gx#stx-source _stx4661_))))) _g54885499_)))) (_g54865525_ _main5386_)))) @@ -2271,18 +2312,18 @@ (lambda (_g55375548_) ((lambda (_L5551_) (let () - (let ((__tmp50026 + (let ((__tmp50081 (gx#datum->syntax '#f 'symbolic-table-ref)) - (__tmp50019 - (let ((__tmp50020 - (let ((__tmp50023 - (let ((__tmp50025 + (__tmp50074 + (let ((__tmp50075 + (let ((__tmp50078 + (let ((__tmp50080 (gx#datum->syntax '#f 'quote)) - (__tmp50024 + (__tmp50079 (let () (declare (not safe)) @@ -2290,21 +2331,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp50025 __tmp50024))) + (cons __tmp50080 __tmp50079))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50021 - (let ((__tmp50022 + (__tmp50076 + (let ((__tmp50077 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp50022 '())))) + (cons __tmp50077 '())))) (declare (not safe)) - (cons __tmp50023 __tmp50021)))) + (cons __tmp50078 __tmp50076)))) (declare (not safe)) - (cons _L5404_ __tmp50020)))) + (cons _L5404_ __tmp50075)))) (declare (not safe)) - (cons __tmp50026 __tmp50019)))) + (cons __tmp50081 __tmp50074)))) _g55375548_)))) (_g55355564_ (car _kwarg5533_)))) _kwargs5279_))))) @@ -2347,16 +2388,16 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (let () - (let ((__tmp50033 + (let ((__tmp50088 (gx#datum->syntax '#f 'let-values)) - (__tmp50027 - (let ((__tmp50029 - (let ((__tmp50030 - (let ((__tmp50032 + (__tmp50082 + (let ((__tmp50084 + (let ((__tmp50085 + (let ((__tmp50087 (let () (declare (not safe)) (cons _L5303_ '()))) - (__tmp50031 + (__tmp50086 (let () (declare (not safe)) (cons _L5359_ @@ -2364,18 +2405,18 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50032 - __tmp50031)))) + (cons __tmp50087 + __tmp50086)))) (declare (not safe)) - (cons __tmp50030 '()))) - (__tmp50028 + (cons __tmp50085 '()))) + (__tmp50083 (let () (declare (not safe)) (cons _L5331_ '())))) (declare (not safe)) - (cons __tmp50029 __tmp50028)))) + (cons __tmp50084 __tmp50083)))) (declare (not safe)) - (cons __tmp50033 __tmp50027))))) + (cons __tmp50088 __tmp50082))))) _g53455356_)))) (_g53435374_ (_make-main5285_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2437,50 +2478,50 @@ _L5253_ _L5254_) (let () - (let ((__tmp50046 (gx#datum->syntax '#f 'lambda%)) - (__tmp50034 - (let ((__tmp50035 - (let ((__tmp50036 - (let ((__tmp50045 + (let ((__tmp50101 (gx#datum->syntax '#f 'lambda%)) + (__tmp50089 + (let ((__tmp50090 + (let ((__tmp50091 + (let ((__tmp50100 (gx#datum->syntax '#f 'apply)) - (__tmp50037 - (let ((__tmp50044 + (__tmp50092 + (let ((__tmp50099 (gx#datum->syntax '#f 'keyword-dispatch)) - (__tmp50038 - (let ((__tmp50041 + (__tmp50093 + (let ((__tmp50096 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50043 (gx#datum->syntax '#f 'quote)) - (__tmp50042 + (let ((__tmp50098 (gx#datum->syntax '#f 'quote)) + (__tmp50097 (let () (declare (not safe)) (cons _L5254_ '())))) (declare (not safe)) - (cons __tmp50043 __tmp50042))) - (__tmp50039 - (let ((__tmp50040 + (cons __tmp50098 __tmp50097))) + (__tmp50094 + (let ((__tmp50095 (let () (declare (not safe)) (cons _L5251_ '())))) (declare (not safe)) - (cons _L5253_ __tmp50040)))) + (cons _L5253_ __tmp50095)))) (declare (not safe)) - (cons __tmp50041 __tmp50039)))) + (cons __tmp50096 __tmp50094)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50044 - __tmp50038)))) + (cons __tmp50099 + __tmp50093)))) (declare (not safe)) - (cons __tmp50045 __tmp50037)))) + (cons __tmp50100 __tmp50092)))) (declare (not safe)) - (cons __tmp50036 '())))) + (cons __tmp50091 '())))) (declare (not safe)) - (cons _L5251_ __tmp50035)))) + (cons _L5251_ __tmp50090)))) (declare (not safe)) - (cons __tmp50046 __tmp50034)))) + (cons __tmp50101 __tmp50089)))) _hd52075245_ _hd52045235_ _hd52015225_) @@ -2533,39 +2574,39 @@ ___stx4513845139_)))) (let ((___kont4514145142_ (lambda (_L5145_ _L5147_) - (let ((__tmp50048 (gx#datum->syntax '#f 'lambda%)) - (__tmp50047 + (let ((__tmp50103 (gx#datum->syntax '#f 'lambda%)) + (__tmp50102 (let () (declare (not safe)) (cons _L5147_ _L5145_)))) (declare (not safe)) - (cons __tmp50048 __tmp50047)))) + (cons __tmp50103 __tmp50102)))) (___kont4514345144_ (lambda (_L4917_ _L4919_) - (let ((_g50049_ (_opt-lambda-split4667_ _L4919_))) + (let ((_g50104_ (_opt-lambda-split4667_ _L4919_))) (begin - (let ((_g50050_ + (let ((_g50105_ (let () (declare (not safe)) - (if (##values? _g50049_) - (##vector-length _g50049_) + (if (##values? _g50104_) + (##vector-length _g50104_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50050_ 3))) - (error "Context expects 3 values" _g50050_))) + (##fx= _g50105_ 3))) + (error "Context expects 3 values" _g50105_))) (let ((_pre4932_ (let () (declare (not safe)) - (##vector-ref _g50049_ 0))) + (##vector-ref _g50104_ 0))) (_opt4934_ (let () (declare (not safe)) - (##vector-ref _g50049_ 1))) + (##vector-ref _g50104_ 1))) (_tail4935_ (let () (declare (not safe)) - (##vector-ref _g50049_ 2)))) + (##vector-ref _g50104_ 2)))) (let* ((_g49374945_ (lambda (_g49384941_) (gx#raise-syntax-error @@ -2596,28 +2637,28 @@ (_g49925106_ (lambda (_g49945014_) (if (gx#stx-pair/null? _g49945014_) - (let ((_g50051_ + (let ((_g50106_ (gx#syntax-split-splice _g49945014_ '0))) (begin - (let ((_g50052_ + (let ((_g50107_ (let () (declare (not safe)) - (if (##values? _g50051_) - (##vector-length _g50051_) + (if (##values? _g50106_) + (##vector-length _g50106_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50052_ 2))) + (##fx= _g50107_ 2))) (error "Context expects 2 values" - _g50052_))) + _g50107_))) (let ((_target49965017_ (let () (declare (not safe)) - (##vector-ref _g50051_ 0))) + (##vector-ref _g50106_ 0))) (_tl49985020_ (let () (declare (not safe)) - (##vector-ref _g50051_ 1)))) + (##vector-ref _g50106_ 1)))) (if (gx#stx-null? _tl49985020_) (letrec ((_loop49995023_ (lambda (_hd49975027_ @@ -2651,43 +2692,45 @@ ((lambda (_L5079_) (let () (let () - (let ((__tmp50059 + (let ((__tmp50114 (gx#datum->syntax '#f 'let-values)) - (__tmp50053 - (let ((__tmp50055 - (let ((__tmp50056 - (let ((__tmp50058 + (__tmp50108 + (let ((__tmp50110 + (let ((__tmp50111 + (let ((__tmp50113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4952_ '()))) - (__tmp50057 + (__tmp50112 (let () (declare (not safe)) (cons _L4980_ '())))) (declare (not safe)) - (cons __tmp50058 __tmp50057)))) + (cons __tmp50113 __tmp50112)))) (declare (not safe)) - (cons __tmp50056 '()))) - (__tmp50054 (let () (declare (not safe)) (cons _L5079_ '())))) + (cons __tmp50111 '()))) + (__tmp50109 (let () (declare (not safe)) (cons _L5079_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50055 - __tmp50054)))) + (cons __tmp50110 + __tmp50109)))) (declare (not safe)) - (cons __tmp50059 __tmp50053))))) + (cons __tmp50114 __tmp50108))))) _g50655076_)))) (_g50635094_ (gx#stx-wrap-source - (let ((__tmp50061 + (let ((__tmp50117 (gx#datum->syntax '#f 'case-lambda)) - (__tmp50060 - (foldr (lambda (_g50975100_ _g50985103_) + (__tmp50115 + (let ((__tmp50116 + (lambda (_g50975100_ _g50985103_) (let () (declare (not safe)) - (cons _g50975100_ _g50985103_))) - '() - _L5047_))) + (cons _g50975100_ + _g50985103_))))) + (declare (not safe)) + (foldr1 __tmp50116 '() _L5047_)))) (declare (not safe)) - (cons __tmp50061 __tmp50060)) + (cons __tmp50117 __tmp50115)) (gx#stx-source _stx4661_)))))) _clause50045043_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2726,32 +2769,32 @@ (lambda (_g47594769_) ((lambda () (let () - (let ((_g50062_ + (let ((_g50118_ (_kw-lambda-split4669_ _L4742_))) (begin - (let ((_g50063_ + (let ((_g50119_ (let () (declare (not safe)) - (if (##values? _g50062_) - (##vector-length _g50062_) + (if (##values? _g50118_) + (##vector-length _g50118_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50063_ 3))) + (##fx= _g50119_ 3))) (error "Context expects 3 values" - _g50063_))) + _g50119_))) (let ((_key4778_ (let () (declare (not safe)) - (##vector-ref _g50062_ 0))) + (##vector-ref _g50118_ 0))) (_kwargs4780_ (let () (declare (not safe)) - (##vector-ref _g50062_ 1))) + (##vector-ref _g50118_ 1))) (_args4781_ (let () (declare (not safe)) - (##vector-ref _g50062_ 2)))) + (##vector-ref _g50118_ 2)))) (let* ((_g47834791_ (lambda (_g47844787_) (gx#raise-syntax-error @@ -2784,34 +2827,34 @@ ((lambda (_L4859_) (let () (let () - (let ((__tmp50070 + (let ((__tmp50126 (gx#datum->syntax '#f 'let-values)) - (__tmp50064 - (let ((__tmp50066 - (let ((__tmp50067 + (__tmp50120 + (let ((__tmp50122 + (let ((__tmp50123 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50069 + (let ((__tmp50125 (let () (declare (not safe)) (cons _L4798_ '()))) - (__tmp50068 + (__tmp50124 (let () (declare (not safe)) (cons _L4831_ '())))) (declare (not safe)) - (cons __tmp50069 __tmp50068)))) + (cons __tmp50125 __tmp50124)))) (declare (not safe)) - (cons __tmp50067 '()))) - (__tmp50065 + (cons __tmp50123 '()))) + (__tmp50121 (let () (declare (not safe)) (cons _L4859_ '())))) (declare (not safe)) - (cons __tmp50066 __tmp50065)))) + (cons __tmp50122 __tmp50121)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50070 - __tmp50064))))) + (cons __tmp50126 + __tmp50120))))) _g48454856_)))) (_g48434874_ (gx#stx-wrap-source @@ -2921,86 +2964,88 @@ ___stx4518645187_)))) (let ((___kont4518945190_ (lambda (_L8377_ _L8379_ _L8380_ _L8381_) - (let ((__tmp50078 (gx#datum->syntax '#f 'def)) - (__tmp50071 - (let ((__tmp50077 + (let ((__tmp50135 (gx#datum->syntax '#f 'def)) + (__tmp50127 + (let ((__tmp50134 (let () (declare (not safe)) (cons _L8381_ _L8380_))) - (__tmp50072 - (let ((__tmp50073 - (let ((__tmp50076 + (__tmp50128 + (let ((__tmp50129 + (let ((__tmp50133 (gx#datum->syntax '#f 'lambda)) - (__tmp50074 - (let ((__tmp50075 - (foldr (lambda (_g84038406_ + (__tmp50130 + (let ((__tmp50131 + (let ((__tmp50132 + (lambda (_g84038406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g84048409_) (let () (declare (not safe)) - (cons _g84038406_ _g84048409_))) - '() - _L8377_))) + (cons _g84038406_ _g84048409_))))) + (declare (not safe)) + (foldr1 __tmp50132 '() _L8377_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8379_ __tmp50075)))) + (cons _L8379_ __tmp50131)))) (declare (not safe)) - (cons __tmp50076 __tmp50074)))) + (cons __tmp50133 __tmp50130)))) (declare (not safe)) - (cons __tmp50073 '())))) + (cons __tmp50129 '())))) (declare (not safe)) - (cons __tmp50077 __tmp50072)))) + (cons __tmp50134 __tmp50128)))) (declare (not safe)) - (cons __tmp50078 __tmp50071)))) + (cons __tmp50135 __tmp50127)))) (___kont4519345194_ (lambda (_L8269_ _L8271_ _L8272_) - (let ((__tmp50086 (gx#datum->syntax '#f 'define-values)) - (__tmp50079 - (let ((__tmp50085 + (let ((__tmp50144 (gx#datum->syntax '#f 'define-values)) + (__tmp50136 + (let ((__tmp50143 (let () (declare (not safe)) (cons _L8272_ '()))) - (__tmp50080 - (let ((__tmp50081 - (let ((__tmp50084 + (__tmp50137 + (let ((__tmp50138 + (let ((__tmp50142 (gx#datum->syntax '#f 'lambda)) - (__tmp50082 - (let ((__tmp50083 - (foldr (lambda (_g82918294_ + (__tmp50139 + (let ((__tmp50140 + (let ((__tmp50141 + (lambda (_g82918294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g82928297_) (let () (declare (not safe)) - (cons _g82918294_ _g82928297_))) - '() - _L8269_))) + (cons _g82918294_ _g82928297_))))) + (declare (not safe)) + (foldr1 __tmp50141 '() _L8269_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8271_ __tmp50083)))) + (cons _L8271_ __tmp50140)))) (declare (not safe)) - (cons __tmp50084 __tmp50082)))) + (cons __tmp50142 __tmp50139)))) (declare (not safe)) - (cons __tmp50081 '())))) + (cons __tmp50138 '())))) (declare (not safe)) - (cons __tmp50085 __tmp50080)))) + (cons __tmp50143 __tmp50137)))) (declare (not safe)) - (cons __tmp50086 __tmp50079)))) + (cons __tmp50144 __tmp50136)))) (___kont4519745198_ (lambda (_L8184_ _L8186_) - (let ((__tmp50090 (gx#datum->syntax '#f 'define-values)) - (__tmp50087 - (let ((__tmp50089 + (let ((__tmp50148 (gx#datum->syntax '#f 'define-values)) + (__tmp50145 + (let ((__tmp50147 (let () (declare (not safe)) (cons _L8186_ '()))) - (__tmp50088 + (__tmp50146 (let () (declare (not safe)) (cons _L8184_ '())))) (declare (not safe)) - (cons __tmp50089 __tmp50088)))) + (cons __tmp50147 __tmp50146)))) (declare (not safe)) - (cons __tmp50090 __tmp50087))))) + (cons __tmp50148 __tmp50145))))) (let* ((___match4527745278_ (lambda (_e81358154_ _hd81348158_ @@ -3418,31 +3463,31 @@ (declare (not safe)) (##cdr _e84318463_)))) (if (gx#stx-pair/null? _tl84298470_) - (let ((_g50091_ + (let ((_g50149_ (gx#syntax-split-splice _tl84298470_ '0))) (begin - (let ((_g50092_ + (let ((_g50150_ (let () (declare (not safe)) - (if (##values? _g50091_) + (if (##values? _g50149_) (##vector-length - _g50091_) + _g50149_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50092_ 2))) + (##fx= _g50150_ 2))) (error "Context expects 2 values" - _g50092_))) + _g50150_))) (let ((_target84328473_ (let () (declare (not safe)) - (##vector-ref _g50091_ 0))) + (##vector-ref _g50149_ 0))) (_tl84348476_ (let () (declare (not safe)) - (##vector-ref _g50091_ 1)))) + (##vector-ref _g50149_ 1)))) (if (gx#stx-null? _tl84348476_) (letrec ((_loop84358479_ (lambda (_hd84338483_ @@ -3466,37 +3511,37 @@ (let ((_clauses84408499_ (reverse _clauses84398486_))) ((lambda (_L8503_ _L8505_) (if (gx#identifier? _L8505_) - (let ((__tmp50099 + (let ((__tmp50158 (gx#datum->syntax '#f 'define-values)) - (__tmp50093 - (let ((__tmp50098 + (__tmp50151 + (let ((__tmp50157 (let () (declare (not safe)) (cons _L8505_ '()))) - (__tmp50094 - (let ((__tmp50095 - (let ((__tmp50097 + (__tmp50152 + (let ((__tmp50153 + (let ((__tmp50156 (gx#datum->syntax '#f 'case-lambda)) - (__tmp50096 - (foldr (lambda (_g85228525_ + (__tmp50154 + (let ((__tmp50155 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g85238528_) + (lambda (_g85228525_ _g85238528_) (let () (declare (not safe)) - (cons _g85228525_ _g85238528_))) - '() - _L8503_))) + (cons _g85228525_ _g85238528_))))) + (declare (not safe)) + (foldr1 __tmp50155 '() _L8503_)))) (declare (not safe)) - (cons __tmp50097 __tmp50096)))) + (cons __tmp50156 __tmp50154)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50095 '())))) + (cons __tmp50153 '())))) (declare (not safe)) - (cons __tmp50098 __tmp50094)))) + (cons __tmp50157 __tmp50152)))) (declare (not safe)) - (cons __tmp50099 __tmp50093)) + (cons __tmp50158 __tmp50151)) (_g84228446_ _g84238450_))) _clauses84408499_ _hd84308467_)))))) @@ -3554,18 +3599,18 @@ ((lambda (_L8595_ _L8597_) (if (gx#identifier-list? _L8597_) - (let ((__tmp50102 + (let ((__tmp50161 (gx#datum->syntax '#f 'define-values)) - (__tmp50100 - (let ((__tmp50101 + (__tmp50159 + (let ((__tmp50160 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L8595_ '())))) (declare (not safe)) - (cons _L8597_ __tmp50101)))) + (cons _L8597_ __tmp50160)))) (declare (not safe)) - (cons __tmp50102 __tmp50100)) + (cons __tmp50161 __tmp50159)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g85408558_ _g85418562_))) @@ -3607,31 +3652,31 @@ (declare (not safe)) (##cdr _e86308662_)))) (if (gx#stx-pair/null? _tl86288669_) - (let ((_g50103_ + (let ((_g50162_ (gx#syntax-split-splice _tl86288669_ '0))) (begin - (let ((_g50104_ + (let ((_g50163_ (let () (declare (not safe)) - (if (##values? _g50103_) + (if (##values? _g50162_) (##vector-length - _g50103_) + _g50162_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50104_ 2))) + (##fx= _g50163_ 2))) (error "Context expects 2 values" - _g50104_))) + _g50163_))) (let ((_target86318672_ (let () (declare (not safe)) - (##vector-ref _g50103_ 0))) + (##vector-ref _g50162_ 0))) (_tl86338675_ (let () (declare (not safe)) - (##vector-ref _g50103_ 1)))) + (##vector-ref _g50162_ 1)))) (if (gx#stx-null? _tl86338675_) (letrec ((_loop86348678_ (lambda (_hd86328682_ @@ -3654,48 +3699,49 @@ (cons _lp-hd86368692_ _clause86388685_))))) (let ((_clause86398698_ (reverse _clause86388685_))) ((lambda (_L8702_ _L8704_) - (let ((__tmp50115 (gx#datum->syntax '#f 'let)) - (__tmp50105 - (let ((__tmp50112 - (let ((__tmp50114 + (let ((__tmp50175 (gx#datum->syntax '#f 'let)) + (__tmp50164 + (let ((__tmp50172 + (let ((__tmp50174 (gx#datum->syntax '#f '$e)) - (__tmp50113 + (__tmp50173 (let () (declare (not safe)) (cons _L8704_ '())))) (declare (not safe)) - (cons __tmp50114 __tmp50113))) - (__tmp50106 - (let ((__tmp50107 - (let ((__tmp50111 + (cons __tmp50174 __tmp50173))) + (__tmp50165 + (let ((__tmp50166 + (let ((__tmp50171 (gx#datum->syntax '#f '~case)) - (__tmp50108 - (let ((__tmp50110 + (__tmp50167 + (let ((__tmp50170 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp50109 - (foldr (lambda (_g87218724_ _g87228727_) + (__tmp50168 + (let ((__tmp50169 + (lambda (_g87218724_ _g87228727_) (let () (declare (not safe)) - (cons _g87218724_ _g87228727_))) - '() - _L8702_))) + (cons _g87218724_ _g87228727_))))) + (declare (not safe)) + (foldr1 __tmp50169 '() _L8702_)))) (declare (not safe)) - (cons __tmp50110 __tmp50109)))) + (cons __tmp50170 __tmp50168)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50111 - __tmp50108)))) + (cons __tmp50171 + __tmp50167)))) (declare (not safe)) - (cons __tmp50107 '())))) + (cons __tmp50166 '())))) (declare (not safe)) - (cons __tmp50112 __tmp50106)))) + (cons __tmp50172 __tmp50165)))) (declare (not safe)) - (cons __tmp50115 __tmp50105))) + (cons __tmp50175 __tmp50164))) _clause86398698_ _hd86298666_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3748,13 +3794,13 @@ '() _datums11210_ _dispatch11211_ - (let ((__tmp50116 + (let ((__tmp50176 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L11747_ '())))) (declare (not safe)) - (cons _L11717_ __tmp50116))))) + (cons _L11717_ __tmp50176))))) _g1173311744_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1173111759_ _e11201_)) @@ -3770,23 +3816,24 @@ '() _datums11210_ _dispatch11211_ - (let ((__tmp50118 + (let ((__tmp50179 (gx#datum->syntax '#f 'begin)) - (__tmp50117 - (foldr (lambda (_g1167111674_ + (__tmp50177 + (let ((__tmp50178 + (lambda (_g1167111674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1167211677_) (let () (declare (not safe)) - (cons _g1167111674_ _g1167211677_))) - '() - _L11657_))) + (cons _g1167111674_ _g1167211677_))))) + (declare (not safe)) + (foldr1 __tmp50178 '() _L11657_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50118 - __tmp50117))) + (cons __tmp50179 + __tmp50177))) (gx#raise-syntax-error '#f '"Misplaced else clause" @@ -3794,18 +3841,19 @@ _L11261_)))) (___kont4528945290_ (lambda (_L11542_ _L11544_) - (if (let ((__tmp50122 - (foldr (lambda (_g1156211565_ + (if (let ((__tmp50184 + (let ((__tmp50185 + (lambda (_g1156211565_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1156311568_) (let () (declare (not safe)) - (cons _g1156211565_ _g1156311568_))) - '() - _L11544_))) + (cons _g1156211565_ _g1156311568_))))) + (declare (not safe)) + (foldr1 __tmp50185 '() _L11544_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp50122)) + (null? __tmp50184)) (_lp11205_ _L11259_ _datums11210_ @@ -3823,46 +3871,48 @@ (let () (_lp11205_ _L11259_ - (let ((__tmp50119 + (let ((__tmp50180 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map gx#stx-e - (foldr (lambda (_g1159711600_ + (let ((__tmp50181 + (lambda (_g1159711600_ _g1159811603_) (let () (declare (not safe)) (cons _g1159711600_ - _g1159811603_))) - '() - _L11544_)))) + _g1159811603_))))) + (declare (not safe)) + (foldr1 __tmp50181 '() _L11544_))))) (declare (not safe)) - (cons __tmp50119 _datums11210_)) - (let ((__tmp50120 - (let ((__tmp50121 + (cons __tmp50180 _datums11210_)) + (let ((__tmp50182 + (let ((__tmp50183 (let () (declare (not safe)) (cons _L11586_ '())))) (declare (not safe)) - (cons _L11542_ __tmp50121)))) + (cons _L11542_ __tmp50183)))) (declare (not safe)) - (cons __tmp50120 _dispatch11211_)) + (cons __tmp50182 _dispatch11211_)) _default11212_))) _g1157211583_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1157011606_ _e11201_))))) (___kont4529345294_ (lambda (_L11429_ _L11431_) - (if (let ((__tmp50127 - (foldr (lambda (_g1145011453_ + (if (let ((__tmp50192 + (let ((__tmp50193 + (lambda (_g1145011453_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1145111456_) (let () (declare (not safe)) - (cons _g1145011453_ _g1145111456_))) - '() - _L11431_))) + (cons _g1145011453_ _g1145111456_))))) + (declare (not safe)) + (foldr1 __tmp50193 '() _L11431_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp50127)) + (null? __tmp50192)) (_lp11205_ _L11259_ _datums11210_ @@ -3870,39 +3920,39 @@ _default11212_) (_lp11205_ _L11259_ - (let ((__tmp50123 + (let ((__tmp50186 (map gx#stx-e - (foldr (lambda (_g1145811461_ + (let ((__tmp50187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1145911464_) + (lambda (_g1145811461_ _g1145911464_) (let () (declare (not safe)) - (cons _g1145811461_ _g1145911464_))) - '() - _L11431_)))) + (cons _g1145811461_ _g1145911464_))))) + (declare (not safe)) + (foldr1 __tmp50187 '() _L11431_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50123 + (cons __tmp50186 _datums11210_)) - (let ((__tmp50124 - (let ((__tmp50126 + (let ((__tmp50188 + (let ((__tmp50191 (gx#datum->syntax '#f 'begin)) - (__tmp50125 - (foldr (lambda (_g1146611469_ + (__tmp50189 + (let ((__tmp50190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1146711472_) + (lambda (_g1146611469_ _g1146711472_) (let () (declare (not safe)) - (cons _g1146611469_ _g1146711472_))) - '() - _L11429_))) + (cons _g1146611469_ _g1146711472_))))) + (declare (not safe)) + (foldr1 __tmp50190 '() _L11429_)))) (declare (not safe)) - (cons __tmp50126 __tmp50125)))) + (cons __tmp50191 __tmp50189)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50124 + (cons __tmp50188 _dispatch11211_)) _default11212_))))) (let* ((___match4537345374_ @@ -4030,7 +4080,7 @@ (##car _e1132011522_)))) (if (gx#identifier? _hd1131911526_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50128_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g50194_| _hd1131911526_) (if (gx#stx-pair? _tl1131811529_) (let ((_e1132311532_ @@ -4135,7 +4185,7 @@ (if (gx#identifier? _hd1128311691_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50130_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g50196_| _hd1128311691_) (if (gx#stx-pair? _tl1128211694_) @@ -4152,7 +4202,7 @@ (##car _e1128711697_)))) (if (gx#identifier? _hd1128611701_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50129_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g50195_| _hd1128611701_) (if (gx#stx-pair? _tl1128511704_) (let ((_e1129011707_ @@ -4704,42 +4754,62 @@ _datums11189_)))) (_count-datums8741_ (lambda (_datums11182_) - (foldl (lambda (_lst11185_ _r11187_) - (+ (length _lst11185_) _r11187_)) - '0 - _datums11182_))) + (let ((__tmp50197 + (lambda (_lst11185_ _r11187_) + (+ (length _lst11185_) _r11187_)))) + (declare (not safe)) + (foldl1 __tmp50197 '0 _datums11182_)))) (_symbolic-datums?8742_ (lambda (_datums11176_) - (andmap (lambda (_lst11179_) (andmap symbol? _lst11179_)) - _datums11176_))) + (let ((__tmp50198 + (lambda (_lst11179_) + (let () + (declare (not safe)) + (andmap1 symbol? _lst11179_))))) + (declare (not safe)) + (andmap1 __tmp50198 _datums11176_)))) (_char-datums?8743_ (lambda (_datums11170_) - (andmap (lambda (_lst11173_) (andmap char? _lst11173_)) - _datums11170_))) + (let ((__tmp50199 + (lambda (_lst11173_) + (let () + (declare (not safe)) + (andmap1 char? _lst11173_))))) + (declare (not safe)) + (andmap1 __tmp50199 _datums11170_)))) (_fixnum-datums?8744_ (lambda (_datums11164_) - (andmap (lambda (_lst11167_) (andmap fixnum? _lst11167_)) - _datums11164_))) + (let ((__tmp50200 + (lambda (_lst11167_) + (let () + (declare (not safe)) + (andmap1 fixnum? _lst11167_))))) + (declare (not safe)) + (andmap1 __tmp50200 _datums11164_)))) (_eq-datums?8745_ (lambda (_datums11147_) - (andmap (lambda (_lst11150_) - (andmap (lambda (_x11153_) - (let ((_$e11156_ - (let () - (declare (not safe)) - (symbol? _x11153_)))) - (if _$e11156_ - _$e11156_ - (let ((_$e11160_ - (keyword? _x11153_))) - (if _$e11160_ - _$e11160_ - (let () - (declare (not safe)) - (immediate? - _x11153_))))))) - _lst11150_)) - _datums11147_))) + (let ((__tmp50201 + (lambda (_lst11150_) + (let ((__tmp50202 + (lambda (_x11153_) + (let ((_$e11156_ + (let () + (declare (not safe)) + (symbol? _x11153_)))) + (if _$e11156_ + _$e11156_ + (let ((_$e11160_ + (keyword? _x11153_))) + (if _$e11160_ + _$e11160_ + (let () + (declare (not safe)) + (immediate? + _x11153_))))))))) + (declare (not safe)) + (andmap1 __tmp50202 _lst11150_))))) + (declare (not safe)) + (andmap1 __tmp50201 _datums11147_)))) (_generate-simple-case8746_ (lambda (_e10911_ _datums10913_ @@ -4800,47 +4870,48 @@ (lambda (_g1109711108_) ((lambda (_L11111_) (let () - (let ((__tmp50141 + (let ((__tmp50214 (gx#datum->syntax '#f 'if)) - (__tmp50131 - (let ((__tmp50134 - (let ((__tmp50140 + (__tmp50203 + (let ((__tmp50206 + (let ((__tmp50213 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'or)) - (__tmp50135 - (foldr (lambda (_g1112211125_ _g1112311128_) - (let ((__tmp50136 - (let ((__tmp50139 + (__tmp50207 + (let ((__tmp50208 + (lambda (_g1112211125_ _g1112311128_) + (let ((__tmp50209 + (let ((__tmp50212 (gx#datum->syntax '#f '~case-test)) - (__tmp50137 - (let ((__tmp50138 + (__tmp50210 + (let ((__tmp50211 (let () (declare (not safe)) (cons _L10932_ '())))) (declare (not safe)) (cons _g1112211125_ - __tmp50138)))) + __tmp50211)))) (declare (not safe)) - (cons __tmp50139 __tmp50137)))) + (cons __tmp50212 __tmp50210)))) (declare (not safe)) - (cons __tmp50136 _g1112311128_))) - '() - _L11033_))) + (cons __tmp50209 _g1112311128_))))) + (declare (not safe)) + (foldr1 __tmp50208 '() _L11033_)))) (declare (not safe)) - (cons __tmp50140 __tmp50135))) - (__tmp50132 - (let ((__tmp50133 + (cons __tmp50213 __tmp50207))) + (__tmp50204 + (let ((__tmp50205 (let () (declare (not safe)) (cons _L11111_ '())))) (declare (not safe)) - (cons _L11084_ __tmp50133)))) + (cons _L11084_ __tmp50205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50134 - __tmp50132)))) + (cons __tmp50206 + __tmp50204)))) (declare (not safe)) - (cons __tmp50141 __tmp50131)))) + (cons __tmp50214 __tmp50203)))) _g1109711108_)))) (_g1109511131_ (_recur10944_ _L11031_ _L11082_)))) @@ -4947,23 +5018,27 @@ (let () (declare (not safe)) (fx+ _ix10791_ '1)) - (foldl (lambda (_x10895_ _r10897_) - (let ((__tmp50142 + (let ((__tmp50217 + (lambda (_x10895_ _r10897_) + (let ((__tmp50218 (let () (declare (not safe)) (cons _x10895_ _ix10791_)))) (declare (not safe)) - (cons __tmp50142 _r10897_))) - _r10792_ - (foldr (lambda (_g1089810901_ + (cons __tmp50218 _r10897_)))) + (__tmp50215 + (let ((__tmp50216 + (lambda (_g1089810901_ _g1089910904_) (let () (declare (not safe)) (cons _g1089810901_ - _g1089910904_))) - '() - _L10876_))))) + _g1089910904_))))) + (declare (not safe)) + (foldr1 __tmp50216 '() _L10876_)))) + (declare (not safe)) + (foldl1 __tmp50217 _r10792_ __tmp50215))))) (___kont4542745428_ (lambda () _r10792_))) (let ((___match4544345444_ (lambda (_e1080110834_ @@ -5216,210 +5291,210 @@ _L10487_ _L10488_) (let () - (let ((__tmp50300 (gx#datum->syntax '#f 'let)) - (__tmp50236 - (let ((__tmp50287 - (let ((__tmp50294 - (let ((__tmp50295 - (let ((__tmp50296 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50299 (gx#datum->syntax '#f 'lambda)) - (__tmp50297 - (let ((__tmp50298 + (let ((__tmp50377 (gx#datum->syntax '#f 'let)) + (__tmp50313 + (let ((__tmp50364 + (let ((__tmp50371 + (let ((__tmp50372 + (let ((__tmp50373 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50376 (gx#datum->syntax '#f 'lambda)) + (__tmp50374 + (let ((__tmp50375 (let () (declare (not safe)) (cons _L10484_ '())))) (declare (not safe)) - (cons '() __tmp50298)))) + (cons '() __tmp50375)))) (declare (not safe)) - (cons __tmp50299 __tmp50297)))) + (cons __tmp50376 __tmp50374)))) (declare (not safe)) - (cons __tmp50296 '())))) + (cons __tmp50373 '())))) (declare (not safe)) - (cons _L10487_ __tmp50295))) + (cons _L10487_ __tmp50372))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50288 - (let ((__tmp50289 - (let ((__tmp50290 + (__tmp50365 + (let ((__tmp50366 + (let ((__tmp50367 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50291 - (let ((__tmp50293 + (let ((__tmp50368 + (let ((__tmp50370 (gx#datum->syntax '#f 'quote)) - (__tmp50292 + (__tmp50369 (let () (declare (not safe)) (cons _L10483_ '())))) (declare (not safe)) - (cons __tmp50293 __tmp50292)))) + (cons __tmp50370 __tmp50369)))) (declare (not safe)) - (cons __tmp50291 '())))) + (cons __tmp50368 '())))) (declare (not safe)) - (cons _L10486_ __tmp50290)))) + (cons _L10486_ __tmp50367)))) (declare (not safe)) - (cons __tmp50289 '())))) + (cons __tmp50366 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50294 __tmp50288))) - (__tmp50237 - (let ((__tmp50238 - (let ((__tmp50286 + (cons __tmp50371 __tmp50365))) + (__tmp50314 + (let ((__tmp50315 + (let ((__tmp50363 (gx#datum->syntax '#f 'if)) - (__tmp50239 - (let ((__tmp50283 + (__tmp50316 + (let ((__tmp50360 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50285 (gx#datum->syntax '#f 'symbol?)) - (__tmp50284 + (let ((__tmp50362 (gx#datum->syntax '#f 'symbol?)) + (__tmp50361 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp50285 __tmp50284))) - (__tmp50240 - (let ((__tmp50243 - (let ((__tmp50282 + (cons __tmp50362 __tmp50361))) + (__tmp50317 + (let ((__tmp50320 + (let ((__tmp50359 (gx#datum->syntax '#f 'let*)) - (__tmp50244 - (let ((__tmp50257 - (let ((__tmp50276 - (let ((__tmp50281 + (__tmp50321 + (let ((__tmp50334 + (let ((__tmp50353 + (let ((__tmp50358 (gx#datum->syntax '#f 'h)) - (__tmp50277 - (let ((__tmp50278 + (__tmp50354 + (let ((__tmp50355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50280 + (let ((__tmp50357 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp50279 + (__tmp50356 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp50280 __tmp50279)))) + (cons __tmp50357 __tmp50356)))) (declare (not safe)) - (cons __tmp50278 '())))) + (cons __tmp50355 '())))) (declare (not safe)) - (cons __tmp50281 __tmp50277))) - (__tmp50258 - (let ((__tmp50268 - (let ((__tmp50275 (gx#datum->syntax '#f 'ix)) - (__tmp50269 - (let ((__tmp50270 - (let ((__tmp50274 + (cons __tmp50358 __tmp50354))) + (__tmp50335 + (let ((__tmp50345 + (let ((__tmp50352 (gx#datum->syntax '#f 'ix)) + (__tmp50346 + (let ((__tmp50347 + (let ((__tmp50351 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp50271 - (let ((__tmp50273 + (__tmp50348 + (let ((__tmp50350 (gx#datum->syntax '#f 'h)) - (__tmp50272 + (__tmp50349 (let () (declare (not safe)) (cons _L10481_ '())))) (declare (not safe)) - (cons __tmp50273 __tmp50272)))) + (cons __tmp50350 __tmp50349)))) (declare (not safe)) - (cons __tmp50274 __tmp50271)))) + (cons __tmp50351 __tmp50348)))) (declare (not safe)) - (cons __tmp50270 '())))) + (cons __tmp50347 '())))) (declare (not safe)) - (cons __tmp50275 __tmp50269))) - (__tmp50259 - (let ((__tmp50260 - (let ((__tmp50267 (gx#datum->syntax '#f 'q)) - (__tmp50261 - (let ((__tmp50262 - (let ((__tmp50266 + (cons __tmp50352 __tmp50346))) + (__tmp50336 + (let ((__tmp50337 + (let ((__tmp50344 (gx#datum->syntax '#f 'q)) + (__tmp50338 + (let ((__tmp50339 + (let ((__tmp50343 (gx#datum->syntax '#f '##vector-ref)) - (__tmp50263 - (let ((__tmp50264 - (let ((__tmp50265 + (__tmp50340 + (let ((__tmp50341 + (let ((__tmp50342 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp50265 '())))) + (cons __tmp50342 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L10486_ - __tmp50264)))) + __tmp50341)))) (declare (not safe)) - (cons __tmp50266 __tmp50263)))) + (cons __tmp50343 __tmp50340)))) (declare (not safe)) - (cons __tmp50262 '())))) + (cons __tmp50339 '())))) (declare (not safe)) - (cons __tmp50267 __tmp50261)))) + (cons __tmp50344 __tmp50338)))) (declare (not safe)) - (cons __tmp50260 '())))) + (cons __tmp50337 '())))) (declare (not safe)) - (cons __tmp50268 __tmp50259)))) + (cons __tmp50345 __tmp50336)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50276 - __tmp50258))) - (__tmp50245 - (let ((__tmp50246 - (let ((__tmp50256 + (cons __tmp50353 + __tmp50335))) + (__tmp50322 + (let ((__tmp50323 + (let ((__tmp50333 (gx#datum->syntax '#f 'if)) - (__tmp50247 - (let ((__tmp50251 + (__tmp50324 + (let ((__tmp50328 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50255 (gx#datum->syntax '#f 'eq?)) - (__tmp50252 - (let ((__tmp50254 + (let ((__tmp50332 (gx#datum->syntax '#f 'eq?)) + (__tmp50329 + (let ((__tmp50331 (gx#datum->syntax '#f 'q)) - (__tmp50253 + (__tmp50330 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp50254 __tmp50253)))) + (cons __tmp50331 __tmp50330)))) (declare (not safe)) - (cons __tmp50255 __tmp50252))) - (__tmp50248 - (let ((__tmp50249 - (let ((__tmp50250 + (cons __tmp50332 __tmp50329))) + (__tmp50325 + (let ((__tmp50326 + (let ((__tmp50327 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp50250 '())))) + (cons __tmp50327 '())))) (declare (not safe)) - (cons _L10485_ __tmp50249)))) + (cons _L10485_ __tmp50326)))) (declare (not safe)) - (cons __tmp50251 __tmp50248)))) + (cons __tmp50328 __tmp50325)))) (declare (not safe)) - (cons __tmp50256 __tmp50247)))) + (cons __tmp50333 __tmp50324)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50246 '())))) + (cons __tmp50323 '())))) (declare (not safe)) - (cons __tmp50257 __tmp50245)))) + (cons __tmp50334 __tmp50322)))) (declare (not safe)) - (cons __tmp50282 __tmp50244))) - (__tmp50241 - (let ((__tmp50242 + (cons __tmp50359 __tmp50321))) + (__tmp50318 + (let ((__tmp50319 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp50242 '())))) + (cons __tmp50319 '())))) (declare (not safe)) - (cons __tmp50243 __tmp50241)))) + (cons __tmp50320 __tmp50318)))) (declare (not safe)) - (cons __tmp50283 __tmp50240)))) + (cons __tmp50360 __tmp50317)))) (declare (not safe)) - (cons __tmp50286 __tmp50239)))) + (cons __tmp50363 __tmp50316)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50238 '())))) + (cons __tmp50315 '())))) (declare (not safe)) - (cons __tmp50287 __tmp50237)))) + (cons __tmp50364 __tmp50314)))) (declare (not safe)) - (cons __tmp50300 __tmp50236)))) + (cons __tmp50377 __tmp50313)))) _hd1038710475_ _hd1038410465_ _hd1038110455_ @@ -5501,30 +5576,30 @@ (declare (not safe)) (##cdr _e1054910610_)))) (if (gx#stx-pair/null? _hd1054810614_) - (let ((_g50143_ + (let ((_g50219_ (gx#syntax-split-splice _hd1054810614_ '0))) (begin - (let ((_g50144_ + (let ((_g50220_ (let () (declare (not safe)) - (if (##values? _g50143_) - (##vector-length _g50143_) + (if (##values? _g50219_) + (##vector-length _g50219_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50144_ 2))) + (##fx= _g50220_ 2))) (error "Context expects 2 values" - _g50144_))) + _g50220_))) (let ((_target1055010620_ (let () (declare (not safe)) - (##vector-ref _g50143_ 0))) + (##vector-ref _g50219_ 0))) (_tl1055210623_ (let () (declare (not safe)) - (##vector-ref _g50143_ 1)))) + (##vector-ref _g50219_ 1)))) (if (gx#stx-null? _tl1055210623_) (letrec ((_loop1055310626_ (lambda (_hd1055110630_ @@ -5587,97 +5662,97 @@ _L10686_ _L10687_) (let () - (let ((__tmp50235 + (let ((__tmp50312 (gx#datum->syntax '#f 'let)) - (__tmp50145 - (let ((__tmp50222 + (__tmp50221 + (let ((__tmp50299 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50229 - (let ((__tmp50230 - (let ((__tmp50231 - (let ((__tmp50234 + (let ((__tmp50306 + (let ((__tmp50307 + (let ((__tmp50308 + (let ((__tmp50311 (gx#datum->syntax '#f 'lambda)) - (__tmp50232 - (let ((__tmp50233 + (__tmp50309 + (let ((__tmp50310 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10683_ '())))) (declare (not safe)) - (cons '() __tmp50233)))) + (cons '() __tmp50310)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50234 - __tmp50232)))) + (cons __tmp50311 + __tmp50309)))) (declare (not safe)) - (cons __tmp50231 '())))) + (cons __tmp50308 '())))) (declare (not safe)) - (cons _L10686_ __tmp50230))) - (__tmp50223 - (let ((__tmp50224 - (let ((__tmp50225 - (let ((__tmp50226 - (let ((__tmp50228 + (cons _L10686_ __tmp50307))) + (__tmp50300 + (let ((__tmp50301 + (let ((__tmp50302 + (let ((__tmp50303 + (let ((__tmp50305 (gx#datum->syntax '#f 'quote)) - (__tmp50227 + (__tmp50304 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10682_ '())))) (declare (not safe)) - (cons __tmp50228 __tmp50227)))) + (cons __tmp50305 __tmp50304)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50226 '())))) + (cons __tmp50303 '())))) (declare (not safe)) - (cons _L10685_ __tmp50225)))) + (cons _L10685_ __tmp50302)))) (declare (not safe)) - (cons __tmp50224 '())))) + (cons __tmp50301 '())))) (declare (not safe)) - (cons __tmp50229 __tmp50223))) - (__tmp50146 - (let ((__tmp50147 - (let ((__tmp50221 (gx#datum->syntax '#f 'if)) - (__tmp50148 - (let ((__tmp50218 - (let ((__tmp50220 + (cons __tmp50306 __tmp50300))) + (__tmp50222 + (let ((__tmp50223 + (let ((__tmp50298 (gx#datum->syntax '#f 'if)) + (__tmp50224 + (let ((__tmp50295 + (let ((__tmp50297 (gx#datum->syntax '#f 'symbol?)) - (__tmp50219 + (__tmp50296 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp50220 - __tmp50219))) - (__tmp50149 - (let ((__tmp50152 - (let ((__tmp50217 + (cons __tmp50297 + __tmp50296))) + (__tmp50225 + (let ((__tmp50228 + (let ((__tmp50294 (gx#datum->syntax '#f 'let*)) - (__tmp50153 - (let ((__tmp50192 + (__tmp50229 + (let ((__tmp50269 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50211 - (let ((__tmp50216 + (let ((__tmp50288 + (let ((__tmp50293 (gx#datum->syntax '#f 'h)) - (__tmp50212 - (let ((__tmp50213 - (let ((__tmp50215 + (__tmp50289 + (let ((__tmp50290 + (let ((__tmp50292 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp50214 + (__tmp50291 (let () (declare (not safe)) (cons _L10687_ @@ -5685,213 +5760,214 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50215 - __tmp50214)))) + (cons __tmp50292 + __tmp50291)))) (declare (not safe)) - (cons __tmp50213 '())))) + (cons __tmp50290 '())))) (declare (not safe)) - (cons __tmp50216 __tmp50212))) - (__tmp50193 - (let ((__tmp50203 - (let ((__tmp50210 + (cons __tmp50293 __tmp50289))) + (__tmp50270 + (let ((__tmp50280 + (let ((__tmp50287 (gx#datum->syntax '#f 'ix)) - (__tmp50204 - (let ((__tmp50205 - (let ((__tmp50209 + (__tmp50281 + (let ((__tmp50282 + (let ((__tmp50286 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fxmodulo)) - (__tmp50206 - (let ((__tmp50208 (gx#datum->syntax '#f 'h)) - (__tmp50207 + (__tmp50283 + (let ((__tmp50285 (gx#datum->syntax '#f 'h)) + (__tmp50284 (let () (declare (not safe)) (cons _L10680_ '())))) (declare (not safe)) - (cons __tmp50208 __tmp50207)))) + (cons __tmp50285 __tmp50284)))) (declare (not safe)) - (cons __tmp50209 __tmp50206)))) + (cons __tmp50286 __tmp50283)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50205 '())))) + (cons __tmp50282 '())))) (declare (not safe)) - (cons __tmp50210 __tmp50204))) - (__tmp50194 - (let ((__tmp50195 - (let ((__tmp50202 + (cons __tmp50287 __tmp50281))) + (__tmp50271 + (let ((__tmp50272 + (let ((__tmp50279 (gx#datum->syntax '#f 'q)) - (__tmp50196 - (let ((__tmp50197 - (let ((__tmp50201 + (__tmp50273 + (let ((__tmp50274 + (let ((__tmp50278 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp50198 - (let ((__tmp50199 - (let ((__tmp50200 + (__tmp50275 + (let ((__tmp50276 + (let ((__tmp50277 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp50200 '())))) + (cons __tmp50277 '())))) (declare (not safe)) - (cons _L10685_ __tmp50199)))) + (cons _L10685_ __tmp50276)))) (declare (not safe)) - (cons __tmp50201 __tmp50198)))) + (cons __tmp50278 __tmp50275)))) (declare (not safe)) - (cons __tmp50197 '())))) + (cons __tmp50274 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50202 - __tmp50196)))) + (cons __tmp50279 + __tmp50273)))) (declare (not safe)) - (cons __tmp50195 '())))) + (cons __tmp50272 '())))) (declare (not safe)) - (cons __tmp50203 __tmp50194)))) + (cons __tmp50280 __tmp50271)))) (declare (not safe)) - (cons __tmp50211 __tmp50193))) - (__tmp50154 - (let ((__tmp50155 - (let ((__tmp50191 + (cons __tmp50288 __tmp50270))) + (__tmp50230 + (let ((__tmp50231 + (let ((__tmp50268 (gx#datum->syntax '#f 'if)) - (__tmp50156 - (let ((__tmp50190 + (__tmp50232 + (let ((__tmp50267 (gx#datum->syntax '#f 'q)) - (__tmp50157 - (let ((__tmp50160 - (let ((__tmp50189 + (__tmp50233 + (let ((__tmp50236 + (let ((__tmp50266 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if)) - (__tmp50161 - (let ((__tmp50181 - (let ((__tmp50188 (gx#datum->syntax '#f 'eq?)) - (__tmp50182 - (let ((__tmp50184 - (let ((__tmp50187 + (__tmp50237 + (let ((__tmp50258 + (let ((__tmp50265 (gx#datum->syntax '#f 'eq?)) + (__tmp50259 + (let ((__tmp50261 + (let ((__tmp50264 (gx#datum->syntax '#f '##car)) - (__tmp50185 - (let ((__tmp50186 + (__tmp50262 + (let ((__tmp50263 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp50186 '())))) + (cons __tmp50263 '())))) (declare (not safe)) - (cons __tmp50187 __tmp50185))) - (__tmp50183 + (cons __tmp50264 __tmp50262))) + (__tmp50260 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp50184 __tmp50183)))) + (cons __tmp50261 __tmp50260)))) (declare (not safe)) - (cons __tmp50188 __tmp50182))) - (__tmp50162 - (let ((__tmp50165 - (let ((__tmp50180 + (cons __tmp50265 __tmp50259))) + (__tmp50238 + (let ((__tmp50241 + (let ((__tmp50257 (gx#datum->syntax '#f 'let)) - (__tmp50166 - (let ((__tmp50173 - (let ((__tmp50179 + (__tmp50242 + (let ((__tmp50250 + (let ((__tmp50256 (gx#datum->syntax '#f 'x)) - (__tmp50174 - (let ((__tmp50175 + (__tmp50251 + (let ((__tmp50252 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50178 (gx#datum->syntax '#f '##cdr)) - (__tmp50176 - (let ((__tmp50177 (gx#datum->syntax '#f 'q))) + (let ((__tmp50255 (gx#datum->syntax '#f '##cdr)) + (__tmp50253 + (let ((__tmp50254 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp50177 '())))) + (cons __tmp50254 '())))) (declare (not safe)) - (cons __tmp50178 __tmp50176)))) + (cons __tmp50255 __tmp50253)))) (declare (not safe)) - (cons __tmp50175 '())))) + (cons __tmp50252 '())))) (declare (not safe)) - (cons __tmp50179 __tmp50174))) + (cons __tmp50256 __tmp50251))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50167 - (let ((__tmp50168 - (let ((__tmp50172 + (__tmp50243 + (let ((__tmp50244 + (let ((__tmp50249 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp50169 - (let ((__tmp50171 (gx#datum->syntax '#f 'x)) - (__tmp50170 - (foldr (lambda (_g1072010723_ _g1072110726_) + (__tmp50245 + (let ((__tmp50248 (gx#datum->syntax '#f 'x)) + (__tmp50246 + (let ((__tmp50247 + (lambda (_g1072010723_ _g1072110726_) (let () (declare (not safe)) (cons _g1072010723_ - _g1072110726_))) - '() - _L10684_))) + _g1072110726_))))) + (declare (not safe)) + (foldr1 __tmp50247 '() _L10684_)))) (declare (not safe)) - (cons __tmp50171 __tmp50170)))) + (cons __tmp50248 __tmp50246)))) (declare (not safe)) - (cons __tmp50172 __tmp50169)))) + (cons __tmp50249 __tmp50245)))) (declare (not safe)) - (cons __tmp50168 '())))) + (cons __tmp50244 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50173 __tmp50167)))) + (cons __tmp50250 __tmp50243)))) (declare (not safe)) - (cons __tmp50180 __tmp50166))) - (__tmp50163 - (let ((__tmp50164 + (cons __tmp50257 __tmp50242))) + (__tmp50239 + (let ((__tmp50240 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp50164 '())))) + (cons __tmp50240 '())))) (declare (not safe)) - (cons __tmp50165 __tmp50163)))) + (cons __tmp50241 __tmp50239)))) (declare (not safe)) - (cons __tmp50181 __tmp50162)))) + (cons __tmp50258 __tmp50238)))) (declare (not safe)) - (cons __tmp50189 __tmp50161))) - (__tmp50158 - (let ((__tmp50159 + (cons __tmp50266 __tmp50237))) + (__tmp50234 + (let ((__tmp50235 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp50159 '())))) + (cons __tmp50235 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50160 - __tmp50158)))) + (cons __tmp50236 + __tmp50234)))) (declare (not safe)) - (cons __tmp50190 __tmp50157)))) + (cons __tmp50267 __tmp50233)))) (declare (not safe)) - (cons __tmp50191 __tmp50156)))) + (cons __tmp50268 __tmp50232)))) (declare (not safe)) - (cons __tmp50155 '())))) + (cons __tmp50231 '())))) (declare (not safe)) - (cons __tmp50192 __tmp50154)))) + (cons __tmp50269 __tmp50230)))) (declare (not safe)) - (cons __tmp50217 __tmp50153))) - (__tmp50150 - (let ((__tmp50151 + (cons __tmp50294 __tmp50229))) + (__tmp50226 + (let ((__tmp50227 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp50151 '())))) + (cons __tmp50227 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50152 - __tmp50150)))) + (cons __tmp50228 + __tmp50226)))) (declare (not safe)) - (cons __tmp50218 __tmp50149)))) + (cons __tmp50295 __tmp50225)))) (declare (not safe)) - (cons __tmp50221 __tmp50148)))) + (cons __tmp50298 __tmp50224)))) (declare (not safe)) - (cons __tmp50147 '())))) + (cons __tmp50223 '())))) (declare (not safe)) - (cons __tmp50222 __tmp50146)))) + (cons __tmp50299 __tmp50222)))) (declare (not safe)) - (cons __tmp50235 __tmp50145)))) + (cons __tmp50312 __tmp50221)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1056610674_ _hd1056310664_ @@ -5927,14 +6003,16 @@ (vector-length _tab10345_)))))))) (_max-char8751_ (lambda (_datums10325_) - (foldl (lambda (_lst10328_ _r10330_) - (foldl (lambda (_char10332_ _r10334_) + (let ((__tmp50378 + (lambda (_lst10328_ _r10330_) + (let ((__tmp50379 + (lambda (_char10332_ _r10334_) (max (char->integer _char10332_) - _r10334_)) - _r10330_ - _lst10328_)) - '0 - _datums10325_))) + _r10334_)))) + (declare (not safe)) + (foldl1 __tmp50379 _r10330_ _lst10328_))))) + (declare (not safe)) + (foldl1 __tmp50378 '0 _datums10325_)))) (_generate-char-dispatch-table8752_ (lambda (_indexes10304_) (let* ((_ixs10310_ @@ -5942,9 +6020,12 @@ (char->integer (car _x10307_))) _indexes10304_)) (_len10313_ - (let ((__tmp50301 (foldl max '0 _ixs10310_))) + (let ((__tmp50380 + (let () + (declare (not safe)) + (foldl1 max '0 _ixs10310_)))) (declare (not safe)) - (fx+ __tmp50301 '1))) + (fx+ __tmp50380 '1))) (_vec10316_ (make-vector _len10313_ '#f))) (for-each (lambda (_entry10321_ _x10323_) @@ -6092,167 +6173,167 @@ _L10028_ _L10029_) (let () - (let ((__tmp50421 (gx#datum->syntax '#f 'let)) - (__tmp50374 - (let ((__tmp50415 - (let ((__tmp50416 - (let ((__tmp50417 - (let ((__tmp50420 + (let ((__tmp50501 (gx#datum->syntax '#f 'let)) + (__tmp50454 + (let ((__tmp50495 + (let ((__tmp50496 + (let ((__tmp50497 + (let ((__tmp50500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp50418 - (let ((__tmp50419 + (__tmp50498 + (let ((__tmp50499 (let () (declare (not safe)) (cons _L10026_ '())))) (declare (not safe)) - (cons '() __tmp50419)))) + (cons '() __tmp50499)))) (declare (not safe)) - (cons __tmp50420 __tmp50418)))) + (cons __tmp50500 __tmp50498)))) (declare (not safe)) - (cons __tmp50417 '())))) + (cons __tmp50497 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10028_ __tmp50416))) - (__tmp50375 - (let ((__tmp50376 - (let ((__tmp50414 + (cons _L10028_ __tmp50496))) + (__tmp50455 + (let ((__tmp50456 + (let ((__tmp50494 (gx#datum->syntax '#f 'if)) - (__tmp50377 - (let ((__tmp50411 + (__tmp50457 + (let ((__tmp50491 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50413 (gx#datum->syntax '#f 'char?)) - (__tmp50412 + (let ((__tmp50493 (gx#datum->syntax '#f 'char?)) + (__tmp50492 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp50413 __tmp50412))) - (__tmp50378 - (let ((__tmp50381 - (let ((__tmp50410 (gx#datum->syntax '#f 'let)) - (__tmp50382 - (let ((__tmp50404 - (let ((__tmp50409 + (cons __tmp50493 __tmp50492))) + (__tmp50458 + (let ((__tmp50461 + (let ((__tmp50490 (gx#datum->syntax '#f 'let)) + (__tmp50462 + (let ((__tmp50484 + (let ((__tmp50489 (gx#datum->syntax '#f 'ix)) - (__tmp50405 - (let ((__tmp50406 - (let ((__tmp50408 + (__tmp50485 + (let ((__tmp50486 + (let ((__tmp50488 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##char->integer)) - (__tmp50407 + (__tmp50487 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp50408 __tmp50407)))) + (cons __tmp50488 __tmp50487)))) (declare (not safe)) - (cons __tmp50406 '())))) + (cons __tmp50486 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50409 __tmp50405))) - (__tmp50383 - (let ((__tmp50384 - (let ((__tmp50403 + (cons __tmp50489 __tmp50485))) + (__tmp50463 + (let ((__tmp50464 + (let ((__tmp50483 (gx#datum->syntax '#f 'if)) - (__tmp50385 - (let ((__tmp50389 + (__tmp50465 + (let ((__tmp50469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50402 (gx#datum->syntax '#f 'and)) - (__tmp50390 - (let ((__tmp50397 - (let ((__tmp50401 + (let ((__tmp50482 (gx#datum->syntax '#f 'and)) + (__tmp50470 + (let ((__tmp50477 + (let ((__tmp50481 (gx#datum->syntax '#f '##fx>=)) - (__tmp50398 - (let ((__tmp50400 + (__tmp50478 + (let ((__tmp50480 (gx#datum->syntax '#f 'ix)) - (__tmp50399 + (__tmp50479 (let () (declare (not safe)) (cons _L10025_ '())))) (declare (not safe)) - (cons __tmp50400 - __tmp50399)))) + (cons __tmp50480 + __tmp50479)))) (declare (not safe)) - (cons __tmp50401 __tmp50398))) - (__tmp50391 - (let ((__tmp50392 - (let ((__tmp50396 + (cons __tmp50481 __tmp50478))) + (__tmp50471 + (let ((__tmp50472 + (let ((__tmp50476 (gx#datum->syntax '#f '##fx<)) - (__tmp50393 - (let ((__tmp50395 + (__tmp50473 + (let ((__tmp50475 (gx#datum->syntax '#f 'ix)) - (__tmp50394 + (__tmp50474 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L10023_ '())))) (declare (not safe)) - (cons __tmp50395 __tmp50394)))) + (cons __tmp50475 __tmp50474)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50396 - __tmp50393)))) + (cons __tmp50476 + __tmp50473)))) (declare (not safe)) - (cons __tmp50392 '())))) + (cons __tmp50472 '())))) (declare (not safe)) - (cons __tmp50397 __tmp50391)))) + (cons __tmp50477 __tmp50471)))) (declare (not safe)) - (cons __tmp50402 __tmp50390))) - (__tmp50386 - (let ((__tmp50387 - (let ((__tmp50388 + (cons __tmp50482 __tmp50470))) + (__tmp50466 + (let ((__tmp50467 + (let ((__tmp50468 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp50388 '())))) + (cons __tmp50468 '())))) (declare (not safe)) - (cons _L10027_ __tmp50387)))) + (cons _L10027_ __tmp50467)))) (declare (not safe)) - (cons __tmp50389 __tmp50386)))) + (cons __tmp50469 __tmp50466)))) (declare (not safe)) - (cons __tmp50403 __tmp50385)))) + (cons __tmp50483 __tmp50465)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50384 '())))) + (cons __tmp50464 '())))) (declare (not safe)) - (cons __tmp50404 __tmp50383)))) + (cons __tmp50484 __tmp50463)))) (declare (not safe)) - (cons __tmp50410 __tmp50382))) - (__tmp50379 - (let ((__tmp50380 + (cons __tmp50490 __tmp50462))) + (__tmp50459 + (let ((__tmp50460 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp50380 '())))) + (cons __tmp50460 '())))) (declare (not safe)) - (cons __tmp50381 __tmp50379)))) + (cons __tmp50461 __tmp50459)))) (declare (not safe)) - (cons __tmp50411 __tmp50378)))) + (cons __tmp50491 __tmp50458)))) (declare (not safe)) - (cons __tmp50414 __tmp50377)))) + (cons __tmp50494 __tmp50457)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50376 '())))) + (cons __tmp50456 '())))) (declare (not safe)) - (cons __tmp50415 __tmp50375)))) + (cons __tmp50495 __tmp50455)))) (declare (not safe)) - (cons __tmp50421 __tmp50374)))) + (cons __tmp50501 __tmp50454)))) _hd993910017_ _hd993610007_ _hd99339997_ @@ -6331,30 +6412,30 @@ (declare (not safe)) (##cdr _e1008710148_)))) (if (gx#stx-pair/null? _hd1008610152_) - (let ((_g50302_ + (let ((_g50381_ (gx#syntax-split-splice _hd1008610152_ '0))) (begin - (let ((_g50303_ + (let ((_g50382_ (let () (declare (not safe)) - (if (##values? _g50302_) - (##vector-length _g50302_) + (if (##values? _g50381_) + (##vector-length _g50381_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50303_ 2))) + (##fx= _g50382_ 2))) (error "Context expects 2 values" - _g50303_))) + _g50382_))) (let ((_target1008810158_ (let () (declare (not safe)) - (##vector-ref _g50302_ 0))) + (##vector-ref _g50381_ 0))) (_tl1009010161_ (let () (declare (not safe)) - (##vector-ref _g50302_ 1)))) + (##vector-ref _g50381_ 1)))) (if (gx#stx-null? _tl1009010161_) (letrec ((_loop1009110164_ (lambda (_hd1008910168_ @@ -6420,64 +6501,64 @@ _L10224_ _L10225_) (let () - (let ((__tmp50373 + (let ((__tmp50453 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp50304 - (let ((__tmp50360 - (let ((__tmp50367 - (let ((__tmp50368 - (let ((__tmp50369 - (let ((__tmp50372 + (__tmp50383 + (let ((__tmp50440 + (let ((__tmp50447 + (let ((__tmp50448 + (let ((__tmp50449 + (let ((__tmp50452 (gx#datum->syntax '#f 'lambda)) - (__tmp50370 - (let ((__tmp50371 + (__tmp50450 + (let ((__tmp50451 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L10221_ '())))) (declare (not safe)) - (cons '() __tmp50371)))) + (cons '() __tmp50451)))) (declare (not safe)) - (cons __tmp50372 __tmp50370)))) + (cons __tmp50452 __tmp50450)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50369 '())))) + (cons __tmp50449 '())))) (declare (not safe)) - (cons _L10224_ __tmp50368))) - (__tmp50361 - (let ((__tmp50362 - (let ((__tmp50363 - (let ((__tmp50364 - (let ((__tmp50366 + (cons _L10224_ __tmp50448))) + (__tmp50441 + (let ((__tmp50442 + (let ((__tmp50443 + (let ((__tmp50444 + (let ((__tmp50446 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp50365 + (__tmp50445 (let () (declare (not safe)) (cons _L10220_ '())))) (declare (not safe)) - (cons __tmp50366 __tmp50365)))) + (cons __tmp50446 __tmp50445)))) (declare (not safe)) - (cons __tmp50364 '())))) + (cons __tmp50444 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10223_ __tmp50363)))) + (cons _L10223_ __tmp50443)))) (declare (not safe)) - (cons __tmp50362 '())))) + (cons __tmp50442 '())))) (declare (not safe)) - (cons __tmp50367 __tmp50361))) - (__tmp50305 - (let ((__tmp50306 - (let ((__tmp50359 + (cons __tmp50447 __tmp50441))) + (__tmp50384 + (let ((__tmp50385 + (let ((__tmp50439 (gx#datum->syntax '#f 'if)) - (__tmp50307 - (let ((__tmp50356 - (let ((__tmp50358 + (__tmp50386 + (let ((__tmp50436 + (let ((__tmp50438 (gx#datum->syntax '#f 'char?)) - (__tmp50357 + (__tmp50437 (let () (declare (not safe)) @@ -6485,172 +6566,173 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp50358 __tmp50357))) + (cons __tmp50438 __tmp50437))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50308 - (let ((__tmp50311 - (let ((__tmp50355 + (__tmp50387 + (let ((__tmp50390 + (let ((__tmp50435 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp50312 - (let ((__tmp50349 - (let ((__tmp50354 (gx#datum->syntax '#f 'ix)) - (__tmp50350 - (let ((__tmp50351 - (let ((__tmp50353 + (__tmp50391 + (let ((__tmp50429 + (let ((__tmp50434 (gx#datum->syntax '#f 'ix)) + (__tmp50430 + (let ((__tmp50431 + (let ((__tmp50433 (gx#datum->syntax '#f '##char->integer)) - (__tmp50352 + (__tmp50432 (let () (declare (not safe)) (cons _L10225_ '())))) (declare (not safe)) - (cons __tmp50353 - __tmp50352)))) + (cons __tmp50433 + __tmp50432)))) (declare (not safe)) - (cons __tmp50351 '())))) + (cons __tmp50431 '())))) (declare (not safe)) - (cons __tmp50354 __tmp50350))) - (__tmp50313 - (let ((__tmp50314 - (let ((__tmp50348 + (cons __tmp50434 __tmp50430))) + (__tmp50392 + (let ((__tmp50393 + (let ((__tmp50428 (gx#datum->syntax '#f 'if)) - (__tmp50315 - (let ((__tmp50343 - (let ((__tmp50347 + (__tmp50394 + (let ((__tmp50423 + (let ((__tmp50427 (gx#datum->syntax '#f '##fx<)) - (__tmp50344 - (let ((__tmp50346 + (__tmp50424 + (let ((__tmp50426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix)) - (__tmp50345 + (__tmp50425 (let () (declare (not safe)) (cons _L10218_ '())))) (declare (not safe)) - (cons __tmp50346 __tmp50345)))) + (cons __tmp50426 __tmp50425)))) (declare (not safe)) - (cons __tmp50347 __tmp50344))) + (cons __tmp50427 __tmp50424))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50316 - (let ((__tmp50319 - (let ((__tmp50342 + (__tmp50395 + (let ((__tmp50398 + (let ((__tmp50422 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp50320 - (let ((__tmp50334 - (let ((__tmp50341 (gx#datum->syntax '#f 'x)) - (__tmp50335 - (let ((__tmp50336 - (let ((__tmp50340 + (__tmp50399 + (let ((__tmp50414 + (let ((__tmp50421 (gx#datum->syntax '#f 'x)) + (__tmp50415 + (let ((__tmp50416 + (let ((__tmp50420 (gx#datum->syntax '#f '##vector-ref)) - (__tmp50337 - (let ((__tmp50338 - (let ((__tmp50339 + (__tmp50417 + (let ((__tmp50418 + (let ((__tmp50419 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp50339 '())))) + (cons __tmp50419 '())))) (declare (not safe)) - (cons _L10223_ __tmp50338)))) + (cons _L10223_ __tmp50418)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50340 - __tmp50337)))) + (cons __tmp50420 + __tmp50417)))) (declare (not safe)) - (cons __tmp50336 '())))) + (cons __tmp50416 '())))) (declare (not safe)) - (cons __tmp50341 __tmp50335))) - (__tmp50321 - (let ((__tmp50322 - (let ((__tmp50333 + (cons __tmp50421 __tmp50415))) + (__tmp50400 + (let ((__tmp50401 + (let ((__tmp50413 (gx#datum->syntax '#f 'if)) - (__tmp50323 - (let ((__tmp50332 + (__tmp50402 + (let ((__tmp50412 (gx#datum->syntax '#f 'x)) - (__tmp50324 - (let ((__tmp50327 - (let ((__tmp50331 + (__tmp50403 + (let ((__tmp50406 + (let ((__tmp50411 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp50328 - (let ((__tmp50330 (gx#datum->syntax '#f 'x)) - (__tmp50329 - (foldr (lambda (_g1025810261_ + (__tmp50407 + (let ((__tmp50410 (gx#datum->syntax '#f 'x)) + (__tmp50408 + (let ((__tmp50409 + (lambda (_g1025810261_ _g1025910264_) (let () (declare (not safe)) (cons _g1025810261_ - _g1025910264_))) - '() - _L10222_))) + _g1025910264_))))) + (declare (not safe)) + (foldr1 __tmp50409 '() _L10222_)))) (declare (not safe)) - (cons __tmp50330 __tmp50329)))) + (cons __tmp50410 __tmp50408)))) (declare (not safe)) - (cons __tmp50331 __tmp50328))) - (__tmp50325 - (let ((__tmp50326 + (cons __tmp50411 __tmp50407))) + (__tmp50404 + (let ((__tmp50405 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp50326 '())))) + (cons __tmp50405 '())))) (declare (not safe)) - (cons __tmp50327 __tmp50325)))) + (cons __tmp50406 __tmp50404)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50332 - __tmp50324)))) + (cons __tmp50412 + __tmp50403)))) (declare (not safe)) - (cons __tmp50333 __tmp50323)))) + (cons __tmp50413 __tmp50402)))) (declare (not safe)) - (cons __tmp50322 '())))) + (cons __tmp50401 '())))) (declare (not safe)) - (cons __tmp50334 __tmp50321)))) + (cons __tmp50414 __tmp50400)))) (declare (not safe)) - (cons __tmp50342 __tmp50320))) - (__tmp50317 - (let ((__tmp50318 + (cons __tmp50422 __tmp50399))) + (__tmp50396 + (let ((__tmp50397 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp50318 '())))) + (cons __tmp50397 '())))) (declare (not safe)) - (cons __tmp50319 __tmp50317)))) + (cons __tmp50398 __tmp50396)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50343 - __tmp50316)))) + (cons __tmp50423 + __tmp50395)))) (declare (not safe)) - (cons __tmp50348 __tmp50315)))) + (cons __tmp50428 __tmp50394)))) (declare (not safe)) - (cons __tmp50314 '())))) + (cons __tmp50393 '())))) (declare (not safe)) - (cons __tmp50349 __tmp50313)))) + (cons __tmp50429 __tmp50392)))) (declare (not safe)) - (cons __tmp50355 __tmp50312))) - (__tmp50309 - (let ((__tmp50310 + (cons __tmp50435 __tmp50391))) + (__tmp50388 + (let ((__tmp50389 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp50310 '())))) + (cons __tmp50389 '())))) (declare (not safe)) - (cons __tmp50311 __tmp50309)))) + (cons __tmp50390 __tmp50388)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50356 __tmp50308)))) + (cons __tmp50436 __tmp50387)))) (declare (not safe)) - (cons __tmp50359 __tmp50307)))) + (cons __tmp50439 __tmp50386)))) (declare (not safe)) - (cons __tmp50306 '())))) + (cons __tmp50385 '())))) (declare (not safe)) - (cons __tmp50360 __tmp50305)))) + (cons __tmp50440 __tmp50384)))) (declare (not safe)) - (cons __tmp50373 __tmp50304)))) + (cons __tmp50453 __tmp50383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1010410212_ _hd1010110202_ @@ -6748,28 +6830,28 @@ (declare (not safe)) (##cdr _e97069767_)))) (if (gx#stx-pair/null? _hd97059771_) - (let ((_g50422_ + (let ((_g50502_ (gx#syntax-split-splice _hd97059771_ '0))) (begin - (let ((_g50423_ + (let ((_g50503_ (let () (declare (not safe)) - (if (##values? _g50422_) - (##vector-length _g50422_) + (if (##values? _g50502_) + (##vector-length _g50502_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50423_ 2))) + (##fx= _g50503_ 2))) (error "Context expects 2 values" - _g50423_))) + _g50503_))) (let ((_target97079777_ (let () (declare (not safe)) - (##vector-ref _g50422_ 0))) + (##vector-ref _g50502_ 0))) (_tl97099780_ (let () (declare (not safe)) - (##vector-ref _g50422_ 1)))) + (##vector-ref _g50502_ 1)))) (if (gx#stx-null? _tl97099780_) (letrec ((_loop97109783_ (lambda (_hd97089787_ @@ -6830,22 +6912,22 @@ _L9843_ _L9844_) (let () - (let ((__tmp50514 + (let ((__tmp50595 (gx#datum->syntax '#f 'let)) - (__tmp50424 - (let ((__tmp50501 - (let ((__tmp50508 + (__tmp50504 + (let ((__tmp50582 + (let ((__tmp50589 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50509 - (let ((__tmp50510 - (let ((__tmp50513 + (let ((__tmp50590 + (let ((__tmp50591 + (let ((__tmp50594 (gx#datum->syntax '#f 'lambda)) - (__tmp50511 - (let ((__tmp50512 + (__tmp50592 + (let ((__tmp50593 (let () (declare (not safe)) @@ -6854,22 +6936,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp50512)))) + (cons '() __tmp50593)))) (declare (not safe)) - (cons __tmp50513 __tmp50511)))) + (cons __tmp50594 __tmp50592)))) (declare (not safe)) - (cons __tmp50510 '())))) + (cons __tmp50591 '())))) (declare (not safe)) - (cons _L9843_ __tmp50509))) - (__tmp50502 - (let ((__tmp50503 - (let ((__tmp50504 - (let ((__tmp50505 - (let ((__tmp50507 + (cons _L9843_ __tmp50590))) + (__tmp50583 + (let ((__tmp50584 + (let ((__tmp50585 + (let ((__tmp50586 + (let ((__tmp50588 (gx#datum->syntax '#f 'quote)) - (__tmp50506 + (__tmp50587 (let () (declare (not safe)) @@ -6878,221 +6960,222 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50507 - __tmp50506)))) + (cons __tmp50588 + __tmp50587)))) (declare (not safe)) - (cons __tmp50505 '())))) + (cons __tmp50586 '())))) (declare (not safe)) - (cons _L9842_ __tmp50504)))) + (cons _L9842_ __tmp50585)))) (declare (not safe)) - (cons __tmp50503 '())))) + (cons __tmp50584 '())))) (declare (not safe)) - (cons __tmp50508 __tmp50502))) - (__tmp50425 - (let ((__tmp50426 - (let ((__tmp50500 (gx#datum->syntax '#f 'if)) - (__tmp50427 - (let ((__tmp50497 - (let ((__tmp50499 + (cons __tmp50589 __tmp50583))) + (__tmp50505 + (let ((__tmp50506 + (let ((__tmp50581 (gx#datum->syntax '#f 'if)) + (__tmp50507 + (let ((__tmp50578 + (let ((__tmp50580 (gx#datum->syntax '#f 'char?)) - (__tmp50498 + (__tmp50579 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp50499 __tmp50498))) - (__tmp50428 - (let ((__tmp50431 - (let ((__tmp50496 + (cons __tmp50580 __tmp50579))) + (__tmp50508 + (let ((__tmp50511 + (let ((__tmp50577 (gx#datum->syntax '#f 'let*)) - (__tmp50432 - (let ((__tmp50471 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50490 - (let ((__tmp50495 (gx#datum->syntax '#f 'h)) - (__tmp50491 - (let ((__tmp50492 - (let ((__tmp50494 + (__tmp50512 + (let ((__tmp50552 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50571 + (let ((__tmp50576 (gx#datum->syntax '#f 'h)) + (__tmp50572 + (let ((__tmp50573 + (let ((__tmp50575 (gx#datum->syntax '#f '##char->integer)) - (__tmp50493 + (__tmp50574 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp50494 __tmp50493)))) + (cons __tmp50575 __tmp50574)))) (declare (not safe)) - (cons __tmp50492 '())))) + (cons __tmp50573 '())))) (declare (not safe)) - (cons __tmp50495 __tmp50491))) - (__tmp50472 - (let ((__tmp50482 - (let ((__tmp50489 + (cons __tmp50576 __tmp50572))) + (__tmp50553 + (let ((__tmp50563 + (let ((__tmp50570 (gx#datum->syntax '#f 'ix)) - (__tmp50483 - (let ((__tmp50484 - (let ((__tmp50488 + (__tmp50564 + (let ((__tmp50565 + (let ((__tmp50569 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp50485 - (let ((__tmp50487 + (__tmp50566 + (let ((__tmp50568 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp50486 + (__tmp50567 (let () (declare (not safe)) (cons _L9837_ '())))) (declare (not safe)) - (cons __tmp50487 __tmp50486)))) + (cons __tmp50568 __tmp50567)))) (declare (not safe)) - (cons __tmp50488 __tmp50485)))) + (cons __tmp50569 __tmp50566)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50484 '())))) + (cons __tmp50565 '())))) (declare (not safe)) - (cons __tmp50489 __tmp50483))) - (__tmp50473 - (let ((__tmp50474 - (let ((__tmp50481 + (cons __tmp50570 __tmp50564))) + (__tmp50554 + (let ((__tmp50555 + (let ((__tmp50562 (gx#datum->syntax '#f 'q)) - (__tmp50475 - (let ((__tmp50476 - (let ((__tmp50480 + (__tmp50556 + (let ((__tmp50557 + (let ((__tmp50561 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp50477 - (let ((__tmp50478 - (let ((__tmp50479 + (__tmp50558 + (let ((__tmp50559 + (let ((__tmp50560 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp50479 '())))) + (cons __tmp50560 '())))) (declare (not safe)) - (cons _L9842_ __tmp50478)))) + (cons _L9842_ __tmp50559)))) (declare (not safe)) - (cons __tmp50480 __tmp50477)))) + (cons __tmp50561 __tmp50558)))) (declare (not safe)) - (cons __tmp50476 '())))) + (cons __tmp50557 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50481 __tmp50475)))) + (cons __tmp50562 __tmp50556)))) (declare (not safe)) - (cons __tmp50474 '())))) + (cons __tmp50555 '())))) (declare (not safe)) - (cons __tmp50482 __tmp50473)))) + (cons __tmp50563 __tmp50554)))) (declare (not safe)) - (cons __tmp50490 __tmp50472))) - (__tmp50433 - (let ((__tmp50434 - (let ((__tmp50470 (gx#datum->syntax '#f 'if)) - (__tmp50435 - (let ((__tmp50469 + (cons __tmp50571 __tmp50553))) + (__tmp50513 + (let ((__tmp50514 + (let ((__tmp50551 (gx#datum->syntax '#f 'if)) + (__tmp50515 + (let ((__tmp50550 (gx#datum->syntax '#f 'q)) - (__tmp50436 - (let ((__tmp50439 - (let ((__tmp50468 + (__tmp50516 + (let ((__tmp50519 + (let ((__tmp50549 (gx#datum->syntax '#f 'if)) - (__tmp50440 - (let ((__tmp50460 + (__tmp50520 + (let ((__tmp50541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50467 (gx#datum->syntax '#f 'eq?)) - (__tmp50461 - (let ((__tmp50463 - (let ((__tmp50466 + (let ((__tmp50548 (gx#datum->syntax '#f 'eq?)) + (__tmp50542 + (let ((__tmp50544 + (let ((__tmp50547 (gx#datum->syntax '#f '##car)) - (__tmp50464 - (let ((__tmp50465 + (__tmp50545 + (let ((__tmp50546 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp50465 '())))) + (cons __tmp50546 '())))) (declare (not safe)) - (cons __tmp50466 __tmp50464))) - (__tmp50462 + (cons __tmp50547 __tmp50545))) + (__tmp50543 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp50463 __tmp50462)))) + (cons __tmp50544 __tmp50543)))) (declare (not safe)) - (cons __tmp50467 __tmp50461))) - (__tmp50441 - (let ((__tmp50444 - (let ((__tmp50459 + (cons __tmp50548 __tmp50542))) + (__tmp50521 + (let ((__tmp50524 + (let ((__tmp50540 (gx#datum->syntax '#f 'let)) - (__tmp50445 - (let ((__tmp50452 - (let ((__tmp50458 + (__tmp50525 + (let ((__tmp50533 + (let ((__tmp50539 (gx#datum->syntax '#f 'x)) - (__tmp50453 - (let ((__tmp50454 - (let ((__tmp50457 + (__tmp50534 + (let ((__tmp50535 + (let ((__tmp50538 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp50455 - (let ((__tmp50456 (gx#datum->syntax '#f 'q))) + (__tmp50536 + (let ((__tmp50537 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp50456 '())))) + (cons __tmp50537 '())))) (declare (not safe)) - (cons __tmp50457 __tmp50455)))) + (cons __tmp50538 __tmp50536)))) (declare (not safe)) - (cons __tmp50454 '())))) + (cons __tmp50535 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50458 - __tmp50453))) - (__tmp50446 - (let ((__tmp50447 - (let ((__tmp50451 + (cons __tmp50539 + __tmp50534))) + (__tmp50526 + (let ((__tmp50527 + (let ((__tmp50532 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp50448 - (let ((__tmp50450 + (__tmp50528 + (let ((__tmp50531 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp50449 - (foldr (lambda (_g98819884_ _g98829887_) + (__tmp50529 + (let ((__tmp50530 + (lambda (_g98819884_ _g98829887_) (let () (declare (not safe)) - (cons _g98819884_ _g98829887_))) - '() - _L9841_))) + (cons _g98819884_ _g98829887_))))) + (declare (not safe)) + (foldr1 __tmp50530 '() _L9841_)))) (declare (not safe)) - (cons __tmp50450 __tmp50449)))) + (cons __tmp50531 __tmp50529)))) (declare (not safe)) - (cons __tmp50451 __tmp50448)))) + (cons __tmp50532 __tmp50528)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50447 '())))) + (cons __tmp50527 '())))) (declare (not safe)) - (cons __tmp50452 __tmp50446)))) + (cons __tmp50533 __tmp50526)))) (declare (not safe)) - (cons __tmp50459 __tmp50445))) - (__tmp50442 - (let ((__tmp50443 + (cons __tmp50540 __tmp50525))) + (__tmp50522 + (let ((__tmp50523 (let () (declare (not safe)) (cons _L9843_ '())))) (declare (not safe)) - (cons __tmp50443 '())))) + (cons __tmp50523 '())))) (declare (not safe)) - (cons __tmp50444 __tmp50442)))) + (cons __tmp50524 __tmp50522)))) (declare (not safe)) - (cons __tmp50460 __tmp50441)))) + (cons __tmp50541 __tmp50521)))) (declare (not safe)) - (cons __tmp50468 __tmp50440))) + (cons __tmp50549 __tmp50520))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50437 - (let ((__tmp50438 + (__tmp50517 + (let ((__tmp50518 (let () (declare (not safe)) @@ -7100,24 +7183,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp50438 '())))) + (cons __tmp50518 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50439 __tmp50437)))) + (cons __tmp50519 __tmp50517)))) (declare (not safe)) - (cons __tmp50469 __tmp50436)))) + (cons __tmp50550 __tmp50516)))) (declare (not safe)) - (cons __tmp50470 __tmp50435)))) + (cons __tmp50551 __tmp50515)))) (declare (not safe)) - (cons __tmp50434 '())))) + (cons __tmp50514 '())))) (declare (not safe)) - (cons __tmp50471 __tmp50433)))) + (cons __tmp50552 __tmp50513)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50496 - __tmp50432))) - (__tmp50429 - (let ((__tmp50430 + (cons __tmp50577 + __tmp50512))) + (__tmp50509 + (let ((__tmp50510 (let () (declare (not safe)) @@ -7126,21 +7209,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50430 '())))) + (cons __tmp50510 '())))) (declare (not safe)) - (cons __tmp50431 __tmp50429)))) + (cons __tmp50511 __tmp50509)))) (declare (not safe)) - (cons __tmp50497 __tmp50428)))) + (cons __tmp50578 __tmp50508)))) (declare (not safe)) - (cons __tmp50500 __tmp50427)))) + (cons __tmp50581 __tmp50507)))) (declare (not safe)) - (cons __tmp50426 '())))) + (cons __tmp50506 '())))) (declare (not safe)) - (cons __tmp50501 __tmp50425)))) + (cons __tmp50582 __tmp50505)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50514 - __tmp50424)))) + (cons __tmp50595 + __tmp50504)))) _hd97239831_ _hd97209821_ _hd97179811_ @@ -7172,23 +7255,32 @@ (vector-length _tab9681_))))))) (_min-fixnum8757_ (lambda (_datums9665_) - (foldl (lambda (_lst9668_ _r9670_) - (foldl min _r9670_ _lst9668_)) - ##max-fixnum - _datums9665_))) + (let ((__tmp50596 + (lambda (_lst9668_ _r9670_) + (let () + (declare (not safe)) + (foldl1 min _r9670_ _lst9668_))))) + (declare (not safe)) + (foldl1 __tmp50596 ##max-fixnum _datums9665_)))) (_max-fixnum8758_ (lambda (_datums9658_) - (foldl (lambda (_lst9661_ _r9663_) - (foldl max _r9663_ _lst9661_)) - ##min-fixnum - _datums9658_))) + (let ((__tmp50597 + (lambda (_lst9661_ _r9663_) + (let () + (declare (not safe)) + (foldl1 max _r9663_ _lst9661_))))) + (declare (not safe)) + (foldl1 __tmp50597 ##min-fixnum _datums9658_)))) (_generate-fixnum-dispatch-table8759_ (lambda (_indexes9640_) (let* ((_ixs9643_ (map car _indexes9640_)) (_len9646_ - (let ((__tmp50515 (foldl max '0 _ixs9643_))) + (let ((__tmp50598 + (let () + (declare (not safe)) + (foldl1 max '0 _ixs9643_)))) (declare (not safe)) - (fx+ __tmp50515 '1))) + (fx+ __tmp50598 '1))) (_vec9649_ (make-vector _len9646_ '#f))) (for-each (lambda (_entry9654_ _x9656_) @@ -7206,7 +7298,9 @@ (_generate-fixnum-dispatch-table8759_ _indexes9380_)) (_dense?9386_ - (andmap values (vector->list _tab9383_)))) + (let ((__tmp50599 (vector->list _tab9383_))) + (declare (not safe)) + (andmap1 values __tmp50599)))) (let* ((_g93919435_ (lambda (_g93929431_) (gx#raise-syntax-error @@ -7259,30 +7353,30 @@ (declare (not safe)) (##cdr _e94119472_)))) (if (gx#stx-pair/null? _hd94109476_) - (let ((_g50516_ + (let ((_g50600_ (gx#syntax-split-splice _hd94109476_ '0))) (begin - (let ((_g50517_ + (let ((_g50601_ (let () (declare (not safe)) - (if (##values? _g50516_) - (##vector-length _g50516_) + (if (##values? _g50600_) + (##vector-length _g50600_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50517_ 2))) + (##fx= _g50601_ 2))) (error "Context expects 2 values" - _g50517_))) + _g50601_))) (let ((_target94129482_ (let () (declare (not safe)) - (##vector-ref _g50516_ 0))) + (##vector-ref _g50600_ 0))) (_tl94149485_ (let () (declare (not safe)) - (##vector-ref _g50516_ 1)))) + (##vector-ref _g50600_ 1)))) (if (gx#stx-null? _tl94149485_) (letrec ((_loop94159488_ (lambda (_hd94139492_ @@ -7353,145 +7447,145 @@ ((lambda (_L9603_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp50571 (gx#datum->syntax '#f 'let)) - (__tmp50518 - (let ((__tmp50558 - (let ((__tmp50565 - (let ((__tmp50566 - (let ((__tmp50567 - (let ((__tmp50570 + (let ((__tmp50655 (gx#datum->syntax '#f 'let)) + (__tmp50602 + (let ((__tmp50642 + (let ((__tmp50649 + (let ((__tmp50650 + (let ((__tmp50651 + (let ((__tmp50654 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp50568 - (let ((__tmp50569 + (__tmp50652 + (let ((__tmp50653 (let () (declare (not safe)) (cons _L9545_ '())))) (declare (not safe)) - (cons '() __tmp50569)))) + (cons '() __tmp50653)))) (declare (not safe)) - (cons __tmp50570 __tmp50568)))) + (cons __tmp50654 __tmp50652)))) (declare (not safe)) - (cons __tmp50567 '())))) + (cons __tmp50651 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9548_ __tmp50566))) - (__tmp50559 - (let ((__tmp50560 - (let ((__tmp50561 - (let ((__tmp50562 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50564 (gx#datum->syntax '#f 'quote)) - (__tmp50563 + (cons _L9548_ __tmp50650))) + (__tmp50643 + (let ((__tmp50644 + (let ((__tmp50645 + (let ((__tmp50646 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50648 (gx#datum->syntax '#f 'quote)) + (__tmp50647 (let () (declare (not safe)) (cons _L9544_ '())))) (declare (not safe)) - (cons __tmp50564 __tmp50563)))) + (cons __tmp50648 __tmp50647)))) (declare (not safe)) - (cons __tmp50562 '())))) + (cons __tmp50646 '())))) (declare (not safe)) - (cons _L9547_ __tmp50561)))) + (cons _L9547_ __tmp50645)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50560 '())))) + (cons __tmp50644 '())))) (declare (not safe)) - (cons __tmp50565 __tmp50559))) - (__tmp50519 - (let ((__tmp50520 - (let ((__tmp50557 + (cons __tmp50649 __tmp50643))) + (__tmp50603 + (let ((__tmp50604 + (let ((__tmp50641 (gx#datum->syntax '#f 'if)) - (__tmp50521 - (let ((__tmp50554 - (let ((__tmp50556 + (__tmp50605 + (let ((__tmp50638 + (let ((__tmp50640 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fixnum?)) - (__tmp50555 + (__tmp50639 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons __tmp50556 __tmp50555))) - (__tmp50522 - (let ((__tmp50525 - (let ((__tmp50553 (gx#datum->syntax '#f 'if)) - (__tmp50526 - (let ((__tmp50541 - (let ((__tmp50552 + (cons __tmp50640 __tmp50639))) + (__tmp50606 + (let ((__tmp50609 + (let ((__tmp50637 (gx#datum->syntax '#f 'if)) + (__tmp50610 + (let ((__tmp50625 + (let ((__tmp50636 (gx#datum->syntax '#f 'and)) - (__tmp50542 - (let ((__tmp50548 - (let ((__tmp50551 + (__tmp50626 + (let ((__tmp50632 + (let ((__tmp50635 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##fx>=)) - (__tmp50549 - (let ((__tmp50550 + (__tmp50633 + (let ((__tmp50634 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _L9549_ __tmp50550)))) + (cons _L9549_ __tmp50634)))) (declare (not safe)) - (cons __tmp50551 __tmp50549))) - (__tmp50543 - (let ((__tmp50544 - (let ((__tmp50547 (gx#datum->syntax '#f '##fx<)) - (__tmp50545 - (let ((__tmp50546 + (cons __tmp50635 __tmp50633))) + (__tmp50627 + (let ((__tmp50628 + (let ((__tmp50631 (gx#datum->syntax '#f '##fx<)) + (__tmp50629 + (let ((__tmp50630 (let () (declare (not safe)) (cons _L9542_ '())))) (declare (not safe)) - (cons _L9549_ __tmp50546)))) + (cons _L9549_ __tmp50630)))) (declare (not safe)) - (cons __tmp50547 __tmp50545)))) + (cons __tmp50631 __tmp50629)))) (declare (not safe)) - (cons __tmp50544 '())))) + (cons __tmp50628 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50548 - __tmp50543)))) + (cons __tmp50632 + __tmp50627)))) (declare (not safe)) - (cons __tmp50552 __tmp50542))) - (__tmp50527 - (let ((__tmp50530 - (let ((__tmp50540 + (cons __tmp50636 __tmp50626))) + (__tmp50611 + (let ((__tmp50614 + (let ((__tmp50624 (gx#datum->syntax '#f 'let)) - (__tmp50531 - (let ((__tmp50533 + (__tmp50615 + (let ((__tmp50617 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50539 (gx#datum->syntax '#f 'x)) - (__tmp50534 - (let ((__tmp50535 - (let ((__tmp50538 + (let ((__tmp50623 (gx#datum->syntax '#f 'x)) + (__tmp50618 + (let ((__tmp50619 + (let ((__tmp50622 (gx#datum->syntax '#f '##vector-ref)) - (__tmp50536 - (let ((__tmp50537 + (__tmp50620 + (let ((__tmp50621 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons _L9547_ __tmp50537)))) + (cons _L9547_ __tmp50621)))) (declare (not safe)) - (cons __tmp50538 __tmp50536)))) + (cons __tmp50622 __tmp50620)))) (declare (not safe)) - (cons __tmp50535 '())))) + (cons __tmp50619 '())))) (declare (not safe)) - (cons __tmp50539 __tmp50534))) - (__tmp50532 + (cons __tmp50623 __tmp50618))) + (__tmp50616 (let () (declare (not safe)) (cons _L9603_ '())))) (declare (not safe)) - (cons __tmp50533 __tmp50532)))) + (cons __tmp50617 __tmp50616)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50540 - __tmp50531))) - (__tmp50528 - (let ((__tmp50529 + (cons __tmp50624 + __tmp50615))) + (__tmp50612 + (let ((__tmp50613 (let () (declare (not safe)) @@ -7500,93 +7594,95 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50529 '())))) + (cons __tmp50613 '())))) (declare (not safe)) - (cons __tmp50530 __tmp50528)))) + (cons __tmp50614 __tmp50612)))) (declare (not safe)) - (cons __tmp50541 __tmp50527)))) + (cons __tmp50625 __tmp50611)))) (declare (not safe)) - (cons __tmp50553 __tmp50526))) - (__tmp50523 - (let ((__tmp50524 + (cons __tmp50637 __tmp50610))) + (__tmp50607 + (let ((__tmp50608 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp50524 '())))) + (cons __tmp50608 '())))) (declare (not safe)) - (cons __tmp50525 __tmp50523)))) + (cons __tmp50609 __tmp50607)))) (declare (not safe)) - (cons __tmp50554 __tmp50522)))) + (cons __tmp50638 __tmp50606)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50557 - __tmp50521)))) + (cons __tmp50641 + __tmp50605)))) (declare (not safe)) - (cons __tmp50520 '())))) + (cons __tmp50604 '())))) (declare (not safe)) - (cons __tmp50558 __tmp50519)))) + (cons __tmp50642 __tmp50603)))) (declare (not safe)) - (cons __tmp50571 __tmp50518)))) + (cons __tmp50655 __tmp50602)))) _g95899600_)))) (_g95879616_ (if _dense?9386_ - (let ((__tmp50586 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp50583 - (let ((__tmp50585 (gx#datum->syntax '#f 'x)) - (__tmp50584 - (foldr (lambda (_g96199622_ _g96209625_) + (let ((__tmp50672 (gx#datum->syntax '#f '~case-dispatch)) + (__tmp50668 + (let ((__tmp50671 (gx#datum->syntax '#f 'x)) + (__tmp50669 + (let ((__tmp50670 + (lambda (_g96199622_ _g96209625_) (let () (declare (not safe)) - (cons _g96199622_ _g96209625_))) - '() - _L9546_))) + (cons _g96199622_ _g96209625_))))) + (declare (not safe)) + (foldr1 __tmp50670 '() _L9546_)))) (declare (not safe)) - (cons __tmp50585 __tmp50584)))) + (cons __tmp50671 __tmp50669)))) (declare (not safe)) - (cons __tmp50586 __tmp50583)) - (let ((__tmp50582 (gx#datum->syntax '#f 'if)) - (__tmp50572 - (let ((__tmp50581 (gx#datum->syntax '#f 'x)) - (__tmp50573 - (let ((__tmp50576 - (let ((__tmp50580 + (cons __tmp50672 __tmp50668)) + (let ((__tmp50667 (gx#datum->syntax '#f 'if)) + (__tmp50656 + (let ((__tmp50666 (gx#datum->syntax '#f 'x)) + (__tmp50657 + (let ((__tmp50660 + (let ((__tmp50665 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp50577 - (let ((__tmp50579 + (__tmp50661 + (let ((__tmp50664 (gx#datum->syntax '#f 'x)) - (__tmp50578 - (foldr (lambda (_g96279630_ + (__tmp50662 + (let ((__tmp50663 + (lambda (_g96279630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g96289633_) (let () (declare (not safe)) - (cons _g96279630_ _g96289633_))) - '() - _L9546_))) + (cons _g96279630_ _g96289633_))))) + (declare (not safe)) + (foldr1 __tmp50663 '() _L9546_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50579 - __tmp50578)))) + (cons __tmp50664 + __tmp50662)))) (declare (not safe)) - (cons __tmp50580 __tmp50577))) - (__tmp50574 - (let ((__tmp50575 + (cons __tmp50665 __tmp50661))) + (__tmp50658 + (let ((__tmp50659 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp50575 '())))) + (cons __tmp50659 '())))) (declare (not safe)) - (cons __tmp50576 __tmp50574)))) + (cons __tmp50660 __tmp50658)))) (declare (not safe)) - (cons __tmp50581 __tmp50573)))) + (cons __tmp50666 __tmp50657)))) (declare (not safe)) - (cons __tmp50582 __tmp50572))))))) + (cons __tmp50667 __tmp50656))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd94289536_ _hd94259526_ @@ -7682,28 +7778,28 @@ (declare (not safe)) (##cdr _e91869247_)))) (if (gx#stx-pair/null? _hd91859251_) - (let ((_g50587_ + (let ((_g50673_ (gx#syntax-split-splice _hd91859251_ '0))) (begin - (let ((_g50588_ + (let ((_g50674_ (let () (declare (not safe)) - (if (##values? _g50587_) - (##vector-length _g50587_) + (if (##values? _g50673_) + (##vector-length _g50673_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50588_ 2))) + (##fx= _g50674_ 2))) (error "Context expects 2 values" - _g50588_))) + _g50674_))) (let ((_target91879257_ (let () (declare (not safe)) - (##vector-ref _g50587_ 0))) + (##vector-ref _g50673_ 0))) (_tl91899260_ (let () (declare (not safe)) - (##vector-ref _g50587_ 1)))) + (##vector-ref _g50673_ 1)))) (if (gx#stx-null? _tl91899260_) (letrec ((_loop91909263_ (lambda (_hd91889267_ @@ -7764,22 +7860,22 @@ _L9323_ _L9324_) (let () - (let ((__tmp50671 + (let ((__tmp50758 (gx#datum->syntax '#f 'let)) - (__tmp50589 - (let ((__tmp50658 - (let ((__tmp50665 + (__tmp50675 + (let ((__tmp50745 + (let ((__tmp50752 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50666 - (let ((__tmp50667 - (let ((__tmp50670 + (let ((__tmp50753 + (let ((__tmp50754 + (let ((__tmp50757 (gx#datum->syntax '#f 'lambda)) - (__tmp50668 - (let ((__tmp50669 + (__tmp50755 + (let ((__tmp50756 (let () (declare (not safe)) @@ -7788,22 +7884,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp50669)))) + (cons '() __tmp50756)))) (declare (not safe)) - (cons __tmp50670 __tmp50668)))) + (cons __tmp50757 __tmp50755)))) (declare (not safe)) - (cons __tmp50667 '())))) + (cons __tmp50754 '())))) (declare (not safe)) - (cons _L9323_ __tmp50666))) - (__tmp50659 - (let ((__tmp50660 - (let ((__tmp50661 - (let ((__tmp50662 - (let ((__tmp50664 + (cons _L9323_ __tmp50753))) + (__tmp50746 + (let ((__tmp50747 + (let ((__tmp50748 + (let ((__tmp50749 + (let ((__tmp50751 (gx#datum->syntax '#f 'quote)) - (__tmp50663 + (__tmp50750 (let () (declare (not safe)) @@ -7812,50 +7908,50 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50664 - __tmp50663)))) + (cons __tmp50751 + __tmp50750)))) (declare (not safe)) - (cons __tmp50662 '())))) + (cons __tmp50749 '())))) (declare (not safe)) - (cons _L9322_ __tmp50661)))) + (cons _L9322_ __tmp50748)))) (declare (not safe)) - (cons __tmp50660 '())))) + (cons __tmp50747 '())))) (declare (not safe)) - (cons __tmp50665 __tmp50659))) - (__tmp50590 - (let ((__tmp50591 - (let ((__tmp50657 (gx#datum->syntax '#f 'if)) - (__tmp50592 - (let ((__tmp50654 - (let ((__tmp50656 + (cons __tmp50752 __tmp50746))) + (__tmp50676 + (let ((__tmp50677 + (let ((__tmp50744 (gx#datum->syntax '#f 'if)) + (__tmp50678 + (let ((__tmp50741 + (let ((__tmp50743 (gx#datum->syntax '#f 'fixnum?)) - (__tmp50655 + (__tmp50742 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp50656 __tmp50655))) - (__tmp50593 - (let ((__tmp50596 - (let ((__tmp50653 + (cons __tmp50743 __tmp50742))) + (__tmp50679 + (let ((__tmp50682 + (let ((__tmp50740 (gx#datum->syntax '#f 'let*)) - (__tmp50597 - (let ((__tmp50636 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50646 - (let ((__tmp50652 (gx#datum->syntax '#f 'ix)) - (__tmp50647 - (let ((__tmp50648 - (let ((__tmp50651 + (__tmp50683 + (let ((__tmp50723 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50733 + (let ((__tmp50739 (gx#datum->syntax '#f 'ix)) + (__tmp50734 + (let ((__tmp50735 + (let ((__tmp50738 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp50649 - (let ((__tmp50650 + (__tmp50736 + (let ((__tmp50737 (let () (declare (not safe)) @@ -7863,151 +7959,152 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L9324_ __tmp50650)))) + (cons _L9324_ __tmp50737)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50651 __tmp50649)))) + (cons __tmp50738 __tmp50736)))) (declare (not safe)) - (cons __tmp50648 '())))) + (cons __tmp50735 '())))) (declare (not safe)) - (cons __tmp50652 __tmp50647))) - (__tmp50637 - (let ((__tmp50638 - (let ((__tmp50645 + (cons __tmp50739 __tmp50734))) + (__tmp50724 + (let ((__tmp50725 + (let ((__tmp50732 (gx#datum->syntax '#f 'q)) - (__tmp50639 - (let ((__tmp50640 - (let ((__tmp50644 + (__tmp50726 + (let ((__tmp50727 + (let ((__tmp50731 (gx#datum->syntax '#f '##vector-ref)) - (__tmp50641 - (let ((__tmp50642 + (__tmp50728 + (let ((__tmp50729 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50643 (gx#datum->syntax '#f 'ix))) + (let ((__tmp50730 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp50643 '())))) + (cons __tmp50730 '())))) (declare (not safe)) - (cons _L9322_ __tmp50642)))) + (cons _L9322_ __tmp50729)))) (declare (not safe)) - (cons __tmp50644 __tmp50641)))) + (cons __tmp50731 __tmp50728)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50640 '())))) + (cons __tmp50727 '())))) (declare (not safe)) - (cons __tmp50645 __tmp50639)))) + (cons __tmp50732 __tmp50726)))) (declare (not safe)) - (cons __tmp50638 '())))) + (cons __tmp50725 '())))) (declare (not safe)) - (cons __tmp50646 __tmp50637))) - (__tmp50598 - (let ((__tmp50599 - (let ((__tmp50635 (gx#datum->syntax '#f 'if)) - (__tmp50600 - (let ((__tmp50634 + (cons __tmp50733 __tmp50724))) + (__tmp50684 + (let ((__tmp50685 + (let ((__tmp50722 (gx#datum->syntax '#f 'if)) + (__tmp50686 + (let ((__tmp50721 (gx#datum->syntax '#f 'q)) - (__tmp50601 - (let ((__tmp50604 - (let ((__tmp50633 + (__tmp50687 + (let ((__tmp50690 + (let ((__tmp50720 (gx#datum->syntax '#f 'if)) - (__tmp50605 - (let ((__tmp50625 + (__tmp50691 + (let ((__tmp50712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50632 (gx#datum->syntax '#f 'eq?)) - (__tmp50626 - (let ((__tmp50628 - (let ((__tmp50631 + (let ((__tmp50719 (gx#datum->syntax '#f 'eq?)) + (__tmp50713 + (let ((__tmp50715 + (let ((__tmp50718 (gx#datum->syntax '#f '##car)) - (__tmp50629 - (let ((__tmp50630 + (__tmp50716 + (let ((__tmp50717 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp50630 '())))) + (cons __tmp50717 '())))) (declare (not safe)) - (cons __tmp50631 __tmp50629))) - (__tmp50627 + (cons __tmp50718 __tmp50716))) + (__tmp50714 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp50628 __tmp50627)))) + (cons __tmp50715 __tmp50714)))) (declare (not safe)) - (cons __tmp50632 __tmp50626))) - (__tmp50606 - (let ((__tmp50609 - (let ((__tmp50624 + (cons __tmp50719 __tmp50713))) + (__tmp50692 + (let ((__tmp50695 + (let ((__tmp50711 (gx#datum->syntax '#f 'let)) - (__tmp50610 - (let ((__tmp50617 - (let ((__tmp50623 + (__tmp50696 + (let ((__tmp50704 + (let ((__tmp50710 (gx#datum->syntax '#f 'x)) - (__tmp50618 - (let ((__tmp50619 - (let ((__tmp50622 + (__tmp50705 + (let ((__tmp50706 + (let ((__tmp50709 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp50620 - (let ((__tmp50621 (gx#datum->syntax '#f 'q))) + (__tmp50707 + (let ((__tmp50708 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp50621 '())))) + (cons __tmp50708 '())))) (declare (not safe)) - (cons __tmp50622 __tmp50620)))) + (cons __tmp50709 __tmp50707)))) (declare (not safe)) - (cons __tmp50619 '())))) + (cons __tmp50706 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50623 - __tmp50618))) - (__tmp50611 - (let ((__tmp50612 - (let ((__tmp50616 + (cons __tmp50710 + __tmp50705))) + (__tmp50697 + (let ((__tmp50698 + (let ((__tmp50703 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp50613 - (let ((__tmp50615 + (__tmp50699 + (let ((__tmp50702 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp50614 - (foldr (lambda (_g93619364_ _g93629367_) + (__tmp50700 + (let ((__tmp50701 + (lambda (_g93619364_ _g93629367_) (let () (declare (not safe)) - (cons _g93619364_ _g93629367_))) - '() - _L9321_))) + (cons _g93619364_ _g93629367_))))) + (declare (not safe)) + (foldr1 __tmp50701 '() _L9321_)))) (declare (not safe)) - (cons __tmp50615 __tmp50614)))) + (cons __tmp50702 __tmp50700)))) (declare (not safe)) - (cons __tmp50616 __tmp50613)))) + (cons __tmp50703 __tmp50699)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50612 '())))) + (cons __tmp50698 '())))) (declare (not safe)) - (cons __tmp50617 __tmp50611)))) + (cons __tmp50704 __tmp50697)))) (declare (not safe)) - (cons __tmp50624 __tmp50610))) - (__tmp50607 - (let ((__tmp50608 + (cons __tmp50711 __tmp50696))) + (__tmp50693 + (let ((__tmp50694 (let () (declare (not safe)) (cons _L9323_ '())))) (declare (not safe)) - (cons __tmp50608 '())))) + (cons __tmp50694 '())))) (declare (not safe)) - (cons __tmp50609 __tmp50607)))) + (cons __tmp50695 __tmp50693)))) (declare (not safe)) - (cons __tmp50625 __tmp50606)))) + (cons __tmp50712 __tmp50692)))) (declare (not safe)) - (cons __tmp50633 __tmp50605))) + (cons __tmp50720 __tmp50691))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50602 - (let ((__tmp50603 + (__tmp50688 + (let ((__tmp50689 (let () (declare (not safe)) @@ -8015,24 +8112,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp50603 '())))) + (cons __tmp50689 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50604 __tmp50602)))) + (cons __tmp50690 __tmp50688)))) (declare (not safe)) - (cons __tmp50634 __tmp50601)))) + (cons __tmp50721 __tmp50687)))) (declare (not safe)) - (cons __tmp50635 __tmp50600)))) + (cons __tmp50722 __tmp50686)))) (declare (not safe)) - (cons __tmp50599 '())))) + (cons __tmp50685 '())))) (declare (not safe)) - (cons __tmp50636 __tmp50598)))) + (cons __tmp50723 __tmp50684)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50653 - __tmp50597))) - (__tmp50594 - (let ((__tmp50595 + (cons __tmp50740 + __tmp50683))) + (__tmp50680 + (let ((__tmp50681 (let () (declare (not safe)) @@ -8041,21 +8138,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50595 '())))) + (cons __tmp50681 '())))) (declare (not safe)) - (cons __tmp50596 __tmp50594)))) + (cons __tmp50682 __tmp50680)))) (declare (not safe)) - (cons __tmp50654 __tmp50593)))) + (cons __tmp50741 __tmp50679)))) (declare (not safe)) - (cons __tmp50657 __tmp50592)))) + (cons __tmp50744 __tmp50678)))) (declare (not safe)) - (cons __tmp50591 '())))) + (cons __tmp50677 '())))) (declare (not safe)) - (cons __tmp50658 __tmp50590)))) + (cons __tmp50745 __tmp50676)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50671 - __tmp50589)))) + (cons __tmp50758 + __tmp50675)))) _hd92039311_ _hd92009301_ _hd91979291_ @@ -8087,7 +8184,7 @@ (vector-length _tab9161_))))))) (_generate-generic-dispatch8762_ (lambda (_e8888_ _datums8890_ _dispatch8891_ _default8892_) - (let ((_g50672_ + (let ((_g50759_ (if (_eq-datums?8745_ _datums8890_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) @@ -8096,15 +8193,15 @@ (let ((_hash-e8894_ (let () (declare (not safe)) - (##vector-ref _g50672_ 0))) + (##vector-ref _g50759_ 0))) (_hashf8896_ (let () (declare (not safe)) - (##vector-ref _g50672_ 1))) + (##vector-ref _g50759_ 1))) (_eqf8897_ (let () (declare (not safe)) - (##vector-ref _g50672_ 2)))) + (##vector-ref _g50759_ 2)))) (let* ((_indexes8899_ (_datum-dispatch-index8747_ _datums8890_)) (_tab8902_ @@ -8164,30 +8261,30 @@ (declare (not safe)) (##cdr _e89298996_)))) (if (gx#stx-pair/null? _hd89289000_) - (let ((_g50673_ + (let ((_g50760_ (gx#syntax-split-splice _hd89289000_ '0))) (begin - (let ((_g50674_ + (let ((_g50761_ (let () (declare (not safe)) - (if (##values? _g50673_) - (##vector-length _g50673_) + (if (##values? _g50760_) + (##vector-length _g50760_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50674_ 2))) + (##fx= _g50761_ 2))) (error "Context expects 2 values" - _g50674_))) + _g50761_))) (let ((_target89309006_ (let () (declare (not safe)) - (##vector-ref _g50673_ 0))) + (##vector-ref _g50760_ 0))) (_tl89329009_ (let () (declare (not safe)) - (##vector-ref _g50673_ 1)))) + (##vector-ref _g50760_ 1)))) (if (gx#stx-null? _tl89329009_) (letrec ((_loop89339012_ (lambda (_hd89319016_ @@ -8275,266 +8372,267 @@ _L9094_ _L9095_) (let () - (let ((__tmp50754 (gx#datum->syntax '#f 'let)) - (__tmp50675 - (let ((__tmp50741 - (let ((__tmp50748 - (let ((__tmp50749 - (let ((__tmp50750 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50753 (gx#datum->syntax '#f 'lambda)) - (__tmp50751 - (let ((__tmp50752 + (let ((__tmp50842 (gx#datum->syntax '#f 'let)) + (__tmp50762 + (let ((__tmp50829 + (let ((__tmp50836 + (let ((__tmp50837 + (let ((__tmp50838 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50841 (gx#datum->syntax '#f 'lambda)) + (__tmp50839 + (let ((__tmp50840 (let () (declare (not safe)) (cons _L9091_ '())))) (declare (not safe)) - (cons '() __tmp50752)))) + (cons '() __tmp50840)))) (declare (not safe)) - (cons __tmp50753 __tmp50751)))) + (cons __tmp50841 __tmp50839)))) (declare (not safe)) - (cons __tmp50750 '())))) + (cons __tmp50838 '())))) (declare (not safe)) - (cons _L9094_ __tmp50749))) + (cons _L9094_ __tmp50837))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50742 - (let ((__tmp50743 - (let ((__tmp50744 + (__tmp50830 + (let ((__tmp50831 + (let ((__tmp50832 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50745 - (let ((__tmp50747 + (let ((__tmp50833 + (let ((__tmp50835 (gx#datum->syntax '#f 'quote)) - (__tmp50746 + (__tmp50834 (let () (declare (not safe)) (cons _L9090_ '())))) (declare (not safe)) - (cons __tmp50747 __tmp50746)))) + (cons __tmp50835 __tmp50834)))) (declare (not safe)) - (cons __tmp50745 '())))) + (cons __tmp50833 '())))) (declare (not safe)) - (cons _L9093_ __tmp50744)))) + (cons _L9093_ __tmp50832)))) (declare (not safe)) - (cons __tmp50743 '())))) + (cons __tmp50831 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50748 __tmp50742))) - (__tmp50676 - (let ((__tmp50677 - (let ((__tmp50740 + (cons __tmp50836 __tmp50830))) + (__tmp50763 + (let ((__tmp50764 + (let ((__tmp50828 (gx#datum->syntax '#f 'let*)) - (__tmp50678 - (let ((__tmp50716 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50735 - (let ((__tmp50739 (gx#datum->syntax '#f 'h)) - (__tmp50736 - (let ((__tmp50737 - (let ((__tmp50738 + (__tmp50765 + (let ((__tmp50804 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50823 + (let ((__tmp50827 (gx#datum->syntax '#f 'h)) + (__tmp50824 + (let ((__tmp50825 + (let ((__tmp50826 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons _L9088_ __tmp50738)))) + (cons _L9088_ __tmp50826)))) (declare (not safe)) - (cons __tmp50737 '())))) + (cons __tmp50825 '())))) (declare (not safe)) - (cons __tmp50739 __tmp50736))) - (__tmp50717 - (let ((__tmp50727 - (let ((__tmp50734 + (cons __tmp50827 __tmp50824))) + (__tmp50805 + (let ((__tmp50815 + (let ((__tmp50822 (gx#datum->syntax '#f 'ix)) - (__tmp50728 - (let ((__tmp50729 - (let ((__tmp50733 + (__tmp50816 + (let ((__tmp50817 + (let ((__tmp50821 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp50730 - (let ((__tmp50732 + (__tmp50818 + (let ((__tmp50820 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp50731 + (__tmp50819 (let () (declare (not safe)) (cons _L9089_ '())))) (declare (not safe)) - (cons __tmp50732 __tmp50731)))) + (cons __tmp50820 __tmp50819)))) (declare (not safe)) - (cons __tmp50733 __tmp50730)))) + (cons __tmp50821 __tmp50818)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50729 '())))) + (cons __tmp50817 '())))) (declare (not safe)) - (cons __tmp50734 __tmp50728))) - (__tmp50718 - (let ((__tmp50719 - (let ((__tmp50726 + (cons __tmp50822 __tmp50816))) + (__tmp50806 + (let ((__tmp50807 + (let ((__tmp50814 (gx#datum->syntax '#f 'q)) - (__tmp50720 - (let ((__tmp50721 - (let ((__tmp50725 + (__tmp50808 + (let ((__tmp50809 + (let ((__tmp50813 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp50722 - (let ((__tmp50723 - (let ((__tmp50724 + (__tmp50810 + (let ((__tmp50811 + (let ((__tmp50812 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp50724 '())))) + (cons __tmp50812 '())))) (declare (not safe)) - (cons _L9093_ __tmp50723)))) + (cons _L9093_ __tmp50811)))) (declare (not safe)) - (cons __tmp50725 __tmp50722)))) + (cons __tmp50813 __tmp50810)))) (declare (not safe)) - (cons __tmp50721 '())))) + (cons __tmp50809 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50726 - __tmp50720)))) + (cons __tmp50814 + __tmp50808)))) (declare (not safe)) - (cons __tmp50719 '())))) + (cons __tmp50807 '())))) (declare (not safe)) - (cons __tmp50727 __tmp50718)))) + (cons __tmp50815 __tmp50806)))) (declare (not safe)) - (cons __tmp50735 __tmp50717))) - (__tmp50679 - (let ((__tmp50680 - (let ((__tmp50715 (gx#datum->syntax '#f 'if)) - (__tmp50681 - (let ((__tmp50714 + (cons __tmp50823 __tmp50805))) + (__tmp50766 + (let ((__tmp50767 + (let ((__tmp50803 (gx#datum->syntax '#f 'if)) + (__tmp50768 + (let ((__tmp50802 (gx#datum->syntax '#f 'q)) - (__tmp50682 - (let ((__tmp50685 - (let ((__tmp50713 + (__tmp50769 + (let ((__tmp50772 + (let ((__tmp50801 (gx#datum->syntax '#f 'if)) - (__tmp50686 - (let ((__tmp50706 + (__tmp50773 + (let ((__tmp50794 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50707 - (let ((__tmp50709 - (let ((__tmp50712 + (let ((__tmp50795 + (let ((__tmp50797 + (let ((__tmp50800 (gx#datum->syntax '#f '##car)) - (__tmp50710 - (let ((__tmp50711 + (__tmp50798 + (let ((__tmp50799 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp50711 '())))) + (cons __tmp50799 '())))) (declare (not safe)) - (cons __tmp50712 __tmp50710))) - (__tmp50708 + (cons __tmp50800 __tmp50798))) + (__tmp50796 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons __tmp50709 __tmp50708)))) + (cons __tmp50797 __tmp50796)))) (declare (not safe)) - (cons _L9086_ __tmp50707))) - (__tmp50687 - (let ((__tmp50690 - (let ((__tmp50705 + (cons _L9086_ __tmp50795))) + (__tmp50774 + (let ((__tmp50777 + (let ((__tmp50793 (gx#datum->syntax '#f 'let)) - (__tmp50691 - (let ((__tmp50698 - (let ((__tmp50704 + (__tmp50778 + (let ((__tmp50786 + (let ((__tmp50792 (gx#datum->syntax '#f 'x)) - (__tmp50699 - (let ((__tmp50700 - (let ((__tmp50703 + (__tmp50787 + (let ((__tmp50788 + (let ((__tmp50791 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp50701 - (let ((__tmp50702 (gx#datum->syntax '#f 'q))) + (__tmp50789 + (let ((__tmp50790 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp50702 '())))) + (cons __tmp50790 '())))) (declare (not safe)) - (cons __tmp50703 __tmp50701)))) + (cons __tmp50791 __tmp50789)))) (declare (not safe)) - (cons __tmp50700 '())))) + (cons __tmp50788 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50704 - __tmp50699))) - (__tmp50692 - (let ((__tmp50693 - (let ((__tmp50697 + (cons __tmp50792 + __tmp50787))) + (__tmp50779 + (let ((__tmp50780 + (let ((__tmp50785 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp50694 - (let ((__tmp50696 + (__tmp50781 + (let ((__tmp50784 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp50695 - (foldr (lambda (_g91399142_ _g91409145_) + (__tmp50782 + (let ((__tmp50783 + (lambda (_g91399142_ _g91409145_) (let () (declare (not safe)) - (cons _g91399142_ _g91409145_))) - '() - _L9092_))) + (cons _g91399142_ _g91409145_))))) + (declare (not safe)) + (foldr1 __tmp50783 '() _L9092_)))) (declare (not safe)) - (cons __tmp50696 __tmp50695)))) + (cons __tmp50784 __tmp50782)))) (declare (not safe)) - (cons __tmp50697 __tmp50694)))) + (cons __tmp50785 __tmp50781)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50693 '())))) + (cons __tmp50780 '())))) (declare (not safe)) - (cons __tmp50698 __tmp50692)))) + (cons __tmp50786 __tmp50779)))) (declare (not safe)) - (cons __tmp50705 __tmp50691))) - (__tmp50688 - (let ((__tmp50689 + (cons __tmp50793 __tmp50778))) + (__tmp50775 + (let ((__tmp50776 (let () (declare (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp50689 '())))) + (cons __tmp50776 '())))) (declare (not safe)) - (cons __tmp50690 __tmp50688)))) + (cons __tmp50777 __tmp50775)))) (declare (not safe)) - (cons __tmp50706 __tmp50687)))) + (cons __tmp50794 __tmp50774)))) (declare (not safe)) - (cons __tmp50713 __tmp50686))) + (cons __tmp50801 __tmp50773))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50683 - (let ((__tmp50684 + (__tmp50770 + (let ((__tmp50771 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp50684 '())))) + (cons __tmp50771 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50685 - __tmp50683)))) + (cons __tmp50772 + __tmp50770)))) (declare (not safe)) - (cons __tmp50714 __tmp50682)))) + (cons __tmp50802 __tmp50769)))) (declare (not safe)) - (cons __tmp50715 __tmp50681)))) + (cons __tmp50803 __tmp50768)))) (declare (not safe)) - (cons __tmp50680 '())))) + (cons __tmp50767 '())))) (declare (not safe)) - (cons __tmp50716 __tmp50679)))) + (cons __tmp50804 __tmp50766)))) (declare (not safe)) - (cons __tmp50740 __tmp50678)))) + (cons __tmp50828 __tmp50765)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50677 '())))) + (cons __tmp50764 '())))) (declare (not safe)) - (cons __tmp50741 __tmp50676)))) + (cons __tmp50829 __tmp50763)))) (declare (not safe)) - (cons __tmp50754 __tmp50675)))) + (cons __tmp50842 __tmp50762)))) _hd89529080_ _hd89499070_ _hd89469060_ @@ -8601,34 +8699,34 @@ (declare (not safe)) (##cdr _e87738805_)))) (if (gx#stx-pair/null? _tl87718812_) - (let ((_g50755_ + (let ((_g50843_ (gx#syntax-split-splice _tl87718812_ '0))) (begin - (let ((_g50756_ + (let ((_g50844_ (let () (declare (not safe)) - (if (##values? _g50755_) + (if (##values? _g50843_) (##vector-length - _g50755_) + _g50843_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50756_ 2))) + (##fx= _g50844_ 2))) (error "Context expects 2 values" - _g50756_))) + _g50844_))) (let ((_target87748815_ (let () (declare (not safe)) (##vector-ref - _g50755_ + _g50843_ 0))) (_tl87768818_ (let () (declare (not safe)) (##vector-ref - _g50755_ + _g50843_ 1)))) (if (gx#stx-null? _tl87768818_) (letrec ((_loop87778821_ @@ -8652,40 +8750,41 @@ (cons _lp-hd87798835_ _clause87818828_))))) (let ((_clause87828841_ (reverse _clause87818828_))) ((lambda (_L8845_ _L8847_) - (let ((_g50757_ + (let ((_g50845_ (_parse-clauses8738_ _L8847_ - (foldr (lambda (_g88658868_ _g88668871_) + (let ((__tmp50847 + (lambda (_g88658868_ _g88668871_) (let () (declare (not safe)) (cons _g88658868_ - _g88668871_))) - '() - _L8845_)))) + _g88668871_))))) + (declare (not safe)) + (foldr1 __tmp50847 '() _L8845_))))) (begin - (let ((_g50758_ + (let ((_g50846_ (let () (declare (not safe)) - (if (##values? _g50757_) - (##vector-length _g50757_) + (if (##values? _g50845_) + (##vector-length _g50845_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50758_ 3))) + (##fx= _g50846_ 3))) (error "Context expects 3 values" - _g50758_))) + _g50846_))) (let ((_datums8874_ (let () (declare (not safe)) - (##vector-ref _g50757_ 0))) + (##vector-ref _g50845_ 0))) (_dispatch8876_ (let () (declare (not safe)) - (##vector-ref _g50757_ 1))) + (##vector-ref _g50845_ 1))) (_default8877_ (let () (declare (not safe)) - (##vector-ref _g50757_ 2)))) + (##vector-ref _g50845_ 2)))) (let ((_datum-count8879_ (_count-datums8741_ _datums8874_))) (if (< _datum-count8879_ '6) @@ -8795,67 +8894,67 @@ (not safe)) (immediate? _datum-e11862_))) - (let ((__tmp50776 + (let ((__tmp50865 (gx#datum->syntax '#f 'eq?)) - (__tmp50771 - (let ((__tmp50773 + (__tmp50860 + (let ((__tmp50862 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50775 (gx#datum->syntax '#f 'quote)) - (__tmp50774 + (let ((__tmp50864 (gx#datum->syntax '#f 'quote)) + (__tmp50863 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp50775 __tmp50774))) - (__tmp50772 + (cons __tmp50864 __tmp50863))) + (__tmp50861 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp50773 __tmp50772)))) + (cons __tmp50862 __tmp50861)))) (declare (not safe)) - (cons __tmp50776 __tmp50771)) + (cons __tmp50865 __tmp50860)) (if (let () (declare (not safe)) (number? _datum-e11862_)) - (let ((__tmp50770 (gx#datum->syntax '#f 'eqv?)) - (__tmp50765 - (let ((__tmp50767 - (let ((__tmp50769 + (let ((__tmp50859 (gx#datum->syntax '#f 'eqv?)) + (__tmp50854 + (let ((__tmp50856 + (let ((__tmp50858 (gx#datum->syntax '#f 'quote)) - (__tmp50768 + (__tmp50857 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp50769 __tmp50768))) - (__tmp50766 + (cons __tmp50858 __tmp50857))) + (__tmp50855 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp50767 __tmp50766)))) + (cons __tmp50856 __tmp50855)))) (declare (not safe)) - (cons __tmp50770 __tmp50765)) - (let ((__tmp50764 (gx#datum->syntax '#f 'equal?)) - (__tmp50759 - (let ((__tmp50761 - (let ((__tmp50763 + (cons __tmp50859 __tmp50854)) + (let ((__tmp50853 (gx#datum->syntax '#f 'equal?)) + (__tmp50848 + (let ((__tmp50850 + (let ((__tmp50852 (gx#datum->syntax '#f 'quote)) - (__tmp50762 + (__tmp50851 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp50763 __tmp50762))) - (__tmp50760 + (cons __tmp50852 __tmp50851))) + (__tmp50849 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp50761 __tmp50760)))) + (cons __tmp50850 __tmp50849)))) (declare (not safe)) - (cons __tmp50764 __tmp50759)))))) + (cons __tmp50853 __tmp50848)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1180011838_ _hd1179711828_) @@ -8896,31 +8995,31 @@ (declare (not safe)) (##cdr _e1189011922_)))) (if (gx#stx-pair/null? _tl1188811929_) - (let ((_g50777_ + (let ((_g50866_ (gx#syntax-split-splice _tl1188811929_ '0))) (begin - (let ((_g50778_ + (let ((_g50867_ (let () (declare (not safe)) - (if (##values? _g50777_) + (if (##values? _g50866_) (##vector-length - _g50777_) + _g50866_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50778_ 2))) + (##fx= _g50867_ 2))) (error "Context expects 2 values" - _g50778_))) + _g50867_))) (let ((_target1189111932_ (let () (declare (not safe)) - (##vector-ref _g50777_ 0))) + (##vector-ref _g50866_ 0))) (_tl1189311935_ (let () (declare (not safe)) - (##vector-ref _g50777_ 1)))) + (##vector-ref _g50866_ 1)))) (if (gx#stx-null? _tl1189311935_) (letrec ((_loop1189411938_ (lambda (_hd1189211942_ @@ -8943,26 +9042,29 @@ (cons _lp-hd1189611952_ _K1189811945_))))) (let ((_K1189911958_ (reverse _K1189811945_))) ((lambda (_L11962_ _L11964_) - (let ((__tmp50782 + (let ((__tmp50872 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp50779 - (let ((__tmp50780 - (let ((__tmp50781 - (foldr (lambda (_g1198111984_ + (__tmp50868 + (let ((__tmp50869 + (let ((__tmp50870 + (let ((__tmp50871 + (lambda (_g1198111984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1198211987_) (let () (declare (not safe)) - (cons _g1198111984_ _g1198211987_))) - '() - _L11962_))) + (cons _g1198111984_ _g1198211987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp50871 + '() + _L11962_)))) (declare (not safe)) - (cons _L11964_ __tmp50781)))) + (cons _L11964_ __tmp50870)))) (declare (not safe)) - (cons '0 __tmp50780)))) + (cons '0 __tmp50869)))) (declare (not safe)) - (cons __tmp50782 __tmp50779))) + (cons __tmp50872 __tmp50868))) _K1189911958_ _hd1188911926_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8986,11 +9088,11 @@ ___stx4544645447_)))) (let ((___kont4544945450_ (lambda (_L12575_ _L12577_) - (let ((__tmp50784 (gx#datum->syntax '#f 'quote)) - (__tmp50783 + (let ((__tmp50874 (gx#datum->syntax '#f 'quote)) + (__tmp50873 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp50784 __tmp50783)))) + (cons __tmp50874 __tmp50873)))) (___kont4545145452_ (lambda (_L12517_ _L12519_ _L12520_) _L12517_)) (___kont4545345454_ @@ -9005,37 +9107,37 @@ (lambda (_g1244012451_) ((lambda (_L12454_) (let () - (let ((__tmp50792 (gx#datum->syntax '#f 'if)) - (__tmp50785 - (let ((__tmp50788 - (let ((__tmp50791 + (let ((__tmp50882 (gx#datum->syntax '#f 'if)) + (__tmp50875 + (let ((__tmp50878 + (let ((__tmp50881 (gx#datum->syntax '#f '##fx=)) - (__tmp50789 - (let ((__tmp50790 + (__tmp50879 + (let ((__tmp50880 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L12454_ '())))) (declare (not safe)) - (cons _L12417_ __tmp50790)))) + (cons _L12417_ __tmp50880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50791 - __tmp50789))) - (__tmp50786 - (let ((__tmp50787 + (cons __tmp50881 + __tmp50879))) + (__tmp50876 + (let ((__tmp50877 (let () (declare (not safe)) (cons _L12414_ '())))) (declare (not safe)) - (cons _L12416_ __tmp50787)))) + (cons _L12416_ __tmp50877)))) (declare (not safe)) - (cons __tmp50788 __tmp50786)))) + (cons __tmp50878 __tmp50876)))) (declare (not safe)) - (cons __tmp50792 __tmp50785)))) + (cons __tmp50882 __tmp50875)))) _g1244012451_)))) (_g1243812466_ (gx#stx-e _L12418_))))) (___kont4545545456_ @@ -9073,63 +9175,63 @@ (if (gx#stx-null? _tl1230012332_) ((lambda (_L12335_ _L12337_) (let () - (let ((__tmp50809 + (let ((__tmp50899 (gx#datum->syntax '#f 'if)) - (__tmp50793 - (let ((__tmp50805 + (__tmp50883 + (let ((__tmp50895 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50808 (gx#datum->syntax '#f '##fx=)) - (__tmp50806 - (let ((__tmp50807 + (let ((__tmp50898 (gx#datum->syntax '#f '##fx=)) + (__tmp50896 + (let ((__tmp50897 (let () (declare (not safe)) (cons _L12337_ '())))) (declare (not safe)) - (cons _L12268_ __tmp50807)))) + (cons _L12268_ __tmp50897)))) (declare (not safe)) - (cons __tmp50808 __tmp50806))) - (__tmp50794 - (let ((__tmp50795 - (let ((__tmp50796 - (let ((__tmp50804 + (cons __tmp50898 __tmp50896))) + (__tmp50884 + (let ((__tmp50885 + (let ((__tmp50886 + (let ((__tmp50894 (gx#datum->syntax '#f 'if)) - (__tmp50797 - (let ((__tmp50800 - (let ((__tmp50803 + (__tmp50887 + (let ((__tmp50890 + (let ((__tmp50893 (gx#datum->syntax '#f '##fx=)) - (__tmp50801 - (let ((__tmp50802 + (__tmp50891 + (let ((__tmp50892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12335_ '())))) (declare (not safe)) - (cons _L12268_ __tmp50802)))) + (cons _L12268_ __tmp50892)))) (declare (not safe)) - (cons __tmp50803 __tmp50801))) - (__tmp50798 - (let ((__tmp50799 + (cons __tmp50893 __tmp50891))) + (__tmp50888 + (let ((__tmp50889 (let () (declare (not safe)) (cons _L12264_ '())))) (declare (not safe)) - (cons _L12266_ __tmp50799)))) + (cons _L12266_ __tmp50889)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50800 - __tmp50798)))) + (cons __tmp50890 + __tmp50888)))) (declare (not safe)) - (cons __tmp50804 __tmp50797)))) + (cons __tmp50894 __tmp50887)))) (declare (not safe)) - (cons __tmp50796 '())))) + (cons __tmp50886 '())))) (declare (not safe)) - (cons _L12267_ __tmp50795)))) + (cons _L12267_ __tmp50885)))) (declare (not safe)) - (cons __tmp50805 __tmp50794)))) + (cons __tmp50895 __tmp50884)))) (declare (not safe)) - (cons __tmp50809 __tmp50793)))) + (cons __tmp50899 __tmp50883)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1230112329_ _hd1229812319_) @@ -9139,30 +9241,31 @@ (_g1229312308_ _g1229412312_))))) (_g1229212353_ (list (gx#stx-e _L12269_) - (let ((__tmp50810 (gx#stx-e _L12269_))) + (let ((__tmp50900 (gx#stx-e _L12269_))) (declare (not safe)) - (fx+ __tmp50810 '1))))))) + (fx+ __tmp50900 '1))))))) (___kont4545745458_ (lambda (_L12165_ _L12167_ _L12168_) - (let ((__tmp50814 + (let ((__tmp50905 (gx#datum->syntax '#f '~case-dispatch-bsearch)) - (__tmp50811 - (let ((__tmp50812 - (let ((__tmp50813 - (foldr (lambda (_g1218812191_ + (__tmp50901 + (let ((__tmp50902 + (let ((__tmp50903 + (let ((__tmp50904 + (lambda (_g1218812191_ _g1218912194_) (let () (declare (not safe)) (cons _g1218812191_ - _g1218912194_))) - '() - _L12165_))) + _g1218912194_))))) + (declare (not safe)) + (foldr1 __tmp50904 '() _L12165_)))) (declare (not safe)) - (cons _L12167_ __tmp50813)))) + (cons _L12167_ __tmp50903)))) (declare (not safe)) - (cons _L12168_ __tmp50812)))) + (cons _L12168_ __tmp50902)))) (declare (not safe)) - (cons __tmp50814 __tmp50811))))) + (cons __tmp50905 __tmp50901))))) (let ((___match4560345604_ (lambda (_e1207712105_ _hd1207612109_ @@ -9448,9 +9551,9 @@ (_lp12965_ (let () (declare (not safe)) (fx+ _i12968_ '1)) (cdr _rest12970_) - (let ((__tmp50815 (car _rest12970_))) + (let ((__tmp50906 (car _rest12970_))) (declare (not safe)) - (cons __tmp50815 _left12971_))) + (cons __tmp50906 _left12971_))) (values (reverse _left12971_) _rest12970_)))))) (let* ((_g1260312631_ (lambda (_g1260412627_) @@ -9494,36 +9597,36 @@ (##cdr _e1261612658_)))) (if (gx#stx-pair/null? _tl1261412665_) - (let ((_g50816_ + (let ((_g50907_ (gx#syntax-split-splice _tl1261412665_ '0))) (begin - (let ((_g50817_ + (let ((_g50908_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50816_) - (##vector-length _g50816_) + _g50907_) + (##vector-length _g50907_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50817_ 2))) - (error "Context expects 2 values" _g50817_))) + (if (not (let () (declare (not safe)) (##fx= _g50908_ 2))) + (error "Context expects 2 values" _g50908_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1261712668_ (let () (declare (not safe)) (##vector-ref - _g50816_ + _g50907_ 0))) (_tl1261912671_ (let () (declare (not safe)) (##vector-ref - _g50816_ + _g50907_ 1)))) (if (gx#stx-null? _tl1261912671_) @@ -9551,52 +9654,56 @@ (reverse _K1262412681_))) ((lambda (_L12698_ _L12700_ _L12701_) (let* ((_len12731_ - (length (foldr (lambda (_g1272212725_ + (length (let ((__tmp50909 + (lambda (_g1272212725_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1272312728_) (let () (declare (not safe)) - (cons _g1272212725_ _g1272312728_))) - '() - _L12698_))) + (cons _g1272212725_ _g1272312728_))))) + (declare (not safe)) + (foldr1 __tmp50909 '() _L12698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_mid12734_ (quotient _len12731_ '2)) - (_g50818_ + (_g50910_ (_split12600_ - (foldr (lambda (_g1273612739_ + (let ((__tmp50912 + (lambda (_g1273612739_ _g1273712742_) (let () (declare (not safe)) (cons _g1273612739_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1273712742_))) - '() - _L12698_) + _g1273712742_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp50912 + '() + _L12698_)) _mid12734_))) (begin - (let ((_g50819_ + (let ((_g50911_ (let () (declare (not safe)) - (if (##values? _g50818_) + (if (##values? _g50910_) (##vector-length - _g50818_) + _g50910_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50819_ 2))) + (##fx= _g50911_ 2))) (error "Context expects 2 values" - _g50819_))) + _g50911_))) (let ((_left12745_ (let () (declare (not safe)) - (##vector-ref _g50818_ 0))) + (##vector-ref _g50910_ 0))) (_right12747_ (let () (declare (not safe)) (##vector-ref - _g50818_ + _g50910_ 1)))) (let () (let* ((_g1275112792_ @@ -9632,31 +9739,31 @@ (declare (not safe)) (##cdr _e1276212809_)))) (if (gx#stx-pair/null? _hd1276112813_) - (let ((_g50820_ + (let ((_g50913_ (gx#syntax-split-splice _hd1276112813_ '0))) (begin - (let ((_g50821_ + (let ((_g50914_ (let () (declare (not safe)) - (if (##values? _g50820_) + (if (##values? _g50913_) (##vector-length - _g50820_) + _g50913_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50821_ 2))) + (##fx= _g50914_ 2))) (error "Context expects 2 values" - _g50821_))) + _g50914_))) (let ((_target1276312819_ (let () (declare (not safe)) - (##vector-ref _g50820_ 0))) + (##vector-ref _g50913_ 0))) (_tl1276512822_ (let () (declare (not safe)) - (##vector-ref _g50820_ 1)))) + (##vector-ref _g50913_ 1)))) (if (gx#stx-null? _tl1276512822_) (letrec ((_loop1276612825_ (lambda (_hd1276412829_ @@ -9690,31 +9797,31 @@ (declare (not safe)) (##cdr _e1277412849_)))) (if (gx#stx-pair/null? _hd1277312853_) - (let ((_g50822_ + (let ((_g50915_ (gx#syntax-split-splice _hd1277312853_ '0))) (begin - (let ((_g50823_ + (let ((_g50916_ (let () (declare (not safe)) - (if (##values? _g50822_) + (if (##values? _g50915_) (##vector-length - _g50822_) + _g50915_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50823_ 2))) + (##fx= _g50916_ 2))) (error "Context expects 2 values" - _g50823_))) + _g50916_))) (let ((_target1277512859_ (let () (declare (not safe)) - (##vector-ref _g50822_ 0))) + (##vector-ref _g50915_ 0))) (_tl1277712862_ (let () (declare (not safe)) - (##vector-ref _g50822_ 1)))) + (##vector-ref _g50915_ 1)))) (if (gx#stx-null? _tl1277712862_) (letrec ((_loop1277812865_ (lambda (_hd1277612869_ @@ -9754,77 +9861,83 @@ _L12902_ _L12903_) (let () - (let ((__tmp50841 + (let ((__tmp50936 (gx#datum->syntax '#f 'if)) - (__tmp50824 - (let ((__tmp50837 - (let ((__tmp50840 + (__tmp50917 + (let ((__tmp50932 + (let ((__tmp50935 (gx#datum->syntax '#f '##fx<)) - (__tmp50838 - (let ((__tmp50839 + (__tmp50933 + (let ((__tmp50934 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12899_ '())))) (declare (not safe)) - (cons _L12700_ __tmp50839)))) + (cons _L12700_ __tmp50934)))) (declare (not safe)) - (cons __tmp50840 __tmp50838))) - (__tmp50825 - (let ((__tmp50832 - (let ((__tmp50836 + (cons __tmp50935 __tmp50933))) + (__tmp50918 + (let ((__tmp50926 + (let ((__tmp50931 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp50833 - (let ((__tmp50834 - (let ((__tmp50835 - (foldr (lambda (_g1293812941_ + (__tmp50927 + (let ((__tmp50928 + (let ((__tmp50929 + (let ((__tmp50930 + (lambda (_g1293812941_ _g1293912944_) (let () (declare (not safe)) (cons _g1293812941_ - _g1293912944_))) - '() - _L12902_))) + _g1293912944_))))) + (declare (not safe)) + (foldr1 __tmp50930 + '() + _L12902_)))) (declare (not safe)) - (cons _L12700_ __tmp50835)))) + (cons _L12700_ __tmp50929)))) (declare (not safe)) - (cons _L12701_ __tmp50834)))) + (cons _L12701_ __tmp50928)))) (declare (not safe)) - (cons __tmp50836 __tmp50833))) - (__tmp50826 - (let ((__tmp50827 - (let ((__tmp50831 + (cons __tmp50931 __tmp50927))) + (__tmp50919 + (let ((__tmp50920 + (let ((__tmp50925 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp50828 - (let ((__tmp50829 - (let ((__tmp50830 - (foldr (lambda (_g1293612947_ + (__tmp50921 + (let ((__tmp50922 + (let ((__tmp50923 + (let ((__tmp50924 + (lambda (_g1293612947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1293712950_) (let () (declare (not safe)) - (cons _g1293612947_ _g1293712950_))) - '() - _L12901_))) + (cons _g1293612947_ _g1293712950_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp50924 + '() + _L12901_)))) (declare (not safe)) - (cons _L12700_ __tmp50830)))) + (cons _L12700_ __tmp50923)))) (declare (not safe)) - (cons _L12899_ __tmp50829)))) + (cons _L12899_ __tmp50922)))) (declare (not safe)) - (cons __tmp50831 __tmp50828)))) + (cons __tmp50925 __tmp50921)))) (declare (not safe)) - (cons __tmp50827 '())))) + (cons __tmp50920 '())))) (declare (not safe)) - (cons __tmp50832 __tmp50826)))) + (cons __tmp50926 __tmp50919)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50837 - __tmp50825)))) + (cons __tmp50932 + __tmp50918)))) (declare (not safe)) - (cons __tmp50841 __tmp50824)))) + (cons __tmp50936 __tmp50917)))) _hd1278512893_ _K-right1278312885_ _K-left1277112845_ @@ -9900,31 +10013,31 @@ (declare (not safe)) (##cdr _e1299413069_)))) (if (gx#stx-pair/null? _hd1299313073_) - (let ((_g50842_ + (let ((_g50937_ (gx#syntax-split-splice _hd1299313073_ '0))) (begin - (let ((_g50843_ + (let ((_g50938_ (let () (declare (not safe)) - (if (##values? _g50842_) + (if (##values? _g50937_) (##vector-length - _g50842_) + _g50937_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50843_ 2))) + (##fx= _g50938_ 2))) (error "Context expects 2 values" - _g50843_))) + _g50938_))) (let ((_target1299513079_ (let () (declare (not safe)) - (##vector-ref _g50842_ 0))) + (##vector-ref _g50937_ 0))) (_tl1299713082_ (let () (declare (not safe)) - (##vector-ref _g50842_ 1)))) + (##vector-ref _g50937_ 1)))) (if (gx#stx-null? _tl1299713082_) (letrec ((_loop1299813085_ (lambda (_hd1299613089_ @@ -9966,36 +10079,36 @@ (##cdr _e1301313119_)))) (if (gx#stx-pair/null? _tl1301113126_) - (let ((_g52849_ + (let ((_g50977_ (gx#syntax-split-splice _tl1301113126_ '0))) (begin - (let ((_g52850_ + (let ((_g50978_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52849_) - (##vector-length _g52849_) + _g50977_) + (##vector-length _g50977_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52850_ 2))) - (error "Context expects 2 values" _g52850_))) + (if (not (let () (declare (not safe)) (##fx= _g50978_ 2))) + (error "Context expects 2 values" _g50978_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1301413129_ (let () (declare (not safe)) (##vector-ref - _g52849_ + _g50977_ 0))) (_tl1301613132_ (let () (declare (not safe)) (##vector-ref - _g52849_ + _g50977_ 1)))) (if (gx#stx-null? _tl1301613132_) @@ -10068,37 +10181,37 @@ (##cdr _e1302813177_)))) (if (gx#stx-pair/null? _tl1302613184_) - (let ((_g50844_ + (let ((_g50939_ (gx#syntax-split-splice _tl1302613184_ '0))) (begin - (let ((_g50845_ + (let ((_g50940_ (let () (declare (not safe)) (if (##values? - _g50844_) + _g50939_) (##vector-length - _g50844_) + _g50939_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50845_ 2))) - (error "Context expects 2 values" _g50845_))) + (##fx= _g50940_ 2))) + (error "Context expects 2 values" _g50940_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1302913187_ (let () (declare (not safe)) (##vector-ref - _g50844_ + _g50939_ 0))) (_tl1303113190_ (let () (declare (not safe)) (##vector-ref - _g50844_ + _g50939_ 1)))) (if (gx#stx-null? _tl1303113190_) @@ -10125,31 +10238,31 @@ (let ((_fini1303713213_ (reverse _fini1303613200_))) (if (gx#stx-pair/null? _tl1302313174_) - (let ((_g50846_ + (let ((_g50941_ (gx#syntax-split-splice _tl1302313174_ '0))) (begin - (let ((_g50847_ + (let ((_g50942_ (let () (declare (not safe)) - (if (##values? _g50846_) + (if (##values? _g50941_) (##vector-length - _g50846_) + _g50941_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50847_ 2))) + (##fx= _g50942_ 2))) (error "Context expects 2 values" - _g50847_))) + _g50942_))) (let ((_target1303813217_ (let () (declare (not safe)) - (##vector-ref _g50846_ 0))) + (##vector-ref _g50941_ 0))) (_tl1304013220_ (let () (declare (not safe)) - (##vector-ref _g50846_ 1)))) + (##vector-ref _g50941_ 1)))) (if (gx#stx-null? _tl1304013220_) (letrec ((_loop1304113223_ (lambda (_hd1303913227_ @@ -10179,140 +10292,149 @@ _L13253_) (if (gx#stx-andmap gx#identifier? - (foldr (lambda (_g1328613289_ _g1328713292_) + (let ((__tmp50976 + (lambda (_g1328613289_ _g1328713292_) (let () (declare (not safe)) (cons _g1328613289_ - _g1328713292_))) - '() - _L13253_)) - (let ((__tmp50874 (gx#datum->syntax '#f 'let)) - (__tmp50848 - (let ((__tmp50873 + _g1328713292_))))) + (declare (not safe)) + (foldr1 __tmp50976 '() _L13253_))) + (let ((__tmp50975 (gx#datum->syntax '#f 'let)) + (__tmp50943 + (let ((__tmp50974 (gx#datum->syntax '#f '$loop)) - (__tmp50849 - (let ((__tmp50870 + (__tmp50944 + (let ((__tmp50970 (begin (gx#syntax-check-splice-targets _L13252_ _L13253_) - (foldr (lambda (_g1330313307_ + (let ((__tmp50971 + (lambda (_g1330313307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330413310_ _g1330513312_) - (let ((__tmp50871 - (let ((__tmp50872 + (let ((__tmp50972 + (let ((__tmp50973 (let () (declare (not safe)) (cons _g1330313307_ '())))) (declare (not safe)) - (cons _g1330413310_ __tmp50872)))) + (cons _g1330413310_ __tmp50973)))) (declare (not safe)) - (cons __tmp50871 _g1330513312_))) - '() - _L13252_ - _L13253_))) + (cons __tmp50972 _g1330513312_))))) + (declare (not safe)) + (foldr2 __tmp50971 '() _L13252_ _L13253_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50850 - (let ((__tmp50851 - (let ((__tmp50869 + (__tmp50945 + (let ((__tmp50946 + (let ((__tmp50969 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp50852 - (let ((__tmp50853 - (let ((__tmp50865 - (let ((__tmp50868 + (__tmp50947 + (let ((__tmp50948 + (let ((__tmp50964 + (let ((__tmp50968 (gx#datum->syntax '#f 'begin)) - (__tmp50866 - (let ((__tmp50867 - (foldr (lambda (_g1330113315_ + (__tmp50965 + (let ((__tmp50966 + (let ((__tmp50967 + (lambda (_g1330113315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330213318_) (let () (declare (not safe)) - (cons _g1330113315_ _g1330213318_))) - '() - _L13249_))) + (cons _g1330113315_ _g1330213318_))))) + (declare (not safe)) + (foldr1 __tmp50967 '() _L13249_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#!void __tmp50867)))) + (cons '#!void __tmp50966)))) (declare (not safe)) - (cons __tmp50868 __tmp50866))) - (__tmp50854 - (let ((__tmp50855 - (let ((__tmp50864 + (cons __tmp50968 __tmp50965))) + (__tmp50949 + (let ((__tmp50950 + (let ((__tmp50963 (gx#datum->syntax '#f 'begin)) - (__tmp50856 - (foldr (lambda (_g1329413321_ + (__tmp50951 + (let ((__tmp50962 + (lambda (_g1329413321_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1329513324_) (let () (declare (not safe)) - (cons _g1329413321_ _g1329513324_))) - (let ((__tmp50857 - (let ((__tmp50863 (gx#datum->syntax '#f '$loop)) - (__tmp50858 + (cons _g1329413321_ _g1329513324_)))) + (__tmp50952 + (let ((__tmp50953 + (let ((__tmp50961 (gx#datum->syntax '#f '$loop)) + (__tmp50954 (begin (gx#syntax-check-splice-targets _L13251_ _L13253_) - (foldr (lambda (_g1329613327_ + (let ((__tmp50955 + (lambda (_g1329613327_ _g1329713330_ _g1329813332_) - (let ((__tmp50859 - (let ((__tmp50862 + (let ((__tmp50956 + (let ((__tmp50960 (gx#datum->syntax '#f 'begin)) - (__tmp50860 - (let ((__tmp50861 + (__tmp50957 + (let ((__tmp50958 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g1329913335_ _g1330013338_) + (let ((__tmp50959 + (lambda (_g1329913335_ _g1330013338_) (let () (declare (not safe)) - (cons _g1329913335_ _g1330013338_))) - '() - _g1329613327_))) + (cons _g1329913335_ _g1330013338_))))) + (declare (not safe)) + (foldr1 __tmp50959 '() _g1329613327_)))) (declare (not safe)) - (cons _g1329713330_ __tmp50861)))) + (cons _g1329713330_ __tmp50958)))) (declare (not safe)) - (cons __tmp50862 __tmp50860)))) + (cons __tmp50960 __tmp50957)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50859 - _g1329813332_))) - '() - _L13251_ - _L13253_)))) + (cons __tmp50956 + _g1329813332_))))) + (declare (not safe)) + (foldr2 __tmp50955 + '() + _L13251_ + _L13253_))))) (declare (not safe)) - (cons __tmp50863 __tmp50858)))) + (cons __tmp50961 __tmp50954)))) (declare (not safe)) - (cons __tmp50857 '())) - _L13247_))) + (cons __tmp50953 '())))) + (declare (not safe)) + (foldr1 __tmp50962 __tmp50952 _L13247_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50864 - __tmp50856)))) + (cons __tmp50963 + __tmp50951)))) (declare (not safe)) - (cons __tmp50855 '())))) + (cons __tmp50950 '())))) (declare (not safe)) - (cons __tmp50865 __tmp50854)))) + (cons __tmp50964 __tmp50949)))) (declare (not safe)) - (cons _L13250_ __tmp50853)))) + (cons _L13250_ __tmp50948)))) (declare (not safe)) - (cons __tmp50869 __tmp50852)))) + (cons __tmp50969 __tmp50947)))) (declare (not safe)) - (cons __tmp50851 '())))) + (cons __tmp50946 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50870 - __tmp50850)))) + (cons __tmp50970 + __tmp50945)))) (declare (not safe)) - (cons __tmp50873 __tmp50849)))) + (cons __tmp50974 __tmp50944)))) (declare (not safe)) - (cons __tmp50874 __tmp50848)) + (cons __tmp50975 __tmp50943)) (_g1298113052_ _g1298213056_))) _body1304613243_ _fini1303713213_ @@ -10403,31 +10525,31 @@ _L13425_ _L13426_ _L13427_) - (let ((__tmp52857 + (let ((__tmp50985 (gx#datum->syntax '#f 'do)) - (__tmp52851 - (let ((__tmp52852 + (__tmp50979 + (let ((__tmp50980 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52853 - (let ((__tmp52854 - (let ((__tmp52856 + (let ((__tmp50981 + (let ((__tmp50982 + (let ((__tmp50984 (gx#datum->syntax '#f 'not)) - (__tmp52855 + (__tmp50983 (let () (declare (not safe)) (cons _L13426_ '())))) (declare (not safe)) - (cons __tmp52856 __tmp52855)))) + (cons __tmp50984 __tmp50983)))) (declare (not safe)) - (cons __tmp52854 _L13425_)))) + (cons __tmp50982 _L13425_)))) (declare (not safe)) - (cons __tmp52853 _L13423_)))) + (cons __tmp50981 _L13423_)))) (declare (not safe)) - (cons _L13427_ __tmp52852)))) + (cons _L13427_ __tmp50980)))) (declare (not safe)) - (cons __tmp52857 __tmp52851))) + (cons __tmp50985 __tmp50979))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _tl1336513410_ _tl1336813420_ @@ -10450,55 +10572,55 @@ (let ((___kont4560945610_ (lambda (_L13599_) _L13599_)) (___kont4561145612_ (lambda (_L13544_ _L13546_) - (let ((__tmp52871 (gx#datum->syntax '#f 'let)) - (__tmp52858 - (let ((__tmp52868 - (let ((__tmp52870 (gx#datum->syntax '#f '$r)) - (__tmp52869 + (let ((__tmp51000 (gx#datum->syntax '#f 'let)) + (__tmp50986 + (let ((__tmp50997 + (let ((__tmp50999 (gx#datum->syntax '#f '$r)) + (__tmp50998 (let () (declare (not safe)) (cons _L13546_ '())))) (declare (not safe)) - (cons __tmp52870 __tmp52869))) - (__tmp52859 - (let ((__tmp52862 - (let ((__tmp52867 + (cons __tmp50999 __tmp50998))) + (__tmp50987 + (let ((__tmp50990 + (let ((__tmp50996 (gx#datum->syntax '#f '%#expression)) - (__tmp52863 - (let ((__tmp52864 - (let ((__tmp52866 + (__tmp50991 + (let ((__tmp50992 + (let ((__tmp50995 (gx#datum->syntax '#f 'begin)) - (__tmp52865 - (foldr (lambda (_g1356313566_ + (__tmp50993 + (let ((__tmp50994 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1356413569_) + (lambda (_g1356313566_ _g1356413569_) (let () (declare (not safe)) - (cons _g1356313566_ _g1356413569_))) - '() - _L13544_))) + (cons _g1356313566_ _g1356413569_))))) + (declare (not safe)) + (foldr1 __tmp50994 '() _L13544_)))) (declare (not safe)) - (cons __tmp52866 __tmp52865)))) + (cons __tmp50995 __tmp50993)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52864 '())))) + (cons __tmp50992 '())))) (declare (not safe)) - (cons __tmp52867 __tmp52863))) - (__tmp52860 - (let ((__tmp52861 + (cons __tmp50996 __tmp50991))) + (__tmp50988 + (let ((__tmp50989 (gx#datum->syntax '#f '$r))) (declare (not safe)) - (cons __tmp52861 '())))) + (cons __tmp50989 '())))) (declare (not safe)) - (cons __tmp52862 __tmp52860)))) + (cons __tmp50990 __tmp50988)))) (declare (not safe)) - (cons __tmp52868 __tmp52859)))) + (cons __tmp50997 __tmp50987)))) (declare (not safe)) - (cons __tmp52871 __tmp52858))))) + (cons __tmp51000 __tmp50986))))) (let ((___match4564945650_ (lambda (_e1346913494_ _hd1346813498_ @@ -10601,92 +10723,93 @@ ___stx4565245653_)))) (let ((___kont4565545656_ (lambda (_L13878_ _L13880_) - (let ((__tmp52877 (gx#datum->syntax '#f 'letrec)) - (__tmp52872 - (let ((__tmp52874 - (let ((__tmp52875 - (let ((__tmp52876 + (let ((__tmp51006 (gx#datum->syntax '#f 'letrec)) + (__tmp51001 + (let ((__tmp51003 + (let ((__tmp51004 + (let ((__tmp51005 (let () (declare (not safe)) (cons _L13878_ '())))) (declare (not safe)) - (cons _L13880_ __tmp52876)))) + (cons _L13880_ __tmp51005)))) (declare (not safe)) - (cons __tmp52875 '()))) - (__tmp52873 + (cons __tmp51004 '()))) + (__tmp51002 (let () (declare (not safe)) (cons _L13880_ '())))) (declare (not safe)) - (cons __tmp52874 __tmp52873)))) + (cons __tmp51003 __tmp51002)))) (declare (not safe)) - (cons __tmp52877 __tmp52872)))) + (cons __tmp51006 __tmp51001)))) (___kont4565745658_ (lambda (_L13822_ _L13824_) - (let ((__tmp52885 (gx#datum->syntax '#f 'letrec-values)) - (__tmp52878 - (let ((__tmp52882 - (let ((__tmp52883 - (let ((__tmp52884 + (let ((__tmp51014 (gx#datum->syntax '#f 'letrec-values)) + (__tmp51007 + (let ((__tmp51011 + (let ((__tmp51012 + (let ((__tmp51013 (let () (declare (not safe)) (cons _L13822_ '())))) (declare (not safe)) - (cons _L13824_ __tmp52884)))) + (cons _L13824_ __tmp51013)))) (declare (not safe)) - (cons __tmp52883 '()))) - (__tmp52879 - (let ((__tmp52880 - (let ((__tmp52881 + (cons __tmp51012 '()))) + (__tmp51008 + (let ((__tmp51009 + (let ((__tmp51010 (gx#datum->syntax '#f 'values))) (declare (not safe)) - (cons __tmp52881 _L13824_)))) + (cons __tmp51010 _L13824_)))) (declare (not safe)) - (cons __tmp52880 '())))) + (cons __tmp51009 '())))) (declare (not safe)) - (cons __tmp52882 __tmp52879)))) + (cons __tmp51011 __tmp51008)))) (declare (not safe)) - (cons __tmp52885 __tmp52878)))) + (cons __tmp51014 __tmp51007)))) (___kont4565945660_ (lambda (_L13743_ _L13745_ _L13746_) - (let ((__tmp52895 (gx#datum->syntax '#f 'letrec)) - (__tmp52886 - (let ((__tmp52888 - (let ((__tmp52889 - (let ((__tmp52890 - (let ((__tmp52891 - (let ((__tmp52894 + (let ((__tmp51025 (gx#datum->syntax '#f 'letrec)) + (__tmp51015 + (let ((__tmp51017 + (let ((__tmp51018 + (let ((__tmp51019 + (let ((__tmp51020 + (let ((__tmp51024 (gx#datum->syntax '#f 'lambda)) - (__tmp52892 - (let ((__tmp52893 + (__tmp51021 + (let ((__tmp51022 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_g1376613769_ _g1376713772_) + (let ((__tmp51023 + (lambda (_g1376613769_ _g1376713772_) (let () (declare (not safe)) - (cons _g1376613769_ _g1376713772_))) - '() - _L13743_))) + (cons _g1376613769_ _g1376713772_))))) + (declare (not safe)) + (foldr1 __tmp51023 '() _L13743_)))) (declare (not safe)) - (cons _L13745_ __tmp52893)))) + (cons _L13745_ __tmp51022)))) (declare (not safe)) - (cons __tmp52894 __tmp52892)))) + (cons __tmp51024 __tmp51021)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52891 '())))) + (cons __tmp51020 '())))) (declare (not safe)) - (cons _L13746_ __tmp52890)))) + (cons _L13746_ __tmp51019)))) (declare (not safe)) - (cons __tmp52889 '()))) - (__tmp52887 + (cons __tmp51018 '()))) + (__tmp51016 (let () (declare (not safe)) (cons _L13746_ '())))) (declare (not safe)) - (cons __tmp52888 __tmp52887)))) + (cons __tmp51017 __tmp51016)))) (declare (not safe)) - (cons __tmp52895 __tmp52886))))) + (cons __tmp51025 __tmp51015))))) (let* ((___match4573945740_ (lambda (_e1365513683_ _hd1365413687_ @@ -10814,7 +10937,7 @@ (##car _e1364613802_)))) (if (gx#identifier? _hd1364513806_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52896_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51026_| _hd1364513806_) (___match4571345714_ _e1362913848_ @@ -11111,13 +11234,13 @@ (lambda (_L14807_ _L14809_) _x14728_)) (___kont4578145782_ (lambda (_L14768_) - (let ((__tmp52898 (gx#datum->syntax '#f '_)) - (__tmp52897 + (let ((__tmp51028 (gx#datum->syntax '#f '_)) + (__tmp51027 (let () (declare (not safe)) (cons _L14768_ '())))) (declare (not safe)) - (cons __tmp52898 __tmp52897))))) + (cons __tmp51028 __tmp51027))))) (if (gx#stx-pair? ___stx4577645777_) (let ((_e1473814787_ (gx#syntax-e ___stx4577645777_))) @@ -11180,7 +11303,7 @@ (##car _e1467714701_)))) (if (gx#identifier? _hd1467614705_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52899_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51029_| _hd1467614705_) (___kont4581145812_ _tl1467514708_) (___kont4581345814_)) @@ -11210,7 +11333,7 @@ (##car _e1461714641_)))) (if (gx#identifier? _hd1461614645_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52900_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51030_| _hd1461614645_) (___kont4583145832_ _tl1461514648_) (___kont4583345834_)) @@ -11225,50 +11348,51 @@ ___stx4584845849_)))) (let ((___kont4585145852_ (lambda (_L14581_ _L14583_ _L14584_ _L14585_) - (let ((__tmp52901 - (let ((__tmp52902 - (let ((__tmp52903 - (let ((__tmp52904 + (let ((__tmp51031 + (let ((__tmp51032 + (let ((__tmp51033 + (let ((__tmp51034 (let () (declare (not safe)) (cons _L14583_ '())))) (declare (not safe)) - (cons _L14584_ __tmp52904)))) + (cons _L14584_ __tmp51034)))) (declare (not safe)) - (cons __tmp52903 '())))) + (cons __tmp51033 '())))) (declare (not safe)) - (cons __tmp52902 _L14581_)))) + (cons __tmp51032 _L14581_)))) (declare (not safe)) - (cons _L14585_ __tmp52901)))) + (cons _L14585_ __tmp51031)))) (___kont4585345854_ (lambda (_L14503_ _L14505_) - (let ((__tmp52911 (gx#datum->syntax '#f 'and)) - (__tmp52905 - (let ((__tmp52906 - (let ((__tmp52907 - (let ((__tmp52910 + (let ((__tmp51042 (gx#datum->syntax '#f 'and)) + (__tmp51035 + (let ((__tmp51036 + (let ((__tmp51037 + (let ((__tmp51041 (gx#datum->syntax '#f 'let)) - (__tmp52908 - (let ((__tmp52909 - (foldr (lambda (_g1452514528_ + (__tmp51038 + (let ((__tmp51039 + (let ((__tmp51040 + (lambda (_g1452514528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1452614531_) (let () (declare (not safe)) - (cons _g1452514528_ _g1452614531_))) - '() - _L14503_))) + (cons _g1452514528_ _g1452614531_))))) + (declare (not safe)) + (foldr1 __tmp51040 '() _L14503_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp52909)))) + (cons '() __tmp51039)))) (declare (not safe)) - (cons __tmp52910 __tmp52908)))) + (cons __tmp51041 __tmp51038)))) (declare (not safe)) - (cons __tmp52907 '())))) + (cons __tmp51037 '())))) (declare (not safe)) - (cons _L14505_ __tmp52906)))) + (cons _L14505_ __tmp51036)))) (declare (not safe)) - (cons __tmp52911 __tmp52905)))) + (cons __tmp51042 __tmp51035)))) (___kont4585745858_ (lambda (_L14070_ _L14072_) (let* ((_g1410314129_ @@ -11280,30 +11404,30 @@ (_g1410214414_ (lambda (_g1410414133_) (if (gx#stx-pair/null? _g1410414133_) - (let ((_g52912_ + (let ((_g51043_ (gx#syntax-split-splice _g1410414133_ '0))) (begin - (let ((_g52913_ + (let ((_g51044_ (let () (declare (not safe)) - (if (##values? _g52912_) - (##vector-length _g52912_) + (if (##values? _g51043_) + (##vector-length _g51043_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52913_ 2))) + (##fx= _g51044_ 2))) (error "Context expects 2 values" - _g52913_))) + _g51044_))) (let ((_target1410714136_ (let () (declare (not safe)) - (##vector-ref _g52912_ 0))) + (##vector-ref _g51043_ 0))) (_tl1410914139_ (let () (declare (not safe)) - (##vector-ref _g52912_ 1)))) + (##vector-ref _g51043_ 1)))) (if (gx#stx-null? _tl1410914139_) (letrec ((_loop1411014142_ (lambda (_hd1410814146_ @@ -11371,34 +11495,34 @@ (_g1420714402_ (lambda (_g1420914229_) (if (gx#stx-pair/null? _g1420914229_) - (let ((_g52914_ + (let ((_g51045_ (gx#syntax-split-splice _g1420914229_ '0))) (begin - (let ((_g52915_ + (let ((_g51046_ (let () (declare (not safe)) - (if (##values? _g52914_) + (if (##values? _g51045_) (##vector-length - _g52914_) + _g51045_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52915_ 2))) + (##fx= _g51046_ 2))) (error "Context expects 2 values" - _g52915_))) + _g51046_))) (let ((_target1421114232_ (let () (declare (not safe)) (##vector-ref - _g52914_ + _g51045_ 0))) (_tl1421314235_ (let () (declare (not safe)) (##vector-ref - _g52914_ + _g51045_ 1)))) (if (gx#stx-null? _tl1421314235_) @@ -11434,36 +11558,36 @@ (lambda (_g1428014300_) (if (gx#stx-pair/null? _g1428014300_) - (let ((_g52916_ + (let ((_g51047_ (gx#syntax-split-splice _g1428014300_ '0))) (begin - (let ((_g52917_ + (let ((_g51048_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52916_) - (##vector-length _g52916_) + _g51047_) + (##vector-length _g51047_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52917_ 2))) - (error "Context expects 2 values" _g52917_))) + (if (not (let () (declare (not safe)) (##fx= _g51048_ 2))) + (error "Context expects 2 values" _g51048_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1428214303_ (let () (declare (not safe)) (##vector-ref - _g52916_ + _g51047_ 0))) (_tl1428414306_ (let () (declare (not safe)) (##vector-ref - _g52916_ + _g51047_ 1)))) (if (gx#stx-null? _tl1428414306_) @@ -11492,96 +11616,99 @@ ((lambda (_L14333_) (let () (let () - (let ((__tmp52934 + (let ((__tmp51070 (gx#datum->syntax '#f 'let-values)) - (__tmp52918 - (let ((__tmp52930 + (__tmp51049 + (let ((__tmp51065 (begin (gx#syntax-check-splice-targets _L14190_ _L14262_) - (foldr (lambda (_g1435814362_ + (let ((__tmp51066 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1435914365_ - _g1436014367_) - (let ((__tmp52931 - (let ((__tmp52933 + (lambda (_g1435814362_ _g1435914365_ _g1436014367_) + (let ((__tmp51067 + (let ((__tmp51069 (let () (declare (not safe)) (cons _g1435914365_ '()))) - (__tmp52932 + (__tmp51068 (let () (declare (not safe)) (cons _g1435814362_ '())))) (declare (not safe)) - (cons __tmp52933 __tmp52932)))) + (cons __tmp51069 __tmp51068)))) (declare (not safe)) - (cons __tmp52931 _g1436014367_))) - '() - _L14190_ - _L14262_))) - (__tmp52919 - (let ((__tmp52920 - (let ((__tmp52929 (gx#datum->syntax '#f 'and)) - (__tmp52921 - (foldr (lambda (_g1435114370_ _g1435214373_) + (cons __tmp51067 _g1436014367_))))) + (declare (not safe)) + (foldr2 __tmp51066 '() _L14190_ _L14262_)))) + (__tmp51050 + (let ((__tmp51051 + (let ((__tmp51064 (gx#datum->syntax '#f 'and)) + (__tmp51052 + (let ((__tmp51063 + (lambda (_g1435114370_ _g1435214373_) (let () (declare (not safe)) - (cons _g1435114370_ _g1435214373_))) - (let ((__tmp52922 - (let ((__tmp52928 + (cons _g1435114370_ + _g1435214373_)))) + (__tmp51053 + (let ((__tmp51054 + (let ((__tmp51062 (gx#datum->syntax '#f 'let-values)) - (__tmp52923 - (let ((__tmp52925 + (__tmp51055 + (let ((__tmp51058 (begin (gx#syntax-check-splice-targets _L14262_ _L14333_) - (foldr (lambda (_g1435514376_ + (let ((__tmp51059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g1435514376_ _g1435614379_ _g1435714381_) - (let ((__tmp52926 - (let ((__tmp52927 + (let ((__tmp51060 + (let ((__tmp51061 (let () (declare (not safe)) (cons _g1435514376_ '())))) (declare (not safe)) - (cons _g1435614379_ __tmp52927)))) + (cons _g1435614379_ __tmp51061)))) (declare (not safe)) - (cons __tmp52926 _g1435714381_))) - '() - _L14262_ - _L14333_))) - (__tmp52924 - (foldr (lambda (_g1435314384_ _g1435414387_) + (cons __tmp51060 _g1435714381_))))) + (declare (not safe)) + (foldr2 __tmp51059 '() _L14262_ _L14333_)))) + (__tmp51056 + (let ((__tmp51057 + (lambda (_g1435314384_ _g1435414387_) (let () (declare (not safe)) - (cons _g1435314384_ _g1435414387_))) - '() - _L14070_))) + (cons _g1435314384_ _g1435414387_))))) + (declare (not safe)) + (foldr1 __tmp51057 '() _L14070_)))) (declare (not safe)) - (cons __tmp52925 __tmp52924)))) + (cons __tmp51058 __tmp51056)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52928 __tmp52923)))) + (cons __tmp51062 __tmp51055)))) (declare (not safe)) - (cons __tmp52922 '())) - _L14262_))) + (cons __tmp51054 '())))) + (declare (not safe)) + (foldr1 __tmp51063 __tmp51053 _L14262_)))) (declare (not safe)) - (cons __tmp52929 __tmp52921)))) + (cons __tmp51064 __tmp51052)))) (declare (not safe)) - (cons __tmp52920 '())))) + (cons __tmp51051 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52930 - __tmp52919)))) + (cons __tmp51065 + __tmp51050)))) (declare (not safe)) - (cons __tmp52934 __tmp52918))))) + (cons __tmp51070 __tmp51049))))) _hd-bind1429014329_)))))) (_loop1428514309_ _target1428214303_ '())) (_g1427914296_ _g1428014300_))))) @@ -11591,14 +11718,15 @@ (_g1427814390_ (gx#stx-map _let-head13907_ - (foldr (lambda (_g1439314396_ + (let ((__tmp51071 + (lambda (_g1439314396_ _g1439414399_) (let () (declare (not safe)) (cons _g1439314396_ - _g1439414399_))) - '() - _L14192_)))))) + _g1439414399_))))) + (declare (not safe)) + (foldr1 __tmp51071 '() _L14192_))))))) _$e1421914258_)))))) (_loop1421414238_ _target1421114232_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11607,12 +11735,14 @@ (_g1420814225_ _g1420914229_))))) (_g1420714402_ (gx#gentemps - (foldr (lambda (_g1440514408_ _g1440614411_) + (let ((__tmp51072 + (lambda (_g1440514408_ _g1440614411_) (let () (declare (not safe)) - (cons _g1440514408_ _g1440614411_))) - '() - _L14192_)))))) + (cons _g1440514408_ + _g1440614411_))))) + (declare (not safe)) + (foldr1 __tmp51072 '() _L14192_))))))) _e1411614184_ _hd1411714187_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11625,12 +11755,13 @@ (_g1410214414_ (gx#stx-map _let-bind13905_ - (foldr (lambda (_g1441714420_ _g1441814423_) + (let ((__tmp51073 + (lambda (_g1441714420_ _g1441814423_) (let () (declare (not safe)) - (cons _g1441714420_ _g1441814423_))) - '() - _L14072_))))))) + (cons _g1441714420_ _g1441814423_))))) + (declare (not safe)) + (foldr1 __tmp51073 '() _L14072_)))))))) (let* ((___match4594545946_ (lambda (_e1395613990_ _hd1395513994_ @@ -11709,14 +11840,15 @@ (_L14072_ _bind1396814036_)) (if (gx#stx-andmap _let-bind?13903_ - (foldr (lambda (_g1409414097_ + (let ((__tmp51074 + (lambda (_g1409414097_ _g1409514100_) (let () (declare (not safe)) (cons _g1409414097_ - _g1409514100_))) - '() - _L14072_)) + _g1409514100_))))) + (declare (not safe)) + (foldr1 __tmp51074 '() _L14072_))) (___kont4585745858_ _L14070_ _L14072_) (let () (declare (not safe)) @@ -12229,51 +12361,53 @@ (let ((___kont4595145952_ (lambda () '#t)) (___kont4595345954_ (lambda (_L15158_) - (let ((__tmp52937 (gx#datum->syntax '#f 'let)) - (__tmp52935 - (let ((__tmp52936 - (foldr (lambda (_g1517415177_ _g1517515180_) + (let ((__tmp51078 (gx#datum->syntax '#f 'let)) + (__tmp51075 + (let ((__tmp51076 + (let ((__tmp51077 + (lambda (_g1517415177_ _g1517515180_) (let () (declare (not safe)) (cons _g1517415177_ - _g1517515180_))) - '() - _L15158_))) + _g1517515180_))))) + (declare (not safe)) + (foldr1 __tmp51077 '() _L15158_)))) (declare (not safe)) - (cons '() __tmp52936)))) + (cons '() __tmp51076)))) (declare (not safe)) - (cons __tmp52937 __tmp52935)))) + (cons __tmp51078 __tmp51075)))) (___kont4595745958_ (lambda (_L15067_ _L15069_ _L15070_ _L15071_) - (let ((__tmp52944 (gx#datum->syntax '#f 'alet)) - (__tmp52938 - (let ((__tmp52943 + (let ((__tmp51086 (gx#datum->syntax '#f 'alet)) + (__tmp51079 + (let ((__tmp51085 (let () (declare (not safe)) (cons _L15070_ '()))) - (__tmp52939 - (let ((__tmp52940 - (let ((__tmp52941 - (let ((__tmp52942 - (foldr (lambda (_g1509215095_ + (__tmp51080 + (let ((__tmp51081 + (let ((__tmp51082 + (let ((__tmp51083 + (let ((__tmp51084 + (lambda (_g1509215095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1509315098_) (let () (declare (not safe)) - (cons _g1509215095_ _g1509315098_))) - '() - _L15067_))) + (cons _g1509215095_ _g1509315098_))))) + (declare (not safe)) + (foldr1 __tmp51084 '() _L15067_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L15069_ __tmp52942)))) + (cons _L15069_ __tmp51083)))) (declare (not safe)) - (cons _L15071_ __tmp52941)))) + (cons _L15071_ __tmp51082)))) (declare (not safe)) - (cons __tmp52940 '())))) + (cons __tmp51081 '())))) (declare (not safe)) - (cons __tmp52943 __tmp52939)))) + (cons __tmp51085 __tmp51080)))) (declare (not safe)) - (cons __tmp52944 __tmp52938))))) + (cons __tmp51086 __tmp51079))))) (let* ((___match4602546026_ (lambda (_e1497915007_ _hd1497815011_ @@ -12469,62 +12603,62 @@ ___stx4602846029_)))) (let ((___kont4603146032_ (lambda () - (let ((__tmp52946 (gx#datum->syntax '#f 'quote)) - (__tmp52945 + (let ((__tmp51088 (gx#datum->syntax '#f 'quote)) + (__tmp51087 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp52946 __tmp52945)))) + (cons __tmp51088 __tmp51087)))) (___kont4603346034_ (lambda (_L15640_) - (let ((__tmp52948 (gx#datum->syntax '#f 'quote)) - (__tmp52947 + (let ((__tmp51090 (gx#datum->syntax '#f 'quote)) + (__tmp51089 (let () (declare (not safe)) (cons _L15640_ '())))) (declare (not safe)) - (cons __tmp52948 __tmp52947)))) + (cons __tmp51090 __tmp51089)))) (___kont4603546036_ (lambda (_L15588_) - (let ((__tmp52950 (gx#datum->syntax '#f 'quasiquote)) - (__tmp52949 + (let ((__tmp51092 (gx#datum->syntax '#f 'quasiquote)) + (__tmp51091 (let () (declare (not safe)) (cons _L15588_ '())))) (declare (not safe)) - (cons __tmp52950 __tmp52949)))) + (cons __tmp51092 __tmp51091)))) (___kont4603746038_ (lambda (_L15535_) _L15535_)) (___kont4603946040_ (lambda (_L15477_ _L15479_) _L15479_)) (___kont4604146042_ (lambda (_L15419_ _L15421_ _L15422_ _L15423_) - (let ((__tmp52956 (gx#datum->syntax '#f 'foldr)) - (__tmp52951 - (let ((__tmp52955 (gx#datum->syntax '#f 'cons)) - (__tmp52952 - (let ((__tmp52954 + (let ((__tmp51098 (gx#datum->syntax '#f 'foldr)) + (__tmp51093 + (let ((__tmp51097 (gx#datum->syntax '#f 'cons)) + (__tmp51094 + (let ((__tmp51096 (let () (declare (not safe)) (cons _L15423_ _L15419_))) - (__tmp52953 + (__tmp51095 (let () (declare (not safe)) (cons _L15422_ '())))) (declare (not safe)) - (cons __tmp52954 __tmp52953)))) + (cons __tmp51096 __tmp51095)))) (declare (not safe)) - (cons __tmp52955 __tmp52952)))) + (cons __tmp51097 __tmp51094)))) (declare (not safe)) - (cons __tmp52956 __tmp52951)))) + (cons __tmp51098 __tmp51093)))) (___kont4604346044_ (lambda (_L15365_ _L15367_ _L15368_) - (let ((__tmp52960 (gx#datum->syntax '#f 'cons)) - (__tmp52957 - (let ((__tmp52958 - (let ((__tmp52959 + (let ((__tmp51102 (gx#datum->syntax '#f 'cons)) + (__tmp51099 + (let ((__tmp51100 + (let ((__tmp51101 (let () (declare (not safe)) (cons _L15368_ _L15365_)))) (declare (not safe)) - (cons __tmp52959 '())))) + (cons __tmp51101 '())))) (declare (not safe)) - (cons _L15367_ __tmp52958)))) + (cons _L15367_ __tmp51100)))) (declare (not safe)) - (cons __tmp52960 __tmp52957)))) + (cons __tmp51102 __tmp51099)))) (___kont4604546046_ (lambda (_L15326_) _L15326_))) (let* ((___match4616746168_ (lambda (_e1528415389_ @@ -12597,7 +12731,7 @@ (##car _e1524215620_)))) (if (gx#identifier? _hd1524115624_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52962_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51104_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1524515630_ @@ -12630,7 +12764,7 @@ _hd1524115624_ _hd1523415666_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52961_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51103_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1525515578_ @@ -12840,12 +12974,14 @@ (___kont4619746198_ (lambda (_L16495_) (_simple-quote?15683_ - (foldr (lambda (_g1650816511_ _g1650916514_) + (let ((__tmp51105 + (lambda (_g1650816511_ _g1650916514_) (let () (declare (not safe)) - (cons _g1650816511_ _g1650916514_))) - '() - _L16495_)))) + (cons _g1650816511_ + _g1650916514_))))) + (declare (not safe)) + (foldr1 __tmp51105 '() _L16495_))))) (___kont4620146202_ (lambda (_L16442_) (_simple-quote?15683_ _L16442_))) @@ -12942,7 +13078,7 @@ (##car _e1638716585_)))) (if (gx#identifier? _hd1638616589_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52964_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51107_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639016595_ @@ -12966,7 +13102,7 @@ _tl1638516592_ _hd1638616589_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g52963_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51106_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639616564_ @@ -13021,29 +13157,29 @@ (lambda (_g1634116352_) ((lambda (_L16355_) (let () - (let ((__tmp52971 + (let ((__tmp51114 (gx#datum->syntax '#f 'list)) - (__tmp52965 - (let ((__tmp52967 - (let ((__tmp52970 + (__tmp51108 + (let ((__tmp51110 + (let ((__tmp51113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52968 - (let ((__tmp52969 + (__tmp51111 + (let ((__tmp51112 (gx#datum->syntax '#f 'quasiquote))) (declare (not safe)) - (cons __tmp52969 '())))) + (cons __tmp51112 '())))) (declare (not safe)) - (cons __tmp52970 __tmp52968))) - (__tmp52966 + (cons __tmp51113 __tmp51111))) + (__tmp51109 (let () (declare (not safe)) (cons _L16355_ '())))) (declare (not safe)) - (cons __tmp52967 __tmp52966)))) + (cons __tmp51110 __tmp51109)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52971 __tmp52965)))) + (cons __tmp51114 __tmp51108)))) _g1634116352_)))) (_g1633916367_ (_generate15685_ @@ -13067,30 +13203,30 @@ (lambda (_g1627016281_) ((lambda (_L16284_) (let () - (let ((__tmp52978 + (let ((__tmp51121 (gx#datum->syntax '#f 'list)) - (__tmp52972 - (let ((__tmp52974 - (let ((__tmp52977 + (__tmp51115 + (let ((__tmp51117 + (let ((__tmp51120 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52975 - (let ((__tmp52976 + (__tmp51118 + (let ((__tmp51119 (gx#datum->syntax '#f 'unquote))) (declare (not safe)) - (cons __tmp52976 '())))) + (cons __tmp51119 '())))) (declare (not safe)) - (cons __tmp52977 __tmp52975))) - (__tmp52973 + (cons __tmp51120 __tmp51118))) + (__tmp51116 (let () (declare (not safe)) (cons _L16284_ '())))) (declare (not safe)) - (cons __tmp52974 __tmp52973)))) + (cons __tmp51117 __tmp51116)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52978 - __tmp52972)))) + (cons __tmp51121 + __tmp51115)))) _g1627016281_)))) (_g1626816296_ (_generate15685_ @@ -13103,33 +13239,33 @@ (if (let () (declare (not safe)) (fxzero? _d15749_)) - (let ((__tmp52993 + (let ((__tmp51136 (gx#datum->syntax '#f 'foldr)) - (__tmp52986 - (let ((__tmp52992 + (__tmp51129 + (let ((__tmp51135 (gx#datum->syntax '#f 'cons)) - (__tmp52987 - (let ((__tmp52989 - (let ((__tmp52991 + (__tmp51130 + (let ((__tmp51132 + (let ((__tmp51134 (gx#datum->syntax '#f 'quote)) - (__tmp52990 + (__tmp51133 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp52991 __tmp52990))) - (__tmp52988 (let () (declare (not safe)) (cons _L16185_ '())))) + (cons __tmp51134 __tmp51133))) + (__tmp51131 (let () (declare (not safe)) (cons _L16185_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52989 - __tmp52988)))) + (cons __tmp51132 + __tmp51131)))) (declare (not safe)) - (cons __tmp52992 __tmp52987)))) + (cons __tmp51135 __tmp51130)))) (declare (not safe)) - (cons __tmp52993 __tmp52986)) + (cons __tmp51136 __tmp51129)) (let* ((_g1619816206_ (lambda (_g1619916202_) (gx#raise-syntax-error @@ -13140,32 +13276,32 @@ (lambda (_g1619916210_) ((lambda (_L16213_) (let () - (let ((__tmp52985 + (let ((__tmp51128 (gx#datum->syntax '#f 'list)) - (__tmp52979 - (let ((__tmp52981 - (let ((__tmp52984 + (__tmp51122 + (let ((__tmp51124 + (let ((__tmp51127 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52982 - (let ((__tmp52983 + (__tmp51125 + (let ((__tmp51126 (gx#datum->syntax '#f 'unquote-splicing))) (declare (not safe)) - (cons __tmp52983 '())))) + (cons __tmp51126 '())))) (declare (not safe)) - (cons __tmp52984 __tmp52982))) - (__tmp52980 + (cons __tmp51127 __tmp51125))) + (__tmp51123 (let () (declare (not safe)) (cons _L16213_ '())))) (declare (not safe)) - (cons __tmp52981 __tmp52980)))) + (cons __tmp51124 __tmp51123)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52985 - __tmp52979)))) + (cons __tmp51128 + __tmp51122)))) _g1619916210_)))) (_g1619716225_ (_generate15685_ @@ -13185,26 +13321,26 @@ (lambda (_g1612816139_) ((lambda (_L16142_) (let () - (let ((__tmp52998 + (let ((__tmp51141 (gx#datum->syntax '#f 'foldr)) - (__tmp52994 - (let ((__tmp52997 + (__tmp51137 + (let ((__tmp51140 (gx#datum->syntax '#f 'cons)) - (__tmp52995 - (let ((__tmp52996 + (__tmp51138 + (let ((__tmp51139 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L16112_ '())))) (declare (not safe)) - (cons _L16142_ __tmp52996)))) + (cons _L16142_ __tmp51139)))) (declare (not safe)) - (cons __tmp52997 __tmp52995)))) + (cons __tmp51140 __tmp51138)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52998 __tmp52994)))) + (cons __tmp51141 __tmp51137)))) _g1612816139_)))) (_g1612616154_ (_generate15685_ _L16110_ _d15749_))))) @@ -13246,16 +13382,16 @@ (if (gx#stx-null? _tl1601616048_) ((lambda (_L16051_ _L16053_) (let () - (let ((__tmp53001 (gx#datum->syntax '#f 'cons)) - (__tmp52999 - (let ((__tmp53000 + (let ((__tmp51144 (gx#datum->syntax '#f 'cons)) + (__tmp51142 + (let ((__tmp51143 (let () (declare (not safe)) (cons _L16051_ '())))) (declare (not safe)) - (cons _L16053_ __tmp53000)))) + (cons _L16053_ __tmp51143)))) (declare (not safe)) - (cons __tmp53001 __tmp52999)))) + (cons __tmp51144 __tmp51142)))) _hd1601716045_ _hd1601416035_) (_g1600916024_ _g1601016028_)))) @@ -13280,26 +13416,27 @@ (lambda (_g1594115952_) ((lambda (_L15955_) (let () - (let ((__tmp53003 + (let ((__tmp51146 (gx#datum->syntax '#f 'list->vector)) - (__tmp53002 + (__tmp51145 (let () (declare (not safe)) (cons _L15955_ '())))) (declare (not safe)) - (cons __tmp53003 __tmp53002)))) + (cons __tmp51146 __tmp51145)))) _g1594115952_)))) (_g1593915967_ (_generate15685_ - (foldr (lambda (_g1597015973_ _g1597115976_) + (let ((__tmp51147 + (lambda (_g1597015973_ _g1597115976_) (let () (declare (not safe)) (cons _g1597015973_ - _g1597115976_))) - '() - _L15926_) + _g1597115976_))))) + (declare (not safe)) + (foldr1 __tmp51147 '() _L15926_)) _d15749_))))) (___kont4628346284_ (lambda (_L15844_) @@ -13313,28 +13450,28 @@ (lambda (_g1585515866_) ((lambda (_L15869_) (let () - (let ((__tmp53005 + (let ((__tmp51149 (gx#datum->syntax '#f 'box)) - (__tmp53004 + (__tmp51148 (let () (declare (not safe)) (cons _L15869_ '())))) (declare (not safe)) - (cons __tmp53005 __tmp53004)))) + (cons __tmp51149 __tmp51148)))) _g1585515866_)))) (_g1585315881_ (_generate15685_ _L15844_ _d15749_))))) (___kont4628546286_ (lambda (_L15823_) - (let ((__tmp53007 (gx#datum->syntax '#f 'quote)) - (__tmp53006 + (let ((__tmp51151 (gx#datum->syntax '#f 'quote)) + (__tmp51150 (let () (declare (not safe)) (cons _L15823_ '())))) (declare (not safe)) - (cons __tmp53007 __tmp53006))))) + (cons __tmp51151 __tmp51150))))) (let* ((_g1575615885_ (lambda () (if (gx#stx-box? ___stx4626646267_) @@ -13429,7 +13566,7 @@ (##car _e1576316307_)))) (if (gx#identifier? _hd1576216311_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53011_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51155_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1576616317_ @@ -13454,7 +13591,7 @@ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53010_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51154_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1577316246_ @@ -13481,7 +13618,7 @@ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53009_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51153_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) @@ -13517,7 +13654,7 @@ (if (gx#identifier? _hd1578716094_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53008_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51152_| _hd1578716094_) (if (gx#stx-pair? _tl1578616097_) @@ -13583,16 +13720,16 @@ (if (gx#stx-null? _tl1569315725_) ((lambda (_L15728_) (if (_simple-quote?15683_ _L15728_) - (let ((__tmp53013 + (let ((__tmp51157 (gx#datum->syntax '#f 'quote)) - (__tmp53012 + (__tmp51156 (let () (declare (not safe)) (cons _L15728_ '())))) (declare (not safe)) - (cons __tmp53013 __tmp53012)) + (cons __tmp51157 __tmp51156)) (_generate15685_ _L15728_ '0))) _hd1569415722_) (_g1568715701_ _g1568815705_)))) @@ -13610,31 +13747,31 @@ ___stx4639246393_)))) (let ((___kont4639546396_ (lambda (_L16709_) - (let ((__tmp53015 (gx#datum->syntax '#f 'quote)) - (__tmp53014 + (let ((__tmp51159 (gx#datum->syntax '#f 'quote)) + (__tmp51158 (let () (declare (not safe)) (cons _L16709_ '())))) (declare (not safe)) - (cons __tmp53015 __tmp53014)))) + (cons __tmp51159 __tmp51158)))) (___kont4639746398_ (lambda (_L16668_) - (let ((__tmp53021 (gx#datum->syntax '#f 'make-promise)) - (__tmp53016 - (let ((__tmp53017 - (let ((__tmp53020 + (let ((__tmp51165 (gx#datum->syntax '#f 'make-promise)) + (__tmp51160 + (let ((__tmp51161 + (let ((__tmp51164 (gx#datum->syntax '#f 'lambda%)) - (__tmp53018 - (let ((__tmp53019 + (__tmp51162 + (let ((__tmp51163 (let () (declare (not safe)) (cons _L16668_ '())))) (declare (not safe)) - (cons '() __tmp53019)))) + (cons '() __tmp51163)))) (declare (not safe)) - (cons __tmp53020 __tmp53018)))) + (cons __tmp51164 __tmp51162)))) (declare (not safe)) - (cons __tmp53017 '())))) + (cons __tmp51161 '())))) (declare (not safe)) - (cons __tmp53021 __tmp53016))))) + (cons __tmp51165 __tmp51160))))) (let ((___match4641346414_ (lambda (_e1662516689_ _hd1662416693_ @@ -13717,11 +13854,16 @@ (if (gx#stx-null? _L16900_) (let ((_tail16948_ (gx#genident))) - (values (foldl cons + (values (let () + (declare + (not safe)) + (foldl1 cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tail16948_ - _hd16856_) - (foldl cons (list _tail16948_) _body16857_) + _tail16948_ + _hd16856_)) + (let ((__tmp51166 (list _tail16948_))) + (declare (not safe)) + (foldl1 cons __tmp51166 _body16857_)) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error @@ -13739,11 +13881,11 @@ (cons _L16902_ _body16857_)))))) (if (gx#identifier? ___stx4643046431_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53023_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51168_| ___stx4643046431_) (___kont4643346434_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g53022_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g51167_| ___stx4643046431_) (___kont4643546436_) (___kont4643746438_))) @@ -13788,35 +13930,35 @@ (##cdr _e1673716750_)))) ((lambda (_L16760_) (if (and (gx#stx-list? _L16760_) - (let ((__tmp53034 + (let ((__tmp51179 (gx#stx-null? _L16760_))) (declare (not safe)) - (not __tmp53034))) - (let ((_g53024_ (_generate16729_ _L16760_))) + (not __tmp51179))) + (let ((_g51169_ (_generate16729_ _L16760_))) (begin - (let ((_g53025_ + (let ((_g51170_ (let () (declare (not safe)) - (if (##values? _g53024_) - (##vector-length _g53024_) + (if (##values? _g51169_) + (##vector-length _g51169_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g53025_ 3))) + (##fx= _g51170_ 3))) (error "Context expects 3 values" - _g53025_))) + _g51170_))) (let ((_hd16773_ (let () (declare (not safe)) - (##vector-ref _g53024_ 0))) + (##vector-ref _g51169_ 0))) (_body16775_ (let () (declare (not safe)) - (##vector-ref _g53024_ 1))) + (##vector-ref _g51169_ 1))) (_tail?16776_ (let () (declare (not safe)) - (##vector-ref _g53024_ 2)))) + (##vector-ref _g51169_ 2)))) (let* ((_g1677816786_ (lambda (_g1677916782_) (gx#raise-syntax-error @@ -13840,34 +13982,34 @@ (let () (let () (if _tail?16776_ - (let ((__tmp53033 + (let ((__tmp51178 (gx#datum->syntax '#f 'lambda%)) - (__tmp53029 - (let ((__tmp53030 - (let ((__tmp53031 - (let ((__tmp53032 + (__tmp51174 + (let ((__tmp51175 + (let ((__tmp51176 + (let ((__tmp51177 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply))) (declare (not safe)) - (cons __tmp53032 _L16821_)))) + (cons __tmp51177 _L16821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp53031 '())))) + (cons __tmp51176 '())))) (declare (not safe)) - (cons _L16793_ __tmp53030)))) + (cons _L16793_ __tmp51175)))) (declare (not safe)) - (cons __tmp53033 __tmp53029)) - (let ((__tmp53028 + (cons __tmp51178 __tmp51174)) + (let ((__tmp51173 (gx#datum->syntax '#f 'lambda%)) - (__tmp53026 - (let ((__tmp53027 + (__tmp51171 + (let ((__tmp51172 (let () (declare (not safe)) (cons _L16821_ '())))) (declare (not safe)) - (cons _L16793_ __tmp53027)))) + (cons _L16793_ __tmp51172)))) (declare (not safe)) - (cons __tmp53028 __tmp53026)))))) + (cons __tmp51173 __tmp51171)))))) _g1680716818_)))) (_g1680516836_ _body16775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index aa5318c7..b97444dc 100644 --- a/src/bootstrap/gerbil/core__5.scm +++ b/src/bootstrap/gerbil/core__5.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<sugar>$<sugar:3>[1]#_g50950_| + (define |gerbil/core$<sugar>$<sugar:3>[1]#_g51264_| (##structure gx#syntax-quote::t 'quote @@ -19,45 +19,46 @@ ___stx4646646467_)))) (let ((___kont4646946470_ (lambda (_L17170_ _L17172_ _L17173_) - (let ((__tmp50881 (gx#datum->syntax '#f 'define-syntax)) - (__tmp50875 - (let ((__tmp50876 - (let ((__tmp50877 - (let ((__tmp50880 + (let ((__tmp51187 (gx#datum->syntax '#f 'define-syntax)) + (__tmp51180 + (let ((__tmp51181 + (let ((__tmp51182 + (let ((__tmp51186 (gx#datum->syntax '#f 'lambda)) - (__tmp50878 - (let ((__tmp50879 - (foldr (lambda (_g1719217195_ + (__tmp51183 + (let ((__tmp51184 + (let ((__tmp51185 + (lambda (_g1719217195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1719317198_) (let () (declare (not safe)) - (cons _g1719217195_ _g1719317198_))) - '() - _L17170_))) + (cons _g1719217195_ _g1719317198_))))) + (declare (not safe)) + (foldr1 __tmp51185 '() _L17170_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17172_ __tmp50879)))) + (cons _L17172_ __tmp51184)))) (declare (not safe)) - (cons __tmp50880 __tmp50878)))) + (cons __tmp51186 __tmp51183)))) (declare (not safe)) - (cons __tmp50877 '())))) + (cons __tmp51182 '())))) (declare (not safe)) - (cons _L17173_ __tmp50876)))) + (cons _L17173_ __tmp51181)))) (declare (not safe)) - (cons __tmp50881 __tmp50875)))) + (cons __tmp51187 __tmp51180)))) (___kont4647346474_ (lambda (_L17084_ _L17086_) - (let ((__tmp50884 (gx#datum->syntax '#f 'define-syntax)) - (__tmp50882 - (let ((__tmp50883 + (let ((__tmp51190 (gx#datum->syntax '#f 'define-syntax)) + (__tmp51188 + (let ((__tmp51189 (let () (declare (not safe)) (cons _L17084_ '())))) (declare (not safe)) - (cons _L17086_ __tmp50883)))) + (cons _L17086_ __tmp51189)))) (declare (not safe)) - (cons __tmp50884 __tmp50882))))) + (cons __tmp51190 __tmp51188))))) (let* ((___match4652146522_ (lambda (_e1703517054_ _hd1703417058_ @@ -345,37 +346,37 @@ (##cdr _e1722217273_)))) (if (gx#stx-pair/null? _tl1722017280_) - (let ((_g50885_ + (let ((_g51191_ (gx#syntax-split-splice _tl1722017280_ '0))) (begin - (let ((_g50886_ + (let ((_g51192_ (let () (declare (not safe)) (if (##values? - _g50885_) + _g51191_) (##vector-length - _g50885_) + _g51191_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50886_ 2))) - (error "Context expects 2 values" _g50886_))) + (##fx= _g51192_ 2))) + (error "Context expects 2 values" _g51192_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1722317283_ (let () (declare (not safe)) (##vector-ref - _g50885_ + _g51191_ 0))) (_tl1722517286_ (let () (declare (not safe)) (##vector-ref - _g50885_ + _g51191_ 1)))) (if (gx#stx-null? _tl1722517286_) @@ -402,31 +403,31 @@ (let ((_arg1723117309_ (reverse _arg1723017296_))) (if (gx#stx-pair/null? _tl1721717270_) - (let ((_g50887_ + (let ((_g51193_ (gx#syntax-split-splice _tl1721717270_ '0))) (begin - (let ((_g50888_ + (let ((_g51194_ (let () (declare (not safe)) - (if (##values? _g50887_) + (if (##values? _g51193_) (##vector-length - _g50887_) + _g51193_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50888_ 2))) + (##fx= _g51194_ 2))) (error "Context expects 2 values" - _g50888_))) + _g51194_))) (let ((_target1723217313_ (let () (declare (not safe)) - (##vector-ref _g50887_ 0))) + (##vector-ref _g51193_ 0))) (_tl1723417316_ (let () (declare (not safe)) - (##vector-ref _g50887_ 1)))) + (##vector-ref _g51193_ 1)))) (if (gx#stx-null? _tl1723417316_) (letrec ((_loop1723517319_ (lambda (_hd1723317323_ @@ -451,14 +452,15 @@ ((lambda (_L17343_ _L17345_ _L17346_) (if (and (gx#identifier? _L17346_) (gx#identifier-list? - (foldr (lambda (_g1737017373_ + (let ((__tmp51240 + (lambda (_g1737017373_ _g1737117376_) (let () (declare (not safe)) (cons _g1737017373_ - _g1737117376_))) - '() - _L17345_))) + _g1737117376_))))) + (declare (not safe)) + (foldr1 __tmp51240 '() _L17345_)))) (let* ((_g1737917387_ (lambda (_g1738017383_) (gx#raise-syntax-error @@ -479,28 +481,28 @@ (lambda (_g1740717427_) (if (gx#stx-pair/null? _g1740717427_) - (let ((_g50889_ + (let ((_g51195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1740717427_ '0))) (begin - (let ((_g50890_ + (let ((_g51196_ (let () (declare (not safe)) - (if (##values? _g50889_) - (##vector-length _g50889_) + (if (##values? _g51195_) + (##vector-length _g51195_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50890_ 2))) - (error "Context expects 2 values" _g50890_))) + (##fx= _g51196_ 2))) + (error "Context expects 2 values" _g51196_))) (let ((_target1740917430_ (let () (declare (not safe)) - (##vector-ref _g50889_ 0))) + (##vector-ref _g51195_ 0))) (_tl1741117433_ (let () (declare (not safe)) - (##vector-ref _g50889_ 1)))) + (##vector-ref _g51195_ 1)))) (if (gx#stx-null? _tl1741117433_) (letrec ((_loop1741217436_ (lambda (_hd1741017440_ @@ -550,172 +552,179 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp50893 + (let ((__tmp51199 (gx#datum->syntax '#f 'begin)) - (__tmp50891 - (let ((__tmp50892 + (__tmp51197 + (let ((__tmp51198 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L17492_ '())))) (declare (not safe)) - (cons _L17520_ __tmp50892)))) + (cons _L17520_ __tmp51198)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50893 __tmp50891)) + (cons __tmp51199 __tmp51197)) (gx#stx-source _stx17206_))))) _g1750617517_)))) (_g1750417535_ (gx#stx-wrap-source - (let ((__tmp50898 + (let ((__tmp51206 (gx#datum->syntax '#f 'def)) - (__tmp50894 - (let ((__tmp50896 - (let ((__tmp50897 - (foldr (lambda (_g1754017543_ + (__tmp51200 + (let ((__tmp51203 + (let ((__tmp51204 + (let ((__tmp51205 + (lambda (_g1754017543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1754117546_) (let () (declare (not safe)) - (cons _g1754017543_ _g1754117546_))) - '() - _L17345_))) + (cons _g1754017543_ _g1754117546_))))) + (declare (not safe)) + (foldr1 __tmp51205 '() _L17345_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17394_ __tmp50897))) - (__tmp50895 - (foldr (lambda (_g1753817549_ + (cons _L17394_ __tmp51204))) + (__tmp51201 + (let ((__tmp51202 + (lambda (_g1753817549_ _g1753917552_) (let () (declare (not safe)) (cons _g1753817549_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1753917552_))) - '() - _L17343_))) + _g1753917552_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp51202 + '() + _L17343_)))) (declare (not safe)) - (cons __tmp50896 __tmp50895)))) + (cons __tmp51203 __tmp51201)))) (declare (not safe)) - (cons __tmp50898 __tmp50894)) + (cons __tmp51206 __tmp51200)) (gx#stx-source _stx17206_)))))) _g1747817489_)))) (_g1747617555_ (gx#stx-wrap-source - (let ((__tmp50926 (gx#datum->syntax '#f 'defrules)) - (__tmp50899 - (let ((__tmp50900 - (let ((__tmp50901 - (let ((__tmp50914 - (let ((__tmp50923 - (let ((__tmp50925 + (let ((__tmp51238 (gx#datum->syntax '#f 'defrules)) + (__tmp51207 + (let ((__tmp51208 + (let ((__tmp51209 + (let ((__tmp51222 + (let ((__tmp51234 + (let ((__tmp51237 (gx#datum->syntax '#f '_)) - (__tmp50924 - (foldr (lambda (_g1756417567_ + (__tmp51235 + (let ((__tmp51236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1756517570_) + (lambda (_g1756417567_ _g1756517570_) (let () (declare (not safe)) - (cons _g1756417567_ _g1756517570_))) - '() - _L17460_))) + (cons _g1756417567_ _g1756517570_))))) + (declare (not safe)) + (foldr1 __tmp51236 '() _L17460_)))) (declare (not safe)) - (cons __tmp50925 __tmp50924))) + (cons __tmp51237 __tmp51235))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50915 - (let ((__tmp50916 - (let ((__tmp50918 + (__tmp51223 + (let ((__tmp51224 + (let ((__tmp51227 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50922 (gx#datum->syntax '#f 'lambda)) - (__tmp50919 - (let ((__tmp50921 - (foldr (lambda (_g1756217573_ + (let ((__tmp51233 (gx#datum->syntax '#f 'lambda)) + (__tmp51228 + (let ((__tmp51231 + (let ((__tmp51232 + (lambda (_g1756217573_ _g1756317576_) (let () (declare (not safe)) (cons _g1756217573_ - _g1756317576_))) - '() - _L17345_)) - (__tmp50920 - (foldr (lambda (_g1756017579_ + _g1756317576_))))) + (declare (not safe)) + (foldr1 __tmp51232 '() _L17345_))) + (__tmp51229 + (let ((__tmp51230 + (lambda (_g1756017579_ _g1756117582_) (let () (declare (not safe)) (cons _g1756017579_ - _g1756117582_))) - '() - _L17343_))) + _g1756117582_))))) + (declare (not safe)) + (foldr1 __tmp51230 '() _L17343_)))) (declare (not safe)) - (cons __tmp50921 __tmp50920)))) + (cons __tmp51231 __tmp51229)))) (declare (not safe)) - (cons __tmp50922 __tmp50919))) - (__tmp50917 - (foldr (lambda (_g1755817585_ _g1755917588_) + (cons __tmp51233 __tmp51228))) + (__tmp51225 + (let ((__tmp51226 + (lambda (_g1755817585_ _g1755917588_) (let () (declare (not safe)) - (cons _g1755817585_ _g1755917588_))) - '() - _L17460_))) + (cons _g1755817585_ _g1755917588_))))) + (declare (not safe)) + (foldr1 __tmp51226 '() _L17460_)))) (declare (not safe)) - (cons __tmp50918 __tmp50917)))) + (cons __tmp51227 __tmp51225)))) (declare (not safe)) - (cons __tmp50916 '())))) + (cons __tmp51224 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50923 __tmp50915))) - (__tmp50902 - (let ((__tmp50903 - (let ((__tmp50913 + (cons __tmp51234 __tmp51223))) + (__tmp51210 + (let ((__tmp51211 + (let ((__tmp51221 (gx#datum->syntax '#f 'ref)) - (__tmp50904 - (let ((__tmp50906 + (__tmp51212 + (let ((__tmp51214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50912 + (let ((__tmp51220 (gx#datum->syntax '#f 'identifier?)) - (__tmp50907 - (let ((__tmp50908 - (let ((__tmp50911 + (__tmp51215 + (let ((__tmp51216 + (let ((__tmp51219 (gx#datum->syntax '#f 'syntax)) - (__tmp50909 - (let ((__tmp50910 + (__tmp51217 + (let ((__tmp51218 (gx#datum->syntax '#f 'ref))) (declare (not safe)) - (cons __tmp50910 '())))) + (cons __tmp51218 '())))) (declare (not safe)) - (cons __tmp50911 __tmp50909)))) + (cons __tmp51219 __tmp51217)))) (declare (not safe)) - (cons __tmp50908 '())))) + (cons __tmp51216 '())))) (declare (not safe)) - (cons __tmp50912 __tmp50907))) - (__tmp50905 + (cons __tmp51220 __tmp51215))) + (__tmp51213 (let () (declare (not safe)) (cons _L17394_ '())))) (declare (not safe)) - (cons __tmp50906 __tmp50905)))) + (cons __tmp51214 __tmp51213)))) (declare (not safe)) - (cons __tmp50913 __tmp50904)))) + (cons __tmp51221 __tmp51212)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50903 '())))) + (cons __tmp51211 '())))) (declare (not safe)) - (cons __tmp50914 __tmp50902)))) + (cons __tmp51222 __tmp51210)))) (declare (not safe)) - (cons '() __tmp50901)))) + (cons '() __tmp51209)))) (declare (not safe)) - (cons _L17346_ __tmp50900)))) + (cons _L17346_ __tmp51208)))) (declare (not safe)) - (cons __tmp50926 __tmp50899)) + (cons __tmp51238 __tmp51207)) (gx#stx-source _stx17206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _xarg1741717456_)))))) @@ -725,14 +734,15 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1740517591_ (gx#gentemps - (foldr (lambda (_g1759417597_ + (let ((__tmp51239 + (lambda (_g1759417597_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1759517600_) (let () (declare (not safe)) - (cons _g1759417597_ _g1759517600_))) - '() - _L17345_)))))) + (cons _g1759417597_ _g1759517600_))))) + (declare (not safe)) + (foldr1 __tmp51239 '() _L17345_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1738017391_)))) (_g1737817603_ @@ -770,79 +780,79 @@ ___stx4652446525_)))) (let ((___kont4652746528_ (lambda (_L17769_ _L17771_) - (let ((__tmp50944 (gx#datum->syntax '#f 'defrules)) - (__tmp50927 - (let ((__tmp50928 - (let ((__tmp50929 - (let ((__tmp50930 - (let ((__tmp50943 + (let ((__tmp51258 (gx#datum->syntax '#f 'defrules)) + (__tmp51241 + (let ((__tmp51242 + (let ((__tmp51243 + (let ((__tmp51244 + (let ((__tmp51257 (gx#datum->syntax '#f 'x)) - (__tmp50931 - (let ((__tmp50936 - (let ((__tmp50942 + (__tmp51245 + (let ((__tmp51250 + (let ((__tmp51256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'identifier?)) - (__tmp50937 - (let ((__tmp50938 - (let ((__tmp50941 + (__tmp51251 + (let ((__tmp51252 + (let ((__tmp51255 (gx#datum->syntax '#f 'syntax)) - (__tmp50939 - (let ((__tmp50940 + (__tmp51253 + (let ((__tmp51254 (gx#datum->syntax '#f 'x))) (declare (not safe)) - (cons __tmp50940 '())))) + (cons __tmp51254 '())))) (declare (not safe)) - (cons __tmp50941 __tmp50939)))) + (cons __tmp51255 __tmp51253)))) (declare (not safe)) - (cons __tmp50938 '())))) + (cons __tmp51252 '())))) (declare (not safe)) - (cons __tmp50942 __tmp50937))) - (__tmp50932 - (let ((__tmp50933 - (let ((__tmp50935 (gx#datum->syntax '#f 'quote)) - (__tmp50934 + (cons __tmp51256 __tmp51251))) + (__tmp51246 + (let ((__tmp51247 + (let ((__tmp51249 (gx#datum->syntax '#f 'quote)) + (__tmp51248 (let () (declare (not safe)) (cons _L17769_ '())))) (declare (not safe)) - (cons __tmp50935 __tmp50934)))) + (cons __tmp51249 __tmp51248)))) (declare (not safe)) - (cons __tmp50933 '())))) + (cons __tmp51247 '())))) (declare (not safe)) - (cons __tmp50936 __tmp50932)))) + (cons __tmp51250 __tmp51246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50943 - __tmp50931)))) + (cons __tmp51257 + __tmp51245)))) (declare (not safe)) - (cons __tmp50930 '())))) + (cons __tmp51244 '())))) (declare (not safe)) - (cons '() __tmp50929)))) + (cons '() __tmp51243)))) (declare (not safe)) - (cons _L17771_ __tmp50928)))) + (cons _L17771_ __tmp51242)))) (declare (not safe)) - (cons __tmp50944 __tmp50927)))) + (cons __tmp51258 __tmp51241)))) (___kont4652946530_ (lambda (_L17692_ _L17694_ _L17695_) - (let ((__tmp50945 - (let ((__tmp50946 - (let ((__tmp50947 - (let ((__tmp50949 + (let ((__tmp51259 + (let ((__tmp51260 + (let ((__tmp51261 + (let ((__tmp51263 (gx#datum->syntax '#f 'quote)) - (__tmp50948 + (__tmp51262 (let () (declare (not safe)) (cons _L17692_ '())))) (declare (not safe)) - (cons __tmp50949 __tmp50948)))) + (cons __tmp51263 __tmp51262)))) (declare (not safe)) - (cons __tmp50947 '())))) + (cons __tmp51261 '())))) (declare (not safe)) - (cons _L17694_ __tmp50946)))) + (cons _L17694_ __tmp51260)))) (declare (not safe)) - (cons _L17695_ __tmp50945))))) + (cons _L17695_ __tmp51259))))) (let* ((___match4658946590_ (lambda (_e1764317662_ _hd1764217666_ @@ -933,7 +943,7 @@ (if (gx#identifier? _hd1763317753_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:3>[1]#_g50950_| + |gerbil/core$<sugar>$<sugar:3>[1]#_g51264_| _hd1763317753_) (if (gx#stx-pair? _tl1763217756_) diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index 5d00581c..7a19b490 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -26,7 +26,9 @@ (let () (declare (not safe)) (|gerbil/core$<MOP>$<MOP:1>[1]#module-type-id| _type-t19216_)) - (make-symbol '"__" (gensym (gx#stx-e _type-t19216_)) '"::t")))) + (let ((__tmp51265 (gensym (gx#stx-e _type-t19216_)))) + (declare (not safe)) + (make-symbol__1 '"__" __tmp51265 '"::t"))))) (define |gerbil/core$<MOP>$<MOP:1>[1]#generate-typedef| (lambda (_stx17796_ _struct?17798_) (letrec ((_wrap17800_ @@ -216,32 +218,32 @@ (_g1795419119_ (lambda (_g1795617976_) (if (gx#stx-pair/null? _g1795617976_) - (let ((_g50951_ + (let ((_g51266_ (gx#syntax-split-splice _g1795617976_ '0))) (begin - (let ((_g50952_ + (let ((_g51267_ (let () (declare (not safe)) - (if (##values? _g50951_) + (if (##values? _g51266_) (##vector-length - _g50951_) + _g51266_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50952_ 2))) + (##fx= _g51267_ 2))) (error "Context expects 2 values" - _g50952_))) + _g51267_))) (let ((_target1795817979_ (let () (declare (not safe)) - (##vector-ref _g50951_ 0))) + (##vector-ref _g51266_ 0))) (_tl1796017982_ (let () (declare (not safe)) (##vector-ref - _g50951_ + _g51266_ 1)))) (if (gx#stx-null? _tl1796017982_) (letrec ((_loop1796117985_ @@ -258,7 +260,7 @@ (let () (declare (not safe)) (##cdr _e1796217995_)))) - (let ((__tmp51173 + (let ((__tmp51497 (let () (declare (not safe)) (cons _lp-hd1796317999_ @@ -266,7 +268,7 @@ (declare (not safe)) (_loop1796117985_ _lp-tl1796418002_ - __tmp51173)))) + __tmp51497)))) (let ((_slot1796618005_ (reverse _slot1796517992_))) ((lambda (_L18009_) (let () @@ -456,28 +458,28 @@ (lambda (_g1850718536_) (if (gx#stx-pair/null? _g1850718536_) - (let ((_g50953_ + (let ((_g51268_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1850718536_ '0))) (begin - (let ((_g50954_ + (let ((_g51269_ (let () (declare (not safe)) - (if (##values? _g50953_) - (##vector-length _g50953_) + (if (##values? _g51268_) + (##vector-length _g51268_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50954_ 2))) - (error "Context expects 2 values" _g50954_))) + (##fx= _g51269_ 2))) + (error "Context expects 2 values" _g51269_))) (let ((_target1851018539_ (let () (declare (not safe)) - (##vector-ref _g50953_ 0))) + (##vector-ref _g51268_ 0))) (_tl1851218542_ (let () (declare (not safe)) - (##vector-ref _g50953_ 1)))) + (##vector-ref _g51268_ 1)))) (if (gx#stx-null? _tl1851218542_) (letrec ((_loop1851318545_ (lambda (_hd1851118549_ @@ -518,12 +520,12 @@ (declare (not safe)) (##cdr _e1852618577_)))) (if (gx#stx-null? _tl1852418584_) - (let ((__tmp51011 + (let ((__tmp51333 (let () (declare (not safe)) (cons _hd1852518581_ _def-setf1851718552_))) - (__tmp51010 + (__tmp51332 (let () (declare (not safe)) (cons _hd1852218571_ @@ -531,8 +533,8 @@ (declare (not safe)) (_loop1851318545_ _lp-tl1851618564_ - __tmp51011 - __tmp51010)) + __tmp51333 + __tmp51332)) (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) @@ -557,28 +559,28 @@ (_g1861118752_ (lambda (_g1861318642_) (if (gx#stx-pair/null? _g1861318642_) - (let ((_g50955_ + (let ((_g51270_ (gx#syntax-split-splice _g1861318642_ '0))) (begin - (let ((_g50956_ + (let ((_g51271_ (let () (declare (not safe)) - (if (##values? _g50955_) - (##vector-length _g50955_) + (if (##values? _g51270_) + (##vector-length _g51270_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50956_ 2))) + (##fx= _g51271_ 2))) (error "Context expects 2 values" - _g50956_))) + _g51271_))) (let ((_target1861618645_ (let () (declare (not safe)) - (##vector-ref _g50955_ 0))) + (##vector-ref _g51270_ 0))) (_tl1861818648_ (let () (declare (not safe)) - (##vector-ref _g50955_ 1)))) + (##vector-ref _g51270_ 1)))) (if (gx#stx-null? _tl1861818648_) (letrec ((_loop1861918651_ (lambda (_hd1861718655_ @@ -618,12 +620,12 @@ (declare (not safe)) (##cdr _e1863218683_)))) (if (gx#stx-null? _tl1863018690_) - (let ((__tmp50964 + (let ((__tmp51286 (let () (declare (not safe)) (cons _hd1863118687_ _def-usetf1862318658_))) - (__tmp50963 + (__tmp51285 (let () (declare (not safe)) (cons _hd1862818677_ @@ -631,8 +633,8 @@ (declare (not safe)) (_loop1861918651_ _lp-tl1862218670_ - __tmp50964 - __tmp50963)) + __tmp51286 + __tmp51285)) (let () (declare (not safe)) (_g1861218638_ _g1861318642_))))) @@ -647,49 +649,59 @@ ((lambda (_L18699_ _L18701_) (let () (let () - (let ((__tmp50957 - (let ((__tmp50962 (gx#datum->syntax '#f 'begin)) - (__tmp50958 - (let ((__tmp50959 - (let ((__tmp50960 - (let ((__tmp50961 - (foldr (lambda (_g1871918728_ + (let ((__tmp51272 + (let ((__tmp51284 (gx#datum->syntax '#f 'begin)) + (__tmp51273 + (let ((__tmp51274 + (let ((__tmp51275 + (let ((__tmp51276 + (let ((__tmp51283 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1872018731_) + (lambda (_g1871918728_ _g1872018731_) (let () (declare (not safe)) - (cons _g1871918728_ _g1872018731_))) - (foldr (lambda (_g1872118734_ _g1872218737_) + (cons _g1871918728_ _g1872018731_)))) + (__tmp51277 + (let ((__tmp51282 + (lambda (_g1872118734_ _g1872218737_) (let () (declare (not safe)) - (cons _g1872118734_ _g1872218737_))) - (foldr (lambda (_g1872318740_ _g1872418743_) + (cons _g1872118734_ _g1872218737_)))) + (__tmp51278 + (let ((__tmp51281 + (lambda (_g1872318740_ _g1872418743_) (let () (declare (not safe)) - (cons _g1872318740_ _g1872418743_))) - (foldr (lambda (_g1872518746_ + (cons _g1872318740_ + _g1872418743_)))) + (__tmp51279 + (let ((__tmp51280 + (lambda (_g1872518746_ _g1872618749_) (let () (declare (not safe)) (cons _g1872518746_ - _g1872618749_))) - '() - _L18699_) - _L18701_) - _L18593_) - _L18595_))) + _g1872618749_))))) + (declare (not safe)) + (foldr1 __tmp51280 '() _L18699_)))) + (declare (not safe)) + (foldr1 __tmp51281 __tmp51279 _L18701_)))) + (declare (not safe)) + (foldr1 __tmp51282 __tmp51278 _L18593_)))) + (declare (not safe)) + (foldr1 __tmp51283 __tmp51277 _L18595_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18465_ - __tmp50961)))) + __tmp51276)))) (declare (not safe)) - (cons _L18493_ __tmp50960)))) + (cons _L18493_ __tmp51275)))) (declare (not safe)) - (cons _L18437_ __tmp50959)))) + (cons _L18437_ __tmp51274)))) (declare (not safe)) - (cons __tmp50962 __tmp50958)))) + (cons __tmp51284 __tmp51273)))) (declare (not safe)) - (_wrap17800_ __tmp50957))))) + (_wrap17800_ __tmp51272))))) _def-usetf1862518693_ _def-ugetf1862618696_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -705,7 +717,7 @@ (let () (declare (not safe)) (_g1861218638_ _g1861318642_))))) - (__tmp50965 + (__tmp51287 (gx#stx-map (lambda (_ref18756_) (let* ((_g1875918778_ @@ -790,148 +802,148 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L18880_) (let () - (let ((__tmp50988 - (let ((__tmp50989 - (let ((__tmp51008 + (let ((__tmp51310 + (let ((__tmp51311 + (let ((__tmp51330 (gx#datum->syntax '#f 'def)) - (__tmp50990 - (let ((__tmp50991 - (let ((__tmp50992 - (let ((__tmp51007 + (__tmp51312 + (let ((__tmp51313 + (let ((__tmp51314 + (let ((__tmp51329 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50993 - (let ((__tmp51002 + (__tmp51315 + (let ((__tmp51324 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51006 + (let ((__tmp51328 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp51003 - (let ((__tmp51004 - (let ((__tmp51005 + (__tmp51325 + (let ((__tmp51326 + (let ((__tmp51327 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L18818_ __tmp51005)))) + (cons _L18818_ __tmp51327)))) (declare (not safe)) - (cons _L18129_ __tmp51004)))) + (cons _L18129_ __tmp51326)))) (declare (not safe)) - (cons __tmp51006 __tmp51003))) - (__tmp50994 - (let ((__tmp50995 - (let ((__tmp51001 + (cons __tmp51328 __tmp51325))) + (__tmp51316 + (let ((__tmp51317 + (let ((__tmp51323 (gx#datum->syntax '#f 'make-class-slot-unchecked-accessor)) - (__tmp50996 - (let ((__tmp50997 - (let ((__tmp50998 - (let ((__tmp51000 + (__tmp51318 + (let ((__tmp51319 + (let ((__tmp51320 + (let ((__tmp51322 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp50999 + (__tmp51321 (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons __tmp51000 __tmp50999)))) + (cons __tmp51322 __tmp51321)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50998 '())))) + (cons __tmp51320 '())))) (declare (not safe)) - (cons _L17894_ __tmp50997)))) + (cons _L17894_ __tmp51319)))) (declare (not safe)) - (cons __tmp51001 __tmp50996)))) + (cons __tmp51323 __tmp51318)))) (declare (not safe)) - (cons __tmp50995 '())))) + (cons __tmp51317 '())))) (declare (not safe)) - (cons __tmp51002 __tmp50994)))) + (cons __tmp51324 __tmp51316)))) (declare (not safe)) - (cons __tmp51007 __tmp50993)))) + (cons __tmp51329 __tmp51315)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50992 '())))) + (cons __tmp51314 '())))) (declare (not safe)) - (cons _L18880_ __tmp50991)))) + (cons _L18880_ __tmp51313)))) (declare (not safe)) - (cons __tmp51008 __tmp50990)))) + (cons __tmp51330 __tmp51312)))) (declare (not safe)) - (_wrap17800_ __tmp50989))) - (__tmp50966 - (let ((__tmp50967 - (let ((__tmp50968 - (let ((__tmp50987 + (_wrap17800_ __tmp51311))) + (__tmp51288 + (let ((__tmp51289 + (let ((__tmp51290 + (let ((__tmp51309 (gx#datum->syntax '#f 'def)) - (__tmp50969 - (let ((__tmp50970 - (let ((__tmp50971 - (let ((__tmp50986 + (__tmp51291 + (let ((__tmp51292 + (let ((__tmp51293 + (let ((__tmp51308 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50972 - (let ((__tmp50981 - (let ((__tmp50985 + (__tmp51294 + (let ((__tmp51303 + (let ((__tmp51307 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp50982 - (let ((__tmp50983 - (let ((__tmp50984 + (__tmp51304 + (let ((__tmp51305 + (let ((__tmp51306 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) (cons _L18818_ - __tmp50984)))) + __tmp51306)))) (declare (not safe)) - (cons _L18129_ __tmp50983)))) + (cons _L18129_ __tmp51305)))) (declare (not safe)) - (cons __tmp50985 __tmp50982))) - (__tmp50973 - (let ((__tmp50974 - (let ((__tmp50980 + (cons __tmp51307 __tmp51304))) + (__tmp51295 + (let ((__tmp51296 + (let ((__tmp51302 (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator)) - (__tmp50975 - (let ((__tmp50976 - (let ((__tmp50977 + (__tmp51297 + (let ((__tmp51298 + (let ((__tmp51299 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50979 (gx#datum->syntax '#f 'quote)) - (__tmp50978 + (let ((__tmp51301 (gx#datum->syntax '#f 'quote)) + (__tmp51300 (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons __tmp50979 __tmp50978)))) + (cons __tmp51301 __tmp51300)))) (declare (not safe)) - (cons __tmp50977 '())))) + (cons __tmp51299 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp50976)))) + __tmp51298)))) (declare (not safe)) - (cons __tmp50980 __tmp50975)))) + (cons __tmp51302 __tmp51297)))) (declare (not safe)) - (cons __tmp50974 '())))) + (cons __tmp51296 '())))) (declare (not safe)) - (cons __tmp50981 __tmp50973)))) + (cons __tmp51303 __tmp51295)))) (declare (not safe)) - (cons __tmp50986 __tmp50972)))) + (cons __tmp51308 __tmp51294)))) (declare (not safe)) - (cons __tmp50971 '())))) + (cons __tmp51293 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18878_ - __tmp50970)))) + __tmp51292)))) (declare (not safe)) - (cons __tmp50987 __tmp50969)))) + (cons __tmp51309 __tmp51291)))) (declare (not safe)) - (_wrap17800_ __tmp50968)))) + (_wrap17800_ __tmp51290)))) (declare (not safe)) - (cons __tmp50967 '())))) + (cons __tmp51289 '())))) (declare (not safe)) - (cons __tmp50988 __tmp50966)))) + (cons __tmp51310 __tmp51288)))) _hd1884418872_ _hd1884118862_) (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) @@ -943,7 +955,7 @@ (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) - (__tmp51009 + (__tmp51331 (list (gx#stx-identifier _L18817_ '"&" @@ -953,7 +965,7 @@ '"&" _L18815_)))) (declare (not safe)) - (_g1883518896_ __tmp51009))) + (_g1883518896_ __tmp51331))) _hd1877118809_ _hd1876818799_ _hd1876518789_) @@ -973,7 +985,7 @@ (_g1875818900_ _ref18756_))) _accessible-slots17949_))) (declare (not safe)) - (_g1861118752_ __tmp50965)))) + (_g1861118752_ __tmp51287)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _def-setf1851918587_ _def-getf1852018590_)))))) @@ -989,7 +1001,7 @@ (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) - (__tmp51012 + (__tmp51334 (gx#stx-map (lambda (_ref18908_) (let* ((_g1891118930_ @@ -1040,148 +1052,148 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L18969_ _L18970_) - (let ((__tmp51035 - (let ((__tmp51036 - (let ((__tmp51055 (gx#datum->syntax '#f 'def)) - (__tmp51037 - (let ((__tmp51038 - (let ((__tmp51039 - (let ((__tmp51054 + (let ((__tmp51357 + (let ((__tmp51358 + (let ((__tmp51377 (gx#datum->syntax '#f 'def)) + (__tmp51359 + (let ((__tmp51360 + (let ((__tmp51361 + (let ((__tmp51376 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51040 - (let ((__tmp51049 + (__tmp51362 + (let ((__tmp51371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51053 + (let ((__tmp51375 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp51050 - (let ((__tmp51051 - (let ((__tmp51052 + (__tmp51372 + (let ((__tmp51373 + (let ((__tmp51374 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L18970_ __tmp51052)))) + (cons _L18970_ __tmp51374)))) (declare (not safe)) - (cons _L18129_ __tmp51051)))) + (cons _L18129_ __tmp51373)))) (declare (not safe)) - (cons __tmp51053 __tmp51050))) - (__tmp51041 - (let ((__tmp51042 - (let ((__tmp51048 + (cons __tmp51375 __tmp51372))) + (__tmp51363 + (let ((__tmp51364 + (let ((__tmp51370 (gx#datum->syntax '#f 'make-class-slot-accessor)) - (__tmp51043 - (let ((__tmp51044 - (let ((__tmp51045 - (let ((__tmp51047 + (__tmp51365 + (let ((__tmp51366 + (let ((__tmp51367 + (let ((__tmp51369 (gx#datum->syntax '#f 'quote)) - (__tmp51046 + (__tmp51368 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L18970_ '())))) (declare (not safe)) - (cons __tmp51047 __tmp51046)))) + (cons __tmp51369 __tmp51368)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51045 '())))) + (cons __tmp51367 '())))) (declare (not safe)) - (cons _L17894_ __tmp51044)))) + (cons _L17894_ __tmp51366)))) (declare (not safe)) - (cons __tmp51048 __tmp51043)))) + (cons __tmp51370 __tmp51365)))) (declare (not safe)) - (cons __tmp51042 '())))) + (cons __tmp51364 '())))) (declare (not safe)) - (cons __tmp51049 __tmp51041)))) + (cons __tmp51371 __tmp51363)))) (declare (not safe)) - (cons __tmp51054 __tmp51040)))) + (cons __tmp51376 __tmp51362)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51039 '())))) + (cons __tmp51361 '())))) (declare (not safe)) - (cons _L18969_ __tmp51038)))) + (cons _L18969_ __tmp51360)))) (declare (not safe)) - (cons __tmp51055 __tmp51037)))) + (cons __tmp51377 __tmp51359)))) (declare (not safe)) - (_wrap17800_ __tmp51036))) - (__tmp51013 - (let ((__tmp51014 - (let ((__tmp51015 - (let ((__tmp51034 + (_wrap17800_ __tmp51358))) + (__tmp51335 + (let ((__tmp51336 + (let ((__tmp51337 + (let ((__tmp51356 (gx#datum->syntax '#f 'def)) - (__tmp51016 - (let ((__tmp51017 - (let ((__tmp51018 - (let ((__tmp51033 + (__tmp51338 + (let ((__tmp51339 + (let ((__tmp51340 + (let ((__tmp51355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51019 - (let ((__tmp51028 - (let ((__tmp51032 + (__tmp51341 + (let ((__tmp51350 + (let ((__tmp51354 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp51029 - (let ((__tmp51030 - (let ((__tmp51031 + (__tmp51351 + (let ((__tmp51352 + (let ((__tmp51353 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) (cons _L18970_ - __tmp51031)))) + __tmp51353)))) (declare (not safe)) - (cons _L18129_ __tmp51030)))) + (cons _L18129_ __tmp51352)))) (declare (not safe)) - (cons __tmp51032 __tmp51029))) - (__tmp51020 - (let ((__tmp51021 - (let ((__tmp51027 + (cons __tmp51354 __tmp51351))) + (__tmp51342 + (let ((__tmp51343 + (let ((__tmp51349 (gx#datum->syntax '#f 'make-class-slot-mutator)) - (__tmp51022 - (let ((__tmp51023 - (let ((__tmp51024 - (let ((__tmp51026 + (__tmp51344 + (let ((__tmp51345 + (let ((__tmp51346 + (let ((__tmp51348 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51025 + (__tmp51347 (let () (declare (not safe)) (cons _L18970_ '())))) (declare (not safe)) - (cons __tmp51026 __tmp51025)))) + (cons __tmp51348 __tmp51347)))) (declare (not safe)) - (cons __tmp51024 '())))) + (cons __tmp51346 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp51023)))) + __tmp51345)))) (declare (not safe)) - (cons __tmp51027 __tmp51022)))) + (cons __tmp51349 __tmp51344)))) (declare (not safe)) - (cons __tmp51021 '())))) + (cons __tmp51343 '())))) (declare (not safe)) - (cons __tmp51028 __tmp51020)))) + (cons __tmp51350 __tmp51342)))) (declare (not safe)) - (cons __tmp51033 __tmp51019)))) + (cons __tmp51355 __tmp51341)))) (declare (not safe)) - (cons __tmp51018 '())))) + (cons __tmp51340 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18967_ __tmp51017)))) + (cons _L18967_ __tmp51339)))) (declare (not safe)) - (cons __tmp51034 __tmp51016)))) + (cons __tmp51356 __tmp51338)))) (declare (not safe)) - (_wrap17800_ __tmp51015)))) + (_wrap17800_ __tmp51337)))) (declare (not safe)) - (cons __tmp51014 '())))) + (cons __tmp51336 '())))) (declare (not safe)) - (cons __tmp51035 __tmp51013))) + (cons __tmp51357 __tmp51335))) _hd1892318961_ _hd1892018951_ _hd1891718941_) @@ -1202,315 +1214,319 @@ _accessible-slots17949_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1850518904_ __tmp51012)))) + (_g1850518904_ __tmp51334)))) _g1847918490_))) - (__tmp51056 - (let ((__tmp51057 - (let ((__tmp51070 + (__tmp51378 + (let ((__tmp51379 + (let ((__tmp51392 (gx#datum->syntax '#f 'def)) - (__tmp51058 - (let ((__tmp51059 - (let ((__tmp51060 + (__tmp51380 + (let ((__tmp51381 + (let ((__tmp51382 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51069 + (let ((__tmp51391 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51061 - (let ((__tmp51066 - (let ((__tmp51068 + (__tmp51383 + (let ((__tmp51388 + (let ((__tmp51390 (gx#datum->syntax '#f '@mop.predicate)) - (__tmp51067 + (__tmp51389 (let () (declare (not safe)) (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp51068 __tmp51067))) - (__tmp51062 - (let ((__tmp51063 - (let ((__tmp51065 + (cons __tmp51390 __tmp51389))) + (__tmp51384 + (let ((__tmp51385 + (let ((__tmp51387 (gx#datum->syntax '#f 'make-class-predicate)) - (__tmp51064 + (__tmp51386 (let () (declare (not safe)) (cons _L17894_ '())))) (declare (not safe)) - (cons __tmp51065 - __tmp51064)))) + (cons __tmp51387 + __tmp51386)))) (declare (not safe)) - (cons __tmp51063 '())))) + (cons __tmp51385 '())))) (declare (not safe)) - (cons __tmp51066 __tmp51062)))) + (cons __tmp51388 __tmp51384)))) (declare (not safe)) - (cons __tmp51069 __tmp51061)))) + (cons __tmp51391 __tmp51383)))) (declare (not safe)) - (cons __tmp51060 '())))) + (cons __tmp51382 '())))) (declare (not safe)) - (cons _L17891_ __tmp51059)))) + (cons _L17891_ __tmp51381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51070 - __tmp51058)))) + (cons __tmp51392 + __tmp51380)))) (declare (not safe)) - (_wrap17800_ __tmp51057)))) + (_wrap17800_ __tmp51379)))) (declare (not safe)) - (_g1847718992_ __tmp51056)))) + (_g1847718992_ __tmp51378)))) _g1845118462_))) - (__tmp51071 + (__tmp51393 (if (gx#stx-false? _L17892_) - (let ((__tmp51095 (gx#datum->syntax '#f 'begin))) + (let ((__tmp51417 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp51095 '())) - (let ((__tmp51072 - (let ((__tmp51094 + (cons __tmp51417 '())) + (let ((__tmp51394 + (let ((__tmp51416 (gx#datum->syntax '#f 'def)) - (__tmp51073 - (let ((__tmp51074 - (let ((__tmp51075 - (let ((__tmp51093 + (__tmp51395 + (let ((__tmp51396 + (let ((__tmp51397 + (let ((__tmp51415 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation)) - (__tmp51076 - (let ((__tmp51090 - (let ((__tmp51092 + (__tmp51398 + (let ((__tmp51412 + (let ((__tmp51414 (gx#datum->syntax '#f '@mop.constructor)) - (__tmp51091 + (__tmp51413 (let () (declare (not safe)) (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp51092 __tmp51091))) - (__tmp51077 - (let ((__tmp51078 - (let ((__tmp51089 + (cons __tmp51414 __tmp51413))) + (__tmp51399 + (let ((__tmp51400 + (let ((__tmp51411 (gx#datum->syntax '#f 'lambda)) - (__tmp51079 - (let ((__tmp51088 + (__tmp51401 + (let ((__tmp51410 (gx#datum->syntax '#f '$args)) - (__tmp51080 - (let ((__tmp51081 - (let ((__tmp51087 + (__tmp51402 + (let ((__tmp51403 + (let ((__tmp51409 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply)) - (__tmp51082 - (let ((__tmp51086 + (__tmp51404 + (let ((__tmp51408 (gx#datum->syntax '#f 'make-instance)) - (__tmp51083 - (let ((__tmp51084 - (let ((__tmp51085 + (__tmp51405 + (let ((__tmp51406 + (let ((__tmp51407 (gx#datum->syntax '#f '$args))) (declare (not safe)) - (cons __tmp51085 '())))) + (cons __tmp51407 '())))) (declare (not safe)) - (cons _L17894_ __tmp51084)))) + (cons _L17894_ __tmp51406)))) (declare (not safe)) - (cons __tmp51086 __tmp51083)))) + (cons __tmp51408 __tmp51405)))) (declare (not safe)) - (cons __tmp51087 __tmp51082)))) + (cons __tmp51409 __tmp51404)))) (declare (not safe)) - (cons __tmp51081 '())))) + (cons __tmp51403 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51088 __tmp51080)))) + (cons __tmp51410 __tmp51402)))) (declare (not safe)) - (cons __tmp51089 __tmp51079)))) + (cons __tmp51411 __tmp51401)))) (declare (not safe)) - (cons __tmp51078 '())))) + (cons __tmp51400 '())))) (declare (not safe)) - (cons __tmp51090 __tmp51077)))) + (cons __tmp51412 __tmp51399)))) (declare (not safe)) - (cons __tmp51093 __tmp51076)))) + (cons __tmp51415 __tmp51398)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51075 '())))) + (cons __tmp51397 '())))) (declare (not safe)) - (cons _L17892_ __tmp51074)))) + (cons _L17892_ __tmp51396)))) (declare (not safe)) - (cons __tmp51094 __tmp51073)))) + (cons __tmp51416 __tmp51395)))) (declare (not safe)) - (_wrap17800_ __tmp51072))))) + (_wrap17800_ __tmp51394))))) (declare (not safe)) - (_g1844918996_ __tmp51071)))) + (_g1844918996_ __tmp51393)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1842318434_))) - (__tmp51096 - (let ((__tmp51097 - (let ((__tmp51114 + (__tmp51418 + (let ((__tmp51419 + (let ((__tmp51437 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def)) - (__tmp51098 - (let ((__tmp51099 - (let ((__tmp51100 - (let ((__tmp51113 + (__tmp51420 + (let ((__tmp51421 + (let ((__tmp51422 + (let ((__tmp51436 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51101 - (let ((__tmp51103 - (let ((__tmp51112 + (__tmp51423 + (let ((__tmp51425 + (let ((__tmp51435 (gx#datum->syntax '#f '@mop.class)) - (__tmp51104 - (let ((__tmp51105 + (__tmp51426 + (let ((__tmp51427 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51106 - (let ((__tmp51111 - (foldr (lambda (_g1900319006_ + (let ((__tmp51428 + (let ((__tmp51433 + (let ((__tmp51434 + (lambda (_g1900319006_ _g1900419009_) (let () (declare (not safe)) (cons _g1900319006_ - _g1900419009_))) - '() - _L18009_)) - (__tmp51107 - (let ((__tmp51108 - (let ((__tmp51109 - (let ((__tmp51110 + _g1900419009_))))) + (declare (not safe)) + (foldr1 __tmp51434 '() _L18009_))) + (__tmp51429 + (let ((__tmp51430 + (let ((__tmp51431 + (let ((__tmp51432 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L18241_ '())))) (declare (not safe)) - (cons _L18213_ __tmp51110)))) + (cons _L18213_ __tmp51432)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18185_ __tmp51109)))) + (cons _L18185_ __tmp51431)))) (declare (not safe)) - (cons _L18101_ __tmp51108)))) + (cons _L18101_ __tmp51430)))) (declare (not safe)) - (cons __tmp51111 __tmp51107)))) + (cons __tmp51433 __tmp51429)))) (declare (not safe)) - (cons _L18157_ __tmp51106)))) + (cons _L18157_ __tmp51428)))) (declare (not safe)) - (cons _L18045_ __tmp51105)))) + (cons _L18045_ __tmp51427)))) (declare (not safe)) - (cons __tmp51112 __tmp51104))) + (cons __tmp51435 __tmp51426))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51102 + (__tmp51424 (let () (declare (not safe)) (cons _L18409_ '())))) (declare (not safe)) - (cons __tmp51103 __tmp51102)))) + (cons __tmp51425 __tmp51424)))) (declare (not safe)) - (cons __tmp51113 __tmp51101)))) + (cons __tmp51436 __tmp51423)))) (declare (not safe)) - (cons __tmp51100 '())))) + (cons __tmp51422 '())))) (declare (not safe)) - (cons _L17894_ __tmp51099)))) + (cons _L17894_ __tmp51421)))) (declare (not safe)) - (cons __tmp51114 __tmp51098)))) + (cons __tmp51437 __tmp51420)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17800_ __tmp51097)))) + (_wrap17800_ __tmp51419)))) (declare (not safe)) - (_g1842119000_ __tmp51096)))) + (_g1842119000_ __tmp51418)))) _g1839518406_))) - (__tmp51115 - (let ((__tmp51135 + (__tmp51438 + (let ((__tmp51459 (gx#datum->syntax '#f 'make-class-type)) - (__tmp51116 - (let ((__tmp51132 - (let ((__tmp51134 + (__tmp51439 + (let ((__tmp51456 + (let ((__tmp51458 (gx#datum->syntax '#f 'quote)) - (__tmp51133 + (__tmp51457 (let () (declare (not safe)) (cons _L18045_ '())))) (declare (not safe)) - (cons __tmp51134 - __tmp51133))) - (__tmp51117 - (let ((__tmp51129 - (let ((__tmp51131 + (cons __tmp51458 + __tmp51457))) + (__tmp51440 + (let ((__tmp51453 + (let ((__tmp51455 (gx#datum->syntax '#f 'quote)) - (__tmp51130 + (__tmp51454 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L18073_ '())))) (declare (not safe)) - (cons __tmp51131 __tmp51130))) - (__tmp51118 - (let ((__tmp51119 - (let ((__tmp51125 - (let ((__tmp51128 (gx#datum->syntax '#f 'quote)) - (__tmp51126 - (let ((__tmp51127 - (foldr (lambda (_g1901519018_ + (cons __tmp51455 __tmp51454))) + (__tmp51441 + (let ((__tmp51442 + (let ((__tmp51448 + (let ((__tmp51452 (gx#datum->syntax '#f 'quote)) + (__tmp51449 + (let ((__tmp51450 + (let ((__tmp51451 + (lambda (_g1901519018_ _g1901619021_) (let () (declare (not safe)) (cons _g1901519018_ - _g1901619021_))) - '() - _L18009_))) + _g1901619021_))))) + (declare (not safe)) + (foldr1 __tmp51451 + '() + _L18009_)))) (declare (not safe)) - (cons __tmp51127 '())))) + (cons __tmp51450 '())))) (declare (not safe)) - (cons __tmp51128 __tmp51126))) - (__tmp51120 - (let ((__tmp51121 - (let ((__tmp51122 - (let ((__tmp51124 + (cons __tmp51452 __tmp51449))) + (__tmp51443 + (let ((__tmp51444 + (let ((__tmp51445 + (let ((__tmp51447 (gx#datum->syntax '#f 'quote)) - (__tmp51123 + (__tmp51446 (let () (declare (not safe)) (cons _L18101_ '())))) (declare (not safe)) - (cons __tmp51124 __tmp51123)))) + (cons __tmp51447 __tmp51446)))) (declare (not safe)) - (cons __tmp51122 '())))) + (cons __tmp51445 '())))) (declare (not safe)) - (cons _L18353_ __tmp51121)))) + (cons _L18353_ __tmp51444)))) (declare (not safe)) - (cons __tmp51125 __tmp51120)))) + (cons __tmp51448 __tmp51443)))) (declare (not safe)) - (cons _L18381_ __tmp51119)))) + (cons _L18381_ __tmp51442)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51129 - __tmp51118)))) + (cons __tmp51453 + __tmp51441)))) (declare (not safe)) - (cons __tmp51132 __tmp51117)))) + (cons __tmp51456 __tmp51440)))) (declare (not safe)) - (cons __tmp51135 __tmp51116)))) + (cons __tmp51459 __tmp51439)))) (declare (not safe)) - (_g1839319012_ __tmp51115)))) + (_g1839319012_ __tmp51438)))) _g1836718378_))) - (__tmp51136 - (let ((__tmp51137 (gx#datum->syntax '#f 'list))) + (__tmp51460 + (let ((__tmp51461 (gx#datum->syntax '#f 'list))) (declare (not safe)) - (cons __tmp51137 _L17893_)))) + (cons __tmp51461 _L17893_)))) (declare (not safe)) - (_g1836519024_ __tmp51136)))) + (_g1836519024_ __tmp51460)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1833918350_))) - (__tmp51138 + (__tmp51462 (if (gx#stx-e _metaclass17952_) (let* ((_g1903219040_ (lambda (_g1903319036_) @@ -1522,16 +1538,16 @@ (lambda (_g1903319044_) ((lambda (_L19047_) (let () - (let ((__tmp51147 + (let ((__tmp51471 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51139 - (let ((__tmp51142 - (let ((__tmp51146 + (__tmp51463 + (let ((__tmp51466 + (let ((__tmp51470 (gx#datum->syntax '#f '@list)) - (__tmp51143 - (let ((__tmp51144 - (let ((__tmp51145 + (__tmp51467 + (let ((__tmp51468 + (let ((__tmp51469 (let () (declare (not safe)) @@ -1539,23 +1555,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons ':: __tmp51145)))) + (cons ':: __tmp51469)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'metaclass: __tmp51144)))) + (cons 'metaclass: __tmp51468)))) (declare (not safe)) - (cons __tmp51146 __tmp51143))) - (__tmp51140 - (let ((__tmp51141 + (cons __tmp51470 __tmp51467))) + (__tmp51464 + (let ((__tmp51465 (let () (declare (not safe)) (cons _L18325_ '())))) (declare (not safe)) - (cons ':: __tmp51141)))) + (cons ':: __tmp51465)))) (declare (not safe)) - (cons __tmp51142 __tmp51140)))) + (cons __tmp51466 __tmp51464)))) (declare (not safe)) - (cons __tmp51147 __tmp51139)))) + (cons __tmp51471 __tmp51463)))) _g1903319044_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) @@ -1563,125 +1579,125 @@ _metaclass17952_)) _L18325_))) (declare (not safe)) - (_g1833719028_ __tmp51138)))) + (_g1833719028_ __tmp51462)))) _g1831118322_))) - (__tmp51148 + (__tmp51472 (if _struct?17932_ - (let ((__tmp51155 + (let ((__tmp51479 (gx#datum->syntax '#f '@list)) - (__tmp51149 - (let ((__tmp51152 - (let ((__tmp51154 + (__tmp51473 + (let ((__tmp51476 + (let ((__tmp51478 (gx#datum->syntax '#f '@list)) - (__tmp51153 + (__tmp51477 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp51154 - __tmp51153))) - (__tmp51150 - (let ((__tmp51151 + (cons __tmp51478 + __tmp51477))) + (__tmp51474 + (let ((__tmp51475 (let () (declare (not safe)) (cons _L18297_ '())))) (declare (not safe)) - (cons ':: __tmp51151)))) + (cons ':: __tmp51475)))) (declare (not safe)) - (cons __tmp51152 __tmp51150)))) + (cons __tmp51476 __tmp51474)))) (declare (not safe)) - (cons __tmp51155 __tmp51149)) + (cons __tmp51479 __tmp51473)) _L18297_))) (declare (not safe)) - (_g1830919063_ __tmp51148)))) + (_g1830919063_ __tmp51472)))) _g1828318294_))) - (__tmp51156 + (__tmp51480 (if (gx#stx-e _L18213_) - (let ((__tmp51163 (gx#datum->syntax '#f '@list)) - (__tmp51157 - (let ((__tmp51160 - (let ((__tmp51162 + (let ((__tmp51487 (gx#datum->syntax '#f '@list)) + (__tmp51481 + (let ((__tmp51484 + (let ((__tmp51486 (gx#datum->syntax '#f '@list)) - (__tmp51161 + (__tmp51485 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp51162 __tmp51161))) - (__tmp51158 - (let ((__tmp51159 + (cons __tmp51486 __tmp51485))) + (__tmp51482 + (let ((__tmp51483 (let () (declare (not safe)) (cons _L18269_ '())))) (declare (not safe)) - (cons ':: __tmp51159)))) + (cons ':: __tmp51483)))) (declare (not safe)) - (cons __tmp51160 __tmp51158)))) + (cons __tmp51484 __tmp51482)))) (declare (not safe)) - (cons __tmp51163 __tmp51157)) + (cons __tmp51487 __tmp51481)) _L18269_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1828119067_ __tmp51156)))) + (_g1828119067_ __tmp51480)))) _g1825518266_))) - (__tmp51164 + (__tmp51488 (let ((_$e19075_ (gx#stx-getq 'properties: _L17889_))) (if _$e19075_ _$e19075_ - (let ((__tmp51165 + (let ((__tmp51489 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp51165 '())))))) + (cons __tmp51489 '())))))) (declare (not safe)) - (_g1825319071_ __tmp51164)))) + (_g1825319071_ __tmp51488)))) _g1822718238_))) - (__tmp51166 + (__tmp51490 (if (gx#stx-e _metaclass17952_) (gx#core-quote-syntax _metaclass17952_) '#f))) (declare (not safe)) - (_g1822519079_ __tmp51166)))) + (_g1822519079_ __tmp51490)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1819918210_))) - (__tmp51167 + (__tmp51491 (gx#stx-getq 'final: _L17889_))) (declare (not safe)) - (_g1819719083_ __tmp51167)))) + (_g1819719083_ __tmp51491)))) _g1817118182_)))) (declare (not safe)) (_g1816919087_ _struct?17932_)))) _g1814318154_))) - (__tmp51168 (gx#stx-map gx#core-quote-syntax _L17893_))) + (__tmp51492 (gx#stx-map gx#core-quote-syntax _L17893_))) (declare (not safe)) - (_g1814119091_ __tmp51168)))) + (_g1814119091_ __tmp51492)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1811518126_))) - (__tmp51169 + (__tmp51493 (gx#core-quote-syntax _L17894_))) (declare (not safe)) - (_g1811319095_ __tmp51169)))) + (_g1811319095_ __tmp51493)))) _g1808718098_))) - (__tmp51170 (gx#stx-getq 'constructor: _L17889_))) + (__tmp51494 (gx#stx-getq 'constructor: _L17889_))) (declare (not safe)) - (_g1808519099_ __tmp51170)))) + (_g1808519099_ __tmp51494)))) _g1805918070_))) - (__tmp51171 + (__tmp51495 (let ((_$e19107_ (gx#stx-getq 'name: _L17889_))) (if _$e19107_ _$e19107_ _L17894_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1805719103_ __tmp51171)))) + (_g1805719103_ __tmp51495)))) _g1803118042_))) - (__tmp51172 + (__tmp51496 (let ((_$e19115_ (gx#stx-getq 'id: _L17889_))) (if _$e19115_ @@ -1691,7 +1707,7 @@ (|gerbil/core$<MOP>$<MOP:1>[1]#make-class-type-id| _L17894_)))))) (declare (not safe)) - (_g1802919111_ __tmp51172)))) + (_g1802919111_ __tmp51496)))) _slot1796618005_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -1706,10 +1722,10 @@ (let () (declare (not safe)) (_g1795517972_ _g1795617976_))))) - (__tmp51174 + (__tmp51498 (gx#stx-map _slot-name17802_ _slots17939_))) (declare (not safe)) - (_g1795419119_ __tmp51174)) + (_g1795419119_ __tmp51498)) (let () (declare (not safe)) (_g1780517832_ _g1780617836_)))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index 8844c041..b7ced74d 100644 --- a/src/bootstrap/gerbil/core__7.scm +++ b/src/bootstrap/gerbil/core__7.scm @@ -1,433 +1,433 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51176_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51500_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51178_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51502_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51180_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51504_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51198_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51522_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51201_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51525_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51204_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51528_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51207_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51531_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51210_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51534_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51213_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51537_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51216_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51540_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51219_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51543_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51222_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51546_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51225_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51549_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51228_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51552_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51231_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51555_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51234_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51558_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51237_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51561_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51240_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51564_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51258_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51582_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51261_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51585_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51264_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51588_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51267_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51591_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51270_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51594_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51273_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51597_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51276_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51600_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51279_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51603_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51282_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51606_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51285_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51609_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51288_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51612_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51291_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51615_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51294_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51618_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51297_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51621_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51300_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51624_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51318_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51642_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51321_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51645_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51324_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51648_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51327_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51651_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51330_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51654_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51333_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51657_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51336_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51660_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51339_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51663_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51344_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51668_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51347_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51671_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51350_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51674_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51353_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51677_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51356_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51680_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51359_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51683_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51377_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51701_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51380_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51704_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51383_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51707_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51386_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51710_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51389_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51713_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51392_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51716_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51395_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51719_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51398_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51722_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51401_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51725_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51404_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51728_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51407_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51731_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51410_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51734_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51413_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51737_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51416_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51740_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51419_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51743_| (##structure gx#syntax-quote::t '&!class-type-id-set! @@ -524,571 +524,571 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51175 |gerbil/core$<MOP>$<MOP:3>[1]#_g51176_|)) + (let ((__tmp51499 |gerbil/core$<MOP>$<MOP:3>[1]#_g51500_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51175 + __tmp51499 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51177 |gerbil/core$<MOP>$<MOP:3>[1]#_g51178_|)) + (let ((__tmp51501 |gerbil/core$<MOP>$<MOP:3>[1]#_g51502_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51177 + __tmp51501 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51179 |gerbil/core$<MOP>$<MOP:3>[1]#_g51180_|)) + (let ((__tmp51503 |gerbil/core$<MOP>$<MOP:3>[1]#_g51504_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51179 + __tmp51503 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51181 - (let ((__tmp51238 - (let ((__tmp51239 |gerbil/core$<MOP>$<MOP:3>[1]#_g51240_|)) + (let ((__tmp51505 + (let ((__tmp51562 + (let ((__tmp51563 |gerbil/core$<MOP>$<MOP:3>[1]#_g51564_|)) (declare (not safe)) - (cons 'id __tmp51239))) - (__tmp51182 - (let ((__tmp51235 - (let ((__tmp51236 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51237_|)) + (cons 'id __tmp51563))) + (__tmp51506 + (let ((__tmp51559 + (let ((__tmp51560 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51561_|)) (declare (not safe)) - (cons 'name __tmp51236))) - (__tmp51183 - (let ((__tmp51232 - (let ((__tmp51233 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51234_|)) + (cons 'name __tmp51560))) + (__tmp51507 + (let ((__tmp51556 + (let ((__tmp51557 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51558_|)) (declare (not safe)) - (cons 'super __tmp51233))) - (__tmp51184 - (let ((__tmp51229 - (let ((__tmp51230 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51231_|)) + (cons 'super __tmp51557))) + (__tmp51508 + (let ((__tmp51553 + (let ((__tmp51554 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51555_|)) (declare (not safe)) - (cons 'slots __tmp51230))) - (__tmp51185 - (let ((__tmp51226 - (let ((__tmp51227 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51228_|)) + (cons 'slots __tmp51554))) + (__tmp51509 + (let ((__tmp51550 + (let ((__tmp51551 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51552_|)) (declare (not safe)) - (cons 'struct? __tmp51227))) - (__tmp51186 - (let ((__tmp51223 - (let ((__tmp51224 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51225_|)) + (cons 'struct? __tmp51551))) + (__tmp51510 + (let ((__tmp51547 + (let ((__tmp51548 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51549_|)) (declare (not safe)) (cons 'final? - __tmp51224))) - (__tmp51187 - (let ((__tmp51220 - (let ((__tmp51221 + __tmp51548))) + (__tmp51511 + (let ((__tmp51544 + (let ((__tmp51545 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51222_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51546_|)) (declare (not safe)) - (cons 'metaclass __tmp51221))) - (__tmp51188 - (let ((__tmp51217 - (let ((__tmp51218 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51219_|)) + (cons 'metaclass __tmp51545))) + (__tmp51512 + (let ((__tmp51541 + (let ((__tmp51542 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51543_|)) (declare (not safe)) - (cons 'constructor-method __tmp51218))) - (__tmp51189 - (let ((__tmp51214 - (let ((__tmp51215 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51216_|)) + (cons 'constructor-method __tmp51542))) + (__tmp51513 + (let ((__tmp51538 + (let ((__tmp51539 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51540_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51215))) - (__tmp51190 - (let ((__tmp51211 - (let ((__tmp51212 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51213_|)) + (cons 'type-descriptor __tmp51539))) + (__tmp51514 + (let ((__tmp51535 + (let ((__tmp51536 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51537_|)) (declare (not safe)) - (cons 'constructor __tmp51212))) - (__tmp51191 - (let ((__tmp51208 - (let ((__tmp51209 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51210_|)) + (cons 'constructor __tmp51536))) + (__tmp51515 + (let ((__tmp51532 + (let ((__tmp51533 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51534_|)) (declare (not safe)) (cons 'predicate - __tmp51209))) - (__tmp51192 - (let ((__tmp51205 - (let ((__tmp51206 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51207_|)) + __tmp51533))) + (__tmp51516 + (let ((__tmp51529 + (let ((__tmp51530 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51531_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51206))) - (__tmp51193 - (let ((__tmp51202 - (let ((__tmp51203 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51204_|)) + __tmp51530))) + (__tmp51517 + (let ((__tmp51526 + (let ((__tmp51527 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51528_|)) (declare (not safe)) - (cons 'mutators __tmp51203))) - (__tmp51194 - (let ((__tmp51199 - (let ((__tmp51200 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51201_|)) + (cons 'mutators __tmp51527))) + (__tmp51518 + (let ((__tmp51523 + (let ((__tmp51524 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51525_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51200))) - (__tmp51195 - (let ((__tmp51196 - (let ((__tmp51197 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51198_|)) + (cons 'unchecked-accessors __tmp51524))) + (__tmp51519 + (let ((__tmp51520 + (let ((__tmp51521 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51522_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51197)))) + __tmp51521)))) (declare (not safe)) - (cons __tmp51196 '())))) + (cons __tmp51520 '())))) (declare (not safe)) - (cons __tmp51199 __tmp51195)))) + (cons __tmp51523 __tmp51519)))) (declare (not safe)) - (cons __tmp51202 __tmp51194)))) + (cons __tmp51526 __tmp51518)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51205 - __tmp51193)))) + (cons __tmp51529 + __tmp51517)))) (declare (not safe)) - (cons __tmp51208 __tmp51192)))) + (cons __tmp51532 __tmp51516)))) (declare (not safe)) - (cons __tmp51211 __tmp51191)))) + (cons __tmp51535 __tmp51515)))) (declare (not safe)) - (cons __tmp51214 __tmp51190)))) + (cons __tmp51538 __tmp51514)))) (declare (not safe)) - (cons __tmp51217 __tmp51189)))) + (cons __tmp51541 __tmp51513)))) (declare (not safe)) - (cons __tmp51220 __tmp51188)))) + (cons __tmp51544 __tmp51512)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51223 - __tmp51187)))) + (cons __tmp51547 + __tmp51511)))) (declare (not safe)) - (cons __tmp51226 __tmp51186)))) + (cons __tmp51550 __tmp51510)))) (declare (not safe)) - (cons __tmp51229 __tmp51185)))) + (cons __tmp51553 __tmp51509)))) (declare (not safe)) - (cons __tmp51232 __tmp51184)))) + (cons __tmp51556 __tmp51508)))) (declare (not safe)) - (cons __tmp51235 __tmp51183)))) + (cons __tmp51559 __tmp51507)))) (declare (not safe)) - (cons __tmp51238 __tmp51182)))) + (cons __tmp51562 __tmp51506)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51181 + __tmp51505 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51241 - (let ((__tmp51298 - (let ((__tmp51299 |gerbil/core$<MOP>$<MOP:3>[1]#_g51300_|)) + (let ((__tmp51565 + (let ((__tmp51622 + (let ((__tmp51623 |gerbil/core$<MOP>$<MOP:3>[1]#_g51624_|)) (declare (not safe)) - (cons 'id __tmp51299))) - (__tmp51242 - (let ((__tmp51295 - (let ((__tmp51296 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51297_|)) + (cons 'id __tmp51623))) + (__tmp51566 + (let ((__tmp51619 + (let ((__tmp51620 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51621_|)) (declare (not safe)) - (cons 'name __tmp51296))) - (__tmp51243 - (let ((__tmp51292 - (let ((__tmp51293 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51294_|)) + (cons 'name __tmp51620))) + (__tmp51567 + (let ((__tmp51616 + (let ((__tmp51617 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51618_|)) (declare (not safe)) - (cons 'super __tmp51293))) - (__tmp51244 - (let ((__tmp51289 - (let ((__tmp51290 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51291_|)) + (cons 'super __tmp51617))) + (__tmp51568 + (let ((__tmp51613 + (let ((__tmp51614 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51615_|)) (declare (not safe)) - (cons 'slots __tmp51290))) - (__tmp51245 - (let ((__tmp51286 - (let ((__tmp51287 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51288_|)) + (cons 'slots __tmp51614))) + (__tmp51569 + (let ((__tmp51610 + (let ((__tmp51611 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51612_|)) (declare (not safe)) - (cons 'struct? __tmp51287))) - (__tmp51246 - (let ((__tmp51283 - (let ((__tmp51284 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51285_|)) + (cons 'struct? __tmp51611))) + (__tmp51570 + (let ((__tmp51607 + (let ((__tmp51608 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51609_|)) (declare (not safe)) (cons 'final? - __tmp51284))) - (__tmp51247 - (let ((__tmp51280 - (let ((__tmp51281 + __tmp51608))) + (__tmp51571 + (let ((__tmp51604 + (let ((__tmp51605 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51282_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51606_|)) (declare (not safe)) - (cons 'metaclass __tmp51281))) - (__tmp51248 - (let ((__tmp51277 - (let ((__tmp51278 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51279_|)) + (cons 'metaclass __tmp51605))) + (__tmp51572 + (let ((__tmp51601 + (let ((__tmp51602 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51603_|)) (declare (not safe)) - (cons 'constructor-method __tmp51278))) - (__tmp51249 - (let ((__tmp51274 - (let ((__tmp51275 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51276_|)) + (cons 'constructor-method __tmp51602))) + (__tmp51573 + (let ((__tmp51598 + (let ((__tmp51599 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51600_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51275))) - (__tmp51250 - (let ((__tmp51271 - (let ((__tmp51272 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51273_|)) + (cons 'type-descriptor __tmp51599))) + (__tmp51574 + (let ((__tmp51595 + (let ((__tmp51596 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51597_|)) (declare (not safe)) - (cons 'constructor __tmp51272))) - (__tmp51251 - (let ((__tmp51268 - (let ((__tmp51269 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51270_|)) + (cons 'constructor __tmp51596))) + (__tmp51575 + (let ((__tmp51592 + (let ((__tmp51593 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51594_|)) (declare (not safe)) (cons 'predicate - __tmp51269))) - (__tmp51252 - (let ((__tmp51265 - (let ((__tmp51266 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51267_|)) + __tmp51593))) + (__tmp51576 + (let ((__tmp51589 + (let ((__tmp51590 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51591_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51266))) - (__tmp51253 - (let ((__tmp51262 - (let ((__tmp51263 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51264_|)) + __tmp51590))) + (__tmp51577 + (let ((__tmp51586 + (let ((__tmp51587 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51588_|)) (declare (not safe)) - (cons 'mutators __tmp51263))) - (__tmp51254 - (let ((__tmp51259 - (let ((__tmp51260 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51261_|)) + (cons 'mutators __tmp51587))) + (__tmp51578 + (let ((__tmp51583 + (let ((__tmp51584 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51585_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51260))) - (__tmp51255 - (let ((__tmp51256 - (let ((__tmp51257 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51258_|)) + (cons 'unchecked-accessors __tmp51584))) + (__tmp51579 + (let ((__tmp51580 + (let ((__tmp51581 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51582_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51257)))) + __tmp51581)))) (declare (not safe)) - (cons __tmp51256 '())))) + (cons __tmp51580 '())))) (declare (not safe)) - (cons __tmp51259 __tmp51255)))) + (cons __tmp51583 __tmp51579)))) (declare (not safe)) - (cons __tmp51262 __tmp51254)))) + (cons __tmp51586 __tmp51578)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51265 - __tmp51253)))) + (cons __tmp51589 + __tmp51577)))) (declare (not safe)) - (cons __tmp51268 __tmp51252)))) + (cons __tmp51592 __tmp51576)))) (declare (not safe)) - (cons __tmp51271 __tmp51251)))) + (cons __tmp51595 __tmp51575)))) (declare (not safe)) - (cons __tmp51274 __tmp51250)))) + (cons __tmp51598 __tmp51574)))) (declare (not safe)) - (cons __tmp51277 __tmp51249)))) + (cons __tmp51601 __tmp51573)))) (declare (not safe)) - (cons __tmp51280 __tmp51248)))) + (cons __tmp51604 __tmp51572)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51283 - __tmp51247)))) + (cons __tmp51607 + __tmp51571)))) (declare (not safe)) - (cons __tmp51286 __tmp51246)))) + (cons __tmp51610 __tmp51570)))) (declare (not safe)) - (cons __tmp51289 __tmp51245)))) + (cons __tmp51613 __tmp51569)))) (declare (not safe)) - (cons __tmp51292 __tmp51244)))) + (cons __tmp51616 __tmp51568)))) (declare (not safe)) - (cons __tmp51295 __tmp51243)))) + (cons __tmp51619 __tmp51567)))) (declare (not safe)) - (cons __tmp51298 __tmp51242)))) + (cons __tmp51622 __tmp51566)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51241 + __tmp51565 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51301 - (let ((__tmp51357 - (let ((__tmp51358 |gerbil/core$<MOP>$<MOP:3>[1]#_g51359_|)) + (let ((__tmp51625 + (let ((__tmp51681 + (let ((__tmp51682 |gerbil/core$<MOP>$<MOP:3>[1]#_g51683_|)) (declare (not safe)) - (cons 'id __tmp51358))) - (__tmp51302 - (let ((__tmp51354 - (let ((__tmp51355 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51356_|)) + (cons 'id __tmp51682))) + (__tmp51626 + (let ((__tmp51678 + (let ((__tmp51679 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51680_|)) (declare (not safe)) - (cons 'name __tmp51355))) - (__tmp51303 - (let ((__tmp51351 - (let ((__tmp51352 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51353_|)) + (cons 'name __tmp51679))) + (__tmp51627 + (let ((__tmp51675 + (let ((__tmp51676 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51677_|)) (declare (not safe)) - (cons 'super __tmp51352))) - (__tmp51304 - (let ((__tmp51348 - (let ((__tmp51349 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51350_|)) + (cons 'super __tmp51676))) + (__tmp51628 + (let ((__tmp51672 + (let ((__tmp51673 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51674_|)) (declare (not safe)) - (cons 'slots __tmp51349))) - (__tmp51305 - (let ((__tmp51345 - (let ((__tmp51346 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51347_|)) + (cons 'slots __tmp51673))) + (__tmp51629 + (let ((__tmp51669 + (let ((__tmp51670 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51671_|)) (declare (not safe)) - (cons 'struct? __tmp51346))) - (__tmp51306 - (let ((__tmp51342 - (let ((__tmp51343 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51344_|)) + (cons 'struct? __tmp51670))) + (__tmp51630 + (let ((__tmp51666 + (let ((__tmp51667 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51668_|)) (declare (not safe)) (cons 'final? - __tmp51343))) - (__tmp51307 - (let ((__tmp51340 - (let ((__tmp51341 + __tmp51667))) + (__tmp51631 + (let ((__tmp51664 + (let ((__tmp51665 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51222_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51546_|)) (declare (not safe)) - (cons 'metaclass __tmp51341))) - (__tmp51308 - (let ((__tmp51337 - (let ((__tmp51338 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51339_|)) + (cons 'metaclass __tmp51665))) + (__tmp51632 + (let ((__tmp51661 + (let ((__tmp51662 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51663_|)) (declare (not safe)) - (cons 'constructor-method __tmp51338))) - (__tmp51309 - (let ((__tmp51334 - (let ((__tmp51335 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51336_|)) + (cons 'constructor-method __tmp51662))) + (__tmp51633 + (let ((__tmp51658 + (let ((__tmp51659 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51660_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51335))) - (__tmp51310 - (let ((__tmp51331 - (let ((__tmp51332 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51333_|)) + (cons 'type-descriptor __tmp51659))) + (__tmp51634 + (let ((__tmp51655 + (let ((__tmp51656 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51657_|)) (declare (not safe)) - (cons 'constructor __tmp51332))) - (__tmp51311 - (let ((__tmp51328 - (let ((__tmp51329 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51330_|)) + (cons 'constructor __tmp51656))) + (__tmp51635 + (let ((__tmp51652 + (let ((__tmp51653 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51654_|)) (declare (not safe)) (cons 'predicate - __tmp51329))) - (__tmp51312 - (let ((__tmp51325 - (let ((__tmp51326 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51327_|)) + __tmp51653))) + (__tmp51636 + (let ((__tmp51649 + (let ((__tmp51650 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51651_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51326))) - (__tmp51313 - (let ((__tmp51322 - (let ((__tmp51323 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51324_|)) + __tmp51650))) + (__tmp51637 + (let ((__tmp51646 + (let ((__tmp51647 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51648_|)) (declare (not safe)) - (cons 'mutators __tmp51323))) - (__tmp51314 - (let ((__tmp51319 - (let ((__tmp51320 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51321_|)) + (cons 'mutators __tmp51647))) + (__tmp51638 + (let ((__tmp51643 + (let ((__tmp51644 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51645_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51320))) - (__tmp51315 - (let ((__tmp51316 - (let ((__tmp51317 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51318_|)) + (cons 'unchecked-accessors __tmp51644))) + (__tmp51639 + (let ((__tmp51640 + (let ((__tmp51641 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51642_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51317)))) + __tmp51641)))) (declare (not safe)) - (cons __tmp51316 '())))) + (cons __tmp51640 '())))) (declare (not safe)) - (cons __tmp51319 __tmp51315)))) + (cons __tmp51643 __tmp51639)))) (declare (not safe)) - (cons __tmp51322 __tmp51314)))) + (cons __tmp51646 __tmp51638)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51325 - __tmp51313)))) + (cons __tmp51649 + __tmp51637)))) (declare (not safe)) - (cons __tmp51328 __tmp51312)))) + (cons __tmp51652 __tmp51636)))) (declare (not safe)) - (cons __tmp51331 __tmp51311)))) + (cons __tmp51655 __tmp51635)))) (declare (not safe)) - (cons __tmp51334 __tmp51310)))) + (cons __tmp51658 __tmp51634)))) (declare (not safe)) - (cons __tmp51337 __tmp51309)))) + (cons __tmp51661 __tmp51633)))) (declare (not safe)) - (cons __tmp51340 __tmp51308)))) + (cons __tmp51664 __tmp51632)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51342 - __tmp51307)))) + (cons __tmp51666 + __tmp51631)))) (declare (not safe)) - (cons __tmp51345 __tmp51306)))) + (cons __tmp51669 __tmp51630)))) (declare (not safe)) - (cons __tmp51348 __tmp51305)))) + (cons __tmp51672 __tmp51629)))) (declare (not safe)) - (cons __tmp51351 __tmp51304)))) + (cons __tmp51675 __tmp51628)))) (declare (not safe)) - (cons __tmp51354 __tmp51303)))) + (cons __tmp51678 __tmp51627)))) (declare (not safe)) - (cons __tmp51357 __tmp51302)))) + (cons __tmp51681 __tmp51626)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51301 + __tmp51625 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51360 - (let ((__tmp51417 - (let ((__tmp51418 |gerbil/core$<MOP>$<MOP:3>[1]#_g51419_|)) + (let ((__tmp51684 + (let ((__tmp51741 + (let ((__tmp51742 |gerbil/core$<MOP>$<MOP:3>[1]#_g51743_|)) (declare (not safe)) - (cons 'id __tmp51418))) - (__tmp51361 - (let ((__tmp51414 - (let ((__tmp51415 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51416_|)) + (cons 'id __tmp51742))) + (__tmp51685 + (let ((__tmp51738 + (let ((__tmp51739 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51740_|)) (declare (not safe)) - (cons 'name __tmp51415))) - (__tmp51362 - (let ((__tmp51411 - (let ((__tmp51412 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51413_|)) + (cons 'name __tmp51739))) + (__tmp51686 + (let ((__tmp51735 + (let ((__tmp51736 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51737_|)) (declare (not safe)) - (cons 'super __tmp51412))) - (__tmp51363 - (let ((__tmp51408 - (let ((__tmp51409 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51410_|)) + (cons 'super __tmp51736))) + (__tmp51687 + (let ((__tmp51732 + (let ((__tmp51733 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51734_|)) (declare (not safe)) - (cons 'slots __tmp51409))) - (__tmp51364 - (let ((__tmp51405 - (let ((__tmp51406 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51407_|)) + (cons 'slots __tmp51733))) + (__tmp51688 + (let ((__tmp51729 + (let ((__tmp51730 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51731_|)) (declare (not safe)) - (cons 'struct? __tmp51406))) - (__tmp51365 - (let ((__tmp51402 - (let ((__tmp51403 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51404_|)) + (cons 'struct? __tmp51730))) + (__tmp51689 + (let ((__tmp51726 + (let ((__tmp51727 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51728_|)) (declare (not safe)) (cons 'final? - __tmp51403))) - (__tmp51366 - (let ((__tmp51399 - (let ((__tmp51400 + __tmp51727))) + (__tmp51690 + (let ((__tmp51723 + (let ((__tmp51724 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51401_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51725_|)) (declare (not safe)) - (cons 'metaclass __tmp51400))) - (__tmp51367 - (let ((__tmp51396 - (let ((__tmp51397 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51398_|)) + (cons 'metaclass __tmp51724))) + (__tmp51691 + (let ((__tmp51720 + (let ((__tmp51721 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51722_|)) (declare (not safe)) - (cons 'constructor-method __tmp51397))) - (__tmp51368 - (let ((__tmp51393 - (let ((__tmp51394 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51395_|)) + (cons 'constructor-method __tmp51721))) + (__tmp51692 + (let ((__tmp51717 + (let ((__tmp51718 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51719_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51394))) - (__tmp51369 - (let ((__tmp51390 - (let ((__tmp51391 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51392_|)) + (cons 'type-descriptor __tmp51718))) + (__tmp51693 + (let ((__tmp51714 + (let ((__tmp51715 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51716_|)) (declare (not safe)) - (cons 'constructor __tmp51391))) - (__tmp51370 - (let ((__tmp51387 - (let ((__tmp51388 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51389_|)) + (cons 'constructor __tmp51715))) + (__tmp51694 + (let ((__tmp51711 + (let ((__tmp51712 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51713_|)) (declare (not safe)) (cons 'predicate - __tmp51388))) - (__tmp51371 - (let ((__tmp51384 - (let ((__tmp51385 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51386_|)) + __tmp51712))) + (__tmp51695 + (let ((__tmp51708 + (let ((__tmp51709 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51710_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51385))) - (__tmp51372 - (let ((__tmp51381 - (let ((__tmp51382 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51383_|)) + __tmp51709))) + (__tmp51696 + (let ((__tmp51705 + (let ((__tmp51706 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51707_|)) (declare (not safe)) - (cons 'mutators __tmp51382))) - (__tmp51373 - (let ((__tmp51378 - (let ((__tmp51379 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51380_|)) + (cons 'mutators __tmp51706))) + (__tmp51697 + (let ((__tmp51702 + (let ((__tmp51703 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51704_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51379))) - (__tmp51374 - (let ((__tmp51375 - (let ((__tmp51376 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51377_|)) + (cons 'unchecked-accessors __tmp51703))) + (__tmp51698 + (let ((__tmp51699 + (let ((__tmp51700 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51701_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51376)))) + __tmp51700)))) (declare (not safe)) - (cons __tmp51375 '())))) + (cons __tmp51699 '())))) (declare (not safe)) - (cons __tmp51378 __tmp51374)))) + (cons __tmp51702 __tmp51698)))) (declare (not safe)) - (cons __tmp51381 __tmp51373)))) + (cons __tmp51705 __tmp51697)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51384 - __tmp51372)))) + (cons __tmp51708 + __tmp51696)))) (declare (not safe)) - (cons __tmp51387 __tmp51371)))) + (cons __tmp51711 __tmp51695)))) (declare (not safe)) - (cons __tmp51390 __tmp51370)))) + (cons __tmp51714 __tmp51694)))) (declare (not safe)) - (cons __tmp51393 __tmp51369)))) + (cons __tmp51717 __tmp51693)))) (declare (not safe)) - (cons __tmp51396 __tmp51368)))) + (cons __tmp51720 __tmp51692)))) (declare (not safe)) - (cons __tmp51399 __tmp51367)))) + (cons __tmp51723 __tmp51691)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51402 - __tmp51366)))) + (cons __tmp51726 + __tmp51690)))) (declare (not safe)) - (cons __tmp51405 __tmp51365)))) + (cons __tmp51729 __tmp51689)))) (declare (not safe)) - (cons __tmp51408 __tmp51364)))) + (cons __tmp51732 __tmp51688)))) (declare (not safe)) - (cons __tmp51411 __tmp51363)))) + (cons __tmp51735 __tmp51687)))) (declare (not safe)) - (cons __tmp51414 __tmp51362)))) + (cons __tmp51738 __tmp51686)))) (declare (not safe)) - (cons __tmp51417 __tmp51361)))) + (cons __tmp51741 __tmp51685)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51360 + __tmp51684 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index a5539449..f582d9ea 100644 --- a/src/bootstrap/gerbil/core__8.scm +++ b/src/bootstrap/gerbil/core__8.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<MOP>$<MOP:4>[1]#_g51738_| + (define |gerbil/core$<MOP>$<MOP:4>[1]#_g52090_| (##structure gx#syntax-quote::t '@method @@ -32,7 +32,7 @@ (gx#stx-source _stx19359_)))) (_make-id19368_ (if (uninterned-symbol? (gx#stx-e _id19361_)) - (lambda _g51420_ (gx#genident _id19361_)) + (lambda _g51744_ (gx#genident _id19361_)) (lambda _args21569_ (apply gx#stx-identifier _id19361_ _args21569_)))) (_get-mixin-slots19369_ @@ -54,11 +54,11 @@ (hash-get _tab21547_ _slot21564_)) - (let ((__tmp51423 + (let ((__tmp51747 (cdr _rest21560_))) (declare (not safe)) (_lp21557_ - __tmp51423 + __tmp51747 _r21562_)) (begin (let () @@ -67,40 +67,40 @@ _tab21547_ _slot21564_ '#t)) - (let ((__tmp51422 + (let ((__tmp51746 (cdr _rest21560_)) - (__tmp51421 + (__tmp51745 (let () (declare (not safe)) (cons _slot21564_ _r21562_)))) (declare (not safe)) (_lp21557_ - __tmp51422 - __tmp51421))))) + __tmp51746 + __tmp51745))))) (reverse _r21562_)))))) (gx#stx-for-each (lambda (_slot21551_) - (let ((__tmp51424 (gx#stx-e _slot21551_))) + (let ((__tmp51748 (gx#stx-e _slot21551_))) (declare (not safe)) - (hash-put! _tab21547_ __tmp51424 '#t))) + (hash-put! _tab21547_ __tmp51748 '#t))) _slots21545_) (if (let () (declare (not safe)) (not _super21543_)) '() (if (gx#identifier? _super21543_) - (let ((__tmp51426 + (let ((__tmp51750 (let () (declare (not safe)) (_get-mixin-slots-r19370_ _super21543_)))) (declare (not safe)) - (_dedup21549_ __tmp51426)) - (let ((__tmp51425 + (_dedup21549_ __tmp51750)) + (let ((__tmp51749 (concatenate (map _get-mixin-slots-r19370_ _super21543_)))) (declare (not safe)) - (_dedup21549_ __tmp51425))))))) + (_dedup21549_ __tmp51749))))))) (_get-mixin-slots-r19370_ (lambda (_type-id21537_) (let ((_info21540_ @@ -206,28 +206,28 @@ (lambda (_g1952519545_) (if (gx#stx-pair/null? _g1952519545_) - (let ((_g51427_ + (let ((_g51751_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1952519545_ '0))) (begin - (let ((_g51428_ + (let ((_g51752_ (let () (declare (not safe)) - (if (##values? _g51427_) - (##vector-length _g51427_) + (if (##values? _g51751_) + (##vector-length _g51751_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51428_ 2))) - (error "Context expects 2 values" _g51428_))) + (##fx= _g51752_ 2))) + (error "Context expects 2 values" _g51752_))) (let ((_target1952719548_ (let () (declare (not safe)) - (##vector-ref _g51427_ 0))) + (##vector-ref _g51751_ 0))) (_tl1952919551_ (let () (declare (not safe)) - (##vector-ref _g51427_ 1)))) + (##vector-ref _g51751_ 1)))) (if (gx#stx-null? _tl1952919551_) (letrec ((_loop1953019554_ (lambda (_hd1952819558_ @@ -244,7 +244,7 @@ (let () (declare (not safe)) (##cdr _e1953119564_)))) - (let ((__tmp51677 + (let ((__tmp52029 (let () (declare (not safe)) (cons _lp-hd1953219568_ @@ -252,7 +252,7 @@ (declare (not safe)) (_loop1953019554_ _lp-tl1953319571_ - __tmp51677)))) + __tmp52029)))) (let ((_slot1953519574_ (reverse _slot1953419561_))) ((lambda (_L19578_) @@ -268,28 +268,28 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1959619616_) - (let ((_g51429_ + (let ((_g51753_ (gx#syntax-split-splice _g1959619616_ '0))) (begin - (let ((_g51430_ + (let ((_g51754_ (let () (declare (not safe)) - (if (##values? _g51429_) - (##vector-length _g51429_) + (if (##values? _g51753_) + (##vector-length _g51753_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51430_ 2))) + (##fx= _g51754_ 2))) (error "Context expects 2 values" - _g51430_))) + _g51754_))) (let ((_target1959819619_ (let () (declare (not safe)) - (##vector-ref _g51429_ 0))) + (##vector-ref _g51753_ 0))) (_tl1960019622_ (let () (declare (not safe)) - (##vector-ref _g51429_ 1)))) + (##vector-ref _g51753_ 1)))) (if (gx#stx-null? _tl1960019622_) (letrec ((_loop1960119625_ (lambda (_hd1959919629_ @@ -307,12 +307,12 @@ (##car _e1960219635_))) (_lp-tl1960419642_ (let () (declare (not safe)) (##cdr _e1960219635_)))) - (let ((__tmp51675 + (let ((__tmp52027 (let () (declare (not safe)) (cons _lp-hd1960319639_ _getf1960519632_)))) (declare (not safe)) - (_loop1960119625_ _lp-tl1960419642_ __tmp51675)))) + (_loop1960119625_ _lp-tl1960419642_ __tmp52027)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_getf1960619645_ (reverse _getf1960519632_))) @@ -328,30 +328,30 @@ (_g1966521495_ (lambda (_g1966719687_) (if (gx#stx-pair/null? _g1966719687_) - (let ((_g51431_ + (let ((_g51755_ (gx#syntax-split-splice _g1966719687_ '0))) (begin - (let ((_g51432_ + (let ((_g51756_ (let () (declare (not safe)) - (if (##values? _g51431_) - (##vector-length _g51431_) + (if (##values? _g51755_) + (##vector-length _g51755_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51432_ 2))) + (##fx= _g51756_ 2))) (error "Context expects 2 values" - _g51432_))) + _g51756_))) (let ((_target1966919690_ (let () (declare (not safe)) - (##vector-ref _g51431_ 0))) + (##vector-ref _g51755_ 0))) (_tl1967119693_ (let () (declare (not safe)) - (##vector-ref _g51431_ 1)))) + (##vector-ref _g51755_ 1)))) (if (gx#stx-null? _tl1967119693_) (letrec ((_loop1967219696_ (lambda (_hd1967019700_ @@ -369,12 +369,12 @@ (let () (declare (not safe)) (##cdr _e1967319706_)))) - (let ((__tmp51673 + (let ((__tmp52025 (let () (declare (not safe)) (cons _lp-hd1967419710_ _setf1967619703_)))) (declare (not safe)) - (_loop1967219696_ _lp-tl1967519713_ __tmp51673)))) + (_loop1967219696_ _lp-tl1967519713_ __tmp52025)))) (let ((_setf1967719716_ (reverse _setf1967619703_))) ((lambda (_L19720_) (let () @@ -393,34 +393,34 @@ (_g1973921491_ (lambda (_g1974119761_) (if (gx#stx-pair/null? _g1974119761_) - (let ((_g51433_ + (let ((_g51757_ (gx#syntax-split-splice _g1974119761_ '0))) (begin - (let ((_g51434_ + (let ((_g51758_ (let () (declare (not safe)) - (if (##values? _g51433_) + (if (##values? _g51757_) (##vector-length - _g51433_) + _g51757_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51434_ 2))) + (##fx= _g51758_ 2))) (error "Context expects 2 values" - _g51434_))) + _g51758_))) (let ((_target1974319764_ (let () (declare (not safe)) (##vector-ref - _g51433_ + _g51757_ 0))) (_tl1974519767_ (let () (declare (not safe)) (##vector-ref - _g51433_ + _g51757_ 1)))) (if (gx#stx-null? _tl1974519767_) (letrec ((_loop1974619770_ @@ -437,7 +437,7 @@ (let () (declare (not safe)) (##cdr _e1974719780_)))) - (let ((__tmp51672 + (let ((__tmp52024 (let () (declare (not safe)) (cons _lp-hd1974819784_ @@ -445,7 +445,7 @@ (declare (not safe)) (_loop1974619770_ _lp-tl1974919787_ - __tmp51672)))) + __tmp52024)))) (let ((_mixin-slot1975119790_ (reverse _mixin-slot1975019777_))) ((lambda (_L19794_) @@ -460,41 +460,41 @@ (lambda (_g1981319833_) (if (gx#stx-pair/null? _g1981319833_) - (let ((_g51435_ + (let ((_g51759_ (gx#syntax-split-splice _g1981319833_ '0))) (begin - (let ((_g51436_ + (let ((_g51760_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g51435_) - (##vector-length _g51435_) + _g51759_) + (##vector-length _g51759_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g51436_ 2))) - (error "Context expects 2 values" _g51436_))) + (##fx= _g51760_ 2))) + (error "Context expects 2 values" _g51760_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1981519836_ (let () (declare (not safe)) (##vector-ref - _g51435_ + _g51759_ 0))) (_tl1981719839_ (let () (declare (not safe)) (##vector-ref - _g51435_ + _g51759_ 1)))) (if (gx#stx-null? _tl1981719839_) @@ -512,7 +512,7 @@ (let () (declare (not safe)) (##cdr _e1981919852_)))) - (let ((__tmp51670 + (let ((__tmp52022 (let () (declare (not safe)) (cons _lp-hd1982019856_ @@ -520,7 +520,7 @@ (declare (not safe)) (_loop1981819842_ _lp-tl1982119859_ - __tmp51670)))) + __tmp52022)))) (let ((_mixin-getf1982319862_ (reverse _mixin-getf1982219849_))) ((lambda (_L19866_) @@ -535,28 +535,28 @@ (lambda (_g1988419904_) (if (gx#stx-pair/null? _g1988419904_) - (let ((_g51437_ + (let ((_g51761_ (gx#syntax-split-splice _g1988419904_ '0))) (begin - (let ((_g51438_ + (let ((_g51762_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g51437_) - (##vector-length _g51437_) + (if (##values? _g51761_) + (##vector-length _g51761_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g51438_ 2))) - (error "Context expects 2 values" _g51438_))) + (if (not (let () (declare (not safe)) (##fx= _g51762_ 2))) + (error "Context expects 2 values" _g51762_))) (let ((_target1988619907_ (let () (declare (not safe)) - (##vector-ref _g51437_ 0))) + (##vector-ref _g51761_ 0))) (_tl1988819910_ (let () (declare (not safe)) - (##vector-ref _g51437_ 1)))) + (##vector-ref _g51761_ 1)))) (if (gx#stx-null? _tl1988819910_) (letrec ((_loop1988919913_ (lambda (_hd1988719917_ @@ -572,7 +572,7 @@ (let () (declare (not safe)) (##cdr _e1989019923_)))) - (let ((__tmp51668 + (let ((__tmp52020 (let () (declare (not safe)) (cons _lp-hd1989119927_ @@ -580,7 +580,7 @@ (declare (not safe)) (_loop1988919913_ _lp-tl1989219930_ - __tmp51668)))) + __tmp52020)))) (let ((_mixin-setf1989419933_ (reverse _mixin-setf1989319920_))) ((lambda (_L19937_) @@ -595,28 +595,28 @@ (lambda (_g1995519975_) (if (gx#stx-pair/null? _g1995519975_) - (let ((_g51439_ + (let ((_g51763_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1995519975_ '0))) (begin - (let ((_g51440_ + (let ((_g51764_ (let () (declare (not safe)) - (if (##values? _g51439_) - (##vector-length _g51439_) + (if (##values? _g51763_) + (##vector-length _g51763_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51440_ 2))) - (error "Context expects 2 values" _g51440_))) + (##fx= _g51764_ 2))) + (error "Context expects 2 values" _g51764_))) (let ((_target1995719978_ (let () (declare (not safe)) - (##vector-ref _g51439_ 0))) + (##vector-ref _g51763_ 0))) (_tl1995919981_ (let () (declare (not safe)) - (##vector-ref _g51439_ 1)))) + (##vector-ref _g51763_ 1)))) (if (gx#stx-null? _tl1995919981_) (letrec ((_loop1996019984_ (lambda (_hd1995819988_ @@ -633,7 +633,7 @@ (let () (declare (not safe)) (##cdr _e1996119994_)))) - (let ((__tmp51666 + (let ((__tmp52017 (let () (declare (not safe)) @@ -644,7 +644,7 @@ (declare (not safe)) (_loop1996019984_ _lp-tl1996320001_ - __tmp51666)))) + __tmp52017)))) (let ((_ugetf1996520004_ (reverse _ugetf1996419991_))) ((lambda (_L20008_) @@ -659,28 +659,28 @@ (_g2002421439_ (lambda (_g2002620046_) (if (gx#stx-pair/null? _g2002620046_) - (let ((_g51441_ + (let ((_g51765_ (gx#syntax-split-splice _g2002620046_ '0))) (begin - (let ((_g51442_ + (let ((_g51766_ (let () (declare (not safe)) - (if (##values? _g51441_) - (##vector-length _g51441_) + (if (##values? _g51765_) + (##vector-length _g51765_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51442_ 2))) + (##fx= _g51766_ 2))) (error "Context expects 2 values" - _g51442_))) + _g51766_))) (let ((_target2002820049_ (let () (declare (not safe)) - (##vector-ref _g51441_ 0))) + (##vector-ref _g51765_ 0))) (_tl2003020052_ (let () (declare (not safe)) - (##vector-ref _g51441_ 1)))) + (##vector-ref _g51765_ 1)))) (if (gx#stx-null? _tl2003020052_) (letrec ((_loop2003120055_ (lambda (_hd2002920059_ @@ -697,12 +697,12 @@ (##car _e2003220065_))) (_lp-tl2003420072_ (let () (declare (not safe)) (##cdr _e2003220065_)))) - (let ((__tmp51664 + (let ((__tmp52014 (let () (declare (not safe)) (cons _lp-hd2003320069_ _usetf2003520062_)))) (declare (not safe)) - (_loop2003120055_ _lp-tl2003420072_ __tmp51664)))) + (_loop2003120055_ _lp-tl2003420072_ __tmp52014)))) (let ((_usetf2003620075_ (reverse _usetf2003520062_))) ((lambda (_L20079_) (let () @@ -715,30 +715,30 @@ (_g2009521422_ (lambda (_g2009720117_) (if (gx#stx-pair/null? _g2009720117_) - (let ((_g51443_ + (let ((_g51767_ (gx#syntax-split-splice _g2009720117_ '0))) (begin - (let ((_g51444_ + (let ((_g51768_ (let () (declare (not safe)) - (if (##values? _g51443_) - (##vector-length _g51443_) + (if (##values? _g51767_) + (##vector-length _g51767_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51444_ 2))) + (##fx= _g51768_ 2))) (error "Context expects 2 values" - _g51444_))) + _g51768_))) (let ((_target2009920120_ (let () (declare (not safe)) - (##vector-ref _g51443_ 0))) + (##vector-ref _g51767_ 0))) (_tl2010120123_ (let () (declare (not safe)) - (##vector-ref _g51443_ 1)))) + (##vector-ref _g51767_ 1)))) (if (gx#stx-null? _tl2010120123_) (letrec ((_loop2010220126_ (lambda (_hd2010020130_ @@ -756,13 +756,13 @@ (let () (declare (not safe)) (##cdr _e2010320136_)))) - (let ((__tmp51662 + (let ((__tmp52011 (let () (declare (not safe)) (cons _lp-hd2010420140_ _mixin-ugetf2010620133_)))) (declare (not safe)) - (_loop2010220126_ _lp-tl2010520143_ __tmp51662)))) + (_loop2010220126_ _lp-tl2010520143_ __tmp52011)))) (let ((_mixin-ugetf2010720146_ (reverse _mixin-ugetf2010620133_))) ((lambda (_L20150_) @@ -776,34 +776,34 @@ (_g2016621405_ (lambda (_g2016820188_) (if (gx#stx-pair/null? _g2016820188_) - (let ((_g51445_ + (let ((_g51769_ (gx#syntax-split-splice _g2016820188_ '0))) (begin - (let ((_g51446_ + (let ((_g51770_ (let () (declare (not safe)) - (if (##values? _g51445_) + (if (##values? _g51769_) (##vector-length - _g51445_) + _g51769_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51446_ 2))) + (##fx= _g51770_ 2))) (error "Context expects 2 values" - _g51446_))) + _g51770_))) (let ((_target2017020191_ (let () (declare (not safe)) (##vector-ref - _g51445_ + _g51769_ 0))) (_tl2017220194_ (let () (declare (not safe)) (##vector-ref - _g51445_ + _g51769_ 1)))) (if (gx#stx-null? _tl2017220194_) @@ -821,7 +821,7 @@ (let () (declare (not safe)) (##cdr _e2017420207_)))) - (let ((__tmp51660 + (let ((__tmp52008 (let () (declare (not safe)) (cons _lp-hd2017520211_ @@ -829,7 +829,7 @@ (declare (not safe)) (_loop2017320197_ _lp-tl2017620214_ - __tmp51660)))) + __tmp52008)))) (let ((_mixin-usetf2017820217_ (reverse _mixin-usetf2017720204_))) ((lambda (_L20221_) @@ -837,83 +837,81 @@ (let* ((_type-slots20252_ (if (gx#stx-null? _slots19363_) '() - (let ((__tmp51447 - (let ((__tmp51448 + (let ((__tmp51771 + (let ((__tmp51772 (begin (gx#syntax-check-splice-targets _L19720_ _L19649_ _L19578_) - (foldr (lambda (_g2023720242_ + (let ((__tmp51773 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g2023720242_ _g2023820245_ _g2023920247_ _g2024020249_) - (let ((__tmp51449 - (let ((__tmp51450 - (let ((__tmp51451 + (let ((__tmp51774 + (let ((__tmp51775 + (let ((__tmp51776 (let () (declare (not safe)) (cons _g2023720242_ '())))) (declare (not safe)) (cons _g2023820245_ - __tmp51451)))) + __tmp51776)))) (declare (not safe)) - (cons _g2023920247_ __tmp51450)))) + (cons _g2023920247_ __tmp51775)))) (declare (not safe)) - (cons __tmp51449 _g2024020249_))) - '() - _L19720_ - _L19649_ - _L19578_)))) + (cons __tmp51774 _g2024020249_))))) + (declare (not safe)) + (foldr* __tmp51773 '() _L19720_ _L19649_ _L19578_))))) (declare (not safe)) - (cons __tmp51448 '())))) + (cons __tmp51772 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'slots: __tmp51447)))) + (cons 'slots: __tmp51771)))) (_type-mixin-slots20269_ (if (gx#stx-null? _mixin-slots19737_) '() - (let ((__tmp51452 - (let ((__tmp51453 + (let ((__tmp51777 + (let ((__tmp51778 (begin (gx#syntax-check-splice-targets _L19937_ _L19866_ _L19794_) - (foldr (lambda (_g2025420259_ + (let ((__tmp51779 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g2025420259_ _g2025520262_ _g2025620264_ _g2025720266_) - (let ((__tmp51454 - (let ((__tmp51455 - (let ((__tmp51456 + (let ((__tmp51780 + (let ((__tmp51781 + (let ((__tmp51782 (let () (declare (not safe)) (cons _g2025420259_ '())))) (declare (not safe)) (cons _g2025520262_ - __tmp51456)))) + __tmp51782)))) (declare (not safe)) - (cons _g2025620264_ __tmp51455)))) + (cons _g2025620264_ __tmp51781)))) (declare (not safe)) - (cons __tmp51454 _g2025720266_))) - '() - _L19937_ - _L19866_ - _L19794_)))) + (cons __tmp51780 _g2025720266_))))) + (declare (not safe)) + (foldr* __tmp51779 '() _L19937_ _L19866_ _L19794_))))) (declare (not safe)) - (cons __tmp51453 '())))) + (cons __tmp51778 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'mixin: __tmp51452)))) + (cons 'mixin: __tmp51777)))) (_type-name20276_ - (let ((__tmp51457 - (let ((__tmp51458 + (let ((__tmp51783 + (let ((__tmp51784 (let ((_$e20272_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -922,12 +920,12 @@ (if _$e20272_ _$e20272_ _id19361_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51458 '())))) + (cons __tmp51784 '())))) (declare (not safe)) - (cons 'name: __tmp51457))) + (cons 'name: __tmp51783))) (_type-id20283_ - (let ((__tmp51459 - (let ((__tmp51460 + (let ((__tmp51785 + (let ((__tmp51786 (let ((_$e20279_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -941,9 +939,9 @@ _L19396_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51460 '())))) + (cons __tmp51786 '())))) (declare (not safe)) - (cons 'id: __tmp51459))) + (cons 'id: __tmp51785))) (_type-constructor20298_ (let ((_$e20294_ (let ((_e2028520287_ @@ -953,13 +951,13 @@ (if _e2028520287_ (let* ((_e20291_ _e2028520287_) - (__tmp51461 + (__tmp51787 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _e20291_ '())))) (declare (not safe)) - (cons 'constructor: __tmp51461)) + (cons 'constructor: __tmp51787)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _$e20294_ _$e20294_ '()))) @@ -969,14 +967,14 @@ (gx#stx-getq 'transparent: _body19364_)) - (let ((__tmp51462 + (let ((__tmp51788 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'transparent: '#t)))) (declare (not safe)) - (cons __tmp51462 '())) + (cons __tmp51788 '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_properties20314_ @@ -994,12 +992,12 @@ (eq? _print20308_ '#t)) _slots19363_ _print20308_)) - (__tmp51463 + (__tmp51789 (let () (declare (not safe)) (cons 'print: _print20311_)))) (declare (not safe)) - (cons __tmp51463 _properties20301_))) + (cons __tmp51789 _properties20301_))) _$e20304_) _properties20301_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1018,12 +1016,12 @@ (eq? _equal20321_ '#t)) _slots19363_ _equal20321_)) - (__tmp51464 + (__tmp51790 (let () (declare (not safe)) (cons 'equal: _equal20324_)))) (declare (not safe)) - (cons __tmp51464 _properties20314_))) + (cons __tmp51790 _properties20314_))) _$e20317_) _properties20314_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1043,21 +1041,21 @@ (lambda (_g2033620347_) ((lambda (_L20350_) (let () - (let ((__tmp51465 + (let ((__tmp51791 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51466 - (let ((__tmp51468 + (let ((__tmp51792 + (let ((__tmp51794 (gx#datum->syntax '#f 'quote)) - (__tmp51467 + (__tmp51793 (let () (declare (not safe)) (cons _L20350_ '())))) (declare (not safe)) - (cons __tmp51468 __tmp51467)))) + (cons __tmp51794 __tmp51793)))) (declare (not safe)) - (cons __tmp51466 '())))) + (cons __tmp51792 '())))) (declare (not safe)) - (cons 'properties: __tmp51465)))) + (cons 'properties: __tmp51791)))) _g2033620347_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) @@ -1078,32 +1076,32 @@ '#f))) (_type-metaclass20386_ (if _metaclass20383_ - (let ((__tmp51469 + (let ((__tmp51795 (let () (declare (not safe)) (cons _metaclass20383_ '())))) (declare (not safe)) - (cons 'metaclass: __tmp51469)) + (cons 'metaclass: __tmp51795)) '())) (_final?20389_ (gx#stx-e (gx#stx-getq 'final: _body19364_))) (_type-struct20392_ - (let ((__tmp51470 + (let ((__tmp51796 (let () (declare (not safe)) (cons _struct?19378_ '())))) (declare (not safe)) - (cons 'struct: __tmp51470))) + (cons 'struct: __tmp51796))) (_type-final20395_ - (let ((__tmp51471 + (let ((__tmp51797 (let () (declare (not safe)) (cons _final?20389_ '())))) (declare (not safe)) - (cons 'final: __tmp51471))) + (cons 'final: __tmp51797))) (_g2039820415_ (lambda (_g2039920411_) (gx#raise-syntax-error @@ -1114,36 +1112,36 @@ (lambda (_g2039920419_) (if (gx#stx-pair/null? _g2039920419_) - (let ((_g51472_ + (let ((_g51798_ (gx#syntax-split-splice _g2039920419_ '0))) (begin - (let ((_g51473_ + (let ((_g51799_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g51472_) - (##vector-length _g51472_) + _g51798_) + (##vector-length _g51798_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g51473_ 2))) - (error "Context expects 2 values" _g51473_))) + (if (not (let () (declare (not safe)) (##fx= _g51799_ 2))) + (error "Context expects 2 values" _g51799_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2040120422_ (let () (declare (not safe)) (##vector-ref - _g51472_ + _g51798_ 0))) (_tl2040320425_ (let () (declare (not safe)) (##vector-ref - _g51472_ + _g51798_ 1)))) (if (gx#stx-null? _tl2040320425_) @@ -1161,7 +1159,7 @@ (let () (declare (not safe)) (##cdr _e2040520438_)))) - (let ((__tmp51658 + (let ((__tmp51999 (let () (declare (not safe)) (cons _lp-hd2040620442_ @@ -1169,7 +1167,7 @@ (declare (not safe)) (_loop2040420428_ _lp-tl2040720445_ - __tmp51658)))) + __tmp51999)))) (let ((_type-body2040920448_ (reverse _type-body2040820435_))) ((lambda (_L20452_) @@ -1351,434 +1349,450 @@ ((lambda (_L20936_) (let () (let () - (let ((__tmp51474 + (let ((__tmp51800 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51477 (gx#datum->syntax '#f 'begin)) - (__tmp51475 - (let ((__tmp51476 + (let ((__tmp51803 (gx#datum->syntax '#f 'begin)) + (__tmp51801 + (let ((__tmp51802 (let () (declare (not safe)) (cons _L20936_ '())))) (declare (not safe)) - (cons _L20488_ __tmp51476)))) + (cons _L20488_ __tmp51802)))) (declare (not safe)) - (cons __tmp51477 __tmp51475)))) + (cons __tmp51803 __tmp51801)))) (declare (not safe)) - (_wrap19366_ __tmp51474))))) + (_wrap19366_ __tmp51800))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2092220933_))) - (__tmp51478 - (let ((__tmp51479 - (let ((__tmp51514 + (__tmp51804 + (let ((__tmp51805 + (let ((__tmp51840 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defsyntax)) - (__tmp51480 - (let ((__tmp51481 - (let ((__tmp51482 - (let ((__tmp51513 + (__tmp51806 + (let ((__tmp51807 + (let ((__tmp51808 + (let ((__tmp51839 (gx#datum->syntax '#f 'make-class-type-info)) - (__tmp51483 - (let ((__tmp51484 - (let ((__tmp51485 - (let ((__tmp51486 + (__tmp51809 + (let ((__tmp51810 + (let ((__tmp51811 + (let ((__tmp51812 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51487 - (let ((__tmp51488 - (let ((__tmp51489 - (let ((__tmp51490 - (let ((__tmp51491 - (let ((__tmp51492 + (let ((__tmp51813 + (let ((__tmp51814 + (let ((__tmp51815 + (let ((__tmp51816 + (let ((__tmp51817 + (let ((__tmp51818 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51493 - (let ((__tmp51494 - (let ((__tmp51495 - (let ((__tmp51496 - (let ((__tmp51497 - (let ((__tmp51498 + (let ((__tmp51819 + (let ((__tmp51820 + (let ((__tmp51821 + (let ((__tmp51822 + (let ((__tmp51823 + (let ((__tmp51824 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51499 - (let ((__tmp51500 - (let ((__tmp51501 - (let ((__tmp51502 - (let ((__tmp51503 + (let ((__tmp51825 + (let ((__tmp51826 + (let ((__tmp51827 + (let ((__tmp51828 + (let ((__tmp51829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51504 - (let ((__tmp51505 - (let ((__tmp51506 - (let ((__tmp51507 - (let ((__tmp51508 - (let ((__tmp51509 + (let ((__tmp51830 + (let ((__tmp51831 + (let ((__tmp51832 + (let ((__tmp51833 + (let ((__tmp51834 + (let ((__tmp51835 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51510 - (let ((__tmp51511 - (let ((__tmp51512 + (let ((__tmp51836 + (let ((__tmp51837 + (let ((__tmp51838 (let () (declare (not safe)) (cons _L20908_ '())))) (declare (not safe)) (cons 'unchecked-mutators: - __tmp51512)))) + __tmp51838)))) (declare (not safe)) - (cons _L20880_ __tmp51511)))) + (cons _L20880_ __tmp51837)))) (declare (not safe)) - (cons 'unchecked-accessors: __tmp51510)))) + (cons 'unchecked-accessors: __tmp51836)))) (declare (not safe)) - (cons _L20852_ __tmp51509)))) + (cons _L20852_ __tmp51835)))) (declare (not safe)) - (cons 'mutators: __tmp51508)))) + (cons 'mutators: __tmp51834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L20824_ __tmp51507)))) + (cons _L20824_ __tmp51833)))) (declare (not safe)) - (cons 'accessors: __tmp51506)))) + (cons 'accessors: __tmp51832)))) (declare (not safe)) - (cons _L20796_ __tmp51505)))) + (cons _L20796_ __tmp51831)))) (declare (not safe)) - (cons 'predicate: __tmp51504)))) + (cons 'predicate: __tmp51830)))) (declare (not safe)) - (cons _L20768_ __tmp51503)))) + (cons _L20768_ __tmp51829)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'constructor: - __tmp51502)))) + __tmp51828)))) (declare (not safe)) - (cons _L20740_ __tmp51501)))) + (cons _L20740_ __tmp51827)))) (declare (not safe)) - (cons 'type-descriptor: __tmp51500)))) + (cons 'type-descriptor: __tmp51826)))) (declare (not safe)) - (cons _L20712_ __tmp51499)))) + (cons _L20712_ __tmp51825)))) (declare (not safe)) - (cons 'constructor-method: __tmp51498)))) + (cons 'constructor-method: __tmp51824)))) (declare (not safe)) - (cons _L20684_ __tmp51497)))) + (cons _L20684_ __tmp51823)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'metaclass: - __tmp51496)))) + __tmp51822)))) (declare (not safe)) - (cons _L20656_ __tmp51495)))) + (cons _L20656_ __tmp51821)))) (declare (not safe)) - (cons 'final?: __tmp51494)))) + (cons 'final?: __tmp51820)))) (declare (not safe)) - (cons _L20628_ __tmp51493)))) + (cons _L20628_ __tmp51819)))) (declare (not safe)) - (cons 'struct?: __tmp51492)))) + (cons 'struct?: __tmp51818)))) (declare (not safe)) - (cons _L20572_ __tmp51491)))) + (cons _L20572_ __tmp51817)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'super: __tmp51490)))) + (cons 'super: __tmp51816)))) (declare (not safe)) - (cons _L20600_ __tmp51489)))) + (cons _L20600_ __tmp51815)))) (declare (not safe)) - (cons 'slots: __tmp51488)))) + (cons 'slots: __tmp51814)))) (declare (not safe)) - (cons _L20544_ __tmp51487)))) + (cons _L20544_ __tmp51813)))) (declare (not safe)) - (cons 'name: __tmp51486)))) + (cons 'name: __tmp51812)))) (declare (not safe)) - (cons _L20516_ __tmp51485)))) + (cons _L20516_ __tmp51811)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'id: __tmp51484)))) + (cons 'id: __tmp51810)))) (declare (not safe)) - (cons __tmp51513 __tmp51483)))) + (cons __tmp51839 __tmp51809)))) (declare (not safe)) - (cons __tmp51482 '())))) + (cons __tmp51808 '())))) (declare (not safe)) - (cons _L19396_ __tmp51481)))) + (cons _L19396_ __tmp51807)))) (declare (not safe)) - (cons __tmp51514 __tmp51480)))) + (cons __tmp51840 __tmp51806)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19366_ __tmp51479)))) + (_wrap19366_ __tmp51805)))) (declare (not safe)) - (_g2092020951_ __tmp51478)))) + (_g2092020951_ __tmp51804)))) _g2089420905_))) - (__tmp51515 - (let ((__tmp51539 + (__tmp51841 + (let ((__tmp51868 (gx#datum->syntax '#f '@list)) - (__tmp51516 + (__tmp51842 (begin (gx#syntax-check-splice-targets _L20079_ _L19578_) - (foldr (lambda (_g2095820965_ + (let ((__tmp51856 + (lambda (_g2095820965_ _g2095920968_ _g2096020970_) - (let ((__tmp51517 - (let ((__tmp51527 + (let ((__tmp51857 + (let ((__tmp51867 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51518 - (let ((__tmp51524 - (let ((__tmp51526 + (__tmp51858 + (let ((__tmp51864 + (let ((__tmp51866 (gx#datum->syntax '#f 'quote)) - (__tmp51525 + (__tmp51865 (let () (declare (not safe)) (cons _g2095920968_ '())))) (declare (not safe)) - (cons __tmp51526 __tmp51525))) - (__tmp51519 - (let ((__tmp51520 - (let ((__tmp51521 - (let ((__tmp51523 + (cons __tmp51866 __tmp51865))) + (__tmp51859 + (let ((__tmp51860 + (let ((__tmp51861 + (let ((__tmp51863 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51522 + (__tmp51862 (let () (declare (not safe)) (cons _g2095820965_ '())))) (declare (not safe)) - (cons __tmp51523 - __tmp51522)))) + (cons __tmp51863 + __tmp51862)))) (declare (not safe)) - (cons __tmp51521 '())))) + (cons __tmp51861 '())))) (declare (not safe)) - (cons ':: __tmp51520)))) + (cons ':: __tmp51860)))) (declare (not safe)) - (cons __tmp51524 __tmp51519)))) + (cons __tmp51864 __tmp51859)))) (declare (not safe)) - (cons __tmp51527 __tmp51518)))) + (cons __tmp51867 __tmp51858)))) (declare (not safe)) - (cons __tmp51517 _g2096020970_))) + (cons __tmp51857 _g2096020970_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp51843 (begin (gx#syntax-check-splice-targets _L20221_ _L19794_) - (foldr (lambda (_g2096120973_ + (let ((__tmp51844 + (lambda (_g2096120973_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2096220976_ _g2096320978_) - (let ((__tmp51528 - (let ((__tmp51538 (gx#datum->syntax '#f '@list)) - (__tmp51529 - (let ((__tmp51535 - (let ((__tmp51537 + (let ((__tmp51845 + (let ((__tmp51855 (gx#datum->syntax '#f '@list)) + (__tmp51846 + (let ((__tmp51852 + (let ((__tmp51854 (gx#datum->syntax '#f 'quote)) - (__tmp51536 + (__tmp51853 (let () (declare (not safe)) (cons _g2096220976_ '())))) (declare (not safe)) - (cons __tmp51537 __tmp51536))) - (__tmp51530 - (let ((__tmp51531 - (let ((__tmp51532 - (let ((__tmp51534 + (cons __tmp51854 __tmp51853))) + (__tmp51847 + (let ((__tmp51848 + (let ((__tmp51849 + (let ((__tmp51851 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax)) - (__tmp51533 + (__tmp51850 (let () (declare (not safe)) (cons _g2096120973_ '())))) (declare (not safe)) - (cons __tmp51534 __tmp51533)))) + (cons __tmp51851 __tmp51850)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51532 '())))) + (cons __tmp51849 '())))) (declare (not safe)) - (cons ':: __tmp51531)))) + (cons ':: __tmp51848)))) (declare (not safe)) - (cons __tmp51535 __tmp51530)))) + (cons __tmp51852 __tmp51847)))) (declare (not safe)) - (cons __tmp51538 __tmp51529)))) + (cons __tmp51855 __tmp51846)))) (declare (not safe)) - (cons __tmp51528 _g2096320978_))) - '() - _L20221_ - _L19794_)) + (cons __tmp51845 _g2096320978_))))) + (declare (not safe)) + (foldr2 __tmp51844 '() _L20221_ _L19794_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _L20079_ - _L19578_)))) + (declare (not safe)) + (foldr2 __tmp51856 + __tmp51843 + _L20079_ + _L19578_))))) (declare (not safe)) - (cons __tmp51539 __tmp51516)))) + (cons __tmp51868 __tmp51842)))) (declare (not safe)) - (_g2089220955_ __tmp51515)))) + (_g2089220955_ __tmp51841)))) _g2086620877_))) - (__tmp51540 - (let ((__tmp51564 (gx#datum->syntax '#f '@list)) - (__tmp51541 + (__tmp51869 + (let ((__tmp51896 (gx#datum->syntax '#f '@list)) + (__tmp51870 (begin (gx#syntax-check-splice-targets _L20008_ _L19578_) - (foldr (lambda (_g2098420991_ + (let ((__tmp51884 + (lambda (_g2098420991_ _g2098520994_ _g2098620996_) - (let ((__tmp51542 - (let ((__tmp51552 + (let ((__tmp51885 + (let ((__tmp51895 (gx#datum->syntax '#f '@list)) - (__tmp51543 - (let ((__tmp51549 - (let ((__tmp51551 + (__tmp51886 + (let ((__tmp51892 + (let ((__tmp51894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51550 + (__tmp51893 (let () (declare (not safe)) (cons _g2098520994_ '())))) (declare (not safe)) - (cons __tmp51551 __tmp51550))) - (__tmp51544 - (let ((__tmp51545 - (let ((__tmp51546 - (let ((__tmp51548 + (cons __tmp51894 __tmp51893))) + (__tmp51887 + (let ((__tmp51888 + (let ((__tmp51889 + (let ((__tmp51891 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51547 + (__tmp51890 (let () (declare (not safe)) (cons _g2098420991_ '())))) (declare (not safe)) - (cons __tmp51548 __tmp51547)))) + (cons __tmp51891 __tmp51890)))) (declare (not safe)) - (cons __tmp51546 '())))) + (cons __tmp51889 '())))) (declare (not safe)) - (cons ':: __tmp51545)))) + (cons ':: __tmp51888)))) (declare (not safe)) - (cons __tmp51549 __tmp51544)))) + (cons __tmp51892 __tmp51887)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51552 __tmp51543)))) + (cons __tmp51895 __tmp51886)))) (declare (not safe)) - (cons __tmp51542 _g2098620996_))) + (cons __tmp51885 _g2098620996_)))) + (__tmp51871 (begin (gx#syntax-check-splice-targets _L20150_ _L19794_) - (foldr (lambda (_g2098720999_ + (let ((__tmp51872 + (lambda (_g2098720999_ _g2098821002_ _g2098921004_) - (let ((__tmp51553 - (let ((__tmp51563 + (let ((__tmp51873 + (let ((__tmp51883 (gx#datum->syntax '#f '@list)) - (__tmp51554 - (let ((__tmp51560 + (__tmp51874 + (let ((__tmp51880 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51562 (gx#datum->syntax '#f 'quote)) - (__tmp51561 + (let ((__tmp51882 (gx#datum->syntax '#f 'quote)) + (__tmp51881 (let () (declare (not safe)) (cons _g2098821002_ '())))) (declare (not safe)) - (cons __tmp51562 __tmp51561))) - (__tmp51555 - (let ((__tmp51556 - (let ((__tmp51557 - (let ((__tmp51559 + (cons __tmp51882 __tmp51881))) + (__tmp51875 + (let ((__tmp51876 + (let ((__tmp51877 + (let ((__tmp51879 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51558 + (__tmp51878 (let () (declare (not safe)) (cons _g2098720999_ '())))) (declare (not safe)) - (cons __tmp51559 __tmp51558)))) + (cons __tmp51879 __tmp51878)))) (declare (not safe)) - (cons __tmp51557 '())))) + (cons __tmp51877 '())))) (declare (not safe)) - (cons ':: __tmp51556)))) + (cons ':: __tmp51876)))) (declare (not safe)) - (cons __tmp51560 __tmp51555)))) + (cons __tmp51880 __tmp51875)))) (declare (not safe)) - (cons __tmp51563 __tmp51554)))) + (cons __tmp51883 __tmp51874)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51553 - _g2098921004_))) - '() - _L20150_ - _L19794_)) - _L20008_ - _L19578_)))) + (cons __tmp51873 + _g2098921004_))))) + (declare (not safe)) + (foldr2 __tmp51872 + '() + _L20150_ + _L19794_))))) + (declare (not safe)) + (foldr2 __tmp51884 + __tmp51871 + _L20008_ + _L19578_))))) (declare (not safe)) - (cons __tmp51564 __tmp51541)))) + (cons __tmp51896 __tmp51870)))) (declare (not safe)) - (_g2086420981_ __tmp51540)))) + (_g2086420981_ __tmp51869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2083820849_))) - (__tmp51565 - (let ((__tmp51589 + (__tmp51897 + (let ((__tmp51924 (gx#datum->syntax '#f '@list)) - (__tmp51566 + (__tmp51898 (begin (gx#syntax-check-splice-targets _L19720_ _L19578_) - (foldr (lambda (_g2101021017_ + (let ((__tmp51912 + (lambda (_g2101021017_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2101121020_ _g2101221022_) - (let ((__tmp51567 - (let ((__tmp51577 (gx#datum->syntax '#f '@list)) - (__tmp51568 - (let ((__tmp51574 - (let ((__tmp51576 + (let ((__tmp51913 + (let ((__tmp51923 (gx#datum->syntax '#f '@list)) + (__tmp51914 + (let ((__tmp51920 + (let ((__tmp51922 (gx#datum->syntax '#f 'quote)) - (__tmp51575 + (__tmp51921 (let () (declare (not safe)) (cons _g2101121020_ '())))) (declare (not safe)) - (cons __tmp51576 __tmp51575))) - (__tmp51569 - (let ((__tmp51570 - (let ((__tmp51571 - (let ((__tmp51573 + (cons __tmp51922 __tmp51921))) + (__tmp51915 + (let ((__tmp51916 + (let ((__tmp51917 + (let ((__tmp51919 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51572 + (__tmp51918 (let () (declare (not safe)) (cons _g2101021017_ '())))) (declare (not safe)) - (cons __tmp51573 __tmp51572)))) + (cons __tmp51919 __tmp51918)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51571 '())))) + (cons __tmp51917 '())))) (declare (not safe)) - (cons ':: __tmp51570)))) + (cons ':: __tmp51916)))) (declare (not safe)) - (cons __tmp51574 __tmp51569)))) + (cons __tmp51920 __tmp51915)))) (declare (not safe)) - (cons __tmp51577 __tmp51568)))) + (cons __tmp51923 __tmp51914)))) (declare (not safe)) - (cons __tmp51567 _g2101221022_))) + (cons __tmp51913 _g2101221022_)))) + (__tmp51899 (begin (gx#syntax-check-splice-targets _L19937_ _L19794_) - (foldr (lambda (_g2101321025_ + (let ((__tmp51900 + (lambda (_g2101321025_ _g2101421028_ _g2101521030_) - (let ((__tmp51578 - (let ((__tmp51588 + (let ((__tmp51901 + (let ((__tmp51911 (gx#datum->syntax '#f '@list)) - (__tmp51579 - (let ((__tmp51585 - (let ((__tmp51587 + (__tmp51902 + (let ((__tmp51908 + (let ((__tmp51910 (gx#datum->syntax '#f 'quote)) - (__tmp51586 + (__tmp51909 (let () (declare (not safe)) @@ -1786,121 +1800,123 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp51587 __tmp51586))) + (cons __tmp51910 __tmp51909))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51580 - (let ((__tmp51581 - (let ((__tmp51582 + (__tmp51903 + (let ((__tmp51904 + (let ((__tmp51905 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51584 + (let ((__tmp51907 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51583 + (__tmp51906 (let () (declare (not safe)) (cons _g2101321025_ '())))) (declare (not safe)) - (cons __tmp51584 __tmp51583)))) + (cons __tmp51907 __tmp51906)))) (declare (not safe)) - (cons __tmp51582 '())))) + (cons __tmp51905 '())))) (declare (not safe)) - (cons ':: __tmp51581)))) + (cons ':: __tmp51904)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51585 __tmp51580)))) + (cons __tmp51908 __tmp51903)))) (declare (not safe)) - (cons __tmp51588 __tmp51579)))) + (cons __tmp51911 __tmp51902)))) (declare (not safe)) - (cons __tmp51578 _g2101521030_))) - '() - _L19937_ - _L19794_)) - _L19720_ - _L19578_)))) + (cons __tmp51901 _g2101521030_))))) + (declare (not safe)) + (foldr2 __tmp51900 '() _L19937_ _L19794_))))) + (declare (not safe)) + (foldr2 __tmp51912 __tmp51899 _L19720_ _L19578_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51589 __tmp51566)))) + (cons __tmp51924 __tmp51898)))) (declare (not safe)) - (_g2083621007_ __tmp51565)))) + (_g2083621007_ __tmp51897)))) _g2081020821_))) - (__tmp51590 - (let ((__tmp51614 (gx#datum->syntax '#f '@list)) - (__tmp51591 + (__tmp51925 + (let ((__tmp51952 (gx#datum->syntax '#f '@list)) + (__tmp51926 (begin (gx#syntax-check-splice-targets _L19649_ _L19578_) - (foldr (lambda (_g2103621043_ + (let ((__tmp51940 + (lambda (_g2103621043_ _g2103721046_ _g2103821048_) - (let ((__tmp51592 - (let ((__tmp51602 + (let ((__tmp51941 + (let ((__tmp51951 (gx#datum->syntax '#f '@list)) - (__tmp51593 - (let ((__tmp51599 + (__tmp51942 + (let ((__tmp51948 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51601 (gx#datum->syntax '#f 'quote)) - (__tmp51600 + (let ((__tmp51950 (gx#datum->syntax '#f 'quote)) + (__tmp51949 (let () (declare (not safe)) (cons _g2103721046_ '())))) (declare (not safe)) - (cons __tmp51601 __tmp51600))) - (__tmp51594 - (let ((__tmp51595 - (let ((__tmp51596 - (let ((__tmp51598 + (cons __tmp51950 __tmp51949))) + (__tmp51943 + (let ((__tmp51944 + (let ((__tmp51945 + (let ((__tmp51947 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51597 + (__tmp51946 (let () (declare (not safe)) (cons _g2103621043_ '())))) (declare (not safe)) - (cons __tmp51598 __tmp51597)))) + (cons __tmp51947 __tmp51946)))) (declare (not safe)) - (cons __tmp51596 '())))) + (cons __tmp51945 '())))) (declare (not safe)) - (cons ':: __tmp51595)))) + (cons ':: __tmp51944)))) (declare (not safe)) - (cons __tmp51599 __tmp51594)))) + (cons __tmp51948 __tmp51943)))) (declare (not safe)) - (cons __tmp51602 __tmp51593)))) + (cons __tmp51951 __tmp51942)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51592 - _g2103821048_))) + (cons __tmp51941 + _g2103821048_)))) + (__tmp51927 (begin (gx#syntax-check-splice-targets _L19866_ _L19794_) - (foldr (lambda (_g2103921051_ + (let ((__tmp51928 + (lambda (_g2103921051_ _g2104021054_ _g2104121056_) - (let ((__tmp51603 - (let ((__tmp51613 + (let ((__tmp51929 + (let ((__tmp51939 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51604 - (let ((__tmp51610 - (let ((__tmp51612 + (__tmp51930 + (let ((__tmp51936 + (let ((__tmp51938 (gx#datum->syntax '#f 'quote)) - (__tmp51611 + (__tmp51937 (let () (declare (not safe)) (cons _g2104021054_ '())))) (declare (not safe)) - (cons __tmp51612 __tmp51611))) - (__tmp51605 - (let ((__tmp51606 - (let ((__tmp51607 - (let ((__tmp51609 + (cons __tmp51938 __tmp51937))) + (__tmp51931 + (let ((__tmp51932 + (let ((__tmp51933 + (let ((__tmp51935 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51608 + (__tmp51934 (let () (declare (not safe)) @@ -1908,67 +1924,72 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp51609 __tmp51608)))) + (cons __tmp51935 __tmp51934)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51607 '())))) + (cons __tmp51933 '())))) (declare (not safe)) - (cons ':: __tmp51606)))) + (cons ':: __tmp51932)))) (declare (not safe)) - (cons __tmp51610 __tmp51605)))) + (cons __tmp51936 __tmp51931)))) (declare (not safe)) - (cons __tmp51613 __tmp51604)))) + (cons __tmp51939 __tmp51930)))) (declare (not safe)) - (cons __tmp51603 _g2104121056_))) - '() - _L19866_ - _L19794_)) + (cons __tmp51929 _g2104121056_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _L19649_ - _L19578_)))) + (declare (not safe)) + (foldr2 __tmp51928 + '() + _L19866_ + _L19794_))))) + (declare (not safe)) + (foldr2 __tmp51940 + __tmp51927 + _L19649_ + _L19578_))))) (declare (not safe)) - (cons __tmp51614 __tmp51591)))) + (cons __tmp51952 __tmp51926)))) (declare (not safe)) - (_g2080821033_ __tmp51590)))) + (_g2080821033_ __tmp51925)))) _g2078220793_))) - (__tmp51615 - (let ((__tmp51617 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51616 + (__tmp51953 + (let ((__tmp51955 (gx#datum->syntax '#f 'quote-syntax)) + (__tmp51954 (let () (declare (not safe)) (cons _L19483_ '())))) (declare (not safe)) - (cons __tmp51617 __tmp51616)))) + (cons __tmp51955 __tmp51954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2078021059_ __tmp51615)))) + (_g2078021059_ __tmp51953)))) _g2075420765_))) - (__tmp51618 - (let ((__tmp51620 + (__tmp51956 + (let ((__tmp51958 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51619 + (__tmp51957 (let () (declare (not safe)) (cons _L19455_ '())))) (declare (not safe)) - (cons __tmp51620 __tmp51619)))) + (cons __tmp51958 __tmp51957)))) (declare (not safe)) - (_g2075221063_ __tmp51618)))) + (_g2075221063_ __tmp51956)))) _g2072620737_))) - (__tmp51621 - (let ((__tmp51623 + (__tmp51959 + (let ((__tmp51961 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51622 + (__tmp51960 (let () (declare (not safe)) (cons _L19427_ '())))) (declare (not safe)) - (cons __tmp51623 __tmp51622)))) + (cons __tmp51961 __tmp51960)))) (declare (not safe)) - (_g2072421067_ __tmp51621)))) + (_g2072421067_ __tmp51959)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2069820709_))) - (__tmp51624 + (__tmp51962 (if (let () (declare (not safe)) (null? _type-constructor20298_)) @@ -2015,13 +2036,13 @@ _tl2108221118_) ((lambda (_L21121_) (let () - (let ((__tmp51626 + (let ((__tmp51964 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51625 + (__tmp51963 (let () (declare (not safe)) (cons _L21121_ '())))) (declare (not safe)) - (cons __tmp51626 __tmp51625)))) + (cons __tmp51964 __tmp51963)))) _hd2108321115_) (let () (declare (not safe)) (_g2107521090_ _g2107621094_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2041,9 +2062,9 @@ (_g2107421138_ _type-constructor20298_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2069621071_ __tmp51624)))) + (_g2069621071_ __tmp51962)))) _g2067020681_))) - (__tmp51627 + (__tmp51965 (if _metaclass20383_ (let* ((_g2114621154_ (lambda (_g2114721150_) @@ -2055,25 +2076,25 @@ (lambda (_g2114721158_) ((lambda (_L21161_) (let () - (let ((__tmp51629 + (let ((__tmp51967 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51628 + (__tmp51966 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21161_ '())))) (declare (not safe)) - (cons __tmp51629 __tmp51628)))) + (cons __tmp51967 __tmp51966)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2114721158_)))) (declare (not safe)) (_g2114521173_ _metaclass20383_)) '#f))) (declare (not safe)) - (_g2066821142_ __tmp51627)))) + (_g2066821142_ __tmp51965)))) _g2064220653_)))) (declare (not safe)) (_g2064021177_ _final?20389_)))) @@ -2082,26 +2103,29 @@ (declare (not safe)) (_g2061221181_ _struct?19378_)))) _g2058620597_))) - (__tmp51630 - (let ((__tmp51633 (gx#datum->syntax '#f 'quote)) - (__tmp51631 - (let ((__tmp51632 - (foldr (lambda (_g2118821191_ + (__tmp51968 + (let ((__tmp51972 (gx#datum->syntax '#f 'quote)) + (__tmp51969 + (let ((__tmp51970 + (let ((__tmp51971 + (lambda (_g2118821191_ _g2118921194_) (let () (declare (not safe)) (cons _g2118821191_ - _g2118921194_))) - '() - _L19578_))) + _g2118921194_))))) + (declare (not safe)) + (foldr1 __tmp51971 + '() + _L19578_)))) (declare (not safe)) - (cons __tmp51632 '())))) + (cons __tmp51970 '())))) (declare (not safe)) - (cons __tmp51633 __tmp51631)))) + (cons __tmp51972 __tmp51969)))) (declare (not safe)) - (_g2058421185_ __tmp51630)))) + (_g2058421185_ __tmp51968)))) _g2055820569_))) - (__tmp51634 + (__tmp51973 (let* ((_g2120121218_ (lambda (_g2120221214_) (gx#raise-syntax-error @@ -2111,28 +2135,28 @@ (_g2120021279_ (lambda (_g2120221222_) (if (gx#stx-pair/null? _g2120221222_) - (let ((_g51635_ + (let ((_g51974_ (gx#syntax-split-splice _g2120221222_ '0))) (begin - (let ((_g51636_ + (let ((_g51975_ (let () (declare (not safe)) - (if (##values? _g51635_) - (##vector-length _g51635_) + (if (##values? _g51974_) + (##vector-length _g51974_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51636_ 2))) + (##fx= _g51975_ 2))) (error "Context expects 2 values" - _g51636_))) + _g51975_))) (let ((_target2120421225_ (let () (declare (not safe)) - (##vector-ref _g51635_ 0))) + (##vector-ref _g51974_ 0))) (_tl2120621228_ (let () (declare (not safe)) - (##vector-ref _g51635_ 1)))) + (##vector-ref _g51974_ 1)))) (if (gx#stx-null? _tl2120621228_) (letrec ((_loop2120721231_ (lambda (_hd2120521235_ @@ -2149,36 +2173,37 @@ (##car _e2120821241_))) (_lp-tl2121021248_ (let () (declare (not safe)) (##cdr _e2120821241_)))) - (let ((__tmp51642 + (let ((__tmp51982 (let () (declare (not safe)) (cons _lp-hd2120921245_ _super-id2121121238_)))) (declare (not safe)) - (_loop2120721231_ _lp-tl2121021248_ __tmp51642)))) + (_loop2120721231_ _lp-tl2121021248_ __tmp51982)))) (let ((_super-id2121221251_ (reverse _super-id2121121238_))) ((lambda (_L21255_) (let () - (let ((__tmp51641 (gx#datum->syntax '#f '@list)) - (__tmp51637 - (foldr (lambda (_g2127021273_ _g2127121276_) - (let ((__tmp51638 - (let ((__tmp51640 + (let ((__tmp51981 (gx#datum->syntax '#f '@list)) + (__tmp51976 + (let ((__tmp51977 + (lambda (_g2127021273_ _g2127121276_) + (let ((__tmp51978 + (let ((__tmp51980 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51639 + (__tmp51979 (let () (declare (not safe)) (cons _g2127021273_ '())))) (declare (not safe)) - (cons __tmp51640 __tmp51639)))) + (cons __tmp51980 __tmp51979)))) (declare (not safe)) - (cons __tmp51638 _g2127121276_))) - '() - _L21255_))) + (cons __tmp51978 _g2127121276_))))) + (declare (not safe)) + (foldr1 __tmp51977 '() _L21255_)))) (declare (not safe)) - (cons __tmp51641 __tmp51637)))) + (cons __tmp51981 __tmp51976)))) _super-id2121221251_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2196,9 +2221,9 @@ (_g2120021279_ _super-ref19362_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2055621197_ __tmp51634)))) + (_g2055621197_ __tmp51973)))) _g2053020541_))) - (__tmp51643 + (__tmp51983 (let* ((_g2128721295_ (lambda (_g2128821291_) (gx#raise-syntax-error @@ -2209,28 +2234,28 @@ (lambda (_g2128821299_) ((lambda (_L21302_) (let () - (let ((__tmp51645 + (let ((__tmp51985 (gx#datum->syntax '#f 'quote)) - (__tmp51644 + (__tmp51984 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21302_ '())))) (declare (not safe)) - (cons __tmp51645 __tmp51644)))) + (cons __tmp51985 __tmp51984)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2128821299_))) - (__tmp51646 + (__tmp51986 (cadr _type-name20276_))) (declare (not safe)) - (_g2128621314_ __tmp51646)))) + (_g2128621314_ __tmp51986)))) (declare (not safe)) - (_g2052821283_ __tmp51643)))) + (_g2052821283_ __tmp51983)))) _g2050220513_))) - (__tmp51647 + (__tmp51987 (let* ((_g2132221337_ (lambda (_g2132321333_) (gx#raise-syntax-error @@ -2271,13 +2296,13 @@ (if (gx#stx-null? _tl2132921365_) ((lambda (_L21368_) (let () - (let ((__tmp51649 (gx#datum->syntax '#f 'quote)) - (__tmp51648 + (let ((__tmp51989 (gx#datum->syntax '#f 'quote)) + (__tmp51988 (let () (declare (not safe)) (cons _L21368_ '())))) (declare (not safe)) - (cons __tmp51649 __tmp51648)))) + (cons __tmp51989 __tmp51988)))) _hd2133021362_) (let () (declare (not safe)) @@ -2298,45 +2323,46 @@ (declare (not safe)) (_g2132121385_ _type-id20283_)))) (declare (not safe)) - (_g2050021318_ __tmp51647)))) + (_g2050021318_ __tmp51987)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2047420485_))) - (__tmp51650 - (let ((__tmp51651 - (let ((__tmp51657 + (__tmp51990 + (let ((__tmp51991 + (let ((__tmp51998 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defclass-type)) - (__tmp51652 - (let ((__tmp51653 - (let ((__tmp51654 - (let ((__tmp51655 - (let ((__tmp51656 - (foldr (lambda (_g2139221395_ + (__tmp51992 + (let ((__tmp51993 + (let ((__tmp51994 + (let ((__tmp51995 + (let ((__tmp51996 + (let ((__tmp51997 + (lambda (_g2139221395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2139321398_) (let () (declare (not safe)) - (cons _g2139221395_ _g2139321398_))) - '() - _L20452_))) + (cons _g2139221395_ _g2139321398_))))) + (declare (not safe)) + (foldr1 __tmp51997 '() _L20452_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19483_ __tmp51656)))) + (cons _L19483_ __tmp51996)))) (declare (not safe)) - (cons _L19455_ __tmp51655)))) + (cons _L19455_ __tmp51995)))) (declare (not safe)) - (cons _L19511_ __tmp51654)))) + (cons _L19511_ __tmp51994)))) (declare (not safe)) - (cons _L19427_ __tmp51653)))) + (cons _L19427_ __tmp51993)))) (declare (not safe)) - (cons __tmp51657 __tmp51652)))) + (cons __tmp51998 __tmp51992)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19366_ __tmp51651)))) + (_wrap19366_ __tmp51991)))) (declare (not safe)) - (_g2047221389_ __tmp51650)))) + (_g2047221389_ __tmp51990)))) _type-body2040920448_)))))) (let () (declare (not safe)) @@ -2349,28 +2375,45 @@ (declare (not safe)) (_g2039820415_ _g2039920419_))))) - (__tmp51659 - (foldr cons - (foldr cons - (foldr cons - (foldr cons + (__tmp52000 + (let ((__tmp52001 + (let ((__tmp52002 + (let ((__tmp52003 + (let ((__tmp52004 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr cons - (foldr cons - (foldr cons - (foldr cons - _type-mixin-slots20269_ - _type-slots20252_) - _type-properties20373_) - _type-metaclass20386_) - _type-final20395_) - _type-struct20392_) - _type-constructor20298_) - _type-name20276_) + (let ((__tmp52005 + (let ((__tmp52006 + (let ((__tmp52007 + (let () + (declare (not safe)) + (foldr1 cons + _type-mixin-slots20269_ + _type-slots20252_)))) + (declare (not safe)) + (foldr1 cons + __tmp52007 + _type-properties20373_)))) + (declare (not safe)) + (foldr1 cons + __tmp52006 + _type-metaclass20386_)))) + (declare (not safe)) + (foldr1 cons __tmp52005 _type-final20395_)))) + (declare (not safe)) + (foldr1 cons __tmp52004 _type-struct20392_)))) + (declare (not safe)) + (foldr1 cons __tmp52003 _type-constructor20298_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _type-id20283_))) + (declare (not safe)) + (foldr1 cons + __tmp52002 + _type-name20276_)))) + (declare (not safe)) + (foldr1 cons + __tmp52001 + _type-id20283_)))) (declare (not safe)) - (_g2039721401_ __tmp51659)))) + (_g2039721401_ __tmp52000)))) _mixin-usetf2017820217_)))))) (let () (declare (not safe)) @@ -2383,20 +2426,21 @@ (let () (declare (not safe)) (_g2016720184_ _g2016820188_))))) - (__tmp51661 + (__tmp52009 (gx#stx-map (lambda (_g2140821410_) (_make-id19368_ '"&" _g2140821410_)) - (foldr (lambda (_g2141321416_ + (let ((__tmp52010 + (lambda (_g2141321416_ _g2141421419_) (let () (declare (not safe)) (cons _g2141321416_ - _g2141421419_))) - '() - _L19937_)))) + _g2141421419_))))) + (declare (not safe)) + (foldr1 __tmp52010 '() _L19937_))))) (declare (not safe)) - (_g2016621405_ __tmp51661)))) + (_g2016621405_ __tmp52009)))) _mixin-ugetf2010720146_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2411,18 +2455,19 @@ (let () (declare (not safe)) (_g2009620113_ _g2009720117_))))) - (__tmp51663 + (__tmp52012 (gx#stx-map (lambda (_g2142521427_) (_make-id19368_ '"&" _g2142521427_)) - (foldr (lambda (_g2143021433_ _g2143121436_) + (let ((__tmp52013 + (lambda (_g2143021433_ _g2143121436_) (let () (declare (not safe)) - (cons _g2143021433_ _g2143121436_))) - '() - _L19866_)))) + (cons _g2143021433_ _g2143121436_))))) + (declare (not safe)) + (foldr1 __tmp52013 '() _L19866_))))) (declare (not safe)) - (_g2009521422_ __tmp51663)))) + (_g2009521422_ __tmp52012)))) _usetf2003620075_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2436,18 +2481,19 @@ (let () (declare (not safe)) (_g2002520042_ _g2002620046_))))) - (__tmp51665 + (__tmp52015 (gx#stx-map (lambda (_g2144221444_) (_make-id19368_ '"&" _g2144221444_)) - (foldr (lambda (_g2144721450_ _g2144821453_) + (let ((__tmp52016 + (lambda (_g2144721450_ _g2144821453_) (let () (declare (not safe)) - (cons _g2144721450_ _g2144821453_))) - '() - _L19720_)))) + (cons _g2144721450_ _g2144821453_))))) + (declare (not safe)) + (foldr1 __tmp52016 '() _L19720_))))) (declare (not safe)) - (_g2002421439_ __tmp51665)))) + (_g2002421439_ __tmp52015)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _ugetf1996520004_)))))) (let () @@ -2459,18 +2505,19 @@ (let () (declare (not safe)) (_g1995419971_ _g1995519975_))))) - (__tmp51667 + (__tmp52018 (gx#stx-map (lambda (_g2145921461_) (_make-id19368_ '"&" _g2145921461_)) - (foldr (lambda (_g2146421467_ _g2146521470_) + (let ((__tmp52019 + (lambda (_g2146421467_ _g2146521470_) (let () (declare (not safe)) - (cons _g2146421467_ _g2146521470_))) - '() - _L19649_)))) + (cons _g2146421467_ _g2146521470_))))) + (declare (not safe)) + (foldr1 __tmp52019 '() _L19649_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1995321456_ __tmp51667)))) + (_g1995321456_ __tmp52018)))) _mixin-setf1989419933_)))))) (let () (declare (not safe)) @@ -2480,7 +2527,7 @@ (_g1988319900_ _g1988419904_)))))) (let () (declare (not safe)) (_g1988319900_ _g1988419904_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51669 + (__tmp52021 (gx#stx-map (lambda (_g2147621478_) (_make-id19368_ @@ -2490,7 +2537,7 @@ '"-set!")) _mixin-slots19737_))) (declare (not safe)) - (_g1988221473_ __tmp51669)))) + (_g1988221473_ __tmp52021)))) _mixin-getf1982319862_)))))) (let () (declare (not safe)) @@ -2503,7 +2550,7 @@ (declare (not safe)) (_g1981219829_ _g1981319833_))))) - (__tmp51671 + (__tmp52023 (gx#stx-map (lambda (_g2148521487_) (_make-id19368_ @@ -2512,7 +2559,7 @@ _g2148521487_)) _mixin-slots19737_))) (declare (not safe)) - (_g1981121482_ __tmp51671)))) + (_g1981121482_ __tmp52023)))) _mixin-slot1975119790_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2542,7 +2589,7 @@ (let () (declare (not safe)) (_g1966619683_ _g1966719687_))))) - (__tmp51674 + (__tmp52026 (gx#stx-map (lambda (_g2149821500_) (_make-id19368_ @@ -2552,7 +2599,7 @@ '"-set!")) _slots19363_))) (declare (not safe)) - (_g1966521495_ __tmp51674)))) + (_g1966521495_ __tmp52026)))) _getf1960619645_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2566,13 +2613,13 @@ (let () (declare (not safe)) (_g1959519612_ _g1959619616_))))) - (__tmp51676 + (__tmp52028 (gx#stx-map (lambda (_g2150721509_) (_make-id19368_ _name19372_ '"-" _g2150721509_)) _slots19363_))) (declare (not safe)) - (_g1959421504_ __tmp51676)))) + (_g1959421504_ __tmp52028)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _slot1953519574_)))))) (let () @@ -2588,28 +2635,28 @@ (declare (not safe)) (_g1952321513_ _slots19363_)))) _g1949719508_))) - (__tmp51678 + (__tmp52030 (map gerbil/core$<MOP>$<MOP:2>#!class-type-descriptor _super19375_))) (declare (not safe)) - (_g1949521517_ __tmp51678)))) + (_g1949521517_ __tmp52030)))) _g1946919480_))) - (__tmp51679 (_make-id19368_ _name19372_ '"?"))) + (__tmp52031 (_make-id19368_ _name19372_ '"?"))) (declare (not safe)) - (_g1946721521_ __tmp51679)))) + (_g1946721521_ __tmp52031)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1944119452_))) - (__tmp51680 + (__tmp52032 (_make-id19368_ '"make-" _name19372_))) (declare (not safe)) - (_g1943921525_ __tmp51680)))) + (_g1943921525_ __tmp52032)))) _g1941319424_))) - (__tmp51681 + (__tmp52033 (_make-id19368_ _name19372_ '"::t"))) (declare (not safe)) - (_g1941121529_ __tmp51681)))) + (_g1941121529_ __tmp52033)))) _g1938219393_)))) (declare (not safe)) (_g1938021533_ _id19361_))))) @@ -2656,27 +2703,27 @@ (declare (not safe)) (##cdr _e2161421647_)))) ((lambda (_L21657_ _L21659_ _L21660_) - (let ((__tmp51686 + (let ((__tmp52038 (gx#datum->syntax '#f 'defclass)) - (__tmp51682 - (let ((__tmp51683 - (let ((__tmp51684 + (__tmp52034 + (let ((__tmp52035 + (let ((__tmp52036 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51685 + (let ((__tmp52037 (let () (declare (not safe)) (cons '#t _L21657_)))) (declare (not safe)) - (cons 'struct: __tmp51685)))) + (cons 'struct: __tmp52037)))) (declare (not safe)) - (cons _L21659_ __tmp51684)))) + (cons _L21659_ __tmp52036)))) (declare (not safe)) - (cons _L21660_ __tmp51683)))) + (cons _L21660_ __tmp52035)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51686 __tmp51682))) + (cons __tmp52038 __tmp52034))) _tl2161221654_ _hd2161321651_ _hd2161021641_))) @@ -2697,12 +2744,12 @@ ___stx4659246593_)))) (let ((___kont4659546596_ (lambda (_L21814_ _L21816_) - (let ((__tmp51687 (gx#syntax->list _L21814_))) + (let ((__tmp52039 (gx#syntax->list _L21814_))) (declare (not safe)) (|gerbil/core$<MOP>$<MOP:4>[1]#generate-defclass| _stx21681_ _L21816_ - __tmp51687 + __tmp52039 _slots21770_ _body21771_)))) (___kont4659746598_ @@ -2862,7 +2909,7 @@ (##cdr _e2185421896_)))) (if (gx#identifier? _hd2185321900_) (if (gx#free-identifier=? - |gerbil/core$<MOP>$<MOP:4>[1]#_g51738_| + |gerbil/core$<MOP>$<MOP:4>[1]#_g52090_| _hd2185321900_) (if (gx#stx-pair? _tl2185221903_) @@ -2980,166 +3027,166 @@ (let () (let () (_wrap21836_ - (let ((__tmp51692 + (let ((__tmp52044 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp51690 - (let ((__tmp51691 + (__tmp52042 + (let ((__tmp52043 (let () (declare (not safe)) (cons _L22127_ '())))) (declare (not safe)) - (cons _L22071_ __tmp51691)))) + (cons _L22071_ __tmp52043)))) (declare (not safe)) - (cons __tmp51692 __tmp51690)))))) + (cons __tmp52044 __tmp52042)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2211322124_)))) (_g2211122142_ (_wrap21836_ - (let ((__tmp51700 + (let ((__tmp52052 (gx#datum->syntax '#f 'bind-method!)) - (__tmp51693 - (let ((__tmp51694 - (let ((__tmp51697 + (__tmp52045 + (let ((__tmp52046 + (let ((__tmp52049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51699 (gx#datum->syntax '#f 'quote)) - (__tmp51698 + (let ((__tmp52051 (gx#datum->syntax '#f 'quote)) + (__tmp52050 (let () (declare (not safe)) (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp51699 __tmp51698))) - (__tmp51695 - (let ((__tmp51696 + (cons __tmp52051 __tmp52050))) + (__tmp52047 + (let ((__tmp52048 (let () (declare (not safe)) (cons _L22099_ '())))) (declare (not safe)) - (cons _L22015_ __tmp51696)))) + (cons _L22015_ __tmp52048)))) (declare (not safe)) - (cons __tmp51697 __tmp51695)))) + (cons __tmp52049 __tmp52047)))) (declare (not safe)) - (cons _L21986_ __tmp51694)))) + (cons _L21986_ __tmp52046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51700 - __tmp51693))))))) + (cons __tmp52052 + __tmp52045))))))) _g2208522096_)))) (_g2208322146_ _rebind?21968_)))) _g2205722068_)))) (_g2205522150_ (_wrap21836_ - (let ((__tmp51737 (gx#datum->syntax '#f 'def)) - (__tmp51701 - (let ((__tmp51702 - (let ((__tmp51703 - (let ((__tmp51736 + (let ((__tmp52089 (gx#datum->syntax '#f 'def)) + (__tmp52053 + (let ((__tmp52054 + (let ((__tmp52055 + (let ((__tmp52088 (gx#datum->syntax '#f 'let-syntax)) - (__tmp51704 - (let ((__tmp51706 - (let ((__tmp51707 - (let ((__tmp51708 + (__tmp52056 + (let ((__tmp52058 + (let ((__tmp52059 + (let ((__tmp52060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51709 - (let ((__tmp51735 + (let ((__tmp52061 + (let ((__tmp52087 (gx#datum->syntax '#f 'syntax-rules)) - (__tmp51710 - (let ((__tmp51711 - (let ((__tmp51712 - (let ((__tmp51727 - (let ((__tmp51734 + (__tmp52062 + (let ((__tmp52063 + (let ((__tmp52064 + (let ((__tmp52079 + (let ((__tmp52086 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp51728 - (let ((__tmp51733 (gx#datum->syntax '#f 'obj)) - (__tmp51729 - (let ((__tmp51732 + (__tmp52080 + (let ((__tmp52085 (gx#datum->syntax '#f 'obj)) + (__tmp52081 + (let ((__tmp52084 (gx#datum->syntax '#f 'arg)) - (__tmp51730 - (let ((__tmp51731 + (__tmp52082 + (let ((__tmp52083 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp51731 '())))) + (cons __tmp52083 '())))) (declare (not safe)) - (cons __tmp51732 __tmp51730)))) + (cons __tmp52084 __tmp52082)))) (declare (not safe)) - (cons __tmp51733 __tmp51729)))) + (cons __tmp52085 __tmp52081)))) (declare (not safe)) - (cons __tmp51734 __tmp51728))) - (__tmp51713 - (let ((__tmp51714 - (let ((__tmp51726 + (cons __tmp52086 __tmp52080))) + (__tmp52065 + (let ((__tmp52066 + (let ((__tmp52078 (gx#datum->syntax '#f 'call-next-method)) - (__tmp51715 - (let ((__tmp51716 - (let ((__tmp51725 + (__tmp52067 + (let ((__tmp52068 + (let ((__tmp52077 (gx#datum->syntax '#f 'obj)) - (__tmp51717 - (let ((__tmp51722 - (let ((__tmp51724 + (__tmp52069 + (let ((__tmp52074 + (let ((__tmp52076 (gx#datum->syntax '#f 'quote)) - (__tmp51723 + (__tmp52075 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp51724 __tmp51723))) - (__tmp51718 - (let ((__tmp51721 (gx#datum->syntax '#f 'arg)) - (__tmp51719 - (let ((__tmp51720 (gx#datum->syntax '#f '...))) + (cons __tmp52076 __tmp52075))) + (__tmp52070 + (let ((__tmp52073 (gx#datum->syntax '#f 'arg)) + (__tmp52071 + (let ((__tmp52072 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp51720 '())))) + (cons __tmp52072 '())))) (declare (not safe)) - (cons __tmp51721 __tmp51719)))) + (cons __tmp52073 __tmp52071)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51722 - __tmp51718)))) + (cons __tmp52074 + __tmp52070)))) (declare (not safe)) - (cons __tmp51725 __tmp51717)))) + (cons __tmp52077 __tmp52069)))) (declare (not safe)) - (cons _L21986_ __tmp51716)))) + (cons _L21986_ __tmp52068)))) (declare (not safe)) - (cons __tmp51726 __tmp51715)))) + (cons __tmp52078 __tmp52067)))) (declare (not safe)) - (cons __tmp51714 '())))) + (cons __tmp52066 '())))) (declare (not safe)) - (cons __tmp51727 __tmp51713)))) + (cons __tmp52079 __tmp52065)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51712 '())))) + (cons __tmp52064 '())))) (declare (not safe)) - (cons '() __tmp51711)))) + (cons '() __tmp52063)))) (declare (not safe)) - (cons __tmp51735 __tmp51710)))) + (cons __tmp52087 __tmp52062)))) (declare (not safe)) - (cons __tmp51709 '())))) + (cons __tmp52061 '())))) (declare (not safe)) - (cons _L22043_ __tmp51708)))) + (cons _L22043_ __tmp52060)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51707 '()))) - (__tmp51705 + (cons __tmp52059 '()))) + (__tmp52057 (let () (declare (not safe)) (cons _L21938_ '())))) (declare (not safe)) - (cons __tmp51706 __tmp51705)))) + (cons __tmp52058 __tmp52057)))) (declare (not safe)) - (cons __tmp51736 __tmp51704)))) + (cons __tmp52088 __tmp52056)))) (declare (not safe)) - (cons __tmp51703 '())))) + (cons __tmp52055 '())))) (declare (not safe)) - (cons _L22015_ __tmp51702)))) + (cons _L22015_ __tmp52054)))) (declare (not safe)) - (cons __tmp51737 __tmp51701))))))) + (cons __tmp52089 __tmp52053))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2202922040_)))) (_g2202722154_ @@ -3174,17 +3221,17 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49631 'type-descriptor))))) - (if (let ((__tmp51689 + (if (let ((__tmp52041 (gx#identifier? _L21940_))) (declare (not safe)) - (not __tmp51689)) + (not __tmp52041)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" _stx21833_ _L21940_) - (if (let ((__tmp51688 + (if (let ((__tmp52040 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3192,7 +3239,7 @@ (gerbil/core$<MOP>$<MOP:2>#syntax-local-class-type-info?__0 _L21939_)))) (declare (not safe)) - (not __tmp51688)) + (not __tmp52040)) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" @@ -3227,9 +3274,13 @@ (if (gx#identifier? _id22812_) (let ((_id-str22815_ (symbol->string (gx#stx-e _id22812_)))) - (if (string-index _id-str22815_ '#\.) + (if (let () + (declare (not safe)) + (string-index__0 _id-str22815_ '#\.)) (let ((_split22818_ - (string-split _id-str22815_ '#\.))) + (let () + (declare (not safe)) + (string-split _id-str22815_ '#\.)))) (fx= (length _split22818_) '2)) '#f)) '#f))) @@ -3237,18 +3288,21 @@ (lambda (_id22801_) (let* ((_id-str22804_ (symbol->string (gx#stx-e _id22801_))) - (_split22807_ (string-split _id-str22804_ '#\.))) - (let ((__tmp51741 + (_split22807_ + (let () + (declare (not safe)) + (string-split _id-str22804_ '#\.)))) + (let ((__tmp52093 (gx#stx-identifier _id22801_ (car _split22807_))) - (__tmp51739 - (let ((__tmp51740 + (__tmp52091 + (let ((__tmp52092 (gx#stx-identifier _id22801_ (cadr _split22807_)))) (declare (not safe)) - (cons __tmp51740 '())))) + (cons __tmp52092 '())))) (declare (not safe)) - (cons __tmp51741 __tmp51739)))))) + (cons __tmp52093 __tmp52091)))))) (let* ((___stx4660846609_ _stx22176_) (_g2218622273_ (lambda () @@ -3293,56 +3347,56 @@ _tl2273222764_) ((lambda (_L22767_ _L22769_) (let () - (let ((__tmp51753 + (let ((__tmp52106 (gx#datum->syntax '#f 'apply)) - (__tmp51742 - (let ((__tmp51752 + (__tmp52094 + (let ((__tmp52105 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'call-method)) - (__tmp51743 - (let ((__tmp51744 - (let ((__tmp51749 - (let ((__tmp51751 + (__tmp52095 + (let ((__tmp52096 + (let ((__tmp52102 + (let ((__tmp52104 (gx#datum->syntax '#f 'quote)) - (__tmp51750 + (__tmp52103 (let () (declare (not safe)) (cons _L22767_ '())))) (declare (not safe)) - (cons __tmp51751 __tmp51750))) - (__tmp51745 - (let ((__tmp51746 - (let ((__tmp51748 + (cons __tmp52104 __tmp52103))) + (__tmp52097 + (let ((__tmp52098 + (let ((__tmp52101 (gx#datum->syntax '#f '@list)) - (__tmp51747 - (foldr (lambda (_g2278422787_ + (__tmp52099 + (let ((__tmp52100 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2278522790_) + (lambda (_g2278422787_ _g2278522790_) (let () (declare (not safe)) - (cons _g2278422787_ _g2278522790_))) - '() - _L22696_))) + (cons _g2278422787_ _g2278522790_))))) + (declare (not safe)) + (foldr1 __tmp52100 '() _L22696_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51748 - __tmp51747)))) + (cons __tmp52101 + __tmp52099)))) (declare (not safe)) - (cons __tmp51746 '())))) + (cons __tmp52098 '())))) (declare (not safe)) - (cons __tmp51749 __tmp51745)))) + (cons __tmp52102 __tmp52097)))) (declare (not safe)) - (cons _L22769_ __tmp51744)))) + (cons _L22769_ __tmp52096)))) (declare (not safe)) - (cons __tmp51752 __tmp51743)))) + (cons __tmp52105 __tmp52095)))) (declare (not safe)) - (cons __tmp51753 __tmp51742)))) + (cons __tmp52106 __tmp52094)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2273322761_ _hd2273022751_) @@ -3388,37 +3442,38 @@ _tl2256222594_) ((lambda (_L22597_ _L22599_) (let () - (let ((__tmp51760 + (let ((__tmp52114 (gx#datum->syntax '#f 'call-method)) - (__tmp51754 - (let ((__tmp51755 + (__tmp52107 + (let ((__tmp52108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51757 - (let ((__tmp51759 + (let ((__tmp52111 + (let ((__tmp52113 (gx#datum->syntax '#f 'quote)) - (__tmp51758 + (__tmp52112 (let () (declare (not safe)) (cons _L22597_ '())))) (declare (not safe)) - (cons __tmp51759 __tmp51758))) - (__tmp51756 - (foldr (lambda (_g2261422617_ + (cons __tmp52113 __tmp52112))) + (__tmp52109 + (let ((__tmp52110 + (lambda (_g2261422617_ _g2261522620_) (let () (declare (not safe)) (cons _g2261422617_ - _g2261522620_))) - '() - _L22536_))) + _g2261522620_))))) + (declare (not safe)) + (foldr1 __tmp52110 '() _L22536_)))) (declare (not safe)) - (cons __tmp51757 __tmp51756)))) + (cons __tmp52111 __tmp52109)))) (declare (not safe)) - (cons _L22599_ __tmp51755)))) + (cons _L22599_ __tmp52108)))) (declare (not safe)) - (cons __tmp51760 __tmp51754)))) + (cons __tmp52114 __tmp52107)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2256322591_ _hd2256022581_) @@ -3429,82 +3484,83 @@ (_g2255422623_ (_split-dotted22181_ _L22538_))))) (___kont4661946620_ (lambda (_L22440_ _L22442_ _L22443_) - (let ((__tmp51772 (gx#datum->syntax '#f 'apply)) - (__tmp51761 - (let ((__tmp51771 + (let ((__tmp52127 (gx#datum->syntax '#f 'apply)) + (__tmp52115 + (let ((__tmp52126 (gx#datum->syntax '#f 'call-method)) - (__tmp51762 - (let ((__tmp51763 - (let ((__tmp51768 - (let ((__tmp51770 + (__tmp52116 + (let ((__tmp52117 + (let ((__tmp52123 + (let ((__tmp52125 (gx#datum->syntax '#f 'quote)) - (__tmp51769 + (__tmp52124 (let () (declare (not safe)) (cons _L22443_ '())))) (declare (not safe)) - (cons __tmp51770 - __tmp51769))) - (__tmp51764 - (let ((__tmp51765 - (let ((__tmp51767 + (cons __tmp52125 + __tmp52124))) + (__tmp52118 + (let ((__tmp52119 + (let ((__tmp52122 (gx#datum->syntax '#f '@list)) - (__tmp51766 - (foldr (lambda (_g2247022473_ + (__tmp52120 + (let ((__tmp52121 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2247122476_) + (lambda (_g2247022473_ _g2247122476_) (let () (declare (not safe)) - (cons _g2247022473_ _g2247122476_))) - '() - _L22440_))) + (cons _g2247022473_ _g2247122476_))))) + (declare (not safe)) + (foldr1 __tmp52121 '() _L22440_)))) (declare (not safe)) - (cons __tmp51767 __tmp51766)))) + (cons __tmp52122 __tmp52120)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51765 '())))) + (cons __tmp52119 '())))) (declare (not safe)) - (cons __tmp51768 __tmp51764)))) + (cons __tmp52123 __tmp52118)))) (declare (not safe)) - (cons _L22442_ __tmp51763)))) + (cons _L22442_ __tmp52117)))) (declare (not safe)) - (cons __tmp51771 __tmp51762)))) + (cons __tmp52126 __tmp52116)))) (declare (not safe)) - (cons __tmp51772 __tmp51761)))) + (cons __tmp52127 __tmp52115)))) (___kont4662346624_ (lambda (_L22340_ _L22342_ _L22343_) - (let ((__tmp51779 (gx#datum->syntax '#f 'call-method)) - (__tmp51773 - (let ((__tmp51774 - (let ((__tmp51776 - (let ((__tmp51778 + (let ((__tmp52135 (gx#datum->syntax '#f 'call-method)) + (__tmp52128 + (let ((__tmp52129 + (let ((__tmp52132 + (let ((__tmp52134 (gx#datum->syntax '#f 'quote)) - (__tmp51777 + (__tmp52133 (let () (declare (not safe)) (cons _L22343_ '())))) (declare (not safe)) - (cons __tmp51778 __tmp51777))) - (__tmp51775 - (foldr (lambda (_g2236422367_ + (cons __tmp52134 __tmp52133))) + (__tmp52130 + (let ((__tmp52131 + (lambda (_g2236422367_ _g2236522370_) (let () (declare (not safe)) (cons _g2236422367_ - _g2236522370_))) - '() - _L22340_))) + _g2236522370_))))) + (declare (not safe)) + (foldr1 __tmp52131 '() _L22340_)))) (declare (not safe)) - (cons __tmp51776 __tmp51775)))) + (cons __tmp52132 __tmp52130)))) (declare (not safe)) - (cons _L22342_ __tmp51774)))) + (cons _L22342_ __tmp52129)))) (declare (not safe)) - (cons __tmp51779 __tmp51773))))) + (cons __tmp52135 __tmp52128))))) (let* ((___match4672746728_ (lambda (_e2225222280_ _hd2225122284_ @@ -3591,14 +3647,15 @@ (if (and (gx#identifier? _L22443_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_g2246222465_ + (let ((__tmp52136 + (lambda (_g2246222465_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2246322468_) (let () (declare (not safe)) - (cons _g2246222465_ _g2246322468_))) - '() - _L22440_))) + (cons _g2246222465_ _g2246322468_))))) + (declare (not safe)) + (foldr1 __tmp52136 '() _L22440_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4661946620_ _L22440_ @@ -3832,14 +3889,15 @@ _L22697_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_g2271622719_ + (let ((__tmp52137 + (lambda (_g2271622719_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2271722722_) (let () (declare (not safe)) - (cons _g2271622719_ _g2271722722_))) - '() - _L22696_))) + (cons _g2271622719_ _g2271722722_))))) + (declare (not safe)) + (foldr1 __tmp52137 '() _L22696_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4661146612_ _L22694_ @@ -4224,49 +4282,50 @@ ___stx4673046731_)))) (let ((___kont4673346734_ (lambda (_L23008_ _L23010_) - (let ((__tmp51785 (gx#datum->syntax '#f 'slot-ref)) - (__tmp51780 - (let ((__tmp51781 - (let ((__tmp51782 - (let ((__tmp51784 + (let ((__tmp52143 (gx#datum->syntax '#f 'slot-ref)) + (__tmp52138 + (let ((__tmp52139 + (let ((__tmp52140 + (let ((__tmp52142 (gx#datum->syntax '#f 'quote)) - (__tmp51783 + (__tmp52141 (let () (declare (not safe)) (cons _L23008_ '())))) (declare (not safe)) - (cons __tmp51784 __tmp51783)))) + (cons __tmp52142 __tmp52141)))) (declare (not safe)) - (cons __tmp51782 '())))) + (cons __tmp52140 '())))) (declare (not safe)) - (cons _L23010_ __tmp51781)))) + (cons _L23010_ __tmp52139)))) (declare (not safe)) - (cons __tmp51785 __tmp51780)))) + (cons __tmp52143 __tmp52138)))) (___kont4673546736_ (lambda (_L22937_ _L22939_ _L22940_ _L22941_) - (let ((__tmp51786 - (let ((__tmp51788 - (let ((__tmp51789 - (let ((__tmp51790 + (let ((__tmp52144 + (let ((__tmp52147 + (let ((__tmp52148 + (let ((__tmp52149 (let () (declare (not safe)) (cons _L22939_ '())))) (declare (not safe)) - (cons _L22940_ __tmp51790)))) + (cons _L22940_ __tmp52149)))) (declare (not safe)) - (cons _L22941_ __tmp51789))) - (__tmp51787 - (foldr (lambda (_g2296222965_ _g2296322968_) + (cons _L22941_ __tmp52148))) + (__tmp52145 + (let ((__tmp52146 + (lambda (_g2296222965_ _g2296322968_) (let () (declare (not safe)) (cons _g2296222965_ - _g2296322968_))) - '() - _L22937_))) + _g2296322968_))))) + (declare (not safe)) + (foldr1 __tmp52146 '() _L22937_)))) (declare (not safe)) - (cons __tmp51788 __tmp51787)))) + (cons __tmp52147 __tmp52145)))) (declare (not safe)) - (cons _L22941_ __tmp51786))))) + (cons _L22941_ __tmp52144))))) (let* ((___match4678546786_ (lambda (_e2284922877_ _hd2284822881_ @@ -4453,28 +4512,28 @@ ___stx4678846789_)))) (let ((___kont4679146792_ (lambda (_L23263_ _L23265_ _L23266_) - (let ((__tmp51797 (gx#datum->syntax '#f 'slot-set!)) - (__tmp51791 - (let ((__tmp51792 - (let ((__tmp51794 - (let ((__tmp51796 + (let ((__tmp52156 (gx#datum->syntax '#f 'slot-set!)) + (__tmp52150 + (let ((__tmp52151 + (let ((__tmp52153 + (let ((__tmp52155 (gx#datum->syntax '#f 'quote)) - (__tmp51795 + (__tmp52154 (let () (declare (not safe)) (cons _L23265_ '())))) (declare (not safe)) - (cons __tmp51796 __tmp51795))) - (__tmp51793 + (cons __tmp52155 __tmp52154))) + (__tmp52152 (let () (declare (not safe)) (cons _L23263_ '())))) (declare (not safe)) - (cons __tmp51794 __tmp51793)))) + (cons __tmp52153 __tmp52152)))) (declare (not safe)) - (cons _L23266_ __tmp51792)))) + (cons _L23266_ __tmp52151)))) (declare (not safe)) - (cons __tmp51797 __tmp51791)))) + (cons __tmp52156 __tmp52150)))) (___kont4679346794_ (lambda (_L23174_ _L23176_ @@ -4482,38 +4541,39 @@ _L23178_ _L23179_ _L23180_) - (let ((__tmp51798 - (let ((__tmp51801 - (let ((__tmp51805 (gx#datum->syntax '#f '@)) - (__tmp51802 - (let ((__tmp51803 - (let ((__tmp51804 - (foldr (lambda (_g2320723210_ + (let ((__tmp52157 + (let ((__tmp52160 + (let ((__tmp52165 (gx#datum->syntax '#f '@)) + (__tmp52161 + (let ((__tmp52162 + (let ((__tmp52163 + (let ((__tmp52164 + (lambda (_g2320723210_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2320823213_) (let () (declare (not safe)) - (cons _g2320723210_ _g2320823213_))) - '() - _L23177_))) + (cons _g2320723210_ _g2320823213_))))) + (declare (not safe)) + (foldr1 __tmp52164 '() _L23177_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L23178_ __tmp51804)))) + (cons _L23178_ __tmp52163)))) (declare (not safe)) - (cons _L23179_ __tmp51803)))) + (cons _L23179_ __tmp52162)))) (declare (not safe)) - (cons __tmp51805 __tmp51802))) - (__tmp51799 - (let ((__tmp51800 + (cons __tmp52165 __tmp52161))) + (__tmp52158 + (let ((__tmp52159 (let () (declare (not safe)) (cons _L23174_ '())))) (declare (not safe)) - (cons _L23176_ __tmp51800)))) + (cons _L23176_ __tmp52159)))) (declare (not safe)) - (cons __tmp51801 __tmp51799)))) + (cons __tmp52160 __tmp52158)))) (declare (not safe)) - (cons _L23180_ __tmp51798))))) + (cons _L23180_ __tmp52157))))) (let* ((___match4686346864_ (lambda (_e2306023094_ _hd2305923098_ diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index bab80237..b2668c3a 100644 --- a/src/bootstrap/gerbil/core__9.scm +++ b/src/bootstrap/gerbil/core__9.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<macro-object>[1]#_g51807_| + (define |gerbil/core$<macro-object>[1]#_g52167_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51809_| + (define |gerbil/core$<macro-object>[1]#_g52169_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51811_| + (define |gerbil/core$<macro-object>[1]#_g52171_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51815_| + (define |gerbil/core$<macro-object>[1]#_g52175_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51819_| + (define |gerbil/core$<macro-object>[1]#_g52179_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51823_| + (define |gerbil/core$<macro-object>[1]#_g52183_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51827_| + (define |gerbil/core$<macro-object>[1]#_g52187_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -134,87 +134,87 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51806 |gerbil/core$<macro-object>[1]#_g51807_|)) + (let ((__tmp52166 |gerbil/core$<macro-object>[1]#_g52167_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51806 + __tmp52166 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51808 |gerbil/core$<macro-object>[1]#_g51809_|)) + (let ((__tmp52168 |gerbil/core$<macro-object>[1]#_g52169_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51808 + __tmp52168 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51810 |gerbil/core$<macro-object>[1]#_g51811_|)) + (let ((__tmp52170 |gerbil/core$<macro-object>[1]#_g52171_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51810 + __tmp52170 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51812 - (let ((__tmp51813 - (let ((__tmp51814 - |gerbil/core$<macro-object>[1]#_g51815_|)) + (let ((__tmp52172 + (let ((__tmp52173 + (let ((__tmp52174 + |gerbil/core$<macro-object>[1]#_g52175_|)) (declare (not safe)) - (cons 'macro __tmp51814)))) + (cons 'macro __tmp52174)))) (declare (not safe)) - (cons __tmp51813 '())))) + (cons __tmp52173 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51812 + __tmp52172 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51816 - (let ((__tmp51817 - (let ((__tmp51818 - |gerbil/core$<macro-object>[1]#_g51819_|)) + (let ((__tmp52176 + (let ((__tmp52177 + (let ((__tmp52178 + |gerbil/core$<macro-object>[1]#_g52179_|)) (declare (not safe)) - (cons 'macro __tmp51818)))) + (cons 'macro __tmp52178)))) (declare (not safe)) - (cons __tmp51817 '())))) + (cons __tmp52177 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51816 + __tmp52176 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51820 - (let ((__tmp51821 - (let ((__tmp51822 - |gerbil/core$<macro-object>[1]#_g51823_|)) + (let ((__tmp52180 + (let ((__tmp52181 + (let ((__tmp52182 + |gerbil/core$<macro-object>[1]#_g52183_|)) (declare (not safe)) - (cons 'macro __tmp51822)))) + (cons 'macro __tmp52182)))) (declare (not safe)) - (cons __tmp51821 '())))) + (cons __tmp52181 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51820 + __tmp52180 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51824 - (let ((__tmp51825 - (let ((__tmp51826 - |gerbil/core$<macro-object>[1]#_g51827_|)) + (let ((__tmp52184 + (let ((__tmp52185 + (let ((__tmp52186 + |gerbil/core$<macro-object>[1]#_g52187_|)) (declare (not safe)) - (cons 'macro __tmp51826)))) + (cons 'macro __tmp52186)))) (declare (not safe)) - (cons __tmp51825 '())))) + (cons __tmp52185 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51824 + __tmp52184 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index 41b62472..6b1cd45f 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 1709375797) + (define gerbil/expander/common::timestamp 1709457369) (begin (define gx#AST::t - (let ((__tmp80109 (list)) - (__tmp80107 - (let ((__tmp80108 + (let ((__tmp80371 (list)) + (__tmp80369 + (let ((__tmp80370 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp80108 '())))) + (cons __tmp80370 '())))) (declare (not safe)) (make-class-type 'gerbil#AST::t 'syntax - __tmp80109 + __tmp80371 '(e source) - __tmp80107 + __tmp80369 '#f))) (define gx#AST? (let () (declare (not safe)) (make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _$args80006_ (apply make-instance gx#AST::t _$args80006_))) + (lambda _$args80268_ (apply make-instance gx#AST::t _$args80268_))) (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 775696b5..5b262260 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]#_g80111_| + (define |gx[1]#_g80373_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g80113_| + (define |gx[1]#_g80375_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g80115_| + (define |gx[1]#_g80377_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g80120_| + (define |gx[1]#_g80382_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g80123_| + (define |gx[1]#_g80385_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g80128_| + (define |gx[1]#_g80390_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g80131_| + (define |gx[1]#_g80393_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g80136_| + (define |gx[1]#_g80398_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g80139_| + (define |gx[1]#_g80401_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g80144_| + (define |gx[1]#_g80406_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g80147_| + (define |gx[1]#_g80409_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g80254_| + (define |gx[1]#_g80516_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj80106 + (let ((__obj80368 (let () (declare (not safe)) (##structure @@ -109,7 +109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80106 + __obj80368 'gerbil#AST::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -117,7 +117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80106 + __obj80368 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -125,7 +125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80106 + __obj80368 '(e source) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -133,7 +133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80106 + __obj80368 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -141,7 +141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80106 + __obj80368 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -149,7 +149,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80106 + __obj80368 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -157,7 +157,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80106 + __obj80368 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -165,847 +165,847 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj80106 + __obj80368 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80110 |gx[1]#_g80111_|)) + (let ((__tmp80372 |gx[1]#_g80373_|)) (declare (not safe)) (##unchecked-structure-set! - __obj80106 - __tmp80110 + __obj80368 + __tmp80372 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80112 |gx[1]#_g80113_|)) + (let ((__tmp80374 |gx[1]#_g80375_|)) (declare (not safe)) (##unchecked-structure-set! - __obj80106 - __tmp80112 + __obj80368 + __tmp80374 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80114 |gx[1]#_g80115_|)) + (let ((__tmp80376 |gx[1]#_g80377_|)) (declare (not safe)) (##unchecked-structure-set! - __obj80106 - __tmp80114 + __obj80368 + __tmp80376 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80116 - (let ((__tmp80121 - (let ((__tmp80122 |gx[1]#_g80123_|)) + (let ((__tmp80378 + (let ((__tmp80383 + (let ((__tmp80384 |gx[1]#_g80385_|)) (declare (not safe)) - (cons 'e __tmp80122))) - (__tmp80117 - (let ((__tmp80118 - (let ((__tmp80119 |gx[1]#_g80120_|)) + (cons 'e __tmp80384))) + (__tmp80379 + (let ((__tmp80380 + (let ((__tmp80381 |gx[1]#_g80382_|)) (declare (not safe)) - (cons 'source __tmp80119)))) + (cons 'source __tmp80381)))) (declare (not safe)) - (cons __tmp80118 '())))) + (cons __tmp80380 '())))) (declare (not safe)) - (cons __tmp80121 __tmp80117)))) + (cons __tmp80383 __tmp80379)))) (declare (not safe)) (##unchecked-structure-set! - __obj80106 - __tmp80116 + __obj80368 + __tmp80378 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80124 - (let ((__tmp80129 - (let ((__tmp80130 |gx[1]#_g80131_|)) + (let ((__tmp80386 + (let ((__tmp80391 + (let ((__tmp80392 |gx[1]#_g80393_|)) (declare (not safe)) - (cons 'e __tmp80130))) - (__tmp80125 - (let ((__tmp80126 - (let ((__tmp80127 |gx[1]#_g80128_|)) + (cons 'e __tmp80392))) + (__tmp80387 + (let ((__tmp80388 + (let ((__tmp80389 |gx[1]#_g80390_|)) (declare (not safe)) - (cons 'source __tmp80127)))) + (cons 'source __tmp80389)))) (declare (not safe)) - (cons __tmp80126 '())))) + (cons __tmp80388 '())))) (declare (not safe)) - (cons __tmp80129 __tmp80125)))) + (cons __tmp80391 __tmp80387)))) (declare (not safe)) (##unchecked-structure-set! - __obj80106 - __tmp80124 + __obj80368 + __tmp80386 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80132 - (let ((__tmp80137 - (let ((__tmp80138 |gx[1]#_g80139_|)) + (let ((__tmp80394 + (let ((__tmp80399 + (let ((__tmp80400 |gx[1]#_g80401_|)) (declare (not safe)) - (cons 'e __tmp80138))) - (__tmp80133 - (let ((__tmp80134 - (let ((__tmp80135 |gx[1]#_g80136_|)) + (cons 'e __tmp80400))) + (__tmp80395 + (let ((__tmp80396 + (let ((__tmp80397 |gx[1]#_g80398_|)) (declare (not safe)) - (cons 'source __tmp80135)))) + (cons 'source __tmp80397)))) (declare (not safe)) - (cons __tmp80134 '())))) + (cons __tmp80396 '())))) (declare (not safe)) - (cons __tmp80137 __tmp80133)))) + (cons __tmp80399 __tmp80395)))) (declare (not safe)) (##unchecked-structure-set! - __obj80106 - __tmp80132 + __obj80368 + __tmp80394 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp80140 - (let ((__tmp80145 - (let ((__tmp80146 |gx[1]#_g80147_|)) + (let ((__tmp80402 + (let ((__tmp80407 + (let ((__tmp80408 |gx[1]#_g80409_|)) (declare (not safe)) - (cons 'e __tmp80146))) - (__tmp80141 - (let ((__tmp80142 - (let ((__tmp80143 |gx[1]#_g80144_|)) + (cons 'e __tmp80408))) + (__tmp80403 + (let ((__tmp80404 + (let ((__tmp80405 |gx[1]#_g80406_|)) (declare (not safe)) - (cons 'source __tmp80143)))) + (cons 'source __tmp80405)))) (declare (not safe)) - (cons __tmp80142 '())))) + (cons __tmp80404 '())))) (declare (not safe)) - (cons __tmp80145 __tmp80141)))) + (cons __tmp80407 __tmp80403)))) (declare (not safe)) (##unchecked-structure-set! - __obj80106 - __tmp80140 + __obj80368 + __tmp80402 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj80106)) + __obj80368)) (define |gx[:0:]#check-procedure| - (lambda (_$stx78726_) - (let* ((_g7873078744_ - (lambda (_g7873178740_) + (lambda (_$stx78988_) + (let* ((_g7899279006_ + (lambda (_g7899379002_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7873178740_))) - (_g7872978786_ - (lambda (_g7873178748_) - (if (gx#stx-pair? _g7873178748_) - (let ((_e7873578751_ (gx#syntax-e _g7873178748_))) - (let ((_hd7873478755_ + _g7899379002_))) + (_g7899179048_ + (lambda (_g7899379010_) + (if (gx#stx-pair? _g7899379010_) + (let ((_e7899779013_ (gx#syntax-e _g7899379010_))) + (let ((_hd7899679017_ (let () (declare (not safe)) - (##car _e7873578751_))) - (_tl7873378758_ + (##car _e7899779013_))) + (_tl7899579020_ (let () (declare (not safe)) - (##cdr _e7873578751_)))) - (if (gx#stx-pair? _tl7873378758_) - (let ((_e7873878761_ - (gx#syntax-e _tl7873378758_))) - (let ((_hd7873778765_ + (##cdr _e7899779013_)))) + (if (gx#stx-pair? _tl7899579020_) + (let ((_e7900079023_ + (gx#syntax-e _tl7899579020_))) + (let ((_hd7899979027_ (let () (declare (not safe)) - (##car _e7873878761_))) - (_tl7873678768_ + (##car _e7900079023_))) + (_tl7899879030_ (let () (declare (not safe)) - (##cdr _e7873878761_)))) - (if (gx#stx-null? _tl7873678768_) - ((lambda (_L78771_) - (let ((__tmp80157 + (##cdr _e7900079023_)))) + (if (gx#stx-null? _tl7899879030_) + ((lambda (_L79033_) + (let ((__tmp80419 (gx#datum->syntax '#f 'unless)) - (__tmp80148 - (let ((__tmp80154 - (let ((__tmp80156 + (__tmp80410 + (let ((__tmp80416 + (let ((__tmp80418 (gx#datum->syntax '#f 'procedure?)) - (__tmp80155 + (__tmp80417 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L78771_ '())))) + (cons _L79033_ '())))) (declare (not safe)) - (cons __tmp80156 __tmp80155))) - (__tmp80149 - (let ((__tmp80150 - (let ((__tmp80153 (gx#datum->syntax '#f 'error)) - (__tmp80151 - (let ((__tmp80152 + (cons __tmp80418 __tmp80417))) + (__tmp80411 + (let ((__tmp80412 + (let ((__tmp80415 (gx#datum->syntax '#f 'error)) + (__tmp80413 + (let ((__tmp80414 (let () (declare (not safe)) - (cons _L78771_ '())))) + (cons _L79033_ '())))) (declare (not safe)) - (cons '"expected procedure" __tmp80152)))) + (cons '"expected procedure" __tmp80414)))) (declare (not safe)) - (cons __tmp80153 __tmp80151)))) + (cons __tmp80415 __tmp80413)))) (declare (not safe)) - (cons __tmp80150 '())))) + (cons __tmp80412 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80154 - __tmp80149)))) + (cons __tmp80416 + __tmp80411)))) (declare (not safe)) - (cons __tmp80157 __tmp80148))) - _hd7873778765_) - (_g7873078744_ _g7873178748_)))) - (_g7873078744_ _g7873178748_)))) - (_g7873078744_ _g7873178748_))))) - (_g7872978786_ _$stx78726_)))) + (cons __tmp80419 __tmp80410))) + _hd7899979027_) + (_g7899279006_ _g7899379010_)))) + (_g7899279006_ _g7899379010_)))) + (_g7899279006_ _g7899379010_))))) + (_g7899179048_ _$stx78988_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_stx78790_) - (letrec ((_generate78793_ - (lambda (_tgt78942_ _kws78944_ _clauses78945_) - (letrec ((_generate-clause78947_ - (lambda (_hd79857_ _E79859_) - (let* ((___stx8000980010_ _hd79857_) - (_g7986379890_ + (lambda (_stx79052_) + (letrec ((_generate79055_ + (lambda (_tgt79204_ _kws79206_ _clauses79207_) + (letrec ((_generate-clause79209_ + (lambda (_hd80119_ _E80121_) + (let* ((___stx8027180272_ _hd80119_) + (_g8012580152_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8000980010_)))) - (let ((___kont8001280013_ - (lambda (_L79986_ _L79988_) - (_generate178949_ - _hd79857_ - _L79988_ + ___stx8027180272_)))) + (let ((___kont8027480275_ + (lambda (_L80248_ _L80250_) + (_generate179211_ + _hd80119_ + _L80250_ '#t - _L79986_ - _E79859_))) - (___kont8001480015_ - (lambda (_L79938_ _L79940_ _L79941_) - (_generate178949_ - _hd79857_ - _L79941_ - _L79940_ - _L79938_ - _E79859_))) - (___kont8001680017_ + _L80248_ + _E80121_))) + (___kont8027680277_ + (lambda (_L80200_ _L80202_ _L80203_) + (_generate179211_ + _hd80119_ + _L80203_ + _L80202_ + _L80200_ + _E80121_))) + (___kont8027880279_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _stx78790_ - _hd79857_)))) - (if (gx#stx-pair? ___stx8000980010_) - (let ((_e7986979966_ + _stx79052_ + _hd80119_)))) + (if (gx#stx-pair? ___stx8027180272_) + (let ((_e8013180228_ (gx#syntax-e - ___stx8000980010_))) - (let ((_tl7986779973_ + ___stx8027180272_))) + (let ((_tl8012980235_ (let () (declare (not safe)) - (##cdr _e7986979966_))) - (_hd7986879970_ + (##cdr _e8013180228_))) + (_hd8013080232_ (let () (declare (not safe)) - (##car _e7986979966_)))) - (if (gx#stx-pair? _tl7986779973_) - (let ((_e7987279976_ + (##car _e8013180228_)))) + (if (gx#stx-pair? _tl8012980235_) + (let ((_e8013480238_ (gx#syntax-e - _tl7986779973_))) - (let ((_tl7987079983_ + _tl8012980235_))) + (let ((_tl8013280245_ (let () (declare (not safe)) - (##cdr _e7987279976_))) - (_hd7987179980_ + (##cdr _e8013480238_))) + (_hd8013380242_ (let () (declare (not safe)) - (##car _e7987279976_)))) + (##car _e8013480238_)))) (if (gx#stx-null? - _tl7987079983_) - (___kont8001280013_ - _hd7987179980_ - _hd7986879970_) + _tl8013280245_) + (___kont8027480275_ + _hd8013380242_ + _hd8013080232_) (if (gx#stx-pair? - _tl7987079983_) - (let ((_e7988479928_ + _tl8013280245_) + (let ((_e8014680190_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7987079983_))) - (let ((_tl7988279935_ + (gx#syntax-e _tl8013280245_))) + (let ((_tl8014480197_ (let () (declare (not safe)) - (##cdr _e7988479928_))) - (_hd7988379932_ + (##cdr _e8014680190_))) + (_hd8014580194_ (let () (declare (not safe)) - (##car _e7988479928_)))) - (if (gx#stx-null? _tl7988279935_) - (___kont8001480015_ - _hd7988379932_ - _hd7987179980_ - _hd7986879970_) - (___kont8001680017_)))) - (___kont8001680017_))))) + (##car _e8014680190_)))) + (if (gx#stx-null? _tl8014480197_) + (___kont8027680277_ + _hd8014580194_ + _hd8013380242_ + _hd8013080232_) + (___kont8027880279_)))) + (___kont8027880279_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8001680017_)))) - (___kont8001680017_)))))) - (_generate178949_ - (lambda (_where79335_ - _hd79337_ - _fender79338_ - _body79339_ - _E79340_) - (letrec ((_recur79342_ - (lambda (_hd79345_ - _tgt79347_ - _K79348_) - (let* ((___stx8005580056_ - _hd79345_) - (_g7935179363_ + (___kont8027880279_)))) + (___kont8027880279_)))))) + (_generate179211_ + (lambda (_where79597_ + _hd79599_ + _fender79600_ + _body79601_ + _E79602_) + (letrec ((_recur79604_ + (lambda (_hd79607_ + _tgt79609_ + _K79610_) + (let* ((___stx8031780318_ + _hd79607_) + (_g7961379625_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8005580056_)))) - (let ((___kont8005880059_ - (lambda (_L79647_ - _L79649_) - (let* ((_g7966079668_ - (lambda (_g7966179664_) + ___stx8031780318_)))) + (let ((___kont8032080321_ + (lambda (_L79909_ + _L79911_) + (let* ((_g7992279930_ + (lambda (_g7992379926_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7966179664_))) - (_g7965979849_ - (lambda (_g7966179672_) - ((lambda (_L79675_) + _g7992379926_))) + (_g7992180111_ + (lambda (_g7992379934_) + ((lambda (_L79937_) (let () - (let* ((_g7968779695_ - (lambda (_g7968879691_) + (let* ((_g7994979957_ + (lambda (_g7995079953_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7968879691_))) - (_g7968679845_ - (lambda (_g7968879699_) - ((lambda (_L79702_) + _g7995079953_))) + (_g7994880107_ + (lambda (_g7995079961_) + ((lambda (_L79964_) (let () - (let* ((_g7971579723_ - (lambda (_g7971679719_) + (let* ((_g7997779985_ + (lambda (_g7997879981_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7971679719_))) - (_g7971479841_ - (lambda (_g7971679727_) - ((lambda (_L79730_) + _g7997879981_))) + (_g7997680103_ + (lambda (_g7997879989_) + ((lambda (_L79992_) (let () - (let* ((_g7974379751_ + (let* ((_g8000580013_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7974479747_) + (lambda (_g8000680009_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7974479747_))) - (_g7974279837_ - (lambda (_g7974479755_) - ((lambda (_L79758_) + _g8000680009_))) + (_g8000480099_ + (lambda (_g8000680017_) + ((lambda (_L80020_) (let () - (let* ((_g7977179779_ - (lambda (_g7977279775_) + (let* ((_g8003380041_ + (lambda (_g8003480037_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7977279775_))) - (_g7977079833_ - (lambda (_g7977279783_) - ((lambda (_L79786_) + _g8003480037_))) + (_g8003280095_ + (lambda (_g8003480045_) + ((lambda (_L80048_) (let () - (let* ((_g7979979807_ - (lambda (_g7980079803_) + (let* ((_g8006180069_ + (lambda (_g8006280065_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7980079803_))) - (_g7979879829_ - (lambda (_g7980079811_) - ((lambda (_L79814_) + _g8006280065_))) + (_g8006080091_ + (lambda (_g8006280073_) + ((lambda (_L80076_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp80190 (gx#datum->syntax '#f 'if)) - (__tmp80158 - (let ((__tmp80187 - (let ((__tmp80189 + (let ((__tmp80452 (gx#datum->syntax '#f 'if)) + (__tmp80420 + (let ((__tmp80449 + (let ((__tmp80451 (gx#datum->syntax '#f 'stx-pair?)) - (__tmp80188 + (__tmp80450 (let () (declare (not safe)) - (cons _L79675_ '())))) + (cons _L79937_ '())))) (declare (not safe)) - (cons __tmp80189 __tmp80188))) - (__tmp80159 - (let ((__tmp80161 - (let ((__tmp80186 + (cons __tmp80451 __tmp80450))) + (__tmp80421 + (let ((__tmp80423 + (let ((__tmp80448 (gx#datum->syntax '#f 'let)) - (__tmp80162 - (let ((__tmp80180 - (let ((__tmp80181 + (__tmp80424 + (let ((__tmp80442 + (let ((__tmp80443 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80182 - (let ((__tmp80183 - (let ((__tmp80185 + (let ((__tmp80444 + (let ((__tmp80445 + (let ((__tmp80447 (gx#datum->syntax '#f 'syntax-e)) - (__tmp80184 + (__tmp80446 (let () (declare (not safe)) - (cons _L79675_ '())))) + (cons _L79937_ '())))) (declare (not safe)) - (cons __tmp80185 __tmp80184)))) + (cons __tmp80447 __tmp80446)))) (declare (not safe)) - (cons __tmp80183 '())))) + (cons __tmp80445 '())))) (declare (not safe)) - (cons _L79702_ __tmp80182)))) + (cons _L79964_ __tmp80444)))) (declare (not safe)) - (cons __tmp80181 '()))) - (__tmp80163 - (let ((__tmp80164 - (let ((__tmp80179 (gx#datum->syntax '#f 'let)) - (__tmp80165 - (let ((__tmp80167 - (let ((__tmp80174 - (let ((__tmp80175 - (let ((__tmp80176 - (let ((__tmp80178 + (cons __tmp80443 '()))) + (__tmp80425 + (let ((__tmp80426 + (let ((__tmp80441 (gx#datum->syntax '#f 'let)) + (__tmp80427 + (let ((__tmp80429 + (let ((__tmp80436 + (let ((__tmp80437 + (let ((__tmp80438 + (let ((__tmp80440 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp80177 + (__tmp80439 (let () (declare (not safe)) - (cons _L79702_ '())))) + (cons _L79964_ '())))) (declare (not safe)) - (cons __tmp80178 __tmp80177)))) + (cons __tmp80440 __tmp80439)))) (declare (not safe)) - (cons __tmp80176 '())))) + (cons __tmp80438 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L79730_ - __tmp80175))) - (__tmp80168 - (let ((__tmp80169 - (let ((__tmp80170 - (let ((__tmp80171 + (cons _L79992_ + __tmp80437))) + (__tmp80430 + (let ((__tmp80431 + (let ((__tmp80432 + (let ((__tmp80433 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80173 (gx#datum->syntax '#f '##cdr)) - (__tmp80172 + (let ((__tmp80435 (gx#datum->syntax '#f '##cdr)) + (__tmp80434 (let () (declare (not safe)) - (cons _L79702_ '())))) + (cons _L79964_ '())))) (declare (not safe)) - (cons __tmp80173 __tmp80172)))) + (cons __tmp80435 __tmp80434)))) (declare (not safe)) - (cons __tmp80171 '())))) + (cons __tmp80433 '())))) (declare (not safe)) - (cons _L79758_ __tmp80170)))) + (cons _L80020_ __tmp80432)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80169 '())))) + (cons __tmp80431 '())))) (declare (not safe)) - (cons __tmp80174 __tmp80168))) - (__tmp80166 + (cons __tmp80436 __tmp80430))) + (__tmp80428 (let () (declare (not safe)) - (cons _L79786_ '())))) + (cons _L80048_ '())))) (declare (not safe)) - (cons __tmp80167 __tmp80166)))) + (cons __tmp80429 __tmp80428)))) (declare (not safe)) - (cons __tmp80179 __tmp80165)))) + (cons __tmp80441 __tmp80427)))) (declare (not safe)) - (cons __tmp80164 '())))) + (cons __tmp80426 '())))) (declare (not safe)) - (cons __tmp80180 __tmp80163)))) + (cons __tmp80442 __tmp80425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80186 - __tmp80162))) - (__tmp80160 + (cons __tmp80448 + __tmp80424))) + (__tmp80422 (let () (declare (not safe)) - (cons _L79814_ '())))) + (cons _L80076_ '())))) (declare (not safe)) - (cons __tmp80161 __tmp80160)))) + (cons __tmp80423 __tmp80422)))) (declare (not safe)) - (cons __tmp80187 __tmp80159)))) + (cons __tmp80449 __tmp80421)))) (declare (not safe)) - (cons __tmp80190 __tmp80158))))) - _g7980079811_)))) + (cons __tmp80452 __tmp80420))))) + _g8006280073_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7979879829_ _E79340_)))) - _g7977279783_)))) - (_g7977079833_ - (_recur79342_ - _L79649_ - _L79730_ - (_recur79342_ - _L79647_ - _L79758_ - _K79348_)))))) - _g7974479755_)))) - (_g7974279837_ (gx#genident 'tl))))) - _g7971679727_)))) + (_g8006080091_ _E79602_)))) + _g8003480045_)))) + (_g8003280095_ + (_recur79604_ + _L79911_ + _L79992_ + (_recur79604_ + _L79909_ + _L80020_ + _K79610_)))))) + _g8000680017_)))) + (_g8000480099_ (gx#genident 'tl))))) + _g7997879989_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7971479841_ + (_g7997680103_ (gx#genident 'hd))))) - _g7968879699_)))) - (_g7968679845_ (gx#genident 'e))))) - _g7966179672_)))) - (_g7965979849_ _tgt79347_)))) + _g7995079961_)))) + (_g7994880107_ (gx#genident 'e))))) + _g7992379934_)))) + (_g7992180111_ _tgt79609_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8006080061_ + (___kont8032280323_ (lambda () (if (gx#identifier? - _hd79345_) + _hd79607_) (if (gx#underscore? - _hd79345_) - _K79348_ - (if (let ((__tmp80235 + _hd79607_) + _K79610_ + (if (let ((__tmp80497 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7937379375_) + (lambda (_g7963579637_) (gx#bound-identifier=? - _g7937379375_ - _hd79345_)))) + _g7963579637_ + _hd79607_)))) (declare (not safe)) - (find __tmp80235 _kws78944_)) - (let* ((_g7937979394_ - (lambda (_g7938079390_) + (find __tmp80497 _kws79206_)) + (let* ((_g7964179656_ + (lambda (_g7964279652_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7938079390_))) - (_g7937879445_ - (lambda (_g7938079398_) - (if (gx#stx-pair? _g7938079398_) - (let ((_e7938579401_ - (gx#syntax-e _g7938079398_))) - (let ((_hd7938479405_ + _g7964279652_))) + (_g7964079707_ + (lambda (_g7964279660_) + (if (gx#stx-pair? _g7964279660_) + (let ((_e7964779663_ + (gx#syntax-e _g7964279660_))) + (let ((_hd7964679667_ (let () (declare (not safe)) - (##car _e7938579401_))) - (_tl7938379408_ + (##car _e7964779663_))) + (_tl7964579670_ (let () (declare (not safe)) - (##cdr _e7938579401_)))) - (if (gx#stx-pair? _tl7938379408_) - (let ((_e7938879411_ + (##cdr _e7964779663_)))) + (if (gx#stx-pair? _tl7964579670_) + (let ((_e7965079673_ (gx#syntax-e - _tl7938379408_))) - (let ((_hd7938779415_ + _tl7964579670_))) + (let ((_hd7964979677_ (let () (declare (not safe)) - (##car _e7938879411_))) - (_tl7938679418_ + (##car _e7965079673_))) + (_tl7964879680_ (let () (declare (not safe)) - (##cdr _e7938879411_)))) + (##cdr _e7965079673_)))) (if (gx#stx-null? - _tl7938679418_) - ((lambda (_L79421_ + _tl7964879680_) + ((lambda (_L79683_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L79423_) + _L79685_) (let () - (let ((__tmp80234 (gx#datum->syntax '#f 'if)) - (__tmp80217 - (let ((__tmp80220 - (let ((__tmp80233 + (let ((__tmp80496 (gx#datum->syntax '#f 'if)) + (__tmp80479 + (let ((__tmp80482 + (let ((__tmp80495 (gx#datum->syntax '#f 'and)) - (__tmp80221 - (let ((__tmp80230 - (let ((__tmp80232 + (__tmp80483 + (let ((__tmp80492 + (let ((__tmp80494 (gx#datum->syntax '#f 'identifier?)) - (__tmp80231 + (__tmp80493 (let () (declare (not safe)) - (cons _L79423_ + (cons _L79685_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80232 - __tmp80231))) - (__tmp80222 - (let ((__tmp80223 - (let ((__tmp80229 + (cons __tmp80494 + __tmp80493))) + (__tmp80484 + (let ((__tmp80485 + (let ((__tmp80491 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'core-identifier=?)) - (__tmp80224 - (let ((__tmp80225 - (let ((__tmp80226 - (let ((__tmp80228 + (__tmp80486 + (let ((__tmp80487 + (let ((__tmp80488 + (let ((__tmp80490 (gx#datum->syntax '#f 'quote)) - (__tmp80227 + (__tmp80489 (let () (declare (not safe)) - (cons _L79421_ '())))) + (cons _L79683_ '())))) (declare (not safe)) - (cons __tmp80228 __tmp80227)))) + (cons __tmp80490 __tmp80489)))) (declare (not safe)) - (cons __tmp80226 '())))) + (cons __tmp80488 '())))) (declare (not safe)) - (cons _L79423_ __tmp80225)))) + (cons _L79685_ __tmp80487)))) (declare (not safe)) - (cons __tmp80229 __tmp80224)))) + (cons __tmp80491 __tmp80486)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80223 '())))) + (cons __tmp80485 '())))) (declare (not safe)) - (cons __tmp80230 __tmp80222)))) + (cons __tmp80492 __tmp80484)))) (declare (not safe)) - (cons __tmp80233 __tmp80221))) - (__tmp80218 - (let ((__tmp80219 + (cons __tmp80495 __tmp80483))) + (__tmp80480 + (let ((__tmp80481 (let () (declare (not safe)) - (cons _E79340_ '())))) + (cons _E79602_ '())))) (declare (not safe)) - (cons _K79348_ __tmp80219)))) + (cons _K79610_ __tmp80481)))) (declare (not safe)) - (cons __tmp80220 __tmp80218)))) + (cons __tmp80482 __tmp80480)))) (declare (not safe)) - (cons __tmp80234 __tmp80217)))) - _hd7938779415_ - _hd7938479405_) - (_g7937979394_ _g7938079398_)))) + (cons __tmp80496 __tmp80479)))) + _hd7964979677_ + _hd7964679667_) + (_g7964179656_ _g7964279660_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7937979394_ - _g7938079398_)))) - (_g7937979394_ _g7938079398_))))) - (_g7937879445_ (list _tgt79347_ _hd79345_))) - (let* ((_g7944979464_ - (lambda (_g7945079460_) + (_g7964179656_ + _g7964279660_)))) + (_g7964179656_ _g7964279660_))))) + (_g7964079707_ (list _tgt79609_ _hd79607_))) + (let* ((_g7971179726_ + (lambda (_g7971279722_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7945079460_))) - (_g7944879508_ - (lambda (_g7945079468_) - (if (gx#stx-pair? _g7945079468_) - (let ((_e7945579471_ - (gx#syntax-e _g7945079468_))) - (let ((_hd7945479475_ + _g7971279722_))) + (_g7971079770_ + (lambda (_g7971279730_) + (if (gx#stx-pair? _g7971279730_) + (let ((_e7971779733_ + (gx#syntax-e _g7971279730_))) + (let ((_hd7971679737_ (let () (declare (not safe)) - (##car _e7945579471_))) - (_tl7945379478_ + (##car _e7971779733_))) + (_tl7971579740_ (let () (declare (not safe)) - (##cdr _e7945579471_)))) - (if (gx#stx-pair? _tl7945379478_) - (let ((_e7945879481_ + (##cdr _e7971779733_)))) + (if (gx#stx-pair? _tl7971579740_) + (let ((_e7972079743_ (gx#syntax-e - _tl7945379478_))) - (let ((_hd7945779485_ + _tl7971579740_))) + (let ((_hd7971979747_ (let () (declare (not safe)) - (##car _e7945879481_))) - (_tl7945679488_ + (##car _e7972079743_))) + (_tl7971879750_ (let () (declare (not safe)) - (##cdr _e7945879481_)))) + (##cdr _e7972079743_)))) (if (gx#stx-null? - _tl7945679488_) - ((lambda (_L79491_ + _tl7971879750_) + ((lambda (_L79753_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L79493_) + _L79755_) (let () - (let ((__tmp80216 (gx#datum->syntax '#f 'let)) - (__tmp80211 - (let ((__tmp80213 - (let ((__tmp80214 - (let ((__tmp80215 + (let ((__tmp80478 (gx#datum->syntax '#f 'let)) + (__tmp80473 + (let ((__tmp80475 + (let ((__tmp80476 + (let ((__tmp80477 (let () (declare (not safe)) - (cons _L79493_ '())))) + (cons _L79755_ '())))) (declare (not safe)) - (cons _L79491_ __tmp80215)))) + (cons _L79753_ __tmp80477)))) (declare (not safe)) - (cons __tmp80214 '()))) - (__tmp80212 + (cons __tmp80476 '()))) + (__tmp80474 (let () (declare (not safe)) - (cons _K79348_ '())))) + (cons _K79610_ '())))) (declare (not safe)) - (cons __tmp80213 __tmp80212)))) + (cons __tmp80475 __tmp80474)))) (declare (not safe)) - (cons __tmp80216 __tmp80211)))) - _hd7945779485_ - _hd7945479475_) - (_g7944979464_ _g7945079468_)))) + (cons __tmp80478 __tmp80473)))) + _hd7971979747_ + _hd7971679737_) + (_g7971179726_ _g7971279730_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7944979464_ - _g7945079468_)))) - (_g7944979464_ _g7945079468_))))) - (_g7944879508_ (list _tgt79347_ _hd79345_))))) - (if (gx#stx-null? _hd79345_) - (let* ((_g7951279520_ - (lambda (_g7951379516_) + (_g7971179726_ + _g7971279730_)))) + (_g7971179726_ _g7971279730_))))) + (_g7971079770_ (list _tgt79609_ _hd79607_))))) + (if (gx#stx-null? _hd79607_) + (let* ((_g7977479782_ + (lambda (_g7977579778_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7951379516_))) - (_g7951179538_ - (lambda (_g7951379524_) - ((lambda (_L79527_) + _g7977579778_))) + (_g7977379800_ + (lambda (_g7977579786_) + ((lambda (_L79789_) (let () - (let ((__tmp80210 + (let ((__tmp80472 (gx#datum->syntax '#f 'if)) - (__tmp80204 - (let ((__tmp80207 - (let ((__tmp80209 + (__tmp80466 + (let ((__tmp80469 + (let ((__tmp80471 (gx#datum->syntax '#f 'stx-null?)) - (__tmp80208 + (__tmp80470 (let () (declare (not safe)) - (cons _L79527_ + (cons _L79789_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp80209 __tmp80208))) + (cons __tmp80471 __tmp80470))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp80205 - (let ((__tmp80206 + (__tmp80467 + (let ((__tmp80468 (let () (declare (not safe)) - (cons _E79340_ + (cons _E79602_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _K79348_ __tmp80206)))) + (cons _K79610_ __tmp80468)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80207 __tmp80205)))) + (cons __tmp80469 __tmp80467)))) (declare (not safe)) - (cons __tmp80210 __tmp80204)))) - _g7951379524_)))) - (_g7951179538_ _tgt79347_)) - (if (gx#stx-datum? _hd79345_) - (let* ((_g7954279561_ - (lambda (_g7954379557_) + (cons __tmp80472 __tmp80466)))) + _g7977579786_)))) + (_g7977379800_ _tgt79609_)) + (if (gx#stx-datum? _hd79607_) + (let* ((_g7980479823_ + (lambda (_g7980579819_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7954379557_))) - (_g7954179619_ - (lambda (_g7954379565_) - (if (gx#stx-pair? _g7954379565_) - (let ((_e7954979568_ - (gx#syntax-e _g7954379565_))) - (let ((_hd7954879572_ + _g7980579819_))) + (_g7980379881_ + (lambda (_g7980579827_) + (if (gx#stx-pair? _g7980579827_) + (let ((_e7981179830_ + (gx#syntax-e _g7980579827_))) + (let ((_hd7981079834_ (let () (declare (not safe)) - (##car _e7954979568_))) - (_tl7954779575_ + (##car _e7981179830_))) + (_tl7980979837_ (let () (declare (not safe)) - (##cdr _e7954979568_)))) - (if (gx#stx-pair? _tl7954779575_) - (let ((_e7955279578_ + (##cdr _e7981179830_)))) + (if (gx#stx-pair? _tl7980979837_) + (let ((_e7981479840_ (gx#syntax-e - _tl7954779575_))) - (let ((_hd7955179582_ + _tl7980979837_))) + (let ((_hd7981379844_ (let () (declare (not safe)) - (##car _e7955279578_))) - (_tl7955079585_ + (##car _e7981479840_))) + (_tl7981279847_ (let () (declare (not safe)) - (##cdr _e7955279578_)))) + (##cdr _e7981479840_)))) (if (gx#stx-pair? - _tl7955079585_) - (let ((_e7955579588_ + _tl7981279847_) + (let ((_e7981779850_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl7955079585_))) - (let ((_hd7955479592_ - (let () (declare (not safe)) (##car _e7955579588_))) - (_tl7955379595_ - (let () (declare (not safe)) (##cdr _e7955579588_)))) - (if (gx#stx-null? _tl7955379595_) - ((lambda (_L79598_ _L79600_ _L79601_) + _tl7981279847_))) + (let ((_hd7981679854_ + (let () (declare (not safe)) (##car _e7981779850_))) + (_tl7981579857_ + (let () (declare (not safe)) (##cdr _e7981779850_)))) + (if (gx#stx-null? _tl7981579857_) + ((lambda (_L79860_ _L79862_ _L79863_) (let () - (let ((__tmp80203 (gx#datum->syntax '#f 'if)) - (__tmp80191 - (let ((__tmp80194 - (let ((__tmp80195 - (let ((__tmp80200 - (let ((__tmp80202 + (let ((__tmp80465 (gx#datum->syntax '#f 'if)) + (__tmp80453 + (let ((__tmp80456 + (let ((__tmp80457 + (let ((__tmp80462 + (let ((__tmp80464 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'stx-e)) - (__tmp80201 - (let () (declare (not safe)) (cons _L79601_ '())))) + (__tmp80463 + (let () (declare (not safe)) (cons _L79863_ '())))) (declare (not safe)) - (cons __tmp80202 __tmp80201))) - (__tmp80196 - (let ((__tmp80197 - (let ((__tmp80199 (gx#datum->syntax '#f 'quote)) - (__tmp80198 + (cons __tmp80464 __tmp80463))) + (__tmp80458 + (let ((__tmp80459 + (let ((__tmp80461 (gx#datum->syntax '#f 'quote)) + (__tmp80460 (let () (declare (not safe)) - (cons _L79600_ '())))) + (cons _L79862_ '())))) (declare (not safe)) - (cons __tmp80199 __tmp80198)))) + (cons __tmp80461 __tmp80460)))) (declare (not safe)) - (cons __tmp80197 '())))) + (cons __tmp80459 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80200 - __tmp80196)))) + (cons __tmp80462 + __tmp80458)))) (declare (not safe)) - (cons _L79598_ __tmp80195))) - (__tmp80192 - (let ((__tmp80193 + (cons _L79860_ __tmp80457))) + (__tmp80454 + (let ((__tmp80455 (let () (declare (not safe)) - (cons _E79340_ '())))) + (cons _E79602_ '())))) (declare (not safe)) - (cons _K79348_ __tmp80193)))) + (cons _K79610_ __tmp80455)))) (declare (not safe)) - (cons __tmp80194 __tmp80192)))) + (cons __tmp80456 __tmp80454)))) (declare (not safe)) - (cons __tmp80203 __tmp80191)))) - _hd7955479592_ - _hd7955179582_ - _hd7954879572_) - (_g7954279561_ _g7954379565_)))) - (_g7954279561_ _g7954379565_)))) + (cons __tmp80465 __tmp80453)))) + _hd7981679854_ + _hd7981379844_ + _hd7981079834_) + (_g7980479823_ _g7980579827_)))) + (_g7980479823_ _g7980579827_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7954279561_ - _g7954379565_)))) - (_g7954279561_ _g7954379565_))))) - (_g7954179619_ - (list _tgt79347_ - _hd79345_ - (let ((_e79623_ (gx#stx-e _hd79345_))) - (if (or (keyword? _e79623_) + (_g7980479823_ + _g7980579827_)))) + (_g7980479823_ _g7980579827_))))) + (_g7980379881_ + (list _tgt79609_ + _hd79607_ + (let ((_e79885_ (gx#stx-e _hd79607_))) + (if (or (keyword? _e79885_) (let () (declare (not safe)) - (immediate? _e79623_))) + (immediate? _e79885_))) (gx#datum->syntax '#f 'eq?) (if (let () (declare (not safe)) - (number? _e79623_)) + (number? _e79885_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -1013,502 +1013,502 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _stx78790_ - _where79335_ - _hd79345_))))))) + _stx79052_ + _where79597_ + _hd79607_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx8005580056_) - (let ((_e7935779637_ + ___stx8031780318_) + (let ((_e7961979899_ (gx#syntax-e - ___stx8005580056_))) - (let ((_tl7935579644_ + ___stx8031780318_))) + (let ((_tl7961779906_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e7935779637_))) - (_hd7935679641_ - (let () (declare (not safe)) (##car _e7935779637_)))) - (___kont8005880059_ _tl7935579644_ _hd7935679641_))) + (##cdr _e7961979899_))) + (_hd7961879903_ + (let () (declare (not safe)) (##car _e7961979899_)))) + (___kont8032080321_ _tl7961779906_ _hd7961879903_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8006080061_))))))) - (_recur79342_ - _hd79337_ - _tgt78942_ - (let ((__tmp80239 + (___kont8032280323_))))))) + (_recur79604_ + _hd79599_ + _tgt79204_ + (let ((__tmp80501 (gx#datum->syntax '#f 'if)) - (__tmp80236 - (let ((__tmp80237 - (let ((__tmp80238 + (__tmp80498 + (let ((__tmp80499 + (let ((__tmp80500 (let () (declare (not safe)) - (cons _E79340_ + (cons _E79602_ '())))) (declare (not safe)) - (cons _body79339_ - __tmp80238)))) + (cons _body79601_ + __tmp80500)))) (declare (not safe)) - (cons _fender79338_ __tmp80237)))) + (cons _fender79600_ __tmp80499)))) (declare (not safe)) - (cons __tmp80239 __tmp80236)))))) - (_generate-clauses78950_ - (lambda (_clauses79073_) - (let _lp79076_ ((_rest79079_ _clauses79073_) - (_E79081_ (gx#genident 'E)) - (_r79082_ '())) - (let* ((___stx8009180092_ _rest79079_) - (_g7908579097_ + (cons __tmp80501 __tmp80498)))))) + (_generate-clauses79212_ + (lambda (_clauses79335_) + (let _lp79338_ ((_rest79341_ _clauses79335_) + (_E79343_ (gx#genident 'E)) + (_r79344_ '())) + (let* ((___stx8035380354_ _rest79341_) + (_g7934779359_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8009180092_)))) - (let ((___kont8009480095_ - (lambda (_L79162_ _L79164_) - (let* ((___stx8007180072_ - _L79164_) - (_g7917679187_ + ___stx8035380354_)))) + (let ((___kont8035680357_ + (lambda (_L79424_ _L79426_) + (let* ((___stx8033380334_ + _L79426_) + (_g7943879449_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8007180072_)))) - (let ((___kont8007480075_ - (lambda (_L79316_) + ___stx8033380334_)))) + (let ((___kont8033680337_ + (lambda (_L79578_) (if (gx#stx-null? - _L79162_) + _L79424_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L79316_) - (let ((__tmp80248 (gx#stx-null? _L79316_))) + _L79578_) + (let ((__tmp80510 (gx#stx-null? _L79578_))) (declare (not safe)) - (not __tmp80248))) - (let ((__tmp80240 - (let ((__tmp80241 - (let ((__tmp80242 + (not __tmp80510))) + (let ((__tmp80502 + (let ((__tmp80503 + (let ((__tmp80504 (gx#stx-wrap-source - (let ((__tmp80247 + (let ((__tmp80509 (gx#datum->syntax '#f 'lambda)) - (__tmp80243 - (let ((__tmp80244 - (let ((__tmp80245 + (__tmp80505 + (let ((__tmp80506 + (let ((__tmp80507 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80246 (gx#datum->syntax '#f 'begin))) + (let ((__tmp80508 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp80246 _L79316_)))) + (cons __tmp80508 _L79578_)))) (declare (not safe)) - (cons __tmp80245 '())))) + (cons __tmp80507 '())))) (declare (not safe)) - (cons '() __tmp80244)))) + (cons '() __tmp80506)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80247 __tmp80243)) - (gx#stx-source _L79164_)))) + (cons __tmp80509 __tmp80505)) + (gx#stx-source _L79426_)))) (declare (not safe)) - (cons __tmp80242 '())))) + (cons __tmp80504 '())))) (declare (not safe)) - (cons _E79081_ __tmp80241)))) + (cons _E79343_ __tmp80503)))) (declare (not safe)) - (cons __tmp80240 _r79082_)) + (cons __tmp80502 _r79344_)) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _stx78790_ - _L79164_)) + _stx79052_ + _L79426_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx78790_ - _L79164_)))) + _stx79052_ + _L79426_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8007680077_ + (___kont8033880339_ (lambda () - (let* ((_g7919879206_ - (lambda (_g7919979202_) + (let* ((_g7946079468_ + (lambda (_g7946179464_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7919979202_))) - (_g7919779295_ - (lambda (_g7919979210_) - ((lambda (_L79213_) + _g7946179464_))) + (_g7945979557_ + (lambda (_g7946179472_) + ((lambda (_L79475_) (let () - (let* ((_g7922979237_ - (lambda (_g7923079233_) + (let* ((_g7949179499_ + (lambda (_g7949279495_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7923079233_))) - (_g7922879291_ - (lambda (_g7923079241_) - ((lambda (_L79244_) + _g7949279495_))) + (_g7949079553_ + (lambda (_g7949279503_) + ((lambda (_L79506_) (let () - (let* ((_g7925779265_ - (lambda (_g7925879261_) + (let* ((_g7951979527_ + (lambda (_g7952079523_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7925879261_))) - (_g7925679287_ - (lambda (_g7925879269_) - ((lambda (_L79272_) + _g7952079523_))) + (_g7951879549_ + (lambda (_g7952079531_) + ((lambda (_L79534_) (let () (let () - (_lp79076_ - _L79162_ - _L79213_ - (let ((__tmp80249 + (_lp79338_ + _L79424_ + _L79475_ + (let ((__tmp80511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80250 + (let ((__tmp80512 (let () (declare (not safe)) - (cons _L79272_ '())))) + (cons _L79534_ '())))) (declare (not safe)) - (cons _E79081_ __tmp80250)))) + (cons _E79343_ __tmp80512)))) (declare (not safe)) - (cons __tmp80249 _r79082_)))))) - _g7925879269_)))) + (cons __tmp80511 _r79344_)))))) + _g7952079531_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7925679287_ + (_g7951879549_ (gx#stx-wrap-source - (let ((__tmp80253 + (let ((__tmp80515 (gx#datum->syntax '#f 'lambda)) - (__tmp80251 - (let ((__tmp80252 + (__tmp80513 + (let ((__tmp80514 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L79244_ '())))) + (cons _L79506_ '())))) (declare (not safe)) - (cons '() __tmp80252)))) + (cons '() __tmp80514)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80253 - __tmp80251)) - (gx#stx-source _L79164_)))))) - _g7923079241_)))) - (_g7922879291_ - (_generate-clause78947_ - _L79164_ + (cons __tmp80515 + __tmp80513)) + (gx#stx-source _L79426_)))))) + _g7949279503_)))) + (_g7949079553_ + (_generate-clause79209_ + _L79426_ (let () (declare (not safe)) - (cons _L79213_ '()))))))) - _g7919979210_)))) - (_g7919779295_ (gx#genident 'E)))))) + (cons _L79475_ '()))))))) + _g7946179472_)))) + (_g7945979557_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx8007180072_) - (let ((_e7918179306_ + ___stx8033380334_) + (let ((_e7944379568_ (gx#syntax-e - ___stx8007180072_))) - (let ((_tl7917979313_ + ___stx8033380334_))) + (let ((_tl7944179575_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e7918179306_))) - (_hd7918079310_ - (let () (declare (not safe)) (##car _e7918179306_)))) - (if (gx#identifier? _hd7918079310_) - (if (gx#free-identifier=? |gx[1]#_g80254_| _hd7918079310_) - (___kont8007480075_ _tl7917979313_) - (___kont8007680077_)) - (___kont8007680077_)))) + (##cdr _e7944379568_))) + (_hd7944279572_ + (let () (declare (not safe)) (##car _e7944379568_)))) + (if (gx#identifier? _hd7944279572_) + (if (gx#free-identifier=? |gx[1]#_g80516_| _hd7944279572_) + (___kont8033680337_ _tl7944179575_) + (___kont8033880339_)) + (___kont8033880339_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8007680077_)))))) - (___kont8009680097_ + (___kont8033880339_)))))) + (___kont8035880359_ (lambda () - (let* ((_g7910879116_ - (lambda (_g7910979112_) + (let* ((_g7937079378_ + (lambda (_g7937179374_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7910979112_))) - (_g7910779141_ - (lambda (_g7910979120_) - ((lambda (_L79123_) + _g7937179374_))) + (_g7936979403_ + (lambda (_g7937179382_) + ((lambda (_L79385_) (let () - (let ((__tmp80255 + (let ((__tmp80517 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp80256 - (let ((__tmp80257 + (let ((__tmp80518 + (let ((__tmp80519 (gx#stx-wrap-source - (let ((__tmp80265 + (let ((__tmp80527 (gx#datum->syntax '#f 'lambda)) - (__tmp80258 - (let ((__tmp80259 - (let ((__tmp80260 - (let ((__tmp80264 + (__tmp80520 + (let ((__tmp80521 + (let ((__tmp80522 + (let ((__tmp80526 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp80261 - (let ((__tmp80262 - (let ((__tmp80263 + (__tmp80523 + (let ((__tmp80524 + (let ((__tmp80525 (let () (declare (not safe)) - (cons _L79123_ '())))) + (cons _L79385_ '())))) (declare (not safe)) (cons '"Bad syntax; invalid syntax-case clause" - __tmp80263)))) + __tmp80525)))) (declare (not safe)) - (cons '#f __tmp80262)))) + (cons '#f __tmp80524)))) (declare (not safe)) - (cons __tmp80264 __tmp80261)))) + (cons __tmp80526 __tmp80523)))) (declare (not safe)) - (cons __tmp80260 '())))) + (cons __tmp80522 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp80259)))) + (cons '() __tmp80521)))) (declare (not safe)) - (cons __tmp80265 __tmp80258)) - (gx#stx-source _stx78790_)))) + (cons __tmp80527 __tmp80520)) + (gx#stx-source _stx79052_)))) (declare (not safe)) - (cons __tmp80257 '())))) + (cons __tmp80519 '())))) (declare (not safe)) - (cons _E79081_ __tmp80256)))) + (cons _E79343_ __tmp80518)))) (declare (not safe)) - (cons __tmp80255 _r79082_)))) - _g7910979120_)))) + (cons __tmp80517 _r79344_)))) + _g7937179382_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7910779141_ _tgt78942_))))) - (if (gx#stx-pair? ___stx8009180092_) - (let ((_e7909179152_ + (_g7936979403_ _tgt79204_))))) + (if (gx#stx-pair? ___stx8035380354_) + (let ((_e7935379414_ (gx#syntax-e - ___stx8009180092_))) - (let ((_tl7908979159_ + ___stx8035380354_))) + (let ((_tl7935179421_ (let () (declare (not safe)) - (##cdr _e7909179152_))) - (_hd7909079156_ + (##cdr _e7935379414_))) + (_hd7935279418_ (let () (declare (not safe)) - (##car _e7909179152_)))) - (___kont8009480095_ - _tl7908979159_ - _hd7909079156_))) - (___kont8009680097_)))))))) - (let* ((_bind78952_ - (_generate-clauses78950_ _clauses78945_)) - (_g7895578972_ - (lambda (_g7895678968_) + (##car _e7935379414_)))) + (___kont8035680357_ + _tl7935179421_ + _hd7935279418_))) + (___kont8035880359_)))))))) + (let* ((_bind79214_ + (_generate-clauses79212_ _clauses79207_)) + (_g7921779234_ + (lambda (_g7921879230_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7895678968_))) - (_g7895479069_ - (lambda (_g7895678976_) - (if (gx#stx-pair/null? _g7895678976_) - (let ((_g80266_ + _g7921879230_))) + (_g7921679331_ + (lambda (_g7921879238_) + (if (gx#stx-pair/null? _g7921879238_) + (let ((_g80528_ (gx#syntax-split-splice - _g7895678976_ + _g7921879238_ '0))) (begin - (let ((_g80267_ + (let ((_g80529_ (let () (declare (not safe)) - (if (##values? _g80266_) - (##vector-length _g80266_) + (if (##values? _g80528_) + (##vector-length _g80528_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80267_ 2))) + (##fx= _g80529_ 2))) (error "Context expects 2 values" - _g80267_))) - (let ((_target7895878979_ + _g80529_))) + (let ((_target7922079241_ (let () (declare (not safe)) - (##vector-ref _g80266_ 0))) - (_tl7896078982_ + (##vector-ref _g80528_ 0))) + (_tl7922279244_ (let () (declare (not safe)) - (##vector-ref _g80266_ 1)))) - (if (gx#stx-null? _tl7896078982_) - (letrec ((_loop7896178985_ - (lambda (_hd7895978989_ + (##vector-ref _g80528_ 1)))) + (if (gx#stx-null? _tl7922279244_) + (letrec ((_loop7922379247_ + (lambda (_hd7922179251_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try7896578992_) - (if (gx#stx-pair? _hd7895978989_) - (let ((_e7896278995_ (gx#syntax-e _hd7895978989_))) - (let ((_lp-hd7896378999_ + _bind-try7922779254_) + (if (gx#stx-pair? _hd7922179251_) + (let ((_e7922479257_ (gx#syntax-e _hd7922179251_))) + (let ((_lp-hd7922579261_ (let () (declare (not safe)) - (##car _e7896278995_))) - (_lp-tl7896479002_ + (##car _e7922479257_))) + (_lp-tl7922679264_ (let () (declare (not safe)) - (##cdr _e7896278995_)))) - (_loop7896178985_ - _lp-tl7896479002_ + (##cdr _e7922479257_)))) + (_loop7922379247_ + _lp-tl7922679264_ (let () (declare (not safe)) - (cons _lp-hd7896378999_ _bind-try7896578992_))))) - (let ((_bind-try7896679005_ - (reverse _bind-try7896578992_))) - ((lambda (_L79009_) + (cons _lp-hd7922579261_ _bind-try7922779254_))))) + (let ((_bind-try7922879267_ + (reverse _bind-try7922779254_))) + ((lambda (_L79271_) (let () - (let* ((_g7902779035_ - (lambda (_g7902879031_) + (let* ((_g7928979297_ + (lambda (_g7929079293_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7902879031_))) - (_g7902679065_ - (lambda (_g7902879039_) - ((lambda (_L79042_) + _g7929079293_))) + (_g7928879327_ + (lambda (_g7929079301_) + ((lambda (_L79304_) (let () (let () - (let ((__tmp80273 + (let ((__tmp80535 (gx#datum->syntax '#f 'let*)) - (__tmp80268 - (let ((__tmp80271 - (let ((__tmp80272 + (__tmp80530 + (let ((__tmp80533 + (let ((__tmp80534 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7905679059_ _g7905779062_) + (lambda (_g7931879321_ _g7931979324_) (let () (declare (not safe)) - (cons _g7905679059_ _g7905779062_))))) + (cons _g7931879321_ _g7931979324_))))) (declare (not safe)) - (foldr1 __tmp80272 '() _L79009_))) - (__tmp80269 - (let ((__tmp80270 - (let () (declare (not safe)) (cons _L79042_ '())))) + (foldr1 __tmp80534 '() _L79271_))) + (__tmp80531 + (let ((__tmp80532 + (let () (declare (not safe)) (cons _L79304_ '())))) (declare (not safe)) - (cons __tmp80270 '())))) + (cons __tmp80532 '())))) (declare (not safe)) - (cons __tmp80271 __tmp80269)))) + (cons __tmp80533 __tmp80531)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80273 - __tmp80268))))) - _g7902879039_)))) - (_g7902679065_ + (cons __tmp80535 + __tmp80530))))) + _g7929079301_)))) + (_g7928879327_ (car (let () (declare (not safe)) - (last _bind78952_))))))) - _bind-try7896679005_)))))) + (last _bind79214_))))))) + _bind-try7922879267_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7896178985_ - _target7895878979_ + (_loop7922379247_ + _target7922079241_ '())) - (_g7895578972_ _g7895678976_))))) - (_g7895578972_ _g7895678976_))))) - (_g7895479069_ _bind78952_)))))) - (let* ((_g7879678815_ - (lambda (_g7879778811_) + (_g7921779234_ _g7921879238_))))) + (_g7921779234_ _g7921879238_))))) + (_g7921679331_ _bind79214_)))))) + (let* ((_g7905879077_ + (lambda (_g7905979073_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7879778811_))) - (_g7879578938_ - (lambda (_g7879778819_) - (if (gx#stx-pair? _g7879778819_) - (let ((_e7880378822_ (gx#syntax-e _g7879778819_))) - (let ((_hd7880278826_ + _g7905979073_))) + (_g7905779200_ + (lambda (_g7905979081_) + (if (gx#stx-pair? _g7905979081_) + (let ((_e7906579084_ (gx#syntax-e _g7905979081_))) + (let ((_hd7906479088_ (let () (declare (not safe)) - (##car _e7880378822_))) - (_tl7880178829_ + (##car _e7906579084_))) + (_tl7906379091_ (let () (declare (not safe)) - (##cdr _e7880378822_)))) - (if (gx#stx-pair? _tl7880178829_) - (let ((_e7880678832_ - (gx#syntax-e _tl7880178829_))) - (let ((_hd7880578836_ + (##cdr _e7906579084_)))) + (if (gx#stx-pair? _tl7906379091_) + (let ((_e7906879094_ + (gx#syntax-e _tl7906379091_))) + (let ((_hd7906779098_ (let () (declare (not safe)) - (##car _e7880678832_))) - (_tl7880478839_ + (##car _e7906879094_))) + (_tl7906679101_ (let () (declare (not safe)) - (##cdr _e7880678832_)))) - (if (gx#stx-pair? _tl7880478839_) - (let ((_e7880978842_ - (gx#syntax-e _tl7880478839_))) - (let ((_hd7880878846_ + (##cdr _e7906879094_)))) + (if (gx#stx-pair? _tl7906679101_) + (let ((_e7907179104_ + (gx#syntax-e _tl7906679101_))) + (let ((_hd7907079108_ (let () (declare (not safe)) - (##car _e7880978842_))) - (_tl7880778849_ + (##car _e7907179104_))) + (_tl7906979111_ (let () (declare (not safe)) - (##cdr _e7880978842_)))) - ((lambda (_L78852_ - _L78854_ - _L78855_) + (##cdr _e7907179104_)))) + ((lambda (_L79114_ + _L79116_ + _L79117_) (if (and (gx#identifier-list? - _L78854_) + _L79116_) (gx#stx-list? - _L78852_)) - (let* ((_g7887378881_ - (lambda (_g7887478877_) + _L79114_)) + (let* ((_g7913579143_ + (lambda (_g7913679139_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7887478877_))) - (_g7887278934_ - (lambda (_g7887478885_) - ((lambda (_L78888_) + _g7913679139_))) + (_g7913479196_ + (lambda (_g7913679147_) + ((lambda (_L79150_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g7890078908_ - (lambda (_g7890178904_) + (let* ((_g7916279170_ + (lambda (_g7916379166_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7890178904_))) - (_g7889978930_ - (lambda (_g7890178912_) - ((lambda (_L78915_) + _g7916379166_))) + (_g7916179192_ + (lambda (_g7916379174_) + ((lambda (_L79177_) (let () (let () - (let ((__tmp80279 + (let ((__tmp80541 (gx#datum->syntax '#f 'let)) - (__tmp80274 - (let ((__tmp80276 - (let ((__tmp80277 - (let ((__tmp80278 + (__tmp80536 + (let ((__tmp80538 + (let ((__tmp80539 + (let ((__tmp80540 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L78855_ '())))) + (cons _L79117_ '())))) (declare (not safe)) - (cons _L78888_ __tmp80278)))) + (cons _L79150_ __tmp80540)))) (declare (not safe)) - (cons __tmp80277 '()))) - (__tmp80275 (let () (declare (not safe)) (cons _L78915_ '())))) + (cons __tmp80539 '()))) + (__tmp80537 (let () (declare (not safe)) (cons _L79177_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp80276 - __tmp80275)))) + (cons __tmp80538 + __tmp80537)))) (declare (not safe)) - (cons __tmp80279 __tmp80274))))) - _g7890178912_)))) - (_g7889978930_ - (_generate78793_ - _L78888_ - (gx#syntax->list _L78854_) - _L78852_))))) - _g7887478885_)))) + (cons __tmp80541 __tmp80536))))) + _g7916379174_)))) + (_g7916179192_ + (_generate79055_ + _L79150_ + (gx#syntax->list _L79116_) + _L79114_))))) + _g7913679147_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7887278934_ + (_g7913479196_ (gx#genident 'e))) - (_g7879678815_ - _g7879778819_))) - _tl7880778849_ - _hd7880878846_ - _hd7880578836_))) - (_g7879678815_ _g7879778819_)))) - (_g7879678815_ _g7879778819_)))) - (_g7879678815_ _g7879778819_))))) - (_g7879578938_ _stx78790_))))))) + (_g7905879077_ + _g7905979081_))) + _tl7906979111_ + _hd7907079108_ + _hd7906779098_))) + (_g7905879077_ _g7905979081_)))) + (_g7905879077_ _g7905979081_)))) + (_g7905879077_ _g7905979081_))))) + (_g7905779200_ _stx79052_))))))) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index e56b1bc0..eba4ed78 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 1709375798) + (define gerbil/expander/compile::timestamp 1709457369) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx94854_) - (let* ((_e9485594862_ _stx94854_) - (_E9485794866_ + (lambda (_stx95116_) + (let* ((_e9511795124_ _stx95116_) + (_E9511995128_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9485594862_))) - (_E9485694880_ - (lambda () - (if (gx#stx-pair? _e9485594862_) - (let ((_e9485894870_ (gx#syntax-e _e9485594862_))) - (let ((_hd9485994873_ (##car _e9485894870_)) - (_tl9486094875_ (##cdr _e9485894870_))) - (let ((_form94878_ _hd9485994873_)) + _e9511795124_))) + (_E9511895142_ + (lambda () + (if (gx#stx-pair? _e9511795124_) + (let ((_e9512095132_ (gx#syntax-e _e9511795124_))) + (let ((_hd9512195135_ (##car _e9512095132_)) + (_tl9512295137_ (##cdr _e9512095132_))) + (let ((_form95140_ _hd9512195135_)) (if '#t - (let* ((__self94883 - (gx#syntax-local-e__0 _form94878_)) - (__method94884 + (let* ((__self95145 + (gx#syntax-local-e__0 _form95140_)) + (__method95146 (method-ref - __self94883 + __self95145 'compile-top-syntax))) - (if __method94884 - (__method94884 __self94883 _stx94854_) + (if __method95146 + (__method95146 __self95145 _stx95116_) (error '"Missing method" - __self94883 + __self95145 'compile-top-syntax))) - (_E9485794866_))))) - (_E9485794866_))))) - (_E9485694880_)))) + (_E9511995128_))))) + (_E9511995128_))))) + (_E9511895142_)))) (define gx#core-expander::compile-top-syntax - (lambda (_self94814_ _stx94815_) - (let* ((_self9481694824_ _self94814_) - (_E9481894828_ - (lambda () (error '"No clause matching" _self9481694824_))) - (_K9481994840_ - (lambda (_K94831_) - (let ((_$e94833_ (gx#stx-source _stx94815_))) - (if _$e94833_ - ((lambda (_g9483594837_) + (lambda (_self95076_ _stx95077_) + (let* ((_self9507895086_ _self95076_) + (_E9508095090_ + (lambda () (error '"No clause matching" _self9507895086_))) + (_K9508195102_ + (lambda (_K95093_) + (let ((_$e95095_ (gx#stx-source _stx95077_))) + (if _$e95095_ + ((lambda (_g9509795099_) (gx#stx-wrap-source - (_K94831_ _stx94815_) - _g9483594837_)) - _$e94833_) - (_K94831_ _stx94815_)))))) - (if (##structure-instance-of? _self9481694824_ 'gx#core-expander::t) - (let* ((_e9482094843_ + (_K95093_ _stx95077_) + _g9509795099_)) + _$e95095_) + (_K95093_ _stx95077_)))))) + (if (##structure-instance-of? _self9507895086_ 'gx#core-expander::t) + (let* ((_e9508295105_ (##unchecked-structure-ref - _self9481694824_ + _self9507895086_ '1 gx#expander::t '#f)) - (_e9482194846_ + (_e9508395108_ (##unchecked-structure-ref - _self9481694824_ + _self9507895086_ '2 gx#core-expander::t '#f)) - (_e9482294849_ + (_e9508495111_ (##unchecked-structure-ref - _self9481694824_ + _self9507895086_ '3 gx#core-expander::t '#f)) - (_K94852_ _e9482294849_)) - (_K9481994840_ _K94852_)) - (_E9481894828_))))) + (_K95114_ _e9508495111_)) + (_K9508195102_ _K95114_)) + (_E9508095090_))))) (bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx94688_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx94688_))) + (lambda (_stx94950_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx94950_))) (define gx#core-compile-top-begin% - (lambda (_stx94658_) - (let* ((_e9465994666_ _stx94658_) - (_E9466194670_ + (lambda (_stx94920_) + (let* ((_e9492194928_ _stx94920_) + (_E9492394932_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9465994666_))) - (_E9466094684_ - (lambda () - (if (gx#stx-pair? _e9465994666_) - (let ((_e9466294674_ (gx#syntax-e _e9465994666_))) - (let ((_hd9466394677_ (##car _e9466294674_)) - (_tl9466494679_ (##cdr _e9466294674_))) - (let ((_body94682_ _tl9466494679_)) + _e9492194928_))) + (_E9492294946_ + (lambda () + (if (gx#stx-pair? _e9492194928_) + (let ((_e9492494936_ (gx#syntax-e _e9492194928_))) + (let ((_hd9492594939_ (##car _e9492494936_)) + (_tl9492694941_ (##cdr _e9492494936_))) + (let ((_body94944_ _tl9492694941_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body94682_)) - (_E9466194670_))))) - (_E9466194670_))))) - (_E9466094684_)))) + _body94944_)) + (_E9492394932_))))) + (_E9492394932_))))) + (_E9492294946_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx94627_) - (let* ((_e9462894635_ _stx94627_) - (_E9463094639_ + (lambda (_stx94889_) + (let* ((_e9489094897_ _stx94889_) + (_E9489294901_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9462894635_))) - (_E9462994654_ - (lambda () - (if (gx#stx-pair? _e9462894635_) - (let ((_e9463194643_ (gx#syntax-e _e9462894635_))) - (let ((_hd9463294646_ (##car _e9463194643_)) - (_tl9463394648_ (##cdr _e9463194643_))) - (let ((_body94651_ _tl9463394648_)) + _e9489094897_))) + (_E9489194916_ + (lambda () + (if (gx#stx-pair? _e9489094897_) + (let ((_e9489394905_ (gx#syntax-e _e9489094897_))) + (let ((_hd9489494908_ (##car _e9489394905_)) + (_tl9489594910_ (##cdr _e9489394905_))) + (let ((_body94913_ _tl9489594910_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body94651_)) + _body94913_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E9463094639_))))) - (_E9463094639_))))) - (_E9462994654_)))) + (_E9489294901_))))) + (_E9489294901_))))) + (_E9489194916_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx94597_) - (let* ((_e9459894605_ _stx94597_) - (_E9460094609_ + (lambda (_stx94859_) + (let* ((_e9486094867_ _stx94859_) + (_E9486294871_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9459894605_))) - (_E9459994623_ - (lambda () - (if (gx#stx-pair? _e9459894605_) - (let ((_e9460194613_ (gx#syntax-e _e9459894605_))) - (let ((_hd9460294616_ (##car _e9460194613_)) - (_tl9460394618_ (##cdr _e9460194613_))) - (let ((_body94621_ _tl9460394618_)) + _e9486094867_))) + (_E9486194885_ + (lambda () + (if (gx#stx-pair? _e9486094867_) + (let ((_e9486394875_ (gx#syntax-e _e9486094867_))) + (let ((_hd9486494878_ (##car _e9486394875_)) + (_tl9486594880_ (##cdr _e9486394875_))) + (let ((_body94883_ _tl9486594880_)) (if '#t - (cons '%#begin-foreign _body94621_) - (_E9460094609_))))) - (_E9460094609_))))) - (_E9459994623_)))) + (cons '%#begin-foreign _body94883_) + (_E9486294871_))))) + (_E9486294871_))))) + (_E9486194885_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx94543_) - (let* ((_e9454494557_ _stx94543_) - (_E9454694561_ + (lambda (_stx94805_) + (let* ((_e9480694819_ _stx94805_) + (_E9480894823_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9454494557_))) - (_E9454594593_ - (lambda () - (if (gx#stx-pair? _e9454494557_) - (let ((_e9454794565_ (gx#syntax-e _e9454494557_))) - (let ((_hd9454894568_ (##car _e9454794565_)) - (_tl9454994570_ (##cdr _e9454794565_))) - (if (gx#stx-pair? _tl9454994570_) - (let ((_e9455094573_ - (gx#syntax-e _tl9454994570_))) - (let ((_hd9455194576_ (##car _e9455094573_)) - (_tl9455294578_ (##cdr _e9455094573_))) - (let ((_ann94581_ _hd9455194576_)) - (if (gx#stx-pair? _tl9455294578_) - (let ((_e9455394583_ - (gx#syntax-e _tl9455294578_))) - (let ((_hd9455494586_ - (##car _e9455394583_)) - (_tl9455594588_ - (##cdr _e9455394583_))) - (let ((_expr94591_ _hd9455494586_)) - (if (gx#stx-null? _tl9455594588_) + _e9480694819_))) + (_E9480794855_ + (lambda () + (if (gx#stx-pair? _e9480694819_) + (let ((_e9480994827_ (gx#syntax-e _e9480694819_))) + (let ((_hd9481094830_ (##car _e9480994827_)) + (_tl9481194832_ (##cdr _e9480994827_))) + (if (gx#stx-pair? _tl9481194832_) + (let ((_e9481294835_ + (gx#syntax-e _tl9481194832_))) + (let ((_hd9481394838_ (##car _e9481294835_)) + (_tl9481494840_ (##cdr _e9481294835_))) + (let ((_ann94843_ _hd9481394838_)) + (if (gx#stx-pair? _tl9481494840_) + (let ((_e9481594845_ + (gx#syntax-e _tl9481494840_))) + (let ((_hd9481694848_ + (##car _e9481594845_)) + (_tl9481794850_ + (##cdr _e9481594845_))) + (let ((_expr94853_ _hd9481694848_)) + (if (gx#stx-null? _tl9481794850_) (if '#t (gx#core-compile-top-syntax - _expr94591_) - (_E9454694561_)) - (_E9454694561_))))) - (_E9454694561_))))) - (_E9454694561_)))) - (_E9454694561_))))) - (_E9454594593_)))) + _expr94853_) + (_E9480894823_)) + (_E9480894823_))))) + (_E9480894823_))))) + (_E9480894823_)))) + (_E9480894823_))))) + (_E9480794855_)))) (define gx#core-compile-top-import% - (lambda (_stx94513_) - (let* ((_e9451494521_ _stx94513_) - (_E9451694525_ + (lambda (_stx94775_) + (let* ((_e9477694783_ _stx94775_) + (_E9477894787_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9451494521_))) - (_E9451594539_ - (lambda () - (if (gx#stx-pair? _e9451494521_) - (let ((_e9451794529_ (gx#syntax-e _e9451494521_))) - (let ((_hd9451894532_ (##car _e9451794529_)) - (_tl9451994534_ (##cdr _e9451794529_))) - (let ((_body94537_ _tl9451994534_)) + _e9477694783_))) + (_E9477794801_ + (lambda () + (if (gx#stx-pair? _e9477694783_) + (let ((_e9477994791_ (gx#syntax-e _e9477694783_))) + (let ((_hd9478094794_ (##car _e9477994791_)) + (_tl9478194796_ (##cdr _e9477994791_))) + (let ((_body94799_ _tl9478194796_)) (if '#t - (cons '%#import _body94537_) - (_E9451694525_))))) - (_E9451694525_))))) - (_E9451594539_)))) + (cons '%#import _body94799_) + (_E9477894787_))))) + (_E9477894787_))))) + (_E9477794801_)))) (define gx#core-compile-top-module% - (lambda (_stx94470_) - (let* ((_e9447194481_ _stx94470_) - (_E9447394485_ + (lambda (_stx94732_) + (let* ((_e9473394743_ _stx94732_) + (_E9473594747_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9447194481_))) - (_E9447294509_ - (lambda () - (if (gx#stx-pair? _e9447194481_) - (let ((_e9447494489_ (gx#syntax-e _e9447194481_))) - (let ((_hd9447594492_ (##car _e9447494489_)) - (_tl9447694494_ (##cdr _e9447494489_))) - (if (gx#stx-pair? _tl9447694494_) - (let ((_e9447794497_ - (gx#syntax-e _tl9447694494_))) - (let ((_hd9447894500_ (##car _e9447794497_)) - (_tl9447994502_ (##cdr _e9447794497_))) - (let* ((_hd94505_ _hd9447894500_) - (_body94507_ _tl9447994502_)) + _e9473394743_))) + (_E9473494771_ + (lambda () + (if (gx#stx-pair? _e9473394743_) + (let ((_e9473694751_ (gx#syntax-e _e9473394743_))) + (let ((_hd9473794754_ (##car _e9473694751_)) + (_tl9473894756_ (##cdr _e9473694751_))) + (if (gx#stx-pair? _tl9473894756_) + (let ((_e9473994759_ + (gx#syntax-e _tl9473894756_))) + (let ((_hd9474094762_ (##car _e9473994759_)) + (_tl9474194764_ (##cdr _e9473994759_))) + (let* ((_hd94767_ _hd9474094762_) + (_body94769_ _tl9474194764_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd94505_) + _hd94767_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body94507_))) - (_E9447394485_))))) - (_E9447394485_)))) - (_E9447394485_))))) - (_E9447294509_)))) + _body94769_))) + (_E9473594747_))))) + (_E9473594747_)))) + (_E9473594747_))))) + (_E9473494771_)))) (define gx#core-compile-top-export% - (lambda (_stx94440_) - (let* ((_e9444194448_ _stx94440_) - (_E9444394452_ + (lambda (_stx94702_) + (let* ((_e9470394710_ _stx94702_) + (_E9470594714_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9444194448_))) - (_E9444294466_ - (lambda () - (if (gx#stx-pair? _e9444194448_) - (let ((_e9444494456_ (gx#syntax-e _e9444194448_))) - (let ((_hd9444594459_ (##car _e9444494456_)) - (_tl9444694461_ (##cdr _e9444494456_))) - (let ((_body94464_ _tl9444694461_)) + _e9470394710_))) + (_E9470494728_ + (lambda () + (if (gx#stx-pair? _e9470394710_) + (let ((_e9470694718_ (gx#syntax-e _e9470394710_))) + (let ((_hd9470794721_ (##car _e9470694718_)) + (_tl9470894723_ (##cdr _e9470694718_))) + (let ((_body94726_ _tl9470894723_)) (if '#t - (cons '%#export _body94464_) - (_E9444394452_))))) - (_E9444394452_))))) - (_E9444294466_)))) + (cons '%#export _body94726_) + (_E9470594714_))))) + (_E9470594714_))))) + (_E9470494728_)))) (define gx#core-compile-top-provide% - (lambda (_stx94410_) - (let* ((_e9441194418_ _stx94410_) - (_E9441394422_ + (lambda (_stx94672_) + (let* ((_e9467394680_ _stx94672_) + (_E9467594684_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9441194418_))) - (_E9441294436_ - (lambda () - (if (gx#stx-pair? _e9441194418_) - (let ((_e9441494426_ (gx#syntax-e _e9441194418_))) - (let ((_hd9441594429_ (##car _e9441494426_)) - (_tl9441694431_ (##cdr _e9441494426_))) - (let ((_body94434_ _tl9441694431_)) + _e9467394680_))) + (_E9467494698_ + (lambda () + (if (gx#stx-pair? _e9467394680_) + (let ((_e9467694688_ (gx#syntax-e _e9467394680_))) + (let ((_hd9467794691_ (##car _e9467694688_)) + (_tl9467894693_ (##cdr _e9467694688_))) + (let ((_body94696_ _tl9467894693_)) (if '#t - (cons '%#provide _body94434_) - (_E9441394422_))))) - (_E9441394422_))))) - (_E9441294436_)))) + (cons '%#provide _body94696_) + (_E9467594684_))))) + (_E9467594684_))))) + (_E9467494698_)))) (define gx#core-compile-top-extern% - (lambda (_stx94380_) - (let* ((_e9438194388_ _stx94380_) - (_E9438394392_ + (lambda (_stx94642_) + (let* ((_e9464394650_ _stx94642_) + (_E9464594654_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9438194388_))) - (_E9438294406_ - (lambda () - (if (gx#stx-pair? _e9438194388_) - (let ((_e9438494396_ (gx#syntax-e _e9438194388_))) - (let ((_hd9438594399_ (##car _e9438494396_)) - (_tl9438694401_ (##cdr _e9438494396_))) - (let ((_body94404_ _tl9438694401_)) + _e9464394650_))) + (_E9464494668_ + (lambda () + (if (gx#stx-pair? _e9464394650_) + (let ((_e9464694658_ (gx#syntax-e _e9464394650_))) + (let ((_hd9464794661_ (##car _e9464694658_)) + (_tl9464894663_ (##cdr _e9464694658_))) + (let ((_body94666_ _tl9464894663_)) (if '#t - (cons '%#extern _body94404_) - (_E9438394392_))))) - (_E9438394392_))))) - (_E9438294406_)))) + (cons '%#extern _body94666_) + (_E9464594654_))))) + (_E9464594654_))))) + (_E9464494668_)))) (define gx#core-compile-top-define-values% - (lambda (_stx94326_) - (let* ((_e9432794340_ _stx94326_) - (_E9432994344_ + (lambda (_stx94588_) + (let* ((_e9458994602_ _stx94588_) + (_E9459194606_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9432794340_))) - (_E9432894376_ - (lambda () - (if (gx#stx-pair? _e9432794340_) - (let ((_e9433094348_ (gx#syntax-e _e9432794340_))) - (let ((_hd9433194351_ (##car _e9433094348_)) - (_tl9433294353_ (##cdr _e9433094348_))) - (if (gx#stx-pair? _tl9433294353_) - (let ((_e9433394356_ - (gx#syntax-e _tl9433294353_))) - (let ((_hd9433494359_ (##car _e9433394356_)) - (_tl9433594361_ (##cdr _e9433394356_))) - (let ((_hd94364_ _hd9433494359_)) - (if (gx#stx-pair? _tl9433594361_) - (let ((_e9433694366_ - (gx#syntax-e _tl9433594361_))) - (let ((_hd9433794369_ - (##car _e9433694366_)) - (_tl9433894371_ - (##cdr _e9433694366_))) - (let ((_expr94374_ _hd9433794369_)) - (if (gx#stx-null? _tl9433894371_) + _e9458994602_))) + (_E9459094638_ + (lambda () + (if (gx#stx-pair? _e9458994602_) + (let ((_e9459294610_ (gx#syntax-e _e9458994602_))) + (let ((_hd9459394613_ (##car _e9459294610_)) + (_tl9459494615_ (##cdr _e9459294610_))) + (if (gx#stx-pair? _tl9459494615_) + (let ((_e9459594618_ + (gx#syntax-e _tl9459494615_))) + (let ((_hd9459694621_ (##car _e9459594618_)) + (_tl9459794623_ (##cdr _e9459594618_))) + (let ((_hd94626_ _hd9459694621_)) + (if (gx#stx-pair? _tl9459794623_) + (let ((_e9459894628_ + (gx#syntax-e _tl9459794623_))) + (let ((_hd9459994631_ + (##car _e9459894628_)) + (_tl9460094633_ + (##cdr _e9459894628_))) + (let ((_expr94636_ _hd9459994631_)) + (if (gx#stx-null? _tl9460094633_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd94364_) - (cons (gx#core-compile-top-syntax _expr94374_) '()))) - (_E9432994344_)) + _hd94626_) + (cons (gx#core-compile-top-syntax _expr94636_) '()))) + (_E9459194606_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9432994344_))))) - (_E9432994344_))))) - (_E9432994344_)))) - (_E9432994344_))))) - (_E9432894376_)))) + (_E9459194606_))))) + (_E9459194606_))))) + (_E9459194606_)))) + (_E9459194606_))))) + (_E9459094638_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx94271_) - (let* ((_e9427294285_ _stx94271_) - (_E9427494289_ + (lambda (_stx94533_) + (let* ((_e9453494547_ _stx94533_) + (_E9453694551_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9427294285_))) - (_E9427394322_ - (lambda () - (if (gx#stx-pair? _e9427294285_) - (let ((_e9427594293_ (gx#syntax-e _e9427294285_))) - (let ((_hd9427694296_ (##car _e9427594293_)) - (_tl9427794298_ (##cdr _e9427594293_))) - (if (gx#stx-pair? _tl9427794298_) - (let ((_e9427894301_ - (gx#syntax-e _tl9427794298_))) - (let ((_hd9427994304_ (##car _e9427894301_)) - (_tl9428094306_ (##cdr _e9427894301_))) - (let ((_hd94309_ _hd9427994304_)) - (if (gx#stx-pair? _tl9428094306_) - (let ((_e9428194311_ - (gx#syntax-e _tl9428094306_))) - (let ((_hd9428294314_ - (##car _e9428194311_)) - (_tl9428394316_ - (##cdr _e9428194311_))) - (let ((_expr94319_ _hd9428294314_)) - (if (gx#stx-null? _tl9428394316_) + _e9453494547_))) + (_E9453594584_ + (lambda () + (if (gx#stx-pair? _e9453494547_) + (let ((_e9453794555_ (gx#syntax-e _e9453494547_))) + (let ((_hd9453894558_ (##car _e9453794555_)) + (_tl9453994560_ (##cdr _e9453794555_))) + (if (gx#stx-pair? _tl9453994560_) + (let ((_e9454094563_ + (gx#syntax-e _tl9453994560_))) + (let ((_hd9454194566_ (##car _e9454094563_)) + (_tl9454294568_ (##cdr _e9454094563_))) + (let ((_hd94571_ _hd9454194566_)) + (if (gx#stx-pair? _tl9454294568_) + (let ((_e9454394573_ + (gx#syntax-e _tl9454294568_))) + (let ((_hd9454494576_ + (##car _e9454394573_)) + (_tl9454594578_ + (##cdr _e9454394573_))) + (let ((_expr94581_ _hd9454494576_)) + (if (gx#stx-null? _tl9454594578_) (if '#t (cons '%#define-syntax - (cons _hd94309_ + (cons _hd94571_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr94319_)) + (gx#core-compile-top-syntax _expr94581_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E9427494289_)) + (_E9453694551_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9427494289_))))) - (_E9427494289_))))) - (_E9427494289_)))) - (_E9427494289_))))) - (_E9427394322_)))) + (_E9453694551_))))) + (_E9453694551_))))) + (_E9453694551_)))) + (_E9453694551_))))) + (_E9453594584_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx94241_) - (let* ((_e9424294249_ _stx94241_) - (_E9424494253_ + (lambda (_stx94503_) + (let* ((_e9450494511_ _stx94503_) + (_E9450694515_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9424294249_))) - (_E9424394267_ - (lambda () - (if (gx#stx-pair? _e9424294249_) - (let ((_e9424594257_ (gx#syntax-e _e9424294249_))) - (let ((_hd9424694260_ (##car _e9424594257_)) - (_tl9424794262_ (##cdr _e9424594257_))) - (let ((_body94265_ _tl9424794262_)) + _e9450494511_))) + (_E9450594529_ + (lambda () + (if (gx#stx-pair? _e9450494511_) + (let ((_e9450794519_ (gx#syntax-e _e9450494511_))) + (let ((_hd9450894522_ (##car _e9450794519_)) + (_tl9450994524_ (##cdr _e9450794519_))) + (let ((_body94527_ _tl9450994524_)) (if '#t - (cons '%#define-alias _body94265_) - (_E9424494253_))))) - (_E9424494253_))))) - (_E9424394267_)))) + (cons '%#define-alias _body94527_) + (_E9450694515_))))) + (_E9450694515_))))) + (_E9450594529_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx94211_) - (let* ((_e9421294219_ _stx94211_) - (_E9421494223_ + (lambda (_stx94473_) + (let* ((_e9447494481_ _stx94473_) + (_E9447694485_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9421294219_))) - (_E9421394237_ - (lambda () - (if (gx#stx-pair? _e9421294219_) - (let ((_e9421594227_ (gx#syntax-e _e9421294219_))) - (let ((_hd9421694230_ (##car _e9421594227_)) - (_tl9421794232_ (##cdr _e9421594227_))) - (let ((_body94235_ _tl9421794232_)) + _e9447494481_))) + (_E9447594499_ + (lambda () + (if (gx#stx-pair? _e9447494481_) + (let ((_e9447794489_ (gx#syntax-e _e9447494481_))) + (let ((_hd9447894492_ (##car _e9447794489_)) + (_tl9447994494_ (##cdr _e9447794489_))) + (let ((_body94497_ _tl9447994494_)) (if '#t - (cons '%#define-runtime _body94235_) - (_E9421494223_))))) - (_E9421494223_))))) - (_E9421394237_)))) + (cons '%#define-runtime _body94497_) + (_E9447694485_))))) + (_E9447694485_))))) + (_E9447594499_)))) (define gx#core-compile-top-declare% - (lambda (_stx94181_) - (let* ((_e9418294189_ _stx94181_) - (_E9418494193_ + (lambda (_stx94443_) + (let* ((_e9444494451_ _stx94443_) + (_E9444694455_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9418294189_))) - (_E9418394207_ - (lambda () - (if (gx#stx-pair? _e9418294189_) - (let ((_e9418594197_ (gx#syntax-e _e9418294189_))) - (let ((_hd9418694200_ (##car _e9418594197_)) - (_tl9418794202_ (##cdr _e9418594197_))) - (let ((_decls94205_ _tl9418794202_)) + _e9444494451_))) + (_E9444594469_ + (lambda () + (if (gx#stx-pair? _e9444494451_) + (let ((_e9444794459_ (gx#syntax-e _e9444494451_))) + (let ((_hd9444894462_ (##car _e9444794459_)) + (_tl9444994464_ (##cdr _e9444794459_))) + (let ((_decls94467_ _tl9444994464_)) (if '#t - (cons '%#declare _decls94205_) - (_E9418494193_))))) - (_E9418494193_))))) - (_E9418394207_)))) + (cons '%#declare _decls94467_) + (_E9444694455_))))) + (_E9444694455_))))) + (_E9444594469_)))) (define gx#core-compile-top-lambda% - (lambda (_stx94151_) - (let* ((_e9415294159_ _stx94151_) - (_E9415494163_ + (lambda (_stx94413_) + (let* ((_e9441494421_ _stx94413_) + (_E9441694425_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9415294159_))) - (_E9415394177_ - (lambda () - (if (gx#stx-pair? _e9415294159_) - (let ((_e9415594167_ (gx#syntax-e _e9415294159_))) - (let ((_hd9415694170_ (##car _e9415594167_)) - (_tl9415794172_ (##cdr _e9415594167_))) - (let ((_clause94175_ _tl9415794172_)) + _e9441494421_))) + (_E9441594439_ + (lambda () + (if (gx#stx-pair? _e9441494421_) + (let ((_e9441794429_ (gx#syntax-e _e9441494421_))) + (let ((_hd9441894432_ (##car _e9441794429_)) + (_tl9441994434_ (##cdr _e9441794429_))) + (let ((_clause94437_ _tl9441994434_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause94175_)) - (_E9415494163_))))) - (_E9415494163_))))) - (_E9415394177_)))) + _clause94437_)) + (_E9441694425_))))) + (_E9441694425_))))) + (_E9441594439_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx94108_) - (let* ((_e9410994119_ _stx94108_) - (_E9411194123_ + (lambda (_stx94370_) + (let* ((_e9437194381_ _stx94370_) + (_E9437394385_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9410994119_))) - (_E9411094147_ - (lambda () - (if (gx#stx-pair? _e9410994119_) - (let ((_e9411294127_ (gx#syntax-e _e9410994119_))) - (let ((_hd9411394130_ (##car _e9411294127_)) - (_tl9411494132_ (##cdr _e9411294127_))) - (let ((_hd94135_ _hd9411394130_)) - (if (gx#stx-pair? _tl9411494132_) - (let ((_e9411594137_ - (gx#syntax-e _tl9411494132_))) - (let ((_hd9411694140_ (##car _e9411594137_)) - (_tl9411794142_ (##cdr _e9411594137_))) - (let ((_body94145_ _hd9411694140_)) - (if (gx#stx-null? _tl9411794142_) + _e9437194381_))) + (_E9437294409_ + (lambda () + (if (gx#stx-pair? _e9437194381_) + (let ((_e9437494389_ (gx#syntax-e _e9437194381_))) + (let ((_hd9437594392_ (##car _e9437494389_)) + (_tl9437694394_ (##cdr _e9437494389_))) + (let ((_hd94397_ _hd9437594392_)) + (if (gx#stx-pair? _tl9437694394_) + (let ((_e9437794399_ + (gx#syntax-e _tl9437694394_))) + (let ((_hd9437894402_ (##car _e9437794399_)) + (_tl9437994404_ (##cdr _e9437794399_))) + (let ((_body94407_ _hd9437894402_)) + (if (gx#stx-null? _tl9437994404_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd94135_) + _hd94397_) (cons (gx#core-compile-top-syntax - _body94145_) + _body94407_) '())) - (_E9411194123_)) - (_E9411194123_))))) - (_E9411194123_))))) - (_E9411194123_))))) - (_E9411094147_)))) + (_E9437394385_)) + (_E9437394385_))))) + (_E9437394385_))))) + (_E9437394385_))))) + (_E9437294409_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx94078_) - (let* ((_e9407994086_ _stx94078_) - (_E9408194090_ + (lambda (_stx94340_) + (let* ((_e9434194348_ _stx94340_) + (_E9434394352_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9407994086_))) - (_E9408094104_ - (lambda () - (if (gx#stx-pair? _e9407994086_) - (let ((_e9408294094_ (gx#syntax-e _e9407994086_))) - (let ((_hd9408394097_ (##car _e9408294094_)) - (_tl9408494099_ (##cdr _e9408294094_))) - (let ((_clauses94102_ _tl9408494099_)) + _e9434194348_))) + (_E9434294366_ + (lambda () + (if (gx#stx-pair? _e9434194348_) + (let ((_e9434494356_ (gx#syntax-e _e9434194348_))) + (let ((_hd9434594359_ (##car _e9434494356_)) + (_tl9434694361_ (##cdr _e9434494356_))) + (let ((_clauses94364_ _tl9434694361_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses94102_)) - (_E9408194090_))))) - (_E9408194090_))))) - (_E9408094104_)))) + _clauses94364_)) + (_E9434394352_))))) + (_E9434394352_))))) + (_E9434294366_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx94013_ _form94014_) - (let* ((_e9401594028_ _stx94013_) - (_E9401794032_ + (lambda (_stx94275_ _form94276_) + (let* ((_e9427794290_ _stx94275_) + (_E9427994294_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9401594028_))) - (_E9401694064_ - (lambda () - (if (gx#stx-pair? _e9401594028_) - (let ((_e9401894036_ (gx#syntax-e _e9401594028_))) - (let ((_hd9401994039_ (##car _e9401894036_)) - (_tl9402094041_ (##cdr _e9401894036_))) - (if (gx#stx-pair? _tl9402094041_) - (let ((_e9402194044_ - (gx#syntax-e _tl9402094041_))) - (let ((_hd9402294047_ (##car _e9402194044_)) - (_tl9402394049_ (##cdr _e9402194044_))) - (let ((_hd94052_ _hd9402294047_)) - (if (gx#stx-pair? _tl9402394049_) - (let ((_e9402494054_ - (gx#syntax-e _tl9402394049_))) - (let ((_hd9402594057_ - (##car _e9402494054_)) - (_tl9402694059_ - (##cdr _e9402494054_))) - (let ((_body94062_ _hd9402594057_)) - (if (gx#stx-null? _tl9402694059_) + _e9427794290_))) + (_E9427894326_ + (lambda () + (if (gx#stx-pair? _e9427794290_) + (let ((_e9428094298_ (gx#syntax-e _e9427794290_))) + (let ((_hd9428194301_ (##car _e9428094298_)) + (_tl9428294303_ (##cdr _e9428094298_))) + (if (gx#stx-pair? _tl9428294303_) + (let ((_e9428394306_ + (gx#syntax-e _tl9428294303_))) + (let ((_hd9428494309_ (##car _e9428394306_)) + (_tl9428594311_ (##cdr _e9428394306_))) + (let ((_hd94314_ _hd9428494309_)) + (if (gx#stx-pair? _tl9428594311_) + (let ((_e9428694316_ + (gx#syntax-e _tl9428594311_))) + (let ((_hd9428794319_ + (##car _e9428694316_)) + (_tl9428894321_ + (##cdr _e9428694316_))) + (let ((_body94324_ _hd9428794319_)) + (if (gx#stx-null? _tl9428894321_) (if '#t - (cons _form94014_ + (cons _form94276_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd94052_) - (cons (gx#core-compile-top-syntax _body94062_) '()))) - (_E9401794032_)) + _hd94314_) + (cons (gx#core-compile-top-syntax _body94324_) '()))) + (_E9427994294_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9401794032_))))) - (_E9401794032_))))) - (_E9401794032_)))) - (_E9401794032_))))) - (_E9401694064_)))) + (_E9427994294_))))) + (_E9427994294_))))) + (_E9427994294_)))) + (_E9427994294_))))) + (_E9427894326_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx94071_) - (let ((_form94073_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx94071_ _form94073_)))) + (lambda (_stx94333_) + (let ((_form94335_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx94333_ _form94335_)))) (define gx#core-compile-top-let-values% - (lambda _g94886_ - (let ((_g94885_ (##length _g94886_))) - (cond ((##fx= _g94885_ 1) - (apply (lambda (_stx94071_) - (gx#core-compile-top-let-values%__0 _stx94071_)) - _g94886_)) - ((##fx= _g94885_ 2) - (apply (lambda (_stx94075_ _form94076_) + (lambda _g95148_ + (let ((_g95147_ (##length _g95148_))) + (cond ((##fx= _g95147_ 1) + (apply (lambda (_stx94333_) + (gx#core-compile-top-let-values%__0 _stx94333_)) + _g95148_)) + ((##fx= _g95147_ 2) + (apply (lambda (_stx94337_ _form94338_) (gx#core-compile-top-let-values%__% - _stx94075_ - _form94076_)) - _g94886_)) + _stx94337_ + _form94338_)) + _g95148_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g94886_)))))) + _g95148_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx94010_) - (gx#core-compile-top-let-values%__% _stx94010_ '%#letrec-values))) + (lambda (_stx94272_) + (gx#core-compile-top-let-values%__% _stx94272_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx94008_) - (gx#core-compile-top-let-values%__% _stx94008_ '%#letrec*-values))) + (lambda (_stx94270_) + (gx#core-compile-top-let-values%__% _stx94270_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx93967_) - (let* ((_e9396893978_ _stx93967_) - (_E9397093982_ + (lambda (_stx94229_) + (let* ((_e9423094240_ _stx94229_) + (_E9423294244_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9396893978_))) - (_E9396994004_ - (lambda () - (if (gx#stx-pair? _e9396893978_) - (let ((_e9397193986_ (gx#syntax-e _e9396893978_))) - (let ((_hd9397293989_ (##car _e9397193986_)) - (_tl9397393991_ (##cdr _e9397193986_))) - (if (gx#stx-pair? _tl9397393991_) - (let ((_e9397493994_ - (gx#syntax-e _tl9397393991_))) - (let ((_hd9397593997_ (##car _e9397493994_)) - (_tl9397693999_ (##cdr _e9397493994_))) - (let ((_e94002_ _hd9397593997_)) - (if (gx#stx-null? _tl9397693999_) + _e9423094240_))) + (_E9423194266_ + (lambda () + (if (gx#stx-pair? _e9423094240_) + (let ((_e9423394248_ (gx#syntax-e _e9423094240_))) + (let ((_hd9423494251_ (##car _e9423394248_)) + (_tl9423594253_ (##cdr _e9423394248_))) + (if (gx#stx-pair? _tl9423594253_) + (let ((_e9423694256_ + (gx#syntax-e _tl9423594253_))) + (let ((_hd9423794259_ (##car _e9423694256_)) + (_tl9423894261_ (##cdr _e9423694256_))) + (let ((_e94264_ _hd9423794259_)) + (if (gx#stx-null? _tl9423894261_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e94002_) + _e94264_) '())) - (_E9397093982_)) - (_E9397093982_))))) - (_E9397093982_)))) - (_E9397093982_))))) - (_E9396994004_)))) + (_E9423294244_)) + (_E9423294244_))))) + (_E9423294244_)))) + (_E9423294244_))))) + (_E9423194266_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx93926_) - (let* ((_e9392793937_ _stx93926_) - (_E9392993941_ + (lambda (_stx94188_) + (let* ((_e9418994199_ _stx94188_) + (_E9419194203_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9392793937_))) - (_E9392893963_ - (lambda () - (if (gx#stx-pair? _e9392793937_) - (let ((_e9393093945_ (gx#syntax-e _e9392793937_))) - (let ((_hd9393193948_ (##car _e9393093945_)) - (_tl9393293950_ (##cdr _e9393093945_))) - (if (gx#stx-pair? _tl9393293950_) - (let ((_e9393393953_ - (gx#syntax-e _tl9393293950_))) - (let ((_hd9393493956_ (##car _e9393393953_)) - (_tl9393593958_ (##cdr _e9393393953_))) - (let ((_e93961_ _hd9393493956_)) - (if (gx#stx-null? _tl9393593958_) + _e9418994199_))) + (_E9419094225_ + (lambda () + (if (gx#stx-pair? _e9418994199_) + (let ((_e9419294207_ (gx#syntax-e _e9418994199_))) + (let ((_hd9419394210_ (##car _e9419294207_)) + (_tl9419494212_ (##cdr _e9419294207_))) + (if (gx#stx-pair? _tl9419494212_) + (let ((_e9419594215_ + (gx#syntax-e _tl9419494212_))) + (let ((_hd9419694218_ (##car _e9419594215_)) + (_tl9419794220_ (##cdr _e9419594215_))) + (let ((_e94223_ _hd9419694218_)) + (if (gx#stx-null? _tl9419794220_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e93961_) + _e94223_) '())) - (_E9392993941_)) - (_E9392993941_))))) - (_E9392993941_)))) - (_E9392993941_))))) - (_E9392893963_)))) + (_E9419194203_)) + (_E9419194203_))))) + (_E9419194203_)))) + (_E9419194203_))))) + (_E9419094225_)))) (define gx#core-compile-top-call% - (lambda (_stx93883_) - (let* ((_e9388493894_ _stx93883_) - (_E9388693898_ + (lambda (_stx94145_) + (let* ((_e9414694156_ _stx94145_) + (_E9414894160_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9388493894_))) - (_E9388593922_ - (lambda () - (if (gx#stx-pair? _e9388493894_) - (let ((_e9388793902_ (gx#syntax-e _e9388493894_))) - (let ((_hd9388893905_ (##car _e9388793902_)) - (_tl9388993907_ (##cdr _e9388793902_))) - (if (gx#stx-pair? _tl9388993907_) - (let ((_e9389093910_ - (gx#syntax-e _tl9388993907_))) - (let ((_hd9389193913_ (##car _e9389093910_)) - (_tl9389293915_ (##cdr _e9389093910_))) - (let* ((_rator93918_ _hd9389193913_) - (_args93920_ _tl9389293915_)) + _e9414694156_))) + (_E9414794184_ + (lambda () + (if (gx#stx-pair? _e9414694156_) + (let ((_e9414994164_ (gx#syntax-e _e9414694156_))) + (let ((_hd9415094167_ (##car _e9414994164_)) + (_tl9415194169_ (##cdr _e9414994164_))) + (if (gx#stx-pair? _tl9415194169_) + (let ((_e9415294172_ + (gx#syntax-e _tl9415194169_))) + (let ((_hd9415394175_ (##car _e9415294172_)) + (_tl9415494177_ (##cdr _e9415294172_))) + (let* ((_rator94180_ _hd9415394175_) + (_args94182_ _tl9415494177_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator93918_) + _rator94180_) (gx#stx-map1 gx#core-compile-top-syntax - _args93920_))) - (_E9388693898_))))) - (_E9388693898_)))) - (_E9388693898_))))) - (_E9388593922_)))) + _args94182_))) + (_E9414894160_))))) + (_E9414894160_)))) + (_E9414894160_))))) + (_E9414794184_)))) (define gx#core-compile-top-if% - (lambda (_stx93816_) - (let* ((_e9381793833_ _stx93816_) - (_E9381993837_ + (lambda (_stx94078_) + (let* ((_e9407994095_ _stx94078_) + (_E9408194099_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9381793833_))) - (_E9381893879_ - (lambda () - (if (gx#stx-pair? _e9381793833_) - (let ((_e9382093841_ (gx#syntax-e _e9381793833_))) - (let ((_hd9382193844_ (##car _e9382093841_)) - (_tl9382293846_ (##cdr _e9382093841_))) - (if (gx#stx-pair? _tl9382293846_) - (let ((_e9382393849_ - (gx#syntax-e _tl9382293846_))) - (let ((_hd9382493852_ (##car _e9382393849_)) - (_tl9382593854_ (##cdr _e9382393849_))) - (let ((_test93857_ _hd9382493852_)) - (if (gx#stx-pair? _tl9382593854_) - (let ((_e9382693859_ - (gx#syntax-e _tl9382593854_))) - (let ((_hd9382793862_ - (##car _e9382693859_)) - (_tl9382893864_ - (##cdr _e9382693859_))) - (let ((_K93867_ _hd9382793862_)) - (if (gx#stx-pair? _tl9382893864_) - (let ((_e9382993869_ + _e9407994095_))) + (_E9408094141_ + (lambda () + (if (gx#stx-pair? _e9407994095_) + (let ((_e9408294103_ (gx#syntax-e _e9407994095_))) + (let ((_hd9408394106_ (##car _e9408294103_)) + (_tl9408494108_ (##cdr _e9408294103_))) + (if (gx#stx-pair? _tl9408494108_) + (let ((_e9408594111_ + (gx#syntax-e _tl9408494108_))) + (let ((_hd9408694114_ (##car _e9408594111_)) + (_tl9408794116_ (##cdr _e9408594111_))) + (let ((_test94119_ _hd9408694114_)) + (if (gx#stx-pair? _tl9408794116_) + (let ((_e9408894121_ + (gx#syntax-e _tl9408794116_))) + (let ((_hd9408994124_ + (##car _e9408894121_)) + (_tl9409094126_ + (##cdr _e9408894121_))) + (let ((_K94129_ _hd9408994124_)) + (if (gx#stx-pair? _tl9409094126_) + (let ((_e9409194131_ (gx#syntax-e - _tl9382893864_))) - (let ((_hd9383093872_ - (##car _e9382993869_)) - (_tl9383193874_ - (##cdr _e9382993869_))) - (let ((_E93877_ - _hd9383093872_)) + _tl9409094126_))) + (let ((_hd9409294134_ + (##car _e9409194131_)) + (_tl9409394136_ + (##cdr _e9409194131_))) + (let ((_E94139_ + _hd9409294134_)) (if (gx#stx-null? - _tl9383193874_) + _tl9409394136_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test93857_) - (cons (gx#core-compile-top-syntax _K93867_) + (cons (gx#core-compile-top-syntax _test94119_) + (cons (gx#core-compile-top-syntax _K94129_) (cons (gx#core-compile-top-syntax - _E93877_) + _E94139_) '())))) - (_E9381993837_)) - (_E9381993837_))))) + (_E9408194099_)) + (_E9408194099_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9381993837_))))) - (_E9381993837_))))) - (_E9381993837_)))) - (_E9381993837_))))) - (_E9381893879_)))) + (_E9408194099_))))) + (_E9408194099_))))) + (_E9408194099_)))) + (_E9408194099_))))) + (_E9408094141_)))) (define gx#core-compile-top-ref% - (lambda (_stx93775_) - (let* ((_e9377693786_ _stx93775_) - (_E9377893790_ + (lambda (_stx94037_) + (let* ((_e9403894048_ _stx94037_) + (_E9404094052_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9377693786_))) - (_E9377793812_ - (lambda () - (if (gx#stx-pair? _e9377693786_) - (let ((_e9377993794_ (gx#syntax-e _e9377693786_))) - (let ((_hd9378093797_ (##car _e9377993794_)) - (_tl9378193799_ (##cdr _e9377993794_))) - (if (gx#stx-pair? _tl9378193799_) - (let ((_e9378293802_ - (gx#syntax-e _tl9378193799_))) - (let ((_hd9378393805_ (##car _e9378293802_)) - (_tl9378493807_ (##cdr _e9378293802_))) - (let ((_id93810_ _hd9378393805_)) - (if (gx#stx-null? _tl9378493807_) - (if (gx#identifier? _id93810_) + _e9403894048_))) + (_E9403994074_ + (lambda () + (if (gx#stx-pair? _e9403894048_) + (let ((_e9404194056_ (gx#syntax-e _e9403894048_))) + (let ((_hd9404294059_ (##car _e9404194056_)) + (_tl9404394061_ (##cdr _e9404194056_))) + (if (gx#stx-pair? _tl9404394061_) + (let ((_e9404494064_ + (gx#syntax-e _tl9404394061_))) + (let ((_hd9404594067_ (##car _e9404494064_)) + (_tl9404694069_ (##cdr _e9404494064_))) + (let ((_id94072_ _hd9404594067_)) + (if (gx#stx-null? _tl9404694069_) + (if (gx#identifier? _id94072_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id93810_) + _id94072_) '())) - (_E9377893790_)) - (_E9377893790_))))) - (_E9377893790_)))) - (_E9377893790_))))) - (_E9377793812_)))) + (_E9404094052_)) + (_E9404094052_))))) + (_E9404094052_)))) + (_E9404094052_))))) + (_E9403994074_)))) (define gx#core-compile-top-setq% - (lambda (_stx93721_) - (let* ((_e9372293735_ _stx93721_) - (_E9372493739_ + (lambda (_stx93983_) + (let* ((_e9398493997_ _stx93983_) + (_E9398694001_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9372293735_))) - (_E9372393771_ - (lambda () - (if (gx#stx-pair? _e9372293735_) - (let ((_e9372593743_ (gx#syntax-e _e9372293735_))) - (let ((_hd9372693746_ (##car _e9372593743_)) - (_tl9372793748_ (##cdr _e9372593743_))) - (if (gx#stx-pair? _tl9372793748_) - (let ((_e9372893751_ - (gx#syntax-e _tl9372793748_))) - (let ((_hd9372993754_ (##car _e9372893751_)) - (_tl9373093756_ (##cdr _e9372893751_))) - (let ((_id93759_ _hd9372993754_)) - (if (gx#stx-pair? _tl9373093756_) - (let ((_e9373193761_ - (gx#syntax-e _tl9373093756_))) - (let ((_hd9373293764_ - (##car _e9373193761_)) - (_tl9373393766_ - (##cdr _e9373193761_))) - (let ((_expr93769_ _hd9373293764_)) - (if (gx#stx-null? _tl9373393766_) + _e9398493997_))) + (_E9398594033_ + (lambda () + (if (gx#stx-pair? _e9398493997_) + (let ((_e9398794005_ (gx#syntax-e _e9398493997_))) + (let ((_hd9398894008_ (##car _e9398794005_)) + (_tl9398994010_ (##cdr _e9398794005_))) + (if (gx#stx-pair? _tl9398994010_) + (let ((_e9399094013_ + (gx#syntax-e _tl9398994010_))) + (let ((_hd9399194016_ (##car _e9399094013_)) + (_tl9399294018_ (##cdr _e9399094013_))) + (let ((_id94021_ _hd9399194016_)) + (if (gx#stx-pair? _tl9399294018_) + (let ((_e9399394023_ + (gx#syntax-e _tl9399294018_))) + (let ((_hd9399494026_ + (##car _e9399394023_)) + (_tl9399594028_ + (##cdr _e9399394023_))) + (let ((_expr94031_ _hd9399494026_)) + (if (gx#stx-null? _tl9399594028_) (if (gx#identifier? - _id93759_) + _id94021_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id93759_) - (cons (gx#core-compile-top-syntax _expr93769_) '()))) - (_E9372493739_)) + _id94021_) + (cons (gx#core-compile-top-syntax _expr94031_) '()))) + (_E9398694001_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9372493739_))))) - (_E9372493739_))))) - (_E9372493739_)))) - (_E9372493739_))))) - (_E9372393771_)))) + (_E9398694001_))))) + (_E9398694001_))))) + (_E9398694001_)))) + (_E9398694001_))))) + (_E9398594033_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id93716_) - (let ((_$e93718_ (gx#resolve-identifier__0 _id93716_))) - (if _$e93718_ - (##unchecked-structure-ref _$e93718_ '1 gx#binding::t '#f) - _id93716_)))) + (lambda (_id93978_) + (let ((_$e93980_ (gx#resolve-identifier__0 _id93978_))) + (if _$e93980_ + (##unchecked-structure-ref _$e93980_ '1 gx#binding::t '#f) + _id93978_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd93714_) - (if (gx#identifier? _hd93714_) - (gx#core-compile-top-runtime-ref _hd93714_) + (lambda (_hd93976_) + (if (gx#identifier? _hd93976_) + (gx#core-compile-top-runtime-ref _hd93976_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index abcf057c..1c2fa07f 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 1709375798) + (define gerbil/expander/core::timestamp 1709457369) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -28,8 +28,8 @@ ':init!)) (define gx#expander-context? (make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _$args84739_ - (apply make-instance gx#expander-context::t _$args84739_))) + (lambda _$args85001_ + (apply make-instance gx#expander-context::t _$args85001_))) (define gx#expander-context-id (make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -56,8 +56,8 @@ '#f)) (define gx#root-context? (make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _$args84736_ - (apply make-instance gx#root-context::t _$args84736_))) + (lambda _$args84998_ + (apply make-instance gx#root-context::t _$args84998_))) (define gx#root-context-id (make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -84,8 +84,8 @@ '#f)) (define gx#phi-context? (make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _$args84733_ - (apply make-instance gx#phi-context::t _$args84733_))) + (lambda _$args84995_ + (apply make-instance gx#phi-context::t _$args84995_))) (define gx#phi-context-super (make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up (make-class-slot-accessor gx#phi-context::t 'up)) @@ -134,8 +134,8 @@ '#f)) (define gx#top-context? (make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _$args84730_ - (apply make-instance gx#top-context::t _$args84730_))) + (lambda _$args84992_ + (apply make-instance gx#top-context::t _$args84992_))) (define gx#top-context-super (make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up (make-class-slot-accessor gx#top-context::t 'up)) @@ -184,8 +184,8 @@ '#f)) (define gx#module-context? (make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _$args84727_ - (apply make-instance gx#module-context::t _$args84727_))) + (lambda _$args84989_ + (apply make-instance gx#module-context::t _$args84989_))) (define gx#module-context-ns (make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -284,8 +284,8 @@ '#f)) (define gx#prelude-context? (make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _$args84724_ - (apply make-instance gx#prelude-context::t _$args84724_))) + (lambda _$args84986_ + (apply make-instance gx#prelude-context::t _$args84986_))) (define gx#prelude-context-path (make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -360,8 +360,8 @@ '#f)) (define gx#local-context? (make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _$args84721_ - (apply make-instance gx#local-context::t _$args84721_))) + (lambda _$args84983_ + (apply make-instance gx#local-context::t _$args84983_))) (define gx#local-context-super (make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -403,101 +403,101 @@ (define gx#&local-context-table-set! (make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_self84705_ _id84706_ _super84707_) - (if (##fx< '3 (##structure-length _self84705_)) + (lambda (_self84967_ _id84968_ _super84969_) + (if (##fx< '3 (##structure-length _self84967_)) (begin (##unchecked-structure-set! - _self84705_ - _id84706_ + _self84967_ + _id84968_ '1 - (##structure-type _self84705_) + (##structure-type _self84967_) '#f) (##unchecked-structure-set! - _self84705_ + _self84967_ (make-hash-table-eq) '2 - (##structure-type _self84705_) + (##structure-type _self84967_) '#f) (##unchecked-structure-set! - _self84705_ - _super84707_ + _self84967_ + _super84969_ '3 - (##structure-type _self84705_) + (##structure-type _self84967_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self84705_ + _self84967_ '3 - (##vector-length _self84705_))))) + (##vector-length _self84967_))))) (define gx#phi-context:::init!__0 - (lambda (_self84712_ _id84713_) - (let ((_super84715_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self84712_ _id84713_ _super84715_)))) + (lambda (_self84974_ _id84975_) + (let ((_super84977_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self84974_ _id84975_ _super84977_)))) (define gx#phi-context:::init! - (lambda _g84782_ - (let ((_g84781_ (##length _g84782_))) - (cond ((##fx= _g84781_ 2) - (apply (lambda (_self84712_ _id84713_) - (gx#phi-context:::init!__0 _self84712_ _id84713_)) - _g84782_)) - ((##fx= _g84781_ 3) - (apply (lambda (_self84717_ _id84718_ _super84719_) + (lambda _g85044_ + (let ((_g85043_ (##length _g85044_))) + (cond ((##fx= _g85043_ 2) + (apply (lambda (_self84974_ _id84975_) + (gx#phi-context:::init!__0 _self84974_ _id84975_)) + _g85044_)) + ((##fx= _g85043_ 3) + (apply (lambda (_self84979_ _id84980_ _super84981_) (gx#phi-context:::init!__% - _self84717_ - _id84718_ - _super84719_)) - _g84782_)) + _self84979_ + _id84980_ + _super84981_)) + _g85044_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g84782_)))))) + _g85044_)))))) (bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self84569_ _super84570_) - (if (##fx< '3 (##structure-length _self84569_)) + (lambda (_self84831_ _super84832_) + (if (##fx< '3 (##structure-length _self84831_)) (begin (##unchecked-structure-set! - _self84569_ + _self84831_ (gensym 'L) '1 - (##structure-type _self84569_) + (##structure-type _self84831_) '#f) (##unchecked-structure-set! - _self84569_ + _self84831_ (make-hash-table-eq) '2 - (##structure-type _self84569_) + (##structure-type _self84831_) '#f) (##unchecked-structure-set! - _self84569_ - _super84570_ + _self84831_ + _super84832_ '3 - (##structure-type _self84569_) + (##structure-type _self84831_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self84569_ + _self84831_ '3 - (##vector-length _self84569_))))) + (##vector-length _self84831_))))) (define gx#local-context:::init!__0 - (lambda (_self84575_) - (let ((_super84577_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self84575_ _super84577_)))) + (lambda (_self84837_) + (let ((_super84839_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self84837_ _super84839_)))) (define gx#local-context:::init! - (lambda _g84784_ - (let ((_g84783_ (##length _g84784_))) - (cond ((##fx= _g84783_ 1) - (apply (lambda (_self84575_) - (gx#local-context:::init!__0 _self84575_)) - _g84784_)) - ((##fx= _g84783_ 2) - (apply (lambda (_self84579_ _super84580_) + (lambda _g85046_ + (let ((_g85045_ (##length _g85046_))) + (cond ((##fx= _g85045_ 1) + (apply (lambda (_self84837_) + (gx#local-context:::init!__0 _self84837_)) + _g85046_)) + ((##fx= _g85045_ 2) + (apply (lambda (_self84841_ _super84842_) (gx#local-context:::init!__% - _self84579_ - _super84580_)) - _g84784_)) + _self84841_ + _super84842_)) + _g85046_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g84784_)))))) + _g85046_)))))) (bind-method!__% gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t (make-class-type @@ -509,7 +509,7 @@ '#f)) (define gx#binding? (make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _$args84443_ (apply make-instance gx#binding::t _$args84443_))) + (lambda _$args84705_ (apply make-instance gx#binding::t _$args84705_))) (define gx#binding-id (make-class-slot-accessor gx#binding::t 'id)) (define gx#binding-key (make-class-slot-accessor gx#binding::t 'key)) (define gx#binding-phi (make-class-slot-accessor gx#binding::t 'phi)) @@ -538,8 +538,8 @@ '#f)) (define gx#runtime-binding? (make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _$args84440_ - (apply make-instance gx#runtime-binding::t _$args84440_))) + (lambda _$args84702_ + (apply make-instance gx#runtime-binding::t _$args84702_))) (define gx#runtime-binding-id (make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -574,8 +574,8 @@ '#f)) (define gx#local-binding? (make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _$args84437_ - (apply make-instance gx#local-binding::t _$args84437_))) + (lambda _$args84699_ + (apply make-instance gx#local-binding::t _$args84699_))) (define gx#local-binding-id (make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -610,8 +610,8 @@ '#f)) (define gx#top-binding? (make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _$args84434_ - (apply make-instance gx#top-binding::t _$args84434_))) + (lambda _$args84696_ + (apply make-instance gx#top-binding::t _$args84696_))) (define gx#top-binding-id (make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key (make-class-slot-accessor gx#top-binding::t 'key)) @@ -645,8 +645,8 @@ '#f)) (define gx#module-binding? (make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _$args84431_ - (apply make-instance gx#module-binding::t _$args84431_))) + (lambda _$args84693_ + (apply make-instance gx#module-binding::t _$args84693_))) (define gx#module-binding-context (make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -689,8 +689,8 @@ '#f)) (define gx#extern-binding? (make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _$args84428_ - (apply make-instance gx#extern-binding::t _$args84428_))) + (lambda _$args84690_ + (apply make-instance gx#extern-binding::t _$args84690_))) (define gx#extern-binding-id (make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -726,8 +726,8 @@ '#f)) (define gx#syntax-binding? (make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _$args84425_ - (apply make-instance gx#syntax-binding::t _$args84425_))) + (lambda _$args84687_ + (apply make-instance gx#syntax-binding::t _$args84687_))) (define gx#syntax-binding-e (make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -771,8 +771,8 @@ '#f)) (define gx#import-binding? (make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _$args84422_ - (apply make-instance gx#import-binding::t _$args84422_))) + (lambda _$args84684_ + (apply make-instance gx#import-binding::t _$args84684_))) (define gx#import-binding-e (make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -832,8 +832,8 @@ '#f)) (define gx#alias-binding? (make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _$args84419_ - (apply make-instance gx#alias-binding::t _$args84419_))) + (lambda _$args84681_ + (apply make-instance gx#alias-binding::t _$args84681_))) (define gx#alias-binding-e (make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -876,7 +876,7 @@ '#f)) (define gx#expander? (make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _$args84416_ (apply make-instance gx#expander::t _$args84416_))) + (lambda _$args84678_ (apply make-instance gx#expander::t _$args84678_))) (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 @@ -893,8 +893,8 @@ '#f)) (define gx#core-expander? (make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _$args84413_ - (apply make-instance gx#core-expander::t _$args84413_))) + (lambda _$args84675_ + (apply make-instance gx#core-expander::t _$args84675_))) (define gx#core-expander-id (make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -929,8 +929,8 @@ '#f)) (define gx#expression-form? (make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _$args84410_ - (apply make-instance gx#expression-form::t _$args84410_))) + (lambda _$args84672_ + (apply make-instance gx#expression-form::t _$args84672_))) (define gx#expression-form-id (make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -965,8 +965,8 @@ '#f)) (define gx#special-form? (make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _$args84407_ - (apply make-instance gx#special-form::t _$args84407_))) + (lambda _$args84669_ + (apply make-instance gx#special-form::t _$args84669_))) (define gx#special-form-id (make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1000,8 +1000,8 @@ '#f)) (define gx#definition-form? (make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _$args84404_ - (apply make-instance gx#definition-form::t _$args84404_))) + (lambda _$args84666_ + (apply make-instance gx#definition-form::t _$args84666_))) (define gx#definition-form-id (make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1036,8 +1036,8 @@ '#f)) (define gx#top-special-form? (make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _$args84401_ - (apply make-instance gx#top-special-form::t _$args84401_))) + (lambda _$args84663_ + (apply make-instance gx#top-special-form::t _$args84663_))) (define gx#top-special-form-id (make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1073,8 +1073,8 @@ (define gx#module-special-form? (make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _$args84398_ - (apply make-instance gx#module-special-form::t _$args84398_))) + (lambda _$args84660_ + (apply make-instance gx#module-special-form::t _$args84660_))) (define gx#module-special-form-id (make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1113,8 +1113,8 @@ '#f)) (define gx#feature-expander? (make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _$args84395_ - (apply make-instance gx#feature-expander::t _$args84395_))) + (lambda _$args84657_ + (apply make-instance gx#feature-expander::t _$args84657_))) (define gx#feature-expander-e (make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1134,8 +1134,8 @@ (define gx#private-feature-expander? (make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _$args84392_ - (apply make-instance gx#private-feature-expander::t _$args84392_))) + (lambda _$args84654_ + (apply make-instance gx#private-feature-expander::t _$args84654_))) (define gx#private-feature-expander-e (make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1155,8 +1155,8 @@ (define gx#reserved-expander? (make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _$args84389_ - (apply make-instance gx#reserved-expander::t _$args84389_))) + (lambda _$args84651_ + (apply make-instance gx#reserved-expander::t _$args84651_))) (define gx#reserved-expander-e (make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1175,8 +1175,8 @@ '#f)) (define gx#macro-expander? (make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _$args84386_ - (apply make-instance gx#macro-expander::t _$args84386_))) + (lambda _$args84648_ + (apply make-instance gx#macro-expander::t _$args84648_))) (define gx#macro-expander-e (make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1196,8 +1196,8 @@ (define gx#rename-macro-expander? (make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _$args84383_ - (apply make-instance gx#rename-macro-expander::t _$args84383_))) + (lambda _$args84645_ + (apply make-instance gx#rename-macro-expander::t _$args84645_))) (define gx#rename-macro-expander-e (make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1216,8 +1216,8 @@ '#f)) (define gx#user-expander? (make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _$args84380_ - (apply make-instance gx#user-expander::t _$args84380_))) + (lambda _$args84642_ + (apply make-instance gx#user-expander::t _$args84642_))) (define gx#user-expander-context (make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1252,8 +1252,8 @@ '#f)) (define gx#expander-mark? (make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _$args84377_ - (apply make-instance gx#expander-mark::t _$args84377_))) + (lambda _$args84639_ + (apply make-instance gx#expander-mark::t _$args84639_))) (define gx#expander-mark-subst (make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1287,982 +1287,982 @@ (define gx#&expander-mark-trace-set! (make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_ctx84362_ _message84363_ _stx84364_ . _details84365_) - (let ((_ctx84375_ - (let ((_$e84367_ _ctx84362_)) - (if _$e84367_ - _$e84367_ - (let ((_$e84370_ (gx#core-context-top__0))) - (if _$e84370_ - ((lambda (_ctx84373_) + (lambda (_ctx84624_ _message84625_ _stx84626_ . _details84627_) + (let ((_ctx84637_ + (let ((_$e84629_ _ctx84624_)) + (if _$e84629_ + _$e84629_ + (let ((_$e84632_ (gx#core-context-top__0))) + (if _$e84632_ + ((lambda (_ctx84635_) (cons 'expand (cons (##structure-ref - _ctx84373_ + _ctx84635_ '1 gx#expander-context::t '#f) '()))) - _$e84370_) + _$e84632_) '#f)))))) (raise (make-syntax-error - _message84363_ - (cons _stx84364_ _details84365_) - _ctx84375_ + _message84625_ + (cons _stx84626_ _details84627_) + _ctx84637_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_stx84349_ _expression?84350_) - (gx#eval-syntax* (gx#core-expand__% _stx84349_ _expression?84350_)))) + (lambda (_stx84611_ _expression?84612_) + (gx#eval-syntax* (gx#core-expand__% _stx84611_ _expression?84612_)))) (define gx#eval-syntax__0 - (lambda (_stx84355_) - (let ((_expression?84357_ '#f)) - (gx#eval-syntax__% _stx84355_ _expression?84357_)))) + (lambda (_stx84617_) + (let ((_expression?84619_ '#f)) + (gx#eval-syntax__% _stx84617_ _expression?84619_)))) (define gx#eval-syntax - (lambda _g84786_ - (let ((_g84785_ (##length _g84786_))) - (cond ((##fx= _g84785_ 1) - (apply (lambda (_stx84355_) (gx#eval-syntax__0 _stx84355_)) - _g84786_)) - ((##fx= _g84785_ 2) - (apply (lambda (_stx84359_ _expression?84360_) - (gx#eval-syntax__% _stx84359_ _expression?84360_)) - _g84786_)) + (lambda _g85048_ + (let ((_g85047_ (##length _g85048_))) + (cond ((##fx= _g85047_ 1) + (apply (lambda (_stx84617_) (gx#eval-syntax__0 _stx84617_)) + _g85048_)) + ((##fx= _g85047_ 2) + (apply (lambda (_stx84621_ _expression?84622_) + (gx#eval-syntax__% _stx84621_ _expression?84622_)) + _g85048_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g84786_)))))) + _g85048_)))))) (define gx#eval-syntax* - (lambda (_stx84346_) + (lambda (_stx84608_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx84346_)))) + ((gx#current-expander-compile) _stx84608_)))) (define gx#core-expand__% - (lambda (_stx84333_ _expression?84334_) - (if _expression?84334_ - (gx#core-expand-expression _stx84333_) - (gx#core-expand-top _stx84333_)))) + (lambda (_stx84595_ _expression?84596_) + (if _expression?84596_ + (gx#core-expand-expression _stx84595_) + (gx#core-expand-top _stx84595_)))) (define gx#core-expand__0 - (lambda (_stx84339_) - (let ((_expression?84341_ '#f)) - (gx#core-expand__% _stx84339_ _expression?84341_)))) + (lambda (_stx84601_) + (let ((_expression?84603_ '#f)) + (gx#core-expand__% _stx84601_ _expression?84603_)))) (define gx#core-expand - (lambda _g84788_ - (let ((_g84787_ (##length _g84788_))) - (cond ((##fx= _g84787_ 1) - (apply (lambda (_stx84339_) (gx#core-expand__0 _stx84339_)) - _g84788_)) - ((##fx= _g84787_ 2) - (apply (lambda (_stx84343_ _expression?84344_) - (gx#core-expand__% _stx84343_ _expression?84344_)) - _g84788_)) + (lambda _g85050_ + (let ((_g85049_ (##length _g85050_))) + (cond ((##fx= _g85049_ 1) + (apply (lambda (_stx84601_) (gx#core-expand__0 _stx84601_)) + _g85050_)) + ((##fx= _g85049_ 2) + (apply (lambda (_stx84605_ _expression?84606_) + (gx#core-expand__% _stx84605_ _expression?84606_)) + _g85050_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g84788_)))))) + _g85050_)))))) (define gx#core-expand-top - (lambda (_stx84300_) - (let* ((_stx84302_ (gx#core-expand*__0 _stx84300_)) - (_e8430384310_ _stx84302_) - (_E8430584314_ - (lambda () (gx#core-expand-expression _stx84302_))) - (_E8430484328_ + (lambda (_stx84562_) + (let* ((_stx84564_ (gx#core-expand*__0 _stx84562_)) + (_e8456584572_ _stx84564_) + (_E8456784576_ + (lambda () (gx#core-expand-expression _stx84564_))) + (_E8456684590_ (lambda () - (if (gx#stx-pair? _e8430384310_) - (let ((_e8430684318_ (gx#syntax-e _e8430384310_))) - (let ((_hd8430784321_ (##car _e8430684318_)) - (_tl8430884323_ (##cdr _e8430684318_))) - (let ((_form84326_ _hd8430784321_)) - (if (gx#core-bound-identifier?__0 _form84326_) - _stx84302_ - (_E8430584314_))))) - (_E8430584314_))))) - (_E8430484328_)))) + (if (gx#stx-pair? _e8456584572_) + (let ((_e8456884580_ (gx#syntax-e _e8456584572_))) + (let ((_hd8456984583_ (##car _e8456884580_)) + (_tl8457084585_ (##cdr _e8456884580_))) + (let ((_form84588_ _hd8456984583_)) + (if (gx#core-bound-identifier?__0 _form84588_) + _stx84564_ + (_E8456784576_))))) + (_E8456784576_))))) + (_E8456684590_)))) (define gx#core-expand-expression - (lambda (_stx84247_) - (letrec ((_sealed-expression?84249_ - (lambda (_hd84270_) - (if (gx#sealed-syntax? _hd84270_) - (let* ((_e8427184278_ _hd84270_) - (_E8427384282_ (lambda () '#f)) - (_E8427284296_ + (lambda (_stx84509_) + (letrec ((_sealed-expression?84511_ + (lambda (_hd84532_) + (if (gx#sealed-syntax? _hd84532_) + (let* ((_e8453384540_ _hd84532_) + (_E8453584544_ (lambda () '#f)) + (_E8453484558_ (lambda () - (if (gx#stx-pair? _e8427184278_) - (let ((_e8427484286_ - (gx#syntax-e _e8427184278_))) - (let ((_hd8427584289_ - (##car _e8427484286_)) - (_tl8427684291_ - (##cdr _e8427484286_))) - (let ((_form84294_ _hd8427584289_)) + (if (gx#stx-pair? _e8453384540_) + (let ((_e8453684548_ + (gx#syntax-e _e8453384540_))) + (let ((_hd8453784551_ + (##car _e8453684548_)) + (_tl8453884553_ + (##cdr _e8453684548_))) + (let ((_form84556_ _hd8453784551_)) (if '#t (gx#core-bound-identifier?__% - _form84294_ + _form84556_ gx#expression-form-binding?) - (_E8427384282_))))) - (_E8427384282_))))) - (_E8427284296_)) + (_E8453584544_))))) + (_E8453584544_))))) + (_E8453484558_)) '#f))) - (_illegal-expression84250_ - (lambda (_hd84268_ . _g84789_) + (_illegal-expression84512_ + (lambda (_hd84530_ . _g85051_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx84247_ - _hd84268_))) - (_expand-e84251_ - (lambda (_form84263_ _hd84264_) - (let ((_bind84266_ + _stx84509_ + _hd84530_))) + (_expand-e84513_ + (lambda (_form84525_ _hd84526_) + (let ((_bind84528_ (if (##structure-instance-of? - _form84263_ + _form84525_ 'gx#binding::t) - _form84263_ - (gx#resolve-identifier__0 _form84263_)))) - (if (gx#core-expander-binding? _bind84266_) + _form84525_ + (gx#resolve-identifier__0 _form84525_)))) + (if (gx#core-expander-binding? _bind84528_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind84266_ + _bind84528_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd84264_ - (gx#stx-source _stx84247_))) + _hd84526_ + (gx#stx-source _stx84509_))) (if (##structure-direct-instance-of? - _bind84266_ + _bind84528_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind84266_ + _bind84528_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd84264_ - (gx#stx-source _stx84247_)))) + _hd84526_ + (gx#stx-source _stx84509_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx84247_ - _form84263_))))))) - (let ((_hd84253_ (gx#core-expand-head _stx84247_))) - (if (_sealed-expression?84249_ _hd84253_) - _hd84253_ - (if (gx#stx-pair? _hd84253_) - (let* ((_form84255_ (gx#stx-car _hd84253_)) - (_bind84257_ - (if (gx#identifier? _form84255_) - (gx#resolve-identifier__0 _form84255_) + _stx84509_ + _form84525_))))))) + (let ((_hd84515_ (gx#core-expand-head _stx84509_))) + (if (_sealed-expression?84511_ _hd84515_) + _hd84515_ + (if (gx#stx-pair? _hd84515_) + (let* ((_form84517_ (gx#stx-car _hd84515_)) + (_bind84519_ + (if (gx#identifier? _form84517_) + (gx#resolve-identifier__0 _form84517_) '#f))) - (if (or (not _bind84257_) - (not (gx#core-expander-binding? _bind84257_))) - (_expand-e84251_ '%%app (cons '%%app _hd84253_)) + (if (or (not _bind84519_) + (not (gx#core-expander-binding? _bind84519_))) + (_expand-e84513_ '%%app (cons '%%app _hd84515_)) (if (eq? (##unchecked-structure-ref - _bind84257_ + _bind84519_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd84253_ - _illegal-expression84250_) - (if (gx#expression-form-binding? _bind84257_) - (_expand-e84251_ _bind84257_ _hd84253_) + _hd84515_ + _illegal-expression84512_) + (if (gx#expression-form-binding? _bind84519_) + (_expand-e84513_ _bind84519_ _hd84515_) (if (gx#direct-special-form-binding? - _bind84257_) + _bind84519_) (gx#core-expand-expression - (_expand-e84251_ _bind84257_ _hd84253_)) - (_illegal-expression84250_ - _hd84253_)))))) - (if (gx#core-bound-identifier?__0 _hd84253_) - (_illegal-expression84250_ _hd84253_) - (if (gx#identifier? _hd84253_) - (_expand-e84251_ + (_expand-e84513_ _bind84519_ _hd84515_)) + (_illegal-expression84512_ + _hd84515_)))))) + (if (gx#core-bound-identifier?__0 _hd84515_) + (_illegal-expression84512_ _hd84515_) + (if (gx#identifier? _hd84515_) + (_expand-e84513_ '%%ref - (cons '%%ref (cons _hd84253_ '()))) - (if (gx#stx-datum? _hd84253_) - (_expand-e84251_ + (cons '%%ref (cons _hd84515_ '()))) + (if (gx#stx-datum? _hd84515_) + (_expand-e84513_ '%#quote - (cons '%#quote (cons _hd84253_ '()))) - (_illegal-expression84250_ _hd84253_)))))))))) + (cons '%#quote (cons _hd84515_ '()))) + (_illegal-expression84512_ _hd84515_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx84242_) + (lambda (_stx84504_) (call-with-parameters (lambda () - (let ((_stx84245_ (gx#core-expand-expression _stx84242_))) - (values _stx84245_ (gx#eval-syntax* _stx84245_)))) + (let ((_stx84507_ (gx#core-expand-expression _stx84504_))) + (values _stx84507_ (gx#eval-syntax* _stx84507_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_stx84223_ _stop?84224_) - (let _lp84226_ ((_stx84228_ _stx84223_)) - (if (_stop?84224_ _stx84228_) - _stx84228_ - (let ((_rstx84230_ (gx#core-expand1 _stx84228_))) - (if (eq? _stx84228_ _rstx84230_) - _stx84228_ - (_lp84226_ _rstx84230_))))))) + (lambda (_stx84485_ _stop?84486_) + (let _lp84488_ ((_stx84490_ _stx84485_)) + (if (_stop?84486_ _stx84490_) + _stx84490_ + (let ((_rstx84492_ (gx#core-expand1 _stx84490_))) + (if (eq? _stx84490_ _rstx84492_) + _stx84490_ + (_lp84488_ _rstx84492_))))))) (define gx#core-expand*__0 - (lambda (_stx84235_) - (let ((_stop?84237_ false)) - (gx#core-expand*__% _stx84235_ _stop?84237_)))) + (lambda (_stx84497_) + (let ((_stop?84499_ false)) + (gx#core-expand*__% _stx84497_ _stop?84499_)))) (define gx#core-expand* - (lambda _g84791_ - (let ((_g84790_ (##length _g84791_))) - (cond ((##fx= _g84790_ 1) - (apply (lambda (_stx84235_) (gx#core-expand*__0 _stx84235_)) - _g84791_)) - ((##fx= _g84790_ 2) - (apply (lambda (_stx84239_ _stop?84240_) - (gx#core-expand*__% _stx84239_ _stop?84240_)) - _g84791_)) + (lambda _g85053_ + (let ((_g85052_ (##length _g85053_))) + (cond ((##fx= _g85052_ 1) + (apply (lambda (_stx84497_) (gx#core-expand*__0 _stx84497_)) + _g85053_)) + ((##fx= _g85052_ 2) + (apply (lambda (_stx84501_ _stop?84502_) + (gx#core-expand*__% _stx84501_ _stop?84502_)) + _g85053_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g84791_)))))) + _g85053_)))))) (define gx#core-expand1 - (lambda (_stx84179_) - (letrec ((_step84181_ - (lambda (_hd84218_) - (let ((_bind84220_ (gx#resolve-identifier__0 _hd84218_))) + (lambda (_stx84441_) + (letrec ((_step84443_ + (lambda (_hd84480_) + (let ((_bind84482_ (gx#resolve-identifier__0 _hd84480_))) (if (##structure-instance-of? - _bind84220_ + _bind84482_ 'gx#runtime-binding::t) - _stx84179_ + _stx84441_ (if (##structure-direct-instance-of? - _bind84220_ + _bind84482_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind84220_ + _bind84482_ '4 gx#syntax-binding::t '#f) - _stx84179_) - (if (not _bind84220_) - _stx84179_ + _stx84441_) + (if (not _bind84482_) + _stx84441_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _stx84179_)))))))) - (let* ((_e8418284190_ _stx84179_) - (_E8418884194_ (lambda () _stx84179_)) - (_E8418484200_ + _stx84441_)))))))) + (let* ((_e8444484452_ _stx84441_) + (_E8445084456_ (lambda () _stx84441_)) + (_E8444684462_ (lambda () - (let ((_hd84198_ _e8418284190_)) - (if (gx#identifier? _hd84198_) - (_step84181_ _hd84198_) - (_E8418884194_))))) - (_E8418384214_ + (let ((_hd84460_ _e8444484452_)) + (if (gx#identifier? _hd84460_) + (_step84443_ _hd84460_) + (_E8445084456_))))) + (_E8444584476_ (lambda () - (if (gx#stx-pair? _e8418284190_) - (let ((_e8418584204_ (gx#syntax-e _e8418284190_))) - (let ((_hd8418684207_ (##car _e8418584204_)) - (_tl8418784209_ (##cdr _e8418584204_))) - (let ((_hd84212_ _hd8418684207_)) - (if (gx#identifier? _hd84212_) - (_step84181_ _hd84212_) - (_E8418484200_))))) - (_E8418484200_))))) - (_E8418384214_))))) + (if (gx#stx-pair? _e8444484452_) + (let ((_e8444784466_ (gx#syntax-e _e8444484452_))) + (let ((_hd8444884469_ (##car _e8444784466_)) + (_tl8444984471_ (##cdr _e8444784466_))) + (let ((_hd84474_ _hd8444884469_)) + (if (gx#identifier? _hd84474_) + (_step84443_ _hd84474_) + (_E8444684462_))))) + (_E8444684462_))))) + (_E8444584476_))))) (define gx#core-expand-head - (lambda (_stx84145_) - (letrec ((_stop?84147_ - (lambda (_stx84149_) - (let* ((_e8415084157_ _stx84149_) - (_E8415284161_ (lambda () '#f)) - (_E8415184175_ + (lambda (_stx84407_) + (letrec ((_stop?84409_ + (lambda (_stx84411_) + (let* ((_e8441284419_ _stx84411_) + (_E8441484423_ (lambda () '#f)) + (_E8441384437_ (lambda () - (if (gx#stx-pair? _e8415084157_) - (let ((_e8415384165_ - (gx#syntax-e _e8415084157_))) - (let ((_hd8415484168_ - (##car _e8415384165_)) - (_tl8415584170_ - (##cdr _e8415384165_))) - (let ((_hd84173_ _hd8415484168_)) + (if (gx#stx-pair? _e8441284419_) + (let ((_e8441584427_ + (gx#syntax-e _e8441284419_))) + (let ((_hd8441684430_ + (##car _e8441584427_)) + (_tl8441784432_ + (##cdr _e8441584427_))) + (let ((_hd84435_ _hd8441684430_)) (if '#t (gx#core-bound-identifier?__0 - _hd84173_) - (_E8415284161_))))) - (_E8415284161_))))) - (_E8415184175_))))) - (gx#core-expand*__% _stx84145_ _stop?84147_)))) + _hd84435_) + (_E8441484423_))))) + (_E8441484423_))))) + (_E8441384437_))))) + (gx#core-expand*__% _stx84407_ _stop?84409_)))) (define gx#core-expand-block__% - (lambda (_stx83951_ - _expand-special83952_ - _begin-form83953_ - _expand-e83954_) - (letrec ((_expand-splice83956_ - (lambda (_hd84119_ _body84120_ _rest84121_ _r84122_) - (if (gx#stx-list? _body84120_) - (_K83960_ - (gx#stx-foldr cons _rest84121_ _body84120_) - _r84122_) + (lambda (_stx84213_ + _expand-special84214_ + _begin-form84215_ + _expand-e84216_) + (letrec ((_expand-splice84218_ + (lambda (_hd84381_ _body84382_ _rest84383_ _r84384_) + (if (gx#stx-list? _body84382_) + (_K84222_ + (gx#stx-foldr cons _rest84383_ _body84382_) + _r84384_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _stx83951_ - _hd84119_)))) - (_expand-cond-expand83957_ - (lambda (_hd84115_ _rest84116_ _r84117_) - (_K83960_ - (cons (gx#core-expand-cond-expand% _hd84115_) _rest84116_) - _r84117_))) - (_expand-include83958_ - (lambda (_hd84064_ _rest84065_ _r84066_) - (let* ((_e8406784077_ _hd84064_) - (_E8406984081_ + _stx84213_ + _hd84381_)))) + (_expand-cond-expand84219_ + (lambda (_hd84377_ _rest84378_ _r84379_) + (_K84222_ + (cons (gx#core-expand-cond-expand% _hd84377_) _rest84378_) + _r84379_))) + (_expand-include84220_ + (lambda (_hd84326_ _rest84327_ _r84328_) + (let* ((_e8432984339_ _hd84326_) + (_E8433184343_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8406784077_))) - (_E8406884111_ + _e8432984339_))) + (_E8433084373_ (lambda () - (if (gx#stx-pair? _e8406784077_) - (let ((_e8407084085_ - (gx#syntax-e _e8406784077_))) - (let ((_hd8407184088_ - (##car _e8407084085_)) - (_tl8407284090_ - (##cdr _e8407084085_))) - (if (gx#stx-pair? _tl8407284090_) - (let ((_e8407384093_ - (gx#syntax-e _tl8407284090_))) - (let ((_hd8407484096_ - (##car _e8407384093_)) - (_tl8407584098_ - (##cdr _e8407384093_))) - (let ((_path84101_ - _hd8407484096_)) + (if (gx#stx-pair? _e8432984339_) + (let ((_e8433284347_ + (gx#syntax-e _e8432984339_))) + (let ((_hd8433384350_ + (##car _e8433284347_)) + (_tl8433484352_ + (##cdr _e8433284347_))) + (if (gx#stx-pair? _tl8433484352_) + (let ((_e8433584355_ + (gx#syntax-e _tl8433484352_))) + (let ((_hd8433684358_ + (##car _e8433584355_)) + (_tl8433784360_ + (##cdr _e8433584355_))) + (let ((_path84363_ + _hd8433684358_)) (if (gx#stx-null? - _tl8407584098_) + _tl8433784360_) (if (gx#stx-string? - _path84101_) - (let* ((_rpath84103_ + _path84363_) + (let* ((_rpath84365_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path84101_ - (gx#stx-source _hd84064_))) - (_block84105_ - (gx#core-expand-include%__% _hd84064_ _rpath84103_)) - (_rbody84108_ + _path84363_ + (gx#stx-source _hd84326_))) + (_block84367_ + (gx#core-expand-include%__% _hd84326_ _rpath84365_)) + (_rbody84370_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block84105_ - _expand-special83952_ + _block84367_ + _expand-special84214_ '#f - _expand-e83954_)) + _expand-e84216_)) gx#current-expander-path - (cons _rpath84103_ (gx#current-expander-path))))) - (_K83960_ _rest84065_ (foldr1 cons _r84066_ _rbody84108_))) - (_E8406984081_)) + (cons _rpath84365_ (gx#current-expander-path))))) + (_K84222_ _rest84327_ (foldr1 cons _r84328_ _rbody84370_))) + (_E8433184343_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8406984081_))))) - (_E8406984081_)))) - (_E8406984081_))))) - (_E8406884111_)))) - (_expand-expression83959_ - (lambda (_hd84060_ _rest84061_ _r84062_) - (_K83960_ - _rest84061_ - (cons (_expand-e83954_ _hd84060_) _r84062_)))) - (_K83960_ - (lambda (_rest83990_ _r83991_) - (let* ((_e8399283999_ _rest83990_) - (_E8399484003_ + (_E8433184343_))))) + (_E8433184343_)))) + (_E8433184343_))))) + (_E8433084373_)))) + (_expand-expression84221_ + (lambda (_hd84322_ _rest84323_ _r84324_) + (_K84222_ + _rest84323_ + (cons (_expand-e84216_ _hd84322_) _r84324_)))) + (_K84222_ + (lambda (_rest84252_ _r84253_) + (let* ((_e8425484261_ _rest84252_) + (_E8425684265_ (lambda () - (if _begin-form83953_ + (if _begin-form84215_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form83953_ - (reverse _r83991_)) - (gx#stx-source _stx83951_)) - _r83991_))) - (_E8399384056_ + _begin-form84215_ + (reverse _r84253_)) + (gx#stx-source _stx84213_)) + _r84253_))) + (_E8425584318_ (lambda () - (if (gx#stx-pair? _e8399283999_) - (let ((_e8399584007_ - (gx#syntax-e _e8399283999_))) - (let ((_hd8399684010_ - (##car _e8399584007_)) - (_tl8399784012_ - (##cdr _e8399584007_))) - (let* ((_hd84015_ _hd8399684010_) - (_rest84017_ _tl8399784012_)) + (if (gx#stx-pair? _e8425484261_) + (let ((_e8425784269_ + (gx#syntax-e _e8425484261_))) + (let ((_hd8425884272_ + (##car _e8425784269_)) + (_tl8425984274_ + (##cdr _e8425784269_))) + (let* ((_hd84277_ _hd8425884272_) + (_rest84279_ _tl8425984274_)) (if '#t - (let* ((_hd84019_ + (let* ((_hd84281_ (gx#core-expand-head - _hd84015_)) - (_e8402084027_ _hd84019_) - (_E8402284031_ + _hd84277_)) + (_e8428284289_ _hd84281_) + (_E8428484293_ (lambda () - (_expand-expression83959_ - _hd84019_ - _rest84017_ - _r83991_))) - (_E8402184052_ + (_expand-expression84221_ + _hd84281_ + _rest84279_ + _r84253_))) + (_E8428384314_ (lambda () (if (gx#stx-pair? - _e8402084027_) - (let ((_e8402384035_ + _e8428284289_) + (let ((_e8428584297_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8402084027_))) - (let ((_hd8402484038_ (##car _e8402384035_)) - (_tl8402584040_ (##cdr _e8402384035_))) - (let* ((_form84043_ _hd8402484038_) - (_body84045_ _tl8402584040_)) + (gx#syntax-e _e8428284289_))) + (let ((_hd8428684300_ (##car _e8428584297_)) + (_tl8428784302_ (##cdr _e8428584297_))) + (let* ((_form84305_ _hd8428684300_) + (_body84307_ _tl8428784302_)) (if '#t - (let ((_bind84047_ - (if (gx#identifier? _form84043_) - (gx#resolve-identifier__0 _form84043_) + (let ((_bind84309_ + (if (gx#identifier? _form84305_) + (gx#resolve-identifier__0 _form84305_) '#f))) - (if (gx#special-form-binding? _bind84047_) - (let ((_$e84049_ + (if (gx#special-form-binding? _bind84309_) + (let ((_$e84311_ (##unchecked-structure-ref - _bind84047_ + _bind84309_ '1 gx#binding::t '#f))) - (if (eq? '%#begin _$e84049_) - (_expand-splice83956_ - _hd84019_ - _body84045_ - _rest84017_ - _r83991_) - (if (eq? '%#cond-expand _$e84049_) - (_expand-cond-expand83957_ - _hd84019_ - _rest84017_ - _r83991_) - (if (eq? '%#include _$e84049_) - (_expand-include83958_ - _hd84019_ - _rest84017_ - _r83991_) - (_expand-special83952_ - _hd84019_ - _K83960_ - _rest84017_ - _r83991_))))) - (_expand-expression83959_ - _hd84019_ - _rest84017_ - _r83991_))) - (_E8402284031_))))) - (_E8402284031_))))) + (if (eq? '%#begin _$e84311_) + (_expand-splice84218_ + _hd84281_ + _body84307_ + _rest84279_ + _r84253_) + (if (eq? '%#cond-expand _$e84311_) + (_expand-cond-expand84219_ + _hd84281_ + _rest84279_ + _r84253_) + (if (eq? '%#include _$e84311_) + (_expand-include84220_ + _hd84281_ + _rest84279_ + _r84253_) + (_expand-special84214_ + _hd84281_ + _K84222_ + _rest84279_ + _r84253_))))) + (_expand-expression84221_ + _hd84281_ + _rest84279_ + _r84253_))) + (_E8428484293_))))) + (_E8428484293_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8402184052_)) - (_E8399484003_))))) - (_E8399484003_))))) - (_E8399384056_))))) - (let* ((_e8396183968_ _stx83951_) - (_E8396383972_ + (_E8428384314_)) + (_E8425684265_))))) + (_E8425684265_))))) + (_E8425584318_))))) + (let* ((_e8422384230_ _stx84213_) + (_E8422584234_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8396183968_))) - (_E8396283986_ + _e8422384230_))) + (_E8422484248_ (lambda () - (if (gx#stx-pair? _e8396183968_) - (let ((_e8396483976_ (gx#syntax-e _e8396183968_))) - (let ((_hd8396583979_ (##car _e8396483976_)) - (_tl8396683981_ (##cdr _e8396483976_))) - (let ((_body83984_ _tl8396683981_)) - (if (gx#stx-list? _body83984_) - (_K83960_ _body83984_ '()) - (_E8396383972_))))) - (_E8396383972_))))) - (_E8396283986_))))) + (if (gx#stx-pair? _e8422384230_) + (let ((_e8422684238_ (gx#syntax-e _e8422384230_))) + (let ((_hd8422784241_ (##car _e8422684238_)) + (_tl8422884243_ (##cdr _e8422684238_))) + (let ((_body84246_ _tl8422884243_)) + (if (gx#stx-list? _body84246_) + (_K84222_ _body84246_ '()) + (_E8422584234_))))) + (_E8422584234_))))) + (_E8422484248_))))) (define gx#core-expand-block__0 - (lambda (_stx84127_ _expand-special84128_) - (let* ((_begin-form84130_ '%#begin) - (_expand-e84132_ gx#core-expand-expression)) + (lambda (_stx84389_ _expand-special84390_) + (let* ((_begin-form84392_ '%#begin) + (_expand-e84394_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx84127_ - _expand-special84128_ - _begin-form84130_ - _expand-e84132_)))) + _stx84389_ + _expand-special84390_ + _begin-form84392_ + _expand-e84394_)))) (define gx#core-expand-block__1 - (lambda (_stx84134_ _expand-special84135_ _begin-form84136_) - (let ((_expand-e84138_ gx#core-expand-expression)) + (lambda (_stx84396_ _expand-special84397_ _begin-form84398_) + (let ((_expand-e84400_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx84134_ - _expand-special84135_ - _begin-form84136_ - _expand-e84138_)))) + _stx84396_ + _expand-special84397_ + _begin-form84398_ + _expand-e84400_)))) (define gx#core-expand-block - (lambda _g84793_ - (let ((_g84792_ (##length _g84793_))) - (cond ((##fx= _g84792_ 2) - (apply (lambda (_stx84127_ _expand-special84128_) + (lambda _g85055_ + (let ((_g85054_ (##length _g85055_))) + (cond ((##fx= _g85054_ 2) + (apply (lambda (_stx84389_ _expand-special84390_) (gx#core-expand-block__0 - _stx84127_ - _expand-special84128_)) - _g84793_)) - ((##fx= _g84792_ 3) - (apply (lambda (_stx84134_ - _expand-special84135_ - _begin-form84136_) + _stx84389_ + _expand-special84390_)) + _g85055_)) + ((##fx= _g85054_ 3) + (apply (lambda (_stx84396_ + _expand-special84397_ + _begin-form84398_) (gx#core-expand-block__1 - _stx84134_ - _expand-special84135_ - _begin-form84136_)) - _g84793_)) - ((##fx= _g84792_ 4) - (apply (lambda (_stx84140_ - _expand-special84141_ - _begin-form84142_ - _expand-e84143_) + _stx84396_ + _expand-special84397_ + _begin-form84398_)) + _g85055_)) + ((##fx= _g85054_ 4) + (apply (lambda (_stx84402_ + _expand-special84403_ + _begin-form84404_ + _expand-e84405_) (gx#core-expand-block__% - _stx84140_ - _expand-special84141_ - _begin-form84142_ - _expand-e84143_)) - _g84793_)) + _stx84402_ + _expand-special84403_ + _begin-form84404_ + _expand-e84405_)) + _g85055_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g84793_)))))) + _g85055_)))))) (define gx#core-expand-block* - (lambda (_stx83899_ _expand-special83900_) - (let* ((_g8390183912_ - (gx#core-expand-block__1 _stx83899_ _expand-special83900_ '#f)) - (_E8390583916_ - (lambda () (error '"No clause matching" _g8390183912_)))) - (let ((_K8391083947_ + (lambda (_stx84161_ _expand-special84162_) + (let* ((_g8416384174_ + (gx#core-expand-block__1 _stx84161_ _expand-special84162_ '#f)) + (_E8416784178_ + (lambda () (error '"No clause matching" _g8416384174_)))) + (let ((_K8417284209_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx83899_))) - (_K8390783933_ (lambda (_expr83931_) _expr83931_)) - (_K8390683922_ - (lambda (_body83920_) + _stx84161_))) + (_K8416984195_ (lambda (_expr84193_) _expr84193_)) + (_K8416884184_ + (lambda (_body84182_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body83920_)) - (gx#stx-source _stx83899_))))) - (let ((_try-match8390383943_ + (gx#core-cons '%#begin (reverse _body84182_)) + (gx#stx-source _stx84161_))))) + (let ((_try-match8416584205_ (lambda () - (if (##pair? _g8390183912_) - (let ((_tl8390983938_ (##cdr _g8390183912_)) - (_hd8390883936_ (##car _g8390183912_))) - (if (##null? _tl8390983938_) - (let ((_expr83941_ _hd8390883936_)) - (_K8390783933_ _expr83941_)) - (let ((_body83925_ _g8390183912_)) - (_K8390683922_ _body83925_)))) - (let ((_body83925_ _g8390183912_)) - (_K8390683922_ _body83925_)))))) - (if (##null? _g8390183912_) - (_K8391083947_) - (_try-match8390383943_))))))) + (if (##pair? _g8416384174_) + (let ((_tl8417184200_ (##cdr _g8416384174_)) + (_hd8417084198_ (##car _g8416384174_))) + (if (##null? _tl8417184200_) + (let ((_expr84203_ _hd8417084198_)) + (_K8416984195_ _expr84203_)) + (let ((_body84187_ _g8416384174_)) + (_K8416884184_ _body84187_)))) + (let ((_body84187_ _g8416384174_)) + (_K8416884184_ _body84187_)))))) + (if (##null? _g8416384174_) + (_K8417284209_) + (_try-match8416584205_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx83727_) - (letrec ((_satisfied?83729_ - (lambda (_condition83827_) - (let* ((_e8382883843_ _condition83827_) - (_E8383883847_ + (lambda (_stx83989_) + (letrec ((_satisfied?83991_ + (lambda (_condition84089_) + (let* ((_e8409084105_ _condition84089_) + (_E8410084109_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8382883843_))) - (_E8383183866_ + _e8409084105_))) + (_E8409384128_ (lambda () - (if (gx#stx-pair? _e8382883843_) - (let ((_e8383983851_ - (gx#syntax-e _e8382883843_))) - (let ((_hd8384083854_ - (##car _e8383983851_)) - (_tl8384183856_ - (##cdr _e8383983851_))) - (let* ((_combinator83859_ _hd8384083854_) - (_body83861_ _tl8384183856_)) - (if (gx#stx-list? _body83861_) - (let ((_$e83863_ + (if (gx#stx-pair? _e8409084105_) + (let ((_e8410184113_ + (gx#syntax-e _e8409084105_))) + (let ((_hd8410284116_ + (##car _e8410184113_)) + (_tl8410384118_ + (##cdr _e8410184113_))) + (let* ((_combinator84121_ _hd8410284116_) + (_body84123_ _tl8410384118_)) + (if (gx#stx-list? _body84123_) + (let ((_$e84125_ (gx#stx-e - _combinator83859_))) - (if (eq? 'not _$e83863_) + _combinator84121_))) + (if (eq? 'not _$e84125_) (not (gx#stx-ormap - _satisfied?83729_ - _body83861_)) - (if (eq? 'and _$e83863_) + _satisfied?83991_ + _body84123_)) + (if (eq? 'and _$e84125_) (gx#stx-andmap - _satisfied?83729_ - _body83861_) - (if (eq? 'or _$e83863_) + _satisfied?83991_ + _body84123_) + (if (eq? 'or _$e84125_) (gx#stx-ormap - _satisfied?83729_ - _body83861_) + _satisfied?83991_ + _body84123_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e83863_) - (gx#stx-andmap gx#core-resolve-identifier _body83861_) + _$e84125_) + (gx#stx-andmap gx#core-resolve-identifier _body84123_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _stx83727_ - _combinator83859_)))))) + _stx83989_ + _combinator84121_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8383883847_))))) - (_E8383883847_)))) - (_E8383083889_ + (_E8410084109_))))) + (_E8410084109_)))) + (_E8409284151_ (lambda () - (if (gx#stx-pair? _e8382883843_) - (let ((_e8383283870_ - (gx#syntax-e _e8382883843_))) - (let ((_hd8383383873_ - (##car _e8383283870_)) - (_tl8383483875_ - (##cdr _e8383283870_))) - (if (and (gx#identifier? _hd8383383873_) + (if (gx#stx-pair? _e8409084105_) + (let ((_e8409484132_ + (gx#syntax-e _e8409084105_))) + (let ((_hd8409584135_ + (##car _e8409484132_)) + (_tl8409684137_ + (##cdr _e8409484132_))) + (if (and (gx#identifier? _hd8409584135_) (gx#core-identifier=? - _hd8383383873_ + _hd8409584135_ 'unquote)) - (if (gx#stx-pair? _tl8383483875_) - (let ((_e8383583878_ + (if (gx#stx-pair? _tl8409684137_) + (let ((_e8409784140_ (gx#syntax-e - _tl8383483875_))) - (let ((_hd8383683881_ - (##car _e8383583878_)) - (_tl8383783883_ - (##cdr _e8383583878_))) - (let ((_expr83886_ - _hd8383683881_)) + _tl8409684137_))) + (let ((_hd8409884143_ + (##car _e8409784140_)) + (_tl8409984145_ + (##cdr _e8409784140_))) + (let ((_expr84148_ + _hd8409884143_)) (if (gx#stx-null? - _tl8383783883_) + _tl8409984145_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr83886_)) + _expr84148_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E8383183866_)) - (_E8383183866_))))) + (_E8409384128_)) + (_E8409384128_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8383183866_)) - (_E8383183866_)))) - (_E8383183866_)))) - (_E8382983895_ + (_E8409384128_)) + (_E8409384128_)))) + (_E8409384128_)))) + (_E8409184157_ (lambda () - (let ((_id83893_ _e8382883843_)) - (if (gx#identifier? _id83893_) + (let ((_id84155_ _e8409084105_)) + (if (gx#identifier? _id84155_) (gx#core-bound-identifier?__% - _id83893_ + _id84155_ gx#feature-binding?) - (_E8383083889_)))))) - (_E8382983895_)))) - (_loop83730_ - (lambda (_rest83760_) - (let* ((_e8376183769_ _rest83760_) - (_E8376783773_ + (_E8409284151_)))))) + (_E8409184157_)))) + (_loop83992_ + (lambda (_rest84022_) + (let* ((_e8402384031_ _rest84022_) + (_E8402984035_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8376183769_))) - (_E8376383777_ + _e8402384031_))) + (_E8402584039_ (lambda () - (if (gx#stx-null? _e8376183769_) - (if '#t '() (_E8376783773_)) - (_E8376783773_)))) - (_E8376283823_ + (if (gx#stx-null? _e8402384031_) + (if '#t '() (_E8402984035_)) + (_E8402984035_)))) + (_E8402484085_ (lambda () - (if (gx#stx-pair? _e8376183769_) - (let ((_e8376483781_ - (gx#syntax-e _e8376183769_))) - (let ((_hd8376583784_ - (##car _e8376483781_)) - (_tl8376683786_ - (##cdr _e8376483781_))) - (let* ((_hd83789_ _hd8376583784_) - (_rest83791_ _tl8376683786_)) + (if (gx#stx-pair? _e8402384031_) + (let ((_e8402684043_ + (gx#syntax-e _e8402384031_))) + (let ((_hd8402784046_ + (##car _e8402684043_)) + (_tl8402884048_ + (##cdr _e8402684043_))) + (let* ((_hd84051_ _hd8402784046_) + (_rest84053_ _tl8402884048_)) (if '#t - (let* ((_e8379283799_ _hd83789_) - (_E8379483803_ + (let* ((_e8405484061_ _hd84051_) + (_E8405684065_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8379283799_))) - (_E8379383819_ + _e8405484061_))) + (_E8405584081_ (lambda () (if (gx#stx-pair? - _e8379283799_) - (let ((_e8379583807_ + _e8405484061_) + (let ((_e8405784069_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8379283799_))) - (let ((_hd8379683810_ (##car _e8379583807_)) - (_tl8379783812_ (##cdr _e8379583807_))) - (let* ((_condition83815_ _hd8379683810_) - (_body83817_ _tl8379783812_)) + (gx#syntax-e _e8405484061_))) + (let ((_hd8405884072_ (##car _e8405784069_)) + (_tl8405984074_ (##cdr _e8405784069_))) + (let* ((_condition84077_ _hd8405884072_) + (_body84079_ _tl8405984074_)) (if '#t - (if (gx#stx-eq? _condition83815_ 'else) - (if (gx#stx-null? _rest83791_) - _body83817_ + (if (gx#stx-eq? _condition84077_ 'else) + (if (gx#stx-null? _rest84053_) + _body84079_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _stx83727_ - _hd83789_)) - (if (_satisfied?83729_ _condition83815_) - _body83817_ - (_loop83730_ _rest83791_))) - (_E8379483803_))))) - (_E8379483803_))))) + _stx83989_ + _hd84051_)) + (if (_satisfied?83991_ _condition84077_) + _body84079_ + (_loop83992_ _rest84053_))) + (_E8405684065_))))) + (_E8405684065_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8379383819_)) - (_E8376383777_))))) - (_E8376383777_))))) - (_E8376283823_))))) - (let* ((_e8373183738_ _stx83727_) - (_E8373383742_ + (_E8405584081_)) + (_E8402584039_))))) + (_E8402584039_))))) + (_E8402484085_))))) + (let* ((_e8399384000_ _stx83989_) + (_E8399584004_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8373183738_))) - (_E8373283756_ + _e8399384000_))) + (_E8399484018_ (lambda () - (if (gx#stx-pair? _e8373183738_) - (let ((_e8373483746_ (gx#syntax-e _e8373183738_))) - (let ((_hd8373583749_ (##car _e8373483746_)) - (_tl8373683751_ (##cdr _e8373483746_))) - (let ((_clauses83754_ _tl8373683751_)) - (if (gx#stx-list? _clauses83754_) + (if (gx#stx-pair? _e8399384000_) + (let ((_e8399684008_ (gx#syntax-e _e8399384000_))) + (let ((_hd8399784011_ (##car _e8399684008_)) + (_tl8399884013_ (##cdr _e8399684008_))) + (let ((_clauses84016_ _tl8399884013_)) + (if (gx#stx-list? _clauses84016_) (gx#core-cons 'begin - (_loop83730_ _clauses83754_)) - (_E8373383742_))))) - (_E8373383742_))))) - (_E8373283756_))))) + (_loop83992_ _clauses84016_)) + (_E8399584004_))))) + (_E8399584004_))))) + (_E8399484018_))))) (define gx#core-expand-include%__% - (lambda (_stx83670_ _rpath83671_) - (let* ((_e8367283682_ _stx83670_) - (_E8367483686_ + (lambda (_stx83932_ _rpath83933_) + (let* ((_e8393483944_ _stx83932_) + (_E8393683948_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8367283682_))) - (_E8367383713_ + _e8393483944_))) + (_E8393583975_ (lambda () - (if (gx#stx-pair? _e8367283682_) - (let ((_e8367583690_ (gx#syntax-e _e8367283682_))) - (let ((_hd8367683693_ (##car _e8367583690_)) - (_tl8367783695_ (##cdr _e8367583690_))) - (if (gx#stx-pair? _tl8367783695_) - (let ((_e8367883698_ - (gx#syntax-e _tl8367783695_))) - (let ((_hd8367983701_ (##car _e8367883698_)) - (_tl8368083703_ (##cdr _e8367883698_))) - (let ((_path83706_ _hd8367983701_)) - (if (gx#stx-null? _tl8368083703_) - (if (gx#stx-string? _path83706_) - (let ((_rpath83711_ - (let ((_$e83708_ - _rpath83671_)) - (if _$e83708_ - _$e83708_ + (if (gx#stx-pair? _e8393483944_) + (let ((_e8393783952_ (gx#syntax-e _e8393483944_))) + (let ((_hd8393883955_ (##car _e8393783952_)) + (_tl8393983957_ (##cdr _e8393783952_))) + (if (gx#stx-pair? _tl8393983957_) + (let ((_e8394083960_ + (gx#syntax-e _tl8393983957_))) + (let ((_hd8394183963_ (##car _e8394083960_)) + (_tl8394283965_ (##cdr _e8394083960_))) + (let ((_path83968_ _hd8394183963_)) + (if (gx#stx-null? _tl8394283965_) + (if (gx#stx-string? _path83968_) + (let ((_rpath83973_ + (let ((_$e83970_ + _rpath83933_)) + (if _$e83970_ + _$e83970_ (gx#core-resolve-path__% - _path83706_ + _path83968_ (gx#stx-source - _stx83670_)))))) - (if (member _rpath83711_ + _stx83932_)))))) + (if (member _rpath83973_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx83670_) + _stx83932_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath83711_)) + _rpath83973_)) (gx#stx-source - _stx83670_))))) - (_E8367483686_)) - (_E8367483686_))))) - (_E8367483686_)))) - (_E8367483686_))))) - (_E8367383713_)))) + _stx83932_))))) + (_E8393683948_)) + (_E8393683948_))))) + (_E8393683948_)))) + (_E8393683948_))))) + (_E8393583975_)))) (define gx#core-expand-include%__0 - (lambda (_stx83720_) - (let ((_rpath83722_ '#f)) - (gx#core-expand-include%__% _stx83720_ _rpath83722_)))) + (lambda (_stx83982_) + (let ((_rpath83984_ '#f)) + (gx#core-expand-include%__% _stx83982_ _rpath83984_)))) (define gx#core-expand-include% - (lambda _g84795_ - (let ((_g84794_ (##length _g84795_))) - (cond ((##fx= _g84794_ 1) - (apply (lambda (_stx83720_) - (gx#core-expand-include%__0 _stx83720_)) - _g84795_)) - ((##fx= _g84794_ 2) - (apply (lambda (_stx83724_ _rpath83725_) - (gx#core-expand-include%__% _stx83724_ _rpath83725_)) - _g84795_)) + (lambda _g85057_ + (let ((_g85056_ (##length _g85057_))) + (cond ((##fx= _g85056_ 1) + (apply (lambda (_stx83982_) + (gx#core-expand-include%__0 _stx83982_)) + _g85057_)) + ((##fx= _g85056_ 2) + (apply (lambda (_stx83986_ _rpath83987_) + (gx#core-expand-include%__% _stx83986_ _rpath83987_)) + _g85057_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g84795_)))))) + _g85057_)))))) (define gx#core-apply-expander__% - (lambda (_K83639_ _stx83640_ _method83641_) - (if (procedure? _K83639_) - (let ((_$e83643_ (gx#stx-source _stx83640_))) - (if _$e83643_ - ((lambda (_g8364583647_) - (gx#stx-wrap-source (_K83639_ _stx83640_) _g8364583647_)) - _$e83643_) - (_K83639_ _stx83640_))) - (let ((_$e83650_ (bound-method-ref _K83639_ _method83641_))) - (if _$e83650_ - ((lambda (_g8365283654_) + (lambda (_K83901_ _stx83902_ _method83903_) + (if (procedure? _K83901_) + (let ((_$e83905_ (gx#stx-source _stx83902_))) + (if _$e83905_ + ((lambda (_g8390783909_) + (gx#stx-wrap-source (_K83901_ _stx83902_) _g8390783909_)) + _$e83905_) + (_K83901_ _stx83902_))) + (let ((_$e83912_ (bound-method-ref _K83901_ _method83903_))) + (if _$e83912_ + ((lambda (_g8391483916_) (gx#core-apply-expander__% - _g8365283654_ - _stx83640_ - _method83641_)) - _$e83650_) + _g8391483916_ + _stx83902_ + _method83903_)) + _$e83912_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _stx83640_ - _method83641_)))))) + _stx83902_ + _method83903_)))))) (define gx#core-apply-expander__0 - (lambda (_K83660_ _stx83661_) - (let ((_method83663_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K83660_ _stx83661_ _method83663_)))) + (lambda (_K83922_ _stx83923_) + (let ((_method83925_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K83922_ _stx83923_ _method83925_)))) (define gx#core-apply-expander - (lambda _g84797_ - (let ((_g84796_ (##length _g84797_))) - (cond ((##fx= _g84796_ 2) - (apply (lambda (_K83660_ _stx83661_) - (gx#core-apply-expander__0 _K83660_ _stx83661_)) - _g84797_)) - ((##fx= _g84796_ 3) - (apply (lambda (_K83665_ _stx83666_ _method83667_) + (lambda _g85059_ + (let ((_g85058_ (##length _g85059_))) + (cond ((##fx= _g85058_ 2) + (apply (lambda (_K83922_ _stx83923_) + (gx#core-apply-expander__0 _K83922_ _stx83923_)) + _g85059_)) + ((##fx= _g85058_ 3) + (apply (lambda (_K83927_ _stx83928_ _method83929_) (gx#core-apply-expander__% - _K83665_ - _stx83666_ - _method83667_)) - _g84797_)) + _K83927_ + _stx83928_ + _method83929_)) + _g85059_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g84797_)))))) + _g85059_)))))) (define gx#expander::apply-macro-expander - (lambda (_self83635_ _stx83636_) + (lambda (_self83897_ _stx83898_) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _stx83636_))) + _stx83898_))) (bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self83488_ _stx83489_) - (let* ((_self8349083496_ _self83488_) - (_E8349283500_ - (lambda () (error '"No clause matching" _self8349083496_))) - (_K8349383505_ - (lambda (_K83503_) - (gx#core-apply-expander__0 _K83503_ _stx83489_)))) - (if (##structure-instance-of? _self8349083496_ 'gx#core-macro::t) - (let* ((_e8349483508_ + (lambda (_self83750_ _stx83751_) + (let* ((_self8375283758_ _self83750_) + (_E8375483762_ + (lambda () (error '"No clause matching" _self8375283758_))) + (_K8375583767_ + (lambda (_K83765_) + (gx#core-apply-expander__0 _K83765_ _stx83751_)))) + (if (##structure-instance-of? _self8375283758_ 'gx#core-macro::t) + (let* ((_e8375683770_ (##unchecked-structure-ref - _self8349083496_ + _self8375283758_ '1 gx#expander::t '#f)) - (_K83511_ _e8349483508_)) - (_K8349383505_ _K83511_)) - (_E8349283500_))))) + (_K83773_ _e8375683770_)) + (_K8375583767_ _K83773_)) + (_E8375483762_))))) (bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self83341_ _stx83342_) - (if (gx#sealed-syntax? _stx83342_) - _stx83342_ - (let* ((_self8334383349_ _self83341_) - (_E8334583353_ - (lambda () (error '"No clause matching" _self8334383349_))) - (_K8334683358_ - (lambda (_K83356_) - (gx#core-apply-expander__0 _K83356_ _stx83342_)))) + (lambda (_self83603_ _stx83604_) + (if (gx#sealed-syntax? _stx83604_) + _stx83604_ + (let* ((_self8360583611_ _self83603_) + (_E8360783615_ + (lambda () (error '"No clause matching" _self8360583611_))) + (_K8360883620_ + (lambda (_K83618_) + (gx#core-apply-expander__0 _K83618_ _stx83604_)))) (if (##structure-instance-of? - _self8334383349_ + _self8360583611_ 'gx#core-expander::t) - (let* ((_e8334783361_ + (let* ((_e8360983623_ (##unchecked-structure-ref - _self8334383349_ + _self8360583611_ '1 gx#expander::t '#f)) - (_K83364_ _e8334783361_)) - (_K8334683358_ _K83364_)) - (_E8334583353_)))))) + (_K83626_ _e8360983623_)) + (_K8360883620_ _K83626_)) + (_E8360783615_)))))) (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 (_self83203_ _stx83204_ _top?83205_) - (if (_top?83205_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self83203_ _stx83204_) + (lambda (_self83465_ _stx83466_ _top?83467_) + (if (_top?83467_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self83465_ _stx83466_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx83204_)))) + _stx83466_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self83210_ _stx83211_) - (let ((_top?83213_ gx#top-context?)) + (lambda (_self83472_ _stx83473_) + (let ((_top?83475_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self83210_ - _stx83211_ - _top?83213_)))) + _self83472_ + _stx83473_ + _top?83475_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g84799_ - (let ((_g84798_ (##length _g84799_))) - (cond ((##fx= _g84798_ 2) - (apply (lambda (_self83210_ _stx83211_) + (lambda _g85061_ + (let ((_g85060_ (##length _g85061_))) + (cond ((##fx= _g85060_ 2) + (apply (lambda (_self83472_ _stx83473_) (gx#top-special-form::apply-macro-expander__0 - _self83210_ - _stx83211_)) - _g84799_)) - ((##fx= _g84798_ 3) - (apply (lambda (_self83215_ _stx83216_ _top?83217_) + _self83472_ + _stx83473_)) + _g85061_)) + ((##fx= _g85060_ 3) + (apply (lambda (_self83477_ _stx83478_ _top?83479_) (gx#top-special-form::apply-macro-expander__% - _self83215_ - _stx83216_ - _top?83217_)) - _g84799_)) + _self83477_ + _stx83478_ + _top?83479_)) + _g85061_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g84799_)))))) + _g85061_)))))) (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 (_self83077_ _stx83078_) + (lambda (_self83339_ _stx83340_) (gx#top-special-form::apply-macro-expander__% - _self83077_ - _stx83078_ + _self83339_ + _stx83340_ gx#module-context?))) (bind-method!__% gx#module-special-form::t @@ -2270,132 +2270,132 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_self82902_ _stx82903_) - (let* ((_self8290482910_ _self82902_) - (_E8290682914_ - (lambda () (error '"No clause matching" _self8290482910_))) - (_K8290782947_ - (lambda (_id82917_) - (let* ((_e8291882925_ _stx82903_) - (_E8292082929_ + (lambda (_self83164_ _stx83165_) + (let* ((_self8316683172_ _self83164_) + (_E8316883176_ + (lambda () (error '"No clause matching" _self8316683172_))) + (_K8316983209_ + (lambda (_id83179_) + (let* ((_e8318083187_ _stx83165_) + (_E8318283191_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8291882925_))) - (_E8291982943_ + _e8318083187_))) + (_E8318183205_ (lambda () - (if (gx#stx-pair? _e8291882925_) - (let ((_e8292182933_ - (gx#syntax-e _e8291882925_))) - (let ((_hd8292282936_ (##car _e8292182933_)) - (_tl8292382938_ (##cdr _e8292182933_))) - (let ((_body82941_ _tl8292382938_)) + (if (gx#stx-pair? _e8318083187_) + (let ((_e8318383195_ + (gx#syntax-e _e8318083187_))) + (let ((_hd8318483198_ (##car _e8318383195_)) + (_tl8318583200_ (##cdr _e8318383195_))) + (let ((_body83203_ _tl8318583200_)) (if '#t - (gx#core-cons _id82917_ _body82941_) - (_E8292082929_))))) - (_E8292082929_))))) - (_E8291982943_))))) + (gx#core-cons _id83179_ _body83203_) + (_E8318283191_))))) + (_E8318283191_))))) + (_E8318183205_))))) (if (##structure-instance-of? - _self8290482910_ + _self8316683172_ 'gx#rename-macro-expander::t) - (let* ((_e8290882950_ + (let* ((_e8317083212_ (##unchecked-structure-ref - _self8290482910_ + _self8316683172_ '1 gx#expander::t '#f)) - (_id82953_ _e8290882950_)) - (_K8290782947_ _id82953_)) - (_E8290682914_))))) + (_id83215_ _e8317083212_)) + (_K8316983209_ _id83215_)) + (_E8316883176_))))) (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 (_self82728_ _stx82729_ _method82730_) - (let* ((_self8273182739_ _self82728_) - (_E8273382743_ - (lambda () (error '"No clause matching" _self8273182739_))) - (_K8273482750_ - (lambda (_phi82746_ _ctx82747_ _K82748_) + (lambda (_self82990_ _stx82991_ _method82992_) + (let* ((_self8299383001_ _self82990_) + (_E8299583005_ + (lambda () (error '"No clause matching" _self8299383001_))) + (_K8299683012_ + (lambda (_phi83008_ _ctx83009_ _K83010_) (gx#core-apply-user-macro - _K82748_ - _stx82729_ - _ctx82747_ - _phi82746_ - _method82730_)))) - (if (##structure-instance-of? _self8273182739_ 'gx#macro-expander::t) - (let* ((_e8273582753_ + _K83010_ + _stx82991_ + _ctx83009_ + _phi83008_ + _method82992_)))) + (if (##structure-instance-of? _self8299383001_ 'gx#macro-expander::t) + (let* ((_e8299783015_ (##unchecked-structure-ref - _self8273182739_ + _self8299383001_ '1 gx#expander::t '#f)) - (_K82756_ _e8273582753_) - (_e8273682758_ + (_K83018_ _e8299783015_) + (_e8299883020_ (##unchecked-structure-ref - _self8273182739_ + _self8299383001_ '2 gx#user-expander::t '#f)) - (_ctx82761_ _e8273682758_) - (_e8273782763_ + (_ctx83023_ _e8299883020_) + (_e8299983025_ (##unchecked-structure-ref - _self8273182739_ + _self8299383001_ '3 gx#user-expander::t '#f)) - (_phi82766_ _e8273782763_)) - (_K8273482750_ _phi82766_ _ctx82761_ _K82756_)) - (_E8273382743_))))) + (_phi83028_ _e8299983025_)) + (_K8299683012_ _phi83028_ _ctx83023_ _K83018_)) + (_E8299583005_))))) (define gx#core-apply-user-expander__0 - (lambda (_self82771_ _stx82772_) - (let ((_method82774_ 'apply-macro-expander)) + (lambda (_self83033_ _stx83034_) + (let ((_method83036_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _self82771_ - _stx82772_ - _method82774_)))) + _self83033_ + _stx83034_ + _method83036_)))) (define gx#core-apply-user-expander - (lambda _g84801_ - (let ((_g84800_ (##length _g84801_))) - (cond ((##fx= _g84800_ 2) - (apply (lambda (_self82771_ _stx82772_) + (lambda _g85063_ + (let ((_g85062_ (##length _g85063_))) + (cond ((##fx= _g85062_ 2) + (apply (lambda (_self83033_ _stx83034_) (gx#core-apply-user-expander__0 - _self82771_ - _stx82772_)) - _g84801_)) - ((##fx= _g84800_ 3) - (apply (lambda (_self82776_ _stx82777_ _method82778_) + _self83033_ + _stx83034_)) + _g85063_)) + ((##fx= _g85062_ 3) + (apply (lambda (_self83038_ _stx83039_ _method83040_) (gx#core-apply-user-expander__% - _self82776_ - _stx82777_ - _method82778_)) - _g84801_)) + _self83038_ + _stx83039_ + _method83040_)) + _g85063_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g84801_)))))) + _g85063_)))))) (define gx#core-apply-user-macro - (lambda (_K82718_ _stx82719_ _ctx82720_ _phi82721_ _method82722_) - (let ((_mark82724_ + (lambda (_K82980_ _stx82981_ _ctx82982_ _phi82983_ _method82984_) + (let ((_mark82986_ (##structure gx#expander-mark::t '#f - _ctx82720_ - _phi82721_ - _stx82719_))) + _ctx82982_ + _phi82983_ + _stx82981_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K82718_ - (gx#stx-apply-mark _stx82719_ _mark82724_) - _method82722_) - _mark82724_)) + _K82980_ + (gx#stx-apply-mark _stx82981_ _mark82986_) + _method82984_) + _mark82986_)) gx#current-expander-marks - (cons _mark82724_ (gx#current-expander-marks)))))) + (cons _mark82986_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (bind-method!__% gx#user-expander::t @@ -2403,413 +2403,413 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_stx82570_ _phi82571_ _ctx82572_) - (let _lp82574_ ((_bind82576_ + (lambda (_stx82832_ _phi82833_ _ctx82834_) + (let _lp82836_ ((_bind82838_ (gx#core-resolve-identifier__% - _stx82570_ - _phi82571_ - _ctx82572_))) + _stx82832_ + _phi82833_ + _ctx82834_))) (if (##structure-direct-instance-of? - _bind82576_ + _bind82838_ 'gx#import-binding::t) - (_lp82574_ + (_lp82836_ (##unchecked-structure-ref - _bind82576_ + _bind82838_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind82576_ + _bind82838_ 'gx#alias-binding::t) - (_lp82574_ + (_lp82836_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind82576_ + _bind82838_ '4 gx#alias-binding::t '#f) - _phi82571_ - _ctx82572_)) - _bind82576_))))) + _phi82833_ + _ctx82834_)) + _bind82838_))))) (define gx#resolve-identifier__0 - (lambda (_stx82581_) - (let* ((_phi82583_ (gx#current-expander-phi)) - (_ctx82585_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx82581_ _phi82583_ _ctx82585_)))) + (lambda (_stx82843_) + (let* ((_phi82845_ (gx#current-expander-phi)) + (_ctx82847_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx82843_ _phi82845_ _ctx82847_)))) (define gx#resolve-identifier__1 - (lambda (_stx82587_ _phi82588_) - (let ((_ctx82590_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx82587_ _phi82588_ _ctx82590_)))) + (lambda (_stx82849_ _phi82850_) + (let ((_ctx82852_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx82849_ _phi82850_ _ctx82852_)))) (define gx#resolve-identifier - (lambda _g84803_ - (let ((_g84802_ (##length _g84803_))) - (cond ((##fx= _g84802_ 1) - (apply (lambda (_stx82581_) - (gx#resolve-identifier__0 _stx82581_)) - _g84803_)) - ((##fx= _g84802_ 2) - (apply (lambda (_stx82587_ _phi82588_) - (gx#resolve-identifier__1 _stx82587_ _phi82588_)) - _g84803_)) - ((##fx= _g84802_ 3) - (apply (lambda (_stx82592_ _phi82593_ _ctx82594_) + (lambda _g85065_ + (let ((_g85064_ (##length _g85065_))) + (cond ((##fx= _g85064_ 1) + (apply (lambda (_stx82843_) + (gx#resolve-identifier__0 _stx82843_)) + _g85065_)) + ((##fx= _g85064_ 2) + (apply (lambda (_stx82849_ _phi82850_) + (gx#resolve-identifier__1 _stx82849_ _phi82850_)) + _g85065_)) + ((##fx= _g85064_ 3) + (apply (lambda (_stx82854_ _phi82855_ _ctx82856_) (gx#resolve-identifier__% - _stx82592_ - _phi82593_ - _ctx82594_)) - _g84803_)) + _stx82854_ + _phi82855_ + _ctx82856_)) + _g85065_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g84803_)))))) + _g85065_)))))) (define gx#bind-identifier!__% - (lambda (_stx82528_ _val82529_ _rebind?82530_ _phi82531_ _ctx82532_) - (let ((_rebind?82534_ - (if (not _rebind?82530_) + (lambda (_stx82790_ _val82791_ _rebind?82792_ _phi82793_ _ctx82794_) + (let ((_rebind?82796_ + (if (not _rebind?82792_) gx#core-context-rebind? - (if (procedure? _rebind?82530_) _rebind?82530_ true)))) + (if (procedure? _rebind?82792_) _rebind?82792_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx82528_) - _val82529_ - _rebind?82534_ - _phi82531_ - _ctx82532_)))) + (gx#core-identifier-key _stx82790_) + _val82791_ + _rebind?82796_ + _phi82793_ + _ctx82794_)))) (define gx#bind-identifier!__0 - (lambda (_stx82539_ _val82540_) - (let* ((_rebind?82542_ '#f) - (_phi82544_ (gx#current-expander-phi)) - (_ctx82546_ (gx#current-expander-context))) + (lambda (_stx82801_ _val82802_) + (let* ((_rebind?82804_ '#f) + (_phi82806_ (gx#current-expander-phi)) + (_ctx82808_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx82539_ - _val82540_ - _rebind?82542_ - _phi82544_ - _ctx82546_)))) + _stx82801_ + _val82802_ + _rebind?82804_ + _phi82806_ + _ctx82808_)))) (define gx#bind-identifier!__1 - (lambda (_stx82548_ _val82549_ _rebind?82550_) - (let* ((_phi82552_ (gx#current-expander-phi)) - (_ctx82554_ (gx#current-expander-context))) + (lambda (_stx82810_ _val82811_ _rebind?82812_) + (let* ((_phi82814_ (gx#current-expander-phi)) + (_ctx82816_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx82548_ - _val82549_ - _rebind?82550_ - _phi82552_ - _ctx82554_)))) + _stx82810_ + _val82811_ + _rebind?82812_ + _phi82814_ + _ctx82816_)))) (define gx#bind-identifier!__2 - (lambda (_stx82556_ _val82557_ _rebind?82558_ _phi82559_) - (let ((_ctx82561_ (gx#current-expander-context))) + (lambda (_stx82818_ _val82819_ _rebind?82820_ _phi82821_) + (let ((_ctx82823_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx82556_ - _val82557_ - _rebind?82558_ - _phi82559_ - _ctx82561_)))) + _stx82818_ + _val82819_ + _rebind?82820_ + _phi82821_ + _ctx82823_)))) (define gx#bind-identifier! - (lambda _g84805_ - (let ((_g84804_ (##length _g84805_))) - (cond ((##fx= _g84804_ 2) - (apply (lambda (_stx82539_ _val82540_) - (gx#bind-identifier!__0 _stx82539_ _val82540_)) - _g84805_)) - ((##fx= _g84804_ 3) - (apply (lambda (_stx82548_ _val82549_ _rebind?82550_) + (lambda _g85067_ + (let ((_g85066_ (##length _g85067_))) + (cond ((##fx= _g85066_ 2) + (apply (lambda (_stx82801_ _val82802_) + (gx#bind-identifier!__0 _stx82801_ _val82802_)) + _g85067_)) + ((##fx= _g85066_ 3) + (apply (lambda (_stx82810_ _val82811_ _rebind?82812_) (gx#bind-identifier!__1 - _stx82548_ - _val82549_ - _rebind?82550_)) - _g84805_)) - ((##fx= _g84804_ 4) - (apply (lambda (_stx82556_ - _val82557_ - _rebind?82558_ - _phi82559_) + _stx82810_ + _val82811_ + _rebind?82812_)) + _g85067_)) + ((##fx= _g85066_ 4) + (apply (lambda (_stx82818_ + _val82819_ + _rebind?82820_ + _phi82821_) (gx#bind-identifier!__2 - _stx82556_ - _val82557_ - _rebind?82558_ - _phi82559_)) - _g84805_)) - ((##fx= _g84804_ 5) - (apply (lambda (_stx82563_ - _val82564_ - _rebind?82565_ - _phi82566_ - _ctx82567_) + _stx82818_ + _val82819_ + _rebind?82820_ + _phi82821_)) + _g85067_)) + ((##fx= _g85066_ 5) + (apply (lambda (_stx82825_ + _val82826_ + _rebind?82827_ + _phi82828_ + _ctx82829_) (gx#bind-identifier!__% - _stx82563_ - _val82564_ - _rebind?82565_ - _phi82566_ - _ctx82567_)) - _g84805_)) + _stx82825_ + _val82826_ + _rebind?82827_ + _phi82828_ + _ctx82829_)) + _g85067_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g84805_)))))) + _g85067_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx82500_ _phi82501_ _ctx82502_) - (let _lp82504_ ((_e82506_ _stx82500_) - (_marks82507_ (gx#current-expander-marks))) - (if (symbol? _e82506_) + (lambda (_stx82762_ _phi82763_ _ctx82764_) + (let _lp82766_ ((_e82768_ _stx82762_) + (_marks82769_ (gx#current-expander-marks))) + (if (symbol? _e82768_) (gx#core-resolve-binding - _e82506_ - _phi82501_ - _phi82501_ - _ctx82502_ - (reverse _marks82507_)) - (if (gx#identifier-quote? _e82506_) + _e82768_ + _phi82763_ + _phi82763_ + _ctx82764_ + (reverse _marks82769_)) + (if (gx#identifier-quote? _e82768_) (gx#core-resolve-binding - (##unchecked-structure-ref _e82506_ '1 gx#AST::t '#f) - _phi82501_ + (##unchecked-structure-ref _e82768_ '1 gx#AST::t '#f) + _phi82763_ '0 (##unchecked-structure-ref - _e82506_ + _e82768_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e82506_ + _e82768_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e82506_ + _e82768_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e82506_ '1 gx#AST::t '#f) - _phi82501_ - _phi82501_ - _ctx82502_ + (##unchecked-structure-ref _e82768_ '1 gx#AST::t '#f) + _phi82763_ + _phi82763_ + _ctx82764_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e82506_ + _e82768_ '3 gx#identifier-wrap::t '#f) - _marks82507_)) + _marks82769_)) (if (##structure-direct-instance-of? - _e82506_ + _e82768_ 'gx#syntax-wrap::t) - (_lp82504_ + (_lp82766_ (##unchecked-structure-ref - _e82506_ + _e82768_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e82506_ + _e82768_ '3 gx#syntax-wrap::t '#f) - _marks82507_)) + _marks82769_)) (if (##structure-instance-of? - _e82506_ + _e82768_ 'gerbil#AST::t) - (_lp82504_ + (_lp82766_ (##unchecked-structure-ref - _e82506_ + _e82768_ '1 gx#AST::t '#f) - _marks82507_) + _marks82769_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx82500_))))))))) + _stx82762_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx82512_) - (let* ((_phi82514_ (gx#current-expander-phi)) - (_ctx82516_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx82512_ _phi82514_ _ctx82516_)))) + (lambda (_stx82774_) + (let* ((_phi82776_ (gx#current-expander-phi)) + (_ctx82778_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx82774_ _phi82776_ _ctx82778_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx82518_ _phi82519_) - (let ((_ctx82521_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx82518_ _phi82519_ _ctx82521_)))) + (lambda (_stx82780_ _phi82781_) + (let ((_ctx82783_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx82780_ _phi82781_ _ctx82783_)))) (define gx#core-resolve-identifier - (lambda _g84807_ - (let ((_g84806_ (##length _g84807_))) - (cond ((##fx= _g84806_ 1) - (apply (lambda (_stx82512_) - (gx#core-resolve-identifier__0 _stx82512_)) - _g84807_)) - ((##fx= _g84806_ 2) - (apply (lambda (_stx82518_ _phi82519_) + (lambda _g85069_ + (let ((_g85068_ (##length _g85069_))) + (cond ((##fx= _g85068_ 1) + (apply (lambda (_stx82774_) + (gx#core-resolve-identifier__0 _stx82774_)) + _g85069_)) + ((##fx= _g85068_ 2) + (apply (lambda (_stx82780_ _phi82781_) (gx#core-resolve-identifier__1 - _stx82518_ - _phi82519_)) - _g84807_)) - ((##fx= _g84806_ 3) - (apply (lambda (_stx82523_ _phi82524_ _ctx82525_) + _stx82780_ + _phi82781_)) + _g85069_)) + ((##fx= _g85068_ 3) + (apply (lambda (_stx82785_ _phi82786_ _ctx82787_) (gx#core-resolve-identifier__% - _stx82523_ - _phi82524_ - _ctx82525_)) - _g84807_)) + _stx82785_ + _phi82786_ + _ctx82787_)) + _g85069_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g84807_)))))) + _g85069_)))))) (define gx#core-resolve-binding - (lambda (_id82413_ _phi82414_ _src-phi82415_ _ctx82416_ _marks82417_) - (letrec ((_resolve82419_ - (lambda (_ctx82487_ _src-phi82488_ _key82489_) - (let _lp82491_ ((_ctx82493_ + (lambda (_id82675_ _phi82676_ _src-phi82677_ _ctx82678_ _marks82679_) + (letrec ((_resolve82681_ + (lambda (_ctx82749_ _src-phi82750_ _key82751_) + (let _lp82753_ ((_ctx82755_ (gx#core-context-shift - _ctx82487_ - _phi82414_)) - (_dphi82494_ - (fx- _phi82414_ _src-phi82488_))) - (let ((_$e82496_ - (gx#core-context-resolve _ctx82493_ _key82489_))) - (if _$e82496_ - (values _$e82496_) - (if (fxzero? _dphi82494_) + _ctx82749_ + _phi82676_)) + (_dphi82756_ + (fx- _phi82676_ _src-phi82750_))) + (let ((_$e82758_ + (gx#core-context-resolve _ctx82755_ _key82751_))) + (if _$e82758_ + (values _$e82758_) + (if (fxzero? _dphi82756_) '#f - (if (fxpositive? _dphi82494_) - (_lp82491_ - (gx#core-context-shift _ctx82493_ '-1) - (fx- _dphi82494_ '1)) - (_lp82491_ - (gx#core-context-shift _ctx82493_ '1) - (fx+ _dphi82494_ '1)))))))))) - (let _lp82421_ ((_ctx82423_ _ctx82416_) - (_src-phi82424_ _src-phi82415_) - (_rest82425_ _marks82417_)) - (let* ((_rest8242682434_ _rest82425_) - (_else8242882442_ + (if (fxpositive? _dphi82756_) + (_lp82753_ + (gx#core-context-shift _ctx82755_ '-1) + (fx- _dphi82756_ '1)) + (_lp82753_ + (gx#core-context-shift _ctx82755_ '1) + (fx+ _dphi82756_ '1)))))))))) + (let _lp82683_ ((_ctx82685_ _ctx82678_) + (_src-phi82686_ _src-phi82677_) + (_rest82687_ _marks82679_)) + (let* ((_rest8268882696_ _rest82687_) + (_else8269082704_ (lambda () - (_resolve82419_ _ctx82423_ _src-phi82424_ _id82413_))) - (_K8243082475_ - (lambda (_rest82445_ _hd82446_) - (let* ((_hd8244782453_ _hd82446_) - (_E8244982457_ + (_resolve82681_ _ctx82685_ _src-phi82686_ _id82675_))) + (_K8269282737_ + (lambda (_rest82707_ _hd82708_) + (let* ((_hd8270982715_ _hd82708_) + (_E8271182719_ (lambda () - (error '"No clause matching" _hd8244782453_))) - (_K8245082467_ - (lambda (_subst82460_) - (let ((_$e82464_ - (let ((_key82462_ - (if _subst82460_ + (error '"No clause matching" _hd8270982715_))) + (_K8271282729_ + (lambda (_subst82722_) + (let ((_$e82726_ + (let ((_key82724_ + (if _subst82722_ (hash-get - _subst82460_ - _id82413_) + _subst82722_ + _id82675_) '#f))) - (if _key82462_ - (_resolve82419_ - _ctx82423_ - _src-phi82424_ - _key82462_) + (if _key82724_ + (_resolve82681_ + _ctx82685_ + _src-phi82686_ + _key82724_) '#f)))) - (if _$e82464_ - _$e82464_ - (_lp82421_ + (if _$e82726_ + _$e82726_ + (_lp82683_ (##unchecked-structure-ref - _hd82446_ + _hd82708_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd82446_ + _hd82708_ '3 gx#expander-mark::t '#f) - _rest82445_)))))) + _rest82707_)))))) (if (##structure-instance-of? - _hd8244782453_ + _hd8270982715_ 'gx#expander-mark::t) - (let* ((_e8245182470_ + (let* ((_e8271382732_ (##unchecked-structure-ref - _hd8244782453_ + _hd8270982715_ '1 gx#expander-mark::t '#f)) - (_subst82473_ _e8245182470_)) - (_K8245082467_ _subst82473_)) - (_E8244982457_)))))) - (if (##pair? _rest8242682434_) - (let ((_hd8243182478_ (##car _rest8242682434_)) - (_tl8243282480_ (##cdr _rest8242682434_))) - (let* ((_hd82483_ _hd8243182478_) - (_rest82485_ _tl8243282480_)) - (_K8243082475_ _rest82485_ _hd82483_))) - (_else8242882442_))))))) + (_subst82735_ _e8271382732_)) + (_K8271282729_ _subst82735_)) + (_E8271182719_)))))) + (if (##pair? _rest8268882696_) + (let ((_hd8269382740_ (##car _rest8268882696_)) + (_tl8269482742_ (##cdr _rest8268882696_))) + (let* ((_hd82745_ _hd8269382740_) + (_rest82747_ _tl8269482742_)) + (_K8269282737_ _rest82747_ _hd82745_))) + (_else8269082704_))))))) (define gx#core-bind!__% - (lambda (_key82289_ _val82290_ _rebind?82291_ _phi82292_ _ctx82293_) - (letrec ((_update-binding82295_ - (lambda (_xval82366_) - (if (or (_rebind?82291_ _ctx82293_ _xval82366_ _val82290_) + (lambda (_key82551_ _val82552_ _rebind?82553_ _phi82554_ _ctx82555_) + (letrec ((_update-binding82557_ + (lambda (_xval82628_) + (if (or (_rebind?82553_ _ctx82555_ _xval82628_ _val82552_) (and (##structure-direct-instance-of? - _xval82366_ + _xval82628_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval82366_ + _xval82628_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val82290_ + _val82552_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val82290_ + _val82552_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval82366_ + _xval82628_ 'gx#extern-binding::t) (##structure-instance-of? - _val82290_ + _val82552_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val82290_ + _val82552_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval82366_ + _xval82628_ '1 gx#binding::t '#f)))) - _val82290_ + _val82552_ (if (and (##structure-direct-instance-of? - _val82290_ + _val82552_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val82290_ + _val82552_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval82366_ + _xval82628_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val82290_ + _val82552_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval82366_ + _xval82628_ '1 gx#binding::t '#f))))) - _xval82366_ + _xval82628_ (if (and (##structure-direct-instance-of? - _val82290_ + _val82552_ 'gx#import-binding::t) (##structure-instance-of? - _xval82366_ + _xval82628_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key82289_ + _key82551_ (cons (##unchecked-structure-ref - _val82290_ + _val82552_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val82290_ + _val82552_ '5 gx#import-binding::t '#f) @@ -2818,199 +2818,199 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval82366_ + _xval82628_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval82366_ + _xval82628_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval82366_ + _xval82628_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval82366_) + _xval82628_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key82289_ - _val82290_ - _xval82366_)))))) - (_gensubst82296_ - (lambda (_subst82361_ _id82362_) - (let ((_eid82364_ - (gensym (if (uninterned-symbol? _id82362_) + _key82551_ + _val82552_ + _xval82628_)))))) + (_gensubst82558_ + (lambda (_subst82623_ _id82624_) + (let ((_eid82626_ + (gensym (if (uninterned-symbol? _id82624_) '% - _id82362_)))) - (hash-put! _subst82361_ _id82362_ _eid82364_) - _eid82364_))) - (_subst!82297_ - (lambda (_key82299_) - (let* ((_key8230082308_ _key82299_) - (_else8230282316_ (lambda () _key82299_)) - (_K8230482349_ - (lambda (_mark82319_ _id82320_) - (let* ((_mark8232182327_ _mark82319_) - (_E8232382331_ + _id82624_)))) + (hash-put! _subst82623_ _id82624_ _eid82626_) + _eid82626_))) + (_subst!82559_ + (lambda (_key82561_) + (let* ((_key8256282570_ _key82561_) + (_else8256482578_ (lambda () _key82561_)) + (_K8256682611_ + (lambda (_mark82581_ _id82582_) + (let* ((_mark8258382589_ _mark82581_) + (_E8258582593_ (lambda () (error '"No clause matching" - _mark8232182327_))) - (_K8232482341_ - (lambda (_subst82334_) - (if (not _subst82334_) - (let ((_subst82336_ + _mark8258382589_))) + (_K8258682603_ + (lambda (_subst82596_) + (if (not _subst82596_) + (let ((_subst82598_ (make-hash-table-eq))) (##unchecked-structure-set! - _mark82319_ - _subst82336_ + _mark82581_ + _subst82598_ '1 gx#expander-mark::t '#f) - (_gensubst82296_ - _subst82336_ - _id82320_)) - (let ((_$e82338_ + (_gensubst82558_ + _subst82598_ + _id82582_)) + (let ((_$e82600_ (hash-get - _subst82334_ - _id82320_))) - (if _$e82338_ - (values _$e82338_) - (_gensubst82296_ - _subst82334_ - _id82320_))))))) + _subst82596_ + _id82582_))) + (if _$e82600_ + (values _$e82600_) + (_gensubst82558_ + _subst82596_ + _id82582_))))))) (if (##structure-instance-of? - _mark8232182327_ + _mark8258382589_ 'gx#expander-mark::t) - (let* ((_e8232582344_ + (let* ((_e8258782606_ (##unchecked-structure-ref - _mark8232182327_ + _mark8258382589_ '1 gx#expander-mark::t '#f)) - (_subst82347_ _e8232582344_)) - (_K8232482341_ _subst82347_)) - (_E8232382331_)))))) - (if (##pair? _key8230082308_) - (let ((_hd8230582352_ (##car _key8230082308_)) - (_tl8230682354_ (##cdr _key8230082308_))) - (let* ((_id82357_ _hd8230582352_) - (_mark82359_ _tl8230682354_)) - (_K8230482349_ _mark82359_ _id82357_))) - (_else8230282316_)))))) + (_subst82609_ _e8258782606_)) + (_K8258682603_ _subst82609_)) + (_E8258582593_)))))) + (if (##pair? _key8256282570_) + (let ((_hd8256782614_ (##car _key8256282570_)) + (_tl8256882616_ (##cdr _key8256282570_))) + (let* ((_id82619_ _hd8256782614_) + (_mark82621_ _tl8256882616_)) + (_K8256682611_ _mark82621_ _id82619_))) + (_else8256482578_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx82293_ _phi82292_) - (_subst!82297_ _key82289_) - _val82290_ - _update-binding82295_)))) + (gx#core-context-shift _ctx82555_ _phi82554_) + (_subst!82559_ _key82551_) + _val82552_ + _update-binding82557_)))) (define gx#core-bind!__0 - (lambda (_key82383_ _val82384_) - (let* ((_rebind?82386_ false) - (_phi82388_ (gx#current-expander-phi)) - (_ctx82390_ (gx#current-expander-context))) + (lambda (_key82645_ _val82646_) + (let* ((_rebind?82648_ false) + (_phi82650_ (gx#current-expander-phi)) + (_ctx82652_ (gx#current-expander-context))) (gx#core-bind!__% - _key82383_ - _val82384_ - _rebind?82386_ - _phi82388_ - _ctx82390_)))) + _key82645_ + _val82646_ + _rebind?82648_ + _phi82650_ + _ctx82652_)))) (define gx#core-bind!__1 - (lambda (_key82392_ _val82393_ _rebind?82394_) - (let* ((_phi82396_ (gx#current-expander-phi)) - (_ctx82398_ (gx#current-expander-context))) + (lambda (_key82654_ _val82655_ _rebind?82656_) + (let* ((_phi82658_ (gx#current-expander-phi)) + (_ctx82660_ (gx#current-expander-context))) (gx#core-bind!__% - _key82392_ - _val82393_ - _rebind?82394_ - _phi82396_ - _ctx82398_)))) + _key82654_ + _val82655_ + _rebind?82656_ + _phi82658_ + _ctx82660_)))) (define gx#core-bind!__2 - (lambda (_key82400_ _val82401_ _rebind?82402_ _phi82403_) - (let ((_ctx82405_ (gx#current-expander-context))) + (lambda (_key82662_ _val82663_ _rebind?82664_ _phi82665_) + (let ((_ctx82667_ (gx#current-expander-context))) (gx#core-bind!__% - _key82400_ - _val82401_ - _rebind?82402_ - _phi82403_ - _ctx82405_)))) + _key82662_ + _val82663_ + _rebind?82664_ + _phi82665_ + _ctx82667_)))) (define gx#core-bind! - (lambda _g84809_ - (let ((_g84808_ (##length _g84809_))) - (cond ((##fx= _g84808_ 2) - (apply (lambda (_key82383_ _val82384_) - (gx#core-bind!__0 _key82383_ _val82384_)) - _g84809_)) - ((##fx= _g84808_ 3) - (apply (lambda (_key82392_ _val82393_ _rebind?82394_) + (lambda _g85071_ + (let ((_g85070_ (##length _g85071_))) + (cond ((##fx= _g85070_ 2) + (apply (lambda (_key82645_ _val82646_) + (gx#core-bind!__0 _key82645_ _val82646_)) + _g85071_)) + ((##fx= _g85070_ 3) + (apply (lambda (_key82654_ _val82655_ _rebind?82656_) (gx#core-bind!__1 - _key82392_ - _val82393_ - _rebind?82394_)) - _g84809_)) - ((##fx= _g84808_ 4) - (apply (lambda (_key82400_ - _val82401_ - _rebind?82402_ - _phi82403_) + _key82654_ + _val82655_ + _rebind?82656_)) + _g85071_)) + ((##fx= _g85070_ 4) + (apply (lambda (_key82662_ + _val82663_ + _rebind?82664_ + _phi82665_) (gx#core-bind!__2 - _key82400_ - _val82401_ - _rebind?82402_ - _phi82403_)) - _g84809_)) - ((##fx= _g84808_ 5) - (apply (lambda (_key82407_ - _val82408_ - _rebind?82409_ - _phi82410_ - _ctx82411_) + _key82662_ + _val82663_ + _rebind?82664_ + _phi82665_)) + _g85071_)) + ((##fx= _g85070_ 5) + (apply (lambda (_key82669_ + _val82670_ + _rebind?82671_ + _phi82672_ + _ctx82673_) (gx#core-bind!__% - _key82407_ - _val82408_ - _rebind?82409_ - _phi82410_ - _ctx82411_)) - _g84809_)) + _key82669_ + _val82670_ + _rebind?82671_ + _phi82672_ + _ctx82673_)) + _g85071_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g84809_)))))) + _g85071_)))))) (define gx#core-identifier-key - (lambda (_stx82223_) - (if (symbol? _stx82223_) - (let* ((_g8222482232_ (gx#current-expander-marks)) - (_else8222682240_ (lambda () _stx82223_)) - (_K8222882245_ - (lambda (_hd82243_) (cons _stx82223_ _hd82243_)))) - (if (##pair? _g8222482232_) - (let* ((_hd8222982248_ (##car _g8222482232_)) - (_hd82251_ _hd8222982248_)) - (_K8222882245_ _hd82251_)) - (_else8222682240_))) - (if (gx#identifier? _stx82223_) - (let* ((_id82253_ (gx#syntax-local-unwrap _stx82223_)) - (_eid82255_ (gx#stx-e _id82253_)) - (_marks82257_ (gx#stx-identifier-marks* _id82253_))) - (let* ((_marks8225982267_ _marks82257_) - (_else8226182275_ (lambda () _eid82255_)) - (_K8226382280_ - (lambda (_hd82278_) (cons _eid82255_ _hd82278_)))) - (if (##pair? _marks8225982267_) - (let* ((_hd8226482283_ (##car _marks8225982267_)) - (_hd82286_ _hd8226482283_)) - (_K8226382280_ _hd82286_)) - (_else8226182275_)))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx82223_))))) + (lambda (_stx82485_) + (if (symbol? _stx82485_) + (let* ((_g8248682494_ (gx#current-expander-marks)) + (_else8248882502_ (lambda () _stx82485_)) + (_K8249082507_ + (lambda (_hd82505_) (cons _stx82485_ _hd82505_)))) + (if (##pair? _g8248682494_) + (let* ((_hd8249182510_ (##car _g8248682494_)) + (_hd82513_ _hd8249182510_)) + (_K8249082507_ _hd82513_)) + (_else8248882502_))) + (if (gx#identifier? _stx82485_) + (let* ((_id82515_ (gx#syntax-local-unwrap _stx82485_)) + (_eid82517_ (gx#stx-e _id82515_)) + (_marks82519_ (gx#stx-identifier-marks* _id82515_))) + (let* ((_marks8252182529_ _marks82519_) + (_else8252382537_ (lambda () _eid82517_)) + (_K8252582542_ + (lambda (_hd82540_) (cons _eid82517_ _hd82540_)))) + (if (##pair? _marks8252182529_) + (let* ((_hd8252682545_ (##car _marks8252182529_)) + (_hd82548_ _hd8252682545_)) + (_K8252582542_ _hd82548_)) + (_else8252382537_)))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx82485_))))) (define gx#core-context-shift - (lambda (_ctx82168_ _phi82169_) - (letrec ((_make-phi82171_ - (lambda (_super82221_) - (let ((__obj84780 + (lambda (_ctx82430_ _phi82431_) + (letrec ((_make-phi82433_ + (lambda (_super82483_) + (let ((__obj85042 (##structure gx#phi-context::t '#f @@ -3019,637 +3019,637 @@ '#f '#f))) (gx#phi-context:::init! - __obj84780 + __obj85042 (gensym 'phi) - _super82221_) - __obj84780))) - (_make-phi/up82172_ - (lambda (_ctx82216_ _super82217_) - (let ((_ctx+182219_ (_make-phi82171_ _super82217_))) + _super82483_) + __obj85042))) + (_make-phi/up82434_ + (lambda (_ctx82478_ _super82479_) + (let ((_ctx+182481_ (_make-phi82433_ _super82479_))) (##unchecked-structure-set! - _ctx82216_ - _ctx+182219_ + _ctx82478_ + _ctx+182481_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+182219_ - _ctx82216_ + _ctx+182481_ + _ctx82478_ '5 gx#phi-context::t '#f) - _ctx+182219_))) - (_make-phi/down82173_ - (lambda (_ctx82211_ _super82212_) - (let ((_ctx-182214_ (_make-phi82171_ _super82212_))) + _ctx+182481_))) + (_make-phi/down82435_ + (lambda (_ctx82473_ _super82474_) + (let ((_ctx-182476_ (_make-phi82433_ _super82474_))) (##unchecked-structure-set! - _ctx-182214_ - _ctx82211_ + _ctx-182476_ + _ctx82473_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx82211_ - _ctx-182214_ + _ctx82473_ + _ctx-182476_ '5 gx#phi-context::t '#f) - _ctx-182214_))) - (_shift82174_ - (lambda (_ctx82195_ - _delta82196_ - _make-delta-context82197_ - _phi82198_ - _K82199_) - (let ((_$e82201_ + _ctx-182476_))) + (_shift82436_ + (lambda (_ctx82457_ + _delta82458_ + _make-delta-context82459_ + _phi82460_ + _K82461_) + (let ((_$e82463_ (##unchecked-structure-ref - _ctx82195_ + _ctx82457_ '3 gx#phi-context::t '#f))) - (if _$e82201_ - ((lambda (_super82204_) - (let* ((_super82206_ - (_K82199_ _super82204_ _delta82196_)) - (_ctx+d82208_ - (_make-delta-context82197_ - _ctx82195_ - _super82206_))) - (_K82199_ - _ctx+d82208_ - (fx- _phi82198_ _delta82196_)))) - _$e82201_) - (error '"Bad context" _ctx82195_)))))) - (let _K82176_ ((_ctx82178_ _ctx82168_) (_phi82179_ _phi82169_)) - (if (fxzero? _phi82179_) - _ctx82178_ - (if (fx> (##vector-length _ctx82178_) '3) - (if (fxpositive? _phi82179_) - (let ((_$e82181_ + (if _$e82463_ + ((lambda (_super82466_) + (let* ((_super82468_ + (_K82461_ _super82466_ _delta82458_)) + (_ctx+d82470_ + (_make-delta-context82459_ + _ctx82457_ + _super82468_))) + (_K82461_ + _ctx+d82470_ + (fx- _phi82460_ _delta82458_)))) + _$e82463_) + (error '"Bad context" _ctx82457_)))))) + (let _K82438_ ((_ctx82440_ _ctx82430_) (_phi82441_ _phi82431_)) + (if (fxzero? _phi82441_) + _ctx82440_ + (if (fx> (##vector-length _ctx82440_) '3) + (if (fxpositive? _phi82441_) + (let ((_$e82443_ (##unchecked-structure-ref - _ctx82178_ + _ctx82440_ '4 gx#phi-context::t '#f))) - (if _$e82181_ - ((lambda (_g8218382185_) - (_K82176_ _g8218382185_ (fx- _phi82179_ '1))) - _$e82181_) - (_shift82174_ - _ctx82178_ + (if _$e82443_ + ((lambda (_g8244582447_) + (_K82438_ _g8244582447_ (fx- _phi82441_ '1))) + _$e82443_) + (_shift82436_ + _ctx82440_ '1 - _make-phi/up82172_ - _phi82179_ - _K82176_))) - (let ((_$e82188_ + _make-phi/up82434_ + _phi82441_ + _K82438_))) + (let ((_$e82450_ (##unchecked-structure-ref - _ctx82178_ + _ctx82440_ '5 gx#phi-context::t '#f))) - (if _$e82188_ - ((lambda (_g8219082192_) - (_K82176_ _g8219082192_ (fx+ _phi82179_ '1))) - _$e82188_) - (_shift82174_ - _ctx82178_ + (if _$e82450_ + ((lambda (_g8245282454_) + (_K82438_ _g8245282454_ (fx+ _phi82441_ '1))) + _$e82450_) + (_shift82436_ + _ctx82440_ '-1 - _make-phi/down82173_ - _phi82179_ - _K82176_)))) - _ctx82178_)))))) + _make-phi/down82435_ + _phi82441_ + _K82438_)))) + _ctx82440_)))))) (define gx#core-context-get - (lambda (_ctx82165_ _key82166_) + (lambda (_ctx82427_ _key82428_) (hash-get - (##unchecked-structure-ref _ctx82165_ '2 gx#expander-context::t '#f) - _key82166_))) + (##unchecked-structure-ref _ctx82427_ '2 gx#expander-context::t '#f) + _key82428_))) (define gx#core-context-put! - (lambda (_ctx82161_ _key82162_ _val82163_) + (lambda (_ctx82423_ _key82424_ _val82425_) (hash-put! - (##unchecked-structure-ref _ctx82161_ '2 gx#expander-context::t '#f) - _key82162_ - _val82163_))) + (##unchecked-structure-ref _ctx82423_ '2 gx#expander-context::t '#f) + _key82424_ + _val82425_))) (define gx#core-context-resolve - (lambda (_ctx82148_ _key82149_) - (let _lp82151_ ((_ctx82153_ _ctx82148_)) - (let ((_$e82155_ (gx#core-context-get _ctx82153_ _key82149_))) - (if _$e82155_ - (values _$e82155_) - (let ((_$e82158_ - (if (fx> (##vector-length _ctx82153_) '3) + (lambda (_ctx82410_ _key82411_) + (let _lp82413_ ((_ctx82415_ _ctx82410_)) + (let ((_$e82417_ (gx#core-context-get _ctx82415_ _key82411_))) + (if _$e82417_ + (values _$e82417_) + (let ((_$e82420_ + (if (fx> (##vector-length _ctx82415_) '3) (##unchecked-structure-ref - _ctx82153_ + _ctx82415_ '3 gx#phi-context::t '#f) '#f))) - (if _$e82158_ (_lp82151_ _$e82158_) '#f))))))) + (if _$e82420_ (_lp82413_ _$e82420_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx82138_ _key82139_ _val82140_ _rebind82141_) - (let ((_$e82143_ (gx#core-context-get _ctx82138_ _key82139_))) - (if _$e82143_ - ((lambda (_xval82146_) + (lambda (_ctx82400_ _key82401_ _val82402_ _rebind82403_) + (let ((_$e82405_ (gx#core-context-get _ctx82400_ _key82401_))) + (if _$e82405_ + ((lambda (_xval82408_) (gx#core-context-put! - _ctx82138_ - _key82139_ - (_rebind82141_ _xval82146_))) - _$e82143_) - (gx#core-context-put! _ctx82138_ _key82139_ _val82140_))))) + _ctx82400_ + _key82401_ + (_rebind82403_ _xval82408_))) + _$e82405_) + (gx#core-context-put! _ctx82400_ _key82401_ _val82402_))))) (define gx#core-context-top__% - (lambda (_ctx82116_ _stop?82117_) - (let _lp82119_ ((_ctx82121_ _ctx82116_)) - (if (_stop?82117_ _ctx82121_) - _ctx82121_ - (if (##structure-instance-of? _ctx82121_ 'gx#context-phi::t) - (_lp82119_ + (lambda (_ctx82378_ _stop?82379_) + (let _lp82381_ ((_ctx82383_ _ctx82378_)) + (if (_stop?82379_ _ctx82383_) + _ctx82383_ + (if (##structure-instance-of? _ctx82383_ 'gx#context-phi::t) + (_lp82381_ (##unchecked-structure-ref - _ctx82121_ + _ctx82383_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx82127_ (gx#current-expander-context)) - (_stop?82129_ gx#top-context?)) - (gx#core-context-top__% _ctx82127_ _stop?82129_)))) + (let* ((_ctx82389_ (gx#current-expander-context)) + (_stop?82391_ gx#top-context?)) + (gx#core-context-top__% _ctx82389_ _stop?82391_)))) (define gx#core-context-top__1 - (lambda (_ctx82131_) - (let ((_stop?82133_ gx#top-context?)) - (gx#core-context-top__% _ctx82131_ _stop?82133_)))) + (lambda (_ctx82393_) + (let ((_stop?82395_ gx#top-context?)) + (gx#core-context-top__% _ctx82393_ _stop?82395_)))) (define gx#core-context-top - (lambda _g84811_ - (let ((_g84810_ (##length _g84811_))) - (cond ((##fx= _g84810_ 0) - (apply (lambda () (gx#core-context-top__0)) _g84811_)) - ((##fx= _g84810_ 1) - (apply (lambda (_ctx82131_) - (gx#core-context-top__1 _ctx82131_)) - _g84811_)) - ((##fx= _g84810_ 2) - (apply (lambda (_ctx82135_ _stop?82136_) - (gx#core-context-top__% _ctx82135_ _stop?82136_)) - _g84811_)) + (lambda _g85073_ + (let ((_g85072_ (##length _g85073_))) + (cond ((##fx= _g85072_ 0) + (apply (lambda () (gx#core-context-top__0)) _g85073_)) + ((##fx= _g85072_ 1) + (apply (lambda (_ctx82393_) + (gx#core-context-top__1 _ctx82393_)) + _g85073_)) + ((##fx= _g85072_ 2) + (apply (lambda (_ctx82397_ _stop?82398_) + (gx#core-context-top__% _ctx82397_ _stop?82398_)) + _g85073_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g84811_)))))) + _g85073_)))))) (define gx#core-context-root__% - (lambda (_ctx82101_) - (let _lp82103_ ((_ctx82105_ _ctx82101_)) - (if (##structure-instance-of? _ctx82105_ 'gx#context-phi::t) - (_lp82103_ - (##unchecked-structure-ref _ctx82105_ '3 gx#phi-context::t '#f)) - _ctx82105_)))) + (lambda (_ctx82363_) + (let _lp82365_ ((_ctx82367_ _ctx82363_)) + (if (##structure-instance-of? _ctx82367_ 'gx#context-phi::t) + (_lp82365_ + (##unchecked-structure-ref _ctx82367_ '3 gx#phi-context::t '#f)) + _ctx82367_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx82111_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx82111_)))) + (let ((_ctx82373_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx82373_)))) (define gx#core-context-root - (lambda _g84813_ - (let ((_g84812_ (##length _g84813_))) - (cond ((##fx= _g84812_ 0) - (apply (lambda () (gx#core-context-root__0)) _g84813_)) - ((##fx= _g84812_ 1) - (apply (lambda (_ctx82113_) - (gx#core-context-root__% _ctx82113_)) - _g84813_)) + (lambda _g85075_ + (let ((_g85074_ (##length _g85075_))) + (cond ((##fx= _g85074_ 0) + (apply (lambda () (gx#core-context-root__0)) _g85075_)) + ((##fx= _g85074_ 1) + (apply (lambda (_ctx82375_) + (gx#core-context-root__% _ctx82375_)) + _g85075_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g84813_)))))) + _g85075_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx82082_ . __8207982083_) - (let ((_$e82086_ (gx#current-expander-allow-rebind?))) - (if _$e82086_ - _$e82086_ - (if (##structure-instance-of? _ctx82082_ 'gx#top-context::t) + (lambda (_ctx82344_ . __8234182345_) + (let ((_$e82348_ (gx#current-expander-allow-rebind?))) + (if _$e82348_ + _$e82348_ + (if (##structure-instance-of? _ctx82344_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx82082_ + _ctx82344_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx82082_ + _ctx82344_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx82093_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx82093_)))) + (let ((_ctx82355_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx82355_)))) (define gx#core-context-rebind? - (lambda _g84815_ - (let ((_g84814_ (##length _g84815_))) - (cond ((##fx= _g84814_ 0) - (apply (lambda () (gx#core-context-rebind?__0)) _g84815_)) - ((##fx= _g84814_ 1) - (apply (lambda (_ctx82095_) - (gx#core-context-rebind?__% _ctx82095_)) - _g84815_)) - ((##fx>= _g84814_ 1) - (apply gx#core-context-rebind?__% _g84815_)) + (lambda _g85077_ + (let ((_g85076_ (##length _g85077_))) + (cond ((##fx= _g85076_ 0) + (apply (lambda () (gx#core-context-rebind?__0)) _g85077_)) + ((##fx= _g85076_ 1) + (apply (lambda (_ctx82357_) + (gx#core-context-rebind?__% _ctx82357_)) + _g85077_)) + ((##fx>= _g85076_ 1) + (apply gx#core-context-rebind?__% _g85077_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g84815_)))))) + _g85077_)))))) (define gx#core-context-namespace__% - (lambda (_ctx82065_) - (let ((_$e82067_ (gx#core-context-top__1 _ctx82065_))) - (if _$e82067_ - ((lambda (_ctx82070_) + (lambda (_ctx82327_) + (let ((_$e82329_ (gx#core-context-top__1 _ctx82327_))) + (if _$e82329_ + ((lambda (_ctx82332_) (if (##structure-instance-of? - _ctx82070_ + _ctx82332_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx82070_ + _ctx82332_ '6 gx#module-context::t '#f) '#f)) - _$e82067_) + _$e82329_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx82076_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx82076_)))) + (let ((_ctx82338_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx82338_)))) (define gx#core-context-namespace - (lambda _g84817_ - (let ((_g84816_ (##length _g84817_))) - (cond ((##fx= _g84816_ 0) - (apply (lambda () (gx#core-context-namespace__0)) _g84817_)) - ((##fx= _g84816_ 1) - (apply (lambda (_ctx82078_) - (gx#core-context-namespace__% _ctx82078_)) - _g84817_)) + (lambda _g85079_ + (let ((_g85078_ (##length _g85079_))) + (cond ((##fx= _g85078_ 0) + (apply (lambda () (gx#core-context-namespace__0)) _g85079_)) + ((##fx= _g85078_ 1) + (apply (lambda (_ctx82340_) + (gx#core-context-namespace__% _ctx82340_)) + _g85079_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g84817_)))))) + _g85079_)))))) (define gx#expander-binding?__% - (lambda (_bind82051_ _is?82052_) - (if (##structure-direct-instance-of? _bind82051_ 'gx#syntax-binding::t) - (_is?82052_ + (lambda (_bind82313_ _is?82314_) + (if (##structure-direct-instance-of? _bind82313_ 'gx#syntax-binding::t) + (_is?82314_ (##unchecked-structure-ref - _bind82051_ + _bind82313_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind82057_) - (let ((_is?82059_ gx#expander?)) - (gx#expander-binding?__% _bind82057_ _is?82059_)))) + (lambda (_bind82319_) + (let ((_is?82321_ gx#expander?)) + (gx#expander-binding?__% _bind82319_ _is?82321_)))) (define gx#expander-binding? - (lambda _g84819_ - (let ((_g84818_ (##length _g84819_))) - (cond ((##fx= _g84818_ 1) - (apply (lambda (_bind82057_) - (gx#expander-binding?__0 _bind82057_)) - _g84819_)) - ((##fx= _g84818_ 2) - (apply (lambda (_bind82061_ _is?82062_) - (gx#expander-binding?__% _bind82061_ _is?82062_)) - _g84819_)) + (lambda _g85081_ + (let ((_g85080_ (##length _g85081_))) + (cond ((##fx= _g85080_ 1) + (apply (lambda (_bind82319_) + (gx#expander-binding?__0 _bind82319_)) + _g85081_)) + ((##fx= _g85080_ 2) + (apply (lambda (_bind82323_ _is?82324_) + (gx#expander-binding?__% _bind82323_ _is?82324_)) + _g85081_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g84819_)))))) + _g85081_)))))) (define gx#core-expander-binding? - (lambda (_bind82048_) - (gx#expander-binding?__% _bind82048_ gx#core-expander?))) + (lambda (_bind82310_) + (gx#expander-binding?__% _bind82310_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind82046_) - (gx#expander-binding?__% _bind82046_ gx#expression-form?))) + (lambda (_bind82308_) + (gx#expander-binding?__% _bind82308_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind82040_) - (letrec ((_direct-special-form?82042_ - (lambda (_obj82044_) + (lambda (_bind82302_) + (letrec ((_direct-special-form?82304_ + (lambda (_obj82306_) (##structure-direct-instance-of? - _obj82044_ + _obj82306_ (##type-id gx#special-form::t))))) - (gx#expander-binding?__% _bind82040_ _direct-special-form?82042_)))) + (gx#expander-binding?__% _bind82302_ _direct-special-form?82304_)))) (define gx#special-form-binding? - (lambda (_bind82038_) - (gx#expander-binding?__% _bind82038_ gx#special-form?))) + (lambda (_bind82300_) + (gx#expander-binding?__% _bind82300_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind82029_) - (letrec ((_feature?82031_ - (lambda (_e82033_) - (let ((_$e82035_ + (lambda (_bind82291_) + (letrec ((_feature?82293_ + (lambda (_e82295_) + (let ((_$e82297_ (##structure-instance-of? - _e82033_ + _e82295_ 'gx#feature-expander::t))) - (if _$e82035_ - _$e82035_ + (if _$e82297_ + _$e82297_ (##structure-instance-of? - _e82033_ + _e82295_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind82029_ _feature?82031_)))) + (gx#expander-binding?__% _bind82291_ _feature?82293_)))) (define gx#private-feature-binding? - (lambda (_bind82027_) - (gx#expander-binding?__% _bind82027_ gx#private-feature-expander?))) + (lambda (_bind82289_) + (gx#expander-binding?__% _bind82289_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id82014_ _bound?82015_) - (if (gx#identifier? _id82014_) - (_bound?82015_ (gx#resolve-identifier__0 _id82014_)) + (lambda (_id82276_ _bound?82277_) + (if (gx#identifier? _id82276_) + (_bound?82277_ (gx#resolve-identifier__0 _id82276_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id82020_) - (let ((_bound?82022_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id82020_ _bound?82022_)))) + (lambda (_id82282_) + (let ((_bound?82284_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id82282_ _bound?82284_)))) (define gx#core-bound-identifier? - (lambda _g84821_ - (let ((_g84820_ (##length _g84821_))) - (cond ((##fx= _g84820_ 1) - (apply (lambda (_id82020_) - (gx#core-bound-identifier?__0 _id82020_)) - _g84821_)) - ((##fx= _g84820_ 2) - (apply (lambda (_id82024_ _bound?82025_) + (lambda _g85083_ + (let ((_g85082_ (##length _g85083_))) + (cond ((##fx= _g85082_ 1) + (apply (lambda (_id82282_) + (gx#core-bound-identifier?__0 _id82282_)) + _g85083_)) + ((##fx= _g85082_ 2) + (apply (lambda (_id82286_ _bound?82287_) (gx#core-bound-identifier?__% - _id82024_ - _bound?82025_)) - _g84821_)) + _id82286_ + _bound?82287_)) + _g85083_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g84821_)))))) + _g85083_)))))) (define gx#core-identifier=? - (lambda (_x82004_ _y82005_) - (letrec ((_y=?82007_ - (lambda (_xid82011_) - ((if (list? _y82005_) memq eq?) _xid82011_ _y82005_)))) - (let ((_bind82009_ (gx#resolve-identifier__0 _x82004_))) - (if (##structure-instance-of? _bind82009_ 'gx#binding::t) - (_y=?82007_ - (##unchecked-structure-ref _bind82009_ '1 gx#binding::t '#f)) - (_y=?82007_ (gx#stx-e _x82004_))))))) + (lambda (_x82266_ _y82267_) + (letrec ((_y=?82269_ + (lambda (_xid82273_) + ((if (list? _y82267_) memq eq?) _xid82273_ _y82267_)))) + (let ((_bind82271_ (gx#resolve-identifier__0 _x82266_))) + (if (##structure-instance-of? _bind82271_ 'gx#binding::t) + (_y=?82269_ + (##unchecked-structure-ref _bind82271_ '1 gx#binding::t '#f)) + (_y=?82269_ (gx#stx-e _x82266_))))))) (define gx#core-extern-symbol? - (lambda (_e82002_) - (if (interned-symbol? _e82002_) - (string-index__0 (symbol->string _e82002_) '#\#) + (lambda (_e82264_) + (if (interned-symbol? _e82264_) + (string-index__0 (symbol->string _e82264_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_stx81957_ _src81958_ _ctx81959_ _marks81960_) - (if (##structure? _stx81957_) - (let ((_$e81962_ (gx#sealed-syntax-unwrap _stx81957_))) - (if _$e81962_ - (values _$e81962_) - (if (gx#identifier? _stx81957_) - (let ((_id81965_ - (gx#stx-unwrap__% _stx81957_ _marks81960_))) + (lambda (_stx82219_ _src82220_ _ctx82221_ _marks82222_) + (if (##structure? _stx82219_) + (let ((_$e82224_ (gx#sealed-syntax-unwrap _stx82219_))) + (if _$e82224_ + (values _$e82224_) + (if (gx#identifier? _stx82219_) + (let ((_id82227_ + (gx#stx-unwrap__% _stx82219_ _marks82222_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _id81965_ '1 gx#AST::t '#f) - (let ((_$e81967_ + (##unchecked-structure-ref _id82227_ '1 gx#AST::t '#f) + (let ((_$e82229_ (##unchecked-structure-ref - _id81965_ + _id82227_ '2 gx#AST::t '#f))) - (if _$e81967_ _$e81967_ _src81958_)) - _ctx81959_ + (if _$e82229_ _$e82229_ _src82220_)) + _ctx82221_ (##unchecked-structure-ref - _id81965_ + _id82227_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx81957_) - (let ((_$e81970_ (gx#stx-source _stx81957_))) - (if _$e81970_ _$e81970_ _src81958_)) - _ctx81959_ - (reverse _marks81960_))))) + (gx#stx-e _stx82219_) + (let ((_$e82232_ (gx#stx-source _stx82219_))) + (if _$e82232_ _$e82232_ _src82220_)) + _ctx82221_ + (reverse _marks82222_))))) (##structure gx#syntax-quote::t - _stx81957_ - _src81958_ - _ctx81959_ - (reverse _marks81960_))))) + _stx82219_ + _src82220_ + _ctx82221_ + (reverse _marks82222_))))) (define gx#core-quote-syntax__0 - (lambda (_stx81976_) - (let* ((_src81978_ '#f) - (_ctx81980_ (gx#current-expander-context)) - (_marks81982_ (gx#current-expander-marks))) + (lambda (_stx82238_) + (let* ((_src82240_ '#f) + (_ctx82242_ (gx#current-expander-context)) + (_marks82244_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx81976_ - _src81978_ - _ctx81980_ - _marks81982_)))) + _stx82238_ + _src82240_ + _ctx82242_ + _marks82244_)))) (define gx#core-quote-syntax__1 - (lambda (_stx81984_ _src81985_) - (let* ((_ctx81987_ (gx#current-expander-context)) - (_marks81989_ (gx#current-expander-marks))) + (lambda (_stx82246_ _src82247_) + (let* ((_ctx82249_ (gx#current-expander-context)) + (_marks82251_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx81984_ - _src81985_ - _ctx81987_ - _marks81989_)))) + _stx82246_ + _src82247_ + _ctx82249_ + _marks82251_)))) (define gx#core-quote-syntax__2 - (lambda (_stx81991_ _src81992_ _ctx81993_) - (let ((_marks81995_ (gx#current-expander-marks))) + (lambda (_stx82253_ _src82254_ _ctx82255_) + (let ((_marks82257_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx81991_ - _src81992_ - _ctx81993_ - _marks81995_)))) + _stx82253_ + _src82254_ + _ctx82255_ + _marks82257_)))) (define gx#core-quote-syntax - (lambda _g84823_ - (let ((_g84822_ (##length _g84823_))) - (cond ((##fx= _g84822_ 1) - (apply (lambda (_stx81976_) - (gx#core-quote-syntax__0 _stx81976_)) - _g84823_)) - ((##fx= _g84822_ 2) - (apply (lambda (_stx81984_ _src81985_) - (gx#core-quote-syntax__1 _stx81984_ _src81985_)) - _g84823_)) - ((##fx= _g84822_ 3) - (apply (lambda (_stx81991_ _src81992_ _ctx81993_) + (lambda _g85085_ + (let ((_g85084_ (##length _g85085_))) + (cond ((##fx= _g85084_ 1) + (apply (lambda (_stx82238_) + (gx#core-quote-syntax__0 _stx82238_)) + _g85085_)) + ((##fx= _g85084_ 2) + (apply (lambda (_stx82246_ _src82247_) + (gx#core-quote-syntax__1 _stx82246_ _src82247_)) + _g85085_)) + ((##fx= _g85084_ 3) + (apply (lambda (_stx82253_ _src82254_ _ctx82255_) (gx#core-quote-syntax__2 - _stx81991_ - _src81992_ - _ctx81993_)) - _g84823_)) - ((##fx= _g84822_ 4) - (apply (lambda (_stx81997_ _src81998_ _ctx81999_ _marks82000_) + _stx82253_ + _src82254_ + _ctx82255_)) + _g85085_)) + ((##fx= _g85084_ 4) + (apply (lambda (_stx82259_ _src82260_ _ctx82261_ _marks82262_) (gx#core-quote-syntax__% - _stx81997_ - _src81998_ - _ctx81999_ - _marks82000_)) - _g84823_)) + _stx82259_ + _src82260_ + _ctx82261_ + _marks82262_)) + _g85085_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g84823_)))))) + _g85085_)))))) (define gx#core-cons - (lambda (_hd81953_ _tl81954_) - (cons (gx#core-quote-syntax__0 _hd81953_) _tl81954_))) + (lambda (_hd82215_ _tl82216_) + (cons (gx#core-quote-syntax__0 _hd82215_) _tl82216_))) (define gx#core-list - (lambda (_hd81950_ . _rest81951_) - (cons (gx#core-quote-syntax__0 _hd81950_) _rest81951_))) + (lambda (_hd82212_ . _rest82213_) + (cons (gx#core-quote-syntax__0 _hd82212_) _rest82213_))) (define gx#core-cons* - (lambda (_hd81947_ . _rest81948_) - (apply cons* (gx#core-quote-syntax__0 _hd81947_) _rest81948_))) + (lambda (_hd82209_ . _rest82210_) + (apply cons* (gx#core-quote-syntax__0 _hd82209_) _rest82210_))) (define gx#core-resolve-path__% - (lambda (_stx-path81921_ _rel81922_) - (let ((_path81934_ (gx#stx-e _stx-path81921_)) - (_reldir81935_ - (let _lp81924_ ((_relsrc81926_ - (let ((_$e81931_ - (gx#stx-source _stx-path81921_))) - (if _$e81931_ _$e81931_ _rel81922_)))) - (if (##structure-instance-of? _relsrc81926_ 'gerbil#AST::t) - (_lp81924_ - (let ((_$e81928_ (gx#stx-source _relsrc81926_))) - (if _$e81928_ _$e81928_ (gx#stx-e _relsrc81926_)))) - (if (source-location-path? _relsrc81926_) - (path-directory (source-location-path _relsrc81926_)) - (if (string? _relsrc81926_) - (path-directory _relsrc81926_) + (lambda (_stx-path82183_ _rel82184_) + (let ((_path82196_ (gx#stx-e _stx-path82183_)) + (_reldir82197_ + (let _lp82186_ ((_relsrc82188_ + (let ((_$e82193_ + (gx#stx-source _stx-path82183_))) + (if _$e82193_ _$e82193_ _rel82184_)))) + (if (##structure-instance-of? _relsrc82188_ 'gerbil#AST::t) + (_lp82186_ + (let ((_$e82190_ (gx#stx-source _relsrc82188_))) + (if _$e82190_ _$e82190_ (gx#stx-e _relsrc82188_)))) + (if (source-location-path? _relsrc82188_) + (path-directory (source-location-path _relsrc82188_)) + (if (string? _relsrc82188_) + (path-directory _relsrc82188_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path81934_ (path-normalize _reldir81935_))))) + (path-expand _path82196_ (path-normalize _reldir82197_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path81940_) - (let ((_rel81942_ '#f)) - (gx#core-resolve-path__% _stx-path81940_ _rel81942_)))) + (lambda (_stx-path82202_) + (let ((_rel82204_ '#f)) + (gx#core-resolve-path__% _stx-path82202_ _rel82204_)))) (define gx#core-resolve-path - (lambda _g84825_ - (let ((_g84824_ (##length _g84825_))) - (cond ((##fx= _g84824_ 1) - (apply (lambda (_stx-path81940_) - (gx#core-resolve-path__0 _stx-path81940_)) - _g84825_)) - ((##fx= _g84824_ 2) - (apply (lambda (_stx-path81944_ _rel81945_) - (gx#core-resolve-path__% _stx-path81944_ _rel81945_)) - _g84825_)) + (lambda _g85087_ + (let ((_g85086_ (##length _g85087_))) + (cond ((##fx= _g85086_ 1) + (apply (lambda (_stx-path82202_) + (gx#core-resolve-path__0 _stx-path82202_)) + _g85087_)) + ((##fx= _g85086_ 2) + (apply (lambda (_stx-path82206_ _rel82207_) + (gx#core-resolve-path__% _stx-path82206_ _rel82207_)) + _g85087_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g84825_)))))) + _g85087_)))))) (define gx#core-deserialize-mark__% - (lambda (_repr81877_ _ctx81878_) - (let* ((_repr8187981886_ _repr81877_) - (_E8188181890_ - (lambda () (error '"No clause matching" _repr8187981886_))) - (_K8188281898_ - (lambda (_subs81893_ _phi81894_) - (let ((_subst81896_ - (if (not (null? _subs81893_)) - (list->hash-table-eq _subs81893_) + (lambda (_repr82139_ _ctx82140_) + (let* ((_repr8214182148_ _repr82139_) + (_E8214382152_ + (lambda () (error '"No clause matching" _repr8214182148_))) + (_K8214482160_ + (lambda (_subs82155_ _phi82156_) + (let ((_subst82158_ + (if (not (null? _subs82155_)) + (list->hash-table-eq _subs82155_) '#f))) (##structure gx#expander-mark::t - _subst81896_ - _ctx81878_ - _phi81894_ + _subst82158_ + _ctx82140_ + _phi82156_ '#f))))) - (if (##pair? _repr8187981886_) - (let ((_hd8188381901_ (##car _repr8187981886_)) - (_tl8188481903_ (##cdr _repr8187981886_))) - (let* ((_phi81906_ _hd8188381901_) - (_subs81908_ _tl8188481903_)) - (_K8188281898_ _subs81908_ _phi81906_))) - (_E8188181890_))))) + (if (##pair? _repr8214182148_) + (let ((_hd8214582163_ (##car _repr8214182148_)) + (_tl8214682165_ (##cdr _repr8214182148_))) + (let* ((_phi82168_ _hd8214582163_) + (_subs82170_ _tl8214682165_)) + (_K8214482160_ _subs82170_ _phi82168_))) + (_E8214382152_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr81913_) - (let ((_ctx81915_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr81913_ _ctx81915_)))) + (lambda (_repr82175_) + (let ((_ctx82177_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr82175_ _ctx82177_)))) (define gx#core-deserialize-mark - (lambda _g84827_ - (let ((_g84826_ (##length _g84827_))) - (cond ((##fx= _g84826_ 1) - (apply (lambda (_repr81913_) - (gx#core-deserialize-mark__0 _repr81913_)) - _g84827_)) - ((##fx= _g84826_ 2) - (apply (lambda (_repr81917_ _ctx81918_) - (gx#core-deserialize-mark__% _repr81917_ _ctx81918_)) - _g84827_)) + (lambda _g85089_ + (let ((_g85088_ (##length _g85089_))) + (cond ((##fx= _g85088_ 1) + (apply (lambda (_repr82175_) + (gx#core-deserialize-mark__0 _repr82175_)) + _g85089_)) + ((##fx= _g85088_ 2) + (apply (lambda (_repr82179_ _ctx82180_) + (gx#core-deserialize-mark__% _repr82179_ _ctx82180_)) + _g85089_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g84827_)))))) + _g85089_)))))) (define gx#syntax-local-rewrap - (lambda (_stx81874_) - (gx#stx-rewrap _stx81874_ (gx#current-expander-marks)))) + (lambda (_stx82136_) + (gx#stx-rewrap _stx82136_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx81872_) - (gx#stx-unwrap__% _stx81872_ (gx#current-expander-marks)))) + (lambda (_stx82134_) + (gx#stx-unwrap__% _stx82134_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx81842_) - (let* ((_g8184381851_ (gx#current-expander-marks)) - (_else8184581859_ (lambda () _stx81842_)) - (_K8184781864_ - (lambda (_hd81862_) (gx#stx-apply-mark _stx81842_ _hd81862_)))) - (if (##pair? _g8184381851_) - (let* ((_hd8184881867_ (##car _g8184381851_)) - (_hd81870_ _hd8184881867_)) - (_K8184781864_ _hd81870_)) - (_else8184581859_))))) + (lambda (_stx82104_) + (let* ((_g8210582113_ (gx#current-expander-marks)) + (_else8210782121_ (lambda () _stx82104_)) + (_K8210982126_ + (lambda (_hd82124_) (gx#stx-apply-mark _stx82104_ _hd82124_)))) + (if (##pair? _g8210582113_) + (let* ((_hd8211082129_ (##car _g8210582113_)) + (_hd82132_ _hd8211082129_)) + (_K8210982126_ _hd82132_)) + (_else8210782121_))))) (define gx#syntax-local-e__% - (lambda (_stx81827_ _E81828_) - (let ((_bind81830_ (gx#resolve-identifier__0 _stx81827_))) + (lambda (_stx82089_ _E82090_) + (let ((_bind82092_ (gx#resolve-identifier__0 _stx82089_))) (if (##structure-direct-instance-of? - _bind81830_ + _bind82092_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind81830_ + _bind82092_ '4 gx#syntax-binding::t '#f) - (_E81828_ _stx81827_))))) + (_E82090_ _stx82089_))))) (define gx#syntax-local-e__0 - (lambda (_stx81835_) - (let ((_E81837_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx81835_ _E81837_)))) + (lambda (_stx82097_) + (let ((_E82099_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx82097_ _E82099_)))) (define gx#syntax-local-e - (lambda _g84829_ - (let ((_g84828_ (##length _g84829_))) - (cond ((##fx= _g84828_ 1) - (apply (lambda (_stx81835_) (gx#syntax-local-e__0 _stx81835_)) - _g84829_)) - ((##fx= _g84828_ 2) - (apply (lambda (_stx81839_ _E81840_) - (gx#syntax-local-e__% _stx81839_ _E81840_)) - _g84829_)) + (lambda _g85091_ + (let ((_g85090_ (##length _g85091_))) + (cond ((##fx= _g85090_ 1) + (apply (lambda (_stx82097_) (gx#syntax-local-e__0 _stx82097_)) + _g85091_)) + ((##fx= _g85090_ 2) + (apply (lambda (_stx82101_ _E82102_) + (gx#syntax-local-e__% _stx82101_ _E82102_)) + _g85091_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g84829_)))))) + _g85091_)))))) (define gx#syntax-local-value__% - (lambda (_stx81811_ _E81812_) - (let ((_e81814_ (gx#syntax-local-e__% _stx81811_ _E81812_))) - (if (##structure-instance-of? _e81814_ 'gx#expander::t) - (##structure-ref _e81814_ '1 gx#expander::t '#f) - _e81814_)))) + (lambda (_stx82073_ _E82074_) + (let ((_e82076_ (gx#syntax-local-e__% _stx82073_ _E82074_))) + (if (##structure-instance-of? _e82076_ 'gx#expander::t) + (##structure-ref _e82076_ '1 gx#expander::t '#f) + _e82076_)))) (define gx#syntax-local-value__0 - (lambda (_stx81819_) - (let ((_E81821_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx81819_ _E81821_)))) + (lambda (_stx82081_) + (let ((_E82083_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx82081_ _E82083_)))) (define gx#syntax-local-value - (lambda _g84831_ - (let ((_g84830_ (##length _g84831_))) - (cond ((##fx= _g84830_ 1) - (apply (lambda (_stx81819_) - (gx#syntax-local-value__0 _stx81819_)) - _g84831_)) - ((##fx= _g84830_ 2) - (apply (lambda (_stx81823_ _E81824_) - (gx#syntax-local-value__% _stx81823_ _E81824_)) - _g84831_)) + (lambda _g85093_ + (let ((_g85092_ (##length _g85093_))) + (cond ((##fx= _g85092_ 1) + (apply (lambda (_stx82081_) + (gx#syntax-local-value__0 _stx82081_)) + _g85093_)) + ((##fx= _g85092_ 2) + (apply (lambda (_stx82085_ _E82086_) + (gx#syntax-local-value__% _stx82085_ _E82086_)) + _g85093_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g84831_)))))) + _g85093_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx81808_) + (lambda (_stx82070_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx81808_))))) + _stx82070_))))) diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index 05fe3e10..c52bb4fa 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]#_g84833_| + (define |gx[1]#_g85095_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g84835_| + (define |gx[1]#_g85097_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g84837_| + (define |gx[1]#_g85099_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g84842_| + (define |gx[1]#_g85104_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84845_| + (define |gx[1]#_g85107_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84850_| + (define |gx[1]#_g85112_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84853_| + (define |gx[1]#_g85115_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84858_| + (define |gx[1]#_g85120_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84861_| + (define |gx[1]#_g85123_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84866_| + (define |gx[1]#_g85128_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84869_| + (define |gx[1]#_g85131_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84872_| + (define |gx[1]#_g85134_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g84874_| + (define |gx[1]#_g85136_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g84876_| + (define |gx[1]#_g85138_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g84878_| + (define |gx[1]#_g85140_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g84883_| + (define |gx[1]#_g85145_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84886_| + (define |gx[1]#_g85148_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84891_| + (define |gx[1]#_g85153_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84894_| + (define |gx[1]#_g85156_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84899_| + (define |gx[1]#_g85161_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84902_| + (define |gx[1]#_g85164_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84907_| + (define |gx[1]#_g85169_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84910_| + (define |gx[1]#_g85172_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84914_| + (define |gx[1]#_g85176_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g84916_| + (define |gx[1]#_g85178_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g84918_| + (define |gx[1]#_g85180_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g84926_| + (define |gx[1]#_g85188_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84929_| + (define |gx[1]#_g85191_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84932_| + (define |gx[1]#_g85194_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g84935_| + (define |gx[1]#_g85197_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g84938_| + (define |gx[1]#_g85200_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g84946_| + (define |gx[1]#_g85208_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84949_| + (define |gx[1]#_g85211_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84952_| + (define |gx[1]#_g85214_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84955_| + (define |gx[1]#_g85217_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84958_| + (define |gx[1]#_g85220_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84966_| + (define |gx[1]#_g85228_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g84969_| + (define |gx[1]#_g85231_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g84972_| + (define |gx[1]#_g85234_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g84975_| + (define |gx[1]#_g85237_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g84978_| + (define |gx[1]#_g85240_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g84986_| + (define |gx[1]#_g85248_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84989_| + (define |gx[1]#_g85251_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84992_| + (define |gx[1]#_g85254_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84995_| + (define |gx[1]#_g85257_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g84998_| + (define |gx[1]#_g85260_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85001_| + (define |gx[1]#_g85263_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85003_| + (define |gx[1]#_g85265_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85005_| + (define |gx[1]#_g85267_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85007_| + (define |gx[1]#_g85269_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85015_| + (define |gx[1]#_g85277_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85018_| + (define |gx[1]#_g85280_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85021_| + (define |gx[1]#_g85283_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85024_| + (define |gx[1]#_g85286_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85027_| + (define |gx[1]#_g85289_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85035_| + (define |gx[1]#_g85297_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85038_| + (define |gx[1]#_g85300_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85041_| + (define |gx[1]#_g85303_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85044_| + (define |gx[1]#_g85306_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85047_| + (define |gx[1]#_g85309_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85055_| + (define |gx[1]#_g85317_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85058_| + (define |gx[1]#_g85320_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85061_| + (define |gx[1]#_g85323_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85064_| + (define |gx[1]#_g85326_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85067_| + (define |gx[1]#_g85329_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85075_| + (define |gx[1]#_g85337_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85078_| + (define |gx[1]#_g85340_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85081_| + (define |gx[1]#_g85343_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85084_| + (define |gx[1]#_g85346_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85087_| + (define |gx[1]#_g85349_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85090_| + (define |gx[1]#_g85352_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85092_| + (define |gx[1]#_g85354_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85094_| + (define |gx[1]#_g85356_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85096_| + (define |gx[1]#_g85358_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85110_| + (define |gx[1]#_g85372_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85113_| + (define |gx[1]#_g85375_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85116_| + (define |gx[1]#_g85378_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85119_| + (define |gx[1]#_g85381_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85122_| + (define |gx[1]#_g85384_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85125_| + (define |gx[1]#_g85387_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g85128_| + (define |gx[1]#_g85390_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85131_| + (define |gx[1]#_g85393_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g85134_| + (define |gx[1]#_g85396_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g85137_| + (define |gx[1]#_g85399_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g85140_| + (define |gx[1]#_g85402_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g85154_| + (define |gx[1]#_g85416_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85157_| + (define |gx[1]#_g85419_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85160_| + (define |gx[1]#_g85422_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85163_| + (define |gx[1]#_g85425_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85166_| + (define |gx[1]#_g85428_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85169_| + (define |gx[1]#_g85431_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85172_| + (define |gx[1]#_g85434_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85175_| + (define |gx[1]#_g85437_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85178_| + (define |gx[1]#_g85440_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85181_| + (define |gx[1]#_g85443_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85184_| + (define |gx[1]#_g85446_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85198_| + (define |gx[1]#_g85460_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85201_| + (define |gx[1]#_g85463_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85204_| + (define |gx[1]#_g85466_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85207_| + (define |gx[1]#_g85469_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85210_| + (define |gx[1]#_g85472_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85213_| + (define |gx[1]#_g85475_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g85216_| + (define |gx[1]#_g85478_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85219_| + (define |gx[1]#_g85481_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g85222_| + (define |gx[1]#_g85484_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g85225_| + (define |gx[1]#_g85487_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g85228_| + (define |gx[1]#_g85490_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g85242_| + (define |gx[1]#_g85504_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85245_| + (define |gx[1]#_g85507_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85248_| + (define |gx[1]#_g85510_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85251_| + (define |gx[1]#_g85513_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85254_| + (define |gx[1]#_g85516_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85257_| + (define |gx[1]#_g85519_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85260_| + (define |gx[1]#_g85522_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85263_| + (define |gx[1]#_g85525_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85266_| + (define |gx[1]#_g85528_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85269_| + (define |gx[1]#_g85531_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85272_| + (define |gx[1]#_g85534_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85276_| + (define |gx[1]#_g85538_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85278_| + (define |gx[1]#_g85540_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85280_| + (define |gx[1]#_g85542_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85291_| + (define |gx[1]#_g85553_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85294_| + (define |gx[1]#_g85556_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85297_| + (define |gx[1]#_g85559_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85300_| + (define |gx[1]#_g85562_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85303_| + (define |gx[1]#_g85565_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85306_| + (define |gx[1]#_g85568_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85309_| + (define |gx[1]#_g85571_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g85312_| + (define |gx[1]#_g85574_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g85323_| + (define |gx[1]#_g85585_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85326_| + (define |gx[1]#_g85588_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85329_| + (define |gx[1]#_g85591_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85332_| + (define |gx[1]#_g85594_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85335_| + (define |gx[1]#_g85597_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85338_| + (define |gx[1]#_g85600_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85341_| + (define |gx[1]#_g85603_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85344_| + (define |gx[1]#_g85606_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85355_| + (define |gx[1]#_g85617_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85358_| + (define |gx[1]#_g85620_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85361_| + (define |gx[1]#_g85623_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85364_| + (define |gx[1]#_g85626_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85367_| + (define |gx[1]#_g85629_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85370_| + (define |gx[1]#_g85632_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85373_| + (define |gx[1]#_g85635_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g85376_| + (define |gx[1]#_g85638_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g85387_| + (define |gx[1]#_g85649_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85390_| + (define |gx[1]#_g85652_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85393_| + (define |gx[1]#_g85655_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85396_| + (define |gx[1]#_g85658_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85399_| + (define |gx[1]#_g85661_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85402_| + (define |gx[1]#_g85664_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85405_| + (define |gx[1]#_g85667_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85408_| + (define |gx[1]#_g85670_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85412_| + (define |gx[1]#_g85674_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85414_| + (define |gx[1]#_g85676_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85416_| + (define |gx[1]#_g85678_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85424_| + (define |gx[1]#_g85686_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85427_| + (define |gx[1]#_g85689_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85430_| + (define |gx[1]#_g85692_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85433_| + (define |gx[1]#_g85695_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85436_| + (define |gx[1]#_g85698_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85444_| + (define |gx[1]#_g85706_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85447_| + (define |gx[1]#_g85709_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85450_| + (define |gx[1]#_g85712_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85453_| + (define |gx[1]#_g85715_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85456_| + (define |gx[1]#_g85718_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85464_| + (define |gx[1]#_g85726_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g85467_| + (define |gx[1]#_g85729_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85470_| + (define |gx[1]#_g85732_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g85473_| + (define |gx[1]#_g85735_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g85476_| + (define |gx[1]#_g85738_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g85484_| + (define |gx[1]#_g85746_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85487_| + (define |gx[1]#_g85749_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85490_| + (define |gx[1]#_g85752_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85493_| + (define |gx[1]#_g85755_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85496_| + (define |gx[1]#_g85758_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85498_| + (define |gx[1]#_g85760_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85500_| + (define |gx[1]#_g85762_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85502_| + (define |gx[1]#_g85764_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85508_| + (define |gx[1]#_g85770_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85511_| + (define |gx[1]#_g85773_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85514_| + (define |gx[1]#_g85776_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85520_| + (define |gx[1]#_g85782_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85523_| + (define |gx[1]#_g85785_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85526_| + (define |gx[1]#_g85788_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85532_| + (define |gx[1]#_g85794_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85535_| + (define |gx[1]#_g85797_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85538_| + (define |gx[1]#_g85800_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85544_| + (define |gx[1]#_g85806_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85547_| + (define |gx[1]#_g85809_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85550_| + (define |gx[1]#_g85812_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85553_| + (define |gx[1]#_g85815_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85555_| + (define |gx[1]#_g85817_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85557_| + (define |gx[1]#_g85819_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85559_| + (define |gx[1]#_g85821_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85565_| + (define |gx[1]#_g85827_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85568_| + (define |gx[1]#_g85830_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85571_| + (define |gx[1]#_g85833_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85577_| + (define |gx[1]#_g85839_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85580_| + (define |gx[1]#_g85842_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85583_| + (define |gx[1]#_g85845_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85589_| + (define |gx[1]#_g85851_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85592_| + (define |gx[1]#_g85854_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85595_| + (define |gx[1]#_g85857_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85601_| + (define |gx[1]#_g85863_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85604_| + (define |gx[1]#_g85866_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85607_| + (define |gx[1]#_g85869_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85610_| + (define |gx[1]#_g85872_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85612_| + (define |gx[1]#_g85874_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85614_| + (define |gx[1]#_g85876_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85616_| + (define |gx[1]#_g85878_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85622_| + (define |gx[1]#_g85884_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85625_| + (define |gx[1]#_g85887_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85628_| + (define |gx[1]#_g85890_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85634_| + (define |gx[1]#_g85896_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85637_| + (define |gx[1]#_g85899_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85640_| + (define |gx[1]#_g85902_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85646_| + (define |gx[1]#_g85908_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85649_| + (define |gx[1]#_g85911_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85652_| + (define |gx[1]#_g85914_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85658_| + (define |gx[1]#_g85920_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85661_| + (define |gx[1]#_g85923_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85664_| + (define |gx[1]#_g85926_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85668_| + (define |gx[1]#_g85930_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85670_| + (define |gx[1]#_g85932_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85672_| + (define |gx[1]#_g85934_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85678_| + (define |gx[1]#_g85940_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85681_| + (define |gx[1]#_g85943_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85684_| + (define |gx[1]#_g85946_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85690_| + (define |gx[1]#_g85952_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85693_| + (define |gx[1]#_g85955_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85696_| + (define |gx[1]#_g85958_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85702_| + (define |gx[1]#_g85964_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85705_| + (define |gx[1]#_g85967_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85708_| + (define |gx[1]#_g85970_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85714_| + (define |gx[1]#_g85976_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85717_| + (define |gx[1]#_g85979_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85720_| + (define |gx[1]#_g85982_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85723_| + (define |gx[1]#_g85985_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85725_| + (define |gx[1]#_g85987_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85727_| + (define |gx[1]#_g85989_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85729_| + (define |gx[1]#_g85991_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85736_| + (define |gx[1]#_g85998_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85739_| + (define |gx[1]#_g86001_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85742_| + (define |gx[1]#_g86004_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85745_| + (define |gx[1]#_g86007_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85752_| + (define |gx[1]#_g86014_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85755_| + (define |gx[1]#_g86017_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85758_| + (define |gx[1]#_g86020_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85761_| + (define |gx[1]#_g86023_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85768_| + (define |gx[1]#_g86030_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85771_| + (define |gx[1]#_g86033_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85774_| + (define |gx[1]#_g86036_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85777_| + (define |gx[1]#_g86039_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85784_| + (define |gx[1]#_g86046_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85787_| + (define |gx[1]#_g86049_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85790_| + (define |gx[1]#_g86052_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85793_| + (define |gx[1]#_g86055_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85797_| + (define |gx[1]#_g86059_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85799_| + (define |gx[1]#_g86061_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85801_| + (define |gx[1]#_g86063_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85807_| + (define |gx[1]#_g86069_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85810_| + (define |gx[1]#_g86072_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85813_| + (define |gx[1]#_g86075_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85819_| + (define |gx[1]#_g86081_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85822_| + (define |gx[1]#_g86084_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85825_| + (define |gx[1]#_g86087_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85831_| + (define |gx[1]#_g86093_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85834_| + (define |gx[1]#_g86096_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85837_| + (define |gx[1]#_g86099_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85843_| + (define |gx[1]#_g86105_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85846_| + (define |gx[1]#_g86108_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85849_| + (define |gx[1]#_g86111_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85853_| + (define |gx[1]#_g86115_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85855_| + (define |gx[1]#_g86117_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85857_| + (define |gx[1]#_g86119_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85864_| + (define |gx[1]#_g86126_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85867_| + (define |gx[1]#_g86129_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85870_| + (define |gx[1]#_g86132_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85873_| + (define |gx[1]#_g86135_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85880_| + (define |gx[1]#_g86142_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85883_| + (define |gx[1]#_g86145_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85886_| + (define |gx[1]#_g86148_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85889_| + (define |gx[1]#_g86151_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85896_| + (define |gx[1]#_g86158_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85899_| + (define |gx[1]#_g86161_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85902_| + (define |gx[1]#_g86164_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85905_| + (define |gx[1]#_g86167_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85912_| + (define |gx[1]#_g86174_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85915_| + (define |gx[1]#_g86177_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85918_| + (define |gx[1]#_g86180_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85921_| + (define |gx[1]#_g86183_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85925_| + (define |gx[1]#_g86187_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g85927_| + (define |gx[1]#_g86189_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g85929_| + (define |gx[1]#_g86191_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85938_| + (define |gx[1]#_g86200_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85941_| + (define |gx[1]#_g86203_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85944_| + (define |gx[1]#_g86206_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85947_| + (define |gx[1]#_g86209_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85950_| + (define |gx[1]#_g86212_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g85953_| + (define |gx[1]#_g86215_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g85962_| + (define |gx[1]#_g86224_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85965_| + (define |gx[1]#_g86227_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85968_| + (define |gx[1]#_g86230_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85971_| + (define |gx[1]#_g86233_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85974_| + (define |gx[1]#_g86236_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85977_| + (define |gx[1]#_g86239_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g85986_| + (define |gx[1]#_g86248_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g85989_| + (define |gx[1]#_g86251_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g85992_| + (define |gx[1]#_g86254_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g85995_| + (define |gx[1]#_g86257_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g85998_| + (define |gx[1]#_g86260_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86001_| + (define |gx[1]#_g86263_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86010_| + (define |gx[1]#_g86272_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86013_| + (define |gx[1]#_g86275_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86016_| + (define |gx[1]#_g86278_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86019_| + (define |gx[1]#_g86281_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86022_| + (define |gx[1]#_g86284_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86025_| + (define |gx[1]#_g86287_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86029_| + (define |gx[1]#_g86291_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86031_| + (define |gx[1]#_g86293_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86033_| + (define |gx[1]#_g86295_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86040_| + (define |gx[1]#_g86302_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86043_| + (define |gx[1]#_g86305_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86046_| + (define |gx[1]#_g86308_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86049_| + (define |gx[1]#_g86311_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86056_| + (define |gx[1]#_g86318_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86059_| + (define |gx[1]#_g86321_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86062_| + (define |gx[1]#_g86324_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86065_| + (define |gx[1]#_g86327_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86072_| + (define |gx[1]#_g86334_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86075_| + (define |gx[1]#_g86337_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86078_| + (define |gx[1]#_g86340_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86081_| + (define |gx[1]#_g86343_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86088_| + (define |gx[1]#_g86350_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86091_| + (define |gx[1]#_g86353_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86094_| + (define |gx[1]#_g86356_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86097_| + (define |gx[1]#_g86359_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86099_| + (define |gx[1]#_g86361_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86101_| + (define |gx[1]#_g86363_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86103_| + (define |gx[1]#_g86365_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86107_| + (define |gx[1]#_g86369_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86111_| + (define |gx[1]#_g86373_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86115_| + (define |gx[1]#_g86377_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86119_| + (define |gx[1]#_g86381_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86122_| + (define |gx[1]#_g86384_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86124_| + (define |gx[1]#_g86386_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86126_| + (define |gx[1]#_g86388_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86128_| + (define |gx[1]#_g86390_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86134_| + (define |gx[1]#_g86396_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86137_| + (define |gx[1]#_g86399_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86140_| + (define |gx[1]#_g86402_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86146_| + (define |gx[1]#_g86408_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86149_| + (define |gx[1]#_g86411_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86152_| + (define |gx[1]#_g86414_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86158_| + (define |gx[1]#_g86420_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86161_| + (define |gx[1]#_g86423_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86164_| + (define |gx[1]#_g86426_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86170_| + (define |gx[1]#_g86432_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86173_| + (define |gx[1]#_g86435_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86176_| + (define |gx[1]#_g86438_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86179_| + (define |gx[1]#_g86441_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86181_| + (define |gx[1]#_g86443_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86183_| + (define |gx[1]#_g86445_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86185_| + (define |gx[1]#_g86447_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86191_| + (define |gx[1]#_g86453_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86194_| + (define |gx[1]#_g86456_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86197_| + (define |gx[1]#_g86459_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86203_| + (define |gx[1]#_g86465_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86206_| + (define |gx[1]#_g86468_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86209_| + (define |gx[1]#_g86471_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86215_| + (define |gx[1]#_g86477_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86218_| + (define |gx[1]#_g86480_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86221_| + (define |gx[1]#_g86483_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86227_| + (define |gx[1]#_g86489_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86230_| + (define |gx[1]#_g86492_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86233_| + (define |gx[1]#_g86495_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86237_| + (define |gx[1]#_g86499_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86239_| + (define |gx[1]#_g86501_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86241_| + (define |gx[1]#_g86503_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86247_| + (define |gx[1]#_g86509_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86250_| + (define |gx[1]#_g86512_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86253_| + (define |gx[1]#_g86515_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86259_| + (define |gx[1]#_g86521_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86262_| + (define |gx[1]#_g86524_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86265_| + (define |gx[1]#_g86527_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86271_| + (define |gx[1]#_g86533_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86274_| + (define |gx[1]#_g86536_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86277_| + (define |gx[1]#_g86539_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86283_| + (define |gx[1]#_g86545_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86286_| + (define |gx[1]#_g86548_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86289_| + (define |gx[1]#_g86551_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86292_| + (define |gx[1]#_g86554_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86294_| + (define |gx[1]#_g86556_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86296_| + (define |gx[1]#_g86558_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86298_| + (define |gx[1]#_g86560_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86304_| + (define |gx[1]#_g86566_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86307_| + (define |gx[1]#_g86569_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86310_| + (define |gx[1]#_g86572_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86316_| + (define |gx[1]#_g86578_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86319_| + (define |gx[1]#_g86581_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86322_| + (define |gx[1]#_g86584_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86328_| + (define |gx[1]#_g86590_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86331_| + (define |gx[1]#_g86593_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86334_| + (define |gx[1]#_g86596_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86340_| + (define |gx[1]#_g86602_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86343_| + (define |gx[1]#_g86605_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86346_| + (define |gx[1]#_g86608_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86350_| + (define |gx[1]#_g86612_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86352_| + (define |gx[1]#_g86614_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86354_| + (define |gx[1]#_g86616_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86360_| + (define |gx[1]#_g86622_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86363_| + (define |gx[1]#_g86625_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86366_| + (define |gx[1]#_g86628_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86372_| + (define |gx[1]#_g86634_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86375_| + (define |gx[1]#_g86637_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86378_| + (define |gx[1]#_g86640_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86384_| + (define |gx[1]#_g86646_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86387_| + (define |gx[1]#_g86649_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86390_| + (define |gx[1]#_g86652_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86396_| + (define |gx[1]#_g86658_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86399_| + (define |gx[1]#_g86661_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86402_| + (define |gx[1]#_g86664_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86405_| + (define |gx[1]#_g86667_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86407_| + (define |gx[1]#_g86669_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86409_| + (define |gx[1]#_g86671_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g86411_| + (define |gx[1]#_g86673_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86417_| + (define |gx[1]#_g86679_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86420_| + (define |gx[1]#_g86682_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86423_| + (define |gx[1]#_g86685_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86429_| + (define |gx[1]#_g86691_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86432_| + (define |gx[1]#_g86694_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86435_| + (define |gx[1]#_g86697_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86441_| + (define |gx[1]#_g86703_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86444_| + (define |gx[1]#_g86706_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g86447_| + (define |gx[1]#_g86709_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86453_| + (define |gx[1]#_g86715_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86456_| + (define |gx[1]#_g86718_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86459_| + (define |gx[1]#_g86721_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86463_| + (define |gx[1]#_g86725_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86465_| + (define |gx[1]#_g86727_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86467_| + (define |gx[1]#_g86729_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86471_| + (define |gx[1]#_g86733_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86475_| + (define |gx[1]#_g86737_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86479_| + (define |gx[1]#_g86741_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86483_| + (define |gx[1]#_g86745_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86486_| + (define |gx[1]#_g86748_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86488_| + (define |gx[1]#_g86750_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86490_| + (define |gx[1]#_g86752_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86492_| + (define |gx[1]#_g86754_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86496_| + (define |gx[1]#_g86758_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86500_| + (define |gx[1]#_g86762_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86504_| + (define |gx[1]#_g86766_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86508_| + (define |gx[1]#_g86770_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86512_| + (define |gx[1]#_g86774_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86514_| + (define |gx[1]#_g86776_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86516_| + (define |gx[1]#_g86778_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86520_| + (define |gx[1]#_g86782_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86524_| + (define |gx[1]#_g86786_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86528_| + (define |gx[1]#_g86790_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86532_| + (define |gx[1]#_g86794_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86536_| + (define |gx[1]#_g86798_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86538_| + (define |gx[1]#_g86800_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86540_| + (define |gx[1]#_g86802_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86544_| + (define |gx[1]#_g86806_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86548_| + (define |gx[1]#_g86810_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86552_| + (define |gx[1]#_g86814_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86556_| + (define |gx[1]#_g86818_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86559_| + (define |gx[1]#_g86821_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86561_| + (define |gx[1]#_g86823_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86563_| + (define |gx[1]#_g86825_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86565_| + (define |gx[1]#_g86827_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86569_| + (define |gx[1]#_g86831_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86573_| + (define |gx[1]#_g86835_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86577_| + (define |gx[1]#_g86839_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86581_| + (define |gx[1]#_g86843_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86585_| + (define |gx[1]#_g86847_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86587_| + (define |gx[1]#_g86849_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g86589_| + (define |gx[1]#_g86851_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86595_| + (define |gx[1]#_g86857_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86598_| + (define |gx[1]#_g86860_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86601_| + (define |gx[1]#_g86863_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86607_| + (define |gx[1]#_g86869_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86610_| + (define |gx[1]#_g86872_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86613_| + (define |gx[1]#_g86875_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86619_| + (define |gx[1]#_g86881_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86622_| + (define |gx[1]#_g86884_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86625_| + (define |gx[1]#_g86887_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86631_| + (define |gx[1]#_g86893_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86634_| + (define |gx[1]#_g86896_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86637_| + (define |gx[1]#_g86899_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86639_| + (define |gx[1]#_g86901_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86641_| + (define |gx[1]#_g86903_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g86643_| + (define |gx[1]#_g86905_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86650_| + (define |gx[1]#_g86912_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g86653_| + (define |gx[1]#_g86915_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86656_| + (define |gx[1]#_g86918_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86659_| + (define |gx[1]#_g86921_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g86666_| + (define |gx[1]#_g86928_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86669_| + (define |gx[1]#_g86931_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86672_| + (define |gx[1]#_g86934_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86675_| + (define |gx[1]#_g86937_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86682_| + (define |gx[1]#_g86944_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g86685_| + (define |gx[1]#_g86947_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86688_| + (define |gx[1]#_g86950_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86691_| + (define |gx[1]#_g86953_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g86698_| + (define |gx[1]#_g86960_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86701_| + (define |gx[1]#_g86963_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86704_| + (define |gx[1]#_g86966_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86707_| + (define |gx[1]#_g86969_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj84750 + (let ((__obj85012 (let () (declare (not safe)) (##structure @@ -3595,7 +3595,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84750 + __obj85012 'gx#expander-context::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3603,7 +3603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84750 + __obj85012 'expander-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3611,7 +3611,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84750 + __obj85012 '(id table) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3619,7 +3619,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84750 + __obj85012 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3627,7 +3627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84750 + __obj85012 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3635,7 +3635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84750 + __obj85012 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3643,7 +3643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84750 + __obj85012 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3651,122 +3651,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84750 + __obj85012 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84832 |gx[1]#_g84833_|)) + (let ((__tmp85094 |gx[1]#_g85095_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84750 - __tmp84832 + __obj85012 + __tmp85094 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84834 |gx[1]#_g84835_|)) + (let ((__tmp85096 |gx[1]#_g85097_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84750 - __tmp84834 + __obj85012 + __tmp85096 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84836 |gx[1]#_g84837_|)) + (let ((__tmp85098 |gx[1]#_g85099_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84750 - __tmp84836 + __obj85012 + __tmp85098 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84838 - (let ((__tmp84843 - (let ((__tmp84844 |gx[1]#_g84845_|)) + (let ((__tmp85100 + (let ((__tmp85105 + (let ((__tmp85106 |gx[1]#_g85107_|)) (declare (not safe)) - (cons 'id __tmp84844))) - (__tmp84839 - (let ((__tmp84840 - (let ((__tmp84841 |gx[1]#_g84842_|)) + (cons 'id __tmp85106))) + (__tmp85101 + (let ((__tmp85102 + (let ((__tmp85103 |gx[1]#_g85104_|)) (declare (not safe)) - (cons 'table __tmp84841)))) + (cons 'table __tmp85103)))) (declare (not safe)) - (cons __tmp84840 '())))) + (cons __tmp85102 '())))) (declare (not safe)) - (cons __tmp84843 __tmp84839)))) + (cons __tmp85105 __tmp85101)))) (declare (not safe)) (##unchecked-structure-set! - __obj84750 - __tmp84838 + __obj85012 + __tmp85100 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84846 - (let ((__tmp84851 - (let ((__tmp84852 |gx[1]#_g84853_|)) + (let ((__tmp85108 + (let ((__tmp85113 + (let ((__tmp85114 |gx[1]#_g85115_|)) (declare (not safe)) - (cons 'id __tmp84852))) - (__tmp84847 - (let ((__tmp84848 - (let ((__tmp84849 |gx[1]#_g84850_|)) + (cons 'id __tmp85114))) + (__tmp85109 + (let ((__tmp85110 + (let ((__tmp85111 |gx[1]#_g85112_|)) (declare (not safe)) - (cons 'table __tmp84849)))) + (cons 'table __tmp85111)))) (declare (not safe)) - (cons __tmp84848 '())))) + (cons __tmp85110 '())))) (declare (not safe)) - (cons __tmp84851 __tmp84847)))) + (cons __tmp85113 __tmp85109)))) (declare (not safe)) (##unchecked-structure-set! - __obj84750 - __tmp84846 + __obj85012 + __tmp85108 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84854 - (let ((__tmp84859 - (let ((__tmp84860 |gx[1]#_g84861_|)) + (let ((__tmp85116 + (let ((__tmp85121 + (let ((__tmp85122 |gx[1]#_g85123_|)) (declare (not safe)) - (cons 'id __tmp84860))) - (__tmp84855 - (let ((__tmp84856 - (let ((__tmp84857 |gx[1]#_g84858_|)) + (cons 'id __tmp85122))) + (__tmp85117 + (let ((__tmp85118 + (let ((__tmp85119 |gx[1]#_g85120_|)) (declare (not safe)) - (cons 'table __tmp84857)))) + (cons 'table __tmp85119)))) (declare (not safe)) - (cons __tmp84856 '())))) + (cons __tmp85118 '())))) (declare (not safe)) - (cons __tmp84859 __tmp84855)))) + (cons __tmp85121 __tmp85117)))) (declare (not safe)) (##unchecked-structure-set! - __obj84750 - __tmp84854 + __obj85012 + __tmp85116 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84862 - (let ((__tmp84867 - (let ((__tmp84868 |gx[1]#_g84869_|)) + (let ((__tmp85124 + (let ((__tmp85129 + (let ((__tmp85130 |gx[1]#_g85131_|)) (declare (not safe)) - (cons 'id __tmp84868))) - (__tmp84863 - (let ((__tmp84864 - (let ((__tmp84865 |gx[1]#_g84866_|)) + (cons 'id __tmp85130))) + (__tmp85125 + (let ((__tmp85126 + (let ((__tmp85127 |gx[1]#_g85128_|)) (declare (not safe)) - (cons 'table __tmp84865)))) + (cons 'table __tmp85127)))) (declare (not safe)) - (cons __tmp84864 '())))) + (cons __tmp85126 '())))) (declare (not safe)) - (cons __tmp84867 __tmp84863)))) + (cons __tmp85129 __tmp85125)))) (declare (not safe)) (##unchecked-structure-set! - __obj84750 - __tmp84862 + __obj85012 + __tmp85124 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84750)) + __obj85012)) (define |gx[:0:]#root-context| - (let ((__obj84751 + (let ((__obj85013 (let () (declare (not safe)) (##structure @@ -3789,7 +3789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84751 + __obj85013 'gx#root-context::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3797,7 +3797,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84751 + __obj85013 'root-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3805,26 +3805,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84751 + __obj85013 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84870 - (let ((__tmp84871 |gx[1]#_g84872_|)) + (let ((__tmp85132 + (let ((__tmp85133 |gx[1]#_g85134_|)) (declare (not safe)) - (cons __tmp84871 '())))) + (cons __tmp85133 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84751 - __tmp84870 + __obj85013 + __tmp85132 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84751 + __obj85013 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3832,7 +3832,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84751 + __obj85013 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3840,7 +3840,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84751 + __obj85013 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3848,122 +3848,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84751 + __obj85013 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84873 |gx[1]#_g84874_|)) + (let ((__tmp85135 |gx[1]#_g85136_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84751 - __tmp84873 + __obj85013 + __tmp85135 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84875 |gx[1]#_g84876_|)) + (let ((__tmp85137 |gx[1]#_g85138_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84751 - __tmp84875 + __obj85013 + __tmp85137 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84877 |gx[1]#_g84878_|)) + (let ((__tmp85139 |gx[1]#_g85140_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84751 - __tmp84877 + __obj85013 + __tmp85139 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84879 - (let ((__tmp84884 - (let ((__tmp84885 |gx[1]#_g84886_|)) + (let ((__tmp85141 + (let ((__tmp85146 + (let ((__tmp85147 |gx[1]#_g85148_|)) (declare (not safe)) - (cons 'id __tmp84885))) - (__tmp84880 - (let ((__tmp84881 - (let ((__tmp84882 |gx[1]#_g84883_|)) + (cons 'id __tmp85147))) + (__tmp85142 + (let ((__tmp85143 + (let ((__tmp85144 |gx[1]#_g85145_|)) (declare (not safe)) - (cons 'table __tmp84882)))) + (cons 'table __tmp85144)))) (declare (not safe)) - (cons __tmp84881 '())))) + (cons __tmp85143 '())))) (declare (not safe)) - (cons __tmp84884 __tmp84880)))) + (cons __tmp85146 __tmp85142)))) (declare (not safe)) (##unchecked-structure-set! - __obj84751 - __tmp84879 + __obj85013 + __tmp85141 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84887 - (let ((__tmp84892 - (let ((__tmp84893 |gx[1]#_g84894_|)) + (let ((__tmp85149 + (let ((__tmp85154 + (let ((__tmp85155 |gx[1]#_g85156_|)) (declare (not safe)) - (cons 'id __tmp84893))) - (__tmp84888 - (let ((__tmp84889 - (let ((__tmp84890 |gx[1]#_g84891_|)) + (cons 'id __tmp85155))) + (__tmp85150 + (let ((__tmp85151 + (let ((__tmp85152 |gx[1]#_g85153_|)) (declare (not safe)) - (cons 'table __tmp84890)))) + (cons 'table __tmp85152)))) (declare (not safe)) - (cons __tmp84889 '())))) + (cons __tmp85151 '())))) (declare (not safe)) - (cons __tmp84892 __tmp84888)))) + (cons __tmp85154 __tmp85150)))) (declare (not safe)) (##unchecked-structure-set! - __obj84751 - __tmp84887 + __obj85013 + __tmp85149 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84895 - (let ((__tmp84900 - (let ((__tmp84901 |gx[1]#_g84902_|)) + (let ((__tmp85157 + (let ((__tmp85162 + (let ((__tmp85163 |gx[1]#_g85164_|)) (declare (not safe)) - (cons 'id __tmp84901))) - (__tmp84896 - (let ((__tmp84897 - (let ((__tmp84898 |gx[1]#_g84899_|)) + (cons 'id __tmp85163))) + (__tmp85158 + (let ((__tmp85159 + (let ((__tmp85160 |gx[1]#_g85161_|)) (declare (not safe)) - (cons 'table __tmp84898)))) + (cons 'table __tmp85160)))) (declare (not safe)) - (cons __tmp84897 '())))) + (cons __tmp85159 '())))) (declare (not safe)) - (cons __tmp84900 __tmp84896)))) + (cons __tmp85162 __tmp85158)))) (declare (not safe)) (##unchecked-structure-set! - __obj84751 - __tmp84895 + __obj85013 + __tmp85157 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84903 - (let ((__tmp84908 - (let ((__tmp84909 |gx[1]#_g84910_|)) + (let ((__tmp85165 + (let ((__tmp85170 + (let ((__tmp85171 |gx[1]#_g85172_|)) (declare (not safe)) - (cons 'id __tmp84909))) - (__tmp84904 - (let ((__tmp84905 - (let ((__tmp84906 |gx[1]#_g84907_|)) + (cons 'id __tmp85171))) + (__tmp85166 + (let ((__tmp85167 + (let ((__tmp85168 |gx[1]#_g85169_|)) (declare (not safe)) - (cons 'table __tmp84906)))) + (cons 'table __tmp85168)))) (declare (not safe)) - (cons __tmp84905 '())))) + (cons __tmp85167 '())))) (declare (not safe)) - (cons __tmp84908 __tmp84904)))) + (cons __tmp85170 __tmp85166)))) (declare (not safe)) (##unchecked-structure-set! - __obj84751 - __tmp84903 + __obj85013 + __tmp85165 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84751)) + __obj85013)) (define |gx[:0:]#phi-context| - (let ((__obj84752 + (let ((__obj85014 (let () (declare (not safe)) (##structure @@ -3986,7 +3986,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84752 + __obj85014 'gx#context-phi::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3994,7 +3994,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84752 + __obj85014 'phi-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4002,26 +4002,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84752 + __obj85014 '(super up down) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84911 - (let ((__tmp84912 |gx[1]#_g84872_|)) + (let ((__tmp85173 + (let ((__tmp85174 |gx[1]#_g85134_|)) (declare (not safe)) - (cons __tmp84912 '())))) + (cons __tmp85174 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84752 - __tmp84911 + __obj85014 + __tmp85173 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84752 + __obj85014 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4029,7 +4029,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84752 + __obj85014 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4037,7 +4037,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84752 + __obj85014 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4045,210 +4045,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84752 + __obj85014 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84913 |gx[1]#_g84914_|)) + (let ((__tmp85175 |gx[1]#_g85176_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84752 - __tmp84913 + __obj85014 + __tmp85175 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84915 |gx[1]#_g84916_|)) + (let ((__tmp85177 |gx[1]#_g85178_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84752 - __tmp84915 + __obj85014 + __tmp85177 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84917 |gx[1]#_g84918_|)) + (let ((__tmp85179 |gx[1]#_g85180_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84752 - __tmp84917 + __obj85014 + __tmp85179 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84919 - (let ((__tmp84936 - (let ((__tmp84937 |gx[1]#_g84938_|)) + (let ((__tmp85181 + (let ((__tmp85198 + (let ((__tmp85199 |gx[1]#_g85200_|)) (declare (not safe)) - (cons 'super __tmp84937))) - (__tmp84920 - (let ((__tmp84933 - (let ((__tmp84934 |gx[1]#_g84935_|)) + (cons 'super __tmp85199))) + (__tmp85182 + (let ((__tmp85195 + (let ((__tmp85196 |gx[1]#_g85197_|)) (declare (not safe)) - (cons 'up __tmp84934))) - (__tmp84921 - (let ((__tmp84930 - (let ((__tmp84931 |gx[1]#_g84932_|)) + (cons 'up __tmp85196))) + (__tmp85183 + (let ((__tmp85192 + (let ((__tmp85193 |gx[1]#_g85194_|)) (declare (not safe)) - (cons 'down __tmp84931))) - (__tmp84922 - (let ((__tmp84927 - (let ((__tmp84928 |gx[1]#_g84929_|)) + (cons 'down __tmp85193))) + (__tmp85184 + (let ((__tmp85189 + (let ((__tmp85190 |gx[1]#_g85191_|)) (declare (not safe)) - (cons 'id __tmp84928))) - (__tmp84923 - (let ((__tmp84924 - (let ((__tmp84925 - |gx[1]#_g84926_|)) + (cons 'id __tmp85190))) + (__tmp85185 + (let ((__tmp85186 + (let ((__tmp85187 + |gx[1]#_g85188_|)) (declare (not safe)) - (cons 'table __tmp84925)))) + (cons 'table __tmp85187)))) (declare (not safe)) - (cons __tmp84924 '())))) + (cons __tmp85186 '())))) (declare (not safe)) - (cons __tmp84927 __tmp84923)))) + (cons __tmp85189 __tmp85185)))) (declare (not safe)) - (cons __tmp84930 __tmp84922)))) + (cons __tmp85192 __tmp85184)))) (declare (not safe)) - (cons __tmp84933 __tmp84921)))) + (cons __tmp85195 __tmp85183)))) (declare (not safe)) - (cons __tmp84936 __tmp84920)))) + (cons __tmp85198 __tmp85182)))) (declare (not safe)) (##unchecked-structure-set! - __obj84752 - __tmp84919 + __obj85014 + __tmp85181 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84939 - (let ((__tmp84956 - (let ((__tmp84957 |gx[1]#_g84958_|)) + (let ((__tmp85201 + (let ((__tmp85218 + (let ((__tmp85219 |gx[1]#_g85220_|)) (declare (not safe)) - (cons 'super __tmp84957))) - (__tmp84940 - (let ((__tmp84953 - (let ((__tmp84954 |gx[1]#_g84955_|)) + (cons 'super __tmp85219))) + (__tmp85202 + (let ((__tmp85215 + (let ((__tmp85216 |gx[1]#_g85217_|)) (declare (not safe)) - (cons 'up __tmp84954))) - (__tmp84941 - (let ((__tmp84950 - (let ((__tmp84951 |gx[1]#_g84952_|)) + (cons 'up __tmp85216))) + (__tmp85203 + (let ((__tmp85212 + (let ((__tmp85213 |gx[1]#_g85214_|)) (declare (not safe)) - (cons 'down __tmp84951))) - (__tmp84942 - (let ((__tmp84947 - (let ((__tmp84948 |gx[1]#_g84949_|)) + (cons 'down __tmp85213))) + (__tmp85204 + (let ((__tmp85209 + (let ((__tmp85210 |gx[1]#_g85211_|)) (declare (not safe)) - (cons 'id __tmp84948))) - (__tmp84943 - (let ((__tmp84944 - (let ((__tmp84945 - |gx[1]#_g84946_|)) + (cons 'id __tmp85210))) + (__tmp85205 + (let ((__tmp85206 + (let ((__tmp85207 + |gx[1]#_g85208_|)) (declare (not safe)) - (cons 'table __tmp84945)))) + (cons 'table __tmp85207)))) (declare (not safe)) - (cons __tmp84944 '())))) + (cons __tmp85206 '())))) (declare (not safe)) - (cons __tmp84947 __tmp84943)))) + (cons __tmp85209 __tmp85205)))) (declare (not safe)) - (cons __tmp84950 __tmp84942)))) + (cons __tmp85212 __tmp85204)))) (declare (not safe)) - (cons __tmp84953 __tmp84941)))) + (cons __tmp85215 __tmp85203)))) (declare (not safe)) - (cons __tmp84956 __tmp84940)))) + (cons __tmp85218 __tmp85202)))) (declare (not safe)) (##unchecked-structure-set! - __obj84752 - __tmp84939 + __obj85014 + __tmp85201 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84959 - (let ((__tmp84976 - (let ((__tmp84977 |gx[1]#_g84978_|)) + (let ((__tmp85221 + (let ((__tmp85238 + (let ((__tmp85239 |gx[1]#_g85240_|)) (declare (not safe)) - (cons 'super __tmp84977))) - (__tmp84960 - (let ((__tmp84973 - (let ((__tmp84974 |gx[1]#_g84975_|)) + (cons 'super __tmp85239))) + (__tmp85222 + (let ((__tmp85235 + (let ((__tmp85236 |gx[1]#_g85237_|)) (declare (not safe)) - (cons 'up __tmp84974))) - (__tmp84961 - (let ((__tmp84970 - (let ((__tmp84971 |gx[1]#_g84972_|)) + (cons 'up __tmp85236))) + (__tmp85223 + (let ((__tmp85232 + (let ((__tmp85233 |gx[1]#_g85234_|)) (declare (not safe)) - (cons 'down __tmp84971))) - (__tmp84962 - (let ((__tmp84967 - (let ((__tmp84968 |gx[1]#_g84969_|)) + (cons 'down __tmp85233))) + (__tmp85224 + (let ((__tmp85229 + (let ((__tmp85230 |gx[1]#_g85231_|)) (declare (not safe)) - (cons 'id __tmp84968))) - (__tmp84963 - (let ((__tmp84964 - (let ((__tmp84965 - |gx[1]#_g84966_|)) + (cons 'id __tmp85230))) + (__tmp85225 + (let ((__tmp85226 + (let ((__tmp85227 + |gx[1]#_g85228_|)) (declare (not safe)) - (cons 'table __tmp84965)))) + (cons 'table __tmp85227)))) (declare (not safe)) - (cons __tmp84964 '())))) + (cons __tmp85226 '())))) (declare (not safe)) - (cons __tmp84967 __tmp84963)))) + (cons __tmp85229 __tmp85225)))) (declare (not safe)) - (cons __tmp84970 __tmp84962)))) + (cons __tmp85232 __tmp85224)))) (declare (not safe)) - (cons __tmp84973 __tmp84961)))) + (cons __tmp85235 __tmp85223)))) (declare (not safe)) - (cons __tmp84976 __tmp84960)))) + (cons __tmp85238 __tmp85222)))) (declare (not safe)) (##unchecked-structure-set! - __obj84752 - __tmp84959 + __obj85014 + __tmp85221 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84979 - (let ((__tmp84996 - (let ((__tmp84997 |gx[1]#_g84998_|)) + (let ((__tmp85241 + (let ((__tmp85258 + (let ((__tmp85259 |gx[1]#_g85260_|)) (declare (not safe)) - (cons 'super __tmp84997))) - (__tmp84980 - (let ((__tmp84993 - (let ((__tmp84994 |gx[1]#_g84995_|)) + (cons 'super __tmp85259))) + (__tmp85242 + (let ((__tmp85255 + (let ((__tmp85256 |gx[1]#_g85257_|)) (declare (not safe)) - (cons 'up __tmp84994))) - (__tmp84981 - (let ((__tmp84990 - (let ((__tmp84991 |gx[1]#_g84992_|)) + (cons 'up __tmp85256))) + (__tmp85243 + (let ((__tmp85252 + (let ((__tmp85253 |gx[1]#_g85254_|)) (declare (not safe)) - (cons 'down __tmp84991))) - (__tmp84982 - (let ((__tmp84987 - (let ((__tmp84988 |gx[1]#_g84989_|)) + (cons 'down __tmp85253))) + (__tmp85244 + (let ((__tmp85249 + (let ((__tmp85250 |gx[1]#_g85251_|)) (declare (not safe)) - (cons 'id __tmp84988))) - (__tmp84983 - (let ((__tmp84984 - (let ((__tmp84985 - |gx[1]#_g84986_|)) + (cons 'id __tmp85250))) + (__tmp85245 + (let ((__tmp85246 + (let ((__tmp85247 + |gx[1]#_g85248_|)) (declare (not safe)) - (cons 'table __tmp84985)))) + (cons 'table __tmp85247)))) (declare (not safe)) - (cons __tmp84984 '())))) + (cons __tmp85246 '())))) (declare (not safe)) - (cons __tmp84987 __tmp84983)))) + (cons __tmp85249 __tmp85245)))) (declare (not safe)) - (cons __tmp84990 __tmp84982)))) + (cons __tmp85252 __tmp85244)))) (declare (not safe)) - (cons __tmp84993 __tmp84981)))) + (cons __tmp85255 __tmp85243)))) (declare (not safe)) - (cons __tmp84996 __tmp84980)))) + (cons __tmp85258 __tmp85242)))) (declare (not safe)) (##unchecked-structure-set! - __obj84752 - __tmp84979 + __obj85014 + __tmp85241 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84752)) + __obj85014)) (define |gx[:0:]#top-context| - (let ((__obj84753 + (let ((__obj85015 (let () (declare (not safe)) (##structure @@ -4271,7 +4271,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj85015 'gx#top-context::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4279,7 +4279,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj85015 'top-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4287,26 +4287,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj85015 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp84999 - (let ((__tmp85000 |gx[1]#_g85001_|)) + (let ((__tmp85261 + (let ((__tmp85262 |gx[1]#_g85263_|)) (declare (not safe)) - (cons __tmp85000 '())))) + (cons __tmp85262 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp84999 + __obj85015 + __tmp85261 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj85015 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4314,7 +4314,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj85015 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4322,7 +4322,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj85015 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4330,210 +4330,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84753 + __obj85015 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85002 |gx[1]#_g85003_|)) + (let ((__tmp85264 |gx[1]#_g85265_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp85002 + __obj85015 + __tmp85264 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85004 |gx[1]#_g85005_|)) + (let ((__tmp85266 |gx[1]#_g85267_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp85004 + __obj85015 + __tmp85266 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85006 |gx[1]#_g85007_|)) + (let ((__tmp85268 |gx[1]#_g85269_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp85006 + __obj85015 + __tmp85268 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85008 - (let ((__tmp85025 - (let ((__tmp85026 |gx[1]#_g85027_|)) + (let ((__tmp85270 + (let ((__tmp85287 + (let ((__tmp85288 |gx[1]#_g85289_|)) (declare (not safe)) - (cons 'super __tmp85026))) - (__tmp85009 - (let ((__tmp85022 - (let ((__tmp85023 |gx[1]#_g85024_|)) + (cons 'super __tmp85288))) + (__tmp85271 + (let ((__tmp85284 + (let ((__tmp85285 |gx[1]#_g85286_|)) (declare (not safe)) - (cons 'up __tmp85023))) - (__tmp85010 - (let ((__tmp85019 - (let ((__tmp85020 |gx[1]#_g85021_|)) + (cons 'up __tmp85285))) + (__tmp85272 + (let ((__tmp85281 + (let ((__tmp85282 |gx[1]#_g85283_|)) (declare (not safe)) - (cons 'down __tmp85020))) - (__tmp85011 - (let ((__tmp85016 - (let ((__tmp85017 |gx[1]#_g85018_|)) + (cons 'down __tmp85282))) + (__tmp85273 + (let ((__tmp85278 + (let ((__tmp85279 |gx[1]#_g85280_|)) (declare (not safe)) - (cons 'id __tmp85017))) - (__tmp85012 - (let ((__tmp85013 - (let ((__tmp85014 - |gx[1]#_g85015_|)) + (cons 'id __tmp85279))) + (__tmp85274 + (let ((__tmp85275 + (let ((__tmp85276 + |gx[1]#_g85277_|)) (declare (not safe)) - (cons 'table __tmp85014)))) + (cons 'table __tmp85276)))) (declare (not safe)) - (cons __tmp85013 '())))) + (cons __tmp85275 '())))) (declare (not safe)) - (cons __tmp85016 __tmp85012)))) + (cons __tmp85278 __tmp85274)))) (declare (not safe)) - (cons __tmp85019 __tmp85011)))) + (cons __tmp85281 __tmp85273)))) (declare (not safe)) - (cons __tmp85022 __tmp85010)))) + (cons __tmp85284 __tmp85272)))) (declare (not safe)) - (cons __tmp85025 __tmp85009)))) + (cons __tmp85287 __tmp85271)))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp85008 + __obj85015 + __tmp85270 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85028 - (let ((__tmp85045 - (let ((__tmp85046 |gx[1]#_g85047_|)) + (let ((__tmp85290 + (let ((__tmp85307 + (let ((__tmp85308 |gx[1]#_g85309_|)) (declare (not safe)) - (cons 'super __tmp85046))) - (__tmp85029 - (let ((__tmp85042 - (let ((__tmp85043 |gx[1]#_g85044_|)) + (cons 'super __tmp85308))) + (__tmp85291 + (let ((__tmp85304 + (let ((__tmp85305 |gx[1]#_g85306_|)) (declare (not safe)) - (cons 'up __tmp85043))) - (__tmp85030 - (let ((__tmp85039 - (let ((__tmp85040 |gx[1]#_g85041_|)) + (cons 'up __tmp85305))) + (__tmp85292 + (let ((__tmp85301 + (let ((__tmp85302 |gx[1]#_g85303_|)) (declare (not safe)) - (cons 'down __tmp85040))) - (__tmp85031 - (let ((__tmp85036 - (let ((__tmp85037 |gx[1]#_g85038_|)) + (cons 'down __tmp85302))) + (__tmp85293 + (let ((__tmp85298 + (let ((__tmp85299 |gx[1]#_g85300_|)) (declare (not safe)) - (cons 'id __tmp85037))) - (__tmp85032 - (let ((__tmp85033 - (let ((__tmp85034 - |gx[1]#_g85035_|)) + (cons 'id __tmp85299))) + (__tmp85294 + (let ((__tmp85295 + (let ((__tmp85296 + |gx[1]#_g85297_|)) (declare (not safe)) - (cons 'table __tmp85034)))) + (cons 'table __tmp85296)))) (declare (not safe)) - (cons __tmp85033 '())))) + (cons __tmp85295 '())))) (declare (not safe)) - (cons __tmp85036 __tmp85032)))) + (cons __tmp85298 __tmp85294)))) (declare (not safe)) - (cons __tmp85039 __tmp85031)))) + (cons __tmp85301 __tmp85293)))) (declare (not safe)) - (cons __tmp85042 __tmp85030)))) + (cons __tmp85304 __tmp85292)))) (declare (not safe)) - (cons __tmp85045 __tmp85029)))) + (cons __tmp85307 __tmp85291)))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp85028 + __obj85015 + __tmp85290 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85048 - (let ((__tmp85065 - (let ((__tmp85066 |gx[1]#_g85067_|)) + (let ((__tmp85310 + (let ((__tmp85327 + (let ((__tmp85328 |gx[1]#_g85329_|)) (declare (not safe)) - (cons 'super __tmp85066))) - (__tmp85049 - (let ((__tmp85062 - (let ((__tmp85063 |gx[1]#_g85064_|)) + (cons 'super __tmp85328))) + (__tmp85311 + (let ((__tmp85324 + (let ((__tmp85325 |gx[1]#_g85326_|)) (declare (not safe)) - (cons 'up __tmp85063))) - (__tmp85050 - (let ((__tmp85059 - (let ((__tmp85060 |gx[1]#_g85061_|)) + (cons 'up __tmp85325))) + (__tmp85312 + (let ((__tmp85321 + (let ((__tmp85322 |gx[1]#_g85323_|)) (declare (not safe)) - (cons 'down __tmp85060))) - (__tmp85051 - (let ((__tmp85056 - (let ((__tmp85057 |gx[1]#_g85058_|)) + (cons 'down __tmp85322))) + (__tmp85313 + (let ((__tmp85318 + (let ((__tmp85319 |gx[1]#_g85320_|)) (declare (not safe)) - (cons 'id __tmp85057))) - (__tmp85052 - (let ((__tmp85053 - (let ((__tmp85054 - |gx[1]#_g85055_|)) + (cons 'id __tmp85319))) + (__tmp85314 + (let ((__tmp85315 + (let ((__tmp85316 + |gx[1]#_g85317_|)) (declare (not safe)) - (cons 'table __tmp85054)))) + (cons 'table __tmp85316)))) (declare (not safe)) - (cons __tmp85053 '())))) + (cons __tmp85315 '())))) (declare (not safe)) - (cons __tmp85056 __tmp85052)))) + (cons __tmp85318 __tmp85314)))) (declare (not safe)) - (cons __tmp85059 __tmp85051)))) + (cons __tmp85321 __tmp85313)))) (declare (not safe)) - (cons __tmp85062 __tmp85050)))) + (cons __tmp85324 __tmp85312)))) (declare (not safe)) - (cons __tmp85065 __tmp85049)))) + (cons __tmp85327 __tmp85311)))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp85048 + __obj85015 + __tmp85310 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85068 - (let ((__tmp85085 - (let ((__tmp85086 |gx[1]#_g85087_|)) + (let ((__tmp85330 + (let ((__tmp85347 + (let ((__tmp85348 |gx[1]#_g85349_|)) (declare (not safe)) - (cons 'super __tmp85086))) - (__tmp85069 - (let ((__tmp85082 - (let ((__tmp85083 |gx[1]#_g85084_|)) + (cons 'super __tmp85348))) + (__tmp85331 + (let ((__tmp85344 + (let ((__tmp85345 |gx[1]#_g85346_|)) (declare (not safe)) - (cons 'up __tmp85083))) - (__tmp85070 - (let ((__tmp85079 - (let ((__tmp85080 |gx[1]#_g85081_|)) + (cons 'up __tmp85345))) + (__tmp85332 + (let ((__tmp85341 + (let ((__tmp85342 |gx[1]#_g85343_|)) (declare (not safe)) - (cons 'down __tmp85080))) - (__tmp85071 - (let ((__tmp85076 - (let ((__tmp85077 |gx[1]#_g85078_|)) + (cons 'down __tmp85342))) + (__tmp85333 + (let ((__tmp85338 + (let ((__tmp85339 |gx[1]#_g85340_|)) (declare (not safe)) - (cons 'id __tmp85077))) - (__tmp85072 - (let ((__tmp85073 - (let ((__tmp85074 - |gx[1]#_g85075_|)) + (cons 'id __tmp85339))) + (__tmp85334 + (let ((__tmp85335 + (let ((__tmp85336 + |gx[1]#_g85337_|)) (declare (not safe)) - (cons 'table __tmp85074)))) + (cons 'table __tmp85336)))) (declare (not safe)) - (cons __tmp85073 '())))) + (cons __tmp85335 '())))) (declare (not safe)) - (cons __tmp85076 __tmp85072)))) + (cons __tmp85338 __tmp85334)))) (declare (not safe)) - (cons __tmp85079 __tmp85071)))) + (cons __tmp85341 __tmp85333)))) (declare (not safe)) - (cons __tmp85082 __tmp85070)))) + (cons __tmp85344 __tmp85332)))) (declare (not safe)) - (cons __tmp85085 __tmp85069)))) + (cons __tmp85347 __tmp85331)))) (declare (not safe)) (##unchecked-structure-set! - __obj84753 - __tmp85068 + __obj85015 + __tmp85330 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84753)) + __obj85015)) (define |gx[:0:]#module-context| - (let ((__obj84754 + (let ((__obj85016 (let () (declare (not safe)) (##structure @@ -4556,7 +4556,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj85016 'gx#module-context::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4564,7 +4564,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj85016 'module-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4572,26 +4572,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj85016 '(ns path import export e code) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85088 - (let ((__tmp85089 |gx[1]#_g85090_|)) + (let ((__tmp85350 + (let ((__tmp85351 |gx[1]#_g85352_|)) (declare (not safe)) - (cons __tmp85089 '())))) + (cons __tmp85351 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp85088 + __obj85016 + __tmp85350 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj85016 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4599,7 +4599,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj85016 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4607,7 +4607,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj85016 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4615,410 +4615,410 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84754 + __obj85016 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85091 |gx[1]#_g85092_|)) + (let ((__tmp85353 |gx[1]#_g85354_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp85091 + __obj85016 + __tmp85353 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85093 |gx[1]#_g85094_|)) + (let ((__tmp85355 |gx[1]#_g85356_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp85093 + __obj85016 + __tmp85355 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85095 |gx[1]#_g85096_|)) + (let ((__tmp85357 |gx[1]#_g85358_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp85095 + __obj85016 + __tmp85357 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85097 - (let ((__tmp85138 - (let ((__tmp85139 |gx[1]#_g85140_|)) + (let ((__tmp85359 + (let ((__tmp85400 + (let ((__tmp85401 |gx[1]#_g85402_|)) (declare (not safe)) - (cons 'ns __tmp85139))) - (__tmp85098 - (let ((__tmp85135 - (let ((__tmp85136 |gx[1]#_g85137_|)) + (cons 'ns __tmp85401))) + (__tmp85360 + (let ((__tmp85397 + (let ((__tmp85398 |gx[1]#_g85399_|)) (declare (not safe)) - (cons 'path __tmp85136))) - (__tmp85099 - (let ((__tmp85132 - (let ((__tmp85133 |gx[1]#_g85134_|)) + (cons 'path __tmp85398))) + (__tmp85361 + (let ((__tmp85394 + (let ((__tmp85395 |gx[1]#_g85396_|)) (declare (not safe)) - (cons 'import __tmp85133))) - (__tmp85100 - (let ((__tmp85129 - (let ((__tmp85130 |gx[1]#_g85131_|)) + (cons 'import __tmp85395))) + (__tmp85362 + (let ((__tmp85391 + (let ((__tmp85392 |gx[1]#_g85393_|)) (declare (not safe)) - (cons 'export __tmp85130))) - (__tmp85101 - (let ((__tmp85126 - (let ((__tmp85127 - |gx[1]#_g85128_|)) + (cons 'export __tmp85392))) + (__tmp85363 + (let ((__tmp85388 + (let ((__tmp85389 + |gx[1]#_g85390_|)) (declare (not safe)) - (cons 'e __tmp85127))) - (__tmp85102 - (let ((__tmp85123 - (let ((__tmp85124 - |gx[1]#_g85125_|)) + (cons 'e __tmp85389))) + (__tmp85364 + (let ((__tmp85385 + (let ((__tmp85386 + |gx[1]#_g85387_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85124))) - (__tmp85103 - (let ((__tmp85120 - (let ((__tmp85121 |gx[1]#_g85122_|)) + __tmp85386))) + (__tmp85365 + (let ((__tmp85382 + (let ((__tmp85383 |gx[1]#_g85384_|)) (declare (not safe)) - (cons 'super __tmp85121))) - (__tmp85104 - (let ((__tmp85117 - (let ((__tmp85118 |gx[1]#_g85119_|)) + (cons 'super __tmp85383))) + (__tmp85366 + (let ((__tmp85379 + (let ((__tmp85380 |gx[1]#_g85381_|)) (declare (not safe)) - (cons 'up __tmp85118))) - (__tmp85105 - (let ((__tmp85114 - (let ((__tmp85115 |gx[1]#_g85116_|)) + (cons 'up __tmp85380))) + (__tmp85367 + (let ((__tmp85376 + (let ((__tmp85377 |gx[1]#_g85378_|)) (declare (not safe)) - (cons 'down __tmp85115))) - (__tmp85106 - (let ((__tmp85111 - (let ((__tmp85112 - |gx[1]#_g85113_|)) + (cons 'down __tmp85377))) + (__tmp85368 + (let ((__tmp85373 + (let ((__tmp85374 + |gx[1]#_g85375_|)) (declare (not safe)) - (cons 'id __tmp85112))) - (__tmp85107 - (let ((__tmp85108 - (let ((__tmp85109 - |gx[1]#_g85110_|)) + (cons 'id __tmp85374))) + (__tmp85369 + (let ((__tmp85370 + (let ((__tmp85371 + |gx[1]#_g85372_|)) (declare (not safe)) (cons 'table - __tmp85109)))) + __tmp85371)))) (declare (not safe)) - (cons __tmp85108 '())))) + (cons __tmp85370 '())))) (declare (not safe)) - (cons __tmp85111 __tmp85107)))) + (cons __tmp85373 __tmp85369)))) (declare (not safe)) - (cons __tmp85114 __tmp85106)))) + (cons __tmp85376 __tmp85368)))) (declare (not safe)) - (cons __tmp85117 __tmp85105)))) + (cons __tmp85379 __tmp85367)))) (declare (not safe)) - (cons __tmp85120 __tmp85104)))) + (cons __tmp85382 __tmp85366)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85123 - __tmp85103)))) + (cons __tmp85385 + __tmp85365)))) (declare (not safe)) - (cons __tmp85126 __tmp85102)))) + (cons __tmp85388 __tmp85364)))) (declare (not safe)) - (cons __tmp85129 __tmp85101)))) + (cons __tmp85391 __tmp85363)))) (declare (not safe)) - (cons __tmp85132 __tmp85100)))) + (cons __tmp85394 __tmp85362)))) (declare (not safe)) - (cons __tmp85135 __tmp85099)))) + (cons __tmp85397 __tmp85361)))) (declare (not safe)) - (cons __tmp85138 __tmp85098)))) + (cons __tmp85400 __tmp85360)))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp85097 + __obj85016 + __tmp85359 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85141 - (let ((__tmp85182 - (let ((__tmp85183 |gx[1]#_g85184_|)) + (let ((__tmp85403 + (let ((__tmp85444 + (let ((__tmp85445 |gx[1]#_g85446_|)) (declare (not safe)) - (cons 'ns __tmp85183))) - (__tmp85142 - (let ((__tmp85179 - (let ((__tmp85180 |gx[1]#_g85181_|)) - (declare (not safe)) - (cons 'path __tmp85180))) - (__tmp85143 - (let ((__tmp85176 - (let ((__tmp85177 |gx[1]#_g85178_|)) - (declare (not safe)) - (cons 'import __tmp85177))) - (__tmp85144 - (let ((__tmp85173 - (let ((__tmp85174 |gx[1]#_g85175_|)) + (cons 'ns __tmp85445))) + (__tmp85404 + (let ((__tmp85441 + (let ((__tmp85442 |gx[1]#_g85443_|)) + (declare (not safe)) + (cons 'path __tmp85442))) + (__tmp85405 + (let ((__tmp85438 + (let ((__tmp85439 |gx[1]#_g85440_|)) + (declare (not safe)) + (cons 'import __tmp85439))) + (__tmp85406 + (let ((__tmp85435 + (let ((__tmp85436 |gx[1]#_g85437_|)) (declare (not safe)) - (cons 'export __tmp85174))) - (__tmp85145 - (let ((__tmp85170 - (let ((__tmp85171 - |gx[1]#_g85172_|)) + (cons 'export __tmp85436))) + (__tmp85407 + (let ((__tmp85432 + (let ((__tmp85433 + |gx[1]#_g85434_|)) (declare (not safe)) - (cons 'e __tmp85171))) - (__tmp85146 - (let ((__tmp85167 - (let ((__tmp85168 - |gx[1]#_g85169_|)) + (cons 'e __tmp85433))) + (__tmp85408 + (let ((__tmp85429 + (let ((__tmp85430 + |gx[1]#_g85431_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85168))) - (__tmp85147 - (let ((__tmp85164 - (let ((__tmp85165 |gx[1]#_g85166_|)) + __tmp85430))) + (__tmp85409 + (let ((__tmp85426 + (let ((__tmp85427 |gx[1]#_g85428_|)) (declare (not safe)) - (cons 'super __tmp85165))) - (__tmp85148 - (let ((__tmp85161 - (let ((__tmp85162 |gx[1]#_g85163_|)) + (cons 'super __tmp85427))) + (__tmp85410 + (let ((__tmp85423 + (let ((__tmp85424 |gx[1]#_g85425_|)) (declare (not safe)) - (cons 'up __tmp85162))) - (__tmp85149 - (let ((__tmp85158 - (let ((__tmp85159 |gx[1]#_g85160_|)) + (cons 'up __tmp85424))) + (__tmp85411 + (let ((__tmp85420 + (let ((__tmp85421 |gx[1]#_g85422_|)) (declare (not safe)) - (cons 'down __tmp85159))) - (__tmp85150 - (let ((__tmp85155 - (let ((__tmp85156 - |gx[1]#_g85157_|)) + (cons 'down __tmp85421))) + (__tmp85412 + (let ((__tmp85417 + (let ((__tmp85418 + |gx[1]#_g85419_|)) (declare (not safe)) - (cons 'id __tmp85156))) - (__tmp85151 - (let ((__tmp85152 - (let ((__tmp85153 - |gx[1]#_g85154_|)) + (cons 'id __tmp85418))) + (__tmp85413 + (let ((__tmp85414 + (let ((__tmp85415 + |gx[1]#_g85416_|)) (declare (not safe)) (cons 'table - __tmp85153)))) + __tmp85415)))) (declare (not safe)) - (cons __tmp85152 '())))) + (cons __tmp85414 '())))) (declare (not safe)) - (cons __tmp85155 __tmp85151)))) + (cons __tmp85417 __tmp85413)))) (declare (not safe)) - (cons __tmp85158 __tmp85150)))) + (cons __tmp85420 __tmp85412)))) (declare (not safe)) - (cons __tmp85161 __tmp85149)))) + (cons __tmp85423 __tmp85411)))) (declare (not safe)) - (cons __tmp85164 __tmp85148)))) + (cons __tmp85426 __tmp85410)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85167 - __tmp85147)))) + (cons __tmp85429 + __tmp85409)))) (declare (not safe)) - (cons __tmp85170 __tmp85146)))) + (cons __tmp85432 __tmp85408)))) (declare (not safe)) - (cons __tmp85173 __tmp85145)))) + (cons __tmp85435 __tmp85407)))) (declare (not safe)) - (cons __tmp85176 __tmp85144)))) + (cons __tmp85438 __tmp85406)))) (declare (not safe)) - (cons __tmp85179 __tmp85143)))) + (cons __tmp85441 __tmp85405)))) (declare (not safe)) - (cons __tmp85182 __tmp85142)))) + (cons __tmp85444 __tmp85404)))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp85141 + __obj85016 + __tmp85403 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85185 - (let ((__tmp85226 - (let ((__tmp85227 |gx[1]#_g85228_|)) + (let ((__tmp85447 + (let ((__tmp85488 + (let ((__tmp85489 |gx[1]#_g85490_|)) (declare (not safe)) - (cons 'ns __tmp85227))) - (__tmp85186 - (let ((__tmp85223 - (let ((__tmp85224 |gx[1]#_g85225_|)) + (cons 'ns __tmp85489))) + (__tmp85448 + (let ((__tmp85485 + (let ((__tmp85486 |gx[1]#_g85487_|)) (declare (not safe)) - (cons 'path __tmp85224))) - (__tmp85187 - (let ((__tmp85220 - (let ((__tmp85221 |gx[1]#_g85222_|)) + (cons 'path __tmp85486))) + (__tmp85449 + (let ((__tmp85482 + (let ((__tmp85483 |gx[1]#_g85484_|)) (declare (not safe)) - (cons 'import __tmp85221))) - (__tmp85188 - (let ((__tmp85217 - (let ((__tmp85218 |gx[1]#_g85219_|)) + (cons 'import __tmp85483))) + (__tmp85450 + (let ((__tmp85479 + (let ((__tmp85480 |gx[1]#_g85481_|)) (declare (not safe)) - (cons 'export __tmp85218))) - (__tmp85189 - (let ((__tmp85214 - (let ((__tmp85215 - |gx[1]#_g85216_|)) + (cons 'export __tmp85480))) + (__tmp85451 + (let ((__tmp85476 + (let ((__tmp85477 + |gx[1]#_g85478_|)) (declare (not safe)) - (cons 'e __tmp85215))) - (__tmp85190 - (let ((__tmp85211 - (let ((__tmp85212 - |gx[1]#_g85213_|)) + (cons 'e __tmp85477))) + (__tmp85452 + (let ((__tmp85473 + (let ((__tmp85474 + |gx[1]#_g85475_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85212))) - (__tmp85191 - (let ((__tmp85208 - (let ((__tmp85209 |gx[1]#_g85210_|)) + __tmp85474))) + (__tmp85453 + (let ((__tmp85470 + (let ((__tmp85471 |gx[1]#_g85472_|)) (declare (not safe)) - (cons 'super __tmp85209))) - (__tmp85192 - (let ((__tmp85205 - (let ((__tmp85206 |gx[1]#_g85207_|)) + (cons 'super __tmp85471))) + (__tmp85454 + (let ((__tmp85467 + (let ((__tmp85468 |gx[1]#_g85469_|)) (declare (not safe)) - (cons 'up __tmp85206))) - (__tmp85193 - (let ((__tmp85202 - (let ((__tmp85203 |gx[1]#_g85204_|)) + (cons 'up __tmp85468))) + (__tmp85455 + (let ((__tmp85464 + (let ((__tmp85465 |gx[1]#_g85466_|)) (declare (not safe)) - (cons 'down __tmp85203))) - (__tmp85194 - (let ((__tmp85199 - (let ((__tmp85200 - |gx[1]#_g85201_|)) + (cons 'down __tmp85465))) + (__tmp85456 + (let ((__tmp85461 + (let ((__tmp85462 + |gx[1]#_g85463_|)) (declare (not safe)) - (cons 'id __tmp85200))) - (__tmp85195 - (let ((__tmp85196 - (let ((__tmp85197 - |gx[1]#_g85198_|)) + (cons 'id __tmp85462))) + (__tmp85457 + (let ((__tmp85458 + (let ((__tmp85459 + |gx[1]#_g85460_|)) (declare (not safe)) (cons 'table - __tmp85197)))) + __tmp85459)))) (declare (not safe)) - (cons __tmp85196 '())))) + (cons __tmp85458 '())))) (declare (not safe)) - (cons __tmp85199 __tmp85195)))) + (cons __tmp85461 __tmp85457)))) (declare (not safe)) - (cons __tmp85202 __tmp85194)))) + (cons __tmp85464 __tmp85456)))) (declare (not safe)) - (cons __tmp85205 __tmp85193)))) + (cons __tmp85467 __tmp85455)))) (declare (not safe)) - (cons __tmp85208 __tmp85192)))) + (cons __tmp85470 __tmp85454)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85211 - __tmp85191)))) + (cons __tmp85473 + __tmp85453)))) (declare (not safe)) - (cons __tmp85214 __tmp85190)))) + (cons __tmp85476 __tmp85452)))) (declare (not safe)) - (cons __tmp85217 __tmp85189)))) + (cons __tmp85479 __tmp85451)))) (declare (not safe)) - (cons __tmp85220 __tmp85188)))) + (cons __tmp85482 __tmp85450)))) (declare (not safe)) - (cons __tmp85223 __tmp85187)))) + (cons __tmp85485 __tmp85449)))) (declare (not safe)) - (cons __tmp85226 __tmp85186)))) + (cons __tmp85488 __tmp85448)))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp85185 + __obj85016 + __tmp85447 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85229 - (let ((__tmp85270 - (let ((__tmp85271 |gx[1]#_g85272_|)) + (let ((__tmp85491 + (let ((__tmp85532 + (let ((__tmp85533 |gx[1]#_g85534_|)) (declare (not safe)) - (cons 'ns __tmp85271))) - (__tmp85230 - (let ((__tmp85267 - (let ((__tmp85268 |gx[1]#_g85269_|)) + (cons 'ns __tmp85533))) + (__tmp85492 + (let ((__tmp85529 + (let ((__tmp85530 |gx[1]#_g85531_|)) (declare (not safe)) - (cons 'path __tmp85268))) - (__tmp85231 - (let ((__tmp85264 - (let ((__tmp85265 |gx[1]#_g85266_|)) + (cons 'path __tmp85530))) + (__tmp85493 + (let ((__tmp85526 + (let ((__tmp85527 |gx[1]#_g85528_|)) (declare (not safe)) - (cons 'import __tmp85265))) - (__tmp85232 - (let ((__tmp85261 - (let ((__tmp85262 |gx[1]#_g85263_|)) + (cons 'import __tmp85527))) + (__tmp85494 + (let ((__tmp85523 + (let ((__tmp85524 |gx[1]#_g85525_|)) (declare (not safe)) - (cons 'export __tmp85262))) - (__tmp85233 - (let ((__tmp85258 - (let ((__tmp85259 - |gx[1]#_g85260_|)) + (cons 'export __tmp85524))) + (__tmp85495 + (let ((__tmp85520 + (let ((__tmp85521 + |gx[1]#_g85522_|)) (declare (not safe)) - (cons 'e __tmp85259))) - (__tmp85234 - (let ((__tmp85255 - (let ((__tmp85256 - |gx[1]#_g85257_|)) + (cons 'e __tmp85521))) + (__tmp85496 + (let ((__tmp85517 + (let ((__tmp85518 + |gx[1]#_g85519_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85256))) - (__tmp85235 - (let ((__tmp85252 - (let ((__tmp85253 |gx[1]#_g85254_|)) + __tmp85518))) + (__tmp85497 + (let ((__tmp85514 + (let ((__tmp85515 |gx[1]#_g85516_|)) (declare (not safe)) - (cons 'super __tmp85253))) - (__tmp85236 - (let ((__tmp85249 - (let ((__tmp85250 |gx[1]#_g85251_|)) + (cons 'super __tmp85515))) + (__tmp85498 + (let ((__tmp85511 + (let ((__tmp85512 |gx[1]#_g85513_|)) (declare (not safe)) - (cons 'up __tmp85250))) - (__tmp85237 - (let ((__tmp85246 - (let ((__tmp85247 |gx[1]#_g85248_|)) + (cons 'up __tmp85512))) + (__tmp85499 + (let ((__tmp85508 + (let ((__tmp85509 |gx[1]#_g85510_|)) (declare (not safe)) - (cons 'down __tmp85247))) - (__tmp85238 - (let ((__tmp85243 - (let ((__tmp85244 - |gx[1]#_g85245_|)) + (cons 'down __tmp85509))) + (__tmp85500 + (let ((__tmp85505 + (let ((__tmp85506 + |gx[1]#_g85507_|)) (declare (not safe)) - (cons 'id __tmp85244))) - (__tmp85239 - (let ((__tmp85240 - (let ((__tmp85241 - |gx[1]#_g85242_|)) + (cons 'id __tmp85506))) + (__tmp85501 + (let ((__tmp85502 + (let ((__tmp85503 + |gx[1]#_g85504_|)) (declare (not safe)) (cons 'table - __tmp85241)))) + __tmp85503)))) (declare (not safe)) - (cons __tmp85240 '())))) + (cons __tmp85502 '())))) (declare (not safe)) - (cons __tmp85243 __tmp85239)))) + (cons __tmp85505 __tmp85501)))) (declare (not safe)) - (cons __tmp85246 __tmp85238)))) + (cons __tmp85508 __tmp85500)))) (declare (not safe)) - (cons __tmp85249 __tmp85237)))) + (cons __tmp85511 __tmp85499)))) (declare (not safe)) - (cons __tmp85252 __tmp85236)))) + (cons __tmp85514 __tmp85498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85255 - __tmp85235)))) + (cons __tmp85517 + __tmp85497)))) (declare (not safe)) - (cons __tmp85258 __tmp85234)))) + (cons __tmp85520 __tmp85496)))) (declare (not safe)) - (cons __tmp85261 __tmp85233)))) + (cons __tmp85523 __tmp85495)))) (declare (not safe)) - (cons __tmp85264 __tmp85232)))) + (cons __tmp85526 __tmp85494)))) (declare (not safe)) - (cons __tmp85267 __tmp85231)))) + (cons __tmp85529 __tmp85493)))) (declare (not safe)) - (cons __tmp85270 __tmp85230)))) + (cons __tmp85532 __tmp85492)))) (declare (not safe)) (##unchecked-structure-set! - __obj84754 - __tmp85229 + __obj85016 + __tmp85491 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84754)) + __obj85016)) (define |gx[:0:]#prelude-context| - (let ((__obj84755 + (let ((__obj85017 (let () (declare (not safe)) (##structure @@ -5041,7 +5041,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj85017 'gx#prelude-context::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5049,7 +5049,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj85017 'prelude-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5057,26 +5057,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj85017 '(path import e) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85273 - (let ((__tmp85274 |gx[1]#_g85090_|)) + (let ((__tmp85535 + (let ((__tmp85536 |gx[1]#_g85352_|)) (declare (not safe)) - (cons __tmp85274 '())))) + (cons __tmp85536 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp85273 + __obj85017 + __tmp85535 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj85017 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5084,7 +5084,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj85017 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5092,7 +5092,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj85017 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5100,314 +5100,314 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84755 + __obj85017 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85275 |gx[1]#_g85276_|)) + (let ((__tmp85537 |gx[1]#_g85538_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp85275 + __obj85017 + __tmp85537 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85277 |gx[1]#_g85278_|)) + (let ((__tmp85539 |gx[1]#_g85540_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp85277 + __obj85017 + __tmp85539 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85279 |gx[1]#_g85280_|)) + (let ((__tmp85541 |gx[1]#_g85542_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp85279 + __obj85017 + __tmp85541 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85281 - (let ((__tmp85310 - (let ((__tmp85311 |gx[1]#_g85312_|)) + (let ((__tmp85543 + (let ((__tmp85572 + (let ((__tmp85573 |gx[1]#_g85574_|)) (declare (not safe)) - (cons 'path __tmp85311))) - (__tmp85282 - (let ((__tmp85307 - (let ((__tmp85308 |gx[1]#_g85309_|)) + (cons 'path __tmp85573))) + (__tmp85544 + (let ((__tmp85569 + (let ((__tmp85570 |gx[1]#_g85571_|)) (declare (not safe)) - (cons 'import __tmp85308))) - (__tmp85283 - (let ((__tmp85304 - (let ((__tmp85305 |gx[1]#_g85306_|)) + (cons 'import __tmp85570))) + (__tmp85545 + (let ((__tmp85566 + (let ((__tmp85567 |gx[1]#_g85568_|)) (declare (not safe)) - (cons 'e __tmp85305))) - (__tmp85284 - (let ((__tmp85301 - (let ((__tmp85302 |gx[1]#_g85303_|)) + (cons 'e __tmp85567))) + (__tmp85546 + (let ((__tmp85563 + (let ((__tmp85564 |gx[1]#_g85565_|)) (declare (not safe)) - (cons 'super __tmp85302))) - (__tmp85285 - (let ((__tmp85298 - (let ((__tmp85299 - |gx[1]#_g85300_|)) + (cons 'super __tmp85564))) + (__tmp85547 + (let ((__tmp85560 + (let ((__tmp85561 + |gx[1]#_g85562_|)) (declare (not safe)) - (cons 'up __tmp85299))) - (__tmp85286 - (let ((__tmp85295 - (let ((__tmp85296 - |gx[1]#_g85297_|)) + (cons 'up __tmp85561))) + (__tmp85548 + (let ((__tmp85557 + (let ((__tmp85558 + |gx[1]#_g85559_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85296))) - (__tmp85287 - (let ((__tmp85292 - (let ((__tmp85293 |gx[1]#_g85294_|)) + __tmp85558))) + (__tmp85549 + (let ((__tmp85554 + (let ((__tmp85555 |gx[1]#_g85556_|)) (declare (not safe)) - (cons 'id __tmp85293))) - (__tmp85288 - (let ((__tmp85289 - (let ((__tmp85290 |gx[1]#_g85291_|)) + (cons 'id __tmp85555))) + (__tmp85550 + (let ((__tmp85551 + (let ((__tmp85552 |gx[1]#_g85553_|)) (declare (not safe)) - (cons 'table __tmp85290)))) + (cons 'table __tmp85552)))) (declare (not safe)) - (cons __tmp85289 '())))) + (cons __tmp85551 '())))) (declare (not safe)) - (cons __tmp85292 __tmp85288)))) + (cons __tmp85554 __tmp85550)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85295 - __tmp85287)))) + (cons __tmp85557 + __tmp85549)))) (declare (not safe)) - (cons __tmp85298 __tmp85286)))) + (cons __tmp85560 __tmp85548)))) (declare (not safe)) - (cons __tmp85301 __tmp85285)))) + (cons __tmp85563 __tmp85547)))) (declare (not safe)) - (cons __tmp85304 __tmp85284)))) + (cons __tmp85566 __tmp85546)))) (declare (not safe)) - (cons __tmp85307 __tmp85283)))) + (cons __tmp85569 __tmp85545)))) (declare (not safe)) - (cons __tmp85310 __tmp85282)))) + (cons __tmp85572 __tmp85544)))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp85281 + __obj85017 + __tmp85543 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85313 - (let ((__tmp85342 - (let ((__tmp85343 |gx[1]#_g85344_|)) + (let ((__tmp85575 + (let ((__tmp85604 + (let ((__tmp85605 |gx[1]#_g85606_|)) (declare (not safe)) - (cons 'path __tmp85343))) - (__tmp85314 - (let ((__tmp85339 - (let ((__tmp85340 |gx[1]#_g85341_|)) + (cons 'path __tmp85605))) + (__tmp85576 + (let ((__tmp85601 + (let ((__tmp85602 |gx[1]#_g85603_|)) (declare (not safe)) - (cons 'import __tmp85340))) - (__tmp85315 - (let ((__tmp85336 - (let ((__tmp85337 |gx[1]#_g85338_|)) + (cons 'import __tmp85602))) + (__tmp85577 + (let ((__tmp85598 + (let ((__tmp85599 |gx[1]#_g85600_|)) (declare (not safe)) - (cons 'e __tmp85337))) - (__tmp85316 - (let ((__tmp85333 - (let ((__tmp85334 |gx[1]#_g85335_|)) + (cons 'e __tmp85599))) + (__tmp85578 + (let ((__tmp85595 + (let ((__tmp85596 |gx[1]#_g85597_|)) (declare (not safe)) - (cons 'super __tmp85334))) - (__tmp85317 - (let ((__tmp85330 - (let ((__tmp85331 - |gx[1]#_g85332_|)) + (cons 'super __tmp85596))) + (__tmp85579 + (let ((__tmp85592 + (let ((__tmp85593 + |gx[1]#_g85594_|)) (declare (not safe)) - (cons 'up __tmp85331))) - (__tmp85318 - (let ((__tmp85327 - (let ((__tmp85328 - |gx[1]#_g85329_|)) + (cons 'up __tmp85593))) + (__tmp85580 + (let ((__tmp85589 + (let ((__tmp85590 + |gx[1]#_g85591_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85328))) - (__tmp85319 - (let ((__tmp85324 - (let ((__tmp85325 |gx[1]#_g85326_|)) + __tmp85590))) + (__tmp85581 + (let ((__tmp85586 + (let ((__tmp85587 |gx[1]#_g85588_|)) (declare (not safe)) - (cons 'id __tmp85325))) - (__tmp85320 - (let ((__tmp85321 - (let ((__tmp85322 |gx[1]#_g85323_|)) + (cons 'id __tmp85587))) + (__tmp85582 + (let ((__tmp85583 + (let ((__tmp85584 |gx[1]#_g85585_|)) (declare (not safe)) - (cons 'table __tmp85322)))) + (cons 'table __tmp85584)))) (declare (not safe)) - (cons __tmp85321 '())))) + (cons __tmp85583 '())))) (declare (not safe)) - (cons __tmp85324 __tmp85320)))) + (cons __tmp85586 __tmp85582)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85327 - __tmp85319)))) + (cons __tmp85589 + __tmp85581)))) (declare (not safe)) - (cons __tmp85330 __tmp85318)))) + (cons __tmp85592 __tmp85580)))) (declare (not safe)) - (cons __tmp85333 __tmp85317)))) + (cons __tmp85595 __tmp85579)))) (declare (not safe)) - (cons __tmp85336 __tmp85316)))) + (cons __tmp85598 __tmp85578)))) (declare (not safe)) - (cons __tmp85339 __tmp85315)))) + (cons __tmp85601 __tmp85577)))) (declare (not safe)) - (cons __tmp85342 __tmp85314)))) + (cons __tmp85604 __tmp85576)))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp85313 + __obj85017 + __tmp85575 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85345 - (let ((__tmp85374 - (let ((__tmp85375 |gx[1]#_g85376_|)) + (let ((__tmp85607 + (let ((__tmp85636 + (let ((__tmp85637 |gx[1]#_g85638_|)) (declare (not safe)) - (cons 'path __tmp85375))) - (__tmp85346 - (let ((__tmp85371 - (let ((__tmp85372 |gx[1]#_g85373_|)) + (cons 'path __tmp85637))) + (__tmp85608 + (let ((__tmp85633 + (let ((__tmp85634 |gx[1]#_g85635_|)) (declare (not safe)) - (cons 'import __tmp85372))) - (__tmp85347 - (let ((__tmp85368 - (let ((__tmp85369 |gx[1]#_g85370_|)) + (cons 'import __tmp85634))) + (__tmp85609 + (let ((__tmp85630 + (let ((__tmp85631 |gx[1]#_g85632_|)) (declare (not safe)) - (cons 'e __tmp85369))) - (__tmp85348 - (let ((__tmp85365 - (let ((__tmp85366 |gx[1]#_g85367_|)) + (cons 'e __tmp85631))) + (__tmp85610 + (let ((__tmp85627 + (let ((__tmp85628 |gx[1]#_g85629_|)) (declare (not safe)) - (cons 'super __tmp85366))) - (__tmp85349 - (let ((__tmp85362 - (let ((__tmp85363 - |gx[1]#_g85364_|)) + (cons 'super __tmp85628))) + (__tmp85611 + (let ((__tmp85624 + (let ((__tmp85625 + |gx[1]#_g85626_|)) (declare (not safe)) - (cons 'up __tmp85363))) - (__tmp85350 - (let ((__tmp85359 - (let ((__tmp85360 - |gx[1]#_g85361_|)) + (cons 'up __tmp85625))) + (__tmp85612 + (let ((__tmp85621 + (let ((__tmp85622 + |gx[1]#_g85623_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85360))) - (__tmp85351 - (let ((__tmp85356 - (let ((__tmp85357 |gx[1]#_g85358_|)) + __tmp85622))) + (__tmp85613 + (let ((__tmp85618 + (let ((__tmp85619 |gx[1]#_g85620_|)) (declare (not safe)) - (cons 'id __tmp85357))) - (__tmp85352 - (let ((__tmp85353 - (let ((__tmp85354 |gx[1]#_g85355_|)) + (cons 'id __tmp85619))) + (__tmp85614 + (let ((__tmp85615 + (let ((__tmp85616 |gx[1]#_g85617_|)) (declare (not safe)) - (cons 'table __tmp85354)))) + (cons 'table __tmp85616)))) (declare (not safe)) - (cons __tmp85353 '())))) + (cons __tmp85615 '())))) (declare (not safe)) - (cons __tmp85356 __tmp85352)))) + (cons __tmp85618 __tmp85614)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85359 - __tmp85351)))) + (cons __tmp85621 + __tmp85613)))) (declare (not safe)) - (cons __tmp85362 __tmp85350)))) + (cons __tmp85624 __tmp85612)))) (declare (not safe)) - (cons __tmp85365 __tmp85349)))) + (cons __tmp85627 __tmp85611)))) (declare (not safe)) - (cons __tmp85368 __tmp85348)))) + (cons __tmp85630 __tmp85610)))) (declare (not safe)) - (cons __tmp85371 __tmp85347)))) + (cons __tmp85633 __tmp85609)))) (declare (not safe)) - (cons __tmp85374 __tmp85346)))) + (cons __tmp85636 __tmp85608)))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp85345 + __obj85017 + __tmp85607 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85377 - (let ((__tmp85406 - (let ((__tmp85407 |gx[1]#_g85408_|)) + (let ((__tmp85639 + (let ((__tmp85668 + (let ((__tmp85669 |gx[1]#_g85670_|)) (declare (not safe)) - (cons 'path __tmp85407))) - (__tmp85378 - (let ((__tmp85403 - (let ((__tmp85404 |gx[1]#_g85405_|)) + (cons 'path __tmp85669))) + (__tmp85640 + (let ((__tmp85665 + (let ((__tmp85666 |gx[1]#_g85667_|)) (declare (not safe)) - (cons 'import __tmp85404))) - (__tmp85379 - (let ((__tmp85400 - (let ((__tmp85401 |gx[1]#_g85402_|)) + (cons 'import __tmp85666))) + (__tmp85641 + (let ((__tmp85662 + (let ((__tmp85663 |gx[1]#_g85664_|)) (declare (not safe)) - (cons 'e __tmp85401))) - (__tmp85380 - (let ((__tmp85397 - (let ((__tmp85398 |gx[1]#_g85399_|)) + (cons 'e __tmp85663))) + (__tmp85642 + (let ((__tmp85659 + (let ((__tmp85660 |gx[1]#_g85661_|)) (declare (not safe)) - (cons 'super __tmp85398))) - (__tmp85381 - (let ((__tmp85394 - (let ((__tmp85395 - |gx[1]#_g85396_|)) + (cons 'super __tmp85660))) + (__tmp85643 + (let ((__tmp85656 + (let ((__tmp85657 + |gx[1]#_g85658_|)) (declare (not safe)) - (cons 'up __tmp85395))) - (__tmp85382 - (let ((__tmp85391 - (let ((__tmp85392 - |gx[1]#_g85393_|)) + (cons 'up __tmp85657))) + (__tmp85644 + (let ((__tmp85653 + (let ((__tmp85654 + |gx[1]#_g85655_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85392))) - (__tmp85383 - (let ((__tmp85388 - (let ((__tmp85389 |gx[1]#_g85390_|)) + __tmp85654))) + (__tmp85645 + (let ((__tmp85650 + (let ((__tmp85651 |gx[1]#_g85652_|)) (declare (not safe)) - (cons 'id __tmp85389))) - (__tmp85384 - (let ((__tmp85385 - (let ((__tmp85386 |gx[1]#_g85387_|)) + (cons 'id __tmp85651))) + (__tmp85646 + (let ((__tmp85647 + (let ((__tmp85648 |gx[1]#_g85649_|)) (declare (not safe)) - (cons 'table __tmp85386)))) + (cons 'table __tmp85648)))) (declare (not safe)) - (cons __tmp85385 '())))) + (cons __tmp85647 '())))) (declare (not safe)) - (cons __tmp85388 __tmp85384)))) + (cons __tmp85650 __tmp85646)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85391 - __tmp85383)))) + (cons __tmp85653 + __tmp85645)))) (declare (not safe)) - (cons __tmp85394 __tmp85382)))) + (cons __tmp85656 __tmp85644)))) (declare (not safe)) - (cons __tmp85397 __tmp85381)))) + (cons __tmp85659 __tmp85643)))) (declare (not safe)) - (cons __tmp85400 __tmp85380)))) + (cons __tmp85662 __tmp85642)))) (declare (not safe)) - (cons __tmp85403 __tmp85379)))) + (cons __tmp85665 __tmp85641)))) (declare (not safe)) - (cons __tmp85406 __tmp85378)))) + (cons __tmp85668 __tmp85640)))) (declare (not safe)) (##unchecked-structure-set! - __obj84755 - __tmp85377 + __obj85017 + __tmp85639 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84755)) + __obj85017)) (define |gx[:0:]#local-context| - (let ((__obj84756 + (let ((__obj85018 (let () (declare (not safe)) (##structure @@ -5430,7 +5430,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj85018 'gx#local-context::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5438,7 +5438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj85018 'local-context '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5446,26 +5446,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj85018 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85409 - (let ((__tmp85410 |gx[1]#_g85001_|)) + (let ((__tmp85671 + (let ((__tmp85672 |gx[1]#_g85263_|)) (declare (not safe)) - (cons __tmp85410 '())))) + (cons __tmp85672 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85409 + __obj85018 + __tmp85671 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj85018 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5473,7 +5473,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj85018 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5481,7 +5481,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj85018 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5489,210 +5489,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84756 + __obj85018 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85411 |gx[1]#_g85412_|)) + (let ((__tmp85673 |gx[1]#_g85674_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85411 + __obj85018 + __tmp85673 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85413 |gx[1]#_g85414_|)) + (let ((__tmp85675 |gx[1]#_g85676_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85413 + __obj85018 + __tmp85675 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85415 |gx[1]#_g85416_|)) + (let ((__tmp85677 |gx[1]#_g85678_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85415 + __obj85018 + __tmp85677 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85417 - (let ((__tmp85434 - (let ((__tmp85435 |gx[1]#_g85436_|)) + (let ((__tmp85679 + (let ((__tmp85696 + (let ((__tmp85697 |gx[1]#_g85698_|)) (declare (not safe)) - (cons 'super __tmp85435))) - (__tmp85418 - (let ((__tmp85431 - (let ((__tmp85432 |gx[1]#_g85433_|)) + (cons 'super __tmp85697))) + (__tmp85680 + (let ((__tmp85693 + (let ((__tmp85694 |gx[1]#_g85695_|)) (declare (not safe)) - (cons 'up __tmp85432))) - (__tmp85419 - (let ((__tmp85428 - (let ((__tmp85429 |gx[1]#_g85430_|)) + (cons 'up __tmp85694))) + (__tmp85681 + (let ((__tmp85690 + (let ((__tmp85691 |gx[1]#_g85692_|)) (declare (not safe)) - (cons 'down __tmp85429))) - (__tmp85420 - (let ((__tmp85425 - (let ((__tmp85426 |gx[1]#_g85427_|)) + (cons 'down __tmp85691))) + (__tmp85682 + (let ((__tmp85687 + (let ((__tmp85688 |gx[1]#_g85689_|)) (declare (not safe)) - (cons 'id __tmp85426))) - (__tmp85421 - (let ((__tmp85422 - (let ((__tmp85423 - |gx[1]#_g85424_|)) + (cons 'id __tmp85688))) + (__tmp85683 + (let ((__tmp85684 + (let ((__tmp85685 + |gx[1]#_g85686_|)) (declare (not safe)) - (cons 'table __tmp85423)))) + (cons 'table __tmp85685)))) (declare (not safe)) - (cons __tmp85422 '())))) + (cons __tmp85684 '())))) (declare (not safe)) - (cons __tmp85425 __tmp85421)))) + (cons __tmp85687 __tmp85683)))) (declare (not safe)) - (cons __tmp85428 __tmp85420)))) + (cons __tmp85690 __tmp85682)))) (declare (not safe)) - (cons __tmp85431 __tmp85419)))) + (cons __tmp85693 __tmp85681)))) (declare (not safe)) - (cons __tmp85434 __tmp85418)))) + (cons __tmp85696 __tmp85680)))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85417 + __obj85018 + __tmp85679 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85437 - (let ((__tmp85454 - (let ((__tmp85455 |gx[1]#_g85456_|)) + (let ((__tmp85699 + (let ((__tmp85716 + (let ((__tmp85717 |gx[1]#_g85718_|)) (declare (not safe)) - (cons 'super __tmp85455))) - (__tmp85438 - (let ((__tmp85451 - (let ((__tmp85452 |gx[1]#_g85453_|)) + (cons 'super __tmp85717))) + (__tmp85700 + (let ((__tmp85713 + (let ((__tmp85714 |gx[1]#_g85715_|)) (declare (not safe)) - (cons 'up __tmp85452))) - (__tmp85439 - (let ((__tmp85448 - (let ((__tmp85449 |gx[1]#_g85450_|)) + (cons 'up __tmp85714))) + (__tmp85701 + (let ((__tmp85710 + (let ((__tmp85711 |gx[1]#_g85712_|)) (declare (not safe)) - (cons 'down __tmp85449))) - (__tmp85440 - (let ((__tmp85445 - (let ((__tmp85446 |gx[1]#_g85447_|)) + (cons 'down __tmp85711))) + (__tmp85702 + (let ((__tmp85707 + (let ((__tmp85708 |gx[1]#_g85709_|)) (declare (not safe)) - (cons 'id __tmp85446))) - (__tmp85441 - (let ((__tmp85442 - (let ((__tmp85443 - |gx[1]#_g85444_|)) + (cons 'id __tmp85708))) + (__tmp85703 + (let ((__tmp85704 + (let ((__tmp85705 + |gx[1]#_g85706_|)) (declare (not safe)) - (cons 'table __tmp85443)))) + (cons 'table __tmp85705)))) (declare (not safe)) - (cons __tmp85442 '())))) + (cons __tmp85704 '())))) (declare (not safe)) - (cons __tmp85445 __tmp85441)))) + (cons __tmp85707 __tmp85703)))) (declare (not safe)) - (cons __tmp85448 __tmp85440)))) + (cons __tmp85710 __tmp85702)))) (declare (not safe)) - (cons __tmp85451 __tmp85439)))) + (cons __tmp85713 __tmp85701)))) (declare (not safe)) - (cons __tmp85454 __tmp85438)))) + (cons __tmp85716 __tmp85700)))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85437 + __obj85018 + __tmp85699 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85457 - (let ((__tmp85474 - (let ((__tmp85475 |gx[1]#_g85476_|)) + (let ((__tmp85719 + (let ((__tmp85736 + (let ((__tmp85737 |gx[1]#_g85738_|)) (declare (not safe)) - (cons 'super __tmp85475))) - (__tmp85458 - (let ((__tmp85471 - (let ((__tmp85472 |gx[1]#_g85473_|)) + (cons 'super __tmp85737))) + (__tmp85720 + (let ((__tmp85733 + (let ((__tmp85734 |gx[1]#_g85735_|)) (declare (not safe)) - (cons 'up __tmp85472))) - (__tmp85459 - (let ((__tmp85468 - (let ((__tmp85469 |gx[1]#_g85470_|)) + (cons 'up __tmp85734))) + (__tmp85721 + (let ((__tmp85730 + (let ((__tmp85731 |gx[1]#_g85732_|)) (declare (not safe)) - (cons 'down __tmp85469))) - (__tmp85460 - (let ((__tmp85465 - (let ((__tmp85466 |gx[1]#_g85467_|)) + (cons 'down __tmp85731))) + (__tmp85722 + (let ((__tmp85727 + (let ((__tmp85728 |gx[1]#_g85729_|)) (declare (not safe)) - (cons 'id __tmp85466))) - (__tmp85461 - (let ((__tmp85462 - (let ((__tmp85463 - |gx[1]#_g85464_|)) + (cons 'id __tmp85728))) + (__tmp85723 + (let ((__tmp85724 + (let ((__tmp85725 + |gx[1]#_g85726_|)) (declare (not safe)) - (cons 'table __tmp85463)))) + (cons 'table __tmp85725)))) (declare (not safe)) - (cons __tmp85462 '())))) + (cons __tmp85724 '())))) (declare (not safe)) - (cons __tmp85465 __tmp85461)))) + (cons __tmp85727 __tmp85723)))) (declare (not safe)) - (cons __tmp85468 __tmp85460)))) + (cons __tmp85730 __tmp85722)))) (declare (not safe)) - (cons __tmp85471 __tmp85459)))) + (cons __tmp85733 __tmp85721)))) (declare (not safe)) - (cons __tmp85474 __tmp85458)))) + (cons __tmp85736 __tmp85720)))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85457 + __obj85018 + __tmp85719 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85477 - (let ((__tmp85494 - (let ((__tmp85495 |gx[1]#_g85496_|)) + (let ((__tmp85739 + (let ((__tmp85756 + (let ((__tmp85757 |gx[1]#_g85758_|)) (declare (not safe)) - (cons 'super __tmp85495))) - (__tmp85478 - (let ((__tmp85491 - (let ((__tmp85492 |gx[1]#_g85493_|)) + (cons 'super __tmp85757))) + (__tmp85740 + (let ((__tmp85753 + (let ((__tmp85754 |gx[1]#_g85755_|)) (declare (not safe)) - (cons 'up __tmp85492))) - (__tmp85479 - (let ((__tmp85488 - (let ((__tmp85489 |gx[1]#_g85490_|)) + (cons 'up __tmp85754))) + (__tmp85741 + (let ((__tmp85750 + (let ((__tmp85751 |gx[1]#_g85752_|)) (declare (not safe)) - (cons 'down __tmp85489))) - (__tmp85480 - (let ((__tmp85485 - (let ((__tmp85486 |gx[1]#_g85487_|)) + (cons 'down __tmp85751))) + (__tmp85742 + (let ((__tmp85747 + (let ((__tmp85748 |gx[1]#_g85749_|)) (declare (not safe)) - (cons 'id __tmp85486))) - (__tmp85481 - (let ((__tmp85482 - (let ((__tmp85483 - |gx[1]#_g85484_|)) + (cons 'id __tmp85748))) + (__tmp85743 + (let ((__tmp85744 + (let ((__tmp85745 + |gx[1]#_g85746_|)) (declare (not safe)) - (cons 'table __tmp85483)))) + (cons 'table __tmp85745)))) (declare (not safe)) - (cons __tmp85482 '())))) + (cons __tmp85744 '())))) (declare (not safe)) - (cons __tmp85485 __tmp85481)))) + (cons __tmp85747 __tmp85743)))) (declare (not safe)) - (cons __tmp85488 __tmp85480)))) + (cons __tmp85750 __tmp85742)))) (declare (not safe)) - (cons __tmp85491 __tmp85479)))) + (cons __tmp85753 __tmp85741)))) (declare (not safe)) - (cons __tmp85494 __tmp85478)))) + (cons __tmp85756 __tmp85740)))) (declare (not safe)) (##unchecked-structure-set! - __obj84756 - __tmp85477 + __obj85018 + __tmp85739 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84756)) + __obj85018)) (define |gx[:0:]#binding| - (let ((__obj84757 + (let ((__obj85019 (let () (declare (not safe)) (##structure @@ -5715,7 +5715,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj85019 'gx#binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5723,7 +5723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj85019 'binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5731,7 +5731,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj85019 '(id key phi) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5739,7 +5739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj85019 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5747,7 +5747,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj85019 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5755,7 +5755,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj85019 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5763,7 +5763,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj85019 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5771,150 +5771,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84757 + __obj85019 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85497 |gx[1]#_g85498_|)) + (let ((__tmp85759 |gx[1]#_g85760_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85497 + __obj85019 + __tmp85759 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85499 |gx[1]#_g85500_|)) + (let ((__tmp85761 |gx[1]#_g85762_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85499 + __obj85019 + __tmp85761 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85501 |gx[1]#_g85502_|)) + (let ((__tmp85763 |gx[1]#_g85764_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85501 + __obj85019 + __tmp85763 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85503 - (let ((__tmp85512 - (let ((__tmp85513 |gx[1]#_g85514_|)) + (let ((__tmp85765 + (let ((__tmp85774 + (let ((__tmp85775 |gx[1]#_g85776_|)) (declare (not safe)) - (cons 'id __tmp85513))) - (__tmp85504 - (let ((__tmp85509 - (let ((__tmp85510 |gx[1]#_g85511_|)) + (cons 'id __tmp85775))) + (__tmp85766 + (let ((__tmp85771 + (let ((__tmp85772 |gx[1]#_g85773_|)) (declare (not safe)) - (cons 'key __tmp85510))) - (__tmp85505 - (let ((__tmp85506 - (let ((__tmp85507 |gx[1]#_g85508_|)) + (cons 'key __tmp85772))) + (__tmp85767 + (let ((__tmp85768 + (let ((__tmp85769 |gx[1]#_g85770_|)) (declare (not safe)) - (cons 'phi __tmp85507)))) + (cons 'phi __tmp85769)))) (declare (not safe)) - (cons __tmp85506 '())))) + (cons __tmp85768 '())))) (declare (not safe)) - (cons __tmp85509 __tmp85505)))) + (cons __tmp85771 __tmp85767)))) (declare (not safe)) - (cons __tmp85512 __tmp85504)))) + (cons __tmp85774 __tmp85766)))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85503 + __obj85019 + __tmp85765 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85515 - (let ((__tmp85524 - (let ((__tmp85525 |gx[1]#_g85526_|)) + (let ((__tmp85777 + (let ((__tmp85786 + (let ((__tmp85787 |gx[1]#_g85788_|)) (declare (not safe)) - (cons 'id __tmp85525))) - (__tmp85516 - (let ((__tmp85521 - (let ((__tmp85522 |gx[1]#_g85523_|)) + (cons 'id __tmp85787))) + (__tmp85778 + (let ((__tmp85783 + (let ((__tmp85784 |gx[1]#_g85785_|)) (declare (not safe)) - (cons 'key __tmp85522))) - (__tmp85517 - (let ((__tmp85518 - (let ((__tmp85519 |gx[1]#_g85520_|)) + (cons 'key __tmp85784))) + (__tmp85779 + (let ((__tmp85780 + (let ((__tmp85781 |gx[1]#_g85782_|)) (declare (not safe)) - (cons 'phi __tmp85519)))) + (cons 'phi __tmp85781)))) (declare (not safe)) - (cons __tmp85518 '())))) + (cons __tmp85780 '())))) (declare (not safe)) - (cons __tmp85521 __tmp85517)))) + (cons __tmp85783 __tmp85779)))) (declare (not safe)) - (cons __tmp85524 __tmp85516)))) + (cons __tmp85786 __tmp85778)))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85515 + __obj85019 + __tmp85777 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85527 - (let ((__tmp85536 - (let ((__tmp85537 |gx[1]#_g85538_|)) + (let ((__tmp85789 + (let ((__tmp85798 + (let ((__tmp85799 |gx[1]#_g85800_|)) (declare (not safe)) - (cons 'id __tmp85537))) - (__tmp85528 - (let ((__tmp85533 - (let ((__tmp85534 |gx[1]#_g85535_|)) + (cons 'id __tmp85799))) + (__tmp85790 + (let ((__tmp85795 + (let ((__tmp85796 |gx[1]#_g85797_|)) (declare (not safe)) - (cons 'key __tmp85534))) - (__tmp85529 - (let ((__tmp85530 - (let ((__tmp85531 |gx[1]#_g85532_|)) + (cons 'key __tmp85796))) + (__tmp85791 + (let ((__tmp85792 + (let ((__tmp85793 |gx[1]#_g85794_|)) (declare (not safe)) - (cons 'phi __tmp85531)))) + (cons 'phi __tmp85793)))) (declare (not safe)) - (cons __tmp85530 '())))) + (cons __tmp85792 '())))) (declare (not safe)) - (cons __tmp85533 __tmp85529)))) + (cons __tmp85795 __tmp85791)))) (declare (not safe)) - (cons __tmp85536 __tmp85528)))) + (cons __tmp85798 __tmp85790)))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85527 + __obj85019 + __tmp85789 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85539 - (let ((__tmp85548 - (let ((__tmp85549 |gx[1]#_g85550_|)) + (let ((__tmp85801 + (let ((__tmp85810 + (let ((__tmp85811 |gx[1]#_g85812_|)) (declare (not safe)) - (cons 'id __tmp85549))) - (__tmp85540 - (let ((__tmp85545 - (let ((__tmp85546 |gx[1]#_g85547_|)) + (cons 'id __tmp85811))) + (__tmp85802 + (let ((__tmp85807 + (let ((__tmp85808 |gx[1]#_g85809_|)) (declare (not safe)) - (cons 'key __tmp85546))) - (__tmp85541 - (let ((__tmp85542 - (let ((__tmp85543 |gx[1]#_g85544_|)) + (cons 'key __tmp85808))) + (__tmp85803 + (let ((__tmp85804 + (let ((__tmp85805 |gx[1]#_g85806_|)) (declare (not safe)) - (cons 'phi __tmp85543)))) + (cons 'phi __tmp85805)))) (declare (not safe)) - (cons __tmp85542 '())))) + (cons __tmp85804 '())))) (declare (not safe)) - (cons __tmp85545 __tmp85541)))) + (cons __tmp85807 __tmp85803)))) (declare (not safe)) - (cons __tmp85548 __tmp85540)))) + (cons __tmp85810 __tmp85802)))) (declare (not safe)) (##unchecked-structure-set! - __obj84757 - __tmp85539 + __obj85019 + __tmp85801 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84757)) + __obj85019)) (define |gx[:0:]#runtime-binding| - (let ((__obj84758 + (let ((__obj85020 (let () (declare (not safe)) (##structure @@ -5937,7 +5937,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj85020 'gx#runtime-binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5945,7 +5945,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj85020 'runtime-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5953,26 +5953,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj85020 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85551 - (let ((__tmp85552 |gx[1]#_g85553_|)) + (let ((__tmp85813 + (let ((__tmp85814 |gx[1]#_g85815_|)) (declare (not safe)) - (cons __tmp85552 '())))) + (cons __tmp85814 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85551 + __obj85020 + __tmp85813 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj85020 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5980,7 +5980,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj85020 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5988,7 +5988,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj85020 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5996,150 +5996,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84758 + __obj85020 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85554 |gx[1]#_g85555_|)) + (let ((__tmp85816 |gx[1]#_g85817_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85554 + __obj85020 + __tmp85816 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85556 |gx[1]#_g85557_|)) + (let ((__tmp85818 |gx[1]#_g85819_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85556 + __obj85020 + __tmp85818 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85558 |gx[1]#_g85559_|)) + (let ((__tmp85820 |gx[1]#_g85821_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85558 + __obj85020 + __tmp85820 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85560 - (let ((__tmp85569 - (let ((__tmp85570 |gx[1]#_g85571_|)) + (let ((__tmp85822 + (let ((__tmp85831 + (let ((__tmp85832 |gx[1]#_g85833_|)) (declare (not safe)) - (cons 'id __tmp85570))) - (__tmp85561 - (let ((__tmp85566 - (let ((__tmp85567 |gx[1]#_g85568_|)) + (cons 'id __tmp85832))) + (__tmp85823 + (let ((__tmp85828 + (let ((__tmp85829 |gx[1]#_g85830_|)) (declare (not safe)) - (cons 'key __tmp85567))) - (__tmp85562 - (let ((__tmp85563 - (let ((__tmp85564 |gx[1]#_g85565_|)) + (cons 'key __tmp85829))) + (__tmp85824 + (let ((__tmp85825 + (let ((__tmp85826 |gx[1]#_g85827_|)) (declare (not safe)) - (cons 'phi __tmp85564)))) + (cons 'phi __tmp85826)))) (declare (not safe)) - (cons __tmp85563 '())))) + (cons __tmp85825 '())))) (declare (not safe)) - (cons __tmp85566 __tmp85562)))) + (cons __tmp85828 __tmp85824)))) (declare (not safe)) - (cons __tmp85569 __tmp85561)))) + (cons __tmp85831 __tmp85823)))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85560 + __obj85020 + __tmp85822 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85572 - (let ((__tmp85581 - (let ((__tmp85582 |gx[1]#_g85583_|)) + (let ((__tmp85834 + (let ((__tmp85843 + (let ((__tmp85844 |gx[1]#_g85845_|)) (declare (not safe)) - (cons 'id __tmp85582))) - (__tmp85573 - (let ((__tmp85578 - (let ((__tmp85579 |gx[1]#_g85580_|)) + (cons 'id __tmp85844))) + (__tmp85835 + (let ((__tmp85840 + (let ((__tmp85841 |gx[1]#_g85842_|)) (declare (not safe)) - (cons 'key __tmp85579))) - (__tmp85574 - (let ((__tmp85575 - (let ((__tmp85576 |gx[1]#_g85577_|)) + (cons 'key __tmp85841))) + (__tmp85836 + (let ((__tmp85837 + (let ((__tmp85838 |gx[1]#_g85839_|)) (declare (not safe)) - (cons 'phi __tmp85576)))) + (cons 'phi __tmp85838)))) (declare (not safe)) - (cons __tmp85575 '())))) + (cons __tmp85837 '())))) (declare (not safe)) - (cons __tmp85578 __tmp85574)))) + (cons __tmp85840 __tmp85836)))) (declare (not safe)) - (cons __tmp85581 __tmp85573)))) + (cons __tmp85843 __tmp85835)))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85572 + __obj85020 + __tmp85834 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85584 - (let ((__tmp85593 - (let ((__tmp85594 |gx[1]#_g85595_|)) + (let ((__tmp85846 + (let ((__tmp85855 + (let ((__tmp85856 |gx[1]#_g85857_|)) (declare (not safe)) - (cons 'id __tmp85594))) - (__tmp85585 - (let ((__tmp85590 - (let ((__tmp85591 |gx[1]#_g85592_|)) + (cons 'id __tmp85856))) + (__tmp85847 + (let ((__tmp85852 + (let ((__tmp85853 |gx[1]#_g85854_|)) (declare (not safe)) - (cons 'key __tmp85591))) - (__tmp85586 - (let ((__tmp85587 - (let ((__tmp85588 |gx[1]#_g85589_|)) + (cons 'key __tmp85853))) + (__tmp85848 + (let ((__tmp85849 + (let ((__tmp85850 |gx[1]#_g85851_|)) (declare (not safe)) - (cons 'phi __tmp85588)))) + (cons 'phi __tmp85850)))) (declare (not safe)) - (cons __tmp85587 '())))) + (cons __tmp85849 '())))) (declare (not safe)) - (cons __tmp85590 __tmp85586)))) + (cons __tmp85852 __tmp85848)))) (declare (not safe)) - (cons __tmp85593 __tmp85585)))) + (cons __tmp85855 __tmp85847)))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85584 + __obj85020 + __tmp85846 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85596 - (let ((__tmp85605 - (let ((__tmp85606 |gx[1]#_g85607_|)) + (let ((__tmp85858 + (let ((__tmp85867 + (let ((__tmp85868 |gx[1]#_g85869_|)) (declare (not safe)) - (cons 'id __tmp85606))) - (__tmp85597 - (let ((__tmp85602 - (let ((__tmp85603 |gx[1]#_g85604_|)) + (cons 'id __tmp85868))) + (__tmp85859 + (let ((__tmp85864 + (let ((__tmp85865 |gx[1]#_g85866_|)) (declare (not safe)) - (cons 'key __tmp85603))) - (__tmp85598 - (let ((__tmp85599 - (let ((__tmp85600 |gx[1]#_g85601_|)) + (cons 'key __tmp85865))) + (__tmp85860 + (let ((__tmp85861 + (let ((__tmp85862 |gx[1]#_g85863_|)) (declare (not safe)) - (cons 'phi __tmp85600)))) + (cons 'phi __tmp85862)))) (declare (not safe)) - (cons __tmp85599 '())))) + (cons __tmp85861 '())))) (declare (not safe)) - (cons __tmp85602 __tmp85598)))) + (cons __tmp85864 __tmp85860)))) (declare (not safe)) - (cons __tmp85605 __tmp85597)))) + (cons __tmp85867 __tmp85859)))) (declare (not safe)) (##unchecked-structure-set! - __obj84758 - __tmp85596 + __obj85020 + __tmp85858 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84758)) + __obj85020)) (define |gx[:0:]#local-binding| - (let ((__obj84759 + (let ((__obj85021 (let () (declare (not safe)) (##structure @@ -6162,7 +6162,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj85021 'gx#local-binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6170,7 +6170,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj85021 'local-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6178,26 +6178,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj85021 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85608 - (let ((__tmp85609 |gx[1]#_g85610_|)) + (let ((__tmp85870 + (let ((__tmp85871 |gx[1]#_g85872_|)) (declare (not safe)) - (cons __tmp85609 '())))) + (cons __tmp85871 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85608 + __obj85021 + __tmp85870 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj85021 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6205,7 +6205,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj85021 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6213,7 +6213,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj85021 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6221,150 +6221,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84759 + __obj85021 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85611 |gx[1]#_g85612_|)) + (let ((__tmp85873 |gx[1]#_g85874_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85611 + __obj85021 + __tmp85873 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85613 |gx[1]#_g85614_|)) + (let ((__tmp85875 |gx[1]#_g85876_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85613 + __obj85021 + __tmp85875 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85615 |gx[1]#_g85616_|)) + (let ((__tmp85877 |gx[1]#_g85878_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85615 + __obj85021 + __tmp85877 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85617 - (let ((__tmp85626 - (let ((__tmp85627 |gx[1]#_g85628_|)) + (let ((__tmp85879 + (let ((__tmp85888 + (let ((__tmp85889 |gx[1]#_g85890_|)) (declare (not safe)) - (cons 'id __tmp85627))) - (__tmp85618 - (let ((__tmp85623 - (let ((__tmp85624 |gx[1]#_g85625_|)) + (cons 'id __tmp85889))) + (__tmp85880 + (let ((__tmp85885 + (let ((__tmp85886 |gx[1]#_g85887_|)) (declare (not safe)) - (cons 'key __tmp85624))) - (__tmp85619 - (let ((__tmp85620 - (let ((__tmp85621 |gx[1]#_g85622_|)) + (cons 'key __tmp85886))) + (__tmp85881 + (let ((__tmp85882 + (let ((__tmp85883 |gx[1]#_g85884_|)) (declare (not safe)) - (cons 'phi __tmp85621)))) + (cons 'phi __tmp85883)))) (declare (not safe)) - (cons __tmp85620 '())))) + (cons __tmp85882 '())))) (declare (not safe)) - (cons __tmp85623 __tmp85619)))) + (cons __tmp85885 __tmp85881)))) (declare (not safe)) - (cons __tmp85626 __tmp85618)))) + (cons __tmp85888 __tmp85880)))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85617 + __obj85021 + __tmp85879 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85629 - (let ((__tmp85638 - (let ((__tmp85639 |gx[1]#_g85640_|)) + (let ((__tmp85891 + (let ((__tmp85900 + (let ((__tmp85901 |gx[1]#_g85902_|)) (declare (not safe)) - (cons 'id __tmp85639))) - (__tmp85630 - (let ((__tmp85635 - (let ((__tmp85636 |gx[1]#_g85637_|)) + (cons 'id __tmp85901))) + (__tmp85892 + (let ((__tmp85897 + (let ((__tmp85898 |gx[1]#_g85899_|)) (declare (not safe)) - (cons 'key __tmp85636))) - (__tmp85631 - (let ((__tmp85632 - (let ((__tmp85633 |gx[1]#_g85634_|)) + (cons 'key __tmp85898))) + (__tmp85893 + (let ((__tmp85894 + (let ((__tmp85895 |gx[1]#_g85896_|)) (declare (not safe)) - (cons 'phi __tmp85633)))) + (cons 'phi __tmp85895)))) (declare (not safe)) - (cons __tmp85632 '())))) + (cons __tmp85894 '())))) (declare (not safe)) - (cons __tmp85635 __tmp85631)))) + (cons __tmp85897 __tmp85893)))) (declare (not safe)) - (cons __tmp85638 __tmp85630)))) + (cons __tmp85900 __tmp85892)))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85629 + __obj85021 + __tmp85891 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85641 - (let ((__tmp85650 - (let ((__tmp85651 |gx[1]#_g85652_|)) + (let ((__tmp85903 + (let ((__tmp85912 + (let ((__tmp85913 |gx[1]#_g85914_|)) (declare (not safe)) - (cons 'id __tmp85651))) - (__tmp85642 - (let ((__tmp85647 - (let ((__tmp85648 |gx[1]#_g85649_|)) + (cons 'id __tmp85913))) + (__tmp85904 + (let ((__tmp85909 + (let ((__tmp85910 |gx[1]#_g85911_|)) (declare (not safe)) - (cons 'key __tmp85648))) - (__tmp85643 - (let ((__tmp85644 - (let ((__tmp85645 |gx[1]#_g85646_|)) + (cons 'key __tmp85910))) + (__tmp85905 + (let ((__tmp85906 + (let ((__tmp85907 |gx[1]#_g85908_|)) (declare (not safe)) - (cons 'phi __tmp85645)))) + (cons 'phi __tmp85907)))) (declare (not safe)) - (cons __tmp85644 '())))) + (cons __tmp85906 '())))) (declare (not safe)) - (cons __tmp85647 __tmp85643)))) + (cons __tmp85909 __tmp85905)))) (declare (not safe)) - (cons __tmp85650 __tmp85642)))) + (cons __tmp85912 __tmp85904)))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85641 + __obj85021 + __tmp85903 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85653 - (let ((__tmp85662 - (let ((__tmp85663 |gx[1]#_g85664_|)) + (let ((__tmp85915 + (let ((__tmp85924 + (let ((__tmp85925 |gx[1]#_g85926_|)) (declare (not safe)) - (cons 'id __tmp85663))) - (__tmp85654 - (let ((__tmp85659 - (let ((__tmp85660 |gx[1]#_g85661_|)) + (cons 'id __tmp85925))) + (__tmp85916 + (let ((__tmp85921 + (let ((__tmp85922 |gx[1]#_g85923_|)) (declare (not safe)) - (cons 'key __tmp85660))) - (__tmp85655 - (let ((__tmp85656 - (let ((__tmp85657 |gx[1]#_g85658_|)) + (cons 'key __tmp85922))) + (__tmp85917 + (let ((__tmp85918 + (let ((__tmp85919 |gx[1]#_g85920_|)) (declare (not safe)) - (cons 'phi __tmp85657)))) + (cons 'phi __tmp85919)))) (declare (not safe)) - (cons __tmp85656 '())))) + (cons __tmp85918 '())))) (declare (not safe)) - (cons __tmp85659 __tmp85655)))) + (cons __tmp85921 __tmp85917)))) (declare (not safe)) - (cons __tmp85662 __tmp85654)))) + (cons __tmp85924 __tmp85916)))) (declare (not safe)) (##unchecked-structure-set! - __obj84759 - __tmp85653 + __obj85021 + __tmp85915 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84759)) + __obj85021)) (define |gx[:0:]#top-binding| - (let ((__obj84760 + (let ((__obj85022 (let () (declare (not safe)) (##structure @@ -6387,7 +6387,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj85022 'gx#top-binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6395,7 +6395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj85022 'top-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6403,26 +6403,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj85022 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85665 - (let ((__tmp85666 |gx[1]#_g85610_|)) + (let ((__tmp85927 + (let ((__tmp85928 |gx[1]#_g85872_|)) (declare (not safe)) - (cons __tmp85666 '())))) + (cons __tmp85928 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85665 + __obj85022 + __tmp85927 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj85022 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6430,7 +6430,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj85022 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6438,7 +6438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj85022 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6446,150 +6446,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84760 + __obj85022 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85667 |gx[1]#_g85668_|)) + (let ((__tmp85929 |gx[1]#_g85930_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85667 + __obj85022 + __tmp85929 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85669 |gx[1]#_g85670_|)) + (let ((__tmp85931 |gx[1]#_g85932_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85669 + __obj85022 + __tmp85931 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85671 |gx[1]#_g85672_|)) + (let ((__tmp85933 |gx[1]#_g85934_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85671 + __obj85022 + __tmp85933 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85673 - (let ((__tmp85682 - (let ((__tmp85683 |gx[1]#_g85684_|)) + (let ((__tmp85935 + (let ((__tmp85944 + (let ((__tmp85945 |gx[1]#_g85946_|)) (declare (not safe)) - (cons 'id __tmp85683))) - (__tmp85674 - (let ((__tmp85679 - (let ((__tmp85680 |gx[1]#_g85681_|)) + (cons 'id __tmp85945))) + (__tmp85936 + (let ((__tmp85941 + (let ((__tmp85942 |gx[1]#_g85943_|)) (declare (not safe)) - (cons 'key __tmp85680))) - (__tmp85675 - (let ((__tmp85676 - (let ((__tmp85677 |gx[1]#_g85678_|)) + (cons 'key __tmp85942))) + (__tmp85937 + (let ((__tmp85938 + (let ((__tmp85939 |gx[1]#_g85940_|)) (declare (not safe)) - (cons 'phi __tmp85677)))) + (cons 'phi __tmp85939)))) (declare (not safe)) - (cons __tmp85676 '())))) + (cons __tmp85938 '())))) (declare (not safe)) - (cons __tmp85679 __tmp85675)))) + (cons __tmp85941 __tmp85937)))) (declare (not safe)) - (cons __tmp85682 __tmp85674)))) + (cons __tmp85944 __tmp85936)))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85673 + __obj85022 + __tmp85935 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85685 - (let ((__tmp85694 - (let ((__tmp85695 |gx[1]#_g85696_|)) + (let ((__tmp85947 + (let ((__tmp85956 + (let ((__tmp85957 |gx[1]#_g85958_|)) (declare (not safe)) - (cons 'id __tmp85695))) - (__tmp85686 - (let ((__tmp85691 - (let ((__tmp85692 |gx[1]#_g85693_|)) + (cons 'id __tmp85957))) + (__tmp85948 + (let ((__tmp85953 + (let ((__tmp85954 |gx[1]#_g85955_|)) (declare (not safe)) - (cons 'key __tmp85692))) - (__tmp85687 - (let ((__tmp85688 - (let ((__tmp85689 |gx[1]#_g85690_|)) + (cons 'key __tmp85954))) + (__tmp85949 + (let ((__tmp85950 + (let ((__tmp85951 |gx[1]#_g85952_|)) (declare (not safe)) - (cons 'phi __tmp85689)))) + (cons 'phi __tmp85951)))) (declare (not safe)) - (cons __tmp85688 '())))) + (cons __tmp85950 '())))) (declare (not safe)) - (cons __tmp85691 __tmp85687)))) + (cons __tmp85953 __tmp85949)))) (declare (not safe)) - (cons __tmp85694 __tmp85686)))) + (cons __tmp85956 __tmp85948)))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85685 + __obj85022 + __tmp85947 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85697 - (let ((__tmp85706 - (let ((__tmp85707 |gx[1]#_g85708_|)) + (let ((__tmp85959 + (let ((__tmp85968 + (let ((__tmp85969 |gx[1]#_g85970_|)) (declare (not safe)) - (cons 'id __tmp85707))) - (__tmp85698 - (let ((__tmp85703 - (let ((__tmp85704 |gx[1]#_g85705_|)) + (cons 'id __tmp85969))) + (__tmp85960 + (let ((__tmp85965 + (let ((__tmp85966 |gx[1]#_g85967_|)) (declare (not safe)) - (cons 'key __tmp85704))) - (__tmp85699 - (let ((__tmp85700 - (let ((__tmp85701 |gx[1]#_g85702_|)) + (cons 'key __tmp85966))) + (__tmp85961 + (let ((__tmp85962 + (let ((__tmp85963 |gx[1]#_g85964_|)) (declare (not safe)) - (cons 'phi __tmp85701)))) + (cons 'phi __tmp85963)))) (declare (not safe)) - (cons __tmp85700 '())))) + (cons __tmp85962 '())))) (declare (not safe)) - (cons __tmp85703 __tmp85699)))) + (cons __tmp85965 __tmp85961)))) (declare (not safe)) - (cons __tmp85706 __tmp85698)))) + (cons __tmp85968 __tmp85960)))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85697 + __obj85022 + __tmp85959 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85709 - (let ((__tmp85718 - (let ((__tmp85719 |gx[1]#_g85720_|)) + (let ((__tmp85971 + (let ((__tmp85980 + (let ((__tmp85981 |gx[1]#_g85982_|)) (declare (not safe)) - (cons 'id __tmp85719))) - (__tmp85710 - (let ((__tmp85715 - (let ((__tmp85716 |gx[1]#_g85717_|)) + (cons 'id __tmp85981))) + (__tmp85972 + (let ((__tmp85977 + (let ((__tmp85978 |gx[1]#_g85979_|)) (declare (not safe)) - (cons 'key __tmp85716))) - (__tmp85711 - (let ((__tmp85712 - (let ((__tmp85713 |gx[1]#_g85714_|)) + (cons 'key __tmp85978))) + (__tmp85973 + (let ((__tmp85974 + (let ((__tmp85975 |gx[1]#_g85976_|)) (declare (not safe)) - (cons 'phi __tmp85713)))) + (cons 'phi __tmp85975)))) (declare (not safe)) - (cons __tmp85712 '())))) + (cons __tmp85974 '())))) (declare (not safe)) - (cons __tmp85715 __tmp85711)))) + (cons __tmp85977 __tmp85973)))) (declare (not safe)) - (cons __tmp85718 __tmp85710)))) + (cons __tmp85980 __tmp85972)))) (declare (not safe)) (##unchecked-structure-set! - __obj84760 - __tmp85709 + __obj85022 + __tmp85971 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84760)) + __obj85022)) (define |gx[:0:]#module-binding| - (let ((__obj84761 + (let ((__obj85023 (let () (declare (not safe)) (##structure @@ -6612,7 +6612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj85023 'gx#module-binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6620,7 +6620,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj85023 'module-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6628,26 +6628,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj85023 '(context) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85721 - (let ((__tmp85722 |gx[1]#_g85723_|)) + (let ((__tmp85983 + (let ((__tmp85984 |gx[1]#_g85985_|)) (declare (not safe)) - (cons __tmp85722 '())))) + (cons __tmp85984 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85721 + __obj85023 + __tmp85983 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj85023 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6655,7 +6655,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj85023 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6663,7 +6663,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj85023 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6671,178 +6671,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84761 + __obj85023 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85724 |gx[1]#_g85725_|)) + (let ((__tmp85986 |gx[1]#_g85987_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85724 + __obj85023 + __tmp85986 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85726 |gx[1]#_g85727_|)) + (let ((__tmp85988 |gx[1]#_g85989_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85726 + __obj85023 + __tmp85988 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85728 |gx[1]#_g85729_|)) + (let ((__tmp85990 |gx[1]#_g85991_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85728 + __obj85023 + __tmp85990 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85730 - (let ((__tmp85743 - (let ((__tmp85744 |gx[1]#_g85745_|)) + (let ((__tmp85992 + (let ((__tmp86005 + (let ((__tmp86006 |gx[1]#_g86007_|)) (declare (not safe)) - (cons 'context __tmp85744))) - (__tmp85731 - (let ((__tmp85740 - (let ((__tmp85741 |gx[1]#_g85742_|)) + (cons 'context __tmp86006))) + (__tmp85993 + (let ((__tmp86002 + (let ((__tmp86003 |gx[1]#_g86004_|)) (declare (not safe)) - (cons 'id __tmp85741))) - (__tmp85732 - (let ((__tmp85737 - (let ((__tmp85738 |gx[1]#_g85739_|)) + (cons 'id __tmp86003))) + (__tmp85994 + (let ((__tmp85999 + (let ((__tmp86000 |gx[1]#_g86001_|)) (declare (not safe)) - (cons 'key __tmp85738))) - (__tmp85733 - (let ((__tmp85734 - (let ((__tmp85735 |gx[1]#_g85736_|)) + (cons 'key __tmp86000))) + (__tmp85995 + (let ((__tmp85996 + (let ((__tmp85997 |gx[1]#_g85998_|)) (declare (not safe)) - (cons 'phi __tmp85735)))) + (cons 'phi __tmp85997)))) (declare (not safe)) - (cons __tmp85734 '())))) + (cons __tmp85996 '())))) (declare (not safe)) - (cons __tmp85737 __tmp85733)))) + (cons __tmp85999 __tmp85995)))) (declare (not safe)) - (cons __tmp85740 __tmp85732)))) + (cons __tmp86002 __tmp85994)))) (declare (not safe)) - (cons __tmp85743 __tmp85731)))) + (cons __tmp86005 __tmp85993)))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85730 + __obj85023 + __tmp85992 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85746 - (let ((__tmp85759 - (let ((__tmp85760 |gx[1]#_g85761_|)) + (let ((__tmp86008 + (let ((__tmp86021 + (let ((__tmp86022 |gx[1]#_g86023_|)) (declare (not safe)) - (cons 'context __tmp85760))) - (__tmp85747 - (let ((__tmp85756 - (let ((__tmp85757 |gx[1]#_g85758_|)) + (cons 'context __tmp86022))) + (__tmp86009 + (let ((__tmp86018 + (let ((__tmp86019 |gx[1]#_g86020_|)) (declare (not safe)) - (cons 'id __tmp85757))) - (__tmp85748 - (let ((__tmp85753 - (let ((__tmp85754 |gx[1]#_g85755_|)) + (cons 'id __tmp86019))) + (__tmp86010 + (let ((__tmp86015 + (let ((__tmp86016 |gx[1]#_g86017_|)) (declare (not safe)) - (cons 'key __tmp85754))) - (__tmp85749 - (let ((__tmp85750 - (let ((__tmp85751 |gx[1]#_g85752_|)) + (cons 'key __tmp86016))) + (__tmp86011 + (let ((__tmp86012 + (let ((__tmp86013 |gx[1]#_g86014_|)) (declare (not safe)) - (cons 'phi __tmp85751)))) + (cons 'phi __tmp86013)))) (declare (not safe)) - (cons __tmp85750 '())))) + (cons __tmp86012 '())))) (declare (not safe)) - (cons __tmp85753 __tmp85749)))) + (cons __tmp86015 __tmp86011)))) (declare (not safe)) - (cons __tmp85756 __tmp85748)))) + (cons __tmp86018 __tmp86010)))) (declare (not safe)) - (cons __tmp85759 __tmp85747)))) + (cons __tmp86021 __tmp86009)))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85746 + __obj85023 + __tmp86008 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85762 - (let ((__tmp85775 - (let ((__tmp85776 |gx[1]#_g85777_|)) + (let ((__tmp86024 + (let ((__tmp86037 + (let ((__tmp86038 |gx[1]#_g86039_|)) (declare (not safe)) - (cons 'context __tmp85776))) - (__tmp85763 - (let ((__tmp85772 - (let ((__tmp85773 |gx[1]#_g85774_|)) + (cons 'context __tmp86038))) + (__tmp86025 + (let ((__tmp86034 + (let ((__tmp86035 |gx[1]#_g86036_|)) (declare (not safe)) - (cons 'id __tmp85773))) - (__tmp85764 - (let ((__tmp85769 - (let ((__tmp85770 |gx[1]#_g85771_|)) + (cons 'id __tmp86035))) + (__tmp86026 + (let ((__tmp86031 + (let ((__tmp86032 |gx[1]#_g86033_|)) (declare (not safe)) - (cons 'key __tmp85770))) - (__tmp85765 - (let ((__tmp85766 - (let ((__tmp85767 |gx[1]#_g85768_|)) + (cons 'key __tmp86032))) + (__tmp86027 + (let ((__tmp86028 + (let ((__tmp86029 |gx[1]#_g86030_|)) (declare (not safe)) - (cons 'phi __tmp85767)))) + (cons 'phi __tmp86029)))) (declare (not safe)) - (cons __tmp85766 '())))) + (cons __tmp86028 '())))) (declare (not safe)) - (cons __tmp85769 __tmp85765)))) + (cons __tmp86031 __tmp86027)))) (declare (not safe)) - (cons __tmp85772 __tmp85764)))) + (cons __tmp86034 __tmp86026)))) (declare (not safe)) - (cons __tmp85775 __tmp85763)))) + (cons __tmp86037 __tmp86025)))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85762 + __obj85023 + __tmp86024 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85778 - (let ((__tmp85791 - (let ((__tmp85792 |gx[1]#_g85793_|)) + (let ((__tmp86040 + (let ((__tmp86053 + (let ((__tmp86054 |gx[1]#_g86055_|)) (declare (not safe)) - (cons 'context __tmp85792))) - (__tmp85779 - (let ((__tmp85788 - (let ((__tmp85789 |gx[1]#_g85790_|)) + (cons 'context __tmp86054))) + (__tmp86041 + (let ((__tmp86050 + (let ((__tmp86051 |gx[1]#_g86052_|)) (declare (not safe)) - (cons 'id __tmp85789))) - (__tmp85780 - (let ((__tmp85785 - (let ((__tmp85786 |gx[1]#_g85787_|)) + (cons 'id __tmp86051))) + (__tmp86042 + (let ((__tmp86047 + (let ((__tmp86048 |gx[1]#_g86049_|)) (declare (not safe)) - (cons 'key __tmp85786))) - (__tmp85781 - (let ((__tmp85782 - (let ((__tmp85783 |gx[1]#_g85784_|)) + (cons 'key __tmp86048))) + (__tmp86043 + (let ((__tmp86044 + (let ((__tmp86045 |gx[1]#_g86046_|)) (declare (not safe)) - (cons 'phi __tmp85783)))) + (cons 'phi __tmp86045)))) (declare (not safe)) - (cons __tmp85782 '())))) + (cons __tmp86044 '())))) (declare (not safe)) - (cons __tmp85785 __tmp85781)))) + (cons __tmp86047 __tmp86043)))) (declare (not safe)) - (cons __tmp85788 __tmp85780)))) + (cons __tmp86050 __tmp86042)))) (declare (not safe)) - (cons __tmp85791 __tmp85779)))) + (cons __tmp86053 __tmp86041)))) (declare (not safe)) (##unchecked-structure-set! - __obj84761 - __tmp85778 + __obj85023 + __tmp86040 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84761)) + __obj85023)) (define |gx[:0:]#extern-binding| - (let ((__obj84762 + (let ((__obj85024 (let () (declare (not safe)) (##structure @@ -6865,7 +6865,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj85024 'gx#extern-binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6873,7 +6873,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj85024 'extern-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6881,26 +6881,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj85024 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85794 - (let ((__tmp85795 |gx[1]#_g85723_|)) + (let ((__tmp86056 + (let ((__tmp86057 |gx[1]#_g85985_|)) (declare (not safe)) - (cons __tmp85795 '())))) + (cons __tmp86057 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85794 + __obj85024 + __tmp86056 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj85024 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6908,7 +6908,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj85024 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6916,7 +6916,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj85024 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -6924,150 +6924,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84762 + __obj85024 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85796 |gx[1]#_g85797_|)) + (let ((__tmp86058 |gx[1]#_g86059_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85796 + __obj85024 + __tmp86058 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85798 |gx[1]#_g85799_|)) + (let ((__tmp86060 |gx[1]#_g86061_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85798 + __obj85024 + __tmp86060 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85800 |gx[1]#_g85801_|)) + (let ((__tmp86062 |gx[1]#_g86063_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85800 + __obj85024 + __tmp86062 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85802 - (let ((__tmp85811 - (let ((__tmp85812 |gx[1]#_g85813_|)) + (let ((__tmp86064 + (let ((__tmp86073 + (let ((__tmp86074 |gx[1]#_g86075_|)) (declare (not safe)) - (cons 'id __tmp85812))) - (__tmp85803 - (let ((__tmp85808 - (let ((__tmp85809 |gx[1]#_g85810_|)) + (cons 'id __tmp86074))) + (__tmp86065 + (let ((__tmp86070 + (let ((__tmp86071 |gx[1]#_g86072_|)) (declare (not safe)) - (cons 'key __tmp85809))) - (__tmp85804 - (let ((__tmp85805 - (let ((__tmp85806 |gx[1]#_g85807_|)) + (cons 'key __tmp86071))) + (__tmp86066 + (let ((__tmp86067 + (let ((__tmp86068 |gx[1]#_g86069_|)) (declare (not safe)) - (cons 'phi __tmp85806)))) + (cons 'phi __tmp86068)))) (declare (not safe)) - (cons __tmp85805 '())))) + (cons __tmp86067 '())))) (declare (not safe)) - (cons __tmp85808 __tmp85804)))) + (cons __tmp86070 __tmp86066)))) (declare (not safe)) - (cons __tmp85811 __tmp85803)))) + (cons __tmp86073 __tmp86065)))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85802 + __obj85024 + __tmp86064 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85814 - (let ((__tmp85823 - (let ((__tmp85824 |gx[1]#_g85825_|)) + (let ((__tmp86076 + (let ((__tmp86085 + (let ((__tmp86086 |gx[1]#_g86087_|)) (declare (not safe)) - (cons 'id __tmp85824))) - (__tmp85815 - (let ((__tmp85820 - (let ((__tmp85821 |gx[1]#_g85822_|)) + (cons 'id __tmp86086))) + (__tmp86077 + (let ((__tmp86082 + (let ((__tmp86083 |gx[1]#_g86084_|)) (declare (not safe)) - (cons 'key __tmp85821))) - (__tmp85816 - (let ((__tmp85817 - (let ((__tmp85818 |gx[1]#_g85819_|)) + (cons 'key __tmp86083))) + (__tmp86078 + (let ((__tmp86079 + (let ((__tmp86080 |gx[1]#_g86081_|)) (declare (not safe)) - (cons 'phi __tmp85818)))) + (cons 'phi __tmp86080)))) (declare (not safe)) - (cons __tmp85817 '())))) + (cons __tmp86079 '())))) (declare (not safe)) - (cons __tmp85820 __tmp85816)))) + (cons __tmp86082 __tmp86078)))) (declare (not safe)) - (cons __tmp85823 __tmp85815)))) + (cons __tmp86085 __tmp86077)))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85814 + __obj85024 + __tmp86076 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85826 - (let ((__tmp85835 - (let ((__tmp85836 |gx[1]#_g85837_|)) + (let ((__tmp86088 + (let ((__tmp86097 + (let ((__tmp86098 |gx[1]#_g86099_|)) (declare (not safe)) - (cons 'id __tmp85836))) - (__tmp85827 - (let ((__tmp85832 - (let ((__tmp85833 |gx[1]#_g85834_|)) + (cons 'id __tmp86098))) + (__tmp86089 + (let ((__tmp86094 + (let ((__tmp86095 |gx[1]#_g86096_|)) (declare (not safe)) - (cons 'key __tmp85833))) - (__tmp85828 - (let ((__tmp85829 - (let ((__tmp85830 |gx[1]#_g85831_|)) + (cons 'key __tmp86095))) + (__tmp86090 + (let ((__tmp86091 + (let ((__tmp86092 |gx[1]#_g86093_|)) (declare (not safe)) - (cons 'phi __tmp85830)))) + (cons 'phi __tmp86092)))) (declare (not safe)) - (cons __tmp85829 '())))) + (cons __tmp86091 '())))) (declare (not safe)) - (cons __tmp85832 __tmp85828)))) + (cons __tmp86094 __tmp86090)))) (declare (not safe)) - (cons __tmp85835 __tmp85827)))) + (cons __tmp86097 __tmp86089)))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85826 + __obj85024 + __tmp86088 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85838 - (let ((__tmp85847 - (let ((__tmp85848 |gx[1]#_g85849_|)) + (let ((__tmp86100 + (let ((__tmp86109 + (let ((__tmp86110 |gx[1]#_g86111_|)) (declare (not safe)) - (cons 'id __tmp85848))) - (__tmp85839 - (let ((__tmp85844 - (let ((__tmp85845 |gx[1]#_g85846_|)) + (cons 'id __tmp86110))) + (__tmp86101 + (let ((__tmp86106 + (let ((__tmp86107 |gx[1]#_g86108_|)) (declare (not safe)) - (cons 'key __tmp85845))) - (__tmp85840 - (let ((__tmp85841 - (let ((__tmp85842 |gx[1]#_g85843_|)) + (cons 'key __tmp86107))) + (__tmp86102 + (let ((__tmp86103 + (let ((__tmp86104 |gx[1]#_g86105_|)) (declare (not safe)) - (cons 'phi __tmp85842)))) + (cons 'phi __tmp86104)))) (declare (not safe)) - (cons __tmp85841 '())))) + (cons __tmp86103 '())))) (declare (not safe)) - (cons __tmp85844 __tmp85840)))) + (cons __tmp86106 __tmp86102)))) (declare (not safe)) - (cons __tmp85847 __tmp85839)))) + (cons __tmp86109 __tmp86101)))) (declare (not safe)) (##unchecked-structure-set! - __obj84762 - __tmp85838 + __obj85024 + __tmp86100 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84762)) + __obj85024)) (define |gx[:0:]#syntax-binding| - (let ((__obj84763 + (let ((__obj85025 (let () (declare (not safe)) (##structure @@ -7090,7 +7090,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj85025 'gx#syntax-binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7098,7 +7098,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj85025 'syntax-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7106,26 +7106,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj85025 '(e) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85850 - (let ((__tmp85851 |gx[1]#_g85553_|)) + (let ((__tmp86112 + (let ((__tmp86113 |gx[1]#_g85815_|)) (declare (not safe)) - (cons __tmp85851 '())))) + (cons __tmp86113 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85850 + __obj85025 + __tmp86112 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj85025 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7133,7 +7133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj85025 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7141,7 +7141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj85025 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7149,178 +7149,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84763 + __obj85025 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85852 |gx[1]#_g85853_|)) + (let ((__tmp86114 |gx[1]#_g86115_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85852 + __obj85025 + __tmp86114 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85854 |gx[1]#_g85855_|)) + (let ((__tmp86116 |gx[1]#_g86117_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85854 + __obj85025 + __tmp86116 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85856 |gx[1]#_g85857_|)) + (let ((__tmp86118 |gx[1]#_g86119_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85856 + __obj85025 + __tmp86118 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85858 - (let ((__tmp85871 - (let ((__tmp85872 |gx[1]#_g85873_|)) - (declare (not safe)) - (cons 'e __tmp85872))) - (__tmp85859 - (let ((__tmp85868 - (let ((__tmp85869 |gx[1]#_g85870_|)) - (declare (not safe)) - (cons 'id __tmp85869))) - (__tmp85860 - (let ((__tmp85865 - (let ((__tmp85866 |gx[1]#_g85867_|)) - (declare (not safe)) - (cons 'key __tmp85866))) - (__tmp85861 - (let ((__tmp85862 - (let ((__tmp85863 |gx[1]#_g85864_|)) + (let ((__tmp86120 + (let ((__tmp86133 + (let ((__tmp86134 |gx[1]#_g86135_|)) + (declare (not safe)) + (cons 'e __tmp86134))) + (__tmp86121 + (let ((__tmp86130 + (let ((__tmp86131 |gx[1]#_g86132_|)) + (declare (not safe)) + (cons 'id __tmp86131))) + (__tmp86122 + (let ((__tmp86127 + (let ((__tmp86128 |gx[1]#_g86129_|)) + (declare (not safe)) + (cons 'key __tmp86128))) + (__tmp86123 + (let ((__tmp86124 + (let ((__tmp86125 |gx[1]#_g86126_|)) (declare (not safe)) - (cons 'phi __tmp85863)))) + (cons 'phi __tmp86125)))) (declare (not safe)) - (cons __tmp85862 '())))) + (cons __tmp86124 '())))) (declare (not safe)) - (cons __tmp85865 __tmp85861)))) + (cons __tmp86127 __tmp86123)))) (declare (not safe)) - (cons __tmp85868 __tmp85860)))) + (cons __tmp86130 __tmp86122)))) (declare (not safe)) - (cons __tmp85871 __tmp85859)))) + (cons __tmp86133 __tmp86121)))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85858 + __obj85025 + __tmp86120 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85874 - (let ((__tmp85887 - (let ((__tmp85888 |gx[1]#_g85889_|)) + (let ((__tmp86136 + (let ((__tmp86149 + (let ((__tmp86150 |gx[1]#_g86151_|)) (declare (not safe)) - (cons 'e __tmp85888))) - (__tmp85875 - (let ((__tmp85884 - (let ((__tmp85885 |gx[1]#_g85886_|)) + (cons 'e __tmp86150))) + (__tmp86137 + (let ((__tmp86146 + (let ((__tmp86147 |gx[1]#_g86148_|)) (declare (not safe)) - (cons 'id __tmp85885))) - (__tmp85876 - (let ((__tmp85881 - (let ((__tmp85882 |gx[1]#_g85883_|)) + (cons 'id __tmp86147))) + (__tmp86138 + (let ((__tmp86143 + (let ((__tmp86144 |gx[1]#_g86145_|)) (declare (not safe)) - (cons 'key __tmp85882))) - (__tmp85877 - (let ((__tmp85878 - (let ((__tmp85879 |gx[1]#_g85880_|)) + (cons 'key __tmp86144))) + (__tmp86139 + (let ((__tmp86140 + (let ((__tmp86141 |gx[1]#_g86142_|)) (declare (not safe)) - (cons 'phi __tmp85879)))) + (cons 'phi __tmp86141)))) (declare (not safe)) - (cons __tmp85878 '())))) + (cons __tmp86140 '())))) (declare (not safe)) - (cons __tmp85881 __tmp85877)))) + (cons __tmp86143 __tmp86139)))) (declare (not safe)) - (cons __tmp85884 __tmp85876)))) + (cons __tmp86146 __tmp86138)))) (declare (not safe)) - (cons __tmp85887 __tmp85875)))) + (cons __tmp86149 __tmp86137)))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85874 + __obj85025 + __tmp86136 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85890 - (let ((__tmp85903 - (let ((__tmp85904 |gx[1]#_g85905_|)) + (let ((__tmp86152 + (let ((__tmp86165 + (let ((__tmp86166 |gx[1]#_g86167_|)) (declare (not safe)) - (cons 'e __tmp85904))) - (__tmp85891 - (let ((__tmp85900 - (let ((__tmp85901 |gx[1]#_g85902_|)) + (cons 'e __tmp86166))) + (__tmp86153 + (let ((__tmp86162 + (let ((__tmp86163 |gx[1]#_g86164_|)) (declare (not safe)) - (cons 'id __tmp85901))) - (__tmp85892 - (let ((__tmp85897 - (let ((__tmp85898 |gx[1]#_g85899_|)) + (cons 'id __tmp86163))) + (__tmp86154 + (let ((__tmp86159 + (let ((__tmp86160 |gx[1]#_g86161_|)) (declare (not safe)) - (cons 'key __tmp85898))) - (__tmp85893 - (let ((__tmp85894 - (let ((__tmp85895 |gx[1]#_g85896_|)) + (cons 'key __tmp86160))) + (__tmp86155 + (let ((__tmp86156 + (let ((__tmp86157 |gx[1]#_g86158_|)) (declare (not safe)) - (cons 'phi __tmp85895)))) + (cons 'phi __tmp86157)))) (declare (not safe)) - (cons __tmp85894 '())))) + (cons __tmp86156 '())))) (declare (not safe)) - (cons __tmp85897 __tmp85893)))) + (cons __tmp86159 __tmp86155)))) (declare (not safe)) - (cons __tmp85900 __tmp85892)))) + (cons __tmp86162 __tmp86154)))) (declare (not safe)) - (cons __tmp85903 __tmp85891)))) + (cons __tmp86165 __tmp86153)))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85890 + __obj85025 + __tmp86152 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85906 - (let ((__tmp85919 - (let ((__tmp85920 |gx[1]#_g85921_|)) + (let ((__tmp86168 + (let ((__tmp86181 + (let ((__tmp86182 |gx[1]#_g86183_|)) (declare (not safe)) - (cons 'e __tmp85920))) - (__tmp85907 - (let ((__tmp85916 - (let ((__tmp85917 |gx[1]#_g85918_|)) + (cons 'e __tmp86182))) + (__tmp86169 + (let ((__tmp86178 + (let ((__tmp86179 |gx[1]#_g86180_|)) (declare (not safe)) - (cons 'id __tmp85917))) - (__tmp85908 - (let ((__tmp85913 - (let ((__tmp85914 |gx[1]#_g85915_|)) + (cons 'id __tmp86179))) + (__tmp86170 + (let ((__tmp86175 + (let ((__tmp86176 |gx[1]#_g86177_|)) (declare (not safe)) - (cons 'key __tmp85914))) - (__tmp85909 - (let ((__tmp85910 - (let ((__tmp85911 |gx[1]#_g85912_|)) + (cons 'key __tmp86176))) + (__tmp86171 + (let ((__tmp86172 + (let ((__tmp86173 |gx[1]#_g86174_|)) (declare (not safe)) - (cons 'phi __tmp85911)))) + (cons 'phi __tmp86173)))) (declare (not safe)) - (cons __tmp85910 '())))) + (cons __tmp86172 '())))) (declare (not safe)) - (cons __tmp85913 __tmp85909)))) + (cons __tmp86175 __tmp86171)))) (declare (not safe)) - (cons __tmp85916 __tmp85908)))) + (cons __tmp86178 __tmp86170)))) (declare (not safe)) - (cons __tmp85919 __tmp85907)))) + (cons __tmp86181 __tmp86169)))) (declare (not safe)) (##unchecked-structure-set! - __obj84763 - __tmp85906 + __obj85025 + __tmp86168 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84763)) + __obj85025)) (define |gx[:0:]#import-binding| - (let ((__obj84764 + (let ((__obj85026 (let () (declare (not safe)) (##structure @@ -7343,7 +7343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj85026 'gx#import-binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7351,7 +7351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj85026 'import-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7359,26 +7359,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj85026 '(e context weak?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85922 - (let ((__tmp85923 |gx[1]#_g85553_|)) + (let ((__tmp86184 + (let ((__tmp86185 |gx[1]#_g85815_|)) (declare (not safe)) - (cons __tmp85923 '())))) + (cons __tmp86185 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85922 + __obj85026 + __tmp86184 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj85026 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7386,7 +7386,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj85026 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7394,7 +7394,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj85026 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7402,254 +7402,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84764 + __obj85026 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85924 |gx[1]#_g85925_|)) + (let ((__tmp86186 |gx[1]#_g86187_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85924 + __obj85026 + __tmp86186 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85926 |gx[1]#_g85927_|)) + (let ((__tmp86188 |gx[1]#_g86189_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85926 + __obj85026 + __tmp86188 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85928 |gx[1]#_g85929_|)) + (let ((__tmp86190 |gx[1]#_g86191_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85928 + __obj85026 + __tmp86190 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85930 - (let ((__tmp85951 - (let ((__tmp85952 |gx[1]#_g85953_|)) + (let ((__tmp86192 + (let ((__tmp86213 + (let ((__tmp86214 |gx[1]#_g86215_|)) (declare (not safe)) - (cons 'e __tmp85952))) - (__tmp85931 - (let ((__tmp85948 - (let ((__tmp85949 |gx[1]#_g85950_|)) + (cons 'e __tmp86214))) + (__tmp86193 + (let ((__tmp86210 + (let ((__tmp86211 |gx[1]#_g86212_|)) (declare (not safe)) - (cons 'context __tmp85949))) - (__tmp85932 - (let ((__tmp85945 - (let ((__tmp85946 |gx[1]#_g85947_|)) + (cons 'context __tmp86211))) + (__tmp86194 + (let ((__tmp86207 + (let ((__tmp86208 |gx[1]#_g86209_|)) (declare (not safe)) - (cons 'weak? __tmp85946))) - (__tmp85933 - (let ((__tmp85942 - (let ((__tmp85943 |gx[1]#_g85944_|)) + (cons 'weak? __tmp86208))) + (__tmp86195 + (let ((__tmp86204 + (let ((__tmp86205 |gx[1]#_g86206_|)) (declare (not safe)) - (cons 'id __tmp85943))) - (__tmp85934 - (let ((__tmp85939 - (let ((__tmp85940 - |gx[1]#_g85941_|)) + (cons 'id __tmp86205))) + (__tmp86196 + (let ((__tmp86201 + (let ((__tmp86202 + |gx[1]#_g86203_|)) (declare (not safe)) - (cons 'key __tmp85940))) - (__tmp85935 - (let ((__tmp85936 - (let ((__tmp85937 - |gx[1]#_g85938_|)) + (cons 'key __tmp86202))) + (__tmp86197 + (let ((__tmp86198 + (let ((__tmp86199 + |gx[1]#_g86200_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85937)))) + __tmp86199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85936 '())))) + (cons __tmp86198 '())))) (declare (not safe)) - (cons __tmp85939 __tmp85935)))) + (cons __tmp86201 __tmp86197)))) (declare (not safe)) - (cons __tmp85942 __tmp85934)))) + (cons __tmp86204 __tmp86196)))) (declare (not safe)) - (cons __tmp85945 __tmp85933)))) + (cons __tmp86207 __tmp86195)))) (declare (not safe)) - (cons __tmp85948 __tmp85932)))) + (cons __tmp86210 __tmp86194)))) (declare (not safe)) - (cons __tmp85951 __tmp85931)))) + (cons __tmp86213 __tmp86193)))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85930 + __obj85026 + __tmp86192 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85954 - (let ((__tmp85975 - (let ((__tmp85976 |gx[1]#_g85977_|)) + (let ((__tmp86216 + (let ((__tmp86237 + (let ((__tmp86238 |gx[1]#_g86239_|)) (declare (not safe)) - (cons 'e __tmp85976))) - (__tmp85955 - (let ((__tmp85972 - (let ((__tmp85973 |gx[1]#_g85974_|)) + (cons 'e __tmp86238))) + (__tmp86217 + (let ((__tmp86234 + (let ((__tmp86235 |gx[1]#_g86236_|)) (declare (not safe)) - (cons 'context __tmp85973))) - (__tmp85956 - (let ((__tmp85969 - (let ((__tmp85970 |gx[1]#_g85971_|)) + (cons 'context __tmp86235))) + (__tmp86218 + (let ((__tmp86231 + (let ((__tmp86232 |gx[1]#_g86233_|)) (declare (not safe)) - (cons 'weak? __tmp85970))) - (__tmp85957 - (let ((__tmp85966 - (let ((__tmp85967 |gx[1]#_g85968_|)) + (cons 'weak? __tmp86232))) + (__tmp86219 + (let ((__tmp86228 + (let ((__tmp86229 |gx[1]#_g86230_|)) (declare (not safe)) - (cons 'id __tmp85967))) - (__tmp85958 - (let ((__tmp85963 - (let ((__tmp85964 - |gx[1]#_g85965_|)) + (cons 'id __tmp86229))) + (__tmp86220 + (let ((__tmp86225 + (let ((__tmp86226 + |gx[1]#_g86227_|)) (declare (not safe)) - (cons 'key __tmp85964))) - (__tmp85959 - (let ((__tmp85960 - (let ((__tmp85961 - |gx[1]#_g85962_|)) + (cons 'key __tmp86226))) + (__tmp86221 + (let ((__tmp86222 + (let ((__tmp86223 + |gx[1]#_g86224_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85961)))) + __tmp86223)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85960 '())))) + (cons __tmp86222 '())))) (declare (not safe)) - (cons __tmp85963 __tmp85959)))) + (cons __tmp86225 __tmp86221)))) (declare (not safe)) - (cons __tmp85966 __tmp85958)))) + (cons __tmp86228 __tmp86220)))) (declare (not safe)) - (cons __tmp85969 __tmp85957)))) + (cons __tmp86231 __tmp86219)))) (declare (not safe)) - (cons __tmp85972 __tmp85956)))) + (cons __tmp86234 __tmp86218)))) (declare (not safe)) - (cons __tmp85975 __tmp85955)))) + (cons __tmp86237 __tmp86217)))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85954 + __obj85026 + __tmp86216 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp85978 - (let ((__tmp85999 - (let ((__tmp86000 |gx[1]#_g86001_|)) + (let ((__tmp86240 + (let ((__tmp86261 + (let ((__tmp86262 |gx[1]#_g86263_|)) (declare (not safe)) - (cons 'e __tmp86000))) - (__tmp85979 - (let ((__tmp85996 - (let ((__tmp85997 |gx[1]#_g85998_|)) + (cons 'e __tmp86262))) + (__tmp86241 + (let ((__tmp86258 + (let ((__tmp86259 |gx[1]#_g86260_|)) (declare (not safe)) - (cons 'context __tmp85997))) - (__tmp85980 - (let ((__tmp85993 - (let ((__tmp85994 |gx[1]#_g85995_|)) + (cons 'context __tmp86259))) + (__tmp86242 + (let ((__tmp86255 + (let ((__tmp86256 |gx[1]#_g86257_|)) (declare (not safe)) - (cons 'weak? __tmp85994))) - (__tmp85981 - (let ((__tmp85990 - (let ((__tmp85991 |gx[1]#_g85992_|)) + (cons 'weak? __tmp86256))) + (__tmp86243 + (let ((__tmp86252 + (let ((__tmp86253 |gx[1]#_g86254_|)) (declare (not safe)) - (cons 'id __tmp85991))) - (__tmp85982 - (let ((__tmp85987 - (let ((__tmp85988 - |gx[1]#_g85989_|)) + (cons 'id __tmp86253))) + (__tmp86244 + (let ((__tmp86249 + (let ((__tmp86250 + |gx[1]#_g86251_|)) (declare (not safe)) - (cons 'key __tmp85988))) - (__tmp85983 - (let ((__tmp85984 - (let ((__tmp85985 - |gx[1]#_g85986_|)) + (cons 'key __tmp86250))) + (__tmp86245 + (let ((__tmp86246 + (let ((__tmp86247 + |gx[1]#_g86248_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp85985)))) + __tmp86247)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp85984 '())))) + (cons __tmp86246 '())))) (declare (not safe)) - (cons __tmp85987 __tmp85983)))) + (cons __tmp86249 __tmp86245)))) (declare (not safe)) - (cons __tmp85990 __tmp85982)))) + (cons __tmp86252 __tmp86244)))) (declare (not safe)) - (cons __tmp85993 __tmp85981)))) + (cons __tmp86255 __tmp86243)))) (declare (not safe)) - (cons __tmp85996 __tmp85980)))) + (cons __tmp86258 __tmp86242)))) (declare (not safe)) - (cons __tmp85999 __tmp85979)))) + (cons __tmp86261 __tmp86241)))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp85978 + __obj85026 + __tmp86240 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86002 - (let ((__tmp86023 - (let ((__tmp86024 |gx[1]#_g86025_|)) + (let ((__tmp86264 + (let ((__tmp86285 + (let ((__tmp86286 |gx[1]#_g86287_|)) (declare (not safe)) - (cons 'e __tmp86024))) - (__tmp86003 - (let ((__tmp86020 - (let ((__tmp86021 |gx[1]#_g86022_|)) + (cons 'e __tmp86286))) + (__tmp86265 + (let ((__tmp86282 + (let ((__tmp86283 |gx[1]#_g86284_|)) (declare (not safe)) - (cons 'context __tmp86021))) - (__tmp86004 - (let ((__tmp86017 - (let ((__tmp86018 |gx[1]#_g86019_|)) + (cons 'context __tmp86283))) + (__tmp86266 + (let ((__tmp86279 + (let ((__tmp86280 |gx[1]#_g86281_|)) (declare (not safe)) - (cons 'weak? __tmp86018))) - (__tmp86005 - (let ((__tmp86014 - (let ((__tmp86015 |gx[1]#_g86016_|)) + (cons 'weak? __tmp86280))) + (__tmp86267 + (let ((__tmp86276 + (let ((__tmp86277 |gx[1]#_g86278_|)) (declare (not safe)) - (cons 'id __tmp86015))) - (__tmp86006 - (let ((__tmp86011 - (let ((__tmp86012 - |gx[1]#_g86013_|)) + (cons 'id __tmp86277))) + (__tmp86268 + (let ((__tmp86273 + (let ((__tmp86274 + |gx[1]#_g86275_|)) (declare (not safe)) - (cons 'key __tmp86012))) - (__tmp86007 - (let ((__tmp86008 - (let ((__tmp86009 - |gx[1]#_g86010_|)) + (cons 'key __tmp86274))) + (__tmp86269 + (let ((__tmp86270 + (let ((__tmp86271 + |gx[1]#_g86272_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86009)))) + __tmp86271)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86008 '())))) + (cons __tmp86270 '())))) (declare (not safe)) - (cons __tmp86011 __tmp86007)))) + (cons __tmp86273 __tmp86269)))) (declare (not safe)) - (cons __tmp86014 __tmp86006)))) + (cons __tmp86276 __tmp86268)))) (declare (not safe)) - (cons __tmp86017 __tmp86005)))) + (cons __tmp86279 __tmp86267)))) (declare (not safe)) - (cons __tmp86020 __tmp86004)))) + (cons __tmp86282 __tmp86266)))) (declare (not safe)) - (cons __tmp86023 __tmp86003)))) + (cons __tmp86285 __tmp86265)))) (declare (not safe)) (##unchecked-structure-set! - __obj84764 - __tmp86002 + __obj85026 + __tmp86264 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84764)) + __obj85026)) (define |gx[:0:]#alias-binding| - (let ((__obj84765 + (let ((__obj85027 (let () (declare (not safe)) (##structure @@ -7672,7 +7672,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj85027 'gx#alias-binding::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7680,7 +7680,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj85027 'alias-binding '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7688,26 +7688,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj85027 '(e) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86026 - (let ((__tmp86027 |gx[1]#_g85553_|)) + (let ((__tmp86288 + (let ((__tmp86289 |gx[1]#_g85815_|)) (declare (not safe)) - (cons __tmp86027 '())))) + (cons __tmp86289 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp86026 + __obj85027 + __tmp86288 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj85027 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7715,7 +7715,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj85027 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7723,7 +7723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj85027 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7731,178 +7731,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84765 + __obj85027 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86028 |gx[1]#_g86029_|)) + (let ((__tmp86290 |gx[1]#_g86291_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp86028 + __obj85027 + __tmp86290 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86030 |gx[1]#_g86031_|)) + (let ((__tmp86292 |gx[1]#_g86293_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp86030 + __obj85027 + __tmp86292 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86032 |gx[1]#_g86033_|)) + (let ((__tmp86294 |gx[1]#_g86295_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp86032 + __obj85027 + __tmp86294 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86034 - (let ((__tmp86047 - (let ((__tmp86048 |gx[1]#_g86049_|)) + (let ((__tmp86296 + (let ((__tmp86309 + (let ((__tmp86310 |gx[1]#_g86311_|)) (declare (not safe)) - (cons 'e __tmp86048))) - (__tmp86035 - (let ((__tmp86044 - (let ((__tmp86045 |gx[1]#_g86046_|)) + (cons 'e __tmp86310))) + (__tmp86297 + (let ((__tmp86306 + (let ((__tmp86307 |gx[1]#_g86308_|)) (declare (not safe)) - (cons 'id __tmp86045))) - (__tmp86036 - (let ((__tmp86041 - (let ((__tmp86042 |gx[1]#_g86043_|)) + (cons 'id __tmp86307))) + (__tmp86298 + (let ((__tmp86303 + (let ((__tmp86304 |gx[1]#_g86305_|)) (declare (not safe)) - (cons 'key __tmp86042))) - (__tmp86037 - (let ((__tmp86038 - (let ((__tmp86039 |gx[1]#_g86040_|)) + (cons 'key __tmp86304))) + (__tmp86299 + (let ((__tmp86300 + (let ((__tmp86301 |gx[1]#_g86302_|)) (declare (not safe)) - (cons 'phi __tmp86039)))) + (cons 'phi __tmp86301)))) (declare (not safe)) - (cons __tmp86038 '())))) + (cons __tmp86300 '())))) (declare (not safe)) - (cons __tmp86041 __tmp86037)))) + (cons __tmp86303 __tmp86299)))) (declare (not safe)) - (cons __tmp86044 __tmp86036)))) + (cons __tmp86306 __tmp86298)))) (declare (not safe)) - (cons __tmp86047 __tmp86035)))) + (cons __tmp86309 __tmp86297)))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp86034 + __obj85027 + __tmp86296 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86050 - (let ((__tmp86063 - (let ((__tmp86064 |gx[1]#_g86065_|)) + (let ((__tmp86312 + (let ((__tmp86325 + (let ((__tmp86326 |gx[1]#_g86327_|)) (declare (not safe)) - (cons 'e __tmp86064))) - (__tmp86051 - (let ((__tmp86060 - (let ((__tmp86061 |gx[1]#_g86062_|)) + (cons 'e __tmp86326))) + (__tmp86313 + (let ((__tmp86322 + (let ((__tmp86323 |gx[1]#_g86324_|)) (declare (not safe)) - (cons 'id __tmp86061))) - (__tmp86052 - (let ((__tmp86057 - (let ((__tmp86058 |gx[1]#_g86059_|)) + (cons 'id __tmp86323))) + (__tmp86314 + (let ((__tmp86319 + (let ((__tmp86320 |gx[1]#_g86321_|)) (declare (not safe)) - (cons 'key __tmp86058))) - (__tmp86053 - (let ((__tmp86054 - (let ((__tmp86055 |gx[1]#_g86056_|)) + (cons 'key __tmp86320))) + (__tmp86315 + (let ((__tmp86316 + (let ((__tmp86317 |gx[1]#_g86318_|)) (declare (not safe)) - (cons 'phi __tmp86055)))) + (cons 'phi __tmp86317)))) (declare (not safe)) - (cons __tmp86054 '())))) + (cons __tmp86316 '())))) (declare (not safe)) - (cons __tmp86057 __tmp86053)))) + (cons __tmp86319 __tmp86315)))) (declare (not safe)) - (cons __tmp86060 __tmp86052)))) + (cons __tmp86322 __tmp86314)))) (declare (not safe)) - (cons __tmp86063 __tmp86051)))) + (cons __tmp86325 __tmp86313)))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp86050 + __obj85027 + __tmp86312 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86066 - (let ((__tmp86079 - (let ((__tmp86080 |gx[1]#_g86081_|)) + (let ((__tmp86328 + (let ((__tmp86341 + (let ((__tmp86342 |gx[1]#_g86343_|)) (declare (not safe)) - (cons 'e __tmp86080))) - (__tmp86067 - (let ((__tmp86076 - (let ((__tmp86077 |gx[1]#_g86078_|)) + (cons 'e __tmp86342))) + (__tmp86329 + (let ((__tmp86338 + (let ((__tmp86339 |gx[1]#_g86340_|)) (declare (not safe)) - (cons 'id __tmp86077))) - (__tmp86068 - (let ((__tmp86073 - (let ((__tmp86074 |gx[1]#_g86075_|)) + (cons 'id __tmp86339))) + (__tmp86330 + (let ((__tmp86335 + (let ((__tmp86336 |gx[1]#_g86337_|)) (declare (not safe)) - (cons 'key __tmp86074))) - (__tmp86069 - (let ((__tmp86070 - (let ((__tmp86071 |gx[1]#_g86072_|)) + (cons 'key __tmp86336))) + (__tmp86331 + (let ((__tmp86332 + (let ((__tmp86333 |gx[1]#_g86334_|)) (declare (not safe)) - (cons 'phi __tmp86071)))) + (cons 'phi __tmp86333)))) (declare (not safe)) - (cons __tmp86070 '())))) + (cons __tmp86332 '())))) (declare (not safe)) - (cons __tmp86073 __tmp86069)))) + (cons __tmp86335 __tmp86331)))) (declare (not safe)) - (cons __tmp86076 __tmp86068)))) + (cons __tmp86338 __tmp86330)))) (declare (not safe)) - (cons __tmp86079 __tmp86067)))) + (cons __tmp86341 __tmp86329)))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp86066 + __obj85027 + __tmp86328 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86082 - (let ((__tmp86095 - (let ((__tmp86096 |gx[1]#_g86097_|)) + (let ((__tmp86344 + (let ((__tmp86357 + (let ((__tmp86358 |gx[1]#_g86359_|)) (declare (not safe)) - (cons 'e __tmp86096))) - (__tmp86083 - (let ((__tmp86092 - (let ((__tmp86093 |gx[1]#_g86094_|)) + (cons 'e __tmp86358))) + (__tmp86345 + (let ((__tmp86354 + (let ((__tmp86355 |gx[1]#_g86356_|)) (declare (not safe)) - (cons 'id __tmp86093))) - (__tmp86084 - (let ((__tmp86089 - (let ((__tmp86090 |gx[1]#_g86091_|)) + (cons 'id __tmp86355))) + (__tmp86346 + (let ((__tmp86351 + (let ((__tmp86352 |gx[1]#_g86353_|)) (declare (not safe)) - (cons 'key __tmp86090))) - (__tmp86085 - (let ((__tmp86086 - (let ((__tmp86087 |gx[1]#_g86088_|)) + (cons 'key __tmp86352))) + (__tmp86347 + (let ((__tmp86348 + (let ((__tmp86349 |gx[1]#_g86350_|)) (declare (not safe)) - (cons 'phi __tmp86087)))) + (cons 'phi __tmp86349)))) (declare (not safe)) - (cons __tmp86086 '())))) + (cons __tmp86348 '())))) (declare (not safe)) - (cons __tmp86089 __tmp86085)))) + (cons __tmp86351 __tmp86347)))) (declare (not safe)) - (cons __tmp86092 __tmp86084)))) + (cons __tmp86354 __tmp86346)))) (declare (not safe)) - (cons __tmp86095 __tmp86083)))) + (cons __tmp86357 __tmp86345)))) (declare (not safe)) (##unchecked-structure-set! - __obj84765 - __tmp86082 + __obj85027 + __tmp86344 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84765)) + __obj85027)) (define |gx[:0:]#expander| - (let ((__obj84766 + (let ((__obj85028 (let () (declare (not safe)) (##structure @@ -7925,7 +7925,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj85028 'gx#expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7933,7 +7933,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj85028 'expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7941,7 +7941,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj85028 '(e) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7949,7 +7949,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj85028 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7957,7 +7957,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj85028 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7965,7 +7965,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj85028 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7973,7 +7973,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj85028 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -7981,94 +7981,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84766 + __obj85028 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86098 |gx[1]#_g86099_|)) + (let ((__tmp86360 |gx[1]#_g86361_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp86098 + __obj85028 + __tmp86360 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86100 |gx[1]#_g86101_|)) + (let ((__tmp86362 |gx[1]#_g86363_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp86100 + __obj85028 + __tmp86362 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86102 |gx[1]#_g86103_|)) + (let ((__tmp86364 |gx[1]#_g86365_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp86102 + __obj85028 + __tmp86364 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86104 - (let ((__tmp86105 - (let ((__tmp86106 |gx[1]#_g86107_|)) + (let ((__tmp86366 + (let ((__tmp86367 + (let ((__tmp86368 |gx[1]#_g86369_|)) (declare (not safe)) - (cons 'e __tmp86106)))) + (cons 'e __tmp86368)))) (declare (not safe)) - (cons __tmp86105 '())))) + (cons __tmp86367 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp86104 + __obj85028 + __tmp86366 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86108 - (let ((__tmp86109 - (let ((__tmp86110 |gx[1]#_g86111_|)) + (let ((__tmp86370 + (let ((__tmp86371 + (let ((__tmp86372 |gx[1]#_g86373_|)) (declare (not safe)) - (cons 'e __tmp86110)))) + (cons 'e __tmp86372)))) (declare (not safe)) - (cons __tmp86109 '())))) + (cons __tmp86371 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp86108 + __obj85028 + __tmp86370 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86112 - (let ((__tmp86113 - (let ((__tmp86114 |gx[1]#_g86115_|)) + (let ((__tmp86374 + (let ((__tmp86375 + (let ((__tmp86376 |gx[1]#_g86377_|)) (declare (not safe)) - (cons 'e __tmp86114)))) + (cons 'e __tmp86376)))) (declare (not safe)) - (cons __tmp86113 '())))) + (cons __tmp86375 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp86112 + __obj85028 + __tmp86374 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86116 - (let ((__tmp86117 - (let ((__tmp86118 |gx[1]#_g86119_|)) + (let ((__tmp86378 + (let ((__tmp86379 + (let ((__tmp86380 |gx[1]#_g86381_|)) (declare (not safe)) - (cons 'e __tmp86118)))) + (cons 'e __tmp86380)))) (declare (not safe)) - (cons __tmp86117 '())))) + (cons __tmp86379 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84766 - __tmp86116 + __obj85028 + __tmp86378 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84766)) + __obj85028)) (define |gx[:0:]#core-expander| - (let ((__obj84767 + (let ((__obj85029 (let () (declare (not safe)) (##structure @@ -8091,7 +8091,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj85029 'gx#core-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8099,7 +8099,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj85029 'core-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8107,26 +8107,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj85029 '(id compile-top) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86120 - (let ((__tmp86121 |gx[1]#_g86122_|)) + (let ((__tmp86382 + (let ((__tmp86383 |gx[1]#_g86384_|)) (declare (not safe)) - (cons __tmp86121 '())))) + (cons __tmp86383 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86120 + __obj85029 + __tmp86382 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj85029 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8134,7 +8134,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj85029 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8142,7 +8142,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj85029 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8150,150 +8150,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84767 + __obj85029 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86123 |gx[1]#_g86124_|)) + (let ((__tmp86385 |gx[1]#_g86386_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86123 + __obj85029 + __tmp86385 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86125 |gx[1]#_g86126_|)) + (let ((__tmp86387 |gx[1]#_g86388_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86125 + __obj85029 + __tmp86387 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86127 |gx[1]#_g86128_|)) + (let ((__tmp86389 |gx[1]#_g86390_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86127 + __obj85029 + __tmp86389 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86129 - (let ((__tmp86138 - (let ((__tmp86139 |gx[1]#_g86140_|)) + (let ((__tmp86391 + (let ((__tmp86400 + (let ((__tmp86401 |gx[1]#_g86402_|)) (declare (not safe)) - (cons 'id __tmp86139))) - (__tmp86130 - (let ((__tmp86135 - (let ((__tmp86136 |gx[1]#_g86137_|)) + (cons 'id __tmp86401))) + (__tmp86392 + (let ((__tmp86397 + (let ((__tmp86398 |gx[1]#_g86399_|)) (declare (not safe)) - (cons 'compile-top __tmp86136))) - (__tmp86131 - (let ((__tmp86132 - (let ((__tmp86133 |gx[1]#_g86134_|)) + (cons 'compile-top __tmp86398))) + (__tmp86393 + (let ((__tmp86394 + (let ((__tmp86395 |gx[1]#_g86396_|)) (declare (not safe)) - (cons 'e __tmp86133)))) + (cons 'e __tmp86395)))) (declare (not safe)) - (cons __tmp86132 '())))) + (cons __tmp86394 '())))) (declare (not safe)) - (cons __tmp86135 __tmp86131)))) + (cons __tmp86397 __tmp86393)))) (declare (not safe)) - (cons __tmp86138 __tmp86130)))) + (cons __tmp86400 __tmp86392)))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86129 + __obj85029 + __tmp86391 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86141 - (let ((__tmp86150 - (let ((__tmp86151 |gx[1]#_g86152_|)) + (let ((__tmp86403 + (let ((__tmp86412 + (let ((__tmp86413 |gx[1]#_g86414_|)) (declare (not safe)) - (cons 'id __tmp86151))) - (__tmp86142 - (let ((__tmp86147 - (let ((__tmp86148 |gx[1]#_g86149_|)) + (cons 'id __tmp86413))) + (__tmp86404 + (let ((__tmp86409 + (let ((__tmp86410 |gx[1]#_g86411_|)) (declare (not safe)) - (cons 'compile-top __tmp86148))) - (__tmp86143 - (let ((__tmp86144 - (let ((__tmp86145 |gx[1]#_g86146_|)) + (cons 'compile-top __tmp86410))) + (__tmp86405 + (let ((__tmp86406 + (let ((__tmp86407 |gx[1]#_g86408_|)) (declare (not safe)) - (cons 'e __tmp86145)))) + (cons 'e __tmp86407)))) (declare (not safe)) - (cons __tmp86144 '())))) + (cons __tmp86406 '())))) (declare (not safe)) - (cons __tmp86147 __tmp86143)))) + (cons __tmp86409 __tmp86405)))) (declare (not safe)) - (cons __tmp86150 __tmp86142)))) + (cons __tmp86412 __tmp86404)))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86141 + __obj85029 + __tmp86403 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86153 - (let ((__tmp86162 - (let ((__tmp86163 |gx[1]#_g86164_|)) + (let ((__tmp86415 + (let ((__tmp86424 + (let ((__tmp86425 |gx[1]#_g86426_|)) (declare (not safe)) - (cons 'id __tmp86163))) - (__tmp86154 - (let ((__tmp86159 - (let ((__tmp86160 |gx[1]#_g86161_|)) + (cons 'id __tmp86425))) + (__tmp86416 + (let ((__tmp86421 + (let ((__tmp86422 |gx[1]#_g86423_|)) (declare (not safe)) - (cons 'compile-top __tmp86160))) - (__tmp86155 - (let ((__tmp86156 - (let ((__tmp86157 |gx[1]#_g86158_|)) + (cons 'compile-top __tmp86422))) + (__tmp86417 + (let ((__tmp86418 + (let ((__tmp86419 |gx[1]#_g86420_|)) (declare (not safe)) - (cons 'e __tmp86157)))) + (cons 'e __tmp86419)))) (declare (not safe)) - (cons __tmp86156 '())))) + (cons __tmp86418 '())))) (declare (not safe)) - (cons __tmp86159 __tmp86155)))) + (cons __tmp86421 __tmp86417)))) (declare (not safe)) - (cons __tmp86162 __tmp86154)))) + (cons __tmp86424 __tmp86416)))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86153 + __obj85029 + __tmp86415 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86165 - (let ((__tmp86174 - (let ((__tmp86175 |gx[1]#_g86176_|)) + (let ((__tmp86427 + (let ((__tmp86436 + (let ((__tmp86437 |gx[1]#_g86438_|)) (declare (not safe)) - (cons 'id __tmp86175))) - (__tmp86166 - (let ((__tmp86171 - (let ((__tmp86172 |gx[1]#_g86173_|)) + (cons 'id __tmp86437))) + (__tmp86428 + (let ((__tmp86433 + (let ((__tmp86434 |gx[1]#_g86435_|)) (declare (not safe)) - (cons 'compile-top __tmp86172))) - (__tmp86167 - (let ((__tmp86168 - (let ((__tmp86169 |gx[1]#_g86170_|)) + (cons 'compile-top __tmp86434))) + (__tmp86429 + (let ((__tmp86430 + (let ((__tmp86431 |gx[1]#_g86432_|)) (declare (not safe)) - (cons 'e __tmp86169)))) + (cons 'e __tmp86431)))) (declare (not safe)) - (cons __tmp86168 '())))) + (cons __tmp86430 '())))) (declare (not safe)) - (cons __tmp86171 __tmp86167)))) + (cons __tmp86433 __tmp86429)))) (declare (not safe)) - (cons __tmp86174 __tmp86166)))) + (cons __tmp86436 __tmp86428)))) (declare (not safe)) (##unchecked-structure-set! - __obj84767 - __tmp86165 + __obj85029 + __tmp86427 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84767)) + __obj85029)) (define |gx[:0:]#expression-form| - (let ((__obj84768 + (let ((__obj85030 (let () (declare (not safe)) (##structure @@ -8316,7 +8316,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj85030 'gx#expression-form::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8324,7 +8324,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj85030 'expression-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8332,26 +8332,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj85030 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86177 - (let ((__tmp86178 |gx[1]#_g86179_|)) + (let ((__tmp86439 + (let ((__tmp86440 |gx[1]#_g86441_|)) (declare (not safe)) - (cons __tmp86178 '())))) + (cons __tmp86440 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86177 + __obj85030 + __tmp86439 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj85030 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8359,7 +8359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj85030 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8367,7 +8367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj85030 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8375,150 +8375,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84768 + __obj85030 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86180 |gx[1]#_g86181_|)) + (let ((__tmp86442 |gx[1]#_g86443_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86180 + __obj85030 + __tmp86442 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86182 |gx[1]#_g86183_|)) + (let ((__tmp86444 |gx[1]#_g86445_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86182 + __obj85030 + __tmp86444 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86184 |gx[1]#_g86185_|)) + (let ((__tmp86446 |gx[1]#_g86447_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86184 + __obj85030 + __tmp86446 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86186 - (let ((__tmp86195 - (let ((__tmp86196 |gx[1]#_g86197_|)) + (let ((__tmp86448 + (let ((__tmp86457 + (let ((__tmp86458 |gx[1]#_g86459_|)) (declare (not safe)) - (cons 'id __tmp86196))) - (__tmp86187 - (let ((__tmp86192 - (let ((__tmp86193 |gx[1]#_g86194_|)) + (cons 'id __tmp86458))) + (__tmp86449 + (let ((__tmp86454 + (let ((__tmp86455 |gx[1]#_g86456_|)) (declare (not safe)) - (cons 'compile-top __tmp86193))) - (__tmp86188 - (let ((__tmp86189 - (let ((__tmp86190 |gx[1]#_g86191_|)) + (cons 'compile-top __tmp86455))) + (__tmp86450 + (let ((__tmp86451 + (let ((__tmp86452 |gx[1]#_g86453_|)) (declare (not safe)) - (cons 'e __tmp86190)))) + (cons 'e __tmp86452)))) (declare (not safe)) - (cons __tmp86189 '())))) + (cons __tmp86451 '())))) (declare (not safe)) - (cons __tmp86192 __tmp86188)))) + (cons __tmp86454 __tmp86450)))) (declare (not safe)) - (cons __tmp86195 __tmp86187)))) + (cons __tmp86457 __tmp86449)))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86186 + __obj85030 + __tmp86448 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86198 - (let ((__tmp86207 - (let ((__tmp86208 |gx[1]#_g86209_|)) + (let ((__tmp86460 + (let ((__tmp86469 + (let ((__tmp86470 |gx[1]#_g86471_|)) (declare (not safe)) - (cons 'id __tmp86208))) - (__tmp86199 - (let ((__tmp86204 - (let ((__tmp86205 |gx[1]#_g86206_|)) + (cons 'id __tmp86470))) + (__tmp86461 + (let ((__tmp86466 + (let ((__tmp86467 |gx[1]#_g86468_|)) (declare (not safe)) - (cons 'compile-top __tmp86205))) - (__tmp86200 - (let ((__tmp86201 - (let ((__tmp86202 |gx[1]#_g86203_|)) + (cons 'compile-top __tmp86467))) + (__tmp86462 + (let ((__tmp86463 + (let ((__tmp86464 |gx[1]#_g86465_|)) (declare (not safe)) - (cons 'e __tmp86202)))) + (cons 'e __tmp86464)))) (declare (not safe)) - (cons __tmp86201 '())))) + (cons __tmp86463 '())))) (declare (not safe)) - (cons __tmp86204 __tmp86200)))) + (cons __tmp86466 __tmp86462)))) (declare (not safe)) - (cons __tmp86207 __tmp86199)))) + (cons __tmp86469 __tmp86461)))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86198 + __obj85030 + __tmp86460 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86210 - (let ((__tmp86219 - (let ((__tmp86220 |gx[1]#_g86221_|)) + (let ((__tmp86472 + (let ((__tmp86481 + (let ((__tmp86482 |gx[1]#_g86483_|)) (declare (not safe)) - (cons 'id __tmp86220))) - (__tmp86211 - (let ((__tmp86216 - (let ((__tmp86217 |gx[1]#_g86218_|)) + (cons 'id __tmp86482))) + (__tmp86473 + (let ((__tmp86478 + (let ((__tmp86479 |gx[1]#_g86480_|)) (declare (not safe)) - (cons 'compile-top __tmp86217))) - (__tmp86212 - (let ((__tmp86213 - (let ((__tmp86214 |gx[1]#_g86215_|)) + (cons 'compile-top __tmp86479))) + (__tmp86474 + (let ((__tmp86475 + (let ((__tmp86476 |gx[1]#_g86477_|)) (declare (not safe)) - (cons 'e __tmp86214)))) + (cons 'e __tmp86476)))) (declare (not safe)) - (cons __tmp86213 '())))) + (cons __tmp86475 '())))) (declare (not safe)) - (cons __tmp86216 __tmp86212)))) + (cons __tmp86478 __tmp86474)))) (declare (not safe)) - (cons __tmp86219 __tmp86211)))) + (cons __tmp86481 __tmp86473)))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86210 + __obj85030 + __tmp86472 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86222 - (let ((__tmp86231 - (let ((__tmp86232 |gx[1]#_g86233_|)) + (let ((__tmp86484 + (let ((__tmp86493 + (let ((__tmp86494 |gx[1]#_g86495_|)) (declare (not safe)) - (cons 'id __tmp86232))) - (__tmp86223 - (let ((__tmp86228 - (let ((__tmp86229 |gx[1]#_g86230_|)) + (cons 'id __tmp86494))) + (__tmp86485 + (let ((__tmp86490 + (let ((__tmp86491 |gx[1]#_g86492_|)) (declare (not safe)) - (cons 'compile-top __tmp86229))) - (__tmp86224 - (let ((__tmp86225 - (let ((__tmp86226 |gx[1]#_g86227_|)) + (cons 'compile-top __tmp86491))) + (__tmp86486 + (let ((__tmp86487 + (let ((__tmp86488 |gx[1]#_g86489_|)) (declare (not safe)) - (cons 'e __tmp86226)))) + (cons 'e __tmp86488)))) (declare (not safe)) - (cons __tmp86225 '())))) + (cons __tmp86487 '())))) (declare (not safe)) - (cons __tmp86228 __tmp86224)))) + (cons __tmp86490 __tmp86486)))) (declare (not safe)) - (cons __tmp86231 __tmp86223)))) + (cons __tmp86493 __tmp86485)))) (declare (not safe)) (##unchecked-structure-set! - __obj84768 - __tmp86222 + __obj85030 + __tmp86484 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84768)) + __obj85030)) (define |gx[:0:]#special-form| - (let ((__obj84769 + (let ((__obj85031 (let () (declare (not safe)) (##structure @@ -8541,7 +8541,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj85031 'gx#special-form::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8549,7 +8549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj85031 'special-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8557,26 +8557,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj85031 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86234 - (let ((__tmp86235 |gx[1]#_g86179_|)) + (let ((__tmp86496 + (let ((__tmp86497 |gx[1]#_g86441_|)) (declare (not safe)) - (cons __tmp86235 '())))) + (cons __tmp86497 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86234 + __obj85031 + __tmp86496 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj85031 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8584,7 +8584,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj85031 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8592,7 +8592,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj85031 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8600,150 +8600,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84769 + __obj85031 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86236 |gx[1]#_g86237_|)) + (let ((__tmp86498 |gx[1]#_g86499_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86236 + __obj85031 + __tmp86498 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86238 |gx[1]#_g86239_|)) + (let ((__tmp86500 |gx[1]#_g86501_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86238 + __obj85031 + __tmp86500 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86240 |gx[1]#_g86241_|)) + (let ((__tmp86502 |gx[1]#_g86503_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86240 + __obj85031 + __tmp86502 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86242 - (let ((__tmp86251 - (let ((__tmp86252 |gx[1]#_g86253_|)) + (let ((__tmp86504 + (let ((__tmp86513 + (let ((__tmp86514 |gx[1]#_g86515_|)) (declare (not safe)) - (cons 'id __tmp86252))) - (__tmp86243 - (let ((__tmp86248 - (let ((__tmp86249 |gx[1]#_g86250_|)) + (cons 'id __tmp86514))) + (__tmp86505 + (let ((__tmp86510 + (let ((__tmp86511 |gx[1]#_g86512_|)) (declare (not safe)) - (cons 'compile-top __tmp86249))) - (__tmp86244 - (let ((__tmp86245 - (let ((__tmp86246 |gx[1]#_g86247_|)) + (cons 'compile-top __tmp86511))) + (__tmp86506 + (let ((__tmp86507 + (let ((__tmp86508 |gx[1]#_g86509_|)) (declare (not safe)) - (cons 'e __tmp86246)))) + (cons 'e __tmp86508)))) (declare (not safe)) - (cons __tmp86245 '())))) + (cons __tmp86507 '())))) (declare (not safe)) - (cons __tmp86248 __tmp86244)))) + (cons __tmp86510 __tmp86506)))) (declare (not safe)) - (cons __tmp86251 __tmp86243)))) + (cons __tmp86513 __tmp86505)))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86242 + __obj85031 + __tmp86504 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86254 - (let ((__tmp86263 - (let ((__tmp86264 |gx[1]#_g86265_|)) + (let ((__tmp86516 + (let ((__tmp86525 + (let ((__tmp86526 |gx[1]#_g86527_|)) (declare (not safe)) - (cons 'id __tmp86264))) - (__tmp86255 - (let ((__tmp86260 - (let ((__tmp86261 |gx[1]#_g86262_|)) + (cons 'id __tmp86526))) + (__tmp86517 + (let ((__tmp86522 + (let ((__tmp86523 |gx[1]#_g86524_|)) (declare (not safe)) - (cons 'compile-top __tmp86261))) - (__tmp86256 - (let ((__tmp86257 - (let ((__tmp86258 |gx[1]#_g86259_|)) + (cons 'compile-top __tmp86523))) + (__tmp86518 + (let ((__tmp86519 + (let ((__tmp86520 |gx[1]#_g86521_|)) (declare (not safe)) - (cons 'e __tmp86258)))) + (cons 'e __tmp86520)))) (declare (not safe)) - (cons __tmp86257 '())))) + (cons __tmp86519 '())))) (declare (not safe)) - (cons __tmp86260 __tmp86256)))) + (cons __tmp86522 __tmp86518)))) (declare (not safe)) - (cons __tmp86263 __tmp86255)))) + (cons __tmp86525 __tmp86517)))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86254 + __obj85031 + __tmp86516 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86266 - (let ((__tmp86275 - (let ((__tmp86276 |gx[1]#_g86277_|)) + (let ((__tmp86528 + (let ((__tmp86537 + (let ((__tmp86538 |gx[1]#_g86539_|)) (declare (not safe)) - (cons 'id __tmp86276))) - (__tmp86267 - (let ((__tmp86272 - (let ((__tmp86273 |gx[1]#_g86274_|)) + (cons 'id __tmp86538))) + (__tmp86529 + (let ((__tmp86534 + (let ((__tmp86535 |gx[1]#_g86536_|)) (declare (not safe)) - (cons 'compile-top __tmp86273))) - (__tmp86268 - (let ((__tmp86269 - (let ((__tmp86270 |gx[1]#_g86271_|)) + (cons 'compile-top __tmp86535))) + (__tmp86530 + (let ((__tmp86531 + (let ((__tmp86532 |gx[1]#_g86533_|)) (declare (not safe)) - (cons 'e __tmp86270)))) + (cons 'e __tmp86532)))) (declare (not safe)) - (cons __tmp86269 '())))) + (cons __tmp86531 '())))) (declare (not safe)) - (cons __tmp86272 __tmp86268)))) + (cons __tmp86534 __tmp86530)))) (declare (not safe)) - (cons __tmp86275 __tmp86267)))) + (cons __tmp86537 __tmp86529)))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86266 + __obj85031 + __tmp86528 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86278 - (let ((__tmp86287 - (let ((__tmp86288 |gx[1]#_g86289_|)) + (let ((__tmp86540 + (let ((__tmp86549 + (let ((__tmp86550 |gx[1]#_g86551_|)) (declare (not safe)) - (cons 'id __tmp86288))) - (__tmp86279 - (let ((__tmp86284 - (let ((__tmp86285 |gx[1]#_g86286_|)) + (cons 'id __tmp86550))) + (__tmp86541 + (let ((__tmp86546 + (let ((__tmp86547 |gx[1]#_g86548_|)) (declare (not safe)) - (cons 'compile-top __tmp86285))) - (__tmp86280 - (let ((__tmp86281 - (let ((__tmp86282 |gx[1]#_g86283_|)) + (cons 'compile-top __tmp86547))) + (__tmp86542 + (let ((__tmp86543 + (let ((__tmp86544 |gx[1]#_g86545_|)) (declare (not safe)) - (cons 'e __tmp86282)))) + (cons 'e __tmp86544)))) (declare (not safe)) - (cons __tmp86281 '())))) + (cons __tmp86543 '())))) (declare (not safe)) - (cons __tmp86284 __tmp86280)))) + (cons __tmp86546 __tmp86542)))) (declare (not safe)) - (cons __tmp86287 __tmp86279)))) + (cons __tmp86549 __tmp86541)))) (declare (not safe)) (##unchecked-structure-set! - __obj84769 - __tmp86278 + __obj85031 + __tmp86540 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84769)) + __obj85031)) (define |gx[:0:]#definition-form| - (let ((__obj84770 + (let ((__obj85032 (let () (declare (not safe)) (##structure @@ -8766,7 +8766,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj85032 'gx#definition-form::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8774,7 +8774,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj85032 'definition-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8782,26 +8782,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj85032 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86290 - (let ((__tmp86291 |gx[1]#_g86292_|)) + (let ((__tmp86552 + (let ((__tmp86553 |gx[1]#_g86554_|)) (declare (not safe)) - (cons __tmp86291 '())))) + (cons __tmp86553 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86290 + __obj85032 + __tmp86552 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj85032 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8809,7 +8809,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj85032 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8817,7 +8817,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj85032 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8825,150 +8825,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84770 + __obj85032 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86293 |gx[1]#_g86294_|)) + (let ((__tmp86555 |gx[1]#_g86556_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86293 + __obj85032 + __tmp86555 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86295 |gx[1]#_g86296_|)) + (let ((__tmp86557 |gx[1]#_g86558_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86295 + __obj85032 + __tmp86557 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86297 |gx[1]#_g86298_|)) + (let ((__tmp86559 |gx[1]#_g86560_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86297 + __obj85032 + __tmp86559 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86299 - (let ((__tmp86308 - (let ((__tmp86309 |gx[1]#_g86310_|)) + (let ((__tmp86561 + (let ((__tmp86570 + (let ((__tmp86571 |gx[1]#_g86572_|)) (declare (not safe)) - (cons 'id __tmp86309))) - (__tmp86300 - (let ((__tmp86305 - (let ((__tmp86306 |gx[1]#_g86307_|)) + (cons 'id __tmp86571))) + (__tmp86562 + (let ((__tmp86567 + (let ((__tmp86568 |gx[1]#_g86569_|)) (declare (not safe)) - (cons 'compile-top __tmp86306))) - (__tmp86301 - (let ((__tmp86302 - (let ((__tmp86303 |gx[1]#_g86304_|)) + (cons 'compile-top __tmp86568))) + (__tmp86563 + (let ((__tmp86564 + (let ((__tmp86565 |gx[1]#_g86566_|)) (declare (not safe)) - (cons 'e __tmp86303)))) + (cons 'e __tmp86565)))) (declare (not safe)) - (cons __tmp86302 '())))) + (cons __tmp86564 '())))) (declare (not safe)) - (cons __tmp86305 __tmp86301)))) + (cons __tmp86567 __tmp86563)))) (declare (not safe)) - (cons __tmp86308 __tmp86300)))) + (cons __tmp86570 __tmp86562)))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86299 + __obj85032 + __tmp86561 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86311 - (let ((__tmp86320 - (let ((__tmp86321 |gx[1]#_g86322_|)) + (let ((__tmp86573 + (let ((__tmp86582 + (let ((__tmp86583 |gx[1]#_g86584_|)) (declare (not safe)) - (cons 'id __tmp86321))) - (__tmp86312 - (let ((__tmp86317 - (let ((__tmp86318 |gx[1]#_g86319_|)) + (cons 'id __tmp86583))) + (__tmp86574 + (let ((__tmp86579 + (let ((__tmp86580 |gx[1]#_g86581_|)) (declare (not safe)) - (cons 'compile-top __tmp86318))) - (__tmp86313 - (let ((__tmp86314 - (let ((__tmp86315 |gx[1]#_g86316_|)) + (cons 'compile-top __tmp86580))) + (__tmp86575 + (let ((__tmp86576 + (let ((__tmp86577 |gx[1]#_g86578_|)) (declare (not safe)) - (cons 'e __tmp86315)))) + (cons 'e __tmp86577)))) (declare (not safe)) - (cons __tmp86314 '())))) + (cons __tmp86576 '())))) (declare (not safe)) - (cons __tmp86317 __tmp86313)))) + (cons __tmp86579 __tmp86575)))) (declare (not safe)) - (cons __tmp86320 __tmp86312)))) + (cons __tmp86582 __tmp86574)))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86311 + __obj85032 + __tmp86573 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86323 - (let ((__tmp86332 - (let ((__tmp86333 |gx[1]#_g86334_|)) + (let ((__tmp86585 + (let ((__tmp86594 + (let ((__tmp86595 |gx[1]#_g86596_|)) (declare (not safe)) - (cons 'id __tmp86333))) - (__tmp86324 - (let ((__tmp86329 - (let ((__tmp86330 |gx[1]#_g86331_|)) + (cons 'id __tmp86595))) + (__tmp86586 + (let ((__tmp86591 + (let ((__tmp86592 |gx[1]#_g86593_|)) (declare (not safe)) - (cons 'compile-top __tmp86330))) - (__tmp86325 - (let ((__tmp86326 - (let ((__tmp86327 |gx[1]#_g86328_|)) + (cons 'compile-top __tmp86592))) + (__tmp86587 + (let ((__tmp86588 + (let ((__tmp86589 |gx[1]#_g86590_|)) (declare (not safe)) - (cons 'e __tmp86327)))) + (cons 'e __tmp86589)))) (declare (not safe)) - (cons __tmp86326 '())))) + (cons __tmp86588 '())))) (declare (not safe)) - (cons __tmp86329 __tmp86325)))) + (cons __tmp86591 __tmp86587)))) (declare (not safe)) - (cons __tmp86332 __tmp86324)))) + (cons __tmp86594 __tmp86586)))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86323 + __obj85032 + __tmp86585 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86335 - (let ((__tmp86344 - (let ((__tmp86345 |gx[1]#_g86346_|)) + (let ((__tmp86597 + (let ((__tmp86606 + (let ((__tmp86607 |gx[1]#_g86608_|)) (declare (not safe)) - (cons 'id __tmp86345))) - (__tmp86336 - (let ((__tmp86341 - (let ((__tmp86342 |gx[1]#_g86343_|)) + (cons 'id __tmp86607))) + (__tmp86598 + (let ((__tmp86603 + (let ((__tmp86604 |gx[1]#_g86605_|)) (declare (not safe)) - (cons 'compile-top __tmp86342))) - (__tmp86337 - (let ((__tmp86338 - (let ((__tmp86339 |gx[1]#_g86340_|)) + (cons 'compile-top __tmp86604))) + (__tmp86599 + (let ((__tmp86600 + (let ((__tmp86601 |gx[1]#_g86602_|)) (declare (not safe)) - (cons 'e __tmp86339)))) + (cons 'e __tmp86601)))) (declare (not safe)) - (cons __tmp86338 '())))) + (cons __tmp86600 '())))) (declare (not safe)) - (cons __tmp86341 __tmp86337)))) + (cons __tmp86603 __tmp86599)))) (declare (not safe)) - (cons __tmp86344 __tmp86336)))) + (cons __tmp86606 __tmp86598)))) (declare (not safe)) (##unchecked-structure-set! - __obj84770 - __tmp86335 + __obj85032 + __tmp86597 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84770)) + __obj85032)) (define |gx[:0:]#top-special-form| - (let ((__obj84771 + (let ((__obj85033 (let () (declare (not safe)) (##structure @@ -8991,7 +8991,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj85033 'gx#top-special-form::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -8999,7 +8999,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj85033 'top-special-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9007,26 +9007,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj85033 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86347 - (let ((__tmp86348 |gx[1]#_g86292_|)) + (let ((__tmp86609 + (let ((__tmp86610 |gx[1]#_g86554_|)) (declare (not safe)) - (cons __tmp86348 '())))) + (cons __tmp86610 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86347 + __obj85033 + __tmp86609 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj85033 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9034,7 +9034,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj85033 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9042,7 +9042,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj85033 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9050,150 +9050,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84771 + __obj85033 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86349 |gx[1]#_g86350_|)) + (let ((__tmp86611 |gx[1]#_g86612_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86349 + __obj85033 + __tmp86611 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86351 |gx[1]#_g86352_|)) + (let ((__tmp86613 |gx[1]#_g86614_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86351 + __obj85033 + __tmp86613 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86353 |gx[1]#_g86354_|)) + (let ((__tmp86615 |gx[1]#_g86616_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86353 + __obj85033 + __tmp86615 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86355 - (let ((__tmp86364 - (let ((__tmp86365 |gx[1]#_g86366_|)) + (let ((__tmp86617 + (let ((__tmp86626 + (let ((__tmp86627 |gx[1]#_g86628_|)) (declare (not safe)) - (cons 'id __tmp86365))) - (__tmp86356 - (let ((__tmp86361 - (let ((__tmp86362 |gx[1]#_g86363_|)) + (cons 'id __tmp86627))) + (__tmp86618 + (let ((__tmp86623 + (let ((__tmp86624 |gx[1]#_g86625_|)) (declare (not safe)) - (cons 'compile-top __tmp86362))) - (__tmp86357 - (let ((__tmp86358 - (let ((__tmp86359 |gx[1]#_g86360_|)) + (cons 'compile-top __tmp86624))) + (__tmp86619 + (let ((__tmp86620 + (let ((__tmp86621 |gx[1]#_g86622_|)) (declare (not safe)) - (cons 'e __tmp86359)))) + (cons 'e __tmp86621)))) (declare (not safe)) - (cons __tmp86358 '())))) + (cons __tmp86620 '())))) (declare (not safe)) - (cons __tmp86361 __tmp86357)))) + (cons __tmp86623 __tmp86619)))) (declare (not safe)) - (cons __tmp86364 __tmp86356)))) + (cons __tmp86626 __tmp86618)))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86355 + __obj85033 + __tmp86617 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86367 - (let ((__tmp86376 - (let ((__tmp86377 |gx[1]#_g86378_|)) + (let ((__tmp86629 + (let ((__tmp86638 + (let ((__tmp86639 |gx[1]#_g86640_|)) (declare (not safe)) - (cons 'id __tmp86377))) - (__tmp86368 - (let ((__tmp86373 - (let ((__tmp86374 |gx[1]#_g86375_|)) + (cons 'id __tmp86639))) + (__tmp86630 + (let ((__tmp86635 + (let ((__tmp86636 |gx[1]#_g86637_|)) (declare (not safe)) - (cons 'compile-top __tmp86374))) - (__tmp86369 - (let ((__tmp86370 - (let ((__tmp86371 |gx[1]#_g86372_|)) + (cons 'compile-top __tmp86636))) + (__tmp86631 + (let ((__tmp86632 + (let ((__tmp86633 |gx[1]#_g86634_|)) (declare (not safe)) - (cons 'e __tmp86371)))) + (cons 'e __tmp86633)))) (declare (not safe)) - (cons __tmp86370 '())))) + (cons __tmp86632 '())))) (declare (not safe)) - (cons __tmp86373 __tmp86369)))) + (cons __tmp86635 __tmp86631)))) (declare (not safe)) - (cons __tmp86376 __tmp86368)))) + (cons __tmp86638 __tmp86630)))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86367 + __obj85033 + __tmp86629 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86379 - (let ((__tmp86388 - (let ((__tmp86389 |gx[1]#_g86390_|)) + (let ((__tmp86641 + (let ((__tmp86650 + (let ((__tmp86651 |gx[1]#_g86652_|)) (declare (not safe)) - (cons 'id __tmp86389))) - (__tmp86380 - (let ((__tmp86385 - (let ((__tmp86386 |gx[1]#_g86387_|)) + (cons 'id __tmp86651))) + (__tmp86642 + (let ((__tmp86647 + (let ((__tmp86648 |gx[1]#_g86649_|)) (declare (not safe)) - (cons 'compile-top __tmp86386))) - (__tmp86381 - (let ((__tmp86382 - (let ((__tmp86383 |gx[1]#_g86384_|)) + (cons 'compile-top __tmp86648))) + (__tmp86643 + (let ((__tmp86644 + (let ((__tmp86645 |gx[1]#_g86646_|)) (declare (not safe)) - (cons 'e __tmp86383)))) + (cons 'e __tmp86645)))) (declare (not safe)) - (cons __tmp86382 '())))) + (cons __tmp86644 '())))) (declare (not safe)) - (cons __tmp86385 __tmp86381)))) + (cons __tmp86647 __tmp86643)))) (declare (not safe)) - (cons __tmp86388 __tmp86380)))) + (cons __tmp86650 __tmp86642)))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86379 + __obj85033 + __tmp86641 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86391 - (let ((__tmp86400 - (let ((__tmp86401 |gx[1]#_g86402_|)) + (let ((__tmp86653 + (let ((__tmp86662 + (let ((__tmp86663 |gx[1]#_g86664_|)) (declare (not safe)) - (cons 'id __tmp86401))) - (__tmp86392 - (let ((__tmp86397 - (let ((__tmp86398 |gx[1]#_g86399_|)) + (cons 'id __tmp86663))) + (__tmp86654 + (let ((__tmp86659 + (let ((__tmp86660 |gx[1]#_g86661_|)) (declare (not safe)) - (cons 'compile-top __tmp86398))) - (__tmp86393 - (let ((__tmp86394 - (let ((__tmp86395 |gx[1]#_g86396_|)) + (cons 'compile-top __tmp86660))) + (__tmp86655 + (let ((__tmp86656 + (let ((__tmp86657 |gx[1]#_g86658_|)) (declare (not safe)) - (cons 'e __tmp86395)))) + (cons 'e __tmp86657)))) (declare (not safe)) - (cons __tmp86394 '())))) + (cons __tmp86656 '())))) (declare (not safe)) - (cons __tmp86397 __tmp86393)))) + (cons __tmp86659 __tmp86655)))) (declare (not safe)) - (cons __tmp86400 __tmp86392)))) + (cons __tmp86662 __tmp86654)))) (declare (not safe)) (##unchecked-structure-set! - __obj84771 - __tmp86391 + __obj85033 + __tmp86653 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84771)) + __obj85033)) (define |gx[:0:]#module-special-form| - (let ((__obj84772 + (let ((__obj85034 (let () (declare (not safe)) (##structure @@ -9216,7 +9216,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj85034 'gx#module-special-form::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9224,7 +9224,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj85034 'module-special-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9232,26 +9232,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj85034 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86403 - (let ((__tmp86404 |gx[1]#_g86405_|)) + (let ((__tmp86665 + (let ((__tmp86666 |gx[1]#_g86667_|)) (declare (not safe)) - (cons __tmp86404 '())))) + (cons __tmp86666 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86403 + __obj85034 + __tmp86665 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj85034 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9259,7 +9259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj85034 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9267,7 +9267,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj85034 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9275,150 +9275,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84772 + __obj85034 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86406 |gx[1]#_g86407_|)) + (let ((__tmp86668 |gx[1]#_g86669_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86406 + __obj85034 + __tmp86668 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86408 |gx[1]#_g86409_|)) + (let ((__tmp86670 |gx[1]#_g86671_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86408 + __obj85034 + __tmp86670 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86410 |gx[1]#_g86411_|)) + (let ((__tmp86672 |gx[1]#_g86673_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86410 + __obj85034 + __tmp86672 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86412 - (let ((__tmp86421 - (let ((__tmp86422 |gx[1]#_g86423_|)) + (let ((__tmp86674 + (let ((__tmp86683 + (let ((__tmp86684 |gx[1]#_g86685_|)) (declare (not safe)) - (cons 'id __tmp86422))) - (__tmp86413 - (let ((__tmp86418 - (let ((__tmp86419 |gx[1]#_g86420_|)) + (cons 'id __tmp86684))) + (__tmp86675 + (let ((__tmp86680 + (let ((__tmp86681 |gx[1]#_g86682_|)) (declare (not safe)) - (cons 'compile-top __tmp86419))) - (__tmp86414 - (let ((__tmp86415 - (let ((__tmp86416 |gx[1]#_g86417_|)) + (cons 'compile-top __tmp86681))) + (__tmp86676 + (let ((__tmp86677 + (let ((__tmp86678 |gx[1]#_g86679_|)) (declare (not safe)) - (cons 'e __tmp86416)))) + (cons 'e __tmp86678)))) (declare (not safe)) - (cons __tmp86415 '())))) + (cons __tmp86677 '())))) (declare (not safe)) - (cons __tmp86418 __tmp86414)))) + (cons __tmp86680 __tmp86676)))) (declare (not safe)) - (cons __tmp86421 __tmp86413)))) + (cons __tmp86683 __tmp86675)))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86412 + __obj85034 + __tmp86674 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86424 - (let ((__tmp86433 - (let ((__tmp86434 |gx[1]#_g86435_|)) + (let ((__tmp86686 + (let ((__tmp86695 + (let ((__tmp86696 |gx[1]#_g86697_|)) (declare (not safe)) - (cons 'id __tmp86434))) - (__tmp86425 - (let ((__tmp86430 - (let ((__tmp86431 |gx[1]#_g86432_|)) + (cons 'id __tmp86696))) + (__tmp86687 + (let ((__tmp86692 + (let ((__tmp86693 |gx[1]#_g86694_|)) (declare (not safe)) - (cons 'compile-top __tmp86431))) - (__tmp86426 - (let ((__tmp86427 - (let ((__tmp86428 |gx[1]#_g86429_|)) + (cons 'compile-top __tmp86693))) + (__tmp86688 + (let ((__tmp86689 + (let ((__tmp86690 |gx[1]#_g86691_|)) (declare (not safe)) - (cons 'e __tmp86428)))) + (cons 'e __tmp86690)))) (declare (not safe)) - (cons __tmp86427 '())))) + (cons __tmp86689 '())))) (declare (not safe)) - (cons __tmp86430 __tmp86426)))) + (cons __tmp86692 __tmp86688)))) (declare (not safe)) - (cons __tmp86433 __tmp86425)))) + (cons __tmp86695 __tmp86687)))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86424 + __obj85034 + __tmp86686 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86436 - (let ((__tmp86445 - (let ((__tmp86446 |gx[1]#_g86447_|)) + (let ((__tmp86698 + (let ((__tmp86707 + (let ((__tmp86708 |gx[1]#_g86709_|)) (declare (not safe)) - (cons 'id __tmp86446))) - (__tmp86437 - (let ((__tmp86442 - (let ((__tmp86443 |gx[1]#_g86444_|)) + (cons 'id __tmp86708))) + (__tmp86699 + (let ((__tmp86704 + (let ((__tmp86705 |gx[1]#_g86706_|)) (declare (not safe)) - (cons 'compile-top __tmp86443))) - (__tmp86438 - (let ((__tmp86439 - (let ((__tmp86440 |gx[1]#_g86441_|)) + (cons 'compile-top __tmp86705))) + (__tmp86700 + (let ((__tmp86701 + (let ((__tmp86702 |gx[1]#_g86703_|)) (declare (not safe)) - (cons 'e __tmp86440)))) + (cons 'e __tmp86702)))) (declare (not safe)) - (cons __tmp86439 '())))) + (cons __tmp86701 '())))) (declare (not safe)) - (cons __tmp86442 __tmp86438)))) + (cons __tmp86704 __tmp86700)))) (declare (not safe)) - (cons __tmp86445 __tmp86437)))) + (cons __tmp86707 __tmp86699)))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86436 + __obj85034 + __tmp86698 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86448 - (let ((__tmp86457 - (let ((__tmp86458 |gx[1]#_g86459_|)) + (let ((__tmp86710 + (let ((__tmp86719 + (let ((__tmp86720 |gx[1]#_g86721_|)) (declare (not safe)) - (cons 'id __tmp86458))) - (__tmp86449 - (let ((__tmp86454 - (let ((__tmp86455 |gx[1]#_g86456_|)) + (cons 'id __tmp86720))) + (__tmp86711 + (let ((__tmp86716 + (let ((__tmp86717 |gx[1]#_g86718_|)) (declare (not safe)) - (cons 'compile-top __tmp86455))) - (__tmp86450 - (let ((__tmp86451 - (let ((__tmp86452 |gx[1]#_g86453_|)) + (cons 'compile-top __tmp86717))) + (__tmp86712 + (let ((__tmp86713 + (let ((__tmp86714 |gx[1]#_g86715_|)) (declare (not safe)) - (cons 'e __tmp86452)))) + (cons 'e __tmp86714)))) (declare (not safe)) - (cons __tmp86451 '())))) + (cons __tmp86713 '())))) (declare (not safe)) - (cons __tmp86454 __tmp86450)))) + (cons __tmp86716 __tmp86712)))) (declare (not safe)) - (cons __tmp86457 __tmp86449)))) + (cons __tmp86719 __tmp86711)))) (declare (not safe)) (##unchecked-structure-set! - __obj84772 - __tmp86448 + __obj85034 + __tmp86710 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84772)) + __obj85034)) (define |gx[:0:]#feature-expander| - (let ((__obj84773 + (let ((__obj85035 (let () (declare (not safe)) (##structure @@ -9441,7 +9441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj85035 'gx#feature-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9449,7 +9449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj85035 'feature-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9457,26 +9457,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj85035 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86460 - (let ((__tmp86461 |gx[1]#_g86122_|)) + (let ((__tmp86722 + (let ((__tmp86723 |gx[1]#_g86384_|)) (declare (not safe)) - (cons __tmp86461 '())))) + (cons __tmp86723 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86460 + __obj85035 + __tmp86722 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj85035 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9484,7 +9484,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj85035 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9492,7 +9492,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj85035 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9500,94 +9500,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84773 + __obj85035 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86462 |gx[1]#_g86463_|)) + (let ((__tmp86724 |gx[1]#_g86725_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86462 + __obj85035 + __tmp86724 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86464 |gx[1]#_g86465_|)) + (let ((__tmp86726 |gx[1]#_g86727_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86464 + __obj85035 + __tmp86726 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86466 |gx[1]#_g86467_|)) + (let ((__tmp86728 |gx[1]#_g86729_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86466 + __obj85035 + __tmp86728 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86468 - (let ((__tmp86469 - (let ((__tmp86470 |gx[1]#_g86471_|)) + (let ((__tmp86730 + (let ((__tmp86731 + (let ((__tmp86732 |gx[1]#_g86733_|)) (declare (not safe)) - (cons 'e __tmp86470)))) + (cons 'e __tmp86732)))) (declare (not safe)) - (cons __tmp86469 '())))) + (cons __tmp86731 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86468 + __obj85035 + __tmp86730 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86472 - (let ((__tmp86473 - (let ((__tmp86474 |gx[1]#_g86475_|)) + (let ((__tmp86734 + (let ((__tmp86735 + (let ((__tmp86736 |gx[1]#_g86737_|)) (declare (not safe)) - (cons 'e __tmp86474)))) + (cons 'e __tmp86736)))) (declare (not safe)) - (cons __tmp86473 '())))) + (cons __tmp86735 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86472 + __obj85035 + __tmp86734 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86476 - (let ((__tmp86477 - (let ((__tmp86478 |gx[1]#_g86479_|)) + (let ((__tmp86738 + (let ((__tmp86739 + (let ((__tmp86740 |gx[1]#_g86741_|)) (declare (not safe)) - (cons 'e __tmp86478)))) + (cons 'e __tmp86740)))) (declare (not safe)) - (cons __tmp86477 '())))) + (cons __tmp86739 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86476 + __obj85035 + __tmp86738 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86480 - (let ((__tmp86481 - (let ((__tmp86482 |gx[1]#_g86483_|)) + (let ((__tmp86742 + (let ((__tmp86743 + (let ((__tmp86744 |gx[1]#_g86745_|)) (declare (not safe)) - (cons 'e __tmp86482)))) + (cons 'e __tmp86744)))) (declare (not safe)) - (cons __tmp86481 '())))) + (cons __tmp86743 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84773 - __tmp86480 + __obj85035 + __tmp86742 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84773)) + __obj85035)) (define |gx[:0:]#private-feature-expander| - (let ((__obj84774 + (let ((__obj85036 (let () (declare (not safe)) (##structure @@ -9610,7 +9610,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj85036 'gx#private-feature-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9618,7 +9618,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj85036 'private-feature-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9626,26 +9626,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj85036 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86484 - (let ((__tmp86485 |gx[1]#_g86486_|)) + (let ((__tmp86746 + (let ((__tmp86747 |gx[1]#_g86748_|)) (declare (not safe)) - (cons __tmp86485 '())))) + (cons __tmp86747 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86484 + __obj85036 + __tmp86746 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj85036 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9653,7 +9653,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj85036 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9661,7 +9661,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj85036 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9669,94 +9669,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84774 + __obj85036 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86487 |gx[1]#_g86488_|)) + (let ((__tmp86749 |gx[1]#_g86750_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86487 + __obj85036 + __tmp86749 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86489 |gx[1]#_g86490_|)) + (let ((__tmp86751 |gx[1]#_g86752_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86489 + __obj85036 + __tmp86751 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86491 |gx[1]#_g86492_|)) + (let ((__tmp86753 |gx[1]#_g86754_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86491 + __obj85036 + __tmp86753 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86493 - (let ((__tmp86494 - (let ((__tmp86495 |gx[1]#_g86496_|)) + (let ((__tmp86755 + (let ((__tmp86756 + (let ((__tmp86757 |gx[1]#_g86758_|)) (declare (not safe)) - (cons 'e __tmp86495)))) + (cons 'e __tmp86757)))) (declare (not safe)) - (cons __tmp86494 '())))) + (cons __tmp86756 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86493 + __obj85036 + __tmp86755 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86497 - (let ((__tmp86498 - (let ((__tmp86499 |gx[1]#_g86500_|)) + (let ((__tmp86759 + (let ((__tmp86760 + (let ((__tmp86761 |gx[1]#_g86762_|)) (declare (not safe)) - (cons 'e __tmp86499)))) + (cons 'e __tmp86761)))) (declare (not safe)) - (cons __tmp86498 '())))) + (cons __tmp86760 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86497 + __obj85036 + __tmp86759 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86501 - (let ((__tmp86502 - (let ((__tmp86503 |gx[1]#_g86504_|)) + (let ((__tmp86763 + (let ((__tmp86764 + (let ((__tmp86765 |gx[1]#_g86766_|)) (declare (not safe)) - (cons 'e __tmp86503)))) + (cons 'e __tmp86765)))) (declare (not safe)) - (cons __tmp86502 '())))) + (cons __tmp86764 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86501 + __obj85036 + __tmp86763 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86505 - (let ((__tmp86506 - (let ((__tmp86507 |gx[1]#_g86508_|)) + (let ((__tmp86767 + (let ((__tmp86768 + (let ((__tmp86769 |gx[1]#_g86770_|)) (declare (not safe)) - (cons 'e __tmp86507)))) + (cons 'e __tmp86769)))) (declare (not safe)) - (cons __tmp86506 '())))) + (cons __tmp86768 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84774 - __tmp86505 + __obj85036 + __tmp86767 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84774)) + __obj85036)) (define |gx[:0:]#reserved-expander| - (let ((__obj84775 + (let ((__obj85037 (let () (declare (not safe)) (##structure @@ -9779,7 +9779,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj85037 'gx#reserved-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9787,7 +9787,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj85037 'reserved-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9795,26 +9795,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj85037 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86509 - (let ((__tmp86510 |gx[1]#_g86122_|)) + (let ((__tmp86771 + (let ((__tmp86772 |gx[1]#_g86384_|)) (declare (not safe)) - (cons __tmp86510 '())))) + (cons __tmp86772 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86509 + __obj85037 + __tmp86771 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj85037 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9822,7 +9822,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj85037 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9830,7 +9830,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj85037 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9838,94 +9838,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84775 + __obj85037 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86511 |gx[1]#_g86512_|)) + (let ((__tmp86773 |gx[1]#_g86774_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86511 + __obj85037 + __tmp86773 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86513 |gx[1]#_g86514_|)) + (let ((__tmp86775 |gx[1]#_g86776_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86513 + __obj85037 + __tmp86775 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86515 |gx[1]#_g86516_|)) + (let ((__tmp86777 |gx[1]#_g86778_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86515 + __obj85037 + __tmp86777 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86517 - (let ((__tmp86518 - (let ((__tmp86519 |gx[1]#_g86520_|)) + (let ((__tmp86779 + (let ((__tmp86780 + (let ((__tmp86781 |gx[1]#_g86782_|)) (declare (not safe)) - (cons 'e __tmp86519)))) + (cons 'e __tmp86781)))) (declare (not safe)) - (cons __tmp86518 '())))) + (cons __tmp86780 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86517 + __obj85037 + __tmp86779 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86521 - (let ((__tmp86522 - (let ((__tmp86523 |gx[1]#_g86524_|)) + (let ((__tmp86783 + (let ((__tmp86784 + (let ((__tmp86785 |gx[1]#_g86786_|)) (declare (not safe)) - (cons 'e __tmp86523)))) + (cons 'e __tmp86785)))) (declare (not safe)) - (cons __tmp86522 '())))) + (cons __tmp86784 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86521 + __obj85037 + __tmp86783 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86525 - (let ((__tmp86526 - (let ((__tmp86527 |gx[1]#_g86528_|)) + (let ((__tmp86787 + (let ((__tmp86788 + (let ((__tmp86789 |gx[1]#_g86790_|)) (declare (not safe)) - (cons 'e __tmp86527)))) + (cons 'e __tmp86789)))) (declare (not safe)) - (cons __tmp86526 '())))) + (cons __tmp86788 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86525 + __obj85037 + __tmp86787 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86529 - (let ((__tmp86530 - (let ((__tmp86531 |gx[1]#_g86532_|)) + (let ((__tmp86791 + (let ((__tmp86792 + (let ((__tmp86793 |gx[1]#_g86794_|)) (declare (not safe)) - (cons 'e __tmp86531)))) + (cons 'e __tmp86793)))) (declare (not safe)) - (cons __tmp86530 '())))) + (cons __tmp86792 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84775 - __tmp86529 + __obj85037 + __tmp86791 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84775)) + __obj85037)) (define |gx[:0:]#macro-expander| - (let ((__obj84776 + (let ((__obj85038 (let () (declare (not safe)) (##structure @@ -9948,7 +9948,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj85038 'gx#core-macro::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9956,7 +9956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj85038 'macro-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9964,26 +9964,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj85038 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86533 - (let ((__tmp86534 |gx[1]#_g86122_|)) + (let ((__tmp86795 + (let ((__tmp86796 |gx[1]#_g86384_|)) (declare (not safe)) - (cons __tmp86534 '())))) + (cons __tmp86796 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86533 + __obj85038 + __tmp86795 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj85038 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9991,7 +9991,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj85038 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -9999,7 +9999,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj85038 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10007,94 +10007,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84776 + __obj85038 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86535 |gx[1]#_g86536_|)) + (let ((__tmp86797 |gx[1]#_g86798_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86535 + __obj85038 + __tmp86797 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86537 |gx[1]#_g86538_|)) + (let ((__tmp86799 |gx[1]#_g86800_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86537 + __obj85038 + __tmp86799 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86539 |gx[1]#_g86540_|)) + (let ((__tmp86801 |gx[1]#_g86802_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86539 + __obj85038 + __tmp86801 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86541 - (let ((__tmp86542 - (let ((__tmp86543 |gx[1]#_g86544_|)) + (let ((__tmp86803 + (let ((__tmp86804 + (let ((__tmp86805 |gx[1]#_g86806_|)) (declare (not safe)) - (cons 'e __tmp86543)))) + (cons 'e __tmp86805)))) (declare (not safe)) - (cons __tmp86542 '())))) + (cons __tmp86804 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86541 + __obj85038 + __tmp86803 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86545 - (let ((__tmp86546 - (let ((__tmp86547 |gx[1]#_g86548_|)) + (let ((__tmp86807 + (let ((__tmp86808 + (let ((__tmp86809 |gx[1]#_g86810_|)) (declare (not safe)) - (cons 'e __tmp86547)))) + (cons 'e __tmp86809)))) (declare (not safe)) - (cons __tmp86546 '())))) + (cons __tmp86808 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86545 + __obj85038 + __tmp86807 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86549 - (let ((__tmp86550 - (let ((__tmp86551 |gx[1]#_g86552_|)) + (let ((__tmp86811 + (let ((__tmp86812 + (let ((__tmp86813 |gx[1]#_g86814_|)) (declare (not safe)) - (cons 'e __tmp86551)))) + (cons 'e __tmp86813)))) (declare (not safe)) - (cons __tmp86550 '())))) + (cons __tmp86812 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86549 + __obj85038 + __tmp86811 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86553 - (let ((__tmp86554 - (let ((__tmp86555 |gx[1]#_g86556_|)) + (let ((__tmp86815 + (let ((__tmp86816 + (let ((__tmp86817 |gx[1]#_g86818_|)) (declare (not safe)) - (cons 'e __tmp86555)))) + (cons 'e __tmp86817)))) (declare (not safe)) - (cons __tmp86554 '())))) + (cons __tmp86816 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84776 - __tmp86553 + __obj85038 + __tmp86815 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84776)) + __obj85038)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj84777 + (let ((__obj85039 (let () (declare (not safe)) (##structure @@ -10117,7 +10117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj85039 'gx#rename-macro-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10125,7 +10125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj85039 'rename-macro-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10133,26 +10133,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj85039 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86557 - (let ((__tmp86558 |gx[1]#_g86559_|)) + (let ((__tmp86819 + (let ((__tmp86820 |gx[1]#_g86821_|)) (declare (not safe)) - (cons __tmp86558 '())))) + (cons __tmp86820 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86557 + __obj85039 + __tmp86819 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj85039 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10160,7 +10160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj85039 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10168,7 +10168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj85039 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10176,94 +10176,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84777 + __obj85039 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86560 |gx[1]#_g86561_|)) + (let ((__tmp86822 |gx[1]#_g86823_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86560 + __obj85039 + __tmp86822 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86562 |gx[1]#_g86563_|)) + (let ((__tmp86824 |gx[1]#_g86825_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86562 + __obj85039 + __tmp86824 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86564 |gx[1]#_g86565_|)) + (let ((__tmp86826 |gx[1]#_g86827_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86564 + __obj85039 + __tmp86826 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86566 - (let ((__tmp86567 - (let ((__tmp86568 |gx[1]#_g86569_|)) + (let ((__tmp86828 + (let ((__tmp86829 + (let ((__tmp86830 |gx[1]#_g86831_|)) (declare (not safe)) - (cons 'e __tmp86568)))) + (cons 'e __tmp86830)))) (declare (not safe)) - (cons __tmp86567 '())))) + (cons __tmp86829 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86566 + __obj85039 + __tmp86828 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86570 - (let ((__tmp86571 - (let ((__tmp86572 |gx[1]#_g86573_|)) + (let ((__tmp86832 + (let ((__tmp86833 + (let ((__tmp86834 |gx[1]#_g86835_|)) (declare (not safe)) - (cons 'e __tmp86572)))) + (cons 'e __tmp86834)))) (declare (not safe)) - (cons __tmp86571 '())))) + (cons __tmp86833 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86570 + __obj85039 + __tmp86832 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86574 - (let ((__tmp86575 - (let ((__tmp86576 |gx[1]#_g86577_|)) + (let ((__tmp86836 + (let ((__tmp86837 + (let ((__tmp86838 |gx[1]#_g86839_|)) (declare (not safe)) - (cons 'e __tmp86576)))) + (cons 'e __tmp86838)))) (declare (not safe)) - (cons __tmp86575 '())))) + (cons __tmp86837 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86574 + __obj85039 + __tmp86836 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86578 - (let ((__tmp86579 - (let ((__tmp86580 |gx[1]#_g86581_|)) + (let ((__tmp86840 + (let ((__tmp86841 + (let ((__tmp86842 |gx[1]#_g86843_|)) (declare (not safe)) - (cons 'e __tmp86580)))) + (cons 'e __tmp86842)))) (declare (not safe)) - (cons __tmp86579 '())))) + (cons __tmp86841 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84777 - __tmp86578 + __obj85039 + __tmp86840 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84777)) + __obj85039)) (define |gx[:0:]#user-expander| - (let ((__obj84778 + (let ((__obj85040 (let () (declare (not safe)) (##structure @@ -10286,7 +10286,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj85040 'gx#macro-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10294,7 +10294,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj85040 'user-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10302,26 +10302,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj85040 '(context phi) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86582 - (let ((__tmp86583 |gx[1]#_g86559_|)) + (let ((__tmp86844 + (let ((__tmp86845 |gx[1]#_g86821_|)) (declare (not safe)) - (cons __tmp86583 '())))) + (cons __tmp86845 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86582 + __obj85040 + __tmp86844 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj85040 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10329,7 +10329,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj85040 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10337,7 +10337,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj85040 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10345,150 +10345,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84778 + __obj85040 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86584 |gx[1]#_g86585_|)) + (let ((__tmp86846 |gx[1]#_g86847_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86584 + __obj85040 + __tmp86846 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86586 |gx[1]#_g86587_|)) + (let ((__tmp86848 |gx[1]#_g86849_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86586 + __obj85040 + __tmp86848 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86588 |gx[1]#_g86589_|)) + (let ((__tmp86850 |gx[1]#_g86851_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86588 + __obj85040 + __tmp86850 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86590 - (let ((__tmp86599 - (let ((__tmp86600 |gx[1]#_g86601_|)) + (let ((__tmp86852 + (let ((__tmp86861 + (let ((__tmp86862 |gx[1]#_g86863_|)) (declare (not safe)) - (cons 'context __tmp86600))) - (__tmp86591 - (let ((__tmp86596 - (let ((__tmp86597 |gx[1]#_g86598_|)) + (cons 'context __tmp86862))) + (__tmp86853 + (let ((__tmp86858 + (let ((__tmp86859 |gx[1]#_g86860_|)) (declare (not safe)) - (cons 'phi __tmp86597))) - (__tmp86592 - (let ((__tmp86593 - (let ((__tmp86594 |gx[1]#_g86595_|)) + (cons 'phi __tmp86859))) + (__tmp86854 + (let ((__tmp86855 + (let ((__tmp86856 |gx[1]#_g86857_|)) (declare (not safe)) - (cons 'e __tmp86594)))) + (cons 'e __tmp86856)))) (declare (not safe)) - (cons __tmp86593 '())))) + (cons __tmp86855 '())))) (declare (not safe)) - (cons __tmp86596 __tmp86592)))) + (cons __tmp86858 __tmp86854)))) (declare (not safe)) - (cons __tmp86599 __tmp86591)))) + (cons __tmp86861 __tmp86853)))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86590 + __obj85040 + __tmp86852 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86602 - (let ((__tmp86611 - (let ((__tmp86612 |gx[1]#_g86613_|)) + (let ((__tmp86864 + (let ((__tmp86873 + (let ((__tmp86874 |gx[1]#_g86875_|)) (declare (not safe)) - (cons 'context __tmp86612))) - (__tmp86603 - (let ((__tmp86608 - (let ((__tmp86609 |gx[1]#_g86610_|)) + (cons 'context __tmp86874))) + (__tmp86865 + (let ((__tmp86870 + (let ((__tmp86871 |gx[1]#_g86872_|)) (declare (not safe)) - (cons 'phi __tmp86609))) - (__tmp86604 - (let ((__tmp86605 - (let ((__tmp86606 |gx[1]#_g86607_|)) + (cons 'phi __tmp86871))) + (__tmp86866 + (let ((__tmp86867 + (let ((__tmp86868 |gx[1]#_g86869_|)) (declare (not safe)) - (cons 'e __tmp86606)))) + (cons 'e __tmp86868)))) (declare (not safe)) - (cons __tmp86605 '())))) + (cons __tmp86867 '())))) (declare (not safe)) - (cons __tmp86608 __tmp86604)))) + (cons __tmp86870 __tmp86866)))) (declare (not safe)) - (cons __tmp86611 __tmp86603)))) + (cons __tmp86873 __tmp86865)))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86602 + __obj85040 + __tmp86864 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86614 - (let ((__tmp86623 - (let ((__tmp86624 |gx[1]#_g86625_|)) + (let ((__tmp86876 + (let ((__tmp86885 + (let ((__tmp86886 |gx[1]#_g86887_|)) (declare (not safe)) - (cons 'context __tmp86624))) - (__tmp86615 - (let ((__tmp86620 - (let ((__tmp86621 |gx[1]#_g86622_|)) + (cons 'context __tmp86886))) + (__tmp86877 + (let ((__tmp86882 + (let ((__tmp86883 |gx[1]#_g86884_|)) (declare (not safe)) - (cons 'phi __tmp86621))) - (__tmp86616 - (let ((__tmp86617 - (let ((__tmp86618 |gx[1]#_g86619_|)) + (cons 'phi __tmp86883))) + (__tmp86878 + (let ((__tmp86879 + (let ((__tmp86880 |gx[1]#_g86881_|)) (declare (not safe)) - (cons 'e __tmp86618)))) + (cons 'e __tmp86880)))) (declare (not safe)) - (cons __tmp86617 '())))) + (cons __tmp86879 '())))) (declare (not safe)) - (cons __tmp86620 __tmp86616)))) + (cons __tmp86882 __tmp86878)))) (declare (not safe)) - (cons __tmp86623 __tmp86615)))) + (cons __tmp86885 __tmp86877)))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86614 + __obj85040 + __tmp86876 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86626 - (let ((__tmp86635 - (let ((__tmp86636 |gx[1]#_g86637_|)) + (let ((__tmp86888 + (let ((__tmp86897 + (let ((__tmp86898 |gx[1]#_g86899_|)) (declare (not safe)) - (cons 'context __tmp86636))) - (__tmp86627 - (let ((__tmp86632 - (let ((__tmp86633 |gx[1]#_g86634_|)) + (cons 'context __tmp86898))) + (__tmp86889 + (let ((__tmp86894 + (let ((__tmp86895 |gx[1]#_g86896_|)) (declare (not safe)) - (cons 'phi __tmp86633))) - (__tmp86628 - (let ((__tmp86629 - (let ((__tmp86630 |gx[1]#_g86631_|)) + (cons 'phi __tmp86895))) + (__tmp86890 + (let ((__tmp86891 + (let ((__tmp86892 |gx[1]#_g86893_|)) (declare (not safe)) - (cons 'e __tmp86630)))) + (cons 'e __tmp86892)))) (declare (not safe)) - (cons __tmp86629 '())))) + (cons __tmp86891 '())))) (declare (not safe)) - (cons __tmp86632 __tmp86628)))) + (cons __tmp86894 __tmp86890)))) (declare (not safe)) - (cons __tmp86635 __tmp86627)))) + (cons __tmp86897 __tmp86889)))) (declare (not safe)) (##unchecked-structure-set! - __obj84778 - __tmp86626 + __obj85040 + __tmp86888 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84778)) + __obj85040)) (define |gx[:0:]#expander-mark| - (let ((__obj84779 + (let ((__obj85041 (let () (declare (not safe)) (##structure @@ -10511,7 +10511,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj85041 'gx#expander-mark::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10519,7 +10519,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj85041 'expander-mark '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10527,7 +10527,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj85041 '(subst context phi trace) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10535,7 +10535,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj85041 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10543,7 +10543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj85041 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10551,7 +10551,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj85041 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10559,7 +10559,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj85041 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -10567,249 +10567,249 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj84779 + __obj85041 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86638 |gx[1]#_g86639_|)) + (let ((__tmp86900 |gx[1]#_g86901_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86638 + __obj85041 + __tmp86900 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86640 |gx[1]#_g86641_|)) + (let ((__tmp86902 |gx[1]#_g86903_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86640 + __obj85041 + __tmp86902 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86642 |gx[1]#_g86643_|)) + (let ((__tmp86904 |gx[1]#_g86905_|)) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86642 + __obj85041 + __tmp86904 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86644 - (let ((__tmp86657 - (let ((__tmp86658 |gx[1]#_g86659_|)) + (let ((__tmp86906 + (let ((__tmp86919 + (let ((__tmp86920 |gx[1]#_g86921_|)) (declare (not safe)) - (cons 'subst __tmp86658))) - (__tmp86645 - (let ((__tmp86654 - (let ((__tmp86655 |gx[1]#_g86656_|)) + (cons 'subst __tmp86920))) + (__tmp86907 + (let ((__tmp86916 + (let ((__tmp86917 |gx[1]#_g86918_|)) (declare (not safe)) - (cons 'context __tmp86655))) - (__tmp86646 - (let ((__tmp86651 - (let ((__tmp86652 |gx[1]#_g86653_|)) + (cons 'context __tmp86917))) + (__tmp86908 + (let ((__tmp86913 + (let ((__tmp86914 |gx[1]#_g86915_|)) (declare (not safe)) - (cons 'phi __tmp86652))) - (__tmp86647 - (let ((__tmp86648 - (let ((__tmp86649 |gx[1]#_g86650_|)) + (cons 'phi __tmp86914))) + (__tmp86909 + (let ((__tmp86910 + (let ((__tmp86911 |gx[1]#_g86912_|)) (declare (not safe)) - (cons 'trace __tmp86649)))) + (cons 'trace __tmp86911)))) (declare (not safe)) - (cons __tmp86648 '())))) + (cons __tmp86910 '())))) (declare (not safe)) - (cons __tmp86651 __tmp86647)))) + (cons __tmp86913 __tmp86909)))) (declare (not safe)) - (cons __tmp86654 __tmp86646)))) + (cons __tmp86916 __tmp86908)))) (declare (not safe)) - (cons __tmp86657 __tmp86645)))) + (cons __tmp86919 __tmp86907)))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86644 + __obj85041 + __tmp86906 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86660 - (let ((__tmp86673 - (let ((__tmp86674 |gx[1]#_g86675_|)) + (let ((__tmp86922 + (let ((__tmp86935 + (let ((__tmp86936 |gx[1]#_g86937_|)) (declare (not safe)) - (cons 'subst __tmp86674))) - (__tmp86661 - (let ((__tmp86670 - (let ((__tmp86671 |gx[1]#_g86672_|)) + (cons 'subst __tmp86936))) + (__tmp86923 + (let ((__tmp86932 + (let ((__tmp86933 |gx[1]#_g86934_|)) (declare (not safe)) - (cons 'context __tmp86671))) - (__tmp86662 - (let ((__tmp86667 - (let ((__tmp86668 |gx[1]#_g86669_|)) + (cons 'context __tmp86933))) + (__tmp86924 + (let ((__tmp86929 + (let ((__tmp86930 |gx[1]#_g86931_|)) (declare (not safe)) - (cons 'phi __tmp86668))) - (__tmp86663 - (let ((__tmp86664 - (let ((__tmp86665 |gx[1]#_g86666_|)) + (cons 'phi __tmp86930))) + (__tmp86925 + (let ((__tmp86926 + (let ((__tmp86927 |gx[1]#_g86928_|)) (declare (not safe)) - (cons 'trace __tmp86665)))) + (cons 'trace __tmp86927)))) (declare (not safe)) - (cons __tmp86664 '())))) + (cons __tmp86926 '())))) (declare (not safe)) - (cons __tmp86667 __tmp86663)))) + (cons __tmp86929 __tmp86925)))) (declare (not safe)) - (cons __tmp86670 __tmp86662)))) + (cons __tmp86932 __tmp86924)))) (declare (not safe)) - (cons __tmp86673 __tmp86661)))) + (cons __tmp86935 __tmp86923)))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86660 + __obj85041 + __tmp86922 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86676 - (let ((__tmp86689 - (let ((__tmp86690 |gx[1]#_g86691_|)) + (let ((__tmp86938 + (let ((__tmp86951 + (let ((__tmp86952 |gx[1]#_g86953_|)) (declare (not safe)) - (cons 'subst __tmp86690))) - (__tmp86677 - (let ((__tmp86686 - (let ((__tmp86687 |gx[1]#_g86688_|)) + (cons 'subst __tmp86952))) + (__tmp86939 + (let ((__tmp86948 + (let ((__tmp86949 |gx[1]#_g86950_|)) (declare (not safe)) - (cons 'context __tmp86687))) - (__tmp86678 - (let ((__tmp86683 - (let ((__tmp86684 |gx[1]#_g86685_|)) + (cons 'context __tmp86949))) + (__tmp86940 + (let ((__tmp86945 + (let ((__tmp86946 |gx[1]#_g86947_|)) (declare (not safe)) - (cons 'phi __tmp86684))) - (__tmp86679 - (let ((__tmp86680 - (let ((__tmp86681 |gx[1]#_g86682_|)) + (cons 'phi __tmp86946))) + (__tmp86941 + (let ((__tmp86942 + (let ((__tmp86943 |gx[1]#_g86944_|)) (declare (not safe)) - (cons 'trace __tmp86681)))) + (cons 'trace __tmp86943)))) (declare (not safe)) - (cons __tmp86680 '())))) + (cons __tmp86942 '())))) (declare (not safe)) - (cons __tmp86683 __tmp86679)))) + (cons __tmp86945 __tmp86941)))) (declare (not safe)) - (cons __tmp86686 __tmp86678)))) + (cons __tmp86948 __tmp86940)))) (declare (not safe)) - (cons __tmp86689 __tmp86677)))) + (cons __tmp86951 __tmp86939)))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86676 + __obj85041 + __tmp86938 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp86692 - (let ((__tmp86705 - (let ((__tmp86706 |gx[1]#_g86707_|)) + (let ((__tmp86954 + (let ((__tmp86967 + (let ((__tmp86968 |gx[1]#_g86969_|)) (declare (not safe)) - (cons 'subst __tmp86706))) - (__tmp86693 - (let ((__tmp86702 - (let ((__tmp86703 |gx[1]#_g86704_|)) + (cons 'subst __tmp86968))) + (__tmp86955 + (let ((__tmp86964 + (let ((__tmp86965 |gx[1]#_g86966_|)) (declare (not safe)) - (cons 'context __tmp86703))) - (__tmp86694 - (let ((__tmp86699 - (let ((__tmp86700 |gx[1]#_g86701_|)) + (cons 'context __tmp86965))) + (__tmp86956 + (let ((__tmp86961 + (let ((__tmp86962 |gx[1]#_g86963_|)) (declare (not safe)) - (cons 'phi __tmp86700))) - (__tmp86695 - (let ((__tmp86696 - (let ((__tmp86697 |gx[1]#_g86698_|)) + (cons 'phi __tmp86962))) + (__tmp86957 + (let ((__tmp86958 + (let ((__tmp86959 |gx[1]#_g86960_|)) (declare (not safe)) - (cons 'trace __tmp86697)))) + (cons 'trace __tmp86959)))) (declare (not safe)) - (cons __tmp86696 '())))) + (cons __tmp86958 '())))) (declare (not safe)) - (cons __tmp86699 __tmp86695)))) + (cons __tmp86961 __tmp86957)))) (declare (not safe)) - (cons __tmp86702 __tmp86694)))) + (cons __tmp86964 __tmp86956)))) (declare (not safe)) - (cons __tmp86705 __tmp86693)))) + (cons __tmp86967 __tmp86955)))) (declare (not safe)) (##unchecked-structure-set! - __obj84779 - __tmp86692 + __obj85041 + __tmp86954 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj84779)) + __obj85041)) (define |gx[:0:]#&phi-context?| - (lambda (_$stx81744_) - (let* ((_g8174881762_ - (lambda (_g8174981758_) + (lambda (_$stx82006_) + (let* ((_g8201082024_ + (lambda (_g8201182020_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8174981758_)))) - (_g8174781804_ - (lambda (_g8174981766_) + _g8201182020_)))) + (_g8200982066_ + (lambda (_g8201182028_) (if (let () (declare (not safe)) - (gx#stx-pair? _g8174981766_)) - (let ((_e8175381769_ + (gx#stx-pair? _g8201182028_)) + (let ((_e8201582031_ (let () (declare (not safe)) - (gx#syntax-e _g8174981766_)))) - (let ((_hd8175281773_ + (gx#syntax-e _g8201182028_)))) + (let ((_hd8201482035_ (let () (declare (not safe)) - (##car _e8175381769_))) - (_tl8175181776_ + (##car _e8201582031_))) + (_tl8201382038_ (let () (declare (not safe)) - (##cdr _e8175381769_)))) + (##cdr _e8201582031_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl8175181776_)) - (let ((_e8175681779_ + (gx#stx-pair? _tl8201382038_)) + (let ((_e8201882041_ (let () (declare (not safe)) - (gx#syntax-e _tl8175181776_)))) - (let ((_hd8175581783_ + (gx#syntax-e _tl8201382038_)))) + (let ((_hd8201782045_ (let () (declare (not safe)) - (##car _e8175681779_))) - (_tl8175481786_ + (##car _e8201882041_))) + (_tl8201682048_ (let () (declare (not safe)) - (##cdr _e8175681779_)))) + (##cdr _e8201882041_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl8175481786_)) - ((lambda (_L81789_) - (let ((__tmp86713 + (gx#stx-null? _tl8201682048_)) + ((lambda (_L82051_) + (let ((__tmp86975 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'fx>))) - (__tmp86708 - (let ((__tmp86710 - (let ((__tmp86712 + (__tmp86970 + (let ((__tmp86972 + (let ((__tmp86974 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '##vector-length))) - (__tmp86711 - (let () (declare (not safe)) (cons _L81789_ '())))) + (__tmp86973 + (let () (declare (not safe)) (cons _L82051_ '())))) (declare (not safe)) - (cons __tmp86712 __tmp86711))) - (__tmp86709 (let () (declare (not safe)) (cons '3 '())))) + (cons __tmp86974 __tmp86973))) + (__tmp86971 (let () (declare (not safe)) (cons '3 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86710 - __tmp86709)))) + (cons __tmp86972 + __tmp86971)))) (declare (not safe)) - (cons __tmp86713 __tmp86708))) - _hd8175581783_) - (_g8174881762_ _g8174981766_)))) - (_g8174881762_ _g8174981766_)))) - (_g8174881762_ _g8174981766_))))) - (_g8174781804_ _$stx81744_)))))) + (cons __tmp86975 __tmp86970))) + _hd8201782045_) + (_g8201082024_ _g8201182028_)))) + (_g8201082024_ _g8201182028_)))) + (_g8201082024_ _g8201182028_))))) + (_g8200982066_ _$stx82006_)))))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index d5403236..170ad084 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -246,8 +246,10 @@ package: gerbil/expander #f #f #f - ((apply-export-expander . gx#export-expander::apply-export-expander) - (:init! . gx#export-expander:::init!)))) + ((:init! . gx#export-expander:::init!) + (apply-export-expander + . + gx#export-expander::apply-export-expander)))) (declare-type gx#export-expander? (@predicate gx#export-expander::t)) (declare-type gx#make-export-expander (@constructor gx#export-expander::t)) (declare-type diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index c4b8c017..5753976f 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 1709375798) + (define gerbil/expander/module::timestamp 1709457369) (begin (declare (not safe)) (define gx#module-import::t @@ -13,8 +13,8 @@ '#f)) (define gx#module-import? (make-class-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _$args93195_ - (apply make-instance gx#module-import::t _$args93195_))) + (lambda _$args93457_ + (apply make-instance gx#module-import::t _$args93457_))) (define gx#module-import-source (make-class-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name @@ -57,8 +57,8 @@ '#f)) (define gx#module-export? (make-class-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _$args93192_ - (apply make-instance gx#module-export::t _$args93192_))) + (lambda _$args93454_ + (apply make-instance gx#module-export::t _$args93454_))) (define gx#module-export-context (make-class-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key @@ -109,8 +109,8 @@ '#f)) (define gx#import-set? (make-class-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _$args93189_ - (apply make-instance gx#import-set::t _$args93189_))) + (lambda _$args93451_ + (apply make-instance gx#import-set::t _$args93451_))) (define gx#import-set-source (make-class-slot-accessor gx#import-set::t 'source)) (define gx#import-set-phi (make-class-slot-accessor gx#import-set::t 'phi)) @@ -144,8 +144,8 @@ '#f)) (define gx#export-set? (make-class-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _$args93186_ - (apply make-instance gx#export-set::t _$args93186_))) + (lambda _$args93448_ + (apply make-instance gx#export-set::t _$args93448_))) (define gx#export-set-source (make-class-slot-accessor gx#export-set::t 'source)) (define gx#export-set-phi (make-class-slot-accessor gx#export-set::t 'phi)) @@ -179,8 +179,8 @@ ':init!)) (define gx#import-expander? (make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _$args93183_ - (apply make-instance gx#import-expander::t _$args93183_))) + (lambda _$args93445_ + (apply make-instance gx#import-expander::t _$args93445_))) (define gx#import-expander-context (make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -215,8 +215,8 @@ ':init!)) (define gx#export-expander? (make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _$args93180_ - (apply make-instance gx#export-expander::t _$args93180_))) + (lambda _$args93442_ + (apply make-instance gx#export-expander::t _$args93442_))) (define gx#export-expander-context (make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -252,8 +252,8 @@ (define gx#import-export-expander? (make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _$args93177_ - (apply make-instance gx#import-export-expander::t _$args93177_))) + (lambda _$args93439_ + (apply make-instance gx#import-export-expander::t _$args93439_))) (define gx#import-export-expander-context (make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -288,298 +288,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 (_path93174_ _fun93175_) + (lambda (_path93436_ _fun93437_) (call-with-input-file - (cons 'path: (cons _path93174_ gx#source-file-settings)) - _fun93175_))) + (cons 'path: (cons _path93436_ gx#source-file-settings)) + _fun93437_))) (define gx#module-context:::init! - (lambda (_self93168_ _id93169_ _super93170_ _ns93171_ _path93172_) - (if (##fx< '11 (##structure-length _self93168_)) + (lambda (_self93430_ _id93431_ _super93432_ _ns93433_ _path93434_) + (if (##fx< '11 (##structure-length _self93430_)) (begin (##unchecked-structure-set! - _self93168_ - _id93169_ + _self93430_ + _id93431_ '1 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ + _self93430_ (make-hash-table-eq) '2 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ - _super93170_ + _self93430_ + _super93432_ '3 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ + _self93430_ '#f '4 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ + _self93430_ '#f '5 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ - _ns93171_ + _self93430_ + _ns93433_ '6 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ - _path93172_ + _self93430_ + _path93434_ '7 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ + _self93430_ '() '8 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ + _self93430_ '() '9 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ + _self93430_ '#f '10 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f) (##unchecked-structure-set! - _self93168_ + _self93430_ '#f '11 - (##structure-type _self93168_) + (##structure-type _self93430_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self93168_ + _self93430_ '11 - (##vector-length _self93168_))))) + (##vector-length _self93430_))))) (bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_self93012_ _ctx93013_ _root93014_) - (let ((_super93022_ - (let ((_$e93016_ _root93014_)) - (if _$e93016_ - _$e93016_ - (let ((_$e93019_ (gx#core-context-root__0))) - (if _$e93019_ - _$e93019_ - (let ((__obj93237 + (lambda (_self93274_ _ctx93275_ _root93276_) + (let ((_super93284_ + (let ((_$e93278_ _root93276_)) + (if _$e93278_ + _$e93278_ + (let ((_$e93281_ (gx#core-context-root__0))) + (if _$e93281_ + _$e93281_ + (let ((__obj93499 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor93238 + (let ((__constructor93500 (direct-method-ref gx#root-context::t - __obj93237 + __obj93499 ':init!))) - (if __constructor93238 - (__constructor93238 __obj93237) + (if __constructor93500 + (__constructor93500 __obj93499) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj93237))))))) - (if _ctx93013_ - (let ((_id93025_ + __obj93499))))))) + (if _ctx93275_ + (let ((_id93287_ (##structure-ref - _ctx93013_ + _ctx93275_ '1 gx#expander-context::t '#f)) - (_path93026_ - (##structure-ref _ctx93013_ '7 gx#module-context::t '#f)) - (_in93027_ + (_path93288_ + (##structure-ref _ctx93275_ '7 gx#module-context::t '#f)) + (_in93289_ (map gx#core-module-export->import (##structure-ref - _ctx93013_ + _ctx93275_ '9 gx#module-context::t '#f))) - (_e93028_ - (make-promise (lambda () (gx#eval-module _ctx93013_))))) - (if (##fx< '8 (##structure-length _self93012_)) + (_e93290_ + (make-promise (lambda () (gx#eval-module _ctx93275_))))) + (if (##fx< '8 (##structure-length _self93274_)) (begin (##unchecked-structure-set! - _self93012_ - _id93025_ + _self93274_ + _id93287_ '1 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ - (make-hash-table-eq 'size: (length _in93027_)) + _self93274_ + (make-hash-table-eq 'size: (length _in93289_)) '2 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ - _super93022_ + _self93274_ + _super93284_ '3 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ + _self93274_ '#f '4 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ + _self93274_ '#f '5 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ - _path93026_ + _self93274_ + _path93288_ '6 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ - _in93027_ + _self93274_ + _in93289_ '7 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ - _e93028_ + _self93274_ + _e93290_ '8 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self93012_ + _self93274_ '8 - (##vector-length _self93012_))) + (##vector-length _self93274_))) (for-each - (lambda (_g9302993031_) - (gx#core-bind-weak-import!__% _g9302993031_ _self93012_)) - _in93027_)) - (if (##fx< '8 (##structure-length _self93012_)) + (lambda (_g9329193293_) + (gx#core-bind-weak-import!__% _g9329193293_ _self93274_)) + _in93289_)) + (if (##fx< '8 (##structure-length _self93274_)) (begin (##unchecked-structure-set! - _self93012_ + _self93274_ '#f '1 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ + _self93274_ (make-hash-table-eq) '2 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ - _super93022_ + _self93274_ + _super93284_ '3 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ + _self93274_ '#f '4 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ + _self93274_ '#f '5 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ + _self93274_ '#f '6 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ + _self93274_ '() '7 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f) (##unchecked-structure-set! - _self93012_ + _self93274_ '#f '8 - (##structure-type _self93012_) + (##structure-type _self93274_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self93012_ + _self93274_ '8 - (##vector-length _self93012_))))))) + (##vector-length _self93274_))))))) (define gx#prelude-context:::init!__0 - (lambda (_self93037_ _ctx93038_) - (let ((_root93040_ '#f)) - (gx#prelude-context:::init!__% _self93037_ _ctx93038_ _root93040_)))) + (lambda (_self93299_ _ctx93300_) + (let ((_root93302_ '#f)) + (gx#prelude-context:::init!__% _self93299_ _ctx93300_ _root93302_)))) (define gx#prelude-context:::init! - (lambda _g93244_ - (let ((_g93243_ (##length _g93244_))) - (cond ((##fx= _g93243_ 2) - (apply (lambda (_self93037_ _ctx93038_) + (lambda _g93506_ + (let ((_g93505_ (##length _g93506_))) + (cond ((##fx= _g93505_ 2) + (apply (lambda (_self93299_ _ctx93300_) (gx#prelude-context:::init!__0 - _self93037_ - _ctx93038_)) - _g93244_)) - ((##fx= _g93243_ 3) - (apply (lambda (_self93042_ _ctx93043_ _root93044_) + _self93299_ + _ctx93300_)) + _g93506_)) + ((##fx= _g93505_ 3) + (apply (lambda (_self93304_ _ctx93305_ _root93306_) (gx#prelude-context:::init!__% - _self93042_ - _ctx93043_ - _root93044_)) - _g93244_)) + _self93304_ + _ctx93305_ + _root93306_)) + _g93506_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g93244_)))))) + _g93506_)))))) (bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_self92886_ _e92887_) - (if (##fx< '3 (##structure-length _self92886_)) + (lambda (_self93148_ _e93149_) + (if (##fx< '3 (##structure-length _self93148_)) (begin (##unchecked-structure-set! - _self92886_ - _e92887_ + _self93148_ + _e93149_ '1 - (##structure-type _self92886_) + (##structure-type _self93148_) '#f) (##unchecked-structure-set! - _self92886_ + _self93148_ (gx#current-expander-context) '2 - (##structure-type _self92886_) + (##structure-type _self93148_) '#f) (##unchecked-structure-set! - _self92886_ + _self93148_ (fx- (gx#current-expander-phi) '1) '3 - (##structure-type _self92886_) + (##structure-type _self93148_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self92886_ + _self93148_ '3 - (##vector-length _self92886_))))) + (##vector-length _self93148_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (bind-method!__% gx#import-expander::t @@ -599,10 +599,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_g9251292515_ _g9251392517_) + (lambda (_g9277492777_ _g9277592779_) (gx#core-apply-user-expander__% - _g9251292515_ - _g9251392517_ + _g9277492777_ + _g9277592779_ 'apply-import-expander))) (bind-method!__% gx#import-expander::t @@ -610,10 +610,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_g9238392386_ _g9238492388_) + (lambda (_g9264592648_ _g9264692650_) (gx#core-apply-user-expander__% - _g9238392386_ - _g9238492388_ + _g9264592648_ + _g9264692650_ 'apply-export-expander))) (bind-method!__% gx#export-expander::t @@ -621,116 +621,116 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_ctx92254_) - (let* ((_path92256_ - (##structure-ref _ctx92254_ '7 gx#module-context::t '#f)) - (_path92258_ - (if (pair? _path92256_) (last _path92256_) _path92256_))) - (if (string? _path92258_) _path92258_ '#f)))) + (lambda (_ctx92516_) + (let* ((_path92518_ + (##structure-ref _ctx92516_ '7 gx#module-context::t '#f)) + (_path92520_ + (if (pair? _path92518_) (last _path92518_) _path92518_))) + (if (string? _path92520_) _path92520_ '#f)))) (define gx#import-module__% - (lambda (_path92230_ _reload?92231_ _eval?92232_) - (let ((_ctx92234_ + (lambda (_path92492_ _reload?92493_ _eval?92494_) + (let ((_ctx92496_ ((gx#current-expander-module-import) - _path92230_ - _reload?92231_))) - (if (and _ctx92234_ _eval?92232_) - (gx#eval-module _ctx92234_) + _path92492_ + _reload?92493_))) + (if (and _ctx92496_ _eval?92494_) + (gx#eval-module _ctx92496_) '#!void) - _ctx92234_))) + _ctx92496_))) (define gx#import-module__0 - (lambda (_path92239_) - (let* ((_reload?92241_ '#f) (_eval?92243_ '#f)) - (gx#import-module__% _path92239_ _reload?92241_ _eval?92243_)))) + (lambda (_path92501_) + (let* ((_reload?92503_ '#f) (_eval?92505_ '#f)) + (gx#import-module__% _path92501_ _reload?92503_ _eval?92505_)))) (define gx#import-module__1 - (lambda (_path92245_ _reload?92246_) - (let ((_eval?92248_ '#f)) - (gx#import-module__% _path92245_ _reload?92246_ _eval?92248_)))) + (lambda (_path92507_ _reload?92508_) + (let ((_eval?92510_ '#f)) + (gx#import-module__% _path92507_ _reload?92508_ _eval?92510_)))) (define gx#import-module - (lambda _g93246_ - (let ((_g93245_ (##length _g93246_))) - (cond ((##fx= _g93245_ 1) - (apply (lambda (_path92239_) - (gx#import-module__0 _path92239_)) - _g93246_)) - ((##fx= _g93245_ 2) - (apply (lambda (_path92245_ _reload?92246_) - (gx#import-module__1 _path92245_ _reload?92246_)) - _g93246_)) - ((##fx= _g93245_ 3) - (apply (lambda (_path92250_ _reload?92251_ _eval?92252_) + (lambda _g93508_ + (let ((_g93507_ (##length _g93508_))) + (cond ((##fx= _g93507_ 1) + (apply (lambda (_path92501_) + (gx#import-module__0 _path92501_)) + _g93508_)) + ((##fx= _g93507_ 2) + (apply (lambda (_path92507_ _reload?92508_) + (gx#import-module__1 _path92507_ _reload?92508_)) + _g93508_)) + ((##fx= _g93507_ 3) + (apply (lambda (_path92512_ _reload?92513_ _eval?92514_) (gx#import-module__% - _path92250_ - _reload?92251_ - _eval?92252_)) - _g93246_)) + _path92512_ + _reload?92513_ + _eval?92514_)) + _g93508_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g93246_)))))) + _g93508_)))))) (define gx#eval-module - (lambda (_mod92227_) ((gx#current-expander-module-eval) _mod92227_))) + (lambda (_mod92489_) ((gx#current-expander-module-eval) _mod92489_))) (define gx#core-eval-module - (lambda (_obj92212_) - (letrec ((_force-e92214_ - (lambda (_getf92223_ _e92224_) + (lambda (_obj92474_) + (letrec ((_force-e92476_ + (lambda (_getf92485_ _e92486_) (call-with-parameters - (lambda () (force (_getf92223_ _e92224_))) + (lambda () (force (_getf92485_ _e92486_))) gx#current-expander-context - _e92224_ + _e92486_ gx#current-expander-phi '0)))) - (let _recur92216_ ((_e92218_ _obj92212_)) - (if (##structure-instance-of? _e92218_ 'gx#module-context::t) + (let _recur92478_ ((_e92480_ _obj92474_)) + (if (##structure-instance-of? _e92480_ 'gx#module-context::t) (begin - (let ((_$e92220_ (gx#core-context-prelude__% _e92218_))) - (if _$e92220_ (_recur92216_ _$e92220_) '#!void)) - (_force-e92214_ gx#module-context-e _e92218_)) - (if (##structure-instance-of? _e92218_ 'gx#prelude-context::t) - (_force-e92214_ gx#prelude-context-e _e92218_) - (if (gx#stx-string? _e92218_) - (_recur92216_ + (let ((_$e92482_ (gx#core-context-prelude__% _e92480_))) + (if _$e92482_ (_recur92478_ _$e92482_) '#!void)) + (_force-e92476_ gx#module-context-e _e92480_)) + (if (##structure-instance-of? _e92480_ 'gx#prelude-context::t) + (_force-e92476_ gx#prelude-context-e _e92480_) + (if (gx#stx-string? _e92480_) + (_recur92478_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e92218_))) - (if (gx#core-library-module-path? _e92218_) - (_recur92216_ + (gx#core-resolve-module-path__0 _e92480_))) + (if (gx#core-library-module-path? _e92480_) + (_recur92478_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e92218_))) - (error '"Cannot eval module" _obj92212_))))))))) + (gx#core-resolve-library-module-path _e92480_))) + (error '"Cannot eval module" _obj92474_))))))))) (define gx#core-context-prelude__% - (lambda (_ctx92195_) - (let _lp92197_ ((_e92199_ _ctx92195_)) - (if (or (##structure-instance-of? _e92199_ 'gx#module-context::t) - (##structure-instance-of? _e92199_ 'gx#local-context::t)) - (_lp92197_ - (##unchecked-structure-ref _e92199_ '3 gx#phi-context::t '#f)) - (if (##structure-instance-of? _e92199_ 'gx#prelude-context::t) - _e92199_ + (lambda (_ctx92457_) + (let _lp92459_ ((_e92461_ _ctx92457_)) + (if (or (##structure-instance-of? _e92461_ 'gx#module-context::t) + (##structure-instance-of? _e92461_ 'gx#local-context::t)) + (_lp92459_ + (##unchecked-structure-ref _e92461_ '3 gx#phi-context::t '#f)) + (if (##structure-instance-of? _e92461_ 'gx#prelude-context::t) + _e92461_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx92208_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx92208_)))) + (let ((_ctx92470_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx92470_)))) (define gx#core-context-prelude - (lambda _g93248_ - (let ((_g93247_ (##length _g93248_))) - (cond ((##fx= _g93247_ 0) - (apply (lambda () (gx#core-context-prelude__0)) _g93248_)) - ((##fx= _g93247_ 1) - (apply (lambda (_ctx92210_) - (gx#core-context-prelude__% _ctx92210_)) - _g93248_)) + (lambda _g93510_ + (let ((_g93509_ (##length _g93510_))) + (cond ((##fx= _g93509_ 0) + (apply (lambda () (gx#core-context-prelude__0)) _g93510_)) + ((##fx= _g93509_ 1) + (apply (lambda (_ctx92472_) + (gx#core-context-prelude__% _ctx92472_)) + _g93510_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g93248_)))))) + _g93510_)))))) (define gx#core-module->prelude-context - (lambda (_ctx92185_) - (let* ((_ht92187_ (gx#current-expander-module-registry)) - (_$e92189_ (hash-get _ht92187_ _ctx92185_))) - (if _$e92189_ - (values _$e92189_) - (let ((_pre92192_ - (let ((__obj93239 + (lambda (_ctx92447_) + (let* ((_ht92449_ (gx#current-expander-module-registry)) + (_$e92451_ (hash-get _ht92449_ _ctx92447_))) + (if _$e92451_ + (values _$e92451_) + (let ((_pre92454_ + (let ((__obj93501 (##structure gx#prelude-context::t '#f @@ -741,51 +741,51 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj93239 _ctx92185_) - __obj93239))) - (hash-put! _ht92187_ _ctx92185_ _pre92192_) - _pre92192_))))) + (gx#prelude-context:::init! __obj93501 _ctx92447_) + __obj93501))) + (hash-put! _ht92449_ _ctx92447_ _pre92454_) + _pre92454_))))) (define gx#core-import-module__% - (lambda (_rpath92066_ _reload?92067_) - (letrec ((_import-source92069_ - (lambda (_path92154_) - (if (member _path92154_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path92154_) + (lambda (_rpath92328_ _reload?92329_) + (letrec ((_import-source92331_ + (lambda (_path92416_) + (if (member _path92416_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path92416_) '#!void) (call-with-parameters (lambda () - (let ((_g93249_ (gx#core-read-module _path92154_))) + (let ((_g93511_ (gx#core-read-module _path92416_))) (begin - (let ((_g93250_ - (if (##values? _g93249_) - (##vector-length _g93249_) + (let ((_g93512_ + (if (##values? _g93511_) + (##vector-length _g93511_) 1))) - (if (not (##fx= _g93250_ 4)) - (error "Context expects 4 values" _g93250_))) - (let ((_pre92157_ (##vector-ref _g93249_ 0)) - (_id92158_ (##vector-ref _g93249_ 1)) - (_ns92159_ (##vector-ref _g93249_ 2)) - (_body92160_ (##vector-ref _g93249_ 3))) - (let* ((_prelude92165_ + (if (not (##fx= _g93512_ 4)) + (error "Context expects 4 values" _g93512_))) + (let ((_pre92419_ (##vector-ref _g93511_ 0)) + (_id92420_ (##vector-ref _g93511_ 1)) + (_ns92421_ (##vector-ref _g93511_ 2)) + (_body92422_ (##vector-ref _g93511_ 3))) + (let* ((_prelude92427_ (if (##structure-instance-of? - _pre92157_ + _pre92419_ 'gx#prelude-context::t) - _pre92157_ + _pre92419_ (if (##structure-instance-of? - _pre92157_ + _pre92419_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre92157_) - (if (string? _pre92157_) + _pre92419_) + (if (string? _pre92419_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre92157_)) - (if (not _pre92157_) - (let ((_$e92162_ + _pre92419_)) + (if (not _pre92419_) + (let ((_$e92424_ (gx#current-expander-module-prelude))) - (if _$e92162_ - _$e92162_ - (let ((__obj93240 + (if _$e92424_ + _$e92424_ + (let ((__obj93502 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -797,14 +797,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj93240 '#f) - __obj93240))) + (gx#prelude-context:::init! __obj93502 '#f) + __obj93502))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath92066_ - _pre92157_)))))) - (_ctx92167_ - (let ((__obj93241 + _rpath92328_ + _pre92419_)))))) + (_ctx92429_ + (let ((__obj93503 (##structure gx#module-context::t '#f @@ -819,44 +819,44 @@ '#f '#f))) (gx#module-context:::init! - __obj93241 - _id92158_ - _prelude92165_ - _ns92159_ - _path92154_) - __obj93241)) - (_body92169_ + __obj93503 + _id92420_ + _prelude92427_ + _ns92421_ + _path92416_) + __obj93503)) + (_body92431_ (gx#core-expand-module-begin - _body92160_ - _ctx92167_)) - (_body92171_ + _body92422_ + _ctx92429_)) + (_body92433_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body92169_) - _path92154_ - _ctx92167_ + (gx#core-cons '%#begin _body92431_) + _path92416_ + _ctx92429_ '()))) (##unchecked-structure-set! - _ctx92167_ + _ctx92429_ (make-promise - (lambda () (gx#eval-syntax* _body92171_))) + (lambda () (gx#eval-syntax* _body92433_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx92167_ - _body92171_ + _ctx92429_ + _body92433_ '11 gx#module-context::t '#f) (hash-put! (gx#current-expander-module-registry) - _path92154_ - _ctx92167_) + _path92416_ + _ctx92429_) (hash-put! (gx#current-expander-module-registry) - _id92158_ - _ctx92167_) - _ctx92167_))))) + _id92420_ + _ctx92429_) + _ctx92429_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -864,1295 +864,1295 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _path92154_ (gx#current-expander-path)) + (cons _path92416_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule92070_ - (lambda (_rpath92082_) - (let* ((_rpath9208392090_ _rpath92082_) - (_E9208592094_ + (_import-submodule92332_ + (lambda (_rpath92344_) + (let* ((_rpath9234592352_ _rpath92344_) + (_E9234792356_ (lambda () - (error '"No clause matching" _rpath9208392090_))) - (_K9208692142_ - (lambda (_refs92097_ _origin92098_) - (let ((_ctx92100_ - (if _origin92098_ + (error '"No clause matching" _rpath9234592352_))) + (_K9234892404_ + (lambda (_refs92359_ _origin92360_) + (let ((_ctx92362_ + (if _origin92360_ (gx#core-import-module__% - _origin92098_ - _reload?92067_) + _origin92360_ + _reload?92329_) (gx#current-expander-context)))) - (let _lp92102_ ((_rest92104_ _refs92097_) - (_ctx92105_ _ctx92100_)) - (let* ((_rest9210692114_ _rest92104_) - (_else9210892122_ - (lambda () _ctx92105_)) - (_K9211092130_ - (lambda (_rest92125_ _id92126_) - (let ((_bind92128_ + (let _lp92364_ ((_rest92366_ _refs92359_) + (_ctx92367_ _ctx92362_)) + (let* ((_rest9236892376_ _rest92366_) + (_else9237092384_ + (lambda () _ctx92367_)) + (_K9237292392_ + (lambda (_rest92387_ _id92388_) + (let ((_bind92390_ (gx#resolve-identifier__% - _id92126_ + _id92388_ '0 - _ctx92105_))) + _ctx92367_))) (if (and (##structure-direct-instance-of? - _bind92128_ + _bind92390_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind92128_ + _bind92390_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp92102_ - _rest92125_ + (_lp92364_ + _rest92387_ (##unchecked-structure-ref - _bind92128_ + _bind92390_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _rpath92082_ - _id92126_ - _bind92128_)))))) - (if (##pair? _rest9210692114_) - (let ((_hd9211192133_ - (##car _rest9210692114_)) - (_tl9211292135_ - (##cdr _rest9210692114_))) - (let* ((_id92138_ _hd9211192133_) - (_rest92140_ _tl9211292135_)) - (_K9211092130_ - _rest92140_ - _id92138_))) - (_else9210892122_)))))))) - (if (##pair? _rpath9208392090_) - (let ((_hd9208792145_ (##car _rpath9208392090_)) - (_tl9208892147_ (##cdr _rpath9208392090_))) - (let* ((_origin92150_ _hd9208792145_) - (_refs92152_ _tl9208892147_)) - (_K9208692142_ _refs92152_ _origin92150_))) - (_E9208592094_)))))) - (let ((_$e92072_ - (if (not _reload?92067_) + _rpath92344_ + _id92388_ + _bind92390_)))))) + (if (##pair? _rest9236892376_) + (let ((_hd9237392395_ + (##car _rest9236892376_)) + (_tl9237492397_ + (##cdr _rest9236892376_))) + (let* ((_id92400_ _hd9237392395_) + (_rest92402_ _tl9237492397_)) + (_K9237292392_ + _rest92402_ + _id92400_))) + (_else9237092384_)))))))) + (if (##pair? _rpath9234592352_) + (let ((_hd9234992407_ (##car _rpath9234592352_)) + (_tl9235092409_ (##cdr _rpath9234592352_))) + (let* ((_origin92412_ _hd9234992407_) + (_refs92414_ _tl9235092409_)) + (_K9234892404_ _refs92414_ _origin92412_))) + (_E9234792356_)))))) + (let ((_$e92334_ + (if (not _reload?92329_) (hash-get (gx#current-expander-module-registry) - _rpath92066_) + _rpath92328_) '#f))) - (if _$e92072_ - (values _$e92072_) - (if (list? _rpath92066_) - (_import-submodule92070_ _rpath92066_) - (if (gx#core-library-module-path? _rpath92066_) - (let ((_ctx92075_ + (if _$e92334_ + (values _$e92334_) + (if (list? _rpath92328_) + (_import-submodule92332_ _rpath92328_) + (if (gx#core-library-module-path? _rpath92328_) + (let ((_ctx92337_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath92066_) - _reload?92067_))) + _rpath92328_) + _reload?92329_))) (hash-put! (gx#current-expander-module-registry) - _rpath92066_ - _ctx92075_) - _ctx92075_) - (let* ((_npath92077_ (path-normalize _rpath92066_)) - (_$e92079_ - (if (not _reload?92067_) + _rpath92328_ + _ctx92337_) + _ctx92337_) + (let* ((_npath92339_ (path-normalize _rpath92328_)) + (_$e92341_ + (if (not _reload?92329_) (hash-get (gx#current-expander-module-registry) - _npath92077_) + _npath92339_) '#f))) - (if _$e92079_ - (values _$e92079_) - (_import-source92069_ _npath92077_)))))))))) + (if _$e92341_ + (values _$e92341_) + (_import-source92331_ _npath92339_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath92178_) - (let ((_reload?92180_ '#f)) - (gx#core-import-module__% _rpath92178_ _reload?92180_)))) + (lambda (_rpath92440_) + (let ((_reload?92442_ '#f)) + (gx#core-import-module__% _rpath92440_ _reload?92442_)))) (define gx#core-import-module - (lambda _g93252_ - (let ((_g93251_ (##length _g93252_))) - (cond ((##fx= _g93251_ 1) - (apply (lambda (_rpath92178_) - (gx#core-import-module__0 _rpath92178_)) - _g93252_)) - ((##fx= _g93251_ 2) - (apply (lambda (_rpath92182_ _reload?92183_) + (lambda _g93514_ + (let ((_g93513_ (##length _g93514_))) + (cond ((##fx= _g93513_ 1) + (apply (lambda (_rpath92440_) + (gx#core-import-module__0 _rpath92440_)) + _g93514_)) + ((##fx= _g93513_ 2) + (apply (lambda (_rpath92444_ _reload?92445_) (gx#core-import-module__% - _rpath92182_ - _reload?92183_)) - _g93252_)) + _rpath92444_ + _reload?92445_)) + _g93514_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g93252_)))))) + _g93514_)))))) (define gx#core-read-module - (lambda (_path92055_) + (lambda (_path92317_) (with-catch - (lambda (_exn92057_) - (if (and (datum-parsing-exception? _exn92057_) - (eq? (datum-parsing-exception-filepos _exn92057_) '0)) - (gx#core-read-module/lang _path92055_) + (lambda (_exn92319_) + (if (and (datum-parsing-exception? _exn92319_) + (eq? (datum-parsing-exception-filepos _exn92319_) '0)) + (gx#core-read-module/lang _path92317_) (gx#raise-syntax-error 'read-module '"error reading module" - _path92055_ + _path92317_ (call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_g9205992061_) - (display-exception _exn92057_ _g9205992061_)))) + (lambda (_g9232192323_) + (display-exception _exn92319_ _g9232192323_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _path92055_))))) + (lambda () (gx#core-read-module/sexp _path92317_))))) (define gx#core-read-module/sexp - (lambda (_path91918_) - (let _lp91920_ ((_body91922_ (read-syntax-from-file _path91918_)) - (_pre91923_ '#f) - (_ns91924_ '#f) - (_pkg91925_ '#f)) - (let* ((_e9192691950_ _body91922_) - (_E9194291972_ + (lambda (_path92180_) + (let _lp92182_ ((_body92184_ (read-syntax-from-file _path92180_)) + (_pre92185_ '#f) + (_ns92186_ '#f) + (_pkg92187_ '#f)) + (let* ((_e9218892212_ _body92184_) + (_E9220492234_ (lambda () - (let ((_g93253_ - (if _pkg91925_ - (values _pre91923_ _ns91924_ _pkg91925_) + (let ((_g93515_ + (if _pkg92187_ + (values _pre92185_ _ns92186_ _pkg92187_) (gx#core-read-module-package - _path91918_ - _pre91923_ - _ns91924_)))) + _path92180_ + _pre92185_ + _ns92186_)))) (begin - (let ((_g93254_ - (if (##values? _g93253_) - (##vector-length _g93253_) + (let ((_g93516_ + (if (##values? _g93515_) + (##vector-length _g93515_) 1))) - (if (not (##fx= _g93254_ 3)) - (error "Context expects 3 values" _g93254_))) - (let ((_pre91954_ (##vector-ref _g93253_ 0)) - (_ns91955_ (##vector-ref _g93253_ 1)) - (_pkg91956_ (##vector-ref _g93253_ 2))) - (let* ((_prelude91958_ + (if (not (##fx= _g93516_ 3)) + (error "Context expects 3 values" _g93516_))) + (let ((_pre92216_ (##vector-ref _g93515_ 0)) + (_ns92217_ (##vector-ref _g93515_ 1)) + (_pkg92218_ (##vector-ref _g93515_ 2))) + (let* ((_prelude92220_ (if (gx#core-bound-module-prelude? - _pre91954_) - (gx#syntax-local-e__0 _pre91954_) + _pre92216_) + (gx#syntax-local-e__0 _pre92216_) (if (gx#core-library-module-path? - _pre91954_) + _pre92216_) (gx#core-resolve-library-module-path - _pre91954_) - (if (gx#stx-string? _pre91954_) + _pre92216_) + (if (gx#stx-string? _pre92216_) (gx#core-resolve-module-path__% - _pre91954_ - _path91918_) - (gx#stx-e _pre91954_))))) - (_path-id91960_ - (gx#core-module-path->namespace _path91918_)) - (_pkg-id91962_ - (if _pkg91956_ + _pre92216_ + _path92180_) + (gx#stx-e _pre92216_))))) + (_path-id92222_ + (gx#core-module-path->namespace _path92180_)) + (_pkg-id92224_ + (if _pkg92218_ (string-append - _pkg91956_ + _pkg92218_ '"/" - _path-id91960_) - _path-id91960_)) - (_module-id91964_ - (string->symbol _pkg-id91962_)) - (_module-ns91969_ - (if (eq? _ns91955_ '#!void) + _path-id92222_) + _path-id92222_)) + (_module-id92226_ + (string->symbol _pkg-id92224_)) + (_module-ns92231_ + (if (eq? _ns92217_ '#!void) '#f - (let ((_$e91966_ _ns91955_)) - (if _$e91966_ - _$e91966_ - _pkg-id91962_))))) - (values _prelude91958_ - _module-id91964_ - _module-ns91969_ - _body91922_))))))) - (_E9193592001_ + (let ((_$e92228_ _ns92217_)) + (if _$e92228_ + _$e92228_ + _pkg-id92224_))))) + (values _prelude92220_ + _module-id92226_ + _module-ns92231_ + _body92184_))))))) + (_E9219792263_ (lambda () - (if (gx#stx-pair? _e9192691950_) - (let ((_e9194391976_ (gx#syntax-e _e9192691950_))) - (let ((_hd9194491979_ (##car _e9194391976_)) - (_tl9194591981_ (##cdr _e9194391976_))) - (if (eq? (gx#stx-e _hd9194491979_) 'package:) - (if (gx#stx-pair? _tl9194591981_) - (let ((_e9194691984_ - (gx#syntax-e _tl9194591981_))) - (let ((_hd9194791987_ - (##car _e9194691984_)) - (_tl9194891989_ - (##cdr _e9194691984_))) - (let* ((_pkg91992_ _hd9194791987_) - (_rest91994_ _tl9194891989_)) + (if (gx#stx-pair? _e9218892212_) + (let ((_e9220592238_ (gx#syntax-e _e9218892212_))) + (let ((_hd9220692241_ (##car _e9220592238_)) + (_tl9220792243_ (##cdr _e9220592238_))) + (if (eq? (gx#stx-e _hd9220692241_) 'package:) + (if (gx#stx-pair? _tl9220792243_) + (let ((_e9220892246_ + (gx#syntax-e _tl9220792243_))) + (let ((_hd9220992249_ + (##car _e9220892246_)) + (_tl9221092251_ + (##cdr _e9220892246_))) + (let* ((_pkg92254_ _hd9220992249_) + (_rest92256_ _tl9221092251_)) (if '#t - (let ((_pkg91999_ + (let ((_pkg92261_ (if (gx#identifier? - _pkg91992_) + _pkg92254_) (symbol->string (gx#stx-e - _pkg91992_)) + _pkg92254_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg91992_) - (gx#stx-false? _pkg91992_)) - (gx#stx-e _pkg91992_) + _pkg92254_) + (gx#stx-false? _pkg92254_)) + (gx#stx-e _pkg92254_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg91992_))))) + _pkg92254_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp91920_ - _rest91994_ - _pre91923_ - _ns91924_ - _pkg91999_)) - (_E9194291972_))))) - (_E9194291972_)) - (_E9194291972_)))) - (_E9194291972_)))) - (_E9192892027_ + (_lp92182_ + _rest92256_ + _pre92185_ + _ns92186_ + _pkg92261_)) + (_E9220492234_))))) + (_E9220492234_)) + (_E9220492234_)))) + (_E9220492234_)))) + (_E9219092289_ (lambda () - (if (gx#stx-pair? _e9192691950_) - (let ((_e9193692005_ (gx#syntax-e _e9192691950_))) - (let ((_hd9193792008_ (##car _e9193692005_)) - (_tl9193892010_ (##cdr _e9193692005_))) - (if (eq? (gx#stx-e _hd9193792008_) 'namespace:) - (if (gx#stx-pair? _tl9193892010_) - (let ((_e9193992013_ - (gx#syntax-e _tl9193892010_))) - (let ((_hd9194092016_ - (##car _e9193992013_)) - (_tl9194192018_ - (##cdr _e9193992013_))) - (let* ((_ns92021_ _hd9194092016_) - (_rest92023_ _tl9194192018_)) + (if (gx#stx-pair? _e9218892212_) + (let ((_e9219892267_ (gx#syntax-e _e9218892212_))) + (let ((_hd9219992270_ (##car _e9219892267_)) + (_tl9220092272_ (##cdr _e9219892267_))) + (if (eq? (gx#stx-e _hd9219992270_) 'namespace:) + (if (gx#stx-pair? _tl9220092272_) + (let ((_e9220192275_ + (gx#syntax-e _tl9220092272_))) + (let ((_hd9220292278_ + (##car _e9220192275_)) + (_tl9220392280_ + (##cdr _e9220192275_))) + (let* ((_ns92283_ _hd9220292278_) + (_rest92285_ _tl9220392280_)) (if '#t - (let ((_ns92025_ + (let ((_ns92287_ (if (gx#identifier? - _ns92021_) + _ns92283_) (symbol->string - (gx#stx-e _ns92021_)) + (gx#stx-e _ns92283_)) (if (gx#stx-string? - _ns92021_) + _ns92283_) (gx#stx-e - _ns92021_) + _ns92283_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns92021_) + _ns92283_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns92021_)))))) + _ns92283_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp91920_ - _rest92023_ - _pre91923_ - _ns92025_ - _pkg91925_)) - (_E9193592001_))))) - (_E9193592001_)) - (_E9193592001_)))) - (_E9193592001_)))) - (_E9192792051_ + (_lp92182_ + _rest92285_ + _pre92185_ + _ns92287_ + _pkg92187_)) + (_E9219792263_))))) + (_E9219792263_)) + (_E9219792263_)))) + (_E9219792263_)))) + (_E9218992313_ (lambda () - (if (gx#stx-pair? _e9192691950_) - (let ((_e9192992031_ (gx#syntax-e _e9192691950_))) - (let ((_hd9193092034_ (##car _e9192992031_)) - (_tl9193192036_ (##cdr _e9192992031_))) - (if (eq? (gx#stx-e _hd9193092034_) 'prelude:) - (if (gx#stx-pair? _tl9193192036_) - (let ((_e9193292039_ - (gx#syntax-e _tl9193192036_))) - (let ((_hd9193392042_ - (##car _e9193292039_)) - (_tl9193492044_ - (##cdr _e9193292039_))) - (let* ((_prelude92047_ _hd9193392042_) - (_rest92049_ _tl9193492044_)) + (if (gx#stx-pair? _e9218892212_) + (let ((_e9219192293_ (gx#syntax-e _e9218892212_))) + (let ((_hd9219292296_ (##car _e9219192293_)) + (_tl9219392298_ (##cdr _e9219192293_))) + (if (eq? (gx#stx-e _hd9219292296_) 'prelude:) + (if (gx#stx-pair? _tl9219392298_) + (let ((_e9219492301_ + (gx#syntax-e _tl9219392298_))) + (let ((_hd9219592304_ + (##car _e9219492301_)) + (_tl9219692306_ + (##cdr _e9219492301_))) + (let* ((_prelude92309_ _hd9219592304_) + (_rest92311_ _tl9219692306_)) (if '#t - (_lp91920_ - _rest92049_ - _prelude92047_ - _ns91924_ - _pkg91925_) - (_E9192892027_))))) - (_E9192892027_)) - (_E9192892027_)))) - (_E9192892027_))))) - (_E9192792051_))))) + (_lp92182_ + _rest92311_ + _prelude92309_ + _ns92186_ + _pkg92187_) + (_E9219092289_))))) + (_E9219092289_)) + (_E9219092289_)))) + (_E9219092289_))))) + (_E9218992313_))))) (define gx#core-read-module/lang - (lambda (_path91745_) - (letrec ((_default-read-module-body91747_ - (lambda (_inp91910_) - (let _lp91912_ ((_body91914_ '())) - (let ((_next91916_ (read-syntax _inp91910_))) - (if (eof-object? _next91916_) - (reverse _body91914_) - (_lp91912_ (cons _next91916_ _body91914_))))))) - (_read-body91748_ - (lambda (_inp91829_ - _pre91830_ - _ns91831_ - _pkg91832_ - _args91833_) - (let ((_g93255_ - (if _pkg91832_ - (values _pre91830_ _ns91831_ _pkg91832_) + (lambda (_path92007_) + (letrec ((_default-read-module-body92009_ + (lambda (_inp92172_) + (let _lp92174_ ((_body92176_ '())) + (let ((_next92178_ (read-syntax _inp92172_))) + (if (eof-object? _next92178_) + (reverse _body92176_) + (_lp92174_ (cons _next92178_ _body92176_))))))) + (_read-body92010_ + (lambda (_inp92091_ + _pre92092_ + _ns92093_ + _pkg92094_ + _args92095_) + (let ((_g93517_ + (if _pkg92094_ + (values _pre92092_ _ns92093_ _pkg92094_) (gx#core-read-module-package - _path91745_ - _pre91830_ - _ns91831_)))) + _path92007_ + _pre92092_ + _ns92093_)))) (begin - (let ((_g93256_ - (if (##values? _g93255_) - (##vector-length _g93255_) + (let ((_g93518_ + (if (##values? _g93517_) + (##vector-length _g93517_) 1))) - (if (not (##fx= _g93256_ 3)) - (error "Context expects 3 values" _g93256_))) - (let ((_pre91835_ (##vector-ref _g93255_ 0)) - (_ns91836_ (##vector-ref _g93255_ 1)) - (_pkg91837_ (##vector-ref _g93255_ 2))) - (let* ((_prelude91839_ - (gx#import-module__0 _pre91835_)) - (_read-module-body91893_ - (let ((_$e91885_ - (find (lambda (_e9184091842_) - (let* ((_g9184491854_ - _e9184091842_) - (_else9184691862_ + (if (not (##fx= _g93518_ 3)) + (error "Context expects 3 values" _g93518_))) + (let ((_pre92097_ (##vector-ref _g93517_ 0)) + (_ns92098_ (##vector-ref _g93517_ 1)) + (_pkg92099_ (##vector-ref _g93517_ 2))) + (let* ((_prelude92101_ + (gx#import-module__0 _pre92097_)) + (_read-module-body92155_ + (let ((_$e92147_ + (find (lambda (_e9210292104_) + (let* ((_g9210692116_ + _e9210292104_) + (_else9210892124_ (lambda () '#f)) - (_K9184891866_ + (_K9211092128_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g9184491854_ + _g9210692116_ 'gx#module-export::t) - (let* ((_e9184991869_ + (let* ((_e9211192131_ (##unchecked-structure-ref - _g9184491854_ + _g9210692116_ '1 gx#module-export::t '#f)) - (_e9185091872_ + (_e9211292134_ (##unchecked-structure-ref - _g9184491854_ + _g9210692116_ '2 gx#module-export::t '#f)) - (_e9185191875_ + (_e9211392137_ (##unchecked-structure-ref - _g9184491854_ + _g9210692116_ '3 gx#module-export::t '#f))) - (if (##eq? _e9185191875_ + (if (##eq? _e9211392137_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e9185291878_ + (let ((_e9211492140_ (##unchecked-structure-ref - _g9184491854_ + _g9210692116_ '4 gx#module-export::t '#f))) - (if ((lambda (_g9188091882_) - (eq? _g9188091882_ 'read-module-body)) - _e9185291878_) - (_K9184891866_) - (_else9184691862_))) - (_else9184691862_))) - (_else9184691862_)))) + (if ((lambda (_g9214292144_) + (eq? _g9214292144_ 'read-module-body)) + _e9211492140_) + (_K9211092128_) + (_else9210892124_))) + (_else9210892124_))) + (_else9210892124_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude91839_ + _prelude92101_ '9 gx#module-context::t '#f)))) - (if _$e91885_ - ((lambda (_xport91888_) - (let ((_proc91891_ + (if _$e92147_ + ((lambda (_xport92150_) + (let ((_proc92153_ (with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport91888_) + _xport92150_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc91891_) - _proc91891_ + (if (procedure? _proc92153_) + _proc92153_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path91745_ - _pre91835_ - _proc91891_)))) - _$e91885_) - _default-read-module-body91747_))) - (_path-id91895_ - (gx#core-module-path->namespace _path91745_)) - (_pkg-id91897_ - (if _pkg91837_ + _path92007_ + _pre92097_ + _proc92153_)))) + _$e92147_) + _default-read-module-body92009_))) + (_path-id92157_ + (gx#core-module-path->namespace _path92007_)) + (_pkg-id92159_ + (if _pkg92099_ (string-append - _pkg91837_ + _pkg92099_ '"/" - _path-id91895_) - _path-id91895_)) - (_module-id91899_ - (string->symbol _pkg-id91897_)) - (_module-ns91904_ - (let ((_$e91901_ _ns91836_)) - (if _$e91901_ _$e91901_ _pkg-id91897_))) - (_body91907_ + _path-id92157_) + _path-id92157_)) + (_module-id92161_ + (string->symbol _pkg-id92159_)) + (_module-ns92166_ + (let ((_$e92163_ _ns92098_)) + (if _$e92163_ _$e92163_ _pkg-id92159_))) + (_body92169_ (call-with-parameters (lambda () - (_read-module-body91893_ _inp91829_)) + (_read-module-body92155_ _inp92091_)) gx#current-module-reader-path - _path91745_ + _path92007_ gx#current-module-reader-args - _args91833_))) - (values _prelude91839_ - _module-id91899_ - _module-ns91904_ - _body91907_))))))) - (_string-e91749_ - (lambda (_obj91826_ _what91827_) - (if (string? _obj91826_) - _obj91826_ - (if (symbol? _obj91826_) - (symbol->string _obj91826_) + _args92095_))) + (values _prelude92101_ + _module-id92161_ + _module-ns92166_ + _body92169_))))))) + (_string-e92011_ + (lambda (_obj92088_ _what92089_) + (if (string? _obj92088_) + _obj92088_ + (if (symbol? _obj92088_) + (symbol->string _obj92088_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what91827_) - _path91745_ - _obj91826_))))) - (_read-lang-args91750_ - (lambda (_inp91781_ _args91782_) - (let* ((_args9178391791_ _args91782_) - (_else9178591799_ + (string-append '"Illegal module " _what92089_) + _path92007_ + _obj92088_))))) + (_read-lang-args92012_ + (lambda (_inp92043_ _args92044_) + (let* ((_args9204592053_ _args92044_) + (_else9204792061_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path91745_))) - (_K9178791814_ - (lambda (_args91802_ _prelude91803_) - (let* ((_pkg91805_ - (pgetq__0 'package: _args91802_)) - (_pkg91807_ - (if _pkg91805_ - (_string-e91749_ - _pkg91805_ + _path92007_))) + (_K9204992076_ + (lambda (_args92064_ _prelude92065_) + (let* ((_pkg92067_ + (pgetq__0 'package: _args92064_)) + (_pkg92069_ + (if _pkg92067_ + (_string-e92011_ + _pkg92067_ '"package") '#f)) - (_ns91809_ - (pgetq__0 'namespace: _args91802_)) - (_ns91811_ - (if _ns91809_ - (_string-e91749_ - _ns91809_ + (_ns92071_ + (pgetq__0 'namespace: _args92064_)) + (_ns92073_ + (if _ns92071_ + (_string-e92011_ + _ns92071_ '"namespace") '#f))) - (_read-body91748_ - _inp91781_ - _prelude91803_ - _ns91811_ - _pkg91807_ - _args91802_))))) - (if (##pair? _args9178391791_) - (let ((_hd9178891817_ (##car _args9178391791_)) - (_tl9178991819_ (##cdr _args9178391791_))) - (let* ((_prelude91822_ _hd9178891817_) - (_args91824_ _tl9178991819_)) - (_K9178791814_ _args91824_ _prelude91822_))) - (_else9178591799_))))) - (_read-lang91751_ - (lambda (_inp91756_) - (let* ((_head91758_ (read-line _inp91756_)) - (_$e91760_ (string-index__0 _head91758_ '#\space))) - (if _$e91760_ - ((lambda (_ix91763_) - (let ((_lang91765_ - (substring _head91758_ '0 _ix91763_))) - (if (equal? _lang91765_ '"#lang") - (let* ((_rest91767_ + (_read-body92010_ + _inp92043_ + _prelude92065_ + _ns92073_ + _pkg92069_ + _args92064_))))) + (if (##pair? _args9204592053_) + (let ((_hd9205092079_ (##car _args9204592053_)) + (_tl9205192081_ (##cdr _args9204592053_))) + (let* ((_prelude92084_ _hd9205092079_) + (_args92086_ _tl9205192081_)) + (_K9204992076_ _args92086_ _prelude92084_))) + (_else9204792061_))))) + (_read-lang92013_ + (lambda (_inp92018_) + (let* ((_head92020_ (read-line _inp92018_)) + (_$e92022_ (string-index__0 _head92020_ '#\space))) + (if _$e92022_ + ((lambda (_ix92025_) + (let ((_lang92027_ + (substring _head92020_ '0 _ix92025_))) + (if (equal? _lang92027_ '"#lang") + (let* ((_rest92029_ (substring - _head91758_ - (fx+ _ix91763_ '1) - (string-length _head91758_))) - (_args91778_ + _head92020_ + (fx+ _ix92025_ '1) + (string-length _head92020_))) + (_args92040_ (with-catch - (lambda (_g9176891770_) + (lambda (_g9203092032_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path91745_ - _g9176891770_)) + _path92007_ + _g9203092032_)) (lambda () (call-with-input-string - _rest91767_ - (lambda (_g9177391775_) + _rest92029_ + (lambda (_g9203592037_) (read-all - _g9177391775_ + _g9203592037_ read))))))) - (_read-lang-args91750_ - _inp91756_ - _args91778_)) + (_read-lang-args92012_ + _inp92018_ + _args92040_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path91745_)))) - _$e91760_) + _path92007_)))) + _$e92022_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path91745_))))) - (_read-e91752_ - (lambda (_inp91754_) - (if (eq? (peek-char _inp91754_) '#\#) - (_read-lang91751_ _inp91754_) + _path92007_))))) + (_read-e92014_ + (lambda (_inp92016_) + (if (eq? (peek-char _inp92016_) '#\#) + (_read-lang92013_ _inp92016_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path91745_))))) - (gx#call-with-input-source-file _path91745_ _read-e91752_)))) + _path92007_))))) + (gx#call-with-input-source-file _path92007_ _read-e92014_)))) (define gx#core-read-module-package - (lambda (_path91699_ _pre91700_ _ns91701_) - (letrec ((_string-e91703_ - (lambda (_e91743_) - (if (symbol? _e91743_) - (symbol->string _e91743_) - (if (string? _e91743_) - _e91743_ + (lambda (_path91961_ _pre91962_ _ns91963_) + (letrec ((_string-e91965_ + (lambda (_e92005_) + (if (symbol? _e92005_) + (symbol->string _e92005_) + (if (string? _e92005_) + _e92005_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _e91743_)))))) - (let _lp91705_ ((_dir91707_ (path-directory _path91699_)) - (_pkg-path91708_ '())) - (let ((_gerbil.pkg91710_ (path-expand '"gerbil.pkg" _dir91707_))) - (if (file-exists? _gerbil.pkg91710_) - (let ((_plist91712_ - (gx#core-library-package-plist__% _dir91707_ '#t))) - (if (null? _plist91712_) - (let ((_pkg91714_ - (if (not (null? _pkg-path91708_)) - (string-join _pkg-path91708_ '"/") + _e92005_)))))) + (let _lp91967_ ((_dir91969_ (path-directory _path91961_)) + (_pkg-path91970_ '())) + (let ((_gerbil.pkg91972_ (path-expand '"gerbil.pkg" _dir91969_))) + (if (file-exists? _gerbil.pkg91972_) + (let ((_plist91974_ + (gx#core-library-package-plist__% _dir91969_ '#t))) + (if (null? _plist91974_) + (let ((_pkg91976_ + (if (not (null? _pkg-path91970_)) + (string-join _pkg-path91970_ '"/") '#f))) - (values _pre91700_ _ns91701_ _pkg91714_)) - (if (list? _plist91712_) - (let* ((_root91716_ - (pgetq__0 'package: _plist91712_)) - (_pkg91720_ - (let ((_pkg-path91718_ - (if _root91716_ - (cons (_string-e91703_ - _root91716_) - _pkg-path91708_) - _pkg-path91708_))) - (if (not (null? _pkg-path91718_)) - (string-join _pkg-path91718_ '"/") + (values _pre91962_ _ns91963_ _pkg91976_)) + (if (list? _plist91974_) + (let* ((_root91978_ + (pgetq__0 'package: _plist91974_)) + (_pkg91982_ + (let ((_pkg-path91980_ + (if _root91978_ + (cons (_string-e91965_ + _root91978_) + _pkg-path91970_) + _pkg-path91970_))) + (if (not (null? _pkg-path91980_)) + (string-join _pkg-path91980_ '"/") '#f))) - (_ns91727_ - (let ((_ns91725_ - (let ((_$e91722_ _ns91701_)) - (if _$e91722_ - _$e91722_ + (_ns91989_ + (let ((_ns91987_ + (let ((_$e91984_ _ns91963_)) + (if _$e91984_ + _$e91984_ (pgetq__0 'namespace: - _plist91712_))))) - (if _ns91725_ - (_string-e91703_ _ns91725_) + _plist91974_))))) + (if _ns91987_ + (_string-e91965_ _ns91987_) '#f))) - (_pre91732_ - (let ((_$e91729_ _pre91700_)) - (if _$e91729_ - _$e91729_ - (pgetq__0 'prelude: _plist91712_))))) - (values _pre91732_ _ns91727_ _pkg91720_)) + (_pre91994_ + (let ((_$e91991_ _pre91962_)) + (if _$e91991_ + _$e91991_ + (pgetq__0 'prelude: _plist91974_))))) + (values _pre91994_ _ns91989_ _pkg91982_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _plist91712_)))) - (let ((_dir*91735_ - (path-strip-trailing-directory-separator _dir91707_))) - (if (or (string-empty? _dir*91735_) - (equal? _dir91707_ _dir*91735_)) - (values _pre91700_ _ns91701_ '#f) - (let ((_xpath91740_ (path-strip-directory _dir*91735_)) - (_xdir91741_ (path-directory _dir*91735_))) - (_lp91705_ - _xdir91741_ - (cons _xpath91740_ _pkg-path91708_))))))))))) + _plist91974_)))) + (let ((_dir*91997_ + (path-strip-trailing-directory-separator _dir91969_))) + (if (or (string-empty? _dir*91997_) + (equal? _dir91969_ _dir*91997_)) + (values _pre91962_ _ns91963_ '#f) + (let ((_xpath92002_ (path-strip-directory _dir*91997_)) + (_xdir92003_ (path-directory _dir*91997_))) + (_lp91967_ + _xdir92003_ + (cons _xpath92002_ _pkg-path91970_))))))))))) (define gx#core-module-path->namespace - (lambda (_path91697_) - (path-strip-extension (path-strip-directory _path91697_)))) + (lambda (_path91959_) + (path-strip-extension (path-strip-directory _path91959_)))) (define gx#core-module-path->id - (lambda (_path91695_) - (string->symbol (gx#core-module-path->namespace _path91695_)))) + (lambda (_path91957_) + (string->symbol (gx#core-module-path->namespace _path91957_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path91674_ _rel91675_) - (let* ((_path91677_ (gx#stx-e _stx-path91674_)) - (_path91679_ - (if (string-empty? (path-extension _path91677_)) - (string-append _path91677_ '".ss") - _path91677_))) + (lambda (_stx-path91936_ _rel91937_) + (let* ((_path91939_ (gx#stx-e _stx-path91936_)) + (_path91941_ + (if (string-empty? (path-extension _path91939_)) + (string-append _path91939_ '".ss") + _path91939_))) (gx#core-resolve-path__% - _path91679_ - (let ((_$e91682_ (gx#stx-source _stx-path91674_))) - (if _$e91682_ _$e91682_ _rel91675_)))))) + _path91941_ + (let ((_$e91944_ (gx#stx-source _stx-path91936_))) + (if _$e91944_ _$e91944_ _rel91937_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path91688_) - (let ((_rel91690_ '#f)) - (gx#core-resolve-module-path__% _stx-path91688_ _rel91690_)))) + (lambda (_stx-path91950_) + (let ((_rel91952_ '#f)) + (gx#core-resolve-module-path__% _stx-path91950_ _rel91952_)))) (define gx#core-resolve-module-path - (lambda _g93258_ - (let ((_g93257_ (##length _g93258_))) - (cond ((##fx= _g93257_ 1) - (apply (lambda (_stx-path91688_) - (gx#core-resolve-module-path__0 _stx-path91688_)) - _g93258_)) - ((##fx= _g93257_ 2) - (apply (lambda (_stx-path91692_ _rel91693_) + (lambda _g93520_ + (let ((_g93519_ (##length _g93520_))) + (cond ((##fx= _g93519_ 1) + (apply (lambda (_stx-path91950_) + (gx#core-resolve-module-path__0 _stx-path91950_)) + _g93520_)) + ((##fx= _g93519_ 2) + (apply (lambda (_stx-path91954_ _rel91955_) (gx#core-resolve-module-path__% - _stx-path91692_ - _rel91693_)) - _g93258_)) + _stx-path91954_ + _rel91955_)) + _g93520_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g93258_)))))) + _g93520_)))))) (define gx#core-resolve-library-module-path - (lambda (_libpath91560_) - (let* ((_spath91562_ (symbol->string (gx#stx-e _libpath91560_))) - (_spath91564_ - (substring _spath91562_ '1 (string-length _spath91562_))) - (_ext91566_ (path-extension _spath91564_)) - (_ssi91568_ - (if (string-empty? _ext91566_) - (string-append _spath91564_ '".ssi") + (lambda (_libpath91822_) + (let* ((_spath91824_ (symbol->string (gx#stx-e _libpath91822_))) + (_spath91826_ + (substring _spath91824_ '1 (string-length _spath91824_))) + (_ext91828_ (path-extension _spath91826_)) + (_ssi91830_ + (if (string-empty? _ext91828_) + (string-append _spath91826_ '".ssi") (string-append - (path-strip-extension _spath91564_) + (path-strip-extension _spath91826_) '".ssi"))) - (_srcs91572_ - (if (string-empty? _ext91566_) - (map (lambda (_ext91570_) - (string-append _spath91564_ _ext91570_)) + (_srcs91834_ + (if (string-empty? _ext91828_) + (map (lambda (_ext91832_) + (string-append _spath91826_ _ext91832_)) '(".ss" ".sld" ".scm")) - (cons _spath91564_ '())))) - (let _lp91575_ ((_rest91577_ + (cons _spath91826_ '())))) + (let _lp91837_ ((_rest91839_ (gx#current-expander-module-library-path))) - (let* ((_rest9157891587_ _rest91577_) - (_E9158191591_ + (let* ((_rest9184091849_ _rest91839_) + (_E9184391853_ (lambda () - (error '"No clause matching" _rest9157891587_)))) - (let ((_K9158391661_ - (lambda (_rest91602_ _dir91603_) - (letrec ((_resolve91605_ - (lambda (_ssi91617_ _srcs91618_) - (let ((_compiled-path91620_ - (path-expand _ssi91617_ _dir91603_))) - (if (file-exists? _compiled-path91620_) - (path-normalize _compiled-path91620_) - (let _lpr91622_ ((_rest-src91624_ - _srcs91618_)) - (let* ((_rest-src9162591633_ - _rest-src91624_) - (_else9162791641_ + (error '"No clause matching" _rest9184091849_)))) + (let ((_K9184591923_ + (lambda (_rest91864_ _dir91865_) + (letrec ((_resolve91867_ + (lambda (_ssi91879_ _srcs91880_) + (let ((_compiled-path91882_ + (path-expand _ssi91879_ _dir91865_))) + (if (file-exists? _compiled-path91882_) + (path-normalize _compiled-path91882_) + (let _lpr91884_ ((_rest-src91886_ + _srcs91880_)) + (let* ((_rest-src9188791895_ + _rest-src91886_) + (_else9188991903_ (lambda () - (_lp91575_ _rest91602_))) - (_K9162991649_ - (lambda (_rest-src91644_ - _src91645_) - (let ((_src-path91647_ + (_lp91837_ _rest91864_))) + (_K9189191911_ + (lambda (_rest-src91906_ + _src91907_) + (let ((_src-path91909_ (path-expand - _src91645_ - _dir91603_))) + _src91907_ + _dir91865_))) (if (file-exists? - _src-path91647_) + _src-path91909_) (path-normalize - _src-path91647_) - (_lpr91622_ - _rest-src91644_)))))) - (if (##pair? _rest-src9162591633_) - (let ((_hd9163091652_ - (##car _rest-src9162591633_)) - (_tl9163191654_ - (##cdr _rest-src9162591633_))) - (let* ((_src91657_ - _hd9163091652_) - (_rest-src91659_ - _tl9163191654_)) - (_K9162991649_ - _rest-src91659_ - _src91657_))) - (_else9162791641_))))))))) - (let ((_$e91607_ + _src-path91909_) + (_lpr91884_ + _rest-src91906_)))))) + (if (##pair? _rest-src9188791895_) + (let ((_hd9189291914_ + (##car _rest-src9188791895_)) + (_tl9189391916_ + (##cdr _rest-src9188791895_))) + (let* ((_src91919_ + _hd9189291914_) + (_rest-src91921_ + _tl9189391916_)) + (_K9189191911_ + _rest-src91921_ + _src91919_))) + (_else9188991903_))))))))) + (let ((_$e91869_ (gx#core-library-package-path-prefix - _dir91603_))) - (if _$e91607_ - ((lambda (_prefix91610_) + _dir91865_))) + (if _$e91869_ + ((lambda (_prefix91872_) (if (string-prefix? - _prefix91610_ - _spath91564_) - (let ((_ssi91614_ + _prefix91872_ + _spath91826_) + (let ((_ssi91876_ (substring - _ssi91568_ - (string-length _prefix91610_) - (string-length _ssi91568_))) - (_srcs91615_ - (map (lambda (_src91612_) + _ssi91830_ + (string-length _prefix91872_) + (string-length _ssi91830_))) + (_srcs91877_ + (map (lambda (_src91874_) (substring - _src91612_ + _src91874_ (string-length - _prefix91610_) + _prefix91872_) (string-length - _src91612_))) - _srcs91572_))) - (_resolve91605_ - _ssi91614_ - _srcs91615_)) - (_lp91575_ _rest91602_))) - _$e91607_) - (_resolve91605_ _ssi91568_ _srcs91572_)))))) - (_K9158291596_ + _src91874_))) + _srcs91834_))) + (_resolve91867_ + _ssi91876_ + _srcs91877_)) + (_lp91837_ _rest91864_))) + _$e91869_) + (_resolve91867_ _ssi91830_ _srcs91834_)))))) + (_K9184491858_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath91560_)))) - (let ((_try-match9158091599_ + _libpath91822_)))) + (let ((_try-match9184291861_ (lambda () - (if (##null? _rest9157891587_) - (_K9158291596_) - (_E9158191591_))))) - (if (##pair? _rest9157891587_) - (let ((_tl9158591666_ (##cdr _rest9157891587_)) - (_hd9158491664_ (##car _rest9157891587_))) - (let ((_dir91669_ _hd9158491664_) - (_rest91671_ _tl9158591666_)) - (_K9158391661_ _rest91671_ _dir91669_))) - (_try-match9158091599_))))))))) + (if (##null? _rest9184091849_) + (_K9184491858_) + (_E9184391853_))))) + (if (##pair? _rest9184091849_) + (let ((_tl9184791928_ (##cdr _rest9184091849_)) + (_hd9184691926_ (##car _rest9184091849_))) + (let ((_dir91931_ _hd9184691926_) + (_rest91933_ _tl9184791928_)) + (_K9184591923_ _rest91933_ _dir91931_))) + (_try-match9184291861_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath91533_) - (letrec ((_resolve91535_ - (lambda (_path91552_ _base91553_) - (let ((_$e91555_ (string-rindex__0 _base91553_ '#\/))) - (if _$e91555_ - ((lambda (_idx91558_) + (lambda (_modpath91795_) + (letrec ((_resolve91797_ + (lambda (_path91814_ _base91815_) + (let ((_$e91817_ (string-rindex__0 _base91815_ '#\/))) + (if _$e91817_ + ((lambda (_idx91820_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base91553_ '0 _idx91558_) + (substring _base91815_ '0 _idx91820_) '"/" - _path91552_)))) - _$e91555_) + _path91814_)))) + _$e91817_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path91552_)))))))) - (let ((_spath91537_ (symbol->string (gx#stx-e _modpath91533_))) - (_mod91538_ + (string-append '":" _path91814_)))))))) + (let ((_spath91799_ (symbol->string (gx#stx-e _modpath91795_))) + (_mod91800_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod91538_ + (if _mod91800_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath91533_)) - (let ((_mpath91540_ + _modpath91795_)) + (let ((_mpath91802_ (symbol->string (##structure-ref - _mod91538_ + _mod91800_ '1 gx#expander-context::t '#f)))) - (let _lp91542_ ((_spath91544_ _spath91537_) - (_mpath91545_ _mpath91540_)) - (if (string-prefix? '"../" _spath91544_) - (let ((_$e91547_ (string-rindex__0 _mpath91545_ '#\/))) - (if _$e91547_ - ((lambda (_idx91550_) - (_lp91542_ + (let _lp91804_ ((_spath91806_ _spath91799_) + (_mpath91807_ _mpath91802_)) + (if (string-prefix? '"../" _spath91806_) + (let ((_$e91809_ (string-rindex__0 _mpath91807_ '#\/))) + (if _$e91809_ + ((lambda (_idx91812_) + (_lp91804_ (substring - _spath91544_ + _spath91806_ '3 - (string-length _spath91544_)) - (substring _mpath91545_ '0 _idx91550_))) - _$e91547_) + (string-length _spath91806_)) + (substring _mpath91807_ '0 _idx91812_))) + _$e91809_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath91533_))) - (if (string-prefix? '"./" _spath91544_) - (_lp91542_ + _modpath91795_))) + (if (string-prefix? '"./" _spath91806_) + (_lp91804_ (substring - _spath91544_ + _spath91806_ '2 - (string-length _spath91544_)) - _mpath91545_) - (_resolve91535_ _spath91544_ _mpath91545_))))))))) + (string-length _spath91806_)) + _mpath91807_) + (_resolve91797_ _spath91806_ _mpath91807_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir91526_) - (let ((_$e91528_ + (lambda (_dir91788_) + (let ((_$e91790_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _dir91526_)))) - (if _$e91528_ - ((lambda (_pkg91531_) - (string-append (symbol->string _pkg91531_) '"/")) - _$e91528_) + (gx#core-library-package-plist__0 _dir91788_)))) + (if _$e91790_ + ((lambda (_pkg91793_) + (string-append (symbol->string _pkg91793_) '"/")) + _$e91790_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_dir91498_ _exists?91499_) - (let* ((_cache91501_ (gx#core-library-package-cache)) - (_$e91503_ (hash-get _cache91501_ _dir91498_))) - (if _$e91503_ - (values _$e91503_) - (let* ((_gerbil.pkg91506_ (path-expand '"gerbil.pkg" _dir91498_)) - (_plist91513_ - (if (or _exists?91499_ (file-exists? _gerbil.pkg91506_)) - (let ((_e91511_ + (lambda (_dir91760_ _exists?91761_) + (let* ((_cache91763_ (gx#core-library-package-cache)) + (_$e91765_ (hash-get _cache91763_ _dir91760_))) + (if _$e91765_ + (values _$e91765_) + (let* ((_gerbil.pkg91768_ (path-expand '"gerbil.pkg" _dir91760_)) + (_plist91775_ + (if (or _exists?91761_ (file-exists? _gerbil.pkg91768_)) + (let ((_e91773_ (gx#call-with-input-source-file - _gerbil.pkg91506_ + _gerbil.pkg91768_ read))) - (if (eof-object? _e91511_) + (if (eof-object? _e91773_) '() - (if (list? _e91511_) - _e91511_ + (if (list? _e91773_) + _e91773_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg91506_ - _e91511_)))) + _gerbil.pkg91768_ + _e91773_)))) '()))) - (hash-put! _cache91501_ _dir91498_ _plist91513_) - _plist91513_))))) + (hash-put! _cache91763_ _dir91760_ _plist91775_) + _plist91775_))))) (define gx#core-library-package-plist__0 - (lambda (_dir91519_) - (let ((_exists?91521_ '#f)) - (gx#core-library-package-plist__% _dir91519_ _exists?91521_)))) + (lambda (_dir91781_) + (let ((_exists?91783_ '#f)) + (gx#core-library-package-plist__% _dir91781_ _exists?91783_)))) (define gx#core-library-package-plist - (lambda _g93260_ - (let ((_g93259_ (##length _g93260_))) - (cond ((##fx= _g93259_ 1) - (apply (lambda (_dir91519_) - (gx#core-library-package-plist__0 _dir91519_)) - _g93260_)) - ((##fx= _g93259_ 2) - (apply (lambda (_dir91523_ _exists?91524_) + (lambda _g93522_ + (let ((_g93521_ (##length _g93522_))) + (cond ((##fx= _g93521_ 1) + (apply (lambda (_dir91781_) + (gx#core-library-package-plist__0 _dir91781_)) + _g93522_)) + ((##fx= _g93521_ 2) + (apply (lambda (_dir91785_ _exists?91786_) (gx#core-library-package-plist__% - _dir91523_ - _exists?91524_)) - _g93260_)) + _dir91785_ + _exists?91786_)) + _g93522_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g93260_)))))) + _g93522_)))))) (define gx#core-library-package-cache (lambda () - (let ((_$e91492_ (gx#current-expander-module-library-package-cache))) - (if _$e91492_ - (values _$e91492_) - (let ((_cache91495_ (make-hash-table))) - (gx#current-expander-module-library-package-cache _cache91495_) - _cache91495_))))) + (let ((_$e91754_ (gx#current-expander-module-library-package-cache))) + (if _$e91754_ + (values _$e91754_) + (let ((_cache91757_ (make-hash-table))) + (gx#current-expander-module-library-package-cache _cache91757_) + _cache91757_))))) (define gx#core-library-module-path? - (lambda (_stx91489_) (gx#core-special-module-path? _stx91489_ '#\:))) + (lambda (_stx91751_) (gx#core-special-module-path? _stx91751_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx91487_) (gx#core-special-module-path? _stx91487_ '#\.))) + (lambda (_stx91749_) (gx#core-special-module-path? _stx91749_ '#\.))) (define gx#core-special-module-path? - (lambda (_stx91482_ _char91483_) - (if (gx#identifier? _stx91482_) - (if (interned-symbol? (gx#stx-e _stx91482_)) - (let ((_str91485_ (symbol->string (gx#stx-e _stx91482_)))) - (if (fx> (string-length _str91485_) '1) - (eq? (string-ref _str91485_ '0) _char91483_) + (lambda (_stx91744_ _char91745_) + (if (gx#identifier? _stx91744_) + (if (interned-symbol? (gx#stx-e _stx91744_)) + (let ((_str91747_ (symbol->string (gx#stx-e _stx91744_)))) + (if (fx> (string-length _str91747_) '1) + (eq? (string-ref _str91747_ '0) _char91745_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx91476_) + (lambda (_stx91738_) (gx#core-bound-identifier?__% - _stx91476_ - (lambda (_g9147791479_) - (gx#expander-binding?__% _g9147791479_ gx#prelude-context?))))) + _stx91738_ + (lambda (_g9173991741_) + (gx#expander-binding?__% _g9173991741_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx91470_) + (lambda (_stx91732_) (gx#core-bound-identifier?__% - _stx91470_ - (lambda (_g9147191473_) - (gx#expander-binding?__% _g9147191473_ gx#module-context?))))) + _stx91732_ + (lambda (_g9173391735_) + (gx#expander-binding?__% _g9173391735_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx91457_) - (letrec ((_module-prelude?91459_ - (lambda (_e91465_) - (let ((_$e91467_ + (lambda (_stx91719_) + (letrec ((_module-prelude?91721_ + (lambda (_e91727_) + (let ((_$e91729_ (##structure-instance-of? - _e91465_ + _e91727_ 'gx#module-context::t))) - (if _$e91467_ - _$e91467_ + (if _$e91729_ + _$e91729_ (##structure-instance-of? - _e91465_ + _e91727_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx91457_ - (lambda (_g9146091462_) + _stx91719_ + (lambda (_g9172291724_) (gx#expander-binding?__% - _g9146091462_ - _module-prelude?91459_)))))) + _g9172291724_ + _module-prelude?91721_)))))) (define gx#core-bind-import!__% - (lambda (_in91387_ _ctx91388_ _force-weak?91389_) - (let* ((_in9139091399_ _in91387_) - (_E9139291403_ - (lambda () (error '"No clause matching" _in9139091399_))) - (_K9139391416_ - (lambda (_weak?91406_ _phi91407_ _key91408_ _source91409_) + (lambda (_in91649_ _ctx91650_ _force-weak?91651_) + (let* ((_in9165291661_ _in91649_) + (_E9165491665_ + (lambda () (error '"No clause matching" _in9165291661_))) + (_K9165591678_ + (lambda (_weak?91668_ _phi91669_ _key91670_ _source91671_) (gx#core-bind!__% - _key91408_ - (let ((_e91411_ - (gx#core-resolve-module-export _source91409_))) + _key91670_ + (let ((_e91673_ + (gx#core-resolve-module-export _source91671_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _e91411_ '1 gx#binding::t '#f) - _key91408_ - _phi91407_ - _e91411_ + (##unchecked-structure-ref _e91673_ '1 gx#binding::t '#f) + _key91670_ + _phi91669_ + _e91673_ (##unchecked-structure-ref - _source91409_ + _source91671_ '1 gx#module-export::t '#f) - (let ((_$e91413_ _force-weak?91389_)) - (if _$e91413_ _$e91413_ _weak?91406_)))) + (let ((_$e91675_ _force-weak?91651_)) + (if _$e91675_ _$e91675_ _weak?91668_)))) gx#core-context-rebind? - _phi91407_ - _ctx91388_)))) + _phi91669_ + _ctx91650_)))) (if (##structure-direct-instance-of? - _in9139091399_ + _in9165291661_ 'gx#module-import::t) - (let* ((_e9139491419_ + (let* ((_e9165691681_ (##unchecked-structure-ref - _in9139091399_ + _in9165291661_ '1 gx#module-import::t '#f)) - (_source91422_ _e9139491419_) - (_e9139591424_ + (_source91684_ _e9165691681_) + (_e9165791686_ (##unchecked-structure-ref - _in9139091399_ + _in9165291661_ '2 gx#module-import::t '#f)) - (_key91427_ _e9139591424_) - (_e9139691429_ + (_key91689_ _e9165791686_) + (_e9165891691_ (##unchecked-structure-ref - _in9139091399_ + _in9165291661_ '3 gx#module-import::t '#f)) - (_phi91432_ _e9139691429_) - (_e9139791434_ + (_phi91694_ _e9165891691_) + (_e9165991696_ (##unchecked-structure-ref - _in9139091399_ + _in9165291661_ '4 gx#module-import::t '#f)) - (_weak?91437_ _e9139791434_)) - (_K9139391416_ - _weak?91437_ - _phi91432_ - _key91427_ - _source91422_)) - (_E9139291403_))))) + (_weak?91699_ _e9165991696_)) + (_K9165591678_ + _weak?91699_ + _phi91694_ + _key91689_ + _source91684_)) + (_E9165491665_))))) (define gx#core-bind-import!__0 - (lambda (_in91442_) - (let* ((_ctx91444_ (gx#current-expander-context)) - (_force-weak?91446_ '#f)) - (gx#core-bind-import!__% _in91442_ _ctx91444_ _force-weak?91446_)))) + (lambda (_in91704_) + (let* ((_ctx91706_ (gx#current-expander-context)) + (_force-weak?91708_ '#f)) + (gx#core-bind-import!__% _in91704_ _ctx91706_ _force-weak?91708_)))) (define gx#core-bind-import!__1 - (lambda (_in91448_ _ctx91449_) - (let ((_force-weak?91451_ '#f)) - (gx#core-bind-import!__% _in91448_ _ctx91449_ _force-weak?91451_)))) + (lambda (_in91710_ _ctx91711_) + (let ((_force-weak?91713_ '#f)) + (gx#core-bind-import!__% _in91710_ _ctx91711_ _force-weak?91713_)))) (define gx#core-bind-import! - (lambda _g93262_ - (let ((_g93261_ (##length _g93262_))) - (cond ((##fx= _g93261_ 1) - (apply (lambda (_in91442_) - (gx#core-bind-import!__0 _in91442_)) - _g93262_)) - ((##fx= _g93261_ 2) - (apply (lambda (_in91448_ _ctx91449_) - (gx#core-bind-import!__1 _in91448_ _ctx91449_)) - _g93262_)) - ((##fx= _g93261_ 3) - (apply (lambda (_in91453_ _ctx91454_ _force-weak?91455_) + (lambda _g93524_ + (let ((_g93523_ (##length _g93524_))) + (cond ((##fx= _g93523_ 1) + (apply (lambda (_in91704_) + (gx#core-bind-import!__0 _in91704_)) + _g93524_)) + ((##fx= _g93523_ 2) + (apply (lambda (_in91710_ _ctx91711_) + (gx#core-bind-import!__1 _in91710_ _ctx91711_)) + _g93524_)) + ((##fx= _g93523_ 3) + (apply (lambda (_in91715_ _ctx91716_ _force-weak?91717_) (gx#core-bind-import!__% - _in91453_ - _ctx91454_ - _force-weak?91455_)) - _g93262_)) + _in91715_ + _ctx91716_ + _force-weak?91717_)) + _g93524_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g93262_)))))) + _g93524_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in91373_ _ctx91374_) - (gx#core-bind-import!__% _in91373_ _ctx91374_ '#t))) + (lambda (_in91635_ _ctx91636_) + (gx#core-bind-import!__% _in91635_ _ctx91636_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in91379_) - (let ((_ctx91381_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in91379_ _ctx91381_)))) + (lambda (_in91641_) + (let ((_ctx91643_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in91641_ _ctx91643_)))) (define gx#core-bind-weak-import! - (lambda _g93264_ - (let ((_g93263_ (##length _g93264_))) - (cond ((##fx= _g93263_ 1) - (apply (lambda (_in91379_) - (gx#core-bind-weak-import!__0 _in91379_)) - _g93264_)) - ((##fx= _g93263_ 2) - (apply (lambda (_in91383_ _ctx91384_) - (gx#core-bind-weak-import!__% _in91383_ _ctx91384_)) - _g93264_)) + (lambda _g93526_ + (let ((_g93525_ (##length _g93526_))) + (cond ((##fx= _g93525_ 1) + (apply (lambda (_in91641_) + (gx#core-bind-weak-import!__0 _in91641_)) + _g93526_)) + ((##fx= _g93525_ 2) + (apply (lambda (_in91645_ _ctx91646_) + (gx#core-bind-weak-import!__% _in91645_ _ctx91646_)) + _g93526_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g93264_)))))) + _g93526_)))))) (define gx#core-resolve-module-export - (lambda (_out91264_) - (letrec ((_subst91266_ - (lambda (_key91312_) - (let* ((_key9131391321_ _key91312_) - (_else9131591329_ (lambda () _key91312_)) - (_K9131791360_ - (lambda (_mark91332_ _id91333_) - (let* ((_mark9133491340_ _mark91332_) - (_E9133691344_ + (lambda (_out91526_) + (letrec ((_subst91528_ + (lambda (_key91574_) + (let* ((_key9157591583_ _key91574_) + (_else9157791591_ (lambda () _key91574_)) + (_K9157991622_ + (lambda (_mark91594_ _id91595_) + (let* ((_mark9159691602_ _mark91594_) + (_E9159891606_ (lambda () (error '"No clause matching" - _mark9133491340_))) - (_K9133791352_ - (lambda (_subst91347_) - (let ((_$e91349_ - (if _subst91347_ + _mark9159691602_))) + (_K9159991614_ + (lambda (_subst91609_) + (let ((_$e91611_ + (if _subst91609_ (hash-get - _subst91347_ - _id91333_) + _subst91609_ + _id91595_) '#f))) - (if _$e91349_ - _$e91349_ + (if _$e91611_ + _$e91611_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key91312_)))))) + _key91574_)))))) (if (##structure-instance-of? - _mark9133491340_ + _mark9159691602_ 'gx#expander-mark::t) - (let* ((_e9133891355_ + (let* ((_e9160091617_ (##unchecked-structure-ref - _mark9133491340_ + _mark9159691602_ '1 gx#expander-mark::t '#f)) - (_subst91358_ _e9133891355_)) - (_K9133791352_ _subst91358_)) - (_E9133691344_)))))) - (if (##pair? _key9131391321_) - (let ((_hd9131891363_ (##car _key9131391321_)) - (_tl9131991365_ (##cdr _key9131391321_))) - (let* ((_id91368_ _hd9131891363_) - (_mark91370_ _tl9131991365_)) - (_K9131791360_ _mark91370_ _id91368_))) - (_else9131591329_)))))) - (let* ((_out9126791277_ _out91264_) - (_E9126991281_ - (lambda () (error '"No clause matching" _out9126791277_))) - (_K9127091288_ - (lambda (_phi91284_ _key91285_ _ctx91286_) + (_subst91620_ _e9160091617_)) + (_K9159991614_ _subst91620_)) + (_E9159891606_)))))) + (if (##pair? _key9157591583_) + (let ((_hd9158091625_ (##car _key9157591583_)) + (_tl9158191627_ (##cdr _key9157591583_))) + (let* ((_id91630_ _hd9158091625_) + (_mark91632_ _tl9158191627_)) + (_K9157991622_ _mark91632_ _id91630_))) + (_else9157791591_)))))) + (let* ((_out9152991539_ _out91526_) + (_E9153191543_ + (lambda () (error '"No clause matching" _out9152991539_))) + (_K9153291550_ + (lambda (_phi91546_ _key91547_ _ctx91548_) (gx#core-context-resolve - (gx#core-context-shift _ctx91286_ _phi91284_) - (_subst91266_ _key91285_))))) + (gx#core-context-shift _ctx91548_ _phi91546_) + (_subst91528_ _key91547_))))) (if (##structure-direct-instance-of? - _out9126791277_ + _out9152991539_ 'gx#module-export::t) - (let* ((_e9127191291_ + (let* ((_e9153391553_ (##unchecked-structure-ref - _out9126791277_ + _out9152991539_ '1 gx#module-export::t '#f)) - (_ctx91294_ _e9127191291_) - (_e9127291296_ + (_ctx91556_ _e9153391553_) + (_e9153491558_ (##unchecked-structure-ref - _out9126791277_ + _out9152991539_ '2 gx#module-export::t '#f)) - (_key91299_ _e9127291296_) - (_e9127391301_ + (_key91561_ _e9153491558_) + (_e9153591563_ (##unchecked-structure-ref - _out9126791277_ + _out9152991539_ '3 gx#module-export::t '#f)) - (_phi91304_ _e9127391301_) - (_e9127491306_ + (_phi91566_ _e9153591563_) + (_e9153691568_ (##unchecked-structure-ref - _out9126791277_ + _out9152991539_ '4 gx#module-export::t '#f)) - (_e9127591309_ + (_e9153791571_ (##unchecked-structure-ref - _out9126791277_ + _out9152991539_ '5 gx#module-export::t '#f))) - (_K9127091288_ _phi91304_ _key91299_ _ctx91294_)) - (_E9126991281_)))))) + (_K9153291550_ _phi91566_ _key91561_ _ctx91556_)) + (_E9153191543_)))))) (define gx#core-module-export->import__% - (lambda (_out91189_ _rename91190_ _dphi91191_) - (let* ((_out9119291202_ _out91189_) - (_E9119491206_ - (lambda () (error '"No clause matching" _out9119291202_))) - (_K9119591218_ - (lambda (_weak?91209_ - _name91210_ - _phi91211_ - _key91212_ - _ctx91213_) + (lambda (_out91451_ _rename91452_ _dphi91453_) + (let* ((_out9145491464_ _out91451_) + (_E9145691468_ + (lambda () (error '"No clause matching" _out9145491464_))) + (_K9145791480_ + (lambda (_weak?91471_ + _name91472_ + _phi91473_ + _key91474_ + _ctx91475_) (##structure gx#module-import::t - _out91189_ - (let ((_$e91215_ _rename91190_)) - (if _$e91215_ _$e91215_ _name91210_)) - (fx+ _phi91211_ _dphi91191_) - _weak?91209_)))) + _out91451_ + (let ((_$e91477_ _rename91452_)) + (if _$e91477_ _$e91477_ _name91472_)) + (fx+ _phi91473_ _dphi91453_) + _weak?91471_)))) (if (##structure-direct-instance-of? - _out9119291202_ + _out9145491464_ 'gx#module-export::t) - (let* ((_e9119691221_ + (let* ((_e9145891483_ (##unchecked-structure-ref - _out9119291202_ + _out9145491464_ '1 gx#module-export::t '#f)) - (_ctx91224_ _e9119691221_) - (_e9119791226_ + (_ctx91486_ _e9145891483_) + (_e9145991488_ (##unchecked-structure-ref - _out9119291202_ + _out9145491464_ '2 gx#module-export::t '#f)) - (_key91229_ _e9119791226_) - (_e9119891231_ + (_key91491_ _e9145991488_) + (_e9146091493_ (##unchecked-structure-ref - _out9119291202_ + _out9145491464_ '3 gx#module-export::t '#f)) - (_phi91234_ _e9119891231_) - (_e9119991236_ + (_phi91496_ _e9146091493_) + (_e9146191498_ (##unchecked-structure-ref - _out9119291202_ + _out9145491464_ '4 gx#module-export::t '#f)) - (_name91239_ _e9119991236_) - (_e9120091241_ + (_name91501_ _e9146191498_) + (_e9146291503_ (##unchecked-structure-ref - _out9119291202_ + _out9145491464_ '5 gx#module-export::t '#f)) - (_weak?91244_ _e9120091241_)) - (_K9119591218_ - _weak?91244_ - _name91239_ - _phi91234_ - _key91229_ - _ctx91224_)) - (_E9119491206_))))) + (_weak?91506_ _e9146291503_)) + (_K9145791480_ + _weak?91506_ + _name91501_ + _phi91496_ + _key91491_ + _ctx91486_)) + (_E9145691468_))))) (define gx#core-module-export->import__0 - (lambda (_out91249_) - (let* ((_rename91251_ '#f) (_dphi91253_ '0)) + (lambda (_out91511_) + (let* ((_rename91513_ '#f) (_dphi91515_ '0)) (gx#core-module-export->import__% - _out91249_ - _rename91251_ - _dphi91253_)))) + _out91511_ + _rename91513_ + _dphi91515_)))) (define gx#core-module-export->import__1 - (lambda (_out91255_ _rename91256_) - (let ((_dphi91258_ '0)) + (lambda (_out91517_ _rename91518_) + (let ((_dphi91520_ '0)) (gx#core-module-export->import__% - _out91255_ - _rename91256_ - _dphi91258_)))) + _out91517_ + _rename91518_ + _dphi91520_)))) (define gx#core-module-export->import - (lambda _g93266_ - (let ((_g93265_ (##length _g93266_))) - (cond ((##fx= _g93265_ 1) - (apply (lambda (_out91249_) - (gx#core-module-export->import__0 _out91249_)) - _g93266_)) - ((##fx= _g93265_ 2) - (apply (lambda (_out91255_ _rename91256_) + (lambda _g93528_ + (let ((_g93527_ (##length _g93528_))) + (cond ((##fx= _g93527_ 1) + (apply (lambda (_out91511_) + (gx#core-module-export->import__0 _out91511_)) + _g93528_)) + ((##fx= _g93527_ 2) + (apply (lambda (_out91517_ _rename91518_) (gx#core-module-export->import__1 - _out91255_ - _rename91256_)) - _g93266_)) - ((##fx= _g93265_ 3) - (apply (lambda (_out91260_ _rename91261_ _dphi91262_) + _out91517_ + _rename91518_)) + _g93528_)) + ((##fx= _g93527_ 3) + (apply (lambda (_out91522_ _rename91523_ _dphi91524_) (gx#core-module-export->import__% - _out91260_ - _rename91261_ - _dphi91262_)) - _g93266_)) + _out91522_ + _rename91523_ + _dphi91524_)) + _g93528_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g93266_)))))) + _g93528_)))))) (define gx#core-expand-module% - (lambda (_stx91117_) - (letrec ((_make-context91119_ - (lambda (_id91170_) - (let* ((_super91172_ (gx#current-expander-context)) - (_bind-id91174_ (gx#stx-e _id91170_)) - (_mod-id91176_ + (lambda (_stx91379_) + (letrec ((_make-context91381_ + (lambda (_id91432_) + (let* ((_super91434_ (gx#current-expander-context)) + (_bind-id91436_ (gx#stx-e _id91432_)) + (_mod-id91438_ (if (##structure-instance-of? - _super91172_ + _super91434_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _super91172_ + _super91434_ '1 gx#expander-context::t '#f) '"$" - _bind-id91174_) - _bind-id91174_)) - (_ns91178_ (symbol->string _mod-id91176_)) - (_path91185_ + _bind-id91436_) + _bind-id91436_)) + (_ns91440_ (symbol->string _mod-id91438_)) + (_path91447_ (if (##structure-instance-of? - _super91172_ + _super91434_ 'gx#module-context::t) - (let ((_path91180_ + (let ((_path91442_ (##unchecked-structure-ref - _super91172_ + _super91434_ '7 gx#module-context::t '#f))) - (if (or (pair? _path91180_) - (null? _path91180_)) - (cons _bind-id91174_ _path91180_) - (if (not _path91180_) - _bind-id91174_ - (cons _bind-id91174_ - (cons _path91180_ '()))))) - _bind-id91174_))) - (let ((__obj93242 + (if (or (pair? _path91442_) + (null? _path91442_)) + (cons _bind-id91436_ _path91442_) + (if (not _path91442_) + _bind-id91436_ + (cons _bind-id91436_ + (cons _path91442_ '()))))) + _bind-id91436_))) + (let ((__obj93504 (##structure gx#module-context::t '#f @@ -2167,861 +2167,861 @@ '#f '#f))) (gx#module-context:::init! - __obj93242 - _mod-id91176_ - _super91172_ - _ns91178_ - _path91185_) - __obj93242))))) - (let* ((_e9112091130_ _stx91117_) - (_E9112291134_ + __obj93504 + _mod-id91438_ + _super91434_ + _ns91440_ + _path91447_) + __obj93504))))) + (let* ((_e9138291392_ _stx91379_) + (_E9138491396_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9112091130_))) - (_E9112191166_ + _e9138291392_))) + (_E9138391428_ (lambda () - (if (gx#stx-pair? _e9112091130_) - (let ((_e9112391138_ (gx#syntax-e _e9112091130_))) - (let ((_hd9112491141_ (##car _e9112391138_)) - (_tl9112591143_ (##cdr _e9112391138_))) - (if (gx#stx-pair? _tl9112591143_) - (let ((_e9112691146_ - (gx#syntax-e _tl9112591143_))) - (let ((_hd9112791149_ (##car _e9112691146_)) - (_tl9112891151_ (##cdr _e9112691146_))) - (let* ((_id91154_ _hd9112791149_) - (_body91156_ _tl9112891151_)) - (if (and (gx#identifier? _id91154_) - (gx#stx-list? _body91156_)) - (let* ((_ctx91158_ - (_make-context91119_ - _id91154_)) - (_body91160_ + (if (gx#stx-pair? _e9138291392_) + (let ((_e9138591400_ (gx#syntax-e _e9138291392_))) + (let ((_hd9138691403_ (##car _e9138591400_)) + (_tl9138791405_ (##cdr _e9138591400_))) + (if (gx#stx-pair? _tl9138791405_) + (let ((_e9138891408_ + (gx#syntax-e _tl9138791405_))) + (let ((_hd9138991411_ (##car _e9138891408_)) + (_tl9139091413_ (##cdr _e9138891408_))) + (let* ((_id91416_ _hd9138991411_) + (_body91418_ _tl9139091413_)) + (if (and (gx#identifier? _id91416_) + (gx#stx-list? _body91418_)) + (let* ((_ctx91420_ + (_make-context91381_ + _id91416_)) + (_body91422_ (gx#core-expand-module-begin - _body91156_ - _ctx91158_)) - (_body91162_ + _body91418_ + _ctx91420_)) + (_body91424_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body91160_) + _body91422_) (gx#stx-source - _stx91117_)))) + _stx91379_)))) (##unchecked-structure-set! - _ctx91158_ + _ctx91420_ (make-promise (lambda () - (gx#eval-syntax* _body91162_))) + (gx#eval-syntax* _body91424_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx91158_ - _body91162_ + _ctx91420_ + _body91424_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id91154_ - _ctx91158_) + _id91416_ + _ctx91420_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id91154_) - _body91162_) - (gx#stx-source _stx91117_))) - (_E9112291134_))))) - (_E9112291134_)))) - (_E9112291134_))))) - (_E9112191166_))))) + _id91416_) + _body91424_) + (gx#stx-source _stx91379_))) + (_E9138491396_))))) + (_E9138491396_)))) + (_E9138491396_))))) + (_E9138391428_))))) (define gx#core-expand-module-begin - (lambda (_body91083_ _ctx91084_) + (lambda (_body91345_ _ctx91346_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx91087_ - (gx#core-expand-head (cons '%%begin-module _body91083_))) - (_e9108891095_ _stx91087_) - (_E9109091099_ + (let* ((_stx91349_ + (gx#core-expand-head (cons '%%begin-module _body91345_))) + (_e9135091357_ _stx91349_) + (_E9135291361_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx91087_))) - (_E9108991113_ + _stx91349_))) + (_E9135191375_ (lambda () - (if (gx#stx-pair? _e9108891095_) - (let ((_e9109191103_ (gx#syntax-e _e9108891095_))) - (let ((_hd9109291106_ (##car _e9109191103_)) - (_tl9109391108_ (##cdr _e9109191103_))) - (if (and (gx#identifier? _hd9109291106_) + (if (gx#stx-pair? _e9135091357_) + (let ((_e9135391365_ (gx#syntax-e _e9135091357_))) + (let ((_hd9135491368_ (##car _e9135391365_)) + (_tl9135591370_ (##cdr _e9135391365_))) + (if (and (gx#identifier? _hd9135491368_) (gx#core-identifier=? - _hd9109291106_ + _hd9135491368_ '%#begin-module)) - (let ((_body91111_ _tl9109391108_)) + (let ((_body91373_ _tl9135591370_)) (if '#t - (if (gx#sealed-syntax? _stx91087_) - _body91111_ + (if (gx#sealed-syntax? _stx91349_) + _body91373_ (gx#core-expand-module-body - _body91111_)) - (_E9109091099_))) - (_E9109091099_)))) - (_E9109091099_))))) - (_E9108991113_))) + _body91373_)) + (_E9135291361_))) + (_E9135291361_)))) + (_E9135291361_))))) + (_E9135191375_))) gx#current-expander-context - _ctx91084_ + _ctx91346_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body90879_) - (letrec ((_expand-special90881_ - (lambda (_hd91010_ _K91011_ _rest91012_ _r91013_) - (let* ((_e9101491031_ _hd91010_) - (_E9102691035_ + (lambda (_body91141_) + (letrec ((_expand-special91143_ + (lambda (_hd91272_ _K91273_ _rest91274_ _r91275_) + (let* ((_e9127691293_ _hd91272_) + (_E9128891297_ (lambda () - (_K91011_ - _rest91012_ - (cons (gx#core-expand-top _hd91010_) - _r91013_)))) - (_E9101691047_ + (_K91273_ + _rest91274_ + (cons (gx#core-expand-top _hd91272_) + _r91275_)))) + (_E9127891309_ (lambda () - (if (gx#stx-pair? _e9101491031_) - (let ((_e9102791039_ - (gx#syntax-e _e9101491031_))) - (let ((_hd9102891042_ - (##car _e9102791039_)) - (_tl9102991044_ - (##cdr _e9102791039_))) - (if (and (gx#identifier? _hd9102891042_) + (if (gx#stx-pair? _e9127691293_) + (let ((_e9128991301_ + (gx#syntax-e _e9127691293_))) + (let ((_hd9129091304_ + (##car _e9128991301_)) + (_tl9129191306_ + (##cdr _e9128991301_))) + (if (and (gx#identifier? _hd9129091304_) (gx#core-identifier=? - _hd9102891042_ + _hd9129091304_ '%#export)) (if '#t - (_K91011_ - _rest91012_ - (cons _hd91010_ _r91013_)) - (_E9102691035_)) - (_E9102691035_)))) - (_E9102691035_)))) - (_E9101591079_ + (_K91273_ + _rest91274_ + (cons _hd91272_ _r91275_)) + (_E9128891297_)) + (_E9128891297_)))) + (_E9128891297_)))) + (_E9127791341_ (lambda () - (if (gx#stx-pair? _e9101491031_) - (let ((_e9101791051_ - (gx#syntax-e _e9101491031_))) - (let ((_hd9101891054_ - (##car _e9101791051_)) - (_tl9101991056_ - (##cdr _e9101791051_))) - (if (and (gx#identifier? _hd9101891054_) + (if (gx#stx-pair? _e9127691293_) + (let ((_e9127991313_ + (gx#syntax-e _e9127691293_))) + (let ((_hd9128091316_ + (##car _e9127991313_)) + (_tl9128191318_ + (##cdr _e9127991313_))) + (if (and (gx#identifier? _hd9128091316_) (gx#core-identifier=? - _hd9101891054_ + _hd9128091316_ '%#define-values)) - (if (gx#stx-pair? _tl9101991056_) - (let ((_e9102091059_ + (if (gx#stx-pair? _tl9128191318_) + (let ((_e9128291321_ (gx#syntax-e - _tl9101991056_))) - (let ((_hd9102191062_ - (##car _e9102091059_)) - (_tl9102291064_ - (##cdr _e9102091059_))) - (let ((_hd-bind91067_ - _hd9102191062_)) + _tl9128191318_))) + (let ((_hd9128391324_ + (##car _e9128291321_)) + (_tl9128491326_ + (##cdr _e9128291321_))) + (let ((_hd-bind91329_ + _hd9128391324_)) (if (gx#stx-pair? - _tl9102291064_) - (let ((_e9102391069_ + _tl9128491326_) + (let ((_e9128591331_ (gx#syntax-e - _tl9102291064_))) - (let ((_hd9102491072_ + _tl9128491326_))) + (let ((_hd9128691334_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9102391069_)) - (_tl9102591074_ (##cdr _e9102391069_))) - (let ((_expr91077_ _hd9102491072_)) - (if (gx#stx-null? _tl9102591074_) - (if (gx#core-bind-values? _hd-bind91067_) + (##car _e9128591331_)) + (_tl9128791336_ (##cdr _e9128591331_))) + (let ((_expr91339_ _hd9128691334_)) + (if (gx#stx-null? _tl9128791336_) + (if (gx#core-bind-values? _hd-bind91329_) (begin - (gx#core-bind-values!__0 _hd-bind91067_) - (_K91011_ - _rest91012_ - (cons _hd91010_ _r91013_))) - (_E9101691047_)) - (_E9101691047_))))) - (_E9101691047_))))) + (gx#core-bind-values!__0 _hd-bind91329_) + (_K91273_ + _rest91274_ + (cons _hd91272_ _r91275_))) + (_E9127891309_)) + (_E9127891309_))))) + (_E9127891309_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9101691047_)) - (_E9101691047_)))) - (_E9101691047_))))) - (_E9101591079_)))) - (_expand-body90882_ - (lambda (_rbody90884_) - (let _lp90886_ ((_rest90888_ _rbody90884_) - (_body90889_ '())) - (let* ((_rest9089090898_ _rest90888_) - (_else9089290906_ (lambda () _body90889_)) - (_K9089490998_ - (lambda (_rest90909_ _hd90910_) - (let* ((_e9091190932_ _hd90910_) - (_E9092790936_ + (_E9127891309_)) + (_E9127891309_)))) + (_E9127891309_))))) + (_E9127791341_)))) + (_expand-body91144_ + (lambda (_rbody91146_) + (let _lp91148_ ((_rest91150_ _rbody91146_) + (_body91151_ '())) + (let* ((_rest9115291160_ _rest91150_) + (_else9115491168_ (lambda () _body91151_)) + (_K9115691260_ + (lambda (_rest91171_ _hd91172_) + (let* ((_e9117391194_ _hd91172_) + (_E9118991198_ (lambda () - (_lp90886_ - _rest90909_ + (_lp91148_ + _rest91171_ (cons (gx#core-expand-expression - _hd90910_) - _body90889_)))) - (_E9092390950_ + _hd91172_) + _body91151_)))) + (_E9118591212_ (lambda () - (if (gx#stx-pair? _e9091190932_) - (let ((_e9092890940_ + (if (gx#stx-pair? _e9117391194_) + (let ((_e9119091202_ (gx#syntax-e - _e9091190932_))) - (let ((_hd9092990943_ - (##car _e9092890940_)) - (_tl9093090945_ - (##cdr _e9092890940_))) - (let ((_form90948_ - _hd9092990943_)) + _e9117391194_))) + (let ((_hd9119191205_ + (##car _e9119091202_)) + (_tl9119291207_ + (##cdr _e9119091202_))) + (let ((_form91210_ + _hd9119191205_)) (if (gx#core-bound-identifier?__% - _form90948_ + _form91210_ gx#special-form-binding?) - (_lp90886_ - _rest90909_ - (cons _hd90910_ - _body90889_)) - (_E9092790936_))))) - (_E9092790936_)))) - (_E9091390962_ + (_lp91148_ + _rest91171_ + (cons _hd91172_ + _body91151_)) + (_E9118991198_))))) + (_E9118991198_)))) + (_E9117591224_ (lambda () - (if (gx#stx-pair? _e9091190932_) - (let ((_e9092490954_ + (if (gx#stx-pair? _e9117391194_) + (let ((_e9118691216_ (gx#syntax-e - _e9091190932_))) - (let ((_hd9092590957_ - (##car _e9092490954_)) - (_tl9092690959_ - (##cdr _e9092490954_))) + _e9117391194_))) + (let ((_hd9118791219_ + (##car _e9118691216_)) + (_tl9118891221_ + (##cdr _e9118691216_))) (if (and (gx#identifier? - _hd9092590957_) + _hd9118791219_) (gx#core-identifier=? - _hd9092590957_ + _hd9118791219_ '%#export)) (if '#t - (_lp90886_ - _rest90909_ + (_lp91148_ + _rest91171_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90910_) - _body90889_)) - (_E9092390950_)) - (_E9092390950_)))) + _hd91172_) + _body91151_)) + (_E9118591212_)) + (_E9118591212_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9092390950_)))) - (_E9091290994_ + (_E9118591212_)))) + (_E9117491256_ (lambda () - (if (gx#stx-pair? _e9091190932_) - (let ((_e9091490966_ + (if (gx#stx-pair? _e9117391194_) + (let ((_e9117691228_ (gx#syntax-e - _e9091190932_))) - (let ((_hd9091590969_ - (##car _e9091490966_)) - (_tl9091690971_ - (##cdr _e9091490966_))) + _e9117391194_))) + (let ((_hd9117791231_ + (##car _e9117691228_)) + (_tl9117891233_ + (##cdr _e9117691228_))) (if (and (gx#identifier? - _hd9091590969_) + _hd9117791231_) (gx#core-identifier=? - _hd9091590969_ + _hd9117791231_ '%#define-values)) (if (gx#stx-pair? - _tl9091690971_) - (let ((_e9091790974_ + _tl9117891233_) + (let ((_e9117991236_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9091690971_))) - (let ((_hd9091890977_ (##car _e9091790974_)) - (_tl9091990979_ (##cdr _e9091790974_))) - (let ((_hd-bind90982_ _hd9091890977_)) - (if (gx#stx-pair? _tl9091990979_) - (let ((_e9092090984_ (gx#syntax-e _tl9091990979_))) - (let ((_hd9092190987_ (##car _e9092090984_)) - (_tl9092290989_ (##cdr _e9092090984_))) - (let ((_expr90992_ _hd9092190987_)) - (if (gx#stx-null? _tl9092290989_) + (gx#syntax-e _tl9117891233_))) + (let ((_hd9118091239_ (##car _e9117991236_)) + (_tl9118191241_ (##cdr _e9117991236_))) + (let ((_hd-bind91244_ _hd9118091239_)) + (if (gx#stx-pair? _tl9118191241_) + (let ((_e9118291246_ (gx#syntax-e _tl9118191241_))) + (let ((_hd9118391249_ (##car _e9118291246_)) + (_tl9118491251_ (##cdr _e9118291246_))) + (let ((_expr91254_ _hd9118391249_)) + (if (gx#stx-null? _tl9118491251_) (if '#t - (_lp90886_ - _rest90909_ + (_lp91148_ + _rest91171_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind90982_) + _hd-bind91244_) (gx#core-expand-expression - _expr90992_)) - (gx#stx-source _hd90910_)) - _body90889_)) - (_E9091390962_)) - (_E9091390962_))))) - (_E9091390962_))))) - (_E9091390962_)) - (_E9091390962_)))) + _expr91254_)) + (gx#stx-source _hd91172_)) + _body91151_)) + (_E9117591224_)) + (_E9117591224_))))) + (_E9117591224_))))) + (_E9117591224_)) + (_E9117591224_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9091390962_))))) - (_E9091290994_))))) - (if (##pair? _rest9089090898_) - (let ((_hd9089591001_ (##car _rest9089090898_)) - (_tl9089691003_ (##cdr _rest9089090898_))) - (let* ((_hd91006_ _hd9089591001_) - (_rest91008_ _tl9089691003_)) - (_K9089490998_ _rest91008_ _hd91006_))) - (_else9089290906_))))))) - (_expand-body90882_ + (_E9117591224_))))) + (_E9117491256_))))) + (if (##pair? _rest9115291160_) + (let ((_hd9115791263_ (##car _rest9115291160_)) + (_tl9115891265_ (##cdr _rest9115291160_))) + (let* ((_hd91268_ _hd9115791263_) + (_rest91270_ _tl9115891265_)) + (_K9115691260_ _rest91270_ _hd91268_))) + (_else9115491168_))))))) + (_expand-body91144_ (gx#core-expand-block__% - (cons '%#begin-module _body90879_) - _expand-special90881_ + (cons '%#begin-module _body91141_) + _expand-special91143_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx90722_ - _expanded?90723_ - _method90724_ - _current-phi90725_ - _expand190726_) - (letrec ((_K90728_ - (lambda (_rest90846_ _r90847_) - (let* ((_e9084890855_ _rest90846_) - (_E9085090859_ (lambda () _r90847_)) - (_E9084990875_ + (lambda (_stx90984_ + _expanded?90985_ + _method90986_ + _current-phi90987_ + _expand190988_) + (letrec ((_K90990_ + (lambda (_rest91108_ _r91109_) + (let* ((_e9111091117_ _rest91108_) + (_E9111291121_ (lambda () _r91109_)) + (_E9111191137_ (lambda () - (if (gx#stx-pair? _e9084890855_) - (let ((_e9085190863_ - (gx#syntax-e _e9084890855_))) - (let ((_hd9085290866_ - (##car _e9085190863_)) - (_tl9085390868_ - (##cdr _e9085190863_))) - (let* ((_hd90871_ _hd9085290866_) - (_rest90873_ _tl9085390868_)) + (if (gx#stx-pair? _e9111091117_) + (let ((_e9111391125_ + (gx#syntax-e _e9111091117_))) + (let ((_hd9111491128_ + (##car _e9111391125_)) + (_tl9111591130_ + (##cdr _e9111391125_))) + (let* ((_hd91133_ _hd9111491128_) + (_rest91135_ _tl9111591130_)) (if '#t - (_step90729_ - _hd90871_ - _rest90873_ - _r90847_) - (_E9085090859_))))) - (_E9085090859_))))) - (_E9084990875_)))) - (_step90729_ - (lambda (_hd90760_ _rest90761_ _r90762_) - (let* ((_e9076390781_ _hd90760_) - (_E9077690785_ + (_step90991_ + _hd91133_ + _rest91135_ + _r91109_) + (_E9111291121_))))) + (_E9111291121_))))) + (_E9111191137_)))) + (_step90991_ + (lambda (_hd91022_ _rest91023_ _r91024_) + (let* ((_e9102591043_ _hd91022_) + (_E9103891047_ (lambda () - (if (_expanded?90723_ (gx#stx-e _hd90760_)) - (_K90728_ - _rest90761_ - (cons (gx#stx-e _hd90760_) _r90762_)) - (_expand190726_ - _hd90760_ - _K90728_ - _rest90761_ - _r90762_)))) - (_E9077290801_ + (if (_expanded?90985_ (gx#stx-e _hd91022_)) + (_K90990_ + _rest91023_ + (cons (gx#stx-e _hd91022_) _r91024_)) + (_expand190988_ + _hd91022_ + _K90990_ + _rest91023_ + _r91024_)))) + (_E9103491063_ (lambda () - (if (gx#stx-pair? _e9076390781_) - (let ((_e9077790789_ - (gx#syntax-e _e9076390781_))) - (let ((_hd9077890792_ - (##car _e9077790789_)) - (_tl9077990794_ - (##cdr _e9077790789_))) - (let* ((_macro90797_ _hd9077890792_) - (_body90799_ _tl9077990794_)) + (if (gx#stx-pair? _e9102591043_) + (let ((_e9103991051_ + (gx#syntax-e _e9102591043_))) + (let ((_hd9104091054_ + (##car _e9103991051_)) + (_tl9104191056_ + (##cdr _e9103991051_))) + (let* ((_macro91059_ _hd9104091054_) + (_body91061_ _tl9104191056_)) (if (gx#core-bound-identifier?__% - _macro90797_ + _macro91059_ gx#syntax-binding?) - (_K90728_ + (_K90990_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro90797_) - _hd90760_ - _method90724_) - _rest90761_) - _r90762_) - (_E9077690785_))))) - (_E9077690785_)))) - (_E9076590815_ + _macro91059_) + _hd91022_ + _method90986_) + _rest91023_) + _r91024_) + (_E9103891047_))))) + (_E9103891047_)))) + (_E9102791077_ (lambda () - (if (gx#stx-pair? _e9076390781_) - (let ((_e9077390805_ - (gx#syntax-e _e9076390781_))) - (let ((_hd9077490808_ - (##car _e9077390805_)) - (_tl9077590810_ - (##cdr _e9077390805_))) - (if (eq? (gx#stx-e _hd9077490808_) + (if (gx#stx-pair? _e9102591043_) + (let ((_e9103591067_ + (gx#syntax-e _e9102591043_))) + (let ((_hd9103691070_ + (##car _e9103591067_)) + (_tl9103791072_ + (##cdr _e9103591067_))) + (if (eq? (gx#stx-e _hd9103691070_) 'begin:) - (let ((_body90813_ _tl9077590810_)) + (let ((_body91075_ _tl9103791072_)) (if '#t - (_K90728_ + (_K90990_ (gx#stx-foldr cons - _rest90761_ - _body90813_) - _r90762_) - (_E9077290801_))) - (_E9077290801_)))) - (_E9077290801_)))) - (_E9076490842_ + _rest91023_ + _body91075_) + _r91024_) + (_E9103491063_))) + (_E9103491063_)))) + (_E9103491063_)))) + (_E9102691104_ (lambda () - (if (gx#stx-pair? _e9076390781_) - (let ((_e9076690819_ - (gx#syntax-e _e9076390781_))) - (let ((_hd9076790822_ - (##car _e9076690819_)) - (_tl9076890824_ - (##cdr _e9076690819_))) - (if (eq? (gx#stx-e _hd9076790822_) 'phi:) - (if (gx#stx-pair? _tl9076890824_) - (let ((_e9076990827_ + (if (gx#stx-pair? _e9102591043_) + (let ((_e9102891081_ + (gx#syntax-e _e9102591043_))) + (let ((_hd9102991084_ + (##car _e9102891081_)) + (_tl9103091086_ + (##cdr _e9102891081_))) + (if (eq? (gx#stx-e _hd9102991084_) 'phi:) + (if (gx#stx-pair? _tl9103091086_) + (let ((_e9103191089_ (gx#syntax-e - _tl9076890824_))) - (let ((_hd9077090830_ - (##car _e9076990827_)) - (_tl9077190832_ - (##cdr _e9076990827_))) - (let* ((_dphi90835_ - _hd9077090830_) - (_body90837_ - _tl9077190832_)) + _tl9103091086_))) + (let ((_hd9103291092_ + (##car _e9103191089_)) + (_tl9103391094_ + (##cdr _e9103191089_))) + (let* ((_dphi91097_ + _hd9103291092_) + (_body91099_ + _tl9103391094_)) (if (gx#stx-fixnum? - _dphi90835_) - (let ((_rbody90840_ + _dphi91097_) + (let ((_rbody91102_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K90728_ _body90837_ '())) - _current-phi90725_ - (fx+ (gx#stx-e _dphi90835_) (_current-phi90725_))))) - (_K90728_ _rest90761_ (foldr1 cons _r90762_ _rbody90840_))) - (_E9076590815_))))) + (_K90990_ _body91099_ '())) + _current-phi90987_ + (fx+ (gx#stx-e _dphi91097_) (_current-phi90987_))))) + (_K90990_ _rest91023_ (foldr1 cons _r91024_ _rbody91102_))) + (_E9102791077_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9076590815_)) - (_E9076590815_)))) - (_E9076590815_))))) - (_E9076490842_))))) - (let* ((_e9073090737_ _stx90722_) - (_E9073290741_ + (_E9102791077_)) + (_E9102791077_)))) + (_E9102791077_))))) + (_E9102691104_))))) + (let* ((_e9099290999_ _stx90984_) + (_E9099491003_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9073090737_))) - (_E9073190756_ + _e9099290999_))) + (_E9099391018_ (lambda () - (if (gx#stx-pair? _e9073090737_) - (let ((_e9073390745_ (gx#syntax-e _e9073090737_))) - (let ((_hd9073490748_ (##car _e9073390745_)) - (_tl9073590750_ (##cdr _e9073390745_))) - (let ((_body90753_ _tl9073590750_)) + (if (gx#stx-pair? _e9099290999_) + (let ((_e9099591007_ (gx#syntax-e _e9099290999_))) + (let ((_hd9099691010_ (##car _e9099591007_)) + (_tl9099791012_ (##cdr _e9099591007_))) + (let ((_body91015_ _tl9099791012_)) (if '#t - (if (_current-phi90725_) - (_K90728_ _body90753_ '()) + (if (_current-phi90987_) + (_K90990_ _body91015_ '()) (call-with-parameters - (lambda () (_K90728_ _body90753_ '())) - _current-phi90725_ + (lambda () (_K90990_ _body91015_ '())) + _current-phi90987_ (gx#current-expander-phi))) - (_E9073290741_))))) - (_E9073290741_))))) - (_E9073190756_))))) + (_E9099491003_))))) + (_E9099491003_))))) + (_E9099391018_))))) (define gx#core-expand-import%__% - (lambda (_stx90389_ _internal-expand?90390_) - (letrec ((_expand190392_ - (lambda (_hd90702_ _K90703_ _rest90704_ _r90705_) - (if (gx#core-bound-module? _hd90702_) - (_import190393_ - (gx#syntax-local-e__0 _hd90702_) - _K90703_ - _rest90704_ - _r90705_) - (if (gx#core-library-module-path? _hd90702_) - (_import190393_ + (lambda (_stx90651_ _internal-expand?90652_) + (letrec ((_expand190654_ + (lambda (_hd90964_ _K90965_ _rest90966_ _r90967_) + (if (gx#core-bound-module? _hd90964_) + (_import190655_ + (gx#syntax-local-e__0 _hd90964_) + _K90965_ + _rest90966_ + _r90967_) + (if (gx#core-library-module-path? _hd90964_) + (_import190655_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd90702_)) - _K90703_ - _rest90704_ - _r90705_) + (gx#core-resolve-library-module-path _hd90964_)) + _K90965_ + _rest90966_ + _r90967_) (if (gx#core-library-relative-module-path? - _hd90702_) - (_import190393_ + _hd90964_) + (_import190655_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd90702_)) - _K90703_ - _rest90704_ - _r90705_) - (let ((_e90707_ (gx#stx-e _hd90702_))) - (if (pair? _e90707_) - (let ((_$e90709_ - (gx#stx-e (car _e90707_)))) - (if (eq? 'spec: _$e90709_) - (_import-spec90396_ - _hd90702_ - _K90703_ - _rest90704_ - _r90705_) - (if (eq? 'in: _$e90709_) - (_import-submodule90394_ - _hd90702_ - _K90703_ - _rest90704_ - _r90705_) - (if (eq? 'runtime: _$e90709_) - (_import-runtime90395_ - _hd90702_ - _K90703_ - _rest90704_ - _r90705_) + _hd90964_)) + _K90965_ + _rest90966_ + _r90967_) + (let ((_e90969_ (gx#stx-e _hd90964_))) + (if (pair? _e90969_) + (let ((_$e90971_ + (gx#stx-e (car _e90969_)))) + (if (eq? 'spec: _$e90971_) + (_import-spec90658_ + _hd90964_ + _K90965_ + _rest90966_ + _r90967_) + (if (eq? 'in: _$e90971_) + (_import-submodule90656_ + _hd90964_ + _K90965_ + _rest90966_ + _r90967_) + (if (eq? 'runtime: _$e90971_) + (_import-runtime90657_ + _hd90964_ + _K90965_ + _rest90966_ + _r90967_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx90389_ - _hd90702_))))) - (if (string? _e90707_) - (_import190393_ + _stx90651_ + _hd90964_))))) + (if (string? _e90969_) + (_import190655_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd90702_ - (gx#stx-source _stx90389_))) - _K90703_ - _rest90704_ - _r90705_) + _hd90964_ + (gx#stx-source _stx90651_))) + _K90965_ + _rest90966_ + _r90967_) (if (##structure-instance-of? - _e90707_ + _e90969_ 'gx#module-context::t) - (_K90703_ - _rest90704_ - (cons _e90707_ _r90705_)) + (_K90965_ + _rest90966_ + (cons _e90969_ _r90967_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx90389_ - _hd90702_)))))))))) - (_import190393_ - (lambda (_ctx90691_ _K90692_ _rest90693_ _r90694_) - (let ((_dphi90696_ + _stx90651_ + _hd90964_)))))))))) + (_import190655_ + (lambda (_ctx90953_ _K90954_ _rest90955_ _r90956_) + (let ((_dphi90958_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K90692_ - _rest90693_ + (_K90954_ + _rest90955_ (cons (##structure gx#import-set::t - _ctx90691_ - _dphi90696_ - (map (lambda (_g9069790699_) + _ctx90953_ + _dphi90958_ + (map (lambda (_g9095990961_) (gx#core-module-export->import__% - _g9069790699_ + _g9095990961_ '#f - _dphi90696_)) + _dphi90958_)) (##unchecked-structure-ref - _ctx90691_ + _ctx90953_ '9 gx#module-context::t '#f))) - _r90694_))))) - (_import-submodule90394_ - (lambda (_hd90658_ _K90659_ _rest90660_ _r90661_) - (let* ((_e9066290669_ _hd90658_) - (_E9066490673_ + _r90956_))))) + (_import-submodule90656_ + (lambda (_hd90920_ _K90921_ _rest90922_ _r90923_) + (let* ((_e9092490931_ _hd90920_) + (_E9092690935_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9066290669_))) - (_E9066390687_ + _e9092490931_))) + (_E9092590949_ (lambda () - (if (gx#stx-pair? _e9066290669_) - (let ((_e9066590677_ - (gx#syntax-e _e9066290669_))) - (let ((_hd9066690680_ - (##car _e9066590677_)) - (_tl9066790682_ - (##cdr _e9066590677_))) - (let ((_spath90685_ _tl9066790682_)) + (if (gx#stx-pair? _e9092490931_) + (let ((_e9092790939_ + (gx#syntax-e _e9092490931_))) + (let ((_hd9092890942_ + (##car _e9092790939_)) + (_tl9092990944_ + (##cdr _e9092790939_))) + (let ((_spath90947_ _tl9092990944_)) (if '#t - (_import190393_ - (_import-spec-source90397_ - _spath90685_) - _K90659_ - _rest90660_ - _r90661_) - (_E9066490673_))))) - (_E9066490673_))))) - (_E9066390687_)))) - (_import-runtime90395_ - (lambda (_hd90625_ _K90626_ _rest90627_ _r90628_) - (let* ((_e9062990636_ _hd90625_) - (_E9063190640_ + (_import190655_ + (_import-spec-source90659_ + _spath90947_) + _K90921_ + _rest90922_ + _r90923_) + (_E9092690935_))))) + (_E9092690935_))))) + (_E9092590949_)))) + (_import-runtime90657_ + (lambda (_hd90887_ _K90888_ _rest90889_ _r90890_) + (let* ((_e9089190898_ _hd90887_) + (_E9089390902_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9062990636_))) - (_E9063090654_ + _e9089190898_))) + (_E9089290916_ (lambda () - (if (gx#stx-pair? _e9062990636_) - (let ((_e9063290644_ - (gx#syntax-e _e9062990636_))) - (let ((_hd9063390647_ - (##car _e9063290644_)) - (_tl9063490649_ - (##cdr _e9063290644_))) - (let ((_spath90652_ _tl9063490649_)) + (if (gx#stx-pair? _e9089190898_) + (let ((_e9089490906_ + (gx#syntax-e _e9089190898_))) + (let ((_hd9089590909_ + (##car _e9089490906_)) + (_tl9089690911_ + (##cdr _e9089490906_))) + (let ((_spath90914_ _tl9089690911_)) (if '#t - (_K90626_ - _rest90627_ - (cons (_import-spec-source90397_ - _spath90652_) - _r90628_)) - (_E9063190640_))))) - (_E9063190640_))))) - (_E9063090654_)))) - (_import-spec90396_ - (lambda (_hd90464_ _K90465_ _rest90466_ _r90467_) - (let* ((_e9046890485_ _hd90464_) - (_E9047790489_ + (_K90888_ + _rest90889_ + (cons (_import-spec-source90659_ + _spath90914_) + _r90890_)) + (_E9089390902_))))) + (_E9089390902_))))) + (_E9089290916_)))) + (_import-spec90658_ + (lambda (_hd90726_ _K90727_ _rest90728_ _r90729_) + (let* ((_e9073090747_ _hd90726_) + (_E9073990751_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9046890485_))) - (_E9047090599_ + _e9073090747_))) + (_E9073290861_ (lambda () - (if (gx#stx-pair? _e9046890485_) - (let ((_e9047890493_ - (gx#syntax-e _e9046890485_))) - (let ((_hd9047990496_ - (##car _e9047890493_)) - (_tl9048090498_ - (##cdr _e9047890493_))) - (if (gx#stx-pair? _tl9048090498_) - (let ((_e9048190501_ - (gx#syntax-e _tl9048090498_))) - (let ((_hd9048290504_ - (##car _e9048190501_)) - (_tl9048390506_ - (##cdr _e9048190501_))) - (let* ((_path90509_ - _hd9048290504_) - (_specs90511_ - _tl9048390506_)) + (if (gx#stx-pair? _e9073090747_) + (let ((_e9074090755_ + (gx#syntax-e _e9073090747_))) + (let ((_hd9074190758_ + (##car _e9074090755_)) + (_tl9074290760_ + (##cdr _e9074090755_))) + (if (gx#stx-pair? _tl9074290760_) + (let ((_e9074390763_ + (gx#syntax-e _tl9074290760_))) + (let ((_hd9074490766_ + (##car _e9074390763_)) + (_tl9074590768_ + (##cdr _e9074390763_))) + (let* ((_path90771_ + _hd9074490766_) + (_specs90773_ + _tl9074590768_)) (if '#t - (let ((_src-ctx90513_ - (_import-spec-source90397_ - _path90509_)) - (_exports90514_ + (let ((_src-ctx90775_ + (_import-spec-source90659_ + _path90771_)) + (_exports90776_ (make-hash-table)) - (_specs90515_ + (_specs90777_ (gx#syntax->list - _specs90511_))) + _specs90773_))) (for-each - (lambda (_out90517_) + (lambda (_out90779_) (hash-put! - _exports90514_ + _exports90776_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out90517_ + _out90779_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out90517_ + _out90779_ '4 gx#module-export::t '#f)) - _out90517_)) + _out90779_)) (##unchecked-structure-ref - _src-ctx90513_ + _src-ctx90775_ '9 gx#module-context::t '#f)) - (_K90465_ - _rest90466_ - (foldl1 (lambda (_spec90519_ _r90520_) - (let* ((_e9052190537_ _spec90519_) - (_E9052390541_ + (_K90727_ + _rest90728_ + (foldl1 (lambda (_spec90781_ _r90782_) + (let* ((_e9078390799_ _spec90781_) + (_E9078590803_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9052190537_))) - (_E9052290595_ + _e9078390799_))) + (_E9078490857_ (lambda () - (if (gx#stx-pair? _e9052190537_) - (let ((_e9052490545_ - (gx#syntax-e _e9052190537_))) - (let ((_hd9052590548_ - (##car _e9052490545_)) - (_tl9052690550_ - (##cdr _e9052490545_))) - (let ((_phi90553_ _hd9052590548_)) - (if (gx#stx-pair? _tl9052690550_) - (let ((_e9052790555_ + (if (gx#stx-pair? _e9078390799_) + (let ((_e9078690807_ + (gx#syntax-e _e9078390799_))) + (let ((_hd9078790810_ + (##car _e9078690807_)) + (_tl9078890812_ + (##cdr _e9078690807_))) + (let ((_phi90815_ _hd9078790810_)) + (if (gx#stx-pair? _tl9078890812_) + (let ((_e9078990817_ (gx#syntax-e - _tl9052690550_))) - (let ((_hd9052890558_ - (##car _e9052790555_)) - (_tl9052990560_ - (##cdr _e9052790555_))) - (let ((_name90563_ - _hd9052890558_)) + _tl9078890812_))) + (let ((_hd9079090820_ + (##car _e9078990817_)) + (_tl9079190822_ + (##cdr _e9078990817_))) + (let ((_name90825_ + _hd9079090820_)) (if (gx#stx-pair? - _tl9052990560_) - (let ((_e9053090565_ + _tl9079190822_) + (let ((_e9079290827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl9052990560_))) - (let ((_hd9053190568_ (##car _e9053090565_)) - (_tl9053290570_ (##cdr _e9053090565_))) - (let ((_src-phi90573_ _hd9053190568_)) - (if (gx#stx-pair? _tl9053290570_) - (let ((_e9053390575_ - (gx#syntax-e _tl9053290570_))) - (let ((_hd9053490578_ (##car _e9053390575_)) - (_tl9053590580_ (##cdr _e9053390575_))) - (let ((_src-name90583_ _hd9053490578_)) - (if (gx#stx-null? _tl9053590580_) - (if (and (gx#stx-fixnum? _src-phi90573_) + (gx#syntax-e _tl9079190822_))) + (let ((_hd9079390830_ (##car _e9079290827_)) + (_tl9079490832_ (##cdr _e9079290827_))) + (let ((_src-phi90835_ _hd9079390830_)) + (if (gx#stx-pair? _tl9079490832_) + (let ((_e9079590837_ + (gx#syntax-e _tl9079490832_))) + (let ((_hd9079690840_ (##car _e9079590837_)) + (_tl9079790842_ (##cdr _e9079590837_))) + (let ((_src-name90845_ _hd9079690840_)) + (if (gx#stx-null? _tl9079790842_) + (if (and (gx#stx-fixnum? _src-phi90835_) (gx#identifier? - _src-name90583_) - (gx#stx-fixnum? _phi90553_) - (gx#identifier? _name90563_)) - (let ((_src-phi90585_ - (gx#stx-e _src-phi90573_)) - (_src-name90586_ + _src-name90845_) + (gx#stx-fixnum? _phi90815_) + (gx#identifier? _name90825_)) + (let ((_src-phi90847_ + (gx#stx-e _src-phi90835_)) + (_src-name90848_ (gx#core-identifier-key - _src-name90583_)) - (_phi90587_ - (gx#stx-e _phi90553_)) - (_name90588_ + _src-name90845_)) + (_phi90849_ + (gx#stx-e _phi90815_)) + (_name90850_ (gx#core-identifier-key - _name90563_))) - (let ((_$e90590_ + _name90825_))) + (let ((_$e90852_ (hash-get - _exports90514_ - (cons _src-phi90585_ - _src-name90586_)))) - (if _$e90590_ - ((lambda (_out90593_) + _exports90776_ + (cons _src-phi90847_ + _src-name90848_)))) + (if _$e90852_ + ((lambda (_out90855_) (cons (gx#core-module-export->import__% - _out90593_ - _name90588_ - (fx- _phi90587_ + _out90855_ + _name90850_ + (fx- _phi90849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi90585_)) - _r90520_)) + _src-phi90847_)) + _r90782_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e90590_) + _$e90852_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx90389_ - _hd90464_)))) - (_E9052390541_)) - (_E9052390541_))))) - (_E9052390541_))))) - (_E9052390541_))))) + _stx90651_ + _hd90726_)))) + (_E9078590803_)) + (_E9078590803_))))) + (_E9078590803_))))) + (_E9078590803_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9052390541_))))) - (_E9052390541_))))) - (_E9052290595_))) - _r90467_ - _specs90515_))) + (_E9078590803_))))) + (_E9078590803_))))) + (_E9078490857_))) + _r90729_ + _specs90777_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9047790489_))))) - (_E9047790489_)))) - (_E9047790489_)))) - (_E9046990621_ + (_E9073990751_))))) + (_E9073990751_)))) + (_E9073990751_)))) + (_E9073190883_ (lambda () - (if (gx#stx-pair? _e9046890485_) - (let ((_e9047190603_ - (gx#syntax-e _e9046890485_))) - (let ((_hd9047290606_ - (##car _e9047190603_)) - (_tl9047390608_ - (##cdr _e9047190603_))) - (if (gx#stx-pair? _tl9047390608_) - (let ((_e9047490611_ - (gx#syntax-e _tl9047390608_))) - (let ((_hd9047590614_ - (##car _e9047490611_)) - (_tl9047690616_ - (##cdr _e9047490611_))) - (let ((_path90619_ - _hd9047590614_)) + (if (gx#stx-pair? _e9073090747_) + (let ((_e9073390865_ + (gx#syntax-e _e9073090747_))) + (let ((_hd9073490868_ + (##car _e9073390865_)) + (_tl9073590870_ + (##cdr _e9073390865_))) + (if (gx#stx-pair? _tl9073590870_) + (let ((_e9073690873_ + (gx#syntax-e _tl9073590870_))) + (let ((_hd9073790876_ + (##car _e9073690873_)) + (_tl9073890878_ + (##cdr _e9073690873_))) + (let ((_path90881_ + _hd9073790876_)) (if (gx#stx-null? - _tl9047690616_) + _tl9073890878_) (if '#t - (_K90465_ - _rest90466_ - (cons (_import-spec-source90397_ - _path90619_) - _r90467_)) - (_E9047090599_)) - (_E9047090599_))))) - (_E9047090599_)))) - (_E9047090599_))))) - (_E9046990621_)))) - (_import-spec-source90397_ - (lambda (_spath90462_) - (gx#core-import-nested-module _spath90462_ _stx90389_))) - (_import!90398_ - (lambda (_rbody90411_) - (letrec* ((_current-ctx90413_ + (_K90727_ + _rest90728_ + (cons (_import-spec-source90659_ + _path90881_) + _r90729_)) + (_E9073290861_)) + (_E9073290861_))))) + (_E9073290861_)))) + (_E9073290861_))))) + (_E9073190883_)))) + (_import-spec-source90659_ + (lambda (_spath90724_) + (gx#core-import-nested-module _spath90724_ _stx90651_))) + (_import!90660_ + (lambda (_rbody90673_) + (letrec* ((_current-ctx90675_ (gx#current-expander-context)) - (_deps90414_ (make-hash-table-eq)) - (_bind!90415_ - (lambda (_hd90460_) + (_deps90676_ (make-hash-table-eq)) + (_bind!90677_ + (lambda (_hd90722_) (gx#core-bind-import!__1 - _hd90460_ - _current-ctx90413_)))) - (let _lp90417_ ((_rest90419_ _rbody90411_) - (_body90420_ '())) - (let* ((_rest9042190429_ _rest90419_) - (_else9042390439_ + _hd90722_ + _current-ctx90675_)))) + (let _lp90679_ ((_rest90681_ _rbody90673_) + (_body90682_ '())) + (let* ((_rest9068390691_ _rest90681_) + (_else9068590701_ (lambda () (if (##structure-instance-of? - _current-ctx90413_ + _current-ctx90675_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx90413_ + _current-ctx90675_ (foldl1 cons (##unchecked-structure-ref - _current-ctx90413_ + _current-ctx90675_ '8 gx#module-context::t '#f) - _body90420_) + _body90682_) '8 gx#module-context::t '#f) '#!void) (hash-for-each - (lambda (_ctx90437_ _g93267_) - (gx#eval-module _ctx90437_)) - _deps90414_) - _body90420_)) - (_K9042590448_ - (lambda (_rest90442_ _hd90443_) + (lambda (_ctx90699_ _g93529_) + (gx#eval-module _ctx90699_)) + _deps90676_) + _body90682_)) + (_K9068790710_ + (lambda (_rest90704_ _hd90705_) (if (##structure-direct-instance-of? - _hd90443_ + _hd90705_ 'gx#module-import::t) (begin - (_bind!90415_ _hd90443_) + (_bind!90677_ _hd90705_) (if (and (fxpositive? (##unchecked-structure-ref - _hd90443_ + _hd90705_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd90443_ + _hd90705_ '1 gx#module-import::t '#f) @@ -3029,10 +3029,10 @@ gx#module-export::t '#f))) (hash-put! - _deps90414_ + _deps90676_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd90443_ + _hd90705_ '1 gx#module-import::t '#f) @@ -3042,155 +3042,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd90443_ + _hd90705_ 'gx#import-set::t) (begin (for-each - _bind!90415_ + _bind!90677_ (##unchecked-structure-ref - _hd90443_ + _hd90705_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd90443_ + _hd90705_ '2 gx#import-set::t '#f)) (hash-put! - _deps90414_ + _deps90676_ (##unchecked-structure-ref - _hd90443_ + _hd90705_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e90445_ + (let ((_$e90707_ (##structure-instance-of? - _hd90443_ + _hd90705_ 'gx#module-context::t))) - (if _$e90445_ - _$e90445_ + (if _$e90707_ + _$e90707_ (gx#raise-syntax-error '#f '"Unexpected import" - _stx90389_ - _hd90443_))))) - (_lp90417_ - _rest90442_ - (cons _hd90443_ _body90420_))))) - (if (##pair? _rest9042190429_) - (let ((_hd9042690451_ (##car _rest9042190429_)) - (_tl9042790453_ (##cdr _rest9042190429_))) - (let* ((_hd90456_ _hd9042690451_) - (_rest90458_ _tl9042790453_)) - (_K9042590448_ _rest90458_ _hd90456_))) - (_else9042390439_))))))) - (_expanded-import?90399_ - (lambda (_e90403_) - (let ((_$e90405_ + _stx90651_ + _hd90705_))))) + (_lp90679_ + _rest90704_ + (cons _hd90705_ _body90682_))))) + (if (##pair? _rest9068390691_) + (let ((_hd9068890713_ (##car _rest9068390691_)) + (_tl9068990715_ (##cdr _rest9068390691_))) + (let* ((_hd90718_ _hd9068890713_) + (_rest90720_ _tl9068990715_)) + (_K9068790710_ _rest90720_ _hd90718_))) + (_else9068590701_))))))) + (_expanded-import?90661_ + (lambda (_e90665_) + (let ((_$e90667_ (##structure-direct-instance-of? - _e90403_ + _e90665_ 'gx#import-set::t))) - (if _$e90405_ - _$e90405_ - (let ((_$e90408_ + (if _$e90667_ + _$e90667_ + (let ((_$e90670_ (##structure-direct-instance-of? - _e90403_ + _e90665_ 'gx#module-import::t))) - (if _$e90408_ - _$e90408_ + (if _$e90670_ + _$e90670_ (##structure-instance-of? - _e90403_ + _e90665_ 'gx#module-context::t)))))))) - (let ((_rbody90401_ + (let ((_rbody90663_ (gx#core-expand-import/export - _stx90389_ - _expanded-import?90399_ + _stx90651_ + _expanded-import?90661_ 'apply-import-expander gx#current-import-expander-phi - _expand190392_))) - (if _internal-expand?90390_ - (reverse _rbody90401_) + _expand190654_))) + (if _internal-expand?90652_ + (reverse _rbody90663_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!90398_ _rbody90401_)) - (gx#stx-source _stx90389_))))))) + (gx#core-cons '%#import (_import!90660_ _rbody90663_)) + (gx#stx-source _stx90651_))))))) (define gx#core-expand-import%__0 - (lambda (_stx90715_) - (let ((_internal-expand?90717_ '#f)) - (gx#core-expand-import%__% _stx90715_ _internal-expand?90717_)))) + (lambda (_stx90977_) + (let ((_internal-expand?90979_ '#f)) + (gx#core-expand-import%__% _stx90977_ _internal-expand?90979_)))) (define gx#core-expand-import% - (lambda _g93269_ - (let ((_g93268_ (##length _g93269_))) - (cond ((##fx= _g93268_ 1) - (apply (lambda (_stx90715_) - (gx#core-expand-import%__0 _stx90715_)) - _g93269_)) - ((##fx= _g93268_ 2) - (apply (lambda (_stx90719_ _internal-expand?90720_) + (lambda _g93531_ + (let ((_g93530_ (##length _g93531_))) + (cond ((##fx= _g93530_ 1) + (apply (lambda (_stx90977_) + (gx#core-expand-import%__0 _stx90977_)) + _g93531_)) + ((##fx= _g93530_ 2) + (apply (lambda (_stx90981_ _internal-expand?90982_) (gx#core-expand-import%__% - _stx90719_ - _internal-expand?90720_)) - _g93269_)) + _stx90981_ + _internal-expand?90982_)) + _g93531_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g93269_)))))) + _g93531_)))))) (define gx#core-import-nested-module - (lambda (_spath90316_ _where90317_) - (let* ((_e9031890325_ _spath90316_) - (_E9032090329_ + (lambda (_spath90578_ _where90579_) + (let* ((_e9058090587_ _spath90578_) + (_E9058290591_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9031890325_))) - (_E9031990384_ + _e9058090587_))) + (_E9058190646_ (lambda () - (if (gx#stx-pair? _e9031890325_) - (let ((_e9032190333_ (gx#syntax-e _e9031890325_))) - (let ((_hd9032290336_ (##car _e9032190333_)) - (_tl9032390338_ (##cdr _e9032190333_))) - (let* ((_origin90341_ _hd9032290336_) - (_sub90343_ _tl9032390338_)) + (if (gx#stx-pair? _e9058090587_) + (let ((_e9058390595_ (gx#syntax-e _e9058090587_))) + (let ((_hd9058490598_ (##car _e9058390595_)) + (_tl9058590600_ (##cdr _e9058390595_))) + (let* ((_origin90603_ _hd9058490598_) + (_sub90605_ _tl9058590600_)) (if '#t - (let ((_origin-ctx90345_ - (if (gx#stx-false? _origin90341_) + (let ((_origin-ctx90607_ + (if (gx#stx-false? _origin90603_) (gx#current-expander-context) (gx#import-module__0 - _origin90341_)))) - (let _lp90347_ ((_rest90349_ _sub90343_) - (_ctx90350_ - _origin-ctx90345_)) - (let* ((_e9035190358_ _rest90349_) - (_E9035390362_ - (lambda () _ctx90350_)) - (_E9035290380_ + _origin90603_)))) + (let _lp90609_ ((_rest90611_ _sub90605_) + (_ctx90612_ + _origin-ctx90607_)) + (let* ((_e9061390620_ _rest90611_) + (_E9061590624_ + (lambda () _ctx90612_)) + (_E9061490642_ (lambda () - (if (gx#stx-pair? _e9035190358_) - (let ((_e9035490366_ + (if (gx#stx-pair? _e9061390620_) + (let ((_e9061690628_ (gx#syntax-e - _e9035190358_))) - (let ((_hd9035590369_ - (##car _e9035490366_)) - (_tl9035690371_ - (##cdr _e9035490366_))) - (let* ((_id90374_ - _hd9035590369_) - (_rest90376_ - _tl9035690371_)) + _e9061390620_))) + (let ((_hd9061790631_ + (##car _e9061690628_)) + (_tl9061890633_ + (##cdr _e9061690628_))) + (let* ((_id90636_ + _hd9061790631_) + (_rest90638_ + _tl9061890633_)) (if '#t - (let ((_bind90378_ + (let ((_bind90640_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#resolve-identifier__% _id90374_ '0 _ctx90350_))) + (gx#resolve-identifier__% _id90636_ '0 _ctx90612_))) (if (and (##structure-direct-instance-of? - _bind90378_ + _bind90640_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind90378_ + _bind90640_ '4 gx#syntax-binding::t '#f) @@ -3199,821 +3199,821 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where90317_ - _spath90316_ - _id90374_)) - (_lp90347_ - _rest90376_ + _where90579_ + _spath90578_ + _id90636_)) + (_lp90609_ + _rest90638_ (##unchecked-structure-ref - _bind90378_ + _bind90640_ '4 gx#syntax-binding::t '#f))) - (_E9035390362_))))) + (_E9061590624_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9035390362_))))) - (_E9035290380_)))) - (_E9032090329_))))) - (_E9032090329_))))) - (_E9031990384_)))) + (_E9061590624_))))) + (_E9061490642_)))) + (_E9058290591_))))) + (_E9058290591_))))) + (_E9058190646_)))) (define gx#core-expand-import-source - (lambda (_hd90314_) + (lambda (_hd90576_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd90314_ '())) + (cons 'import-internal% (cons _hd90576_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx89822_ _internal-expand?89823_) - (letrec* ((_make-export__9319893199_ - (lambda (_bind90262_ _phi90263_ _ctx90264_ _name90265_) - (let* ((_key90267_ + (lambda (_stx90084_ _internal-expand?90085_) + (letrec* ((_make-export__9346093461_ + (lambda (_bind90524_ _phi90525_ _ctx90526_ _name90527_) + (let* ((_key90529_ (##unchecked-structure-ref - _bind90262_ + _bind90524_ '2 gx#binding::t '#f)) - (_export-key90269_ - (if _name90265_ - (gx#core-identifier-key _name90265_) - _key90267_))) + (_export-key90531_ + (if _name90527_ + (gx#core-identifier-key _name90527_) + _key90529_))) (##structure gx#module-export::t - _ctx90264_ - _key90267_ - _phi90263_ - _export-key90269_ - (let ((_$e90272_ + _ctx90526_ + _key90529_ + _phi90525_ + _export-key90531_ + (let ((_$e90534_ (##structure-instance-of? - _bind90262_ + _bind90524_ 'gx#extern-binding::t))) - (if _$e90272_ - _$e90272_ + (if _$e90534_ + _$e90534_ (##structure-direct-instance-of? - _bind90262_ + _bind90524_ 'gx#import-binding::t))))))) - (_make-export__0__9320093203_ - (lambda (_bind90278_) - (let* ((_phi90280_ (gx#current-export-expander-phi)) - (_ctx90282_ (gx#current-expander-context)) - (_name90284_ '#f)) - (_make-export__9319893199_ - _bind90278_ - _phi90280_ - _ctx90282_ - _name90284_)))) - (_make-export__1__9320193204_ - (lambda (_bind90286_ _phi90287_) - (let* ((_ctx90289_ (gx#current-expander-context)) - (_name90291_ '#f)) - (_make-export__9319893199_ - _bind90286_ - _phi90287_ - _ctx90289_ - _name90291_)))) - (_make-export__2__9320293205_ - (lambda (_bind90293_ _phi90294_ _ctx90295_) - (let ((_name90297_ '#f)) - (_make-export__9319893199_ - _bind90293_ - _phi90294_ - _ctx90295_ - _name90297_)))) - (_make-export89825_ - (lambda _g93271_ - (let ((_g93270_ (##length _g93271_))) - (cond ((##fx= _g93270_ 1) - (apply (lambda (_bind90278_) - (_make-export__0__9320093203_ - _bind90278_)) - _g93271_)) - ((##fx= _g93270_ 2) - (apply (lambda (_bind90286_ _phi90287_) - (_make-export__1__9320193204_ - _bind90286_ - _phi90287_)) - _g93271_)) - ((##fx= _g93270_ 3) - (apply (lambda (_bind90293_ - _phi90294_ - _ctx90295_) - (_make-export__2__9320293205_ - _bind90293_ - _phi90294_ - _ctx90295_)) - _g93271_)) - ((##fx= _g93270_ 4) - (apply (lambda (_bind90299_ - _phi90300_ - _ctx90301_ - _name90302_) - (_make-export__9319893199_ - _bind90299_ - _phi90300_ - _ctx90301_ - _name90302_)) - _g93271_)) + (_make-export__0__9346293465_ + (lambda (_bind90540_) + (let* ((_phi90542_ (gx#current-export-expander-phi)) + (_ctx90544_ (gx#current-expander-context)) + (_name90546_ '#f)) + (_make-export__9346093461_ + _bind90540_ + _phi90542_ + _ctx90544_ + _name90546_)))) + (_make-export__1__9346393466_ + (lambda (_bind90548_ _phi90549_) + (let* ((_ctx90551_ (gx#current-expander-context)) + (_name90553_ '#f)) + (_make-export__9346093461_ + _bind90548_ + _phi90549_ + _ctx90551_ + _name90553_)))) + (_make-export__2__9346493467_ + (lambda (_bind90555_ _phi90556_ _ctx90557_) + (let ((_name90559_ '#f)) + (_make-export__9346093461_ + _bind90555_ + _phi90556_ + _ctx90557_ + _name90559_)))) + (_make-export90087_ + (lambda _g93533_ + (let ((_g93532_ (##length _g93533_))) + (cond ((##fx= _g93532_ 1) + (apply (lambda (_bind90540_) + (_make-export__0__9346293465_ + _bind90540_)) + _g93533_)) + ((##fx= _g93532_ 2) + (apply (lambda (_bind90548_ _phi90549_) + (_make-export__1__9346393466_ + _bind90548_ + _phi90549_)) + _g93533_)) + ((##fx= _g93532_ 3) + (apply (lambda (_bind90555_ + _phi90556_ + _ctx90557_) + (_make-export__2__9346493467_ + _bind90555_ + _phi90556_ + _ctx90557_)) + _g93533_)) + ((##fx= _g93532_ 4) + (apply (lambda (_bind90561_ + _phi90562_ + _ctx90563_ + _name90564_) + (_make-export__9346093461_ + _bind90561_ + _phi90562_ + _ctx90563_ + _name90564_)) + _g93533_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g93271_)))))) - (_expand189826_ - (lambda (_hd89975_ _K89976_ _rest89977_ _r89978_) - (let* ((_e8997990011_ _hd89975_) - (_E9000690015_ + _g93533_)))))) + (_expand190088_ + (lambda (_hd90237_ _K90238_ _rest90239_ _r90240_) + (let* ((_e9024190273_ _hd90237_) + (_E9026890277_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx89822_ - _hd89975_))) - (_E8999690094_ + _stx90084_ + _hd90237_))) + (_E9025890356_ (lambda () - (if (gx#stx-pair? _e8997990011_) - (let ((_e9000790019_ - (gx#syntax-e _e8997990011_))) - (let ((_hd9000890022_ - (##car _e9000790019_)) - (_tl9000990024_ - (##cdr _e9000790019_))) - (if (eq? (gx#stx-e _hd9000890022_) + (if (gx#stx-pair? _e9024190273_) + (let ((_e9026990281_ + (gx#syntax-e _e9024190273_))) + (let ((_hd9027090284_ + (##car _e9026990281_)) + (_tl9027190286_ + (##cdr _e9026990281_))) + (if (eq? (gx#stx-e _hd9027090284_) 'import:) - (let ((_in90027_ _tl9000990024_)) - (if (gx#stx-list? _in90027_) - (let _lp90029_ ((_in-rest90031_ + (let ((_in90289_ _tl9027190286_)) + (if (gx#stx-list? _in90289_) + (let _lp90291_ ((_in-rest90293_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in90027_) - (_r90032_ _r89978_)) + _in90289_) + (_r90294_ _r90240_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e9003390040_ - _in-rest90031_) - (_E9003590044_ + (let* ((_e9029590302_ + _in-rest90293_) + (_E9029790306_ (lambda () - (_K89976_ - _rest89977_ - _r90032_))) - (_E9003490090_ + (_K90238_ + _rest90239_ + _r90294_))) + (_E9029690352_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e9003390040_) - (let ((_e9003690048_ (gx#syntax-e _e9003390040_))) - (let ((_hd9003790051_ (##car _e9003690048_)) - (_tl9003890053_ (##cdr _e9003690048_))) - (let* ((_hd90056_ _hd9003790051_) - (_in-rest90058_ _tl9003890053_)) + _e9029590302_) + (let ((_e9029890310_ (gx#syntax-e _e9029590302_))) + (let ((_hd9029990313_ (##car _e9029890310_)) + (_tl9030090315_ (##cdr _e9029890310_))) + (let* ((_hd90318_ _hd9029990313_) + (_in-rest90320_ _tl9030090315_)) (if '#t - (let ((_src90088_ - (if (gx#core-bound-module? _hd90056_) - (gx#syntax-local-e__0 _hd90056_) + (let ((_src90350_ + (if (gx#core-bound-module? _hd90318_) + (gx#syntax-local-e__0 _hd90318_) (if (gx#core-library-module-path? - _hd90056_) + _hd90318_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd90056_)) + _hd90318_)) (if (gx#core-library-relative-module-path? - _hd90056_) + _hd90318_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd90056_)) + _hd90318_)) (if (gx#stx-string? - _hd90056_) + _hd90318_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd90056_ + _hd90318_ (gx#stx-source - _stx89822_))) - (let* ((_e9005990066_ + _stx90084_))) + (let* ((_e9032190328_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90056_) - (_E9006190070_ + _hd90318_) + (_E9032390332_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx89822_ - _hd90056_))) - (_E9006090084_ + _stx90084_ + _hd90318_))) + (_E9032290346_ (lambda () - (if (gx#stx-pair? _e9005990066_) - (let ((_e9006290074_ - (gx#syntax-e _e9005990066_))) - (let ((_hd9006390077_ (##car _e9006290074_)) - (_tl9006490079_ (##cdr _e9006290074_))) - (if (eq? (gx#stx-e _hd9006390077_) 'in:) - (let ((_spath90082_ _tl9006490079_)) + (if (gx#stx-pair? _e9032190328_) + (let ((_e9032490336_ + (gx#syntax-e _e9032190328_))) + (let ((_hd9032590339_ (##car _e9032490336_)) + (_tl9032690341_ (##cdr _e9032490336_))) + (if (eq? (gx#stx-e _hd9032590339_) 'in:) + (let ((_spath90344_ _tl9032690341_)) (if '#t (gx#core-import-nested-module - _spath90082_ - _stx89822_) - (_E9006190070_))) - (_E9006190070_)))) - (_E9006190070_))))) - (_E9006090084_)))))))) + _spath90344_ + _stx90084_) + (_E9032390332_))) + (_E9032390332_)))) + (_E9032390332_))))) + (_E9032290346_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp90029_ - _in-rest90058_ - (_export-imports89827_ - _src90088_ - _r90032_))) - (_E9003590044_))))) - (_E9003590044_))))) + (_lp90291_ + _in-rest90320_ + (_export-imports90089_ + _src90350_ + _r90294_))) + (_E9029790306_))))) + (_E9029790306_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9003490090_))) - (_E9000690015_))) - (_E9000690015_)))) - (_E9000690015_)))) - (_E8998390133_ + (_E9029690352_))) + (_E9026890277_))) + (_E9026890277_)))) + (_E9026890277_)))) + (_E9024590395_ (lambda () - (if (gx#stx-pair? _e8997990011_) - (let ((_e8999790098_ - (gx#syntax-e _e8997990011_))) - (let ((_hd8999890101_ - (##car _e8999790098_)) - (_tl8999990103_ - (##cdr _e8999790098_))) - (if (eq? (gx#stx-e _hd8999890101_) + (if (gx#stx-pair? _e9024190273_) + (let ((_e9025990360_ + (gx#syntax-e _e9024190273_))) + (let ((_hd9026090363_ + (##car _e9025990360_)) + (_tl9026190365_ + (##cdr _e9025990360_))) + (if (eq? (gx#stx-e _hd9026090363_) 'rename:) - (if (gx#stx-pair? _tl8999990103_) - (let ((_e9000090106_ + (if (gx#stx-pair? _tl9026190365_) + (let ((_e9026290368_ (gx#syntax-e - _tl8999990103_))) - (let ((_hd9000190109_ - (##car _e9000090106_)) - (_tl9000290111_ - (##cdr _e9000090106_))) - (let ((_id90114_ - _hd9000190109_)) + _tl9026190365_))) + (let ((_hd9026390371_ + (##car _e9026290368_)) + (_tl9026490373_ + (##cdr _e9026290368_))) + (let ((_id90376_ + _hd9026390371_)) (if (gx#stx-pair? - _tl9000290111_) - (let ((_e9000390116_ + _tl9026490373_) + (let ((_e9026590378_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl9000290111_))) - (let ((_hd9000490119_ (##car _e9000390116_)) - (_tl9000590121_ (##cdr _e9000390116_))) - (let ((_name90124_ _hd9000490119_)) - (if (gx#stx-null? _tl9000590121_) + _tl9026490373_))) + (let ((_hd9026690381_ (##car _e9026590378_)) + (_tl9026790383_ (##cdr _e9026590378_))) + (let ((_name90386_ _hd9026690381_)) + (if (gx#stx-null? _tl9026790383_) (if '#t - (let* ((_phi90126_ + (let* ((_phi90388_ (gx#current-export-expander-phi)) - (_$e90128_ + (_$e90390_ (gx#core-resolve-identifier__1 - _id90114_ - _phi90126_))) - (if _$e90128_ - ((lambda (_bind90131_) - (_K89976_ - _rest89977_ - (cons (_make-export__9319893199_ - _bind90131_ - _phi90126_ + _id90376_ + _phi90388_))) + (if _$e90390_ + ((lambda (_bind90393_) + (_K90238_ + _rest90239_ + (cons (_make-export__9346093461_ + _bind90393_ + _phi90388_ (gx#current-expander-context) - _name90124_) - _r89978_))) - _$e90128_) + _name90386_) + _r90240_))) + _$e90390_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx89822_ - _hd89975_ - _id90114_))) - (_E8999690094_)) - (_E8999690094_))))) - (_E8999690094_))))) + _stx90084_ + _hd90237_ + _id90376_))) + (_E9025890356_)) + (_E9025890356_))))) + (_E9025890356_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8999690094_)) - (_E8999690094_)))) - (_E8999690094_)))) - (_E8998290182_ + (_E9025890356_)) + (_E9025890356_)))) + (_E9025890356_)))) + (_E9024490444_ (lambda () - (if (gx#stx-pair? _e8997990011_) - (let ((_e8998490137_ - (gx#syntax-e _e8997990011_))) - (let ((_hd8998590140_ - (##car _e8998490137_)) - (_tl8998690142_ - (##cdr _e8998490137_))) - (if (eq? (gx#stx-e _hd8998590140_) + (if (gx#stx-pair? _e9024190273_) + (let ((_e9024690399_ + (gx#syntax-e _e9024190273_))) + (let ((_hd9024790402_ + (##car _e9024690399_)) + (_tl9024890404_ + (##cdr _e9024690399_))) + (if (eq? (gx#stx-e _hd9024790402_) 'spec:) - (if (gx#stx-pair? _tl8998690142_) - (let ((_e8998790145_ + (if (gx#stx-pair? _tl9024890404_) + (let ((_e9024990407_ (gx#syntax-e - _tl8998690142_))) - (let ((_hd8998890148_ - (##car _e8998790145_)) - (_tl8998990150_ - (##cdr _e8998790145_))) - (let ((_phi90153_ - _hd8998890148_)) + _tl9024890404_))) + (let ((_hd9025090410_ + (##car _e9024990407_)) + (_tl9025190412_ + (##cdr _e9024990407_))) + (let ((_phi90415_ + _hd9025090410_)) (if (gx#stx-pair? - _tl8998990150_) - (let ((_e8999090155_ + _tl9025190412_) + (let ((_e9025290417_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl8998990150_))) - (let ((_hd8999190158_ (##car _e8999090155_)) - (_tl8999290160_ (##cdr _e8999090155_))) - (let ((_id90163_ _hd8999190158_)) - (if (gx#stx-pair? _tl8999290160_) - (let ((_e8999390165_ (gx#syntax-e _tl8999290160_))) - (let ((_hd8999490168_ (##car _e8999390165_)) - (_tl8999590170_ (##cdr _e8999390165_))) - (let ((_name90173_ _hd8999490168_)) - (if (gx#stx-null? _tl8999590170_) - (if (and (gx#stx-fixnum? _phi90153_) - (gx#identifier? _id90163_) - (gx#identifier? _name90173_)) - (let* ((_phi90175_ - (gx#stx-e _phi90153_)) - (_$e90177_ + _tl9025190412_))) + (let ((_hd9025390420_ (##car _e9025290417_)) + (_tl9025490422_ (##cdr _e9025290417_))) + (let ((_id90425_ _hd9025390420_)) + (if (gx#stx-pair? _tl9025490422_) + (let ((_e9025590427_ (gx#syntax-e _tl9025490422_))) + (let ((_hd9025690430_ (##car _e9025590427_)) + (_tl9025790432_ (##cdr _e9025590427_))) + (let ((_name90435_ _hd9025690430_)) + (if (gx#stx-null? _tl9025790432_) + (if (and (gx#stx-fixnum? _phi90415_) + (gx#identifier? _id90425_) + (gx#identifier? _name90435_)) + (let* ((_phi90437_ + (gx#stx-e _phi90415_)) + (_$e90439_ (gx#core-resolve-identifier__1 - _id90163_ - _phi90175_))) - (if _$e90177_ - ((lambda (_bind90180_) - (_K89976_ - _rest89977_ - (cons (_make-export__9319893199_ - _bind90180_ - _phi90175_ + _id90425_ + _phi90437_))) + (if _$e90439_ + ((lambda (_bind90442_) + (_K90238_ + _rest90239_ + (cons (_make-export__9346093461_ + _bind90442_ + _phi90437_ (gx#current-expander-context) - _name90173_) - _r89978_))) - _$e90177_) + _name90435_) + _r90240_))) + _$e90439_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx89822_ - _hd89975_ - _id90163_))) - (_E8998390133_)) - (_E8998390133_))))) - (_E8998390133_))))) - (_E8998390133_))))) + _stx90084_ + _hd90237_ + _id90425_))) + (_E9024590395_)) + (_E9024590395_))))) + (_E9024590395_))))) + (_E9024590395_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8998390133_)) - (_E8998390133_)))) - (_E8998390133_)))) - (_E8998190193_ + (_E9024590395_)) + (_E9024590395_)))) + (_E9024590395_)))) + (_E9024390455_ (lambda () - (let ((_id90186_ _e8997990011_)) - (if (gx#identifier? _id90186_) - (let ((_$e90188_ + (let ((_id90448_ _e9024190273_)) + (if (gx#identifier? _id90448_) + (let ((_$e90450_ (gx#core-resolve-identifier__1 - _id90186_ + _id90448_ (gx#current-export-expander-phi)))) - (if _$e90188_ - ((lambda (_bind90191_) - (_K89976_ - _rest89977_ - (cons (_make-export__0__9320093203_ - _bind90191_) - _r89978_))) - _$e90188_) + (if _$e90450_ + ((lambda (_bind90453_) + (_K90238_ + _rest90239_ + (cons (_make-export__0__9346293465_ + _bind90453_) + _r90240_))) + _$e90450_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx89822_ - _hd89975_))) - (_E8998290182_))))) - (_E8998090257_ + _stx90084_ + _hd90237_))) + (_E9024490444_))))) + (_E9024290519_ (lambda () - (if (eq? (gx#stx-e _e8997990011_) '#t) + (if (eq? (gx#stx-e _e9024190273_) '#t) (if '#t - (let* ((_current-ctx90197_ + (let* ((_current-ctx90459_ (gx#current-expander-context)) - (_current-phi90199_ + (_current-phi90461_ (gx#current-export-expander-phi)) - (_phi-ctx90201_ + (_phi-ctx90463_ (gx#core-context-shift - _current-ctx90197_ - _current-phi90199_)) - (_phi-bind90203_ + _current-ctx90459_ + _current-phi90461_)) + (_phi-bind90465_ (hash->list (##unchecked-structure-ref - _phi-ctx90201_ + _phi-ctx90463_ '2 gx#expander-context::t '#f)))) - (let _lp90206_ ((_bind-rest90208_ - _phi-bind90203_) - (_set90209_ '())) - (let* ((_bind-rest9021090220_ - _bind-rest90208_) - (_else9021290228_ + (let _lp90468_ ((_bind-rest90470_ + _phi-bind90465_) + (_set90471_ '())) + (let* ((_bind-rest9047290482_ + _bind-rest90470_) + (_else9047490490_ (lambda () - (_K89976_ - _rest89977_ + (_K90238_ + _rest90239_ (cons (##structure gx#export-set::t '#f - _current-phi90199_ - _set90209_) - _r89978_)))) - (_K9021490238_ - (lambda (_bind-rest90231_ - _bind90232_ - _key90233_) + _current-phi90461_ + _set90471_) + _r90240_)))) + (_K9047690500_ + (lambda (_bind-rest90493_ + _bind90494_ + _key90495_) (if (or (##structure-direct-instance-of? - _bind90232_ + _bind90494_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind90232_)) - (_lp90206_ - _bind-rest90231_ - _set90209_) - (_lp90206_ - _bind-rest90231_ - (cons (_make-export__2__9320293205_ + _bind90494_)) + (_lp90468_ + _bind-rest90493_ + _set90471_) + (_lp90468_ + _bind-rest90493_ + (cons (_make-export__2__9346493467_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind90232_ - _current-phi90199_ - _current-ctx90197_) - _set90209_)))))) + _bind90494_ + _current-phi90461_ + _current-ctx90459_) + _set90471_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest9021090220_) - (let ((_hd9021590241_ - (##car _bind-rest9021090220_)) - (_tl9021690243_ - (##cdr _bind-rest9021090220_))) - (if (##pair? _hd9021590241_) - (let ((_hd9021790246_ - (##car _hd9021590241_)) - (_tl9021890248_ - (##cdr _hd9021590241_))) - (let* ((_key90251_ + (if (##pair? _bind-rest9047290482_) + (let ((_hd9047790503_ + (##car _bind-rest9047290482_)) + (_tl9047890505_ + (##cdr _bind-rest9047290482_))) + (if (##pair? _hd9047790503_) + (let ((_hd9047990508_ + (##car _hd9047790503_)) + (_tl9048090510_ + (##cdr _hd9047790503_))) + (let* ((_key90513_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9021790246_) - (_bind90253_ _tl9021890248_) - (_bind-rest90255_ _tl9021690243_)) - (_K9021490238_ _bind-rest90255_ _bind90253_ _key90251_))) - (_else9021290228_))) + _hd9047990508_) + (_bind90515_ _tl9048090510_) + (_bind-rest90517_ _tl9047890505_)) + (_K9047690500_ _bind-rest90517_ _bind90515_ _key90513_))) + (_else9047490490_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else9021290228_))))) - (_E8998190193_)) - (_E8998190193_))))) - (_E8998090257_)))) - (_export-imports89827_ - (lambda (_src89851_ _r89852_) - (letrec* ((_current-ctx89854_ + (_else9047490490_))))) + (_E9024390455_)) + (_E9024390455_))))) + (_E9024290519_)))) + (_export-imports90089_ + (lambda (_src90113_ _r90114_) + (letrec* ((_current-ctx90116_ (gx#current-expander-context)) - (_current-phi89855_ + (_current-phi90117_ (gx#current-export-expander-phi)) - (_import->export89856_ - (lambda (_in89937_) - (let* ((_in8993889946_ _in89937_) - (_E8994089950_ + (_import->export90118_ + (lambda (_in90199_) + (let* ((_in9020090208_ _in90199_) + (_E9020290212_ (lambda () (error '"No clause matching" - _in8993889946_))) - (_K8994189957_ - (lambda (_phi89953_ - _key89954_ - _out89955_) + _in9020090208_))) + (_K9020390219_ + (lambda (_phi90215_ + _key90216_ + _out90217_) (##structure gx#module-export::t - _current-ctx89854_ - _key89954_ - _phi89953_ - _key89954_ + _current-ctx90116_ + _key90216_ + _phi90215_ + _key90216_ '#t)))) (if (##structure-direct-instance-of? - _in8993889946_ + _in9020090208_ 'gx#module-import::t) - (let* ((_e8994289960_ + (let* ((_e9020490222_ (##unchecked-structure-ref - _in8993889946_ + _in9020090208_ '1 gx#module-import::t '#f)) - (_out89963_ _e8994289960_) - (_e8994389965_ + (_out90225_ _e9020490222_) + (_e9020590227_ (##unchecked-structure-ref - _in8993889946_ + _in9020090208_ '2 gx#module-import::t '#f)) - (_key89968_ _e8994389965_) - (_e8994489970_ + (_key90230_ _e9020590227_) + (_e9020690232_ (##unchecked-structure-ref - _in8993889946_ + _in9020090208_ '3 gx#module-import::t '#f)) - (_phi89973_ _e8994489970_)) - (_K8994189957_ - _phi89973_ - _key89968_ - _out89963_)) - (_E8994089950_))))) - (_fold-e89857_ - (lambda (_in89859_ _r89860_) - (let* ((_in8986189875_ _in89859_) - (_else8986489883_ - (lambda () _r89860_))) - (let ((_K8987089919_ - (lambda (_phi89915_ - _key89916_ - _out89917_) - (if (and (fx= _phi89915_ - _current-phi89855_) - (eq? _src89851_ + (_phi90235_ _e9020690232_)) + (_K9020390219_ + _phi90235_ + _key90230_ + _out90225_)) + (_E9020290212_))))) + (_fold-e90119_ + (lambda (_in90121_ _r90122_) + (let* ((_in9012390137_ _in90121_) + (_else9012690145_ + (lambda () _r90122_))) + (let ((_K9013290181_ + (lambda (_phi90177_ + _key90178_ + _out90179_) + (if (and (fx= _phi90177_ + _current-phi90117_) + (eq? _src90113_ (##unchecked-structure-ref - _out89917_ + _out90179_ '1 gx#module-export::t '#f))) - (cons (_import->export89856_ - _in89859_) - _r89860_) - _r89860_))) - (_K8986689894_ - (lambda (_imports89887_ - _phi89888_ - _ctx89889_) - (if (and (fx= _phi89888_ - _current-phi89855_) - (eq? _src89851_ - _ctx89889_)) - (foldl1 (lambda (_in89891_ + (cons (_import->export90118_ + _in90121_) + _r90122_) + _r90122_))) + (_K9012890156_ + (lambda (_imports90149_ + _phi90150_ + _ctx90151_) + (if (and (fx= _phi90150_ + _current-phi90117_) + (eq? _src90113_ + _ctx90151_)) + (foldl1 (lambda (_in90153_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r89892_) - (cons (_import->export89856_ _in89891_) _r89892_)) - _r89860_ - _imports89887_) + _r90154_) + (cons (_import->export90118_ _in90153_) _r90154_)) + _r90122_ + _imports90149_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r89860_)))) - (let ((_try-match8986389912_ + _r90122_)))) + (let ((_try-match9012590174_ (lambda () (if (##structure-direct-instance-of? - _in8986189875_ + _in9012390137_ 'gx#import-set::t) - (let* ((_e8986789897_ + (let* ((_e9012990159_ (##unchecked-structure-ref - _in8986189875_ + _in9012390137_ '1 gx#import-set::t '#f)) - (_e8986889902_ + (_e9013090164_ (##unchecked-structure-ref - _in8986189875_ + _in9012390137_ '2 gx#import-set::t '#f)) - (_e8986989907_ + (_e9013190169_ (##unchecked-structure-ref - _in8986189875_ + _in9012390137_ '3 gx#import-set::t '#f))) - (let ((_ctx89900_ - _e8986789897_) - (_phi89905_ - _e8986889902_) - (_imports89910_ - _e8986989907_)) - (_K8986689894_ - _imports89910_ - _phi89905_ - _ctx89900_))) - (_else8986489883_))))) + (let ((_ctx90162_ + _e9012990159_) + (_phi90167_ + _e9013090164_) + (_imports90172_ + _e9013190169_)) + (_K9012890156_ + _imports90172_ + _phi90167_ + _ctx90162_))) + (_else9012690145_))))) (if (##structure-direct-instance-of? - _in8986189875_ + _in9012390137_ 'gx#module-import::t) - (let* ((_e8987189922_ + (let* ((_e9013390184_ (##unchecked-structure-ref - _in8986189875_ + _in9012390137_ '1 gx#module-import::t '#f)) - (_e8987289927_ + (_e9013490189_ (##unchecked-structure-ref - _in8986189875_ + _in9012390137_ '2 gx#module-import::t '#f)) - (_e8987389932_ + (_e9013590194_ (##unchecked-structure-ref - _in8986189875_ + _in9012390137_ '3 gx#module-import::t '#f))) - (let ((_out89925_ _e8987189922_) - (_key89930_ _e8987289927_) - (_phi89935_ _e8987389932_)) - (_K8987089919_ - _phi89935_ - _key89930_ - _out89925_))) - (_try-match8986389912_)))))))) + (let ((_out90187_ _e9013390184_) + (_key90192_ _e9013490189_) + (_phi90197_ _e9013590194_)) + (_K9013290181_ + _phi90197_ + _key90192_ + _out90187_))) + (_try-match9012590174_)))))))) (cons (##structure gx#export-set::t - _src89851_ - _current-phi89855_ - (foldl1 _fold-e89857_ + _src90113_ + _current-phi90117_ + (foldl1 _fold-e90119_ '() (##unchecked-structure-ref - _current-ctx89854_ + _current-ctx90116_ '8 gx#module-context::t '#f))) - _r89852_)))) - (_export!89828_ - (lambda (_rbody89841_) - (letrec* ((_current-ctx89843_ + _r90114_)))) + (_export!90090_ + (lambda (_rbody90103_) + (letrec* ((_current-ctx90105_ (gx#current-expander-context)) - (_fold-e89844_ - (lambda (_out89848_ _r89849_) + (_fold-e90106_ + (lambda (_out90110_ _r90111_) (if (##structure-direct-instance-of? - _out89848_ + _out90110_ 'gx#module-export::t) - (cons _out89848_ _r89849_) + (cons _out90110_ _r90111_) (if (##structure-direct-instance-of? - _out89848_ + _out90110_ 'gx#export-set::t) (foldl1 cons - _r89849_ + _r90111_ (##unchecked-structure-ref - _out89848_ + _out90110_ '3 gx#export-set::t '#f)) - _r89849_))))) - (let ((_body89846_ (reverse _rbody89841_))) + _r90111_))))) + (let ((_body90108_ (reverse _rbody90103_))) (##unchecked-structure-set! - _current-ctx89843_ - (foldl1 _fold-e89844_ + _current-ctx90105_ + (foldl1 _fold-e90106_ (##unchecked-structure-ref - _current-ctx89843_ + _current-ctx90105_ '9 gx#module-context::t '#f) - _body89846_) + _body90108_) '9 gx#module-context::t '#f) - _body89846_)))) - (_expanded-export?89829_ - (lambda (_e89836_) - (let ((_$e89838_ + _body90108_)))) + (_expanded-export?90091_ + (lambda (_e90098_) + (let ((_$e90100_ (##structure-direct-instance-of? - _e89836_ + _e90098_ 'gx#module-export::t))) - (if _$e89838_ - _$e89838_ + (if _$e90100_ + _$e90100_ (##structure-direct-instance-of? - _e89836_ + _e90098_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?89823_) - (let ((_rbody89834_ + _internal-expand?90085_) + (let ((_rbody90096_ (gx#core-expand-import/export - _stx89822_ - _expanded-export?89829_ + _stx90084_ + _expanded-export?90091_ 'apply-export-expander gx#current-export-expander-phi - _expand189826_))) - (if _internal-expand?89823_ - (reverse _rbody89834_) + _expand190088_))) + (if _internal-expand?90085_ + (reverse _rbody90096_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!89828_ _rbody89834_)) - (gx#stx-source _stx89822_)))) + (gx#core-cons '%#export (_export!90090_ _rbody90096_)) + (gx#stx-source _stx90084_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx89822_)) + (gx#stx-source _stx90084_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx89822_)))))) + _stx90084_)))))) (define gx#core-expand-export%__0 - (lambda (_stx90307_) - (let ((_internal-expand?90309_ '#f)) - (gx#core-expand-export%__% _stx90307_ _internal-expand?90309_)))) + (lambda (_stx90569_) + (let ((_internal-expand?90571_ '#f)) + (gx#core-expand-export%__% _stx90569_ _internal-expand?90571_)))) (define gx#core-expand-export% - (lambda _g93273_ - (let ((_g93272_ (##length _g93273_))) - (cond ((##fx= _g93272_ 1) - (apply (lambda (_stx90307_) - (gx#core-expand-export%__0 _stx90307_)) - _g93273_)) - ((##fx= _g93272_ 2) - (apply (lambda (_stx90311_ _internal-expand?90312_) + (lambda _g93535_ + (let ((_g93534_ (##length _g93535_))) + (cond ((##fx= _g93534_ 1) + (apply (lambda (_stx90569_) + (gx#core-expand-export%__0 _stx90569_)) + _g93535_)) + ((##fx= _g93534_ 2) + (apply (lambda (_stx90573_ _internal-expand?90574_) (gx#core-expand-export%__% - _stx90311_ - _internal-expand?90312_)) - _g93273_)) + _stx90573_ + _internal-expand?90574_)) + _g93535_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g93273_)))))) + _g93535_)))))) (define gx#core-expand-export-source - (lambda (_hd89819_) + (lambda (_hd90081_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd89819_ '())) + (cons 'export-macro% (cons _hd90081_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx89789_) - (let* ((_e8979089797_ _stx89789_) - (_E8979289801_ + (lambda (_stx90051_) + (let* ((_e9005290059_ _stx90051_) + (_E9005490063_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8979089797_))) - (_E8979189815_ + _e9005290059_))) + (_E9005390077_ (lambda () - (if (gx#stx-pair? _e8979089797_) - (let ((_e8979389805_ (gx#syntax-e _e8979089797_))) - (let ((_hd8979489808_ (##car _e8979389805_)) - (_tl8979589810_ (##cdr _e8979389805_))) - (let ((_body89813_ _tl8979589810_)) - (if (gx#identifier-list? _body89813_) + (if (gx#stx-pair? _e9005290059_) + (let ((_e9005590067_ (gx#syntax-e _e9005290059_))) + (let ((_hd9005690070_ (##car _e9005590067_)) + (_tl9005790072_ (##cdr _e9005590067_))) + (let ((_body90075_ _tl9005790072_)) + (if (gx#identifier-list? _body90075_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body89813_) + _body90075_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body89813_)) - (gx#stx-source _stx89789_))) - (_E8979289801_))))) - (_E8979289801_))))) - (_E8979189815_)))) + _body90075_)) + (gx#stx-source _stx90051_))) + (_E9005490063_))))) + (_E9005490063_))))) + (_E9005390077_)))) (define gx#core-bind-feature!__% - (lambda (_id89755_ _private?89756_ _phi89757_ _ctx89758_) + (lambda (_id90017_ _private?90018_ _phi90019_ _ctx90020_) (gx#core-bind-syntax!__% - _id89755_ - ((if _private?89756_ + _id90017_ + ((if _private?90018_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id89755_)) - _private?89756_ - _phi89757_ - _ctx89758_))) + (gx#stx-e _id90017_)) + _private?90018_ + _phi90019_ + _ctx90020_))) (define gx#core-bind-feature!__0 - (lambda (_id89763_) - (let* ((_private?89765_ '#f) - (_phi89767_ (gx#current-expander-phi)) - (_ctx89769_ (gx#current-expander-context))) + (lambda (_id90025_) + (let* ((_private?90027_ '#f) + (_phi90029_ (gx#current-expander-phi)) + (_ctx90031_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id89763_ - _private?89765_ - _phi89767_ - _ctx89769_)))) + _id90025_ + _private?90027_ + _phi90029_ + _ctx90031_)))) (define gx#core-bind-feature!__1 - (lambda (_id89771_ _private?89772_) - (let* ((_phi89774_ (gx#current-expander-phi)) - (_ctx89776_ (gx#current-expander-context))) + (lambda (_id90033_ _private?90034_) + (let* ((_phi90036_ (gx#current-expander-phi)) + (_ctx90038_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id89771_ - _private?89772_ - _phi89774_ - _ctx89776_)))) + _id90033_ + _private?90034_ + _phi90036_ + _ctx90038_)))) (define gx#core-bind-feature!__2 - (lambda (_id89778_ _private?89779_ _phi89780_) - (let ((_ctx89782_ (gx#current-expander-context))) + (lambda (_id90040_ _private?90041_ _phi90042_) + (let ((_ctx90044_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id89778_ - _private?89779_ - _phi89780_ - _ctx89782_)))) + _id90040_ + _private?90041_ + _phi90042_ + _ctx90044_)))) (define gx#core-bind-feature! - (lambda _g93275_ - (let ((_g93274_ (##length _g93275_))) - (cond ((##fx= _g93274_ 1) - (apply (lambda (_id89763_) - (gx#core-bind-feature!__0 _id89763_)) - _g93275_)) - ((##fx= _g93274_ 2) - (apply (lambda (_id89771_ _private?89772_) - (gx#core-bind-feature!__1 _id89771_ _private?89772_)) - _g93275_)) - ((##fx= _g93274_ 3) - (apply (lambda (_id89778_ _private?89779_ _phi89780_) + (lambda _g93537_ + (let ((_g93536_ (##length _g93537_))) + (cond ((##fx= _g93536_ 1) + (apply (lambda (_id90025_) + (gx#core-bind-feature!__0 _id90025_)) + _g93537_)) + ((##fx= _g93536_ 2) + (apply (lambda (_id90033_ _private?90034_) + (gx#core-bind-feature!__1 _id90033_ _private?90034_)) + _g93537_)) + ((##fx= _g93536_ 3) + (apply (lambda (_id90040_ _private?90041_ _phi90042_) (gx#core-bind-feature!__2 - _id89778_ - _private?89779_ - _phi89780_)) - _g93275_)) - ((##fx= _g93274_ 4) - (apply (lambda (_id89784_ - _private?89785_ - _phi89786_ - _ctx89787_) + _id90040_ + _private?90041_ + _phi90042_)) + _g93537_)) + ((##fx= _g93536_ 4) + (apply (lambda (_id90046_ + _private?90047_ + _phi90048_ + _ctx90049_) (gx#core-bind-feature!__% - _id89784_ - _private?89785_ - _phi89786_ - _ctx89787_)) - _g93275_)) + _id90046_ + _private?90047_ + _phi90048_ + _ctx90049_)) + _g93537_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g93275_)))))))) + _g93537_)))))))) diff --git a/src/bootstrap/gerbil/expander/module__1.scm b/src/bootstrap/gerbil/expander/module__1.scm index 96e275ff..aa8c3186 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]#_g93277_| + (define |gx[1]#_g93539_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93279_| + (define |gx[1]#_g93541_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g93281_| + (define |gx[1]#_g93543_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93288_| + (define |gx[1]#_g93550_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93291_| + (define |gx[1]#_g93553_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93294_| + (define |gx[1]#_g93556_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g93297_| + (define |gx[1]#_g93559_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93304_| + (define |gx[1]#_g93566_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93307_| + (define |gx[1]#_g93569_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93310_| + (define |gx[1]#_g93572_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93313_| + (define |gx[1]#_g93575_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93320_| + (define |gx[1]#_g93582_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93323_| + (define |gx[1]#_g93585_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93326_| + (define |gx[1]#_g93588_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g93329_| + (define |gx[1]#_g93591_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93336_| + (define |gx[1]#_g93598_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93339_| + (define |gx[1]#_g93601_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93342_| + (define |gx[1]#_g93604_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93345_| + (define |gx[1]#_g93607_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93347_| + (define |gx[1]#_g93609_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93349_| + (define |gx[1]#_g93611_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g93351_| + (define |gx[1]#_g93613_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93359_| + (define |gx[1]#_g93621_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93362_| + (define |gx[1]#_g93624_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g93365_| + (define |gx[1]#_g93627_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93368_| + (define |gx[1]#_g93630_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g93371_| + (define |gx[1]#_g93633_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93379_| + (define |gx[1]#_g93641_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93382_| + (define |gx[1]#_g93644_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93385_| + (define |gx[1]#_g93647_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93388_| + (define |gx[1]#_g93650_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93391_| + (define |gx[1]#_g93653_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93399_| + (define |gx[1]#_g93661_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93402_| + (define |gx[1]#_g93664_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g93405_| + (define |gx[1]#_g93667_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93408_| + (define |gx[1]#_g93670_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g93411_| + (define |gx[1]#_g93673_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93419_| + (define |gx[1]#_g93681_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93422_| + (define |gx[1]#_g93684_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93425_| + (define |gx[1]#_g93687_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93428_| + (define |gx[1]#_g93690_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93431_| + (define |gx[1]#_g93693_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93433_| + (define |gx[1]#_g93695_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93435_| + (define |gx[1]#_g93697_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g93437_| + (define |gx[1]#_g93699_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93443_| + (define |gx[1]#_g93705_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g93446_| + (define |gx[1]#_g93708_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93449_| + (define |gx[1]#_g93711_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93455_| + (define |gx[1]#_g93717_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93458_| + (define |gx[1]#_g93720_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93461_| + (define |gx[1]#_g93723_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93467_| + (define |gx[1]#_g93729_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g93470_| + (define |gx[1]#_g93732_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93473_| + (define |gx[1]#_g93735_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93479_| + (define |gx[1]#_g93741_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93482_| + (define |gx[1]#_g93744_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93485_| + (define |gx[1]#_g93747_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93487_| + (define |gx[1]#_g93749_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93489_| + (define |gx[1]#_g93751_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g93491_| + (define |gx[1]#_g93753_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93497_| + (define |gx[1]#_g93759_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g93500_| + (define |gx[1]#_g93762_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93503_| + (define |gx[1]#_g93765_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93509_| + (define |gx[1]#_g93771_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93512_| + (define |gx[1]#_g93774_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93515_| + (define |gx[1]#_g93777_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93521_| + (define |gx[1]#_g93783_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g93524_| + (define |gx[1]#_g93786_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93527_| + (define |gx[1]#_g93789_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g93533_| + (define |gx[1]#_g93795_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93536_| + (define |gx[1]#_g93798_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93539_| + (define |gx[1]#_g93801_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93542_| + (define |gx[1]#_g93804_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93544_| + (define |gx[1]#_g93806_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93546_| + (define |gx[1]#_g93808_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93548_| + (define |gx[1]#_g93810_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93554_| + (define |gx[1]#_g93816_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93557_| + (define |gx[1]#_g93819_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93560_| + (define |gx[1]#_g93822_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93566_| + (define |gx[1]#_g93828_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93569_| + (define |gx[1]#_g93831_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93572_| + (define |gx[1]#_g93834_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93578_| + (define |gx[1]#_g93840_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93581_| + (define |gx[1]#_g93843_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93584_| + (define |gx[1]#_g93846_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93590_| + (define |gx[1]#_g93852_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93593_| + (define |gx[1]#_g93855_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93596_| + (define |gx[1]#_g93858_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93600_| + (define |gx[1]#_g93862_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93602_| + (define |gx[1]#_g93864_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93604_| + (define |gx[1]#_g93866_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93610_| + (define |gx[1]#_g93872_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93613_| + (define |gx[1]#_g93875_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93616_| + (define |gx[1]#_g93878_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93622_| + (define |gx[1]#_g93884_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93625_| + (define |gx[1]#_g93887_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93628_| + (define |gx[1]#_g93890_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93634_| + (define |gx[1]#_g93896_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93637_| + (define |gx[1]#_g93899_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93640_| + (define |gx[1]#_g93902_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93646_| + (define |gx[1]#_g93908_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93649_| + (define |gx[1]#_g93911_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93652_| + (define |gx[1]#_g93914_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93656_| + (define |gx[1]#_g93918_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93658_| + (define |gx[1]#_g93920_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93660_| + (define |gx[1]#_g93922_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g93662_| + (define |gx[1]#_g93924_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g93664_| + (define |gx[1]#_g93926_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g93670_| + (define |gx[1]#_g93932_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93673_| + (define |gx[1]#_g93935_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93676_| + (define |gx[1]#_g93938_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93682_| + (define |gx[1]#_g93944_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93685_| + (define |gx[1]#_g93947_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93688_| + (define |gx[1]#_g93950_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93694_| + (define |gx[1]#_g93956_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g93697_| + (define |gx[1]#_g93959_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g93700_| + (define |gx[1]#_g93962_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g93706_| + (define |gx[1]#_g93968_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93709_| + (define |gx[1]#_g93971_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g93712_| + (define |gx[1]#_g93974_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj93230 + (let ((__obj93492 (let () (declare (not safe)) (##structure @@ -865,7 +865,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93230 + __obj93492 'gx#module-import::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -873,7 +873,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93230 + __obj93492 'module-import '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -881,7 +881,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93230 + __obj93492 '(source name phi weak?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -889,7 +889,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93230 + __obj93492 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -897,7 +897,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93230 + __obj93492 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -905,7 +905,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93230 + __obj93492 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -913,7 +913,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93230 + __obj93492 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -921,178 +921,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93230 + __obj93492 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93276 |gx[1]#_g93277_|)) + (let ((__tmp93538 |gx[1]#_g93539_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93230 - __tmp93276 + __obj93492 + __tmp93538 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93278 |gx[1]#_g93279_|)) + (let ((__tmp93540 |gx[1]#_g93541_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93230 - __tmp93278 + __obj93492 + __tmp93540 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93280 |gx[1]#_g93281_|)) + (let ((__tmp93542 |gx[1]#_g93543_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93230 - __tmp93280 + __obj93492 + __tmp93542 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93282 - (let ((__tmp93295 - (let ((__tmp93296 |gx[1]#_g93297_|)) + (let ((__tmp93544 + (let ((__tmp93557 + (let ((__tmp93558 |gx[1]#_g93559_|)) (declare (not safe)) - (cons 'source __tmp93296))) - (__tmp93283 - (let ((__tmp93292 - (let ((__tmp93293 |gx[1]#_g93294_|)) + (cons 'source __tmp93558))) + (__tmp93545 + (let ((__tmp93554 + (let ((__tmp93555 |gx[1]#_g93556_|)) (declare (not safe)) - (cons 'name __tmp93293))) - (__tmp93284 - (let ((__tmp93289 - (let ((__tmp93290 |gx[1]#_g93291_|)) + (cons 'name __tmp93555))) + (__tmp93546 + (let ((__tmp93551 + (let ((__tmp93552 |gx[1]#_g93553_|)) (declare (not safe)) - (cons 'phi __tmp93290))) - (__tmp93285 - (let ((__tmp93286 - (let ((__tmp93287 |gx[1]#_g93288_|)) + (cons 'phi __tmp93552))) + (__tmp93547 + (let ((__tmp93548 + (let ((__tmp93549 |gx[1]#_g93550_|)) (declare (not safe)) - (cons 'weak? __tmp93287)))) + (cons 'weak? __tmp93549)))) (declare (not safe)) - (cons __tmp93286 '())))) + (cons __tmp93548 '())))) (declare (not safe)) - (cons __tmp93289 __tmp93285)))) + (cons __tmp93551 __tmp93547)))) (declare (not safe)) - (cons __tmp93292 __tmp93284)))) + (cons __tmp93554 __tmp93546)))) (declare (not safe)) - (cons __tmp93295 __tmp93283)))) + (cons __tmp93557 __tmp93545)))) (declare (not safe)) (##unchecked-structure-set! - __obj93230 - __tmp93282 + __obj93492 + __tmp93544 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93298 - (let ((__tmp93311 - (let ((__tmp93312 |gx[1]#_g93313_|)) + (let ((__tmp93560 + (let ((__tmp93573 + (let ((__tmp93574 |gx[1]#_g93575_|)) (declare (not safe)) - (cons 'source __tmp93312))) - (__tmp93299 - (let ((__tmp93308 - (let ((__tmp93309 |gx[1]#_g93310_|)) + (cons 'source __tmp93574))) + (__tmp93561 + (let ((__tmp93570 + (let ((__tmp93571 |gx[1]#_g93572_|)) (declare (not safe)) - (cons 'name __tmp93309))) - (__tmp93300 - (let ((__tmp93305 - (let ((__tmp93306 |gx[1]#_g93307_|)) + (cons 'name __tmp93571))) + (__tmp93562 + (let ((__tmp93567 + (let ((__tmp93568 |gx[1]#_g93569_|)) (declare (not safe)) - (cons 'phi __tmp93306))) - (__tmp93301 - (let ((__tmp93302 - (let ((__tmp93303 |gx[1]#_g93304_|)) + (cons 'phi __tmp93568))) + (__tmp93563 + (let ((__tmp93564 + (let ((__tmp93565 |gx[1]#_g93566_|)) (declare (not safe)) - (cons 'weak? __tmp93303)))) + (cons 'weak? __tmp93565)))) (declare (not safe)) - (cons __tmp93302 '())))) + (cons __tmp93564 '())))) (declare (not safe)) - (cons __tmp93305 __tmp93301)))) + (cons __tmp93567 __tmp93563)))) (declare (not safe)) - (cons __tmp93308 __tmp93300)))) + (cons __tmp93570 __tmp93562)))) (declare (not safe)) - (cons __tmp93311 __tmp93299)))) + (cons __tmp93573 __tmp93561)))) (declare (not safe)) (##unchecked-structure-set! - __obj93230 - __tmp93298 + __obj93492 + __tmp93560 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93314 - (let ((__tmp93327 - (let ((__tmp93328 |gx[1]#_g93329_|)) + (let ((__tmp93576 + (let ((__tmp93589 + (let ((__tmp93590 |gx[1]#_g93591_|)) (declare (not safe)) - (cons 'source __tmp93328))) - (__tmp93315 - (let ((__tmp93324 - (let ((__tmp93325 |gx[1]#_g93326_|)) + (cons 'source __tmp93590))) + (__tmp93577 + (let ((__tmp93586 + (let ((__tmp93587 |gx[1]#_g93588_|)) (declare (not safe)) - (cons 'name __tmp93325))) - (__tmp93316 - (let ((__tmp93321 - (let ((__tmp93322 |gx[1]#_g93323_|)) + (cons 'name __tmp93587))) + (__tmp93578 + (let ((__tmp93583 + (let ((__tmp93584 |gx[1]#_g93585_|)) (declare (not safe)) - (cons 'phi __tmp93322))) - (__tmp93317 - (let ((__tmp93318 - (let ((__tmp93319 |gx[1]#_g93320_|)) + (cons 'phi __tmp93584))) + (__tmp93579 + (let ((__tmp93580 + (let ((__tmp93581 |gx[1]#_g93582_|)) (declare (not safe)) - (cons 'weak? __tmp93319)))) + (cons 'weak? __tmp93581)))) (declare (not safe)) - (cons __tmp93318 '())))) + (cons __tmp93580 '())))) (declare (not safe)) - (cons __tmp93321 __tmp93317)))) + (cons __tmp93583 __tmp93579)))) (declare (not safe)) - (cons __tmp93324 __tmp93316)))) + (cons __tmp93586 __tmp93578)))) (declare (not safe)) - (cons __tmp93327 __tmp93315)))) + (cons __tmp93589 __tmp93577)))) (declare (not safe)) (##unchecked-structure-set! - __obj93230 - __tmp93314 + __obj93492 + __tmp93576 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93330 - (let ((__tmp93343 - (let ((__tmp93344 |gx[1]#_g93345_|)) + (let ((__tmp93592 + (let ((__tmp93605 + (let ((__tmp93606 |gx[1]#_g93607_|)) (declare (not safe)) - (cons 'source __tmp93344))) - (__tmp93331 - (let ((__tmp93340 - (let ((__tmp93341 |gx[1]#_g93342_|)) + (cons 'source __tmp93606))) + (__tmp93593 + (let ((__tmp93602 + (let ((__tmp93603 |gx[1]#_g93604_|)) (declare (not safe)) - (cons 'name __tmp93341))) - (__tmp93332 - (let ((__tmp93337 - (let ((__tmp93338 |gx[1]#_g93339_|)) + (cons 'name __tmp93603))) + (__tmp93594 + (let ((__tmp93599 + (let ((__tmp93600 |gx[1]#_g93601_|)) (declare (not safe)) - (cons 'phi __tmp93338))) - (__tmp93333 - (let ((__tmp93334 - (let ((__tmp93335 |gx[1]#_g93336_|)) + (cons 'phi __tmp93600))) + (__tmp93595 + (let ((__tmp93596 + (let ((__tmp93597 |gx[1]#_g93598_|)) (declare (not safe)) - (cons 'weak? __tmp93335)))) + (cons 'weak? __tmp93597)))) (declare (not safe)) - (cons __tmp93334 '())))) + (cons __tmp93596 '())))) (declare (not safe)) - (cons __tmp93337 __tmp93333)))) + (cons __tmp93599 __tmp93595)))) (declare (not safe)) - (cons __tmp93340 __tmp93332)))) + (cons __tmp93602 __tmp93594)))) (declare (not safe)) - (cons __tmp93343 __tmp93331)))) + (cons __tmp93605 __tmp93593)))) (declare (not safe)) (##unchecked-structure-set! - __obj93230 - __tmp93330 + __obj93492 + __tmp93592 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93230)) + __obj93492)) (define |gx[:0:]#module-export| - (let ((__obj93231 + (let ((__obj93493 (let () (declare (not safe)) (##structure @@ -1115,7 +1115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93231 + __obj93493 'gx#module-export::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1123,7 +1123,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93231 + __obj93493 'module-export '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1131,7 +1131,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93231 + __obj93493 '(context key phi name weak?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1139,7 +1139,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93231 + __obj93493 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1147,7 +1147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93231 + __obj93493 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1155,7 +1155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93231 + __obj93493 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1163,7 +1163,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93231 + __obj93493 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1171,210 +1171,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93231 + __obj93493 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93346 |gx[1]#_g93347_|)) + (let ((__tmp93608 |gx[1]#_g93609_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93231 - __tmp93346 + __obj93493 + __tmp93608 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93348 |gx[1]#_g93349_|)) + (let ((__tmp93610 |gx[1]#_g93611_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93231 - __tmp93348 + __obj93493 + __tmp93610 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93350 |gx[1]#_g93351_|)) + (let ((__tmp93612 |gx[1]#_g93613_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93231 - __tmp93350 + __obj93493 + __tmp93612 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93352 - (let ((__tmp93369 - (let ((__tmp93370 |gx[1]#_g93371_|)) + (let ((__tmp93614 + (let ((__tmp93631 + (let ((__tmp93632 |gx[1]#_g93633_|)) (declare (not safe)) - (cons 'context __tmp93370))) - (__tmp93353 - (let ((__tmp93366 - (let ((__tmp93367 |gx[1]#_g93368_|)) + (cons 'context __tmp93632))) + (__tmp93615 + (let ((__tmp93628 + (let ((__tmp93629 |gx[1]#_g93630_|)) (declare (not safe)) - (cons 'key __tmp93367))) - (__tmp93354 - (let ((__tmp93363 - (let ((__tmp93364 |gx[1]#_g93365_|)) + (cons 'key __tmp93629))) + (__tmp93616 + (let ((__tmp93625 + (let ((__tmp93626 |gx[1]#_g93627_|)) (declare (not safe)) - (cons 'phi __tmp93364))) - (__tmp93355 - (let ((__tmp93360 - (let ((__tmp93361 |gx[1]#_g93362_|)) + (cons 'phi __tmp93626))) + (__tmp93617 + (let ((__tmp93622 + (let ((__tmp93623 |gx[1]#_g93624_|)) (declare (not safe)) - (cons 'name __tmp93361))) - (__tmp93356 - (let ((__tmp93357 - (let ((__tmp93358 - |gx[1]#_g93359_|)) + (cons 'name __tmp93623))) + (__tmp93618 + (let ((__tmp93619 + (let ((__tmp93620 + |gx[1]#_g93621_|)) (declare (not safe)) - (cons 'weak? __tmp93358)))) + (cons 'weak? __tmp93620)))) (declare (not safe)) - (cons __tmp93357 '())))) + (cons __tmp93619 '())))) (declare (not safe)) - (cons __tmp93360 __tmp93356)))) + (cons __tmp93622 __tmp93618)))) (declare (not safe)) - (cons __tmp93363 __tmp93355)))) + (cons __tmp93625 __tmp93617)))) (declare (not safe)) - (cons __tmp93366 __tmp93354)))) + (cons __tmp93628 __tmp93616)))) (declare (not safe)) - (cons __tmp93369 __tmp93353)))) + (cons __tmp93631 __tmp93615)))) (declare (not safe)) (##unchecked-structure-set! - __obj93231 - __tmp93352 + __obj93493 + __tmp93614 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93372 - (let ((__tmp93389 - (let ((__tmp93390 |gx[1]#_g93391_|)) + (let ((__tmp93634 + (let ((__tmp93651 + (let ((__tmp93652 |gx[1]#_g93653_|)) (declare (not safe)) - (cons 'context __tmp93390))) - (__tmp93373 - (let ((__tmp93386 - (let ((__tmp93387 |gx[1]#_g93388_|)) + (cons 'context __tmp93652))) + (__tmp93635 + (let ((__tmp93648 + (let ((__tmp93649 |gx[1]#_g93650_|)) (declare (not safe)) - (cons 'key __tmp93387))) - (__tmp93374 - (let ((__tmp93383 - (let ((__tmp93384 |gx[1]#_g93385_|)) + (cons 'key __tmp93649))) + (__tmp93636 + (let ((__tmp93645 + (let ((__tmp93646 |gx[1]#_g93647_|)) (declare (not safe)) - (cons 'phi __tmp93384))) - (__tmp93375 - (let ((__tmp93380 - (let ((__tmp93381 |gx[1]#_g93382_|)) + (cons 'phi __tmp93646))) + (__tmp93637 + (let ((__tmp93642 + (let ((__tmp93643 |gx[1]#_g93644_|)) (declare (not safe)) - (cons 'name __tmp93381))) - (__tmp93376 - (let ((__tmp93377 - (let ((__tmp93378 - |gx[1]#_g93379_|)) + (cons 'name __tmp93643))) + (__tmp93638 + (let ((__tmp93639 + (let ((__tmp93640 + |gx[1]#_g93641_|)) (declare (not safe)) - (cons 'weak? __tmp93378)))) + (cons 'weak? __tmp93640)))) (declare (not safe)) - (cons __tmp93377 '())))) + (cons __tmp93639 '())))) (declare (not safe)) - (cons __tmp93380 __tmp93376)))) + (cons __tmp93642 __tmp93638)))) (declare (not safe)) - (cons __tmp93383 __tmp93375)))) + (cons __tmp93645 __tmp93637)))) (declare (not safe)) - (cons __tmp93386 __tmp93374)))) + (cons __tmp93648 __tmp93636)))) (declare (not safe)) - (cons __tmp93389 __tmp93373)))) + (cons __tmp93651 __tmp93635)))) (declare (not safe)) (##unchecked-structure-set! - __obj93231 - __tmp93372 + __obj93493 + __tmp93634 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93392 - (let ((__tmp93409 - (let ((__tmp93410 |gx[1]#_g93411_|)) + (let ((__tmp93654 + (let ((__tmp93671 + (let ((__tmp93672 |gx[1]#_g93673_|)) (declare (not safe)) - (cons 'context __tmp93410))) - (__tmp93393 - (let ((__tmp93406 - (let ((__tmp93407 |gx[1]#_g93408_|)) + (cons 'context __tmp93672))) + (__tmp93655 + (let ((__tmp93668 + (let ((__tmp93669 |gx[1]#_g93670_|)) (declare (not safe)) - (cons 'key __tmp93407))) - (__tmp93394 - (let ((__tmp93403 - (let ((__tmp93404 |gx[1]#_g93405_|)) + (cons 'key __tmp93669))) + (__tmp93656 + (let ((__tmp93665 + (let ((__tmp93666 |gx[1]#_g93667_|)) (declare (not safe)) - (cons 'phi __tmp93404))) - (__tmp93395 - (let ((__tmp93400 - (let ((__tmp93401 |gx[1]#_g93402_|)) + (cons 'phi __tmp93666))) + (__tmp93657 + (let ((__tmp93662 + (let ((__tmp93663 |gx[1]#_g93664_|)) (declare (not safe)) - (cons 'name __tmp93401))) - (__tmp93396 - (let ((__tmp93397 - (let ((__tmp93398 - |gx[1]#_g93399_|)) + (cons 'name __tmp93663))) + (__tmp93658 + (let ((__tmp93659 + (let ((__tmp93660 + |gx[1]#_g93661_|)) (declare (not safe)) - (cons 'weak? __tmp93398)))) + (cons 'weak? __tmp93660)))) (declare (not safe)) - (cons __tmp93397 '())))) + (cons __tmp93659 '())))) (declare (not safe)) - (cons __tmp93400 __tmp93396)))) + (cons __tmp93662 __tmp93658)))) (declare (not safe)) - (cons __tmp93403 __tmp93395)))) + (cons __tmp93665 __tmp93657)))) (declare (not safe)) - (cons __tmp93406 __tmp93394)))) + (cons __tmp93668 __tmp93656)))) (declare (not safe)) - (cons __tmp93409 __tmp93393)))) + (cons __tmp93671 __tmp93655)))) (declare (not safe)) (##unchecked-structure-set! - __obj93231 - __tmp93392 + __obj93493 + __tmp93654 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93412 - (let ((__tmp93429 - (let ((__tmp93430 |gx[1]#_g93431_|)) + (let ((__tmp93674 + (let ((__tmp93691 + (let ((__tmp93692 |gx[1]#_g93693_|)) (declare (not safe)) - (cons 'context __tmp93430))) - (__tmp93413 - (let ((__tmp93426 - (let ((__tmp93427 |gx[1]#_g93428_|)) + (cons 'context __tmp93692))) + (__tmp93675 + (let ((__tmp93688 + (let ((__tmp93689 |gx[1]#_g93690_|)) (declare (not safe)) - (cons 'key __tmp93427))) - (__tmp93414 - (let ((__tmp93423 - (let ((__tmp93424 |gx[1]#_g93425_|)) + (cons 'key __tmp93689))) + (__tmp93676 + (let ((__tmp93685 + (let ((__tmp93686 |gx[1]#_g93687_|)) (declare (not safe)) - (cons 'phi __tmp93424))) - (__tmp93415 - (let ((__tmp93420 - (let ((__tmp93421 |gx[1]#_g93422_|)) + (cons 'phi __tmp93686))) + (__tmp93677 + (let ((__tmp93682 + (let ((__tmp93683 |gx[1]#_g93684_|)) (declare (not safe)) - (cons 'name __tmp93421))) - (__tmp93416 - (let ((__tmp93417 - (let ((__tmp93418 - |gx[1]#_g93419_|)) + (cons 'name __tmp93683))) + (__tmp93678 + (let ((__tmp93679 + (let ((__tmp93680 + |gx[1]#_g93681_|)) (declare (not safe)) - (cons 'weak? __tmp93418)))) + (cons 'weak? __tmp93680)))) (declare (not safe)) - (cons __tmp93417 '())))) + (cons __tmp93679 '())))) (declare (not safe)) - (cons __tmp93420 __tmp93416)))) + (cons __tmp93682 __tmp93678)))) (declare (not safe)) - (cons __tmp93423 __tmp93415)))) + (cons __tmp93685 __tmp93677)))) (declare (not safe)) - (cons __tmp93426 __tmp93414)))) + (cons __tmp93688 __tmp93676)))) (declare (not safe)) - (cons __tmp93429 __tmp93413)))) + (cons __tmp93691 __tmp93675)))) (declare (not safe)) (##unchecked-structure-set! - __obj93231 - __tmp93412 + __obj93493 + __tmp93674 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93231)) + __obj93493)) (define |gx[:0:]#import-set| - (let ((__obj93232 + (let ((__obj93494 (let () (declare (not safe)) (##structure @@ -1397,7 +1397,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93232 + __obj93494 'gx#import-set::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1405,7 +1405,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93232 + __obj93494 'import-set '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1413,7 +1413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93232 + __obj93494 '(source phi imports) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1421,7 +1421,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93232 + __obj93494 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1429,7 +1429,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93232 + __obj93494 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1437,7 +1437,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93232 + __obj93494 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1445,7 +1445,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93232 + __obj93494 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1453,150 +1453,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93232 + __obj93494 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93432 |gx[1]#_g93433_|)) + (let ((__tmp93694 |gx[1]#_g93695_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93232 - __tmp93432 + __obj93494 + __tmp93694 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93434 |gx[1]#_g93435_|)) + (let ((__tmp93696 |gx[1]#_g93697_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93232 - __tmp93434 + __obj93494 + __tmp93696 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93436 |gx[1]#_g93437_|)) + (let ((__tmp93698 |gx[1]#_g93699_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93232 - __tmp93436 + __obj93494 + __tmp93698 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93438 - (let ((__tmp93447 - (let ((__tmp93448 |gx[1]#_g93449_|)) + (let ((__tmp93700 + (let ((__tmp93709 + (let ((__tmp93710 |gx[1]#_g93711_|)) (declare (not safe)) - (cons 'source __tmp93448))) - (__tmp93439 - (let ((__tmp93444 - (let ((__tmp93445 |gx[1]#_g93446_|)) + (cons 'source __tmp93710))) + (__tmp93701 + (let ((__tmp93706 + (let ((__tmp93707 |gx[1]#_g93708_|)) (declare (not safe)) - (cons 'phi __tmp93445))) - (__tmp93440 - (let ((__tmp93441 - (let ((__tmp93442 |gx[1]#_g93443_|)) + (cons 'phi __tmp93707))) + (__tmp93702 + (let ((__tmp93703 + (let ((__tmp93704 |gx[1]#_g93705_|)) (declare (not safe)) - (cons 'imports __tmp93442)))) + (cons 'imports __tmp93704)))) (declare (not safe)) - (cons __tmp93441 '())))) + (cons __tmp93703 '())))) (declare (not safe)) - (cons __tmp93444 __tmp93440)))) + (cons __tmp93706 __tmp93702)))) (declare (not safe)) - (cons __tmp93447 __tmp93439)))) + (cons __tmp93709 __tmp93701)))) (declare (not safe)) (##unchecked-structure-set! - __obj93232 - __tmp93438 + __obj93494 + __tmp93700 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93450 - (let ((__tmp93459 - (let ((__tmp93460 |gx[1]#_g93461_|)) + (let ((__tmp93712 + (let ((__tmp93721 + (let ((__tmp93722 |gx[1]#_g93723_|)) (declare (not safe)) - (cons 'source __tmp93460))) - (__tmp93451 - (let ((__tmp93456 - (let ((__tmp93457 |gx[1]#_g93458_|)) + (cons 'source __tmp93722))) + (__tmp93713 + (let ((__tmp93718 + (let ((__tmp93719 |gx[1]#_g93720_|)) (declare (not safe)) - (cons 'phi __tmp93457))) - (__tmp93452 - (let ((__tmp93453 - (let ((__tmp93454 |gx[1]#_g93455_|)) + (cons 'phi __tmp93719))) + (__tmp93714 + (let ((__tmp93715 + (let ((__tmp93716 |gx[1]#_g93717_|)) (declare (not safe)) - (cons 'imports __tmp93454)))) + (cons 'imports __tmp93716)))) (declare (not safe)) - (cons __tmp93453 '())))) + (cons __tmp93715 '())))) (declare (not safe)) - (cons __tmp93456 __tmp93452)))) + (cons __tmp93718 __tmp93714)))) (declare (not safe)) - (cons __tmp93459 __tmp93451)))) + (cons __tmp93721 __tmp93713)))) (declare (not safe)) (##unchecked-structure-set! - __obj93232 - __tmp93450 + __obj93494 + __tmp93712 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93462 - (let ((__tmp93471 - (let ((__tmp93472 |gx[1]#_g93473_|)) + (let ((__tmp93724 + (let ((__tmp93733 + (let ((__tmp93734 |gx[1]#_g93735_|)) (declare (not safe)) - (cons 'source __tmp93472))) - (__tmp93463 - (let ((__tmp93468 - (let ((__tmp93469 |gx[1]#_g93470_|)) + (cons 'source __tmp93734))) + (__tmp93725 + (let ((__tmp93730 + (let ((__tmp93731 |gx[1]#_g93732_|)) (declare (not safe)) - (cons 'phi __tmp93469))) - (__tmp93464 - (let ((__tmp93465 - (let ((__tmp93466 |gx[1]#_g93467_|)) + (cons 'phi __tmp93731))) + (__tmp93726 + (let ((__tmp93727 + (let ((__tmp93728 |gx[1]#_g93729_|)) (declare (not safe)) - (cons 'imports __tmp93466)))) + (cons 'imports __tmp93728)))) (declare (not safe)) - (cons __tmp93465 '())))) + (cons __tmp93727 '())))) (declare (not safe)) - (cons __tmp93468 __tmp93464)))) + (cons __tmp93730 __tmp93726)))) (declare (not safe)) - (cons __tmp93471 __tmp93463)))) + (cons __tmp93733 __tmp93725)))) (declare (not safe)) (##unchecked-structure-set! - __obj93232 - __tmp93462 + __obj93494 + __tmp93724 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93474 - (let ((__tmp93483 - (let ((__tmp93484 |gx[1]#_g93485_|)) + (let ((__tmp93736 + (let ((__tmp93745 + (let ((__tmp93746 |gx[1]#_g93747_|)) (declare (not safe)) - (cons 'source __tmp93484))) - (__tmp93475 - (let ((__tmp93480 - (let ((__tmp93481 |gx[1]#_g93482_|)) + (cons 'source __tmp93746))) + (__tmp93737 + (let ((__tmp93742 + (let ((__tmp93743 |gx[1]#_g93744_|)) (declare (not safe)) - (cons 'phi __tmp93481))) - (__tmp93476 - (let ((__tmp93477 - (let ((__tmp93478 |gx[1]#_g93479_|)) + (cons 'phi __tmp93743))) + (__tmp93738 + (let ((__tmp93739 + (let ((__tmp93740 |gx[1]#_g93741_|)) (declare (not safe)) - (cons 'imports __tmp93478)))) + (cons 'imports __tmp93740)))) (declare (not safe)) - (cons __tmp93477 '())))) + (cons __tmp93739 '())))) (declare (not safe)) - (cons __tmp93480 __tmp93476)))) + (cons __tmp93742 __tmp93738)))) (declare (not safe)) - (cons __tmp93483 __tmp93475)))) + (cons __tmp93745 __tmp93737)))) (declare (not safe)) (##unchecked-structure-set! - __obj93232 - __tmp93474 + __obj93494 + __tmp93736 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93232)) + __obj93494)) (define |gx[:0:]#export-set| - (let ((__obj93233 + (let ((__obj93495 (let () (declare (not safe)) (##structure @@ -1619,7 +1619,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93495 'gx#export-set::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1627,7 +1627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93495 'export-set '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1635,7 +1635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93495 '(source phi exports) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1643,7 +1643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93495 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1651,7 +1651,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93495 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1659,7 +1659,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93495 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1667,7 +1667,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93495 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1675,150 +1675,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93233 + __obj93495 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93486 |gx[1]#_g93487_|)) + (let ((__tmp93748 |gx[1]#_g93749_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93486 + __obj93495 + __tmp93748 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93488 |gx[1]#_g93489_|)) + (let ((__tmp93750 |gx[1]#_g93751_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93488 + __obj93495 + __tmp93750 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93490 |gx[1]#_g93491_|)) + (let ((__tmp93752 |gx[1]#_g93753_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93490 + __obj93495 + __tmp93752 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93492 - (let ((__tmp93501 - (let ((__tmp93502 |gx[1]#_g93503_|)) + (let ((__tmp93754 + (let ((__tmp93763 + (let ((__tmp93764 |gx[1]#_g93765_|)) (declare (not safe)) - (cons 'source __tmp93502))) - (__tmp93493 - (let ((__tmp93498 - (let ((__tmp93499 |gx[1]#_g93500_|)) + (cons 'source __tmp93764))) + (__tmp93755 + (let ((__tmp93760 + (let ((__tmp93761 |gx[1]#_g93762_|)) (declare (not safe)) - (cons 'phi __tmp93499))) - (__tmp93494 - (let ((__tmp93495 - (let ((__tmp93496 |gx[1]#_g93497_|)) + (cons 'phi __tmp93761))) + (__tmp93756 + (let ((__tmp93757 + (let ((__tmp93758 |gx[1]#_g93759_|)) (declare (not safe)) - (cons 'exports __tmp93496)))) + (cons 'exports __tmp93758)))) (declare (not safe)) - (cons __tmp93495 '())))) + (cons __tmp93757 '())))) (declare (not safe)) - (cons __tmp93498 __tmp93494)))) + (cons __tmp93760 __tmp93756)))) (declare (not safe)) - (cons __tmp93501 __tmp93493)))) + (cons __tmp93763 __tmp93755)))) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93492 + __obj93495 + __tmp93754 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93504 - (let ((__tmp93513 - (let ((__tmp93514 |gx[1]#_g93515_|)) + (let ((__tmp93766 + (let ((__tmp93775 + (let ((__tmp93776 |gx[1]#_g93777_|)) (declare (not safe)) - (cons 'source __tmp93514))) - (__tmp93505 - (let ((__tmp93510 - (let ((__tmp93511 |gx[1]#_g93512_|)) + (cons 'source __tmp93776))) + (__tmp93767 + (let ((__tmp93772 + (let ((__tmp93773 |gx[1]#_g93774_|)) (declare (not safe)) - (cons 'phi __tmp93511))) - (__tmp93506 - (let ((__tmp93507 - (let ((__tmp93508 |gx[1]#_g93509_|)) + (cons 'phi __tmp93773))) + (__tmp93768 + (let ((__tmp93769 + (let ((__tmp93770 |gx[1]#_g93771_|)) (declare (not safe)) - (cons 'exports __tmp93508)))) + (cons 'exports __tmp93770)))) (declare (not safe)) - (cons __tmp93507 '())))) + (cons __tmp93769 '())))) (declare (not safe)) - (cons __tmp93510 __tmp93506)))) + (cons __tmp93772 __tmp93768)))) (declare (not safe)) - (cons __tmp93513 __tmp93505)))) + (cons __tmp93775 __tmp93767)))) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93504 + __obj93495 + __tmp93766 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93516 - (let ((__tmp93525 - (let ((__tmp93526 |gx[1]#_g93527_|)) + (let ((__tmp93778 + (let ((__tmp93787 + (let ((__tmp93788 |gx[1]#_g93789_|)) (declare (not safe)) - (cons 'source __tmp93526))) - (__tmp93517 - (let ((__tmp93522 - (let ((__tmp93523 |gx[1]#_g93524_|)) + (cons 'source __tmp93788))) + (__tmp93779 + (let ((__tmp93784 + (let ((__tmp93785 |gx[1]#_g93786_|)) (declare (not safe)) - (cons 'phi __tmp93523))) - (__tmp93518 - (let ((__tmp93519 - (let ((__tmp93520 |gx[1]#_g93521_|)) + (cons 'phi __tmp93785))) + (__tmp93780 + (let ((__tmp93781 + (let ((__tmp93782 |gx[1]#_g93783_|)) (declare (not safe)) - (cons 'exports __tmp93520)))) + (cons 'exports __tmp93782)))) (declare (not safe)) - (cons __tmp93519 '())))) + (cons __tmp93781 '())))) (declare (not safe)) - (cons __tmp93522 __tmp93518)))) + (cons __tmp93784 __tmp93780)))) (declare (not safe)) - (cons __tmp93525 __tmp93517)))) + (cons __tmp93787 __tmp93779)))) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93516 + __obj93495 + __tmp93778 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93528 - (let ((__tmp93537 - (let ((__tmp93538 |gx[1]#_g93539_|)) + (let ((__tmp93790 + (let ((__tmp93799 + (let ((__tmp93800 |gx[1]#_g93801_|)) (declare (not safe)) - (cons 'source __tmp93538))) - (__tmp93529 - (let ((__tmp93534 - (let ((__tmp93535 |gx[1]#_g93536_|)) + (cons 'source __tmp93800))) + (__tmp93791 + (let ((__tmp93796 + (let ((__tmp93797 |gx[1]#_g93798_|)) (declare (not safe)) - (cons 'phi __tmp93535))) - (__tmp93530 - (let ((__tmp93531 - (let ((__tmp93532 |gx[1]#_g93533_|)) + (cons 'phi __tmp93797))) + (__tmp93792 + (let ((__tmp93793 + (let ((__tmp93794 |gx[1]#_g93795_|)) (declare (not safe)) - (cons 'exports __tmp93532)))) + (cons 'exports __tmp93794)))) (declare (not safe)) - (cons __tmp93531 '())))) + (cons __tmp93793 '())))) (declare (not safe)) - (cons __tmp93534 __tmp93530)))) + (cons __tmp93796 __tmp93792)))) (declare (not safe)) - (cons __tmp93537 __tmp93529)))) + (cons __tmp93799 __tmp93791)))) (declare (not safe)) (##unchecked-structure-set! - __obj93233 - __tmp93528 + __obj93495 + __tmp93790 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93233)) + __obj93495)) (define |gx[:0:]#import-expander| - (let ((__obj93234 + (let ((__obj93496 (let () (declare (not safe)) (##structure @@ -1841,7 +1841,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93496 'gx#import-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1849,7 +1849,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93496 'import-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1857,26 +1857,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93496 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93540 - (let ((__tmp93541 |gx[1]#_g93542_|)) + (let ((__tmp93802 + (let ((__tmp93803 |gx[1]#_g93804_|)) (declare (not safe)) - (cons __tmp93541 '())))) + (cons __tmp93803 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93540 + __obj93496 + __tmp93802 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93496 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1884,7 +1884,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93496 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1892,7 +1892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93496 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1900,150 +1900,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93234 + __obj93496 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93543 |gx[1]#_g93544_|)) + (let ((__tmp93805 |gx[1]#_g93806_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93543 + __obj93496 + __tmp93805 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93545 |gx[1]#_g93546_|)) + (let ((__tmp93807 |gx[1]#_g93808_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93545 + __obj93496 + __tmp93807 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93547 |gx[1]#_g93548_|)) + (let ((__tmp93809 |gx[1]#_g93810_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93547 + __obj93496 + __tmp93809 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93549 - (let ((__tmp93558 - (let ((__tmp93559 |gx[1]#_g93560_|)) + (let ((__tmp93811 + (let ((__tmp93820 + (let ((__tmp93821 |gx[1]#_g93822_|)) (declare (not safe)) - (cons 'context __tmp93559))) - (__tmp93550 - (let ((__tmp93555 - (let ((__tmp93556 |gx[1]#_g93557_|)) + (cons 'context __tmp93821))) + (__tmp93812 + (let ((__tmp93817 + (let ((__tmp93818 |gx[1]#_g93819_|)) (declare (not safe)) - (cons 'phi __tmp93556))) - (__tmp93551 - (let ((__tmp93552 - (let ((__tmp93553 |gx[1]#_g93554_|)) + (cons 'phi __tmp93818))) + (__tmp93813 + (let ((__tmp93814 + (let ((__tmp93815 |gx[1]#_g93816_|)) (declare (not safe)) - (cons 'e __tmp93553)))) + (cons 'e __tmp93815)))) (declare (not safe)) - (cons __tmp93552 '())))) + (cons __tmp93814 '())))) (declare (not safe)) - (cons __tmp93555 __tmp93551)))) + (cons __tmp93817 __tmp93813)))) (declare (not safe)) - (cons __tmp93558 __tmp93550)))) + (cons __tmp93820 __tmp93812)))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93549 + __obj93496 + __tmp93811 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93561 - (let ((__tmp93570 - (let ((__tmp93571 |gx[1]#_g93572_|)) + (let ((__tmp93823 + (let ((__tmp93832 + (let ((__tmp93833 |gx[1]#_g93834_|)) (declare (not safe)) - (cons 'context __tmp93571))) - (__tmp93562 - (let ((__tmp93567 - (let ((__tmp93568 |gx[1]#_g93569_|)) + (cons 'context __tmp93833))) + (__tmp93824 + (let ((__tmp93829 + (let ((__tmp93830 |gx[1]#_g93831_|)) (declare (not safe)) - (cons 'phi __tmp93568))) - (__tmp93563 - (let ((__tmp93564 - (let ((__tmp93565 |gx[1]#_g93566_|)) + (cons 'phi __tmp93830))) + (__tmp93825 + (let ((__tmp93826 + (let ((__tmp93827 |gx[1]#_g93828_|)) (declare (not safe)) - (cons 'e __tmp93565)))) + (cons 'e __tmp93827)))) (declare (not safe)) - (cons __tmp93564 '())))) + (cons __tmp93826 '())))) (declare (not safe)) - (cons __tmp93567 __tmp93563)))) + (cons __tmp93829 __tmp93825)))) (declare (not safe)) - (cons __tmp93570 __tmp93562)))) + (cons __tmp93832 __tmp93824)))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93561 + __obj93496 + __tmp93823 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93573 - (let ((__tmp93582 - (let ((__tmp93583 |gx[1]#_g93584_|)) + (let ((__tmp93835 + (let ((__tmp93844 + (let ((__tmp93845 |gx[1]#_g93846_|)) (declare (not safe)) - (cons 'context __tmp93583))) - (__tmp93574 - (let ((__tmp93579 - (let ((__tmp93580 |gx[1]#_g93581_|)) + (cons 'context __tmp93845))) + (__tmp93836 + (let ((__tmp93841 + (let ((__tmp93842 |gx[1]#_g93843_|)) (declare (not safe)) - (cons 'phi __tmp93580))) - (__tmp93575 - (let ((__tmp93576 - (let ((__tmp93577 |gx[1]#_g93578_|)) + (cons 'phi __tmp93842))) + (__tmp93837 + (let ((__tmp93838 + (let ((__tmp93839 |gx[1]#_g93840_|)) (declare (not safe)) - (cons 'e __tmp93577)))) + (cons 'e __tmp93839)))) (declare (not safe)) - (cons __tmp93576 '())))) + (cons __tmp93838 '())))) (declare (not safe)) - (cons __tmp93579 __tmp93575)))) + (cons __tmp93841 __tmp93837)))) (declare (not safe)) - (cons __tmp93582 __tmp93574)))) + (cons __tmp93844 __tmp93836)))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93573 + __obj93496 + __tmp93835 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93585 - (let ((__tmp93594 - (let ((__tmp93595 |gx[1]#_g93596_|)) + (let ((__tmp93847 + (let ((__tmp93856 + (let ((__tmp93857 |gx[1]#_g93858_|)) (declare (not safe)) - (cons 'context __tmp93595))) - (__tmp93586 - (let ((__tmp93591 - (let ((__tmp93592 |gx[1]#_g93593_|)) + (cons 'context __tmp93857))) + (__tmp93848 + (let ((__tmp93853 + (let ((__tmp93854 |gx[1]#_g93855_|)) (declare (not safe)) - (cons 'phi __tmp93592))) - (__tmp93587 - (let ((__tmp93588 - (let ((__tmp93589 |gx[1]#_g93590_|)) + (cons 'phi __tmp93854))) + (__tmp93849 + (let ((__tmp93850 + (let ((__tmp93851 |gx[1]#_g93852_|)) (declare (not safe)) - (cons 'e __tmp93589)))) + (cons 'e __tmp93851)))) (declare (not safe)) - (cons __tmp93588 '())))) + (cons __tmp93850 '())))) (declare (not safe)) - (cons __tmp93591 __tmp93587)))) + (cons __tmp93853 __tmp93849)))) (declare (not safe)) - (cons __tmp93594 __tmp93586)))) + (cons __tmp93856 __tmp93848)))) (declare (not safe)) (##unchecked-structure-set! - __obj93234 - __tmp93585 + __obj93496 + __tmp93847 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93234)) + __obj93496)) (define |gx[:0:]#export-expander| - (let ((__obj93235 + (let ((__obj93497 (let () (declare (not safe)) (##structure @@ -2066,7 +2066,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93497 'gx#export-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2074,7 +2074,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93497 'export-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2082,26 +2082,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93497 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93597 - (let ((__tmp93598 |gx[1]#_g93542_|)) + (let ((__tmp93859 + (let ((__tmp93860 |gx[1]#_g93804_|)) (declare (not safe)) - (cons __tmp93598 '())))) + (cons __tmp93860 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93597 + __obj93497 + __tmp93859 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93497 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2109,7 +2109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93497 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2117,7 +2117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93497 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2125,150 +2125,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93235 + __obj93497 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93599 |gx[1]#_g93600_|)) + (let ((__tmp93861 |gx[1]#_g93862_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93599 + __obj93497 + __tmp93861 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93601 |gx[1]#_g93602_|)) + (let ((__tmp93863 |gx[1]#_g93864_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93601 + __obj93497 + __tmp93863 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93603 |gx[1]#_g93604_|)) + (let ((__tmp93865 |gx[1]#_g93866_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93603 + __obj93497 + __tmp93865 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93605 - (let ((__tmp93614 - (let ((__tmp93615 |gx[1]#_g93616_|)) + (let ((__tmp93867 + (let ((__tmp93876 + (let ((__tmp93877 |gx[1]#_g93878_|)) (declare (not safe)) - (cons 'context __tmp93615))) - (__tmp93606 - (let ((__tmp93611 - (let ((__tmp93612 |gx[1]#_g93613_|)) + (cons 'context __tmp93877))) + (__tmp93868 + (let ((__tmp93873 + (let ((__tmp93874 |gx[1]#_g93875_|)) (declare (not safe)) - (cons 'phi __tmp93612))) - (__tmp93607 - (let ((__tmp93608 - (let ((__tmp93609 |gx[1]#_g93610_|)) + (cons 'phi __tmp93874))) + (__tmp93869 + (let ((__tmp93870 + (let ((__tmp93871 |gx[1]#_g93872_|)) (declare (not safe)) - (cons 'e __tmp93609)))) + (cons 'e __tmp93871)))) (declare (not safe)) - (cons __tmp93608 '())))) + (cons __tmp93870 '())))) (declare (not safe)) - (cons __tmp93611 __tmp93607)))) + (cons __tmp93873 __tmp93869)))) (declare (not safe)) - (cons __tmp93614 __tmp93606)))) + (cons __tmp93876 __tmp93868)))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93605 + __obj93497 + __tmp93867 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93617 - (let ((__tmp93626 - (let ((__tmp93627 |gx[1]#_g93628_|)) + (let ((__tmp93879 + (let ((__tmp93888 + (let ((__tmp93889 |gx[1]#_g93890_|)) (declare (not safe)) - (cons 'context __tmp93627))) - (__tmp93618 - (let ((__tmp93623 - (let ((__tmp93624 |gx[1]#_g93625_|)) + (cons 'context __tmp93889))) + (__tmp93880 + (let ((__tmp93885 + (let ((__tmp93886 |gx[1]#_g93887_|)) (declare (not safe)) - (cons 'phi __tmp93624))) - (__tmp93619 - (let ((__tmp93620 - (let ((__tmp93621 |gx[1]#_g93622_|)) + (cons 'phi __tmp93886))) + (__tmp93881 + (let ((__tmp93882 + (let ((__tmp93883 |gx[1]#_g93884_|)) (declare (not safe)) - (cons 'e __tmp93621)))) + (cons 'e __tmp93883)))) (declare (not safe)) - (cons __tmp93620 '())))) + (cons __tmp93882 '())))) (declare (not safe)) - (cons __tmp93623 __tmp93619)))) + (cons __tmp93885 __tmp93881)))) (declare (not safe)) - (cons __tmp93626 __tmp93618)))) + (cons __tmp93888 __tmp93880)))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93617 + __obj93497 + __tmp93879 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93629 - (let ((__tmp93638 - (let ((__tmp93639 |gx[1]#_g93640_|)) + (let ((__tmp93891 + (let ((__tmp93900 + (let ((__tmp93901 |gx[1]#_g93902_|)) (declare (not safe)) - (cons 'context __tmp93639))) - (__tmp93630 - (let ((__tmp93635 - (let ((__tmp93636 |gx[1]#_g93637_|)) + (cons 'context __tmp93901))) + (__tmp93892 + (let ((__tmp93897 + (let ((__tmp93898 |gx[1]#_g93899_|)) (declare (not safe)) - (cons 'phi __tmp93636))) - (__tmp93631 - (let ((__tmp93632 - (let ((__tmp93633 |gx[1]#_g93634_|)) + (cons 'phi __tmp93898))) + (__tmp93893 + (let ((__tmp93894 + (let ((__tmp93895 |gx[1]#_g93896_|)) (declare (not safe)) - (cons 'e __tmp93633)))) + (cons 'e __tmp93895)))) (declare (not safe)) - (cons __tmp93632 '())))) + (cons __tmp93894 '())))) (declare (not safe)) - (cons __tmp93635 __tmp93631)))) + (cons __tmp93897 __tmp93893)))) (declare (not safe)) - (cons __tmp93638 __tmp93630)))) + (cons __tmp93900 __tmp93892)))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93629 + __obj93497 + __tmp93891 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93641 - (let ((__tmp93650 - (let ((__tmp93651 |gx[1]#_g93652_|)) + (let ((__tmp93903 + (let ((__tmp93912 + (let ((__tmp93913 |gx[1]#_g93914_|)) (declare (not safe)) - (cons 'context __tmp93651))) - (__tmp93642 - (let ((__tmp93647 - (let ((__tmp93648 |gx[1]#_g93649_|)) + (cons 'context __tmp93913))) + (__tmp93904 + (let ((__tmp93909 + (let ((__tmp93910 |gx[1]#_g93911_|)) (declare (not safe)) - (cons 'phi __tmp93648))) - (__tmp93643 - (let ((__tmp93644 - (let ((__tmp93645 |gx[1]#_g93646_|)) + (cons 'phi __tmp93910))) + (__tmp93905 + (let ((__tmp93906 + (let ((__tmp93907 |gx[1]#_g93908_|)) (declare (not safe)) - (cons 'e __tmp93645)))) + (cons 'e __tmp93907)))) (declare (not safe)) - (cons __tmp93644 '())))) + (cons __tmp93906 '())))) (declare (not safe)) - (cons __tmp93647 __tmp93643)))) + (cons __tmp93909 __tmp93905)))) (declare (not safe)) - (cons __tmp93650 __tmp93642)))) + (cons __tmp93912 __tmp93904)))) (declare (not safe)) (##unchecked-structure-set! - __obj93235 - __tmp93641 + __obj93497 + __tmp93903 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93235)) + __obj93497)) (define |gx[:0:]#import-export-expander| - (let ((__obj93236 + (let ((__obj93498 (let () (declare (not safe)) (##structure @@ -2291,7 +2291,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93498 'gx#import-export-expander::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2299,7 +2299,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93498 'import-export-expander '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2307,30 +2307,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93498 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93653 - (let ((__tmp93657 |gx[1]#_g93658_|) - (__tmp93654 - (let ((__tmp93655 |gx[1]#_g93656_|)) + (let ((__tmp93915 + (let ((__tmp93919 |gx[1]#_g93920_|) + (__tmp93916 + (let ((__tmp93917 |gx[1]#_g93918_|)) (declare (not safe)) - (cons __tmp93655 '())))) + (cons __tmp93917 '())))) (declare (not safe)) - (cons __tmp93657 __tmp93654)))) + (cons __tmp93919 __tmp93916)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93653 + __obj93498 + __tmp93915 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93498 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2338,7 +2338,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93498 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2346,7 +2346,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93498 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2354,145 +2354,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj93236 + __obj93498 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93659 |gx[1]#_g93660_|)) + (let ((__tmp93921 |gx[1]#_g93922_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93659 + __obj93498 + __tmp93921 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93661 |gx[1]#_g93662_|)) + (let ((__tmp93923 |gx[1]#_g93924_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93661 + __obj93498 + __tmp93923 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93663 |gx[1]#_g93664_|)) + (let ((__tmp93925 |gx[1]#_g93926_|)) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93663 + __obj93498 + __tmp93925 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93665 - (let ((__tmp93674 - (let ((__tmp93675 |gx[1]#_g93676_|)) + (let ((__tmp93927 + (let ((__tmp93936 + (let ((__tmp93937 |gx[1]#_g93938_|)) (declare (not safe)) - (cons 'context __tmp93675))) - (__tmp93666 - (let ((__tmp93671 - (let ((__tmp93672 |gx[1]#_g93673_|)) + (cons 'context __tmp93937))) + (__tmp93928 + (let ((__tmp93933 + (let ((__tmp93934 |gx[1]#_g93935_|)) (declare (not safe)) - (cons 'phi __tmp93672))) - (__tmp93667 - (let ((__tmp93668 - (let ((__tmp93669 |gx[1]#_g93670_|)) + (cons 'phi __tmp93934))) + (__tmp93929 + (let ((__tmp93930 + (let ((__tmp93931 |gx[1]#_g93932_|)) (declare (not safe)) - (cons 'e __tmp93669)))) + (cons 'e __tmp93931)))) (declare (not safe)) - (cons __tmp93668 '())))) + (cons __tmp93930 '())))) (declare (not safe)) - (cons __tmp93671 __tmp93667)))) + (cons __tmp93933 __tmp93929)))) (declare (not safe)) - (cons __tmp93674 __tmp93666)))) + (cons __tmp93936 __tmp93928)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93665 + __obj93498 + __tmp93927 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93677 - (let ((__tmp93686 - (let ((__tmp93687 |gx[1]#_g93688_|)) + (let ((__tmp93939 + (let ((__tmp93948 + (let ((__tmp93949 |gx[1]#_g93950_|)) (declare (not safe)) - (cons 'context __tmp93687))) - (__tmp93678 - (let ((__tmp93683 - (let ((__tmp93684 |gx[1]#_g93685_|)) + (cons 'context __tmp93949))) + (__tmp93940 + (let ((__tmp93945 + (let ((__tmp93946 |gx[1]#_g93947_|)) (declare (not safe)) - (cons 'phi __tmp93684))) - (__tmp93679 - (let ((__tmp93680 - (let ((__tmp93681 |gx[1]#_g93682_|)) + (cons 'phi __tmp93946))) + (__tmp93941 + (let ((__tmp93942 + (let ((__tmp93943 |gx[1]#_g93944_|)) (declare (not safe)) - (cons 'e __tmp93681)))) + (cons 'e __tmp93943)))) (declare (not safe)) - (cons __tmp93680 '())))) + (cons __tmp93942 '())))) (declare (not safe)) - (cons __tmp93683 __tmp93679)))) + (cons __tmp93945 __tmp93941)))) (declare (not safe)) - (cons __tmp93686 __tmp93678)))) + (cons __tmp93948 __tmp93940)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93677 + __obj93498 + __tmp93939 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93689 - (let ((__tmp93698 - (let ((__tmp93699 |gx[1]#_g93700_|)) + (let ((__tmp93951 + (let ((__tmp93960 + (let ((__tmp93961 |gx[1]#_g93962_|)) (declare (not safe)) - (cons 'context __tmp93699))) - (__tmp93690 - (let ((__tmp93695 - (let ((__tmp93696 |gx[1]#_g93697_|)) + (cons 'context __tmp93961))) + (__tmp93952 + (let ((__tmp93957 + (let ((__tmp93958 |gx[1]#_g93959_|)) (declare (not safe)) - (cons 'phi __tmp93696))) - (__tmp93691 - (let ((__tmp93692 - (let ((__tmp93693 |gx[1]#_g93694_|)) + (cons 'phi __tmp93958))) + (__tmp93953 + (let ((__tmp93954 + (let ((__tmp93955 |gx[1]#_g93956_|)) (declare (not safe)) - (cons 'e __tmp93693)))) + (cons 'e __tmp93955)))) (declare (not safe)) - (cons __tmp93692 '())))) + (cons __tmp93954 '())))) (declare (not safe)) - (cons __tmp93695 __tmp93691)))) + (cons __tmp93957 __tmp93953)))) (declare (not safe)) - (cons __tmp93698 __tmp93690)))) + (cons __tmp93960 __tmp93952)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93689 + __obj93498 + __tmp93951 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp93701 - (let ((__tmp93710 - (let ((__tmp93711 |gx[1]#_g93712_|)) + (let ((__tmp93963 + (let ((__tmp93972 + (let ((__tmp93973 |gx[1]#_g93974_|)) (declare (not safe)) - (cons 'context __tmp93711))) - (__tmp93702 - (let ((__tmp93707 - (let ((__tmp93708 |gx[1]#_g93709_|)) + (cons 'context __tmp93973))) + (__tmp93964 + (let ((__tmp93969 + (let ((__tmp93970 |gx[1]#_g93971_|)) (declare (not safe)) - (cons 'phi __tmp93708))) - (__tmp93703 - (let ((__tmp93704 - (let ((__tmp93705 |gx[1]#_g93706_|)) + (cons 'phi __tmp93970))) + (__tmp93965 + (let ((__tmp93966 + (let ((__tmp93967 |gx[1]#_g93968_|)) (declare (not safe)) - (cons 'e __tmp93705)))) + (cons 'e __tmp93967)))) (declare (not safe)) - (cons __tmp93704 '())))) + (cons __tmp93966 '())))) (declare (not safe)) - (cons __tmp93707 __tmp93703)))) + (cons __tmp93969 __tmp93965)))) (declare (not safe)) - (cons __tmp93710 __tmp93702)))) + (cons __tmp93972 __tmp93964)))) (declare (not safe)) (##unchecked-structure-set! - __obj93236 - __tmp93701 + __obj93498 + __tmp93963 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj93236)))) + __obj93498)))) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index 7d87784e..552df2fe 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 1709375798) + (define gerbil/expander/root::timestamp 1709457369) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,582 +262,582 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self95909_ _bind?95910_) - (if (##fx< '2 (##structure-length _self95909_)) + (lambda (_self96171_ _bind?96172_) + (if (##fx< '2 (##structure-length _self96171_)) (begin (##unchecked-structure-set! - _self95909_ + _self96171_ 'root '1 - (##structure-type _self95909_) + (##structure-type _self96171_) '#f) (##unchecked-structure-set! - _self95909_ + _self96171_ (make-hash-table-eq) '2 - (##structure-type _self95909_) + (##structure-type _self96171_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self95909_ + _self96171_ '2 - (##vector-length _self95909_))) - (if _bind?95910_ + (##vector-length _self96171_))) + (if _bind?96172_ (begin - (let ((__method95961 - (method-ref _self95909_ 'bind-core-syntax-expanders!))) - (if __method95961 - (__method95961 _self95909_) + (let ((__method96223 + (method-ref _self96171_ 'bind-core-syntax-expanders!))) + (if __method96223 + (__method96223 _self96171_) (error '"Missing method" - _self95909_ + _self96171_ 'bind-core-syntax-expanders!))) - (let ((__method95962 - (method-ref _self95909_ 'bind-core-macro-expanders!))) - (if __method95962 - (__method95962 _self95909_) + (let ((__method96224 + (method-ref _self96171_ 'bind-core-macro-expanders!))) + (if __method96224 + (__method96224 _self96171_) (error '"Missing method" - _self95909_ + _self96171_ 'bind-core-macro-expanders!))) - (let ((__method95963 - (method-ref _self95909_ 'bind-core-features!))) - (if __method95963 - (__method95963 _self95909_) + (let ((__method96225 + (method-ref _self96171_ 'bind-core-features!))) + (if __method96225 + (__method96225 _self96171_) (error '"Missing method" - _self95909_ + _self96171_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self95915_) - (let ((_bind?95917_ '#t)) - (gx#root-context:::init!__% _self95915_ _bind?95917_)))) + (lambda (_self96177_) + (let ((_bind?96179_ '#t)) + (gx#root-context:::init!__% _self96177_ _bind?96179_)))) (define gx#root-context:::init! - (lambda _g95966_ - (let ((_g95965_ (##length _g95966_))) - (cond ((##fx= _g95965_ 1) - (apply (lambda (_self95915_) - (gx#root-context:::init!__0 _self95915_)) - _g95966_)) - ((##fx= _g95965_ 2) - (apply (lambda (_self95919_ _bind?95920_) + (lambda _g96228_ + (let ((_g96227_ (##length _g96228_))) + (cond ((##fx= _g96227_ 1) + (apply (lambda (_self96177_) + (gx#root-context:::init!__0 _self96177_)) + _g96228_)) + ((##fx= _g96227_ 2) + (apply (lambda (_self96181_ _bind?96182_) (gx#root-context:::init!__% - _self95919_ - _bind?95920_)) - _g95966_)) + _self96181_ + _bind?96182_)) + _g96228_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g95966_)))))) + _g96228_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass95921 __method-table95922) - (let ((__bind-core-syntax-expanders!95923 + (lambda (__klass96183 __method-table96184) + (let ((__bind-core-macro-expanders!96185 (make-promise (lambda () - (let ((__method95926 + (let ((__method96188 (symbolic-table-ref - __method-table95922 - 'bind-core-syntax-expanders! + __method-table96184 + 'bind-core-macro-expanders! '#f))) - (if __method95926 - __method95926 + (if __method96188 + __method96188 (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-features!95924 + 'bind-core-macro-expanders!)))))) + (__bind-core-features!96186 (make-promise (lambda () - (let ((__method95927 + (let ((__method96189 (symbolic-table-ref - __method-table95922 + __method-table96184 'bind-core-features! '#f))) - (if __method95927 - __method95927 + (if __method96189 + __method96189 (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-macro-expanders!95925 + (__bind-core-syntax-expanders!96187 (make-promise (lambda () - (let ((__method95928 + (let ((__method96190 (symbolic-table-ref - __method-table95922 - 'bind-core-macro-expanders! + __method-table96184 + 'bind-core-syntax-expanders! '#f))) - (if __method95928 - __method95928 + (if __method96190 + __method96190 (error '"Missing method" - 'bind-core-macro-expanders!))))))) - (let ((_opt-lambda9590795912_ - (lambda (_self95909_ _bind?95910_) - (if (##fx< '2 (##structure-length _self95909_)) + 'bind-core-syntax-expanders!))))))) + (let ((_opt-lambda9616996174_ + (lambda (_self96171_ _bind?96172_) + (if (##fx< '2 (##structure-length _self96171_)) (begin (##unchecked-structure-set! - _self95909_ + _self96171_ 'root '1 - (##structure-type _self95909_) + (##structure-type _self96171_) '#f) (##unchecked-structure-set! - _self95909_ + _self96171_ (make-hash-table-eq) '2 - (##structure-type _self95909_) + (##structure-type _self96171_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self95909_ + _self96171_ '2 - (##vector-length _self95909_))) - (if _bind?95910_ + (##vector-length _self96171_))) + (if _bind?96172_ (begin - ((force __bind-core-syntax-expanders!95923) - _self95909_) - ((force __bind-core-macro-expanders!95925) - _self95909_) - ((force __bind-core-features!95924) _self95909_)) + ((force __bind-core-syntax-expanders!96187) + _self96171_) + ((force __bind-core-macro-expanders!96185) + _self96171_) + ((force __bind-core-features!96186) _self96171_)) '#!void)))) - (lambda _g95968_ - (let ((_g95967_ (##length _g95968_))) - (cond ((##fx= _g95967_ 1) - (apply (lambda (_self95915_) - (let ((_bind?95917_ '#t)) - (_opt-lambda9590795912_ - _self95915_ - _bind?95917_))) - _g95968_)) - ((##fx= _g95967_ 2) - (apply (lambda (_self95919_ _bind?95920_) - (_opt-lambda9590795912_ - _self95919_ - _bind?95920_)) - _g95968_)) + (lambda _g96230_ + (let ((_g96229_ (##length _g96230_))) + (cond ((##fx= _g96229_ 1) + (apply (lambda (_self96177_) + (let ((_bind?96179_ '#t)) + (_opt-lambda9616996174_ + _self96177_ + _bind?96179_))) + _g96230_)) + ((##fx= _g96229_ 2) + (apply (lambda (_self96181_ _bind?96182_) + (_opt-lambda9616996174_ + _self96181_ + _bind?96182_)) + _g96230_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g95968_))))))))) + _g96230_))))))))) (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 (_self95765_ _super95766_) - (let ((_super95774_ - (let ((_$e95768_ _super95766_)) - (if _$e95768_ - _$e95768_ - (let ((_$e95771_ (gx#core-context-root__0))) - (if _$e95771_ - _$e95771_ - (let ((__obj95964 + (lambda (_self96027_ _super96028_) + (let ((_super96036_ + (let ((_$e96030_ _super96028_)) + (if _$e96030_ + _$e96030_ + (let ((_$e96033_ (gx#core-context-root__0))) + (if _$e96033_ + _$e96033_ + (let ((__obj96226 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init! __obj95964) - __obj95964))))))) - (if (##fx< '5 (##structure-length _self95765_)) + (gx#root-context:::init! __obj96226) + __obj96226))))))) + (if (##fx< '5 (##structure-length _self96027_)) (begin (##unchecked-structure-set! - _self95765_ + _self96027_ 'top '1 - (##structure-type _self95765_) + (##structure-type _self96027_) '#f) (##unchecked-structure-set! - _self95765_ + _self96027_ (make-hash-table-eq) '2 - (##structure-type _self95765_) + (##structure-type _self96027_) '#f) (##unchecked-structure-set! - _self95765_ - _super95774_ + _self96027_ + _super96036_ '3 - (##structure-type _self95765_) + (##structure-type _self96027_) '#f) (##unchecked-structure-set! - _self95765_ + _self96027_ '#f '4 - (##structure-type _self95765_) + (##structure-type _self96027_) '#f) (##unchecked-structure-set! - _self95765_ + _self96027_ '#f '5 - (##structure-type _self95765_) + (##structure-type _self96027_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self95765_ + _self96027_ '5 - (##vector-length _self95765_)))))) + (##vector-length _self96027_)))))) (define gx#top-context:::init!__0 - (lambda (_self95779_) - (let ((_super95781_ '#f)) - (gx#top-context:::init!__% _self95779_ _super95781_)))) + (lambda (_self96041_) + (let ((_super96043_ '#f)) + (gx#top-context:::init!__% _self96041_ _super96043_)))) (define gx#top-context:::init! - (lambda _g95970_ - (let ((_g95969_ (##length _g95970_))) - (cond ((##fx= _g95969_ 1) - (apply (lambda (_self95779_) - (gx#top-context:::init!__0 _self95779_)) - _g95970_)) - ((##fx= _g95969_ 2) - (apply (lambda (_self95783_ _super95784_) - (gx#top-context:::init!__% _self95783_ _super95784_)) - _g95970_)) + (lambda _g96232_ + (let ((_g96231_ (##length _g96232_))) + (cond ((##fx= _g96231_ 1) + (apply (lambda (_self96041_) + (gx#top-context:::init!__0 _self96041_)) + _g96232_)) + ((##fx= _g96231_ 2) + (apply (lambda (_self96045_ _super96046_) + (gx#top-context:::init!__% _self96045_ _super96046_)) + _g96232_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g95970_)))))) + _g96232_)))))) (bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self95496_ _bindings95497_) + (lambda (_self95758_ _bindings95759_) (for-each - (lambda (_bind95499_) - (let* ((_bind9550095507_ _bind95499_) - (_E9550295511_ - (lambda () (error '"No clause matching" _bind9550095507_))) - (_K9550395620_ - (lambda (_rest95514_ _id95515_) + (lambda (_bind95761_) + (let* ((_bind9576295769_ _bind95761_) + (_E9576495773_ + (lambda () (error '"No clause matching" _bind9576295769_))) + (_K9576595882_ + (lambda (_rest95776_ _id95777_) (gx#core-context-put! - _self95496_ - _id95515_ + _self95758_ + _id95777_ (##structure gx#syntax-binding::t - _id95515_ - _id95515_ + _id95777_ + _id95777_ '#f - (let* ((_rest9551695527_ _rest95514_) - (_E9551895531_ + (let* ((_rest9577895789_ _rest95776_) + (_E9578095793_ (lambda () (error '"No clause matching" - _rest9551695527_))) - (_K9551995596_ - (lambda (_compiler95534_ - _expander95535_ - _key95536_) - ((let* ((_key9553795550_ _key95536_) - (_E9554395554_ + _rest9577895789_))) + (_K9578195858_ + (lambda (_compiler95796_ + _expander95797_ + _key95798_) + ((let* ((_key9579995812_ _key95798_) + (_E9580595816_ (lambda () (error '"No clause matching" - _key9553795550_)))) - (let ((_K9554895590_ + _key9579995812_)))) + (let ((_K9581095852_ (lambda () gx#make-top-special-form)) - (_K9554795583_ + (_K9580995845_ (lambda () gx#make-module-special-form)) - (_K9554695575_ + (_K9580895837_ (lambda () gx#make-definition-form)) - (_K9554595567_ + (_K9580795829_ (lambda () gx#make-special-form)) - (_K9554495559_ + (_K9580695821_ (lambda () gx#make-expression-form))) - (let* ((_try-match9554295562_ + (let* ((_try-match9580495824_ (lambda () - (if (##eq? _key9553795550_ + (if (##eq? _key9579995812_ 'expr:) - (_K9554495559_) - (_E9554395554_)))) - (_try-match9554195570_ + (_K9580695821_) + (_E9580595816_)))) + (_try-match9580395832_ (lambda () - (if (##eq? _key9553795550_ + (if (##eq? _key9579995812_ 'special:) - (_K9554595567_) - (_try-match9554295562_)))) - (_try-match9554095578_ + (_K9580795829_) + (_try-match9580495824_)))) + (_try-match9580295840_ (lambda () - (if (##eq? _key9553795550_ + (if (##eq? _key9579995812_ 'define:) - (_K9554695575_) - (_try-match9554195570_)))) - (_try-match9553995586_ + (_K9580895837_) + (_try-match9580395832_)))) + (_try-match9580195848_ (lambda () - (if (##eq? _key9553795550_ + (if (##eq? _key9579995812_ 'module:) - (_K9554795583_) - (_try-match9554095578_))))) - (if (##eq? _key9553795550_ 'top:) - (_K9554895590_) - (_try-match9553995586_))))) - _expander95535_ - _id95515_ - (let ((_$e95593_ _compiler95534_)) - (if _$e95593_ - _$e95593_ + (_K9580995845_) + (_try-match9580295840_))))) + (if (##eq? _key9579995812_ 'top:) + (_K9581095852_) + (_try-match9580195848_))))) + _expander95797_ + _id95777_ + (let ((_$e95855_ _compiler95796_)) + (if _$e95855_ + _$e95855_ gx#core-compile-top-error)))))) - (if (##pair? _rest9551695527_) - (let ((_hd9552095599_ (##car _rest9551695527_)) - (_tl9552195601_ (##cdr _rest9551695527_))) - (let ((_key95604_ _hd9552095599_)) - (if (##pair? _tl9552195601_) - (let ((_hd9552295606_ - (##car _tl9552195601_)) - (_tl9552395608_ - (##cdr _tl9552195601_))) - (let ((_expander95611_ _hd9552295606_)) - (if (##pair? _tl9552395608_) - (let ((_hd9552495613_ - (##car _tl9552395608_)) - (_tl9552595615_ - (##cdr _tl9552395608_))) - (let ((_compiler95618_ - _hd9552495613_)) - (if (##null? _tl9552595615_) - (_K9551995596_ - _compiler95618_ - _expander95611_ - _key95604_) - (_E9551895531_)))) - (_E9551895531_)))) - (_E9551895531_)))) - (_E9551895531_)))))))) - (if (##pair? _bind9550095507_) - (let ((_hd9550495623_ (##car _bind9550095507_)) - (_tl9550595625_ (##cdr _bind9550095507_))) - (let* ((_id95628_ _hd9550495623_) - (_rest95630_ _tl9550595625_)) - (_K9550395620_ _rest95630_ _id95628_))) - (_E9550295511_)))) - _bindings95497_))) + (if (##pair? _rest9577895789_) + (let ((_hd9578295861_ (##car _rest9577895789_)) + (_tl9578395863_ (##cdr _rest9577895789_))) + (let ((_key95866_ _hd9578295861_)) + (if (##pair? _tl9578395863_) + (let ((_hd9578495868_ + (##car _tl9578395863_)) + (_tl9578595870_ + (##cdr _tl9578395863_))) + (let ((_expander95873_ _hd9578495868_)) + (if (##pair? _tl9578595870_) + (let ((_hd9578695875_ + (##car _tl9578595870_)) + (_tl9578795877_ + (##cdr _tl9578595870_))) + (let ((_compiler95880_ + _hd9578695875_)) + (if (##null? _tl9578795877_) + (_K9578195858_ + _compiler95880_ + _expander95873_ + _key95866_) + (_E9578095793_)))) + (_E9578095793_)))) + (_E9578095793_)))) + (_E9578095793_)))))))) + (if (##pair? _bind9576295769_) + (let ((_hd9576695885_ (##car _bind9576295769_)) + (_tl9576795887_ (##cdr _bind9576295769_))) + (let* ((_id95890_ _hd9576695885_) + (_rest95892_ _tl9576795887_)) + (_K9576595882_ _rest95892_ _id95890_))) + (_E9576495773_)))) + _bindings95759_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self95635_) - (let ((_bindings95637_ gx#*core-syntax-expanders*)) + (lambda (_self95897_) + (let ((_bindings95899_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self95635_ - _bindings95637_)))) + _self95897_ + _bindings95899_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g95972_ - (let ((_g95971_ (##length _g95972_))) - (cond ((##fx= _g95971_ 1) - (apply (lambda (_self95635_) + (lambda _g96234_ + (let ((_g96233_ (##length _g96234_))) + (cond ((##fx= _g96233_ 1) + (apply (lambda (_self95897_) (gx#expander-context::bind-core-syntax-expanders!__0 - _self95635_)) - _g95972_)) - ((##fx= _g95971_ 2) - (apply (lambda (_self95639_ _bindings95640_) + _self95897_)) + _g96234_)) + ((##fx= _g96233_ 2) + (apply (lambda (_self95901_ _bindings95902_) (gx#expander-context::bind-core-syntax-expanders!__% - _self95639_ - _bindings95640_)) - _g95972_)) + _self95901_ + _bindings95902_)) + _g96234_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g95972_)))))) + _g96234_)))))) (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 (_self95268_ _bindings95269_) + (lambda (_self95530_ _bindings95531_) (for-each - (lambda (_bind95271_) - (let* ((_bind9527295279_ _bind95271_) - (_E9527495283_ - (lambda () (error '"No clause matching" _bind9527295279_))) - (_K9527595351_ - (lambda (_rest95286_ _id95287_) + (lambda (_bind95533_) + (let* ((_bind9553495541_ _bind95533_) + (_E9553695545_ + (lambda () (error '"No clause matching" _bind9553495541_))) + (_K9553795613_ + (lambda (_rest95548_ _id95549_) (gx#core-context-put! - _self95268_ - _id95287_ + _self95530_ + _id95549_ (##structure gx#syntax-binding::t - _id95287_ - _id95287_ + _id95549_ + _id95549_ '#f - (let* ((_rest9528895303_ _rest95286_) - (_E9529295307_ + (let* ((_rest9555095565_ _rest95548_) + (_E9555495569_ (lambda () (error '"No clause matching" - _rest9528895303_)))) - (let ((_K9529795336_ - (lambda (_core-id95334_) + _rest9555095565_)))) + (let ((_K9555995598_ + (lambda (_core-id95596_) (##structure gx#rename-macro-expander::t - _core-id95334_))) - (_K9529495321_ - (lambda (_proc95319_) + _core-id95596_))) + (_K9555695583_ + (lambda (_proc95581_) (##structure gx#macro-expander::t - _proc95319_))) - (_K9529395312_ + _proc95581_))) + (_K9555595574_ (lambda () (##structure gx#reserved-expander::t - _id95287_)))) - (let ((_try-match9529195315_ + _id95549_)))) + (let ((_try-match9555395577_ (lambda () - (if (##null? _rest9528895303_) - (_K9529395312_) - (_E9529295307_))))) - (if (##pair? _rest9528895303_) - (let ((_tl9529995341_ - (##cdr _rest9528895303_)) - (_hd9529895339_ - (##car _rest9528895303_))) - (if (##eq? _hd9529895339_ '=>) - (if (##pair? _tl9529995341_) - (let ((_tl9530195346_ - (##cdr _tl9529995341_)) - (_hd9530095344_ - (##car _tl9529995341_))) - (if (##null? _tl9530195346_) - (let ((_core-id95349_ - _hd9530095344_)) + (if (##null? _rest9555095565_) + (_K9555595574_) + (_E9555495569_))))) + (if (##pair? _rest9555095565_) + (let ((_tl9556195603_ + (##cdr _rest9555095565_)) + (_hd9556095601_ + (##car _rest9555095565_))) + (if (##eq? _hd9556095601_ '=>) + (if (##pair? _tl9556195603_) + (let ((_tl9556395608_ + (##cdr _tl9556195603_)) + (_hd9556295606_ + (##car _tl9556195603_))) + (if (##null? _tl9556395608_) + (let ((_core-id95611_ + _hd9556295606_)) (##structure gx#rename-macro-expander::t - _core-id95349_)) - (_E9529295307_))) - (if (##null? _tl9529995341_) - (let ((_proc95329_ - _hd9529895339_)) + _core-id95611_)) + (_E9555495569_))) + (if (##null? _tl9556195603_) + (let ((_proc95591_ + _hd9556095601_)) (##structure gx#macro-expander::t - _proc95329_)) - (_E9529295307_))) - (if (##null? _tl9529995341_) - (let ((_proc95329_ _hd9529895339_)) + _proc95591_)) + (_E9555495569_))) + (if (##null? _tl9556195603_) + (let ((_proc95591_ _hd9556095601_)) (##structure gx#macro-expander::t - _proc95329_)) - (_E9529295307_)))) - (_try-match9529195315_)))))))))) - (if (##pair? _bind9527295279_) - (let ((_hd9527695354_ (##car _bind9527295279_)) - (_tl9527795356_ (##cdr _bind9527295279_))) - (let* ((_id95359_ _hd9527695354_) - (_rest95361_ _tl9527795356_)) - (_K9527595351_ _rest95361_ _id95359_))) - (_E9527495283_)))) - _bindings95269_))) + _proc95591_)) + (_E9555495569_)))) + (_try-match9555395577_)))))))))) + (if (##pair? _bind9553495541_) + (let ((_hd9553895616_ (##car _bind9553495541_)) + (_tl9553995618_ (##cdr _bind9553495541_))) + (let* ((_id95621_ _hd9553895616_) + (_rest95623_ _tl9553995618_)) + (_K9553795613_ _rest95623_ _id95621_))) + (_E9553695545_)))) + _bindings95531_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self95366_) - (let ((_bindings95368_ gx#*core-macro-expanders*)) + (lambda (_self95628_) + (let ((_bindings95630_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self95366_ - _bindings95368_)))) + _self95628_ + _bindings95630_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g95974_ - (let ((_g95973_ (##length _g95974_))) - (cond ((##fx= _g95973_ 1) - (apply (lambda (_self95366_) + (lambda _g96236_ + (let ((_g96235_ (##length _g96236_))) + (cond ((##fx= _g96235_ 1) + (apply (lambda (_self95628_) (gx#expander-context::bind-core-macro-expanders!__0 - _self95366_)) - _g95974_)) - ((##fx= _g95973_ 2) - (apply (lambda (_self95370_ _bindings95371_) + _self95628_)) + _g96236_)) + ((##fx= _g96235_ 2) + (apply (lambda (_self95632_ _bindings95633_) (gx#expander-context::bind-core-macro-expanders!__% - _self95370_ - _bindings95371_)) - _g95974_)) + _self95632_ + _bindings95633_)) + _g96236_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g95974_)))))) + _g96236_)))))) (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 (_self95012_) - (letrec ((_linux-variant?95014_ - (lambda (_sys-type95113_) - (let* ((_g9511495122_ + (lambda (_self95274_) + (letrec ((_linux-variant?95276_ + (lambda (_sys-type95375_) + (let* ((_g9537695384_ (string-split - (symbol->string _sys-type95113_) + (symbol->string _sys-type95375_) '#\-)) - (_else9511695130_ (lambda () '#f)) - (_K9511895135_ - (lambda (_rest95133_) (not (null? _rest95133_))))) - (if (##pair? _g9511495122_) - (let ((_hd9511995138_ (##car _g9511495122_)) - (_tl9512095140_ (##cdr _g9511495122_))) - (if (equal? _hd9511995138_ '"linux") - (let ((_rest95143_ _tl9512095140_)) - (_K9511895135_ _rest95143_)) - (_else9511695130_))) - (_else9511695130_))))) - (_bsd-variant95015_ - (lambda (_sys-type95072_) - (let ((_sys-type-str95074_ - (symbol->string _sys-type95072_))) - (let _lp95076_ ((_rest95078_ + (_else9537895392_ (lambda () '#f)) + (_K9538095397_ + (lambda (_rest95395_) (not (null? _rest95395_))))) + (if (##pair? _g9537695384_) + (let ((_hd9538195400_ (##car _g9537695384_)) + (_tl9538295402_ (##cdr _g9537695384_))) + (if (equal? _hd9538195400_ '"linux") + (let ((_rest95405_ _tl9538295402_)) + (_K9538095397_ _rest95405_)) + (_else9537895392_))) + (_else9537895392_))))) + (_bsd-variant95277_ + (lambda (_sys-type95334_) + (let ((_sys-type-str95336_ + (symbol->string _sys-type95334_))) + (let _lp95338_ ((_rest95340_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_rest9507995087_ _rest95078_) - (_else9508195095_ (lambda () '#f)) - (_K9508395101_ - (lambda (_rest95098_ _sys95099_) + (let* ((_rest9534195349_ _rest95340_) + (_else9534395357_ (lambda () '#f)) + (_K9534595363_ + (lambda (_rest95360_ _sys95361_) (if (string-prefix? - _sys95099_ - _sys-type-str95074_) - _sys95099_ - (_lp95076_ _rest95098_))))) - (if (##pair? _rest9507995087_) - (let ((_hd9508495104_ (##car _rest9507995087_)) - (_tl9508595106_ (##cdr _rest9507995087_))) - (let* ((_sys95109_ _hd9508495104_) - (_rest95111_ _tl9508595106_)) - (_K9508395101_ _rest95111_ _sys95109_))) - (_else9508195095_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _self95012_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self95012_) - (let* ((_g9501695028_ (system-type)) - (_else9501895036_ (lambda () '#!void)) - (_K9502095048_ - (lambda (_sys-type95039_ _sys-vendor95040_ _sys-cpu95041_) + _sys95361_ + _sys-type-str95336_) + _sys95361_ + (_lp95338_ _rest95360_))))) + (if (##pair? _rest9534195349_) + (let ((_hd9534695366_ (##car _rest9534195349_)) + (_tl9534795368_ (##cdr _rest9534195349_))) + (let* ((_sys95371_ _hd9534695366_) + (_rest95373_ _tl9534795368_)) + (_K9534595363_ _rest95373_ _sys95371_))) + (_else9534395357_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _self95274_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self95274_) + (let* ((_g9527895290_ (system-type)) + (_else9528095298_ (lambda () '#!void)) + (_K9528295310_ + (lambda (_sys-type95301_ _sys-vendor95302_ _sys-cpu95303_) (gx#core-bind-feature!__% - _sys-cpu95041_ + _sys-cpu95303_ '#f '0 - _self95012_) + _self95274_) (gx#core-bind-feature!__% - _sys-type95039_ + _sys-type95301_ '#f '0 - _self95012_) - (if (_linux-variant?95014_ _sys-type95039_) + _self95274_) + (if (_linux-variant?95276_ _sys-type95301_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self95012_) - (let ((_$e95043_ (_bsd-variant95015_ _sys-type95039_))) - (if _$e95043_ - ((lambda (_sys-prefix95046_) + _self95274_) + (let ((_$e95305_ (_bsd-variant95277_ _sys-type95301_))) + (if _$e95305_ + ((lambda (_sys-prefix95308_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self95012_) + _self95274_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix95046_) + (string->symbol _sys-prefix95308_) '#f '0 - _self95012_)) - _$e95043_) + _self95274_)) + _$e95305_) '#!void)))))) - (if (##pair? _g9501695028_) - (let ((_hd9502195051_ (##car _g9501695028_)) - (_tl9502295053_ (##cdr _g9501695028_))) - (let ((_sys-cpu95056_ _hd9502195051_)) - (if (##pair? _tl9502295053_) - (let ((_hd9502395058_ (##car _tl9502295053_)) - (_tl9502495060_ (##cdr _tl9502295053_))) - (let ((_sys-vendor95063_ _hd9502395058_)) - (if (##pair? _tl9502495060_) - (let ((_hd9502595065_ (##car _tl9502495060_)) - (_tl9502695067_ (##cdr _tl9502495060_))) - (let ((_sys-type95070_ _hd9502595065_)) - (if (##null? _tl9502695067_) - (_K9502095048_ - _sys-type95070_ - _sys-vendor95063_ - _sys-cpu95056_) + (if (##pair? _g9527895290_) + (let ((_hd9528395313_ (##car _g9527895290_)) + (_tl9528495315_ (##cdr _g9527895290_))) + (let ((_sys-cpu95318_ _hd9528395313_)) + (if (##pair? _tl9528495315_) + (let ((_hd9528595320_ (##car _tl9528495315_)) + (_tl9528695322_ (##cdr _tl9528495315_))) + (let ((_sys-vendor95325_ _hd9528595320_)) + (if (##pair? _tl9528695322_) + (let ((_hd9528795327_ (##car _tl9528695322_)) + (_tl9528895329_ (##cdr _tl9528695322_))) + (let ((_sys-type95332_ _hd9528795327_)) + (if (##null? _tl9528895329_) + (_K9528295310_ + _sys-type95332_ + _sys-vendor95325_ + _sys-cpu95318_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self95012_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self95274_) '#!void)))) (bind-method!__% gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index fdce5db2..a8397bf0 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 1709375797) + (define gerbil/expander/stx::timestamp 1709457369) (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 _$args81463_ - (apply make-instance gx#identifier-wrap::t _$args81463_))) + (lambda _$args81725_ + (apply make-instance gx#identifier-wrap::t _$args81725_))) (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 _$args81460_ - (apply make-instance gx#syntax-wrap::t _$args81460_))) + (lambda _$args81722_ + (apply make-instance gx#syntax-wrap::t _$args81722_))) (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 _$args81457_ - (apply make-instance gx#syntax-quote::t _$args81457_))) + (lambda _$args81719_ + (apply make-instance gx#syntax-quote::t _$args81719_))) (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 (_stx81455_) (symbol? (gx#stx-e _stx81455_)))) + (lambda (_stx81717_) (symbol? (gx#stx-e _stx81717_)))) (define gx#identifier-quote? - (lambda (_stx81453_) - (if (##structure-direct-instance-of? _stx81453_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx81453_ '1 gx#AST::t '#f)) + (lambda (_stx81715_) + (if (##structure-direct-instance-of? _stx81715_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx81715_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx81451_) - (if (##structure-direct-instance-of? _stx81451_ 'gx#syntax-quote::t) + (lambda (_stx81713_) + (if (##structure-direct-instance-of? _stx81713_ 'gx#syntax-quote::t) '#t - (if (##structure-direct-instance-of? _stx81451_ 'gx#syntax-wrap::t) + (if (##structure-direct-instance-of? _stx81713_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx81451_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx81713_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx81449_) - (if (##structure-direct-instance-of? _stx81449_ 'gx#syntax-quote::t) - _stx81449_ - (if (##structure-direct-instance-of? _stx81449_ 'gx#syntax-wrap::t) + (lambda (_stx81711_) + (if (##structure-direct-instance-of? _stx81711_ 'gx#syntax-quote::t) + _stx81711_ + (if (##structure-direct-instance-of? _stx81711_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx81449_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx81711_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx81432_) - (if (##structure-direct-instance-of? _stx81432_ 'gx#syntax-wrap::t) - (let _lp81434_ ((_e81436_ + (lambda (_stx81694_) + (if (##structure-direct-instance-of? _stx81694_ 'gx#syntax-wrap::t) + (let _lp81696_ ((_e81698_ (##unchecked-structure-ref - _stx81432_ + _stx81694_ '1 gx#AST::t '#f)) - (_marks81437_ + (_marks81699_ (cons (##unchecked-structure-ref - _stx81432_ + _stx81694_ '3 gx#syntax-wrap::t '#f) '()))) - (if (##structure? _e81436_) - (let ((_$e81439_ (##type-id (##structure-type _e81436_)))) - (if (eq? 'gx#syntax-wrap::t _$e81439_) - (_lp81434_ - (##unchecked-structure-ref _e81436_ '1 gx#AST::t '#f) + (if (##structure? _e81698_) + (let ((_$e81701_ (##type-id (##structure-type _e81698_)))) + (if (eq? 'gx#syntax-wrap::t _$e81701_) + (_lp81696_ + (##unchecked-structure-ref _e81698_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e81436_ + _e81698_ '3 gx#syntax-wrap::t '#f) - _marks81437_)) - (if (or (eq? 'gx#syntax-quote::t _$e81439_) - (eq? 'gx#identifier-wrap::t _$e81439_)) + _marks81699_)) + (if (or (eq? 'gx#syntax-quote::t _$e81701_) + (eq? 'gx#identifier-wrap::t _$e81701_)) (##unchecked-structure-ref - _e81436_ + _e81698_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e81439_) - (_lp81434_ + (if (eq? 'gerbil#AST::t _$e81701_) + (_lp81696_ (##unchecked-structure-ref - _e81436_ + _e81698_ '1 gx#AST::t '#f) - _marks81437_) - _e81436_)))) - (if (null? _marks81437_) - _e81436_ - (if (pair? _e81436_) - (cons (gx#stx-wrap (car _e81436_) _marks81437_) - (gx#stx-wrap (cdr _e81436_) _marks81437_)) - (if (vector? _e81436_) + _marks81699_) + _e81698_)))) + (if (null? _marks81699_) + _e81698_ + (if (pair? _e81698_) + (cons (gx#stx-wrap (car _e81698_) _marks81699_) + (gx#stx-wrap (cdr _e81698_) _marks81699_)) + (if (vector? _e81698_) (vector-map - (lambda (_g8144481446_) - (gx#stx-wrap _g8144481446_ _marks81437_)) - _e81436_) - (if (box? _e81436_) + (lambda (_g8170681708_) + (gx#stx-wrap _g8170681708_ _marks81699_)) + _e81698_) + (if (box? _e81698_) (box (gx#stx-wrap - (unbox _e81436_) - _marks81437_)) - _e81436_)))))) - (if (##structure-instance-of? _stx81432_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx81432_ '1 gx#AST::t '#f) - _stx81432_)))) + (unbox _e81698_) + _marks81699_)) + _e81698_)))))) + (if (##structure-instance-of? _stx81694_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx81694_ '1 gx#AST::t '#f) + _stx81694_)))) (define gx#syntax->datum - (lambda (_stx81430_) - (if (##structure-instance-of? _stx81430_ 'gerbil#AST::t) + (lambda (_stx81692_) + (if (##structure-instance-of? _stx81692_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _stx81430_ '1 gx#AST::t '#f)) - (if (pair? _stx81430_) - (cons (gx#syntax->datum (car _stx81430_)) - (gx#syntax->datum (cdr _stx81430_))) - (if (vector? _stx81430_) - (vector-map gx#syntax->datum _stx81430_) - (if (box? _stx81430_) - (box (gx#syntax->datum (unbox _stx81430_))) - _stx81430_)))))) + (##unchecked-structure-ref _stx81692_ '1 gx#AST::t '#f)) + (if (pair? _stx81692_) + (cons (gx#syntax->datum (car _stx81692_)) + (gx#syntax->datum (cdr _stx81692_))) + (if (vector? _stx81692_) + (vector-map gx#syntax->datum _stx81692_) + (if (box? _stx81692_) + (box (gx#syntax->datum (unbox _stx81692_))) + _stx81692_)))))) (define gx#datum->syntax__% - (lambda (_stx81373_ _datum81374_ _src81375_ _quote?81376_) - (letrec ((_wrap-datum81378_ - (lambda (_e81402_ _marks81403_) - (_wrap-inner81380_ - _e81402_ - (lambda (_g8140481406_) + (lambda (_stx81635_ _datum81636_ _src81637_ _quote?81638_) + (letrec ((_wrap-datum81640_ + (lambda (_e81664_ _marks81665_) + (_wrap-inner81642_ + _e81664_ + (lambda (_g8166681668_) (##structure gx#identifier-wrap::t - _g8140481406_ - _src81375_ - _marks81403_))))) - (_wrap-quote81379_ - (lambda (_e81394_ _ctx81395_ _marks81396_) - (_wrap-inner81380_ - _e81394_ - (lambda (_g8139781399_) + _g8166681668_ + _src81637_ + _marks81665_))))) + (_wrap-quote81641_ + (lambda (_e81656_ _ctx81657_ _marks81658_) + (_wrap-inner81642_ + _e81656_ + (lambda (_g8165981661_) (##structure gx#syntax-quote::t - _g8139781399_ - _src81375_ - _ctx81395_ - _marks81396_))))) - (_wrap-inner81380_ - (lambda (_e81387_ _wrap-e81388_) - (let _recur81390_ ((_e81392_ _e81387_)) - (if (symbol? _e81392_) - (_wrap-e81388_ _e81392_) - (if (pair? _e81392_) - (cons (_recur81390_ (car _e81392_)) - (_recur81390_ (cdr _e81392_))) - (if (vector? _e81392_) - (vector-map _recur81390_ _e81392_) - (if (box? _e81392_) - (box (_recur81390_ (unbox _e81392_))) - _e81392_))))))) - (_wrap-outer81381_ - (lambda (_e81385_) - (if (##structure-instance-of? _e81385_ 'gerbil#AST::t) - _e81385_ - (##structure gx#AST::t _e81385_ _src81375_))))) - (if (##structure-instance-of? _datum81374_ 'gerbil#AST::t) - _datum81374_ - (if (not _stx81373_) - (##structure gx#AST::t _datum81374_ _src81375_) - (if (gx#identifier? _stx81373_) - (let ((_stx81383_ (gx#stx-unwrap__0 _stx81373_))) - (_wrap-outer81381_ + _g8165981661_ + _src81637_ + _ctx81657_ + _marks81658_))))) + (_wrap-inner81642_ + (lambda (_e81649_ _wrap-e81650_) + (let _recur81652_ ((_e81654_ _e81649_)) + (if (symbol? _e81654_) + (_wrap-e81650_ _e81654_) + (if (pair? _e81654_) + (cons (_recur81652_ (car _e81654_)) + (_recur81652_ (cdr _e81654_))) + (if (vector? _e81654_) + (vector-map _recur81652_ _e81654_) + (if (box? _e81654_) + (box (_recur81652_ (unbox _e81654_))) + _e81654_))))))) + (_wrap-outer81643_ + (lambda (_e81647_) + (if (##structure-instance-of? _e81647_ 'gerbil#AST::t) + _e81647_ + (##structure gx#AST::t _e81647_ _src81637_))))) + (if (##structure-instance-of? _datum81636_ 'gerbil#AST::t) + _datum81636_ + (if (not _stx81635_) + (##structure gx#AST::t _datum81636_ _src81637_) + (if (gx#identifier? _stx81635_) + (let ((_stx81645_ (gx#stx-unwrap__0 _stx81635_))) + (_wrap-outer81643_ (if (##structure-direct-instance-of? - _stx81383_ + _stx81645_ 'gx#syntax-quote::t) - (if _quote?81376_ - (_wrap-quote81379_ - _datum81374_ + (if _quote?81638_ + (_wrap-quote81641_ + _datum81636_ (##unchecked-structure-ref - _stx81383_ + _stx81645_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx81383_ + _stx81645_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum81378_ - _datum81374_ + (_wrap-datum81640_ + _datum81636_ (##unchecked-structure-ref - _stx81383_ + _stx81645_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum81378_ - _datum81374_ + (_wrap-datum81640_ + _datum81636_ (##unchecked-structure-ref - _stx81383_ + _stx81645_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx81373_))))))) + _stx81635_))))))) (define gx#datum->syntax__0 - (lambda (_stx81412_ _datum81413_) - (let* ((_src81415_ '#f) (_quote?81417_ '#t)) + (lambda (_stx81674_ _datum81675_) + (let* ((_src81677_ '#f) (_quote?81679_ '#t)) (gx#datum->syntax__% - _stx81412_ - _datum81413_ - _src81415_ - _quote?81417_)))) + _stx81674_ + _datum81675_ + _src81677_ + _quote?81679_)))) (define gx#datum->syntax__1 - (lambda (_stx81419_ _datum81420_ _src81421_) - (let ((_quote?81423_ '#t)) + (lambda (_stx81681_ _datum81682_ _src81683_) + (let ((_quote?81685_ '#t)) (gx#datum->syntax__% - _stx81419_ - _datum81420_ - _src81421_ - _quote?81423_)))) + _stx81681_ + _datum81682_ + _src81683_ + _quote?81685_)))) (define gx#datum->syntax - (lambda _g81544_ - (let ((_g81543_ (##length _g81544_))) - (cond ((##fx= _g81543_ 2) - (apply (lambda (_stx81412_ _datum81413_) - (gx#datum->syntax__0 _stx81412_ _datum81413_)) - _g81544_)) - ((##fx= _g81543_ 3) - (apply (lambda (_stx81419_ _datum81420_ _src81421_) + (lambda _g81806_ + (let ((_g81805_ (##length _g81806_))) + (cond ((##fx= _g81805_ 2) + (apply (lambda (_stx81674_ _datum81675_) + (gx#datum->syntax__0 _stx81674_ _datum81675_)) + _g81806_)) + ((##fx= _g81805_ 3) + (apply (lambda (_stx81681_ _datum81682_ _src81683_) (gx#datum->syntax__1 - _stx81419_ - _datum81420_ - _src81421_)) - _g81544_)) - ((##fx= _g81543_ 4) - (apply (lambda (_stx81425_ - _datum81426_ - _src81427_ - _quote?81428_) + _stx81681_ + _datum81682_ + _src81683_)) + _g81806_)) + ((##fx= _g81805_ 4) + (apply (lambda (_stx81687_ + _datum81688_ + _src81689_ + _quote?81690_) (gx#datum->syntax__% - _stx81425_ - _datum81426_ - _src81427_ - _quote?81428_)) - _g81544_)) + _stx81687_ + _datum81688_ + _src81689_ + _quote?81690_)) + _g81806_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g81544_)))))) + _g81806_)))))) (define gx#stx-unwrap__% - (lambda (_stx81349_ _marks81350_) - (let _lp81352_ ((_e81354_ _stx81349_) - (_marks81355_ _marks81350_) - (_src81356_ (gx#stx-source _stx81349_))) - (if (##structure-direct-instance-of? _e81354_ 'gx#syntax-wrap::t) - (_lp81352_ - (##unchecked-structure-ref _e81354_ '1 gx#AST::t '#f) + (lambda (_stx81611_ _marks81612_) + (let _lp81614_ ((_e81616_ _stx81611_) + (_marks81617_ _marks81612_) + (_src81618_ (gx#stx-source _stx81611_))) + (if (##structure-direct-instance-of? _e81616_ 'gx#syntax-wrap::t) + (_lp81614_ + (##unchecked-structure-ref _e81616_ '1 gx#AST::t '#f) (gx#apply-mark - (##unchecked-structure-ref _e81354_ '3 gx#syntax-wrap::t '#f) - _marks81355_) - (##unchecked-structure-ref _e81354_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e81616_ '3 gx#syntax-wrap::t '#f) + _marks81617_) + (##unchecked-structure-ref _e81616_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e81354_ + _e81616_ 'gx#identifier-wrap::t) - (if (null? _marks81355_) - _e81354_ + (if (null? _marks81617_) + _e81616_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e81354_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e81354_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e81616_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e81616_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e81354_ + _e81616_ '3 gx#identifier-wrap::t '#f) - _marks81355_))) + _marks81617_))) (if (##structure-direct-instance-of? - _e81354_ + _e81616_ 'gx#syntax-quote::t) - _e81354_ - (if (##structure-instance-of? _e81354_ 'gerbil#AST::t) - (_lp81352_ + _e81616_ + (if (##structure-instance-of? _e81616_ 'gerbil#AST::t) + (_lp81614_ (##unchecked-structure-ref - _e81354_ + _e81616_ '1 gx#AST::t '#f) - _marks81355_ + _marks81617_ (##unchecked-structure-ref - _e81354_ + _e81616_ '2 gx#AST::t '#f)) - (if (symbol? _e81354_) + (if (symbol? _e81616_) (##structure gx#identifier-wrap::t - _e81354_ - _src81356_ - (reverse _marks81355_)) - (if (null? _marks81355_) - _e81354_ - (if (pair? _e81354_) + _e81616_ + _src81618_ + (reverse _marks81617_)) + (if (null? _marks81617_) + _e81616_ + (if (pair? _e81616_) (cons (gx#stx-wrap - (car _e81354_) - _marks81355_) + (car _e81616_) + _marks81617_) (gx#stx-wrap - (cdr _e81354_) - _marks81355_)) - (if (vector? _e81354_) + (cdr _e81616_) + _marks81617_)) + (if (vector? _e81616_) (vector-map - (lambda (_g8135781359_) + (lambda (_g8161981621_) (gx#stx-wrap - _g8135781359_ - _marks81355_)) - _e81354_) - (if (box? _e81354_) + _g8161981621_ + _marks81617_)) + _e81616_) + (if (box? _e81616_) (box (gx#stx-wrap - (unbox _e81354_) - _marks81355_)) - _e81354_)))))))))))) + (unbox _e81616_) + _marks81617_)) + _e81616_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx81365_) - (let ((_marks81367_ '())) (gx#stx-unwrap__% _stx81365_ _marks81367_)))) + (lambda (_stx81627_) + (let ((_marks81629_ '())) (gx#stx-unwrap__% _stx81627_ _marks81629_)))) (define gx#stx-unwrap - (lambda _g81546_ - (let ((_g81545_ (##length _g81546_))) - (cond ((##fx= _g81545_ 1) - (apply (lambda (_stx81365_) (gx#stx-unwrap__0 _stx81365_)) - _g81546_)) - ((##fx= _g81545_ 2) - (apply (lambda (_stx81369_ _marks81370_) - (gx#stx-unwrap__% _stx81369_ _marks81370_)) - _g81546_)) + (lambda _g81808_ + (let ((_g81807_ (##length _g81808_))) + (cond ((##fx= _g81807_ 1) + (apply (lambda (_stx81627_) (gx#stx-unwrap__0 _stx81627_)) + _g81808_)) + ((##fx= _g81807_ 2) + (apply (lambda (_stx81631_ _marks81632_) + (gx#stx-unwrap__% _stx81631_ _marks81632_)) + _g81808_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g81546_)))))) + _g81808_)))))) (define gx#stx-wrap - (lambda (_stx81342_ _marks81343_) - (foldl1 (lambda (_mark81345_ _stx81346_) - (gx#stx-apply-mark _stx81346_ _mark81345_)) - _stx81342_ - _marks81343_))) + (lambda (_stx81604_ _marks81605_) + (foldl1 (lambda (_mark81607_ _stx81608_) + (gx#stx-apply-mark _stx81608_ _mark81607_)) + _stx81604_ + _marks81605_))) (define gx#stx-rewrap - (lambda (_stx81336_ _marks81337_) - (foldr1 (lambda (_mark81339_ _stx81340_) - (gx#stx-apply-mark _stx81340_ _mark81339_)) - _stx81336_ - _marks81337_))) + (lambda (_stx81598_ _marks81599_) + (foldr1 (lambda (_mark81601_ _stx81602_) + (gx#stx-apply-mark _stx81602_ _mark81601_)) + _stx81598_ + _marks81599_))) (define gx#stx-apply-mark - (lambda (_stx81333_ _mark81334_) - (if (##structure-direct-instance-of? _stx81333_ 'gx#syntax-quote::t) - _stx81333_ + (lambda (_stx81595_ _mark81596_) + (if (##structure-direct-instance-of? _stx81595_ 'gx#syntax-quote::t) + _stx81595_ (if (and (##structure-direct-instance-of? - _stx81333_ + _stx81595_ 'gx#syntax-wrap::t) - (eq? _mark81334_ + (eq? _mark81596_ (##unchecked-structure-ref - _stx81333_ + _stx81595_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx81333_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx81595_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx81333_ - (gx#stx-source _stx81333_) - _mark81334_))))) + _stx81595_ + (gx#stx-source _stx81595_) + _mark81596_))))) (define gx#apply-mark - (lambda (_mark81297_ _marks81298_) - (let* ((_marks8129981307_ _marks81298_) - (_else8130181315_ (lambda () (cons _mark81297_ _marks81298_))) - (_K8130381321_ - (lambda (_rest81318_ _hd81319_) - (if (eq? _mark81297_ _hd81319_) - _rest81318_ - (cons _mark81297_ _marks81298_))))) - (if (##pair? _marks8129981307_) - (let ((_hd8130481324_ (##car _marks8129981307_)) - (_tl8130581326_ (##cdr _marks8129981307_))) - (let* ((_hd81329_ _hd8130481324_) (_rest81331_ _tl8130581326_)) - (_K8130381321_ _rest81331_ _hd81329_))) - (_else8130181315_))))) + (lambda (_mark81559_ _marks81560_) + (let* ((_marks8156181569_ _marks81560_) + (_else8156381577_ (lambda () (cons _mark81559_ _marks81560_))) + (_K8156581583_ + (lambda (_rest81580_ _hd81581_) + (if (eq? _mark81559_ _hd81581_) + _rest81580_ + (cons _mark81559_ _marks81560_))))) + (if (##pair? _marks8156181569_) + (let ((_hd8156681586_ (##car _marks8156181569_)) + (_tl8156781588_ (##cdr _marks8156181569_))) + (let* ((_hd81591_ _hd8156681586_) (_rest81593_ _tl8156781588_)) + (_K8156581583_ _rest81593_ _hd81591_))) + (_else8156381577_))))) (define gx#stx-e - (lambda (_stx81295_) - (if (##structure-direct-instance-of? _stx81295_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _stx81295_ '1 gx#AST::t '#f)) - (if (##structure-instance-of? _stx81295_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx81295_ '1 gx#AST::t '#f) - _stx81295_)))) + (lambda (_stx81557_) + (if (##structure-direct-instance-of? _stx81557_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _stx81557_ '1 gx#AST::t '#f)) + (if (##structure-instance-of? _stx81557_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx81557_ '1 gx#AST::t '#f) + _stx81557_)))) (define gx#stx-source - (lambda (_stx81293_) - (if (##structure-instance-of? _stx81293_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx81293_ '2 gx#AST::t '#f) + (lambda (_stx81555_) + (if (##structure-instance-of? _stx81555_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx81555_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx81287_ _src81288_) - (if (or (##structure-instance-of? _stx81287_ 'gerbil#AST::t) - (not _src81288_)) - _stx81287_ - (##structure gx#AST::t _stx81287_ _src81288_)))) + (lambda (_stx81549_ _src81550_) + (if (or (##structure-instance-of? _stx81549_ 'gerbil#AST::t) + (not _src81550_)) + _stx81549_ + (##structure gx#AST::t _stx81549_ _src81550_)))) (define gx#stx-datum? - (lambda (_stx81285_) (gx#self-quoting? (gx#stx-e _stx81285_)))) + (lambda (_stx81547_) (gx#self-quoting? (gx#stx-e _stx81547_)))) (define gx#self-quoting? - (lambda (_x81268_) - (let ((_$e81270_ (immediate? _x81268_))) - (if _$e81270_ - _$e81270_ - (let ((_$e81273_ (number? _x81268_))) - (if _$e81273_ - _$e81273_ - (let ((_$e81276_ (keyword? _x81268_))) - (if _$e81276_ - _$e81276_ - (let ((_$e81279_ (string? _x81268_))) - (if _$e81279_ - _$e81279_ - (let ((_$e81282_ (vector? _x81268_))) - (if _$e81282_ - _$e81282_ - (u8vector? _x81268_))))))))))))) - (define gx#stx-boolean? (lambda (_e81266_) (boolean? (gx#stx-e _e81266_)))) - (define gx#stx-keyword? (lambda (_e81264_) (keyword? (gx#stx-e _e81264_)))) - (define gx#stx-char? (lambda (_e81262_) (char? (gx#stx-e _e81262_)))) - (define gx#stx-number? (lambda (_e81260_) (number? (gx#stx-e _e81260_)))) - (define gx#stx-fixnum? (lambda (_e81258_) (fixnum? (gx#stx-e _e81258_)))) - (define gx#stx-string? (lambda (_e81256_) (string? (gx#stx-e _e81256_)))) - (define gx#stx-null? (lambda (_e81254_) (null? (gx#stx-e _e81254_)))) - (define gx#stx-pair? (lambda (_e81252_) (pair? (gx#stx-e _e81252_)))) + (lambda (_x81530_) + (let ((_$e81532_ (immediate? _x81530_))) + (if _$e81532_ + _$e81532_ + (let ((_$e81535_ (number? _x81530_))) + (if _$e81535_ + _$e81535_ + (let ((_$e81538_ (keyword? _x81530_))) + (if _$e81538_ + _$e81538_ + (let ((_$e81541_ (string? _x81530_))) + (if _$e81541_ + _$e81541_ + (let ((_$e81544_ (vector? _x81530_))) + (if _$e81544_ + _$e81544_ + (u8vector? _x81530_))))))))))))) + (define gx#stx-boolean? (lambda (_e81528_) (boolean? (gx#stx-e _e81528_)))) + (define gx#stx-keyword? (lambda (_e81526_) (keyword? (gx#stx-e _e81526_)))) + (define gx#stx-char? (lambda (_e81524_) (char? (gx#stx-e _e81524_)))) + (define gx#stx-number? (lambda (_e81522_) (number? (gx#stx-e _e81522_)))) + (define gx#stx-fixnum? (lambda (_e81520_) (fixnum? (gx#stx-e _e81520_)))) + (define gx#stx-string? (lambda (_e81518_) (string? (gx#stx-e _e81518_)))) + (define gx#stx-null? (lambda (_e81516_) (null? (gx#stx-e _e81516_)))) + (define gx#stx-pair? (lambda (_e81514_) (pair? (gx#stx-e _e81514_)))) (define gx#stx-list? - (lambda (_e81214_) - (let* ((_g8121581224_ (gx#stx-e _e81214_)) - (_E8121881228_ - (lambda () (error '"No clause matching" _g8121581224_)))) - (let ((_K8122081244_ - (lambda (_rest81242_) (gx#stx-list? _rest81242_))) - (_K8121981234_ (lambda (_tail81232_) (null? _tail81232_)))) - (if (##pair? _g8121581224_) - (let* ((_tl8122281247_ (##cdr _g8121581224_)) - (_rest81250_ _tl8122281247_)) - (gx#stx-list? _rest81250_)) - (let ((_tail81237_ _g8121581224_)) (null? _tail81237_))))))) + (lambda (_e81476_) + (let* ((_g8147781486_ (gx#stx-e _e81476_)) + (_E8148081490_ + (lambda () (error '"No clause matching" _g8147781486_)))) + (let ((_K8148281506_ + (lambda (_rest81504_) (gx#stx-list? _rest81504_))) + (_K8148181496_ (lambda (_tail81494_) (null? _tail81494_)))) + (if (##pair? _g8147781486_) + (let* ((_tl8148481509_ (##cdr _g8147781486_)) + (_rest81512_ _tl8148481509_)) + (gx#stx-list? _rest81512_)) + (let ((_tail81499_ _g8147781486_)) (null? _tail81499_))))))) (define gx#stx-pair/null? - (lambda (_e81207_) - (let* ((_e81209_ (gx#stx-e _e81207_)) (_$e81211_ (pair? _e81209_))) - (if _$e81211_ _$e81211_ (null? _e81209_))))) - (define gx#stx-vector? (lambda (_e81205_) (vector? (gx#stx-e _e81205_)))) - (define gx#stx-box? (lambda (_e81203_) (box? (gx#stx-e _e81203_)))) + (lambda (_e81469_) + (let* ((_e81471_ (gx#stx-e _e81469_)) (_$e81473_ (pair? _e81471_))) + (if _$e81473_ _$e81473_ (null? _e81471_))))) + (define gx#stx-vector? (lambda (_e81467_) (vector? (gx#stx-e _e81467_)))) + (define gx#stx-box? (lambda (_e81465_) (box? (gx#stx-e _e81465_)))) (define gx#stx-eq? - (lambda (_x81200_ _y81201_) - (eq? (gx#stx-e _x81200_) (gx#stx-e _y81201_)))) + (lambda (_x81462_ _y81463_) + (eq? (gx#stx-e _x81462_) (gx#stx-e _y81463_)))) (define gx#stx-eqv? - (lambda (_x81197_ _y81198_) - (eqv? (gx#stx-e _x81197_) (gx#stx-e _y81198_)))) + (lambda (_x81459_ _y81460_) + (eqv? (gx#stx-e _x81459_) (gx#stx-e _y81460_)))) (define gx#stx-equal? - (lambda (_x81194_ _y81195_) - (equal? (gx#stx-e _x81194_) (gx#stx-e _y81195_)))) - (define gx#stx-false? (lambda (_x81192_) (not (gx#stx-e _x81192_)))) + (lambda (_x81456_ _y81457_) + (equal? (gx#stx-e _x81456_) (gx#stx-e _y81457_)))) + (define gx#stx-false? (lambda (_x81454_) (not (gx#stx-e _x81454_)))) (define gx#stx-identifier - (lambda (_template81189_ . _args81190_) + (lambda (_template81451_ . _args81452_) (gx#datum->syntax__1 - _template81189_ - (apply make-symbol (gx#syntax->datum _args81190_)) - (gx#stx-source _template81189_)))) + _template81451_ + (apply make-symbol (gx#syntax->datum _args81452_)) + (gx#stx-source _template81451_)))) (define gx#stx-identifier-marks - (lambda (_stx81187_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx81187_)))) + (lambda (_stx81449_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx81449_)))) (define gx#stx-identifier-marks* - (lambda (_stx81185_) - (if (##structure-direct-instance-of? _stx81185_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _stx81185_ '3 gx#identifier-wrap::t '#f) + (lambda (_stx81447_) + (if (##structure-direct-instance-of? _stx81447_ 'gx#identifier-wrap::t) + (##unchecked-structure-ref _stx81447_ '3 gx#identifier-wrap::t '#f) (if (##structure-direct-instance-of? - _stx81185_ + _stx81447_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _stx81185_ + _stx81447_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx81185_))))) + _stx81447_))))) (define gx#stx-identifier-context - (lambda (_stx81181_) - (let ((_stx81183_ (gx#stx-unwrap__0 _stx81181_))) - (if (gx#identifier-quote? _stx81183_) - (##unchecked-structure-ref _stx81183_ '3 gx#syntax-quote::t '#f) + (lambda (_stx81443_) + (let ((_stx81445_ (gx#stx-unwrap__0 _stx81443_))) + (if (gx#identifier-quote? _stx81445_) + (##unchecked-structure-ref _stx81445_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx81136_) - (let* ((_g8113781147_ (gx#stx-e _stx81136_)) - (_else8114081155_ (lambda () '#f))) - (let ((_K8114381169_ - (lambda (_rest81166_ _hd81167_) - (if (gx#identifier? _hd81167_) - (gx#identifier-list? _rest81166_) + (lambda (_stx81398_) + (let* ((_g8139981409_ (gx#stx-e _stx81398_)) + (_else8140281417_ (lambda () '#f))) + (let ((_K8140581431_ + (lambda (_rest81428_ _hd81429_) + (if (gx#identifier? _hd81429_) + (gx#identifier-list? _rest81428_) '#f))) - (_K8114281160_ (lambda () '#t))) - (let ((_try-match8113981163_ + (_K8140481422_ (lambda () '#t))) + (let ((_try-match8140181425_ (lambda () - (if (##null? _g8113781147_) - (_K8114281160_) - (_else8114081155_))))) - (if (##pair? _g8113781147_) - (let ((_tl8114581174_ (##cdr _g8113781147_)) - (_hd8114481172_ (##car _g8113781147_))) - (let ((_hd81177_ _hd8114481172_) - (_rest81179_ _tl8114581174_)) - (_K8114381169_ _rest81179_ _hd81177_))) - (_try-match8113981163_))))))) + (if (##null? _g8139981409_) + (_K8140481422_) + (_else8140281417_))))) + (if (##pair? _g8139981409_) + (let ((_tl8140781436_ (##cdr _g8139981409_)) + (_hd8140681434_ (##car _g8139981409_))) + (let ((_hd81439_ _hd8140681434_) + (_rest81441_ _tl8140781436_)) + (_K8140581431_ _rest81441_ _hd81439_))) + (_try-match8140181425_))))))) (define gx#genident__% - (lambda (_e81113_ _src81114_) + (lambda (_e81375_ _src81376_) (gx#stx-wrap-source - (gensym (let ((_e81116_ (gx#stx-e _e81113_))) - (if (interned-symbol? _e81116_) _e81116_ 'g))) - (let ((_$e81118_ (gx#stx-source _e81113_))) - (if _$e81118_ _$e81118_ _src81114_))))) + (gensym (let ((_e81378_ (gx#stx-e _e81375_))) + (if (interned-symbol? _e81378_) _e81378_ 'g))) + (let ((_$e81380_ (gx#stx-source _e81375_))) + (if _$e81380_ _$e81380_ _src81376_))))) (define gx#genident__0 (lambda () - (let* ((_e81125_ 'g) (_src81127_ '#f)) - (gx#genident__% _e81125_ _src81127_)))) + (let* ((_e81387_ 'g) (_src81389_ '#f)) + (gx#genident__% _e81387_ _src81389_)))) (define gx#genident__1 - (lambda (_e81129_) - (let ((_src81131_ '#f)) (gx#genident__% _e81129_ _src81131_)))) + (lambda (_e81391_) + (let ((_src81393_ '#f)) (gx#genident__% _e81391_ _src81393_)))) (define gx#genident - (lambda _g81548_ - (let ((_g81547_ (##length _g81548_))) - (cond ((##fx= _g81547_ 0) - (apply (lambda () (gx#genident__0)) _g81548_)) - ((##fx= _g81547_ 1) - (apply (lambda (_e81129_) (gx#genident__1 _e81129_)) - _g81548_)) - ((##fx= _g81547_ 2) - (apply (lambda (_e81133_ _src81134_) - (gx#genident__% _e81133_ _src81134_)) - _g81548_)) + (lambda _g81810_ + (let ((_g81809_ (##length _g81810_))) + (cond ((##fx= _g81809_ 0) + (apply (lambda () (gx#genident__0)) _g81810_)) + ((##fx= _g81809_ 1) + (apply (lambda (_e81391_) (gx#genident__1 _e81391_)) + _g81810_)) + ((##fx= _g81809_ 2) + (apply (lambda (_e81395_ _src81396_) + (gx#genident__% _e81395_ _src81396_)) + _g81810_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g81548_)))))) + _g81810_)))))) (define gx#gentemps - (lambda (_stx-lst81110_) (gx#stx-map1 gx#genident _stx-lst81110_))) + (lambda (_stx-lst81372_) (gx#stx-map1 gx#genident _stx-lst81372_))) (define gx#syntax->list - (lambda (_stx81108_) (gx#stx-map1 values _stx81108_))) + (lambda (_stx81370_) (gx#stx-map1 values _stx81370_))) (define gx#stx-car - (lambda (_stx81105_) + (lambda (_stx81367_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _stx81105_))))) + (car (let () (declare (not safe)) (gx#syntax-e _stx81367_))))) (define gx#stx-cdr - (lambda (_stx81102_) + (lambda (_stx81364_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _stx81102_))))) + (cdr (let () (declare (not safe)) (gx#syntax-e _stx81364_))))) (define gx#stx-length - (lambda (_stx81067_) - (let _lp81069_ ((_rest81071_ _stx81067_) (_n81072_ '0)) - (let* ((_g8107381081_ (gx#stx-e _rest81071_)) - (_else8107581089_ (lambda () _n81072_)) - (_K8107781094_ - (lambda (_rest81092_) - (_lp81069_ _rest81092_ (fx+ _n81072_ '1))))) - (if (##pair? _g8107381081_) - (let* ((_tl8107981097_ (##cdr _g8107381081_)) - (_rest81100_ _tl8107981097_)) - (_K8107781094_ _rest81100_)) - (_else8107581089_)))))) + (lambda (_stx81329_) + (let _lp81331_ ((_rest81333_ _stx81329_) (_n81334_ '0)) + (let* ((_g8133581343_ (gx#stx-e _rest81333_)) + (_else8133781351_ (lambda () _n81334_)) + (_K8133981356_ + (lambda (_rest81354_) + (_lp81331_ _rest81354_ (fx+ _n81334_ '1))))) + (if (##pair? _g8133581343_) + (let* ((_tl8134181359_ (##cdr _g8133581343_)) + (_rest81362_ _tl8134181359_)) + (_K8133981356_ _rest81362_)) + (_else8133781351_)))))) (define gx#stx-for-each - (lambda _g81550_ - (let ((_g81549_ (##length _g81550_))) - (cond ((##fx= _g81549_ 2) - (apply (lambda (_f81060_ _stx81061_) - (gx#stx-for-each1 _f81060_ _stx81061_)) - _g81550_)) - ((##fx= _g81549_ 3) - (apply (lambda (_f81063_ _xstx81064_ _ystx81065_) - (gx#stx-for-each2 _f81063_ _xstx81064_ _ystx81065_)) - _g81550_)) + (lambda _g81812_ + (let ((_g81811_ (##length _g81812_))) + (cond ((##fx= _g81811_ 2) + (apply (lambda (_f81322_ _stx81323_) + (gx#stx-for-each1 _f81322_ _stx81323_)) + _g81812_)) + ((##fx= _g81811_ 3) + (apply (lambda (_f81325_ _xstx81326_ _ystx81327_) + (gx#stx-for-each2 _f81325_ _xstx81326_ _ystx81327_)) + _g81812_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g81550_)))))) + _g81812_)))))) (define gx#stx-for-each1 - (lambda (_f81010_ _stx81011_) - (if (procedure? _f81010_) + (lambda (_f81272_ _stx81273_) + (if (procedure? _f81272_) '#!void - (error '"expected procedure" _f81010_)) - (let _lp81013_ ((_rest81015_ _stx81011_)) - (let* ((_g8101681026_ (gx#syntax-e _rest81015_)) - (_else8101981034_ (lambda () (_f81010_ _rest81015_)))) - (let ((_K8102281048_ - (lambda (_rest81045_ _hd81046_) - (_f81010_ _hd81046_) - (_lp81013_ _rest81045_))) - (_K8102181039_ (lambda () '#!void))) - (let ((_try-match8101881042_ + (error '"expected procedure" _f81272_)) + (let _lp81275_ ((_rest81277_ _stx81273_)) + (let* ((_g8127881288_ (gx#syntax-e _rest81277_)) + (_else8128181296_ (lambda () (_f81272_ _rest81277_)))) + (let ((_K8128481310_ + (lambda (_rest81307_ _hd81308_) + (_f81272_ _hd81308_) + (_lp81275_ _rest81307_))) + (_K8128381301_ (lambda () '#!void))) + (let ((_try-match8128081304_ (lambda () - (if (##null? _g8101681026_) - (_K8102181039_) - (_else8101981034_))))) - (if (##pair? _g8101681026_) - (let ((_tl8102481053_ (##cdr _g8101681026_)) - (_hd8102381051_ (##car _g8101681026_))) - (let ((_hd81056_ _hd8102381051_) - (_rest81058_ _tl8102481053_)) - (_K8102281048_ _rest81058_ _hd81056_))) - (_try-match8101881042_)))))))) + (if (##null? _g8127881288_) + (_K8128381301_) + (_else8128181296_))))) + (if (##pair? _g8127881288_) + (let ((_tl8128681315_ (##cdr _g8127881288_)) + (_hd8128581313_ (##car _g8127881288_))) + (let ((_hd81318_ _hd8128581313_) + (_rest81320_ _tl8128681315_)) + (_K8128481310_ _rest81320_ _hd81318_))) + (_try-match8128081304_)))))))) (define gx#stx-for-each2 - (lambda (_f80915_ _xstx80916_ _ystx80917_) - (if (procedure? _f80915_) + (lambda (_f81177_ _xstx81178_ _ystx81179_) + (if (procedure? _f81177_) '#!void - (error '"expected procedure" _f80915_)) - (let _lp80919_ ((_xrest80921_ _xstx80916_) (_yrest80922_ _ystx80917_)) - (let* ((_g8092380933_ (gx#syntax-e _xrest80921_)) - (_else8092680941_ (lambda () '#!void))) - (let ((_K8092980998_ - (lambda (_xrest80967_ _xhd80968_) - (let* ((_g8096980976_ (gx#syntax-e _yrest80922_)) - (_E8097180980_ + (error '"expected procedure" _f81177_)) + (let _lp81181_ ((_xrest81183_ _xstx81178_) (_yrest81184_ _ystx81179_)) + (let* ((_g8118581195_ (gx#syntax-e _xrest81183_)) + (_else8118881203_ (lambda () '#!void))) + (let ((_K8119181260_ + (lambda (_xrest81229_ _xhd81230_) + (let* ((_g8123181238_ (gx#syntax-e _yrest81184_)) + (_E8123381242_ (lambda () - (error '"No clause matching" _g8096980976_))) - (_K8097280986_ - (lambda (_yrest80983_ _yhd80984_) - (_f80915_ _xhd80968_ _yhd80984_) - (_lp80919_ _xrest80967_ _yrest80983_)))) - (if (##pair? _g8096980976_) - (let ((_hd8097380989_ (##car _g8096980976_)) - (_tl8097480991_ (##cdr _g8096980976_))) - (let* ((_yhd80994_ _hd8097380989_) - (_yrest80996_ _tl8097480991_)) - (_K8097280986_ _yrest80996_ _yhd80994_))) - (_E8097180980_))))) - (_K8092880961_ + (error '"No clause matching" _g8123181238_))) + (_K8123481248_ + (lambda (_yrest81245_ _yhd81246_) + (_f81177_ _xhd81230_ _yhd81246_) + (_lp81181_ _xrest81229_ _yrest81245_)))) + (if (##pair? _g8123181238_) + (let ((_hd8123581251_ (##car _g8123181238_)) + (_tl8123681253_ (##cdr _g8123181238_))) + (let* ((_yhd81256_ _hd8123581251_) + (_yrest81258_ _tl8123681253_)) + (_K8123481248_ _yrest81258_ _yhd81256_))) + (_E8123381242_))))) + (_K8119081223_ (lambda () - (let* ((_yrest8094580950_ _yrest80922_) - (_E8094780954_ + (let* ((_yrest8120781212_ _yrest81184_) + (_E8120981216_ (lambda () (error '"No clause matching" - _yrest8094580950_))) - (_K8094880958_ - (lambda () (_f80915_ _xrest80921_ _yrest80922_)))) - (if (not (gx#stx-null? _yrest8094580950_)) - (_K8094880958_) - (_E8094780954_)))))) - (let ((_try-match8092580964_ + _yrest8120781212_))) + (_K8121081220_ + (lambda () (_f81177_ _xrest81183_ _yrest81184_)))) + (if (not (gx#stx-null? _yrest8120781212_)) + (_K8121081220_) + (_E8120981216_)))))) + (let ((_try-match8118781226_ (lambda () - (if (not (null? _g8092380933_)) - (_K8092880961_) - (_else8092680941_))))) - (if (##pair? _g8092380933_) - (let ((_tl8093181003_ (##cdr _g8092380933_)) - (_hd8093081001_ (##car _g8092380933_))) - (let ((_xhd81006_ _hd8093081001_) - (_xrest81008_ _tl8093181003_)) - (_K8092980998_ _xrest81008_ _xhd81006_))) - (_try-match8092580964_)))))))) + (if (not (null? _g8118581195_)) + (_K8119081223_) + (_else8118881203_))))) + (if (##pair? _g8118581195_) + (let ((_tl8119381265_ (##cdr _g8118581195_)) + (_hd8119281263_ (##car _g8118581195_))) + (let ((_xhd81268_ _hd8119281263_) + (_xrest81270_ _tl8119381265_)) + (_K8119181260_ _xrest81270_ _xhd81268_))) + (_try-match8118781226_)))))))) (define gx#stx-map - (lambda _g81552_ - (let ((_g81551_ (##length _g81552_))) - (cond ((##fx= _g81551_ 2) - (apply (lambda (_f80908_ _stx80909_) - (gx#stx-map1 _f80908_ _stx80909_)) - _g81552_)) - ((##fx= _g81551_ 3) - (apply (lambda (_f80911_ _xstx80912_ _ystx80913_) - (gx#stx-map2 _f80911_ _xstx80912_ _ystx80913_)) - _g81552_)) + (lambda _g81814_ + (let ((_g81813_ (##length _g81814_))) + (cond ((##fx= _g81813_ 2) + (apply (lambda (_f81170_ _stx81171_) + (gx#stx-map1 _f81170_ _stx81171_)) + _g81814_)) + ((##fx= _g81813_ 3) + (apply (lambda (_f81173_ _xstx81174_ _ystx81175_) + (gx#stx-map2 _f81173_ _xstx81174_ _ystx81175_)) + _g81814_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g81552_)))))) + _g81814_)))))) (define gx#stx-map1 - (lambda (_f80858_ _stx80859_) - (if (procedure? _f80858_) + (lambda (_f81120_ _stx81121_) + (if (procedure? _f81120_) '#!void - (error '"expected procedure" _f80858_)) - (let _recur80861_ ((_rest80863_ _stx80859_)) - (let* ((_g8086480874_ (gx#syntax-e _rest80863_)) - (_else8086780882_ (lambda () (_f80858_ _rest80863_)))) - (let ((_K8087080896_ - (lambda (_rest80893_ _hd80894_) - (cons (_f80858_ _hd80894_) (_recur80861_ _rest80893_)))) - (_K8086980887_ (lambda () '()))) - (let ((_try-match8086680890_ + (error '"expected procedure" _f81120_)) + (let _recur81123_ ((_rest81125_ _stx81121_)) + (let* ((_g8112681136_ (gx#syntax-e _rest81125_)) + (_else8112981144_ (lambda () (_f81120_ _rest81125_)))) + (let ((_K8113281158_ + (lambda (_rest81155_ _hd81156_) + (cons (_f81120_ _hd81156_) (_recur81123_ _rest81155_)))) + (_K8113181149_ (lambda () '()))) + (let ((_try-match8112881152_ (lambda () - (if (##null? _g8086480874_) - (_K8086980887_) - (_else8086780882_))))) - (if (##pair? _g8086480874_) - (let ((_tl8087280901_ (##cdr _g8086480874_)) - (_hd8087180899_ (##car _g8086480874_))) - (let ((_hd80904_ _hd8087180899_) - (_rest80906_ _tl8087280901_)) - (_K8087080896_ _rest80906_ _hd80904_))) - (_try-match8086680890_)))))))) + (if (##null? _g8112681136_) + (_K8113181149_) + (_else8112981144_))))) + (if (##pair? _g8112681136_) + (let ((_tl8113481163_ (##cdr _g8112681136_)) + (_hd8113381161_ (##car _g8112681136_))) + (let ((_hd81166_ _hd8113381161_) + (_rest81168_ _tl8113481163_)) + (_K8113281158_ _rest81168_ _hd81166_))) + (_try-match8112881152_)))))))) (define gx#stx-map2 - (lambda (_f80763_ _xstx80764_ _ystx80765_) - (if (procedure? _f80763_) + (lambda (_f81025_ _xstx81026_ _ystx81027_) + (if (procedure? _f81025_) '#!void - (error '"expected procedure" _f80763_)) - (let _recur80767_ ((_xrest80769_ _xstx80764_) - (_yrest80770_ _ystx80765_)) - (let* ((_g8077180781_ (gx#syntax-e _xrest80769_)) - (_else8077480789_ (lambda () '()))) - (let ((_K8077780846_ - (lambda (_xrest80815_ _xhd80816_) - (let* ((_g8081780824_ (gx#syntax-e _yrest80770_)) - (_E8081980828_ + (error '"expected procedure" _f81025_)) + (let _recur81029_ ((_xrest81031_ _xstx81026_) + (_yrest81032_ _ystx81027_)) + (let* ((_g8103381043_ (gx#syntax-e _xrest81031_)) + (_else8103681051_ (lambda () '()))) + (let ((_K8103981108_ + (lambda (_xrest81077_ _xhd81078_) + (let* ((_g8107981086_ (gx#syntax-e _yrest81032_)) + (_E8108181090_ (lambda () - (error '"No clause matching" _g8081780824_))) - (_K8082080834_ - (lambda (_yrest80831_ _yhd80832_) - (cons (_f80763_ _xhd80816_ _yhd80832_) - (_recur80767_ - _xrest80815_ - _yrest80831_))))) - (if (##pair? _g8081780824_) - (let ((_hd8082180837_ (##car _g8081780824_)) - (_tl8082280839_ (##cdr _g8081780824_))) - (let* ((_yhd80842_ _hd8082180837_) - (_yrest80844_ _tl8082280839_)) - (_K8082080834_ _yrest80844_ _yhd80842_))) - (_E8081980828_))))) - (_K8077680809_ + (error '"No clause matching" _g8107981086_))) + (_K8108281096_ + (lambda (_yrest81093_ _yhd81094_) + (cons (_f81025_ _xhd81078_ _yhd81094_) + (_recur81029_ + _xrest81077_ + _yrest81093_))))) + (if (##pair? _g8107981086_) + (let ((_hd8108381099_ (##car _g8107981086_)) + (_tl8108481101_ (##cdr _g8107981086_))) + (let* ((_yhd81104_ _hd8108381099_) + (_yrest81106_ _tl8108481101_)) + (_K8108281096_ _yrest81106_ _yhd81104_))) + (_E8108181090_))))) + (_K8103881071_ (lambda () - (let* ((_yrest8079380798_ _yrest80770_) - (_E8079580802_ + (let* ((_yrest8105581060_ _yrest81032_) + (_E8105781064_ (lambda () (error '"No clause matching" - _yrest8079380798_))) - (_K8079680806_ - (lambda () (_f80763_ _xrest80769_ _yrest80770_)))) - (if (not (gx#stx-null? _yrest8079380798_)) - (_K8079680806_) - (_E8079580802_)))))) - (let ((_try-match8077380812_ + _yrest8105581060_))) + (_K8105881068_ + (lambda () (_f81025_ _xrest81031_ _yrest81032_)))) + (if (not (gx#stx-null? _yrest8105581060_)) + (_K8105881068_) + (_E8105781064_)))))) + (let ((_try-match8103581074_ (lambda () - (if (not (null? _g8077180781_)) - (_K8077680809_) - (_else8077480789_))))) - (if (##pair? _g8077180781_) - (let ((_tl8077980851_ (##cdr _g8077180781_)) - (_hd8077880849_ (##car _g8077180781_))) - (let ((_xhd80854_ _hd8077880849_) - (_xrest80856_ _tl8077980851_)) - (_K8077780846_ _xrest80856_ _xhd80854_))) - (_try-match8077380812_)))))))) + (if (not (null? _g8103381043_)) + (_K8103881071_) + (_else8103681051_))))) + (if (##pair? _g8103381043_) + (let ((_tl8104181113_ (##cdr _g8103381043_)) + (_hd8104081111_ (##car _g8103381043_))) + (let ((_xhd81116_ _hd8104081111_) + (_xrest81118_ _tl8104181113_)) + (_K8103981108_ _xrest81118_ _xhd81116_))) + (_try-match8103581074_)))))))) (define gx#stx-andmap - (lambda (_f80713_ _stx80714_) - (if (procedure? _f80713_) + (lambda (_f80975_ _stx80976_) + (if (procedure? _f80975_) '#!void - (error '"expected procedure" _f80713_)) - (let _lp80716_ ((_rest80718_ _stx80714_)) - (let* ((_g8071980729_ (gx#syntax-e _rest80718_)) - (_else8072280737_ (lambda () (_f80713_ _rest80718_)))) - (let ((_K8072580751_ - (lambda (_rest80748_ _hd80749_) - (if (_f80713_ _hd80749_) (_lp80716_ _rest80748_) '#f))) - (_K8072480742_ (lambda () '#t))) - (let ((_try-match8072180745_ + (error '"expected procedure" _f80975_)) + (let _lp80978_ ((_rest80980_ _stx80976_)) + (let* ((_g8098180991_ (gx#syntax-e _rest80980_)) + (_else8098480999_ (lambda () (_f80975_ _rest80980_)))) + (let ((_K8098781013_ + (lambda (_rest81010_ _hd81011_) + (if (_f80975_ _hd81011_) (_lp80978_ _rest81010_) '#f))) + (_K8098681004_ (lambda () '#t))) + (let ((_try-match8098381007_ (lambda () - (if (##null? _g8071980729_) - (_K8072480742_) - (_else8072280737_))))) - (if (##pair? _g8071980729_) - (let ((_tl8072780756_ (##cdr _g8071980729_)) - (_hd8072680754_ (##car _g8071980729_))) - (let ((_hd80759_ _hd8072680754_) - (_rest80761_ _tl8072780756_)) - (_K8072580751_ _rest80761_ _hd80759_))) - (_try-match8072180745_)))))))) + (if (##null? _g8098180991_) + (_K8098681004_) + (_else8098480999_))))) + (if (##pair? _g8098180991_) + (let ((_tl8098981018_ (##cdr _g8098180991_)) + (_hd8098881016_ (##car _g8098180991_))) + (let ((_hd81021_ _hd8098881016_) + (_rest81023_ _tl8098981018_)) + (_K8098781013_ _rest81023_ _hd81021_))) + (_try-match8098381007_)))))))) (define gx#stx-ormap - (lambda (_f80660_ _stx80661_) - (if (procedure? _f80660_) + (lambda (_f80922_ _stx80923_) + (if (procedure? _f80922_) '#!void - (error '"expected procedure" _f80660_)) - (let _lp80663_ ((_rest80665_ _stx80661_)) - (let* ((_g8066680676_ (gx#syntax-e _rest80665_)) - (_else8066980684_ (lambda () (_f80660_ _rest80665_)))) - (let ((_K8067280701_ - (lambda (_rest80695_ _hd80696_) - (let ((_$e80698_ (_f80660_ _hd80696_))) - (if _$e80698_ _$e80698_ (_lp80663_ _rest80695_))))) - (_K8067180689_ (lambda () '#f))) - (let ((_try-match8066880692_ + (error '"expected procedure" _f80922_)) + (let _lp80925_ ((_rest80927_ _stx80923_)) + (let* ((_g8092880938_ (gx#syntax-e _rest80927_)) + (_else8093180946_ (lambda () (_f80922_ _rest80927_)))) + (let ((_K8093480963_ + (lambda (_rest80957_ _hd80958_) + (let ((_$e80960_ (_f80922_ _hd80958_))) + (if _$e80960_ _$e80960_ (_lp80925_ _rest80957_))))) + (_K8093380951_ (lambda () '#f))) + (let ((_try-match8093080954_ (lambda () - (if (##null? _g8066680676_) - (_K8067180689_) - (_else8066980684_))))) - (if (##pair? _g8066680676_) - (let ((_tl8067480706_ (##cdr _g8066680676_)) - (_hd8067380704_ (##car _g8066680676_))) - (let ((_hd80709_ _hd8067380704_) - (_rest80711_ _tl8067480706_)) - (_K8067280701_ _rest80711_ _hd80709_))) - (_try-match8066880692_)))))))) + (if (##null? _g8092880938_) + (_K8093380951_) + (_else8093180946_))))) + (if (##pair? _g8092880938_) + (let ((_tl8093680968_ (##cdr _g8092880938_)) + (_hd8093580966_ (##car _g8092880938_))) + (let ((_hd80971_ _hd8093580966_) + (_rest80973_ _tl8093680968_)) + (_K8093480963_ _rest80973_ _hd80971_))) + (_try-match8093080954_)))))))) (define gx#stx-foldl - (lambda (_f80608_ _iv80609_ _stx80610_) - (if (procedure? _f80608_) + (lambda (_f80870_ _iv80871_ _stx80872_) + (if (procedure? _f80870_) '#!void - (error '"expected procedure" _f80608_)) - (let _lp80612_ ((_r80614_ _iv80609_) (_rest80615_ _stx80610_)) - (let* ((_g8061680626_ (gx#syntax-e _rest80615_)) - (_else8061980634_ - (lambda () (_f80608_ _rest80615_ _r80614_)))) - (let ((_K8062280648_ - (lambda (_rest80645_ _hd80646_) - (_lp80612_ (_f80608_ _hd80646_ _r80614_) _rest80645_))) - (_K8062180639_ (lambda () _r80614_))) - (let ((_try-match8061880642_ + (error '"expected procedure" _f80870_)) + (let _lp80874_ ((_r80876_ _iv80871_) (_rest80877_ _stx80872_)) + (let* ((_g8087880888_ (gx#syntax-e _rest80877_)) + (_else8088180896_ + (lambda () (_f80870_ _rest80877_ _r80876_)))) + (let ((_K8088480910_ + (lambda (_rest80907_ _hd80908_) + (_lp80874_ (_f80870_ _hd80908_ _r80876_) _rest80907_))) + (_K8088380901_ (lambda () _r80876_))) + (let ((_try-match8088080904_ (lambda () - (if (##null? _g8061680626_) - (_K8062180639_) - (_else8061980634_))))) - (if (##pair? _g8061680626_) - (let ((_tl8062480653_ (##cdr _g8061680626_)) - (_hd8062380651_ (##car _g8061680626_))) - (let ((_hd80656_ _hd8062380651_) - (_rest80658_ _tl8062480653_)) - (_K8062280648_ _rest80658_ _hd80656_))) - (_try-match8061880642_)))))))) + (if (##null? _g8087880888_) + (_K8088380901_) + (_else8088180896_))))) + (if (##pair? _g8087880888_) + (let ((_tl8088680915_ (##cdr _g8087880888_)) + (_hd8088580913_ (##car _g8087880888_))) + (let ((_hd80918_ _hd8088580913_) + (_rest80920_ _tl8088680915_)) + (_K8088480910_ _rest80920_ _hd80918_))) + (_try-match8088080904_)))))))) (define gx#stx-foldr - (lambda (_f80557_ _iv80558_ _stx80559_) - (if (procedure? _f80557_) + (lambda (_f80819_ _iv80820_ _stx80821_) + (if (procedure? _f80819_) '#!void - (error '"expected procedure" _f80557_)) - (let _recur80561_ ((_rest80563_ _stx80559_)) - (let* ((_g8056480574_ (gx#syntax-e _rest80563_)) - (_else8056780582_ - (lambda () (_f80557_ _rest80563_ _iv80558_)))) - (let ((_K8057080596_ - (lambda (_rest80593_ _hd80594_) - (_f80557_ _hd80594_ (_recur80561_ _rest80593_)))) - (_K8056980587_ (lambda () _iv80558_))) - (let ((_try-match8056680590_ + (error '"expected procedure" _f80819_)) + (let _recur80823_ ((_rest80825_ _stx80821_)) + (let* ((_g8082680836_ (gx#syntax-e _rest80825_)) + (_else8082980844_ + (lambda () (_f80819_ _rest80825_ _iv80820_)))) + (let ((_K8083280858_ + (lambda (_rest80855_ _hd80856_) + (_f80819_ _hd80856_ (_recur80823_ _rest80855_)))) + (_K8083180849_ (lambda () _iv80820_))) + (let ((_try-match8082880852_ (lambda () - (if (##null? _g8056480574_) - (_K8056980587_) - (_else8056780582_))))) - (if (##pair? _g8056480574_) - (let ((_tl8057280601_ (##cdr _g8056480574_)) - (_hd8057180599_ (##car _g8056480574_))) - (let ((_hd80604_ _hd8057180599_) - (_rest80606_ _tl8057280601_)) - (_K8057080596_ _rest80606_ _hd80604_))) - (_try-match8056680590_)))))))) + (if (##null? _g8082680836_) + (_K8083180849_) + (_else8082980844_))))) + (if (##pair? _g8082680836_) + (let ((_tl8083480863_ (##cdr _g8082680836_)) + (_hd8083380861_ (##car _g8082680836_))) + (let ((_hd80866_ _hd8083380861_) + (_rest80868_ _tl8083480863_)) + (_K8083280858_ _rest80868_ _hd80866_))) + (_try-match8082880852_)))))))) (define gx#stx-reverse - (lambda (_stx80555_) (gx#stx-foldl cons '() _stx80555_))) + (lambda (_stx80817_) (gx#stx-foldl cons '() _stx80817_))) (define gx#stx-last - (lambda (_stx80516_) - (let _lp80518_ ((_rest80520_ _stx80516_)) - (let* ((_g8052180529_ (gx#syntax-e _rest80520_)) - (_else8052380537_ (lambda () _rest80520_)) - (_K8052580543_ - (lambda (_rest80540_ _hd80541_) - (if (gx#stx-null? _rest80540_) - _hd80541_ - (_lp80518_ _rest80540_))))) - (if (##pair? _g8052180529_) - (let ((_hd8052680546_ (##car _g8052180529_)) - (_tl8052780548_ (##cdr _g8052180529_))) - (let* ((_hd80551_ _hd8052680546_) - (_rest80553_ _tl8052780548_)) - (_K8052580543_ _rest80553_ _hd80551_))) - (_else8052380537_)))))) + (lambda (_stx80778_) + (let _lp80780_ ((_rest80782_ _stx80778_)) + (let* ((_g8078380791_ (gx#syntax-e _rest80782_)) + (_else8078580799_ (lambda () _rest80782_)) + (_K8078780805_ + (lambda (_rest80802_ _hd80803_) + (if (gx#stx-null? _rest80802_) + _hd80803_ + (_lp80780_ _rest80802_))))) + (if (##pair? _g8078380791_) + (let ((_hd8078880808_ (##car _g8078380791_)) + (_tl8078980810_ (##cdr _g8078380791_))) + (let* ((_hd80813_ _hd8078880808_) + (_rest80815_ _tl8078980810_)) + (_K8078780805_ _rest80815_ _hd80813_))) + (_else8078580799_)))))) (define gx#stx-last-pair - (lambda (_stx80487_) - (let _lp80489_ ((_hd80491_ _stx80487_)) - (let* ((_g8049280499_ (gx#syntax-e _hd80491_)) - (_E8049480503_ - (lambda () (error '"No clause matching" _g8049280499_))) - (_K8049580508_ - (lambda (_rest80506_) - (if (gx#stx-pair? _rest80506_) - (_lp80489_ _rest80506_) - _hd80491_)))) - (if (##pair? _g8049280499_) - (let* ((_tl8049780511_ (##cdr _g8049280499_)) - (_rest80514_ _tl8049780511_)) - (_K8049580508_ _rest80514_)) - (_E8049480503_)))))) + (lambda (_stx80749_) + (let _lp80751_ ((_hd80753_ _stx80749_)) + (let* ((_g8075480761_ (gx#syntax-e _hd80753_)) + (_E8075680765_ + (lambda () (error '"No clause matching" _g8075480761_))) + (_K8075780770_ + (lambda (_rest80768_) + (if (gx#stx-pair? _rest80768_) + (_lp80751_ _rest80768_) + _hd80753_)))) + (if (##pair? _g8075480761_) + (let* ((_tl8075980773_ (##cdr _g8075480761_)) + (_rest80776_ _tl8075980773_)) + (_K8075780770_ _rest80776_)) + (_E8075680765_)))))) (define gx#stx-list-tail - (lambda (_stx80456_ _k80457_) - (let _lp80459_ ((_rest80461_ _stx80456_) (_k80462_ _k80457_)) - (if (fxpositive? _k80462_) - (let* ((_g8046380470_ (gx#syntax-e _rest80461_)) - (_E8046580474_ - (lambda () (error '"No clause matching" _g8046380470_))) - (_K8046680479_ - (lambda (_rest80477_) - (_lp80459_ _rest80477_ (fx- _k80462_ '1))))) - (if (##pair? _g8046380470_) - (let* ((_tl8046880482_ (##cdr _g8046380470_)) - (_rest80485_ _tl8046880482_)) - (_K8046680479_ _rest80485_)) - (_E8046580474_))) - _rest80461_)))) + (lambda (_stx80718_ _k80719_) + (let _lp80721_ ((_rest80723_ _stx80718_) (_k80724_ _k80719_)) + (if (fxpositive? _k80724_) + (let* ((_g8072580732_ (gx#syntax-e _rest80723_)) + (_E8072780736_ + (lambda () (error '"No clause matching" _g8072580732_))) + (_K8072880741_ + (lambda (_rest80739_) + (_lp80721_ _rest80739_ (fx- _k80724_ '1))))) + (if (##pair? _g8072580732_) + (let* ((_tl8073080744_ (##cdr _g8072580732_)) + (_rest80747_ _tl8073080744_)) + (_K8072880741_ _rest80747_)) + (_E8072780736_))) + _rest80723_)))) (define gx#stx-list-ref - (lambda (_stx80453_ _k80454_) - (gx#stx-car (gx#stx-list-tail _stx80453_ _k80454_)))) + (lambda (_stx80715_ _k80716_) + (gx#stx-car (gx#stx-list-tail _stx80715_ _k80716_)))) (define gx#stx-plist?__% - (lambda (_stx80365_ _key?80366_) - (if (procedure? _key?80366_) + (lambda (_stx80627_ _key?80628_) + (if (procedure? _key?80628_) '#!void - (error '"expected procedure" _key?80366_)) - (let _lp80368_ ((_rest80370_ _stx80365_)) - (let* ((_g8037180381_ (gx#stx-e _rest80370_)) - (_else8037480389_ (lambda () '#f))) - (let ((_K8037780431_ - (lambda (_rest80400_ _hd80401_) - (if (_key?80366_ _hd80401_) - (let* ((_g8040280410_ (gx#stx-e _rest80400_)) - (_else8040480418_ (lambda () '#f)) - (_K8040680423_ - (lambda (_rest80421_) - (_lp80368_ _rest80421_)))) - (if (##pair? _g8040280410_) - (let* ((_tl8040880426_ (##cdr _g8040280410_)) - (_rest80429_ _tl8040880426_)) - (_lp80368_ _rest80429_)) - (_else8040480418_))) + (error '"expected procedure" _key?80628_)) + (let _lp80630_ ((_rest80632_ _stx80627_)) + (let* ((_g8063380643_ (gx#stx-e _rest80632_)) + (_else8063680651_ (lambda () '#f))) + (let ((_K8063980693_ + (lambda (_rest80662_ _hd80663_) + (if (_key?80628_ _hd80663_) + (let* ((_g8066480672_ (gx#stx-e _rest80662_)) + (_else8066680680_ (lambda () '#f)) + (_K8066880685_ + (lambda (_rest80683_) + (_lp80630_ _rest80683_)))) + (if (##pair? _g8066480672_) + (let* ((_tl8067080688_ (##cdr _g8066480672_)) + (_rest80691_ _tl8067080688_)) + (_lp80630_ _rest80691_)) + (_else8066680680_))) '#f))) - (_K8037680394_ (lambda () '#t))) - (let ((_try-match8037380397_ + (_K8063880656_ (lambda () '#t))) + (let ((_try-match8063580659_ (lambda () - (if (##null? _g8037180381_) - (_K8037680394_) - (_else8037480389_))))) - (if (##pair? _g8037180381_) - (let ((_tl8037980436_ (##cdr _g8037180381_)) - (_hd8037880434_ (##car _g8037180381_))) - (let ((_hd80439_ _hd8037880434_) - (_rest80441_ _tl8037980436_)) - (_K8037780431_ _rest80441_ _hd80439_))) - (_try-match8037380397_)))))))) + (if (##null? _g8063380643_) + (_K8063880656_) + (_else8063680651_))))) + (if (##pair? _g8063380643_) + (let ((_tl8064180698_ (##cdr _g8063380643_)) + (_hd8064080696_ (##car _g8063380643_))) + (let ((_hd80701_ _hd8064080696_) + (_rest80703_ _tl8064180698_)) + (_K8063980693_ _rest80703_ _hd80701_))) + (_try-match8063580659_)))))))) (define gx#stx-plist?__0 - (lambda (_stx80446_) - (let ((_key?80448_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx80446_ _key?80448_)))) + (lambda (_stx80708_) + (let ((_key?80710_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx80708_ _key?80710_)))) (define gx#stx-plist? - (lambda _g81554_ - (let ((_g81553_ (##length _g81554_))) - (cond ((##fx= _g81553_ 1) - (apply (lambda (_stx80446_) (gx#stx-plist?__0 _stx80446_)) - _g81554_)) - ((##fx= _g81553_ 2) - (apply (lambda (_stx80450_ _key?80451_) - (gx#stx-plist?__% _stx80450_ _key?80451_)) - _g81554_)) + (lambda _g81816_ + (let ((_g81815_ (##length _g81816_))) + (cond ((##fx= _g81815_ 1) + (apply (lambda (_stx80708_) (gx#stx-plist?__0 _stx80708_)) + _g81816_)) + ((##fx= _g81815_ 2) + (apply (lambda (_stx80712_ _key?80713_) + (gx#stx-plist?__% _stx80712_ _key?80713_)) + _g81816_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g81554_)))))) + _g81816_)))))) (define gx#stx-getq__% - (lambda (_key80283_ _stx80284_ _key=?80285_) - (if (procedure? _key=?80285_) + (lambda (_key80545_ _stx80546_ _key=?80547_) + (if (procedure? _key=?80547_) '#!void - (error '"expected procedure" _key=?80285_)) - (let _lp80287_ ((_rest80289_ _stx80284_)) - (let* ((_g8029080298_ (gx#syntax-e _rest80289_)) - (_else8029280306_ (lambda () '#f)) - (_K8029480340_ - (lambda (_rest80309_ _hd80310_) - (let* ((_g8031180318_ (gx#syntax-e _rest80309_)) - (_E8031380322_ + (error '"expected procedure" _key=?80547_)) + (let _lp80549_ ((_rest80551_ _stx80546_)) + (let* ((_g8055280560_ (gx#syntax-e _rest80551_)) + (_else8055480568_ (lambda () '#f)) + (_K8055680602_ + (lambda (_rest80571_ _hd80572_) + (let* ((_g8057380580_ (gx#syntax-e _rest80571_)) + (_E8057580584_ (lambda () - (error '"No clause matching" _g8031180318_))) - (_K8031480328_ - (lambda (_rest80325_ _val80326_) - (if (_key=?80285_ _hd80310_ _key80283_) - _val80326_ - (_lp80287_ _rest80325_))))) - (if (##pair? _g8031180318_) - (let ((_hd8031580331_ (##car _g8031180318_)) - (_tl8031680333_ (##cdr _g8031180318_))) - (let* ((_val80336_ _hd8031580331_) - (_rest80338_ _tl8031680333_)) - (_K8031480328_ _rest80338_ _val80336_))) - (_E8031380322_)))))) - (if (##pair? _g8029080298_) - (let ((_hd8029580343_ (##car _g8029080298_)) - (_tl8029680345_ (##cdr _g8029080298_))) - (let* ((_hd80348_ _hd8029580343_) - (_rest80350_ _tl8029680345_)) - (_K8029480340_ _rest80350_ _hd80348_))) - (_else8029280306_)))))) + (error '"No clause matching" _g8057380580_))) + (_K8057680590_ + (lambda (_rest80587_ _val80588_) + (if (_key=?80547_ _hd80572_ _key80545_) + _val80588_ + (_lp80549_ _rest80587_))))) + (if (##pair? _g8057380580_) + (let ((_hd8057780593_ (##car _g8057380580_)) + (_tl8057880595_ (##cdr _g8057380580_))) + (let* ((_val80598_ _hd8057780593_) + (_rest80600_ _tl8057880595_)) + (_K8057680590_ _rest80600_ _val80598_))) + (_E8057580584_)))))) + (if (##pair? _g8055280560_) + (let ((_hd8055780605_ (##car _g8055280560_)) + (_tl8055880607_ (##cdr _g8055280560_))) + (let* ((_hd80610_ _hd8055780605_) + (_rest80612_ _tl8055880607_)) + (_K8055680602_ _rest80612_ _hd80610_))) + (_else8055480568_)))))) (define gx#stx-getq__0 - (lambda (_key80355_ _stx80356_) - (let ((_key=?80358_ gx#stx-eq?)) - (gx#stx-getq__% _key80355_ _stx80356_ _key=?80358_)))) + (lambda (_key80617_ _stx80618_) + (let ((_key=?80620_ gx#stx-eq?)) + (gx#stx-getq__% _key80617_ _stx80618_ _key=?80620_)))) (define gx#stx-getq - (lambda _g81556_ - (let ((_g81555_ (##length _g81556_))) - (cond ((##fx= _g81555_ 2) - (apply (lambda (_key80355_ _stx80356_) - (gx#stx-getq__0 _key80355_ _stx80356_)) - _g81556_)) - ((##fx= _g81555_ 3) - (apply (lambda (_key80360_ _stx80361_ _key=?80362_) - (gx#stx-getq__% _key80360_ _stx80361_ _key=?80362_)) - _g81556_)) + (lambda _g81818_ + (let ((_g81817_ (##length _g81818_))) + (cond ((##fx= _g81817_ 2) + (apply (lambda (_key80617_ _stx80618_) + (gx#stx-getq__0 _key80617_ _stx80618_)) + _g81818_)) + ((##fx= _g81817_ 3) + (apply (lambda (_key80622_ _stx80623_ _key=?80624_) + (gx#stx-getq__% _key80622_ _stx80623_ _key=?80624_)) + _g81818_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g81556_)))))))) + _g81818_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx__1.scm b/src/bootstrap/gerbil/expander/stx__1.scm index 0154db4b..2810db4b 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]#_g81559_| + (define |gx[1]#_g81821_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g81561_| + (define |gx[1]#_g81823_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g81563_| + (define |gx[1]#_g81825_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g81565_| + (define |gx[1]#_g81827_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g81571_| + (define |gx[1]#_g81833_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81574_| + (define |gx[1]#_g81836_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81577_| + (define |gx[1]#_g81839_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g81583_| + (define |gx[1]#_g81845_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81586_| + (define |gx[1]#_g81848_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81589_| + (define |gx[1]#_g81851_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81595_| + (define |gx[1]#_g81857_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81598_| + (define |gx[1]#_g81860_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81601_| + (define |gx[1]#_g81863_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g81607_| + (define |gx[1]#_g81869_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81610_| + (define |gx[1]#_g81872_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81613_| + (define |gx[1]#_g81875_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81617_| + (define |gx[1]#_g81879_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g81619_| + (define |gx[1]#_g81881_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g81621_| + (define |gx[1]#_g81883_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g81627_| + (define |gx[1]#_g81889_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81630_| + (define |gx[1]#_g81892_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81633_| + (define |gx[1]#_g81895_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g81639_| + (define |gx[1]#_g81901_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81642_| + (define |gx[1]#_g81904_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81645_| + (define |gx[1]#_g81907_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81651_| + (define |gx[1]#_g81913_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81654_| + (define |gx[1]#_g81916_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81657_| + (define |gx[1]#_g81919_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g81663_| + (define |gx[1]#_g81925_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81666_| + (define |gx[1]#_g81928_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81669_| + (define |gx[1]#_g81931_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81673_| + (define |gx[1]#_g81935_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g81675_| + (define |gx[1]#_g81937_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g81677_| + (define |gx[1]#_g81939_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g81684_| + (define |gx[1]#_g81946_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81687_| + (define |gx[1]#_g81949_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81690_| + (define |gx[1]#_g81952_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g81693_| + (define |gx[1]#_g81955_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g81700_| + (define |gx[1]#_g81962_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81703_| + (define |gx[1]#_g81965_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81706_| + (define |gx[1]#_g81968_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81709_| + (define |gx[1]#_g81971_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81716_| + (define |gx[1]#_g81978_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81719_| + (define |gx[1]#_g81981_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81722_| + (define |gx[1]#_g81984_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g81725_| + (define |gx[1]#_g81987_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g81732_| + (define |gx[1]#_g81994_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81735_| + (define |gx[1]#_g81997_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81738_| + (define |gx[1]#_g82000_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81741_| + (define |gx[1]#_g82003_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj81540 + (let ((__obj81802 (let () (declare (not safe)) (##structure @@ -370,7 +370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81540 + __obj81802 'gx#identifier-wrap::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -378,7 +378,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81540 + __obj81802 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -386,26 +386,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81540 + __obj81802 '(marks) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81557 - (let ((__tmp81558 |gx[1]#_g81559_|)) + (let ((__tmp81819 + (let ((__tmp81820 |gx[1]#_g81821_|)) (declare (not safe)) - (cons __tmp81558 '())))) + (cons __tmp81820 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj81540 - __tmp81557 + __obj81802 + __tmp81819 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj81540 + __obj81802 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -413,7 +413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81540 + __obj81802 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -421,7 +421,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81540 + __obj81802 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -429,150 +429,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81540 + __obj81802 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81560 |gx[1]#_g81561_|)) + (let ((__tmp81822 |gx[1]#_g81823_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81540 - __tmp81560 + __obj81802 + __tmp81822 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81562 |gx[1]#_g81563_|)) + (let ((__tmp81824 |gx[1]#_g81825_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81540 - __tmp81562 + __obj81802 + __tmp81824 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81564 |gx[1]#_g81565_|)) + (let ((__tmp81826 |gx[1]#_g81827_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81540 - __tmp81564 + __obj81802 + __tmp81826 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81566 - (let ((__tmp81575 - (let ((__tmp81576 |gx[1]#_g81577_|)) + (let ((__tmp81828 + (let ((__tmp81837 + (let ((__tmp81838 |gx[1]#_g81839_|)) (declare (not safe)) - (cons 'marks __tmp81576))) - (__tmp81567 - (let ((__tmp81572 - (let ((__tmp81573 |gx[1]#_g81574_|)) + (cons 'marks __tmp81838))) + (__tmp81829 + (let ((__tmp81834 + (let ((__tmp81835 |gx[1]#_g81836_|)) (declare (not safe)) - (cons 'e __tmp81573))) - (__tmp81568 - (let ((__tmp81569 - (let ((__tmp81570 |gx[1]#_g81571_|)) + (cons 'e __tmp81835))) + (__tmp81830 + (let ((__tmp81831 + (let ((__tmp81832 |gx[1]#_g81833_|)) (declare (not safe)) - (cons 'source __tmp81570)))) + (cons 'source __tmp81832)))) (declare (not safe)) - (cons __tmp81569 '())))) + (cons __tmp81831 '())))) (declare (not safe)) - (cons __tmp81572 __tmp81568)))) + (cons __tmp81834 __tmp81830)))) (declare (not safe)) - (cons __tmp81575 __tmp81567)))) + (cons __tmp81837 __tmp81829)))) (declare (not safe)) (##unchecked-structure-set! - __obj81540 - __tmp81566 + __obj81802 + __tmp81828 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81578 - (let ((__tmp81587 - (let ((__tmp81588 |gx[1]#_g81589_|)) + (let ((__tmp81840 + (let ((__tmp81849 + (let ((__tmp81850 |gx[1]#_g81851_|)) (declare (not safe)) - (cons 'marks __tmp81588))) - (__tmp81579 - (let ((__tmp81584 - (let ((__tmp81585 |gx[1]#_g81586_|)) + (cons 'marks __tmp81850))) + (__tmp81841 + (let ((__tmp81846 + (let ((__tmp81847 |gx[1]#_g81848_|)) (declare (not safe)) - (cons 'e __tmp81585))) - (__tmp81580 - (let ((__tmp81581 - (let ((__tmp81582 |gx[1]#_g81583_|)) + (cons 'e __tmp81847))) + (__tmp81842 + (let ((__tmp81843 + (let ((__tmp81844 |gx[1]#_g81845_|)) (declare (not safe)) - (cons 'source __tmp81582)))) + (cons 'source __tmp81844)))) (declare (not safe)) - (cons __tmp81581 '())))) + (cons __tmp81843 '())))) (declare (not safe)) - (cons __tmp81584 __tmp81580)))) + (cons __tmp81846 __tmp81842)))) (declare (not safe)) - (cons __tmp81587 __tmp81579)))) + (cons __tmp81849 __tmp81841)))) (declare (not safe)) (##unchecked-structure-set! - __obj81540 - __tmp81578 + __obj81802 + __tmp81840 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81590 - (let ((__tmp81599 - (let ((__tmp81600 |gx[1]#_g81601_|)) + (let ((__tmp81852 + (let ((__tmp81861 + (let ((__tmp81862 |gx[1]#_g81863_|)) (declare (not safe)) - (cons 'marks __tmp81600))) - (__tmp81591 - (let ((__tmp81596 - (let ((__tmp81597 |gx[1]#_g81598_|)) + (cons 'marks __tmp81862))) + (__tmp81853 + (let ((__tmp81858 + (let ((__tmp81859 |gx[1]#_g81860_|)) (declare (not safe)) - (cons 'e __tmp81597))) - (__tmp81592 - (let ((__tmp81593 - (let ((__tmp81594 |gx[1]#_g81595_|)) + (cons 'e __tmp81859))) + (__tmp81854 + (let ((__tmp81855 + (let ((__tmp81856 |gx[1]#_g81857_|)) (declare (not safe)) - (cons 'source __tmp81594)))) + (cons 'source __tmp81856)))) (declare (not safe)) - (cons __tmp81593 '())))) + (cons __tmp81855 '())))) (declare (not safe)) - (cons __tmp81596 __tmp81592)))) + (cons __tmp81858 __tmp81854)))) (declare (not safe)) - (cons __tmp81599 __tmp81591)))) + (cons __tmp81861 __tmp81853)))) (declare (not safe)) (##unchecked-structure-set! - __obj81540 - __tmp81590 + __obj81802 + __tmp81852 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81602 - (let ((__tmp81611 - (let ((__tmp81612 |gx[1]#_g81613_|)) + (let ((__tmp81864 + (let ((__tmp81873 + (let ((__tmp81874 |gx[1]#_g81875_|)) (declare (not safe)) - (cons 'marks __tmp81612))) - (__tmp81603 - (let ((__tmp81608 - (let ((__tmp81609 |gx[1]#_g81610_|)) + (cons 'marks __tmp81874))) + (__tmp81865 + (let ((__tmp81870 + (let ((__tmp81871 |gx[1]#_g81872_|)) (declare (not safe)) - (cons 'e __tmp81609))) - (__tmp81604 - (let ((__tmp81605 - (let ((__tmp81606 |gx[1]#_g81607_|)) + (cons 'e __tmp81871))) + (__tmp81866 + (let ((__tmp81867 + (let ((__tmp81868 |gx[1]#_g81869_|)) (declare (not safe)) - (cons 'source __tmp81606)))) + (cons 'source __tmp81868)))) (declare (not safe)) - (cons __tmp81605 '())))) + (cons __tmp81867 '())))) (declare (not safe)) - (cons __tmp81608 __tmp81604)))) + (cons __tmp81870 __tmp81866)))) (declare (not safe)) - (cons __tmp81611 __tmp81603)))) + (cons __tmp81873 __tmp81865)))) (declare (not safe)) (##unchecked-structure-set! - __obj81540 - __tmp81602 + __obj81802 + __tmp81864 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj81540)) + __obj81802)) (define |gx[:0:]#syntax-wrap| - (let ((__obj81541 + (let ((__obj81803 (let () (declare (not safe)) (##structure @@ -595,7 +595,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81541 + __obj81803 'gx#syntax-wrap::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -603,7 +603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81541 + __obj81803 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -611,26 +611,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81541 + __obj81803 '(mark) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81614 - (let ((__tmp81615 |gx[1]#_g81559_|)) + (let ((__tmp81876 + (let ((__tmp81877 |gx[1]#_g81821_|)) (declare (not safe)) - (cons __tmp81615 '())))) + (cons __tmp81877 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj81541 - __tmp81614 + __obj81803 + __tmp81876 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj81541 + __obj81803 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -638,7 +638,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81541 + __obj81803 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81541 + __obj81803 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -654,150 +654,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81541 + __obj81803 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81616 |gx[1]#_g81617_|)) + (let ((__tmp81878 |gx[1]#_g81879_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81541 - __tmp81616 + __obj81803 + __tmp81878 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81618 |gx[1]#_g81619_|)) + (let ((__tmp81880 |gx[1]#_g81881_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81541 - __tmp81618 + __obj81803 + __tmp81880 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81620 |gx[1]#_g81621_|)) + (let ((__tmp81882 |gx[1]#_g81883_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81541 - __tmp81620 + __obj81803 + __tmp81882 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81622 - (let ((__tmp81631 - (let ((__tmp81632 |gx[1]#_g81633_|)) + (let ((__tmp81884 + (let ((__tmp81893 + (let ((__tmp81894 |gx[1]#_g81895_|)) (declare (not safe)) - (cons 'mark __tmp81632))) - (__tmp81623 - (let ((__tmp81628 - (let ((__tmp81629 |gx[1]#_g81630_|)) + (cons 'mark __tmp81894))) + (__tmp81885 + (let ((__tmp81890 + (let ((__tmp81891 |gx[1]#_g81892_|)) (declare (not safe)) - (cons 'e __tmp81629))) - (__tmp81624 - (let ((__tmp81625 - (let ((__tmp81626 |gx[1]#_g81627_|)) + (cons 'e __tmp81891))) + (__tmp81886 + (let ((__tmp81887 + (let ((__tmp81888 |gx[1]#_g81889_|)) (declare (not safe)) - (cons 'source __tmp81626)))) + (cons 'source __tmp81888)))) (declare (not safe)) - (cons __tmp81625 '())))) + (cons __tmp81887 '())))) (declare (not safe)) - (cons __tmp81628 __tmp81624)))) + (cons __tmp81890 __tmp81886)))) (declare (not safe)) - (cons __tmp81631 __tmp81623)))) + (cons __tmp81893 __tmp81885)))) (declare (not safe)) (##unchecked-structure-set! - __obj81541 - __tmp81622 + __obj81803 + __tmp81884 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81634 - (let ((__tmp81643 - (let ((__tmp81644 |gx[1]#_g81645_|)) + (let ((__tmp81896 + (let ((__tmp81905 + (let ((__tmp81906 |gx[1]#_g81907_|)) (declare (not safe)) - (cons 'mark __tmp81644))) - (__tmp81635 - (let ((__tmp81640 - (let ((__tmp81641 |gx[1]#_g81642_|)) + (cons 'mark __tmp81906))) + (__tmp81897 + (let ((__tmp81902 + (let ((__tmp81903 |gx[1]#_g81904_|)) (declare (not safe)) - (cons 'e __tmp81641))) - (__tmp81636 - (let ((__tmp81637 - (let ((__tmp81638 |gx[1]#_g81639_|)) + (cons 'e __tmp81903))) + (__tmp81898 + (let ((__tmp81899 + (let ((__tmp81900 |gx[1]#_g81901_|)) (declare (not safe)) - (cons 'source __tmp81638)))) + (cons 'source __tmp81900)))) (declare (not safe)) - (cons __tmp81637 '())))) + (cons __tmp81899 '())))) (declare (not safe)) - (cons __tmp81640 __tmp81636)))) + (cons __tmp81902 __tmp81898)))) (declare (not safe)) - (cons __tmp81643 __tmp81635)))) + (cons __tmp81905 __tmp81897)))) (declare (not safe)) (##unchecked-structure-set! - __obj81541 - __tmp81634 + __obj81803 + __tmp81896 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81646 - (let ((__tmp81655 - (let ((__tmp81656 |gx[1]#_g81657_|)) + (let ((__tmp81908 + (let ((__tmp81917 + (let ((__tmp81918 |gx[1]#_g81919_|)) (declare (not safe)) - (cons 'mark __tmp81656))) - (__tmp81647 - (let ((__tmp81652 - (let ((__tmp81653 |gx[1]#_g81654_|)) + (cons 'mark __tmp81918))) + (__tmp81909 + (let ((__tmp81914 + (let ((__tmp81915 |gx[1]#_g81916_|)) (declare (not safe)) - (cons 'e __tmp81653))) - (__tmp81648 - (let ((__tmp81649 - (let ((__tmp81650 |gx[1]#_g81651_|)) + (cons 'e __tmp81915))) + (__tmp81910 + (let ((__tmp81911 + (let ((__tmp81912 |gx[1]#_g81913_|)) (declare (not safe)) - (cons 'source __tmp81650)))) + (cons 'source __tmp81912)))) (declare (not safe)) - (cons __tmp81649 '())))) + (cons __tmp81911 '())))) (declare (not safe)) - (cons __tmp81652 __tmp81648)))) + (cons __tmp81914 __tmp81910)))) (declare (not safe)) - (cons __tmp81655 __tmp81647)))) + (cons __tmp81917 __tmp81909)))) (declare (not safe)) (##unchecked-structure-set! - __obj81541 - __tmp81646 + __obj81803 + __tmp81908 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81658 - (let ((__tmp81667 - (let ((__tmp81668 |gx[1]#_g81669_|)) + (let ((__tmp81920 + (let ((__tmp81929 + (let ((__tmp81930 |gx[1]#_g81931_|)) (declare (not safe)) - (cons 'mark __tmp81668))) - (__tmp81659 - (let ((__tmp81664 - (let ((__tmp81665 |gx[1]#_g81666_|)) + (cons 'mark __tmp81930))) + (__tmp81921 + (let ((__tmp81926 + (let ((__tmp81927 |gx[1]#_g81928_|)) (declare (not safe)) - (cons 'e __tmp81665))) - (__tmp81660 - (let ((__tmp81661 - (let ((__tmp81662 |gx[1]#_g81663_|)) + (cons 'e __tmp81927))) + (__tmp81922 + (let ((__tmp81923 + (let ((__tmp81924 |gx[1]#_g81925_|)) (declare (not safe)) - (cons 'source __tmp81662)))) + (cons 'source __tmp81924)))) (declare (not safe)) - (cons __tmp81661 '())))) + (cons __tmp81923 '())))) (declare (not safe)) - (cons __tmp81664 __tmp81660)))) + (cons __tmp81926 __tmp81922)))) (declare (not safe)) - (cons __tmp81667 __tmp81659)))) + (cons __tmp81929 __tmp81921)))) (declare (not safe)) (##unchecked-structure-set! - __obj81541 - __tmp81658 + __obj81803 + __tmp81920 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj81541)) + __obj81803)) (define |gx[:0:]#syntax-quote| - (let ((__obj81542 + (let ((__obj81804 (let () (declare (not safe)) (##structure @@ -820,7 +820,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81542 + __obj81804 'gx#syntax-quote::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -828,7 +828,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81542 + __obj81804 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -836,26 +836,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81542 + __obj81804 '(context marks) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81670 - (let ((__tmp81671 |gx[1]#_g81559_|)) + (let ((__tmp81932 + (let ((__tmp81933 |gx[1]#_g81821_|)) (declare (not safe)) - (cons __tmp81671 '())))) + (cons __tmp81933 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj81542 - __tmp81670 + __obj81804 + __tmp81932 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj81542 + __obj81804 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -863,7 +863,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81542 + __obj81804 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -871,7 +871,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81542 + __obj81804 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -879,173 +879,173 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81542 + __obj81804 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81672 |gx[1]#_g81673_|)) + (let ((__tmp81934 |gx[1]#_g81935_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81542 - __tmp81672 + __obj81804 + __tmp81934 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81674 |gx[1]#_g81675_|)) + (let ((__tmp81936 |gx[1]#_g81937_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81542 - __tmp81674 + __obj81804 + __tmp81936 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81676 |gx[1]#_g81677_|)) + (let ((__tmp81938 |gx[1]#_g81939_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81542 - __tmp81676 + __obj81804 + __tmp81938 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81678 - (let ((__tmp81691 - (let ((__tmp81692 |gx[1]#_g81693_|)) + (let ((__tmp81940 + (let ((__tmp81953 + (let ((__tmp81954 |gx[1]#_g81955_|)) (declare (not safe)) - (cons 'context __tmp81692))) - (__tmp81679 - (let ((__tmp81688 - (let ((__tmp81689 |gx[1]#_g81690_|)) + (cons 'context __tmp81954))) + (__tmp81941 + (let ((__tmp81950 + (let ((__tmp81951 |gx[1]#_g81952_|)) (declare (not safe)) - (cons 'marks __tmp81689))) - (__tmp81680 - (let ((__tmp81685 - (let ((__tmp81686 |gx[1]#_g81687_|)) + (cons 'marks __tmp81951))) + (__tmp81942 + (let ((__tmp81947 + (let ((__tmp81948 |gx[1]#_g81949_|)) (declare (not safe)) - (cons 'e __tmp81686))) - (__tmp81681 - (let ((__tmp81682 - (let ((__tmp81683 |gx[1]#_g81684_|)) + (cons 'e __tmp81948))) + (__tmp81943 + (let ((__tmp81944 + (let ((__tmp81945 |gx[1]#_g81946_|)) (declare (not safe)) - (cons 'source __tmp81683)))) + (cons 'source __tmp81945)))) (declare (not safe)) - (cons __tmp81682 '())))) + (cons __tmp81944 '())))) (declare (not safe)) - (cons __tmp81685 __tmp81681)))) + (cons __tmp81947 __tmp81943)))) (declare (not safe)) - (cons __tmp81688 __tmp81680)))) + (cons __tmp81950 __tmp81942)))) (declare (not safe)) - (cons __tmp81691 __tmp81679)))) + (cons __tmp81953 __tmp81941)))) (declare (not safe)) (##unchecked-structure-set! - __obj81542 - __tmp81678 + __obj81804 + __tmp81940 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81694 - (let ((__tmp81707 - (let ((__tmp81708 |gx[1]#_g81709_|)) + (let ((__tmp81956 + (let ((__tmp81969 + (let ((__tmp81970 |gx[1]#_g81971_|)) (declare (not safe)) - (cons 'context __tmp81708))) - (__tmp81695 - (let ((__tmp81704 - (let ((__tmp81705 |gx[1]#_g81706_|)) + (cons 'context __tmp81970))) + (__tmp81957 + (let ((__tmp81966 + (let ((__tmp81967 |gx[1]#_g81968_|)) (declare (not safe)) - (cons 'marks __tmp81705))) - (__tmp81696 - (let ((__tmp81701 - (let ((__tmp81702 |gx[1]#_g81703_|)) + (cons 'marks __tmp81967))) + (__tmp81958 + (let ((__tmp81963 + (let ((__tmp81964 |gx[1]#_g81965_|)) (declare (not safe)) - (cons 'e __tmp81702))) - (__tmp81697 - (let ((__tmp81698 - (let ((__tmp81699 |gx[1]#_g81700_|)) + (cons 'e __tmp81964))) + (__tmp81959 + (let ((__tmp81960 + (let ((__tmp81961 |gx[1]#_g81962_|)) (declare (not safe)) - (cons 'source __tmp81699)))) + (cons 'source __tmp81961)))) (declare (not safe)) - (cons __tmp81698 '())))) + (cons __tmp81960 '())))) (declare (not safe)) - (cons __tmp81701 __tmp81697)))) + (cons __tmp81963 __tmp81959)))) (declare (not safe)) - (cons __tmp81704 __tmp81696)))) + (cons __tmp81966 __tmp81958)))) (declare (not safe)) - (cons __tmp81707 __tmp81695)))) + (cons __tmp81969 __tmp81957)))) (declare (not safe)) (##unchecked-structure-set! - __obj81542 - __tmp81694 + __obj81804 + __tmp81956 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81710 - (let ((__tmp81723 - (let ((__tmp81724 |gx[1]#_g81725_|)) + (let ((__tmp81972 + (let ((__tmp81985 + (let ((__tmp81986 |gx[1]#_g81987_|)) (declare (not safe)) - (cons 'context __tmp81724))) - (__tmp81711 - (let ((__tmp81720 - (let ((__tmp81721 |gx[1]#_g81722_|)) + (cons 'context __tmp81986))) + (__tmp81973 + (let ((__tmp81982 + (let ((__tmp81983 |gx[1]#_g81984_|)) (declare (not safe)) - (cons 'marks __tmp81721))) - (__tmp81712 - (let ((__tmp81717 - (let ((__tmp81718 |gx[1]#_g81719_|)) + (cons 'marks __tmp81983))) + (__tmp81974 + (let ((__tmp81979 + (let ((__tmp81980 |gx[1]#_g81981_|)) (declare (not safe)) - (cons 'e __tmp81718))) - (__tmp81713 - (let ((__tmp81714 - (let ((__tmp81715 |gx[1]#_g81716_|)) + (cons 'e __tmp81980))) + (__tmp81975 + (let ((__tmp81976 + (let ((__tmp81977 |gx[1]#_g81978_|)) (declare (not safe)) - (cons 'source __tmp81715)))) + (cons 'source __tmp81977)))) (declare (not safe)) - (cons __tmp81714 '())))) + (cons __tmp81976 '())))) (declare (not safe)) - (cons __tmp81717 __tmp81713)))) + (cons __tmp81979 __tmp81975)))) (declare (not safe)) - (cons __tmp81720 __tmp81712)))) + (cons __tmp81982 __tmp81974)))) (declare (not safe)) - (cons __tmp81723 __tmp81711)))) + (cons __tmp81985 __tmp81973)))) (declare (not safe)) (##unchecked-structure-set! - __obj81542 - __tmp81710 + __obj81804 + __tmp81972 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp81726 - (let ((__tmp81739 - (let ((__tmp81740 |gx[1]#_g81741_|)) + (let ((__tmp81988 + (let ((__tmp82001 + (let ((__tmp82002 |gx[1]#_g82003_|)) (declare (not safe)) - (cons 'context __tmp81740))) - (__tmp81727 - (let ((__tmp81736 - (let ((__tmp81737 |gx[1]#_g81738_|)) + (cons 'context __tmp82002))) + (__tmp81989 + (let ((__tmp81998 + (let ((__tmp81999 |gx[1]#_g82000_|)) (declare (not safe)) - (cons 'marks __tmp81737))) - (__tmp81728 - (let ((__tmp81733 - (let ((__tmp81734 |gx[1]#_g81735_|)) + (cons 'marks __tmp81999))) + (__tmp81990 + (let ((__tmp81995 + (let ((__tmp81996 |gx[1]#_g81997_|)) (declare (not safe)) - (cons 'e __tmp81734))) - (__tmp81729 - (let ((__tmp81730 - (let ((__tmp81731 |gx[1]#_g81732_|)) + (cons 'e __tmp81996))) + (__tmp81991 + (let ((__tmp81992 + (let ((__tmp81993 |gx[1]#_g81994_|)) (declare (not safe)) - (cons 'source __tmp81731)))) + (cons 'source __tmp81993)))) (declare (not safe)) - (cons __tmp81730 '())))) + (cons __tmp81992 '())))) (declare (not safe)) - (cons __tmp81733 __tmp81729)))) + (cons __tmp81995 __tmp81991)))) (declare (not safe)) - (cons __tmp81736 __tmp81728)))) + (cons __tmp81998 __tmp81990)))) (declare (not safe)) - (cons __tmp81739 __tmp81727)))) + (cons __tmp82001 __tmp81989)))) (declare (not safe)) (##unchecked-structure-set! - __obj81542 - __tmp81726 + __obj81804 + __tmp81988 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj81542)))) + __obj81804)))) diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index e2000e11..1d99d8eb 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 1709375798) + (define gerbil/expander/stxcase::timestamp 1709457369) (begin (define gx#syntax-pattern::t - (let ((__tmp97326 (list gx#expander::t)) - (__tmp97324 - (let ((__tmp97325 + (let ((__tmp97588 (list gx#expander::t)) + (__tmp97586 + (let ((__tmp97587 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp97325 '())))) + (cons __tmp97587 '())))) (declare (not safe)) (make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp97326 + __tmp97588 '(id depth) - __tmp97324 + __tmp97586 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args97321_ - (apply make-instance gx#syntax-pattern::t _$args97321_))) + (lambda _$args97583_ + (apply make-instance gx#syntax-pattern::t _$args97583_))) (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 (_self97318_ _stx97319_) + (lambda (_self97580_ _stx97581_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx97319_)))) + _stx97581_)))) (let () (declare (not safe)) (bind-method!__% @@ -88,699 +88,699 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_stx96800_) - (letrec ((_generate96802_ - (lambda (_e97029_) - (letrec ((_BUG97031_ - (lambda (_q97193_) + (lambda (_stx97062_) + (letrec ((_generate97064_ + (lambda (_e97291_) + (letrec ((_BUG97293_ + (lambda (_q97455_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _stx96800_ - _e97029_ - _q97193_)))) - (_local-pattern-e97032_ - (lambda (_pat97191_) - (let ((__tmp97327 + _stx97062_ + _e97291_ + _q97455_)))) + (_local-pattern-e97294_ + (lambda (_pat97453_) + (let ((__tmp97589 (##structure-ref - _pat97191_ + _pat97453_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp97327)))) - (_getvar97033_ - (lambda (_q97188_ _vars97189_) + (gx#syntax-local-rewrap __tmp97589)))) + (_getvar97295_ + (lambda (_q97450_ _vars97451_) (let () (declare (not safe)) (assgetq__% - _q97188_ - _vars97189_ - _BUG97031_)))) - (_getarg97034_ - (lambda (_arg97154_ _vars97155_) - (let* ((_arg9715697163_ _arg97154_) - (_E9715897167_ + _q97450_ + _vars97451_ + _BUG97293_)))) + (_getarg97296_ + (lambda (_arg97416_ _vars97417_) + (let* ((_arg9741897425_ _arg97416_) + (_E9742097429_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arg9715697163_)))) - (_K9715997176_ - (lambda (_e97170_ _tag97171_) - (let ((_$e97173_ _tag97171_)) + _arg9741897425_)))) + (_K9742197438_ + (lambda (_e97432_ _tag97433_) + (let ((_$e97435_ _tag97433_)) (if (let () (declare (not safe)) - (eq? 'ref _$e97173_)) + (eq? 'ref _$e97435_)) (let () (declare (not safe)) - (_getvar97033_ - _e97170_ - _vars97155_)) + (_getvar97295_ + _e97432_ + _vars97417_)) (if (let () (declare (not safe)) - (eq? 'pattern _$e97173_)) + (eq? 'pattern _$e97435_)) (let () (declare (not safe)) - (_local-pattern-e97032_ - _e97170_)) + (_local-pattern-e97294_ + _e97432_)) (let () (declare (not safe)) - (_BUG97031_ - _arg97154_)))))))) + (_BUG97293_ + _arg97416_)))))))) (if (let () (declare (not safe)) - (##pair? _arg9715697163_)) - (let ((_hd9716097179_ + (##pair? _arg9741897425_)) + (let ((_hd9742297441_ (let () (declare (not safe)) - (##car _arg9715697163_))) - (_tl9716197181_ + (##car _arg9741897425_))) + (_tl9742397443_ (let () (declare (not safe)) - (##cdr _arg9715697163_)))) - (let* ((_tag97184_ _hd9716097179_) - (_e97186_ _tl9716197181_)) + (##cdr _arg9741897425_)))) + (let* ((_tag97446_ _hd9742297441_) + (_e97448_ _tl9742397443_)) (declare (not safe)) - (_K9715997176_ _e97186_ _tag97184_))) + (_K9742197438_ _e97448_ _tag97446_))) (let () (declare (not safe)) - (_E9715897167_))))))) - (let _recur97036_ ((_e97038_ _e97029_) (_vars97039_ '())) - (let* ((_e9704097047_ _e97038_) - (_E9704297051_ + (_E9742097429_))))))) + (let _recur97298_ ((_e97300_ _e97291_) (_vars97301_ '())) + (let* ((_e9730297309_ _e97300_) + (_E9730497313_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9704097047_)))) - (_K9704397142_ - (lambda (_body97054_ _tag97055_) - (let ((_$e97057_ _tag97055_)) + _e9730297309_)))) + (_K9730597404_ + (lambda (_body97316_ _tag97317_) + (let ((_$e97319_ _tag97317_)) (if (let () (declare (not safe)) - (eq? 'datum _$e97057_)) + (eq? 'datum _$e97319_)) (let () (declare (not safe)) - (gx#core-list 'quote _body97054_)) + (gx#core-list 'quote _body97316_)) (if (let () (declare (not safe)) - (eq? 'term _$e97057_)) - (let ((_id97060_ + (eq? 'term _$e97319_)) + (let ((_id97322_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _body97054_)))) + _body97316_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id97060_ + _id97322_ 'gx#identifier-wrap::t)) - (let ((_marks97062_ + (let ((_marks97324_ (let () (declare (not safe)) (##unchecked-structure-ref - _id97060_ + _id97322_ '3 gx#identifier-wrap::t '#f)))) (if (let () (declare (not safe)) - (null? _marks97062_)) - (let ((__tmp97355 + (null? _marks97324_)) + (let ((__tmp97617 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _body97054_)))) + (gx#core-list 'quote _body97316_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp97355)) - (let ((__tmp97354 + (gx#core-list 'datum->syntax '#f __tmp97617)) + (let ((__tmp97616 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _body97054_))) - (__tmp97353 + (gx#core-list 'quote-syntax _body97316_))) + (__tmp97615 (let () (declare (not safe)) - (gx#core-list 'quote _body97054_)))) + (gx#core-list 'quote _body97316_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp97354 - __tmp97353 + __tmp97616 + __tmp97615 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id97060_ + _id97322_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _body97054_)) + _body97316_)) (let () (declare (not safe)) - (_BUG97031_ - _e97038_))))) + (_BUG97293_ + _e97300_))))) (if (let () (declare (not safe)) - (eq? 'pattern _$e97057_)) + (eq? 'pattern _$e97319_)) (let () (declare (not safe)) - (_local-pattern-e97032_ - _body97054_)) + (_local-pattern-e97294_ + _body97316_)) (if (let () (declare (not safe)) - (eq? 'ref _$e97057_)) + (eq? 'ref _$e97319_)) (let () (declare (not safe)) - (_getvar97033_ - _body97054_ - _vars97039_)) + (_getvar97295_ + _body97316_ + _vars97301_)) (if (let () (declare (not safe)) (eq? 'cons - _$e97057_)) - (let ((__tmp97351 - (let ((__tmp97352 + _$e97319_)) + (let ((__tmp97613 + (let ((__tmp97614 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _body97054_))) + (car _body97316_))) (declare (not safe)) - (_recur97036_ __tmp97352 _vars97039_))) - (__tmp97349 - (let ((__tmp97350 (cdr _body97054_))) + (_recur97298_ __tmp97614 _vars97301_))) + (__tmp97611 + (let ((__tmp97612 (cdr _body97316_))) (declare (not safe)) - (_recur97036_ __tmp97350 _vars97039_)))) + (_recur97298_ __tmp97612 _vars97301_)))) (declare (not safe)) - (gx#core-list 'cons __tmp97351 __tmp97349)) - (if (let () (declare (not safe)) (eq? 'vector _$e97057_)) - (let ((__tmp97348 + (gx#core-list 'cons __tmp97613 __tmp97611)) + (if (let () (declare (not safe)) (eq? 'vector _$e97319_)) + (let ((__tmp97610 (let () (declare (not safe)) - (_recur97036_ _body97054_ _vars97039_)))) + (_recur97298_ _body97316_ _vars97301_)))) (declare (not safe)) - (gx#core-list 'list->vector __tmp97348)) - (if (let () (declare (not safe)) (eq? 'box _$e97057_)) - (let ((__tmp97347 + (gx#core-list 'list->vector __tmp97610)) + (if (let () (declare (not safe)) (eq? 'box _$e97319_)) + (let ((__tmp97609 (let () (declare (not safe)) - (_recur97036_ _body97054_ _vars97039_)))) + (_recur97298_ _body97316_ _vars97301_)))) (declare (not safe)) - (gx#core-list 'box __tmp97347)) + (gx#core-list 'box __tmp97609)) (if (let () (declare (not safe)) - (eq? 'splice _$e97057_)) - (let* ((_body9706397074_ _body97054_) - (_E9706597078_ + (eq? 'splice _$e97319_)) + (let* ((_body9732597336_ _body97316_) + (_E9732797340_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9706397074_)))) - (_K9706697116_ - (lambda (_args97081_ - _iv97082_ - _hd97083_ - _depth97084_) - (let* ((_targets97090_ - (map (lambda (_g9708597087_) + _body9732597336_)))) + (_K9732897378_ + (lambda (_args97343_ + _iv97344_ + _hd97345_ + _depth97346_) + (let* ((_targets97352_ + (map (lambda (_g9734797349_) (let () (declare (not safe)) - (_getarg97034_ - _g9708597087_ - _vars97039_))) - _args97081_)) - (_fold-in97092_ + (_getarg97296_ + _g9734797349_ + _vars97301_))) + _args97343_)) + (_fold-in97354_ (let () (declare (not safe)) - (gx#gentemps _args97081_))) - (_fold-out97094_ + (gx#gentemps _args97343_))) + (_fold-out97356_ (let () (declare (not safe)) (gx#genident__0))) - (_lambda-args97096_ - (let ((__tmp97328 + (_lambda-args97358_ + (let ((__tmp97590 (let () (declare (not safe)) - (cons _fold-out97094_ + (cons _fold-out97356_ '())))) (declare (not safe)) (foldr1 cons - __tmp97328 - _fold-in97092_))) - (_lambda-body97113_ - (if (fx> _depth97084_ '1) - (let ((_r-args97104_ - (map (lambda (_arg97098_) - (let ((__tmp97333 + __tmp97590 + _fold-in97354_))) + (_lambda-body97375_ + (if (fx> _depth97346_ '1) + (let ((_r-args97366_ + (map (lambda (_arg97360_) + (let ((__tmp97595 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg97098_))) + (cdr _arg97360_))) (declare (not safe)) - (cons 'ref __tmp97333))) - _args97081_)) - (_r-vars97105_ - (let ((__tmp97334 - (lambda (_arg97100_ _var97101_ _r97102_) - (let ((__tmp97335 - (let ((__tmp97336 (cdr _arg97100_))) + (cons 'ref __tmp97595))) + _args97343_)) + (_r-vars97367_ + (let ((__tmp97596 + (lambda (_arg97362_ _var97363_ _r97364_) + (let ((__tmp97597 + (let ((__tmp97598 (cdr _arg97362_))) (declare (not safe)) - (cons __tmp97336 _var97101_)))) + (cons __tmp97598 _var97363_)))) (declare (not safe)) - (cons __tmp97335 _r97102_))))) + (cons __tmp97597 _r97364_))))) (declare (not safe)) - (foldr2 __tmp97334 - _vars97039_ - _args97081_ - _fold-in97092_)))) + (foldr2 __tmp97596 + _vars97301_ + _args97343_ + _fold-in97354_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp97337 - (let ((__tmp97338 + (let ((__tmp97599 + (let ((__tmp97600 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97342 + (let ((__tmp97604 (let () (declare (not safe)) - (fx- _depth97084_ '1))) - (__tmp97339 - (let ((__tmp97340 - (let ((__tmp97341 + (fx- _depth97346_ '1))) + (__tmp97601 + (let ((__tmp97602 + (let ((__tmp97603 (let () (declare (not safe)) - (cons 'var _fold-out97094_)))) + (cons 'var _fold-out97356_)))) (declare (not safe)) - (cons __tmp97341 _r-args97104_)))) + (cons __tmp97603 _r-args97366_)))) (declare (not safe)) - (cons _hd97083_ __tmp97340)))) + (cons _hd97345_ __tmp97602)))) (declare (not safe)) - (cons __tmp97342 __tmp97339)))) + (cons __tmp97604 __tmp97601)))) (declare (not safe)) - (cons 'splice __tmp97338)))) + (cons 'splice __tmp97600)))) (declare (not safe)) - (_recur97036_ __tmp97337 _r-vars97105_))) + (_recur97298_ __tmp97599 _r-vars97367_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_hd-vars97111_ - (let ((__tmp97329 + (let* ((_hd-vars97373_ + (let ((__tmp97591 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_arg97107_ _var97108_ _r97109_) - (let ((__tmp97330 - (let ((__tmp97331 (cdr _arg97107_))) + (lambda (_arg97369_ _var97370_ _r97371_) + (let ((__tmp97592 + (let ((__tmp97593 (cdr _arg97369_))) (declare (not safe)) - (cons __tmp97331 _var97108_)))) + (cons __tmp97593 _var97370_)))) (declare (not safe)) - (cons __tmp97330 _r97109_))))) + (cons __tmp97592 _r97371_))))) (declare (not safe)) - (foldr2 __tmp97329 - _vars97039_ - _args97081_ - _fold-in97092_))) - (__tmp97332 + (foldr2 __tmp97591 + _vars97301_ + _args97343_ + _fold-in97354_))) + (__tmp97594 (let () (declare (not safe)) - (_recur97036_ _hd97083_ _hd-vars97111_)))) + (_recur97298_ _hd97345_ _hd-vars97373_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp97332 - _fold-out97094_))))) - (let ((__tmp97346 - (if (fx> (length _targets97090_) + __tmp97594 + _fold-out97356_))))) + (let ((__tmp97608 + (if (fx> (length _targets97352_) '1) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _targets97090_)) + _targets97352_)) '#!void)) - (__tmp97343 - (let ((__tmp97345 + (__tmp97605 + (let ((__tmp97607 (let () (declare (not safe)) (gx#core-list 'lambda% - _lambda-args97096_ - _lambda-body97113_))) - (__tmp97344 + _lambda-args97358_ + _lambda-body97375_))) + (__tmp97606 (let () (declare (not safe)) - (_recur97036_ - _iv97082_ - _vars97039_)))) + (_recur97298_ + _iv97344_ + _vars97301_)))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp97345 - __tmp97344 - _targets97090_)))) + __tmp97607 + __tmp97606 + _targets97352_)))) (declare (not safe)) (gx#core-list 'begin - __tmp97346 - __tmp97343)))))) + __tmp97608 + __tmp97605)))))) (if (let () (declare (not safe)) - (##pair? _body9706397074_)) - (let ((_hd9706797119_ + (##pair? _body9732597336_)) + (let ((_hd9732997381_ (let () (declare (not safe)) - (##car _body9706397074_))) - (_tl9706897121_ + (##car _body9732597336_))) + (_tl9733097383_ (let () (declare (not safe)) - (##cdr _body9706397074_)))) - (let ((_depth97124_ _hd9706797119_)) + (##cdr _body9732597336_)))) + (let ((_depth97386_ _hd9732997381_)) (if (let () (declare (not safe)) - (##pair? _tl9706897121_)) - (let ((_hd9706997126_ + (##pair? _tl9733097383_)) + (let ((_hd9733197388_ (let () (declare (not safe)) - (##car _tl9706897121_))) - (_tl9707097128_ + (##car _tl9733097383_))) + (_tl9733297390_ (let () (declare (not safe)) - (##cdr _tl9706897121_)))) - (let ((_hd97131_ _hd9706997126_)) + (##cdr _tl9733097383_)))) + (let ((_hd97393_ _hd9733197388_)) (if (let () (declare (not safe)) - (##pair? _tl9707097128_)) - (let ((_hd9707197133_ + (##pair? _tl9733297390_)) + (let ((_hd9733397395_ (let () (declare (not safe)) - (##car _tl9707097128_))) - (_tl9707297135_ + (##car _tl9733297390_))) + (_tl9733497397_ (let () (declare (not safe)) - (##cdr _tl9707097128_)))) - (let* ((_iv97138_ - _hd9707197133_) - (_args97140_ - _tl9707297135_)) + (##cdr _tl9733297390_)))) + (let* ((_iv97400_ + _hd9733397395_) + (_args97402_ + _tl9733497397_)) (declare (not safe)) - (_K9706697116_ - _args97140_ - _iv97138_ - _hd97131_ - _depth97124_))) + (_K9732897378_ + _args97402_ + _iv97400_ + _hd97393_ + _depth97386_))) (let () (declare (not safe)) - (_E9706597078_))))) + (_E9732797340_))))) (let () (declare (not safe)) - (_E9706597078_))))) + (_E9732797340_))))) (let () (declare (not safe)) - (_E9706597078_)))) + (_E9732797340_)))) (if (let () (declare (not safe)) - (eq? 'var _$e97057_)) - _body97054_ + (eq? 'var _$e97319_)) + _body97316_ (let () (declare (not safe)) - (_BUG97031_ _e97038_))))))))))))))) + (_BUG97293_ _e97300_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9704097047_)) - (let ((_hd9704497145_ + (##pair? _e9730297309_)) + (let ((_hd9730697407_ (let () (declare (not safe)) - (##car _e9704097047_))) - (_tl9704597147_ + (##car _e9730297309_))) + (_tl9730797409_ (let () (declare (not safe)) - (##cdr _e9704097047_)))) - (let* ((_tag97150_ _hd9704497145_) - (_body97152_ _tl9704597147_)) + (##cdr _e9730297309_)))) + (let* ((_tag97412_ _hd9730697407_) + (_body97414_ _tl9730797409_)) (declare (not safe)) - (_K9704397142_ _body97152_ _tag97150_))) + (_K9730597404_ _body97414_ _tag97412_))) (let () (declare (not safe)) - (_E9704297051_)))))))) - (_parse96803_ - (lambda (_e96844_) - (letrec ((_make-cons96846_ - (lambda (_hd97021_ _tl97022_) - (let ((_g97356_ _hd97021_) - (_g97358_ _tl97022_)) + (_E9730497313_)))))))) + (_parse97065_ + (lambda (_e97106_) + (letrec ((_make-cons97108_ + (lambda (_hd97283_ _tl97284_) + (let ((_g97618_ _hd97283_) + (_g97620_ _tl97284_)) (begin - (let ((_g97357_ + (let ((_g97619_ (let () (declare (not safe)) - (if (##values? _g97356_) - (##vector-length _g97356_) + (if (##values? _g97618_) + (##vector-length _g97618_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97357_ 2))) + (##fx= _g97619_ 2))) (error "Context expects 2 values" - _g97357_))) - (let ((_g97359_ + _g97619_))) + (let ((_g97621_ (let () (declare (not safe)) - (if (##values? _g97358_) - (##vector-length _g97358_) + (if (##values? _g97620_) + (##vector-length _g97620_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97359_ 2))) + (##fx= _g97621_ 2))) (error "Context expects 2 values" - _g97359_))) - (let ((_hd-e97024_ + _g97621_))) + (let ((_hd-e97286_ (let () (declare (not safe)) - (##vector-ref _g97356_ 0))) - (_hd-vars97025_ + (##vector-ref _g97618_ 0))) + (_hd-vars97287_ (let () (declare (not safe)) - (##vector-ref _g97356_ 1)))) - (let ((_tl-e97026_ + (##vector-ref _g97618_ 1)))) + (let ((_tl-e97288_ (let () (declare (not safe)) - (##vector-ref _g97358_ 0))) - (_tl-vars97027_ + (##vector-ref _g97620_ 0))) + (_tl-vars97289_ (let () (declare (not safe)) - (##vector-ref _g97358_ 1)))) - (values (let ((__tmp97360 + (##vector-ref _g97620_ 1)))) + (values (let ((__tmp97622 (let () (declare (not safe)) - (cons _hd-e97024_ - _tl-e97026_)))) + (cons _hd-e97286_ + _tl-e97288_)))) (declare (not safe)) - (cons 'cons __tmp97360)) - (append _hd-vars97025_ - _tl-vars97027_)))))))) - (_make-splice96847_ - (lambda (_where96960_ - _depth96961_ - _hd96962_ - _tl96963_) - (let ((_g97361_ _hd96962_) - (_g97363_ _tl96963_)) + (cons 'cons __tmp97622)) + (append _hd-vars97287_ + _tl-vars97289_)))))))) + (_make-splice97109_ + (lambda (_where97222_ + _depth97223_ + _hd97224_ + _tl97225_) + (let ((_g97623_ _hd97224_) + (_g97625_ _tl97225_)) (begin - (let ((_g97362_ + (let ((_g97624_ (let () (declare (not safe)) - (if (##values? _g97361_) - (##vector-length _g97361_) + (if (##values? _g97623_) + (##vector-length _g97623_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97362_ 2))) + (##fx= _g97624_ 2))) (error "Context expects 2 values" - _g97362_))) - (let ((_g97364_ + _g97624_))) + (let ((_g97626_ (let () (declare (not safe)) - (if (##values? _g97363_) - (##vector-length _g97363_) + (if (##values? _g97625_) + (##vector-length _g97625_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97364_ 2))) + (##fx= _g97626_ 2))) (error "Context expects 2 values" - _g97364_))) - (let ((_hd-e96965_ + _g97626_))) + (let ((_hd-e97227_ (let () (declare (not safe)) - (##vector-ref _g97361_ 0))) - (_hd-vars96966_ + (##vector-ref _g97623_ 0))) + (_hd-vars97228_ (let () (declare (not safe)) - (##vector-ref _g97361_ 1)))) - (let ((_tl-e96967_ + (##vector-ref _g97623_ 1)))) + (let ((_tl-e97229_ (let () (declare (not safe)) - (##vector-ref _g97363_ 0))) - (_tl-vars96968_ + (##vector-ref _g97625_ 0))) + (_tl-vars97230_ (let () (declare (not safe)) - (##vector-ref _g97363_ 1)))) - (let _lp96970_ ((_rest96972_ - _hd-vars96966_) - (_targets96973_ '()) - (_vars96974_ - _tl-vars96968_)) - (let* ((_rest9697596985_ _rest96972_) - (_else9697796993_ + (##vector-ref _g97625_ 1)))) + (let _lp97232_ ((_rest97234_ + _hd-vars97228_) + (_targets97235_ '()) + (_vars97236_ + _tl-vars97230_)) + (let* ((_rest9723797247_ _rest97234_) + (_else9723997255_ (lambda () (if (let () (declare (not safe)) - (null? _targets96973_)) + (null? _targets97235_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx96800_ - _where96960_)) - (values (let ((__tmp97365 + _stx97062_ + _where97222_)) + (values (let ((__tmp97627 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97366 - (let ((__tmp97367 + (let ((__tmp97628 + (let ((__tmp97629 (let () (declare (not safe)) - (cons _tl-e96967_ - _targets96973_)))) + (cons _tl-e97229_ + _targets97235_)))) (declare (not safe)) - (cons _hd-e96965_ __tmp97367)))) + (cons _hd-e97227_ __tmp97629)))) (declare (not safe)) - (cons _depth96961_ __tmp97366)))) + (cons _depth97223_ __tmp97628)))) (declare (not safe)) - (cons 'splice __tmp97365)) - _vars96974_)))) + (cons 'splice __tmp97627)) + _vars97236_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9697997002_ - (lambda (_rest96996_ - _hd-pat96997_ - _hd-depth*96998_) - (let ((_hd-depth97000_ - (fx- _hd-depth*96998_ - _depth96961_))) + (_K9724197264_ + (lambda (_rest97258_ + _hd-pat97259_ + _hd-depth*97260_) + (let ((_hd-depth97262_ + (fx- _hd-depth*97260_ + _depth97223_))) (if (fxpositive? - _hd-depth97000_) - (let ((__tmp97372 + _hd-depth97262_) + (let ((__tmp97634 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97373 + (let ((__tmp97635 (let () (declare (not safe)) - (cons 'ref _hd-pat96997_)))) + (cons 'ref _hd-pat97259_)))) (declare (not safe)) - (cons __tmp97373 _targets96973_))) - (__tmp97370 - (let ((__tmp97371 + (cons __tmp97635 _targets97235_))) + (__tmp97632 + (let ((__tmp97633 (let () (declare (not safe)) - (cons _hd-depth97000_ _hd-pat96997_)))) + (cons _hd-depth97262_ _hd-pat97259_)))) (declare (not safe)) - (cons __tmp97371 _vars96974_)))) + (cons __tmp97633 _vars97236_)))) (declare (not safe)) - (_lp96970_ _rest96996_ __tmp97372 __tmp97370)) - (if (let () (declare (not safe)) (fxzero? _hd-depth97000_)) - (let ((__tmp97368 - (let ((__tmp97369 + (_lp97232_ _rest97258_ __tmp97634 __tmp97632)) + (if (let () (declare (not safe)) (fxzero? _hd-depth97262_)) + (let ((__tmp97630 + (let ((__tmp97631 (let () (declare (not safe)) - (cons 'pattern _hd-pat96997_)))) + (cons 'pattern _hd-pat97259_)))) (declare (not safe)) - (cons __tmp97369 _targets96973_)))) + (cons __tmp97631 _targets97235_)))) (declare (not safe)) - (_lp96970_ _rest96996_ __tmp97368 _vars96974_)) + (_lp97232_ _rest97258_ __tmp97630 _vars97236_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx96800_ - _where96960_)))))))) + _stx97062_ + _where97222_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest9697596985_)) - (let ((_hd9698097005_ + (##pair? _rest9723797247_)) + (let ((_hd9724297267_ (let () (declare (not safe)) - (##car _rest9697596985_))) - (_tl9698197007_ + (##car _rest9723797247_))) + (_tl9724397269_ (let () (declare (not safe)) - (##cdr _rest9697596985_)))) + (##cdr _rest9723797247_)))) (if (let () (declare (not safe)) - (##pair? _hd9698097005_)) - (let ((_hd9698297010_ + (##pair? _hd9724297267_)) + (let ((_hd9724497272_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd9698097005_))) - (_tl9698397012_ - (let () (declare (not safe)) (##cdr _hd9698097005_)))) - (let* ((_hd-depth*97015_ _hd9698297010_) - (_hd-pat97017_ _tl9698397012_) - (_rest97019_ _tl9698197007_)) + (##car _hd9724297267_))) + (_tl9724597274_ + (let () (declare (not safe)) (##cdr _hd9724297267_)))) + (let* ((_hd-depth*97277_ _hd9724497272_) + (_hd-pat97279_ _tl9724597274_) + (_rest97281_ _tl9724397269_)) (declare (not safe)) - (_K9697997002_ _rest97019_ _hd-pat97017_ _hd-depth*97015_))) - (let () (declare (not safe)) (_else9697796993_)))) + (_K9724197264_ _rest97281_ _hd-pat97279_ _hd-depth*97277_))) + (let () (declare (not safe)) (_else9723997255_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else9697796993_))))))))))) - (_recur96848_ - (lambda (_e96853_ _is-e?96854_) - (if (_is-e?96854_ _e96853_) + (_else9723997255_))))))))))) + (_recur97110_ + (lambda (_e97115_ _is-e?97116_) + (if (_is-e?97116_ _e97115_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx96800_)) + _stx97062_)) (if (let () (declare (not safe)) - (gx#syntax-local-pattern? _e96853_)) - (let* ((_pat96856_ + (gx#syntax-local-pattern? _e97115_)) + (let* ((_pat97118_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _e96853_))) - (_depth96858_ + _e97115_))) + (_depth97120_ (##structure-ref - _pat96856_ + _pat97118_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth96858_) + (if (fxpositive? _depth97120_) (values (let () (declare (not safe)) - (cons 'ref _pat96856_)) - (let ((__tmp97389 + (cons 'ref _pat97118_)) + (let ((__tmp97651 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _depth96858_ _pat96856_)))) + (cons _depth97120_ _pat97118_)))) (declare (not safe)) - (cons __tmp97389 '()))) + (cons __tmp97651 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (let () (declare (not safe)) (cons 'pattern - _pat96856_)) + _pat97118_)) '()))) (if (let () (declare (not safe)) - (gx#identifier? _e96853_)) + (gx#identifier? _e97115_)) (values (let () (declare (not safe)) - (cons 'term _e96853_)) + (cons 'term _e97115_)) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _e96853_)) - (let* ((_e9686096867_ _e96853_) - (_E9686296871_ + (gx#stx-pair? _e97115_)) + (let* ((_e9712297129_ _e97115_) + (_E9712497133_ (lambda () (let () (declare @@ -788,2429 +788,2429 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9686096867_)))) - (_E9686196950_ + _e9712297129_)))) + (_E9712397212_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _e9686096867_)) - (let ((_e9686396875_ + (gx#stx-pair? _e9712297129_)) + (let ((_e9712597137_ (let () (declare (not safe)) - (gx#syntax-e _e9686096867_)))) - (let ((_hd9686496878_ + (gx#syntax-e _e9712297129_)))) + (let ((_hd9712697140_ (let () (declare (not safe)) - (##car _e9686396875_))) - (_tl9686596880_ + (##car _e9712597137_))) + (_tl9712797142_ (let () (declare (not safe)) - (##cdr _e9686396875_)))) - (let* ((_hd96883_ _hd9686496878_) - (_rest96885_ _tl9686596880_)) + (##cdr _e9712597137_)))) + (let* ((_hd97145_ _hd9712697140_) + (_rest97147_ _tl9712797142_)) (if '#t - (if (_is-e?96854_ _hd96883_) - (let* ((_e9688696893_ _rest96885_) - (_E9688896897_ + (if (_is-e?97116_ _hd97145_) + (let* ((_e9714897155_ _rest97147_) + (_E9715097159_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx96800_ - _e96853_)))) - (_E9688796911_ + _stx97062_ + _e97115_)))) + (_E9714997173_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e9688696893_)) - (let ((_e9688996901_ + _e9714897155_)) + (let ((_e9715197163_ (let () (declare (not safe)) (gx#syntax-e - _e9688696893_)))) - (let ((_hd9689096904_ + _e9714897155_)))) + (let ((_hd9715297166_ (let () (declare (not safe)) - (##car _e9688996901_))) - (_tl9689196906_ + (##car _e9715197163_))) + (_tl9715397168_ (let () (declare (not safe)) - (##cdr _e9688996901_)))) - (let ((_rest96909_ - _hd9689096904_)) + (##cdr _e9715197163_)))) + (let ((_rest97171_ + _hd9715297166_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl9689196906_)) + _tl9715397168_)) (if '#t (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_recur96848_ _rest96909_ false)) - (let () (declare (not safe)) (_E9688896897_))) - (let () (declare (not safe)) (_E9688896897_)))))) + (_recur97110_ _rest97171_ false)) + (let () (declare (not safe)) (_E9715097159_))) + (let () (declare (not safe)) (_E9715097159_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9688896897_)))))) + (_E9715097159_)))))) (let () (declare (not safe)) - (_E9688796911_))) - (let _lp96915_ ((_rest96917_ _rest96885_) - (_depth96918_ '0)) - (let* ((_e9691996926_ _rest96917_) - (_E9692196930_ + (_E9714997173_))) + (let _lp97177_ ((_rest97179_ _rest97147_) + (_depth97180_ '0)) + (let* ((_e9718197188_ _rest97179_) + (_E9718397192_ (lambda () - (if (fxpositive? _depth96918_) - (let ((__tmp97383 + (if (fxpositive? _depth97180_) + (let ((__tmp97645 (let () (declare (not safe)) - (_recur96848_ - _hd96883_ - _is-e?96854_))) - (__tmp97382 + (_recur97110_ + _hd97145_ + _is-e?97116_))) + (__tmp97644 (let () (declare (not safe)) - (_recur96848_ - _rest96917_ - _is-e?96854_)))) + (_recur97110_ + _rest97179_ + _is-e?97116_)))) (declare (not safe)) - (_make-splice96847_ - _e96853_ - _depth96918_ - __tmp97383 - __tmp97382)) - (let ((__tmp97381 + (_make-splice97109_ + _e97115_ + _depth97180_ + __tmp97645 + __tmp97644)) + (let ((__tmp97643 (let () (declare (not safe)) - (_recur96848_ - _hd96883_ - _is-e?96854_))) - (__tmp97380 + (_recur97110_ + _hd97145_ + _is-e?97116_))) + (__tmp97642 (let () (declare (not safe)) - (_recur96848_ - _rest96917_ - _is-e?96854_)))) + (_recur97110_ + _rest97179_ + _is-e?97116_)))) (declare (not safe)) - (_make-cons96846_ - __tmp97381 - __tmp97380))))) - (_E9692096946_ + (_make-cons97108_ + __tmp97643 + __tmp97642))))) + (_E9718297208_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e9691996926_)) - (let ((_e9692296934_ + _e9718197188_)) + (let ((_e9718497196_ (let () (declare (not safe)) (gx#syntax-e - _e9691996926_)))) - (let ((_hd9692396937_ + _e9718197188_)))) + (let ((_hd9718597199_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e9692296934_))) - (_tl9692496939_ - (let () (declare (not safe)) (##cdr _e9692296934_)))) - (let* ((_rest-hd96942_ _hd9692396937_) - (_rest-tl96944_ _tl9692496939_)) + (##car _e9718497196_))) + (_tl9718697201_ + (let () (declare (not safe)) (##cdr _e9718497196_)))) + (let* ((_rest-hd97204_ _hd9718597199_) + (_rest-tl97206_ _tl9718697201_)) (if '#t - (if (_is-e?96854_ _rest-hd96942_) - (let ((__tmp97388 + (if (_is-e?97116_ _rest-hd97204_) + (let ((__tmp97650 (let () (declare (not safe)) - (fx+ _depth96918_ '1)))) + (fx+ _depth97180_ '1)))) (declare (not safe)) - (_lp96915_ _rest-tl96944_ __tmp97388)) - (if (fxpositive? _depth96918_) - (let ((__tmp97387 + (_lp97177_ _rest-tl97206_ __tmp97650)) + (if (fxpositive? _depth97180_) + (let ((__tmp97649 (let () (declare (not safe)) - (_recur96848_ _hd96883_ _is-e?96854_))) - (__tmp97386 + (_recur97110_ _hd97145_ _is-e?97116_))) + (__tmp97648 (let () (declare (not safe)) - (_recur96848_ - _rest96917_ - _is-e?96854_)))) + (_recur97110_ + _rest97179_ + _is-e?97116_)))) (declare (not safe)) - (_make-splice96847_ - _e96853_ - _depth96918_ - __tmp97387 - __tmp97386)) - (let ((__tmp97385 + (_make-splice97109_ + _e97115_ + _depth97180_ + __tmp97649 + __tmp97648)) + (let ((__tmp97647 (let () (declare (not safe)) - (_recur96848_ _hd96883_ _is-e?96854_))) - (__tmp97384 + (_recur97110_ _hd97145_ _is-e?97116_))) + (__tmp97646 (let () (declare (not safe)) - (_recur96848_ - _rest96917_ - _is-e?96854_)))) + (_recur97110_ + _rest97179_ + _is-e?97116_)))) (declare (not safe)) - (_make-cons96846_ __tmp97385 __tmp97384)))) - (let () (declare (not safe)) (_E9692196930_)))))) + (_make-cons97108_ __tmp97647 __tmp97646)))) + (let () (declare (not safe)) (_E9718397192_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9692196930_)))))) + (_E9718397192_)))))) (let () (declare (not safe)) - (_E9692096946_))))) + (_E9718297208_))))) (let () (declare (not safe)) - (_E9686296871_)))))) - (let () (declare (not safe)) (_E9686296871_)))))) + (_E9712497133_)))))) + (let () (declare (not safe)) (_E9712497133_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9686196950_))) + (_E9712397212_))) (if (let () (declare (not safe)) (gx#stx-vector? - _e96853_)) - (let ((_g97377_ - (let ((__tmp97379 + _e97115_)) + (let ((_g97639_ + (let ((__tmp97641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (vector->list (let () (declare (not safe)) - (gx#stx-unwrap__0 _e96853_))))) + (gx#stx-unwrap__0 _e97115_))))) (declare (not safe)) - (_recur96848_ __tmp97379 _is-e?96854_)))) + (_recur97110_ __tmp97641 _is-e?97116_)))) (begin - (let ((_g97378_ + (let ((_g97640_ (let () (declare (not safe)) - (if (##values? _g97377_) - (##vector-length _g97377_) + (if (##values? _g97639_) + (##vector-length _g97639_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g97378_ 2))) - (error "Context expects 2 values" _g97378_))) - (let ((_e96954_ - (let () (declare (not safe)) (##vector-ref _g97377_ 0))) - (_vars96955_ + (if (not (let () (declare (not safe)) (##fx= _g97640_ 2))) + (error "Context expects 2 values" _g97640_))) + (let ((_e97216_ + (let () (declare (not safe)) (##vector-ref _g97639_ 0))) + (_vars97217_ (let () (declare (not safe)) - (##vector-ref _g97377_ 1)))) - (values (let () (declare (not safe)) (cons 'vector _e96954_)) - _vars96955_)))) + (##vector-ref _g97639_ 1)))) + (values (let () (declare (not safe)) (cons 'vector _e97216_)) + _vars97217_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _e96853_)) - (let ((_g97374_ - (let ((__tmp97376 + _e97115_)) + (let ((_g97636_ + (let ((__tmp97638 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (unbox (let () (declare (not safe)) - (gx#stx-unwrap__0 _e96853_))))) + (gx#stx-unwrap__0 _e97115_))))) (declare (not safe)) - (_recur96848_ __tmp97376 _is-e?96854_)))) + (_recur97110_ __tmp97638 _is-e?97116_)))) (begin - (let ((_g97375_ + (let ((_g97637_ (let () (declare (not safe)) - (if (##values? _g97374_) - (##vector-length _g97374_) + (if (##values? _g97636_) + (##vector-length _g97636_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97375_ 2))) - (error "Context expects 2 values" _g97375_))) - (let ((_e96957_ + (##fx= _g97637_ 2))) + (error "Context expects 2 values" _g97637_))) + (let ((_e97219_ (let () (declare (not safe)) - (##vector-ref _g97374_ 0))) - (_vars96958_ + (##vector-ref _g97636_ 0))) + (_vars97220_ (let () (declare (not safe)) - (##vector-ref _g97374_ 1)))) + (##vector-ref _g97636_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e96957_)) - _vars96958_)))) - (values (let () (declare (not safe)) (cons 'datum _e96853_)) + (cons 'box _e97219_)) + _vars97220_)))) + (values (let () (declare (not safe)) (cons 'datum _e97115_)) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g97390_ + (let ((_g97652_ (let () (declare (not safe)) - (_recur96848_ _e96844_ gx#ellipsis?)))) + (_recur97110_ _e97106_ gx#ellipsis?)))) (begin - (let ((_g97391_ + (let ((_g97653_ (let () (declare (not safe)) - (if (##values? _g97390_) - (##vector-length _g97390_) + (if (##values? _g97652_) + (##vector-length _g97652_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97391_ 2))) - (error "Context expects 2 values" _g97391_))) - (let ((_tree96850_ + (##fx= _g97653_ 2))) + (error "Context expects 2 values" _g97653_))) + (let ((_tree97112_ (let () (declare (not safe)) - (##vector-ref _g97390_ 0))) - (_vars96851_ + (##vector-ref _g97652_ 0))) + (_vars97113_ (let () (declare (not safe)) - (##vector-ref _g97390_ 1)))) + (##vector-ref _g97652_ 1)))) (if (let () (declare (not safe)) - (null? _vars96851_)) - _tree96850_ + (null? _vars97113_)) + _tree97112_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx96800_ - _vars96851_)))))))))) - (let* ((_e9680496814_ _stx96800_) - (_E9680696818_ + _stx97062_ + _vars97113_)))))))))) + (let* ((_e9706697076_ _stx97062_) + (_E9706897080_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _stx96800_)))) - (_E9680596840_ + _stx97062_)))) + (_E9706797102_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9680496814_)) - (let ((_e9680796822_ + (gx#stx-pair? _e9706697076_)) + (let ((_e9706997084_ (let () (declare (not safe)) - (gx#syntax-e _e9680496814_)))) - (let ((_hd9680896825_ + (gx#syntax-e _e9706697076_)))) + (let ((_hd9707097087_ (let () (declare (not safe)) - (##car _e9680796822_))) - (_tl9680996827_ + (##car _e9706997084_))) + (_tl9707197089_ (let () (declare (not safe)) - (##cdr _e9680796822_)))) + (##cdr _e9706997084_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9680996827_)) - (let ((_e9681096830_ + (gx#stx-pair? _tl9707197089_)) + (let ((_e9707297092_ (let () (declare (not safe)) - (gx#syntax-e _tl9680996827_)))) - (let ((_hd9681196833_ + (gx#syntax-e _tl9707197089_)))) + (let ((_hd9707397095_ (let () (declare (not safe)) - (##car _e9681096830_))) - (_tl9681296835_ + (##car _e9707297092_))) + (_tl9707497097_ (let () (declare (not safe)) - (##cdr _e9681096830_)))) - (let ((_form96838_ _hd9681196833_)) + (##cdr _e9707297092_)))) + (let ((_form97100_ _hd9707397095_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl9681296835_)) + (gx#stx-null? _tl9707497097_)) (if '#t - (let ((__tmp97393 - (let ((__tmp97394 + (let ((__tmp97655 + (let ((__tmp97656 (let () (declare (not safe)) - (_parse96803_ - _form96838_)))) + (_parse97065_ + _form97100_)))) (declare (not safe)) - (_generate96802_ - __tmp97394))) - (__tmp97392 + (_generate97064_ + __tmp97656))) + (__tmp97654 (let () (declare (not safe)) (gx#stx-source - _stx96800_)))) + _stx97062_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp97393 - __tmp97392)) + __tmp97655 + __tmp97654)) (let () (declare (not safe)) - (_E9680696818_))) + (_E9706897080_))) (let () (declare (not safe)) - (_E9680696818_)))))) + (_E9706897080_)))))) (let () (declare (not safe)) - (_E9680696818_))))) - (let () (declare (not safe)) (_E9680696818_)))))) - (let () (declare (not safe)) (_E9680596840_)))))) + (_E9706897080_))))) + (let () (declare (not safe)) (_E9706897080_)))))) + (let () (declare (not safe)) (_E9706797102_)))))) (define gx#macro-expand-syntax-case__% - (lambda (_stx96064_ _identifier=?96065_ _unwrap-e96066_ _wrap-e96067_) - (letrec ((_generate-bindings96069_ - (lambda (_target96664_ - _ids96665_ - _clauses96666_ - _clause-ids96667_ - _E96668_) - (letrec ((_generate196670_ - (lambda (_clause96767_ _clause-id96768_ _E96769_) - (let ((__tmp97399 + (lambda (_stx96326_ _identifier=?96327_ _unwrap-e96328_ _wrap-e96329_) + (letrec ((_generate-bindings96331_ + (lambda (_target96926_ + _ids96927_ + _clauses96928_ + _clause-ids96929_ + _E96930_) + (letrec ((_generate196932_ + (lambda (_clause97029_ _clause-id97030_ _E97031_) + (let ((__tmp97661 (let () (declare (not safe)) - (cons _clause-id96768_ '()))) - (__tmp97395 - (let ((__tmp97396 - (let ((__tmp97398 + (cons _clause-id97030_ '()))) + (__tmp97657 + (let ((__tmp97658 + (let ((__tmp97660 (let () (declare (not safe)) - (cons _target96664_ + (cons _target96926_ '()))) - (__tmp97397 + (__tmp97659 (let () (declare (not safe)) - (_generate-clause96071_ - _target96664_ - _ids96665_ - _clause96767_ - _E96769_)))) + (_generate-clause96333_ + _target96926_ + _ids96927_ + _clause97029_ + _E97031_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp97398 - __tmp97397)))) + __tmp97660 + __tmp97659)))) (declare (not safe)) - (cons __tmp97396 '())))) + (cons __tmp97658 '())))) (declare (not safe)) - (cons __tmp97399 __tmp97395))))) - (let _lp96672_ ((_rest96674_ _clauses96666_) - (_rest-ids96675_ _clause-ids96667_) - (_bindings96676_ '())) - (let* ((_rest9667796685_ _rest96674_) - (_else9667996693_ (lambda () _bindings96676_)) - (_K9668196755_ - (lambda (_rest96696_ _clause96697_) - (let* ((_rest-ids9669896705_ _rest-ids96675_) - (_E9670096709_ + (cons __tmp97661 __tmp97657))))) + (let _lp96934_ ((_rest96936_ _clauses96928_) + (_rest-ids96937_ _clause-ids96929_) + (_bindings96938_ '())) + (let* ((_rest9693996947_ _rest96936_) + (_else9694196955_ (lambda () _bindings96938_)) + (_K9694397017_ + (lambda (_rest96958_ _clause96959_) + (let* ((_rest-ids9696096967_ _rest-ids96937_) + (_E9696296971_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest-ids9669896705_)))) - (_K9670196743_ - (lambda (_rest-ids96712_ - _clause-id96713_) - (let* ((_rest-ids9671496722_ - _rest-ids96712_) - (_else9671696730_ + _rest-ids9696096967_)))) + (_K9696397005_ + (lambda (_rest-ids96974_ + _clause-id96975_) + (let* ((_rest-ids9697696984_ + _rest-ids96974_) + (_else9697896992_ (lambda () - (let ((__tmp97400 + (let ((__tmp97662 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate196670_ - _clause96697_ - _clause-id96713_ - _E96668_)))) + (_generate196932_ + _clause96959_ + _clause-id96975_ + _E96930_)))) (declare (not safe)) - (cons __tmp97400 _bindings96676_)))) + (cons __tmp97662 _bindings96938_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9671896735_ - (lambda (_next-clause-id96733_) - (let ((__tmp97401 - (let ((__tmp97402 + (_K9698096997_ + (lambda (_next-clause-id96995_) + (let ((__tmp97663 + (let ((__tmp97664 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate196670_ - _clause96697_ - _clause-id96713_ - _next-clause-id96733_)))) + (_generate196932_ + _clause96959_ + _clause-id96975_ + _next-clause-id96995_)))) (declare (not safe)) - (cons __tmp97402 _bindings96676_)))) + (cons __tmp97664 _bindings96938_)))) (declare (not safe)) - (_lp96672_ _rest96696_ _rest-ids96712_ __tmp97401))))) + (_lp96934_ _rest96958_ _rest-ids96974_ __tmp97663))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids9671496722_)) - (let* ((_hd9671996738_ + (##pair? _rest-ids9697696984_)) + (let* ((_hd9698197000_ (let () (declare (not safe)) - (##car _rest-ids9671496722_))) - (_next-clause-id96741_ - _hd9671996738_)) + (##car _rest-ids9697696984_))) + (_next-clause-id97003_ + _hd9698197000_)) (declare (not safe)) - (_K9671896735_ - _next-clause-id96741_)) + (_K9698096997_ + _next-clause-id97003_)) (let () (declare (not safe)) - (_else9671696730_))))))) + (_else9697896992_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids9669896705_)) - (let ((_hd9670296746_ + (##pair? _rest-ids9696096967_)) + (let ((_hd9696497008_ (let () (declare (not safe)) - (##car _rest-ids9669896705_))) - (_tl9670396748_ + (##car _rest-ids9696096967_))) + (_tl9696597010_ (let () (declare (not safe)) - (##cdr _rest-ids9669896705_)))) - (let* ((_clause-id96751_ - _hd9670296746_) - (_rest-ids96753_ - _tl9670396748_)) + (##cdr _rest-ids9696096967_)))) + (let* ((_clause-id97013_ + _hd9696497008_) + (_rest-ids97015_ + _tl9696597010_)) (declare (not safe)) - (_K9670196743_ - _rest-ids96753_ - _clause-id96751_))) + (_K9696397005_ + _rest-ids97015_ + _clause-id97013_))) (let () (declare (not safe)) - (_E9670096709_))))))) + (_E9696296971_))))))) (if (let () (declare (not safe)) - (##pair? _rest9667796685_)) - (let ((_hd9668296758_ + (##pair? _rest9693996947_)) + (let ((_hd9694497020_ (let () (declare (not safe)) - (##car _rest9667796685_))) - (_tl9668396760_ + (##car _rest9693996947_))) + (_tl9694597022_ (let () (declare (not safe)) - (##cdr _rest9667796685_)))) - (let* ((_clause96763_ _hd9668296758_) - (_rest96765_ _tl9668396760_)) + (##cdr _rest9693996947_)))) + (let* ((_clause97025_ _hd9694497020_) + (_rest97027_ _tl9694597022_)) (declare (not safe)) - (_K9668196755_ _rest96765_ _clause96763_))) + (_K9694397017_ _rest97027_ _clause97025_))) (let () (declare (not safe)) - (_else9667996693_)))))))) - (_generate-body96070_ - (lambda (_bindings96624_ _body96625_) - (let _recur96627_ ((_rest96629_ _bindings96624_)) - (let* ((_rest9663096638_ _rest96629_) - (_else9663296646_ (lambda () _body96625_)) - (_K9663496652_ - (lambda (_rest96649_ _hd96650_) - (let ((__tmp97404 + (_else9694196955_)))))))) + (_generate-body96332_ + (lambda (_bindings96886_ _body96887_) + (let _recur96889_ ((_rest96891_ _bindings96886_)) + (let* ((_rest9689296900_ _rest96891_) + (_else9689496908_ (lambda () _body96887_)) + (_K9689696914_ + (lambda (_rest96911_ _hd96912_) + (let ((__tmp97666 (let () (declare (not safe)) - (cons _hd96650_ '()))) - (__tmp97403 + (cons _hd96912_ '()))) + (__tmp97665 (let () (declare (not safe)) - (_recur96627_ _rest96649_)))) + (_recur96889_ _rest96911_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97404 - __tmp97403))))) + __tmp97666 + __tmp97665))))) (if (let () (declare (not safe)) - (##pair? _rest9663096638_)) - (let ((_hd9663596655_ + (##pair? _rest9689296900_)) + (let ((_hd9689796917_ (let () (declare (not safe)) - (##car _rest9663096638_))) - (_tl9663696657_ + (##car _rest9689296900_))) + (_tl9689896919_ (let () (declare (not safe)) - (##cdr _rest9663096638_)))) - (let* ((_hd96660_ _hd9663596655_) - (_rest96662_ _tl9663696657_)) + (##cdr _rest9689296900_)))) + (let* ((_hd96922_ _hd9689796917_) + (_rest96924_ _tl9689896919_)) (declare (not safe)) - (_K9663496652_ _rest96662_ _hd96660_))) + (_K9689696914_ _rest96924_ _hd96922_))) (let () (declare (not safe)) - (_else9663296646_))))))) - (_generate-clause96071_ - (lambda (_target96487_ _ids96488_ _clause96489_ _E96490_) - (letrec ((_generate196492_ - (lambda (_hd96579_ _fender96580_ _body96581_) - (let ((_g97405_ + (_else9689496908_))))))) + (_generate-clause96333_ + (lambda (_target96749_ _ids96750_ _clause96751_ _E96752_) + (letrec ((_generate196754_ + (lambda (_hd96841_ _fender96842_ _body96843_) + (let ((_g97667_ (let () (declare (not safe)) - (_parse-clause96073_ - _hd96579_ - _ids96488_)))) + (_parse-clause96335_ + _hd96841_ + _ids96750_)))) (begin - (let ((_g97406_ + (let ((_g97668_ (let () (declare (not safe)) - (if (##values? _g97405_) - (##vector-length _g97405_) + (if (##values? _g97667_) + (##vector-length _g97667_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97406_ 2))) + (##fx= _g97668_ 2))) (error "Context expects 2 values" - _g97406_))) - (let ((_e96583_ + _g97668_))) + (let ((_e96845_ (let () (declare (not safe)) - (##vector-ref _g97405_ 0))) - (_mvars96584_ + (##vector-ref _g97667_ 0))) + (_mvars96846_ (let () (declare (not safe)) - (##vector-ref _g97405_ 1)))) - (let* ((_pvars96586_ + (##vector-ref _g97667_ 1)))) + (let* ((_pvars96848_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _mvars96584_)))) - (_E96588_ - (let ((__tmp97407 + _mvars96846_)))) + (_E96850_ + (let ((__tmp97669 (let () (declare (not safe)) - (cons _target96487_ + (cons _target96749_ '())))) (declare (not safe)) - (cons _E96490_ __tmp97407))) - (_K96621_ - (let ((__tmp97408 - (let ((__tmp97410 - (map (lambda (_mvar96590_ + (cons _E96752_ __tmp97669))) + (_K96883_ + (let ((__tmp97670 + (let ((__tmp97672 + (map (lambda (_mvar96852_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar96591_) - (let* ((_mvar9659296599_ _mvar96590_) - (_E9659496603_ + _pvar96853_) + (let* ((_mvar9685496861_ _mvar96852_) + (_E9685696865_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _mvar9659296599_)))) - (_K9659596609_ - (lambda (_depth96606_ _id96607_) - (let ((__tmp97411 - (let ((__tmp97412 - (let ((__tmp97414 + _mvar9685496861_)))) + (_K9685796871_ + (lambda (_depth96868_ _id96869_) + (let ((__tmp97673 + (let ((__tmp97674 + (let ((__tmp97676 (let () (declare (not safe)) (gx#core-list 'quote - _id96607_))) - (__tmp97413 + _id96869_))) + (__tmp97675 (let () (declare (not safe)) (gx#core-list 'quote - _pvar96591_)))) + _pvar96853_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp97414 - __tmp97413 - _depth96606_)))) + __tmp97676 + __tmp97675 + _depth96868_)))) (declare (not safe)) - (cons __tmp97412 '())))) + (cons __tmp97674 '())))) (declare (not safe)) - (cons _id96607_ __tmp97411))))) + (cons _id96869_ __tmp97673))))) (if (let () (declare (not safe)) - (##pair? _mvar9659296599_)) - (let ((_hd9659696612_ + (##pair? _mvar9685496861_)) + (let ((_hd9685896874_ (let () (declare (not safe)) - (##car _mvar9659296599_))) - (_tl9659796614_ + (##car _mvar9685496861_))) + (_tl9685996876_ (let () (declare (not safe)) - (##cdr _mvar9659296599_)))) - (let* ((_id96617_ _hd9659696612_) - (_depth96619_ _tl9659796614_)) + (##cdr _mvar9685496861_)))) + (let* ((_id96879_ _hd9685896874_) + (_depth96881_ _tl9685996876_)) (declare (not safe)) - (_K9659596609_ _depth96619_ _id96617_))) + (_K9685796871_ _depth96881_ _id96879_))) (let () (declare (not safe)) - (_E9659496603_))))) - _mvars96584_ - _pvars96586_)) - (__tmp97409 - (if (let () (declare (not safe)) (eq? _fender96580_ '#t)) - _body96581_ + (_E9685696865_))))) + _mvars96846_ + _pvars96848_)) + (__tmp97671 + (if (let () (declare (not safe)) (eq? _fender96842_ '#t)) + _body96843_ (let () (declare (not safe)) (gx#core-list 'if - _fender96580_ - _body96581_ - _E96588_))))) + _fender96842_ + _body96843_ + _E96850_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp97410 __tmp97409)))) + (gx#core-list 'let-syntax __tmp97672 __tmp97671)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _pvars96586_ - __tmp97408)))) + _pvars96848_ + __tmp97670)))) (let () (declare (not safe)) - (_generate-match96072_ - _hd96579_ - _target96487_ - _e96583_ - _mvars96584_ - _K96621_ - _E96588_))))))))) - (let* ((_e9649396513_ _clause96489_) - (_E9650296517_ + (_generate-match96334_ + _hd96841_ + _target96749_ + _e96845_ + _mvars96846_ + _K96883_ + _E96850_))))))))) + (let* ((_e9675596775_ _clause96751_) + (_E9676496779_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9649396513_)))) - (_E9649596551_ + _e9675596775_)))) + (_E9675796813_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9649396513_)) - (let ((_e9650396521_ + (gx#stx-pair? _e9675596775_)) + (let ((_e9676596783_ (let () (declare (not safe)) - (gx#syntax-e _e9649396513_)))) - (let ((_hd9650496524_ + (gx#syntax-e _e9675596775_)))) + (let ((_hd9676696786_ (let () (declare (not safe)) - (##car _e9650396521_))) - (_tl9650596526_ + (##car _e9676596783_))) + (_tl9676796788_ (let () (declare (not safe)) - (##cdr _e9650396521_)))) - (let ((_hd96529_ _hd9650496524_)) + (##cdr _e9676596783_)))) + (let ((_hd96791_ _hd9676696786_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9650596526_)) - (let ((_e9650696531_ + (gx#stx-pair? _tl9676796788_)) + (let ((_e9676896793_ (let () (declare (not safe)) (gx#syntax-e - _tl9650596526_)))) - (let ((_hd9650796534_ + _tl9676796788_)))) + (let ((_hd9676996796_ (let () (declare (not safe)) - (##car _e9650696531_))) - (_tl9650896536_ + (##car _e9676896793_))) + (_tl9677096798_ (let () (declare (not safe)) - (##cdr _e9650696531_)))) - (let ((_fender96539_ - _hd9650796534_)) + (##cdr _e9676896793_)))) + (let ((_fender96801_ + _hd9676996796_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9650896536_)) - (let ((_e9650996541_ + _tl9677096798_)) + (let ((_e9677196803_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl9650896536_)))) - (let ((_hd9651096544_ - (let () (declare (not safe)) (##car _e9650996541_))) - (_tl9651196546_ - (let () (declare (not safe)) (##cdr _e9650996541_)))) - (let ((_body96549_ _hd9651096544_)) + (gx#syntax-e _tl9677096798_)))) + (let ((_hd9677296806_ + (let () (declare (not safe)) (##car _e9677196803_))) + (_tl9677396808_ + (let () (declare (not safe)) (##cdr _e9677196803_)))) + (let ((_body96811_ _hd9677296806_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl9651196546_)) + (gx#stx-null? _tl9677396808_)) (if '#t (let () (declare (not safe)) - (_generate196492_ - _hd96529_ - _fender96539_ - _body96549_)) - (let () (declare (not safe)) (_E9650296517_))) - (let () (declare (not safe)) (_E9650296517_)))))) - (let () (declare (not safe)) (_E9650296517_)))))) + (_generate196754_ + _hd96791_ + _fender96801_ + _body96811_)) + (let () (declare (not safe)) (_E9676496779_))) + (let () (declare (not safe)) (_E9676496779_)))))) + (let () (declare (not safe)) (_E9676496779_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9650296517_)))))) + (_E9676496779_)))))) (let () (declare (not safe)) - (_E9650296517_))))) - (_E9649496575_ + (_E9676496779_))))) + (_E9675696837_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9649396513_)) - (let ((_e9649696555_ + (gx#stx-pair? _e9675596775_)) + (let ((_e9675896817_ (let () (declare (not safe)) - (gx#syntax-e _e9649396513_)))) - (let ((_hd9649796558_ + (gx#syntax-e _e9675596775_)))) + (let ((_hd9675996820_ (let () (declare (not safe)) - (##car _e9649696555_))) - (_tl9649896560_ + (##car _e9675896817_))) + (_tl9676096822_ (let () (declare (not safe)) - (##cdr _e9649696555_)))) - (let ((_hd96563_ _hd9649796558_)) + (##cdr _e9675896817_)))) + (let ((_hd96825_ _hd9675996820_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9649896560_)) - (let ((_e9649996565_ + (gx#stx-pair? _tl9676096822_)) + (let ((_e9676196827_ (let () (declare (not safe)) (gx#syntax-e - _tl9649896560_)))) - (let ((_hd9650096568_ + _tl9676096822_)))) + (let ((_hd9676296830_ (let () (declare (not safe)) - (##car _e9649996565_))) - (_tl9650196570_ + (##car _e9676196827_))) + (_tl9676396832_ (let () (declare (not safe)) - (##cdr _e9649996565_)))) - (let ((_body96573_ - _hd9650096568_)) + (##cdr _e9676196827_)))) + (let ((_body96835_ + _hd9676296830_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl9650196570_)) + _tl9676396832_)) (if '#t (let () (declare (not safe)) - (_generate196492_ - _hd96563_ + (_generate196754_ + _hd96825_ '#t - _body96573_)) + _body96835_)) (let () (declare (not safe)) - (_E9649596551_))) + (_E9675796813_))) (let () (declare (not safe)) - (_E9649596551_)))))) + (_E9675796813_)))))) (let () (declare (not safe)) - (_E9649596551_)))))) + (_E9675796813_)))))) (let () (declare (not safe)) - (_E9649596551_)))))) - (let () (declare (not safe)) (_E9649496575_)))))) - (_generate-match96072_ - (lambda (_where96236_ - _target96237_ - _hd96238_ - _mvars96239_ - _K96240_ - _E96241_) - (letrec ((_BUG96243_ - (lambda (_q96485_) + (_E9675796813_)))))) + (let () (declare (not safe)) (_E9675696837_)))))) + (_generate-match96334_ + (lambda (_where96498_ + _target96499_ + _hd96500_ + _mvars96501_ + _K96502_ + _E96503_) + (letrec ((_BUG96505_ + (lambda (_q96747_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _stx96064_ - _hd96238_ - _q96485_)))) - (_recur96244_ - (lambda (_e96335_ - _vars96336_ - _target96337_ - _E96338_ - _k96339_) - (let* ((_e9634096347_ _e96335_) - (_E9634296351_ + _stx96326_ + _hd96500_ + _q96747_)))) + (_recur96506_ + (lambda (_e96597_ + _vars96598_ + _target96599_ + _E96600_ + _k96601_) + (let* ((_e9660296609_ _e96597_) + (_E9660496613_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9634096347_)))) - (_K9634396473_ - (lambda (_body96354_ _tag96355_) - (let ((_$e96357_ _tag96355_)) + _e9660296609_)))) + (_K9660596735_ + (lambda (_body96616_ _tag96617_) + (let ((_$e96619_ _tag96617_)) (if (let () (declare (not safe)) - (eq? 'any _$e96357_)) - (_k96339_ _vars96336_) + (eq? 'any _$e96619_)) + (_k96601_ _vars96598_) (if (let () (declare (not safe)) - (eq? 'id _$e96357_)) - (let ((__tmp97521 + (eq? 'id _$e96619_)) + (let ((__tmp97783 (let () (declare (not safe)) (gx#core-list 'identifier? - _target96337_))) - (__tmp97517 - (let ((__tmp97519 + _target96599_))) + (__tmp97779 + (let ((__tmp97781 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97520 + (let ((__tmp97782 (let () (declare (not safe)) - (gx#core-list _wrap-e96067_ _body96354_)))) + (gx#core-list _wrap-e96329_ _body96616_)))) (declare (not safe)) (gx#core-list - _identifier=?96065_ - __tmp97520 - _target96337_))) - (__tmp97518 (_k96339_ _vars96336_))) + _identifier=?96327_ + __tmp97782 + _target96599_))) + (__tmp97780 (_k96601_ _vars96598_))) (declare (not safe)) - (gx#core-list 'if __tmp97519 __tmp97518 _E96338_)))) + (gx#core-list 'if __tmp97781 __tmp97780 _E96600_)))) (declare (not safe)) - (gx#core-list 'if __tmp97521 __tmp97517 _E96338_)) + (gx#core-list 'if __tmp97783 __tmp97779 _E96600_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (eq? 'var _$e96357_)) - (_k96339_ - (let ((__tmp97516 + (eq? 'var _$e96619_)) + (_k96601_ + (let ((__tmp97778 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body96354_ _target96337_)))) + (cons _body96616_ _target96599_)))) (declare (not safe)) - (cons __tmp97516 _vars96336_))) - (if (let () (declare (not safe)) (eq? 'cons _$e96357_)) - (let ((_$e96360_ + (cons __tmp97778 _vars96598_))) + (if (let () (declare (not safe)) (eq? 'cons _$e96619_)) + (let ((_$e96622_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$hd96361_ + (_$hd96623_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl96362_ + (_$tl96624_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp97515 + (let ((__tmp97777 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _target96337_))) - (__tmp97496 - (let ((__tmp97510 - (let ((__tmp97511 - (let ((__tmp97514 + (gx#core-list 'stx-pair? _target96599_))) + (__tmp97758 + (let ((__tmp97772 + (let ((__tmp97773 + (let ((__tmp97776 (let () (declare (not safe)) - (cons _$e96360_ '()))) - (__tmp97512 - (let ((__tmp97513 + (cons _$e96622_ '()))) + (__tmp97774 + (let ((__tmp97775 (let () (declare (not safe)) (gx#core-list - _unwrap-e96066_ - _target96337_)))) + _unwrap-e96328_ + _target96599_)))) (declare (not safe)) - (cons __tmp97513 '())))) + (cons __tmp97775 '())))) (declare (not safe)) - (cons __tmp97514 __tmp97512)))) + (cons __tmp97776 __tmp97774)))) (declare (not safe)) - (cons __tmp97511 '()))) - (__tmp97497 - (let ((__tmp97500 - (let ((__tmp97506 - (let ((__tmp97509 + (cons __tmp97773 '()))) + (__tmp97759 + (let ((__tmp97762 + (let ((__tmp97768 + (let ((__tmp97771 (let () (declare (not safe)) - (cons _$hd96361_ + (cons _$hd96623_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp97507 - (let ((__tmp97508 + (__tmp97769 + (let ((__tmp97770 (let () (declare (not safe)) - (gx#core-list '##car _$e96360_)))) + (gx#core-list '##car _$e96622_)))) (declare (not safe)) - (cons __tmp97508 '())))) + (cons __tmp97770 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97509 - __tmp97507))) - (__tmp97501 - (let ((__tmp97502 - (let ((__tmp97505 + (cons __tmp97771 + __tmp97769))) + (__tmp97763 + (let ((__tmp97764 + (let ((__tmp97767 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tl96362_ '()))) - (__tmp97503 - (let ((__tmp97504 + (cons _$tl96624_ '()))) + (__tmp97765 + (let ((__tmp97766 (let () (declare (not safe)) - (gx#core-list '##cdr _$e96360_)))) + (gx#core-list '##cdr _$e96622_)))) (declare (not safe)) - (cons __tmp97504 '())))) + (cons __tmp97766 '())))) (declare (not safe)) - (cons __tmp97505 __tmp97503)))) + (cons __tmp97767 __tmp97765)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97502 '())))) + (cons __tmp97764 '())))) (declare (not safe)) - (cons __tmp97506 __tmp97501))) - (__tmp97498 - (let* ((_body9636396370_ - _body96354_) - (_E9636596374_ + (cons __tmp97768 __tmp97763))) + (__tmp97760 + (let* ((_body9662596632_ + _body96616_) + (_E9662796636_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9636396370_)))) - (_K9636696382_ - (lambda (_tl96377_ - _hd96378_) - (let ((__tmp97499 - (lambda (_vars96380_) + _body9662596632_)))) + (_K9662896644_ + (lambda (_tl96639_ + _hd96640_) + (let ((__tmp97761 + (lambda (_vars96642_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_recur96244_ - _tl96377_ - _vars96380_ - _$tl96362_ - _E96338_ - _k96339_))))) + (_recur96506_ + _tl96639_ + _vars96642_ + _$tl96624_ + _E96600_ + _k96601_))))) (declare (not safe)) - (_recur96244_ - _hd96378_ - _vars96336_ - _$hd96361_ - _E96338_ - __tmp97499))))) + (_recur96506_ + _hd96640_ + _vars96598_ + _$hd96623_ + _E96600_ + __tmp97761))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _body9636396370_)) - (let ((_hd9636796385_ + (##pair? _body9662596632_)) + (let ((_hd9662996647_ (let () (declare (not safe)) - (##car _body9636396370_))) - (_tl9636896387_ + (##car _body9662596632_))) + (_tl9663096649_ (let () (declare (not safe)) - (##cdr _body9636396370_)))) - (let* ((_hd96390_ - _hd9636796385_) - (_tl96392_ - _tl9636896387_)) + (##cdr _body9662596632_)))) + (let* ((_hd96652_ + _hd9662996647_) + (_tl96654_ + _tl9663096649_)) (declare (not safe)) - (_K9636696382_ - _tl96392_ - _hd96390_))) + (_K9662896644_ + _tl96654_ + _hd96652_))) (let () (declare (not safe)) - (_E9636596374_)))))) + (_E9662796636_)))))) (declare (not safe)) (gx#core-list 'let-values - __tmp97500 - __tmp97498)))) + __tmp97762 + __tmp97760)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97510 - __tmp97497)))) + __tmp97772 + __tmp97759)))) (declare (not safe)) - (gx#core-list 'if __tmp97515 __tmp97496 _E96338_))) - (if (let () (declare (not safe)) (eq? 'splice _$e96357_)) - (let* ((_body9639396400_ _body96354_) - (_E9639596404_ + (gx#core-list 'if __tmp97777 __tmp97758 _E96600_))) + (if (let () (declare (not safe)) (eq? 'splice _$e96619_)) + (let* ((_body9665596662_ _body96616_) + (_E9665796666_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9639396400_)))) - (_K9639696455_ - (lambda (_tl96407_ _hd96408_) - (let* ((_rlen96410_ + _body9665596662_)))) + (_K9665896717_ + (lambda (_tl96669_ _hd96670_) + (let* ((_rlen96672_ (let () (declare (not safe)) - (_splice-rlen96245_ _tl96407_))) - (_$target96412_ + (_splice-rlen96507_ _tl96669_))) + (_$target96674_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_$hd96414_ + (_$hd96676_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl96416_ + (_$tl96678_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_$lp96418_ + (_$lp96680_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_$lp-e96420_ + (_$lp-e96682_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$lp-hd96422_ + (_$lp-hd96684_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_$lp-tl96424_ + (_$lp-tl96686_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_svars96426_ + (_svars96688_ (let () (declare (not safe)) - (_splice-vars96246_ _hd96408_))) - (_lvars96428_ + (_splice-vars96508_ _hd96670_))) + (_lvars96690_ (let () (declare (not safe)) - (gx#gentemps _svars96426_))) - (_tlvars96430_ + (gx#gentemps _svars96688_))) + (_tlvars96692_ (let () (declare (not safe)) - (gx#gentemps _svars96426_))) - (_linit96434_ - (map (lambda (_var96432_) + (gx#gentemps _svars96688_))) + (_linit96696_ + (map (lambda (_var96694_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _lvars96428_))) - (letrec ((_make-loop96437_ - (lambda (_vars96441_) - (let ((__tmp97447 - (let ((__tmp97448 - (let ((__tmp97484 + _lvars96690_))) + (letrec ((_make-loop96699_ + (lambda (_vars96703_) + (let ((__tmp97709 + (let ((__tmp97710 + (let ((__tmp97746 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp96418_ '()))) - (__tmp97449 - (let ((__tmp97450 - (let ((__tmp97483 + (cons _$lp96680_ '()))) + (__tmp97711 + (let ((__tmp97712 + (let ((__tmp97745 (let () (declare (not safe)) - (cons _$hd96414_ _lvars96428_))) - (__tmp97451 - (let ((__tmp97482 + (cons _$hd96676_ _lvars96690_))) + (__tmp97713 + (let ((__tmp97744 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _$hd96414_))) - (__tmp97460 - (let ((__tmp97477 - (let ((__tmp97478 - (let ((__tmp97481 + _$hd96676_))) + (__tmp97722 + (let ((__tmp97739 + (let ((__tmp97740 + (let ((__tmp97743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp-e96420_ '()))) - (__tmp97479 - (let ((__tmp97480 + (cons _$lp-e96682_ '()))) + (__tmp97741 + (let ((__tmp97742 (let () (declare (not safe)) (gx#core-list - _unwrap-e96066_ - _$hd96414_)))) + _unwrap-e96328_ + _$hd96676_)))) (declare (not safe)) - (cons __tmp97480 '())))) + (cons __tmp97742 '())))) (declare (not safe)) - (cons __tmp97481 __tmp97479)))) + (cons __tmp97743 __tmp97741)))) (declare (not safe)) - (cons __tmp97478 '()))) - (__tmp97461 - (let ((__tmp97467 - (let ((__tmp97473 - (let ((__tmp97476 + (cons __tmp97740 '()))) + (__tmp97723 + (let ((__tmp97729 + (let ((__tmp97735 + (let ((__tmp97738 (let () (declare (not safe)) - (cons _$lp-hd96422_ '()))) - (__tmp97474 - (let ((__tmp97475 + (cons _$lp-hd96684_ '()))) + (__tmp97736 + (let ((__tmp97737 (let () (declare (not safe)) (gx#core-list '##car - _$lp-e96420_)))) + _$lp-e96682_)))) (declare (not safe)) - (cons __tmp97475 '())))) + (cons __tmp97737 '())))) (declare (not safe)) - (cons __tmp97476 __tmp97474))) - (__tmp97468 - (let ((__tmp97469 - (let ((__tmp97472 + (cons __tmp97738 __tmp97736))) + (__tmp97730 + (let ((__tmp97731 + (let ((__tmp97734 (let () (declare (not safe)) - (cons _$lp-tl96424_ '()))) - (__tmp97470 - (let ((__tmp97471 + (cons _$lp-tl96686_ '()))) + (__tmp97732 + (let ((__tmp97733 (let () (declare (not safe)) (gx#core-list '##cdr - _$lp-e96420_)))) + _$lp-e96682_)))) (declare (not safe)) - (cons __tmp97471 '())))) + (cons __tmp97733 '())))) (declare (not safe)) - (cons __tmp97472 __tmp97470)))) + (cons __tmp97734 __tmp97732)))) (declare (not safe)) - (cons __tmp97469 '())))) + (cons __tmp97731 '())))) (declare (not safe)) - (cons __tmp97473 __tmp97468))) - (__tmp97462 - (let ((__tmp97463 - (lambda (_hdvars96443_) - (let ((__tmp97464 - (let ((__tmp97465 - (map (lambda (_svar96445_ - _lvar96446_) - (let ((__tmp97466 + (cons __tmp97735 __tmp97730))) + (__tmp97724 + (let ((__tmp97725 + (lambda (_hdvars96705_) + (let ((__tmp97726 + (let ((__tmp97727 + (map (lambda (_svar96707_ + _lvar96708_) + (let ((__tmp97728 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__% _svar96445_ _hdvars96443_ _BUG96243_)))) + (assgetq__% _svar96707_ _hdvars96705_ _BUG96505_)))) (declare (not safe)) - (gx#core-list 'cons __tmp97466 _lvar96446_))) + (gx#core-list 'cons __tmp97728 _lvar96708_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _svars96426_ - _lvars96428_))) + _svars96688_ + _lvars96690_))) (declare (not safe)) - (cons _$lp-tl96424_ __tmp97465)))) + (cons _$lp-tl96686_ __tmp97727)))) (declare (not safe)) - (cons _$lp96418_ __tmp97464))))) + (cons _$lp96680_ __tmp97726))))) (declare (not safe)) - (_recur96244_ - _hd96408_ + (_recur96506_ + _hd96670_ '() - _$lp-hd96422_ - _E96338_ - __tmp97463)))) + _$lp-hd96684_ + _E96600_ + __tmp97725)))) (declare (not safe)) - (gx#core-list 'let-values __tmp97467 __tmp97462)))) + (gx#core-list 'let-values __tmp97729 __tmp97724)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp97477 - __tmp97461))) - (__tmp97452 - (let ((__tmp97456 - (map (lambda (_lvar96448_ + __tmp97739 + __tmp97723))) + (__tmp97714 + (let ((__tmp97718 + (map (lambda (_lvar96710_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tlvar96449_) - (let ((__tmp97459 + _tlvar96711_) + (let ((__tmp97721 (let () (declare (not safe)) - (cons _tlvar96449_ '()))) - (__tmp97457 - (let ((__tmp97458 + (cons _tlvar96711_ '()))) + (__tmp97719 + (let ((__tmp97720 (let () (declare (not safe)) - (gx#core-list 'reverse _lvar96448_)))) + (gx#core-list 'reverse _lvar96710_)))) (declare (not safe)) - (cons __tmp97458 '())))) + (cons __tmp97720 '())))) (declare (not safe)) - (cons __tmp97459 __tmp97457))) - _lvars96428_ - _tlvars96430_)) - (__tmp97453 - (_k96339_ - (let ((__tmp97454 - (lambda (_svar96451_ _tlvar96452_ _r96453_) - (let ((__tmp97455 + (cons __tmp97721 __tmp97719))) + _lvars96690_ + _tlvars96692_)) + (__tmp97715 + (_k96601_ + (let ((__tmp97716 + (lambda (_svar96713_ _tlvar96714_ _r96715_) + (let ((__tmp97717 (let () (declare (not safe)) - (cons _svar96451_ _tlvar96452_)))) + (cons _svar96713_ _tlvar96714_)))) (declare (not safe)) - (cons __tmp97455 _r96453_))))) + (cons __tmp97717 _r96715_))))) (declare (not safe)) - (foldl2 __tmp97454 - _vars96441_ - _svars96426_ - _tlvars96430_))))) + (foldl2 __tmp97716 + _vars96703_ + _svars96688_ + _tlvars96692_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp97456 - __tmp97453)))) + __tmp97718 + __tmp97715)))) (declare (not safe)) (gx#core-list 'if - __tmp97482 - __tmp97460 - __tmp97452)))) + __tmp97744 + __tmp97722 + __tmp97714)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp97483 - __tmp97451)))) + __tmp97745 + __tmp97713)))) (declare (not safe)) - (cons __tmp97450 '())))) + (cons __tmp97712 '())))) (declare (not safe)) - (cons __tmp97484 __tmp97449)))) + (cons __tmp97746 __tmp97711)))) (declare (not safe)) - (cons __tmp97448 '()))) - (__tmp97445 - (let ((__tmp97446 + (cons __tmp97710 '()))) + (__tmp97707 + (let ((__tmp97708 (let () (declare (not safe)) - (cons _$target96412_ _linit96434_)))) + (cons _$target96674_ _linit96696_)))) (declare (not safe)) - (cons _$lp96418_ __tmp97446)))) + (cons _$lp96680_ __tmp97708)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp97447 - __tmp97445))))) - (let ((_body96439_ - (let ((__tmp97486 - (let ((__tmp97487 - (let ((__tmp97490 + __tmp97709 + __tmp97707))))) + (let ((_body96701_ + (let ((__tmp97748 + (let ((__tmp97749 + (let ((__tmp97752 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97491 + (let ((__tmp97753 (let () (declare (not safe)) - (cons _$tl96416_ '())))) + (cons _$tl96678_ '())))) (declare (not safe)) - (cons _$target96412_ __tmp97491))) - (__tmp97488 - (let ((__tmp97489 + (cons _$target96674_ __tmp97753))) + (__tmp97750 + (let ((__tmp97751 (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _target96337_ - _rlen96410_)))) + _target96599_ + _rlen96672_)))) (declare (not safe)) - (cons __tmp97489 '())))) + (cons __tmp97751 '())))) (declare (not safe)) - (cons __tmp97490 __tmp97488)))) + (cons __tmp97752 __tmp97750)))) (declare (not safe)) - (cons __tmp97487 '()))) + (cons __tmp97749 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp97485 + (__tmp97747 (let () (declare (not safe)) - (_recur96244_ - _tl96407_ - _vars96336_ - _$tl96416_ - _E96338_ - _make-loop96437_)))) + (_recur96506_ + _tl96669_ + _vars96598_ + _$tl96678_ + _E96600_ + _make-loop96699_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97486 - __tmp97485)))) - (let ((__tmp97495 + __tmp97748 + __tmp97747)))) + (let ((__tmp97757 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _target96337_))) - (__tmp97492 + _target96599_))) + (__tmp97754 (if (let () (declare (not safe)) - (zero? _rlen96410_)) - _body96439_ - (let ((__tmp97493 - (let ((__tmp97494 + (zero? _rlen96672_)) + _body96701_ + (let ((__tmp97755 + (let ((__tmp97756 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _target96337_)))) + (gx#core-list 'stx-length _target96599_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp97494 _rlen96410_)))) + (gx#core-list 'fx>= __tmp97756 _rlen96672_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp97493 - _body96439_ - _E96338_))))) + __tmp97755 + _body96701_ + _E96600_))))) (declare (not safe)) (gx#core-list 'if - __tmp97495 - __tmp97492 - _E96338_)))))))) + __tmp97757 + __tmp97754 + _E96600_)))))))) (if (let () (declare (not safe)) - (##pair? _body9639396400_)) - (let ((_hd9639796458_ + (##pair? _body9665596662_)) + (let ((_hd9665996720_ (let () (declare (not safe)) - (##car _body9639396400_))) - (_tl9639896460_ + (##car _body9665596662_))) + (_tl9666096722_ (let () (declare (not safe)) - (##cdr _body9639396400_)))) - (let* ((_hd96463_ _hd9639796458_) - (_tl96465_ _tl9639896460_)) + (##cdr _body9665596662_)))) + (let* ((_hd96725_ _hd9665996720_) + (_tl96727_ _tl9666096722_)) (declare (not safe)) - (_K9639696455_ _tl96465_ _hd96463_))) - (let () (declare (not safe)) (_E9639596404_)))) - (if (let () (declare (not safe)) (eq? 'null _$e96357_)) - (let ((__tmp97444 + (_K9665896717_ _tl96727_ _hd96725_))) + (let () (declare (not safe)) (_E9665796666_)))) + (if (let () (declare (not safe)) (eq? 'null _$e96619_)) + (let ((__tmp97706 (let () (declare (not safe)) - (gx#core-list 'stx-null? _target96337_))) - (__tmp97443 (_k96339_ _vars96336_))) + (gx#core-list 'stx-null? _target96599_))) + (__tmp97705 (_k96601_ _vars96598_))) (declare (not safe)) (gx#core-list 'if - __tmp97444 - __tmp97443 - _E96338_)) + __tmp97706 + __tmp97705 + _E96600_)) (if (let () (declare (not safe)) - (eq? 'vector _$e96357_)) - (let ((_$e96467_ + (eq? 'vector _$e96619_)) + (let ((_$e96729_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp97442 + (let ((__tmp97704 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _target96337_))) - (__tmp97434 - (let ((__tmp97436 - (let ((__tmp97437 - (let ((__tmp97441 + _target96599_))) + (__tmp97696 + (let ((__tmp97698 + (let ((__tmp97699 + (let ((__tmp97703 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$e96467_ '()))) - (__tmp97438 - (let ((__tmp97439 - (let ((__tmp97440 + (cons _$e96729_ '()))) + (__tmp97700 + (let ((__tmp97701 + (let ((__tmp97702 (let () (declare (not safe)) (gx#core-list - _unwrap-e96066_ - _target96337_)))) + _unwrap-e96328_ + _target96599_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp97440)))) + (gx#core-list 'vector->list __tmp97702)))) (declare (not safe)) - (cons __tmp97439 '())))) + (cons __tmp97701 '())))) (declare (not safe)) - (cons __tmp97441 __tmp97438)))) + (cons __tmp97703 __tmp97700)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97437 '()))) - (__tmp97435 + (cons __tmp97699 '()))) + (__tmp97697 (let () (declare (not safe)) - (_recur96244_ - _body96354_ - _vars96336_ - _$e96467_ - _E96338_ - _k96339_)))) + (_recur96506_ + _body96616_ + _vars96598_ + _$e96729_ + _E96600_ + _k96601_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97436 - __tmp97435)))) + __tmp97698 + __tmp97697)))) (declare (not safe)) (gx#core-list 'if - __tmp97442 - __tmp97434 - _E96338_))) + __tmp97704 + __tmp97696 + _E96600_))) (if (let () (declare (not safe)) - (eq? 'box _$e96357_)) - (let ((_$e96469_ + (eq? 'box _$e96619_)) + (let ((_$e96731_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp97433 + (let ((__tmp97695 (let () (declare (not safe)) (gx#core-list 'stx-box? - _target96337_))) - (__tmp97425 - (let ((__tmp97427 - (let ((__tmp97428 - (let ((__tmp97432 + _target96599_))) + (__tmp97687 + (let ((__tmp97689 + (let ((__tmp97690 + (let ((__tmp97694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _$e96469_ '()))) - (__tmp97429 - (let ((__tmp97430 - (let ((__tmp97431 + (let () (declare (not safe)) (cons _$e96731_ '()))) + (__tmp97691 + (let ((__tmp97692 + (let ((__tmp97693 (let () (declare (not safe)) (gx#core-list - _unwrap-e96066_ - _target96337_)))) + _unwrap-e96328_ + _target96599_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp97431)))) + (gx#core-list 'unbox __tmp97693)))) (declare (not safe)) - (cons __tmp97430 '())))) + (cons __tmp97692 '())))) (declare (not safe)) - (cons __tmp97432 __tmp97429)))) + (cons __tmp97694 __tmp97691)))) (declare (not safe)) - (cons __tmp97428 '()))) + (cons __tmp97690 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp97426 + (__tmp97688 (let () (declare (not safe)) - (_recur96244_ - _body96354_ - _vars96336_ - _$e96469_ - _E96338_ - _k96339_)))) + (_recur96506_ + _body96616_ + _vars96598_ + _$e96731_ + _E96600_ + _k96601_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97427 - __tmp97426)))) + __tmp97689 + __tmp97688)))) (declare (not safe)) (gx#core-list 'if - __tmp97433 - __tmp97425 - _E96338_))) + __tmp97695 + __tmp97687 + _E96600_))) (if (let () (declare (not safe)) - (eq? 'datum _$e96357_)) - (let ((_$e96471_ + (eq? 'datum _$e96619_)) + (let ((_$e96733_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp97424 + (let ((__tmp97686 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _target96337_))) - (__tmp97415 - (let ((__tmp97419 - (let ((__tmp97420 - (let ((__tmp97423 + _target96599_))) + (__tmp97677 + (let ((__tmp97681 + (let ((__tmp97682 + (let ((__tmp97685 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$e96471_ '()))) - (__tmp97421 - (let ((__tmp97422 + (cons _$e96733_ '()))) + (__tmp97683 + (let ((__tmp97684 (let () (declare (not safe)) - (gx#core-list 'stx-e _target96337_)))) + (gx#core-list 'stx-e _target96599_)))) (declare (not safe)) - (cons __tmp97422 '())))) + (cons __tmp97684 '())))) (declare (not safe)) - (cons __tmp97423 __tmp97421)))) + (cons __tmp97685 __tmp97683)))) (declare (not safe)) - (cons __tmp97420 '()))) - (__tmp97416 - (let ((__tmp97418 + (cons __tmp97682 '()))) + (__tmp97678 + (let ((__tmp97680 (let () (declare (not safe)) - (gx#core-list 'equal? _$e96471_ _body96354_))) - (__tmp97417 (_k96339_ _vars96336_))) + (gx#core-list 'equal? _$e96733_ _body96616_))) + (__tmp97679 (_k96601_ _vars96598_))) (declare (not safe)) - (gx#core-list 'if __tmp97418 __tmp97417 _E96338_)))) + (gx#core-list 'if __tmp97680 __tmp97679 _E96600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp97419 - __tmp97416)))) + __tmp97681 + __tmp97678)))) (declare (not safe)) (gx#core-list 'if - __tmp97424 - __tmp97415 - _E96338_))) + __tmp97686 + __tmp97677 + _E96600_))) (let () (declare (not safe)) - (_BUG96243_ _e96335_))))))))))))))) + (_BUG96505_ _e96597_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9634096347_)) - (let ((_hd9634496476_ + (##pair? _e9660296609_)) + (let ((_hd9660696738_ (let () (declare (not safe)) - (##car _e9634096347_))) - (_tl9634596478_ + (##car _e9660296609_))) + (_tl9660796740_ (let () (declare (not safe)) - (##cdr _e9634096347_)))) - (let* ((_tag96481_ _hd9634496476_) - (_body96483_ _tl9634596478_)) + (##cdr _e9660296609_)))) + (let* ((_tag96743_ _hd9660696738_) + (_body96745_ _tl9660796740_)) (declare (not safe)) - (_K9634396473_ - _body96483_ - _tag96481_))) + (_K9660596735_ + _body96745_ + _tag96743_))) (let () (declare (not safe)) - (_E9634296351_)))))) - (_splice-rlen96245_ - (lambda (_e96297_) - (let _lp96299_ ((_e96301_ _e96297_) - (_n96302_ '0)) - (let* ((_e9630396310_ _e96301_) - (_E9630596314_ + (_E9660496613_)))))) + (_splice-rlen96507_ + (lambda (_e96559_) + (let _lp96561_ ((_e96563_ _e96559_) + (_n96564_ '0)) + (let* ((_e9656596572_ _e96563_) + (_E9656796576_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9630396310_)))) - (_K9630696323_ - (lambda (_body96317_ _tag96318_) - (let ((_$e96320_ _tag96318_)) + _e9656596572_)))) + (_K9656896585_ + (lambda (_body96579_ _tag96580_) + (let ((_$e96582_ _tag96580_)) (if (let () (declare (not safe)) - (eq? 'splice _$e96320_)) + (eq? 'splice _$e96582_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx96064_ - _where96236_)) + _stx96326_ + _where96498_)) (if (let () (declare (not safe)) - (eq? 'cons _$e96320_)) - (let ((__tmp97523 - (cdr _body96317_)) - (__tmp97522 + (eq? 'cons _$e96582_)) + (let ((__tmp97785 + (cdr _body96579_)) + (__tmp97784 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (fx+ _n96302_ '1)))) + (fx+ _n96564_ '1)))) (declare (not safe)) - (_lp96299_ __tmp97523 __tmp97522)) - _n96302_)))))) + (_lp96561_ __tmp97785 __tmp97784)) + _n96564_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9630396310_)) - (let ((_hd9630796326_ + (##pair? _e9656596572_)) + (let ((_hd9656996588_ (let () (declare (not safe)) - (##car _e9630396310_))) - (_tl9630896328_ + (##car _e9656596572_))) + (_tl9657096590_ (let () (declare (not safe)) - (##cdr _e9630396310_)))) - (let* ((_tag96331_ _hd9630796326_) - (_body96333_ _tl9630896328_)) + (##cdr _e9656596572_)))) + (let* ((_tag96593_ _hd9656996588_) + (_body96595_ _tl9657096590_)) (declare (not safe)) - (_K9630696323_ - _body96333_ - _tag96331_))) + (_K9656896585_ + _body96595_ + _tag96593_))) (let () (declare (not safe)) - (_E9630596314_))))))) - (_splice-vars96246_ - (lambda (_e96253_) - (let _recur96255_ ((_e96257_ _e96253_) - (_vars96258_ '())) - (let* ((_e9625996266_ _e96257_) - (_E9626196270_ + (_E9656796576_))))))) + (_splice-vars96508_ + (lambda (_e96515_) + (let _recur96517_ ((_e96519_ _e96515_) + (_vars96520_ '())) + (let* ((_e9652196528_ _e96519_) + (_E9652396532_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9625996266_)))) - (_K9626296285_ - (lambda (_body96273_ _tag96274_) - (let ((_$e96276_ _tag96274_)) + _e9652196528_)))) + (_K9652496547_ + (lambda (_body96535_ _tag96536_) + (let ((_$e96538_ _tag96536_)) (if (let () (declare (not safe)) - (eq? 'var _$e96276_)) + (eq? 'var _$e96538_)) (let () (declare (not safe)) - (cons _body96273_ - _vars96258_)) + (cons _body96535_ + _vars96520_)) (if (or (let () (declare (not safe)) (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e96276_)) - (let () (declare (not safe)) (eq? 'splice _$e96276_))) - (let ((__tmp97526 (cdr _body96273_)) - (__tmp97524 - (let ((__tmp97525 (car _body96273_))) + _$e96538_)) + (let () (declare (not safe)) (eq? 'splice _$e96538_))) + (let ((__tmp97788 (cdr _body96535_)) + (__tmp97786 + (let ((__tmp97787 (car _body96535_))) (declare (not safe)) - (_recur96255_ __tmp97525 _vars96258_)))) + (_recur96517_ __tmp97787 _vars96520_)))) (declare (not safe)) - (_recur96255_ __tmp97526 __tmp97524)) - (if (or (let () (declare (not safe)) (eq? 'vector _$e96276_)) - (let () (declare (not safe)) (eq? 'box _$e96276_))) + (_recur96517_ __tmp97788 __tmp97786)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e96538_)) + (let () (declare (not safe)) (eq? 'box _$e96538_))) (let () (declare (not safe)) - (_recur96255_ _body96273_ _vars96258_)) - _vars96258_))))))) + (_recur96517_ _body96535_ _vars96520_)) + _vars96520_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9625996266_)) - (let ((_hd9626396288_ + (##pair? _e9652196528_)) + (let ((_hd9652596550_ (let () (declare (not safe)) - (##car _e9625996266_))) - (_tl9626496290_ + (##car _e9652196528_))) + (_tl9652696552_ (let () (declare (not safe)) - (##cdr _e9625996266_)))) - (let* ((_tag96293_ _hd9626396288_) - (_body96295_ _tl9626496290_)) + (##cdr _e9652196528_)))) + (let* ((_tag96555_ _hd9652596550_) + (_body96557_ _tl9652696552_)) (declare (not safe)) - (_K9626296285_ - _body96295_ - _tag96293_))) + (_K9652496547_ + _body96557_ + _tag96555_))) (let () (declare (not safe)) - (_E9626196270_))))))) - (_make-body96247_ - (lambda (_vars96249_) - (let ((__tmp97527 - (map (lambda (_mvar96251_) - (let ((__tmp97528 - (car _mvar96251_))) + (_E9652396532_))))))) + (_make-body96509_ + (lambda (_vars96511_) + (let ((__tmp97789 + (map (lambda (_mvar96513_) + (let ((__tmp97790 + (car _mvar96513_))) (declare (not safe)) (assgetq__% - __tmp97528 - _vars96249_ - _BUG96243_))) - _mvars96239_))) + __tmp97790 + _vars96511_ + _BUG96505_))) + _mvars96501_))) (declare (not safe)) - (cons _K96240_ __tmp97527))))) + (cons _K96502_ __tmp97789))))) (let () (declare (not safe)) - (_recur96244_ - _hd96238_ + (_recur96506_ + _hd96500_ '() - _target96237_ - _E96241_ - _make-body96247_))))) - (_parse-clause96073_ - (lambda (_hd96142_ _ids96143_) - (let _recur96145_ ((_e96147_ _hd96142_) - (_vars96148_ '()) - (_depth96149_ '0)) + _target96499_ + _E96503_ + _make-body96509_))))) + (_parse-clause96335_ + (lambda (_hd96404_ _ids96405_) + (let _recur96407_ ((_e96409_ _hd96404_) + (_vars96410_ '()) + (_depth96411_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _e96147_)) + (gx#identifier? _e96409_)) (if (let () (declare (not safe)) - (gx#underscore? _e96147_)) - (values '(any) _vars96148_) + (gx#underscore? _e96409_)) + (values '(any) _vars96410_) (if (let () (declare (not safe)) - (gx#ellipsis? _e96147_)) + (gx#ellipsis? _e96409_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx96064_ - _hd96142_)) - (if (let ((__tmp97544 - (lambda (_id96151_) + _stx96326_ + _hd96404_)) + (if (let ((__tmp97806 + (lambda (_id96413_) (let () (declare (not safe)) (gx#bound-identifier=? - _e96147_ - _id96151_))))) + _e96409_ + _id96413_))))) (declare (not safe)) - (find __tmp97544 _ids96143_)) + (find __tmp97806 _ids96405_)) (values (let () (declare (not safe)) - (cons 'id _e96147_)) - _vars96148_) - (if (let ((__tmp97542 - (lambda (_var96153_) - (let ((__tmp97543 - (car _var96153_))) + (cons 'id _e96409_)) + _vars96410_) + (if (let ((__tmp97804 + (lambda (_var96415_) + (let ((__tmp97805 + (car _var96415_))) (declare (not safe)) (gx#bound-identifier=? - _e96147_ - __tmp97543))))) + _e96409_ + __tmp97805))))) (declare (not safe)) - (find __tmp97542 _vars96148_)) + (find __tmp97804 _vars96410_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx96064_ - _e96147_)) + _stx96326_ + _e96409_)) (values (let () (declare (not safe)) - (cons 'var _e96147_)) - (let ((__tmp97541 + (cons 'var _e96409_)) + (let ((__tmp97803 (let () (declare (not safe)) - (cons _e96147_ + (cons _e96409_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _depth96149_)))) + _depth96411_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97541 - _vars96148_))))))) + (cons __tmp97803 + _vars96410_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _e96147_)) - (let* ((_e9615496161_ _e96147_) - (_E9615696165_ + (gx#stx-pair? _e96409_)) + (let* ((_e9641696423_ _e96409_) + (_E9641896427_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9615496161_)))) - (_E9615596226_ + _e9641696423_)))) + (_E9641796488_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9615496161_)) - (let ((_e9615796169_ + (gx#stx-pair? _e9641696423_)) + (let ((_e9641996431_ (let () (declare (not safe)) (gx#syntax-e - _e9615496161_)))) - (let ((_hd9615896172_ + _e9641696423_)))) + (let ((_hd9642096434_ (let () (declare (not safe)) - (##car _e9615796169_))) - (_tl9615996174_ + (##car _e9641996431_))) + (_tl9642196436_ (let () (declare (not safe)) - (##cdr _e9615796169_)))) - (let* ((_hd96177_ - _hd9615896172_) - (_rest96179_ - _tl9615996174_)) + (##cdr _e9641996431_)))) + (let* ((_hd96439_ + _hd9642096434_) + (_rest96441_ + _tl9642196436_)) (if '#t - (let* ((_make-pair96194_ - (lambda (_tag96181_ + (let* ((_make-pair96456_ + (lambda (_tag96443_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd96182_ - _tl96183_) - (let* ((_hd-depth96185_ + _hd96444_ + _tl96445_) + (let* ((_hd-depth96447_ (if (let () (declare (not safe)) - (eq? _tag96181_ 'splice)) + (eq? _tag96443_ 'splice)) (let () (declare (not safe)) - (fx+ _depth96149_ '1)) - _depth96149_)) - (_g97536_ + (fx+ _depth96411_ '1)) + _depth96411_)) + (_g97798_ (let () (declare (not safe)) - (_recur96145_ - _hd96182_ - _vars96148_ - _hd-depth96185_)))) + (_recur96407_ + _hd96444_ + _vars96410_ + _hd-depth96447_)))) (begin - (let ((_g97537_ + (let ((_g97799_ (let () (declare (not safe)) - (if (##values? _g97536_) - (##vector-length _g97536_) + (if (##values? _g97798_) + (##vector-length _g97798_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97537_ 2))) - (error "Context expects 2 values" _g97537_))) - (let ((_hd96187_ + (##fx= _g97799_ 2))) + (error "Context expects 2 values" _g97799_))) + (let ((_hd96449_ (let () (declare (not safe)) - (##vector-ref _g97536_ 0))) - (_vars96188_ + (##vector-ref _g97798_ 0))) + (_vars96450_ (let () (declare (not safe)) - (##vector-ref _g97536_ 1)))) - (let ((_g97538_ + (##vector-ref _g97798_ 1)))) + (let ((_g97800_ (let () (declare (not safe)) - (_recur96145_ - _tl96183_ - _vars96188_ - _depth96149_)))) + (_recur96407_ + _tl96445_ + _vars96450_ + _depth96411_)))) (begin - (let ((_g97539_ + (let ((_g97801_ (let () (declare (not safe)) - (if (##values? _g97538_) - (##vector-length _g97538_) + (if (##values? _g97800_) + (##vector-length _g97800_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97539_ 2))) + (##fx= _g97801_ 2))) (error "Context expects 2 values" - _g97539_))) - (let ((_tl96190_ + _g97801_))) + (let ((_tl96452_ (let () (declare (not safe)) - (##vector-ref _g97538_ 0))) - (_vars96191_ + (##vector-ref _g97800_ 0))) + (_vars96453_ (let () (declare (not safe)) - (##vector-ref _g97538_ 1)))) + (##vector-ref _g97800_ 1)))) (let () - (values (let ((__tmp97540 + (values (let ((__tmp97802 (let () (declare (not safe)) - (cons _hd96187_ - _tl96190_)))) + (cons _hd96449_ + _tl96452_)))) (declare (not safe)) - (cons _tag96181_ __tmp97540)) - _vars96191_)))))))))) - (_e9619596202_ _rest96179_) - (_E9619796206_ + (cons _tag96443_ __tmp97802)) + _vars96453_)))))))))) + (_e9645796464_ _rest96441_) + (_E9645996468_ (lambda () (let () (declare (not safe)) - (_make-pair96194_ 'cons _hd96177_ _rest96179_)))) - (_E9619696222_ + (_make-pair96456_ 'cons _hd96439_ _rest96441_)))) + (_E9645896484_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9619596202_)) - (let ((_e9619896210_ + (gx#stx-pair? _e9645796464_)) + (let ((_e9646096472_ (let () (declare (not safe)) - (gx#syntax-e _e9619596202_)))) - (let ((_hd9619996213_ + (gx#syntax-e _e9645796464_)))) + (let ((_hd9646196475_ (let () (declare (not safe)) - (##car _e9619896210_))) - (_tl9620096215_ + (##car _e9646096472_))) + (_tl9646296477_ (let () (declare (not safe)) - (##cdr _e9619896210_)))) - (let* ((_rest-hd96218_ _hd9619996213_) - (_rest-tl96220_ _tl9620096215_)) + (##cdr _e9646096472_)))) + (let* ((_rest-hd96480_ _hd9646196475_) + (_rest-tl96482_ _tl9646296477_)) (if '#t (if (let () (declare (not safe)) - (gx#ellipsis? _rest-hd96218_)) + (gx#ellipsis? _rest-hd96480_)) (let () (declare (not safe)) - (_make-pair96194_ + (_make-pair96456_ 'splice - _hd96177_ - _rest-tl96220_)) + _hd96439_ + _rest-tl96482_)) (let () (declare (not safe)) - (_make-pair96194_ + (_make-pair96456_ 'cons - _hd96177_ - _rest96179_))) + _hd96439_ + _rest96441_))) (let () (declare (not safe)) - (_E9619796206_)))))) - (let () (declare (not safe)) (_E9619796206_)))))) - (let () (declare (not safe)) (_E9619696222_))) - (let () (declare (not safe)) (_E9615696165_)))))) + (_E9645996468_)))))) + (let () (declare (not safe)) (_E9645996468_)))))) + (let () (declare (not safe)) (_E9645896484_))) + (let () (declare (not safe)) (_E9641896427_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9615696165_)))))) - (let () (declare (not safe)) (_E9615596226_))) + (_E9641896427_)))))) + (let () (declare (not safe)) (_E9641796488_))) (if (let () (declare (not safe)) - (gx#stx-null? _e96147_)) - (values '(null) _vars96148_) + (gx#stx-null? _e96409_)) + (values '(null) _vars96410_) (if (let () (declare (not safe)) - (gx#stx-vector? _e96147_)) - (let ((_g97533_ - (let ((__tmp97535 + (gx#stx-vector? _e96409_)) + (let ((_g97795_ + (let ((__tmp97797 (vector->list (let () (declare (not safe)) (gx#syntax-e - _e96147_))))) + _e96409_))))) (declare (not safe)) - (_recur96145_ - __tmp97535 - _vars96148_ - _depth96149_)))) + (_recur96407_ + __tmp97797 + _vars96410_ + _depth96411_)))) (begin - (let ((_g97534_ + (let ((_g97796_ (let () (declare (not safe)) - (if (##values? _g97533_) + (if (##values? _g97795_) (##vector-length - _g97533_) + _g97795_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97534_ 2))) + (##fx= _g97796_ 2))) (error "Context expects 2 values" - _g97534_))) - (let ((_e96230_ + _g97796_))) + (let ((_e96492_ (let () (declare (not safe)) - (##vector-ref _g97533_ 0))) - (_vars96231_ + (##vector-ref _g97795_ 0))) + (_vars96493_ (let () (declare (not safe)) - (##vector-ref _g97533_ 1)))) + (##vector-ref _g97795_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e96230_)) - _vars96231_)))) + (cons 'vector _e96492_)) + _vars96493_)))) (if (let () (declare (not safe)) - (gx#stx-box? _e96147_)) - (let ((_g97530_ - (let ((__tmp97532 + (gx#stx-box? _e96409_)) + (let ((_g97792_ + (let ((__tmp97794 (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _e96147_))))) + (gx#syntax-e _e96409_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_recur96145_ - __tmp97532 - _vars96148_ - _depth96149_)))) + (_recur96407_ + __tmp97794 + _vars96410_ + _depth96411_)))) (begin - (let ((_g97531_ + (let ((_g97793_ (let () (declare (not safe)) - (if (##values? _g97530_) + (if (##values? _g97792_) (##vector-length - _g97530_) + _g97792_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97531_ 2))) + (##fx= _g97793_ 2))) (error "Context expects 2 values" - _g97531_))) - (let ((_e96233_ + _g97793_))) + (let ((_e96495_ (let () (declare (not safe)) (##vector-ref - _g97530_ + _g97792_ 0))) - (_vars96234_ + (_vars96496_ (let () (declare (not safe)) (##vector-ref - _g97530_ + _g97792_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e96233_)) - _vars96234_)))) + (cons 'box _e96495_)) + _vars96496_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _e96147_)) - (values (let ((__tmp97529 + (gx#stx-datum? _e96409_)) + (values (let ((__tmp97791 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _e96147_)))) + (gx#stx-e _e96409_)))) (declare (not safe)) - (cons 'datum __tmp97529)) - _vars96148_) + (cons 'datum __tmp97791)) + _vars96410_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _stx96064_ - _e96147_)))))))))))) - (let* ((_e9607496087_ _stx96064_) - (_E9607696091_ + _stx96326_ + _e96409_)))))))))))) + (let* ((_e9633696349_ _stx96326_) + (_E9633896353_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9607496087_)))) - (_E9607596138_ + _e9633696349_)))) + (_E9633796400_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9607496087_)) - (let ((_e9607796095_ + (gx#stx-pair? _e9633696349_)) + (let ((_e9633996357_ (let () (declare (not safe)) - (gx#syntax-e _e9607496087_)))) - (let ((_hd9607896098_ + (gx#syntax-e _e9633696349_)))) + (let ((_hd9634096360_ (let () (declare (not safe)) - (##car _e9607796095_))) - (_tl9607996100_ + (##car _e9633996357_))) + (_tl9634196362_ (let () (declare (not safe)) - (##cdr _e9607796095_)))) + (##cdr _e9633996357_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9607996100_)) - (let ((_e9608096103_ + (gx#stx-pair? _tl9634196362_)) + (let ((_e9634296365_ (let () (declare (not safe)) - (gx#syntax-e _tl9607996100_)))) - (let ((_hd9608196106_ + (gx#syntax-e _tl9634196362_)))) + (let ((_hd9634396368_ (let () (declare (not safe)) - (##car _e9608096103_))) - (_tl9608296108_ + (##car _e9634296365_))) + (_tl9634496370_ (let () (declare (not safe)) - (##cdr _e9608096103_)))) - (let ((_expr96111_ _hd9608196106_)) + (##cdr _e9634296365_)))) + (let ((_expr96373_ _hd9634396368_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9608296108_)) - (let ((_e9608396113_ + (gx#stx-pair? _tl9634496370_)) + (let ((_e9634596375_ (let () (declare (not safe)) (gx#syntax-e - _tl9608296108_)))) - (let ((_hd9608496116_ + _tl9634496370_)))) + (let ((_hd9634696378_ (let () (declare (not safe)) - (##car _e9608396113_))) - (_tl9608596118_ + (##car _e9634596375_))) + (_tl9634796380_ (let () (declare (not safe)) - (##cdr _e9608396113_)))) - (let* ((_ids96121_ - _hd9608496116_) - (_clauses96123_ - _tl9608596118_)) + (##cdr _e9634596375_)))) + (let* ((_ids96383_ + _hd9634696378_) + (_clauses96385_ + _tl9634796380_)) (if '#t - (if (let ((__tmp97562 + (if (let ((__tmp97824 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier-list? _ids96121_)))) + (gx#identifier-list? _ids96383_)))) (declare (not safe)) - (not __tmp97562)) + (not __tmp97824)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx96064_ - _ids96121_)) - (if (let ((__tmp97561 + _stx96326_ + _ids96383_)) + (if (let ((__tmp97823 (let () (declare (not safe)) - (gx#stx-list? _clauses96123_)))) + (gx#stx-list? _clauses96385_)))) (declare (not safe)) - (not __tmp97561)) + (not __tmp97823)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _stx96064_)) - (let* ((_ids96125_ + _stx96326_)) + (let* ((_ids96387_ (let () (declare (not safe)) - (gx#syntax->list _ids96121_))) - (_clauses96127_ + (gx#syntax->list _ids96383_))) + (_clauses96389_ (let () (declare (not safe)) - (gx#syntax->list _clauses96123_))) - (_clause-ids96129_ + (gx#syntax->list _clauses96385_))) + (_clause-ids96391_ (let () (declare (not safe)) - (gx#gentemps _clauses96127_))) - (_E96131_ + (gx#gentemps _clauses96389_))) + (_E96393_ (let () (declare (not safe)) (gx#genident__0))) - (_target96133_ + (_target96395_ (let () (declare (not safe)) (gx#genident__0))) - (_first96135_ + (_first96397_ (if (let () (declare (not safe)) - (null? _clauses96127_)) - _E96131_ - (car _clause-ids96129_)))) - (let ((__tmp97546 - (let ((__tmp97547 - (let ((__tmp97549 - (let ((__tmp97554 - (let ((__tmp97555 - (let ((__tmp97560 + (null? _clauses96389_)) + _E96393_ + (car _clause-ids96391_)))) + (let ((__tmp97808 + (let ((__tmp97809 + (let ((__tmp97811 + (let ((__tmp97816 + (let ((__tmp97817 + (let ((__tmp97822 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _E96131_ '()))) - (__tmp97556 - (let ((__tmp97557 - (let ((__tmp97559 + (cons _E96393_ '()))) + (__tmp97818 + (let ((__tmp97819 + (let ((__tmp97821 (let () (declare (not safe)) - (cons _target96133_ '()))) - (__tmp97558 + (cons _target96395_ '()))) + (__tmp97820 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _target96133_)))) + _target96395_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp97559 - __tmp97558)))) + __tmp97821 + __tmp97820)))) (declare (not safe)) - (cons __tmp97557 '())))) + (cons __tmp97819 '())))) (declare (not safe)) - (cons __tmp97560 __tmp97556)))) + (cons __tmp97822 __tmp97818)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97555 '()))) - (__tmp97550 - (let ((__tmp97553 + (cons __tmp97817 '()))) + (__tmp97812 + (let ((__tmp97815 (let () (declare (not safe)) - (_generate-bindings96069_ - _target96133_ - _ids96125_ - _clauses96127_ - _clause-ids96129_ - _E96131_))) - (__tmp97551 - (let ((__tmp97552 + (_generate-bindings96331_ + _target96395_ + _ids96387_ + _clauses96389_ + _clause-ids96391_ + _E96393_))) + (__tmp97813 + (let ((__tmp97814 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr96111_ '())))) + (cons _expr96373_ '())))) (declare (not safe)) - (cons _first96135_ __tmp97552)))) + (cons _first96397_ __tmp97814)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-body96070_ - __tmp97553 - __tmp97551)))) + (_generate-body96332_ + __tmp97815 + __tmp97813)))) (declare (not safe)) (gx#core-list 'let-values - __tmp97554 - __tmp97550))) - (__tmp97548 + __tmp97816 + __tmp97812))) + (__tmp97810 (let () (declare (not safe)) - (gx#stx-source _stx96064_)))) + (gx#stx-source _stx96326_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp97549 - __tmp97548)))) + __tmp97811 + __tmp97810)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp97547))) - (__tmp97545 + __tmp97809))) + (__tmp97807 (let () (declare (not safe)) - (gx#stx-source _stx96064_)))) + (gx#stx-source _stx96326_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp97546 __tmp97545))))) + (gx#stx-wrap-source __tmp97808 __tmp97807))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9607696091_)))))) + (_E9633896353_)))))) (let () (declare (not safe)) - (_E9607696091_)))))) + (_E9633896353_)))))) (let () (declare (not safe)) - (_E9607696091_))))) - (let () (declare (not safe)) (_E9607696091_)))))) - (let () (declare (not safe)) (_E9607596138_)))))) + (_E9633896353_))))) + (let () (declare (not safe)) (_E9633896353_)))))) + (let () (declare (not safe)) (_E9633796400_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx96774_) - (let* ((_identifier=?96776_ 'free-identifier=?) - (_unwrap-e96778_ 'syntax-e) - (_wrap-e96780_ 'quote-syntax)) + (lambda (_stx97036_) + (let* ((_identifier=?97038_ 'free-identifier=?) + (_unwrap-e97040_ 'syntax-e) + (_wrap-e97042_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx96774_ - _identifier=?96776_ - _unwrap-e96778_ - _wrap-e96780_)))) + _stx97036_ + _identifier=?97038_ + _unwrap-e97040_ + _wrap-e97042_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx96782_ _identifier=?96783_) - (let* ((_unwrap-e96785_ 'syntax-e) (_wrap-e96787_ 'quote-syntax)) + (lambda (_stx97044_ _identifier=?97045_) + (let* ((_unwrap-e97047_ 'syntax-e) (_wrap-e97049_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx96782_ - _identifier=?96783_ - _unwrap-e96785_ - _wrap-e96787_)))) + _stx97044_ + _identifier=?97045_ + _unwrap-e97047_ + _wrap-e97049_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx96789_ _identifier=?96790_ _unwrap-e96791_) - (let ((_wrap-e96793_ 'quote-syntax)) + (lambda (_stx97051_ _identifier=?97052_ _unwrap-e97053_) + (let ((_wrap-e97055_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx96789_ - _identifier=?96790_ - _unwrap-e96791_ - _wrap-e96793_)))) + _stx97051_ + _identifier=?97052_ + _unwrap-e97053_ + _wrap-e97055_)))) (define gx#macro-expand-syntax-case - (lambda _g97564_ - (let ((_g97563_ (let () (declare (not safe)) (##length _g97564_)))) - (cond ((let () (declare (not safe)) (##fx= _g97563_ 1)) - (apply (lambda (_stx96774_) + (lambda _g97826_ + (let ((_g97825_ (let () (declare (not safe)) (##length _g97826_)))) + (cond ((let () (declare (not safe)) (##fx= _g97825_ 1)) + (apply (lambda (_stx97036_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__0 _stx96774_))) - _g97564_)) - ((let () (declare (not safe)) (##fx= _g97563_ 2)) - (apply (lambda (_stx96782_ _identifier=?96783_) + (gx#macro-expand-syntax-case__0 _stx97036_))) + _g97826_)) + ((let () (declare (not safe)) (##fx= _g97825_ 2)) + (apply (lambda (_stx97044_ _identifier=?97045_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__1 - _stx96782_ - _identifier=?96783_))) - _g97564_)) - ((let () (declare (not safe)) (##fx= _g97563_ 3)) - (apply (lambda (_stx96789_ - _identifier=?96790_ - _unwrap-e96791_) + _stx97044_ + _identifier=?97045_))) + _g97826_)) + ((let () (declare (not safe)) (##fx= _g97825_ 3)) + (apply (lambda (_stx97051_ + _identifier=?97052_ + _unwrap-e97053_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__2 - _stx96789_ - _identifier=?96790_ - _unwrap-e96791_))) - _g97564_)) - ((let () (declare (not safe)) (##fx= _g97563_ 4)) - (apply (lambda (_stx96795_ - _identifier=?96796_ - _unwrap-e96797_ - _wrap-e96798_) + _stx97051_ + _identifier=?97052_ + _unwrap-e97053_))) + _g97826_)) + ((let () (declare (not safe)) (##fx= _g97825_ 4)) + (apply (lambda (_stx97057_ + _identifier=?97058_ + _unwrap-e97059_ + _wrap-e97060_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx96795_ - _identifier=?96796_ - _unwrap-e96797_ - _wrap-e96798_))) - _g97564_)) + _stx97057_ + _identifier=?97058_ + _unwrap-e97059_ + _wrap-e97060_))) + _g97826_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g97564_)))))) + _g97826_)))))) (define gx#syntax-local-pattern? - (lambda (_stx96061_) - (if (let () (declare (not safe)) (gx#identifier? _stx96061_)) - (let ((__tmp97565 + (lambda (_stx96323_) + (if (let () (declare (not safe)) (gx#identifier? _stx96323_)) + (let ((__tmp97827 (let () (declare (not safe)) - (gx#syntax-local-e__% _stx96061_ false)))) + (gx#syntax-local-e__% _stx96323_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp97565 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp97827 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd96019_ . _rest96020_) - (let ((_len96022_ (length _hd96019_))) - (let _lp96024_ ((_rest96026_ _rest96020_)) - (let* ((_rest9602796035_ _rest96026_) - (_else9602996043_ (lambda () '#!void)) - (_K9603196049_ - (lambda (_rest96046_ _hd96047_) - (if (fx= _len96022_ (length _hd96047_)) - (let () (declare (not safe)) (_lp96024_ _rest96046_)) + (lambda (_hd96281_ . _rest96282_) + (let ((_len96284_ (length _hd96281_))) + (let _lp96286_ ((_rest96288_ _rest96282_)) + (let* ((_rest9628996297_ _rest96288_) + (_else9629196305_ (lambda () '#!void)) + (_K9629396311_ + (lambda (_rest96308_ _hd96309_) + (if (fx= _len96284_ (length _hd96309_)) + (let () (declare (not safe)) (_lp96286_ _rest96308_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd96047_)))))) - (if (let () (declare (not safe)) (##pair? _rest9602796035_)) - (let ((_hd9603296052_ + _hd96309_)))))) + (if (let () (declare (not safe)) (##pair? _rest9628996297_)) + (let ((_hd9629496314_ (let () (declare (not safe)) - (##car _rest9602796035_))) - (_tl9603396054_ + (##car _rest9628996297_))) + (_tl9629596316_ (let () (declare (not safe)) - (##cdr _rest9602796035_)))) - (let* ((_hd96057_ _hd9603296052_) - (_rest96059_ _tl9603396054_)) + (##cdr _rest9628996297_)))) + (let* ((_hd96319_ _hd9629496314_) + (_rest96321_ _tl9629596316_)) (declare (not safe)) - (_K9603196049_ _rest96059_ _hd96057_))) + (_K9629396311_ _rest96321_ _hd96319_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_stx95977_ _n95978_) - (let _lp95980_ ((_rest95982_ _stx95977_) (_r95983_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _rest95982_)) - (let* ((_g9598495991_ - (let () (declare (not safe)) (gx#syntax-e _rest95982_))) - (_E9598695995_ + (lambda (_stx96239_ _n96240_) + (let _lp96242_ ((_rest96244_ _stx96239_) (_r96245_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _rest96244_)) + (let* ((_g9624696253_ + (let () (declare (not safe)) (gx#syntax-e _rest96244_))) + (_E9624896257_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _g9598495991_)))) - (_K9598796001_ - (lambda (_rest95998_ _hd95999_) - (let ((__tmp97570 + (error '"No clause matching" _g9624696253_)))) + (_K9624996263_ + (lambda (_rest96260_ _hd96261_) + (let ((__tmp97832 (let () (declare (not safe)) - (cons _hd95999_ _r95983_)))) + (cons _hd96261_ _r96245_)))) (declare (not safe)) - (_lp95980_ _rest95998_ __tmp97570))))) - (if (let () (declare (not safe)) (##pair? _g9598495991_)) - (let ((_hd9598896004_ - (let () (declare (not safe)) (##car _g9598495991_))) - (_tl9598996006_ + (_lp96242_ _rest96260_ __tmp97832))))) + (if (let () (declare (not safe)) (##pair? _g9624696253_)) + (let ((_hd9625096266_ + (let () (declare (not safe)) (##car _g9624696253_))) + (_tl9625196268_ (let () (declare (not safe)) - (##cdr _g9598495991_)))) - (let* ((_hd96009_ _hd9598896004_) - (_rest96011_ _tl9598996006_)) + (##cdr _g9624696253_)))) + (let* ((_hd96271_ _hd9625096266_) + (_rest96273_ _tl9625196268_)) (declare (not safe)) - (_K9598796001_ _rest96011_ _hd96009_))) - (let () (declare (not safe)) (_E9598695995_)))) - (let _lp96013_ ((_n96015_ _n95978_) - (_l96016_ _r95983_) - (_r96017_ _rest95982_)) - (if (let () (declare (not safe)) (null? _l96016_)) - (values _l96016_ _r96017_) - (if (fxpositive? _n96015_) - (let ((__tmp97569 - (let () (declare (not safe)) (fx- _n96015_ '1))) - (__tmp97568 (cdr _l96016_)) - (__tmp97566 - (let ((__tmp97567 (car _l96016_))) + (_K9624996263_ _rest96273_ _hd96271_))) + (let () (declare (not safe)) (_E9624896257_)))) + (let _lp96275_ ((_n96277_ _n96240_) + (_l96278_ _r96245_) + (_r96279_ _rest96244_)) + (if (let () (declare (not safe)) (null? _l96278_)) + (values _l96278_ _r96279_) + (if (fxpositive? _n96277_) + (let ((__tmp97831 + (let () (declare (not safe)) (fx- _n96277_ '1))) + (__tmp97830 (cdr _l96278_)) + (__tmp97828 + (let ((__tmp97829 (car _l96278_))) (declare (not safe)) - (cons __tmp97567 _r96017_)))) + (cons __tmp97829 _r96279_)))) (declare (not safe)) - (_lp96013_ __tmp97569 __tmp97568 __tmp97566)) - (values (reverse _l96016_) _r96017_)))))))))) + (_lp96275_ __tmp97831 __tmp97830 __tmp97828)) + (values (reverse _l96278_) _r96279_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase__1.scm b/src/bootstrap/gerbil/expander/stxcase__1.scm index 7c62fb2a..6e8363c4 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]#_g97573_| + (define |gx[1]#_g97835_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g97575_| + (define |gx[1]#_g97837_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g97577_| + (define |gx[1]#_g97839_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g97579_| + (define |gx[1]#_g97841_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g97585_| + (define |gx[1]#_g97847_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g97588_| + (define |gx[1]#_g97850_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g97591_| + (define |gx[1]#_g97853_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g97597_| + (define |gx[1]#_g97859_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97600_| + (define |gx[1]#_g97862_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97603_| + (define |gx[1]#_g97865_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97609_| + (define |gx[1]#_g97871_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g97612_| + (define |gx[1]#_g97874_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g97615_| + (define |gx[1]#_g97877_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g97621_| + (define |gx[1]#_g97883_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97624_| + (define |gx[1]#_g97886_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g97627_| + (define |gx[1]#_g97889_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj97323 + (let ((__obj97585 (let () (declare (not safe)) (##structure @@ -136,7 +136,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97323 + __obj97585 'gx#syntax-pattern::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -144,7 +144,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97323 + __obj97585 'syntax-pattern '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -152,26 +152,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97323 + __obj97585 '(id depth) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97571 - (let ((__tmp97572 |gx[1]#_g97573_|)) + (let ((__tmp97833 + (let ((__tmp97834 |gx[1]#_g97835_|)) (declare (not safe)) - (cons __tmp97572 '())))) + (cons __tmp97834 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj97323 - __tmp97571 + __obj97585 + __tmp97833 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj97323 + __obj97585 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -179,7 +179,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97323 + __obj97585 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -187,7 +187,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97323 + __obj97585 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -195,145 +195,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97323 + __obj97585 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97574 |gx[1]#_g97575_|)) + (let ((__tmp97836 |gx[1]#_g97837_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97323 - __tmp97574 + __obj97585 + __tmp97836 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97576 |gx[1]#_g97577_|)) + (let ((__tmp97838 |gx[1]#_g97839_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97323 - __tmp97576 + __obj97585 + __tmp97838 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97578 |gx[1]#_g97579_|)) + (let ((__tmp97840 |gx[1]#_g97841_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97323 - __tmp97578 + __obj97585 + __tmp97840 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97580 - (let ((__tmp97589 - (let ((__tmp97590 |gx[1]#_g97591_|)) + (let ((__tmp97842 + (let ((__tmp97851 + (let ((__tmp97852 |gx[1]#_g97853_|)) (declare (not safe)) - (cons 'id __tmp97590))) - (__tmp97581 - (let ((__tmp97586 - (let ((__tmp97587 |gx[1]#_g97588_|)) + (cons 'id __tmp97852))) + (__tmp97843 + (let ((__tmp97848 + (let ((__tmp97849 |gx[1]#_g97850_|)) (declare (not safe)) - (cons 'depth __tmp97587))) - (__tmp97582 - (let ((__tmp97583 - (let ((__tmp97584 |gx[1]#_g97585_|)) + (cons 'depth __tmp97849))) + (__tmp97844 + (let ((__tmp97845 + (let ((__tmp97846 |gx[1]#_g97847_|)) (declare (not safe)) - (cons 'e __tmp97584)))) + (cons 'e __tmp97846)))) (declare (not safe)) - (cons __tmp97583 '())))) + (cons __tmp97845 '())))) (declare (not safe)) - (cons __tmp97586 __tmp97582)))) + (cons __tmp97848 __tmp97844)))) (declare (not safe)) - (cons __tmp97589 __tmp97581)))) + (cons __tmp97851 __tmp97843)))) (declare (not safe)) (##unchecked-structure-set! - __obj97323 - __tmp97580 + __obj97585 + __tmp97842 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97592 - (let ((__tmp97601 - (let ((__tmp97602 |gx[1]#_g97603_|)) + (let ((__tmp97854 + (let ((__tmp97863 + (let ((__tmp97864 |gx[1]#_g97865_|)) (declare (not safe)) - (cons 'id __tmp97602))) - (__tmp97593 - (let ((__tmp97598 - (let ((__tmp97599 |gx[1]#_g97600_|)) + (cons 'id __tmp97864))) + (__tmp97855 + (let ((__tmp97860 + (let ((__tmp97861 |gx[1]#_g97862_|)) (declare (not safe)) - (cons 'depth __tmp97599))) - (__tmp97594 - (let ((__tmp97595 - (let ((__tmp97596 |gx[1]#_g97597_|)) + (cons 'depth __tmp97861))) + (__tmp97856 + (let ((__tmp97857 + (let ((__tmp97858 |gx[1]#_g97859_|)) (declare (not safe)) - (cons 'e __tmp97596)))) + (cons 'e __tmp97858)))) (declare (not safe)) - (cons __tmp97595 '())))) + (cons __tmp97857 '())))) (declare (not safe)) - (cons __tmp97598 __tmp97594)))) + (cons __tmp97860 __tmp97856)))) (declare (not safe)) - (cons __tmp97601 __tmp97593)))) + (cons __tmp97863 __tmp97855)))) (declare (not safe)) (##unchecked-structure-set! - __obj97323 - __tmp97592 + __obj97585 + __tmp97854 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97604 - (let ((__tmp97613 - (let ((__tmp97614 |gx[1]#_g97615_|)) + (let ((__tmp97866 + (let ((__tmp97875 + (let ((__tmp97876 |gx[1]#_g97877_|)) (declare (not safe)) - (cons 'id __tmp97614))) - (__tmp97605 - (let ((__tmp97610 - (let ((__tmp97611 |gx[1]#_g97612_|)) + (cons 'id __tmp97876))) + (__tmp97867 + (let ((__tmp97872 + (let ((__tmp97873 |gx[1]#_g97874_|)) (declare (not safe)) - (cons 'depth __tmp97611))) - (__tmp97606 - (let ((__tmp97607 - (let ((__tmp97608 |gx[1]#_g97609_|)) + (cons 'depth __tmp97873))) + (__tmp97868 + (let ((__tmp97869 + (let ((__tmp97870 |gx[1]#_g97871_|)) (declare (not safe)) - (cons 'e __tmp97608)))) + (cons 'e __tmp97870)))) (declare (not safe)) - (cons __tmp97607 '())))) + (cons __tmp97869 '())))) (declare (not safe)) - (cons __tmp97610 __tmp97606)))) + (cons __tmp97872 __tmp97868)))) (declare (not safe)) - (cons __tmp97613 __tmp97605)))) + (cons __tmp97875 __tmp97867)))) (declare (not safe)) (##unchecked-structure-set! - __obj97323 - __tmp97604 + __obj97585 + __tmp97866 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp97616 - (let ((__tmp97625 - (let ((__tmp97626 |gx[1]#_g97627_|)) + (let ((__tmp97878 + (let ((__tmp97887 + (let ((__tmp97888 |gx[1]#_g97889_|)) (declare (not safe)) - (cons 'id __tmp97626))) - (__tmp97617 - (let ((__tmp97622 - (let ((__tmp97623 |gx[1]#_g97624_|)) + (cons 'id __tmp97888))) + (__tmp97879 + (let ((__tmp97884 + (let ((__tmp97885 |gx[1]#_g97886_|)) (declare (not safe)) - (cons 'depth __tmp97623))) - (__tmp97618 - (let ((__tmp97619 - (let ((__tmp97620 |gx[1]#_g97621_|)) + (cons 'depth __tmp97885))) + (__tmp97880 + (let ((__tmp97881 + (let ((__tmp97882 |gx[1]#_g97883_|)) (declare (not safe)) - (cons 'e __tmp97620)))) + (cons 'e __tmp97882)))) (declare (not safe)) - (cons __tmp97619 '())))) + (cons __tmp97881 '())))) (declare (not safe)) - (cons __tmp97622 __tmp97618)))) + (cons __tmp97884 __tmp97880)))) (declare (not safe)) - (cons __tmp97625 __tmp97617)))) + (cons __tmp97887 __tmp97879)))) (declare (not safe)) (##unchecked-structure-set! - __obj97323 - __tmp97616 + __obj97585 + __tmp97878 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj97323))) + __obj97585))) diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index c6a90d08..7879db9b 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 1709375798) + (define gerbil/expander/top::timestamp 1709457369) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_stx89697_) - (letrec ((_expand-special89699_ - (lambda (_hd89701_ _K89702_ _rest89703_ _r89704_) - (_K89702_ - _rest89703_ - (cons (gx#core-expand-top _hd89701_) _r89704_))))) - (gx#core-expand-block__0 _stx89697_ _expand-special89699_)))) + (lambda (_stx89959_) + (letrec ((_expand-special89961_ + (lambda (_hd89963_ _K89964_ _rest89965_ _r89966_) + (_K89964_ + _rest89965_ + (cons (gx#core-expand-top _hd89963_) _r89966_))))) + (gx#core-expand-block__0 _stx89959_ _expand-special89961_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx89450_) - (letrec ((_expand-special89452_ - (lambda (_hd89572_ _K89573_ _rest89574_ _r89575_) - (let* ((_K89579_ - (lambda (_e89577_) - (_K89573_ _rest89574_ (cons _e89577_ _r89575_)))) - (_e8958089609_ _hd89572_) - (_E8960489613_ + (lambda (_stx89712_) + (letrec ((_expand-special89714_ + (lambda (_hd89834_ _K89835_ _rest89836_ _r89837_) + (let* ((_K89841_ + (lambda (_e89839_) + (_K89835_ _rest89836_ (cons _e89839_ _r89837_)))) + (_e8984289871_ _hd89834_) + (_E8986689875_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8958089609_))) - (_E8960089625_ + _e8984289871_))) + (_E8986289887_ (lambda () - (if (gx#stx-pair? _e8958089609_) - (let ((_e8960589617_ - (gx#syntax-e _e8958089609_))) - (let ((_hd8960689620_ - (##car _e8960589617_)) - (_tl8960789622_ - (##cdr _e8960589617_))) - (if (and (gx#identifier? _hd8960689620_) + (if (gx#stx-pair? _e8984289871_) + (let ((_e8986789879_ + (gx#syntax-e _e8984289871_))) + (let ((_hd8986889882_ + (##car _e8986789879_)) + (_tl8986989884_ + (##cdr _e8986789879_))) + (if (and (gx#identifier? _hd8986889882_) (gx#core-identifier=? - _hd8960689620_ + _hd8986889882_ '%#define-runtime)) (if '#t - (_K89579_ + (_K89841_ (gx#core-expand-define-runtime% - _hd89572_)) - (_E8960489613_)) - (_E8960489613_)))) - (_E8960489613_)))) - (_E8959689637_ + _hd89834_)) + (_E8986689875_)) + (_E8986689875_)))) + (_E8986689875_)))) + (_E8985889899_ (lambda () - (if (gx#stx-pair? _e8958089609_) - (let ((_e8960189629_ - (gx#syntax-e _e8958089609_))) - (let ((_hd8960289632_ - (##car _e8960189629_)) - (_tl8960389634_ - (##cdr _e8960189629_))) - (if (and (gx#identifier? _hd8960289632_) + (if (gx#stx-pair? _e8984289871_) + (let ((_e8986389891_ + (gx#syntax-e _e8984289871_))) + (let ((_hd8986489894_ + (##car _e8986389891_)) + (_tl8986589896_ + (##cdr _e8986389891_))) + (if (and (gx#identifier? _hd8986489894_) (gx#core-identifier=? - _hd8960289632_ + _hd8986489894_ '%#define-alias)) (if '#t - (_K89579_ + (_K89841_ (gx#core-expand-define-alias% - _hd89572_)) - (_E8960089625_)) - (_E8960089625_)))) - (_E8960089625_)))) - (_E8958689649_ + _hd89834_)) + (_E8986289887_)) + (_E8986289887_)))) + (_E8986289887_)))) + (_E8984889911_ (lambda () - (if (gx#stx-pair? _e8958089609_) - (let ((_e8959789641_ - (gx#syntax-e _e8958089609_))) - (let ((_hd8959889644_ - (##car _e8959789641_)) - (_tl8959989646_ - (##cdr _e8959789641_))) - (if (and (gx#identifier? _hd8959889644_) + (if (gx#stx-pair? _e8984289871_) + (let ((_e8985989903_ + (gx#syntax-e _e8984289871_))) + (let ((_hd8986089906_ + (##car _e8985989903_)) + (_tl8986189908_ + (##cdr _e8985989903_))) + (if (and (gx#identifier? _hd8986089906_) (gx#core-identifier=? - _hd8959889644_ + _hd8986089906_ '%#define-syntax)) (if '#t - (_K89579_ + (_K89841_ (gx#core-expand-define-syntax% - _hd89572_)) - (_E8959689637_)) - (_E8959689637_)))) - (_E8959689637_)))) - (_E8958289681_ + _hd89834_)) + (_E8985889899_)) + (_E8985889899_)))) + (_E8985889899_)))) + (_E8984489943_ (lambda () - (if (gx#stx-pair? _e8958089609_) - (let ((_e8958789653_ - (gx#syntax-e _e8958089609_))) - (let ((_hd8958889656_ - (##car _e8958789653_)) - (_tl8958989658_ - (##cdr _e8958789653_))) - (if (and (gx#identifier? _hd8958889656_) + (if (gx#stx-pair? _e8984289871_) + (let ((_e8984989915_ + (gx#syntax-e _e8984289871_))) + (let ((_hd8985089918_ + (##car _e8984989915_)) + (_tl8985189920_ + (##cdr _e8984989915_))) + (if (and (gx#identifier? _hd8985089918_) (gx#core-identifier=? - _hd8958889656_ + _hd8985089918_ '%#define-values)) - (if (gx#stx-pair? _tl8958989658_) - (let ((_e8959089661_ + (if (gx#stx-pair? _tl8985189920_) + (let ((_e8985289923_ (gx#syntax-e - _tl8958989658_))) - (let ((_hd8959189664_ - (##car _e8959089661_)) - (_tl8959289666_ - (##cdr _e8959089661_))) - (let ((_hd-bind89669_ - _hd8959189664_)) + _tl8985189920_))) + (let ((_hd8985389926_ + (##car _e8985289923_)) + (_tl8985489928_ + (##cdr _e8985289923_))) + (let ((_hd-bind89931_ + _hd8985389926_)) (if (gx#stx-pair? - _tl8959289666_) - (let ((_e8959389671_ + _tl8985489928_) + (let ((_e8985589933_ (gx#syntax-e - _tl8959289666_))) - (let ((_hd8959489674_ + _tl8985489928_))) + (let ((_hd8985689936_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e8959389671_)) - (_tl8959589676_ (##cdr _e8959389671_))) - (let ((_expr89679_ _hd8959489674_)) - (if (gx#stx-null? _tl8959589676_) - (if (gx#core-bind-values? _hd-bind89669_) + (##car _e8985589933_)) + (_tl8985789938_ (##cdr _e8985589933_))) + (let ((_expr89941_ _hd8985689936_)) + (if (gx#stx-null? _tl8985789938_) + (if (gx#core-bind-values? _hd-bind89931_) (begin - (gx#core-bind-values!__0 _hd-bind89669_) - (_K89579_ _hd89572_)) - (_E8958689649_)) - (_E8958689649_))))) - (_E8958689649_))))) + (gx#core-bind-values!__0 _hd-bind89931_) + (_K89841_ _hd89834_)) + (_E8984889911_)) + (_E8984889911_))))) + (_E8984889911_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8958689649_)) - (_E8958689649_)))) - (_E8958689649_)))) - (_E8958189693_ + (_E8984889911_)) + (_E8984889911_)))) + (_E8984889911_)))) + (_E8984389955_ (lambda () - (if (gx#stx-pair? _e8958089609_) - (let ((_e8958389685_ - (gx#syntax-e _e8958089609_))) - (let ((_hd8958489688_ - (##car _e8958389685_)) - (_tl8958589690_ - (##cdr _e8958389685_))) - (if (and (gx#identifier? _hd8958489688_) + (if (gx#stx-pair? _e8984289871_) + (let ((_e8984589947_ + (gx#syntax-e _e8984289871_))) + (let ((_hd8984689950_ + (##car _e8984589947_)) + (_tl8984789952_ + (##cdr _e8984589947_))) + (if (and (gx#identifier? _hd8984689950_) (gx#core-identifier=? - _hd8958489688_ + _hd8984689950_ '%#begin-syntax)) (if '#t - (_K89579_ + (_K89841_ (gx#core-expand-begin-syntax% - _hd89572_)) - (_E8958289681_)) - (_E8958289681_)))) - (_E8958289681_))))) - (_E8958189693_)))) - (_eval-body89453_ - (lambda (_rbody89461_) - (let _lp89463_ ((_rest89465_ _rbody89461_) - (_body89466_ '()) - (_ebody89467_ '())) - (let* ((_rest8946889476_ _rest89465_) - (_else8947089484_ + _hd89834_)) + (_E8984489943_)) + (_E8984489943_)))) + (_E8984489943_))))) + (_E8984389955_)))) + (_eval-body89715_ + (lambda (_rbody89723_) + (let _lp89725_ ((_rest89727_ _rbody89723_) + (_body89728_ '()) + (_ebody89729_ '())) + (let* ((_rest8973089738_ _rest89727_) + (_else8973289746_ (lambda () - (values _body89466_ + (values _body89728_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody89467_) - (gx#stx-source _stx89450_)))))) - (_K8947289560_ - (lambda (_rest89487_ _hd89488_) - (let* ((_e8948989506_ _hd89488_) - (_E8950189510_ + (gx#core-cons '%#begin _ebody89729_) + (gx#stx-source _stx89712_)))))) + (_K8973489822_ + (lambda (_rest89749_ _hd89750_) + (let* ((_e8975189768_ _hd89750_) + (_E8976389772_ (lambda () - (_lp89463_ - _rest89487_ - (cons _hd89488_ _body89466_) - (cons _hd89488_ _ebody89467_)))) - (_E8949189522_ + (_lp89725_ + _rest89749_ + (cons _hd89750_ _body89728_) + (cons _hd89750_ _ebody89729_)))) + (_E8975389784_ (lambda () - (if (gx#stx-pair? _e8948989506_) - (let ((_e8950289514_ + (if (gx#stx-pair? _e8975189768_) + (let ((_e8976489776_ (gx#syntax-e - _e8948989506_))) - (let ((_hd8950389517_ - (##car _e8950289514_)) - (_tl8950489519_ - (##cdr _e8950289514_))) + _e8975189768_))) + (let ((_hd8976589779_ + (##car _e8976489776_)) + (_tl8976689781_ + (##cdr _e8976489776_))) (if (and (gx#identifier? - _hd8950389517_) + _hd8976589779_) (gx#core-identifier=? - _hd8950389517_ + _hd8976589779_ '%#begin-syntax)) (if '#t - (_lp89463_ - _rest89487_ - (cons _hd89488_ + (_lp89725_ + _rest89749_ + (cons _hd89750_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body89466_) - _ebody89467_) - (_E8950189510_)) - (_E8950189510_)))) + _body89728_) + _ebody89729_) + (_E8976389772_)) + (_E8976389772_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8950189510_)))) - (_E8949089556_ + (_E8976389772_)))) + (_E8975289818_ (lambda () - (if (gx#stx-pair? _e8948989506_) - (let ((_e8949289526_ + (if (gx#stx-pair? _e8975189768_) + (let ((_e8975489788_ (gx#syntax-e - _e8948989506_))) - (let ((_hd8949389529_ - (##car _e8949289526_)) - (_tl8949489531_ - (##cdr _e8949289526_))) + _e8975189768_))) + (let ((_hd8975589791_ + (##car _e8975489788_)) + (_tl8975689793_ + (##cdr _e8975489788_))) (if (and (gx#identifier? - _hd8949389529_) + _hd8975589791_) (gx#core-identifier=? - _hd8949389529_ + _hd8975589791_ '%#define-values)) (if (gx#stx-pair? - _tl8949489531_) - (let ((_e8949589534_ + _tl8975689793_) + (let ((_e8975789796_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl8949489531_))) - (let ((_hd8949689537_ (##car _e8949589534_)) - (_tl8949789539_ (##cdr _e8949589534_))) - (let ((_hd-bind89542_ _hd8949689537_)) - (if (gx#stx-pair? _tl8949789539_) - (let ((_e8949889544_ (gx#syntax-e _tl8949789539_))) - (let ((_hd8949989547_ (##car _e8949889544_)) - (_tl8950089549_ (##cdr _e8949889544_))) - (let ((_expr89552_ _hd8949989547_)) - (if (gx#stx-null? _tl8950089549_) + (gx#syntax-e _tl8975689793_))) + (let ((_hd8975889799_ (##car _e8975789796_)) + (_tl8975989801_ (##cdr _e8975789796_))) + (let ((_hd-bind89804_ _hd8975889799_)) + (if (gx#stx-pair? _tl8975989801_) + (let ((_e8976089806_ (gx#syntax-e _tl8975989801_))) + (let ((_hd8976189809_ (##car _e8976089806_)) + (_tl8976289811_ (##cdr _e8976089806_))) + (let ((_expr89814_ _hd8976189809_)) + (if (gx#stx-null? _tl8976289811_) (if '#t - (let ((_ehd89554_ + (let ((_ehd89816_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind89542_) + _hd-bind89804_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr89552_) + _expr89814_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd89488_)))) - (_lp89463_ - _rest89487_ - (cons _ehd89554_ _body89466_) - (cons _ehd89554_ _ebody89467_))) - (_E8949189522_)) - (_E8949189522_))))) - (_E8949189522_))))) - (_E8949189522_)) - (_E8949189522_)))) + (gx#stx-source _hd89750_)))) + (_lp89725_ + _rest89749_ + (cons _ehd89816_ _body89728_) + (cons _ehd89816_ _ebody89729_))) + (_E8975389784_)) + (_E8975389784_))))) + (_E8975389784_))))) + (_E8975389784_)) + (_E8975389784_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8949189522_))))) - (_E8949089556_))))) - (if (##pair? _rest8946889476_) - (let ((_hd8947389563_ (##car _rest8946889476_)) - (_tl8947489565_ (##cdr _rest8946889476_))) - (let* ((_hd89568_ _hd8947389563_) - (_rest89570_ _tl8947489565_)) - (_K8947289560_ _rest89570_ _hd89568_))) - (_else8947089484_))))))) + (_E8975389784_))))) + (_E8975289818_))))) + (if (##pair? _rest8973089738_) + (let ((_hd8973589825_ (##car _rest8973089738_)) + (_tl8973689827_ (##cdr _rest8973089738_))) + (let* ((_hd89830_ _hd8973589825_) + (_rest89832_ _tl8973689827_)) + (_K8973489822_ _rest89832_ _hd89830_))) + (_else8973289746_))))))) (call-with-parameters (lambda () - (let* ((_rbody89456_ + (let* ((_rbody89718_ (gx#core-expand-block__1 - _stx89450_ - _expand-special89452_ + _stx89712_ + _expand-special89714_ '#f)) - (_g89720_ (_eval-body89453_ _rbody89456_))) + (_g89982_ (_eval-body89715_ _rbody89718_))) (begin - (let ((_g89721_ - (if (##values? _g89720_) - (##vector-length _g89720_) + (let ((_g89983_ + (if (##values? _g89982_) + (##vector-length _g89982_) 1))) - (if (not (##fx= _g89721_ 2)) - (error "Context expects 2 values" _g89721_))) - (let ((_expanded-body89458_ (##vector-ref _g89720_ 0)) - (_value89459_ (##vector-ref _g89720_ 1))) + (if (not (##fx= _g89983_ 2)) + (error "Context expects 2 values" _g89983_))) + (let ((_expanded-body89720_ (##vector-ref _g89982_ 0)) + (_value89721_ (##vector-ref _g89982_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body89458_) + (gx#core-cons '%#begin-syntax _expanded-body89720_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value89459_ '()))) - (gx#stx-source _stx89450_)))))) + (cons _value89721_ '()))) + (gx#stx-source _stx89712_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx89420_) - (let* ((_e8942189428_ _stx89420_) - (_E8942389432_ + (lambda (_stx89682_) + (let* ((_e8968389690_ _stx89682_) + (_E8968589694_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8942189428_))) - (_E8942289446_ + _e8968389690_))) + (_E8968489708_ (lambda () - (if (gx#stx-pair? _e8942189428_) - (let ((_e8942489436_ (gx#syntax-e _e8942189428_))) - (let ((_hd8942589439_ (##car _e8942489436_)) - (_tl8942689441_ (##cdr _e8942489436_))) - (let ((_body89444_ _tl8942689441_)) - (if (gx#stx-list? _body89444_) + (if (gx#stx-pair? _e8968389690_) + (let ((_e8968689698_ (gx#syntax-e _e8968389690_))) + (let ((_hd8968789701_ (##car _e8968689698_)) + (_tl8968889703_ (##cdr _e8968689698_))) + (let ((_body89706_ _tl8968889703_)) + (if (gx#stx-list? _body89706_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body89444_) - (gx#stx-source _stx89420_)) - (_E8942389432_))))) - (_E8942389432_))))) - (_E8942289446_)))) + (gx#core-cons '%#begin-foreign _body89706_) + (gx#stx-source _stx89682_)) + (_E8968589694_))))) + (_E8968589694_))))) + (_E8968489708_)))) (define gx#core-expand-begin-module% - (lambda (_stx89418_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx89418_))) + (lambda (_stx89680_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx89680_))) (define gx#core-expand-begin-annotation% - (lambda (_stx89364_) - (let* ((_e8936589378_ _stx89364_) - (_E8936789382_ + (lambda (_stx89626_) + (let* ((_e8962789640_ _stx89626_) + (_E8962989644_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8936589378_))) - (_E8936689414_ + _e8962789640_))) + (_E8962889676_ (lambda () - (if (gx#stx-pair? _e8936589378_) - (let ((_e8936889386_ (gx#syntax-e _e8936589378_))) - (let ((_hd8936989389_ (##car _e8936889386_)) - (_tl8937089391_ (##cdr _e8936889386_))) - (if (gx#stx-pair? _tl8937089391_) - (let ((_e8937189394_ - (gx#syntax-e _tl8937089391_))) - (let ((_hd8937289397_ (##car _e8937189394_)) - (_tl8937389399_ (##cdr _e8937189394_))) - (let ((_ann89402_ _hd8937289397_)) - (if (gx#stx-pair? _tl8937389399_) - (let ((_e8937489404_ - (gx#syntax-e _tl8937389399_))) - (let ((_hd8937589407_ - (##car _e8937489404_)) - (_tl8937689409_ - (##cdr _e8937489404_))) - (let ((_expr89412_ _hd8937589407_)) - (if (gx#stx-null? _tl8937689409_) + (if (gx#stx-pair? _e8962789640_) + (let ((_e8963089648_ (gx#syntax-e _e8962789640_))) + (let ((_hd8963189651_ (##car _e8963089648_)) + (_tl8963289653_ (##cdr _e8963089648_))) + (if (gx#stx-pair? _tl8963289653_) + (let ((_e8963389656_ + (gx#syntax-e _tl8963289653_))) + (let ((_hd8963489659_ (##car _e8963389656_)) + (_tl8963589661_ (##cdr _e8963389656_))) + (let ((_ann89664_ _hd8963489659_)) + (if (gx#stx-pair? _tl8963589661_) + (let ((_e8963689666_ + (gx#syntax-e _tl8963589661_))) + (let ((_hd8963789669_ + (##car _e8963689666_)) + (_tl8963889671_ + (##cdr _e8963689666_))) + (let ((_expr89674_ _hd8963789669_)) + (if (gx#stx-null? _tl8963889671_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann89402_ + (cons _ann89664_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr89412_) '()))) - (gx#stx-source _stx89364_)) - (_E8936789382_)) + (cons (gx#core-expand-expression _expr89674_) '()))) + (gx#stx-source _stx89626_)) + (_E8962989644_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8936789382_))))) - (_E8936789382_))))) - (_E8936789382_)))) - (_E8936789382_))))) - (_E8936689414_)))) + (_E8962989644_))))) + (_E8962989644_))))) + (_E8962989644_)))) + (_E8962989644_))))) + (_E8962889676_)))) (define gx#core-expand-local-block - (lambda (_stx89088_ _body89089_) - (letrec ((_expand-special89091_ - (lambda (_hd89359_ _K89360_ _rest89361_ _r89362_) - (_K89360_ + (lambda (_stx89350_ _body89351_) + (letrec ((_expand-special89353_ + (lambda (_hd89621_ _K89622_ _rest89623_ _r89624_) + (_K89622_ '() - (cons (_expand-internal89092_ _hd89359_ _rest89361_) - _r89362_)))) - (_expand-internal89092_ - (lambda (_hd89355_ _rest89356_) + (cons (_expand-internal89354_ _hd89621_ _rest89623_) + _r89624_)))) + (_expand-internal89354_ + (lambda (_hd89617_ _rest89618_) (call-with-parameters (lambda () - (_wrap-internal89094_ + (_wrap-internal89356_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd89355_ _rest89356_)) - (gx#stx-source _stx89088_)) - _expand-internal-special89093_ + (cons '%#begin (cons _hd89617_ _rest89618_)) + (gx#stx-source _stx89350_)) + _expand-internal-special89355_ '#f))) gx#current-expander-context - (let ((__obj89714 + (let ((__obj89976 (##structure gx#local-context::t '#f @@ -386,717 +386,717 @@ '#f '#f '#f))) - (gx#local-context:::init! __obj89714) - __obj89714)))) - (_expand-internal-special89093_ - (lambda (_hd89250_ _K89251_ _rest89252_ _r89253_) - (let* ((_e8925489279_ _hd89250_) - (_E8927489283_ + (gx#local-context:::init! __obj89976) + __obj89976)))) + (_expand-internal-special89355_ + (lambda (_hd89512_ _K89513_ _rest89514_ _r89515_) + (let* ((_e8951689541_ _hd89512_) + (_E8953689545_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8925489279_))) - (_E8927089295_ + _e8951689541_))) + (_E8953289557_ (lambda () - (if (gx#stx-pair? _e8925489279_) - (let ((_e8927589287_ - (gx#syntax-e _e8925489279_))) - (let ((_hd8927689290_ - (##car _e8927589287_)) - (_tl8927789292_ - (##cdr _e8927589287_))) - (if (and (gx#identifier? _hd8927689290_) + (if (gx#stx-pair? _e8951689541_) + (let ((_e8953789549_ + (gx#syntax-e _e8951689541_))) + (let ((_hd8953889552_ + (##car _e8953789549_)) + (_tl8953989554_ + (##cdr _e8953789549_))) + (if (and (gx#identifier? _hd8953889552_) (gx#core-identifier=? - _hd8927689290_ + _hd8953889552_ '%#declare)) (if '#t - (_K89251_ - _rest89252_ + (_K89513_ + _rest89514_ (cons (gx#core-expand-declare% - _hd89250_) - _r89253_)) - (_E8927489283_)) - (_E8927489283_)))) - (_E8927489283_)))) - (_E8926689307_ + _hd89512_) + _r89515_)) + (_E8953689545_)) + (_E8953689545_)))) + (_E8953689545_)))) + (_E8952889569_ (lambda () - (if (gx#stx-pair? _e8925489279_) - (let ((_e8927189299_ - (gx#syntax-e _e8925489279_))) - (let ((_hd8927289302_ - (##car _e8927189299_)) - (_tl8927389304_ - (##cdr _e8927189299_))) - (if (and (gx#identifier? _hd8927289302_) + (if (gx#stx-pair? _e8951689541_) + (let ((_e8953389561_ + (gx#syntax-e _e8951689541_))) + (let ((_hd8953489564_ + (##car _e8953389561_)) + (_tl8953589566_ + (##cdr _e8953389561_))) + (if (and (gx#identifier? _hd8953489564_) (gx#core-identifier=? - _hd8927289302_ + _hd8953489564_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd89250_) - (_K89251_ - _rest89252_ - _r89253_)) - (_E8927089295_)) - (_E8927089295_)))) - (_E8927089295_)))) - (_E8925689319_ + _hd89512_) + (_K89513_ + _rest89514_ + _r89515_)) + (_E8953289557_)) + (_E8953289557_)))) + (_E8953289557_)))) + (_E8951889581_ (lambda () - (if (gx#stx-pair? _e8925489279_) - (let ((_e8926789311_ - (gx#syntax-e _e8925489279_))) - (let ((_hd8926889314_ - (##car _e8926789311_)) - (_tl8926989316_ - (##cdr _e8926789311_))) - (if (and (gx#identifier? _hd8926889314_) + (if (gx#stx-pair? _e8951689541_) + (let ((_e8952989573_ + (gx#syntax-e _e8951689541_))) + (let ((_hd8953089576_ + (##car _e8952989573_)) + (_tl8953189578_ + (##cdr _e8952989573_))) + (if (and (gx#identifier? _hd8953089576_) (gx#core-identifier=? - _hd8926889314_ + _hd8953089576_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd89250_) - (_K89251_ - _rest89252_ - _r89253_)) - (_E8926689307_)) - (_E8926689307_)))) - (_E8926689307_)))) - (_E8925589351_ + _hd89512_) + (_K89513_ + _rest89514_ + _r89515_)) + (_E8952889569_)) + (_E8952889569_)))) + (_E8952889569_)))) + (_E8951789613_ (lambda () - (if (gx#stx-pair? _e8925489279_) - (let ((_e8925789323_ - (gx#syntax-e _e8925489279_))) - (let ((_hd8925889326_ - (##car _e8925789323_)) - (_tl8925989328_ - (##cdr _e8925789323_))) - (if (and (gx#identifier? _hd8925889326_) + (if (gx#stx-pair? _e8951689541_) + (let ((_e8951989585_ + (gx#syntax-e _e8951689541_))) + (let ((_hd8952089588_ + (##car _e8951989585_)) + (_tl8952189590_ + (##cdr _e8951989585_))) + (if (and (gx#identifier? _hd8952089588_) (gx#core-identifier=? - _hd8925889326_ + _hd8952089588_ '%#define-values)) - (if (gx#stx-pair? _tl8925989328_) - (let ((_e8926089331_ + (if (gx#stx-pair? _tl8952189590_) + (let ((_e8952289593_ (gx#syntax-e - _tl8925989328_))) - (let ((_hd8926189334_ - (##car _e8926089331_)) - (_tl8926289336_ - (##cdr _e8926089331_))) - (let ((_hd-bind89339_ - _hd8926189334_)) + _tl8952189590_))) + (let ((_hd8952389596_ + (##car _e8952289593_)) + (_tl8952489598_ + (##cdr _e8952289593_))) + (let ((_hd-bind89601_ + _hd8952389596_)) (if (gx#stx-pair? - _tl8926289336_) - (let ((_e8926389341_ + _tl8952489598_) + (let ((_e8952589603_ (gx#syntax-e - _tl8926289336_))) - (let ((_hd8926489344_ + _tl8952489598_))) + (let ((_hd8952689606_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e8926389341_)) - (_tl8926589346_ (##cdr _e8926389341_))) - (let ((_expr89349_ _hd8926489344_)) - (if (gx#stx-null? _tl8926589346_) - (if (gx#core-bind-values? _hd-bind89339_) + (##car _e8952589603_)) + (_tl8952789608_ (##cdr _e8952589603_))) + (let ((_expr89611_ _hd8952689606_)) + (if (gx#stx-null? _tl8952789608_) + (if (gx#core-bind-values? _hd-bind89601_) (begin - (gx#core-bind-values!__0 _hd-bind89339_) - (_K89251_ - _rest89252_ - (cons _hd89250_ _r89253_))) - (_E8925689319_)) - (_E8925689319_))))) - (_E8925689319_))))) + (gx#core-bind-values!__0 _hd-bind89601_) + (_K89513_ + _rest89514_ + (cons _hd89512_ _r89515_))) + (_E8951889581_)) + (_E8951889581_))))) + (_E8951889581_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8925689319_)) - (_E8925689319_)))) - (_E8925689319_))))) - (_E8925589351_)))) - (_wrap-internal89094_ - (lambda (_rbody89096_) - (let _lp89098_ ((_rest89100_ _rbody89096_) - (_decls89101_ '()) - (_bind89102_ '()) - (_body89103_ '())) - (let* ((_e8910489111_ _rest89100_) - (_E8910689160_ + (_E8951889581_)) + (_E8951889581_)))) + (_E8951889581_))))) + (_E8951789613_)))) + (_wrap-internal89356_ + (lambda (_rbody89358_) + (let _lp89360_ ((_rest89362_ _rbody89358_) + (_decls89363_ '()) + (_bind89364_ '()) + (_body89365_ '())) + (let* ((_e8936689373_ _rest89362_) + (_E8936889422_ (lambda () - (let* ((_body89155_ - (let* ((_body8911489124_ _body89103_) - (_else8911789132_ + (let* ((_body89417_ + (let* ((_body8937689386_ _body89365_) + (_else8937989394_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body89103_) + _body89365_) (gx#stx-source - _stx89088_))))) - (let ((_K8912289152_ + _stx89350_))))) + (let ((_K8938489414_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _stx89088_))) - (_K8911989138_ - (lambda (_expr89136_) - _expr89136_))) - (let ((_try-match8911689148_ + _stx89350_))) + (_K8938189400_ + (lambda (_expr89398_) + _expr89398_))) + (let ((_try-match8937889410_ (lambda () - (if (##pair? _body8911489124_) - (let ((_tl8912189143_ - (##cdr _body8911489124_)) - (_hd8912089141_ - (##car _body8911489124_))) - (if (##null? _tl8912189143_) - (let ((_expr89146_ + (if (##pair? _body8937689386_) + (let ((_tl8938389405_ + (##cdr _body8937689386_)) + (_hd8938289403_ + (##car _body8937689386_))) + (if (##null? _tl8938389405_) + (let ((_expr89408_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd8912089141_)) - (_K8911989138_ _expr89146_)) - (_else8911789132_))) - (_else8911789132_))))) + _hd8938289403_)) + (_K8938189400_ _expr89408_)) + (_else8937989394_))) + (_else8937989394_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body8911489124_) - (_K8912289152_) - (_try-match8911689148_)))))) - (_body89157_ - (if (null? _bind89102_) - _body89155_ + (if (##null? _body8937689386_) + (_K8938489414_) + (_try-match8937889410_)))))) + (_body89419_ + (if (null? _bind89364_) + _body89417_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind89102_ - (cons _body89155_ + (cons _bind89364_ + (cons _body89417_ '()))) - (gx#stx-source _stx89088_))))) - (if (null? _decls89101_) - _body89157_ + (gx#stx-source _stx89350_))))) + (if (null? _decls89363_) + _body89419_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls89101_ - (cons _body89157_ '()))) - (gx#stx-source _stx89088_)))))) - (_E8910589246_ + (cons _decls89363_ + (cons _body89419_ '()))) + (gx#stx-source _stx89350_)))))) + (_E8936789508_ (lambda () - (if (gx#stx-pair? _e8910489111_) - (let ((_e8910789164_ - (gx#syntax-e _e8910489111_))) - (let ((_hd8910889167_ - (##car _e8910789164_)) - (_tl8910989169_ - (##cdr _e8910789164_))) - (let* ((_hd89172_ _hd8910889167_) - (_rest89174_ _tl8910989169_)) + (if (gx#stx-pair? _e8936689373_) + (let ((_e8936989426_ + (gx#syntax-e _e8936689373_))) + (let ((_hd8937089429_ + (##car _e8936989426_)) + (_tl8937189431_ + (##cdr _e8936989426_))) + (let* ((_hd89434_ _hd8937089429_) + (_rest89436_ _tl8937189431_)) (if '#t - (let* ((_e8917589192_ _hd89172_) - (_E8918789196_ + (let* ((_e8943789454_ _hd89434_) + (_E8944989458_ (lambda () - (if (null? _bind89102_) - (_lp89098_ - _rest89174_ - _decls89101_ - _bind89102_ - (cons _hd89172_ + (if (null? _bind89364_) + (_lp89360_ + _rest89436_ + _decls89363_ + _bind89364_ + (cons _hd89434_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body89103_)) - (_lp89098_ - _rest89174_ - _decls89101_ - (cons (cons '#f (cons _hd89172_ '())) _bind89102_) - _body89103_)))) + _body89365_)) + (_lp89360_ + _rest89436_ + _decls89363_ + (cons (cons '#f (cons _hd89434_ '())) _bind89364_) + _body89365_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8917789210_ + (_E8943989472_ (lambda () (if (gx#stx-pair? - _e8917589192_) - (let ((_e8918889200_ + _e8943789454_) + (let ((_e8945089462_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8917589192_))) - (let ((_hd8918989203_ (##car _e8918889200_)) - (_tl8919089205_ (##cdr _e8918889200_))) - (if (and (gx#identifier? _hd8918989203_) + (gx#syntax-e _e8943789454_))) + (let ((_hd8945189465_ (##car _e8945089462_)) + (_tl8945289467_ (##cdr _e8945089462_))) + (if (and (gx#identifier? _hd8945189465_) (gx#core-identifier=? - _hd8918989203_ + _hd8945189465_ '%#declare)) - (let ((_xdecls89208_ _tl8919089205_)) + (let ((_xdecls89470_ _tl8945289467_)) (if '#t - (_lp89098_ - _rest89174_ + (_lp89360_ + _rest89436_ (gx#stx-foldr cons - _decls89101_ - _xdecls89208_) - _bind89102_ - _body89103_) - (_E8918789196_))) - (_E8918789196_)))) - (_E8918789196_)))) + _decls89363_ + _xdecls89470_) + _bind89364_ + _body89365_) + (_E8944989458_))) + (_E8944989458_)))) + (_E8944989458_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8917689242_ + (_E8943889504_ (lambda () (if (gx#stx-pair? - _e8917589192_) - (let ((_e8917889214_ + _e8943789454_) + (let ((_e8944089476_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8917589192_))) - (let ((_hd8917989217_ (##car _e8917889214_)) - (_tl8918089219_ (##cdr _e8917889214_))) - (if (and (gx#identifier? _hd8917989217_) + (gx#syntax-e _e8943789454_))) + (let ((_hd8944189479_ (##car _e8944089476_)) + (_tl8944289481_ (##cdr _e8944089476_))) + (if (and (gx#identifier? _hd8944189479_) (gx#core-identifier=? - _hd8917989217_ + _hd8944189479_ '%#define-values)) - (if (gx#stx-pair? _tl8918089219_) - (let ((_e8918189222_ - (gx#syntax-e _tl8918089219_))) - (let ((_hd8918289225_ (##car _e8918189222_)) - (_tl8918389227_ (##cdr _e8918189222_))) - (let ((_hd-bind89230_ _hd8918289225_)) - (if (gx#stx-pair? _tl8918389227_) - (let ((_e8918489232_ - (gx#syntax-e _tl8918389227_))) - (let ((_hd8918589235_ - (##car _e8918489232_)) - (_tl8918689237_ - (##cdr _e8918489232_))) - (let ((_expr89240_ - _hd8918589235_)) + (if (gx#stx-pair? _tl8944289481_) + (let ((_e8944389484_ + (gx#syntax-e _tl8944289481_))) + (let ((_hd8944489487_ (##car _e8944389484_)) + (_tl8944589489_ (##cdr _e8944389484_))) + (let ((_hd-bind89492_ _hd8944489487_)) + (if (gx#stx-pair? _tl8944589489_) + (let ((_e8944689494_ + (gx#syntax-e _tl8944589489_))) + (let ((_hd8944789497_ + (##car _e8944689494_)) + (_tl8944889499_ + (##cdr _e8944689494_))) + (let ((_expr89502_ + _hd8944789497_)) (if (gx#stx-null? - _tl8918689237_) + _tl8944889499_) (if '#t - (_lp89098_ - _rest89174_ - _decls89101_ + (_lp89360_ + _rest89436_ + _decls89363_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind89230_) - (cons (gx#core-expand-expression _expr89240_) + _hd-bind89492_) + (cons (gx#core-expand-expression _expr89502_) '())) - _bind89102_) - _body89103_) - (_E8917789210_)) + _bind89364_) + _body89365_) + (_E8943989472_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8917789210_))))) - (_E8917789210_))))) - (_E8917789210_)) - (_E8917789210_)))) - (_E8917789210_))))) + (_E8943989472_))))) + (_E8943989472_))))) + (_E8943989472_)) + (_E8943989472_)))) + (_E8943989472_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8917689242_)) - (_E8910689160_))))) - (_E8910689160_))))) - (_E8910589246_)))))) + (_E8943889504_)) + (_E8936889422_))))) + (_E8936889422_))))) + (_E8936789508_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body89089_) - (gx#stx-source _stx89088_)) - _expand-special89091_)))) + (cons '%#begin _body89351_) + (gx#stx-source _stx89350_)) + _expand-special89353_)))) (define gx#core-expand-declare% - (lambda (_stx89026_) - (let* ((_e8902789034_ _stx89026_) - (_E8902989038_ + (lambda (_stx89288_) + (let* ((_e8928989296_ _stx89288_) + (_E8929189300_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8902789034_))) - (_E8902889084_ + _e8928989296_))) + (_E8929089346_ (lambda () - (if (gx#stx-pair? _e8902789034_) - (let ((_e8903089042_ (gx#syntax-e _e8902789034_))) - (let ((_hd8903189045_ (##car _e8903089042_)) - (_tl8903289047_ (##cdr _e8903089042_))) - (let ((_body89050_ _tl8903289047_)) - (if (gx#stx-list? _body89050_) + (if (gx#stx-pair? _e8928989296_) + (let ((_e8929289304_ (gx#syntax-e _e8928989296_))) + (let ((_hd8929389307_ (##car _e8929289304_)) + (_tl8929489309_ (##cdr _e8929289304_))) + (let ((_body89312_ _tl8929489309_)) + (if (gx#stx-list? _body89312_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl89052_) - (let* ((_e8905389060_ _decl89052_) - (_E8905589064_ + (lambda (_decl89314_) + (let* ((_e8931589322_ _decl89314_) + (_E8931789326_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8905389060_))) - (_E8905489080_ + _e8931589322_))) + (_E8931689342_ (lambda () - (if (gx#stx-pair? _e8905389060_) - (let ((_e8905689068_ + (if (gx#stx-pair? _e8931589322_) + (let ((_e8931889330_ (gx#syntax-e - _e8905389060_))) - (let ((_hd8905789071_ - (##car _e8905689068_)) - (_tl8905889073_ - (##cdr _e8905689068_))) - (let* ((_head89076_ - _hd8905789071_) - (_args89078_ - _tl8905889073_)) + _e8931589322_))) + (let ((_hd8931989333_ + (##car _e8931889330_)) + (_tl8932089335_ + (##cdr _e8931889330_))) + (let* ((_head89338_ + _hd8931989333_) + (_args89340_ + _tl8932089335_)) (if (gx#stx-list? - _args89078_) + _args89340_) (gx#stx-map1 gx#core-quote-syntax - _decl89052_) - (_E8905589064_))))) - (_E8905589064_))))) - (_E8905489080_))) - _body89050_)) - (gx#stx-source _stx89026_)) - (_E8902989038_))))) - (_E8902989038_))))) - (_E8902889084_)))) + _decl89314_) + (_E8931789326_))))) + (_E8931789326_))))) + (_E8931689342_))) + _body89312_)) + (gx#stx-source _stx89288_)) + (_E8929189300_))))) + (_E8929189300_))))) + (_E8929089346_)))) (define gx#core-expand-extern% - (lambda (_stx88930_) - (let* ((_e8893188938_ _stx88930_) - (_E8893388942_ + (lambda (_stx89192_) + (let* ((_e8919389200_ _stx89192_) + (_E8919589204_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8893188938_))) - (_E8893289022_ + _e8919389200_))) + (_E8919489284_ (lambda () - (if (gx#stx-pair? _e8893188938_) - (let ((_e8893488946_ (gx#syntax-e _e8893188938_))) - (let ((_hd8893588949_ (##car _e8893488946_)) - (_tl8893688951_ (##cdr _e8893488946_))) - (let ((_body88954_ _tl8893688951_)) + (if (gx#stx-pair? _e8919389200_) + (let ((_e8919689208_ (gx#syntax-e _e8919389200_))) + (let ((_hd8919789211_ (##car _e8919689208_)) + (_tl8919889213_ (##cdr _e8919689208_))) + (let ((_body89216_ _tl8919889213_)) (if '#t - (let _lp88956_ ((_rest88958_ _body88954_) - (_r88959_ '())) - (let* ((_e8896088974_ _rest88958_) - (_E8897288978_ + (let _lp89218_ ((_rest89220_ _body89216_) + (_r89221_ '())) + (let* ((_e8922289236_ _rest89220_) + (_E8923489240_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _stx88930_))) - (_E8896288982_ + _stx89192_))) + (_E8922489244_ (lambda () - (if (gx#stx-null? _e8896088974_) + (if (gx#stx-null? _e8922289236_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r88959_)) + (reverse _r89221_)) (gx#stx-source - _stx88930_)) - (_E8897288978_)) - (_E8897288978_)))) - (_E8896189018_ + _stx89192_)) + (_E8923489240_)) + (_E8923489240_)))) + (_E8922389280_ (lambda () - (if (gx#stx-pair? _e8896088974_) - (let ((_e8896388986_ + (if (gx#stx-pair? _e8922289236_) + (let ((_e8922589248_ (gx#syntax-e - _e8896088974_))) - (let ((_hd8896488989_ - (##car _e8896388986_)) - (_tl8896588991_ - (##cdr _e8896388986_))) + _e8922289236_))) + (let ((_hd8922689251_ + (##car _e8922589248_)) + (_tl8922789253_ + (##cdr _e8922589248_))) (if (gx#stx-pair? - _hd8896488989_) - (let ((_e8896688994_ + _hd8922689251_) + (let ((_e8922889256_ (gx#syntax-e - _hd8896488989_))) - (let ((_hd8896788997_ + _hd8922689251_))) + (let ((_hd8922989259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e8896688994_)) - (_tl8896888999_ (##cdr _e8896688994_))) - (let ((_id89002_ _hd8896788997_)) - (if (gx#stx-pair? _tl8896888999_) - (let ((_e8896989004_ (gx#syntax-e _tl8896888999_))) - (let ((_hd8897089007_ (##car _e8896989004_)) - (_tl8897189009_ (##cdr _e8896989004_))) - (let ((_eid89012_ _hd8897089007_)) - (if (gx#stx-null? _tl8897189009_) - (let ((_rest89014_ _tl8896588991_)) - (if (and (gx#identifier? _id89002_) - (gx#identifier? _eid89012_)) - (let ((_eid89016_ - (gx#stx-e _eid89012_))) + (##car _e8922889256_)) + (_tl8923089261_ (##cdr _e8922889256_))) + (let ((_id89264_ _hd8922989259_)) + (if (gx#stx-pair? _tl8923089261_) + (let ((_e8923189266_ (gx#syntax-e _tl8923089261_))) + (let ((_hd8923289269_ (##car _e8923189266_)) + (_tl8923389271_ (##cdr _e8923189266_))) + (let ((_eid89274_ _hd8923289269_)) + (if (gx#stx-null? _tl8923389271_) + (let ((_rest89276_ _tl8922789253_)) + (if (and (gx#identifier? _id89264_) + (gx#identifier? _eid89274_)) + (let ((_eid89278_ + (gx#stx-e _eid89274_))) (gx#core-bind-extern!__0 - _id89002_ - _eid89016_) - (_lp88956_ - _rest89014_ + _id89264_ + _eid89278_) + (_lp89218_ + _rest89276_ (cons (cons (gx#core-quote-syntax__0 - _id89002_) - (cons _eid89016_ '())) - _r88959_))) - (_E8896288982_))) - (_E8896288982_))))) - (_E8896288982_))))) - (_E8896288982_)))) + _id89264_) + (cons _eid89278_ '())) + _r89221_))) + (_E8922489244_))) + (_E8922489244_))))) + (_E8922489244_))))) + (_E8922489244_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8896288982_))))) - (_E8896189018_))) - (_E8893388942_))))) - (_E8893388942_))))) - (_E8893289022_)))) + (_E8922489244_))))) + (_E8922389280_))) + (_E8919589204_))))) + (_E8919589204_))))) + (_E8919489284_)))) (define gx#core-expand-define-values% - (lambda (_stx88876_) - (let* ((_e8887788890_ _stx88876_) - (_E8887988894_ + (lambda (_stx89138_) + (let* ((_e8913989152_ _stx89138_) + (_E8914189156_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8887788890_))) - (_E8887888926_ + _e8913989152_))) + (_E8914089188_ (lambda () - (if (gx#stx-pair? _e8887788890_) - (let ((_e8888088898_ (gx#syntax-e _e8887788890_))) - (let ((_hd8888188901_ (##car _e8888088898_)) - (_tl8888288903_ (##cdr _e8888088898_))) - (if (gx#stx-pair? _tl8888288903_) - (let ((_e8888388906_ - (gx#syntax-e _tl8888288903_))) - (let ((_hd8888488909_ (##car _e8888388906_)) - (_tl8888588911_ (##cdr _e8888388906_))) - (let ((_hd88914_ _hd8888488909_)) - (if (gx#stx-pair? _tl8888588911_) - (let ((_e8888688916_ - (gx#syntax-e _tl8888588911_))) - (let ((_hd8888788919_ - (##car _e8888688916_)) - (_tl8888888921_ - (##cdr _e8888688916_))) - (let ((_expr88924_ _hd8888788919_)) - (if (gx#stx-null? _tl8888888921_) + (if (gx#stx-pair? _e8913989152_) + (let ((_e8914289160_ (gx#syntax-e _e8913989152_))) + (let ((_hd8914389163_ (##car _e8914289160_)) + (_tl8914489165_ (##cdr _e8914289160_))) + (if (gx#stx-pair? _tl8914489165_) + (let ((_e8914589168_ + (gx#syntax-e _tl8914489165_))) + (let ((_hd8914689171_ (##car _e8914589168_)) + (_tl8914789173_ (##cdr _e8914589168_))) + (let ((_hd89176_ _hd8914689171_)) + (if (gx#stx-pair? _tl8914789173_) + (let ((_e8914889178_ + (gx#syntax-e _tl8914789173_))) + (let ((_hd8914989181_ + (##car _e8914889178_)) + (_tl8915089183_ + (##cdr _e8914889178_))) + (let ((_expr89186_ _hd8914989181_)) + (if (gx#stx-null? _tl8915089183_) (if (gx#core-bind-values? - _hd88914_) + _hd89176_) (begin (gx#core-bind-values!__0 - _hd88914_) + _hd89176_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd88914_) - (cons (gx#core-expand-expression _expr88924_) + _hd89176_) + (cons (gx#core-expand-expression _expr89186_) '()))) - (gx#stx-source _stx88876_))) - (_E8887988894_)) + (gx#stx-source _stx89138_))) + (_E8914189156_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8887988894_))))) - (_E8887988894_))))) - (_E8887988894_)))) - (_E8887988894_))))) - (_E8887888926_)))) + (_E8914189156_))))) + (_E8914189156_))))) + (_E8914189156_)))) + (_E8914189156_))))) + (_E8914089188_)))) (define gx#core-expand-define-runtime% - (lambda (_stx88820_) - (let* ((_e8882188834_ _stx88820_) - (_E8882388838_ + (lambda (_stx89082_) + (let* ((_e8908389096_ _stx89082_) + (_E8908589100_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8882188834_))) - (_E8882288872_ + _e8908389096_))) + (_E8908489134_ (lambda () - (if (gx#stx-pair? _e8882188834_) - (let ((_e8882488842_ (gx#syntax-e _e8882188834_))) - (let ((_hd8882588845_ (##car _e8882488842_)) - (_tl8882688847_ (##cdr _e8882488842_))) - (if (gx#stx-pair? _tl8882688847_) - (let ((_e8882788850_ - (gx#syntax-e _tl8882688847_))) - (let ((_hd8882888853_ (##car _e8882788850_)) - (_tl8882988855_ (##cdr _e8882788850_))) - (let ((_id88858_ _hd8882888853_)) - (if (gx#stx-pair? _tl8882988855_) - (let ((_e8883088860_ - (gx#syntax-e _tl8882988855_))) - (let ((_hd8883188863_ - (##car _e8883088860_)) - (_tl8883288865_ - (##cdr _e8883088860_))) - (let ((_binding-id88868_ - _hd8883188863_)) - (if (gx#stx-null? _tl8883288865_) + (if (gx#stx-pair? _e8908389096_) + (let ((_e8908689104_ (gx#syntax-e _e8908389096_))) + (let ((_hd8908789107_ (##car _e8908689104_)) + (_tl8908889109_ (##cdr _e8908689104_))) + (if (gx#stx-pair? _tl8908889109_) + (let ((_e8908989112_ + (gx#syntax-e _tl8908889109_))) + (let ((_hd8909089115_ (##car _e8908989112_)) + (_tl8909189117_ (##cdr _e8908989112_))) + (let ((_id89120_ _hd8909089115_)) + (if (gx#stx-pair? _tl8909189117_) + (let ((_e8909289122_ + (gx#syntax-e _tl8909189117_))) + (let ((_hd8909389125_ + (##car _e8909289122_)) + (_tl8909489127_ + (##cdr _e8909289122_))) + (let ((_binding-id89130_ + _hd8909389125_)) + (if (gx#stx-null? _tl8909489127_) (if (and (gx#identifier? - _id88858_) + _id89120_) (gx#identifier? - _binding-id88868_)) - (let ((_eid88870_ + _binding-id89130_)) + (let ((_eid89132_ (gx#stx-e - _binding-id88868_))) + _binding-id89130_))) (gx#core-bind-runtime-reference!__0 - _id88858_ - _eid88870_) + _id89120_ + _eid89132_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id88858_) - (cons _eid88870_ '()))))) - (_E8882388838_)) + _id89120_) + (cons _eid89132_ '()))))) + (_E8908589100_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8882388838_))))) - (_E8882388838_))))) - (_E8882388838_)))) - (_E8882388838_))))) - (_E8882288872_)))) + (_E8908589100_))))) + (_E8908589100_))))) + (_E8908589100_)))) + (_E8908589100_))))) + (_E8908489134_)))) (define gx#core-expand-define-syntax% - (lambda (_stx88763_) - (let* ((_e8876488777_ _stx88763_) - (_E8876688781_ + (lambda (_stx89025_) + (let* ((_e8902689039_ _stx89025_) + (_E8902889043_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8876488777_))) - (_E8876588816_ + _e8902689039_))) + (_E8902789078_ (lambda () - (if (gx#stx-pair? _e8876488777_) - (let ((_e8876788785_ (gx#syntax-e _e8876488777_))) - (let ((_hd8876888788_ (##car _e8876788785_)) - (_tl8876988790_ (##cdr _e8876788785_))) - (if (gx#stx-pair? _tl8876988790_) - (let ((_e8877088793_ - (gx#syntax-e _tl8876988790_))) - (let ((_hd8877188796_ (##car _e8877088793_)) - (_tl8877288798_ (##cdr _e8877088793_))) - (let ((_id88801_ _hd8877188796_)) - (if (gx#stx-pair? _tl8877288798_) - (let ((_e8877388803_ - (gx#syntax-e _tl8877288798_))) - (let ((_hd8877488806_ - (##car _e8877388803_)) - (_tl8877588808_ - (##cdr _e8877388803_))) - (let ((_expr88811_ _hd8877488806_)) - (if (gx#stx-null? _tl8877588808_) + (if (gx#stx-pair? _e8902689039_) + (let ((_e8902989047_ (gx#syntax-e _e8902689039_))) + (let ((_hd8903089050_ (##car _e8902989047_)) + (_tl8903189052_ (##cdr _e8902989047_))) + (if (gx#stx-pair? _tl8903189052_) + (let ((_e8903289055_ + (gx#syntax-e _tl8903189052_))) + (let ((_hd8903389058_ (##car _e8903289055_)) + (_tl8903489060_ (##cdr _e8903289055_))) + (let ((_id89063_ _hd8903389058_)) + (if (gx#stx-pair? _tl8903489060_) + (let ((_e8903589065_ + (gx#syntax-e _tl8903489060_))) + (let ((_hd8903689068_ + (##car _e8903589065_)) + (_tl8903789070_ + (##cdr _e8903589065_))) + (let ((_expr89073_ _hd8903689068_)) + (if (gx#stx-null? _tl8903789070_) (if (gx#identifier? - _id88801_) - (let ((_g89722_ + _id89063_) + (let ((_g89984_ (gx#core-expand-expression+1 - _expr88811_))) + _expr89073_))) (begin - (let ((_g89723_ + (let ((_g89985_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g89722_) - (##vector-length _g89722_) + (if (##values? _g89984_) + (##vector-length _g89984_) 1))) - (if (not (##fx= _g89723_ 2)) - (error "Context expects 2 values" _g89723_))) - (let ((_e-stx88813_ (##vector-ref _g89722_ 0)) - (_e88814_ (##vector-ref _g89722_ 1))) + (if (not (##fx= _g89985_ 2)) + (error "Context expects 2 values" _g89985_))) + (let ((_e-stx89075_ (##vector-ref _g89984_ 0)) + (_e89076_ (##vector-ref _g89984_ 1))) (begin - (gx#core-bind-syntax!__0 _id88801_ _e88814_) + (gx#core-bind-syntax!__0 _id89063_ _e89076_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id88801_) - (cons _e-stx88813_ '()))) - (gx#stx-source _stx88763_)))))) - (_E8876688781_)) + (cons (gx#core-quote-syntax__0 _id89063_) + (cons _e-stx89075_ '()))) + (gx#stx-source _stx89025_)))))) + (_E8902889043_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8876688781_))))) - (_E8876688781_))))) - (_E8876688781_)))) - (_E8876688781_))))) - (_E8876588816_)))) + (_E8902889043_))))) + (_E8902889043_))))) + (_E8902889043_)))) + (_E8902889043_))))) + (_E8902789078_)))) (define gx#core-expand-define-alias% - (lambda (_stx88707_) - (let* ((_e8870888721_ _stx88707_) - (_E8871088725_ + (lambda (_stx88969_) + (let* ((_e8897088983_ _stx88969_) + (_E8897288987_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8870888721_))) - (_E8870988759_ + _e8897088983_))) + (_E8897189021_ (lambda () - (if (gx#stx-pair? _e8870888721_) - (let ((_e8871188729_ (gx#syntax-e _e8870888721_))) - (let ((_hd8871288732_ (##car _e8871188729_)) - (_tl8871388734_ (##cdr _e8871188729_))) - (if (gx#stx-pair? _tl8871388734_) - (let ((_e8871488737_ - (gx#syntax-e _tl8871388734_))) - (let ((_hd8871588740_ (##car _e8871488737_)) - (_tl8871688742_ (##cdr _e8871488737_))) - (let ((_id88745_ _hd8871588740_)) - (if (gx#stx-pair? _tl8871688742_) - (let ((_e8871788747_ - (gx#syntax-e _tl8871688742_))) - (let ((_hd8871888750_ - (##car _e8871788747_)) - (_tl8871988752_ - (##cdr _e8871788747_))) - (let ((_alias-id88755_ - _hd8871888750_)) - (if (gx#stx-null? _tl8871988752_) + (if (gx#stx-pair? _e8897088983_) + (let ((_e8897388991_ (gx#syntax-e _e8897088983_))) + (let ((_hd8897488994_ (##car _e8897388991_)) + (_tl8897588996_ (##cdr _e8897388991_))) + (if (gx#stx-pair? _tl8897588996_) + (let ((_e8897688999_ + (gx#syntax-e _tl8897588996_))) + (let ((_hd8897789002_ (##car _e8897688999_)) + (_tl8897889004_ (##cdr _e8897688999_))) + (let ((_id89007_ _hd8897789002_)) + (if (gx#stx-pair? _tl8897889004_) + (let ((_e8897989009_ + (gx#syntax-e _tl8897889004_))) + (let ((_hd8898089012_ + (##car _e8897989009_)) + (_tl8898189014_ + (##cdr _e8897989009_))) + (let ((_alias-id89017_ + _hd8898089012_)) + (if (gx#stx-null? _tl8898189014_) (if (and (gx#identifier? - _id88745_) + _id89007_) (gx#identifier? - _alias-id88755_)) - (let ((_alias-id88757_ + _alias-id89017_)) + (let ((_alias-id89019_ (gx#core-quote-syntax__0 - _alias-id88755_))) + _alias-id89017_))) (gx#core-bind-alias!__0 - _id88745_ - _alias-id88757_) + _id89007_ + _alias-id89019_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id88745_) - (cons _alias-id88757_ '()))))) - (_E8871088725_)) + _id89007_) + (cons _alias-id89019_ '()))))) + (_E8897288987_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8871088725_))))) - (_E8871088725_))))) - (_E8871088725_)))) - (_E8871088725_))))) - (_E8870988759_)))) + (_E8897288987_))))) + (_E8897288987_))))) + (_E8897288987_)))) + (_E8897288987_))))) + (_E8897189021_)))) (define gx#core-expand-lambda%__% - (lambda (_stx88650_ _wrap?88651_) - (let* ((_e8865288662_ _stx88650_) - (_E8865488666_ + (lambda (_stx88912_ _wrap?88913_) + (let* ((_e8891488924_ _stx88912_) + (_E8891688928_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8865288662_))) - (_E8865388693_ + _e8891488924_))) + (_E8891588955_ (lambda () - (if (gx#stx-pair? _e8865288662_) - (let ((_e8865588670_ (gx#syntax-e _e8865288662_))) - (let ((_hd8865688673_ (##car _e8865588670_)) - (_tl8865788675_ (##cdr _e8865588670_))) - (if (gx#stx-pair? _tl8865788675_) - (let ((_e8865888678_ - (gx#syntax-e _tl8865788675_))) - (let ((_hd8865988681_ (##car _e8865888678_)) - (_tl8866088683_ (##cdr _e8865888678_))) - (let* ((_hd88686_ _hd8865988681_) - (_body88688_ _tl8866088683_)) - (if (gx#core-bind-values? _hd88686_) + (if (gx#stx-pair? _e8891488924_) + (let ((_e8891788932_ (gx#syntax-e _e8891488924_))) + (let ((_hd8891888935_ (##car _e8891788932_)) + (_tl8891988937_ (##cdr _e8891788932_))) + (if (gx#stx-pair? _tl8891988937_) + (let ((_e8892088940_ + (gx#syntax-e _tl8891988937_))) + (let ((_hd8892188943_ (##car _e8892088940_)) + (_tl8892288945_ (##cdr _e8892088940_))) + (let* ((_hd88948_ _hd8892188943_) + (_body88950_ _tl8892288945_)) + (if (gx#core-bind-values? _hd88948_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd88686_) - (let ((_body88691_ + (gx#core-bind-values!__0 _hd88948_) + (let ((_body88953_ (cons (gx#core-quote-bind-values - _hd88686_) + _hd88948_) (cons (gx#core-expand-local-block - _stx88650_ - _body88688_) + _stx88912_ + _body88950_) '())))) - (if _wrap?88651_ + (if _wrap?88913_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body88691_) - (gx#stx-source _stx88650_)) - _body88691_))) + _body88953_) + (gx#stx-source _stx88912_)) + _body88953_))) gx#current-expander-context - (let ((__obj89715 + (let ((__obj89977 (##structure gx#local-context::t '#f @@ -1105,116 +1105,116 @@ '#f '#f))) (gx#local-context:::init! - __obj89715) - __obj89715)) - (_E8865488666_))))) - (_E8865488666_)))) - (_E8865488666_))))) - (_E8865388693_)))) + __obj89977) + __obj89977)) + (_E8891688928_))))) + (_E8891688928_)))) + (_E8891688928_))))) + (_E8891588955_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx88700_) - (let ((_wrap?88702_ '#t)) - (gx#core-expand-lambda%__% _stx88700_ _wrap?88702_)))) + (lambda (_stx88962_) + (let ((_wrap?88964_ '#t)) + (gx#core-expand-lambda%__% _stx88962_ _wrap?88964_)))) (define gx#core-expand-lambda% - (lambda _g89725_ - (let ((_g89724_ (##length _g89725_))) - (cond ((##fx= _g89724_ 1) - (apply (lambda (_stx88700_) - (gx#core-expand-lambda%__0 _stx88700_)) - _g89725_)) - ((##fx= _g89724_ 2) - (apply (lambda (_stx88704_ _wrap?88705_) - (gx#core-expand-lambda%__% _stx88704_ _wrap?88705_)) - _g89725_)) + (lambda _g89987_ + (let ((_g89986_ (##length _g89987_))) + (cond ((##fx= _g89986_ 1) + (apply (lambda (_stx88962_) + (gx#core-expand-lambda%__0 _stx88962_)) + _g89987_)) + ((##fx= _g89986_ 2) + (apply (lambda (_stx88966_ _wrap?88967_) + (gx#core-expand-lambda%__% _stx88966_ _wrap?88967_)) + _g89987_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g89725_)))))) + _g89987_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx88614_) - (let* ((_e8861588622_ _stx88614_) - (_E8861788626_ + (lambda (_stx88876_) + (let* ((_e8887788884_ _stx88876_) + (_E8887988888_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8861588622_))) - (_E8861688645_ + _e8887788884_))) + (_E8887888907_ (lambda () - (if (gx#stx-pair? _e8861588622_) - (let ((_e8861888630_ (gx#syntax-e _e8861588622_))) - (let ((_hd8861988633_ (##car _e8861888630_)) - (_tl8862088635_ (##cdr _e8861888630_))) - (let ((_clauses88638_ _tl8862088635_)) - (if (gx#stx-list? _clauses88638_) + (if (gx#stx-pair? _e8887788884_) + (let ((_e8888088892_ (gx#syntax-e _e8887788884_))) + (let ((_hd8888188895_ (##car _e8888088892_)) + (_tl8888288897_ (##cdr _e8888088892_))) + (let ((_clauses88900_ _tl8888288897_)) + (if (gx#stx-list? _clauses88900_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause88640_) + (lambda (_clause88902_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause88640_) - (let ((_$e88642_ - (gx#stx-source _clause88640_))) - (if _$e88642_ - _$e88642_ - (gx#stx-source _stx88614_)))) + _clause88902_) + (let ((_$e88904_ + (gx#stx-source _clause88902_))) + (if _$e88904_ + _$e88904_ + (gx#stx-source _stx88876_)))) '#f)) - _clauses88638_)) - (gx#stx-source _stx88614_)) - (_E8861788626_))))) - (_E8861788626_))))) - (_E8861688645_)))) + _clauses88900_)) + (gx#stx-source _stx88876_)) + (_E8887988888_))))) + (_E8887988888_))))) + (_E8887888907_)))) (define gx#core-expand-let-values% - (lambda (_stx88568_) - (let* ((_e8856988579_ _stx88568_) - (_E8857188583_ + (lambda (_stx88830_) + (let* ((_e8883188841_ _stx88830_) + (_E8883388845_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8856988579_))) - (_E8857088610_ + _e8883188841_))) + (_E8883288872_ (lambda () - (if (gx#stx-pair? _e8856988579_) - (let ((_e8857288587_ (gx#syntax-e _e8856988579_))) - (let ((_hd8857388590_ (##car _e8857288587_)) - (_tl8857488592_ (##cdr _e8857288587_))) - (if (gx#stx-pair? _tl8857488592_) - (let ((_e8857588595_ - (gx#syntax-e _tl8857488592_))) - (let ((_hd8857688598_ (##car _e8857588595_)) - (_tl8857788600_ (##cdr _e8857588595_))) - (let* ((_hd88603_ _hd8857688598_) - (_body88605_ _tl8857788600_)) - (if (gx#core-expand-let-bind? _hd88603_) - (let ((_expressions88607_ + (if (gx#stx-pair? _e8883188841_) + (let ((_e8883488849_ (gx#syntax-e _e8883188841_))) + (let ((_hd8883588852_ (##car _e8883488849_)) + (_tl8883688854_ (##cdr _e8883488849_))) + (if (gx#stx-pair? _tl8883688854_) + (let ((_e8883788857_ + (gx#syntax-e _tl8883688854_))) + (let ((_hd8883888860_ (##car _e8883788857_)) + (_tl8883988862_ (##cdr _e8883788857_))) + (let* ((_hd88865_ _hd8883888860_) + (_body88867_ _tl8883988862_)) + (if (gx#core-expand-let-bind? _hd88865_) + (let ((_expressions88869_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd88603_))) + _hd88865_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd88603_) + _hd88865_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd88603_ - _expressions88607_) + _hd88865_ + _expressions88869_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx88568_ - _body88605_) + _stx88830_ + _body88867_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx88568_))) + (gx#stx-source _stx88830_))) gx#current-expander-context - (let ((__obj89716 + (let ((__obj89978 (##structure gx#local-context::t '#f @@ -1223,56 +1223,56 @@ '#f '#f))) (gx#local-context:::init! - __obj89716) - __obj89716))) - (_E8857188583_))))) - (_E8857188583_)))) - (_E8857188583_))))) - (_E8857088610_)))) + __obj89978) + __obj89978))) + (_E8883388845_))))) + (_E8883388845_)))) + (_E8883388845_))))) + (_E8883288872_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx88513_ _form88514_) - (let* ((_e8851588525_ _stx88513_) - (_E8851788529_ + (lambda (_stx88775_ _form88776_) + (let* ((_e8877788787_ _stx88775_) + (_E8877988791_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8851588525_))) - (_E8851688554_ + _e8877788787_))) + (_E8877888816_ (lambda () - (if (gx#stx-pair? _e8851588525_) - (let ((_e8851888533_ (gx#syntax-e _e8851588525_))) - (let ((_hd8851988536_ (##car _e8851888533_)) - (_tl8852088538_ (##cdr _e8851888533_))) - (if (gx#stx-pair? _tl8852088538_) - (let ((_e8852188541_ - (gx#syntax-e _tl8852088538_))) - (let ((_hd8852288544_ (##car _e8852188541_)) - (_tl8852388546_ (##cdr _e8852188541_))) - (let* ((_hd88549_ _hd8852288544_) - (_body88551_ _tl8852388546_)) - (if (gx#core-expand-let-bind? _hd88549_) + (if (gx#stx-pair? _e8877788787_) + (let ((_e8878088795_ (gx#syntax-e _e8877788787_))) + (let ((_hd8878188798_ (##car _e8878088795_)) + (_tl8878288800_ (##cdr _e8878088795_))) + (if (gx#stx-pair? _tl8878288800_) + (let ((_e8878388803_ + (gx#syntax-e _tl8878288800_))) + (let ((_hd8878488806_ (##car _e8878388803_)) + (_tl8878588808_ (##cdr _e8878388803_))) + (let* ((_hd88811_ _hd8878488806_) + (_body88813_ _tl8878588808_)) + (if (gx#core-expand-let-bind? _hd88811_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd88549_) + _hd88811_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form88514_) + _form88776_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd88549_ + _hd88811_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd88549_)) + _hd88811_)) (cons (gx#core-expand-local-block - _stx88513_ - _body88551_) + _stx88775_ + _body88813_) '()))) - (gx#stx-source _stx88513_))) + (gx#stx-source _stx88775_))) gx#current-expander-context - (let ((__obj89717 + (let ((__obj89979 (##structure gx#local-context::t '#f @@ -1281,197 +1281,197 @@ '#f '#f))) (gx#local-context:::init! - __obj89717) - __obj89717)) - (_E8851788529_))))) - (_E8851788529_)))) - (_E8851788529_))))) - (_E8851688554_)))) + __obj89979) + __obj89979)) + (_E8877988791_))))) + (_E8877988791_)))) + (_E8877988791_))))) + (_E8877888816_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx88561_) - (let ((_form88563_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx88561_ _form88563_)))) + (lambda (_stx88823_) + (let ((_form88825_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx88823_ _form88825_)))) (define gx#core-expand-letrec-values% - (lambda _g89727_ - (let ((_g89726_ (##length _g89727_))) - (cond ((##fx= _g89726_ 1) - (apply (lambda (_stx88561_) - (gx#core-expand-letrec-values%__0 _stx88561_)) - _g89727_)) - ((##fx= _g89726_ 2) - (apply (lambda (_stx88565_ _form88566_) + (lambda _g89989_ + (let ((_g89988_ (##length _g89989_))) + (cond ((##fx= _g89988_ 1) + (apply (lambda (_stx88823_) + (gx#core-expand-letrec-values%__0 _stx88823_)) + _g89989_)) + ((##fx= _g89988_ 2) + (apply (lambda (_stx88827_ _form88828_) (gx#core-expand-letrec-values%__% - _stx88565_ - _form88566_)) - _g89727_)) + _stx88827_ + _form88828_)) + _g89989_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g89727_)))))) + _g89989_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx88510_) - (gx#core-expand-letrec-values%__% _stx88510_ '%#letrec*-values))) + (lambda (_stx88772_) + (gx#core-expand-letrec-values%__% _stx88772_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx88467_) - (if (gx#stx-list? _stx88467_) + (lambda (_stx88729_) + (if (gx#stx-list? _stx88729_) (gx#stx-andmap - (lambda (_bind88469_) - (let* ((_e8847088480_ _bind88469_) - (_E8847288484_ (lambda () '#f)) - (_E8847188506_ + (lambda (_bind88731_) + (let* ((_e8873288742_ _bind88731_) + (_E8873488746_ (lambda () '#f)) + (_E8873388768_ (lambda () - (if (gx#stx-pair? _e8847088480_) - (let ((_e8847388488_ (gx#syntax-e _e8847088480_))) - (let ((_hd8847488491_ (##car _e8847388488_)) - (_tl8847588493_ (##cdr _e8847388488_))) - (let ((_hd88496_ _hd8847488491_)) - (if (gx#stx-pair? _tl8847588493_) - (let ((_e8847688498_ - (gx#syntax-e _tl8847588493_))) - (let ((_hd8847788501_ - (##car _e8847688498_)) - (_tl8847888503_ - (##cdr _e8847688498_))) - (if (gx#stx-null? _tl8847888503_) + (if (gx#stx-pair? _e8873288742_) + (let ((_e8873588750_ (gx#syntax-e _e8873288742_))) + (let ((_hd8873688753_ (##car _e8873588750_)) + (_tl8873788755_ (##cdr _e8873588750_))) + (let ((_hd88758_ _hd8873688753_)) + (if (gx#stx-pair? _tl8873788755_) + (let ((_e8873888760_ + (gx#syntax-e _tl8873788755_))) + (let ((_hd8873988763_ + (##car _e8873888760_)) + (_tl8874088765_ + (##cdr _e8873888760_))) + (if (gx#stx-null? _tl8874088765_) (if '#t (gx#core-bind-values? - _hd88496_) - (_E8847288484_)) - (_E8847288484_)))) - (_E8847288484_))))) - (_E8847288484_))))) - (_E8847188506_))) - _stx88467_) + _hd88758_) + (_E8873488746_)) + (_E8873488746_)))) + (_E8873488746_))))) + (_E8873488746_))))) + (_E8873388768_))) + _stx88729_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind88426_) - (let* ((_e8842788437_ _bind88426_) - (_E8842988441_ + (lambda (_bind88688_) + (let* ((_e8868988699_ _bind88688_) + (_E8869188703_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8842788437_))) - (_E8842888463_ + _e8868988699_))) + (_E8869088725_ (lambda () - (if (gx#stx-pair? _e8842788437_) - (let ((_e8843088445_ (gx#syntax-e _e8842788437_))) - (let ((_hd8843188448_ (##car _e8843088445_)) - (_tl8843288450_ (##cdr _e8843088445_))) - (if (gx#stx-pair? _tl8843288450_) - (let ((_e8843388453_ - (gx#syntax-e _tl8843288450_))) - (let ((_hd8843488456_ (##car _e8843388453_)) - (_tl8843588458_ (##cdr _e8843388453_))) - (let ((_expr88461_ _hd8843488456_)) - (if (gx#stx-null? _tl8843588458_) + (if (gx#stx-pair? _e8868988699_) + (let ((_e8869288707_ (gx#syntax-e _e8868988699_))) + (let ((_hd8869388710_ (##car _e8869288707_)) + (_tl8869488712_ (##cdr _e8869288707_))) + (if (gx#stx-pair? _tl8869488712_) + (let ((_e8869588715_ + (gx#syntax-e _tl8869488712_))) + (let ((_hd8869688718_ (##car _e8869588715_)) + (_tl8869788720_ (##cdr _e8869588715_))) + (let ((_expr88723_ _hd8869688718_)) + (if (gx#stx-null? _tl8869788720_) (if '#t (gx#core-expand-expression - _expr88461_) - (_E8842988441_)) - (_E8842988441_))))) - (_E8842988441_)))) - (_E8842988441_))))) - (_E8842888463_)))) + _expr88723_) + (_E8869188703_)) + (_E8869188703_))))) + (_E8869188703_)))) + (_E8869188703_))))) + (_E8869088725_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind88385_) - (let* ((_e8838688396_ _bind88385_) - (_E8838888400_ + (lambda (_bind88647_) + (let* ((_e8864888658_ _bind88647_) + (_E8865088662_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8838688396_))) - (_E8838788422_ + _e8864888658_))) + (_E8864988684_ (lambda () - (if (gx#stx-pair? _e8838688396_) - (let ((_e8838988404_ (gx#syntax-e _e8838688396_))) - (let ((_hd8839088407_ (##car _e8838988404_)) - (_tl8839188409_ (##cdr _e8838988404_))) - (let ((_hd88412_ _hd8839088407_)) - (if (gx#stx-pair? _tl8839188409_) - (let ((_e8839288414_ - (gx#syntax-e _tl8839188409_))) - (let ((_hd8839388417_ (##car _e8839288414_)) - (_tl8839488419_ (##cdr _e8839288414_))) - (if (gx#stx-null? _tl8839488419_) + (if (gx#stx-pair? _e8864888658_) + (let ((_e8865188666_ (gx#syntax-e _e8864888658_))) + (let ((_hd8865288669_ (##car _e8865188666_)) + (_tl8865388671_ (##cdr _e8865188666_))) + (let ((_hd88674_ _hd8865288669_)) + (if (gx#stx-pair? _tl8865388671_) + (let ((_e8865488676_ + (gx#syntax-e _tl8865388671_))) + (let ((_hd8865588679_ (##car _e8865488676_)) + (_tl8865688681_ (##cdr _e8865488676_))) + (if (gx#stx-null? _tl8865688681_) (if '#t - (gx#core-bind-values!__0 _hd88412_) - (_E8838888400_)) - (_E8838888400_)))) - (_E8838888400_))))) - (_E8838888400_))))) - (_E8838788422_)))) + (gx#core-bind-values!__0 _hd88674_) + (_E8865088662_)) + (_E8865088662_)))) + (_E8865088662_))))) + (_E8865088662_))))) + (_E8864988684_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind88343_ _expr88344_) - (let* ((_e8834588355_ _bind88343_) - (_E8834788359_ + (lambda (_bind88605_ _expr88606_) + (let* ((_e8860788617_ _bind88605_) + (_E8860988621_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8834588355_))) - (_E8834688381_ + _e8860788617_))) + (_E8860888643_ (lambda () - (if (gx#stx-pair? _e8834588355_) - (let ((_e8834888363_ (gx#syntax-e _e8834588355_))) - (let ((_hd8834988366_ (##car _e8834888363_)) - (_tl8835088368_ (##cdr _e8834888363_))) - (let ((_hd88371_ _hd8834988366_)) - (if (gx#stx-pair? _tl8835088368_) - (let ((_e8835188373_ - (gx#syntax-e _tl8835088368_))) - (let ((_hd8835288376_ (##car _e8835188373_)) - (_tl8835388378_ (##cdr _e8835188373_))) - (if (gx#stx-null? _tl8835388378_) + (if (gx#stx-pair? _e8860788617_) + (let ((_e8861088625_ (gx#syntax-e _e8860788617_))) + (let ((_hd8861188628_ (##car _e8861088625_)) + (_tl8861288630_ (##cdr _e8861088625_))) + (let ((_hd88633_ _hd8861188628_)) + (if (gx#stx-pair? _tl8861288630_) + (let ((_e8861388635_ + (gx#syntax-e _tl8861288630_))) + (let ((_hd8861488638_ (##car _e8861388635_)) + (_tl8861588640_ (##cdr _e8861388635_))) + (if (gx#stx-null? _tl8861588640_) (if '#t (cons (gx#core-quote-bind-values - _hd88371_) - (cons _expr88344_ '())) - (_E8834788359_)) - (_E8834788359_)))) - (_E8834788359_))))) - (_E8834788359_))))) - (_E8834688381_)))) + _hd88633_) + (cons _expr88606_ '())) + (_E8860988621_)) + (_E8860988621_)))) + (_E8860988621_))))) + (_E8860988621_))))) + (_E8860888643_)))) (define gx#core-expand-let-syntax% - (lambda (_stx88297_) - (let* ((_e8829888308_ _stx88297_) - (_E8830088312_ + (lambda (_stx88559_) + (let* ((_e8856088570_ _stx88559_) + (_E8856288574_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8829888308_))) - (_E8829988339_ + _e8856088570_))) + (_E8856188601_ (lambda () - (if (gx#stx-pair? _e8829888308_) - (let ((_e8830188316_ (gx#syntax-e _e8829888308_))) - (let ((_hd8830288319_ (##car _e8830188316_)) - (_tl8830388321_ (##cdr _e8830188316_))) - (if (gx#stx-pair? _tl8830388321_) - (let ((_e8830488324_ - (gx#syntax-e _tl8830388321_))) - (let ((_hd8830588327_ (##car _e8830488324_)) - (_tl8830688329_ (##cdr _e8830488324_))) - (let* ((_hd88332_ _hd8830588327_) - (_body88334_ _tl8830688329_)) + (if (gx#stx-pair? _e8856088570_) + (let ((_e8856388578_ (gx#syntax-e _e8856088570_))) + (let ((_hd8856488581_ (##car _e8856388578_)) + (_tl8856588583_ (##cdr _e8856388578_))) + (if (gx#stx-pair? _tl8856588583_) + (let ((_e8856688586_ + (gx#syntax-e _tl8856588583_))) + (let ((_hd8856788589_ (##car _e8856688586_)) + (_tl8856888591_ (##cdr _e8856688586_))) + (let* ((_hd88594_ _hd8856788589_) + (_body88596_ _tl8856888591_)) (if (gx#core-expand-let-bind-syntax? - _hd88332_) - (let ((_expanders88336_ + _hd88594_) + (let ((_expanders88598_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd88332_))) + _hd88594_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd88332_ - _expanders88336_) + _hd88594_ + _expanders88598_) (gx#core-expand-local-block - _stx88297_ - _body88334_)) + _stx88559_ + _body88596_)) gx#current-expander-context - (let ((__obj89718 + (let ((__obj89980 (##structure gx#local-context::t '#f @@ -1480,60 +1480,60 @@ '#f '#f))) (gx#local-context:::init! - __obj89718) - __obj89718))) - (_E8830088312_))))) - (_E8830088312_)))) - (_E8830088312_))))) - (_E8829988339_)))) + __obj89980) + __obj89980))) + (_E8856288574_))))) + (_E8856288574_)))) + (_E8856288574_))))) + (_E8856188601_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx88246_) - (let* ((_e8824788257_ _stx88246_) - (_E8824988261_ + (lambda (_stx88508_) + (let* ((_e8850988519_ _stx88508_) + (_E8851188523_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8824788257_))) - (_E8824888293_ + _e8850988519_))) + (_E8851088555_ (lambda () - (if (gx#stx-pair? _e8824788257_) - (let ((_e8825088265_ (gx#syntax-e _e8824788257_))) - (let ((_hd8825188268_ (##car _e8825088265_)) - (_tl8825288270_ (##cdr _e8825088265_))) - (if (gx#stx-pair? _tl8825288270_) - (let ((_e8825388273_ - (gx#syntax-e _tl8825288270_))) - (let ((_hd8825488276_ (##car _e8825388273_)) - (_tl8825588278_ (##cdr _e8825388273_))) - (let* ((_hd88281_ _hd8825488276_) - (_body88283_ _tl8825588278_)) + (if (gx#stx-pair? _e8850988519_) + (let ((_e8851288527_ (gx#syntax-e _e8850988519_))) + (let ((_hd8851388530_ (##car _e8851288527_)) + (_tl8851488532_ (##cdr _e8851288527_))) + (if (gx#stx-pair? _tl8851488532_) + (let ((_e8851588535_ + (gx#syntax-e _tl8851488532_))) + (let ((_hd8851688538_ (##car _e8851588535_)) + (_tl8851788540_ (##cdr _e8851588535_))) + (let* ((_hd88543_ _hd8851688538_) + (_body88545_ _tl8851788540_)) (if (gx#core-expand-let-bind-syntax? - _hd88281_) + _hd88543_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd88281_ + _hd88543_ (make-list__% - (gx#stx-length _hd88281_) + (gx#stx-length _hd88543_) '#!void)) (gx#stx-for-each2 - (lambda (_g8828588288_ - _g8828688290_) + (lambda (_g8854788550_ + _g8854888552_) (gx#core-expand-let-bind-syntax!__% - _g8828588288_ - _g8828688290_ + _g8854788550_ + _g8854888552_ '#t)) - _hd88281_ + _hd88543_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd88281_)) + _hd88543_)) (gx#core-expand-local-block - _stx88246_ - _body88283_)) + _stx88508_ + _body88545_)) gx#current-expander-context - (let ((__obj89719 + (let ((__obj89981 (##structure gx#local-context::t '#f @@ -1542,1851 +1542,1851 @@ '#f '#f))) (gx#local-context:::init! - __obj89719) - __obj89719)) - (_E8824988261_))))) - (_E8824988261_)))) - (_E8824988261_))))) - (_E8824888293_)))) + __obj89981) + __obj89981)) + (_E8851188523_))))) + (_E8851188523_)))) + (_E8851188523_))))) + (_E8851088555_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx88203_) - (if (gx#stx-list? _stx88203_) + (lambda (_stx88465_) + (if (gx#stx-list? _stx88465_) (gx#stx-andmap - (lambda (_bind88205_) - (let* ((_e8820688216_ _bind88205_) - (_E8820888220_ (lambda () '#f)) - (_E8820788242_ + (lambda (_bind88467_) + (let* ((_e8846888478_ _bind88467_) + (_E8847088482_ (lambda () '#f)) + (_E8846988504_ (lambda () - (if (gx#stx-pair? _e8820688216_) - (let ((_e8820988224_ (gx#syntax-e _e8820688216_))) - (let ((_hd8821088227_ (##car _e8820988224_)) - (_tl8821188229_ (##cdr _e8820988224_))) - (let ((_hd88232_ _hd8821088227_)) - (if (gx#stx-pair? _tl8821188229_) - (let ((_e8821288234_ - (gx#syntax-e _tl8821188229_))) - (let ((_hd8821388237_ - (##car _e8821288234_)) - (_tl8821488239_ - (##cdr _e8821288234_))) - (if (gx#stx-null? _tl8821488239_) + (if (gx#stx-pair? _e8846888478_) + (let ((_e8847188486_ (gx#syntax-e _e8846888478_))) + (let ((_hd8847288489_ (##car _e8847188486_)) + (_tl8847388491_ (##cdr _e8847188486_))) + (let ((_hd88494_ _hd8847288489_)) + (if (gx#stx-pair? _tl8847388491_) + (let ((_e8847488496_ + (gx#syntax-e _tl8847388491_))) + (let ((_hd8847588499_ + (##car _e8847488496_)) + (_tl8847688501_ + (##cdr _e8847488496_))) + (if (gx#stx-null? _tl8847688501_) (if '#t - (gx#identifier? _hd88232_) - (_E8820888220_)) - (_E8820888220_)))) - (_E8820888220_))))) - (_E8820888220_))))) - (_E8820788242_))) - _stx88203_) + (gx#identifier? _hd88494_) + (_E8847088482_)) + (_E8847088482_)))) + (_E8847088482_))))) + (_E8847088482_))))) + (_E8846988504_))) + _stx88465_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind88160_) - (let* ((_e8816188171_ _bind88160_) - (_E8816388175_ + (lambda (_bind88422_) + (let* ((_e8842388433_ _bind88422_) + (_E8842588437_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8816188171_))) - (_E8816288199_ + _e8842388433_))) + (_E8842488461_ (lambda () - (if (gx#stx-pair? _e8816188171_) - (let ((_e8816488179_ (gx#syntax-e _e8816188171_))) - (let ((_hd8816588182_ (##car _e8816488179_)) - (_tl8816688184_ (##cdr _e8816488179_))) - (if (gx#stx-pair? _tl8816688184_) - (let ((_e8816788187_ - (gx#syntax-e _tl8816688184_))) - (let ((_hd8816888190_ (##car _e8816788187_)) - (_tl8816988192_ (##cdr _e8816788187_))) - (let ((_expr88195_ _hd8816888190_)) - (if (gx#stx-null? _tl8816988192_) + (if (gx#stx-pair? _e8842388433_) + (let ((_e8842688441_ (gx#syntax-e _e8842388433_))) + (let ((_hd8842788444_ (##car _e8842688441_)) + (_tl8842888446_ (##cdr _e8842688441_))) + (if (gx#stx-pair? _tl8842888446_) + (let ((_e8842988449_ + (gx#syntax-e _tl8842888446_))) + (let ((_hd8843088452_ (##car _e8842988449_)) + (_tl8843188454_ (##cdr _e8842988449_))) + (let ((_expr88457_ _hd8843088452_)) + (if (gx#stx-null? _tl8843188454_) (if '#t - (let ((_g89728_ + (let ((_g89990_ (gx#core-expand-expression+1 - _expr88195_))) + _expr88457_))) (begin - (let ((_g89729_ - (if (##values? _g89728_) + (let ((_g89991_ + (if (##values? _g89990_) (##vector-length - _g89728_) + _g89990_) 1))) - (if (not (##fx= _g89729_ 2)) + (if (not (##fx= _g89991_ 2)) (error "Context expects 2 values" - _g89729_))) - (let ((_e88197_ + _g89991_))) + (let ((_e88459_ (##vector-ref - _g89728_ + _g89990_ 1))) - _e88197_))) - (_E8816388175_)) - (_E8816388175_))))) - (_E8816388175_)))) - (_E8816388175_))))) - (_E8816288199_)))) + _e88459_))) + (_E8842588437_)) + (_E8842588437_))))) + (_E8842588437_)))) + (_E8842588437_))))) + (_E8842488461_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind88105_ _e88106_ _rebind?88107_) - (let* ((_e8810888118_ _bind88105_) - (_E8811088122_ + (lambda (_bind88367_ _e88368_ _rebind?88369_) + (let* ((_e8837088380_ _bind88367_) + (_E8837288384_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8810888118_))) - (_E8810988144_ + _e8837088380_))) + (_E8837188406_ (lambda () - (if (gx#stx-pair? _e8810888118_) - (let ((_e8811188126_ (gx#syntax-e _e8810888118_))) - (let ((_hd8811288129_ (##car _e8811188126_)) - (_tl8811388131_ (##cdr _e8811188126_))) - (let ((_id88134_ _hd8811288129_)) - (if (gx#stx-pair? _tl8811388131_) - (let ((_e8811488136_ - (gx#syntax-e _tl8811388131_))) - (let ((_hd8811588139_ (##car _e8811488136_)) - (_tl8811688141_ (##cdr _e8811488136_))) - (if (gx#stx-null? _tl8811688141_) + (if (gx#stx-pair? _e8837088380_) + (let ((_e8837388388_ (gx#syntax-e _e8837088380_))) + (let ((_hd8837488391_ (##car _e8837388388_)) + (_tl8837588393_ (##cdr _e8837388388_))) + (let ((_id88396_ _hd8837488391_)) + (if (gx#stx-pair? _tl8837588393_) + (let ((_e8837688398_ + (gx#syntax-e _tl8837588393_))) + (let ((_hd8837788401_ (##car _e8837688398_)) + (_tl8837888403_ (##cdr _e8837688398_))) + (if (gx#stx-null? _tl8837888403_) (if '#t (gx#core-bind-syntax!__1 - _id88134_ - _e88106_ - _rebind?88107_) - (_E8811088122_)) - (_E8811088122_)))) - (_E8811088122_))))) - (_E8811088122_))))) - (_E8810988144_)))) + _id88396_ + _e88368_ + _rebind?88369_) + (_E8837288384_)) + (_E8837288384_)))) + (_E8837288384_))))) + (_E8837288384_))))) + (_E8837188406_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind88151_ _e88152_) - (let ((_rebind?88154_ '#f)) + (lambda (_bind88413_ _e88414_) + (let ((_rebind?88416_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind88151_ - _e88152_ - _rebind?88154_)))) + _bind88413_ + _e88414_ + _rebind?88416_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g89731_ - (let ((_g89730_ (##length _g89731_))) - (cond ((##fx= _g89730_ 2) - (apply (lambda (_bind88151_ _e88152_) + (lambda _g89993_ + (let ((_g89992_ (##length _g89993_))) + (cond ((##fx= _g89992_ 2) + (apply (lambda (_bind88413_ _e88414_) (gx#core-expand-let-bind-syntax!__0 - _bind88151_ - _e88152_)) - _g89731_)) - ((##fx= _g89730_ 3) - (apply (lambda (_bind88156_ _e88157_ _rebind?88158_) + _bind88413_ + _e88414_)) + _g89993_)) + ((##fx= _g89992_ 3) + (apply (lambda (_bind88418_ _e88419_ _rebind?88420_) (gx#core-expand-let-bind-syntax!__% - _bind88156_ - _e88157_ - _rebind?88158_)) - _g89731_)) + _bind88418_ + _e88419_ + _rebind?88420_)) + _g89993_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g89731_)))))) + _g89993_)))))) (define gx#core-expand-expression% - (lambda (_stx88063_) - (let* ((_e8806488074_ _stx88063_) - (_E8806688078_ + (lambda (_stx88325_) + (let* ((_e8832688336_ _stx88325_) + (_E8832888340_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8806488074_))) - (_E8806588100_ + _e8832688336_))) + (_E8832788362_ (lambda () - (if (gx#stx-pair? _e8806488074_) - (let ((_e8806788082_ (gx#syntax-e _e8806488074_))) - (let ((_hd8806888085_ (##car _e8806788082_)) - (_tl8806988087_ (##cdr _e8806788082_))) - (if (gx#stx-pair? _tl8806988087_) - (let ((_e8807088090_ - (gx#syntax-e _tl8806988087_))) - (let ((_hd8807188093_ (##car _e8807088090_)) - (_tl8807288095_ (##cdr _e8807088090_))) - (let ((_expr88098_ _hd8807188093_)) - (if (gx#stx-null? _tl8807288095_) + (if (gx#stx-pair? _e8832688336_) + (let ((_e8832988344_ (gx#syntax-e _e8832688336_))) + (let ((_hd8833088347_ (##car _e8832988344_)) + (_tl8833188349_ (##cdr _e8832988344_))) + (if (gx#stx-pair? _tl8833188349_) + (let ((_e8833288352_ + (gx#syntax-e _tl8833188349_))) + (let ((_hd8833388355_ (##car _e8833288352_)) + (_tl8833488357_ (##cdr _e8833288352_))) + (let ((_expr88360_ _hd8833388355_)) + (if (gx#stx-null? _tl8833488357_) (if '#t (gx#core-expand-expression - _expr88098_) - (_E8806688078_)) - (_E8806688078_))))) - (_E8806688078_)))) - (_E8806688078_))))) - (_E8806588100_)))) + _expr88360_) + (_E8832888340_)) + (_E8832888340_))))) + (_E8832888340_)))) + (_E8832888340_))))) + (_E8832788362_)))) (define gx#core-expand-quote% - (lambda (_stx88022_) - (let* ((_e8802388033_ _stx88022_) - (_E8802588037_ + (lambda (_stx88284_) + (let* ((_e8828588295_ _stx88284_) + (_E8828788299_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8802388033_))) - (_E8802488059_ + _e8828588295_))) + (_E8828688321_ (lambda () - (if (gx#stx-pair? _e8802388033_) - (let ((_e8802688041_ (gx#syntax-e _e8802388033_))) - (let ((_hd8802788044_ (##car _e8802688041_)) - (_tl8802888046_ (##cdr _e8802688041_))) - (if (gx#stx-pair? _tl8802888046_) - (let ((_e8802988049_ - (gx#syntax-e _tl8802888046_))) - (let ((_hd8803088052_ (##car _e8802988049_)) - (_tl8803188054_ (##cdr _e8802988049_))) - (let ((_e88057_ _hd8803088052_)) - (if (gx#stx-null? _tl8803188054_) + (if (gx#stx-pair? _e8828588295_) + (let ((_e8828888303_ (gx#syntax-e _e8828588295_))) + (let ((_hd8828988306_ (##car _e8828888303_)) + (_tl8829088308_ (##cdr _e8828888303_))) + (if (gx#stx-pair? _tl8829088308_) + (let ((_e8829188311_ + (gx#syntax-e _tl8829088308_))) + (let ((_hd8829288314_ (##car _e8829188311_)) + (_tl8829388316_ (##cdr _e8829188311_))) + (let ((_e88319_ _hd8829288314_)) + (if (gx#stx-null? _tl8829388316_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e88057_) + _e88319_) '())) - (gx#stx-source _stx88022_)) - (_E8802588037_)) - (_E8802588037_))))) - (_E8802588037_)))) - (_E8802588037_))))) - (_E8802488059_)))) + (gx#stx-source _stx88284_)) + (_E8828788299_)) + (_E8828788299_))))) + (_E8828788299_)))) + (_E8828788299_))))) + (_E8828688321_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx87981_) - (let* ((_e8798287992_ _stx87981_) - (_E8798487996_ + (lambda (_stx88243_) + (let* ((_e8824488254_ _stx88243_) + (_E8824688258_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8798287992_))) - (_E8798388018_ + _e8824488254_))) + (_E8824588280_ (lambda () - (if (gx#stx-pair? _e8798287992_) - (let ((_e8798588000_ (gx#syntax-e _e8798287992_))) - (let ((_hd8798688003_ (##car _e8798588000_)) - (_tl8798788005_ (##cdr _e8798588000_))) - (if (gx#stx-pair? _tl8798788005_) - (let ((_e8798888008_ - (gx#syntax-e _tl8798788005_))) - (let ((_hd8798988011_ (##car _e8798888008_)) - (_tl8799088013_ (##cdr _e8798888008_))) - (let ((_e88016_ _hd8798988011_)) - (if (gx#stx-null? _tl8799088013_) + (if (gx#stx-pair? _e8824488254_) + (let ((_e8824788262_ (gx#syntax-e _e8824488254_))) + (let ((_hd8824888265_ (##car _e8824788262_)) + (_tl8824988267_ (##cdr _e8824788262_))) + (if (gx#stx-pair? _tl8824988267_) + (let ((_e8825088270_ + (gx#syntax-e _tl8824988267_))) + (let ((_hd8825188273_ (##car _e8825088270_)) + (_tl8825288275_ (##cdr _e8825088270_))) + (let ((_e88278_ _hd8825188273_)) + (if (gx#stx-null? _tl8825288275_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e88016_) + _e88278_) '())) - (gx#stx-source _stx87981_)) - (_E8798487996_)) - (_E8798487996_))))) - (_E8798487996_)))) - (_E8798487996_))))) - (_E8798388018_)))) + (gx#stx-source _stx88243_)) + (_E8824688258_)) + (_E8824688258_))))) + (_E8824688258_)))) + (_E8824688258_))))) + (_E8824588280_)))) (define gx#core-expand-call% - (lambda (_stx87938_) - (let* ((_e8793987949_ _stx87938_) - (_E8794187953_ + (lambda (_stx88200_) + (let* ((_e8820188211_ _stx88200_) + (_E8820388215_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8793987949_))) - (_E8794087977_ + _e8820188211_))) + (_E8820288239_ (lambda () - (if (gx#stx-pair? _e8793987949_) - (let ((_e8794287957_ (gx#syntax-e _e8793987949_))) - (let ((_hd8794387960_ (##car _e8794287957_)) - (_tl8794487962_ (##cdr _e8794287957_))) - (if (gx#stx-pair? _tl8794487962_) - (let ((_e8794587965_ - (gx#syntax-e _tl8794487962_))) - (let ((_hd8794687968_ (##car _e8794587965_)) - (_tl8794787970_ (##cdr _e8794587965_))) - (let* ((_rator87973_ _hd8794687968_) - (_args87975_ _tl8794787970_)) - (if (gx#stx-list? _args87975_) + (if (gx#stx-pair? _e8820188211_) + (let ((_e8820488219_ (gx#syntax-e _e8820188211_))) + (let ((_hd8820588222_ (##car _e8820488219_)) + (_tl8820688224_ (##cdr _e8820488219_))) + (if (gx#stx-pair? _tl8820688224_) + (let ((_e8820788227_ + (gx#syntax-e _tl8820688224_))) + (let ((_hd8820888230_ (##car _e8820788227_)) + (_tl8820988232_ (##cdr _e8820788227_))) + (let* ((_rator88235_ _hd8820888230_) + (_args88237_ _tl8820988232_)) + (if (gx#stx-list? _args88237_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator87973_) + _rator88235_) (gx#stx-map1 gx#core-expand-expression - _args87975_)) - (gx#stx-source _stx87938_)) - (_E8794187953_))))) - (_E8794187953_)))) - (_E8794187953_))))) - (_E8794087977_)))) + _args88237_)) + (gx#stx-source _stx88200_)) + (_E8820388215_))))) + (_E8820388215_)))) + (_E8820388215_))))) + (_E8820288239_)))) (define gx#core-expand-if% - (lambda (_stx87871_) - (let* ((_e8787287888_ _stx87871_) - (_E8787487892_ + (lambda (_stx88133_) + (let* ((_e8813488150_ _stx88133_) + (_E8813688154_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8787287888_))) - (_E8787387934_ + _e8813488150_))) + (_E8813588196_ (lambda () - (if (gx#stx-pair? _e8787287888_) - (let ((_e8787587896_ (gx#syntax-e _e8787287888_))) - (let ((_hd8787687899_ (##car _e8787587896_)) - (_tl8787787901_ (##cdr _e8787587896_))) - (if (gx#stx-pair? _tl8787787901_) - (let ((_e8787887904_ - (gx#syntax-e _tl8787787901_))) - (let ((_hd8787987907_ (##car _e8787887904_)) - (_tl8788087909_ (##cdr _e8787887904_))) - (let ((_test87912_ _hd8787987907_)) - (if (gx#stx-pair? _tl8788087909_) - (let ((_e8788187914_ - (gx#syntax-e _tl8788087909_))) - (let ((_hd8788287917_ - (##car _e8788187914_)) - (_tl8788387919_ - (##cdr _e8788187914_))) - (let ((_K87922_ _hd8788287917_)) - (if (gx#stx-pair? _tl8788387919_) - (let ((_e8788487924_ + (if (gx#stx-pair? _e8813488150_) + (let ((_e8813788158_ (gx#syntax-e _e8813488150_))) + (let ((_hd8813888161_ (##car _e8813788158_)) + (_tl8813988163_ (##cdr _e8813788158_))) + (if (gx#stx-pair? _tl8813988163_) + (let ((_e8814088166_ + (gx#syntax-e _tl8813988163_))) + (let ((_hd8814188169_ (##car _e8814088166_)) + (_tl8814288171_ (##cdr _e8814088166_))) + (let ((_test88174_ _hd8814188169_)) + (if (gx#stx-pair? _tl8814288171_) + (let ((_e8814388176_ + (gx#syntax-e _tl8814288171_))) + (let ((_hd8814488179_ + (##car _e8814388176_)) + (_tl8814588181_ + (##cdr _e8814388176_))) + (let ((_K88184_ _hd8814488179_)) + (if (gx#stx-pair? _tl8814588181_) + (let ((_e8814688186_ (gx#syntax-e - _tl8788387919_))) - (let ((_hd8788587927_ - (##car _e8788487924_)) - (_tl8788687929_ - (##cdr _e8788487924_))) - (let ((_E87932_ - _hd8788587927_)) + _tl8814588181_))) + (let ((_hd8814788189_ + (##car _e8814688186_)) + (_tl8814888191_ + (##cdr _e8814688186_))) + (let ((_E88194_ + _hd8814788189_)) (if (gx#stx-null? - _tl8788687929_) + _tl8814888191_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test87912_) - (cons (gx#core-expand-expression _K87922_) + (cons (gx#core-expand-expression _test88174_) + (cons (gx#core-expand-expression _K88184_) (cons (gx#core-expand-expression - _E87932_) + _E88194_) '())))) - (gx#stx-source _stx87871_)) - (_E8787487892_)) - (_E8787487892_))))) + (gx#stx-source _stx88133_)) + (_E8813688154_)) + (_E8813688154_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8787487892_))))) - (_E8787487892_))))) - (_E8787487892_)))) - (_E8787487892_))))) - (_E8787387934_)))) + (_E8813688154_))))) + (_E8813688154_))))) + (_E8813688154_)))) + (_E8813688154_))))) + (_E8813588196_)))) (define gx#core-expand-ref% - (lambda (_stx87830_) - (let* ((_e8783187841_ _stx87830_) - (_E8783387845_ + (lambda (_stx88092_) + (let* ((_e8809388103_ _stx88092_) + (_E8809588107_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8783187841_))) - (_E8783287867_ + _e8809388103_))) + (_E8809488129_ (lambda () - (if (gx#stx-pair? _e8783187841_) - (let ((_e8783487849_ (gx#syntax-e _e8783187841_))) - (let ((_hd8783587852_ (##car _e8783487849_)) - (_tl8783687854_ (##cdr _e8783487849_))) - (if (gx#stx-pair? _tl8783687854_) - (let ((_e8783787857_ - (gx#syntax-e _tl8783687854_))) - (let ((_hd8783887860_ (##car _e8783787857_)) - (_tl8783987862_ (##cdr _e8783787857_))) - (let ((_id87865_ _hd8783887860_)) - (if (gx#stx-null? _tl8783987862_) - (if (gx#identifier? _id87865_) + (if (gx#stx-pair? _e8809388103_) + (let ((_e8809688111_ (gx#syntax-e _e8809388103_))) + (let ((_hd8809788114_ (##car _e8809688111_)) + (_tl8809888116_ (##cdr _e8809688111_))) + (if (gx#stx-pair? _tl8809888116_) + (let ((_e8809988119_ + (gx#syntax-e _tl8809888116_))) + (let ((_hd8810088122_ (##car _e8809988119_)) + (_tl8810188124_ (##cdr _e8809988119_))) + (let ((_id88127_ _hd8810088122_)) + (if (gx#stx-null? _tl8810188124_) + (if (gx#identifier? _id88127_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id87865_ - _stx87830_) + _id88127_ + _stx88092_) '())) - (gx#stx-source _stx87830_)) - (_E8783387845_)) - (_E8783387845_))))) - (_E8783387845_)))) - (_E8783387845_))))) - (_E8783287867_)))) + (gx#stx-source _stx88092_)) + (_E8809588107_)) + (_E8809588107_))))) + (_E8809588107_)))) + (_E8809588107_))))) + (_E8809488129_)))) (define gx#core-expand-setq% - (lambda (_stx87776_) - (let* ((_e8777787790_ _stx87776_) - (_E8777987794_ + (lambda (_stx88038_) + (let* ((_e8803988052_ _stx88038_) + (_E8804188056_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8777787790_))) - (_E8777887826_ + _e8803988052_))) + (_E8804088088_ (lambda () - (if (gx#stx-pair? _e8777787790_) - (let ((_e8778087798_ (gx#syntax-e _e8777787790_))) - (let ((_hd8778187801_ (##car _e8778087798_)) - (_tl8778287803_ (##cdr _e8778087798_))) - (if (gx#stx-pair? _tl8778287803_) - (let ((_e8778387806_ - (gx#syntax-e _tl8778287803_))) - (let ((_hd8778487809_ (##car _e8778387806_)) - (_tl8778587811_ (##cdr _e8778387806_))) - (let ((_id87814_ _hd8778487809_)) - (if (gx#stx-pair? _tl8778587811_) - (let ((_e8778687816_ - (gx#syntax-e _tl8778587811_))) - (let ((_hd8778787819_ - (##car _e8778687816_)) - (_tl8778887821_ - (##cdr _e8778687816_))) - (let ((_expr87824_ _hd8778787819_)) - (if (gx#stx-null? _tl8778887821_) + (if (gx#stx-pair? _e8803988052_) + (let ((_e8804288060_ (gx#syntax-e _e8803988052_))) + (let ((_hd8804388063_ (##car _e8804288060_)) + (_tl8804488065_ (##cdr _e8804288060_))) + (if (gx#stx-pair? _tl8804488065_) + (let ((_e8804588068_ + (gx#syntax-e _tl8804488065_))) + (let ((_hd8804688071_ (##car _e8804588068_)) + (_tl8804788073_ (##cdr _e8804588068_))) + (let ((_id88076_ _hd8804688071_)) + (if (gx#stx-pair? _tl8804788073_) + (let ((_e8804888078_ + (gx#syntax-e _tl8804788073_))) + (let ((_hd8804988081_ + (##car _e8804888078_)) + (_tl8805088083_ + (##cdr _e8804888078_))) + (let ((_expr88086_ _hd8804988081_)) + (if (gx#stx-null? _tl8805088083_) (if (gx#identifier? - _id87814_) + _id88076_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id87814_ - _stx87776_) - (cons (gx#core-expand-expression _expr87824_) '()))) - (gx#stx-source _stx87776_)) - (_E8777987794_)) + _id88076_ + _stx88038_) + (cons (gx#core-expand-expression _expr88086_) '()))) + (gx#stx-source _stx88038_)) + (_E8804188056_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8777987794_))))) - (_E8777987794_))))) - (_E8777987794_)))) - (_E8777987794_))))) - (_E8777887826_)))) + (_E8804188056_))))) + (_E8804188056_))))) + (_E8804188056_)))) + (_E8804188056_))))) + (_E8804088088_)))) (define gx#macro-expand-extern - (lambda (_stx87624_) - (letrec ((_generate87626_ - (lambda (_body87656_) - (let _lp87658_ ((_rest87660_ _body87656_) - (_ns87661_ (gx#core-context-namespace__0)) - (_r87662_ '())) - (let* ((_e8766387678_ _rest87660_) - (_E8767687682_ + (lambda (_stx87886_) + (letrec ((_generate87888_ + (lambda (_body87918_) + (let _lp87920_ ((_rest87922_ _body87918_) + (_ns87923_ (gx#core-context-namespace__0)) + (_r87924_ '())) + (let* ((_e8792587940_ _rest87922_) + (_E8793887944_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8766387678_))) - (_E8767287686_ + _e8792587940_))) + (_E8793487948_ (lambda () - (if (gx#stx-null? _e8766387678_) - (if '#t (reverse _r87662_) (_E8767687682_)) - (_E8767687682_)))) - (_E8766587743_ + (if (gx#stx-null? _e8792587940_) + (if '#t (reverse _r87924_) (_E8793887944_)) + (_E8793887944_)))) + (_E8792788005_ (lambda () - (if (gx#stx-pair? _e8766387678_) - (let ((_e8767387690_ - (gx#syntax-e _e8766387678_))) - (let ((_hd8767487693_ - (##car _e8767387690_)) - (_tl8767587695_ - (##cdr _e8767387690_))) - (let* ((_hd87698_ _hd8767487693_) - (_rest87700_ _tl8767587695_)) + (if (gx#stx-pair? _e8792587940_) + (let ((_e8793587952_ + (gx#syntax-e _e8792587940_))) + (let ((_hd8793687955_ + (##car _e8793587952_)) + (_tl8793787957_ + (##cdr _e8793587952_))) + (let* ((_hd87960_ _hd8793687955_) + (_rest87962_ _tl8793787957_)) (if '#t - (if (gx#identifier? _hd87698_) - (_lp87658_ - _rest87700_ - _ns87661_ - (cons (cons _hd87698_ - (cons (if _ns87661_ + (if (gx#identifier? _hd87960_) + (_lp87920_ + _rest87962_ + _ns87923_ + (cons (cons _hd87960_ + (cons (if _ns87923_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd87698_ - _ns87661_ + _hd87960_ + _ns87923_ '"#" - _hd87698_) - _hd87698_) + _hd87960_) + _hd87960_) '())) - _r87662_)) + _r87924_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e8770187711_ - _hd87698_) - (_E8770387715_ + (let* ((_e8796387973_ + _hd87960_) + (_E8796587977_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8770187711_))) - (_E8770287739_ + _e8796387973_))) + (_E8796488001_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e8770187711_) - (let ((_e8770487719_ (gx#syntax-e _e8770187711_))) - (let ((_hd8770587722_ (##car _e8770487719_)) - (_tl8770687724_ (##cdr _e8770487719_))) - (let ((_id87727_ _hd8770587722_)) - (if (gx#stx-pair? _tl8770687724_) - (let ((_e8770787729_ - (gx#syntax-e _tl8770687724_))) - (let ((_hd8770887732_ - (##car _e8770787729_)) - (_tl8770987734_ - (##cdr _e8770787729_))) - (let ((_eid87737_ _hd8770887732_)) - (if (gx#stx-null? _tl8770987734_) - (if (and (gx#identifier? _id87727_) + _e8796387973_) + (let ((_e8796687981_ (gx#syntax-e _e8796387973_))) + (let ((_hd8796787984_ (##car _e8796687981_)) + (_tl8796887986_ (##cdr _e8796687981_))) + (let ((_id87989_ _hd8796787984_)) + (if (gx#stx-pair? _tl8796887986_) + (let ((_e8796987991_ + (gx#syntax-e _tl8796887986_))) + (let ((_hd8797087994_ + (##car _e8796987991_)) + (_tl8797187996_ + (##cdr _e8796987991_))) + (let ((_eid87999_ _hd8797087994_)) + (if (gx#stx-null? _tl8797187996_) + (if (and (gx#identifier? _id87989_) (gx#identifier? - _eid87737_)) - (_lp87658_ - _rest87700_ - _ns87661_ - (cons (cons _id87727_ - (cons _eid87737_ + _eid87999_)) + (_lp87920_ + _rest87962_ + _ns87923_ + (cons (cons _id87989_ + (cons _eid87999_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r87662_)) + _r87924_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8770387715_)) - (_E8770387715_))))) - (_E8770387715_))))) - (_E8770387715_))))) + (_E8796587977_)) + (_E8796587977_))))) + (_E8796587977_))))) + (_E8796587977_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8770287739_))) - (_E8767287686_))))) - (_E8767287686_)))) - (_E8766487772_ + (_E8796488001_))) + (_E8793487948_))))) + (_E8793487948_)))) + (_E8792688034_ (lambda () - (if (gx#stx-pair? _e8766387678_) - (let ((_e8766687747_ - (gx#syntax-e _e8766387678_))) - (let ((_hd8766787750_ - (##car _e8766687747_)) - (_tl8766887752_ - (##cdr _e8766687747_))) - (if (eq? (gx#stx-e _hd8766787750_) + (if (gx#stx-pair? _e8792587940_) + (let ((_e8792888009_ + (gx#syntax-e _e8792587940_))) + (let ((_hd8792988012_ + (##car _e8792888009_)) + (_tl8793088014_ + (##cdr _e8792888009_))) + (if (eq? (gx#stx-e _hd8792988012_) 'namespace:) - (if (gx#stx-pair? _tl8766887752_) - (let ((_e8766987755_ + (if (gx#stx-pair? _tl8793088014_) + (let ((_e8793188017_ (gx#syntax-e - _tl8766887752_))) - (let ((_hd8767087758_ - (##car _e8766987755_)) - (_tl8767187760_ - (##cdr _e8766987755_))) - (let* ((_ns87763_ - _hd8767087758_) - (_rest87765_ - _tl8767187760_)) + _tl8793088014_))) + (let ((_hd8793288020_ + (##car _e8793188017_)) + (_tl8793388022_ + (##cdr _e8793188017_))) + (let* ((_ns88025_ + _hd8793288020_) + (_rest88027_ + _tl8793388022_)) (if '#t - (let ((_ns87770_ + (let ((_ns88032_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns87763_) - (symbol->string (gx#stx-e _ns87763_)) - (if (or (gx#stx-string? _ns87763_) - (gx#stx-false? _ns87763_)) - (gx#stx-e _ns87763_) + (if (gx#identifier? _ns88025_) + (symbol->string (gx#stx-e _ns88025_)) + (if (or (gx#stx-string? _ns88025_) + (gx#stx-false? _ns88025_)) + (gx#stx-e _ns88025_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _stx87624_ - _ns87763_))))) - (_lp87658_ _rest87765_ _ns87770_ _r87662_)) - (_E8766587743_))))) + _stx87886_ + _ns88025_))))) + (_lp87920_ _rest88027_ _ns88032_ _r87924_)) + (_E8792788005_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8766587743_)) - (_E8766587743_)))) - (_E8766587743_))))) - (_E8766487772_)))))) - (let* ((_e8762787634_ _stx87624_) - (_E8762987638_ + (_E8792788005_)) + (_E8792788005_)))) + (_E8792788005_))))) + (_E8792688034_)))))) + (let* ((_e8788987896_ _stx87886_) + (_E8789187900_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8762787634_))) - (_E8762887652_ + _e8788987896_))) + (_E8789087914_ (lambda () - (if (gx#stx-pair? _e8762787634_) - (let ((_e8763087642_ (gx#syntax-e _e8762787634_))) - (let ((_hd8763187645_ (##car _e8763087642_)) - (_tl8763287647_ (##cdr _e8763087642_))) - (let ((_body87650_ _tl8763287647_)) - (if (gx#stx-list? _body87650_) + (if (gx#stx-pair? _e8788987896_) + (let ((_e8789287904_ (gx#syntax-e _e8788987896_))) + (let ((_hd8789387907_ (##car _e8789287904_)) + (_tl8789487909_ (##cdr _e8789287904_))) + (let ((_body87912_ _tl8789487909_)) + (if (gx#stx-list? _body87912_) (gx#core-cons '%#extern - (_generate87626_ _body87650_)) - (_E8762987638_))))) - (_E8762987638_))))) - (_E8762887652_))))) + (_generate87888_ _body87912_)) + (_E8789187900_))))) + (_E8789187900_))))) + (_E8789087914_))))) (define gx#macro-expand-define-values - (lambda (_stx87570_) - (let* ((_e8757187584_ _stx87570_) - (_E8757387588_ + (lambda (_stx87832_) + (let* ((_e8783387846_ _stx87832_) + (_E8783587850_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8757187584_))) - (_E8757287620_ + _e8783387846_))) + (_E8783487882_ (lambda () - (if (gx#stx-pair? _e8757187584_) - (let ((_e8757487592_ (gx#syntax-e _e8757187584_))) - (let ((_hd8757587595_ (##car _e8757487592_)) - (_tl8757687597_ (##cdr _e8757487592_))) - (if (gx#stx-pair? _tl8757687597_) - (let ((_e8757787600_ - (gx#syntax-e _tl8757687597_))) - (let ((_hd8757887603_ (##car _e8757787600_)) - (_tl8757987605_ (##cdr _e8757787600_))) - (let ((_hd87608_ _hd8757887603_)) - (if (gx#stx-pair? _tl8757987605_) - (let ((_e8758087610_ - (gx#syntax-e _tl8757987605_))) - (let ((_hd8758187613_ - (##car _e8758087610_)) - (_tl8758287615_ - (##cdr _e8758087610_))) - (let ((_expr87618_ _hd8758187613_)) - (if (gx#stx-null? _tl8758287615_) + (if (gx#stx-pair? _e8783387846_) + (let ((_e8783687854_ (gx#syntax-e _e8783387846_))) + (let ((_hd8783787857_ (##car _e8783687854_)) + (_tl8783887859_ (##cdr _e8783687854_))) + (if (gx#stx-pair? _tl8783887859_) + (let ((_e8783987862_ + (gx#syntax-e _tl8783887859_))) + (let ((_hd8784087865_ (##car _e8783987862_)) + (_tl8784187867_ (##cdr _e8783987862_))) + (let ((_hd87870_ _hd8784087865_)) + (if (gx#stx-pair? _tl8784187867_) + (let ((_e8784287872_ + (gx#syntax-e _tl8784187867_))) + (let ((_hd8784387875_ + (##car _e8784287872_)) + (_tl8784487877_ + (##cdr _e8784287872_))) + (let ((_expr87880_ _hd8784387875_)) + (if (gx#stx-null? _tl8784487877_) (if (gx#stx-andmap gx#identifier? - _hd87608_) + _hd87870_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd87608_) - (cons _expr87618_ '()))) - (_E8757387588_)) + _hd87870_) + (cons _expr87880_ '()))) + (_E8783587850_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8757387588_))))) - (_E8757387588_))))) - (_E8757387588_)))) - (_E8757387588_))))) - (_E8757287620_)))) + (_E8783587850_))))) + (_E8783587850_))))) + (_E8783587850_)))) + (_E8783587850_))))) + (_E8783487882_)))) (define gx#macro-expand-define-syntax - (lambda (_stx87516_) - (let* ((_e8751787530_ _stx87516_) - (_E8751987534_ + (lambda (_stx87778_) + (let* ((_e8777987792_ _stx87778_) + (_E8778187796_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8751787530_))) - (_E8751887566_ + _e8777987792_))) + (_E8778087828_ (lambda () - (if (gx#stx-pair? _e8751787530_) - (let ((_e8752087538_ (gx#syntax-e _e8751787530_))) - (let ((_hd8752187541_ (##car _e8752087538_)) - (_tl8752287543_ (##cdr _e8752087538_))) - (if (gx#stx-pair? _tl8752287543_) - (let ((_e8752387546_ - (gx#syntax-e _tl8752287543_))) - (let ((_hd8752487549_ (##car _e8752387546_)) - (_tl8752587551_ (##cdr _e8752387546_))) - (let ((_hd87554_ _hd8752487549_)) - (if (gx#stx-pair? _tl8752587551_) - (let ((_e8752687556_ - (gx#syntax-e _tl8752587551_))) - (let ((_hd8752787559_ - (##car _e8752687556_)) - (_tl8752887561_ - (##cdr _e8752687556_))) - (let ((_expr87564_ _hd8752787559_)) - (if (gx#stx-null? _tl8752887561_) + (if (gx#stx-pair? _e8777987792_) + (let ((_e8778287800_ (gx#syntax-e _e8777987792_))) + (let ((_hd8778387803_ (##car _e8778287800_)) + (_tl8778487805_ (##cdr _e8778287800_))) + (if (gx#stx-pair? _tl8778487805_) + (let ((_e8778587808_ + (gx#syntax-e _tl8778487805_))) + (let ((_hd8778687811_ (##car _e8778587808_)) + (_tl8778787813_ (##cdr _e8778587808_))) + (let ((_hd87816_ _hd8778687811_)) + (if (gx#stx-pair? _tl8778787813_) + (let ((_e8778887818_ + (gx#syntax-e _tl8778787813_))) + (let ((_hd8778987821_ + (##car _e8778887818_)) + (_tl8779087823_ + (##cdr _e8778887818_))) + (let ((_expr87826_ _hd8778987821_)) + (if (gx#stx-null? _tl8779087823_) (if (gx#identifier? - _hd87554_) + _hd87816_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd87554_ + (cons _hd87816_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr87564_ '()))) - (_E8751987534_)) + (cons _expr87826_ '()))) + (_E8778187796_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8751987534_))))) - (_E8751987534_))))) - (_E8751987534_)))) - (_E8751987534_))))) - (_E8751887566_)))) + (_E8778187796_))))) + (_E8778187796_))))) + (_E8778187796_)))) + (_E8778187796_))))) + (_E8778087828_)))) (define gx#macro-expand-define-alias - (lambda (_stx87462_) - (let* ((_e8746387476_ _stx87462_) - (_E8746587480_ + (lambda (_stx87724_) + (let* ((_e8772587738_ _stx87724_) + (_E8772787742_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8746387476_))) - (_E8746487512_ + _e8772587738_))) + (_E8772687774_ (lambda () - (if (gx#stx-pair? _e8746387476_) - (let ((_e8746687484_ (gx#syntax-e _e8746387476_))) - (let ((_hd8746787487_ (##car _e8746687484_)) - (_tl8746887489_ (##cdr _e8746687484_))) - (if (gx#stx-pair? _tl8746887489_) - (let ((_e8746987492_ - (gx#syntax-e _tl8746887489_))) - (let ((_hd8747087495_ (##car _e8746987492_)) - (_tl8747187497_ (##cdr _e8746987492_))) - (let ((_id87500_ _hd8747087495_)) - (if (gx#stx-pair? _tl8747187497_) - (let ((_e8747287502_ - (gx#syntax-e _tl8747187497_))) - (let ((_hd8747387505_ - (##car _e8747287502_)) - (_tl8747487507_ - (##cdr _e8747287502_))) - (let ((_alias-id87510_ - _hd8747387505_)) - (if (gx#stx-null? _tl8747487507_) + (if (gx#stx-pair? _e8772587738_) + (let ((_e8772887746_ (gx#syntax-e _e8772587738_))) + (let ((_hd8772987749_ (##car _e8772887746_)) + (_tl8773087751_ (##cdr _e8772887746_))) + (if (gx#stx-pair? _tl8773087751_) + (let ((_e8773187754_ + (gx#syntax-e _tl8773087751_))) + (let ((_hd8773287757_ (##car _e8773187754_)) + (_tl8773387759_ (##cdr _e8773187754_))) + (let ((_id87762_ _hd8773287757_)) + (if (gx#stx-pair? _tl8773387759_) + (let ((_e8773487764_ + (gx#syntax-e _tl8773387759_))) + (let ((_hd8773587767_ + (##car _e8773487764_)) + (_tl8773687769_ + (##cdr _e8773487764_))) + (let ((_alias-id87772_ + _hd8773587767_)) + (if (gx#stx-null? _tl8773687769_) (if (and (gx#identifier? - _id87500_) + _id87762_) (gx#identifier? - _alias-id87510_)) + _alias-id87772_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id87500_ + (cons _id87762_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id87510_ '()))) - (_E8746587480_)) + (cons _alias-id87772_ '()))) + (_E8772787742_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8746587480_))))) - (_E8746587480_))))) - (_E8746587480_)))) - (_E8746587480_))))) - (_E8746487512_)))) + (_E8772787742_))))) + (_E8772787742_))))) + (_E8772787742_)))) + (_E8772787742_))))) + (_E8772687774_)))) (define gx#macro-expand-lambda% - (lambda (_stx87419_) - (let* ((_e8742087430_ _stx87419_) - (_E8742287434_ + (lambda (_stx87681_) + (let* ((_e8768287692_ _stx87681_) + (_E8768487696_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8742087430_))) - (_E8742187458_ + _e8768287692_))) + (_E8768387720_ (lambda () - (if (gx#stx-pair? _e8742087430_) - (let ((_e8742387438_ (gx#syntax-e _e8742087430_))) - (let ((_hd8742487441_ (##car _e8742387438_)) - (_tl8742587443_ (##cdr _e8742387438_))) - (if (gx#stx-pair? _tl8742587443_) - (let ((_e8742687446_ - (gx#syntax-e _tl8742587443_))) - (let ((_hd8742787449_ (##car _e8742687446_)) - (_tl8742887451_ (##cdr _e8742687446_))) - (let* ((_hd87454_ _hd8742787449_) - (_body87456_ _tl8742887451_)) + (if (gx#stx-pair? _e8768287692_) + (let ((_e8768587700_ (gx#syntax-e _e8768287692_))) + (let ((_hd8768687703_ (##car _e8768587700_)) + (_tl8768787705_ (##cdr _e8768587700_))) + (if (gx#stx-pair? _tl8768787705_) + (let ((_e8768887708_ + (gx#syntax-e _tl8768787705_))) + (let ((_hd8768987711_ (##car _e8768887708_)) + (_tl8769087713_ (##cdr _e8768887708_))) + (let* ((_hd87716_ _hd8768987711_) + (_body87718_ _tl8769087713_)) (if (and (gx#stx-andmap gx#identifier? - _hd87454_) - (gx#stx-list? _body87456_) - (not (gx#stx-null? _body87456_))) + _hd87716_) + (gx#stx-list? _body87718_) + (not (gx#stx-null? _body87718_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd87454_) - _body87456_) - (_E8742287434_))))) - (_E8742287434_)))) - (_E8742287434_))))) - (_E8742187458_)))) + _hd87716_) + _body87718_) + (_E8768487696_))))) + (_E8768487696_)))) + (_E8768487696_))))) + (_E8768387720_)))) (define gx#macro-expand-case-lambda - (lambda (_stx87355_) - (letrec ((_generate87357_ - (lambda (_clause87387_) - (let* ((_e8738887395_ _clause87387_) - (_E8739087399_ + (lambda (_stx87617_) + (letrec ((_generate87619_ + (lambda (_clause87649_) + (let* ((_e8765087657_ _clause87649_) + (_E8765287661_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx87355_ - _clause87387_))) - (_E8738987415_ + _stx87617_ + _clause87649_))) + (_E8765187677_ (lambda () - (if (gx#stx-pair? _e8738887395_) - (let ((_e8739187403_ - (gx#syntax-e _e8738887395_))) - (let ((_hd8739287406_ - (##car _e8739187403_)) - (_tl8739387408_ - (##cdr _e8739187403_))) - (let* ((_hd87411_ _hd8739287406_) - (_body87413_ _tl8739387408_)) + (if (gx#stx-pair? _e8765087657_) + (let ((_e8765387665_ + (gx#syntax-e _e8765087657_))) + (let ((_hd8765487668_ + (##car _e8765387665_)) + (_tl8765587670_ + (##cdr _e8765387665_))) + (let* ((_hd87673_ _hd8765487668_) + (_body87675_ _tl8765587670_)) (if (and (gx#stx-andmap gx#identifier? - _hd87411_) - (gx#stx-list? _body87413_) + _hd87673_) + (gx#stx-list? _body87675_) (not (gx#stx-null? - _body87413_))) + _body87675_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd87411_) - _body87413_) - (gx#stx-source _clause87387_)) - (_E8739087399_))))) - (_E8739087399_))))) - (_E8738987415_))))) - (let* ((_e8735887365_ _stx87355_) - (_E8736087369_ + _hd87673_) + _body87675_) + (gx#stx-source _clause87649_)) + (_E8765287661_))))) + (_E8765287661_))))) + (_E8765187677_))))) + (let* ((_e8762087627_ _stx87617_) + (_E8762287631_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8735887365_))) - (_E8735987383_ + _e8762087627_))) + (_E8762187645_ (lambda () - (if (gx#stx-pair? _e8735887365_) - (let ((_e8736187373_ (gx#syntax-e _e8735887365_))) - (let ((_hd8736287376_ (##car _e8736187373_)) - (_tl8736387378_ (##cdr _e8736187373_))) - (let ((_clauses87381_ _tl8736387378_)) - (if (gx#stx-list? _clauses87381_) + (if (gx#stx-pair? _e8762087627_) + (let ((_e8762387635_ (gx#syntax-e _e8762087627_))) + (let ((_hd8762487638_ (##car _e8762387635_)) + (_tl8762587640_ (##cdr _e8762387635_))) + (let ((_clauses87643_ _tl8762587640_)) + (if (gx#stx-list? _clauses87643_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate87357_ - _clauses87381_)) - (_E8736087369_))))) - (_E8736087369_))))) - (_E8735987383_))))) + _generate87619_ + _clauses87643_)) + (_E8762287631_))))) + (_E8762287631_))))) + (_E8762187645_))))) (define gx#macro-expand-let-values__% - (lambda (_stx87256_ _form87257_) - (letrec ((_generate87259_ - (lambda (_bind87302_) - (let* ((_e8730387313_ _bind87302_) - (_E8730587317_ + (lambda (_stx87518_ _form87519_) + (letrec ((_generate87521_ + (lambda (_bind87564_) + (let* ((_e8756587575_ _bind87564_) + (_E8756787579_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx87256_ - _bind87302_))) - (_E8730487341_ + _stx87518_ + _bind87564_))) + (_E8756687603_ (lambda () - (if (gx#stx-pair? _e8730387313_) - (let ((_e8730687321_ - (gx#syntax-e _e8730387313_))) - (let ((_hd8730787324_ - (##car _e8730687321_)) - (_tl8730887326_ - (##cdr _e8730687321_))) - (let ((_ids87329_ _hd8730787324_)) - (if (gx#stx-pair? _tl8730887326_) - (let ((_e8730987331_ + (if (gx#stx-pair? _e8756587575_) + (let ((_e8756887583_ + (gx#syntax-e _e8756587575_))) + (let ((_hd8756987586_ + (##car _e8756887583_)) + (_tl8757087588_ + (##cdr _e8756887583_))) + (let ((_ids87591_ _hd8756987586_)) + (if (gx#stx-pair? _tl8757087588_) + (let ((_e8757187593_ (gx#syntax-e - _tl8730887326_))) - (let ((_hd8731087334_ - (##car _e8730987331_)) - (_tl8731187336_ - (##cdr _e8730987331_))) - (let ((_expr87339_ - _hd8731087334_)) + _tl8757087588_))) + (let ((_hd8757287596_ + (##car _e8757187593_)) + (_tl8757387598_ + (##cdr _e8757187593_))) + (let ((_expr87601_ + _hd8757287596_)) (if (gx#stx-null? - _tl8731187336_) + _tl8757387598_) (if (gx#stx-andmap gx#identifier? - _ids87329_) + _ids87591_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids87329_) - (cons _expr87339_ '())) - (_E8730587317_)) - (_E8730587317_))))) + _ids87591_) + (cons _expr87601_ '())) + (_E8756787579_)) + (_E8756787579_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8730587317_))))) - (_E8730587317_))))) - (_E8730487341_))))) - (let* ((_e8726087270_ _stx87256_) - (_E8726287274_ + (_E8756787579_))))) + (_E8756787579_))))) + (_E8756687603_))))) + (let* ((_e8752287532_ _stx87518_) + (_E8752487536_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8726087270_))) - (_E8726187298_ + _e8752287532_))) + (_E8752387560_ (lambda () - (if (gx#stx-pair? _e8726087270_) - (let ((_e8726387278_ (gx#syntax-e _e8726087270_))) - (let ((_hd8726487281_ (##car _e8726387278_)) - (_tl8726587283_ (##cdr _e8726387278_))) - (if (gx#stx-pair? _tl8726587283_) - (let ((_e8726687286_ - (gx#syntax-e _tl8726587283_))) - (let ((_hd8726787289_ (##car _e8726687286_)) - (_tl8726887291_ (##cdr _e8726687286_))) - (let* ((_hd87294_ _hd8726787289_) - (_body87296_ _tl8726887291_)) - (if (and (gx#stx-list? _hd87294_) - (gx#stx-list? _body87296_) + (if (gx#stx-pair? _e8752287532_) + (let ((_e8752587540_ (gx#syntax-e _e8752287532_))) + (let ((_hd8752687543_ (##car _e8752587540_)) + (_tl8752787545_ (##cdr _e8752587540_))) + (if (gx#stx-pair? _tl8752787545_) + (let ((_e8752887548_ + (gx#syntax-e _tl8752787545_))) + (let ((_hd8752987551_ (##car _e8752887548_)) + (_tl8753087553_ (##cdr _e8752887548_))) + (let* ((_hd87556_ _hd8752987551_) + (_body87558_ _tl8753087553_)) + (if (and (gx#stx-list? _hd87556_) + (gx#stx-list? _body87558_) (not (gx#stx-null? - _body87296_))) + _body87558_))) (gx#core-cons* - _form87257_ + _form87519_ (gx#stx-map1 - _generate87259_ - _hd87294_) - _body87296_) - (_E8726287274_))))) - (_E8726287274_)))) - (_E8726287274_))))) - (_E8726187298_))))) + _generate87521_ + _hd87556_) + _body87558_) + (_E8752487536_))))) + (_E8752487536_)))) + (_E8752487536_))))) + (_E8752387560_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx87348_) - (let ((_form87350_ '%#let-values)) - (gx#macro-expand-let-values__% _stx87348_ _form87350_)))) + (lambda (_stx87610_) + (let ((_form87612_ '%#let-values)) + (gx#macro-expand-let-values__% _stx87610_ _form87612_)))) (define gx#macro-expand-let-values - (lambda _g89733_ - (let ((_g89732_ (##length _g89733_))) - (cond ((##fx= _g89732_ 1) - (apply (lambda (_stx87348_) - (gx#macro-expand-let-values__0 _stx87348_)) - _g89733_)) - ((##fx= _g89732_ 2) - (apply (lambda (_stx87352_ _form87353_) + (lambda _g89995_ + (let ((_g89994_ (##length _g89995_))) + (cond ((##fx= _g89994_ 1) + (apply (lambda (_stx87610_) + (gx#macro-expand-let-values__0 _stx87610_)) + _g89995_)) + ((##fx= _g89994_ 2) + (apply (lambda (_stx87614_ _form87615_) (gx#macro-expand-let-values__% - _stx87352_ - _form87353_)) - _g89733_)) + _stx87614_ + _form87615_)) + _g89995_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g89733_)))))) + _g89995_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx87253_) - (gx#macro-expand-let-values__% _stx87253_ '%#letrec-values))) + (lambda (_stx87515_) + (gx#macro-expand-let-values__% _stx87515_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx87251_) - (gx#macro-expand-let-values__% _stx87251_ '%#letrec*-values))) + (lambda (_stx87513_) + (gx#macro-expand-let-values__% _stx87513_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx87142_) - (let* ((_e8714387169_ _stx87142_) - (_E8715587173_ + (lambda (_stx87404_) + (let* ((_e8740587431_ _stx87404_) + (_E8741787435_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8714387169_))) - (_E8714587215_ + _e8740587431_))) + (_E8740787477_ (lambda () - (if (gx#stx-pair? _e8714387169_) - (let ((_e8715687177_ (gx#syntax-e _e8714387169_))) - (let ((_hd8715787180_ (##car _e8715687177_)) - (_tl8715887182_ (##cdr _e8715687177_))) - (if (gx#stx-pair? _tl8715887182_) - (let ((_e8715987185_ - (gx#syntax-e _tl8715887182_))) - (let ((_hd8716087188_ (##car _e8715987185_)) - (_tl8716187190_ (##cdr _e8715987185_))) - (let ((_test87193_ _hd8716087188_)) - (if (gx#stx-pair? _tl8716187190_) - (let ((_e8716287195_ - (gx#syntax-e _tl8716187190_))) - (let ((_hd8716387198_ - (##car _e8716287195_)) - (_tl8716487200_ - (##cdr _e8716287195_))) - (let ((_K87203_ _hd8716387198_)) - (if (gx#stx-pair? _tl8716487200_) - (let ((_e8716587205_ + (if (gx#stx-pair? _e8740587431_) + (let ((_e8741887439_ (gx#syntax-e _e8740587431_))) + (let ((_hd8741987442_ (##car _e8741887439_)) + (_tl8742087444_ (##cdr _e8741887439_))) + (if (gx#stx-pair? _tl8742087444_) + (let ((_e8742187447_ + (gx#syntax-e _tl8742087444_))) + (let ((_hd8742287450_ (##car _e8742187447_)) + (_tl8742387452_ (##cdr _e8742187447_))) + (let ((_test87455_ _hd8742287450_)) + (if (gx#stx-pair? _tl8742387452_) + (let ((_e8742487457_ + (gx#syntax-e _tl8742387452_))) + (let ((_hd8742587460_ + (##car _e8742487457_)) + (_tl8742687462_ + (##cdr _e8742487457_))) + (let ((_K87465_ _hd8742587460_)) + (if (gx#stx-pair? _tl8742687462_) + (let ((_e8742787467_ (gx#syntax-e - _tl8716487200_))) - (let ((_hd8716687208_ - (##car _e8716587205_)) - (_tl8716787210_ - (##cdr _e8716587205_))) - (let ((_E87213_ - _hd8716687208_)) + _tl8742687462_))) + (let ((_hd8742887470_ + (##car _e8742787467_)) + (_tl8742987472_ + (##cdr _e8742787467_))) + (let ((_E87475_ + _hd8742887470_)) (if (gx#stx-null? - _tl8716787210_) + _tl8742987472_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test87193_ - _K87203_ - _E87213_) - (_E8715587173_)) - (_E8715587173_))))) + _test87455_ + _K87465_ + _E87475_) + (_E8741787435_)) + (_E8741787435_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8715587173_))))) - (_E8715587173_))))) - (_E8715587173_)))) - (_E8715587173_)))) - (_E8714487247_ + (_E8741787435_))))) + (_E8741787435_))))) + (_E8741787435_)))) + (_E8741787435_)))) + (_E8740687509_ (lambda () - (if (gx#stx-pair? _e8714387169_) - (let ((_e8714687219_ (gx#syntax-e _e8714387169_))) - (let ((_hd8714787222_ (##car _e8714687219_)) - (_tl8714887224_ (##cdr _e8714687219_))) - (if (gx#stx-pair? _tl8714887224_) - (let ((_e8714987227_ - (gx#syntax-e _tl8714887224_))) - (let ((_hd8715087230_ (##car _e8714987227_)) - (_tl8715187232_ (##cdr _e8714987227_))) - (let ((_test87235_ _hd8715087230_)) - (if (gx#stx-pair? _tl8715187232_) - (let ((_e8715287237_ - (gx#syntax-e _tl8715187232_))) - (let ((_hd8715387240_ - (##car _e8715287237_)) - (_tl8715487242_ - (##cdr _e8715287237_))) - (let ((_K87245_ _hd8715387240_)) - (if (gx#stx-null? _tl8715487242_) + (if (gx#stx-pair? _e8740587431_) + (let ((_e8740887481_ (gx#syntax-e _e8740587431_))) + (let ((_hd8740987484_ (##car _e8740887481_)) + (_tl8741087486_ (##cdr _e8740887481_))) + (if (gx#stx-pair? _tl8741087486_) + (let ((_e8741187489_ + (gx#syntax-e _tl8741087486_))) + (let ((_hd8741287492_ (##car _e8741187489_)) + (_tl8741387494_ (##cdr _e8741187489_))) + (let ((_test87497_ _hd8741287492_)) + (if (gx#stx-pair? _tl8741387494_) + (let ((_e8741487499_ + (gx#syntax-e _tl8741387494_))) + (let ((_hd8741587502_ + (##car _e8741487499_)) + (_tl8741687504_ + (##cdr _e8741487499_))) + (let ((_K87507_ _hd8741587502_)) + (if (gx#stx-null? _tl8741687504_) (if '#t (gx#core-list '%#if - _test87235_ - _K87245_ + _test87497_ + _K87507_ '#!void) - (_E8714587215_)) - (_E8714587215_))))) - (_E8714587215_))))) - (_E8714587215_)))) - (_E8714587215_))))) - (_E8714487247_)))) + (_E8740787477_)) + (_E8740787477_))))) + (_E8740787477_))))) + (_E8740787477_)))) + (_E8740787477_))))) + (_E8740687509_)))) (define gx#free-identifier=? - (lambda (_xid87130_ _yid87131_) - (let ((_xe87133_ (gx#resolve-identifier__0 _xid87130_)) - (_ye87134_ (gx#resolve-identifier__0 _yid87131_))) - (if (and _xe87133_ _ye87134_) - (let ((_$e87136_ (eq? _xe87133_ _ye87134_))) - (if _$e87136_ - _$e87136_ - (if (##structure-instance-of? _xe87133_ 'gx#binding::t) - (if (##structure-instance-of? _ye87134_ 'gx#binding::t) + (lambda (_xid87392_ _yid87393_) + (let ((_xe87395_ (gx#resolve-identifier__0 _xid87392_)) + (_ye87396_ (gx#resolve-identifier__0 _yid87393_))) + (if (and _xe87395_ _ye87396_) + (let ((_$e87398_ (eq? _xe87395_ _ye87396_))) + (if _$e87398_ + _$e87398_ + (if (##structure-instance-of? _xe87395_ 'gx#binding::t) + (if (##structure-instance-of? _ye87396_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _xe87133_ + _xe87395_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye87134_ + _ye87396_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe87133_ _ye87134_) + (if (or _xe87395_ _ye87396_) '#f - (gx#stx-eq? _xid87130_ _yid87131_)))))) + (gx#stx-eq? _xid87392_ _yid87393_)))))) (define gx#bound-identifier=? - (lambda (_xid87114_ _yid87115_) - (letrec ((_context87117_ - (lambda (_e87128_) + (lambda (_xid87376_ _yid87377_) + (letrec ((_context87379_ + (lambda (_e87390_) (if (##structure-direct-instance-of? - _e87128_ + _e87390_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e87128_ + _e87390_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks87118_ - (lambda (_e87126_) - (if (symbol? _e87126_) + (_marks87380_ + (lambda (_e87388_) + (if (symbol? _e87388_) '() (if (##structure-direct-instance-of? - _e87126_ + _e87388_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e87126_ + _e87388_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e87126_ + _e87388_ '4 gx#syntax-quote::t '#f))))) - (_unwrap87119_ - (lambda (_e87124_) - (if (symbol? _e87124_) - _e87124_ - (gx#syntax-local-unwrap _e87124_))))) - (let ((_x87121_ (_unwrap87119_ _xid87114_)) - (_y87122_ (_unwrap87119_ _yid87115_))) - (if (gx#stx-eq? _x87121_ _y87122_) - (if (eq? (_context87117_ _x87121_) (_context87117_ _y87122_)) - (equal? (_marks87118_ _x87121_) (_marks87118_ _y87122_)) + (_unwrap87381_ + (lambda (_e87386_) + (if (symbol? _e87386_) + _e87386_ + (gx#syntax-local-unwrap _e87386_))))) + (let ((_x87383_ (_unwrap87381_ _xid87376_)) + (_y87384_ (_unwrap87381_ _yid87377_))) + (if (gx#stx-eq? _x87383_ _y87384_) + (if (eq? (_context87379_ _x87383_) (_context87379_ _y87384_)) + (equal? (_marks87380_ _x87383_) (_marks87380_ _y87384_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx87112_) - (if (gx#identifier? _stx87112_) - (gx#core-identifier=? _stx87112_ '_) + (lambda (_stx87374_) + (if (gx#identifier? _stx87374_) + (gx#core-identifier=? _stx87374_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx87110_) - (if (gx#identifier? _stx87110_) - (gx#core-identifier=? _stx87110_ '...) + (lambda (_stx87372_) + (if (gx#identifier? _stx87372_) + (gx#core-identifier=? _stx87372_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x87108_) - (if (gx#identifier? _x87108_) - (if (not (gx#underscore? _x87108_)) _x87108_ '#f) + (lambda (_x87370_) + (if (gx#identifier? _x87370_) + (if (not (gx#underscore? _x87370_)) _x87370_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_stx87054_ _where87055_) - (let _lp87057_ ((_rest87059_ (gx#syntax->list _stx87054_))) - (let* ((_rest8706087068_ _rest87059_) - (_else8706287076_ (lambda () '#t)) - (_K8706487086_ - (lambda (_rest87079_ _hd87080_) - (if (not (gx#identifier? _hd87080_)) + (lambda (_stx87316_ _where87317_) + (let _lp87319_ ((_rest87321_ (gx#syntax->list _stx87316_))) + (let* ((_rest8732287330_ _rest87321_) + (_else8732487338_ (lambda () '#t)) + (_K8732687348_ + (lambda (_rest87341_ _hd87342_) + (if (not (gx#identifier? _hd87342_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where87055_ - _hd87080_) - (if (find (lambda (_g8708187083_) + _where87317_ + _hd87342_) + (if (find (lambda (_g8734387345_) (gx#bound-identifier=? - _g8708187083_ - _hd87080_)) - _rest87079_) + _g8734387345_ + _hd87342_)) + _rest87341_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where87055_ - _hd87080_) - (_lp87057_ _rest87079_)))))) - (if (##pair? _rest8706087068_) - (let ((_hd8706587089_ (##car _rest8706087068_)) - (_tl8706687091_ (##cdr _rest8706087068_))) - (let* ((_hd87094_ _hd8706587089_) - (_rest87096_ _tl8706687091_)) - (_K8706487086_ _rest87096_ _hd87094_))) - (_else8706287076_)))))) + _where87317_ + _hd87342_) + (_lp87319_ _rest87341_)))))) + (if (##pair? _rest8732287330_) + (let ((_hd8732787351_ (##car _rest8732287330_)) + (_tl8732887353_ (##cdr _rest8732287330_))) + (let* ((_hd87356_ _hd8732787351_) + (_rest87358_ _tl8732887353_)) + (_K8732687348_ _rest87358_ _hd87356_))) + (_else8732487338_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx87101_) - (let ((_where87103_ _stx87101_)) - (gx#check-duplicate-identifiers__% _stx87101_ _where87103_)))) + (lambda (_stx87363_) + (let ((_where87365_ _stx87363_)) + (gx#check-duplicate-identifiers__% _stx87363_ _where87365_)))) (define gx#check-duplicate-identifiers - (lambda _g89735_ - (let ((_g89734_ (##length _g89735_))) - (cond ((##fx= _g89734_ 1) - (apply (lambda (_stx87101_) - (gx#check-duplicate-identifiers__0 _stx87101_)) - _g89735_)) - ((##fx= _g89734_ 2) - (apply (lambda (_stx87105_ _where87106_) + (lambda _g89997_ + (let ((_g89996_ (##length _g89997_))) + (cond ((##fx= _g89996_ 1) + (apply (lambda (_stx87363_) + (gx#check-duplicate-identifiers__0 _stx87363_)) + _g89997_)) + ((##fx= _g89996_ 2) + (apply (lambda (_stx87367_ _where87368_) (gx#check-duplicate-identifiers__% - _stx87105_ - _where87106_)) - _g89735_)) + _stx87367_ + _where87368_)) + _g89997_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g89735_)))))) + _g89997_)))))) (define gx#core-bind-values? - (lambda (_stx87046_) + (lambda (_stx87308_) (gx#stx-andmap - (lambda (_x87048_) - (let ((_$e87050_ (gx#identifier? _x87048_))) - (if _$e87050_ _$e87050_ (gx#stx-false? _x87048_)))) - _stx87046_))) + (lambda (_x87310_) + (let ((_$e87312_ (gx#identifier? _x87310_))) + (if _$e87312_ _$e87312_ (gx#stx-false? _x87310_)))) + _stx87308_))) (define gx#core-bind-values!__% - (lambda (_stx87010_ _rebind?87011_ _phi87012_ _ctx87013_) + (lambda (_stx87272_ _rebind?87273_ _phi87274_ _ctx87275_) (gx#stx-for-each1 - (lambda (_id87015_) - (if (gx#identifier? _id87015_) + (lambda (_id87277_) + (if (gx#identifier? _id87277_) (gx#core-bind-runtime!__% - _id87015_ - _rebind?87011_ - _phi87012_ - _ctx87013_) + _id87277_ + _rebind?87273_ + _phi87274_ + _ctx87275_) '#!void)) - _stx87010_))) + _stx87272_))) (define gx#core-bind-values!__0 - (lambda (_stx87020_) - (let* ((_rebind?87022_ '#f) - (_phi87024_ (gx#current-expander-phi)) - (_ctx87026_ (gx#current-expander-context))) + (lambda (_stx87282_) + (let* ((_rebind?87284_ '#f) + (_phi87286_ (gx#current-expander-phi)) + (_ctx87288_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx87020_ - _rebind?87022_ - _phi87024_ - _ctx87026_)))) + _stx87282_ + _rebind?87284_ + _phi87286_ + _ctx87288_)))) (define gx#core-bind-values!__1 - (lambda (_stx87028_ _rebind?87029_) - (let* ((_phi87031_ (gx#current-expander-phi)) - (_ctx87033_ (gx#current-expander-context))) + (lambda (_stx87290_ _rebind?87291_) + (let* ((_phi87293_ (gx#current-expander-phi)) + (_ctx87295_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx87028_ - _rebind?87029_ - _phi87031_ - _ctx87033_)))) + _stx87290_ + _rebind?87291_ + _phi87293_ + _ctx87295_)))) (define gx#core-bind-values!__2 - (lambda (_stx87035_ _rebind?87036_ _phi87037_) - (let ((_ctx87039_ (gx#current-expander-context))) + (lambda (_stx87297_ _rebind?87298_ _phi87299_) + (let ((_ctx87301_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx87035_ - _rebind?87036_ - _phi87037_ - _ctx87039_)))) + _stx87297_ + _rebind?87298_ + _phi87299_ + _ctx87301_)))) (define gx#core-bind-values! - (lambda _g89737_ - (let ((_g89736_ (##length _g89737_))) - (cond ((##fx= _g89736_ 1) - (apply (lambda (_stx87020_) - (gx#core-bind-values!__0 _stx87020_)) - _g89737_)) - ((##fx= _g89736_ 2) - (apply (lambda (_stx87028_ _rebind?87029_) - (gx#core-bind-values!__1 _stx87028_ _rebind?87029_)) - _g89737_)) - ((##fx= _g89736_ 3) - (apply (lambda (_stx87035_ _rebind?87036_ _phi87037_) + (lambda _g89999_ + (let ((_g89998_ (##length _g89999_))) + (cond ((##fx= _g89998_ 1) + (apply (lambda (_stx87282_) + (gx#core-bind-values!__0 _stx87282_)) + _g89999_)) + ((##fx= _g89998_ 2) + (apply (lambda (_stx87290_ _rebind?87291_) + (gx#core-bind-values!__1 _stx87290_ _rebind?87291_)) + _g89999_)) + ((##fx= _g89998_ 3) + (apply (lambda (_stx87297_ _rebind?87298_ _phi87299_) (gx#core-bind-values!__2 - _stx87035_ - _rebind?87036_ - _phi87037_)) - _g89737_)) - ((##fx= _g89736_ 4) - (apply (lambda (_stx87041_ - _rebind?87042_ - _phi87043_ - _ctx87044_) + _stx87297_ + _rebind?87298_ + _phi87299_)) + _g89999_)) + ((##fx= _g89998_ 4) + (apply (lambda (_stx87303_ + _rebind?87304_ + _phi87305_ + _ctx87306_) (gx#core-bind-values!__% - _stx87041_ - _rebind?87042_ - _phi87043_ - _ctx87044_)) - _g89737_)) + _stx87303_ + _rebind?87304_ + _phi87305_ + _ctx87306_)) + _g89999_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g89737_)))))) + _g89999_)))))) (define gx#core-quote-bind-values - (lambda (_stx87005_) + (lambda (_stx87267_) (gx#stx-map1 - (lambda (_x87007_) - (if (gx#identifier? _x87007_) - (gx#core-quote-syntax__0 _x87007_) + (lambda (_x87269_) + (if (gx#identifier? _x87269_) + (gx#core-quote-syntax__0 _x87269_) '#f)) - _stx87005_))) + _stx87267_))) (define gx#core-runtime-ref? - (lambda (_stx86998_) - (if (gx#identifier? _stx86998_) - (let* ((_bind87000_ (gx#resolve-identifier__0 _stx86998_)) - (_$e87002_ (not _bind87000_))) - (if _$e87002_ - _$e87002_ + (lambda (_stx87260_) + (if (gx#identifier? _stx87260_) + (let* ((_bind87262_ (gx#resolve-identifier__0 _stx87260_)) + (_$e87264_ (not _bind87262_))) + (if _$e87264_ + _$e87264_ (##structure-instance-of? - _bind87000_ + _bind87262_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id86990_ _form86991_) - (let ((_bind86993_ (gx#resolve-identifier__0 _id86990_))) - (if (##structure-instance-of? _bind86993_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id86990_) - (if (not _bind86993_) + (lambda (_id87252_ _form87253_) + (let ((_bind87255_ (gx#resolve-identifier__0 _id87252_))) + (if (##structure-instance-of? _bind87255_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id87252_) + (if (not _bind87255_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id86990_))) - (gx#core-quote-syntax__0 _id86990_) + (gx#core-extern-symbol? (gx#stx-e _id87252_))) + (gx#core-quote-syntax__0 _id87252_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form86991_ - _id86990_)) + _form87253_ + _id87252_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form86991_ - _id86990_)))))) + _form87253_ + _id87252_)))))) (define gx#core-bind-runtime!__% - (lambda (_id86949_ _rebind?86950_ _phi86951_ _ctx86952_) - (let* ((_key86954_ (gx#core-identifier-key _id86949_)) - (_eid86956_ - (gx#make-binding-id__% _key86954_ '#f _phi86951_ _ctx86952_)) - (_bind86958_ - (if (##structure-instance-of? _ctx86952_ 'gx#module-context::t) + (lambda (_id87211_ _rebind?87212_ _phi87213_ _ctx87214_) + (let* ((_key87216_ (gx#core-identifier-key _id87211_)) + (_eid87218_ + (gx#make-binding-id__% _key87216_ '#f _phi87213_ _ctx87214_)) + (_bind87220_ + (if (##structure-instance-of? _ctx87214_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid86956_ - _key86954_ - _phi86951_ - _ctx86952_) + _eid87218_ + _key87216_ + _phi87213_ + _ctx87214_) (if (##structure-instance-of? - _ctx86952_ + _ctx87214_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid86956_ - _key86954_ - _phi86951_) + _eid87218_ + _key87216_ + _phi87213_) (if (##structure-instance-of? - _ctx86952_ + _ctx87214_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid86956_ - _key86954_ - _phi86951_) + _eid87218_ + _key87216_ + _phi87213_) (##structure gx#runtime-binding::t - _eid86956_ - _key86954_ - _phi86951_)))))) + _eid87218_ + _key87216_ + _phi87213_)))))) (gx#bind-identifier!__% - _id86949_ - _bind86958_ - _rebind?86950_ - _phi86951_ - _ctx86952_)))) + _id87211_ + _bind87220_ + _rebind?87212_ + _phi87213_ + _ctx87214_)))) (define gx#core-bind-runtime!__0 - (lambda (_id86964_) - (let* ((_rebind?86966_ '#f) - (_phi86968_ (gx#current-expander-phi)) - (_ctx86970_ (gx#current-expander-context))) + (lambda (_id87226_) + (let* ((_rebind?87228_ '#f) + (_phi87230_ (gx#current-expander-phi)) + (_ctx87232_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id86964_ - _rebind?86966_ - _phi86968_ - _ctx86970_)))) + _id87226_ + _rebind?87228_ + _phi87230_ + _ctx87232_)))) (define gx#core-bind-runtime!__1 - (lambda (_id86972_ _rebind?86973_) - (let* ((_phi86975_ (gx#current-expander-phi)) - (_ctx86977_ (gx#current-expander-context))) + (lambda (_id87234_ _rebind?87235_) + (let* ((_phi87237_ (gx#current-expander-phi)) + (_ctx87239_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id86972_ - _rebind?86973_ - _phi86975_ - _ctx86977_)))) + _id87234_ + _rebind?87235_ + _phi87237_ + _ctx87239_)))) (define gx#core-bind-runtime!__2 - (lambda (_id86979_ _rebind?86980_ _phi86981_) - (let ((_ctx86983_ (gx#current-expander-context))) + (lambda (_id87241_ _rebind?87242_ _phi87243_) + (let ((_ctx87245_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id86979_ - _rebind?86980_ - _phi86981_ - _ctx86983_)))) + _id87241_ + _rebind?87242_ + _phi87243_ + _ctx87245_)))) (define gx#core-bind-runtime! - (lambda _g89739_ - (let ((_g89738_ (##length _g89739_))) - (cond ((##fx= _g89738_ 1) - (apply (lambda (_id86964_) - (gx#core-bind-runtime!__0 _id86964_)) - _g89739_)) - ((##fx= _g89738_ 2) - (apply (lambda (_id86972_ _rebind?86973_) - (gx#core-bind-runtime!__1 _id86972_ _rebind?86973_)) - _g89739_)) - ((##fx= _g89738_ 3) - (apply (lambda (_id86979_ _rebind?86980_ _phi86981_) + (lambda _g90001_ + (let ((_g90000_ (##length _g90001_))) + (cond ((##fx= _g90000_ 1) + (apply (lambda (_id87226_) + (gx#core-bind-runtime!__0 _id87226_)) + _g90001_)) + ((##fx= _g90000_ 2) + (apply (lambda (_id87234_ _rebind?87235_) + (gx#core-bind-runtime!__1 _id87234_ _rebind?87235_)) + _g90001_)) + ((##fx= _g90000_ 3) + (apply (lambda (_id87241_ _rebind?87242_ _phi87243_) (gx#core-bind-runtime!__2 - _id86979_ - _rebind?86980_ - _phi86981_)) - _g89739_)) - ((##fx= _g89738_ 4) - (apply (lambda (_id86985_ - _rebind?86986_ - _phi86987_ - _ctx86988_) + _id87241_ + _rebind?87242_ + _phi87243_)) + _g90001_)) + ((##fx= _g90000_ 4) + (apply (lambda (_id87247_ + _rebind?87248_ + _phi87249_ + _ctx87250_) (gx#core-bind-runtime!__% - _id86985_ - _rebind?86986_ - _phi86987_ - _ctx86988_)) - _g89739_)) + _id87247_ + _rebind?87248_ + _phi87249_ + _ctx87250_)) + _g90001_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g89739_)))))) + _g90001_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id86904_ _eid86905_ _rebind?86906_ _phi86907_ _ctx86908_) - (let* ((_key86910_ (gx#core-identifier-key _id86904_)) - (_bind86912_ - (if (##structure-instance-of? _ctx86908_ 'gx#module-context::t) + (lambda (_id87166_ _eid87167_ _rebind?87168_ _phi87169_ _ctx87170_) + (let* ((_key87172_ (gx#core-identifier-key _id87166_)) + (_bind87174_ + (if (##structure-instance-of? _ctx87170_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid86905_ - _key86910_ - _phi86907_ - _ctx86908_) + _eid87167_ + _key87172_ + _phi87169_ + _ctx87170_) (if (##structure-instance-of? - _ctx86908_ + _ctx87170_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid86905_ - _key86910_ - _phi86907_) + _eid87167_ + _key87172_ + _phi87169_) (##structure gx#runtime-binding::t - _eid86905_ - _key86910_ - _phi86907_))))) + _eid87167_ + _key87172_ + _phi87169_))))) (gx#bind-identifier!__% - _id86904_ - _bind86912_ - _rebind?86906_ - _phi86907_ - _ctx86908_)))) + _id87166_ + _bind87174_ + _rebind?87168_ + _phi87169_ + _ctx87170_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id86918_ _eid86919_) - (let* ((_rebind?86921_ '#f) - (_phi86923_ (gx#current-expander-phi)) - (_ctx86925_ (gx#current-expander-context))) + (lambda (_id87180_ _eid87181_) + (let* ((_rebind?87183_ '#f) + (_phi87185_ (gx#current-expander-phi)) + (_ctx87187_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id86918_ - _eid86919_ - _rebind?86921_ - _phi86923_ - _ctx86925_)))) + _id87180_ + _eid87181_ + _rebind?87183_ + _phi87185_ + _ctx87187_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id86927_ _eid86928_ _rebind?86929_) - (let* ((_phi86931_ (gx#current-expander-phi)) - (_ctx86933_ (gx#current-expander-context))) + (lambda (_id87189_ _eid87190_ _rebind?87191_) + (let* ((_phi87193_ (gx#current-expander-phi)) + (_ctx87195_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id86927_ - _eid86928_ - _rebind?86929_ - _phi86931_ - _ctx86933_)))) + _id87189_ + _eid87190_ + _rebind?87191_ + _phi87193_ + _ctx87195_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id86935_ _eid86936_ _rebind?86937_ _phi86938_) - (let ((_ctx86940_ (gx#current-expander-context))) + (lambda (_id87197_ _eid87198_ _rebind?87199_ _phi87200_) + (let ((_ctx87202_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id86935_ - _eid86936_ - _rebind?86937_ - _phi86938_ - _ctx86940_)))) + _id87197_ + _eid87198_ + _rebind?87199_ + _phi87200_ + _ctx87202_)))) (define gx#core-bind-runtime-reference! - (lambda _g89741_ - (let ((_g89740_ (##length _g89741_))) - (cond ((##fx= _g89740_ 2) - (apply (lambda (_id86918_ _eid86919_) + (lambda _g90003_ + (let ((_g90002_ (##length _g90003_))) + (cond ((##fx= _g90002_ 2) + (apply (lambda (_id87180_ _eid87181_) (gx#core-bind-runtime-reference!__0 - _id86918_ - _eid86919_)) - _g89741_)) - ((##fx= _g89740_ 3) - (apply (lambda (_id86927_ _eid86928_ _rebind?86929_) + _id87180_ + _eid87181_)) + _g90003_)) + ((##fx= _g90002_ 3) + (apply (lambda (_id87189_ _eid87190_ _rebind?87191_) (gx#core-bind-runtime-reference!__1 - _id86927_ - _eid86928_ - _rebind?86929_)) - _g89741_)) - ((##fx= _g89740_ 4) - (apply (lambda (_id86935_ - _eid86936_ - _rebind?86937_ - _phi86938_) + _id87189_ + _eid87190_ + _rebind?87191_)) + _g90003_)) + ((##fx= _g90002_ 4) + (apply (lambda (_id87197_ + _eid87198_ + _rebind?87199_ + _phi87200_) (gx#core-bind-runtime-reference!__2 - _id86935_ - _eid86936_ - _rebind?86937_ - _phi86938_)) - _g89741_)) - ((##fx= _g89740_ 5) - (apply (lambda (_id86942_ - _eid86943_ - _rebind?86944_ - _phi86945_ - _ctx86946_) + _id87197_ + _eid87198_ + _rebind?87199_ + _phi87200_)) + _g90003_)) + ((##fx= _g90002_ 5) + (apply (lambda (_id87204_ + _eid87205_ + _rebind?87206_ + _phi87207_ + _ctx87208_) (gx#core-bind-runtime-reference!__% - _id86942_ - _eid86943_ - _rebind?86944_ - _phi86945_ - _ctx86946_)) - _g89741_)) + _id87204_ + _eid87205_ + _rebind?87206_ + _phi87207_ + _ctx87208_)) + _g90003_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g89741_)))))) + _g90003_)))))) (define gx#core-bind-extern!__% - (lambda (_id86864_ _eid86865_ _rebind?86866_ _phi86867_ _ctx86868_) + (lambda (_id87126_ _eid87127_ _rebind?87128_ _phi87129_ _ctx87130_) (gx#bind-identifier!__% - _id86864_ + _id87126_ (##structure gx#extern-binding::t - _eid86865_ - (gx#core-identifier-key _id86864_) - _phi86867_) - _rebind?86866_ - _phi86867_ - _ctx86868_))) + _eid87127_ + (gx#core-identifier-key _id87126_) + _phi87129_) + _rebind?87128_ + _phi87129_ + _ctx87130_))) (define gx#core-bind-extern!__0 - (lambda (_id86873_ _eid86874_) - (let* ((_rebind?86876_ '#f) - (_phi86878_ (gx#current-expander-phi)) - (_ctx86880_ (gx#current-expander-context))) + (lambda (_id87135_ _eid87136_) + (let* ((_rebind?87138_ '#f) + (_phi87140_ (gx#current-expander-phi)) + (_ctx87142_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id86873_ - _eid86874_ - _rebind?86876_ - _phi86878_ - _ctx86880_)))) + _id87135_ + _eid87136_ + _rebind?87138_ + _phi87140_ + _ctx87142_)))) (define gx#core-bind-extern!__1 - (lambda (_id86882_ _eid86883_ _rebind?86884_) - (let* ((_phi86886_ (gx#current-expander-phi)) - (_ctx86888_ (gx#current-expander-context))) + (lambda (_id87144_ _eid87145_ _rebind?87146_) + (let* ((_phi87148_ (gx#current-expander-phi)) + (_ctx87150_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id86882_ - _eid86883_ - _rebind?86884_ - _phi86886_ - _ctx86888_)))) + _id87144_ + _eid87145_ + _rebind?87146_ + _phi87148_ + _ctx87150_)))) (define gx#core-bind-extern!__2 - (lambda (_id86890_ _eid86891_ _rebind?86892_ _phi86893_) - (let ((_ctx86895_ (gx#current-expander-context))) + (lambda (_id87152_ _eid87153_ _rebind?87154_ _phi87155_) + (let ((_ctx87157_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id86890_ - _eid86891_ - _rebind?86892_ - _phi86893_ - _ctx86895_)))) + _id87152_ + _eid87153_ + _rebind?87154_ + _phi87155_ + _ctx87157_)))) (define gx#core-bind-extern! - (lambda _g89743_ - (let ((_g89742_ (##length _g89743_))) - (cond ((##fx= _g89742_ 2) - (apply (lambda (_id86873_ _eid86874_) - (gx#core-bind-extern!__0 _id86873_ _eid86874_)) - _g89743_)) - ((##fx= _g89742_ 3) - (apply (lambda (_id86882_ _eid86883_ _rebind?86884_) + (lambda _g90005_ + (let ((_g90004_ (##length _g90005_))) + (cond ((##fx= _g90004_ 2) + (apply (lambda (_id87135_ _eid87136_) + (gx#core-bind-extern!__0 _id87135_ _eid87136_)) + _g90005_)) + ((##fx= _g90004_ 3) + (apply (lambda (_id87144_ _eid87145_ _rebind?87146_) (gx#core-bind-extern!__1 - _id86882_ - _eid86883_ - _rebind?86884_)) - _g89743_)) - ((##fx= _g89742_ 4) - (apply (lambda (_id86890_ - _eid86891_ - _rebind?86892_ - _phi86893_) + _id87144_ + _eid87145_ + _rebind?87146_)) + _g90005_)) + ((##fx= _g90004_ 4) + (apply (lambda (_id87152_ + _eid87153_ + _rebind?87154_ + _phi87155_) (gx#core-bind-extern!__2 - _id86890_ - _eid86891_ - _rebind?86892_ - _phi86893_)) - _g89743_)) - ((##fx= _g89742_ 5) - (apply (lambda (_id86897_ - _eid86898_ - _rebind?86899_ - _phi86900_ - _ctx86901_) + _id87152_ + _eid87153_ + _rebind?87154_ + _phi87155_)) + _g90005_)) + ((##fx= _g90004_ 5) + (apply (lambda (_id87159_ + _eid87160_ + _rebind?87161_ + _phi87162_ + _ctx87163_) (gx#core-bind-extern!__% - _id86897_ - _eid86898_ - _rebind?86899_ - _phi86900_ - _ctx86901_)) - _g89743_)) + _id87159_ + _eid87160_ + _rebind?87161_ + _phi87162_ + _ctx87163_)) + _g90005_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g89743_)))))) + _g90005_)))))) (define gx#core-bind-syntax!__% - (lambda (_id86818_ _e86819_ _rebind?86820_ _phi86821_ _ctx86822_) + (lambda (_id87080_ _e87081_ _rebind?87082_ _phi87083_ _ctx87084_) (gx#bind-identifier!__% - _id86818_ - (let ((_key86827_ (gx#core-identifier-key _id86818_)) - (_e86828_ - (if (or (##structure-instance-of? _e86819_ 'gx#expander::t) + _id87080_ + (let ((_key87089_ (gx#core-identifier-key _id87080_)) + (_e87090_ + (if (or (##structure-instance-of? _e87081_ 'gx#expander::t) (##structure-instance-of? - _e86819_ + _e87081_ 'gx#expander-context::t)) - _e86819_ + _e87081_ (##structure gx#user-expander::t - _e86819_ - _ctx86822_ - _phi86821_)))) + _e87081_ + _ctx87084_ + _phi87083_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key86827_ '#t _phi86821_ _ctx86822_) - _key86827_ - _phi86821_ - _e86828_)) - _rebind?86820_ - _phi86821_ - _ctx86822_))) + (gx#make-binding-id__% _key87089_ '#t _phi87083_ _ctx87084_) + _key87089_ + _phi87083_ + _e87090_)) + _rebind?87082_ + _phi87083_ + _ctx87084_))) (define gx#core-bind-syntax!__0 - (lambda (_id86833_ _e86834_) - (let* ((_rebind?86836_ '#f) - (_phi86838_ (gx#current-expander-phi)) - (_ctx86840_ (gx#current-expander-context))) + (lambda (_id87095_ _e87096_) + (let* ((_rebind?87098_ '#f) + (_phi87100_ (gx#current-expander-phi)) + (_ctx87102_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id86833_ - _e86834_ - _rebind?86836_ - _phi86838_ - _ctx86840_)))) + _id87095_ + _e87096_ + _rebind?87098_ + _phi87100_ + _ctx87102_)))) (define gx#core-bind-syntax!__1 - (lambda (_id86842_ _e86843_ _rebind?86844_) - (let* ((_phi86846_ (gx#current-expander-phi)) - (_ctx86848_ (gx#current-expander-context))) + (lambda (_id87104_ _e87105_ _rebind?87106_) + (let* ((_phi87108_ (gx#current-expander-phi)) + (_ctx87110_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id86842_ - _e86843_ - _rebind?86844_ - _phi86846_ - _ctx86848_)))) + _id87104_ + _e87105_ + _rebind?87106_ + _phi87108_ + _ctx87110_)))) (define gx#core-bind-syntax!__2 - (lambda (_id86850_ _e86851_ _rebind?86852_ _phi86853_) - (let ((_ctx86855_ (gx#current-expander-context))) + (lambda (_id87112_ _e87113_ _rebind?87114_ _phi87115_) + (let ((_ctx87117_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id86850_ - _e86851_ - _rebind?86852_ - _phi86853_ - _ctx86855_)))) + _id87112_ + _e87113_ + _rebind?87114_ + _phi87115_ + _ctx87117_)))) (define gx#core-bind-syntax! - (lambda _g89745_ - (let ((_g89744_ (##length _g89745_))) - (cond ((##fx= _g89744_ 2) - (apply (lambda (_id86833_ _e86834_) - (gx#core-bind-syntax!__0 _id86833_ _e86834_)) - _g89745_)) - ((##fx= _g89744_ 3) - (apply (lambda (_id86842_ _e86843_ _rebind?86844_) + (lambda _g90007_ + (let ((_g90006_ (##length _g90007_))) + (cond ((##fx= _g90006_ 2) + (apply (lambda (_id87095_ _e87096_) + (gx#core-bind-syntax!__0 _id87095_ _e87096_)) + _g90007_)) + ((##fx= _g90006_ 3) + (apply (lambda (_id87104_ _e87105_ _rebind?87106_) (gx#core-bind-syntax!__1 - _id86842_ - _e86843_ - _rebind?86844_)) - _g89745_)) - ((##fx= _g89744_ 4) - (apply (lambda (_id86850_ _e86851_ _rebind?86852_ _phi86853_) + _id87104_ + _e87105_ + _rebind?87106_)) + _g90007_)) + ((##fx= _g90006_ 4) + (apply (lambda (_id87112_ _e87113_ _rebind?87114_ _phi87115_) (gx#core-bind-syntax!__2 - _id86850_ - _e86851_ - _rebind?86852_ - _phi86853_)) - _g89745_)) - ((##fx= _g89744_ 5) - (apply (lambda (_id86857_ - _e86858_ - _rebind?86859_ - _phi86860_ - _ctx86861_) + _id87112_ + _e87113_ + _rebind?87114_ + _phi87115_)) + _g90007_)) + ((##fx= _g90006_ 5) + (apply (lambda (_id87119_ + _e87120_ + _rebind?87121_ + _phi87122_ + _ctx87123_) (gx#core-bind-syntax!__% - _id86857_ - _e86858_ - _rebind?86859_ - _phi86860_ - _ctx86861_)) - _g89745_)) + _id87119_ + _e87120_ + _rebind?87121_ + _phi87122_ + _ctx87123_)) + _g90007_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g89745_)))))) + _g90007_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id86801_ _e86802_ _rebind?86803_) + (lambda (_id87063_ _e87064_ _rebind?87065_) (gx#core-bind-syntax!__% - _id86801_ - _e86802_ - _rebind?86803_ + _id87063_ + _e87064_ + _rebind?87065_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id86808_ _e86809_) - (let ((_rebind?86811_ '#f)) - (gx#core-bind-root-syntax!__% _id86808_ _e86809_ _rebind?86811_)))) + (lambda (_id87070_ _e87071_) + (let ((_rebind?87073_ '#f)) + (gx#core-bind-root-syntax!__% _id87070_ _e87071_ _rebind?87073_)))) (define gx#core-bind-root-syntax! - (lambda _g89747_ - (let ((_g89746_ (##length _g89747_))) - (cond ((##fx= _g89746_ 2) - (apply (lambda (_id86808_ _e86809_) - (gx#core-bind-root-syntax!__0 _id86808_ _e86809_)) - _g89747_)) - ((##fx= _g89746_ 3) - (apply (lambda (_id86813_ _e86814_ _rebind?86815_) + (lambda _g90009_ + (let ((_g90008_ (##length _g90009_))) + (cond ((##fx= _g90008_ 2) + (apply (lambda (_id87070_ _e87071_) + (gx#core-bind-root-syntax!__0 _id87070_ _e87071_)) + _g90009_)) + ((##fx= _g90008_ 3) + (apply (lambda (_id87075_ _e87076_ _rebind?87077_) (gx#core-bind-root-syntax!__% - _id86813_ - _e86814_ - _rebind?86815_)) - _g89747_)) + _id87075_ + _e87076_ + _rebind?87077_)) + _g90009_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g89747_)))))) + _g90009_)))))) (define gx#core-bind-alias!__% - (lambda (_id86759_ _alias-id86760_ _rebind?86761_ _phi86762_ _ctx86763_) + (lambda (_id87021_ _alias-id87022_ _rebind?87023_ _phi87024_ _ctx87025_) (gx#bind-identifier!__% - _id86759_ - (let ((_key86765_ (gx#core-identifier-key _id86759_))) + _id87021_ + (let ((_key87027_ (gx#core-identifier-key _id87021_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key86765_ '#t _phi86762_ _ctx86763_) - _key86765_ - _phi86762_ - _alias-id86760_)) - _rebind?86761_ - _phi86762_ - _ctx86763_))) + (gx#make-binding-id__% _key87027_ '#t _phi87024_ _ctx87025_) + _key87027_ + _phi87024_ + _alias-id87022_)) + _rebind?87023_ + _phi87024_ + _ctx87025_))) (define gx#core-bind-alias!__0 - (lambda (_id86770_ _alias-id86771_) - (let* ((_rebind?86773_ '#f) - (_phi86775_ (gx#current-expander-phi)) - (_ctx86777_ (gx#current-expander-context))) + (lambda (_id87032_ _alias-id87033_) + (let* ((_rebind?87035_ '#f) + (_phi87037_ (gx#current-expander-phi)) + (_ctx87039_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id86770_ - _alias-id86771_ - _rebind?86773_ - _phi86775_ - _ctx86777_)))) + _id87032_ + _alias-id87033_ + _rebind?87035_ + _phi87037_ + _ctx87039_)))) (define gx#core-bind-alias!__1 - (lambda (_id86779_ _alias-id86780_ _rebind?86781_) - (let* ((_phi86783_ (gx#current-expander-phi)) - (_ctx86785_ (gx#current-expander-context))) + (lambda (_id87041_ _alias-id87042_ _rebind?87043_) + (let* ((_phi87045_ (gx#current-expander-phi)) + (_ctx87047_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id86779_ - _alias-id86780_ - _rebind?86781_ - _phi86783_ - _ctx86785_)))) + _id87041_ + _alias-id87042_ + _rebind?87043_ + _phi87045_ + _ctx87047_)))) (define gx#core-bind-alias!__2 - (lambda (_id86787_ _alias-id86788_ _rebind?86789_ _phi86790_) - (let ((_ctx86792_ (gx#current-expander-context))) + (lambda (_id87049_ _alias-id87050_ _rebind?87051_ _phi87052_) + (let ((_ctx87054_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id86787_ - _alias-id86788_ - _rebind?86789_ - _phi86790_ - _ctx86792_)))) + _id87049_ + _alias-id87050_ + _rebind?87051_ + _phi87052_ + _ctx87054_)))) (define gx#core-bind-alias! - (lambda _g89749_ - (let ((_g89748_ (##length _g89749_))) - (cond ((##fx= _g89748_ 2) - (apply (lambda (_id86770_ _alias-id86771_) - (gx#core-bind-alias!__0 _id86770_ _alias-id86771_)) - _g89749_)) - ((##fx= _g89748_ 3) - (apply (lambda (_id86779_ _alias-id86780_ _rebind?86781_) + (lambda _g90011_ + (let ((_g90010_ (##length _g90011_))) + (cond ((##fx= _g90010_ 2) + (apply (lambda (_id87032_ _alias-id87033_) + (gx#core-bind-alias!__0 _id87032_ _alias-id87033_)) + _g90011_)) + ((##fx= _g90010_ 3) + (apply (lambda (_id87041_ _alias-id87042_ _rebind?87043_) (gx#core-bind-alias!__1 - _id86779_ - _alias-id86780_ - _rebind?86781_)) - _g89749_)) - ((##fx= _g89748_ 4) - (apply (lambda (_id86787_ - _alias-id86788_ - _rebind?86789_ - _phi86790_) + _id87041_ + _alias-id87042_ + _rebind?87043_)) + _g90011_)) + ((##fx= _g90010_ 4) + (apply (lambda (_id87049_ + _alias-id87050_ + _rebind?87051_ + _phi87052_) (gx#core-bind-alias!__2 - _id86787_ - _alias-id86788_ - _rebind?86789_ - _phi86790_)) - _g89749_)) - ((##fx= _g89748_ 5) - (apply (lambda (_id86794_ - _alias-id86795_ - _rebind?86796_ - _phi86797_ - _ctx86798_) + _id87049_ + _alias-id87050_ + _rebind?87051_ + _phi87052_)) + _g90011_)) + ((##fx= _g90010_ 5) + (apply (lambda (_id87056_ + _alias-id87057_ + _rebind?87058_ + _phi87059_ + _ctx87060_) (gx#core-bind-alias!__% - _id86794_ - _alias-id86795_ - _rebind?86796_ - _phi86797_ - _ctx86798_)) - _g89749_)) + _id87056_ + _alias-id87057_ + _rebind?87058_ + _phi87059_ + _ctx87060_)) + _g90011_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g89749_)))))) + _g90011_)))))) (define gx#make-binding-id__% - (lambda (_key86716_ _syntax?86717_ _phi86718_ _ctx86719_) - (if (uninterned-symbol? _key86716_) + (lambda (_key86978_ _syntax?86979_ _phi86980_ _ctx86981_) + (if (uninterned-symbol? _key86978_) (gensym 'L) - (if (pair? _key86716_) - (gensym (car _key86716_)) - (if (##structure-instance-of? _ctx86719_ 'gx#top-context::t) - (let ((_ns86721_ - (gx#core-context-namespace__% _ctx86719_))) - (if (and (fxzero? _phi86718_) (not _syntax?86717_)) - (if _ns86721_ - (make-symbol__1 _ns86721_ '"#" _key86716_) - _key86716_) - (if _syntax?86717_ + (if (pair? _key86978_) + (gensym (car _key86978_)) + (if (##structure-instance-of? _ctx86981_ 'gx#top-context::t) + (let ((_ns86983_ + (gx#core-context-namespace__% _ctx86981_))) + (if (and (fxzero? _phi86980_) (not _syntax?86979_)) + (if _ns86983_ + (make-symbol__1 _ns86983_ '"#" _key86978_) + _key86978_) + (if _syntax?86979_ (make-symbol__1 - (let ((_$e86723_ _ns86721_)) - (if _$e86723_ _$e86723_ '"")) + (let ((_$e86985_ _ns86983_)) + (if _$e86985_ _$e86985_ '"")) '"[:" - (number->string _phi86718_) + (number->string _phi86980_) '":]#" - _key86716_) + _key86978_) (make-symbol__1 - (let ((_$e86726_ _ns86721_)) - (if _$e86726_ _$e86726_ '"")) + (let ((_$e86988_ _ns86983_)) + (if _$e86988_ _$e86988_ '"")) '"[" - (number->string _phi86718_) + (number->string _phi86980_) '"]#" - _key86716_)))) - (gensym _key86716_)))))) + _key86978_)))) + (gensym _key86978_)))))) (define gx#make-binding-id__0 - (lambda (_key86732_) - (let* ((_syntax?86734_ '#f) - (_phi86736_ (gx#current-expander-phi)) - (_ctx86738_ (gx#current-expander-context))) + (lambda (_key86994_) + (let* ((_syntax?86996_ '#f) + (_phi86998_ (gx#current-expander-phi)) + (_ctx87000_ (gx#current-expander-context))) (gx#make-binding-id__% - _key86732_ - _syntax?86734_ - _phi86736_ - _ctx86738_)))) + _key86994_ + _syntax?86996_ + _phi86998_ + _ctx87000_)))) (define gx#make-binding-id__1 - (lambda (_key86740_ _syntax?86741_) - (let* ((_phi86743_ (gx#current-expander-phi)) - (_ctx86745_ (gx#current-expander-context))) + (lambda (_key87002_ _syntax?87003_) + (let* ((_phi87005_ (gx#current-expander-phi)) + (_ctx87007_ (gx#current-expander-context))) (gx#make-binding-id__% - _key86740_ - _syntax?86741_ - _phi86743_ - _ctx86745_)))) + _key87002_ + _syntax?87003_ + _phi87005_ + _ctx87007_)))) (define gx#make-binding-id__2 - (lambda (_key86747_ _syntax?86748_ _phi86749_) - (let ((_ctx86751_ (gx#current-expander-context))) + (lambda (_key87009_ _syntax?87010_ _phi87011_) + (let ((_ctx87013_ (gx#current-expander-context))) (gx#make-binding-id__% - _key86747_ - _syntax?86748_ - _phi86749_ - _ctx86751_)))) + _key87009_ + _syntax?87010_ + _phi87011_ + _ctx87013_)))) (define gx#make-binding-id - (lambda _g89751_ - (let ((_g89750_ (##length _g89751_))) - (cond ((##fx= _g89750_ 1) - (apply (lambda (_key86732_) - (gx#make-binding-id__0 _key86732_)) - _g89751_)) - ((##fx= _g89750_ 2) - (apply (lambda (_key86740_ _syntax?86741_) - (gx#make-binding-id__1 _key86740_ _syntax?86741_)) - _g89751_)) - ((##fx= _g89750_ 3) - (apply (lambda (_key86747_ _syntax?86748_ _phi86749_) + (lambda _g90013_ + (let ((_g90012_ (##length _g90013_))) + (cond ((##fx= _g90012_ 1) + (apply (lambda (_key86994_) + (gx#make-binding-id__0 _key86994_)) + _g90013_)) + ((##fx= _g90012_ 2) + (apply (lambda (_key87002_ _syntax?87003_) + (gx#make-binding-id__1 _key87002_ _syntax?87003_)) + _g90013_)) + ((##fx= _g90012_ 3) + (apply (lambda (_key87009_ _syntax?87010_ _phi87011_) (gx#make-binding-id__2 - _key86747_ - _syntax?86748_ - _phi86749_)) - _g89751_)) - ((##fx= _g89750_ 4) - (apply (lambda (_key86753_ - _syntax?86754_ - _phi86755_ - _ctx86756_) + _key87009_ + _syntax?87010_ + _phi87011_)) + _g90013_)) + ((##fx= _g90012_ 4) + (apply (lambda (_key87015_ + _syntax?87016_ + _phi87017_ + _ctx87018_) (gx#make-binding-id__% - _key86753_ - _syntax?86754_ - _phi86755_ - _ctx86756_)) - _g89751_)) + _key87015_ + _syntax?87016_ + _phi87017_ + _ctx87018_)) + _g90013_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g89751_)))))))) + _g90013_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm index 7eec73cf..e7a9be02 100644 --- a/src/bootstrap/gerbil/runtime/c3__0.scm +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -1,549 +1,549 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1709375797) + (define gerbil/runtime/c3::timestamp 1709457368) (begin (define c4-linearize__% - (lambda (_g61891_ - _get-precedence-list6155861564_ - _struct?6155961566_ - _eq6156061568_ - _get-name6156161570_ - _rhead61572_ - _supers61573_) - (let* ((_get-precedence-list61575_ + (lambda (_g62153_ + _get-precedence-list6182061826_ + _struct?6182161828_ + _eq6182261830_ + _get-name6182361832_ + _rhead61834_ + _supers61835_) + (let* ((_get-precedence-list61837_ (if (let () (declare (not safe)) - (eq? _get-precedence-list6155861564_ absent-value)) + (eq? _get-precedence-list6182061826_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'get-precedence-list:)) - _get-precedence-list6155861564_)) - (_struct?61577_ + _get-precedence-list6182061826_)) + (_struct?61839_ (if (let () (declare (not safe)) - (eq? _struct?6155961566_ absent-value)) + (eq? _struct?6182161828_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'struct:)) - _struct?6155961566_)) - (_eq61579_ + _struct?6182161828_)) + (_eq61841_ (if (let () (declare (not safe)) - (eq? _eq6156061568_ absent-value)) + (eq? _eq6182261830_ absent-value)) eq? - _eq6156061568_)) - (_get-name61581_ + _eq6182261830_)) + (_get-name61843_ (if (let () (declare (not safe)) - (eq? _get-name6156161570_ absent-value)) + (eq? _get-name6182361832_ absent-value)) identity - _get-name6156161570_))) - (letrec* ((_pls61583_ (map _get-precedence-list61575_ _supers61573_)) - (_sit61584_ '()) - (_get-names61585_ - (lambda (_lst61849_) (map _get-name61581_ _lst61849_))) - (_err61586_ - (lambda _a61847_ + _get-name6182361832_))) + (letrec* ((_pls61845_ (map _get-precedence-list61837_ _supers61835_)) + (_sit61846_ '()) + (_get-names61847_ + (lambda (_lst62111_) (map _get-name61843_ _lst62111_))) + (_err61848_ + (lambda _a62109_ (apply error '"Inconsistent precedence graph" 'head: - (let ((__tmp61892 (reverse _rhead61572_))) + (let ((__tmp62154 (reverse _rhead61834_))) (declare (not safe)) - (_get-names61585_ __tmp61892)) + (_get-names61847_ __tmp62154)) 'precedence-lists: - (map _get-names61585_ _pls61583_) + (map _get-names61847_ _pls61845_) 'single-inheritance-tail: (let () (declare (not safe)) - (_get-names61585_ _sit61584_)) - _a61847_))) - (_merge-sit!61587_ - (lambda (_sit261837_) - (if (let () (declare (not safe)) (null? _sit261837_)) + (_get-names61847_ _sit61846_)) + _a62109_))) + (_merge-sit!61849_ + (lambda (_sit262099_) + (if (let () (declare (not safe)) (null? _sit262099_)) '#!void - (if (let () (declare (not safe)) (null? _sit61584_)) - (set! _sit61584_ _sit261837_) - (let _loop61839_ ((_t161841_ _sit61584_) - (_t261842_ _sit261837_)) + (if (let () (declare (not safe)) (null? _sit61846_)) + (set! _sit61846_ _sit262099_) + (let _loop62101_ ((_t162103_ _sit61846_) + (_t262104_ _sit262099_)) (if (let () (declare (not safe)) - (equal? _t161841_ _sit261837_)) + (equal? _t162103_ _sit262099_)) '#!void (if (let () (declare (not safe)) - (equal? _t261842_ _sit61584_)) - (set! _sit61584_ _sit261837_) + (equal? _t262104_ _sit61846_)) + (set! _sit61846_ _sit262099_) (if (or (let () (declare (not safe)) - (null? _t161841_)) + (null? _t162103_)) (let () (declare (not safe)) - (null? _t261842_))) - (let ((__tmp61895 - (let ((__tmp61898 + (null? _t262104_))) + (let ((__tmp62157 + (let ((__tmp62160 (let () (declare (not safe)) - (_get-names61585_ - _sit61584_))) - (__tmp61896 - (let ((__tmp61897 + (_get-names61847_ + _sit61846_))) + (__tmp62158 + (let ((__tmp62159 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_get-names61585_ _sit261837_)))) + (_get-names61847_ _sit262099_)))) (declare (not safe)) - (cons __tmp61897 '())))) + (cons __tmp62159 '())))) (declare (not safe)) - (cons __tmp61898 __tmp61896)))) + (cons __tmp62160 __tmp62158)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_err61586_ + (_err61848_ 'single-inheritance-incompatibility: - __tmp61895)) - (let ((__tmp61894 (cdr _t161841_)) - (__tmp61893 - (cdr _t261842_))) + __tmp62157)) + (let ((__tmp62156 (cdr _t162103_)) + (__tmp62155 + (cdr _t262104_))) (declare (not safe)) - (_loop61839_ - __tmp61894 - __tmp61893)))))))))) - (_rpls61588_ - (map (lambda (_pl61832_) - (let ((_g61899_ + (_loop62101_ + __tmp62156 + __tmp62155)))))))))) + (_rpls61850_ + (map (lambda (_pl62094_) + (let ((_g62161_ (let () (declare (not safe)) (append-reverse-until - _struct?61577_ - _pl61832_ + _struct?61839_ + _pl62094_ '())))) (begin - (let ((_g61900_ + (let ((_g62162_ (let () (declare (not safe)) - (if (##values? _g61899_) - (##vector-length _g61899_) + (if (##values? _g62161_) + (##vector-length _g62161_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g61900_ 2))) + (##fx= _g62162_ 2))) (error "Context expects 2 values" - _g61900_))) - (let ((_tl61834_ + _g62162_))) + (let ((_tl62096_ (let () (declare (not safe)) - (##vector-ref _g61899_ 0))) - (_rh61835_ + (##vector-ref _g62161_ 0))) + (_rh62097_ (let () (declare (not safe)) - (##vector-ref _g61899_ 1)))) + (##vector-ref _g62161_ 1)))) (begin (let () (declare (not safe)) - (_merge-sit!61587_ _tl61834_)) - _rh61835_))))) - _pls61583_)) - (_unsitr-rpl61589_ - (lambda (_rpl61778_) - (let _u61780_ ((_pl-rhead61782_ _rpl61778_) - (_pl-tail61783_ '()) - (_sit-rhead61784_ (reverse _sit61584_)) - (_sit-tail61785_ '())) - (let* ((_pl-rhead6178661795_ _pl-rhead61782_) - (_E6178961799_ + (_merge-sit!61849_ _tl62096_)) + _rh62097_))))) + _pls61845_)) + (_unsitr-rpl61851_ + (lambda (_rpl62040_) + (let _u62042_ ((_pl-rhead62044_ _rpl62040_) + (_pl-tail62045_ '()) + (_sit-rhead62046_ (reverse _sit61846_)) + (_sit-tail62047_ '())) + (let* ((_pl-rhead6204862057_ _pl-rhead62044_) + (_E6205162061_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _pl-rhead6178661795_))))) - (let ((_K6179361829_ (lambda () _pl-tail61783_)) - (_K6179061813_ - (lambda (_plrh61803_ _c61804_) - (if (member _c61804_ - _sit-tail61785_ - _eq61579_) - (let ((__tmp61911 - (let ((__tmp61912 - (reverse _pl-rhead61782_))) + _pl-rhead6204862057_))))) + (let ((_K6205562091_ (lambda () _pl-tail62045_)) + (_K6205262075_ + (lambda (_plrh62065_ _c62066_) + (if (member _c62066_ + _sit-tail62047_ + _eq61841_) + (let ((__tmp62173 + (let ((__tmp62174 + (reverse _pl-rhead62044_))) (declare (not safe)) - (_get-names61585_ - __tmp61912))) - (__tmp61910 + (_get-names61847_ + __tmp62174))) + (__tmp62172 (let () (declare (not safe)) - (_get-names61585_ - _pl-tail61783_))) - (__tmp61908 - (let ((__tmp61909 - (reverse _sit-rhead61784_))) + (_get-names61847_ + _pl-tail62045_))) + (__tmp62170 + (let ((__tmp62171 + (reverse _sit-rhead62046_))) (declare (not safe)) - (_get-names61585_ - __tmp61909))) - (__tmp61907 + (_get-names61847_ + __tmp62171))) + (__tmp62169 (let () (declare (not safe)) - (_get-names61585_ - _sit-tail61785_))) - (__tmp61906 - (_get-name61581_ _c61804_))) + (_get-names61847_ + _sit-tail62047_))) + (__tmp62168 + (_get-name61843_ _c62066_))) (declare (not safe)) - (_err61586_ + (_err61848_ 'precedence-list-head: - __tmp61911 + __tmp62173 'precedence-list-tail: - __tmp61910 + __tmp62172 'single-inheritance-head: - __tmp61908 + __tmp62170 'single-inheritance-tail: - __tmp61907 + __tmp62169 'super-out-of-order-vs-single-inheritance-tail: - __tmp61906)) - (let ((_g61901_ - (let ((__tmp61903 - (lambda (_g6180561807_) - (_eq61579_ - _c61804_ - _g6180561807_)))) + __tmp62168)) + (let ((_g62163_ + (let ((__tmp62165 + (lambda (_g6206762069_) + (_eq61841_ + _c62066_ + _g6206762069_)))) (declare (not safe)) (append-reverse-until - __tmp61903 - _sit-rhead61784_ - _sit-tail61785_)))) + __tmp62165 + _sit-rhead62046_ + _sit-tail62047_)))) (begin - (let ((_g61902_ + (let ((_g62164_ (let () (declare (not safe)) - (if (##values? _g61901_) + (if (##values? _g62163_) (##vector-length - _g61901_) + _g62163_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g61902_ 2))) + (##fx= _g62164_ 2))) (error "Context expects 2 values" - _g61902_))) - (let ((_sit-rh261810_ + _g62164_))) + (let ((_sit-rh262072_ (let () (declare (not safe)) (##vector-ref - _g61901_ + _g62163_ 0))) - (_sit-tl261811_ + (_sit-tl262073_ (let () (declare (not safe)) (##vector-ref - _g61901_ + _g62163_ 1)))) (if (let () (declare (not safe)) - (null? _sit-rh261810_)) - (let ((__tmp61905 + (null? _sit-rh262072_)) + (let ((__tmp62167 (let () (declare (not safe)) - (cons _c61804_ + (cons _c62066_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pl-tail61783_)))) + _pl-tail62045_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_u61780_ - _plrh61803_ - __tmp61905 + (_u62042_ + _plrh62065_ + __tmp62167 '() - _sit-tl261811_)) - (let ((__tmp61904 - (cdr _sit-rh261810_))) + _sit-tl262073_)) + (let ((__tmp62166 + (cdr _sit-rh262072_))) (declare (not safe)) - (_u61780_ - _plrh61803_ - _pl-tail61783_ - __tmp61904 - _sit-tl261811_)))))))))) - (let ((_try-match6178861825_ + (_u62042_ + _plrh62065_ + _pl-tail62045_ + __tmp62166 + _sit-tl262073_)))))))))) + (let ((_try-match6205062087_ (lambda () (if (let () (declare (not safe)) - (##pair? _pl-rhead6178661795_)) - (let ((_tl6179261818_ + (##pair? _pl-rhead6204862057_)) + (let ((_tl6205462080_ (let () (declare (not safe)) - (##cdr _pl-rhead6178661795_))) - (_hd6179161816_ + (##cdr _pl-rhead6204862057_))) + (_hd6205362078_ (let () (declare (not safe)) - (##car _pl-rhead6178661795_)))) - (let ((_c61821_ _hd6179161816_) - (_plrh61823_ _tl6179261818_)) + (##car _pl-rhead6204862057_)))) + (let ((_c62083_ _hd6205362078_) + (_plrh62085_ _tl6205462080_)) (let () (declare (not safe)) - (_K6179061813_ - _plrh61823_ - _c61821_)))) + (_K6205262075_ + _plrh62085_ + _c62083_)))) (let () (declare (not safe)) - (_E6178961799_)))))) + (_E6205162061_)))))) (if (let () (declare (not safe)) - (##null? _pl-rhead6178661795_)) + (##null? _pl-rhead6204862057_)) (let () (declare (not safe)) - (_K6179361829_)) + (_K6205562091_)) (let () (declare (not safe)) - (_try-match6178861825_))))))))) - (_g61913_ - (let ((_g61914_ - (let ((__tmp61916 (reverse _supers61573_))) + (_try-match6205062087_))))))))) + (_g62175_ + (let ((_g62176_ + (let ((__tmp62178 (reverse _supers61835_))) (declare (not safe)) - (append1! _rpls61588_ __tmp61916)))) + (append1! _rpls61850_ __tmp62178)))) #!void - _g61914_)) - (_g61917_ - (let ((_g61918_ - (set! _pls61583_ - (map _unsitr-rpl61589_ _rpls61588_)))) + _g62176_)) + (_g62179_ + (let ((_g62180_ + (set! _pls61845_ + (map _unsitr-rpl61851_ _rpls61850_)))) #!void - _g61918_)) - (_c3-select-next61590_ - (lambda (_tails61728_) - (let ((_candidate?61734_ - (lambda (_c61730_) - (let ((__tmp61920 - (lambda (_tail61732_) - (let ((__tmp61921 - (member _c61730_ - (cdr _tail61732_) - _eq61579_))) + _g62180_)) + (_c3-select-next61852_ + (lambda (_tails61990_) + (let ((_candidate?61996_ + (lambda (_c61992_) + (let ((__tmp62182 + (lambda (_tail61994_) + (let ((__tmp62183 + (member _c61992_ + (cdr _tail61994_) + _eq61841_))) (declare (not safe)) - (not __tmp61921))))) + (not __tmp62183))))) (declare (not safe)) - (andmap1 __tmp61920 _tails61728_))))) - (let _loop61736_ ((_ts61738_ _tails61728_)) - (let* ((_ts6173961749_ _ts61738_) - (_else6174161757_ + (andmap1 __tmp62182 _tails61990_))))) + (let _loop61998_ ((_ts62000_ _tails61990_)) + (let* ((_ts6200162011_ _ts62000_) + (_else6200362019_ (lambda () (let () (declare (not safe)) - (_err61586_)))) - (_K6174361763_ - (lambda (_rts61760_ _c61761_) + (_err61848_)))) + (_K6200562025_ + (lambda (_rts62022_ _c62023_) (if (let () (declare (not safe)) - (_candidate?61734_ _c61761_)) - _c61761_ + (_candidate?61996_ _c62023_)) + _c62023_ (let () (declare (not safe)) - (_loop61736_ _rts61760_)))))) + (_loop61998_ _rts62022_)))))) (if (let () (declare (not safe)) - (##pair? _ts6173961749_)) - (let ((_hd6174461766_ + (##pair? _ts6200162011_)) + (let ((_hd6200662028_ (let () (declare (not safe)) - (##car _ts6173961749_))) - (_tl6174561768_ + (##car _ts6200162011_))) + (_tl6200762030_ (let () (declare (not safe)) - (##cdr _ts6173961749_)))) + (##cdr _ts6200162011_)))) (if (let () (declare (not safe)) - (##pair? _hd6174461766_)) - (let* ((_hd6174661771_ + (##pair? _hd6200662028_)) + (let* ((_hd6200862033_ (let () (declare (not safe)) - (##car _hd6174461766_))) - (_c61774_ _hd6174661771_) - (_rts61776_ _tl6174561768_)) + (##car _hd6200662028_))) + (_c62036_ _hd6200862033_) + (_rts62038_ _tl6200762030_)) (declare (not safe)) - (_K6174361763_ _rts61776_ _c61774_)) + (_K6200562025_ _rts62038_ _c62036_)) (let () (declare (not safe)) - (_err61586_)))) + (_err61848_)))) (let () (declare (not safe)) - (_err61586_)))))))) - (_remove-next!61591_ - (lambda (_next61673_ _tails61674_) - (let _loop61676_ ((_t61678_ _tails61674_)) - (let* ((_t6167961690_ _t61678_) - (_E6168261694_ + (_err61848_)))))))) + (_remove-next!61853_ + (lambda (_next61935_ _tails61936_) + (let _loop61938_ ((_t61940_ _tails61936_)) + (let* ((_t6194161952_ _t61940_) + (_E6194461956_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _t6167961690_))))) - (let ((_K6168861725_ (lambda () _tails61674_)) - (_K6168361702_ - (lambda (_more61698_ _tail61699_ _head61700_) - (if (_eq61579_ _head61700_ _next61673_) - (set-car! _t61678_ _tail61699_) + _t6194161952_))))) + (let ((_K6195061987_ (lambda () _tails61936_)) + (_K6194561964_ + (lambda (_more61960_ _tail61961_ _head61962_) + (if (_eq61841_ _head61962_ _next61935_) + (set-car! _t61940_ _tail61961_) '#!void) (let () (declare (not safe)) - (_loop61676_ _more61698_))))) - (let ((_try-match6168161721_ + (_loop61938_ _more61960_))))) + (let ((_try-match6194361983_ (lambda () (if (let () (declare (not safe)) - (##pair? _t6167961690_)) - (let ((_tl6168561707_ + (##pair? _t6194161952_)) + (let ((_tl6194761969_ (let () (declare (not safe)) - (##cdr _t6167961690_))) - (_hd6168461705_ + (##cdr _t6194161952_))) + (_hd6194661967_ (let () (declare (not safe)) - (##car _t6167961690_)))) + (##car _t6194161952_)))) (if (let () (declare (not safe)) - (##pair? _hd6168461705_)) - (let ((_tl6168761712_ + (##pair? _hd6194661967_)) + (let ((_tl6194961974_ (let () (declare (not safe)) - (##cdr _hd6168461705_))) - (_hd6168661710_ + (##cdr _hd6194661967_))) + (_hd6194861972_ (let () (declare (not safe)) - (##car _hd6168461705_)))) - (let ((_head61715_ - _hd6168661710_) - (_tail61717_ - _tl6168761712_) - (_more61719_ - _tl6168561707_)) + (##car _hd6194661967_)))) + (let ((_head61977_ + _hd6194861972_) + (_tail61979_ + _tl6194961974_) + (_more61981_ + _tl6194761969_)) (let () (declare (not safe)) - (_K6168361702_ - _more61719_ - _tail61717_ - _head61715_)))) + (_K6194561964_ + _more61981_ + _tail61979_ + _head61977_)))) (let () (declare (not safe)) - (_E6168261694_)))) + (_E6194461956_)))) (let () (declare (not safe)) - (_E6168261694_)))))) + (_E6194461956_)))))) (if (let () (declare (not safe)) - (##null? _t6167961690_)) + (##null? _t6194161952_)) (let () (declare (not safe)) - (_K6168861725_)) + (_K6195061987_)) (let () (declare (not safe)) - (_try-match6168161721_))))))))) - (_precedence-list61592_ - (let _c3loop61623_ ((_rhead61625_ _rhead61572_) - (_tails61626_ _pls61583_)) - (let* ((_tails61628_ + (_try-match6194361983_))))))))) + (_precedence-list61854_ + (let _c3loop61885_ ((_rhead61887_ _rhead61834_) + (_tails61888_ _pls61845_)) + (let* ((_tails61890_ (let () (declare (not safe)) - (remove-nulls! _tails61626_))) - (_tails6162961639_ _tails61628_) - (_else6163261650_ + (remove-nulls! _tails61888_))) + (_tails6189161901_ _tails61890_) + (_else6189461912_ (lambda () - (let ((_next61647_ + (let ((_next61909_ (let () (declare (not safe)) - (_c3-select-next61590_ - _tails61628_)))) - (let ((__tmp61923 + (_c3-select-next61852_ + _tails61890_)))) + (let ((__tmp62185 (let () (declare (not safe)) - (cons _next61647_ _rhead61625_))) - (__tmp61922 + (cons _next61909_ _rhead61887_))) + (__tmp62184 (let () (declare (not safe)) - (_remove-next!61591_ - _next61647_ - _tails61628_)))) + (_remove-next!61853_ + _next61909_ + _tails61890_)))) (declare (not safe)) - (_c3loop61623_ __tmp61923 __tmp61922)))))) - (let ((_K6163761670_ + (_c3loop61885_ __tmp62185 __tmp62184)))))) + (let ((_K6189961932_ (lambda () (let () (declare (not safe)) - (append-reverse _rhead61625_ _sit61584_)))) - (_K6163461656_ - (lambda (_tail61654_) - (let ((__tmp61924 - (append _tail61654_ _sit61584_))) + (append-reverse _rhead61887_ _sit61846_)))) + (_K6189661918_ + (lambda (_tail61916_) + (let ((__tmp62186 + (append _tail61916_ _sit61846_))) (declare (not safe)) (append-reverse - _rhead61625_ - __tmp61924))))) - (let ((_try-match6163161666_ + _rhead61887_ + __tmp62186))))) + (let ((_try-match6189361928_ (lambda () (if (let () (declare (not safe)) - (##pair? _tails6162961639_)) - (let ((_tl6163661661_ + (##pair? _tails6189161901_)) + (let ((_tl6189861923_ (let () (declare (not safe)) - (##cdr _tails6162961639_))) - (_hd6163561659_ + (##cdr _tails6189161901_))) + (_hd6189761921_ (let () (declare (not safe)) - (##car _tails6162961639_)))) + (##car _tails6189161901_)))) (if (let () (declare (not safe)) - (##null? _tl6163661661_)) - (let ((_tail61664_ - _hd6163561659_)) + (##null? _tl6189861923_)) + (let ((_tail61926_ + _hd6189761921_)) (declare (not safe)) - (_K6163461656_ _tail61664_)) + (_K6189661918_ _tail61926_)) (let () (declare (not safe)) - (_else6163261650_)))) + (_else6189461912_)))) (let () (declare (not safe)) - (_else6163261650_)))))) + (_else6189461912_)))))) (if (let () (declare (not safe)) - (##null? _tails6162961639_)) - (let () (declare (not safe)) (_K6163761670_)) + (##null? _tails6189161901_)) + (let () (declare (not safe)) (_K6189961932_)) (let () (declare (not safe)) - (_try-match6163161666_)))))))) - (_super-struct61593_ - (let* ((_sit6159461602_ _sit61584_) - (_else6159661610_ (lambda () '#f)) - (_K6159861615_ (lambda (_s61613_) _s61613_))) + (_try-match6189361928_)))))))) + (_super-struct61855_ + (let* ((_sit6185661864_ _sit61846_) + (_else6185861872_ (lambda () '#f)) + (_K6186061877_ (lambda (_s61875_) _s61875_))) (if (let () (declare (not safe)) - (##pair? _sit6159461602_)) - (let* ((_hd6159961618_ + (##pair? _sit6185661864_)) + (let* ((_hd6186161880_ (let () (declare (not safe)) - (##car _sit6159461602_))) - (_s61621_ _hd6159961618_)) + (##car _sit6185661864_))) + (_s61883_ _hd6186161880_)) (declare (not safe)) - (_K6159861615_ _s61621_)) - (let () (declare (not safe)) (_else6159661610_)))))) - (values _precedence-list61592_ _super-struct61593_))))) + (_K6186061877_ _s61883_)) + (let () (declare (not safe)) (_else6185861872_)))))) + (values _precedence-list61854_ _super-struct61855_))))) (define c4-linearize__@ - (lambda (_keys6155761854_ . _args61856_) + (lambda (_keys6181962116_ . _args62118_) (apply c4-linearize__% - _keys6155761854_ + _keys6181962116_ (let () (declare (not safe)) (symbolic-table-ref - _keys6155761854_ + _keys6181962116_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys6155761854_ 'struct: absent-value)) + (symbolic-table-ref _keys6181962116_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys6155761854_ 'eq: absent-value)) + (symbolic-table-ref _keys6181962116_ 'eq: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys6155761854_ 'get-name: absent-value)) - _args61856_))) + (symbolic-table-ref _keys6181962116_ 'get-name: absent-value)) + _args62118_))) (define c4-linearize - (lambda _args6156261862_ + (lambda _args6182462124_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _args6156261862_))))) + _args6182462124_))))) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index 8d1f79ae..50ad1e0b 100644 --- a/src/bootstrap/gerbil/runtime/control__0.scm +++ b/src/bootstrap/gerbil/runtime/control__0.scm @@ -1,316 +1,316 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1709375797) + (define gerbil/runtime/control::timestamp 1709457368) (begin (define make-promise - (lambda (_thunk61435_) - (let () (declare (not safe)) (##make-delay-promise _thunk61435_)))) + (lambda (_thunk61697_) + (let () (declare (not safe)) (##make-delay-promise _thunk61697_)))) (define call-with-parameters - (lambda (_thunk61383_ . _rest61384_) - (let* ((_rest6138561396_ _rest61384_) - (_E6138861400_ + (lambda (_thunk61645_ . _rest61646_) + (let* ((_rest6164761658_ _rest61646_) + (_E6165061662_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _rest6138561396_))))) - (let ((_K6139061416_ - (lambda (_rest61411_ _val61412_ _param61413_) - (let ((__tmp61447 - (if (let () (declare (not safe)) (null? _rest61411_)) - _thunk61383_ + (error '"No clause matching" _rest6164761658_))))) + (let ((_K6165261678_ + (lambda (_rest61673_ _val61674_ _param61675_) + (let ((__tmp61709 + (if (let () (declare (not safe)) (null? _rest61673_)) + _thunk61645_ (lambda () (apply call-with-parameters - _thunk61383_ - _rest61411_))))) + _thunk61645_ + _rest61673_))))) (declare (not safe)) - (##parameterize1 _param61413_ _val61412_ __tmp61447)))) - (_K6138961405_ (lambda () (_thunk61383_)))) - (let ((_try-match6138761408_ + (##parameterize1 _param61675_ _val61674_ __tmp61709)))) + (_K6165161667_ (lambda () (_thunk61645_)))) + (let ((_try-match6164961670_ (lambda () (if (let () (declare (not safe)) - (##null? _rest6138561396_)) - (let () (declare (not safe)) (_thunk61383_)) - (let () (declare (not safe)) (_E6138861400_)))))) - (if (let () (declare (not safe)) (##pair? _rest6138561396_)) - (let ((_tl6139261421_ + (##null? _rest6164761658_)) + (let () (declare (not safe)) (_thunk61645_)) + (let () (declare (not safe)) (_E6165061662_)))))) + (if (let () (declare (not safe)) (##pair? _rest6164761658_)) + (let ((_tl6165461683_ (let () (declare (not safe)) - (##cdr _rest6138561396_))) - (_hd6139161419_ + (##cdr _rest6164761658_))) + (_hd6165361681_ (let () (declare (not safe)) - (##car _rest6138561396_)))) - (if (let () (declare (not safe)) (##pair? _tl6139261421_)) - (let ((_tl6139461428_ + (##car _rest6164761658_)))) + (if (let () (declare (not safe)) (##pair? _tl6165461683_)) + (let ((_tl6165661690_ (let () (declare (not safe)) - (##cdr _tl6139261421_))) - (_hd6139361426_ + (##cdr _tl6165461683_))) + (_hd6165561688_ (let () (declare (not safe)) - (##car _tl6139261421_)))) - (let ((_param61424_ _hd6139161419_) - (_val61431_ _hd6139361426_) - (_rest61433_ _tl6139461428_)) + (##car _tl6165461683_)))) + (let ((_param61686_ _hd6165361681_) + (_val61693_ _hd6165561688_) + (_rest61695_ _tl6165661690_)) (let () (declare (not safe)) - (_K6139061416_ - _rest61433_ - _val61431_ - _param61424_)))) - (let () (declare (not safe)) (_E6138861400_)))) - (let () (declare (not safe)) (_try-match6138761408_)))))))) + (_K6165261678_ + _rest61695_ + _val61693_ + _param61686_)))) + (let () (declare (not safe)) (_E6165061662_)))) + (let () (declare (not safe)) (_try-match6164961670_)))))))) (define with-unwind-protect - (lambda (_K61376_ _fini61377_) - (let ((_once61379_ '#f)) + (lambda (_K61638_ _fini61639_) + (let ((_once61641_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once61379_ + (if _once61641_ (let () (declare (not safe)) (error '"Cannot re-enter unwind protected block")) - (set! _once61379_ '#t))) - _K61376_ - _fini61377_)))) + (set! _once61641_ '#t))) + _K61638_ + _fini61639_)))) (define keyword-dispatch - (lambda (_kwt61273_ _K61274_ . _all-args61275_) - (if _kwt61273_ - (if (let () (declare (not safe)) (vector? _kwt61273_)) + (lambda (_kwt61535_ _K61536_ . _all-args61537_) + (if _kwt61535_ + (if (let () (declare (not safe)) (vector? _kwt61535_)) '#!void (let () (declare (not safe)) - (error '"expected vector" _kwt61273_))) + (error '"expected vector" _kwt61535_))) '#!void) - (if (let () (declare (not safe)) (procedure? _K61274_)) + (if (let () (declare (not safe)) (procedure? _K61536_)) '#!void (let () (declare (not safe)) - (error '"expected procedure" _K61274_))) - (let ((_keys61277_ + (error '"expected procedure" _K61536_))) + (let ((_keys61539_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _lp61279_ ((_rest61281_ _all-args61275_) - (_args61282_ '#f) - (_tail61283_ '#f)) - (let* ((_rest6128461292_ _rest61281_) - (_else6128661300_ + (let _lp61541_ ((_rest61543_ _all-args61537_) + (_args61544_ '#f) + (_tail61545_ '#f)) + (let* ((_rest6154661554_ _rest61543_) + (_else6154861562_ (lambda () - (if _args61282_ + (if _args61544_ (begin (let () (declare (not safe)) - (##set-cdr! _tail61283_ '())) - (let ((__tmp61448 + (##set-cdr! _tail61545_ '())) + (let ((__tmp61710 (let () (declare (not safe)) - (cons _keys61277_ _args61282_)))) + (cons _keys61539_ _args61544_)))) (declare (not safe)) - (##apply _K61274_ __tmp61448))) - (_K61274_ _keys61277_)))) - (_K6128861364_ - (lambda (_hd-rest61303_ _hd61304_) - (if (keyword? _hd61304_) - (let* ((_hd-rest6130561312_ _hd-rest61303_) - (_E6130761316_ + (##apply _K61536_ __tmp61710))) + (_K61536_ _keys61539_)))) + (_K6155061626_ + (lambda (_hd-rest61565_ _hd61566_) + (if (keyword? _hd61566_) + (let* ((_hd-rest6156761574_ _hd-rest61565_) + (_E6156961578_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _hd-rest6130561312_)))) - (_K6130861324_ - (lambda (_rest61319_ _val61320_) - (if _kwt61273_ - (let ((_pos61322_ - (let ((__tmp61452 - (keyword-hash _hd61304_)) - (__tmp61451 + _hd-rest6156761574_)))) + (_K6157061586_ + (lambda (_rest61581_ _val61582_) + (if _kwt61535_ + (let ((_pos61584_ + (let ((__tmp61714 + (keyword-hash _hd61566_)) + (__tmp61713 (let () (declare (not safe)) (##vector-length - _kwt61273_)))) + _kwt61535_)))) (declare (not safe)) (##fxmodulo - __tmp61452 - __tmp61451)))) - (if (let ((__tmp61453 + __tmp61714 + __tmp61713)))) + (if (let ((__tmp61715 (let () (declare (not safe)) (##vector-ref - _kwt61273_ - _pos61322_)))) + _kwt61535_ + _pos61584_)))) (declare (not safe)) - (eq? _hd61304_ __tmp61453)) + (eq? _hd61566_ __tmp61715)) '#!void (let () (declare (not safe)) (error '"Unexpected keyword argument" - _K61274_ - _hd61304_)))) + _K61536_ + _hd61566_)))) '#!void) - (if (let ((__tmp61454 + (if (let ((__tmp61716 (let () (declare (not safe)) (symbolic-table-ref - _keys61277_ - _hd61304_ + _keys61539_ + _hd61566_ absent-value)))) (declare (not safe)) - (eq? __tmp61454 absent-value)) + (eq? __tmp61716 absent-value)) '#!void (let () (declare (not safe)) (error '"Duplicate keyword argument" - _K61274_ - _hd61304_))) + _K61536_ + _hd61566_))) (let () (declare (not safe)) (symbolic-table-set! - _keys61277_ - _hd61304_ - _val61320_)) + _keys61539_ + _hd61566_ + _val61582_)) (let () (declare (not safe)) - (_lp61279_ - _rest61319_ - _args61282_ - _tail61283_))))) + (_lp61541_ + _rest61581_ + _args61544_ + _tail61545_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6130561312_)) - (let ((_hd6130961327_ + (##pair? _hd-rest6156761574_)) + (let ((_hd6157161589_ (let () (declare (not safe)) - (##car _hd-rest6130561312_))) - (_tl6131061329_ + (##car _hd-rest6156761574_))) + (_tl6157261591_ (let () (declare (not safe)) - (##cdr _hd-rest6130561312_)))) - (let* ((_val61332_ _hd6130961327_) - (_rest61334_ _tl6131061329_)) + (##cdr _hd-rest6156761574_)))) + (let* ((_val61594_ _hd6157161589_) + (_rest61596_ _tl6157261591_)) (declare (not safe)) - (_K6130861324_ _rest61334_ _val61332_))) - (let () (declare (not safe)) (_E6130761316_)))) + (_K6157061586_ _rest61596_ _val61594_))) + (let () (declare (not safe)) (_E6156961578_)))) (if (let () (declare (not safe)) - (eq? _hd61304_ '#!key)) - (let* ((_hd-rest6133561342_ _hd-rest61303_) - (_E6133761346_ + (eq? _hd61566_ '#!key)) + (let* ((_hd-rest6159761604_ _hd-rest61565_) + (_E6159961608_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _hd-rest6133561342_)))) - (_K6133861352_ - (lambda (_rest61349_ _val61350_) - (if _args61282_ + _hd-rest6159761604_)))) + (_K6160061614_ + (lambda (_rest61611_ _val61612_) + (if _args61544_ (begin (let () (declare (not safe)) (##set-cdr! - _tail61283_ - _hd-rest61303_)) + _tail61545_ + _hd-rest61565_)) (let () (declare (not safe)) - (_lp61279_ - _rest61349_ - _args61282_ - _hd-rest61303_))) + (_lp61541_ + _rest61611_ + _args61544_ + _hd-rest61565_))) (let () (declare (not safe)) - (_lp61279_ - _rest61349_ - _hd-rest61303_ - _hd-rest61303_)))))) + (_lp61541_ + _rest61611_ + _hd-rest61565_ + _hd-rest61565_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6133561342_)) - (let ((_hd6133961355_ + (##pair? _hd-rest6159761604_)) + (let ((_hd6160161617_ (let () (declare (not safe)) - (##car _hd-rest6133561342_))) - (_tl6134061357_ + (##car _hd-rest6159761604_))) + (_tl6160261619_ (let () (declare (not safe)) - (##cdr _hd-rest6133561342_)))) - (let* ((_val61360_ _hd6133961355_) - (_rest61362_ _tl6134061357_)) + (##cdr _hd-rest6159761604_)))) + (let* ((_val61622_ _hd6160161617_) + (_rest61624_ _tl6160261619_)) (declare (not safe)) - (_K6133861352_ - _rest61362_ - _val61360_))) + (_K6160061614_ + _rest61624_ + _val61622_))) (let () (declare (not safe)) - (_E6133761346_)))) + (_E6159961608_)))) (if (let () (declare (not safe)) - (eq? _hd61304_ '#!rest)) - (if _args61282_ + (eq? _hd61566_ '#!rest)) + (if _args61544_ (begin (let () (declare (not safe)) (##set-cdr! - _tail61283_ - _hd-rest61303_)) - (let ((__tmp61450 + _tail61545_ + _hd-rest61565_)) + (let ((__tmp61712 (let () (declare (not safe)) - (cons _keys61277_ - _args61282_)))) + (cons _keys61539_ + _args61544_)))) (declare (not safe)) - (##apply _K61274_ __tmp61450))) - (let ((__tmp61449 + (##apply _K61536_ __tmp61712))) + (let ((__tmp61711 (let () (declare (not safe)) - (cons _keys61277_ - _hd-rest61303_)))) + (cons _keys61539_ + _hd-rest61565_)))) (declare (not safe)) - (##apply _K61274_ __tmp61449))) - (if _args61282_ + (##apply _K61536_ __tmp61711))) + (if _args61544_ (begin (let () (declare (not safe)) - (##set-cdr! _tail61283_ _rest61281_)) + (##set-cdr! _tail61545_ _rest61543_)) (let () (declare (not safe)) - (_lp61279_ - _hd-rest61303_ - _args61282_ - _rest61281_))) + (_lp61541_ + _hd-rest61565_ + _args61544_ + _rest61543_))) (let () (declare (not safe)) - (_lp61279_ - _hd-rest61303_ - _rest61281_ - _rest61281_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6128461292_)) - (let ((_hd6128961367_ + (_lp61541_ + _hd-rest61565_ + _rest61543_ + _rest61543_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6154661554_)) + (let ((_hd6155161629_ (let () (declare (not safe)) - (##car _rest6128461292_))) - (_tl6129061369_ + (##car _rest6154661554_))) + (_tl6155261631_ (let () (declare (not safe)) - (##cdr _rest6128461292_)))) - (let* ((_hd61372_ _hd6128961367_) - (_hd-rest61374_ _tl6129061369_)) + (##cdr _rest6154661554_)))) + (let* ((_hd61634_ _hd6155161629_) + (_hd-rest61636_ _tl6155261631_)) (declare (not safe)) - (_K6128861364_ _hd-rest61374_ _hd61372_))) - (let () (declare (not safe)) (_else6128661300_)))))))) + (_K6155061626_ _hd-rest61636_ _hd61634_))) + (let () (declare (not safe)) (_else6154861562_)))))))) (define keyword-rest - (lambda (_kwt61265_ . _drop61266_) - (let ((_rest61268_ '())) - (let ((__tmp61455 - (lambda (_k61270_ _v61271_) - (if (memq _k61270_ _drop61266_) + (lambda (_kwt61527_ . _drop61528_) + (let ((_rest61530_ '())) + (let ((__tmp61717 + (lambda (_k61532_ _v61533_) + (if (memq _k61532_ _drop61528_) '#!void - (set! _rest61268_ - (let ((__tmp61456 + (set! _rest61530_ + (let ((__tmp61718 (let () (declare (not safe)) - (cons _v61271_ _rest61268_)))) + (cons _v61533_ _rest61530_)))) (declare (not safe)) - (cons _k61270_ __tmp61456))))))) + (cons _k61532_ __tmp61718))))))) (declare (not safe)) - (raw-table-for-each _kwt61265_ __tmp61455)) - _rest61268_))))) + (raw-table-for-each _kwt61527_ __tmp61717)) + _rest61530_))))) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index 478fbc21..916dfd4e 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 1709375797) + (define gerbil/runtime/error::timestamp 1709457368) (begin (define Exception::t - (let ((__tmp66685 (list))) + (let ((__tmp66947 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp66685 + __tmp66947 '() '() '#f))) (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args66653_ (apply make-instance Exception::t _$args66653_))) + (lambda _$args66915_ (apply make-instance Exception::t _$args66915_))) (define StackTrace::t - (let ((__tmp66686 (list))) + (let ((__tmp66948 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp66686 + __tmp66948 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args66650_ (apply make-instance StackTrace::t _$args66650_))) + (lambda _$args66912_ (apply make-instance StackTrace::t _$args66912_))) (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 ((__tmp66687 (list StackTrace::t Exception::t))) + (let ((__tmp66949 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp66687 + __tmp66949 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args66647_ (apply make-instance Error::t _$args66647_))) + (lambda _$args66909_ (apply make-instance Error::t _$args66909_))) (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 ((__tmp66688 (list StackTrace::t Exception::t))) + (let ((__tmp66950 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp66688 + __tmp66950 '(exception) '((transparent: . #t)) '#f))) (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args66644_ - (apply make-instance RuntimeException::t _$args66644_))) + (lambda _$args66906_ + (apply make-instance RuntimeException::t _$args66906_))) (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 (_exn66639_ _continue66640_) - (let ((_exn66642_ + (lambda (_exn66901_ _continue66902_) + (let ((_exn66904_ (let () (declare (not safe)) - (wrap-runtime-exception _exn66639_)))) + (wrap-runtime-exception _exn66901_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn66642_ _continue66640_)))) + (##repl-exception-handler-hook _exn66904_ _continue66902_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn66635_) + (lambda (_exn66897_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn66635_)) + (class-instance? StackTrace::t _exn66897_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _exn66635_ 'continuation)) + (unchecked-slot-ref _exn66897_ 'continuation)) '#!void - (let ((__tmp66689 - (lambda (_cont66637_) + (let ((__tmp66951 + (lambda (_cont66899_) (let () (declare (not safe)) (unchecked-slot-set! - _exn66635_ + _exn66897_ 'continuation - _cont66637_))))) + _cont66899_))))) (declare (not safe)) - (##continuation-capture __tmp66689))) + (##continuation-capture __tmp66951))) '#!void) - (let () (declare (not safe)) (##raise _exn66635_)))) + (let () (declare (not safe)) (##raise _exn66897_)))) (define error - (lambda (_message66632_ . _irritants66633_) - (raise (let ((__obj66679 + (lambda (_message66894_ . _irritants66895_) + (raise (let ((__obj66941 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66679 - _message66632_ + __obj66941 + _message66894_ 'irritants: - _irritants66633_) - __obj66679)))) + _irritants66895_) + __obj66941)))) (define with-exception-handler - (lambda (_handler66625_ _thunk66626_) - (if (let () (declare (not safe)) (procedure? _handler66625_)) + (lambda (_handler66887_ _thunk66888_) + (if (let () (declare (not safe)) (procedure? _handler66887_)) '#!void - (raise (let ((__obj66680 + (raise (let ((__obj66942 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66680 + __obj66942 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler66625_ '()))) - __obj66680))) - (if (let () (declare (not safe)) (procedure? _thunk66626_)) + (let () (declare (not safe)) (cons _handler66887_ '()))) + __obj66942))) + (if (let () (declare (not safe)) (procedure? _thunk66888_)) '#!void - (raise (let ((__obj66681 + (raise (let ((__obj66943 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66681 + __obj66943 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk66626_ '()))) - __obj66681))) - (let ((__tmp66690 - (lambda (_exn66628_) - (let ((_exn66630_ + (let () (declare (not safe)) (cons _thunk66888_ '()))) + __obj66943))) + (let ((__tmp66952 + (lambda (_exn66890_) + (let ((_exn66892_ (let () (declare (not safe)) - (wrap-runtime-exception _exn66628_)))) - (_handler66625_ _exn66630_))))) + (wrap-runtime-exception _exn66890_)))) + (_handler66887_ _exn66892_))))) (declare (not safe)) - (##with-exception-handler __tmp66690 _thunk66626_)))) + (##with-exception-handler __tmp66952 _thunk66888_)))) (define with-catch - (lambda (_handler66618_ _thunk66619_) - (if (let () (declare (not safe)) (procedure? _handler66618_)) + (lambda (_handler66880_ _thunk66881_) + (if (let () (declare (not safe)) (procedure? _handler66880_)) '#!void - (raise (let ((__obj66682 + (raise (let ((__obj66944 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66682 + __obj66944 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler66618_ '()))) - __obj66682))) - (if (let () (declare (not safe)) (procedure? _thunk66619_)) + (let () (declare (not safe)) (cons _handler66880_ '()))) + __obj66944))) + (if (let () (declare (not safe)) (procedure? _thunk66881_)) '#!void - (raise (let ((__obj66683 + (raise (let ((__obj66945 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj66683 + __obj66945 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk66619_ '()))) - __obj66683))) - (let ((__tmp66691 - (lambda (_cont66621_) + (let () (declare (not safe)) (cons _thunk66881_ '()))) + __obj66945))) + (let ((__tmp66953 + (lambda (_cont66883_) (with-exception-handler - (lambda (_exn66623_) + (lambda (_exn66885_) (let () (declare (not safe)) (##continuation-graft - _cont66621_ - _handler66618_ - _exn66623_))) - _thunk66619_)))) + _cont66883_ + _handler66880_ + _exn66885_))) + _thunk66881_)))) (declare (not safe)) - (##continuation-capture __tmp66691)))) + (##continuation-capture __tmp66953)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn66609_) + (lambda (_exn66871_) (if (or (let () (declare (not safe)) - (heap-overflow-exception? _exn66609_)) + (heap-overflow-exception? _exn66871_)) (let () (declare (not safe)) - (stack-overflow-exception? _exn66609_))) - _exn66609_ + (stack-overflow-exception? _exn66871_))) + _exn66871_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn66609_)) - _exn66609_ - (if (macro-exception? _exn66609_) - (let ((_rte66614_ - (let ((__obj66684 + (class-instance? Exception::t _exn66871_)) + _exn66871_ + (if (macro-exception? _exn66871_) + (let ((_rte66876_ + (let ((__obj66946 (let () (declare (not safe)) (##structure @@ -321,147 +321,147 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66684 - _exn66609_ + __obj66946 + _exn66871_ '2 RuntimeException::t '#f)) - __obj66684))) - (let ((__tmp66692 - (lambda (_cont66616_) - (let ((__tmp66693 + __obj66946))) + (let ((__tmp66954 + (lambda (_cont66878_) + (let ((__tmp66955 (let () (declare (not safe)) - (##continuation-next _cont66616_)))) + (##continuation-next _cont66878_)))) (declare (not safe)) (unchecked-slot-set! - _rte66614_ + _rte66876_ 'continuation - __tmp66693))))) + __tmp66955))))) (declare (not safe)) - (##continuation-capture __tmp66692)) - _rte66614_) - _exn66609_))))) + (##continuation-capture __tmp66954)) + _rte66876_) + _exn66871_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj66604_) - (let ((_$e66606_ + (lambda (_obj66866_) + (let ((_$e66868_ (let () (declare (not safe)) - (class-instance? Error::t _obj66604_)))) - (if _$e66606_ - _$e66606_ - (let () (declare (not safe)) (error-exception? _obj66604_)))))) + (class-instance? Error::t _obj66866_)))) + (if _$e66868_ + _$e66868_ + (let () (declare (not safe)) (error-exception? _obj66866_)))))) (define error-message - (lambda (_obj66602_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj66602_)) + (lambda (_obj66864_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj66864_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj66602_ 'message)) - (if (let () (declare (not safe)) (error-exception? _obj66602_)) + (unchecked-slot-ref _obj66864_ 'message)) + (if (let () (declare (not safe)) (error-exception? _obj66864_)) (let () (declare (not safe)) - (error-exception-message _obj66602_)) + (error-exception-message _obj66864_)) '#f)))) (define error-irritants - (lambda (_obj66600_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj66600_)) + (lambda (_obj66862_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj66862_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj66600_ 'irritants)) - (if (let () (declare (not safe)) (error-exception? _obj66600_)) + (unchecked-slot-ref _obj66862_ 'irritants)) + (if (let () (declare (not safe)) (error-exception? _obj66862_)) (let () (declare (not safe)) - (error-exception-parameters _obj66600_)) + (error-exception-parameters _obj66862_)) '#f)))) (define error-trace - (lambda (_obj66598_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj66598_)) + (lambda (_obj66860_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj66860_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj66598_ 'where)) + (unchecked-slot-ref _obj66860_ 'where)) '#f))) (define display-exception__% - (lambda (_e66580_ _port66581_) - (let ((_$e66583_ + (lambda (_e66842_ _port66843_) + (let ((_$e66845_ (let () (declare (not safe)) - (method-ref _e66580_ 'display-exception)))) - (if _$e66583_ - ((lambda (_f66586_) (_f66586_ _e66580_ _port66581_)) _$e66583_) + (method-ref _e66842_ 'display-exception)))) + (if _$e66845_ + ((lambda (_f66848_) (_f66848_ _e66842_ _port66843_)) _$e66845_) (let () (declare (not safe)) - (##default-display-exception _e66580_ _port66581_)))))) + (##default-display-exception _e66842_ _port66843_)))))) (define display-exception__0 - (lambda (_e66591_) - (let ((_port66593_ (current-error-port))) + (lambda (_e66853_) + (let ((_port66855_ (current-error-port))) (declare (not safe)) - (display-exception__% _e66591_ _port66593_)))) + (display-exception__% _e66853_ _port66855_)))) (define display-exception - (lambda _g66695_ - (let ((_g66694_ (let () (declare (not safe)) (##length _g66695_)))) - (cond ((let () (declare (not safe)) (##fx= _g66694_ 1)) - (apply (lambda (_e66591_) + (lambda _g66957_ + (let ((_g66956_ (let () (declare (not safe)) (##length _g66957_)))) + (cond ((let () (declare (not safe)) (##fx= _g66956_ 1)) + (apply (lambda (_e66853_) (let () (declare (not safe)) - (display-exception__0 _e66591_))) - _g66695_)) - ((let () (declare (not safe)) (##fx= _g66694_ 2)) - (apply (lambda (_e66595_ _port66596_) + (display-exception__0 _e66853_))) + _g66957_)) + ((let () (declare (not safe)) (##fx= _g66956_ 2)) + (apply (lambda (_e66857_ _port66858_) (let () (declare (not safe)) - (display-exception__% _e66595_ _port66596_))) - _g66695_)) + (display-exception__% _e66857_ _port66858_))) + _g66957_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g66695_)))))) + _g66957_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self66569_ _message66570_ . _rest66571_) - (let ((_message66577_ - (if (let () (declare (not safe)) (string? _message66570_)) - _message66570_ + (lambda (_self66831_ _message66832_ . _rest66833_) + (let ((_message66839_ + (if (let () (declare (not safe)) (string? _message66832_)) + _message66832_ (call-with-output-string '"" - (lambda (_g6657266574_) - (display _message66570_ _g6657266574_)))))) + (lambda (_g6683466836_) + (display _message66832_ _g6683466836_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self66569_ 'message _message66577_)) - (apply class-instance-init! _self66569_ _rest66571_)))) + (unchecked-slot-set! _self66831_ 'message _message66839_)) + (apply class-instance-init! _self66831_ _rest66833_)))) (define Error:::init!::specialize - (lambda (__klass66655 __method-table66656) - (let ((__message66657 - (let ((__slot66658 + (lambda (__klass66917 __method-table66918) + (let ((__message66919 + (let ((__slot66920 (let () (declare (not safe)) - (class-slot-offset __klass66655 'message)))) - (if __slot66658 - __slot66658 + (class-slot-offset __klass66917 'message)))) + (if __slot66920 + __slot66920 (let () (declare (not safe)) (error '"Unknown slot" 'message)))))) - (lambda (_self66569_ _message66570_ . _rest66571_) - (let ((_message66577_ - (if (let () (declare (not safe)) (string? _message66570_)) - _message66570_ + (lambda (_self66831_ _message66832_ . _rest66833_) + (let ((_message66839_ + (if (let () (declare (not safe)) (string? _message66832_)) + _message66832_ (call-with-output-string '"" - (lambda (_g6657266574_) - (display _message66570_ _g6657266574_)))))) + (lambda (_g6683466836_) + (display _message66832_ _g6683466836_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self66569_ - _message66577_ - __message66657 - __klass66655 + _self66831_ + _message66839_ + __message66919 + __klass66917 '#f)) - (apply class-instance-init! _self66569_ _rest66571_)))))) + (apply class-instance-init! _self66831_ _rest66833_)))))) (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 '#t)) (define Error::display-exception - (lambda (_self66427_ _port66428_) - (let ((_tmp-port66430_ (open-output-string)) - (_display-error-newline66431_ - (> (output-port-column _port66428_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port66430_)) - (let ((__tmp66696 + (lambda (_self66689_ _port66690_) + (let ((_tmp-port66692_ (open-output-string)) + (_display-error-newline66693_ + (> (output-port-column _port66690_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port66692_)) + (let ((__tmp66958 (lambda () - (if _display-error-newline66431_ (newline) '#!void) + (if _display-error-newline66693_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e66434_ + (let ((_$e66696_ (let () (declare (not safe)) - (unchecked-slot-ref _self66427_ 'where)))) - (if _$e66434_ (display _$e66434_) (display '"?"))) - (let ((__tmp66697 - (let ((__tmp66698 (object-type _self66427_))) + (unchecked-slot-ref _self66689_ 'where)))) + (if _$e66696_ (display _$e66696_) (display '"?"))) + (let ((__tmp66959 + (let ((__tmp66960 (object-type _self66689_))) (declare (not safe)) - (##type-name __tmp66698)))) + (##type-name __tmp66960)))) (declare (not safe)) - (display* '" [" __tmp66697 '"]: ")) - (let ((__tmp66699 + (display* '" [" __tmp66959 '"]: ")) + (let ((__tmp66961 (let () (declare (not safe)) - (unchecked-slot-ref _self66427_ 'message)))) + (unchecked-slot-ref _self66689_ 'message)))) (declare (not safe)) - (displayln __tmp66699)) - (let ((_irritants66437_ + (displayln __tmp66961)) + (let ((_irritants66699_ (let () (declare (not safe)) - (unchecked-slot-ref _self66427_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants66437_)) + (unchecked-slot-ref _self66689_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants66699_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj66439_) - (write _obj66439_) + (lambda (_obj66701_) + (write _obj66701_) (write-char '#\space)) - _irritants66437_) + _irritants66699_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self66427_)) + (class-instance? StackTrace::t _self66689_)) (dump-stack-trace?)) - (let ((_cont6644066442_ + (let ((_cont6670266704_ (let () (declare (not safe)) (unchecked-slot-ref - _self66427_ + _self66689_ 'continuation)))) - (if _cont6644066442_ - (let ((_cont66445_ _cont6644066442_)) + (if _cont6670266704_ + (let ((_cont66707_ _cont6670266704_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont66445_)) + (display-continuation-backtrace _cont66707_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp66696 + __tmp66958 current-output-port - _tmp-port66430_)) - (let ((__tmp66700 (get-output-string _tmp-port66430_))) + _tmp-port66692_)) + (let ((__tmp66962 (get-output-string _tmp-port66692_))) (declare (not safe)) - (##write-string __tmp66700 _port66428_))))) + (##write-string __tmp66962 _port66690_))))) (define Error::display-exception::specialize - (lambda (__klass66659 __method-table66660) - (let ((__irritants66661 - (let ((__slot66665 + (lambda (__klass66921 __method-table66922) + (let ((__irritants66923 + (let ((__slot66927 (let () (declare (not safe)) - (class-slot-offset __klass66659 'irritants)))) - (if __slot66665 - __slot66665 + (class-slot-offset __klass66921 'irritants)))) + (if __slot66927 + __slot66927 (let () (declare (not safe)) (error '"Unknown slot" 'irritants))))) - (__continuation66662 - (let ((__slot66666 + (__message66924 + (let ((__slot66928 (let () (declare (not safe)) - (class-slot-offset __klass66659 'continuation)))) - (if __slot66666 - __slot66666 + (class-slot-offset __klass66921 'message)))) + (if __slot66928 + __slot66928 (let () (declare (not safe)) - (error '"Unknown slot" 'continuation))))) - (__where66663 - (let ((__slot66667 + (error '"Unknown slot" 'message))))) + (__where66925 + (let ((__slot66929 (let () (declare (not safe)) - (class-slot-offset __klass66659 'where)))) - (if __slot66667 - __slot66667 + (class-slot-offset __klass66921 'where)))) + (if __slot66929 + __slot66929 (let () (declare (not safe)) (error '"Unknown slot" 'where))))) - (__message66664 - (let ((__slot66668 + (__continuation66926 + (let ((__slot66930 (let () (declare (not safe)) - (class-slot-offset __klass66659 'message)))) - (if __slot66668 - __slot66668 + (class-slot-offset __klass66921 'continuation)))) + (if __slot66930 + __slot66930 (let () (declare (not safe)) - (error '"Unknown slot" 'message)))))) - (lambda (_self66427_ _port66428_) - (let ((_tmp-port66430_ (open-output-string)) - (_display-error-newline66431_ - (> (output-port-column _port66428_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port66430_)) - (let ((__tmp66701 + (error '"Unknown slot" 'continuation)))))) + (lambda (_self66689_ _port66690_) + (let ((_tmp-port66692_ (open-output-string)) + (_display-error-newline66693_ + (> (output-port-column _port66690_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port66692_)) + (let ((__tmp66963 (lambda () - (if _display-error-newline66431_ (newline) '#!void) + (if _display-error-newline66693_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e66434_ + (let ((_$e66696_ (let () (declare (not safe)) (##unchecked-structure-ref - _self66427_ - __where66663 - __klass66659 + _self66689_ + __where66925 + __klass66921 '#f)))) - (if _$e66434_ (display _$e66434_) (display '"?"))) - (let ((__tmp66702 - (let ((__tmp66703 (object-type _self66427_))) + (if _$e66696_ (display _$e66696_) (display '"?"))) + (let ((__tmp66964 + (let ((__tmp66965 (object-type _self66689_))) (declare (not safe)) - (##type-name __tmp66703)))) + (##type-name __tmp66965)))) (declare (not safe)) - (display* '" [" __tmp66702 '"]: ")) - (let ((__tmp66704 + (display* '" [" __tmp66964 '"]: ")) + (let ((__tmp66966 (let () (declare (not safe)) (##unchecked-structure-ref - _self66427_ - __message66664 - __klass66659 + _self66689_ + __message66924 + __klass66921 '#f)))) (declare (not safe)) - (displayln __tmp66704)) - (let ((_irritants66437_ + (displayln __tmp66966)) + (let ((_irritants66699_ (let () (declare (not safe)) (##unchecked-structure-ref - _self66427_ - __irritants66661 - __klass66659 + _self66689_ + __irritants66923 + __klass66921 '#f)))) (if (let () (declare (not safe)) - (null? _irritants66437_)) + (null? _irritants66699_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj66439_) - (write _obj66439_) + (lambda (_obj66701_) + (write _obj66701_) (write-char '#\space)) - _irritants66437_) + _irritants66699_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self66427_)) + (class-instance? StackTrace::t _self66689_)) (dump-stack-trace?)) - (let ((_cont6644066442_ + (let ((_cont6670266704_ (let () (declare (not safe)) (##unchecked-structure-ref - _self66427_ - __continuation66662 - __klass66659 + _self66689_ + __continuation66926 + __klass66921 '#f)))) - (if _cont6644066442_ - (let ((_cont66445_ _cont6644066442_)) + (if _cont6670266704_ + (let ((_cont66707_ _cont6670266704_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont66445_)) + _cont66707_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp66701 + __tmp66963 current-output-port - _tmp-port66430_)) - (let ((__tmp66705 (get-output-string _tmp-port66430_))) + _tmp-port66692_)) + (let ((__tmp66967 (get-output-string _tmp-port66692_))) (declare (not safe)) - (##write-string __tmp66705 _port66428_))))))) + (##write-string __tmp66967 _port66690_))))))) (let () (declare (not safe)) (bind-specializer! @@ -675,89 +675,89 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self66294_ _port66295_) - (let ((_tmp-port66297_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port66297_)) - (let ((__tmp66706 + (lambda (_self66556_ _port66557_) + (let ((_tmp-port66559_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port66559_)) + (let ((__tmp66968 (let () (declare (not safe)) - (unchecked-slot-ref _self66294_ 'exception)))) + (unchecked-slot-ref _self66556_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp66706 _tmp-port66297_)) + (##default-display-exception __tmp66968 _tmp-port66559_)) (if (dump-stack-trace?) - (let ((_cont6629866300_ + (let ((_cont6656066562_ (let () (declare (not safe)) - (unchecked-slot-ref _self66294_ 'continuation)))) - (if _cont6629866300_ - (let ((_cont66303_ _cont6629866300_)) - (display '"--- continuation backtrace:" _tmp-port66297_) - (newline _tmp-port66297_) + (unchecked-slot-ref _self66556_ 'continuation)))) + (if _cont6656066562_ + (let ((_cont66565_ _cont6656066562_)) + (display '"--- continuation backtrace:" _tmp-port66559_) + (newline _tmp-port66559_) (display-continuation-backtrace - _cont66303_ - _tmp-port66297_)) + _cont66565_ + _tmp-port66559_)) '#f)) '#!void) - (let ((__tmp66707 (get-output-string _tmp-port66297_))) + (let ((__tmp66969 (get-output-string _tmp-port66559_))) (declare (not safe)) - (##write-string __tmp66707 _port66295_))))) + (##write-string __tmp66969 _port66557_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass66669 __method-table66670) - (let ((__exception66671 - (let ((__slot66673 + (lambda (__klass66931 __method-table66932) + (let ((__exception66933 + (let ((__slot66935 (let () (declare (not safe)) - (class-slot-offset __klass66669 'exception)))) - (if __slot66673 - __slot66673 + (class-slot-offset __klass66931 'exception)))) + (if __slot66935 + __slot66935 (let () (declare (not safe)) (error '"Unknown slot" 'exception))))) - (__continuation66672 - (let ((__slot66674 + (__continuation66934 + (let ((__slot66936 (let () (declare (not safe)) - (class-slot-offset __klass66669 'continuation)))) - (if __slot66674 - __slot66674 + (class-slot-offset __klass66931 'continuation)))) + (if __slot66936 + __slot66936 (let () (declare (not safe)) (error '"Unknown slot" 'continuation)))))) - (lambda (_self66294_ _port66295_) - (let ((_tmp-port66297_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port66297_)) - (let ((__tmp66708 + (lambda (_self66556_ _port66557_) + (let ((_tmp-port66559_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port66559_)) + (let ((__tmp66970 (let () (declare (not safe)) (##unchecked-structure-ref - _self66294_ - __exception66671 - __klass66669 + _self66556_ + __exception66933 + __klass66931 '#f)))) (declare (not safe)) - (##default-display-exception __tmp66708 _tmp-port66297_)) + (##default-display-exception __tmp66970 _tmp-port66559_)) (if (dump-stack-trace?) - (let ((_cont6629866300_ + (let ((_cont6656066562_ (let () (declare (not safe)) (##unchecked-structure-ref - _self66294_ - __continuation66672 - __klass66669 + _self66556_ + __continuation66934 + __klass66931 '#f)))) - (if _cont6629866300_ - (let ((_cont66303_ _cont6629866300_)) + (if _cont6656066562_ + (let ((_cont66565_ _cont6656066562_)) (display '"--- continuation backtrace:" - _tmp-port66297_) - (newline _tmp-port66297_) + _tmp-port66559_) + (newline _tmp-port66559_) (display-continuation-backtrace - _cont66303_ - _tmp-port66297_)) + _cont66565_ + _tmp-port66559_)) '#f)) '#!void) - (let ((__tmp66709 (get-output-string _tmp-port66297_))) + (let ((__tmp66971 (get-output-string _tmp-port66559_))) (declare (not safe)) - (##write-string __tmp66709 _port66295_))))))) + (##write-string __tmp66971 _port66557_))))))) (let () (declare (not safe)) (bind-specializer! @@ -771,4092 +771,4092 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port66166_) - (if (macro-character-port? _port66166_) - (let ((_old-width66168_ - (macro-character-port-output-width _port66166_))) + (lambda (_port66428_) + (if (macro-character-port? _port66428_) + (let ((_old-width66430_ + (macro-character-port-output-width _port66428_))) (macro-character-port-output-width-set! - _port66166_ - (lambda (_port66170_) '256)) - _old-width66168_) + _port66428_ + (lambda (_port66432_) '256)) + _old-width66430_) '#!void))) (define reset-port-width! - (lambda (_port66163_ _old-width66164_) - (if (macro-character-port? _port66163_) + (lambda (_port66425_ _old-width66426_) + (if (macro-character-port? _port66425_) (macro-character-port-output-width-set! - _port66163_ - _old-width66164_) + _port66425_ + _old-width66426_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e66161_) + (lambda (_e66423_) (macro-readenv-filepos (let () (declare (not safe)) - (datum-parsing-exception-readenv _e66161_))))) + (datum-parsing-exception-readenv _e66423_))))) (define abandoned-mutex-exception? - (lambda (_exn66155_) + (lambda (_exn66417_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66155_)) - (let ((_e66158_ + (class-instance? RuntimeException::t _exn66417_)) + (let ((_e66420_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66155_ 'exception)))) - (macro-abandoned-mutex-exception? _e66158_)) - (macro-abandoned-mutex-exception? _exn66155_)))) + (unchecked-slot-ref _exn66417_ 'exception)))) + (macro-abandoned-mutex-exception? _e66420_)) + (macro-abandoned-mutex-exception? _exn66417_)))) (define cfun-conversion-exception? - (lambda (_exn66151_) + (lambda (_exn66413_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66151_)) - (let ((_e66153_ + (class-instance? RuntimeException::t _exn66413_)) + (let ((_e66415_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66151_ 'exception)))) - (macro-cfun-conversion-exception? _e66153_)) - (macro-cfun-conversion-exception? _exn66151_)))) + (unchecked-slot-ref _exn66413_ 'exception)))) + (macro-cfun-conversion-exception? _e66415_)) + (macro-cfun-conversion-exception? _exn66413_)))) (define cfun-conversion-exception-arguments - (lambda (_exn66147_) + (lambda (_exn66409_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66147_)) - (let ((_e66149_ + (class-instance? RuntimeException::t _exn66409_)) + (let ((_e66411_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66147_ 'exception)))) - (if (macro-cfun-conversion-exception? _e66149_) - (macro-cfun-conversion-exception-arguments _e66149_) - (let ((__tmp66712 - (let ((__tmp66713 + (unchecked-slot-ref _exn66409_ 'exception)))) + (if (macro-cfun-conversion-exception? _e66411_) + (macro-cfun-conversion-exception-arguments _e66411_) + (let ((__tmp66974 + (let ((__tmp66975 (let () (declare (not safe)) - (cons _e66149_ '())))) + (cons _e66411_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp66713)))) + __tmp66975)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66712)))) - (if (macro-cfun-conversion-exception? _exn66147_) - (macro-cfun-conversion-exception-arguments _exn66147_) - (let ((__tmp66710 - (let ((__tmp66711 + __tmp66974)))) + (if (macro-cfun-conversion-exception? _exn66409_) + (macro-cfun-conversion-exception-arguments _exn66409_) + (let ((__tmp66972 + (let ((__tmp66973 (let () (declare (not safe)) - (cons _exn66147_ '())))) + (cons _exn66409_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp66711)))) + __tmp66973)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66710)))))) + __tmp66972)))))) (define cfun-conversion-exception-code - (lambda (_exn66143_) + (lambda (_exn66405_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66143_)) - (let ((_e66145_ + (class-instance? RuntimeException::t _exn66405_)) + (let ((_e66407_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66143_ 'exception)))) - (if (macro-cfun-conversion-exception? _e66145_) - (macro-cfun-conversion-exception-code _e66145_) - (let ((__tmp66716 - (let ((__tmp66717 + (unchecked-slot-ref _exn66405_ 'exception)))) + (if (macro-cfun-conversion-exception? _e66407_) + (macro-cfun-conversion-exception-code _e66407_) + (let ((__tmp66978 + (let ((__tmp66979 (let () (declare (not safe)) - (cons _e66145_ '())))) + (cons _e66407_ '())))) (declare (not safe)) - (cons 'cfun-conversion-exception-code __tmp66717)))) + (cons 'cfun-conversion-exception-code __tmp66979)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66716)))) - (if (macro-cfun-conversion-exception? _exn66143_) - (macro-cfun-conversion-exception-code _exn66143_) - (let ((__tmp66714 - (let ((__tmp66715 + __tmp66978)))) + (if (macro-cfun-conversion-exception? _exn66405_) + (macro-cfun-conversion-exception-code _exn66405_) + (let ((__tmp66976 + (let ((__tmp66977 (let () (declare (not safe)) - (cons _exn66143_ '())))) + (cons _exn66405_ '())))) (declare (not safe)) - (cons 'cfun-conversion-exception-code __tmp66715)))) + (cons 'cfun-conversion-exception-code __tmp66977)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66714)))))) + __tmp66976)))))) (define cfun-conversion-exception-message - (lambda (_exn66139_) + (lambda (_exn66401_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66139_)) - (let ((_e66141_ + (class-instance? RuntimeException::t _exn66401_)) + (let ((_e66403_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66139_ 'exception)))) - (if (macro-cfun-conversion-exception? _e66141_) - (macro-cfun-conversion-exception-message _e66141_) - (let ((__tmp66720 - (let ((__tmp66721 + (unchecked-slot-ref _exn66401_ 'exception)))) + (if (macro-cfun-conversion-exception? _e66403_) + (macro-cfun-conversion-exception-message _e66403_) + (let ((__tmp66982 + (let ((__tmp66983 (let () (declare (not safe)) - (cons _e66141_ '())))) + (cons _e66403_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp66721)))) + __tmp66983)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66720)))) - (if (macro-cfun-conversion-exception? _exn66139_) - (macro-cfun-conversion-exception-message _exn66139_) - (let ((__tmp66718 - (let ((__tmp66719 + __tmp66982)))) + (if (macro-cfun-conversion-exception? _exn66401_) + (macro-cfun-conversion-exception-message _exn66401_) + (let ((__tmp66980 + (let ((__tmp66981 (let () (declare (not safe)) - (cons _exn66139_ '())))) + (cons _exn66401_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp66719)))) + __tmp66981)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66718)))))) + __tmp66980)))))) (define cfun-conversion-exception-procedure - (lambda (_exn66133_) + (lambda (_exn66395_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66133_)) - (let ((_e66136_ + (class-instance? RuntimeException::t _exn66395_)) + (let ((_e66398_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66133_ 'exception)))) - (if (macro-cfun-conversion-exception? _e66136_) - (macro-cfun-conversion-exception-procedure _e66136_) - (let ((__tmp66724 - (let ((__tmp66725 + (unchecked-slot-ref _exn66395_ 'exception)))) + (if (macro-cfun-conversion-exception? _e66398_) + (macro-cfun-conversion-exception-procedure _e66398_) + (let ((__tmp66986 + (let ((__tmp66987 (let () (declare (not safe)) - (cons _e66136_ '())))) + (cons _e66398_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp66725)))) + __tmp66987)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66724)))) - (if (macro-cfun-conversion-exception? _exn66133_) - (macro-cfun-conversion-exception-procedure _exn66133_) - (let ((__tmp66722 - (let ((__tmp66723 + __tmp66986)))) + (if (macro-cfun-conversion-exception? _exn66395_) + (macro-cfun-conversion-exception-procedure _exn66395_) + (let ((__tmp66984 + (let ((__tmp66985 (let () (declare (not safe)) - (cons _exn66133_ '())))) + (cons _exn66395_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp66723)))) + __tmp66985)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp66722)))))) + __tmp66984)))))) (define datum-parsing-exception? - (lambda (_exn66129_) + (lambda (_exn66391_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66129_)) - (let ((_e66131_ + (class-instance? RuntimeException::t _exn66391_)) + (let ((_e66393_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66129_ 'exception)))) - (macro-datum-parsing-exception? _e66131_)) - (macro-datum-parsing-exception? _exn66129_)))) + (unchecked-slot-ref _exn66391_ 'exception)))) + (macro-datum-parsing-exception? _e66393_)) + (macro-datum-parsing-exception? _exn66391_)))) (define datum-parsing-exception-kind - (lambda (_exn66125_) + (lambda (_exn66387_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66125_)) - (let ((_e66127_ + (class-instance? RuntimeException::t _exn66387_)) + (let ((_e66389_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66125_ 'exception)))) - (if (macro-datum-parsing-exception? _e66127_) - (macro-datum-parsing-exception-kind _e66127_) - (let ((__tmp66728 - (let ((__tmp66729 + (unchecked-slot-ref _exn66387_ 'exception)))) + (if (macro-datum-parsing-exception? _e66389_) + (macro-datum-parsing-exception-kind _e66389_) + (let ((__tmp66990 + (let ((__tmp66991 (let () (declare (not safe)) - (cons _e66127_ '())))) + (cons _e66389_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp66729)))) + (cons 'datum-parsing-exception-kind __tmp66991)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66728)))) - (if (macro-datum-parsing-exception? _exn66125_) - (macro-datum-parsing-exception-kind _exn66125_) - (let ((__tmp66726 - (let ((__tmp66727 + __tmp66990)))) + (if (macro-datum-parsing-exception? _exn66387_) + (macro-datum-parsing-exception-kind _exn66387_) + (let ((__tmp66988 + (let ((__tmp66989 (let () (declare (not safe)) - (cons _exn66125_ '())))) + (cons _exn66387_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp66727)))) + (cons 'datum-parsing-exception-kind __tmp66989)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66726)))))) + __tmp66988)))))) (define datum-parsing-exception-parameters - (lambda (_exn66121_) + (lambda (_exn66383_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66121_)) - (let ((_e66123_ + (class-instance? RuntimeException::t _exn66383_)) + (let ((_e66385_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66121_ 'exception)))) - (if (macro-datum-parsing-exception? _e66123_) - (macro-datum-parsing-exception-parameters _e66123_) - (let ((__tmp66732 - (let ((__tmp66733 + (unchecked-slot-ref _exn66383_ 'exception)))) + (if (macro-datum-parsing-exception? _e66385_) + (macro-datum-parsing-exception-parameters _e66385_) + (let ((__tmp66994 + (let ((__tmp66995 (let () (declare (not safe)) - (cons _e66123_ '())))) + (cons _e66385_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp66733)))) + __tmp66995)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66732)))) - (if (macro-datum-parsing-exception? _exn66121_) - (macro-datum-parsing-exception-parameters _exn66121_) - (let ((__tmp66730 - (let ((__tmp66731 + __tmp66994)))) + (if (macro-datum-parsing-exception? _exn66383_) + (macro-datum-parsing-exception-parameters _exn66383_) + (let ((__tmp66992 + (let ((__tmp66993 (let () (declare (not safe)) - (cons _exn66121_ '())))) + (cons _exn66383_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp66731)))) + __tmp66993)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66730)))))) + __tmp66992)))))) (define datum-parsing-exception-readenv - (lambda (_exn66115_) + (lambda (_exn66377_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66115_)) - (let ((_e66118_ + (class-instance? RuntimeException::t _exn66377_)) + (let ((_e66380_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66115_ 'exception)))) - (if (macro-datum-parsing-exception? _e66118_) - (macro-datum-parsing-exception-readenv _e66118_) - (let ((__tmp66736 - (let ((__tmp66737 + (unchecked-slot-ref _exn66377_ 'exception)))) + (if (macro-datum-parsing-exception? _e66380_) + (macro-datum-parsing-exception-readenv _e66380_) + (let ((__tmp66998 + (let ((__tmp66999 (let () (declare (not safe)) - (cons _e66118_ '())))) + (cons _e66380_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp66737)))) + __tmp66999)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66736)))) - (if (macro-datum-parsing-exception? _exn66115_) - (macro-datum-parsing-exception-readenv _exn66115_) - (let ((__tmp66734 - (let ((__tmp66735 + __tmp66998)))) + (if (macro-datum-parsing-exception? _exn66377_) + (macro-datum-parsing-exception-readenv _exn66377_) + (let ((__tmp66996 + (let ((__tmp66997 (let () (declare (not safe)) - (cons _exn66115_ '())))) + (cons _exn66377_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-readenv __tmp66735)))) + (cons 'datum-parsing-exception-readenv __tmp66997)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp66734)))))) + __tmp66996)))))) (define deadlock-exception? - (lambda (_exn66109_) + (lambda (_exn66371_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66109_)) - (let ((_e66112_ + (class-instance? RuntimeException::t _exn66371_)) + (let ((_e66374_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66109_ 'exception)))) - (macro-deadlock-exception? _e66112_)) - (macro-deadlock-exception? _exn66109_)))) + (unchecked-slot-ref _exn66371_ 'exception)))) + (macro-deadlock-exception? _e66374_)) + (macro-deadlock-exception? _exn66371_)))) (define divide-by-zero-exception? - (lambda (_exn66105_) + (lambda (_exn66367_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66105_)) - (let ((_e66107_ + (class-instance? RuntimeException::t _exn66367_)) + (let ((_e66369_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66105_ 'exception)))) - (macro-divide-by-zero-exception? _e66107_)) - (macro-divide-by-zero-exception? _exn66105_)))) + (unchecked-slot-ref _exn66367_ 'exception)))) + (macro-divide-by-zero-exception? _e66369_)) + (macro-divide-by-zero-exception? _exn66367_)))) (define divide-by-zero-exception-arguments - (lambda (_exn66101_) + (lambda (_exn66363_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66101_)) - (let ((_e66103_ + (class-instance? RuntimeException::t _exn66363_)) + (let ((_e66365_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66101_ 'exception)))) - (if (macro-divide-by-zero-exception? _e66103_) - (macro-divide-by-zero-exception-arguments _e66103_) - (let ((__tmp66740 - (let ((__tmp66741 + (unchecked-slot-ref _exn66363_ 'exception)))) + (if (macro-divide-by-zero-exception? _e66365_) + (macro-divide-by-zero-exception-arguments _e66365_) + (let ((__tmp67002 + (let ((__tmp67003 (let () (declare (not safe)) - (cons _e66103_ '())))) + (cons _e66365_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp66741)))) + __tmp67003)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp66740)))) - (if (macro-divide-by-zero-exception? _exn66101_) - (macro-divide-by-zero-exception-arguments _exn66101_) - (let ((__tmp66738 - (let ((__tmp66739 + __tmp67002)))) + (if (macro-divide-by-zero-exception? _exn66363_) + (macro-divide-by-zero-exception-arguments _exn66363_) + (let ((__tmp67000 + (let ((__tmp67001 (let () (declare (not safe)) - (cons _exn66101_ '())))) + (cons _exn66363_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp66739)))) + __tmp67001)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp66738)))))) + __tmp67000)))))) (define divide-by-zero-exception-procedure - (lambda (_exn66095_) + (lambda (_exn66357_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66095_)) - (let ((_e66098_ + (class-instance? RuntimeException::t _exn66357_)) + (let ((_e66360_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66095_ 'exception)))) - (if (macro-divide-by-zero-exception? _e66098_) - (macro-divide-by-zero-exception-procedure _e66098_) - (let ((__tmp66744 - (let ((__tmp66745 + (unchecked-slot-ref _exn66357_ 'exception)))) + (if (macro-divide-by-zero-exception? _e66360_) + (macro-divide-by-zero-exception-procedure _e66360_) + (let ((__tmp67006 + (let ((__tmp67007 (let () (declare (not safe)) - (cons _e66098_ '())))) + (cons _e66360_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp66745)))) + __tmp67007)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp66744)))) - (if (macro-divide-by-zero-exception? _exn66095_) - (macro-divide-by-zero-exception-procedure _exn66095_) - (let ((__tmp66742 - (let ((__tmp66743 + __tmp67006)))) + (if (macro-divide-by-zero-exception? _exn66357_) + (macro-divide-by-zero-exception-procedure _exn66357_) + (let ((__tmp67004 + (let ((__tmp67005 (let () (declare (not safe)) - (cons _exn66095_ '())))) + (cons _exn66357_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp66743)))) + __tmp67005)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp66742)))))) + __tmp67004)))))) (define error-exception? - (lambda (_exn66091_) + (lambda (_exn66353_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66091_)) - (let ((_e66093_ + (class-instance? RuntimeException::t _exn66353_)) + (let ((_e66355_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66091_ 'exception)))) - (macro-error-exception? _e66093_)) - (macro-error-exception? _exn66091_)))) + (unchecked-slot-ref _exn66353_ 'exception)))) + (macro-error-exception? _e66355_)) + (macro-error-exception? _exn66353_)))) (define error-exception-message - (lambda (_exn66087_) + (lambda (_exn66349_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66087_)) - (let ((_e66089_ + (class-instance? RuntimeException::t _exn66349_)) + (let ((_e66351_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66087_ 'exception)))) - (if (macro-error-exception? _e66089_) - (macro-error-exception-message _e66089_) - (let ((__tmp66748 - (let ((__tmp66749 + (unchecked-slot-ref _exn66349_ 'exception)))) + (if (macro-error-exception? _e66351_) + (macro-error-exception-message _e66351_) + (let ((__tmp67010 + (let ((__tmp67011 (let () (declare (not safe)) - (cons _e66089_ '())))) + (cons _e66351_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp66749)))) + (cons 'error-exception-message __tmp67011)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp66748)))) - (if (macro-error-exception? _exn66087_) - (macro-error-exception-message _exn66087_) - (let ((__tmp66746 - (let ((__tmp66747 + (error '"not an instance" 'error-exception? __tmp67010)))) + (if (macro-error-exception? _exn66349_) + (macro-error-exception-message _exn66349_) + (let ((__tmp67008 + (let ((__tmp67009 (let () (declare (not safe)) - (cons _exn66087_ '())))) + (cons _exn66349_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp66747)))) + (cons 'error-exception-message __tmp67009)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp66746)))))) + (error '"not an instance" 'error-exception? __tmp67008)))))) (define error-exception-parameters - (lambda (_exn66081_) + (lambda (_exn66343_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66081_)) - (let ((_e66084_ + (class-instance? RuntimeException::t _exn66343_)) + (let ((_e66346_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66081_ 'exception)))) - (if (macro-error-exception? _e66084_) - (macro-error-exception-parameters _e66084_) - (let ((__tmp66752 - (let ((__tmp66753 + (unchecked-slot-ref _exn66343_ 'exception)))) + (if (macro-error-exception? _e66346_) + (macro-error-exception-parameters _e66346_) + (let ((__tmp67014 + (let ((__tmp67015 (let () (declare (not safe)) - (cons _e66084_ '())))) + (cons _e66346_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp66753)))) + (cons 'error-exception-parameters __tmp67015)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp66752)))) - (if (macro-error-exception? _exn66081_) - (macro-error-exception-parameters _exn66081_) - (let ((__tmp66750 - (let ((__tmp66751 + (error '"not an instance" 'error-exception? __tmp67014)))) + (if (macro-error-exception? _exn66343_) + (macro-error-exception-parameters _exn66343_) + (let ((__tmp67012 + (let ((__tmp67013 (let () (declare (not safe)) - (cons _exn66081_ '())))) + (cons _exn66343_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp66751)))) + (cons 'error-exception-parameters __tmp67013)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp66750)))))) + (error '"not an instance" 'error-exception? __tmp67012)))))) (define expression-parsing-exception? - (lambda (_exn66077_) + (lambda (_exn66339_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66077_)) - (let ((_e66079_ + (class-instance? RuntimeException::t _exn66339_)) + (let ((_e66341_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66077_ 'exception)))) - (macro-expression-parsing-exception? _e66079_)) - (macro-expression-parsing-exception? _exn66077_)))) + (unchecked-slot-ref _exn66339_ 'exception)))) + (macro-expression-parsing-exception? _e66341_)) + (macro-expression-parsing-exception? _exn66339_)))) (define expression-parsing-exception-kind - (lambda (_exn66073_) + (lambda (_exn66335_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66073_)) - (let ((_e66075_ + (class-instance? RuntimeException::t _exn66335_)) + (let ((_e66337_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66073_ 'exception)))) - (if (macro-expression-parsing-exception? _e66075_) - (macro-expression-parsing-exception-kind _e66075_) - (let ((__tmp66756 - (let ((__tmp66757 + (unchecked-slot-ref _exn66335_ 'exception)))) + (if (macro-expression-parsing-exception? _e66337_) + (macro-expression-parsing-exception-kind _e66337_) + (let ((__tmp67018 + (let ((__tmp67019 (let () (declare (not safe)) - (cons _e66075_ '())))) + (cons _e66337_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp66757)))) + __tmp67019)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66756)))) - (if (macro-expression-parsing-exception? _exn66073_) - (macro-expression-parsing-exception-kind _exn66073_) - (let ((__tmp66754 - (let ((__tmp66755 + __tmp67018)))) + (if (macro-expression-parsing-exception? _exn66335_) + (macro-expression-parsing-exception-kind _exn66335_) + (let ((__tmp67016 + (let ((__tmp67017 (let () (declare (not safe)) - (cons _exn66073_ '())))) + (cons _exn66335_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp66755)))) + __tmp67017)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66754)))))) + __tmp67016)))))) (define expression-parsing-exception-parameters - (lambda (_exn66069_) + (lambda (_exn66331_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66069_)) - (let ((_e66071_ + (class-instance? RuntimeException::t _exn66331_)) + (let ((_e66333_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66069_ 'exception)))) - (if (macro-expression-parsing-exception? _e66071_) - (macro-expression-parsing-exception-parameters _e66071_) - (let ((__tmp66760 - (let ((__tmp66761 + (unchecked-slot-ref _exn66331_ 'exception)))) + (if (macro-expression-parsing-exception? _e66333_) + (macro-expression-parsing-exception-parameters _e66333_) + (let ((__tmp67022 + (let ((__tmp67023 (let () (declare (not safe)) - (cons _e66071_ '())))) + (cons _e66333_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp66761)))) + __tmp67023)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66760)))) - (if (macro-expression-parsing-exception? _exn66069_) - (macro-expression-parsing-exception-parameters _exn66069_) - (let ((__tmp66758 - (let ((__tmp66759 + __tmp67022)))) + (if (macro-expression-parsing-exception? _exn66331_) + (macro-expression-parsing-exception-parameters _exn66331_) + (let ((__tmp67020 + (let ((__tmp67021 (let () (declare (not safe)) - (cons _exn66069_ '())))) + (cons _exn66331_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp66759)))) + __tmp67021)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66758)))))) + __tmp67020)))))) (define expression-parsing-exception-source - (lambda (_exn66063_) + (lambda (_exn66325_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66063_)) - (let ((_e66066_ + (class-instance? RuntimeException::t _exn66325_)) + (let ((_e66328_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66063_ 'exception)))) - (if (macro-expression-parsing-exception? _e66066_) - (macro-expression-parsing-exception-source _e66066_) - (let ((__tmp66764 - (let ((__tmp66765 + (unchecked-slot-ref _exn66325_ 'exception)))) + (if (macro-expression-parsing-exception? _e66328_) + (macro-expression-parsing-exception-source _e66328_) + (let ((__tmp67026 + (let ((__tmp67027 (let () (declare (not safe)) - (cons _e66066_ '())))) + (cons _e66328_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp66765)))) + __tmp67027)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66764)))) - (if (macro-expression-parsing-exception? _exn66063_) - (macro-expression-parsing-exception-source _exn66063_) - (let ((__tmp66762 - (let ((__tmp66763 + __tmp67026)))) + (if (macro-expression-parsing-exception? _exn66325_) + (macro-expression-parsing-exception-source _exn66325_) + (let ((__tmp67024 + (let ((__tmp67025 (let () (declare (not safe)) - (cons _exn66063_ '())))) + (cons _exn66325_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp66763)))) + __tmp67025)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp66762)))))) + __tmp67024)))))) (define file-exists-exception? - (lambda (_exn66059_) + (lambda (_exn66321_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66059_)) - (let ((_e66061_ + (class-instance? RuntimeException::t _exn66321_)) + (let ((_e66323_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66059_ 'exception)))) - (macro-file-exists-exception? _e66061_)) - (macro-file-exists-exception? _exn66059_)))) + (unchecked-slot-ref _exn66321_ 'exception)))) + (macro-file-exists-exception? _e66323_)) + (macro-file-exists-exception? _exn66321_)))) (define file-exists-exception-arguments - (lambda (_exn66055_) + (lambda (_exn66317_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66055_)) - (let ((_e66057_ + (class-instance? RuntimeException::t _exn66317_)) + (let ((_e66319_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66055_ 'exception)))) - (if (macro-file-exists-exception? _e66057_) - (macro-file-exists-exception-arguments _e66057_) - (let ((__tmp66768 - (let ((__tmp66769 + (unchecked-slot-ref _exn66317_ 'exception)))) + (if (macro-file-exists-exception? _e66319_) + (macro-file-exists-exception-arguments _e66319_) + (let ((__tmp67030 + (let ((__tmp67031 (let () (declare (not safe)) - (cons _e66057_ '())))) + (cons _e66319_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp66769)))) + __tmp67031)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp66768)))) - (if (macro-file-exists-exception? _exn66055_) - (macro-file-exists-exception-arguments _exn66055_) - (let ((__tmp66766 - (let ((__tmp66767 + __tmp67030)))) + (if (macro-file-exists-exception? _exn66317_) + (macro-file-exists-exception-arguments _exn66317_) + (let ((__tmp67028 + (let ((__tmp67029 (let () (declare (not safe)) - (cons _exn66055_ '())))) + (cons _exn66317_ '())))) (declare (not safe)) - (cons 'file-exists-exception-arguments __tmp66767)))) + (cons 'file-exists-exception-arguments __tmp67029)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp66766)))))) + __tmp67028)))))) (define file-exists-exception-procedure - (lambda (_exn66049_) + (lambda (_exn66311_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66049_)) - (let ((_e66052_ + (class-instance? RuntimeException::t _exn66311_)) + (let ((_e66314_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66049_ 'exception)))) - (if (macro-file-exists-exception? _e66052_) - (macro-file-exists-exception-procedure _e66052_) - (let ((__tmp66772 - (let ((__tmp66773 + (unchecked-slot-ref _exn66311_ 'exception)))) + (if (macro-file-exists-exception? _e66314_) + (macro-file-exists-exception-procedure _e66314_) + (let ((__tmp67034 + (let ((__tmp67035 (let () (declare (not safe)) - (cons _e66052_ '())))) + (cons _e66314_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp66773)))) + __tmp67035)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp66772)))) - (if (macro-file-exists-exception? _exn66049_) - (macro-file-exists-exception-procedure _exn66049_) - (let ((__tmp66770 - (let ((__tmp66771 + __tmp67034)))) + (if (macro-file-exists-exception? _exn66311_) + (macro-file-exists-exception-procedure _exn66311_) + (let ((__tmp67032 + (let ((__tmp67033 (let () (declare (not safe)) - (cons _exn66049_ '())))) + (cons _exn66311_ '())))) (declare (not safe)) - (cons 'file-exists-exception-procedure __tmp66771)))) + (cons 'file-exists-exception-procedure __tmp67033)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp66770)))))) + __tmp67032)))))) (define fixnum-overflow-exception? - (lambda (_exn66045_) + (lambda (_exn66307_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66045_)) - (let ((_e66047_ + (class-instance? RuntimeException::t _exn66307_)) + (let ((_e66309_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66045_ 'exception)))) - (macro-fixnum-overflow-exception? _e66047_)) - (macro-fixnum-overflow-exception? _exn66045_)))) + (unchecked-slot-ref _exn66307_ 'exception)))) + (macro-fixnum-overflow-exception? _e66309_)) + (macro-fixnum-overflow-exception? _exn66307_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn66041_) + (lambda (_exn66303_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66041_)) - (let ((_e66043_ + (class-instance? RuntimeException::t _exn66303_)) + (let ((_e66305_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66041_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e66043_) - (macro-fixnum-overflow-exception-arguments _e66043_) - (let ((__tmp66776 - (let ((__tmp66777 + (unchecked-slot-ref _exn66303_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e66305_) + (macro-fixnum-overflow-exception-arguments _e66305_) + (let ((__tmp67038 + (let ((__tmp67039 (let () (declare (not safe)) - (cons _e66043_ '())))) + (cons _e66305_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp66777)))) + __tmp67039)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp66776)))) - (if (macro-fixnum-overflow-exception? _exn66041_) - (macro-fixnum-overflow-exception-arguments _exn66041_) - (let ((__tmp66774 - (let ((__tmp66775 + __tmp67038)))) + (if (macro-fixnum-overflow-exception? _exn66303_) + (macro-fixnum-overflow-exception-arguments _exn66303_) + (let ((__tmp67036 + (let ((__tmp67037 (let () (declare (not safe)) - (cons _exn66041_ '())))) + (cons _exn66303_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp66775)))) + __tmp67037)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp66774)))))) + __tmp67036)))))) (define fixnum-overflow-exception-procedure - (lambda (_exn66035_) + (lambda (_exn66297_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66035_)) - (let ((_e66038_ + (class-instance? RuntimeException::t _exn66297_)) + (let ((_e66300_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66035_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e66038_) - (macro-fixnum-overflow-exception-procedure _e66038_) - (let ((__tmp66780 - (let ((__tmp66781 + (unchecked-slot-ref _exn66297_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e66300_) + (macro-fixnum-overflow-exception-procedure _e66300_) + (let ((__tmp67042 + (let ((__tmp67043 (let () (declare (not safe)) - (cons _e66038_ '())))) + (cons _e66300_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp66781)))) + __tmp67043)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp66780)))) - (if (macro-fixnum-overflow-exception? _exn66035_) - (macro-fixnum-overflow-exception-procedure _exn66035_) - (let ((__tmp66778 - (let ((__tmp66779 + __tmp67042)))) + (if (macro-fixnum-overflow-exception? _exn66297_) + (macro-fixnum-overflow-exception-procedure _exn66297_) + (let ((__tmp67040 + (let ((__tmp67041 (let () (declare (not safe)) - (cons _exn66035_ '())))) + (cons _exn66297_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp66779)))) + __tmp67041)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp66778)))))) + __tmp67040)))))) (define heap-overflow-exception? - (lambda (_exn66029_) + (lambda (_exn66291_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66029_)) - (let ((_e66032_ + (class-instance? RuntimeException::t _exn66291_)) + (let ((_e66294_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66029_ 'exception)))) - (macro-heap-overflow-exception? _e66032_)) - (macro-heap-overflow-exception? _exn66029_)))) + (unchecked-slot-ref _exn66291_ 'exception)))) + (macro-heap-overflow-exception? _e66294_)) + (macro-heap-overflow-exception? _exn66291_)))) (define inactive-thread-exception? - (lambda (_exn66025_) + (lambda (_exn66287_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66025_)) - (let ((_e66027_ + (class-instance? RuntimeException::t _exn66287_)) + (let ((_e66289_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66025_ 'exception)))) - (macro-inactive-thread-exception? _e66027_)) - (macro-inactive-thread-exception? _exn66025_)))) + (unchecked-slot-ref _exn66287_ 'exception)))) + (macro-inactive-thread-exception? _e66289_)) + (macro-inactive-thread-exception? _exn66287_)))) (define inactive-thread-exception-arguments - (lambda (_exn66021_) + (lambda (_exn66283_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66021_)) - (let ((_e66023_ + (class-instance? RuntimeException::t _exn66283_)) + (let ((_e66285_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66021_ 'exception)))) - (if (macro-inactive-thread-exception? _e66023_) - (macro-inactive-thread-exception-arguments _e66023_) - (let ((__tmp66784 - (let ((__tmp66785 + (unchecked-slot-ref _exn66283_ 'exception)))) + (if (macro-inactive-thread-exception? _e66285_) + (macro-inactive-thread-exception-arguments _e66285_) + (let ((__tmp67046 + (let ((__tmp67047 (let () (declare (not safe)) - (cons _e66023_ '())))) + (cons _e66285_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp66785)))) + __tmp67047)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp66784)))) - (if (macro-inactive-thread-exception? _exn66021_) - (macro-inactive-thread-exception-arguments _exn66021_) - (let ((__tmp66782 - (let ((__tmp66783 + __tmp67046)))) + (if (macro-inactive-thread-exception? _exn66283_) + (macro-inactive-thread-exception-arguments _exn66283_) + (let ((__tmp67044 + (let ((__tmp67045 (let () (declare (not safe)) - (cons _exn66021_ '())))) + (cons _exn66283_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp66783)))) + __tmp67045)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp66782)))))) + __tmp67044)))))) (define inactive-thread-exception-procedure - (lambda (_exn66015_) + (lambda (_exn66277_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66015_)) - (let ((_e66018_ + (class-instance? RuntimeException::t _exn66277_)) + (let ((_e66280_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66015_ 'exception)))) - (if (macro-inactive-thread-exception? _e66018_) - (macro-inactive-thread-exception-procedure _e66018_) - (let ((__tmp66788 - (let ((__tmp66789 + (unchecked-slot-ref _exn66277_ 'exception)))) + (if (macro-inactive-thread-exception? _e66280_) + (macro-inactive-thread-exception-procedure _e66280_) + (let ((__tmp67050 + (let ((__tmp67051 (let () (declare (not safe)) - (cons _e66018_ '())))) + (cons _e66280_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp66789)))) + __tmp67051)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp66788)))) - (if (macro-inactive-thread-exception? _exn66015_) - (macro-inactive-thread-exception-procedure _exn66015_) - (let ((__tmp66786 - (let ((__tmp66787 + __tmp67050)))) + (if (macro-inactive-thread-exception? _exn66277_) + (macro-inactive-thread-exception-procedure _exn66277_) + (let ((__tmp67048 + (let ((__tmp67049 (let () (declare (not safe)) - (cons _exn66015_ '())))) + (cons _exn66277_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp66787)))) + __tmp67049)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp66786)))))) + __tmp67048)))))) (define initialized-thread-exception? - (lambda (_exn66011_) + (lambda (_exn66273_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66011_)) - (let ((_e66013_ + (class-instance? RuntimeException::t _exn66273_)) + (let ((_e66275_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66011_ 'exception)))) - (macro-initialized-thread-exception? _e66013_)) - (macro-initialized-thread-exception? _exn66011_)))) + (unchecked-slot-ref _exn66273_ 'exception)))) + (macro-initialized-thread-exception? _e66275_)) + (macro-initialized-thread-exception? _exn66273_)))) (define initialized-thread-exception-arguments - (lambda (_exn66007_) + (lambda (_exn66269_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66007_)) - (let ((_e66009_ + (class-instance? RuntimeException::t _exn66269_)) + (let ((_e66271_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66007_ 'exception)))) - (if (macro-initialized-thread-exception? _e66009_) - (macro-initialized-thread-exception-arguments _e66009_) - (let ((__tmp66792 - (let ((__tmp66793 + (unchecked-slot-ref _exn66269_ 'exception)))) + (if (macro-initialized-thread-exception? _e66271_) + (macro-initialized-thread-exception-arguments _e66271_) + (let ((__tmp67054 + (let ((__tmp67055 (let () (declare (not safe)) - (cons _e66009_ '())))) + (cons _e66271_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp66793)))) + __tmp67055)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp66792)))) - (if (macro-initialized-thread-exception? _exn66007_) - (macro-initialized-thread-exception-arguments _exn66007_) - (let ((__tmp66790 - (let ((__tmp66791 + __tmp67054)))) + (if (macro-initialized-thread-exception? _exn66269_) + (macro-initialized-thread-exception-arguments _exn66269_) + (let ((__tmp67052 + (let ((__tmp67053 (let () (declare (not safe)) - (cons _exn66007_ '())))) + (cons _exn66269_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp66791)))) + __tmp67053)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp66790)))))) + __tmp67052)))))) (define initialized-thread-exception-procedure - (lambda (_exn66001_) + (lambda (_exn66263_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn66001_)) - (let ((_e66004_ + (class-instance? RuntimeException::t _exn66263_)) + (let ((_e66266_ (let () (declare (not safe)) - (unchecked-slot-ref _exn66001_ 'exception)))) - (if (macro-initialized-thread-exception? _e66004_) - (macro-initialized-thread-exception-procedure _e66004_) - (let ((__tmp66796 - (let ((__tmp66797 + (unchecked-slot-ref _exn66263_ 'exception)))) + (if (macro-initialized-thread-exception? _e66266_) + (macro-initialized-thread-exception-procedure _e66266_) + (let ((__tmp67058 + (let ((__tmp67059 (let () (declare (not safe)) - (cons _e66004_ '())))) + (cons _e66266_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp66797)))) + __tmp67059)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp66796)))) - (if (macro-initialized-thread-exception? _exn66001_) - (macro-initialized-thread-exception-procedure _exn66001_) - (let ((__tmp66794 - (let ((__tmp66795 + __tmp67058)))) + (if (macro-initialized-thread-exception? _exn66263_) + (macro-initialized-thread-exception-procedure _exn66263_) + (let ((__tmp67056 + (let ((__tmp67057 (let () (declare (not safe)) - (cons _exn66001_ '())))) + (cons _exn66263_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp66795)))) + __tmp67057)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp66794)))))) + __tmp67056)))))) (define invalid-hash-number-exception? - (lambda (_exn65997_) + (lambda (_exn66259_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65997_)) - (let ((_e65999_ + (class-instance? RuntimeException::t _exn66259_)) + (let ((_e66261_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65997_ 'exception)))) - (macro-invalid-hash-number-exception? _e65999_)) - (macro-invalid-hash-number-exception? _exn65997_)))) + (unchecked-slot-ref _exn66259_ 'exception)))) + (macro-invalid-hash-number-exception? _e66261_)) + (macro-invalid-hash-number-exception? _exn66259_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn65993_) + (lambda (_exn66255_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65993_)) - (let ((_e65995_ + (class-instance? RuntimeException::t _exn66255_)) + (let ((_e66257_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65993_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e65995_) - (macro-invalid-hash-number-exception-arguments _e65995_) - (let ((__tmp66800 - (let ((__tmp66801 + (unchecked-slot-ref _exn66255_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e66257_) + (macro-invalid-hash-number-exception-arguments _e66257_) + (let ((__tmp67062 + (let ((__tmp67063 (let () (declare (not safe)) - (cons _e65995_ '())))) + (cons _e66257_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp66801)))) + __tmp67063)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp66800)))) - (if (macro-invalid-hash-number-exception? _exn65993_) - (macro-invalid-hash-number-exception-arguments _exn65993_) - (let ((__tmp66798 - (let ((__tmp66799 + __tmp67062)))) + (if (macro-invalid-hash-number-exception? _exn66255_) + (macro-invalid-hash-number-exception-arguments _exn66255_) + (let ((__tmp67060 + (let ((__tmp67061 (let () (declare (not safe)) - (cons _exn65993_ '())))) + (cons _exn66255_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp66799)))) + __tmp67061)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp66798)))))) + __tmp67060)))))) (define invalid-hash-number-exception-procedure - (lambda (_exn65987_) + (lambda (_exn66249_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65987_)) - (let ((_e65990_ + (class-instance? RuntimeException::t _exn66249_)) + (let ((_e66252_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65987_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e65990_) - (macro-invalid-hash-number-exception-procedure _e65990_) - (let ((__tmp66804 - (let ((__tmp66805 + (unchecked-slot-ref _exn66249_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e66252_) + (macro-invalid-hash-number-exception-procedure _e66252_) + (let ((__tmp67066 + (let ((__tmp67067 (let () (declare (not safe)) - (cons _e65990_ '())))) + (cons _e66252_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp66805)))) + __tmp67067)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp66804)))) - (if (macro-invalid-hash-number-exception? _exn65987_) - (macro-invalid-hash-number-exception-procedure _exn65987_) - (let ((__tmp66802 - (let ((__tmp66803 + __tmp67066)))) + (if (macro-invalid-hash-number-exception? _exn66249_) + (macro-invalid-hash-number-exception-procedure _exn66249_) + (let ((__tmp67064 + (let ((__tmp67065 (let () (declare (not safe)) - (cons _exn65987_ '())))) + (cons _exn66249_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp66803)))) + __tmp67065)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp66802)))))) + __tmp67064)))))) (define invalid-utf8-encoding-exception? - (lambda (_exn65983_) + (lambda (_exn66245_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65983_)) - (let ((_e65985_ + (class-instance? RuntimeException::t _exn66245_)) + (let ((_e66247_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65983_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e65985_)) - (macro-invalid-utf8-encoding-exception? _exn65983_)))) + (unchecked-slot-ref _exn66245_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e66247_)) + (macro-invalid-utf8-encoding-exception? _exn66245_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn65979_) + (lambda (_exn66241_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65979_)) - (let ((_e65981_ + (class-instance? RuntimeException::t _exn66241_)) + (let ((_e66243_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65979_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e65981_) - (macro-invalid-utf8-encoding-exception-arguments _e65981_) - (let ((__tmp66808 - (let ((__tmp66809 + (unchecked-slot-ref _exn66241_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e66243_) + (macro-invalid-utf8-encoding-exception-arguments _e66243_) + (let ((__tmp67070 + (let ((__tmp67071 (let () (declare (not safe)) - (cons _e65981_ '())))) + (cons _e66243_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp66809)))) + __tmp67071)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp66808)))) - (if (macro-invalid-utf8-encoding-exception? _exn65979_) - (macro-invalid-utf8-encoding-exception-arguments _exn65979_) - (let ((__tmp66806 - (let ((__tmp66807 + __tmp67070)))) + (if (macro-invalid-utf8-encoding-exception? _exn66241_) + (macro-invalid-utf8-encoding-exception-arguments _exn66241_) + (let ((__tmp67068 + (let ((__tmp67069 (let () (declare (not safe)) - (cons _exn65979_ '())))) + (cons _exn66241_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp66807)))) + __tmp67069)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp66806)))))) + __tmp67068)))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn65973_) + (lambda (_exn66235_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65973_)) - (let ((_e65976_ + (class-instance? RuntimeException::t _exn66235_)) + (let ((_e66238_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65973_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e65976_) - (macro-invalid-utf8-encoding-exception-procedure _e65976_) - (let ((__tmp66812 - (let ((__tmp66813 + (unchecked-slot-ref _exn66235_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e66238_) + (macro-invalid-utf8-encoding-exception-procedure _e66238_) + (let ((__tmp67074 + (let ((__tmp67075 (let () (declare (not safe)) - (cons _e65976_ '())))) + (cons _e66238_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp66813)))) + __tmp67075)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp66812)))) - (if (macro-invalid-utf8-encoding-exception? _exn65973_) - (macro-invalid-utf8-encoding-exception-procedure _exn65973_) - (let ((__tmp66810 - (let ((__tmp66811 + __tmp67074)))) + (if (macro-invalid-utf8-encoding-exception? _exn66235_) + (macro-invalid-utf8-encoding-exception-procedure _exn66235_) + (let ((__tmp67072 + (let ((__tmp67073 (let () (declare (not safe)) - (cons _exn65973_ '())))) + (cons _exn66235_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp66811)))) + __tmp67073)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp66810)))))) + __tmp67072)))))) (define join-timeout-exception? - (lambda (_exn65969_) + (lambda (_exn66231_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65969_)) - (let ((_e65971_ + (class-instance? RuntimeException::t _exn66231_)) + (let ((_e66233_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65969_ 'exception)))) - (macro-join-timeout-exception? _e65971_)) - (macro-join-timeout-exception? _exn65969_)))) + (unchecked-slot-ref _exn66231_ 'exception)))) + (macro-join-timeout-exception? _e66233_)) + (macro-join-timeout-exception? _exn66231_)))) (define join-timeout-exception-arguments - (lambda (_exn65965_) + (lambda (_exn66227_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65965_)) - (let ((_e65967_ + (class-instance? RuntimeException::t _exn66227_)) + (let ((_e66229_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65965_ 'exception)))) - (if (macro-join-timeout-exception? _e65967_) - (macro-join-timeout-exception-arguments _e65967_) - (let ((__tmp66816 - (let ((__tmp66817 + (unchecked-slot-ref _exn66227_ 'exception)))) + (if (macro-join-timeout-exception? _e66229_) + (macro-join-timeout-exception-arguments _e66229_) + (let ((__tmp67078 + (let ((__tmp67079 (let () (declare (not safe)) - (cons _e65967_ '())))) + (cons _e66229_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp66817)))) + __tmp67079)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp66816)))) - (if (macro-join-timeout-exception? _exn65965_) - (macro-join-timeout-exception-arguments _exn65965_) - (let ((__tmp66814 - (let ((__tmp66815 + __tmp67078)))) + (if (macro-join-timeout-exception? _exn66227_) + (macro-join-timeout-exception-arguments _exn66227_) + (let ((__tmp67076 + (let ((__tmp67077 (let () (declare (not safe)) - (cons _exn65965_ '())))) + (cons _exn66227_ '())))) (declare (not safe)) - (cons 'join-timeout-exception-arguments __tmp66815)))) + (cons 'join-timeout-exception-arguments __tmp67077)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp66814)))))) + __tmp67076)))))) (define join-timeout-exception-procedure - (lambda (_exn65959_) + (lambda (_exn66221_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65959_)) - (let ((_e65962_ + (class-instance? RuntimeException::t _exn66221_)) + (let ((_e66224_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65959_ 'exception)))) - (if (macro-join-timeout-exception? _e65962_) - (macro-join-timeout-exception-procedure _e65962_) - (let ((__tmp66820 - (let ((__tmp66821 + (unchecked-slot-ref _exn66221_ 'exception)))) + (if (macro-join-timeout-exception? _e66224_) + (macro-join-timeout-exception-procedure _e66224_) + (let ((__tmp67082 + (let ((__tmp67083 (let () (declare (not safe)) - (cons _e65962_ '())))) + (cons _e66224_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp66821)))) + __tmp67083)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp66820)))) - (if (macro-join-timeout-exception? _exn65959_) - (macro-join-timeout-exception-procedure _exn65959_) - (let ((__tmp66818 - (let ((__tmp66819 + __tmp67082)))) + (if (macro-join-timeout-exception? _exn66221_) + (macro-join-timeout-exception-procedure _exn66221_) + (let ((__tmp67080 + (let ((__tmp67081 (let () (declare (not safe)) - (cons _exn65959_ '())))) + (cons _exn66221_ '())))) (declare (not safe)) - (cons 'join-timeout-exception-procedure __tmp66819)))) + (cons 'join-timeout-exception-procedure __tmp67081)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp66818)))))) + __tmp67080)))))) (define keyword-expected-exception? - (lambda (_exn65955_) + (lambda (_exn66217_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65955_)) - (let ((_e65957_ + (class-instance? RuntimeException::t _exn66217_)) + (let ((_e66219_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65955_ 'exception)))) - (macro-keyword-expected-exception? _e65957_)) - (macro-keyword-expected-exception? _exn65955_)))) + (unchecked-slot-ref _exn66217_ 'exception)))) + (macro-keyword-expected-exception? _e66219_)) + (macro-keyword-expected-exception? _exn66217_)))) (define keyword-expected-exception-arguments - (lambda (_exn65951_) + (lambda (_exn66213_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65951_)) - (let ((_e65953_ + (class-instance? RuntimeException::t _exn66213_)) + (let ((_e66215_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65951_ 'exception)))) - (if (macro-keyword-expected-exception? _e65953_) - (macro-keyword-expected-exception-arguments _e65953_) - (let ((__tmp66824 - (let ((__tmp66825 + (unchecked-slot-ref _exn66213_ 'exception)))) + (if (macro-keyword-expected-exception? _e66215_) + (macro-keyword-expected-exception-arguments _e66215_) + (let ((__tmp67086 + (let ((__tmp67087 (let () (declare (not safe)) - (cons _e65953_ '())))) + (cons _e66215_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp66825)))) + __tmp67087)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp66824)))) - (if (macro-keyword-expected-exception? _exn65951_) - (macro-keyword-expected-exception-arguments _exn65951_) - (let ((__tmp66822 - (let ((__tmp66823 + __tmp67086)))) + (if (macro-keyword-expected-exception? _exn66213_) + (macro-keyword-expected-exception-arguments _exn66213_) + (let ((__tmp67084 + (let ((__tmp67085 (let () (declare (not safe)) - (cons _exn65951_ '())))) + (cons _exn66213_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp66823)))) + __tmp67085)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp66822)))))) + __tmp67084)))))) (define keyword-expected-exception-procedure - (lambda (_exn65945_) + (lambda (_exn66207_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65945_)) - (let ((_e65948_ + (class-instance? RuntimeException::t _exn66207_)) + (let ((_e66210_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65945_ 'exception)))) - (if (macro-keyword-expected-exception? _e65948_) - (macro-keyword-expected-exception-procedure _e65948_) - (let ((__tmp66828 - (let ((__tmp66829 + (unchecked-slot-ref _exn66207_ 'exception)))) + (if (macro-keyword-expected-exception? _e66210_) + (macro-keyword-expected-exception-procedure _e66210_) + (let ((__tmp67090 + (let ((__tmp67091 (let () (declare (not safe)) - (cons _e65948_ '())))) + (cons _e66210_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp66829)))) + __tmp67091)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp66828)))) - (if (macro-keyword-expected-exception? _exn65945_) - (macro-keyword-expected-exception-procedure _exn65945_) - (let ((__tmp66826 - (let ((__tmp66827 + __tmp67090)))) + (if (macro-keyword-expected-exception? _exn66207_) + (macro-keyword-expected-exception-procedure _exn66207_) + (let ((__tmp67088 + (let ((__tmp67089 (let () (declare (not safe)) - (cons _exn65945_ '())))) + (cons _exn66207_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp66827)))) + __tmp67089)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp66826)))))) + __tmp67088)))))) (define length-mismatch-exception? - (lambda (_exn65941_) + (lambda (_exn66203_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65941_)) - (let ((_e65943_ + (class-instance? RuntimeException::t _exn66203_)) + (let ((_e66205_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65941_ 'exception)))) - (macro-length-mismatch-exception? _e65943_)) - (macro-length-mismatch-exception? _exn65941_)))) + (unchecked-slot-ref _exn66203_ 'exception)))) + (macro-length-mismatch-exception? _e66205_)) + (macro-length-mismatch-exception? _exn66203_)))) (define length-mismatch-exception-arg-id - (lambda (_exn65937_) + (lambda (_exn66199_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65937_)) - (let ((_e65939_ + (class-instance? RuntimeException::t _exn66199_)) + (let ((_e66201_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65937_ 'exception)))) - (if (macro-length-mismatch-exception? _e65939_) - (macro-length-mismatch-exception-arg-id _e65939_) - (let ((__tmp66832 - (let ((__tmp66833 + (unchecked-slot-ref _exn66199_ 'exception)))) + (if (macro-length-mismatch-exception? _e66201_) + (macro-length-mismatch-exception-arg-id _e66201_) + (let ((__tmp67094 + (let ((__tmp67095 (let () (declare (not safe)) - (cons _e65939_ '())))) + (cons _e66201_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp66833)))) + __tmp67095)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66832)))) - (if (macro-length-mismatch-exception? _exn65937_) - (macro-length-mismatch-exception-arg-id _exn65937_) - (let ((__tmp66830 - (let ((__tmp66831 + __tmp67094)))) + (if (macro-length-mismatch-exception? _exn66199_) + (macro-length-mismatch-exception-arg-id _exn66199_) + (let ((__tmp67092 + (let ((__tmp67093 (let () (declare (not safe)) - (cons _exn65937_ '())))) + (cons _exn66199_ '())))) (declare (not safe)) - (cons 'length-mismatch-exception-arg-id __tmp66831)))) + (cons 'length-mismatch-exception-arg-id __tmp67093)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66830)))))) + __tmp67092)))))) (define length-mismatch-exception-arguments - (lambda (_exn65933_) + (lambda (_exn66195_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65933_)) - (let ((_e65935_ + (class-instance? RuntimeException::t _exn66195_)) + (let ((_e66197_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65933_ 'exception)))) - (if (macro-length-mismatch-exception? _e65935_) - (macro-length-mismatch-exception-arguments _e65935_) - (let ((__tmp66836 - (let ((__tmp66837 + (unchecked-slot-ref _exn66195_ 'exception)))) + (if (macro-length-mismatch-exception? _e66197_) + (macro-length-mismatch-exception-arguments _e66197_) + (let ((__tmp67098 + (let ((__tmp67099 (let () (declare (not safe)) - (cons _e65935_ '())))) + (cons _e66197_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp66837)))) + __tmp67099)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66836)))) - (if (macro-length-mismatch-exception? _exn65933_) - (macro-length-mismatch-exception-arguments _exn65933_) - (let ((__tmp66834 - (let ((__tmp66835 + __tmp67098)))) + (if (macro-length-mismatch-exception? _exn66195_) + (macro-length-mismatch-exception-arguments _exn66195_) + (let ((__tmp67096 + (let ((__tmp67097 (let () (declare (not safe)) - (cons _exn65933_ '())))) + (cons _exn66195_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp66835)))) + __tmp67097)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66834)))))) + __tmp67096)))))) (define length-mismatch-exception-procedure - (lambda (_exn65927_) + (lambda (_exn66189_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65927_)) - (let ((_e65930_ + (class-instance? RuntimeException::t _exn66189_)) + (let ((_e66192_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65927_ 'exception)))) - (if (macro-length-mismatch-exception? _e65930_) - (macro-length-mismatch-exception-procedure _e65930_) - (let ((__tmp66840 - (let ((__tmp66841 + (unchecked-slot-ref _exn66189_ 'exception)))) + (if (macro-length-mismatch-exception? _e66192_) + (macro-length-mismatch-exception-procedure _e66192_) + (let ((__tmp67102 + (let ((__tmp67103 (let () (declare (not safe)) - (cons _e65930_ '())))) + (cons _e66192_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp66841)))) + __tmp67103)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66840)))) - (if (macro-length-mismatch-exception? _exn65927_) - (macro-length-mismatch-exception-procedure _exn65927_) - (let ((__tmp66838 - (let ((__tmp66839 + __tmp67102)))) + (if (macro-length-mismatch-exception? _exn66189_) + (macro-length-mismatch-exception-procedure _exn66189_) + (let ((__tmp67100 + (let ((__tmp67101 (let () (declare (not safe)) - (cons _exn65927_ '())))) + (cons _exn66189_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp66839)))) + __tmp67101)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp66838)))))) + __tmp67100)))))) (define mailbox-receive-timeout-exception? - (lambda (_exn65923_) + (lambda (_exn66185_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65923_)) - (let ((_e65925_ + (class-instance? RuntimeException::t _exn66185_)) + (let ((_e66187_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65923_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e65925_)) - (macro-mailbox-receive-timeout-exception? _exn65923_)))) + (unchecked-slot-ref _exn66185_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e66187_)) + (macro-mailbox-receive-timeout-exception? _exn66185_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn65919_) + (lambda (_exn66181_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65919_)) - (let ((_e65921_ + (class-instance? RuntimeException::t _exn66181_)) + (let ((_e66183_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65919_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e65921_) - (macro-mailbox-receive-timeout-exception-arguments _e65921_) - (let ((__tmp66844 - (let ((__tmp66845 + (unchecked-slot-ref _exn66181_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e66183_) + (macro-mailbox-receive-timeout-exception-arguments _e66183_) + (let ((__tmp67106 + (let ((__tmp67107 (let () (declare (not safe)) - (cons _e65921_ '())))) + (cons _e66183_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp66845)))) + __tmp67107)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp66844)))) - (if (macro-mailbox-receive-timeout-exception? _exn65919_) - (macro-mailbox-receive-timeout-exception-arguments _exn65919_) - (let ((__tmp66842 - (let ((__tmp66843 + __tmp67106)))) + (if (macro-mailbox-receive-timeout-exception? _exn66181_) + (macro-mailbox-receive-timeout-exception-arguments _exn66181_) + (let ((__tmp67104 + (let ((__tmp67105 (let () (declare (not safe)) - (cons _exn65919_ '())))) + (cons _exn66181_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp66843)))) + __tmp67105)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp66842)))))) + __tmp67104)))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn65913_) + (lambda (_exn66175_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65913_)) - (let ((_e65916_ + (class-instance? RuntimeException::t _exn66175_)) + (let ((_e66178_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65913_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e65916_) - (macro-mailbox-receive-timeout-exception-procedure _e65916_) - (let ((__tmp66848 - (let ((__tmp66849 + (unchecked-slot-ref _exn66175_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e66178_) + (macro-mailbox-receive-timeout-exception-procedure _e66178_) + (let ((__tmp67110 + (let ((__tmp67111 (let () (declare (not safe)) - (cons _e65916_ '())))) + (cons _e66178_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp66849)))) + __tmp67111)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp66848)))) - (if (macro-mailbox-receive-timeout-exception? _exn65913_) - (macro-mailbox-receive-timeout-exception-procedure _exn65913_) - (let ((__tmp66846 - (let ((__tmp66847 + __tmp67110)))) + (if (macro-mailbox-receive-timeout-exception? _exn66175_) + (macro-mailbox-receive-timeout-exception-procedure _exn66175_) + (let ((__tmp67108 + (let ((__tmp67109 (let () (declare (not safe)) - (cons _exn65913_ '())))) + (cons _exn66175_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp66847)))) + __tmp67109)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp66846)))))) + __tmp67108)))))) (define module-not-found-exception? - (lambda (_exn65909_) + (lambda (_exn66171_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65909_)) - (let ((_e65911_ + (class-instance? RuntimeException::t _exn66171_)) + (let ((_e66173_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65909_ 'exception)))) - (macro-module-not-found-exception? _e65911_)) - (macro-module-not-found-exception? _exn65909_)))) + (unchecked-slot-ref _exn66171_ 'exception)))) + (macro-module-not-found-exception? _e66173_)) + (macro-module-not-found-exception? _exn66171_)))) (define module-not-found-exception-arguments - (lambda (_exn65905_) + (lambda (_exn66167_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65905_)) - (let ((_e65907_ + (class-instance? RuntimeException::t _exn66167_)) + (let ((_e66169_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65905_ 'exception)))) - (if (macro-module-not-found-exception? _e65907_) - (macro-module-not-found-exception-arguments _e65907_) - (let ((__tmp66852 - (let ((__tmp66853 + (unchecked-slot-ref _exn66167_ 'exception)))) + (if (macro-module-not-found-exception? _e66169_) + (macro-module-not-found-exception-arguments _e66169_) + (let ((__tmp67114 + (let ((__tmp67115 (let () (declare (not safe)) - (cons _e65907_ '())))) + (cons _e66169_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp66853)))) + __tmp67115)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp66852)))) - (if (macro-module-not-found-exception? _exn65905_) - (macro-module-not-found-exception-arguments _exn65905_) - (let ((__tmp66850 - (let ((__tmp66851 + __tmp67114)))) + (if (macro-module-not-found-exception? _exn66167_) + (macro-module-not-found-exception-arguments _exn66167_) + (let ((__tmp67112 + (let ((__tmp67113 (let () (declare (not safe)) - (cons _exn65905_ '())))) + (cons _exn66167_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp66851)))) + __tmp67113)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp66850)))))) + __tmp67112)))))) (define module-not-found-exception-procedure - (lambda (_exn65899_) + (lambda (_exn66161_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65899_)) - (let ((_e65902_ + (class-instance? RuntimeException::t _exn66161_)) + (let ((_e66164_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65899_ 'exception)))) - (if (macro-module-not-found-exception? _e65902_) - (macro-module-not-found-exception-procedure _e65902_) - (let ((__tmp66856 - (let ((__tmp66857 + (unchecked-slot-ref _exn66161_ 'exception)))) + (if (macro-module-not-found-exception? _e66164_) + (macro-module-not-found-exception-procedure _e66164_) + (let ((__tmp67118 + (let ((__tmp67119 (let () (declare (not safe)) - (cons _e65902_ '())))) + (cons _e66164_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp66857)))) + __tmp67119)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp66856)))) - (if (macro-module-not-found-exception? _exn65899_) - (macro-module-not-found-exception-procedure _exn65899_) - (let ((__tmp66854 - (let ((__tmp66855 + __tmp67118)))) + (if (macro-module-not-found-exception? _exn66161_) + (macro-module-not-found-exception-procedure _exn66161_) + (let ((__tmp67116 + (let ((__tmp67117 (let () (declare (not safe)) - (cons _exn65899_ '())))) + (cons _exn66161_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp66855)))) + __tmp67117)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp66854)))))) + __tmp67116)))))) (define multiple-c-return-exception? - (lambda (_exn65893_) + (lambda (_exn66155_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65893_)) - (let ((_e65896_ + (class-instance? RuntimeException::t _exn66155_)) + (let ((_e66158_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65893_ 'exception)))) - (macro-multiple-c-return-exception? _e65896_)) - (macro-multiple-c-return-exception? _exn65893_)))) + (unchecked-slot-ref _exn66155_ 'exception)))) + (macro-multiple-c-return-exception? _e66158_)) + (macro-multiple-c-return-exception? _exn66155_)))) (define no-such-file-or-directory-exception? - (lambda (_exn65889_) + (lambda (_exn66151_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65889_)) - (let ((_e65891_ + (class-instance? RuntimeException::t _exn66151_)) + (let ((_e66153_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65889_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e65891_)) - (macro-no-such-file-or-directory-exception? _exn65889_)))) + (unchecked-slot-ref _exn66151_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e66153_)) + (macro-no-such-file-or-directory-exception? _exn66151_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn65885_) + (lambda (_exn66147_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65885_)) - (let ((_e65887_ + (class-instance? RuntimeException::t _exn66147_)) + (let ((_e66149_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65885_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e65887_) + (unchecked-slot-ref _exn66147_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e66149_) (macro-no-such-file-or-directory-exception-arguments - _e65887_) - (let ((__tmp66860 - (let ((__tmp66861 + _e66149_) + (let ((__tmp67122 + (let ((__tmp67123 (let () (declare (not safe)) - (cons _e65887_ '())))) + (cons _e66149_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp66861)))) + __tmp67123)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp66860)))) - (if (macro-no-such-file-or-directory-exception? _exn65885_) + __tmp67122)))) + (if (macro-no-such-file-or-directory-exception? _exn66147_) (macro-no-such-file-or-directory-exception-arguments - _exn65885_) - (let ((__tmp66858 - (let ((__tmp66859 + _exn66147_) + (let ((__tmp67120 + (let ((__tmp67121 (let () (declare (not safe)) - (cons _exn65885_ '())))) + (cons _exn66147_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp66859)))) + __tmp67121)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp66858)))))) + __tmp67120)))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn65879_) + (lambda (_exn66141_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65879_)) - (let ((_e65882_ + (class-instance? RuntimeException::t _exn66141_)) + (let ((_e66144_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65879_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e65882_) + (unchecked-slot-ref _exn66141_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e66144_) (macro-no-such-file-or-directory-exception-procedure - _e65882_) - (let ((__tmp66864 - (let ((__tmp66865 + _e66144_) + (let ((__tmp67126 + (let ((__tmp67127 (let () (declare (not safe)) - (cons _e65882_ '())))) + (cons _e66144_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp66865)))) + __tmp67127)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp66864)))) - (if (macro-no-such-file-or-directory-exception? _exn65879_) + __tmp67126)))) + (if (macro-no-such-file-or-directory-exception? _exn66141_) (macro-no-such-file-or-directory-exception-procedure - _exn65879_) - (let ((__tmp66862 - (let ((__tmp66863 + _exn66141_) + (let ((__tmp67124 + (let ((__tmp67125 (let () (declare (not safe)) - (cons _exn65879_ '())))) + (cons _exn66141_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp66863)))) + __tmp67125)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp66862)))))) + __tmp67124)))))) (define noncontinuable-exception? - (lambda (_exn65875_) + (lambda (_exn66137_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65875_)) - (let ((_e65877_ + (class-instance? RuntimeException::t _exn66137_)) + (let ((_e66139_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65875_ 'exception)))) - (macro-noncontinuable-exception? _e65877_)) - (macro-noncontinuable-exception? _exn65875_)))) + (unchecked-slot-ref _exn66137_ 'exception)))) + (macro-noncontinuable-exception? _e66139_)) + (macro-noncontinuable-exception? _exn66137_)))) (define noncontinuable-exception-reason - (lambda (_exn65869_) + (lambda (_exn66131_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65869_)) - (let ((_e65872_ + (class-instance? RuntimeException::t _exn66131_)) + (let ((_e66134_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65869_ 'exception)))) - (if (macro-noncontinuable-exception? _e65872_) - (macro-noncontinuable-exception-reason _e65872_) - (let ((__tmp66868 - (let ((__tmp66869 + (unchecked-slot-ref _exn66131_ 'exception)))) + (if (macro-noncontinuable-exception? _e66134_) + (macro-noncontinuable-exception-reason _e66134_) + (let ((__tmp67130 + (let ((__tmp67131 (let () (declare (not safe)) - (cons _e65872_ '())))) + (cons _e66134_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp66869)))) + __tmp67131)))) (declare (not safe)) (error '"not an instance" 'noncontinuable-exception? - __tmp66868)))) - (if (macro-noncontinuable-exception? _exn65869_) - (macro-noncontinuable-exception-reason _exn65869_) - (let ((__tmp66866 - (let ((__tmp66867 + __tmp67130)))) + (if (macro-noncontinuable-exception? _exn66131_) + (macro-noncontinuable-exception-reason _exn66131_) + (let ((__tmp67128 + (let ((__tmp67129 (let () (declare (not safe)) - (cons _exn65869_ '())))) + (cons _exn66131_ '())))) (declare (not safe)) - (cons 'noncontinuable-exception-reason __tmp66867)))) + (cons 'noncontinuable-exception-reason __tmp67129)))) (declare (not safe)) (error '"not an instance" 'noncontinuable-exception? - __tmp66866)))))) + __tmp67128)))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn65865_) + (lambda (_exn66127_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65865_)) - (let ((_e65867_ + (class-instance? RuntimeException::t _exn66127_)) + (let ((_e66129_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65865_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e65867_)) + (unchecked-slot-ref _exn66127_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e66129_)) (macro-nonempty-input-port-character-buffer-exception? - _exn65865_)))) + _exn66127_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn65861_) + (lambda (_exn66123_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65861_)) - (let ((_e65863_ + (class-instance? RuntimeException::t _exn66123_)) + (let ((_e66125_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65861_ 'exception)))) + (unchecked-slot-ref _exn66123_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e65863_) + _e66125_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e65863_) - (let ((__tmp66872 - (let ((__tmp66873 + _e66125_) + (let ((__tmp67134 + (let ((__tmp67135 (let () (declare (not safe)) - (cons _e65863_ '())))) + (cons _e66125_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp66873)))) + __tmp67135)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp66872)))) + __tmp67134)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn65861_) + _exn66123_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn65861_) - (let ((__tmp66870 - (let ((__tmp66871 + _exn66123_) + (let ((__tmp67132 + (let ((__tmp67133 (let () (declare (not safe)) - (cons _exn65861_ '())))) + (cons _exn66123_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp66871)))) + __tmp67133)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp66870)))))) + __tmp67132)))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn65855_) + (lambda (_exn66117_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65855_)) - (let ((_e65858_ + (class-instance? RuntimeException::t _exn66117_)) + (let ((_e66120_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65855_ 'exception)))) + (unchecked-slot-ref _exn66117_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e65858_) + _e66120_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e65858_) - (let ((__tmp66876 - (let ((__tmp66877 + _e66120_) + (let ((__tmp67138 + (let ((__tmp67139 (let () (declare (not safe)) - (cons _e65858_ '())))) + (cons _e66120_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp66877)))) + __tmp67139)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp66876)))) + __tmp67138)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn65855_) + _exn66117_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn65855_) - (let ((__tmp66874 - (let ((__tmp66875 + _exn66117_) + (let ((__tmp67136 + (let ((__tmp67137 (let () (declare (not safe)) - (cons _exn65855_ '())))) + (cons _exn66117_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp66875)))) + __tmp67137)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp66874)))))) + __tmp67136)))))) (define nonprocedure-operator-exception? - (lambda (_exn65851_) + (lambda (_exn66113_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65851_)) - (let ((_e65853_ + (class-instance? RuntimeException::t _exn66113_)) + (let ((_e66115_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65851_ 'exception)))) - (macro-nonprocedure-operator-exception? _e65853_)) - (macro-nonprocedure-operator-exception? _exn65851_)))) + (unchecked-slot-ref _exn66113_ 'exception)))) + (macro-nonprocedure-operator-exception? _e66115_)) + (macro-nonprocedure-operator-exception? _exn66113_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn65847_) + (lambda (_exn66109_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65847_)) - (let ((_e65849_ + (class-instance? RuntimeException::t _exn66109_)) + (let ((_e66111_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65847_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e65849_) - (macro-nonprocedure-operator-exception-arguments _e65849_) - (let ((__tmp66880 - (let ((__tmp66881 + (unchecked-slot-ref _exn66109_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e66111_) + (macro-nonprocedure-operator-exception-arguments _e66111_) + (let ((__tmp67142 + (let ((__tmp67143 (let () (declare (not safe)) - (cons _e65849_ '())))) + (cons _e66111_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp66881)))) + __tmp67143)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66880)))) - (if (macro-nonprocedure-operator-exception? _exn65847_) - (macro-nonprocedure-operator-exception-arguments _exn65847_) - (let ((__tmp66878 - (let ((__tmp66879 + __tmp67142)))) + (if (macro-nonprocedure-operator-exception? _exn66109_) + (macro-nonprocedure-operator-exception-arguments _exn66109_) + (let ((__tmp67140 + (let ((__tmp67141 (let () (declare (not safe)) - (cons _exn65847_ '())))) + (cons _exn66109_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp66879)))) + __tmp67141)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66878)))))) + __tmp67140)))))) (define nonprocedure-operator-exception-code - (lambda (_exn65843_) + (lambda (_exn66105_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65843_)) - (let ((_e65845_ + (class-instance? RuntimeException::t _exn66105_)) + (let ((_e66107_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65843_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e65845_) - (macro-nonprocedure-operator-exception-code _e65845_) - (let ((__tmp66884 - (let ((__tmp66885 + (unchecked-slot-ref _exn66105_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e66107_) + (macro-nonprocedure-operator-exception-code _e66107_) + (let ((__tmp67146 + (let ((__tmp67147 (let () (declare (not safe)) - (cons _e65845_ '())))) + (cons _e66107_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp66885)))) + __tmp67147)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66884)))) - (if (macro-nonprocedure-operator-exception? _exn65843_) - (macro-nonprocedure-operator-exception-code _exn65843_) - (let ((__tmp66882 - (let ((__tmp66883 + __tmp67146)))) + (if (macro-nonprocedure-operator-exception? _exn66105_) + (macro-nonprocedure-operator-exception-code _exn66105_) + (let ((__tmp67144 + (let ((__tmp67145 (let () (declare (not safe)) - (cons _exn65843_ '())))) + (cons _exn66105_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp66883)))) + __tmp67145)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66882)))))) + __tmp67144)))))) (define nonprocedure-operator-exception-operator - (lambda (_exn65839_) + (lambda (_exn66101_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65839_)) - (let ((_e65841_ + (class-instance? RuntimeException::t _exn66101_)) + (let ((_e66103_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65839_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e65841_) - (macro-nonprocedure-operator-exception-operator _e65841_) - (let ((__tmp66888 - (let ((__tmp66889 + (unchecked-slot-ref _exn66101_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e66103_) + (macro-nonprocedure-operator-exception-operator _e66103_) + (let ((__tmp67150 + (let ((__tmp67151 (let () (declare (not safe)) - (cons _e65841_ '())))) + (cons _e66103_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp66889)))) + __tmp67151)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66888)))) - (if (macro-nonprocedure-operator-exception? _exn65839_) - (macro-nonprocedure-operator-exception-operator _exn65839_) - (let ((__tmp66886 - (let ((__tmp66887 + __tmp67150)))) + (if (macro-nonprocedure-operator-exception? _exn66101_) + (macro-nonprocedure-operator-exception-operator _exn66101_) + (let ((__tmp67148 + (let ((__tmp67149 (let () (declare (not safe)) - (cons _exn65839_ '())))) + (cons _exn66101_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp66887)))) + __tmp67149)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66886)))))) + __tmp67148)))))) (define nonprocedure-operator-exception-rte - (lambda (_exn65833_) + (lambda (_exn66095_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65833_)) - (let ((_e65836_ + (class-instance? RuntimeException::t _exn66095_)) + (let ((_e66098_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65833_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e65836_) - (macro-nonprocedure-operator-exception-rte _e65836_) - (let ((__tmp66892 - (let ((__tmp66893 + (unchecked-slot-ref _exn66095_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e66098_) + (macro-nonprocedure-operator-exception-rte _e66098_) + (let ((__tmp67154 + (let ((__tmp67155 (let () (declare (not safe)) - (cons _e65836_ '())))) + (cons _e66098_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp66893)))) + __tmp67155)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66892)))) - (if (macro-nonprocedure-operator-exception? _exn65833_) - (macro-nonprocedure-operator-exception-rte _exn65833_) - (let ((__tmp66890 - (let ((__tmp66891 + __tmp67154)))) + (if (macro-nonprocedure-operator-exception? _exn66095_) + (macro-nonprocedure-operator-exception-rte _exn66095_) + (let ((__tmp67152 + (let ((__tmp67153 (let () (declare (not safe)) - (cons _exn65833_ '())))) + (cons _exn66095_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp66891)))) + __tmp67153)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp66890)))))) + __tmp67152)))))) (define not-in-compilation-context-exception? - (lambda (_exn65829_) + (lambda (_exn66091_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65829_)) - (let ((_e65831_ + (class-instance? RuntimeException::t _exn66091_)) + (let ((_e66093_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65829_ 'exception)))) - (macro-not-in-compilation-context-exception? _e65831_)) - (macro-not-in-compilation-context-exception? _exn65829_)))) + (unchecked-slot-ref _exn66091_ 'exception)))) + (macro-not-in-compilation-context-exception? _e66093_)) + (macro-not-in-compilation-context-exception? _exn66091_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn65825_) + (lambda (_exn66087_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65825_)) - (let ((_e65827_ + (class-instance? RuntimeException::t _exn66087_)) + (let ((_e66089_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65825_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e65827_) + (unchecked-slot-ref _exn66087_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e66089_) (macro-not-in-compilation-context-exception-arguments - _e65827_) - (let ((__tmp66896 - (let ((__tmp66897 + _e66089_) + (let ((__tmp67158 + (let ((__tmp67159 (let () (declare (not safe)) - (cons _e65827_ '())))) + (cons _e66089_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp66897)))) + __tmp67159)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp66896)))) - (if (macro-not-in-compilation-context-exception? _exn65825_) + __tmp67158)))) + (if (macro-not-in-compilation-context-exception? _exn66087_) (macro-not-in-compilation-context-exception-arguments - _exn65825_) - (let ((__tmp66894 - (let ((__tmp66895 + _exn66087_) + (let ((__tmp67156 + (let ((__tmp67157 (let () (declare (not safe)) - (cons _exn65825_ '())))) + (cons _exn66087_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp66895)))) + __tmp67157)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp66894)))))) + __tmp67156)))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn65819_) + (lambda (_exn66081_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65819_)) - (let ((_e65822_ + (class-instance? RuntimeException::t _exn66081_)) + (let ((_e66084_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65819_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e65822_) + (unchecked-slot-ref _exn66081_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e66084_) (macro-not-in-compilation-context-exception-procedure - _e65822_) - (let ((__tmp66900 - (let ((__tmp66901 + _e66084_) + (let ((__tmp67162 + (let ((__tmp67163 (let () (declare (not safe)) - (cons _e65822_ '())))) + (cons _e66084_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp66901)))) + __tmp67163)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp66900)))) - (if (macro-not-in-compilation-context-exception? _exn65819_) + __tmp67162)))) + (if (macro-not-in-compilation-context-exception? _exn66081_) (macro-not-in-compilation-context-exception-procedure - _exn65819_) - (let ((__tmp66898 - (let ((__tmp66899 + _exn66081_) + (let ((__tmp67160 + (let ((__tmp67161 (let () (declare (not safe)) - (cons _exn65819_ '())))) + (cons _exn66081_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp66899)))) + __tmp67161)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp66898)))))) + __tmp67160)))))) (define number-of-arguments-limit-exception? - (lambda (_exn65815_) + (lambda (_exn66077_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65815_)) - (let ((_e65817_ + (class-instance? RuntimeException::t _exn66077_)) + (let ((_e66079_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65815_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e65817_)) - (macro-number-of-arguments-limit-exception? _exn65815_)))) + (unchecked-slot-ref _exn66077_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e66079_)) + (macro-number-of-arguments-limit-exception? _exn66077_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn65811_) + (lambda (_exn66073_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65811_)) - (let ((_e65813_ + (class-instance? RuntimeException::t _exn66073_)) + (let ((_e66075_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65811_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e65813_) + (unchecked-slot-ref _exn66073_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e66075_) (macro-number-of-arguments-limit-exception-arguments - _e65813_) - (let ((__tmp66904 - (let ((__tmp66905 + _e66075_) + (let ((__tmp67166 + (let ((__tmp67167 (let () (declare (not safe)) - (cons _e65813_ '())))) + (cons _e66075_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp66905)))) + __tmp67167)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp66904)))) - (if (macro-number-of-arguments-limit-exception? _exn65811_) + __tmp67166)))) + (if (macro-number-of-arguments-limit-exception? _exn66073_) (macro-number-of-arguments-limit-exception-arguments - _exn65811_) - (let ((__tmp66902 - (let ((__tmp66903 + _exn66073_) + (let ((__tmp67164 + (let ((__tmp67165 (let () (declare (not safe)) - (cons _exn65811_ '())))) + (cons _exn66073_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp66903)))) + __tmp67165)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp66902)))))) + __tmp67164)))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn65805_) + (lambda (_exn66067_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65805_)) - (let ((_e65808_ + (class-instance? RuntimeException::t _exn66067_)) + (let ((_e66070_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65805_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e65808_) + (unchecked-slot-ref _exn66067_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e66070_) (macro-number-of-arguments-limit-exception-procedure - _e65808_) - (let ((__tmp66908 - (let ((__tmp66909 + _e66070_) + (let ((__tmp67170 + (let ((__tmp67171 (let () (declare (not safe)) - (cons _e65808_ '())))) + (cons _e66070_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp66909)))) + __tmp67171)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp66908)))) - (if (macro-number-of-arguments-limit-exception? _exn65805_) + __tmp67170)))) + (if (macro-number-of-arguments-limit-exception? _exn66067_) (macro-number-of-arguments-limit-exception-procedure - _exn65805_) - (let ((__tmp66906 - (let ((__tmp66907 + _exn66067_) + (let ((__tmp67168 + (let ((__tmp67169 (let () (declare (not safe)) - (cons _exn65805_ '())))) + (cons _exn66067_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp66907)))) + __tmp67169)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp66906)))))) + __tmp67168)))))) (define os-exception? - (lambda (_exn65801_) + (lambda (_exn66063_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65801_)) - (let ((_e65803_ + (class-instance? RuntimeException::t _exn66063_)) + (let ((_e66065_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65801_ 'exception)))) - (macro-os-exception? _e65803_)) - (macro-os-exception? _exn65801_)))) + (unchecked-slot-ref _exn66063_ 'exception)))) + (macro-os-exception? _e66065_)) + (macro-os-exception? _exn66063_)))) (define os-exception-arguments - (lambda (_exn65797_) + (lambda (_exn66059_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65797_)) - (let ((_e65799_ + (class-instance? RuntimeException::t _exn66059_)) + (let ((_e66061_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65797_ 'exception)))) - (if (macro-os-exception? _e65799_) - (macro-os-exception-arguments _e65799_) - (let ((__tmp66912 - (let ((__tmp66913 + (unchecked-slot-ref _exn66059_ 'exception)))) + (if (macro-os-exception? _e66061_) + (macro-os-exception-arguments _e66061_) + (let ((__tmp67174 + (let ((__tmp67175 (let () (declare (not safe)) - (cons _e65799_ '())))) + (cons _e66061_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp66913)))) + (cons 'os-exception-arguments __tmp67175)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66912)))) - (if (macro-os-exception? _exn65797_) - (macro-os-exception-arguments _exn65797_) - (let ((__tmp66910 - (let ((__tmp66911 + (error '"not an instance" 'os-exception? __tmp67174)))) + (if (macro-os-exception? _exn66059_) + (macro-os-exception-arguments _exn66059_) + (let ((__tmp67172 + (let ((__tmp67173 (let () (declare (not safe)) - (cons _exn65797_ '())))) + (cons _exn66059_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp66911)))) + (cons 'os-exception-arguments __tmp67173)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66910)))))) + (error '"not an instance" 'os-exception? __tmp67172)))))) (define os-exception-code - (lambda (_exn65793_) + (lambda (_exn66055_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65793_)) - (let ((_e65795_ + (class-instance? RuntimeException::t _exn66055_)) + (let ((_e66057_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65793_ 'exception)))) - (if (macro-os-exception? _e65795_) - (macro-os-exception-code _e65795_) - (let ((__tmp66916 - (let ((__tmp66917 + (unchecked-slot-ref _exn66055_ 'exception)))) + (if (macro-os-exception? _e66057_) + (macro-os-exception-code _e66057_) + (let ((__tmp67178 + (let ((__tmp67179 (let () (declare (not safe)) - (cons _e65795_ '())))) + (cons _e66057_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp66917)))) + (cons 'os-exception-code __tmp67179)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66916)))) - (if (macro-os-exception? _exn65793_) - (macro-os-exception-code _exn65793_) - (let ((__tmp66914 - (let ((__tmp66915 + (error '"not an instance" 'os-exception? __tmp67178)))) + (if (macro-os-exception? _exn66055_) + (macro-os-exception-code _exn66055_) + (let ((__tmp67176 + (let ((__tmp67177 (let () (declare (not safe)) - (cons _exn65793_ '())))) + (cons _exn66055_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp66915)))) + (cons 'os-exception-code __tmp67177)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66914)))))) + (error '"not an instance" 'os-exception? __tmp67176)))))) (define os-exception-message - (lambda (_exn65789_) + (lambda (_exn66051_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65789_)) - (let ((_e65791_ + (class-instance? RuntimeException::t _exn66051_)) + (let ((_e66053_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65789_ 'exception)))) - (if (macro-os-exception? _e65791_) - (macro-os-exception-message _e65791_) - (let ((__tmp66920 - (let ((__tmp66921 + (unchecked-slot-ref _exn66051_ 'exception)))) + (if (macro-os-exception? _e66053_) + (macro-os-exception-message _e66053_) + (let ((__tmp67182 + (let ((__tmp67183 (let () (declare (not safe)) - (cons _e65791_ '())))) + (cons _e66053_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp66921)))) + (cons 'os-exception-message __tmp67183)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66920)))) - (if (macro-os-exception? _exn65789_) - (macro-os-exception-message _exn65789_) - (let ((__tmp66918 - (let ((__tmp66919 + (error '"not an instance" 'os-exception? __tmp67182)))) + (if (macro-os-exception? _exn66051_) + (macro-os-exception-message _exn66051_) + (let ((__tmp67180 + (let ((__tmp67181 (let () (declare (not safe)) - (cons _exn65789_ '())))) + (cons _exn66051_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp66919)))) + (cons 'os-exception-message __tmp67181)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66918)))))) + (error '"not an instance" 'os-exception? __tmp67180)))))) (define os-exception-procedure - (lambda (_exn65783_) + (lambda (_exn66045_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65783_)) - (let ((_e65786_ + (class-instance? RuntimeException::t _exn66045_)) + (let ((_e66048_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65783_ 'exception)))) - (if (macro-os-exception? _e65786_) - (macro-os-exception-procedure _e65786_) - (let ((__tmp66924 - (let ((__tmp66925 + (unchecked-slot-ref _exn66045_ 'exception)))) + (if (macro-os-exception? _e66048_) + (macro-os-exception-procedure _e66048_) + (let ((__tmp67186 + (let ((__tmp67187 (let () (declare (not safe)) - (cons _e65786_ '())))) + (cons _e66048_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp66925)))) + (cons 'os-exception-procedure __tmp67187)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66924)))) - (if (macro-os-exception? _exn65783_) - (macro-os-exception-procedure _exn65783_) - (let ((__tmp66922 - (let ((__tmp66923 + (error '"not an instance" 'os-exception? __tmp67186)))) + (if (macro-os-exception? _exn66045_) + (macro-os-exception-procedure _exn66045_) + (let ((__tmp67184 + (let ((__tmp67185 (let () (declare (not safe)) - (cons _exn65783_ '())))) + (cons _exn66045_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp66923)))) + (cons 'os-exception-procedure __tmp67185)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp66922)))))) + (error '"not an instance" 'os-exception? __tmp67184)))))) (define permission-denied-exception? - (lambda (_exn65779_) + (lambda (_exn66041_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65779_)) - (let ((_e65781_ + (class-instance? RuntimeException::t _exn66041_)) + (let ((_e66043_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65779_ 'exception)))) - (macro-permission-denied-exception? _e65781_)) - (macro-permission-denied-exception? _exn65779_)))) + (unchecked-slot-ref _exn66041_ 'exception)))) + (macro-permission-denied-exception? _e66043_)) + (macro-permission-denied-exception? _exn66041_)))) (define permission-denied-exception-arguments - (lambda (_exn65775_) + (lambda (_exn66037_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65775_)) - (let ((_e65777_ + (class-instance? RuntimeException::t _exn66037_)) + (let ((_e66039_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65775_ 'exception)))) - (if (macro-permission-denied-exception? _e65777_) - (macro-permission-denied-exception-arguments _e65777_) - (let ((__tmp66928 - (let ((__tmp66929 + (unchecked-slot-ref _exn66037_ 'exception)))) + (if (macro-permission-denied-exception? _e66039_) + (macro-permission-denied-exception-arguments _e66039_) + (let ((__tmp67190 + (let ((__tmp67191 (let () (declare (not safe)) - (cons _e65777_ '())))) + (cons _e66039_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp66929)))) + __tmp67191)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp66928)))) - (if (macro-permission-denied-exception? _exn65775_) - (macro-permission-denied-exception-arguments _exn65775_) - (let ((__tmp66926 - (let ((__tmp66927 + __tmp67190)))) + (if (macro-permission-denied-exception? _exn66037_) + (macro-permission-denied-exception-arguments _exn66037_) + (let ((__tmp67188 + (let ((__tmp67189 (let () (declare (not safe)) - (cons _exn65775_ '())))) + (cons _exn66037_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp66927)))) + __tmp67189)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp66926)))))) + __tmp67188)))))) (define permission-denied-exception-procedure - (lambda (_exn65769_) + (lambda (_exn66031_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65769_)) - (let ((_e65772_ + (class-instance? RuntimeException::t _exn66031_)) + (let ((_e66034_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65769_ 'exception)))) - (if (macro-permission-denied-exception? _e65772_) - (macro-permission-denied-exception-procedure _e65772_) - (let ((__tmp66932 - (let ((__tmp66933 + (unchecked-slot-ref _exn66031_ 'exception)))) + (if (macro-permission-denied-exception? _e66034_) + (macro-permission-denied-exception-procedure _e66034_) + (let ((__tmp67194 + (let ((__tmp67195 (let () (declare (not safe)) - (cons _e65772_ '())))) + (cons _e66034_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp66933)))) + __tmp67195)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp66932)))) - (if (macro-permission-denied-exception? _exn65769_) - (macro-permission-denied-exception-procedure _exn65769_) - (let ((__tmp66930 - (let ((__tmp66931 + __tmp67194)))) + (if (macro-permission-denied-exception? _exn66031_) + (macro-permission-denied-exception-procedure _exn66031_) + (let ((__tmp67192 + (let ((__tmp67193 (let () (declare (not safe)) - (cons _exn65769_ '())))) + (cons _exn66031_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp66931)))) + __tmp67193)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp66930)))))) + __tmp67192)))))) (define range-exception? - (lambda (_exn65765_) + (lambda (_exn66027_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65765_)) - (let ((_e65767_ + (class-instance? RuntimeException::t _exn66027_)) + (let ((_e66029_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65765_ 'exception)))) - (macro-range-exception? _e65767_)) - (macro-range-exception? _exn65765_)))) + (unchecked-slot-ref _exn66027_ 'exception)))) + (macro-range-exception? _e66029_)) + (macro-range-exception? _exn66027_)))) (define range-exception-arg-id - (lambda (_exn65761_) + (lambda (_exn66023_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65761_)) - (let ((_e65763_ + (class-instance? RuntimeException::t _exn66023_)) + (let ((_e66025_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65761_ 'exception)))) - (if (macro-range-exception? _e65763_) - (macro-range-exception-arg-id _e65763_) - (let ((__tmp66936 - (let ((__tmp66937 + (unchecked-slot-ref _exn66023_ 'exception)))) + (if (macro-range-exception? _e66025_) + (macro-range-exception-arg-id _e66025_) + (let ((__tmp67198 + (let ((__tmp67199 (let () (declare (not safe)) - (cons _e65763_ '())))) + (cons _e66025_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp66937)))) + (cons 'range-exception-arg-id __tmp67199)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66936)))) - (if (macro-range-exception? _exn65761_) - (macro-range-exception-arg-id _exn65761_) - (let ((__tmp66934 - (let ((__tmp66935 + (error '"not an instance" 'range-exception? __tmp67198)))) + (if (macro-range-exception? _exn66023_) + (macro-range-exception-arg-id _exn66023_) + (let ((__tmp67196 + (let ((__tmp67197 (let () (declare (not safe)) - (cons _exn65761_ '())))) + (cons _exn66023_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp66935)))) + (cons 'range-exception-arg-id __tmp67197)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66934)))))) + (error '"not an instance" 'range-exception? __tmp67196)))))) (define range-exception-arguments - (lambda (_exn65757_) + (lambda (_exn66019_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65757_)) - (let ((_e65759_ + (class-instance? RuntimeException::t _exn66019_)) + (let ((_e66021_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65757_ 'exception)))) - (if (macro-range-exception? _e65759_) - (macro-range-exception-arguments _e65759_) - (let ((__tmp66940 - (let ((__tmp66941 + (unchecked-slot-ref _exn66019_ 'exception)))) + (if (macro-range-exception? _e66021_) + (macro-range-exception-arguments _e66021_) + (let ((__tmp67202 + (let ((__tmp67203 (let () (declare (not safe)) - (cons _e65759_ '())))) + (cons _e66021_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp66941)))) + (cons 'range-exception-arguments __tmp67203)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66940)))) - (if (macro-range-exception? _exn65757_) - (macro-range-exception-arguments _exn65757_) - (let ((__tmp66938 - (let ((__tmp66939 + (error '"not an instance" 'range-exception? __tmp67202)))) + (if (macro-range-exception? _exn66019_) + (macro-range-exception-arguments _exn66019_) + (let ((__tmp67200 + (let ((__tmp67201 (let () (declare (not safe)) - (cons _exn65757_ '())))) + (cons _exn66019_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp66939)))) + (cons 'range-exception-arguments __tmp67201)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66938)))))) + (error '"not an instance" 'range-exception? __tmp67200)))))) (define range-exception-procedure - (lambda (_exn65751_) + (lambda (_exn66013_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65751_)) - (let ((_e65754_ + (class-instance? RuntimeException::t _exn66013_)) + (let ((_e66016_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65751_ 'exception)))) - (if (macro-range-exception? _e65754_) - (macro-range-exception-procedure _e65754_) - (let ((__tmp66944 - (let ((__tmp66945 + (unchecked-slot-ref _exn66013_ 'exception)))) + (if (macro-range-exception? _e66016_) + (macro-range-exception-procedure _e66016_) + (let ((__tmp67206 + (let ((__tmp67207 (let () (declare (not safe)) - (cons _e65754_ '())))) + (cons _e66016_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp66945)))) + (cons 'range-exception-procedure __tmp67207)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66944)))) - (if (macro-range-exception? _exn65751_) - (macro-range-exception-procedure _exn65751_) - (let ((__tmp66942 - (let ((__tmp66943 + (error '"not an instance" 'range-exception? __tmp67206)))) + (if (macro-range-exception? _exn66013_) + (macro-range-exception-procedure _exn66013_) + (let ((__tmp67204 + (let ((__tmp67205 (let () (declare (not safe)) - (cons _exn65751_ '())))) + (cons _exn66013_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp66943)))) + (cons 'range-exception-procedure __tmp67205)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp66942)))))) + (error '"not an instance" 'range-exception? __tmp67204)))))) (define rpc-remote-error-exception? - (lambda (_exn65747_) + (lambda (_exn66009_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65747_)) - (let ((_e65749_ + (class-instance? RuntimeException::t _exn66009_)) + (let ((_e66011_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65747_ 'exception)))) - (macro-rpc-remote-error-exception? _e65749_)) - (macro-rpc-remote-error-exception? _exn65747_)))) + (unchecked-slot-ref _exn66009_ 'exception)))) + (macro-rpc-remote-error-exception? _e66011_)) + (macro-rpc-remote-error-exception? _exn66009_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn65743_) + (lambda (_exn66005_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65743_)) - (let ((_e65745_ + (class-instance? RuntimeException::t _exn66005_)) + (let ((_e66007_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65743_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e65745_) - (macro-rpc-remote-error-exception-arguments _e65745_) - (let ((__tmp66948 - (let ((__tmp66949 + (unchecked-slot-ref _exn66005_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e66007_) + (macro-rpc-remote-error-exception-arguments _e66007_) + (let ((__tmp67210 + (let ((__tmp67211 (let () (declare (not safe)) - (cons _e65745_ '())))) + (cons _e66007_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp66949)))) + __tmp67211)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66948)))) - (if (macro-rpc-remote-error-exception? _exn65743_) - (macro-rpc-remote-error-exception-arguments _exn65743_) - (let ((__tmp66946 - (let ((__tmp66947 + __tmp67210)))) + (if (macro-rpc-remote-error-exception? _exn66005_) + (macro-rpc-remote-error-exception-arguments _exn66005_) + (let ((__tmp67208 + (let ((__tmp67209 (let () (declare (not safe)) - (cons _exn65743_ '())))) + (cons _exn66005_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp66947)))) + __tmp67209)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66946)))))) + __tmp67208)))))) (define rpc-remote-error-exception-message - (lambda (_exn65739_) + (lambda (_exn66001_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65739_)) - (let ((_e65741_ + (class-instance? RuntimeException::t _exn66001_)) + (let ((_e66003_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65739_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e65741_) - (macro-rpc-remote-error-exception-message _e65741_) - (let ((__tmp66952 - (let ((__tmp66953 + (unchecked-slot-ref _exn66001_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e66003_) + (macro-rpc-remote-error-exception-message _e66003_) + (let ((__tmp67214 + (let ((__tmp67215 (let () (declare (not safe)) - (cons _e65741_ '())))) + (cons _e66003_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp66953)))) + __tmp67215)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66952)))) - (if (macro-rpc-remote-error-exception? _exn65739_) - (macro-rpc-remote-error-exception-message _exn65739_) - (let ((__tmp66950 - (let ((__tmp66951 + __tmp67214)))) + (if (macro-rpc-remote-error-exception? _exn66001_) + (macro-rpc-remote-error-exception-message _exn66001_) + (let ((__tmp67212 + (let ((__tmp67213 (let () (declare (not safe)) - (cons _exn65739_ '())))) + (cons _exn66001_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp66951)))) + __tmp67213)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66950)))))) + __tmp67212)))))) (define rpc-remote-error-exception-procedure - (lambda (_exn65733_) + (lambda (_exn65995_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65733_)) - (let ((_e65736_ + (class-instance? RuntimeException::t _exn65995_)) + (let ((_e65998_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65733_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e65736_) - (macro-rpc-remote-error-exception-procedure _e65736_) - (let ((__tmp66956 - (let ((__tmp66957 + (unchecked-slot-ref _exn65995_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e65998_) + (macro-rpc-remote-error-exception-procedure _e65998_) + (let ((__tmp67218 + (let ((__tmp67219 (let () (declare (not safe)) - (cons _e65736_ '())))) + (cons _e65998_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp66957)))) + __tmp67219)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66956)))) - (if (macro-rpc-remote-error-exception? _exn65733_) - (macro-rpc-remote-error-exception-procedure _exn65733_) - (let ((__tmp66954 - (let ((__tmp66955 + __tmp67218)))) + (if (macro-rpc-remote-error-exception? _exn65995_) + (macro-rpc-remote-error-exception-procedure _exn65995_) + (let ((__tmp67216 + (let ((__tmp67217 (let () (declare (not safe)) - (cons _exn65733_ '())))) + (cons _exn65995_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp66955)))) + __tmp67217)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp66954)))))) + __tmp67216)))))) (define scheduler-exception? - (lambda (_exn65729_) + (lambda (_exn65991_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65729_)) - (let ((_e65731_ + (class-instance? RuntimeException::t _exn65991_)) + (let ((_e65993_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65729_ 'exception)))) - (macro-scheduler-exception? _e65731_)) - (macro-scheduler-exception? _exn65729_)))) + (unchecked-slot-ref _exn65991_ 'exception)))) + (macro-scheduler-exception? _e65993_)) + (macro-scheduler-exception? _exn65991_)))) (define scheduler-exception-reason - (lambda (_exn65723_) + (lambda (_exn65985_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65723_)) - (let ((_e65726_ + (class-instance? RuntimeException::t _exn65985_)) + (let ((_e65988_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65723_ 'exception)))) - (if (macro-scheduler-exception? _e65726_) - (macro-scheduler-exception-reason _e65726_) - (let ((__tmp66960 - (let ((__tmp66961 + (unchecked-slot-ref _exn65985_ 'exception)))) + (if (macro-scheduler-exception? _e65988_) + (macro-scheduler-exception-reason _e65988_) + (let ((__tmp67222 + (let ((__tmp67223 (let () (declare (not safe)) - (cons _e65726_ '())))) + (cons _e65988_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp66961)))) + (cons 'scheduler-exception-reason __tmp67223)))) (declare (not safe)) (error '"not an instance" 'scheduler-exception? - __tmp66960)))) - (if (macro-scheduler-exception? _exn65723_) - (macro-scheduler-exception-reason _exn65723_) - (let ((__tmp66958 - (let ((__tmp66959 + __tmp67222)))) + (if (macro-scheduler-exception? _exn65985_) + (macro-scheduler-exception-reason _exn65985_) + (let ((__tmp67220 + (let ((__tmp67221 (let () (declare (not safe)) - (cons _exn65723_ '())))) + (cons _exn65985_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp66959)))) + (cons 'scheduler-exception-reason __tmp67221)))) (declare (not safe)) (error '"not an instance" 'scheduler-exception? - __tmp66958)))))) + __tmp67220)))))) (define sfun-conversion-exception? - (lambda (_exn65719_) + (lambda (_exn65981_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65719_)) - (let ((_e65721_ + (class-instance? RuntimeException::t _exn65981_)) + (let ((_e65983_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65719_ 'exception)))) - (macro-sfun-conversion-exception? _e65721_)) - (macro-sfun-conversion-exception? _exn65719_)))) + (unchecked-slot-ref _exn65981_ 'exception)))) + (macro-sfun-conversion-exception? _e65983_)) + (macro-sfun-conversion-exception? _exn65981_)))) (define sfun-conversion-exception-arguments - (lambda (_exn65715_) + (lambda (_exn65977_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65715_)) - (let ((_e65717_ + (class-instance? RuntimeException::t _exn65977_)) + (let ((_e65979_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65715_ 'exception)))) - (if (macro-sfun-conversion-exception? _e65717_) - (macro-sfun-conversion-exception-arguments _e65717_) - (let ((__tmp66964 - (let ((__tmp66965 + (unchecked-slot-ref _exn65977_ 'exception)))) + (if (macro-sfun-conversion-exception? _e65979_) + (macro-sfun-conversion-exception-arguments _e65979_) + (let ((__tmp67226 + (let ((__tmp67227 (let () (declare (not safe)) - (cons _e65717_ '())))) + (cons _e65979_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp66965)))) + __tmp67227)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66964)))) - (if (macro-sfun-conversion-exception? _exn65715_) - (macro-sfun-conversion-exception-arguments _exn65715_) - (let ((__tmp66962 - (let ((__tmp66963 + __tmp67226)))) + (if (macro-sfun-conversion-exception? _exn65977_) + (macro-sfun-conversion-exception-arguments _exn65977_) + (let ((__tmp67224 + (let ((__tmp67225 (let () (declare (not safe)) - (cons _exn65715_ '())))) + (cons _exn65977_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp66963)))) + __tmp67225)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66962)))))) + __tmp67224)))))) (define sfun-conversion-exception-code - (lambda (_exn65711_) + (lambda (_exn65973_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65711_)) - (let ((_e65713_ + (class-instance? RuntimeException::t _exn65973_)) + (let ((_e65975_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65711_ 'exception)))) - (if (macro-sfun-conversion-exception? _e65713_) - (macro-sfun-conversion-exception-code _e65713_) - (let ((__tmp66968 - (let ((__tmp66969 + (unchecked-slot-ref _exn65973_ 'exception)))) + (if (macro-sfun-conversion-exception? _e65975_) + (macro-sfun-conversion-exception-code _e65975_) + (let ((__tmp67230 + (let ((__tmp67231 (let () (declare (not safe)) - (cons _e65713_ '())))) + (cons _e65975_ '())))) (declare (not safe)) - (cons 'sfun-conversion-exception-code __tmp66969)))) + (cons 'sfun-conversion-exception-code __tmp67231)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66968)))) - (if (macro-sfun-conversion-exception? _exn65711_) - (macro-sfun-conversion-exception-code _exn65711_) - (let ((__tmp66966 - (let ((__tmp66967 + __tmp67230)))) + (if (macro-sfun-conversion-exception? _exn65973_) + (macro-sfun-conversion-exception-code _exn65973_) + (let ((__tmp67228 + (let ((__tmp67229 (let () (declare (not safe)) - (cons _exn65711_ '())))) + (cons _exn65973_ '())))) (declare (not safe)) - (cons 'sfun-conversion-exception-code __tmp66967)))) + (cons 'sfun-conversion-exception-code __tmp67229)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66966)))))) + __tmp67228)))))) (define sfun-conversion-exception-message - (lambda (_exn65707_) + (lambda (_exn65969_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65707_)) - (let ((_e65709_ + (class-instance? RuntimeException::t _exn65969_)) + (let ((_e65971_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65707_ 'exception)))) - (if (macro-sfun-conversion-exception? _e65709_) - (macro-sfun-conversion-exception-message _e65709_) - (let ((__tmp66972 - (let ((__tmp66973 + (unchecked-slot-ref _exn65969_ 'exception)))) + (if (macro-sfun-conversion-exception? _e65971_) + (macro-sfun-conversion-exception-message _e65971_) + (let ((__tmp67234 + (let ((__tmp67235 (let () (declare (not safe)) - (cons _e65709_ '())))) + (cons _e65971_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp66973)))) + __tmp67235)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66972)))) - (if (macro-sfun-conversion-exception? _exn65707_) - (macro-sfun-conversion-exception-message _exn65707_) - (let ((__tmp66970 - (let ((__tmp66971 + __tmp67234)))) + (if (macro-sfun-conversion-exception? _exn65969_) + (macro-sfun-conversion-exception-message _exn65969_) + (let ((__tmp67232 + (let ((__tmp67233 (let () (declare (not safe)) - (cons _exn65707_ '())))) + (cons _exn65969_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp66971)))) + __tmp67233)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66970)))))) + __tmp67232)))))) (define sfun-conversion-exception-procedure - (lambda (_exn65701_) + (lambda (_exn65963_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65701_)) - (let ((_e65704_ + (class-instance? RuntimeException::t _exn65963_)) + (let ((_e65966_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65701_ 'exception)))) - (if (macro-sfun-conversion-exception? _e65704_) - (macro-sfun-conversion-exception-procedure _e65704_) - (let ((__tmp66976 - (let ((__tmp66977 + (unchecked-slot-ref _exn65963_ 'exception)))) + (if (macro-sfun-conversion-exception? _e65966_) + (macro-sfun-conversion-exception-procedure _e65966_) + (let ((__tmp67238 + (let ((__tmp67239 (let () (declare (not safe)) - (cons _e65704_ '())))) + (cons _e65966_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp66977)))) + __tmp67239)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66976)))) - (if (macro-sfun-conversion-exception? _exn65701_) - (macro-sfun-conversion-exception-procedure _exn65701_) - (let ((__tmp66974 - (let ((__tmp66975 + __tmp67238)))) + (if (macro-sfun-conversion-exception? _exn65963_) + (macro-sfun-conversion-exception-procedure _exn65963_) + (let ((__tmp67236 + (let ((__tmp67237 (let () (declare (not safe)) - (cons _exn65701_ '())))) + (cons _exn65963_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp66975)))) + __tmp67237)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp66974)))))) + __tmp67236)))))) (define stack-overflow-exception? - (lambda (_exn65695_) + (lambda (_exn65957_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65695_)) - (let ((_e65698_ + (class-instance? RuntimeException::t _exn65957_)) + (let ((_e65960_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65695_ 'exception)))) - (macro-stack-overflow-exception? _e65698_)) - (macro-stack-overflow-exception? _exn65695_)))) + (unchecked-slot-ref _exn65957_ 'exception)))) + (macro-stack-overflow-exception? _e65960_)) + (macro-stack-overflow-exception? _exn65957_)))) (define started-thread-exception? - (lambda (_exn65691_) + (lambda (_exn65953_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65691_)) - (let ((_e65693_ + (class-instance? RuntimeException::t _exn65953_)) + (let ((_e65955_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65691_ 'exception)))) - (macro-started-thread-exception? _e65693_)) - (macro-started-thread-exception? _exn65691_)))) + (unchecked-slot-ref _exn65953_ 'exception)))) + (macro-started-thread-exception? _e65955_)) + (macro-started-thread-exception? _exn65953_)))) (define started-thread-exception-arguments - (lambda (_exn65687_) + (lambda (_exn65949_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65687_)) - (let ((_e65689_ + (class-instance? RuntimeException::t _exn65949_)) + (let ((_e65951_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65687_ 'exception)))) - (if (macro-started-thread-exception? _e65689_) - (macro-started-thread-exception-arguments _e65689_) - (let ((__tmp66980 - (let ((__tmp66981 + (unchecked-slot-ref _exn65949_ 'exception)))) + (if (macro-started-thread-exception? _e65951_) + (macro-started-thread-exception-arguments _e65951_) + (let ((__tmp67242 + (let ((__tmp67243 (let () (declare (not safe)) - (cons _e65689_ '())))) + (cons _e65951_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp66981)))) + __tmp67243)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp66980)))) - (if (macro-started-thread-exception? _exn65687_) - (macro-started-thread-exception-arguments _exn65687_) - (let ((__tmp66978 - (let ((__tmp66979 + __tmp67242)))) + (if (macro-started-thread-exception? _exn65949_) + (macro-started-thread-exception-arguments _exn65949_) + (let ((__tmp67240 + (let ((__tmp67241 (let () (declare (not safe)) - (cons _exn65687_ '())))) + (cons _exn65949_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp66979)))) + __tmp67241)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp66978)))))) + __tmp67240)))))) (define started-thread-exception-procedure - (lambda (_exn65681_) + (lambda (_exn65943_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65681_)) - (let ((_e65684_ + (class-instance? RuntimeException::t _exn65943_)) + (let ((_e65946_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65681_ 'exception)))) - (if (macro-started-thread-exception? _e65684_) - (macro-started-thread-exception-procedure _e65684_) - (let ((__tmp66984 - (let ((__tmp66985 + (unchecked-slot-ref _exn65943_ 'exception)))) + (if (macro-started-thread-exception? _e65946_) + (macro-started-thread-exception-procedure _e65946_) + (let ((__tmp67246 + (let ((__tmp67247 (let () (declare (not safe)) - (cons _e65684_ '())))) + (cons _e65946_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp66985)))) + __tmp67247)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp66984)))) - (if (macro-started-thread-exception? _exn65681_) - (macro-started-thread-exception-procedure _exn65681_) - (let ((__tmp66982 - (let ((__tmp66983 + __tmp67246)))) + (if (macro-started-thread-exception? _exn65943_) + (macro-started-thread-exception-procedure _exn65943_) + (let ((__tmp67244 + (let ((__tmp67245 (let () (declare (not safe)) - (cons _exn65681_ '())))) + (cons _exn65943_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp66983)))) + __tmp67245)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp66982)))))) + __tmp67244)))))) (define terminated-thread-exception? - (lambda (_exn65677_) + (lambda (_exn65939_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65677_)) - (let ((_e65679_ + (class-instance? RuntimeException::t _exn65939_)) + (let ((_e65941_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65677_ 'exception)))) - (macro-terminated-thread-exception? _e65679_)) - (macro-terminated-thread-exception? _exn65677_)))) + (unchecked-slot-ref _exn65939_ 'exception)))) + (macro-terminated-thread-exception? _e65941_)) + (macro-terminated-thread-exception? _exn65939_)))) (define terminated-thread-exception-arguments - (lambda (_exn65673_) + (lambda (_exn65935_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65673_)) - (let ((_e65675_ + (class-instance? RuntimeException::t _exn65935_)) + (let ((_e65937_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65673_ 'exception)))) - (if (macro-terminated-thread-exception? _e65675_) - (macro-terminated-thread-exception-arguments _e65675_) - (let ((__tmp66988 - (let ((__tmp66989 + (unchecked-slot-ref _exn65935_ 'exception)))) + (if (macro-terminated-thread-exception? _e65937_) + (macro-terminated-thread-exception-arguments _e65937_) + (let ((__tmp67250 + (let ((__tmp67251 (let () (declare (not safe)) - (cons _e65675_ '())))) + (cons _e65937_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp66989)))) + __tmp67251)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp66988)))) - (if (macro-terminated-thread-exception? _exn65673_) - (macro-terminated-thread-exception-arguments _exn65673_) - (let ((__tmp66986 - (let ((__tmp66987 + __tmp67250)))) + (if (macro-terminated-thread-exception? _exn65935_) + (macro-terminated-thread-exception-arguments _exn65935_) + (let ((__tmp67248 + (let ((__tmp67249 (let () (declare (not safe)) - (cons _exn65673_ '())))) + (cons _exn65935_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp66987)))) + __tmp67249)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp66986)))))) + __tmp67248)))))) (define terminated-thread-exception-procedure - (lambda (_exn65667_) + (lambda (_exn65929_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65667_)) - (let ((_e65670_ + (class-instance? RuntimeException::t _exn65929_)) + (let ((_e65932_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65667_ 'exception)))) - (if (macro-terminated-thread-exception? _e65670_) - (macro-terminated-thread-exception-procedure _e65670_) - (let ((__tmp66992 - (let ((__tmp66993 + (unchecked-slot-ref _exn65929_ 'exception)))) + (if (macro-terminated-thread-exception? _e65932_) + (macro-terminated-thread-exception-procedure _e65932_) + (let ((__tmp67254 + (let ((__tmp67255 (let () (declare (not safe)) - (cons _e65670_ '())))) + (cons _e65932_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp66993)))) + __tmp67255)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp66992)))) - (if (macro-terminated-thread-exception? _exn65667_) - (macro-terminated-thread-exception-procedure _exn65667_) - (let ((__tmp66990 - (let ((__tmp66991 + __tmp67254)))) + (if (macro-terminated-thread-exception? _exn65929_) + (macro-terminated-thread-exception-procedure _exn65929_) + (let ((__tmp67252 + (let ((__tmp67253 (let () (declare (not safe)) - (cons _exn65667_ '())))) + (cons _exn65929_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp66991)))) + __tmp67253)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp66990)))))) + __tmp67252)))))) (define type-exception? - (lambda (_exn65663_) + (lambda (_exn65925_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65663_)) - (let ((_e65665_ + (class-instance? RuntimeException::t _exn65925_)) + (let ((_e65927_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65663_ 'exception)))) - (macro-type-exception? _e65665_)) - (macro-type-exception? _exn65663_)))) + (unchecked-slot-ref _exn65925_ 'exception)))) + (macro-type-exception? _e65927_)) + (macro-type-exception? _exn65925_)))) (define type-exception-arg-id - (lambda (_exn65659_) + (lambda (_exn65921_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65659_)) - (let ((_e65661_ + (class-instance? RuntimeException::t _exn65921_)) + (let ((_e65923_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65659_ 'exception)))) - (if (macro-type-exception? _e65661_) - (macro-type-exception-arg-id _e65661_) - (let ((__tmp66996 - (let ((__tmp66997 + (unchecked-slot-ref _exn65921_ 'exception)))) + (if (macro-type-exception? _e65923_) + (macro-type-exception-arg-id _e65923_) + (let ((__tmp67258 + (let ((__tmp67259 (let () (declare (not safe)) - (cons _e65661_ '())))) + (cons _e65923_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp66997)))) + (cons 'type-exception-arg-id __tmp67259)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp66996)))) - (if (macro-type-exception? _exn65659_) - (macro-type-exception-arg-id _exn65659_) - (let ((__tmp66994 - (let ((__tmp66995 + (error '"not an instance" 'type-exception? __tmp67258)))) + (if (macro-type-exception? _exn65921_) + (macro-type-exception-arg-id _exn65921_) + (let ((__tmp67256 + (let ((__tmp67257 (let () (declare (not safe)) - (cons _exn65659_ '())))) + (cons _exn65921_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp66995)))) + (cons 'type-exception-arg-id __tmp67257)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp66994)))))) + (error '"not an instance" 'type-exception? __tmp67256)))))) (define type-exception-arguments - (lambda (_exn65655_) + (lambda (_exn65917_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65655_)) - (let ((_e65657_ + (class-instance? RuntimeException::t _exn65917_)) + (let ((_e65919_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65655_ 'exception)))) - (if (macro-type-exception? _e65657_) - (macro-type-exception-arguments _e65657_) - (let ((__tmp67000 - (let ((__tmp67001 + (unchecked-slot-ref _exn65917_ 'exception)))) + (if (macro-type-exception? _e65919_) + (macro-type-exception-arguments _e65919_) + (let ((__tmp67262 + (let ((__tmp67263 (let () (declare (not safe)) - (cons _e65657_ '())))) + (cons _e65919_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp67001)))) + (cons 'type-exception-arguments __tmp67263)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67000)))) - (if (macro-type-exception? _exn65655_) - (macro-type-exception-arguments _exn65655_) - (let ((__tmp66998 - (let ((__tmp66999 + (error '"not an instance" 'type-exception? __tmp67262)))) + (if (macro-type-exception? _exn65917_) + (macro-type-exception-arguments _exn65917_) + (let ((__tmp67260 + (let ((__tmp67261 (let () (declare (not safe)) - (cons _exn65655_ '())))) + (cons _exn65917_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp66999)))) + (cons 'type-exception-arguments __tmp67261)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp66998)))))) + (error '"not an instance" 'type-exception? __tmp67260)))))) (define type-exception-procedure - (lambda (_exn65651_) + (lambda (_exn65913_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65651_)) - (let ((_e65653_ + (class-instance? RuntimeException::t _exn65913_)) + (let ((_e65915_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65651_ 'exception)))) - (if (macro-type-exception? _e65653_) - (macro-type-exception-procedure _e65653_) - (let ((__tmp67004 - (let ((__tmp67005 + (unchecked-slot-ref _exn65913_ 'exception)))) + (if (macro-type-exception? _e65915_) + (macro-type-exception-procedure _e65915_) + (let ((__tmp67266 + (let ((__tmp67267 (let () (declare (not safe)) - (cons _e65653_ '())))) + (cons _e65915_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp67005)))) + (cons 'type-exception-procedure __tmp67267)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67004)))) - (if (macro-type-exception? _exn65651_) - (macro-type-exception-procedure _exn65651_) - (let ((__tmp67002 - (let ((__tmp67003 + (error '"not an instance" 'type-exception? __tmp67266)))) + (if (macro-type-exception? _exn65913_) + (macro-type-exception-procedure _exn65913_) + (let ((__tmp67264 + (let ((__tmp67265 (let () (declare (not safe)) - (cons _exn65651_ '())))) + (cons _exn65913_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp67003)))) + (cons 'type-exception-procedure __tmp67265)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67002)))))) + (error '"not an instance" 'type-exception? __tmp67264)))))) (define type-exception-type-id - (lambda (_exn65645_) + (lambda (_exn65907_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65645_)) - (let ((_e65648_ + (class-instance? RuntimeException::t _exn65907_)) + (let ((_e65910_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65645_ 'exception)))) - (if (macro-type-exception? _e65648_) - (macro-type-exception-type-id _e65648_) - (let ((__tmp67008 - (let ((__tmp67009 + (unchecked-slot-ref _exn65907_ 'exception)))) + (if (macro-type-exception? _e65910_) + (macro-type-exception-type-id _e65910_) + (let ((__tmp67270 + (let ((__tmp67271 (let () (declare (not safe)) - (cons _e65648_ '())))) + (cons _e65910_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp67009)))) + (cons 'type-exception-type-id __tmp67271)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67008)))) - (if (macro-type-exception? _exn65645_) - (macro-type-exception-type-id _exn65645_) - (let ((__tmp67006 - (let ((__tmp67007 + (error '"not an instance" 'type-exception? __tmp67270)))) + (if (macro-type-exception? _exn65907_) + (macro-type-exception-type-id _exn65907_) + (let ((__tmp67268 + (let ((__tmp67269 (let () (declare (not safe)) - (cons _exn65645_ '())))) + (cons _exn65907_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp67007)))) + (cons 'type-exception-type-id __tmp67269)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp67006)))))) + (error '"not an instance" 'type-exception? __tmp67268)))))) (define unbound-global-exception? - (lambda (_exn65641_) + (lambda (_exn65903_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65641_)) - (let ((_e65643_ + (class-instance? RuntimeException::t _exn65903_)) + (let ((_e65905_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65641_ 'exception)))) - (macro-unbound-global-exception? _e65643_)) - (macro-unbound-global-exception? _exn65641_)))) + (unchecked-slot-ref _exn65903_ 'exception)))) + (macro-unbound-global-exception? _e65905_)) + (macro-unbound-global-exception? _exn65903_)))) (define unbound-global-exception-code - (lambda (_exn65637_) + (lambda (_exn65899_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65637_)) - (let ((_e65639_ + (class-instance? RuntimeException::t _exn65899_)) + (let ((_e65901_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65637_ 'exception)))) - (if (macro-unbound-global-exception? _e65639_) - (macro-unbound-global-exception-code _e65639_) - (let ((__tmp67012 - (let ((__tmp67013 + (unchecked-slot-ref _exn65899_ 'exception)))) + (if (macro-unbound-global-exception? _e65901_) + (macro-unbound-global-exception-code _e65901_) + (let ((__tmp67274 + (let ((__tmp67275 (let () (declare (not safe)) - (cons _e65639_ '())))) + (cons _e65901_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp67013)))) + (cons 'unbound-global-exception-code __tmp67275)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67012)))) - (if (macro-unbound-global-exception? _exn65637_) - (macro-unbound-global-exception-code _exn65637_) - (let ((__tmp67010 - (let ((__tmp67011 + __tmp67274)))) + (if (macro-unbound-global-exception? _exn65899_) + (macro-unbound-global-exception-code _exn65899_) + (let ((__tmp67272 + (let ((__tmp67273 (let () (declare (not safe)) - (cons _exn65637_ '())))) + (cons _exn65899_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp67011)))) + (cons 'unbound-global-exception-code __tmp67273)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67010)))))) + __tmp67272)))))) (define unbound-global-exception-rte - (lambda (_exn65633_) + (lambda (_exn65895_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65633_)) - (let ((_e65635_ + (class-instance? RuntimeException::t _exn65895_)) + (let ((_e65897_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65633_ 'exception)))) - (if (macro-unbound-global-exception? _e65635_) - (macro-unbound-global-exception-rte _e65635_) - (let ((__tmp67016 - (let ((__tmp67017 + (unchecked-slot-ref _exn65895_ 'exception)))) + (if (macro-unbound-global-exception? _e65897_) + (macro-unbound-global-exception-rte _e65897_) + (let ((__tmp67278 + (let ((__tmp67279 (let () (declare (not safe)) - (cons _e65635_ '())))) + (cons _e65897_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp67017)))) + (cons 'unbound-global-exception-rte __tmp67279)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67016)))) - (if (macro-unbound-global-exception? _exn65633_) - (macro-unbound-global-exception-rte _exn65633_) - (let ((__tmp67014 - (let ((__tmp67015 + __tmp67278)))) + (if (macro-unbound-global-exception? _exn65895_) + (macro-unbound-global-exception-rte _exn65895_) + (let ((__tmp67276 + (let ((__tmp67277 (let () (declare (not safe)) - (cons _exn65633_ '())))) + (cons _exn65895_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp67015)))) + (cons 'unbound-global-exception-rte __tmp67277)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67014)))))) + __tmp67276)))))) (define unbound-global-exception-variable - (lambda (_exn65627_) + (lambda (_exn65889_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65627_)) - (let ((_e65630_ + (class-instance? RuntimeException::t _exn65889_)) + (let ((_e65892_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65627_ 'exception)))) - (if (macro-unbound-global-exception? _e65630_) - (macro-unbound-global-exception-variable _e65630_) - (let ((__tmp67020 - (let ((__tmp67021 + (unchecked-slot-ref _exn65889_ 'exception)))) + (if (macro-unbound-global-exception? _e65892_) + (macro-unbound-global-exception-variable _e65892_) + (let ((__tmp67282 + (let ((__tmp67283 (let () (declare (not safe)) - (cons _e65630_ '())))) + (cons _e65892_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp67021)))) + __tmp67283)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67020)))) - (if (macro-unbound-global-exception? _exn65627_) - (macro-unbound-global-exception-variable _exn65627_) - (let ((__tmp67018 - (let ((__tmp67019 + __tmp67282)))) + (if (macro-unbound-global-exception? _exn65889_) + (macro-unbound-global-exception-variable _exn65889_) + (let ((__tmp67280 + (let ((__tmp67281 (let () (declare (not safe)) - (cons _exn65627_ '())))) + (cons _exn65889_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp67019)))) + __tmp67281)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp67018)))))) + __tmp67280)))))) (define unbound-key-exception? - (lambda (_exn65623_) + (lambda (_exn65885_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65623_)) - (let ((_e65625_ + (class-instance? RuntimeException::t _exn65885_)) + (let ((_e65887_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65623_ 'exception)))) - (macro-unbound-key-exception? _e65625_)) - (macro-unbound-key-exception? _exn65623_)))) + (unchecked-slot-ref _exn65885_ 'exception)))) + (macro-unbound-key-exception? _e65887_)) + (macro-unbound-key-exception? _exn65885_)))) (define unbound-key-exception-arguments - (lambda (_exn65619_) + (lambda (_exn65881_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65619_)) - (let ((_e65621_ + (class-instance? RuntimeException::t _exn65881_)) + (let ((_e65883_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65619_ 'exception)))) - (if (macro-unbound-key-exception? _e65621_) - (macro-unbound-key-exception-arguments _e65621_) - (let ((__tmp67024 - (let ((__tmp67025 + (unchecked-slot-ref _exn65881_ 'exception)))) + (if (macro-unbound-key-exception? _e65883_) + (macro-unbound-key-exception-arguments _e65883_) + (let ((__tmp67286 + (let ((__tmp67287 (let () (declare (not safe)) - (cons _e65621_ '())))) + (cons _e65883_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp67025)))) + __tmp67287)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp67024)))) - (if (macro-unbound-key-exception? _exn65619_) - (macro-unbound-key-exception-arguments _exn65619_) - (let ((__tmp67022 - (let ((__tmp67023 + __tmp67286)))) + (if (macro-unbound-key-exception? _exn65881_) + (macro-unbound-key-exception-arguments _exn65881_) + (let ((__tmp67284 + (let ((__tmp67285 (let () (declare (not safe)) - (cons _exn65619_ '())))) + (cons _exn65881_ '())))) (declare (not safe)) - (cons 'unbound-key-exception-arguments __tmp67023)))) + (cons 'unbound-key-exception-arguments __tmp67285)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp67022)))))) + __tmp67284)))))) (define unbound-key-exception-procedure - (lambda (_exn65613_) + (lambda (_exn65875_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65613_)) - (let ((_e65616_ + (class-instance? RuntimeException::t _exn65875_)) + (let ((_e65878_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65613_ 'exception)))) - (if (macro-unbound-key-exception? _e65616_) - (macro-unbound-key-exception-procedure _e65616_) - (let ((__tmp67028 - (let ((__tmp67029 + (unchecked-slot-ref _exn65875_ 'exception)))) + (if (macro-unbound-key-exception? _e65878_) + (macro-unbound-key-exception-procedure _e65878_) + (let ((__tmp67290 + (let ((__tmp67291 (let () (declare (not safe)) - (cons _e65616_ '())))) + (cons _e65878_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp67029)))) + __tmp67291)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp67028)))) - (if (macro-unbound-key-exception? _exn65613_) - (macro-unbound-key-exception-procedure _exn65613_) - (let ((__tmp67026 - (let ((__tmp67027 + __tmp67290)))) + (if (macro-unbound-key-exception? _exn65875_) + (macro-unbound-key-exception-procedure _exn65875_) + (let ((__tmp67288 + (let ((__tmp67289 (let () (declare (not safe)) - (cons _exn65613_ '())))) + (cons _exn65875_ '())))) (declare (not safe)) - (cons 'unbound-key-exception-procedure __tmp67027)))) + (cons 'unbound-key-exception-procedure __tmp67289)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp67026)))))) + __tmp67288)))))) (define unbound-os-environment-variable-exception? - (lambda (_exn65609_) + (lambda (_exn65871_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65609_)) - (let ((_e65611_ + (class-instance? RuntimeException::t _exn65871_)) + (let ((_e65873_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65609_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e65611_)) - (macro-unbound-os-environment-variable-exception? _exn65609_)))) + (unchecked-slot-ref _exn65871_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e65873_)) + (macro-unbound-os-environment-variable-exception? _exn65871_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn65605_) + (lambda (_exn65867_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65605_)) - (let ((_e65607_ + (class-instance? RuntimeException::t _exn65867_)) + (let ((_e65869_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65605_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e65607_) + (unchecked-slot-ref _exn65867_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e65869_) (macro-unbound-os-environment-variable-exception-arguments - _e65607_) - (let ((__tmp67032 - (let ((__tmp67033 + _e65869_) + (let ((__tmp67294 + (let ((__tmp67295 (let () (declare (not safe)) - (cons _e65607_ '())))) + (cons _e65869_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp67033)))) + __tmp67295)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp67032)))) - (if (macro-unbound-os-environment-variable-exception? _exn65605_) + __tmp67294)))) + (if (macro-unbound-os-environment-variable-exception? _exn65867_) (macro-unbound-os-environment-variable-exception-arguments - _exn65605_) - (let ((__tmp67030 - (let ((__tmp67031 + _exn65867_) + (let ((__tmp67292 + (let ((__tmp67293 (let () (declare (not safe)) - (cons _exn65605_ '())))) + (cons _exn65867_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp67031)))) + __tmp67293)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp67030)))))) + __tmp67292)))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn65599_) + (lambda (_exn65861_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65599_)) - (let ((_e65602_ + (class-instance? RuntimeException::t _exn65861_)) + (let ((_e65864_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65599_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e65602_) + (unchecked-slot-ref _exn65861_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e65864_) (macro-unbound-os-environment-variable-exception-procedure - _e65602_) - (let ((__tmp67036 - (let ((__tmp67037 + _e65864_) + (let ((__tmp67298 + (let ((__tmp67299 (let () (declare (not safe)) - (cons _e65602_ '())))) + (cons _e65864_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp67037)))) + __tmp67299)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp67036)))) - (if (macro-unbound-os-environment-variable-exception? _exn65599_) + __tmp67298)))) + (if (macro-unbound-os-environment-variable-exception? _exn65861_) (macro-unbound-os-environment-variable-exception-procedure - _exn65599_) - (let ((__tmp67034 - (let ((__tmp67035 + _exn65861_) + (let ((__tmp67296 + (let ((__tmp67297 (let () (declare (not safe)) - (cons _exn65599_ '())))) + (cons _exn65861_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp67035)))) + __tmp67297)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp67034)))))) + __tmp67296)))))) (define unbound-serial-number-exception? - (lambda (_exn65595_) + (lambda (_exn65857_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65595_)) - (let ((_e65597_ + (class-instance? RuntimeException::t _exn65857_)) + (let ((_e65859_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65595_ 'exception)))) - (macro-unbound-serial-number-exception? _e65597_)) - (macro-unbound-serial-number-exception? _exn65595_)))) + (unchecked-slot-ref _exn65857_ 'exception)))) + (macro-unbound-serial-number-exception? _e65859_)) + (macro-unbound-serial-number-exception? _exn65857_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn65591_) + (lambda (_exn65853_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65591_)) - (let ((_e65593_ + (class-instance? RuntimeException::t _exn65853_)) + (let ((_e65855_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65591_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e65593_) - (macro-unbound-serial-number-exception-arguments _e65593_) - (let ((__tmp67040 - (let ((__tmp67041 + (unchecked-slot-ref _exn65853_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e65855_) + (macro-unbound-serial-number-exception-arguments _e65855_) + (let ((__tmp67302 + (let ((__tmp67303 (let () (declare (not safe)) - (cons _e65593_ '())))) + (cons _e65855_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp67041)))) + __tmp67303)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp67040)))) - (if (macro-unbound-serial-number-exception? _exn65591_) - (macro-unbound-serial-number-exception-arguments _exn65591_) - (let ((__tmp67038 - (let ((__tmp67039 + __tmp67302)))) + (if (macro-unbound-serial-number-exception? _exn65853_) + (macro-unbound-serial-number-exception-arguments _exn65853_) + (let ((__tmp67300 + (let ((__tmp67301 (let () (declare (not safe)) - (cons _exn65591_ '())))) + (cons _exn65853_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp67039)))) + __tmp67301)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp67038)))))) + __tmp67300)))))) (define unbound-serial-number-exception-procedure - (lambda (_exn65585_) + (lambda (_exn65847_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65585_)) - (let ((_e65588_ + (class-instance? RuntimeException::t _exn65847_)) + (let ((_e65850_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65585_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e65588_) - (macro-unbound-serial-number-exception-procedure _e65588_) - (let ((__tmp67044 - (let ((__tmp67045 + (unchecked-slot-ref _exn65847_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e65850_) + (macro-unbound-serial-number-exception-procedure _e65850_) + (let ((__tmp67306 + (let ((__tmp67307 (let () (declare (not safe)) - (cons _e65588_ '())))) + (cons _e65850_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp67045)))) + __tmp67307)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp67044)))) - (if (macro-unbound-serial-number-exception? _exn65585_) - (macro-unbound-serial-number-exception-procedure _exn65585_) - (let ((__tmp67042 - (let ((__tmp67043 + __tmp67306)))) + (if (macro-unbound-serial-number-exception? _exn65847_) + (macro-unbound-serial-number-exception-procedure _exn65847_) + (let ((__tmp67304 + (let ((__tmp67305 (let () (declare (not safe)) - (cons _exn65585_ '())))) + (cons _exn65847_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp67043)))) + __tmp67305)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp67042)))))) + __tmp67304)))))) (define uncaught-exception? - (lambda (_exn65581_) + (lambda (_exn65843_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65581_)) - (let ((_e65583_ + (class-instance? RuntimeException::t _exn65843_)) + (let ((_e65845_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65581_ 'exception)))) - (macro-uncaught-exception? _e65583_)) - (macro-uncaught-exception? _exn65581_)))) + (unchecked-slot-ref _exn65843_ 'exception)))) + (macro-uncaught-exception? _e65845_)) + (macro-uncaught-exception? _exn65843_)))) (define uncaught-exception-arguments - (lambda (_exn65577_) + (lambda (_exn65839_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65577_)) - (let ((_e65579_ + (class-instance? RuntimeException::t _exn65839_)) + (let ((_e65841_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65577_ 'exception)))) - (if (macro-uncaught-exception? _e65579_) - (macro-uncaught-exception-arguments _e65579_) - (let ((__tmp67048 - (let ((__tmp67049 + (unchecked-slot-ref _exn65839_ 'exception)))) + (if (macro-uncaught-exception? _e65841_) + (macro-uncaught-exception-arguments _e65841_) + (let ((__tmp67310 + (let ((__tmp67311 (let () (declare (not safe)) - (cons _e65579_ '())))) + (cons _e65841_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp67049)))) + (cons 'uncaught-exception-arguments __tmp67311)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67048)))) - (if (macro-uncaught-exception? _exn65577_) - (macro-uncaught-exception-arguments _exn65577_) - (let ((__tmp67046 - (let ((__tmp67047 + __tmp67310)))) + (if (macro-uncaught-exception? _exn65839_) + (macro-uncaught-exception-arguments _exn65839_) + (let ((__tmp67308 + (let ((__tmp67309 (let () (declare (not safe)) - (cons _exn65577_ '())))) + (cons _exn65839_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp67047)))) + (cons 'uncaught-exception-arguments __tmp67309)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67046)))))) + __tmp67308)))))) (define uncaught-exception-procedure - (lambda (_exn65573_) + (lambda (_exn65835_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65573_)) - (let ((_e65575_ + (class-instance? RuntimeException::t _exn65835_)) + (let ((_e65837_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65573_ 'exception)))) - (if (macro-uncaught-exception? _e65575_) - (macro-uncaught-exception-procedure _e65575_) - (let ((__tmp67052 - (let ((__tmp67053 + (unchecked-slot-ref _exn65835_ 'exception)))) + (if (macro-uncaught-exception? _e65837_) + (macro-uncaught-exception-procedure _e65837_) + (let ((__tmp67314 + (let ((__tmp67315 (let () (declare (not safe)) - (cons _e65575_ '())))) + (cons _e65837_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp67053)))) + (cons 'uncaught-exception-procedure __tmp67315)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67052)))) - (if (macro-uncaught-exception? _exn65573_) - (macro-uncaught-exception-procedure _exn65573_) - (let ((__tmp67050 - (let ((__tmp67051 + __tmp67314)))) + (if (macro-uncaught-exception? _exn65835_) + (macro-uncaught-exception-procedure _exn65835_) + (let ((__tmp67312 + (let ((__tmp67313 (let () (declare (not safe)) - (cons _exn65573_ '())))) + (cons _exn65835_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp67051)))) + (cons 'uncaught-exception-procedure __tmp67313)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67050)))))) + __tmp67312)))))) (define uncaught-exception-reason - (lambda (_exn65567_) + (lambda (_exn65829_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65567_)) - (let ((_e65570_ + (class-instance? RuntimeException::t _exn65829_)) + (let ((_e65832_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65567_ 'exception)))) - (if (macro-uncaught-exception? _e65570_) - (macro-uncaught-exception-reason _e65570_) - (let ((__tmp67056 - (let ((__tmp67057 + (unchecked-slot-ref _exn65829_ 'exception)))) + (if (macro-uncaught-exception? _e65832_) + (macro-uncaught-exception-reason _e65832_) + (let ((__tmp67318 + (let ((__tmp67319 (let () (declare (not safe)) - (cons _e65570_ '())))) + (cons _e65832_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp67057)))) + (cons 'uncaught-exception-reason __tmp67319)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67056)))) - (if (macro-uncaught-exception? _exn65567_) - (macro-uncaught-exception-reason _exn65567_) - (let ((__tmp67054 - (let ((__tmp67055 + __tmp67318)))) + (if (macro-uncaught-exception? _exn65829_) + (macro-uncaught-exception-reason _exn65829_) + (let ((__tmp67316 + (let ((__tmp67317 (let () (declare (not safe)) - (cons _exn65567_ '())))) + (cons _exn65829_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp67055)))) + (cons 'uncaught-exception-reason __tmp67317)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp67054)))))) + __tmp67316)))))) (define uninitialized-thread-exception? - (lambda (_exn65563_) + (lambda (_exn65825_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65563_)) - (let ((_e65565_ + (class-instance? RuntimeException::t _exn65825_)) + (let ((_e65827_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65563_ 'exception)))) - (macro-uninitialized-thread-exception? _e65565_)) - (macro-uninitialized-thread-exception? _exn65563_)))) + (unchecked-slot-ref _exn65825_ 'exception)))) + (macro-uninitialized-thread-exception? _e65827_)) + (macro-uninitialized-thread-exception? _exn65825_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn65559_) + (lambda (_exn65821_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65559_)) - (let ((_e65561_ + (class-instance? RuntimeException::t _exn65821_)) + (let ((_e65823_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65559_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e65561_) - (macro-uninitialized-thread-exception-arguments _e65561_) - (let ((__tmp67060 - (let ((__tmp67061 + (unchecked-slot-ref _exn65821_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e65823_) + (macro-uninitialized-thread-exception-arguments _e65823_) + (let ((__tmp67322 + (let ((__tmp67323 (let () (declare (not safe)) - (cons _e65561_ '())))) + (cons _e65823_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp67061)))) + __tmp67323)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp67060)))) - (if (macro-uninitialized-thread-exception? _exn65559_) - (macro-uninitialized-thread-exception-arguments _exn65559_) - (let ((__tmp67058 - (let ((__tmp67059 + __tmp67322)))) + (if (macro-uninitialized-thread-exception? _exn65821_) + (macro-uninitialized-thread-exception-arguments _exn65821_) + (let ((__tmp67320 + (let ((__tmp67321 (let () (declare (not safe)) - (cons _exn65559_ '())))) + (cons _exn65821_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp67059)))) + __tmp67321)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp67058)))))) + __tmp67320)))))) (define uninitialized-thread-exception-procedure - (lambda (_exn65553_) + (lambda (_exn65815_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65553_)) - (let ((_e65556_ + (class-instance? RuntimeException::t _exn65815_)) + (let ((_e65818_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65553_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e65556_) - (macro-uninitialized-thread-exception-procedure _e65556_) - (let ((__tmp67064 - (let ((__tmp67065 + (unchecked-slot-ref _exn65815_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e65818_) + (macro-uninitialized-thread-exception-procedure _e65818_) + (let ((__tmp67326 + (let ((__tmp67327 (let () (declare (not safe)) - (cons _e65556_ '())))) + (cons _e65818_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp67065)))) + __tmp67327)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp67064)))) - (if (macro-uninitialized-thread-exception? _exn65553_) - (macro-uninitialized-thread-exception-procedure _exn65553_) - (let ((__tmp67062 - (let ((__tmp67063 + __tmp67326)))) + (if (macro-uninitialized-thread-exception? _exn65815_) + (macro-uninitialized-thread-exception-procedure _exn65815_) + (let ((__tmp67324 + (let ((__tmp67325 (let () (declare (not safe)) - (cons _exn65553_ '())))) + (cons _exn65815_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp67063)))) + __tmp67325)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp67062)))))) + __tmp67324)))))) (define unknown-keyword-argument-exception? - (lambda (_exn65549_) + (lambda (_exn65811_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65549_)) - (let ((_e65551_ + (class-instance? RuntimeException::t _exn65811_)) + (let ((_e65813_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65549_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e65551_)) - (macro-unknown-keyword-argument-exception? _exn65549_)))) + (unchecked-slot-ref _exn65811_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e65813_)) + (macro-unknown-keyword-argument-exception? _exn65811_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn65545_) + (lambda (_exn65807_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65545_)) - (let ((_e65547_ + (class-instance? RuntimeException::t _exn65807_)) + (let ((_e65809_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65545_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e65547_) - (macro-unknown-keyword-argument-exception-arguments _e65547_) - (let ((__tmp67068 - (let ((__tmp67069 + (unchecked-slot-ref _exn65807_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e65809_) + (macro-unknown-keyword-argument-exception-arguments _e65809_) + (let ((__tmp67330 + (let ((__tmp67331 (let () (declare (not safe)) - (cons _e65547_ '())))) + (cons _e65809_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp67069)))) + __tmp67331)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp67068)))) - (if (macro-unknown-keyword-argument-exception? _exn65545_) - (macro-unknown-keyword-argument-exception-arguments _exn65545_) - (let ((__tmp67066 - (let ((__tmp67067 + __tmp67330)))) + (if (macro-unknown-keyword-argument-exception? _exn65807_) + (macro-unknown-keyword-argument-exception-arguments _exn65807_) + (let ((__tmp67328 + (let ((__tmp67329 (let () (declare (not safe)) - (cons _exn65545_ '())))) + (cons _exn65807_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp67067)))) + __tmp67329)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp67066)))))) + __tmp67328)))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn65539_) + (lambda (_exn65801_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65539_)) - (let ((_e65542_ + (class-instance? RuntimeException::t _exn65801_)) + (let ((_e65804_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65539_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e65542_) - (macro-unknown-keyword-argument-exception-procedure _e65542_) - (let ((__tmp67072 - (let ((__tmp67073 + (unchecked-slot-ref _exn65801_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e65804_) + (macro-unknown-keyword-argument-exception-procedure _e65804_) + (let ((__tmp67334 + (let ((__tmp67335 (let () (declare (not safe)) - (cons _e65542_ '())))) + (cons _e65804_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp67073)))) + __tmp67335)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp67072)))) - (if (macro-unknown-keyword-argument-exception? _exn65539_) - (macro-unknown-keyword-argument-exception-procedure _exn65539_) - (let ((__tmp67070 - (let ((__tmp67071 + __tmp67334)))) + (if (macro-unknown-keyword-argument-exception? _exn65801_) + (macro-unknown-keyword-argument-exception-procedure _exn65801_) + (let ((__tmp67332 + (let ((__tmp67333 (let () (declare (not safe)) - (cons _exn65539_ '())))) + (cons _exn65801_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp67071)))) + __tmp67333)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp67070)))))) + __tmp67332)))))) (define unterminated-process-exception? - (lambda (_exn65535_) + (lambda (_exn65797_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65535_)) - (let ((_e65537_ + (class-instance? RuntimeException::t _exn65797_)) + (let ((_e65799_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65535_ 'exception)))) - (macro-unterminated-process-exception? _e65537_)) - (macro-unterminated-process-exception? _exn65535_)))) + (unchecked-slot-ref _exn65797_ 'exception)))) + (macro-unterminated-process-exception? _e65799_)) + (macro-unterminated-process-exception? _exn65797_)))) (define unterminated-process-exception-arguments - (lambda (_exn65531_) + (lambda (_exn65793_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65531_)) - (let ((_e65533_ + (class-instance? RuntimeException::t _exn65793_)) + (let ((_e65795_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65531_ 'exception)))) - (if (macro-unterminated-process-exception? _e65533_) - (macro-unterminated-process-exception-arguments _e65533_) - (let ((__tmp67076 - (let ((__tmp67077 + (unchecked-slot-ref _exn65793_ 'exception)))) + (if (macro-unterminated-process-exception? _e65795_) + (macro-unterminated-process-exception-arguments _e65795_) + (let ((__tmp67338 + (let ((__tmp67339 (let () (declare (not safe)) - (cons _e65533_ '())))) + (cons _e65795_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp67077)))) + __tmp67339)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp67076)))) - (if (macro-unterminated-process-exception? _exn65531_) - (macro-unterminated-process-exception-arguments _exn65531_) - (let ((__tmp67074 - (let ((__tmp67075 + __tmp67338)))) + (if (macro-unterminated-process-exception? _exn65793_) + (macro-unterminated-process-exception-arguments _exn65793_) + (let ((__tmp67336 + (let ((__tmp67337 (let () (declare (not safe)) - (cons _exn65531_ '())))) + (cons _exn65793_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp67075)))) + __tmp67337)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp67074)))))) + __tmp67336)))))) (define unterminated-process-exception-procedure - (lambda (_exn65525_) + (lambda (_exn65787_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65525_)) - (let ((_e65528_ + (class-instance? RuntimeException::t _exn65787_)) + (let ((_e65790_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65525_ 'exception)))) - (if (macro-unterminated-process-exception? _e65528_) - (macro-unterminated-process-exception-procedure _e65528_) - (let ((__tmp67080 - (let ((__tmp67081 + (unchecked-slot-ref _exn65787_ 'exception)))) + (if (macro-unterminated-process-exception? _e65790_) + (macro-unterminated-process-exception-procedure _e65790_) + (let ((__tmp67342 + (let ((__tmp67343 (let () (declare (not safe)) - (cons _e65528_ '())))) + (cons _e65790_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp67081)))) + __tmp67343)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp67080)))) - (if (macro-unterminated-process-exception? _exn65525_) - (macro-unterminated-process-exception-procedure _exn65525_) - (let ((__tmp67078 - (let ((__tmp67079 + __tmp67342)))) + (if (macro-unterminated-process-exception? _exn65787_) + (macro-unterminated-process-exception-procedure _exn65787_) + (let ((__tmp67340 + (let ((__tmp67341 (let () (declare (not safe)) - (cons _exn65525_ '())))) + (cons _exn65787_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp67079)))) + __tmp67341)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp67078)))))) + __tmp67340)))))) (define wrong-number-of-arguments-exception? - (lambda (_exn65521_) + (lambda (_exn65783_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65521_)) - (let ((_e65523_ + (class-instance? RuntimeException::t _exn65783_)) + (let ((_e65785_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65521_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e65523_)) - (macro-wrong-number-of-arguments-exception? _exn65521_)))) + (unchecked-slot-ref _exn65783_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e65785_)) + (macro-wrong-number-of-arguments-exception? _exn65783_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn65517_) + (lambda (_exn65779_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65517_)) - (let ((_e65519_ + (class-instance? RuntimeException::t _exn65779_)) + (let ((_e65781_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65517_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e65519_) + (unchecked-slot-ref _exn65779_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e65781_) (macro-wrong-number-of-arguments-exception-arguments - _e65519_) - (let ((__tmp67084 - (let ((__tmp67085 + _e65781_) + (let ((__tmp67346 + (let ((__tmp67347 (let () (declare (not safe)) - (cons _e65519_ '())))) + (cons _e65781_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp67085)))) + __tmp67347)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp67084)))) - (if (macro-wrong-number-of-arguments-exception? _exn65517_) + __tmp67346)))) + (if (macro-wrong-number-of-arguments-exception? _exn65779_) (macro-wrong-number-of-arguments-exception-arguments - _exn65517_) - (let ((__tmp67082 - (let ((__tmp67083 + _exn65779_) + (let ((__tmp67344 + (let ((__tmp67345 (let () (declare (not safe)) - (cons _exn65517_ '())))) + (cons _exn65779_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp67083)))) + __tmp67345)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp67082)))))) + __tmp67344)))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn65511_) + (lambda (_exn65773_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65511_)) - (let ((_e65514_ + (class-instance? RuntimeException::t _exn65773_)) + (let ((_e65776_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65511_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e65514_) + (unchecked-slot-ref _exn65773_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e65776_) (macro-wrong-number-of-arguments-exception-procedure - _e65514_) - (let ((__tmp67088 - (let ((__tmp67089 + _e65776_) + (let ((__tmp67350 + (let ((__tmp67351 (let () (declare (not safe)) - (cons _e65514_ '())))) + (cons _e65776_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp67089)))) + __tmp67351)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp67088)))) - (if (macro-wrong-number-of-arguments-exception? _exn65511_) + __tmp67350)))) + (if (macro-wrong-number-of-arguments-exception? _exn65773_) (macro-wrong-number-of-arguments-exception-procedure - _exn65511_) - (let ((__tmp67086 - (let ((__tmp67087 + _exn65773_) + (let ((__tmp67348 + (let ((__tmp67349 (let () (declare (not safe)) - (cons _exn65511_ '())))) + (cons _exn65773_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp67087)))) + __tmp67349)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp67086)))))) + __tmp67348)))))) (define wrong-number-of-values-exception? - (lambda (_exn65507_) + (lambda (_exn65769_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65507_)) - (let ((_e65509_ + (class-instance? RuntimeException::t _exn65769_)) + (let ((_e65771_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65507_ 'exception)))) - (macro-wrong-number-of-values-exception? _e65509_)) - (macro-wrong-number-of-values-exception? _exn65507_)))) + (unchecked-slot-ref _exn65769_ 'exception)))) + (macro-wrong-number-of-values-exception? _e65771_)) + (macro-wrong-number-of-values-exception? _exn65769_)))) (define wrong-number-of-values-exception-code - (lambda (_exn65503_) + (lambda (_exn65765_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65503_)) - (let ((_e65505_ + (class-instance? RuntimeException::t _exn65765_)) + (let ((_e65767_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65503_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e65505_) - (macro-wrong-number-of-values-exception-code _e65505_) - (let ((__tmp67092 - (let ((__tmp67093 + (unchecked-slot-ref _exn65765_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e65767_) + (macro-wrong-number-of-values-exception-code _e65767_) + (let ((__tmp67354 + (let ((__tmp67355 (let () (declare (not safe)) - (cons _e65505_ '())))) + (cons _e65767_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp67093)))) + __tmp67355)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67092)))) - (if (macro-wrong-number-of-values-exception? _exn65503_) - (macro-wrong-number-of-values-exception-code _exn65503_) - (let ((__tmp67090 - (let ((__tmp67091 + __tmp67354)))) + (if (macro-wrong-number-of-values-exception? _exn65765_) + (macro-wrong-number-of-values-exception-code _exn65765_) + (let ((__tmp67352 + (let ((__tmp67353 (let () (declare (not safe)) - (cons _exn65503_ '())))) + (cons _exn65765_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp67091)))) + __tmp67353)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67090)))))) + __tmp67352)))))) (define wrong-number-of-values-exception-rte - (lambda (_exn65499_) + (lambda (_exn65761_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65499_)) - (let ((_e65501_ + (class-instance? RuntimeException::t _exn65761_)) + (let ((_e65763_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65499_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e65501_) - (macro-wrong-number-of-values-exception-rte _e65501_) - (let ((__tmp67096 - (let ((__tmp67097 + (unchecked-slot-ref _exn65761_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e65763_) + (macro-wrong-number-of-values-exception-rte _e65763_) + (let ((__tmp67358 + (let ((__tmp67359 (let () (declare (not safe)) - (cons _e65501_ '())))) + (cons _e65763_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp67097)))) + __tmp67359)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67096)))) - (if (macro-wrong-number-of-values-exception? _exn65499_) - (macro-wrong-number-of-values-exception-rte _exn65499_) - (let ((__tmp67094 - (let ((__tmp67095 + __tmp67358)))) + (if (macro-wrong-number-of-values-exception? _exn65761_) + (macro-wrong-number-of-values-exception-rte _exn65761_) + (let ((__tmp67356 + (let ((__tmp67357 (let () (declare (not safe)) - (cons _exn65499_ '())))) + (cons _exn65761_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp67095)))) + __tmp67357)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67094)))))) + __tmp67356)))))) (define wrong-number-of-values-exception-vals - (lambda (_exn65493_) + (lambda (_exn65755_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65493_)) - (let ((_e65496_ + (class-instance? RuntimeException::t _exn65755_)) + (let ((_e65758_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65493_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e65496_) - (macro-wrong-number-of-values-exception-vals _e65496_) - (let ((__tmp67100 - (let ((__tmp67101 + (unchecked-slot-ref _exn65755_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e65758_) + (macro-wrong-number-of-values-exception-vals _e65758_) + (let ((__tmp67362 + (let ((__tmp67363 (let () (declare (not safe)) - (cons _e65496_ '())))) + (cons _e65758_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp67101)))) + __tmp67363)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67100)))) - (if (macro-wrong-number-of-values-exception? _exn65493_) - (macro-wrong-number-of-values-exception-vals _exn65493_) - (let ((__tmp67098 - (let ((__tmp67099 + __tmp67362)))) + (if (macro-wrong-number-of-values-exception? _exn65755_) + (macro-wrong-number-of-values-exception-vals _exn65755_) + (let ((__tmp67360 + (let ((__tmp67361 (let () (declare (not safe)) - (cons _exn65493_ '())))) + (cons _exn65755_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp67099)))) + __tmp67361)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp67098)))))) + __tmp67360)))))) (define wrong-processor-c-return-exception? - (lambda (_exn65487_) + (lambda (_exn65749_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn65487_)) - (let ((_e65490_ + (class-instance? RuntimeException::t _exn65749_)) + (let ((_e65752_ (let () (declare (not safe)) - (unchecked-slot-ref _exn65487_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e65490_)) - (macro-wrong-processor-c-return-exception? _exn65487_)))))) + (unchecked-slot-ref _exn65749_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e65752_)) + (macro-wrong-processor-c-return-exception? _exn65749_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index 2ac6b06a..a4c4952d 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]#_g67103_| + (define |[1]#_g67365_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g67105_| + (define |[1]#_g67367_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g67107_| + (define |[1]#_g67369_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g67109_| + (define |[1]#_g67371_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g67111_| + (define |[1]#_g67373_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g67113_| + (define |[1]#_g67375_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g67117_| + (define |[1]#_g67379_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67121_| + (define |[1]#_g67383_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67125_| + (define |[1]#_g67387_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67129_| + (define |[1]#_g67391_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67133_| + (define |[1]#_g67395_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g67135_| + (define |[1]#_g67397_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g67137_| + (define |[1]#_g67399_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g67139_| + (define |[1]#_g67401_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g67141_| + (define |[1]#_g67403_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g67148_| + (define |[1]#_g67410_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67151_| + (define |[1]#_g67413_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g67154_| + (define |[1]#_g67416_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g67157_| + (define |[1]#_g67419_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g67164_| + (define |[1]#_g67426_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67167_| + (define |[1]#_g67429_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67170_| + (define |[1]#_g67432_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67173_| + (define |[1]#_g67435_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67180_| + (define |[1]#_g67442_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67183_| + (define |[1]#_g67445_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g67186_| + (define |[1]#_g67448_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g67189_| + (define |[1]#_g67451_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g67196_| + (define |[1]#_g67458_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67199_| + (define |[1]#_g67461_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67202_| + (define |[1]#_g67464_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67205_| + (define |[1]#_g67467_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67211_| + (define |[1]#_g67473_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g67213_| + (define |[1]#_g67475_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g67215_| + (define |[1]#_g67477_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g67220_| + (define |[1]#_g67482_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67223_| + (define |[1]#_g67485_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g67228_| + (define |[1]#_g67490_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67231_| + (define |[1]#_g67493_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67236_| + (define |[1]#_g67498_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g67239_| + (define |[1]#_g67501_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g67244_| + (define |[1]#_g67506_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g67247_| + (define |[1]#_g67509_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj66675 + (let ((__obj66937 (let () (declare (not safe)) (##structure @@ -319,7 +319,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 'gerbil/runtime/error#Exception::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -327,7 +327,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 'Exception '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -335,7 +335,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -343,7 +343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -351,7 +351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -359,7 +359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -367,7 +367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -375,39 +375,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67102 |[1]#_g67103_|)) + (let ((__tmp67364 |[1]#_g67365_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66675 - __tmp67102 + __obj66937 + __tmp67364 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67104 |[1]#_g67105_|)) + (let ((__tmp67366 |[1]#_g67367_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66675 - __tmp67104 + __obj66937 + __tmp67366 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67106 |[1]#_g67107_|)) + (let ((__tmp67368 |[1]#_g67369_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66675 - __tmp67106 + __obj66937 + __tmp67368 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '() '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -415,7 +415,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '() '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -423,7 +423,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '() '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -431,14 +431,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66675 + __obj66937 '() '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj66675)) + __obj66937)) (define |[:0:]#StackTrace| - (let ((__obj66676 + (let ((__obj66938 (let () (declare (not safe)) (##structure @@ -461,7 +461,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66676 + __obj66938 'gerbil/runtime/error#StackTrace::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -469,7 +469,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66676 + __obj66938 'StackTrace '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -477,7 +477,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66676 + __obj66938 '(continuation) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -485,7 +485,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66676 + __obj66938 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -493,7 +493,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66676 + __obj66938 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -501,7 +501,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66676 + __obj66938 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -509,7 +509,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66676 + __obj66938 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -517,94 +517,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66676 + __obj66938 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67108 |[1]#_g67109_|)) + (let ((__tmp67370 |[1]#_g67371_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66676 - __tmp67108 + __obj66938 + __tmp67370 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67110 |[1]#_g67111_|)) + (let ((__tmp67372 |[1]#_g67373_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66676 - __tmp67110 + __obj66938 + __tmp67372 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67112 |[1]#_g67113_|)) + (let ((__tmp67374 |[1]#_g67375_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66676 - __tmp67112 + __obj66938 + __tmp67374 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67114 - (let ((__tmp67115 - (let ((__tmp67116 |[1]#_g67117_|)) + (let ((__tmp67376 + (let ((__tmp67377 + (let ((__tmp67378 |[1]#_g67379_|)) (declare (not safe)) - (cons 'continuation __tmp67116)))) + (cons 'continuation __tmp67378)))) (declare (not safe)) - (cons __tmp67115 '())))) + (cons __tmp67377 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj66676 - __tmp67114 + __obj66938 + __tmp67376 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67118 - (let ((__tmp67119 - (let ((__tmp67120 |[1]#_g67121_|)) + (let ((__tmp67380 + (let ((__tmp67381 + (let ((__tmp67382 |[1]#_g67383_|)) (declare (not safe)) - (cons 'continuation __tmp67120)))) + (cons 'continuation __tmp67382)))) (declare (not safe)) - (cons __tmp67119 '())))) + (cons __tmp67381 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj66676 - __tmp67118 + __obj66938 + __tmp67380 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67122 - (let ((__tmp67123 - (let ((__tmp67124 |[1]#_g67125_|)) + (let ((__tmp67384 + (let ((__tmp67385 + (let ((__tmp67386 |[1]#_g67387_|)) (declare (not safe)) - (cons 'continuation __tmp67124)))) + (cons 'continuation __tmp67386)))) (declare (not safe)) - (cons __tmp67123 '())))) + (cons __tmp67385 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj66676 - __tmp67122 + __obj66938 + __tmp67384 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67126 - (let ((__tmp67127 - (let ((__tmp67128 |[1]#_g67129_|)) + (let ((__tmp67388 + (let ((__tmp67389 + (let ((__tmp67390 |[1]#_g67391_|)) (declare (not safe)) - (cons 'continuation __tmp67128)))) + (cons 'continuation __tmp67390)))) (declare (not safe)) - (cons __tmp67127 '())))) + (cons __tmp67389 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj66676 - __tmp67126 + __obj66938 + __tmp67388 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj66676)) + __obj66938)) (define |[:0:]#Error| - (let ((__obj66677 + (let ((__obj66939 (let () (declare (not safe)) (##structure @@ -627,7 +627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66677 + __obj66939 'gerbil/runtime/error#Error::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -635,7 +635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66677 + __obj66939 'Error '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -643,30 +643,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66677 + __obj66939 '(message irritants where) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67130 - (let ((__tmp67134 |[1]#_g67135_|) - (__tmp67131 - (let ((__tmp67132 |[1]#_g67133_|)) + (let ((__tmp67392 + (let ((__tmp67396 |[1]#_g67397_|) + (__tmp67393 + (let ((__tmp67394 |[1]#_g67395_|)) (declare (not safe)) - (cons __tmp67132 '())))) + (cons __tmp67394 '())))) (declare (not safe)) - (cons __tmp67134 __tmp67131)))) + (cons __tmp67396 __tmp67393)))) (declare (not safe)) (##unchecked-structure-set! - __obj66677 - __tmp67130 + __obj66939 + __tmp67392 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj66677 + __obj66939 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -674,7 +674,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66677 + __obj66939 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -682,7 +682,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66677 + __obj66939 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -690,178 +690,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66677 + __obj66939 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67136 |[1]#_g67137_|)) + (let ((__tmp67398 |[1]#_g67399_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66677 - __tmp67136 + __obj66939 + __tmp67398 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67138 |[1]#_g67139_|)) + (let ((__tmp67400 |[1]#_g67401_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66677 - __tmp67138 + __obj66939 + __tmp67400 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67140 |[1]#_g67141_|)) + (let ((__tmp67402 |[1]#_g67403_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66677 - __tmp67140 + __obj66939 + __tmp67402 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67142 - (let ((__tmp67155 - (let ((__tmp67156 |[1]#_g67157_|)) + (let ((__tmp67404 + (let ((__tmp67417 + (let ((__tmp67418 |[1]#_g67419_|)) (declare (not safe)) - (cons 'message __tmp67156))) - (__tmp67143 - (let ((__tmp67152 - (let ((__tmp67153 |[1]#_g67154_|)) + (cons 'message __tmp67418))) + (__tmp67405 + (let ((__tmp67414 + (let ((__tmp67415 |[1]#_g67416_|)) (declare (not safe)) - (cons 'irritants __tmp67153))) - (__tmp67144 - (let ((__tmp67149 - (let ((__tmp67150 |[1]#_g67151_|)) + (cons 'irritants __tmp67415))) + (__tmp67406 + (let ((__tmp67411 + (let ((__tmp67412 |[1]#_g67413_|)) (declare (not safe)) - (cons 'where __tmp67150))) - (__tmp67145 - (let ((__tmp67146 - (let ((__tmp67147 |[1]#_g67148_|)) + (cons 'where __tmp67412))) + (__tmp67407 + (let ((__tmp67408 + (let ((__tmp67409 |[1]#_g67410_|)) (declare (not safe)) - (cons 'continuation __tmp67147)))) + (cons 'continuation __tmp67409)))) (declare (not safe)) - (cons __tmp67146 '())))) + (cons __tmp67408 '())))) (declare (not safe)) - (cons __tmp67149 __tmp67145)))) + (cons __tmp67411 __tmp67407)))) (declare (not safe)) - (cons __tmp67152 __tmp67144)))) + (cons __tmp67414 __tmp67406)))) (declare (not safe)) - (cons __tmp67155 __tmp67143)))) + (cons __tmp67417 __tmp67405)))) (declare (not safe)) (##unchecked-structure-set! - __obj66677 - __tmp67142 + __obj66939 + __tmp67404 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67158 - (let ((__tmp67171 - (let ((__tmp67172 |[1]#_g67173_|)) + (let ((__tmp67420 + (let ((__tmp67433 + (let ((__tmp67434 |[1]#_g67435_|)) (declare (not safe)) - (cons 'message __tmp67172))) - (__tmp67159 - (let ((__tmp67168 - (let ((__tmp67169 |[1]#_g67170_|)) + (cons 'message __tmp67434))) + (__tmp67421 + (let ((__tmp67430 + (let ((__tmp67431 |[1]#_g67432_|)) (declare (not safe)) - (cons 'irritants __tmp67169))) - (__tmp67160 - (let ((__tmp67165 - (let ((__tmp67166 |[1]#_g67167_|)) + (cons 'irritants __tmp67431))) + (__tmp67422 + (let ((__tmp67427 + (let ((__tmp67428 |[1]#_g67429_|)) (declare (not safe)) - (cons 'where __tmp67166))) - (__tmp67161 - (let ((__tmp67162 - (let ((__tmp67163 |[1]#_g67164_|)) + (cons 'where __tmp67428))) + (__tmp67423 + (let ((__tmp67424 + (let ((__tmp67425 |[1]#_g67426_|)) (declare (not safe)) - (cons 'continuation __tmp67163)))) + (cons 'continuation __tmp67425)))) (declare (not safe)) - (cons __tmp67162 '())))) + (cons __tmp67424 '())))) (declare (not safe)) - (cons __tmp67165 __tmp67161)))) + (cons __tmp67427 __tmp67423)))) (declare (not safe)) - (cons __tmp67168 __tmp67160)))) + (cons __tmp67430 __tmp67422)))) (declare (not safe)) - (cons __tmp67171 __tmp67159)))) + (cons __tmp67433 __tmp67421)))) (declare (not safe)) (##unchecked-structure-set! - __obj66677 - __tmp67158 + __obj66939 + __tmp67420 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67174 - (let ((__tmp67187 - (let ((__tmp67188 |[1]#_g67189_|)) + (let ((__tmp67436 + (let ((__tmp67449 + (let ((__tmp67450 |[1]#_g67451_|)) (declare (not safe)) - (cons 'message __tmp67188))) - (__tmp67175 - (let ((__tmp67184 - (let ((__tmp67185 |[1]#_g67186_|)) + (cons 'message __tmp67450))) + (__tmp67437 + (let ((__tmp67446 + (let ((__tmp67447 |[1]#_g67448_|)) (declare (not safe)) - (cons 'irritants __tmp67185))) - (__tmp67176 - (let ((__tmp67181 - (let ((__tmp67182 |[1]#_g67183_|)) + (cons 'irritants __tmp67447))) + (__tmp67438 + (let ((__tmp67443 + (let ((__tmp67444 |[1]#_g67445_|)) (declare (not safe)) - (cons 'where __tmp67182))) - (__tmp67177 - (let ((__tmp67178 - (let ((__tmp67179 |[1]#_g67180_|)) + (cons 'where __tmp67444))) + (__tmp67439 + (let ((__tmp67440 + (let ((__tmp67441 |[1]#_g67442_|)) (declare (not safe)) - (cons 'continuation __tmp67179)))) + (cons 'continuation __tmp67441)))) (declare (not safe)) - (cons __tmp67178 '())))) + (cons __tmp67440 '())))) (declare (not safe)) - (cons __tmp67181 __tmp67177)))) + (cons __tmp67443 __tmp67439)))) (declare (not safe)) - (cons __tmp67184 __tmp67176)))) + (cons __tmp67446 __tmp67438)))) (declare (not safe)) - (cons __tmp67187 __tmp67175)))) + (cons __tmp67449 __tmp67437)))) (declare (not safe)) (##unchecked-structure-set! - __obj66677 - __tmp67174 + __obj66939 + __tmp67436 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67190 - (let ((__tmp67203 - (let ((__tmp67204 |[1]#_g67205_|)) + (let ((__tmp67452 + (let ((__tmp67465 + (let ((__tmp67466 |[1]#_g67467_|)) (declare (not safe)) - (cons 'message __tmp67204))) - (__tmp67191 - (let ((__tmp67200 - (let ((__tmp67201 |[1]#_g67202_|)) + (cons 'message __tmp67466))) + (__tmp67453 + (let ((__tmp67462 + (let ((__tmp67463 |[1]#_g67464_|)) (declare (not safe)) - (cons 'irritants __tmp67201))) - (__tmp67192 - (let ((__tmp67197 - (let ((__tmp67198 |[1]#_g67199_|)) + (cons 'irritants __tmp67463))) + (__tmp67454 + (let ((__tmp67459 + (let ((__tmp67460 |[1]#_g67461_|)) (declare (not safe)) - (cons 'where __tmp67198))) - (__tmp67193 - (let ((__tmp67194 - (let ((__tmp67195 |[1]#_g67196_|)) + (cons 'where __tmp67460))) + (__tmp67455 + (let ((__tmp67456 + (let ((__tmp67457 |[1]#_g67458_|)) (declare (not safe)) - (cons 'continuation __tmp67195)))) + (cons 'continuation __tmp67457)))) (declare (not safe)) - (cons __tmp67194 '())))) + (cons __tmp67456 '())))) (declare (not safe)) - (cons __tmp67197 __tmp67193)))) + (cons __tmp67459 __tmp67455)))) (declare (not safe)) - (cons __tmp67200 __tmp67192)))) + (cons __tmp67462 __tmp67454)))) (declare (not safe)) - (cons __tmp67203 __tmp67191)))) + (cons __tmp67465 __tmp67453)))) (declare (not safe)) (##unchecked-structure-set! - __obj66677 - __tmp67190 + __obj66939 + __tmp67452 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj66677)) + __obj66939)) (define |[:0:]#RuntimeException| - (let ((__obj66678 + (let ((__obj66940 (let () (declare (not safe)) (##structure @@ -884,7 +884,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66940 'gerbil/runtime/error#RuntimeException::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -892,7 +892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66940 'RuntimeException '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -900,30 +900,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66940 '(exception) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67206 - (let ((__tmp67209 |[1]#_g67135_|) - (__tmp67207 - (let ((__tmp67208 |[1]#_g67133_|)) + (let ((__tmp67468 + (let ((__tmp67471 |[1]#_g67397_|) + (__tmp67469 + (let ((__tmp67470 |[1]#_g67395_|)) (declare (not safe)) - (cons __tmp67208 '())))) + (cons __tmp67470 '())))) (declare (not safe)) - (cons __tmp67209 __tmp67207)))) + (cons __tmp67471 __tmp67469)))) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67206 + __obj66940 + __tmp67468 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66940 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -931,7 +931,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66940 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -939,7 +939,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66940 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -947,971 +947,971 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj66678 + __obj66940 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67210 |[1]#_g67211_|)) + (let ((__tmp67472 |[1]#_g67473_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67210 + __obj66940 + __tmp67472 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67212 |[1]#_g67213_|)) + (let ((__tmp67474 |[1]#_g67475_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67212 + __obj66940 + __tmp67474 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67214 |[1]#_g67215_|)) + (let ((__tmp67476 |[1]#_g67477_|)) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67214 + __obj66940 + __tmp67476 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67216 - (let ((__tmp67221 - (let ((__tmp67222 |[1]#_g67223_|)) + (let ((__tmp67478 + (let ((__tmp67483 + (let ((__tmp67484 |[1]#_g67485_|)) (declare (not safe)) - (cons 'exception __tmp67222))) - (__tmp67217 - (let ((__tmp67218 - (let ((__tmp67219 |[1]#_g67220_|)) + (cons 'exception __tmp67484))) + (__tmp67479 + (let ((__tmp67480 + (let ((__tmp67481 |[1]#_g67482_|)) (declare (not safe)) - (cons 'continuation __tmp67219)))) + (cons 'continuation __tmp67481)))) (declare (not safe)) - (cons __tmp67218 '())))) + (cons __tmp67480 '())))) (declare (not safe)) - (cons __tmp67221 __tmp67217)))) + (cons __tmp67483 __tmp67479)))) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67216 + __obj66940 + __tmp67478 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67224 - (let ((__tmp67229 - (let ((__tmp67230 |[1]#_g67231_|)) + (let ((__tmp67486 + (let ((__tmp67491 + (let ((__tmp67492 |[1]#_g67493_|)) (declare (not safe)) - (cons 'exception __tmp67230))) - (__tmp67225 - (let ((__tmp67226 - (let ((__tmp67227 |[1]#_g67228_|)) + (cons 'exception __tmp67492))) + (__tmp67487 + (let ((__tmp67488 + (let ((__tmp67489 |[1]#_g67490_|)) (declare (not safe)) - (cons 'continuation __tmp67227)))) + (cons 'continuation __tmp67489)))) (declare (not safe)) - (cons __tmp67226 '())))) + (cons __tmp67488 '())))) (declare (not safe)) - (cons __tmp67229 __tmp67225)))) + (cons __tmp67491 __tmp67487)))) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67224 + __obj66940 + __tmp67486 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67232 - (let ((__tmp67237 - (let ((__tmp67238 |[1]#_g67239_|)) + (let ((__tmp67494 + (let ((__tmp67499 + (let ((__tmp67500 |[1]#_g67501_|)) (declare (not safe)) - (cons 'exception __tmp67238))) - (__tmp67233 - (let ((__tmp67234 - (let ((__tmp67235 |[1]#_g67236_|)) + (cons 'exception __tmp67500))) + (__tmp67495 + (let ((__tmp67496 + (let ((__tmp67497 |[1]#_g67498_|)) (declare (not safe)) - (cons 'continuation __tmp67235)))) + (cons 'continuation __tmp67497)))) (declare (not safe)) - (cons __tmp67234 '())))) + (cons __tmp67496 '())))) (declare (not safe)) - (cons __tmp67237 __tmp67233)))) + (cons __tmp67499 __tmp67495)))) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67232 + __obj66940 + __tmp67494 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp67240 - (let ((__tmp67245 - (let ((__tmp67246 |[1]#_g67247_|)) + (let ((__tmp67502 + (let ((__tmp67507 + (let ((__tmp67508 |[1]#_g67509_|)) (declare (not safe)) - (cons 'exception __tmp67246))) - (__tmp67241 - (let ((__tmp67242 - (let ((__tmp67243 |[1]#_g67244_|)) + (cons 'exception __tmp67508))) + (__tmp67503 + (let ((__tmp67504 + (let ((__tmp67505 |[1]#_g67506_|)) (declare (not safe)) - (cons 'continuation __tmp67243)))) + (cons 'continuation __tmp67505)))) (declare (not safe)) - (cons __tmp67242 '())))) + (cons __tmp67504 '())))) (declare (not safe)) - (cons __tmp67245 __tmp67241)))) + (cons __tmp67507 __tmp67503)))) (declare (not safe)) (##unchecked-structure-set! - __obj66678 - __tmp67240 + __obj66940 + __tmp67502 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj66678)) + __obj66940)) (define |[:0:]#check-procedure| - (lambda (_$stx65034_) - (let* ((_g6503865056_ - (lambda (_g6503965052_) + (lambda (_$stx65296_) + (let* ((_g6530065318_ + (lambda (_g6530165314_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6503965052_))) - (_g6503765112_ - (lambda (_g6503965060_) - (if (gx#stx-pair? _g6503965060_) - (let ((_e6504465063_ (gx#syntax-e _g6503965060_))) - (let ((_hd6504365067_ + _g6530165314_))) + (_g6529965374_ + (lambda (_g6530165322_) + (if (gx#stx-pair? _g6530165322_) + (let ((_e6530665325_ (gx#syntax-e _g6530165322_))) + (let ((_hd6530565329_ (let () (declare (not safe)) - (##car _e6504465063_))) - (_tl6504265070_ + (##car _e6530665325_))) + (_tl6530465332_ (let () (declare (not safe)) - (##cdr _e6504465063_)))) - (if (gx#stx-pair? _tl6504265070_) - (let ((_e6504765073_ - (gx#syntax-e _tl6504265070_))) - (let ((_hd6504665077_ + (##cdr _e6530665325_)))) + (if (gx#stx-pair? _tl6530465332_) + (let ((_e6530965335_ + (gx#syntax-e _tl6530465332_))) + (let ((_hd6530865339_ (let () (declare (not safe)) - (##car _e6504765073_))) - (_tl6504565080_ + (##car _e6530965335_))) + (_tl6530765342_ (let () (declare (not safe)) - (##cdr _e6504765073_)))) - (if (gx#stx-pair? _tl6504565080_) - (let ((_e6505065083_ - (gx#syntax-e _tl6504565080_))) - (let ((_hd6504965087_ + (##cdr _e6530965335_)))) + (if (gx#stx-pair? _tl6530765342_) + (let ((_e6531265345_ + (gx#syntax-e _tl6530765342_))) + (let ((_hd6531165349_ (let () (declare (not safe)) - (##car _e6505065083_))) - (_tl6504865090_ + (##car _e6531265345_))) + (_tl6531065352_ (let () (declare (not safe)) - (##cdr _e6505065083_)))) - (if (gx#stx-null? _tl6504865090_) - ((lambda (_L65093_ _L65095_) - (let ((__tmp67269 + (##cdr _e6531265345_)))) + (if (gx#stx-null? _tl6531065352_) + ((lambda (_L65355_ _L65357_) + (let ((__tmp67531 (gx#datum->syntax '#f 'unless)) - (__tmp67248 - (let ((__tmp67266 - (let ((__tmp67268 + (__tmp67510 + (let ((__tmp67528 + (let ((__tmp67530 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp67267 + (__tmp67529 (let () (declare (not safe)) - (cons _L65095_ '())))) + (cons _L65357_ '())))) (declare (not safe)) - (cons __tmp67268 __tmp67267))) - (__tmp67249 - (let ((__tmp67250 - (let ((__tmp67265 (gx#datum->syntax '#f 'raise)) - (__tmp67251 - (let ((__tmp67252 - (let ((__tmp67264 + (cons __tmp67530 __tmp67529))) + (__tmp67511 + (let ((__tmp67512 + (let ((__tmp67527 (gx#datum->syntax '#f 'raise)) + (__tmp67513 + (let ((__tmp67514 + (let ((__tmp67526 (gx#datum->syntax '#f 'Error)) - (__tmp67253 - (let ((__tmp67254 - (let ((__tmp67255 + (__tmp67515 + (let ((__tmp67516 + (let ((__tmp67517 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67261 - (let ((__tmp67263 + (let ((__tmp67523 + (let ((__tmp67525 (gx#datum->syntax '#f 'quote)) - (__tmp67262 + (__tmp67524 (let () (declare (not safe)) - (cons _L65093_ '())))) + (cons _L65355_ '())))) (declare (not safe)) - (cons __tmp67263 __tmp67262))) - (__tmp67256 - (let ((__tmp67257 - (let ((__tmp67258 - (let ((__tmp67260 + (cons __tmp67525 __tmp67524))) + (__tmp67518 + (let ((__tmp67519 + (let ((__tmp67520 + (let ((__tmp67522 (gx#datum->syntax '#f '@list)) - (__tmp67259 + (__tmp67521 (let () (declare (not safe)) - (cons _L65095_ '())))) + (cons _L65357_ '())))) (declare (not safe)) - (cons __tmp67260 __tmp67259)))) + (cons __tmp67522 __tmp67521)))) (declare (not safe)) - (cons __tmp67258 '())))) + (cons __tmp67520 '())))) (declare (not safe)) - (cons 'irritants: __tmp67257)))) + (cons 'irritants: __tmp67519)))) (declare (not safe)) - (cons __tmp67261 __tmp67256)))) + (cons __tmp67523 __tmp67518)))) (declare (not safe)) - (cons 'where: __tmp67255)))) + (cons 'where: __tmp67517)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp67254)))) + __tmp67516)))) (declare (not safe)) - (cons __tmp67264 __tmp67253)))) + (cons __tmp67526 __tmp67515)))) (declare (not safe)) - (cons __tmp67252 '())))) + (cons __tmp67514 '())))) (declare (not safe)) - (cons __tmp67265 __tmp67251)))) + (cons __tmp67527 __tmp67513)))) (declare (not safe)) - (cons __tmp67250 '())))) + (cons __tmp67512 '())))) (declare (not safe)) - (cons __tmp67266 __tmp67249)))) + (cons __tmp67528 __tmp67511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67269 - __tmp67248))) - _hd6504965087_ - _hd6504665077_) - (_g6503865056_ _g6503965060_)))) - (_g6503865056_ _g6503965060_)))) - (_g6503865056_ _g6503965060_)))) - (_g6503865056_ _g6503965060_))))) - (_g6503765112_ _$stx65034_)))) + (cons __tmp67531 + __tmp67510))) + _hd6531165349_ + _hd6530865339_) + (_g6530065318_ _g6530165322_)))) + (_g6530065318_ _g6530165322_)))) + (_g6530065318_ _g6530165322_)))) + (_g6530065318_ _g6530165322_))))) + (_g6529965374_ _$stx65296_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx65116_) - (let* ((_g6511965146_ - (lambda (_g6512065142_) + (lambda (_stx65378_) + (let* ((_g6538165408_ + (lambda (_g6538265404_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6512065142_))) - (_g6511865381_ - (lambda (_g6512065150_) - (if (gx#stx-pair? _g6512065150_) - (let ((_e6512565153_ (gx#syntax-e _g6512065150_))) - (let ((_hd6512465157_ + _g6538265404_))) + (_g6538065643_ + (lambda (_g6538265412_) + (if (gx#stx-pair? _g6538265412_) + (let ((_e6538765415_ (gx#syntax-e _g6538265412_))) + (let ((_hd6538665419_ (let () (declare (not safe)) - (##car _e6512565153_))) - (_tl6512365160_ + (##car _e6538765415_))) + (_tl6538565422_ (let () (declare (not safe)) - (##cdr _e6512565153_)))) - (if (gx#stx-pair? _tl6512365160_) - (let ((_e6512865163_ - (gx#syntax-e _tl6512365160_))) - (let ((_hd6512765167_ + (##cdr _e6538765415_)))) + (if (gx#stx-pair? _tl6538565422_) + (let ((_e6539065425_ + (gx#syntax-e _tl6538565422_))) + (let ((_hd6538965429_ (let () (declare (not safe)) - (##car _e6512865163_))) - (_tl6512665170_ + (##car _e6539065425_))) + (_tl6538865432_ (let () (declare (not safe)) - (##cdr _e6512865163_)))) - (if (gx#stx-pair? _hd6512765167_) - (let ((_e6513165173_ - (gx#syntax-e _hd6512765167_))) - (let ((_hd6513065177_ + (##cdr _e6539065425_)))) + (if (gx#stx-pair? _hd6538965429_) + (let ((_e6539365435_ + (gx#syntax-e _hd6538965429_))) + (let ((_hd6539265439_ (let () (declare (not safe)) - (##car _e6513165173_))) - (_tl6512965180_ + (##car _e6539365435_))) + (_tl6539165442_ (let () (declare (not safe)) - (##cdr _e6513165173_)))) + (##cdr _e6539365435_)))) (if (gx#stx-pair/null? - _tl6512965180_) - (let ((_g67270_ + _tl6539165442_) + (let ((_g67532_ (gx#syntax-split-splice - _tl6512965180_ + _tl6539165442_ '0))) (begin - (let ((_g67271_ + (let ((_g67533_ (let () (declare (not safe)) (if (##values? - _g67270_) + _g67532_) (##vector-length - _g67270_) + _g67532_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g67271_ 2))) - (error "Context expects 2 values" _g67271_))) + (##fx= _g67533_ 2))) + (error "Context expects 2 values" _g67533_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target6513265183_ + (let ((_target6539465445_ (let () (declare (not safe)) (##vector-ref - _g67270_ + _g67532_ 0))) - (_tl6513465186_ + (_tl6539665448_ (let () (declare (not safe)) (##vector-ref - _g67270_ + _g67532_ 1)))) (if (gx#stx-null? - _tl6513465186_) - (letrec ((_loop6513565189_ + _tl6539665448_) + (letrec ((_loop6539765451_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd6513365193_ _getf6513965196_) - (if (gx#stx-pair? _hd6513365193_) - (let ((_e6513665199_ - (gx#syntax-e _hd6513365193_))) - (let ((_lp-hd6513765203_ + (lambda (_hd6539565455_ _getf6540165458_) + (if (gx#stx-pair? _hd6539565455_) + (let ((_e6539865461_ + (gx#syntax-e _hd6539565455_))) + (let ((_lp-hd6539965465_ (let () (declare (not safe)) - (##car _e6513665199_))) - (_lp-tl6513865206_ + (##car _e6539865461_))) + (_lp-tl6540065468_ (let () (declare (not safe)) - (##cdr _e6513665199_)))) - (_loop6513565189_ - _lp-tl6513865206_ + (##cdr _e6539865461_)))) + (_loop6539765451_ + _lp-tl6540065468_ (let () (declare (not safe)) - (cons _lp-hd6513765203_ - _getf6513965196_))))) - (let ((_getf6514065209_ - (reverse _getf6513965196_))) - (if (gx#stx-null? _tl6512665170_) - ((lambda (_L65213_ _L65215_) - (let* ((_g6523565259_ - (lambda (_g6523665255_) + (cons _lp-hd6539965465_ + _getf6540165458_))))) + (let ((_getf6540265471_ + (reverse _getf6540165458_))) + (if (gx#stx-null? _tl6538865432_) + ((lambda (_L65475_ _L65477_) + (let* ((_g6549765521_ + (lambda (_g6549865517_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6523665255_))) - (_g6523465366_ - (lambda (_g6523665263_) + _g6549865517_))) + (_g6549665628_ + (lambda (_g6549865525_) (if (gx#stx-pair? - _g6523665263_) - (let ((_e6524165266_ + _g6549865525_) + (let ((_e6550365528_ (gx#syntax-e - _g6523665263_))) - (let ((_hd6524065270_ + _g6549865525_))) + (let ((_hd6550265532_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6524165266_))) - (_tl6523965273_ - (let () (declare (not safe)) (##cdr _e6524165266_)))) - (if (gx#stx-pair? _tl6523965273_) - (let ((_e6524465276_ (gx#syntax-e _tl6523965273_))) - (let ((_hd6524365280_ + (##car _e6550365528_))) + (_tl6550165535_ + (let () (declare (not safe)) (##cdr _e6550365528_)))) + (if (gx#stx-pair? _tl6550165535_) + (let ((_e6550665538_ (gx#syntax-e _tl6550165535_))) + (let ((_hd6550565542_ (let () (declare (not safe)) - (##car _e6524465276_))) - (_tl6524265283_ + (##car _e6550665538_))) + (_tl6550465545_ (let () (declare (not safe)) - (##cdr _e6524465276_)))) - (if (gx#stx-pair/null? _hd6524365280_) - (let ((_g67272_ + (##cdr _e6550665538_)))) + (if (gx#stx-pair/null? _hd6550565542_) + (let ((_g67534_ (gx#syntax-split-splice - _hd6524365280_ + _hd6550565542_ '0))) (begin - (let ((_g67273_ + (let ((_g67535_ (let () (declare (not safe)) - (if (##values? _g67272_) - (##vector-length _g67272_) + (if (##values? _g67534_) + (##vector-length _g67534_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g67273_ 2))) + (##fx= _g67535_ 2))) (error "Context expects 2 values" - _g67273_))) - (let ((_target6524565286_ + _g67535_))) + (let ((_target6550765548_ (let () (declare (not safe)) - (##vector-ref _g67272_ 0))) - (_tl6524765289_ + (##vector-ref _g67534_ 0))) + (_tl6550965551_ (let () (declare (not safe)) - (##vector-ref _g67272_ 1)))) - (if (gx#stx-null? _tl6524765289_) - (letrec ((_loop6524865292_ - (lambda (_hd6524665296_ - _macro-getf6525265299_) + (##vector-ref _g67534_ 1)))) + (if (gx#stx-null? _tl6550965551_) + (letrec ((_loop6551065554_ + (lambda (_hd6550865558_ + _macro-getf6551465561_) (if (gx#stx-pair? - _hd6524665296_) - (let ((_e6524965302_ + _hd6550865558_) + (let ((_e6551165564_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd6524665296_))) - (let ((_lp-hd6525065306_ - (let () (declare (not safe)) (##car _e6524965302_))) - (_lp-tl6525165309_ - (let () (declare (not safe)) (##cdr _e6524965302_)))) - (_loop6524865292_ - _lp-tl6525165309_ + _hd6550865558_))) + (let ((_lp-hd6551265568_ + (let () (declare (not safe)) (##car _e6551165564_))) + (_lp-tl6551365571_ + (let () (declare (not safe)) (##cdr _e6551165564_)))) + (_loop6551065554_ + _lp-tl6551365571_ (let () (declare (not safe)) - (cons _lp-hd6525065306_ _macro-getf6525265299_))))) - (let ((_macro-getf6525365312_ - (reverse _macro-getf6525265299_))) - (if (gx#stx-null? _tl6524265283_) - ((lambda (_L65316_ _L65318_) + (cons _lp-hd6551265568_ _macro-getf6551465561_))))) + (let ((_macro-getf6551565574_ + (reverse _macro-getf6551465561_))) + (if (gx#stx-null? _tl6550465545_) + ((lambda (_L65578_ _L65580_) (let () - (let ((__tmp67397 (gx#datum->syntax '#f 'begin)) - (__tmp67274 - (let ((__tmp67392 - (let ((__tmp67396 + (let ((__tmp67659 (gx#datum->syntax '#f 'begin)) + (__tmp67536 + (let ((__tmp67654 + (let ((__tmp67658 (gx#datum->syntax '#f 'extern)) - (__tmp67393 - (let ((__tmp67394 - (let ((__tmp67395 - (lambda (_g6534365346_ + (__tmp67655 + (let ((__tmp67656 + (let ((__tmp67657 + (lambda (_g6560565608_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6534465349_) + _g6560665611_) (let () (declare (not safe)) - (cons _g6534365346_ _g6534465349_))))) + (cons _g6560565608_ _g6560665611_))))) (declare (not safe)) - (foldr1 __tmp67395 '() _L65316_)))) + (foldr1 __tmp67657 '() _L65578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L65318_ - __tmp67394)))) + (cons _L65580_ + __tmp67656)))) (declare (not safe)) - (cons __tmp67396 __tmp67393))) - (__tmp67275 - (let ((__tmp67359 - (let ((__tmp67391 + (cons __tmp67658 __tmp67655))) + (__tmp67537 + (let ((__tmp67621 + (let ((__tmp67653 (gx#datum->syntax '#f 'def)) - (__tmp67360 - (let ((__tmp67388 - (let ((__tmp67389 + (__tmp67622 + (let ((__tmp67650 + (let ((__tmp67651 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67390 (gx#datum->syntax '#f 'exn))) + (let ((__tmp67652 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67390 '())))) + (cons __tmp67652 '())))) (declare (not safe)) - (cons _L65215_ __tmp67389))) - (__tmp67361 - (let ((__tmp67362 - (let ((__tmp67387 (gx#datum->syntax '#f 'if)) - (__tmp67363 - (let ((__tmp67383 - (let ((__tmp67386 + (cons _L65477_ __tmp67651))) + (__tmp67623 + (let ((__tmp67624 + (let ((__tmp67649 (gx#datum->syntax '#f 'if)) + (__tmp67625 + (let ((__tmp67645 + (let ((__tmp67648 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp67384 - (let ((__tmp67385 + (__tmp67646 + (let ((__tmp67647 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67385 '())))) + (cons __tmp67647 '())))) (declare (not safe)) - (cons __tmp67386 __tmp67384))) - (__tmp67364 - (let ((__tmp67369 - (let ((__tmp67382 + (cons __tmp67648 __tmp67646))) + (__tmp67626 + (let ((__tmp67631 + (let ((__tmp67644 (gx#datum->syntax '#f 'let)) - (__tmp67370 - (let ((__tmp67375 + (__tmp67632 + (let ((__tmp67637 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67381 (gx#datum->syntax '#f 'e)) - (__tmp67376 - (let ((__tmp67377 - (let ((__tmp67380 + (let ((__tmp67643 (gx#datum->syntax '#f 'e)) + (__tmp67638 + (let ((__tmp67639 + (let ((__tmp67642 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp67378 - (let ((__tmp67379 + (__tmp67640 + (let ((__tmp67641 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67379 '())))) + (cons __tmp67641 '())))) (declare (not safe)) - (cons __tmp67380 __tmp67378)))) + (cons __tmp67642 __tmp67640)))) (declare (not safe)) - (cons __tmp67377 '())))) + (cons __tmp67639 '())))) (declare (not safe)) - (cons __tmp67381 __tmp67376))) - (__tmp67371 - (let ((__tmp67372 - (let ((__tmp67373 - (let ((__tmp67374 + (cons __tmp67643 __tmp67638))) + (__tmp67633 + (let ((__tmp67634 + (let ((__tmp67635 + (let ((__tmp67636 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp67374 '())))) + (cons __tmp67636 '())))) (declare (not safe)) - (cons _L65318_ __tmp67373)))) + (cons _L65580_ __tmp67635)))) (declare (not safe)) - (cons __tmp67372 '())))) + (cons __tmp67634 '())))) (declare (not safe)) - (cons __tmp67375 __tmp67371)))) + (cons __tmp67637 __tmp67633)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67382 - __tmp67370))) - (__tmp67365 - (let ((__tmp67366 - (let ((__tmp67367 + (cons __tmp67644 + __tmp67632))) + (__tmp67627 + (let ((__tmp67628 + (let ((__tmp67629 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67368 (gx#datum->syntax '#f 'exn))) + (let ((__tmp67630 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67368 '())))) + (cons __tmp67630 '())))) (declare (not safe)) - (cons _L65318_ __tmp67367)))) + (cons _L65580_ __tmp67629)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67366 '())))) + (cons __tmp67628 '())))) (declare (not safe)) - (cons __tmp67369 __tmp67365)))) + (cons __tmp67631 __tmp67627)))) (declare (not safe)) - (cons __tmp67383 __tmp67364)))) + (cons __tmp67645 __tmp67626)))) (declare (not safe)) - (cons __tmp67387 __tmp67363)))) + (cons __tmp67649 __tmp67625)))) (declare (not safe)) - (cons __tmp67362 '())))) + (cons __tmp67624 '())))) (declare (not safe)) - (cons __tmp67388 __tmp67361)))) + (cons __tmp67650 __tmp67623)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67391 - __tmp67360))) - (__tmp67276 + (cons __tmp67653 + __tmp67622))) + (__tmp67538 (begin (gx#syntax-check-splice-targets - _L65213_ - _L65316_ - _L65213_ - _L65316_ - _L65213_) - (let ((__tmp67277 - (lambda (_g6533765352_ + _L65475_ + _L65578_ + _L65475_ + _L65578_ + _L65475_) + (let ((__tmp67539 + (lambda (_g6559965614_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6533865355_ - _g6533965357_ - _g6534065359_ - _g6534165361_ - _g6534265363_) - (let ((__tmp67278 - (let ((__tmp67358 (gx#datum->syntax '#f 'def)) - (__tmp67279 - (let ((__tmp67355 - (let ((__tmp67356 - (let ((__tmp67357 + _g6560065617_ + _g6560165619_ + _g6560265621_ + _g6560365623_ + _g6560465625_) + (let ((__tmp67540 + (let ((__tmp67620 (gx#datum->syntax '#f 'def)) + (__tmp67541 + (let ((__tmp67617 + (let ((__tmp67618 + (let ((__tmp67619 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67357 '())))) + (cons __tmp67619 '())))) (declare (not safe)) - (cons _g6533765352_ __tmp67356))) - (__tmp67280 - (let ((__tmp67281 - (let ((__tmp67354 + (cons _g6559965614_ __tmp67618))) + (__tmp67542 + (let ((__tmp67543 + (let ((__tmp67616 (gx#datum->syntax '#f 'if)) - (__tmp67282 - (let ((__tmp67350 - (let ((__tmp67353 + (__tmp67544 + (let ((__tmp67612 + (let ((__tmp67615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp67351 - (let ((__tmp67352 (gx#datum->syntax '#f 'exn))) + (__tmp67613 + (let ((__tmp67614 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67352 '())))) + (cons __tmp67614 '())))) (declare (not safe)) - (cons __tmp67353 __tmp67351))) - (__tmp67283 - (let ((__tmp67312 - (let ((__tmp67349 (gx#datum->syntax '#f 'let)) - (__tmp67313 - (let ((__tmp67342 - (let ((__tmp67348 + (cons __tmp67615 __tmp67613))) + (__tmp67545 + (let ((__tmp67574 + (let ((__tmp67611 (gx#datum->syntax '#f 'let)) + (__tmp67575 + (let ((__tmp67604 + (let ((__tmp67610 (gx#datum->syntax '#f 'e)) - (__tmp67343 - (let ((__tmp67344 - (let ((__tmp67347 + (__tmp67605 + (let ((__tmp67606 + (let ((__tmp67609 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp67345 - (let ((__tmp67346 (gx#datum->syntax '#f 'exn))) + (__tmp67607 + (let ((__tmp67608 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67346 '())))) + (cons __tmp67608 '())))) (declare (not safe)) - (cons __tmp67347 __tmp67345)))) + (cons __tmp67609 __tmp67607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67344 '())))) + (cons __tmp67606 '())))) (declare (not safe)) - (cons __tmp67348 __tmp67343))) - (__tmp67314 - (let ((__tmp67315 - (let ((__tmp67341 + (cons __tmp67610 __tmp67605))) + (__tmp67576 + (let ((__tmp67577 + (let ((__tmp67603 (gx#datum->syntax '#f 'if)) - (__tmp67316 - (let ((__tmp67338 - (let ((__tmp67339 + (__tmp67578 + (let ((__tmp67600 + (let ((__tmp67601 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67340 (gx#datum->syntax '#f 'e))) + (let ((__tmp67602 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp67340 '())))) + (cons __tmp67602 '())))) (declare (not safe)) - (cons _L65318_ __tmp67339))) - (__tmp67317 - (let ((__tmp67335 - (let ((__tmp67336 - (let ((__tmp67337 + (cons _L65580_ __tmp67601))) + (__tmp67579 + (let ((__tmp67597 + (let ((__tmp67598 + (let ((__tmp67599 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp67337 '())))) + (cons __tmp67599 '())))) (declare (not safe)) - (cons _g6533865355_ __tmp67336))) - (__tmp67318 - (let ((__tmp67319 - (let ((__tmp67334 + (cons _g6560065617_ __tmp67598))) + (__tmp67580 + (let ((__tmp67581 + (let ((__tmp67596 (gx#datum->syntax '#f 'error)) - (__tmp67320 - (let ((__tmp67321 - (let ((__tmp67331 - (let ((__tmp67333 + (__tmp67582 + (let ((__tmp67583 + (let ((__tmp67593 + (let ((__tmp67595 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp67332 - (let () (declare (not safe)) (cons _L65215_ '())))) + (__tmp67594 + (let () (declare (not safe)) (cons _L65477_ '())))) (declare (not safe)) - (cons __tmp67333 __tmp67332))) - (__tmp67322 - (let ((__tmp67323 - (let ((__tmp67330 (gx#datum->syntax '#f '@list)) - (__tmp67324 - (let ((__tmp67327 - (let ((__tmp67329 + (cons __tmp67595 __tmp67594))) + (__tmp67584 + (let ((__tmp67585 + (let ((__tmp67592 (gx#datum->syntax '#f '@list)) + (__tmp67586 + (let ((__tmp67589 + (let ((__tmp67591 (gx#datum->syntax '#f 'quote)) - (__tmp67328 + (__tmp67590 (let () (declare (not safe)) - (cons _g6533765352_ '())))) + (cons _g6559965614_ '())))) (declare (not safe)) - (cons __tmp67329 __tmp67328))) - (__tmp67325 - (let ((__tmp67326 + (cons __tmp67591 __tmp67590))) + (__tmp67587 + (let ((__tmp67588 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp67326 '())))) + (cons __tmp67588 '())))) (declare (not safe)) - (cons __tmp67327 __tmp67325)))) + (cons __tmp67589 __tmp67587)))) (declare (not safe)) - (cons __tmp67330 __tmp67324)))) + (cons __tmp67592 __tmp67586)))) (declare (not safe)) - (cons __tmp67323 '())))) + (cons __tmp67585 '())))) (declare (not safe)) - (cons __tmp67331 __tmp67322)))) + (cons __tmp67593 __tmp67584)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp67321)))) + __tmp67583)))) (declare (not safe)) - (cons __tmp67334 __tmp67320)))) + (cons __tmp67596 __tmp67582)))) (declare (not safe)) - (cons __tmp67319 '())))) + (cons __tmp67581 '())))) (declare (not safe)) - (cons __tmp67335 __tmp67318)))) + (cons __tmp67597 __tmp67580)))) (declare (not safe)) - (cons __tmp67338 __tmp67317)))) + (cons __tmp67600 __tmp67579)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67341 - __tmp67316)))) + (cons __tmp67603 + __tmp67578)))) (declare (not safe)) - (cons __tmp67315 '())))) + (cons __tmp67577 '())))) (declare (not safe)) - (cons __tmp67342 __tmp67314)))) + (cons __tmp67604 __tmp67576)))) (declare (not safe)) - (cons __tmp67349 __tmp67313))) - (__tmp67284 - (let ((__tmp67285 - (let ((__tmp67311 + (cons __tmp67611 __tmp67575))) + (__tmp67546 + (let ((__tmp67547 + (let ((__tmp67573 (gx#datum->syntax '#f 'if)) - (__tmp67286 - (let ((__tmp67308 - (let ((__tmp67309 - (let ((__tmp67310 + (__tmp67548 + (let ((__tmp67570 + (let ((__tmp67571 + (let ((__tmp67572 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp67310 '())))) + (cons __tmp67572 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L65318_ - __tmp67309))) - (__tmp67287 - (let ((__tmp67305 - (let ((__tmp67306 - (let ((__tmp67307 + (cons _L65580_ + __tmp67571))) + (__tmp67549 + (let ((__tmp67567 + (let ((__tmp67568 + (let ((__tmp67569 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67307 '())))) + (cons __tmp67569 '())))) (declare (not safe)) - (cons _g6533865355_ __tmp67306))) - (__tmp67288 - (let ((__tmp67289 - (let ((__tmp67304 (gx#datum->syntax '#f 'error)) - (__tmp67290 - (let ((__tmp67291 - (let ((__tmp67301 - (let ((__tmp67303 + (cons _g6560065617_ __tmp67568))) + (__tmp67550 + (let ((__tmp67551 + (let ((__tmp67566 (gx#datum->syntax '#f 'error)) + (__tmp67552 + (let ((__tmp67553 + (let ((__tmp67563 + (let ((__tmp67565 (gx#datum->syntax '#f 'quote)) - (__tmp67302 + (__tmp67564 (let () (declare (not safe)) - (cons _L65215_ '())))) + (cons _L65477_ '())))) (declare (not safe)) - (cons __tmp67303 __tmp67302))) - (__tmp67292 - (let ((__tmp67293 - (let ((__tmp67300 + (cons __tmp67565 __tmp67564))) + (__tmp67554 + (let ((__tmp67555 + (let ((__tmp67562 (gx#datum->syntax '#f '@list)) - (__tmp67294 - (let ((__tmp67297 + (__tmp67556 + (let ((__tmp67559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp67299 (gx#datum->syntax '#f 'quote)) - (__tmp67298 + (let ((__tmp67561 (gx#datum->syntax '#f 'quote)) + (__tmp67560 (let () (declare (not safe)) - (cons _g6533765352_ '())))) + (cons _g6559965614_ '())))) (declare (not safe)) - (cons __tmp67299 __tmp67298))) - (__tmp67295 - (let ((__tmp67296 (gx#datum->syntax '#f 'exn))) + (cons __tmp67561 __tmp67560))) + (__tmp67557 + (let ((__tmp67558 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp67296 '())))) + (cons __tmp67558 '())))) (declare (not safe)) - (cons __tmp67297 __tmp67295)))) + (cons __tmp67559 __tmp67557)))) (declare (not safe)) - (cons __tmp67300 __tmp67294)))) + (cons __tmp67562 __tmp67556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67293 '())))) + (cons __tmp67555 '())))) (declare (not safe)) - (cons __tmp67301 __tmp67292)))) + (cons __tmp67563 __tmp67554)))) (declare (not safe)) - (cons '"not an instance" __tmp67291)))) + (cons '"not an instance" __tmp67553)))) (declare (not safe)) - (cons __tmp67304 __tmp67290)))) + (cons __tmp67566 __tmp67552)))) (declare (not safe)) - (cons __tmp67289 '())))) + (cons __tmp67551 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67305 - __tmp67288)))) + (cons __tmp67567 + __tmp67550)))) (declare (not safe)) - (cons __tmp67308 __tmp67287)))) + (cons __tmp67570 __tmp67549)))) (declare (not safe)) - (cons __tmp67311 __tmp67286)))) + (cons __tmp67573 __tmp67548)))) (declare (not safe)) - (cons __tmp67285 '())))) + (cons __tmp67547 '())))) (declare (not safe)) - (cons __tmp67312 __tmp67284)))) + (cons __tmp67574 __tmp67546)))) (declare (not safe)) - (cons __tmp67350 __tmp67283)))) + (cons __tmp67612 __tmp67545)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp67354 - __tmp67282)))) + (cons __tmp67616 + __tmp67544)))) (declare (not safe)) - (cons __tmp67281 '())))) + (cons __tmp67543 '())))) (declare (not safe)) - (cons __tmp67355 __tmp67280)))) + (cons __tmp67617 __tmp67542)))) (declare (not safe)) - (cons __tmp67358 __tmp67279)))) + (cons __tmp67620 __tmp67541)))) (declare (not safe)) - (cons __tmp67278 _g6534265363_))))) + (cons __tmp67540 _g6560465625_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp67277 + (foldr* __tmp67539 '() - _L65213_ - _L65316_ - _L65213_ - _L65316_ - _L65213_))))) + _L65475_ + _L65578_ + _L65475_ + _L65578_ + _L65475_))))) (declare (not safe)) - (cons __tmp67359 __tmp67276)))) + (cons __tmp67621 __tmp67538)))) (declare (not safe)) - (cons __tmp67392 __tmp67275)))) + (cons __tmp67654 __tmp67537)))) (declare (not safe)) - (cons __tmp67397 __tmp67274)))) - _macro-getf6525365312_ - _hd6524065270_) - (_g6523565259_ _g6523665263_))))))) + (cons __tmp67659 __tmp67536)))) + _macro-getf6551565574_ + _hd6550265532_) + (_g6549765521_ _g6549865525_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6524865292_ - _target6524565286_ + (_loop6551065554_ + _target6550765548_ '())) - (_g6523565259_ _g6523665263_))))) - (_g6523565259_ _g6523665263_)))) - (_g6523565259_ _g6523665263_)))) - (_g6523565259_ _g6523665263_))))) + (_g6549765521_ _g6549865525_))))) + (_g6549765521_ _g6549865525_)))) + (_g6549765521_ _g6549865525_)))) + (_g6549765521_ _g6549865525_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6523465366_ + (_g6549665628_ (list (gx#stx-identifier - _L65215_ + _L65477_ '"macro-" - _L65215_) - (map (lambda (_f65370_) + _L65477_) + (map (lambda (_f65632_) (gx#stx-identifier - _f65370_ + _f65632_ '"macro-" - _f65370_)) - (let ((__tmp67398 - (lambda (_g6537265375_ + _f65632_)) + (let ((__tmp67660 + (lambda (_g6563465637_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6537365378_) + _g6563565640_) (let () (declare (not safe)) - (cons _g6537265375_ _g6537365378_))))) + (cons _g6563465637_ _g6563565640_))))) (declare (not safe)) - (foldr1 __tmp67398 '() _L65213_))))))) + (foldr1 __tmp67660 '() _L65475_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf6514065209_ - _hd6513065177_) - (_g6511965146_ _g6512065150_))))))) - (_loop6513565189_ _target6513265183_ '())) - (_g6511965146_ _g6512065150_))))) + _getf6540265471_ + _hd6539265439_) + (_g6538165408_ _g6538265412_))))))) + (_loop6539765451_ _target6539465445_ '())) + (_g6538165408_ _g6538265412_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6511965146_ _g6512065150_)))) - (_g6511965146_ _g6512065150_)))) - (_g6511965146_ _g6512065150_)))) - (_g6511965146_ _g6512065150_))))) - (_g6511865381_ _stx65116_)))) + (_g6538165408_ _g6538265412_)))) + (_g6538165408_ _g6538265412_)))) + (_g6538165408_ _g6538265412_)))) + (_g6538165408_ _g6538265412_))))) + (_g6538065643_ _stx65378_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx65387_) - (let* ((_g6539165411_ - (lambda (_g6539265407_) + (lambda (_$stx65649_) + (let* ((_g6565365673_ + (lambda (_g6565465669_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6539265407_))) - (_g6539065482_ - (lambda (_g6539265415_) - (if (gx#stx-pair? _g6539265415_) - (let ((_e6539665418_ (gx#syntax-e _g6539265415_))) - (let ((_hd6539565422_ + _g6565465669_))) + (_g6565265744_ + (lambda (_g6565465677_) + (if (gx#stx-pair? _g6565465677_) + (let ((_e6565865680_ (gx#syntax-e _g6565465677_))) + (let ((_hd6565765684_ (let () (declare (not safe)) - (##car _e6539665418_))) - (_tl6539465425_ + (##car _e6565865680_))) + (_tl6565665687_ (let () (declare (not safe)) - (##cdr _e6539665418_)))) - (if (gx#stx-pair/null? _tl6539465425_) - (let ((_g67399_ + (##cdr _e6565865680_)))) + (if (gx#stx-pair/null? _tl6565665687_) + (let ((_g67661_ (gx#syntax-split-splice - _tl6539465425_ + _tl6565665687_ '0))) (begin - (let ((_g67400_ + (let ((_g67662_ (let () (declare (not safe)) - (if (##values? _g67399_) - (##vector-length _g67399_) + (if (##values? _g67661_) + (##vector-length _g67661_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g67400_ 2))) + (##fx= _g67662_ 2))) (error "Context expects 2 values" - _g67400_))) - (let ((_target6539765428_ + _g67662_))) + (let ((_target6565965690_ (let () (declare (not safe)) - (##vector-ref _g67399_ 0))) - (_tl6539965431_ + (##vector-ref _g67661_ 0))) + (_tl6566165693_ (let () (declare (not safe)) - (##vector-ref _g67399_ 1)))) - (if (gx#stx-null? _tl6539965431_) - (letrec ((_loop6540065434_ - (lambda (_hd6539865438_ - _defexn6540465441_) + (##vector-ref _g67661_ 1)))) + (if (gx#stx-null? _tl6566165693_) + (letrec ((_loop6566265696_ + (lambda (_hd6566065700_ + _defexn6566665703_) (if (gx#stx-pair? - _hd6539865438_) - (let ((_e6540165444_ + _hd6566065700_) + (let ((_e6566365706_ (gx#syntax-e - _hd6539865438_))) - (let ((_lp-hd6540265448_ + _hd6566065700_))) + (let ((_lp-hd6566465710_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e6540165444_))) - (_lp-tl6540365451_ - (let () (declare (not safe)) (##cdr _e6540165444_)))) - (_loop6540065434_ - _lp-tl6540365451_ + (let () (declare (not safe)) (##car _e6566365706_))) + (_lp-tl6566565713_ + (let () (declare (not safe)) (##cdr _e6566365706_)))) + (_loop6566265696_ + _lp-tl6566565713_ (let () (declare (not safe)) - (cons _lp-hd6540265448_ _defexn6540465441_))))) - (let ((_defexn6540565454_ (reverse _defexn6540465441_))) - ((lambda (_L65458_) - (let ((__tmp67406 (gx#datum->syntax '#f 'begin)) - (__tmp67401 - (let ((__tmp67402 - (lambda (_g6547365476_ _g6547465479_) - (let ((__tmp67403 - (let ((__tmp67405 + (cons _lp-hd6566465710_ _defexn6566665703_))))) + (let ((_defexn6566765716_ (reverse _defexn6566665703_))) + ((lambda (_L65720_) + (let ((__tmp67668 (gx#datum->syntax '#f 'begin)) + (__tmp67663 + (let ((__tmp67664 + (lambda (_g6573565738_ _g6573665741_) + (let ((__tmp67665 + (let ((__tmp67667 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp67404 + (__tmp67666 (let () (declare (not safe)) - (cons _g6547365476_ + (cons _g6573565738_ '())))) (declare (not safe)) - (cons __tmp67405 __tmp67404)))) + (cons __tmp67667 __tmp67666)))) (declare (not safe)) - (cons __tmp67403 _g6547465479_))))) + (cons __tmp67665 _g6573665741_))))) (declare (not safe)) - (foldr1 __tmp67402 '() _L65458_)))) + (foldr1 __tmp67664 '() _L65720_)))) (declare (not safe)) - (cons __tmp67406 __tmp67401))) - _defexn6540565454_)))))) + (cons __tmp67668 __tmp67663))) + _defexn6566765716_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6540065434_ - _target6539765428_ + (_loop6566265696_ + _target6565965690_ '())) - (_g6539165411_ _g6539265415_))))) - (_g6539165411_ _g6539265415_)))) - (_g6539165411_ _g6539265415_))))) - (_g6539065482_ _$stx65387_)))))) + (_g6565365673_ _g6565465677_))))) + (_g6565365673_ _g6565465677_)))) + (_g6565365673_ _g6565465677_))))) + (_g6565265744_ _$stx65649_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index f5e7e55a..8b79d035 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 1709375797) + (define gerbil/runtime/eval::timestamp 1709457369) (begin (define __syntax::t - (let ((__tmp77842 (list)) - (__tmp77840 - (let ((__tmp77841 + (let ((__tmp78104 (list)) + (__tmp78102 + (let ((__tmp78103 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp77841 '())))) + (cons __tmp78103 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp77842 + __tmp78104 '(e id) - __tmp77840 + __tmp78102 '#f))) (define __syntax? (let () (declare (not safe)) (make-class-predicate __syntax::t))) (define make-__syntax - (lambda _$args77651_ (apply make-instance __syntax::t _$args77651_))) + (lambda _$args77913_ (apply make-instance __syntax::t _$args77913_))) (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 ((__tmp77845 (list __syntax::t)) - (__tmp77843 - (let ((__tmp77844 + (let ((__tmp78107 (list __syntax::t)) + (__tmp78105 + (let ((__tmp78106 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp77844 '())))) + (cons __tmp78106 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp77845 + __tmp78107 '() - __tmp77843 + __tmp78105 '#f))) (define __core-form? (let () (declare (not safe)) (make-class-predicate __core-form::t))) (define make-__core-form - (lambda _$args77648_ (apply make-instance __core-form::t _$args77648_))) + (lambda _$args77910_ (apply make-instance __core-form::t _$args77910_))) (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 ((__tmp77848 (list __core-form::t)) - (__tmp77846 - (let ((__tmp77847 + (let ((__tmp78110 (list __core-form::t)) + (__tmp78108 + (let ((__tmp78109 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp77847 '())))) + (cons __tmp78109 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp77848 + __tmp78110 '() - __tmp77846 + __tmp78108 '#f))) (define __core-expression? (let () (declare (not safe)) (make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args77645_ - (apply make-instance __core-expression::t _$args77645_))) + (lambda _$args77907_ + (apply make-instance __core-expression::t _$args77907_))) (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 ((__tmp77851 (list __core-form::t)) - (__tmp77849 - (let ((__tmp77850 + (let ((__tmp78113 (list __core-form::t)) + (__tmp78111 + (let ((__tmp78112 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp77850 '())))) + (cons __tmp78112 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp77851 + __tmp78113 '() - __tmp77849 + __tmp78111 '#f))) (define __core-special-form? (let () (declare (not safe)) (make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args77642_ - (apply make-instance __core-special-form::t _$args77642_))) + (lambda _$args77904_ + (apply make-instance __core-special-form::t _$args77904_))) (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 (_id77640_) - (let ((__tmp77852 (let () (declare (not safe)) (__AST-e _id77640_)))) + (lambda (_id77902_) + (let ((__tmp78114 (let () (declare (not safe)) (__AST-e _id77902_)))) (declare (not safe)) - (hash-get __core __tmp77852)))) + (hash-get __core __tmp78114)))) (define __core-bound-id?__% - (lambda (_id77624_ _is?77625_) - (let ((_$e77627_ - (let () (declare (not safe)) (__core-resolve _id77624_)))) - (if _$e77627_ (_is?77625_ _$e77627_) '#f)))) + (lambda (_id77886_ _is?77887_) + (let ((_$e77889_ + (let () (declare (not safe)) (__core-resolve _id77886_)))) + (if _$e77889_ (_is?77887_ _$e77889_) '#f)))) (define __core-bound-id?__0 - (lambda (_id77633_) - (let ((_is?77635_ true)) + (lambda (_id77895_) + (let ((_is?77897_ true)) (declare (not safe)) - (__core-bound-id?__% _id77633_ _is?77635_)))) + (__core-bound-id?__% _id77895_ _is?77897_)))) (define __core-bound-id? - (lambda _g77854_ - (let ((_g77853_ (let () (declare (not safe)) (##length _g77854_)))) - (cond ((let () (declare (not safe)) (##fx= _g77853_ 1)) - (apply (lambda (_id77633_) + (lambda _g78116_ + (let ((_g78115_ (let () (declare (not safe)) (##length _g78116_)))) + (cond ((let () (declare (not safe)) (##fx= _g78115_ 1)) + (apply (lambda (_id77895_) (let () (declare (not safe)) - (__core-bound-id?__0 _id77633_))) - _g77854_)) - ((let () (declare (not safe)) (##fx= _g77853_ 2)) - (apply (lambda (_id77637_ _is?77638_) + (__core-bound-id?__0 _id77895_))) + _g78116_)) + ((let () (declare (not safe)) (##fx= _g78115_ 2)) + (apply (lambda (_id77899_ _is?77900_) (let () (declare (not safe)) - (__core-bound-id?__% _id77637_ _is?77638_))) - _g77854_)) + (__core-bound-id?__% _id77899_ _is?77900_))) + _g78116_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g77854_)))))) + _g78116_)))))) (define __core-bind-syntax!__% - (lambda (_id77607_ _e77608_ _make77609_) - (let ((__tmp77855 + (lambda (_id77869_ _e77870_ _make77871_) + (let ((__tmp78117 (if (let () (declare (not safe)) (##structure-instance-of? - _e77608_ + _e77870_ 'gerbil/runtime/eval#__syntax::t)) - _e77608_ - (_make77609_ _e77608_ _id77607_)))) + _e77870_ + (_make77871_ _e77870_ _id77869_)))) (declare (not safe)) - (hash-put! __core _id77607_ __tmp77855)))) + (hash-put! __core _id77869_ __tmp78117)))) (define __core-bind-syntax!__0 - (lambda (_id77614_ _e77615_) - (let ((_make77617_ make-__syntax)) + (lambda (_id77876_ _e77877_) + (let ((_make77879_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id77614_ _e77615_ _make77617_)))) + (__core-bind-syntax!__% _id77876_ _e77877_ _make77879_)))) (define __core-bind-syntax! - (lambda _g77857_ - (let ((_g77856_ (let () (declare (not safe)) (##length _g77857_)))) - (cond ((let () (declare (not safe)) (##fx= _g77856_ 2)) - (apply (lambda (_id77614_ _e77615_) + (lambda _g78119_ + (let ((_g78118_ (let () (declare (not safe)) (##length _g78119_)))) + (cond ((let () (declare (not safe)) (##fx= _g78118_ 2)) + (apply (lambda (_id77876_ _e77877_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id77614_ _e77615_))) - _g77857_)) - ((let () (declare (not safe)) (##fx= _g77856_ 3)) - (apply (lambda (_id77619_ _e77620_ _make77621_) + (__core-bind-syntax!__0 _id77876_ _e77877_))) + _g78119_)) + ((let () (declare (not safe)) (##fx= _g78118_ 3)) + (apply (lambda (_id77881_ _e77882_ _make77883_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id77619_ - _e77620_ - _make77621_))) - _g77857_)) + _id77881_ + _e77882_ + _make77883_))) + _g78119_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g77857_)))))) + _g78119_)))))) (define __SRC__% - (lambda (_e77590_ _src-stx77591_) - (if (or (let () (declare (not safe)) (pair? _e77590_)) - (let () (declare (not safe)) (symbol? _e77590_))) - (let ((__tmp77861 + (lambda (_e77852_ _src-stx77853_) + (if (or (let () (declare (not safe)) (pair? _e77852_)) + (let () (declare (not safe)) (symbol? _e77852_))) + (let ((__tmp78123 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx77591_ + _src-stx77853_ 'gerbil#AST::t)) - (let ((__tmp77862 + (let ((__tmp78124 (let () (declare (not safe)) - (__AST-source _src-stx77591_)))) + (__AST-source _src-stx77853_)))) (declare (not safe)) - (__locat __tmp77862)) + (__locat __tmp78124)) '#f))) (declare (not safe)) - (##make-source _e77590_ __tmp77861)) + (##make-source _e77852_ __tmp78123)) (if (let () (declare (not safe)) - (##structure-instance-of? _e77590_ 'gerbil#AST::t)) - (let ((__tmp77860 + (##structure-instance-of? _e77852_ 'gerbil#AST::t)) + (let ((__tmp78122 (let () (declare (not safe)) - (##unchecked-structure-ref _e77590_ '1 AST::t '#f))) - (__tmp77858 - (let ((__tmp77859 + (##unchecked-structure-ref _e77852_ '1 AST::t '#f))) + (__tmp78120 + (let ((__tmp78121 (let () (declare (not safe)) - (__AST-source _e77590_)))) + (__AST-source _e77852_)))) (declare (not safe)) - (__locat __tmp77859)))) + (__locat __tmp78121)))) (declare (not safe)) - (##make-source __tmp77860 __tmp77858)) + (##make-source __tmp78122 __tmp78120)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _e77590_)))))) + (error '"BUG! Cannot sourcify object" _e77852_)))))) (define __SRC__0 - (lambda (_e77599_) - (let ((_src-stx77601_ '#f)) + (lambda (_e77861_) + (let ((_src-stx77863_ '#f)) (declare (not safe)) - (__SRC__% _e77599_ _src-stx77601_)))) + (__SRC__% _e77861_ _src-stx77863_)))) (define __SRC - (lambda _g77864_ - (let ((_g77863_ (let () (declare (not safe)) (##length _g77864_)))) - (cond ((let () (declare (not safe)) (##fx= _g77863_ 1)) - (apply (lambda (_e77599_) - (let () (declare (not safe)) (__SRC__0 _e77599_))) - _g77864_)) - ((let () (declare (not safe)) (##fx= _g77863_ 2)) - (apply (lambda (_e77603_ _src-stx77604_) + (lambda _g78126_ + (let ((_g78125_ (let () (declare (not safe)) (##length _g78126_)))) + (cond ((let () (declare (not safe)) (##fx= _g78125_ 1)) + (apply (lambda (_e77861_) + (let () (declare (not safe)) (__SRC__0 _e77861_))) + _g78126_)) + ((let () (declare (not safe)) (##fx= _g78125_ 2)) + (apply (lambda (_e77865_ _src-stx77866_) (let () (declare (not safe)) - (__SRC__% _e77603_ _src-stx77604_))) - _g77864_)) + (__SRC__% _e77865_ _src-stx77866_))) + _g78126_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g77864_)))))) + _g78126_)))))) (define __locat - (lambda (_loc77587_) - (if (let () (declare (not safe)) (##locat? _loc77587_)) - _loc77587_ + (lambda (_loc77849_) + (if (let () (declare (not safe)) (##locat? _loc77849_)) + _loc77849_ '#f))) (define __check-values - (lambda (_obj77582_ _k77583_) - (let ((_count77585_ - (if (let () (declare (not safe)) (##values? _obj77582_)) - (let () (declare (not safe)) (##vector-length _obj77582_)) + (lambda (_obj77844_ _k77845_) + (let ((_count77847_ + (if (let () (declare (not safe)) (##values? _obj77844_)) + (let () (declare (not safe)) (##vector-length _obj77844_)) '1))) - (if (fx= _count77585_ _k77583_) + (if (fx= _count77847_ _k77845_) '#!void - (let ((__tmp77866 - (if (fx< _count77585_ _k77583_) + (let ((__tmp78128 + (if (fx< _count77847_ _k77845_) '"Too few values for context" '"Too many values for context")) - (__tmp77865 - (if (let () (declare (not safe)) (##values? _obj77582_)) + (__tmp78127 + (if (let () (declare (not safe)) (##values? _obj77844_)) (let () (declare (not safe)) - (##vector->list _obj77582_)) - _obj77582_))) + (##vector->list _obj77844_)) + _obj77844_))) (declare (not safe)) - (error __tmp77866 __tmp77865 _k77583_)))))) + (error __tmp78128 __tmp78127 _k77845_)))))) (define __compile - (lambda (_stx77552_) - (let* ((_$e77554_ _stx77552_) - (_$E7755677562_ + (lambda (_stx77814_) + (let* ((_$e77816_ _stx77814_) + (_$E7781877824_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77554_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77554_)) - (let* ((_$tgt7755777565_ - (let () (declare (not safe)) (__AST-e _$e77554_))) - (_$hd7755877568_ - (let () (declare (not safe)) (##car _$tgt7755777565_))) - (_$tl7755977571_ - (let () (declare (not safe)) (##cdr _$tgt7755777565_)))) - (let* ((_form77575_ _$hd7755877568_) - (_$e77577_ + _$e77816_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77816_)) + (let* ((_$tgt7781977827_ + (let () (declare (not safe)) (__AST-e _$e77816_))) + (_$hd7782077830_ + (let () (declare (not safe)) (##car _$tgt7781977827_))) + (_$tl7782177833_ + (let () (declare (not safe)) (##cdr _$tgt7781977827_)))) + (let* ((_form77837_ _$hd7782077830_) + (_$e77839_ (let () (declare (not safe)) - (__core-resolve _form77575_)))) - (if _$e77577_ - ((lambda (_bind77580_) - ((##structure-ref _bind77580_ '1 __syntax::t '#f) - _stx77552_)) - _$e77577_) + (__core-resolve _form77837_)))) + (if _$e77839_ + ((lambda (_bind77842_) + ((##structure-ref _bind77842_ '1 __syntax::t '#f) + _stx77814_)) + _$e77839_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx77552_ - _form77575_))))) - (let () (declare (not safe)) (_$E7755677562_)))))) + _stx77814_ + _form77837_))))) + (let () (declare (not safe)) (_$E7781877824_)))))) (define __compile-error__% - (lambda (_stx77539_ _detail77540_) + (lambda (_stx77801_ _detail77802_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx77539_ - _detail77540_)))) + _stx77801_ + _detail77802_)))) (define __compile-error__0 - (lambda (_stx77545_) - (let ((_detail77547_ '#f)) + (lambda (_stx77807_) + (let ((_detail77809_ '#f)) (declare (not safe)) - (__compile-error__% _stx77545_ _detail77547_)))) + (__compile-error__% _stx77807_ _detail77809_)))) (define __compile-error - (lambda _g77868_ - (let ((_g77867_ (let () (declare (not safe)) (##length _g77868_)))) - (cond ((let () (declare (not safe)) (##fx= _g77867_ 1)) - (apply (lambda (_stx77545_) + (lambda _g78130_ + (let ((_g78129_ (let () (declare (not safe)) (##length _g78130_)))) + (cond ((let () (declare (not safe)) (##fx= _g78129_ 1)) + (apply (lambda (_stx77807_) (let () (declare (not safe)) - (__compile-error__0 _stx77545_))) - _g77868_)) - ((let () (declare (not safe)) (##fx= _g77867_ 2)) - (apply (lambda (_stx77549_ _detail77550_) + (__compile-error__0 _stx77807_))) + _g78130_)) + ((let () (declare (not safe)) (##fx= _g78129_ 2)) + (apply (lambda (_stx77811_ _detail77812_) (let () (declare (not safe)) - (__compile-error__% _stx77549_ _detail77550_))) - _g77868_)) + (__compile-error__% _stx77811_ _detail77812_))) + _g78130_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g77868_)))))) + _g78130_)))))) (define __compile-ignore% - (lambda (_stx77536_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx77536_)))) + (lambda (_stx77798_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx77798_)))) (define __compile-begin% - (lambda (_stx77511_) - (let* ((_$e77513_ _stx77511_) - (_$E7751577521_ + (lambda (_stx77773_) + (let* ((_$e77775_ _stx77773_) + (_$E7777777783_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77513_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77513_)) - (let* ((_$tgt7751677524_ - (let () (declare (not safe)) (__AST-e _$e77513_))) - (_$hd7751777527_ - (let () (declare (not safe)) (##car _$tgt7751677524_))) - (_$tl7751877530_ - (let () (declare (not safe)) (##cdr _$tgt7751677524_)))) - (let* ((_body77534_ _$tl7751877530_) - (__tmp77869 - (let ((__tmp77870 (map __compile _body77534_))) + _$e77775_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77775_)) + (let* ((_$tgt7777877786_ + (let () (declare (not safe)) (__AST-e _$e77775_))) + (_$hd7777977789_ + (let () (declare (not safe)) (##car _$tgt7777877786_))) + (_$tl7778077792_ + (let () (declare (not safe)) (##cdr _$tgt7777877786_)))) + (let* ((_body77796_ _$tl7778077792_) + (__tmp78131 + (let ((__tmp78132 (map __compile _body77796_))) (declare (not safe)) - (cons 'begin __tmp77870)))) + (cons 'begin __tmp78132)))) (declare (not safe)) - (__SRC__% __tmp77869 _stx77511_))) - (let () (declare (not safe)) (_$E7751577521_)))))) + (__SRC__% __tmp78131 _stx77773_))) + (let () (declare (not safe)) (_$E7777777783_)))))) (define __compile-begin-foreign% - (lambda (_stx77486_) - (let* ((_$e77488_ _stx77486_) - (_$E7749077496_ + (lambda (_stx77748_) + (let* ((_$e77750_ _stx77748_) + (_$E7775277758_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77488_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77488_)) - (let* ((_$tgt7749177499_ - (let () (declare (not safe)) (__AST-e _$e77488_))) - (_$hd7749277502_ - (let () (declare (not safe)) (##car _$tgt7749177499_))) - (_$tl7749377505_ - (let () (declare (not safe)) (##cdr _$tgt7749177499_)))) - (let* ((_body77509_ _$tl7749377505_) - (__tmp77871 - (let ((__tmp77872 + _$e77750_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77750_)) + (let* ((_$tgt7775377761_ + (let () (declare (not safe)) (__AST-e _$e77750_))) + (_$hd7775477764_ + (let () (declare (not safe)) (##car _$tgt7775377761_))) + (_$tl7775577767_ + (let () (declare (not safe)) (##cdr _$tgt7775377761_)))) + (let* ((_body77771_ _$tl7775577767_) + (__tmp78133 + (let ((__tmp78134 (let () (declare (not safe)) - (__AST->datum _body77509_)))) + (__AST->datum _body77771_)))) (declare (not safe)) - (cons 'begin __tmp77872)))) + (cons 'begin __tmp78134)))) (declare (not safe)) - (__SRC__% __tmp77871 _stx77486_))) - (let () (declare (not safe)) (_$E7749077496_)))))) + (__SRC__% __tmp78133 _stx77748_))) + (let () (declare (not safe)) (_$E7775277758_)))))) (define __compile-import% - (lambda (_stx77461_) - (let* ((_$e77463_ _stx77461_) - (_$E7746577471_ + (lambda (_stx77723_) + (let* ((_$e77725_ _stx77723_) + (_$E7772777733_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77463_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77463_)) - (let* ((_$tgt7746677474_ - (let () (declare (not safe)) (__AST-e _$e77463_))) - (_$hd7746777477_ - (let () (declare (not safe)) (##car _$tgt7746677474_))) - (_$tl7746877480_ - (let () (declare (not safe)) (##cdr _$tgt7746677474_)))) - (let* ((_body77484_ _$tl7746877480_) - (__tmp77873 - (let ((__tmp77874 - (let ((__tmp77875 - (let ((__tmp77876 + _$e77725_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77725_)) + (let* ((_$tgt7772877736_ + (let () (declare (not safe)) (__AST-e _$e77725_))) + (_$hd7772977739_ + (let () (declare (not safe)) (##car _$tgt7772877736_))) + (_$tl7773077742_ + (let () (declare (not safe)) (##cdr _$tgt7772877736_)))) + (let* ((_body77746_ _$tl7773077742_) + (__tmp78135 + (let ((__tmp78136 + (let ((__tmp78137 + (let ((__tmp78138 (let () (declare (not safe)) - (cons _body77484_ '())))) + (cons _body77746_ '())))) (declare (not safe)) - (cons 'quote __tmp77876)))) + (cons 'quote __tmp78138)))) (declare (not safe)) - (cons __tmp77875 '())))) + (cons __tmp78137 '())))) (declare (not safe)) - (cons '__eval-import __tmp77874)))) + (cons '__eval-import __tmp78136)))) (declare (not safe)) - (__SRC__% __tmp77873 _stx77461_))) - (let () (declare (not safe)) (_$E7746577471_)))))) + (__SRC__% __tmp78135 _stx77723_))) + (let () (declare (not safe)) (_$E7772777733_)))))) (define __compile-begin-annotation% - (lambda (_stx77408_) - (let* ((_$e77410_ _stx77408_) - (_$E7741277424_ + (lambda (_stx77670_) + (let* ((_$e77672_ _stx77670_) + (_$E7767477686_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77410_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77410_)) - (let* ((_$tgt7741377427_ - (let () (declare (not safe)) (__AST-e _$e77410_))) - (_$hd7741477430_ - (let () (declare (not safe)) (##car _$tgt7741377427_))) - (_$tl7741577433_ - (let () (declare (not safe)) (##cdr _$tgt7741377427_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7741577433_)) - (let* ((_$tgt7741677437_ + _$e77672_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77672_)) + (let* ((_$tgt7767577689_ + (let () (declare (not safe)) (__AST-e _$e77672_))) + (_$hd7767677692_ + (let () (declare (not safe)) (##car _$tgt7767577689_))) + (_$tl7767777695_ + (let () (declare (not safe)) (##cdr _$tgt7767577689_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7767777695_)) + (let* ((_$tgt7767877699_ (let () (declare (not safe)) - (__AST-e _$tl7741577433_))) - (_$hd7741777440_ + (__AST-e _$tl7767777695_))) + (_$hd7767977702_ (let () (declare (not safe)) - (##car _$tgt7741677437_))) - (_$tl7741877443_ + (##car _$tgt7767877699_))) + (_$tl7768077705_ (let () (declare (not safe)) - (##cdr _$tgt7741677437_)))) - (let ((_ann77447_ _$hd7741777440_)) + (##cdr _$tgt7767877699_)))) + (let ((_ann77709_ _$hd7767977702_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7741877443_)) - (let* ((_$tgt7741977449_ + (__AST-pair? _$tl7768077705_)) + (let* ((_$tgt7768177711_ (let () (declare (not safe)) - (__AST-e _$tl7741877443_))) - (_$hd7742077452_ + (__AST-e _$tl7768077705_))) + (_$hd7768277714_ (let () (declare (not safe)) - (##car _$tgt7741977449_))) - (_$tl7742177455_ + (##car _$tgt7768177711_))) + (_$tl7768377717_ (let () (declare (not safe)) - (##cdr _$tgt7741977449_)))) - (let ((_expr77459_ _$hd7742077452_)) - (if (let ((__tmp77877 + (##cdr _$tgt7768177711_)))) + (let ((_expr77721_ _$hd7768277714_)) + (if (let ((__tmp78139 (let () (declare (not safe)) - (__AST-e _$tl7742177455_)))) + (__AST-e _$tl7768377717_)))) (declare (not safe)) - (equal? __tmp77877 '())) + (equal? __tmp78139 '())) (let () (declare (not safe)) - (__compile _expr77459_)) + (__compile _expr77721_)) (let () (declare (not safe)) - (_$E7741277424_))))) - (let () (declare (not safe)) (_$E7741277424_))))) - (let () (declare (not safe)) (_$E7741277424_)))) - (let () (declare (not safe)) (_$E7741277424_)))))) + (_$E7767477686_))))) + (let () (declare (not safe)) (_$E7767477686_))))) + (let () (declare (not safe)) (_$E7767477686_)))) + (let () (declare (not safe)) (_$E7767477686_)))))) (define __compile-define-values% - (lambda (_stx77299_) - (let* ((_$e77301_ _stx77299_) - (_$E7730377315_ + (lambda (_stx77561_) + (let* ((_$e77563_ _stx77561_) + (_$E7756577577_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77301_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77301_)) - (let* ((_$tgt7730477318_ - (let () (declare (not safe)) (__AST-e _$e77301_))) - (_$hd7730577321_ - (let () (declare (not safe)) (##car _$tgt7730477318_))) - (_$tl7730677324_ - (let () (declare (not safe)) (##cdr _$tgt7730477318_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7730677324_)) - (let* ((_$tgt7730777328_ + _$e77563_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77563_)) + (let* ((_$tgt7756677580_ + (let () (declare (not safe)) (__AST-e _$e77563_))) + (_$hd7756777583_ + (let () (declare (not safe)) (##car _$tgt7756677580_))) + (_$tl7756877586_ + (let () (declare (not safe)) (##cdr _$tgt7756677580_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7756877586_)) + (let* ((_$tgt7756977590_ (let () (declare (not safe)) - (__AST-e _$tl7730677324_))) - (_$hd7730877331_ + (__AST-e _$tl7756877586_))) + (_$hd7757077593_ (let () (declare (not safe)) - (##car _$tgt7730777328_))) - (_$tl7730977334_ + (##car _$tgt7756977590_))) + (_$tl7757177596_ (let () (declare (not safe)) - (##cdr _$tgt7730777328_)))) - (let ((_hd77338_ _$hd7730877331_)) + (##cdr _$tgt7756977590_)))) + (let ((_hd77600_ _$hd7757077593_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7730977334_)) - (let* ((_$tgt7731077340_ + (__AST-pair? _$tl7757177596_)) + (let* ((_$tgt7757277602_ (let () (declare (not safe)) - (__AST-e _$tl7730977334_))) - (_$hd7731177343_ + (__AST-e _$tl7757177596_))) + (_$hd7757377605_ (let () (declare (not safe)) - (##car _$tgt7731077340_))) - (_$tl7731277346_ + (##car _$tgt7757277602_))) + (_$tl7757477608_ (let () (declare (not safe)) - (##cdr _$tgt7731077340_)))) - (let ((_expr77350_ _$hd7731177343_)) - (if (let ((__tmp77910 + (##cdr _$tgt7757277602_)))) + (let ((_expr77612_ _$hd7757377605_)) + (if (let ((__tmp78172 (let () (declare (not safe)) - (__AST-e _$tl7731277346_)))) + (__AST-e _$tl7757477608_)))) (declare (not safe)) - (equal? __tmp77910 '())) - (let* ((_$e77352_ _hd77338_) - (_$E7735477395_ + (equal? __tmp78172 '())) + (let* ((_$e77614_ _hd77600_) + (_$E7761677657_ (lambda () - (let ((_$E7735577380_ + (let ((_$E7761777642_ (lambda () - (let* ((_$E7735677367_ + (let* ((_$E7761877629_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -658,2901 +658,2901 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77352_)))) - (_ids77370_ _hd77338_) - (_len77372_ (length _ids77370_)) - (_tmp77374_ - (let ((__tmp77878 (gensym))) + _$e77614_)))) + (_ids77632_ _hd77600_) + (_len77634_ (length _ids77632_)) + (_tmp77636_ + (let ((__tmp78140 (gensym))) (declare (not safe)) - (__SRC__0 __tmp77878)))) - (let ((__tmp77879 - (let ((__tmp77880 - (let ((__tmp77897 - (let ((__tmp77898 - (let ((__tmp77899 - (let ((__tmp77900 - (let ((__tmp77901 + (__SRC__0 __tmp78140)))) + (let ((__tmp78141 + (let ((__tmp78142 + (let ((__tmp78159 + (let ((__tmp78160 + (let ((__tmp78161 + (let ((__tmp78162 + (let ((__tmp78163 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr77350_)))) + (__compile _expr77612_)))) (declare (not safe)) - (cons __tmp77901 '())))) + (cons __tmp78163 '())))) (declare (not safe)) - (cons _tmp77374_ __tmp77900)))) + (cons _tmp77636_ __tmp78162)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp77899)))) + (cons 'define __tmp78161)))) (declare (not safe)) - (__SRC__% __tmp77898 _stx77299_))) - (__tmp77881 - (let ((__tmp77893 - (let ((__tmp77894 - (let ((__tmp77895 - (let ((__tmp77896 + (__SRC__% __tmp78160 _stx77561_))) + (__tmp78143 + (let ((__tmp78155 + (let ((__tmp78156 + (let ((__tmp78157 + (let ((__tmp78158 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _len77372_ '())))) + (let () (declare (not safe)) (cons _len77634_ '())))) (declare (not safe)) - (cons _tmp77374_ __tmp77896)))) + (cons _tmp77636_ __tmp78158)))) (declare (not safe)) - (cons '__check-values __tmp77895)))) + (cons '__check-values __tmp78157)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp77894 - _stx77299_))) - (__tmp77882 - (let ((__tmp77883 - (let ((__tmp77885 - (lambda (_id77377_ + __tmp78156 + _stx77561_))) + (__tmp78144 + (let ((__tmp78145 + (let ((__tmp78147 + (lambda (_id77639_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k77378_) - (if (let () (declare (not safe)) (__AST-e _id77377_)) - (let ((__tmp77886 - (let ((__tmp77887 - (let ((__tmp77892 + _k77640_) + (if (let () (declare (not safe)) (__AST-e _id77639_)) + (let ((__tmp78148 + (let ((__tmp78149 + (let ((__tmp78154 (let () (declare (not safe)) - (__SRC__0 _id77377_))) - (__tmp77888 - (let ((__tmp77889 - (let ((__tmp77890 - (let ((__tmp77891 + (__SRC__0 _id77639_))) + (__tmp78150 + (let ((__tmp78151 + (let ((__tmp78152 + (let ((__tmp78153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k77378_ '())))) + (let () (declare (not safe)) (cons _k77640_ '())))) (declare (not safe)) - (cons _tmp77374_ __tmp77891)))) + (cons _tmp77636_ __tmp78153)))) (declare (not safe)) - (cons '##vector-ref __tmp77890)))) + (cons '##vector-ref __tmp78152)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77889 '())))) + (cons __tmp78151 '())))) (declare (not safe)) - (cons __tmp77892 __tmp77888)))) + (cons __tmp78154 __tmp78150)))) (declare (not safe)) - (cons 'define __tmp77887)))) + (cons 'define __tmp78149)))) (declare (not safe)) - (__SRC__% __tmp77886 _stx77299_)) + (__SRC__% __tmp78148 _stx77561_)) '#f))) - (__tmp77884 - (let () (declare (not safe)) (iota__0 _len77372_)))) + (__tmp78146 + (let () (declare (not safe)) (iota__0 _len77634_)))) (declare (not safe)) - (filter-map2 __tmp77885 _ids77370_ __tmp77884)))) + (filter-map2 __tmp78147 _ids77632_ __tmp78146)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp77883)))) + (foldr1 cons '() __tmp78145)))) (declare (not safe)) - (cons __tmp77893 __tmp77882)))) + (cons __tmp78155 __tmp78144)))) (declare (not safe)) - (cons __tmp77897 __tmp77881)))) + (cons __tmp78159 __tmp78143)))) (declare (not safe)) - (cons 'begin __tmp77880)))) + (cons 'begin __tmp78142)))) (declare (not safe)) - (__SRC__% __tmp77879 _stx77299_)))))) + (__SRC__% __tmp78141 _stx77561_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e77352_)) - (let* ((_$tgt7735777383_ + (__AST-pair? _$e77614_)) + (let* ((_$tgt7761977645_ (let () (declare (not safe)) - (__AST-e _$e77352_))) - (_$hd7735877386_ + (__AST-e _$e77614_))) + (_$hd7762077648_ (let () (declare (not safe)) - (##car _$tgt7735777383_))) - (_$tl7735977389_ + (##car _$tgt7761977645_))) + (_$tl7762177651_ (let () (declare (not safe)) - (##cdr _$tgt7735777383_)))) - (let ((_id77393_ - _$hd7735877386_)) - (if (let ((__tmp77907 + (##cdr _$tgt7761977645_)))) + (let ((_id77655_ + _$hd7762077648_)) + (if (let ((__tmp78169 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl7735977389_)))) + (__AST-e _$tl7762177651_)))) (declare (not safe)) - (equal? __tmp77907 '())) - (let ((__tmp77902 - (let ((__tmp77903 - (let ((__tmp77906 + (equal? __tmp78169 '())) + (let ((__tmp78164 + (let ((__tmp78165 + (let ((__tmp78168 (let () (declare (not safe)) - (__SRC__0 _id77393_))) - (__tmp77904 - (let ((__tmp77905 + (__SRC__0 _id77655_))) + (__tmp78166 + (let ((__tmp78167 (let () (declare (not safe)) - (__compile _expr77350_)))) + (__compile _expr77612_)))) (declare (not safe)) - (cons __tmp77905 '())))) + (cons __tmp78167 '())))) (declare (not safe)) - (cons __tmp77906 __tmp77904)))) + (cons __tmp78168 __tmp78166)))) (declare (not safe)) - (cons 'define __tmp77903)))) + (cons 'define __tmp78165)))) (declare (not safe)) - (__SRC__% __tmp77902 _stx77299_)) - (let () (declare (not safe)) (_$E7735577380_))))) + (__SRC__% __tmp78164 _stx77561_)) + (let () (declare (not safe)) (_$E7761777642_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E7735577380_))))))) + (_$E7761777642_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e77352_)) - (let* ((_$tgt7736077398_ + (__AST-pair? _$e77614_)) + (let* ((_$tgt7762277660_ (let () (declare (not safe)) - (__AST-e _$e77352_))) - (_$hd7736177401_ + (__AST-e _$e77614_))) + (_$hd7762377663_ (let () (declare (not safe)) - (##car _$tgt7736077398_))) - (_$tl7736277404_ + (##car _$tgt7762277660_))) + (_$tl7762477666_ (let () (declare (not safe)) - (##cdr _$tgt7736077398_)))) - (if (let ((__tmp77909 + (##cdr _$tgt7762277660_)))) + (if (let ((__tmp78171 (let () (declare (not safe)) - (__AST-e _$hd7736177401_)))) + (__AST-e _$hd7762377663_)))) (declare (not safe)) - (equal? __tmp77909 '#f)) - (if (let ((__tmp77908 + (equal? __tmp78171 '#f)) + (if (let ((__tmp78170 (let () (declare (not safe)) - (__AST-e _$tl7736277404_)))) + (__AST-e _$tl7762477666_)))) (declare (not safe)) - (equal? __tmp77908 '())) + (equal? __tmp78170 '())) (let () (declare (not safe)) - (__compile _expr77350_)) + (__compile _expr77612_)) (let () (declare (not safe)) - (_$E7735477395_))) + (_$E7761677657_))) (let () (declare (not safe)) - (_$E7735477395_)))) + (_$E7761677657_)))) (let () (declare (not safe)) - (_$E7735477395_)))) + (_$E7761677657_)))) (let () (declare (not safe)) - (_$E7730377315_))))) - (let () (declare (not safe)) (_$E7730377315_))))) - (let () (declare (not safe)) (_$E7730377315_)))) - (let () (declare (not safe)) (_$E7730377315_)))))) + (_$E7756577577_))))) + (let () (declare (not safe)) (_$E7756577577_))))) + (let () (declare (not safe)) (_$E7756577577_)))) + (let () (declare (not safe)) (_$E7756577577_)))))) (define __compile-head-id - (lambda (_e77297_) - (let ((__tmp77911 - (if (let () (declare (not safe)) (__AST-e _e77297_)) - _e77297_ + (lambda (_e77559_) + (let ((__tmp78173 + (if (let () (declare (not safe)) (__AST-e _e77559_)) + _e77559_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp77911)))) + (__SRC__0 __tmp78173)))) (define __compile-lambda-head - (lambda (_hd77254_) - (let _recur77256_ ((_rest77258_ _hd77254_)) - (let* ((_$e77260_ _rest77258_) - (_$E7726277280_ + (lambda (_hd77516_) + (let _recur77518_ ((_rest77520_ _hd77516_)) + (let* ((_$e77522_ _rest77520_) + (_$E7752477542_ (lambda () - (let ((_$E7726377277_ + (let ((_$E7752577539_ (lambda () - (let* ((_$E7726477272_ + (let* ((_$E7752677534_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77260_)))) - (_tail77275_ _$e77260_)) + _$e77522_)))) + (_tail77537_ _$e77522_)) (declare (not safe)) - (__compile-head-id _tail77275_))))) - (if (let ((__tmp77912 + (__compile-head-id _tail77537_))))) + (if (let ((__tmp78174 (let () (declare (not safe)) - (__AST-e _$e77260_)))) + (__AST-e _$e77522_)))) (declare (not safe)) - (equal? __tmp77912 '())) + (equal? __tmp78174 '())) '() - (let () (declare (not safe)) (_$E7726377277_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77260_)) - (let* ((_$tgt7726577283_ - (let () (declare (not safe)) (__AST-e _$e77260_))) - (_$hd7726677286_ - (let () (declare (not safe)) (##car _$tgt7726577283_))) - (_$tl7726777289_ + (let () (declare (not safe)) (_$E7752577539_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77522_)) + (let* ((_$tgt7752777545_ + (let () (declare (not safe)) (__AST-e _$e77522_))) + (_$hd7752877548_ + (let () (declare (not safe)) (##car _$tgt7752777545_))) + (_$tl7752977551_ (let () (declare (not safe)) - (##cdr _$tgt7726577283_)))) - (let* ((_hd77293_ _$hd7726677286_) - (_rest77295_ _$tl7726777289_)) - (let ((__tmp77914 + (##cdr _$tgt7752777545_)))) + (let* ((_hd77555_ _$hd7752877548_) + (_rest77557_ _$tl7752977551_)) + (let ((__tmp78176 (let () (declare (not safe)) - (__compile-head-id _hd77293_))) - (__tmp77913 + (__compile-head-id _hd77555_))) + (__tmp78175 (let () (declare (not safe)) - (_recur77256_ _rest77295_)))) + (_recur77518_ _rest77557_)))) (declare (not safe)) - (cons __tmp77914 __tmp77913)))) - (let () (declare (not safe)) (_$E7726277280_))))))) + (cons __tmp78176 __tmp78175)))) + (let () (declare (not safe)) (_$E7752477542_))))))) (define __compile-lambda% - (lambda (_stx77201_) - (let* ((_$e77203_ _stx77201_) - (_$E7720577217_ + (lambda (_stx77463_) + (let* ((_$e77465_ _stx77463_) + (_$E7746777479_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77203_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77203_)) - (let* ((_$tgt7720677220_ - (let () (declare (not safe)) (__AST-e _$e77203_))) - (_$hd7720777223_ - (let () (declare (not safe)) (##car _$tgt7720677220_))) - (_$tl7720877226_ - (let () (declare (not safe)) (##cdr _$tgt7720677220_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7720877226_)) - (let* ((_$tgt7720977230_ + _$e77465_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77465_)) + (let* ((_$tgt7746877482_ + (let () (declare (not safe)) (__AST-e _$e77465_))) + (_$hd7746977485_ + (let () (declare (not safe)) (##car _$tgt7746877482_))) + (_$tl7747077488_ + (let () (declare (not safe)) (##cdr _$tgt7746877482_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7747077488_)) + (let* ((_$tgt7747177492_ (let () (declare (not safe)) - (__AST-e _$tl7720877226_))) - (_$hd7721077233_ + (__AST-e _$tl7747077488_))) + (_$hd7747277495_ (let () (declare (not safe)) - (##car _$tgt7720977230_))) - (_$tl7721177236_ + (##car _$tgt7747177492_))) + (_$tl7747377498_ (let () (declare (not safe)) - (##cdr _$tgt7720977230_)))) - (let ((_hd77240_ _$hd7721077233_)) + (##cdr _$tgt7747177492_)))) + (let ((_hd77502_ _$hd7747277495_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7721177236_)) - (let* ((_$tgt7721277242_ + (__AST-pair? _$tl7747377498_)) + (let* ((_$tgt7747477504_ (let () (declare (not safe)) - (__AST-e _$tl7721177236_))) - (_$hd7721377245_ + (__AST-e _$tl7747377498_))) + (_$hd7747577507_ (let () (declare (not safe)) - (##car _$tgt7721277242_))) - (_$tl7721477248_ + (##car _$tgt7747477504_))) + (_$tl7747677510_ (let () (declare (not safe)) - (##cdr _$tgt7721277242_)))) - (let ((_body77252_ _$hd7721377245_)) - (if (let ((__tmp77920 + (##cdr _$tgt7747477504_)))) + (let ((_body77514_ _$hd7747577507_)) + (if (let ((__tmp78182 (let () (declare (not safe)) - (__AST-e _$tl7721477248_)))) + (__AST-e _$tl7747677510_)))) (declare (not safe)) - (equal? __tmp77920 '())) - (let ((__tmp77915 - (let ((__tmp77916 - (let ((__tmp77919 + (equal? __tmp78182 '())) + (let ((__tmp78177 + (let ((__tmp78178 + (let ((__tmp78181 (let () (declare (not safe)) (__compile-lambda-head - _hd77240_))) - (__tmp77917 - (let ((__tmp77918 + _hd77502_))) + (__tmp78179 + (let ((__tmp78180 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body77252_)))) + (__compile _body77514_)))) (declare (not safe)) - (cons __tmp77918 '())))) + (cons __tmp78180 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77919 - __tmp77917)))) + (cons __tmp78181 + __tmp78179)))) (declare (not safe)) - (cons 'lambda __tmp77916)))) + (cons 'lambda __tmp78178)))) (declare (not safe)) - (__SRC__% __tmp77915 _stx77201_)) + (__SRC__% __tmp78177 _stx77463_)) (let () (declare (not safe)) - (_$E7720577217_))))) - (let () (declare (not safe)) (_$E7720577217_))))) - (let () (declare (not safe)) (_$E7720577217_)))) - (let () (declare (not safe)) (_$E7720577217_)))))) + (_$E7746777479_))))) + (let () (declare (not safe)) (_$E7746777479_))))) + (let () (declare (not safe)) (_$E7746777479_)))) + (let () (declare (not safe)) (_$E7746777479_)))))) (define __compile-case-lambda% - (lambda (_stx76993_) - (letrec ((_variadic?76995_ - (lambda (_hd77166_) - (let* ((_$e77168_ _hd77166_) - (_$E7717077186_ + (lambda (_stx77255_) + (letrec ((_variadic?77257_ + (lambda (_hd77428_) + (let* ((_$e77430_ _hd77428_) + (_$E7743277448_ (lambda () - (let ((_$E7717177183_ + (let ((_$E7743377445_ (lambda () - (let ((_$E7717277180_ + (let ((_$E7743477442_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77168_))))) + _$e77430_))))) '#t)))) - (if (let ((__tmp77921 + (if (let ((__tmp78183 (let () (declare (not safe)) - (__AST-e _$e77168_)))) + (__AST-e _$e77430_)))) (declare (not safe)) - (equal? __tmp77921 '())) + (equal? __tmp78183 '())) '#f (let () (declare (not safe)) - (_$E7717177183_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77168_)) - (let* ((_$tgt7717377189_ + (_$E7743377445_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77430_)) + (let* ((_$tgt7743577451_ (let () (declare (not safe)) - (__AST-e _$e77168_))) - (_$hd7717477192_ + (__AST-e _$e77430_))) + (_$hd7743677454_ (let () (declare (not safe)) - (##car _$tgt7717377189_))) - (_$tl7717577195_ + (##car _$tgt7743577451_))) + (_$tl7743777457_ (let () (declare (not safe)) - (##cdr _$tgt7717377189_)))) - (let ((_rest77199_ _$tl7717577195_)) + (##cdr _$tgt7743577451_)))) + (let ((_rest77461_ _$tl7743777457_)) (declare (not safe)) - (_variadic?76995_ _rest77199_))) - (let () (declare (not safe)) (_$E7717077186_)))))) - (_arity76996_ - (lambda (_hd77131_) - (let _lp77133_ ((_rest77135_ _hd77131_) (_k77136_ '0)) - (let* ((_$e77138_ _rest77135_) - (_$E7714077151_ + (_variadic?77257_ _rest77461_))) + (let () (declare (not safe)) (_$E7743277448_)))))) + (_arity77258_ + (lambda (_hd77393_) + (let _lp77395_ ((_rest77397_ _hd77393_) (_k77398_ '0)) + (let* ((_$e77400_ _rest77397_) + (_$E7740277413_ (lambda () - (let ((_$E7714177148_ + (let ((_$E7740377410_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77138_))))) - _k77136_)))) + _$e77400_))))) + _k77398_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e77138_)) - (let* ((_$tgt7714277154_ + (__AST-pair? _$e77400_)) + (let* ((_$tgt7740477416_ (let () (declare (not safe)) - (__AST-e _$e77138_))) - (_$hd7714377157_ + (__AST-e _$e77400_))) + (_$hd7740577419_ (let () (declare (not safe)) - (##car _$tgt7714277154_))) - (_$tl7714477160_ + (##car _$tgt7740477416_))) + (_$tl7740677422_ (let () (declare (not safe)) - (##cdr _$tgt7714277154_)))) - (let* ((_rest77164_ _$tl7714477160_) - (__tmp77922 + (##cdr _$tgt7740477416_)))) + (let* ((_rest77426_ _$tl7740677422_) + (__tmp78184 (let () (declare (not safe)) - (fx+ _k77136_ '1)))) + (fx+ _k77398_ '1)))) (declare (not safe)) - (_lp77133_ _rest77164_ __tmp77922))) - (let () (declare (not safe)) (_$E7714077151_))))))) - (_generate76997_ - (lambda (_rest77058_ _args77059_ _len77060_) - (let* ((_$e77062_ _rest77058_) - (_$E7706477075_ + (_lp77395_ _rest77426_ __tmp78184))) + (let () (declare (not safe)) (_$E7740277413_))))))) + (_generate77259_ + (lambda (_rest77320_ _args77321_ _len77322_) + (let* ((_$e77324_ _rest77320_) + (_$E7732677337_ (lambda () - (let* ((_$E7706577072_ + (let* ((_$E7732777334_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77062_)))) - (__tmp77923 - (let ((__tmp77924 - (let ((__tmp77925 + _$e77324_)))) + (__tmp78185 + (let ((__tmp78186 + (let ((__tmp78187 (let () (declare (not safe)) - (cons _args77059_ '())))) + (cons _args77321_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp77925)))) + __tmp78187)))) (declare (not safe)) - (cons 'error __tmp77924)))) + (cons 'error __tmp78186)))) (declare (not safe)) - (__SRC__% __tmp77923 _stx76993_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e77062_)) - (let* ((_$tgt7706677078_ + (__SRC__% __tmp78185 _stx77255_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77324_)) + (let* ((_$tgt7732877340_ (let () (declare (not safe)) - (__AST-e _$e77062_))) - (_$hd7706777081_ + (__AST-e _$e77324_))) + (_$hd7732977343_ (let () (declare (not safe)) - (##car _$tgt7706677078_))) - (_$tl7706877084_ + (##car _$tgt7732877340_))) + (_$tl7733077346_ (let () (declare (not safe)) - (##cdr _$tgt7706677078_)))) - (let* ((_clause77088_ _$hd7706777081_) - (_rest77090_ _$tl7706877084_) - (_$e77092_ _clause77088_) - (_$E7709477103_ + (##cdr _$tgt7732877340_)))) + (let* ((_clause77350_ _$hd7732977343_) + (_rest77352_ _$tl7733077346_) + (_$e77354_ _clause77350_) + (_$E7735677365_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e77092_))))) + _$e77354_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e77092_)) - (let* ((_$tgt7709577106_ + (__AST-pair? _$e77354_)) + (let* ((_$tgt7735777368_ (let () (declare (not safe)) - (__AST-e _$e77092_))) - (_$hd7709677109_ + (__AST-e _$e77354_))) + (_$hd7735877371_ (let () (declare (not safe)) - (##car _$tgt7709577106_))) - (_$tl7709777112_ + (##car _$tgt7735777368_))) + (_$tl7735977374_ (let () (declare (not safe)) - (##cdr _$tgt7709577106_)))) - (let ((_hd77116_ _$hd7709677109_)) + (##cdr _$tgt7735777368_)))) + (let ((_hd77378_ _$hd7735877371_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7709777112_)) - (let* ((_$tgt7709877118_ + (__AST-pair? _$tl7735977374_)) + (let* ((_$tgt7736077380_ (let () (declare (not safe)) - (__AST-e _$tl7709777112_))) - (_$hd7709977121_ + (__AST-e _$tl7735977374_))) + (_$hd7736177383_ (let () (declare (not safe)) - (##car _$tgt7709877118_))) - (_$tl7710077124_ + (##car _$tgt7736077380_))) + (_$tl7736277386_ (let () (declare (not safe)) - (##cdr _$tgt7709877118_)))) - (if (let ((__tmp77940 + (##cdr _$tgt7736077380_)))) + (if (let ((__tmp78202 (let () (declare (not safe)) - (__AST-e _$tl7710077124_)))) + (__AST-e _$tl7736277386_)))) (declare (not safe)) - (equal? __tmp77940 '())) - (let ((_clen77128_ + (equal? __tmp78202 '())) + (let ((_clen77390_ (let () (declare (not safe)) - (_arity76996_ - _hd77116_))) - (_cmp77129_ + (_arity77258_ + _hd77378_))) + (_cmp77391_ (if (let () (declare (not safe)) - (_variadic?76995_ - _hd77116_)) + (_variadic?77257_ + _hd77378_)) 'fx>= 'fx=))) - (let ((__tmp77926 - (let ((__tmp77927 - (let ((__tmp77937 + (let ((__tmp78188 + (let ((__tmp78189 + (let ((__tmp78199 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77938 - (let ((__tmp77939 + (let ((__tmp78200 + (let ((__tmp78201 (let () (declare (not safe)) - (cons _clen77128_ '())))) + (cons _clen77390_ '())))) (declare (not safe)) - (cons _len77060_ __tmp77939)))) + (cons _len77322_ __tmp78201)))) (declare (not safe)) - (cons _cmp77129_ __tmp77938))) - (__tmp77928 - (let ((__tmp77931 - (let ((__tmp77932 - (let ((__tmp77933 - (let ((__tmp77935 - (let ((__tmp77936 + (cons _cmp77391_ __tmp78200))) + (__tmp78190 + (let ((__tmp78193 + (let ((__tmp78194 + (let ((__tmp78195 + (let ((__tmp78197 + (let ((__tmp78198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause77088_)))) + (cons '%#lambda _clause77350_)))) (declare (not safe)) - (__compile-lambda% __tmp77936))) - (__tmp77934 - (let () (declare (not safe)) (cons _args77059_ '())))) + (__compile-lambda% __tmp78198))) + (__tmp78196 + (let () (declare (not safe)) (cons _args77321_ '())))) (declare (not safe)) - (cons __tmp77935 __tmp77934)))) + (cons __tmp78197 __tmp78196)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp77933)))) + (cons '##apply __tmp78195)))) (declare (not safe)) - (__SRC__% __tmp77932 _stx76993_))) - (__tmp77929 - (let ((__tmp77930 + (__SRC__% __tmp78194 _stx77255_))) + (__tmp78191 + (let ((__tmp78192 (let () (declare (not safe)) - (_generate76997_ - _rest77090_ - _args77059_ - _len77060_)))) + (_generate77259_ + _rest77352_ + _args77321_ + _len77322_)))) (declare (not safe)) - (cons __tmp77930 '())))) + (cons __tmp78192 '())))) (declare (not safe)) - (cons __tmp77931 __tmp77929)))) + (cons __tmp78193 __tmp78191)))) (declare (not safe)) - (cons __tmp77937 __tmp77928)))) + (cons __tmp78199 __tmp78190)))) (declare (not safe)) - (cons 'if __tmp77927)))) + (cons 'if __tmp78189)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp77926 - _stx76993_))) + __tmp78188 + _stx77255_))) (let () (declare (not safe)) - (_$E7709477103_)))) + (_$E7735677365_)))) (let () (declare (not safe)) - (_$E7709477103_))))) + (_$E7735677365_))))) (let () (declare (not safe)) - (_$E7709477103_))))) - (let () (declare (not safe)) (_$E7706477075_))))))) - (let* ((_$e76999_ _stx76993_) - (_$E7700177033_ + (_$E7735677365_))))) + (let () (declare (not safe)) (_$E7732677337_))))))) + (let* ((_$e77261_ _stx77255_) + (_$E7726377295_ (lambda () - (let ((_$E7700277015_ + (let ((_$E7726477277_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76999_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76999_)) - (let* ((_$tgt7700377018_ + _$e77261_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77261_)) + (let* ((_$tgt7726577280_ (let () (declare (not safe)) - (__AST-e _$e76999_))) - (_$hd7700477021_ + (__AST-e _$e77261_))) + (_$hd7726677283_ (let () (declare (not safe)) - (##car _$tgt7700377018_))) - (_$tl7700577024_ + (##car _$tgt7726577280_))) + (_$tl7726777286_ (let () (declare (not safe)) - (##cdr _$tgt7700377018_)))) - (let ((_clauses77028_ _$tl7700577024_)) - (let ((_args77030_ - (let ((__tmp77941 (gensym))) + (##cdr _$tgt7726577280_)))) + (let ((_clauses77290_ _$tl7726777286_)) + (let ((_args77292_ + (let ((__tmp78203 (gensym))) (declare (not safe)) - (__SRC__% __tmp77941 _stx76993_))) - (_len77031_ - (let ((__tmp77942 (gensym))) + (__SRC__% __tmp78203 _stx77255_))) + (_len77293_ + (let ((__tmp78204 (gensym))) (declare (not safe)) - (__SRC__% __tmp77942 _stx76993_)))) - (let ((__tmp77943 - (let ((__tmp77944 - (let ((__tmp77945 - (let ((__tmp77946 - (let ((__tmp77947 + (__SRC__% __tmp78204 _stx77255_)))) + (let ((__tmp78205 + (let ((__tmp78206 + (let ((__tmp78207 + (let ((__tmp78208 + (let ((__tmp78209 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77948 - (let ((__tmp77951 - (let ((__tmp77952 - (let ((__tmp77953 - (let ((__tmp77954 - (let ((__tmp77955 + (let ((__tmp78210 + (let ((__tmp78213 + (let ((__tmp78214 + (let ((__tmp78215 + (let ((__tmp78216 + (let ((__tmp78217 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77956 + (let ((__tmp78218 (let () (declare (not safe)) - (cons _args77030_ '())))) + (cons _args77292_ '())))) (declare (not safe)) - (cons '##length __tmp77956)))) + (cons '##length __tmp78218)))) (declare (not safe)) - (__SRC__% __tmp77955 _stx76993_)))) + (__SRC__% __tmp78217 _stx77255_)))) (declare (not safe)) - (cons __tmp77954 '())))) + (cons __tmp78216 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len77031_ - __tmp77953)))) + (cons _len77293_ + __tmp78215)))) (declare (not safe)) - (cons __tmp77952 '()))) - (__tmp77949 - (let ((__tmp77950 + (cons __tmp78214 '()))) + (__tmp78211 + (let ((__tmp78212 (let () (declare (not safe)) - (_generate76997_ - _clauses77028_ - _args77030_ - _len77031_)))) + (_generate77259_ + _clauses77290_ + _args77292_ + _len77293_)))) (declare (not safe)) - (cons __tmp77950 '())))) + (cons __tmp78212 '())))) (declare (not safe)) - (cons __tmp77951 __tmp77949)))) + (cons __tmp78213 __tmp78211)))) (declare (not safe)) - (cons 'let __tmp77948)))) + (cons 'let __tmp78210)))) (declare (not safe)) - (__SRC__% __tmp77947 _stx76993_)))) + (__SRC__% __tmp78209 _stx77255_)))) (declare (not safe)) - (cons __tmp77946 '())))) + (cons __tmp78208 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args77030_ - __tmp77945)))) + (cons _args77292_ + __tmp78207)))) (declare (not safe)) - (cons 'lambda __tmp77944)))) + (cons 'lambda __tmp78206)))) (declare (not safe)) - (__SRC__% __tmp77943 _stx76993_))))) - (let () (declare (not safe)) (_$E7700277015_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76999_)) - (let* ((_$tgt7700677036_ - (let () (declare (not safe)) (__AST-e _$e76999_))) - (_$hd7700777039_ - (let () (declare (not safe)) (##car _$tgt7700677036_))) - (_$tl7700877042_ + (__SRC__% __tmp78205 _stx77255_))))) + (let () (declare (not safe)) (_$E7726477277_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77261_)) + (let* ((_$tgt7726877298_ + (let () (declare (not safe)) (__AST-e _$e77261_))) + (_$hd7726977301_ + (let () (declare (not safe)) (##car _$tgt7726877298_))) + (_$tl7727077304_ (let () (declare (not safe)) - (##cdr _$tgt7700677036_)))) + (##cdr _$tgt7726877298_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7700877042_)) - (let* ((_$tgt7700977046_ + (__AST-pair? _$tl7727077304_)) + (let* ((_$tgt7727177308_ (let () (declare (not safe)) - (__AST-e _$tl7700877042_))) - (_$hd7701077049_ + (__AST-e _$tl7727077304_))) + (_$hd7727277311_ (let () (declare (not safe)) - (##car _$tgt7700977046_))) - (_$tl7701177052_ + (##car _$tgt7727177308_))) + (_$tl7727377314_ (let () (declare (not safe)) - (##cdr _$tgt7700977046_)))) - (let ((_clause77056_ _$hd7701077049_)) - (if (let ((__tmp77958 + (##cdr _$tgt7727177308_)))) + (let ((_clause77318_ _$hd7727277311_)) + (if (let ((__tmp78220 (let () (declare (not safe)) - (__AST-e _$tl7701177052_)))) + (__AST-e _$tl7727377314_)))) (declare (not safe)) - (equal? __tmp77958 '())) - (let ((__tmp77957 + (equal? __tmp78220 '())) + (let ((__tmp78219 (let () (declare (not safe)) - (cons '%#lambda _clause77056_)))) + (cons '%#lambda _clause77318_)))) (declare (not safe)) - (__compile-lambda% __tmp77957)) - (let () (declare (not safe)) (_$E7700177033_))))) - (let () (declare (not safe)) (_$E7700177033_)))) - (let () (declare (not safe)) (_$E7700177033_))))))) + (__compile-lambda% __tmp78219)) + (let () (declare (not safe)) (_$E7726377295_))))) + (let () (declare (not safe)) (_$E7726377295_)))) + (let () (declare (not safe)) (_$E7726377295_))))))) (define __compile-let-form - (lambda (_stx76762_ _compile-simple76763_ _compile-values76764_) - (letrec ((_simple-bind?76766_ - (lambda (_hd76951_) - (let* ((_hd7695276962_ _hd76951_) - (_else7695576970_ (lambda () '#f))) - (let ((_K7695876983_ (lambda (_id76981_) '#t)) - (_K7695776975_ (lambda () '#t))) - (let ((_try-match7695476978_ + (lambda (_stx77024_ _compile-simple77025_ _compile-values77026_) + (letrec ((_simple-bind?77028_ + (lambda (_hd77213_) + (let* ((_hd7721477224_ _hd77213_) + (_else7721777232_ (lambda () '#f))) + (let ((_K7722077245_ (lambda (_id77243_) '#t)) + (_K7721977237_ (lambda () '#t))) + (let ((_try-match7721677240_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd7695276962_ '#f)) + (##eq? _hd7721477224_ '#f)) (let () (declare (not safe)) - (_K7695776975_)) + (_K7721977237_)) (let () (declare (not safe)) - (_else7695576970_)))))) + (_else7721777232_)))))) (if (let () (declare (not safe)) - (##pair? _hd7695276962_)) - (let ((_tl7696076988_ + (##pair? _hd7721477224_)) + (let ((_tl7722277250_ (let () (declare (not safe)) - (##cdr _hd7695276962_))) - (_hd7695976986_ + (##cdr _hd7721477224_))) + (_hd7722177248_ (let () (declare (not safe)) - (##car _hd7695276962_)))) + (##car _hd7721477224_)))) (if (let () (declare (not safe)) - (##null? _tl7696076988_)) - (let ((_id76991_ _hd7695976986_)) + (##null? _tl7722277250_)) + (let ((_id77253_ _hd7722177248_)) (declare (not safe)) - (_K7695876983_ _id76991_)) + (_K7722077245_ _id77253_)) (let () (declare (not safe)) - (_try-match7695476978_)))) + (_try-match7721677240_)))) (let () (declare (not safe)) - (_try-match7695476978_)))))))) - (_car-e76767_ - (lambda (_hd76949_) - (if (let () (declare (not safe)) (pair? _hd76949_)) - (car _hd76949_) - _hd76949_)))) - (let* ((_$e76769_ _stx76762_) - (_$E7677176914_ + (_try-match7721677240_)))))))) + (_car-e77029_ + (lambda (_hd77211_) + (if (let () (declare (not safe)) (pair? _hd77211_)) + (car _hd77211_) + _hd77211_)))) + (let* ((_$e77031_ _stx77024_) + (_$E7703377176_ (lambda () - (let ((_$E7677276794_ + (let ((_$E7703477056_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76769_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76769_)) - (let* ((_$tgt7677376797_ + _$e77031_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77031_)) + (let* ((_$tgt7703577059_ (let () (declare (not safe)) - (__AST-e _$e76769_))) - (_$hd7677476800_ + (__AST-e _$e77031_))) + (_$hd7703677062_ (let () (declare (not safe)) - (##car _$tgt7677376797_))) - (_$tl7677576803_ + (##car _$tgt7703577059_))) + (_$tl7703777065_ (let () (declare (not safe)) - (##cdr _$tgt7677376797_)))) + (##cdr _$tgt7703577059_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7677576803_)) - (let* ((_$tgt7677676807_ + (__AST-pair? _$tl7703777065_)) + (let* ((_$tgt7703877069_ (let () (declare (not safe)) - (__AST-e _$tl7677576803_))) - (_$hd7677776810_ + (__AST-e _$tl7703777065_))) + (_$hd7703977072_ (let () (declare (not safe)) - (##car _$tgt7677676807_))) - (_$tl7677876813_ + (##car _$tgt7703877069_))) + (_$tl7704077075_ (let () (declare (not safe)) - (##cdr _$tgt7677676807_)))) - (let ((_hd76817_ _$hd7677776810_)) + (##cdr _$tgt7703877069_)))) + (let ((_hd77079_ _$hd7703977072_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7677876813_)) - (let* ((_$tgt7677976819_ + (__AST-pair? _$tl7704077075_)) + (let* ((_$tgt7704177081_ (let () (declare (not safe)) - (__AST-e _$tl7677876813_))) - (_$hd7678076822_ + (__AST-e _$tl7704077075_))) + (_$hd7704277084_ (let () (declare (not safe)) - (##car _$tgt7677976819_))) - (_$tl7678176825_ + (##car _$tgt7704177081_))) + (_$tl7704377087_ (let () (declare (not safe)) - (##cdr _$tgt7677976819_)))) - (let ((_body76829_ _$hd7678076822_)) - (if (let ((__tmp77961 + (##cdr _$tgt7704177081_)))) + (let ((_body77091_ _$hd7704277084_)) + (if (let ((__tmp78223 (let () (declare (not safe)) - (__AST-e _$tl7678176825_)))) + (__AST-e _$tl7704377087_)))) (declare (not safe)) - (equal? __tmp77961 '())) - (let* ((_hd-ids76869_ - (map (lambda (_bind76831_) - (let* ((_$e76833_ + (equal? __tmp78223 '())) + (let* ((_hd-ids77131_ + (map (lambda (_bind77093_) + (let* ((_$e77095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind76831_) - (_$E7683576844_ + _bind77093_) + (_$E7709777106_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76833_))))) + _$e77095_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e76833_)) - (let* ((_$tgt7683676847_ + (__AST-pair? _$e77095_)) + (let* ((_$tgt7709877109_ (let () (declare (not safe)) - (__AST-e _$e76833_))) - (_$hd7683776850_ + (__AST-e _$e77095_))) + (_$hd7709977112_ (let () (declare (not safe)) - (##car _$tgt7683676847_))) - (_$tl7683876853_ + (##car _$tgt7709877109_))) + (_$tl7710077115_ (let () (declare (not safe)) - (##cdr _$tgt7683676847_)))) - (let ((_ids76857_ _$hd7683776850_)) + (##cdr _$tgt7709877109_)))) + (let ((_ids77119_ _$hd7709977112_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7683876853_)) - (let* ((_$tgt7683976859_ + (__AST-pair? _$tl7710077115_)) + (let* ((_$tgt7710177121_ (let () (declare (not safe)) - (__AST-e _$tl7683876853_))) - (_$hd7684076862_ + (__AST-e _$tl7710077115_))) + (_$hd7710277124_ (let () (declare (not safe)) - (##car _$tgt7683976859_))) - (_$tl7684176865_ + (##car _$tgt7710177121_))) + (_$tl7710377127_ (let () (declare (not safe)) - (##cdr _$tgt7683976859_)))) - (if (let ((__tmp77959 + (##cdr _$tgt7710177121_)))) + (if (let ((__tmp78221 (let () (declare (not safe)) - (__AST-e _$tl7684176865_)))) + (__AST-e _$tl7710377127_)))) (declare (not safe)) - (equal? __tmp77959 '())) - _ids76857_ + (equal? __tmp78221 '())) + _ids77119_ (let () (declare (not safe)) - (_$E7683576844_)))) + (_$E7709777106_)))) (let () (declare (not safe)) - (_$E7683576844_))))) - (let () (declare (not safe)) (_$E7683576844_))))) - _hd76817_)) - (_exprs76909_ - (map (lambda (_bind76871_) - (let* ((_$e76873_ _bind76871_) - (_$E7687576884_ + (_$E7709777106_))))) + (let () (declare (not safe)) (_$E7709777106_))))) + _hd77079_)) + (_exprs77171_ + (map (lambda (_bind77133_) + (let* ((_$e77135_ _bind77133_) + (_$E7713777146_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76873_))))) + _$e77135_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e76873_)) - (let* ((_$tgt7687676887_ + (__AST-pair? _$e77135_)) + (let* ((_$tgt7713877149_ (let () (declare (not safe)) - (__AST-e _$e76873_))) - (_$hd7687776890_ + (__AST-e _$e77135_))) + (_$hd7713977152_ (let () (declare (not safe)) - (##car _$tgt7687676887_))) - (_$tl7687876893_ + (##car _$tgt7713877149_))) + (_$tl7714077155_ (let () (declare (not safe)) - (##cdr _$tgt7687676887_)))) + (##cdr _$tgt7713877149_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7687876893_)) - (let* ((_$tgt7687976897_ + (__AST-pair? _$tl7714077155_)) + (let* ((_$tgt7714177159_ (let () (declare (not safe)) - (__AST-e _$tl7687876893_))) - (_$hd7688076900_ + (__AST-e _$tl7714077155_))) + (_$hd7714277162_ (let () (declare (not safe)) - (##car _$tgt7687976897_))) - (_$tl7688176903_ + (##car _$tgt7714177159_))) + (_$tl7714377165_ (let () (declare (not safe)) - (##cdr _$tgt7687976897_)))) - (let ((_expr76907_ _$hd7688076900_)) - (if (let ((__tmp77960 + (##cdr _$tgt7714177159_)))) + (let ((_expr77169_ _$hd7714277162_)) + (if (let ((__tmp78222 (let () (declare (not safe)) - (__AST-e _$tl7688176903_)))) + (__AST-e _$tl7714377165_)))) (declare (not safe)) - (equal? __tmp77960 '())) + (equal? __tmp78222 '())) (let () (declare (not safe)) - (__compile _expr76907_)) + (__compile _expr77169_)) (let () (declare (not safe)) - (_$E7687576884_))))) + (_$E7713777146_))))) (let () (declare (not safe)) - (_$E7687576884_)))) - (let () (declare (not safe)) (_$E7687576884_))))) - _hd76817_)) - (_body76911_ - (let () (declare (not safe)) (__compile _body76829_)))) + (_$E7713777146_)))) + (let () (declare (not safe)) (_$E7713777146_))))) + _hd77079_)) + (_body77173_ + (let () (declare (not safe)) (__compile _body77091_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?76766_ + (andmap1 _simple-bind?77028_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids76869_)) - (_compile-simple76763_ - (map _car-e76767_ _hd-ids76869_) - _exprs76909_ - _body76911_) - (_compile-values76764_ _hd-ids76869_ _exprs76909_ _body76911_))) + _hd-ids77131_)) + (_compile-simple77025_ + (map _car-e77029_ _hd-ids77131_) + _exprs77171_ + _body77173_) + (_compile-values77026_ _hd-ids77131_ _exprs77171_ _body77173_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E7677276794_))))) + (_$E7703477056_))))) (let () (declare (not safe)) - (_$E7677276794_))))) + (_$E7703477056_))))) (let () (declare (not safe)) - (_$E7677276794_)))) - (let () (declare (not safe)) (_$E7677276794_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76769_)) - (let* ((_$tgt7678276917_ - (let () (declare (not safe)) (__AST-e _$e76769_))) - (_$hd7678376920_ - (let () (declare (not safe)) (##car _$tgt7678276917_))) - (_$tl7678476923_ + (_$E7703477056_)))) + (let () (declare (not safe)) (_$E7703477056_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77031_)) + (let* ((_$tgt7704477179_ + (let () (declare (not safe)) (__AST-e _$e77031_))) + (_$hd7704577182_ + (let () (declare (not safe)) (##car _$tgt7704477179_))) + (_$tl7704677185_ (let () (declare (not safe)) - (##cdr _$tgt7678276917_)))) + (##cdr _$tgt7704477179_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7678476923_)) - (let* ((_$tgt7678576927_ + (__AST-pair? _$tl7704677185_)) + (let* ((_$tgt7704777189_ (let () (declare (not safe)) - (__AST-e _$tl7678476923_))) - (_$hd7678676930_ + (__AST-e _$tl7704677185_))) + (_$hd7704877192_ (let () (declare (not safe)) - (##car _$tgt7678576927_))) - (_$tl7678776933_ + (##car _$tgt7704777189_))) + (_$tl7704977195_ (let () (declare (not safe)) - (##cdr _$tgt7678576927_)))) - (if (let ((__tmp77963 + (##cdr _$tgt7704777189_)))) + (if (let ((__tmp78225 (let () (declare (not safe)) - (__AST-e _$hd7678676930_)))) + (__AST-e _$hd7704877192_)))) (declare (not safe)) - (equal? __tmp77963 '())) + (equal? __tmp78225 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl7678776933_)) - (let* ((_$tgt7678876937_ + (__AST-pair? _$tl7704977195_)) + (let* ((_$tgt7705077199_ (let () (declare (not safe)) - (__AST-e _$tl7678776933_))) - (_$hd7678976940_ + (__AST-e _$tl7704977195_))) + (_$hd7705177202_ (let () (declare (not safe)) - (##car _$tgt7678876937_))) - (_$tl7679076943_ + (##car _$tgt7705077199_))) + (_$tl7705277205_ (let () (declare (not safe)) - (##cdr _$tgt7678876937_)))) - (let ((_body76947_ _$hd7678976940_)) - (if (let ((__tmp77962 + (##cdr _$tgt7705077199_)))) + (let ((_body77209_ _$hd7705177202_)) + (if (let ((__tmp78224 (let () (declare (not safe)) - (__AST-e _$tl7679076943_)))) + (__AST-e _$tl7705277205_)))) (declare (not safe)) - (equal? __tmp77962 '())) + (equal? __tmp78224 '())) (let () (declare (not safe)) - (__compile _body76947_)) + (__compile _body77209_)) (let () (declare (not safe)) - (_$E7677176914_))))) - (let () (declare (not safe)) (_$E7677176914_))) - (let () (declare (not safe)) (_$E7677176914_)))) - (let () (declare (not safe)) (_$E7677176914_)))) - (let () (declare (not safe)) (_$E7677176914_))))))) + (_$E7703377176_))))) + (let () (declare (not safe)) (_$E7703377176_))) + (let () (declare (not safe)) (_$E7703377176_)))) + (let () (declare (not safe)) (_$E7703377176_)))) + (let () (declare (not safe)) (_$E7703377176_))))))) (define __compile-let-values% - (lambda (_stx76577_) - (letrec ((_compile-simple76579_ - (lambda (_hd-ids76758_ _exprs76759_ _body76760_) - (let ((__tmp77964 - (let ((__tmp77965 - (let ((__tmp77967 + (lambda (_stx76839_) + (letrec ((_compile-simple76841_ + (lambda (_hd-ids77020_ _exprs77021_ _body77022_) + (let ((__tmp78226 + (let ((__tmp78227 + (let ((__tmp78229 (map list (map __compile-head-id - _hd-ids76758_) - _exprs76759_)) - (__tmp77966 + _hd-ids77020_) + _exprs77021_)) + (__tmp78228 (let () (declare (not safe)) - (cons _body76760_ '())))) + (cons _body77022_ '())))) (declare (not safe)) - (cons __tmp77967 __tmp77966)))) + (cons __tmp78229 __tmp78228)))) (declare (not safe)) - (cons 'let __tmp77965)))) + (cons 'let __tmp78227)))) (declare (not safe)) - (__SRC__% __tmp77964 _stx76577_)))) - (_compile-values76580_ - (lambda (_hd-ids76676_ _exprs76677_ _body76678_) - (let _lp76680_ ((_rest76682_ _hd-ids76676_) - (_exprs76683_ _exprs76677_) - (_bind76684_ '()) - (_post76685_ '())) - (let* ((_rest7668676700_ _rest76682_) - (_else7668976708_ + (__SRC__% __tmp78226 _stx76839_)))) + (_compile-values76842_ + (lambda (_hd-ids76938_ _exprs76939_ _body76940_) + (let _lp76942_ ((_rest76944_ _hd-ids76938_) + (_exprs76945_ _exprs76939_) + (_bind76946_ '()) + (_post76947_ '())) + (let* ((_rest7694876962_ _rest76944_) + (_else7695176970_ (lambda () - (let ((__tmp77968 - (let ((__tmp77969 - (let ((__tmp77972 - (reverse _bind76684_)) - (__tmp77970 - (let ((__tmp77971 + (let ((__tmp78230 + (let ((__tmp78231 + (let ((__tmp78234 + (reverse _bind76946_)) + (__tmp78232 + (let ((__tmp78233 (let () (declare (not safe)) - (_compile-post76581_ - _post76685_ - _body76678_)))) + (_compile-post76843_ + _post76947_ + _body76940_)))) (declare (not safe)) - (cons __tmp77971 '())))) + (cons __tmp78233 '())))) (declare (not safe)) - (cons __tmp77972 __tmp77970)))) + (cons __tmp78234 __tmp78232)))) (declare (not safe)) - (cons 'let __tmp77969)))) + (cons 'let __tmp78231)))) (declare (not safe)) - (__SRC__% __tmp77968 _stx76577_))))) - (let ((_K7669476741_ - (lambda (_rest76738_ _id76739_) - (let ((__tmp77978 (cdr _exprs76683_)) - (__tmp77973 - (let ((__tmp77974 - (let ((__tmp77977 + (__SRC__% __tmp78230 _stx76839_))))) + (let ((_K7695677003_ + (lambda (_rest77000_ _id77001_) + (let ((__tmp78240 (cdr _exprs76945_)) + (__tmp78235 + (let ((__tmp78236 + (let ((__tmp78239 (let () (declare (not safe)) (__compile-head-id - _id76739_))) - (__tmp77975 - (let ((__tmp77976 - (car _exprs76683_))) + _id77001_))) + (__tmp78237 + (let ((__tmp78238 + (car _exprs76945_))) (declare (not safe)) - (cons __tmp77976 + (cons __tmp78238 '())))) (declare (not safe)) - (cons __tmp77977 - __tmp77975)))) + (cons __tmp78239 + __tmp78237)))) (declare (not safe)) - (cons __tmp77974 _bind76684_)))) + (cons __tmp78236 _bind76946_)))) (declare (not safe)) - (_lp76680_ - _rest76738_ - __tmp77978 - __tmp77973 - _post76685_)))) - (_K7669176723_ - (lambda (_rest76712_ _hd76713_) + (_lp76942_ + _rest77000_ + __tmp78240 + __tmp78235 + _post76947_)))) + (_K7695376985_ + (lambda (_rest76974_ _hd76975_) (if (let () (declare (not safe)) - (__AST-id? _hd76713_)) - (let ((__tmp77999 (cdr _exprs76683_)) - (__tmp77992 - (let ((__tmp77993 - (let ((__tmp77998 + (__AST-id? _hd76975_)) + (let ((__tmp78261 (cdr _exprs76945_)) + (__tmp78254 + (let ((__tmp78255 + (let ((__tmp78260 (let () (declare (not safe)) (__compile-head-id - _hd76713_))) - (__tmp77994 - (let ((__tmp77995 + _hd76975_))) + (__tmp78256 + (let ((__tmp78257 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77996 - (let ((__tmp77997 (car _exprs76683_))) + (let ((__tmp78258 + (let ((__tmp78259 (car _exprs76945_))) (declare (not safe)) - (cons __tmp77997 '())))) + (cons __tmp78259 '())))) (declare (not safe)) - (cons 'values->list __tmp77996)))) + (cons 'values->list __tmp78258)))) (declare (not safe)) - (cons __tmp77995 '())))) + (cons __tmp78257 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77998 - __tmp77994)))) + (cons __tmp78260 + __tmp78256)))) (declare (not safe)) - (cons __tmp77993 _bind76684_)))) + (cons __tmp78255 _bind76946_)))) (declare (not safe)) - (_lp76680_ - _rest76712_ - __tmp77999 - __tmp77992 - _post76685_)) + (_lp76942_ + _rest76974_ + __tmp78261 + __tmp78254 + _post76947_)) (if (let () (declare (not safe)) - (list? _hd76713_)) - (let* ((_len76715_ (length _hd76713_)) - (_tmp76717_ - (let ((__tmp77979 (gensym))) + (list? _hd76975_)) + (let* ((_len76977_ (length _hd76975_)) + (_tmp76979_ + (let ((__tmp78241 (gensym))) (declare (not safe)) - (__SRC__0 __tmp77979)))) - (let ((__tmp77991 - (cdr _exprs76683_)) - (__tmp77987 - (let ((__tmp77988 - (let ((__tmp77989 - (let ((__tmp77990 + (__SRC__0 __tmp78241)))) + (let ((__tmp78253 + (cdr _exprs76945_)) + (__tmp78249 + (let ((__tmp78250 + (let ((__tmp78251 + (let ((__tmp78252 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76683_))) + (car _exprs76945_))) (declare (not safe)) - (cons __tmp77990 '())))) + (cons __tmp78252 '())))) (declare (not safe)) - (cons _tmp76717_ __tmp77989)))) + (cons _tmp76979_ __tmp78251)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77988 - _bind76684_))) - (__tmp77980 - (let ((__tmp77981 - (let ((__tmp77982 - (let ((__tmp77983 + (cons __tmp78250 + _bind76946_))) + (__tmp78242 + (let ((__tmp78243 + (let ((__tmp78244 + (let ((__tmp78245 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp77985 - (lambda (_id76720_ _k76721_) + (let ((__tmp78247 + (lambda (_id76982_ _k76983_) (if (let () (declare (not safe)) - (__AST-e _id76720_)) - (let ((__tmp77986 + (__AST-e _id76982_)) + (let ((__tmp78248 (let () (declare (not safe)) - (__SRC__0 _id76720_)))) + (__SRC__0 _id76982_)))) (declare (not safe)) - (cons __tmp77986 _k76721_)) + (cons __tmp78248 _k76983_)) '#f))) - (__tmp77984 + (__tmp78246 (let () (declare (not safe)) - (iota__0 _len76715_)))) + (iota__0 _len76977_)))) (declare (not safe)) (filter-map2 - __tmp77985 - _hd76713_ - __tmp77984)))) + __tmp78247 + _hd76975_ + __tmp78246)))) (declare (not safe)) - (cons _len76715_ __tmp77983)))) + (cons _len76977_ __tmp78245)))) (declare (not safe)) - (cons _tmp76717_ __tmp77982)))) + (cons _tmp76979_ __tmp78244)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp77981 - _post76685_)))) + (cons __tmp78243 + _post76947_)))) (declare (not safe)) - (_lp76680_ - _rest76712_ - __tmp77991 - __tmp77987 - __tmp77980))) + (_lp76942_ + _rest76974_ + __tmp78253 + __tmp78249 + __tmp78242))) (let () (declare (not safe)) (__compile-error__% - _stx76577_ - _hd76713_))))))) + _stx76839_ + _hd76975_))))))) (if (let () (declare (not safe)) - (##pair? _rest7668676700_)) - (let ((_tl7669676746_ + (##pair? _rest7694876962_)) + (let ((_tl7695877008_ (let () (declare (not safe)) - (##cdr _rest7668676700_))) - (_hd7669576744_ + (##cdr _rest7694876962_))) + (_hd7695777006_ (let () (declare (not safe)) - (##car _rest7668676700_)))) + (##car _rest7694876962_)))) (if (let () (declare (not safe)) - (##pair? _hd7669576744_)) - (let ((_tl7669876751_ + (##pair? _hd7695777006_)) + (let ((_tl7696077013_ (let () (declare (not safe)) - (##cdr _hd7669576744_))) - (_hd7669776749_ + (##cdr _hd7695777006_))) + (_hd7695977011_ (let () (declare (not safe)) - (##car _hd7669576744_)))) + (##car _hd7695777006_)))) (if (let () (declare (not safe)) - (##null? _tl7669876751_)) - (let ((_id76754_ _hd7669776749_) - (_rest76756_ _tl7669676746_)) + (##null? _tl7696077013_)) + (let ((_id77016_ _hd7695977011_) + (_rest77018_ _tl7695877008_)) (let () (declare (not safe)) - (_K7669476741_ - _rest76756_ - _id76754_))) - (let ((_hd76731_ _hd7669576744_) - (_rest76733_ _tl7669676746_)) + (_K7695677003_ + _rest77018_ + _id77016_))) + (let ((_hd76993_ _hd7695777006_) + (_rest76995_ _tl7695877008_)) (let () (declare (not safe)) - (_K7669176723_ - _rest76733_ - _hd76731_))))) - (let ((_hd76731_ _hd7669576744_) - (_rest76733_ _tl7669676746_)) + (_K7695376985_ + _rest76995_ + _hd76993_))))) + (let ((_hd76993_ _hd7695777006_) + (_rest76995_ _tl7695877008_)) (let () (declare (not safe)) - (_K7669176723_ - _rest76733_ - _hd76731_))))) + (_K7695376985_ + _rest76995_ + _hd76993_))))) (let () (declare (not safe)) - (_else7668976708_)))))))) - (_compile-post76581_ - (lambda (_post76583_ _body76584_) - (let _lp76586_ ((_rest76588_ _post76583_) - (_check76589_ '()) - (_bind76590_ '())) - (let* ((_rest7659176603_ _rest76588_) - (_else7659376611_ + (_else7695176970_)))))))) + (_compile-post76843_ + (lambda (_post76845_ _body76846_) + (let _lp76848_ ((_rest76850_ _post76845_) + (_check76851_ '()) + (_bind76852_ '())) + (let* ((_rest7685376865_ _rest76850_) + (_else7685576873_ (lambda () - (let ((__tmp78000 - (let ((__tmp78001 - (let ((__tmp78002 - (let ((__tmp78003 - (let ((__tmp78004 + (let ((__tmp78262 + (let ((__tmp78263 + (let ((__tmp78264 + (let ((__tmp78265 + (let ((__tmp78266 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78005 - (let ((__tmp78006 + (let ((__tmp78267 + (let ((__tmp78268 (let () (declare (not safe)) - (cons _body76584_ '())))) + (cons _body76846_ '())))) (declare (not safe)) - (cons _bind76590_ __tmp78006)))) + (cons _bind76852_ __tmp78268)))) (declare (not safe)) - (cons 'let __tmp78005)))) + (cons 'let __tmp78267)))) (declare (not safe)) - (__SRC__% __tmp78004 _stx76577_)))) + (__SRC__% __tmp78266 _stx76839_)))) (declare (not safe)) - (cons __tmp78003 '())))) + (cons __tmp78265 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp78002 - _check76589_)))) + __tmp78264 + _check76851_)))) (declare (not safe)) - (cons 'begin __tmp78001)))) + (cons 'begin __tmp78263)))) (declare (not safe)) - (__SRC__% __tmp78000 _stx76577_)))) - (_K7659576650_ - (lambda (_rest76614_ - _init76615_ - _len76616_ - _tmp76617_) - (let ((__tmp78014 - (let ((__tmp78015 - (let ((__tmp78016 - (let ((__tmp78017 - (let ((__tmp78018 + (__SRC__% __tmp78262 _stx76839_)))) + (_K7685776912_ + (lambda (_rest76876_ + _init76877_ + _len76878_ + _tmp76879_) + (let ((__tmp78276 + (let ((__tmp78277 + (let ((__tmp78278 + (let ((__tmp78279 + (let ((__tmp78280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len76616_ '())))) + (cons _len76878_ '())))) (declare (not safe)) - (cons _tmp76617_ __tmp78018)))) + (cons _tmp76879_ __tmp78280)))) (declare (not safe)) - (cons '__check-values __tmp78017)))) + (cons '__check-values __tmp78279)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp78016 - _stx76577_)))) + __tmp78278 + _stx76839_)))) (declare (not safe)) - (cons __tmp78015 _check76589_))) - (__tmp78007 - (let ((__tmp78008 - (lambda (_hd76619_ _r76620_) - (let* ((_hd7662176628_ - _hd76619_) - (_E7662376632_ + (cons __tmp78277 _check76851_))) + (__tmp78269 + (let ((__tmp78270 + (lambda (_hd76881_ _r76882_) + (let* ((_hd7688376890_ + _hd76881_) + (_E7688576894_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7662176628_)))) - (_K7662476638_ - (lambda (_k76635_ _id76636_) - (let ((__tmp78009 - (let ((__tmp78010 - (let ((__tmp78011 - (let ((__tmp78012 - (let ((__tmp78013 + _hd7688376890_)))) + (_K7688676900_ + (lambda (_k76897_ _id76898_) + (let ((__tmp78271 + (let ((__tmp78272 + (let ((__tmp78273 + (let ((__tmp78274 + (let ((__tmp78275 (let () (declare (not safe)) - (cons _k76635_ '())))) + (cons _k76897_ '())))) (declare (not safe)) - (cons _tmp76617_ __tmp78013)))) + (cons _tmp76879_ __tmp78275)))) (declare (not safe)) - (cons '##vector-ref __tmp78012)))) + (cons '##vector-ref __tmp78274)))) (declare (not safe)) - (cons __tmp78011 '())))) + (cons __tmp78273 '())))) (declare (not safe)) - (cons _id76636_ __tmp78010)))) + (cons _id76898_ __tmp78272)))) (declare (not safe)) - (cons __tmp78009 _r76620_))))) + (cons __tmp78271 _r76882_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd7662176628_)) - (let ((_hd7662576641_ + (##pair? _hd7688376890_)) + (let ((_hd7688776903_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd7662176628_))) - (_tl7662676643_ - (let () (declare (not safe)) (##cdr _hd7662176628_)))) - (let* ((_id76646_ _hd7662576641_) (_k76648_ _tl7662676643_)) + (##car _hd7688376890_))) + (_tl7688876905_ + (let () (declare (not safe)) (##cdr _hd7688376890_)))) + (let* ((_id76908_ _hd7688776903_) (_k76910_ _tl7688876905_)) (declare (not safe)) - (_K7662476638_ _k76648_ _id76646_))) - (let () (declare (not safe)) (_E7662376632_))))))) + (_K7688676900_ _k76910_ _id76908_))) + (let () (declare (not safe)) (_E7688576894_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp78008 - _bind76590_ - _init76615_)))) + (foldr1 __tmp78270 + _bind76852_ + _init76877_)))) (declare (not safe)) - (_lp76586_ - _rest76614_ - __tmp78014 - __tmp78007))))) + (_lp76848_ + _rest76876_ + __tmp78276 + __tmp78269))))) (if (let () (declare (not safe)) - (##pair? _rest7659176603_)) - (let ((_hd7659676653_ + (##pair? _rest7685376865_)) + (let ((_hd7685876915_ (let () (declare (not safe)) - (##car _rest7659176603_))) - (_tl7659776655_ + (##car _rest7685376865_))) + (_tl7685976917_ (let () (declare (not safe)) - (##cdr _rest7659176603_)))) + (##cdr _rest7685376865_)))) (if (let () (declare (not safe)) - (##pair? _hd7659676653_)) - (let ((_hd7659876658_ + (##pair? _hd7685876915_)) + (let ((_hd7686076920_ (let () (declare (not safe)) - (##car _hd7659676653_))) - (_tl7659976660_ + (##car _hd7685876915_))) + (_tl7686176922_ (let () (declare (not safe)) - (##cdr _hd7659676653_)))) - (let ((_tmp76663_ _hd7659876658_)) + (##cdr _hd7685876915_)))) + (let ((_tmp76925_ _hd7686076920_)) (if (let () (declare (not safe)) - (##pair? _tl7659976660_)) - (let ((_hd7660076665_ + (##pair? _tl7686176922_)) + (let ((_hd7686276927_ (let () (declare (not safe)) - (##car _tl7659976660_))) - (_tl7660176667_ + (##car _tl7686176922_))) + (_tl7686376929_ (let () (declare (not safe)) - (##cdr _tl7659976660_)))) - (let* ((_len76670_ _hd7660076665_) - (_init76672_ _tl7660176667_) - (_rest76674_ - _tl7659776655_)) + (##cdr _tl7686176922_)))) + (let* ((_len76932_ _hd7686276927_) + (_init76934_ _tl7686376929_) + (_rest76936_ + _tl7685976917_)) (declare (not safe)) - (_K7659576650_ - _rest76674_ - _init76672_ - _len76670_ - _tmp76663_))) + (_K7685776912_ + _rest76936_ + _init76934_ + _len76932_ + _tmp76925_))) (let () (declare (not safe)) - (_else7659376611_))))) + (_else7685576873_))))) (let () (declare (not safe)) - (_else7659376611_)))) + (_else7685576873_)))) (let () (declare (not safe)) - (_else7659376611_)))))))) + (_else7685576873_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx76577_ - _compile-simple76579_ - _compile-values76580_))))) + _stx76839_ + _compile-simple76841_ + _compile-values76842_))))) (define __compile-letrec-values% - (lambda (_stx76377_) - (letrec ((_compile-simple76379_ - (lambda (_hd-ids76573_ _exprs76574_ _body76575_) - (let ((__tmp78019 - (let ((__tmp78020 - (let ((__tmp78022 + (lambda (_stx76639_) + (letrec ((_compile-simple76641_ + (lambda (_hd-ids76835_ _exprs76836_ _body76837_) + (let ((__tmp78281 + (let ((__tmp78282 + (let ((__tmp78284 (map list (map __compile-head-id - _hd-ids76573_) - _exprs76574_)) - (__tmp78021 + _hd-ids76835_) + _exprs76836_)) + (__tmp78283 (let () (declare (not safe)) - (cons _body76575_ '())))) + (cons _body76837_ '())))) (declare (not safe)) - (cons __tmp78022 __tmp78021)))) + (cons __tmp78284 __tmp78283)))) (declare (not safe)) - (cons 'letrec __tmp78020)))) + (cons 'letrec __tmp78282)))) (declare (not safe)) - (__SRC__% __tmp78019 _stx76377_)))) - (_compile-values76380_ - (lambda (_hd-ids76487_ _exprs76488_ _body76489_) - (let _lp76491_ ((_rest76493_ _hd-ids76487_) - (_exprs76494_ _exprs76488_) - (_pre76495_ '()) - (_bind76496_ '()) - (_post76497_ '())) - (let* ((_rest7649876512_ _rest76493_) - (_else7650176520_ + (__SRC__% __tmp78281 _stx76639_)))) + (_compile-values76642_ + (lambda (_hd-ids76749_ _exprs76750_ _body76751_) + (let _lp76753_ ((_rest76755_ _hd-ids76749_) + (_exprs76756_ _exprs76750_) + (_pre76757_ '()) + (_bind76758_ '()) + (_post76759_ '())) + (let* ((_rest7676076774_ _rest76755_) + (_else7676376782_ (lambda () (let () (declare (not safe)) - (_compile-inner76381_ - _pre76495_ - _bind76496_ - _post76497_ - _body76489_))))) - (let ((_K7650676556_ - (lambda (_rest76553_ _id76554_) - (let ((__tmp78028 (cdr _exprs76494_)) - (__tmp78023 - (let ((__tmp78024 - (let ((__tmp78027 + (_compile-inner76643_ + _pre76757_ + _bind76758_ + _post76759_ + _body76751_))))) + (let ((_K7676876818_ + (lambda (_rest76815_ _id76816_) + (let ((__tmp78290 (cdr _exprs76756_)) + (__tmp78285 + (let ((__tmp78286 + (let ((__tmp78289 (let () (declare (not safe)) (__compile-head-id - _id76554_))) - (__tmp78025 - (let ((__tmp78026 - (car _exprs76494_))) + _id76816_))) + (__tmp78287 + (let ((__tmp78288 + (car _exprs76756_))) (declare (not safe)) - (cons __tmp78026 + (cons __tmp78288 '())))) (declare (not safe)) - (cons __tmp78027 - __tmp78025)))) + (cons __tmp78289 + __tmp78287)))) (declare (not safe)) - (cons __tmp78024 _bind76496_)))) + (cons __tmp78286 _bind76758_)))) (declare (not safe)) - (_lp76491_ - _rest76553_ - __tmp78028 - _pre76495_ - __tmp78023 - _post76497_)))) - (_K7650376538_ - (lambda (_rest76524_ _hd76525_) + (_lp76753_ + _rest76815_ + __tmp78290 + _pre76757_ + __tmp78285 + _post76759_)))) + (_K7676576800_ + (lambda (_rest76786_ _hd76787_) (if (let () (declare (not safe)) - (__AST-id? _hd76525_)) - (let ((__tmp78056 (cdr _exprs76494_)) - (__tmp78049 - (let ((__tmp78050 - (let ((__tmp78055 + (__AST-id? _hd76787_)) + (let ((__tmp78318 (cdr _exprs76756_)) + (__tmp78311 + (let ((__tmp78312 + (let ((__tmp78317 (let () (declare (not safe)) (__compile-head-id - _hd76525_))) - (__tmp78051 - (let ((__tmp78052 + _hd76787_))) + (__tmp78313 + (let ((__tmp78314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78053 - (let ((__tmp78054 (car _exprs76494_))) + (let ((__tmp78315 + (let ((__tmp78316 (car _exprs76756_))) (declare (not safe)) - (cons __tmp78054 '())))) + (cons __tmp78316 '())))) (declare (not safe)) - (cons 'values->list __tmp78053)))) + (cons 'values->list __tmp78315)))) (declare (not safe)) - (cons __tmp78052 '())))) + (cons __tmp78314 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78055 - __tmp78051)))) + (cons __tmp78317 + __tmp78313)))) (declare (not safe)) - (cons __tmp78050 _bind76496_)))) + (cons __tmp78312 _bind76758_)))) (declare (not safe)) - (_lp76491_ - _rest76524_ - __tmp78056 - _pre76495_ - __tmp78049 - _post76497_)) + (_lp76753_ + _rest76786_ + __tmp78318 + _pre76757_ + __tmp78311 + _post76759_)) (if (let () (declare (not safe)) - (list? _hd76525_)) - (let* ((_len76527_ (length _hd76525_)) - (_tmp76529_ - (let ((__tmp78029 (gensym))) + (list? _hd76787_)) + (let* ((_len76789_ (length _hd76787_)) + (_tmp76791_ + (let ((__tmp78291 (gensym))) (declare (not safe)) - (__SRC__0 __tmp78029)))) - (let ((__tmp78048 - (cdr _exprs76494_)) - (__tmp78041 - (let ((__tmp78042 - (lambda (_id76532_ + (__SRC__0 __tmp78291)))) + (let ((__tmp78310 + (cdr _exprs76756_)) + (__tmp78303 + (let ((__tmp78304 + (lambda (_id76794_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r76533_) - (if (let () (declare (not safe)) (__AST-e _id76532_)) - (let ((__tmp78043 - (let ((__tmp78047 + _r76795_) + (if (let () (declare (not safe)) (__AST-e _id76794_)) + (let ((__tmp78305 + (let ((__tmp78309 (let () (declare (not safe)) - (__SRC__0 _id76532_))) - (__tmp78044 - (let ((__tmp78045 - (let ((__tmp78046 + (__SRC__0 _id76794_))) + (__tmp78306 + (let ((__tmp78307 + (let ((__tmp78308 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp78046)))) + (cons 'quote __tmp78308)))) (declare (not safe)) - (cons __tmp78045 '())))) + (cons __tmp78307 '())))) (declare (not safe)) - (cons __tmp78047 __tmp78044)))) + (cons __tmp78309 __tmp78306)))) (declare (not safe)) - (cons __tmp78043 _r76533_)) - _r76533_)))) + (cons __tmp78305 _r76795_)) + _r76795_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp78042 - _pre76495_ - _hd76525_))) - (__tmp78037 - (let ((__tmp78038 - (let ((__tmp78039 - (let ((__tmp78040 + (foldl1 __tmp78304 + _pre76757_ + _hd76787_))) + (__tmp78299 + (let ((__tmp78300 + (let ((__tmp78301 + (let ((__tmp78302 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76494_))) + (car _exprs76756_))) (declare (not safe)) - (cons __tmp78040 '())))) + (cons __tmp78302 '())))) (declare (not safe)) - (cons _tmp76529_ __tmp78039)))) + (cons _tmp76791_ __tmp78301)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78038 - _bind76496_))) - (__tmp78030 - (let ((__tmp78031 - (let ((__tmp78032 - (let ((__tmp78033 + (cons __tmp78300 + _bind76758_))) + (__tmp78292 + (let ((__tmp78293 + (let ((__tmp78294 + (let ((__tmp78295 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78035 - (lambda (_id76535_ _k76536_) + (let ((__tmp78297 + (lambda (_id76797_ _k76798_) (if (let () (declare (not safe)) - (__AST-e _id76535_)) - (let ((__tmp78036 + (__AST-e _id76797_)) + (let ((__tmp78298 (let () (declare (not safe)) - (__SRC__0 _id76535_)))) + (__SRC__0 _id76797_)))) (declare (not safe)) - (cons __tmp78036 _k76536_)) + (cons __tmp78298 _k76798_)) '#f))) - (__tmp78034 + (__tmp78296 (let () (declare (not safe)) - (iota__0 _len76527_)))) + (iota__0 _len76789_)))) (declare (not safe)) (filter-map2 - __tmp78035 - _hd76525_ - __tmp78034)))) + __tmp78297 + _hd76787_ + __tmp78296)))) (declare (not safe)) - (cons _len76527_ __tmp78033)))) + (cons _len76789_ __tmp78295)))) (declare (not safe)) - (cons _tmp76529_ __tmp78032)))) + (cons _tmp76791_ __tmp78294)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78031 - _post76497_)))) + (cons __tmp78293 + _post76759_)))) (declare (not safe)) - (_lp76491_ - _rest76524_ - __tmp78048 - __tmp78041 - __tmp78037 - __tmp78030))) + (_lp76753_ + _rest76786_ + __tmp78310 + __tmp78303 + __tmp78299 + __tmp78292))) (let () (declare (not safe)) (__compile-error__% - _stx76377_ - _hd76525_))))))) + _stx76639_ + _hd76787_))))))) (if (let () (declare (not safe)) - (##pair? _rest7649876512_)) - (let ((_tl7650876561_ + (##pair? _rest7676076774_)) + (let ((_tl7677076823_ (let () (declare (not safe)) - (##cdr _rest7649876512_))) - (_hd7650776559_ + (##cdr _rest7676076774_))) + (_hd7676976821_ (let () (declare (not safe)) - (##car _rest7649876512_)))) + (##car _rest7676076774_)))) (if (let () (declare (not safe)) - (##pair? _hd7650776559_)) - (let ((_tl7651076566_ + (##pair? _hd7676976821_)) + (let ((_tl7677276828_ (let () (declare (not safe)) - (##cdr _hd7650776559_))) - (_hd7650976564_ + (##cdr _hd7676976821_))) + (_hd7677176826_ (let () (declare (not safe)) - (##car _hd7650776559_)))) + (##car _hd7676976821_)))) (if (let () (declare (not safe)) - (##null? _tl7651076566_)) - (let ((_id76569_ _hd7650976564_) - (_rest76571_ _tl7650876561_)) + (##null? _tl7677276828_)) + (let ((_id76831_ _hd7677176826_) + (_rest76833_ _tl7677076823_)) (let () (declare (not safe)) - (_K7650676556_ - _rest76571_ - _id76569_))) - (let ((_hd76546_ _hd7650776559_) - (_rest76548_ _tl7650876561_)) + (_K7676876818_ + _rest76833_ + _id76831_))) + (let ((_hd76808_ _hd7676976821_) + (_rest76810_ _tl7677076823_)) (let () (declare (not safe)) - (_K7650376538_ - _rest76548_ - _hd76546_))))) - (let ((_hd76546_ _hd7650776559_) - (_rest76548_ _tl7650876561_)) + (_K7676576800_ + _rest76810_ + _hd76808_))))) + (let ((_hd76808_ _hd7676976821_) + (_rest76810_ _tl7677076823_)) (let () (declare (not safe)) - (_K7650376538_ - _rest76548_ - _hd76546_))))) + (_K7676576800_ + _rest76810_ + _hd76808_))))) (let () (declare (not safe)) - (_else7650176520_)))))))) - (_compile-inner76381_ - (lambda (_pre76482_ _bind76483_ _post76484_ _body76485_) - (if (let () (declare (not safe)) (null? _pre76482_)) + (_else7676376782_)))))))) + (_compile-inner76643_ + (lambda (_pre76744_ _bind76745_ _post76746_ _body76747_) + (if (let () (declare (not safe)) (null? _pre76744_)) (let () (declare (not safe)) - (_compile-bind76382_ - _bind76483_ - _post76484_ - _body76485_)) - (let ((__tmp78057 - (let ((__tmp78058 - (let ((__tmp78061 (reverse _pre76482_)) - (__tmp78059 - (let ((__tmp78060 + (_compile-bind76644_ + _bind76745_ + _post76746_ + _body76747_)) + (let ((__tmp78319 + (let ((__tmp78320 + (let ((__tmp78323 (reverse _pre76744_)) + (__tmp78321 + (let ((__tmp78322 (let () (declare (not safe)) - (_compile-bind76382_ - _bind76483_ - _post76484_ - _body76485_)))) + (_compile-bind76644_ + _bind76745_ + _post76746_ + _body76747_)))) (declare (not safe)) - (cons __tmp78060 '())))) + (cons __tmp78322 '())))) (declare (not safe)) - (cons __tmp78061 __tmp78059)))) + (cons __tmp78323 __tmp78321)))) (declare (not safe)) - (cons 'let __tmp78058)))) + (cons 'let __tmp78320)))) (declare (not safe)) - (__SRC__% __tmp78057 _stx76377_))))) - (_compile-bind76382_ - (lambda (_bind76478_ _post76479_ _body76480_) - (let ((__tmp78062 - (let ((__tmp78063 - (let ((__tmp78066 (reverse _bind76478_)) - (__tmp78064 - (let ((__tmp78065 + (__SRC__% __tmp78319 _stx76639_))))) + (_compile-bind76644_ + (lambda (_bind76740_ _post76741_ _body76742_) + (let ((__tmp78324 + (let ((__tmp78325 + (let ((__tmp78328 (reverse _bind76740_)) + (__tmp78326 + (let ((__tmp78327 (let () (declare (not safe)) - (_compile-post76383_ - _post76479_ - _body76480_)))) + (_compile-post76645_ + _post76741_ + _body76742_)))) (declare (not safe)) - (cons __tmp78065 '())))) + (cons __tmp78327 '())))) (declare (not safe)) - (cons __tmp78066 __tmp78064)))) + (cons __tmp78328 __tmp78326)))) (declare (not safe)) - (cons 'letrec __tmp78063)))) + (cons 'letrec __tmp78325)))) (declare (not safe)) - (__SRC__% __tmp78062 _stx76377_)))) - (_compile-post76383_ - (lambda (_post76385_ _body76386_) - (let _lp76388_ ((_rest76390_ _post76385_) - (_check76391_ '()) - (_bind76392_ '())) - (let* ((_rest7639376405_ _rest76390_) - (_else7639576413_ + (__SRC__% __tmp78324 _stx76639_)))) + (_compile-post76645_ + (lambda (_post76647_ _body76648_) + (let _lp76650_ ((_rest76652_ _post76647_) + (_check76653_ '()) + (_bind76654_ '())) + (let* ((_rest7665576667_ _rest76652_) + (_else7665776675_ (lambda () - (let ((__tmp78067 - (let ((__tmp78068 - (let ((__tmp78069 - (let ((__tmp78070 + (let ((__tmp78329 + (let ((__tmp78330 + (let ((__tmp78331 + (let ((__tmp78332 (let () (declare (not safe)) - (cons _body76386_ + (cons _body76648_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp78070 _bind76392_)))) + (foldr1 cons __tmp78332 _bind76654_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp78069 - _check76391_)))) + __tmp78331 + _check76653_)))) (declare (not safe)) - (cons 'begin __tmp78068)))) + (cons 'begin __tmp78330)))) (declare (not safe)) - (__SRC__% __tmp78067 _stx76377_)))) - (_K7639776452_ - (lambda (_rest76416_ - _init76417_ - _len76418_ - _tmp76419_) - (let ((__tmp78079 - (let ((__tmp78080 - (let ((__tmp78081 - (let ((__tmp78082 - (let ((__tmp78083 + (__SRC__% __tmp78329 _stx76639_)))) + (_K7665976714_ + (lambda (_rest76678_ + _init76679_ + _len76680_ + _tmp76681_) + (let ((__tmp78341 + (let ((__tmp78342 + (let ((__tmp78343 + (let ((__tmp78344 + (let ((__tmp78345 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len76418_ '())))) + (cons _len76680_ '())))) (declare (not safe)) - (cons _tmp76419_ __tmp78083)))) + (cons _tmp76681_ __tmp78345)))) (declare (not safe)) - (cons '__check-values __tmp78082)))) + (cons '__check-values __tmp78344)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp78081 - _stx76377_)))) + __tmp78343 + _stx76639_)))) (declare (not safe)) - (cons __tmp78080 _check76391_))) - (__tmp78071 - (let ((__tmp78072 - (lambda (_hd76421_ _r76422_) - (let* ((_hd7642376430_ - _hd76421_) - (_E7642576434_ + (cons __tmp78342 _check76653_))) + (__tmp78333 + (let ((__tmp78334 + (lambda (_hd76683_ _r76684_) + (let* ((_hd7668576692_ + _hd76683_) + (_E7668776696_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7642376430_)))) - (_K7642676440_ - (lambda (_k76437_ _id76438_) - (let ((__tmp78073 - (let ((__tmp78074 - (let ((__tmp78075 - (let ((__tmp78076 - (let ((__tmp78077 - (let ((__tmp78078 + _hd7668576692_)))) + (_K7668876702_ + (lambda (_k76699_ _id76700_) + (let ((__tmp78335 + (let ((__tmp78336 + (let ((__tmp78337 + (let ((__tmp78338 + (let ((__tmp78339 + (let ((__tmp78340 (let () (declare (not safe)) - (cons _k76437_ + (cons _k76699_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp76419_ __tmp78078)))) + (cons _tmp76681_ __tmp78340)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp78077)))) + __tmp78339)))) (declare (not safe)) - (cons __tmp78076 '())))) + (cons __tmp78338 '())))) (declare (not safe)) - (cons _id76438_ __tmp78075)))) + (cons _id76700_ __tmp78337)))) (declare (not safe)) - (cons 'set! __tmp78074)))) + (cons 'set! __tmp78336)))) (declare (not safe)) - (cons __tmp78073 _r76422_))))) + (cons __tmp78335 _r76684_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd7642376430_)) - (let ((_hd7642776443_ + (##pair? _hd7668576692_)) + (let ((_hd7668976705_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd7642376430_))) - (_tl7642876445_ - (let () (declare (not safe)) (##cdr _hd7642376430_)))) - (let* ((_id76448_ _hd7642776443_) (_k76450_ _tl7642876445_)) + (##car _hd7668576692_))) + (_tl7669076707_ + (let () (declare (not safe)) (##cdr _hd7668576692_)))) + (let* ((_id76710_ _hd7668976705_) (_k76712_ _tl7669076707_)) (declare (not safe)) - (_K7642676440_ _k76450_ _id76448_))) - (let () (declare (not safe)) (_E7642576434_))))))) + (_K7668876702_ _k76712_ _id76710_))) + (let () (declare (not safe)) (_E7668776696_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp78072 - _bind76392_ - _init76417_)))) + (foldr1 __tmp78334 + _bind76654_ + _init76679_)))) (declare (not safe)) - (_lp76388_ - _rest76416_ - __tmp78079 - __tmp78071))))) + (_lp76650_ + _rest76678_ + __tmp78341 + __tmp78333))))) (if (let () (declare (not safe)) - (##pair? _rest7639376405_)) - (let ((_hd7639876455_ + (##pair? _rest7665576667_)) + (let ((_hd7666076717_ (let () (declare (not safe)) - (##car _rest7639376405_))) - (_tl7639976457_ + (##car _rest7665576667_))) + (_tl7666176719_ (let () (declare (not safe)) - (##cdr _rest7639376405_)))) + (##cdr _rest7665576667_)))) (if (let () (declare (not safe)) - (##pair? _hd7639876455_)) - (let ((_hd7640076460_ + (##pair? _hd7666076717_)) + (let ((_hd7666276722_ (let () (declare (not safe)) - (##car _hd7639876455_))) - (_tl7640176462_ + (##car _hd7666076717_))) + (_tl7666376724_ (let () (declare (not safe)) - (##cdr _hd7639876455_)))) - (let ((_tmp76465_ _hd7640076460_)) + (##cdr _hd7666076717_)))) + (let ((_tmp76727_ _hd7666276722_)) (if (let () (declare (not safe)) - (##pair? _tl7640176462_)) - (let ((_hd7640276467_ + (##pair? _tl7666376724_)) + (let ((_hd7666476729_ (let () (declare (not safe)) - (##car _tl7640176462_))) - (_tl7640376469_ + (##car _tl7666376724_))) + (_tl7666576731_ (let () (declare (not safe)) - (##cdr _tl7640176462_)))) - (let* ((_len76472_ _hd7640276467_) - (_init76474_ _tl7640376469_) - (_rest76476_ - _tl7639976457_)) + (##cdr _tl7666376724_)))) + (let* ((_len76734_ _hd7666476729_) + (_init76736_ _tl7666576731_) + (_rest76738_ + _tl7666176719_)) (declare (not safe)) - (_K7639776452_ - _rest76476_ - _init76474_ - _len76472_ - _tmp76465_))) + (_K7665976714_ + _rest76738_ + _init76736_ + _len76734_ + _tmp76727_))) (let () (declare (not safe)) - (_else7639576413_))))) + (_else7665776675_))))) (let () (declare (not safe)) - (_else7639576413_)))) + (_else7665776675_)))) (let () (declare (not safe)) - (_else7639576413_)))))))) + (_else7665776675_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx76377_ - _compile-simple76379_ - _compile-values76380_))))) + _stx76639_ + _compile-simple76641_ + _compile-values76642_))))) (define __compile-letrec*-values% - (lambda (_stx76132_) - (letrec ((_compile-simple76134_ - (lambda (_hd-ids76373_ _exprs76374_ _body76375_) - (let ((__tmp78084 - (let ((__tmp78085 - (let ((__tmp78087 + (lambda (_stx76394_) + (letrec ((_compile-simple76396_ + (lambda (_hd-ids76635_ _exprs76636_ _body76637_) + (let ((__tmp78346 + (let ((__tmp78347 + (let ((__tmp78349 (map list (map __compile-head-id - _hd-ids76373_) - _exprs76374_)) - (__tmp78086 + _hd-ids76635_) + _exprs76636_)) + (__tmp78348 (let () (declare (not safe)) - (cons _body76375_ '())))) + (cons _body76637_ '())))) (declare (not safe)) - (cons __tmp78087 __tmp78086)))) + (cons __tmp78349 __tmp78348)))) (declare (not safe)) - (cons 'letrec* __tmp78085)))) + (cons 'letrec* __tmp78347)))) (declare (not safe)) - (__SRC__% __tmp78084 _stx76132_)))) - (_compile-values76135_ - (lambda (_hd-ids76284_ _exprs76285_ _body76286_) - (let _lp76288_ ((_rest76290_ _hd-ids76284_) - (_exprs76291_ _exprs76285_) - (_bind76292_ '()) - (_post76293_ '())) - (let* ((_rest7629476308_ _rest76290_) - (_else7629776316_ + (__SRC__% __tmp78346 _stx76394_)))) + (_compile-values76397_ + (lambda (_hd-ids76546_ _exprs76547_ _body76548_) + (let _lp76550_ ((_rest76552_ _hd-ids76546_) + (_exprs76553_ _exprs76547_) + (_bind76554_ '()) + (_post76555_ '())) + (let* ((_rest7655676570_ _rest76552_) + (_else7655976578_ (lambda () (let () (declare (not safe)) - (_compile-bind76136_ - _bind76292_ - _post76293_ - _body76286_))))) - (let ((_K7630276356_ - (lambda (_rest76351_ _hd76352_) + (_compile-bind76398_ + _bind76554_ + _post76555_ + _body76548_))))) + (let ((_K7656476618_ + (lambda (_rest76613_ _hd76614_) (if (let () (declare (not safe)) - (__AST-id? _hd76352_)) - (let ((_id76354_ + (__AST-id? _hd76614_)) + (let ((_id76616_ (let () (declare (not safe)) - (__SRC__0 _hd76352_)))) - (let ((__tmp78102 (cdr _exprs76291_)) - (__tmp78097 - (let ((__tmp78098 - (let ((__tmp78099 - (let ((__tmp78100 + (__SRC__0 _hd76614_)))) + (let ((__tmp78364 (cdr _exprs76553_)) + (__tmp78359 + (let ((__tmp78360 + (let ((__tmp78361 + (let ((__tmp78362 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78101 + (let ((__tmp78363 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp78101)))) + (cons 'quote __tmp78363)))) (declare (not safe)) - (cons __tmp78100 '())))) + (cons __tmp78362 '())))) (declare (not safe)) - (cons _id76354_ __tmp78099)))) + (cons _id76616_ __tmp78361)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78098 _bind76292_))) - (__tmp78093 - (let ((__tmp78094 - (let ((__tmp78095 - (let ((__tmp78096 + (cons __tmp78360 _bind76554_))) + (__tmp78355 + (let ((__tmp78356 + (let ((__tmp78357 + (let ((__tmp78358 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76291_))) + (car _exprs76553_))) (declare (not safe)) - (cons __tmp78096 '())))) + (cons __tmp78358 '())))) (declare (not safe)) - (cons _id76354_ __tmp78095)))) + (cons _id76616_ __tmp78357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78094 - _post76293_)))) + (cons __tmp78356 + _post76555_)))) (declare (not safe)) - (_lp76288_ - _rest76351_ - __tmp78102 - __tmp78097 - __tmp78093))) - (let ((__tmp78092 (cdr _exprs76291_)) - (__tmp78088 - (let ((__tmp78089 - (let ((__tmp78090 - (let ((__tmp78091 + (_lp76550_ + _rest76613_ + __tmp78364 + __tmp78359 + __tmp78355))) + (let ((__tmp78354 (cdr _exprs76553_)) + (__tmp78350 + (let ((__tmp78351 + (let ((__tmp78352 + (let ((__tmp78353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76291_))) + (car _exprs76553_))) (declare (not safe)) - (cons __tmp78091 '())))) + (cons __tmp78353 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp78090)))) + (cons '#f __tmp78352)))) (declare (not safe)) - (cons __tmp78089 _post76293_)))) + (cons __tmp78351 _post76555_)))) (declare (not safe)) - (_lp76288_ - _rest76351_ - __tmp78092 - _bind76292_ - __tmp78088))))) - (_K7629976336_ - (lambda (_rest76320_ _hd76321_) + (_lp76550_ + _rest76613_ + __tmp78354 + _bind76554_ + __tmp78350))))) + (_K7656176598_ + (lambda (_rest76582_ _hd76583_) (if (let () (declare (not safe)) - (__AST-id? _hd76321_)) - (let ((_id76323_ + (__AST-id? _hd76583_)) + (let ((_id76585_ (let () (declare (not safe)) - (__SRC__0 _hd76321_)))) - (let ((__tmp78138 (cdr _exprs76291_)) - (__tmp78133 - (let ((__tmp78134 - (let ((__tmp78135 - (let ((__tmp78136 + (__SRC__0 _hd76583_)))) + (let ((__tmp78400 (cdr _exprs76553_)) + (__tmp78395 + (let ((__tmp78396 + (let ((__tmp78397 + (let ((__tmp78398 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78137 + (let ((__tmp78399 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp78137)))) + (cons 'quote __tmp78399)))) (declare (not safe)) - (cons __tmp78136 '())))) + (cons __tmp78398 '())))) (declare (not safe)) - (cons _id76323_ __tmp78135)))) + (cons _id76585_ __tmp78397)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78134 _bind76292_))) - (__tmp78127 - (let ((__tmp78128 - (let ((__tmp78129 - (let ((__tmp78130 + (cons __tmp78396 _bind76554_))) + (__tmp78389 + (let ((__tmp78390 + (let ((__tmp78391 + (let ((__tmp78392 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78131 - (let ((__tmp78132 (car _exprs76291_))) + (let ((__tmp78393 + (let ((__tmp78394 (car _exprs76553_))) (declare (not safe)) - (cons __tmp78132 '())))) + (cons __tmp78394 '())))) (declare (not safe)) - (cons 'values->list __tmp78131)))) + (cons 'values->list __tmp78393)))) (declare (not safe)) - (cons __tmp78130 '())))) + (cons __tmp78392 '())))) (declare (not safe)) - (cons _id76323_ __tmp78129)))) + (cons _id76585_ __tmp78391)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78128 - _post76293_)))) + (cons __tmp78390 + _post76555_)))) (declare (not safe)) - (_lp76288_ - _rest76320_ - __tmp78138 - __tmp78133 - __tmp78127))) - (if (let ((__tmp78126 + (_lp76550_ + _rest76582_ + __tmp78400 + __tmp78395 + __tmp78389))) + (if (let ((__tmp78388 (let () (declare (not safe)) - (__AST-e _hd76321_)))) + (__AST-e _hd76583_)))) (declare (not safe)) - (not __tmp78126)) - (let ((__tmp78125 (cdr _exprs76291_)) - (__tmp78121 - (let ((__tmp78122 - (let ((__tmp78123 - (let ((__tmp78124 + (not __tmp78388)) + (let ((__tmp78387 (cdr _exprs76553_)) + (__tmp78383 + (let ((__tmp78384 + (let ((__tmp78385 + (let ((__tmp78386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs76291_))) + (car _exprs76553_))) (declare (not safe)) - (cons __tmp78124 '())))) + (cons __tmp78386 '())))) (declare (not safe)) - (cons '#f __tmp78123)))) + (cons '#f __tmp78385)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78122 - _post76293_)))) + (cons __tmp78384 + _post76555_)))) (declare (not safe)) - (_lp76288_ - _rest76320_ - __tmp78125 - _bind76292_ - __tmp78121)) + (_lp76550_ + _rest76582_ + __tmp78387 + _bind76554_ + __tmp78383)) (if (let () (declare (not safe)) - (list? _hd76321_)) - (let* ((_len76325_ - (length _hd76321_)) - (_tmp76327_ - (let ((__tmp78103 + (list? _hd76583_)) + (let* ((_len76587_ + (length _hd76583_)) + (_tmp76589_ + (let ((__tmp78365 (gensym))) (declare (not safe)) - (__SRC__0 __tmp78103)))) - (let ((__tmp78120 - (cdr _exprs76291_)) - (__tmp78113 - (let ((__tmp78114 - (lambda (_id76330_ + (__SRC__0 __tmp78365)))) + (let ((__tmp78382 + (cdr _exprs76553_)) + (__tmp78375 + (let ((__tmp78376 + (lambda (_id76592_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r76331_) - (if (let () (declare (not safe)) (__AST-e _id76330_)) - (let ((__tmp78115 - (let ((__tmp78119 + _r76593_) + (if (let () (declare (not safe)) (__AST-e _id76592_)) + (let ((__tmp78377 + (let ((__tmp78381 (let () (declare (not safe)) - (__SRC__0 _id76330_))) - (__tmp78116 - (let ((__tmp78117 - (let ((__tmp78118 + (__SRC__0 _id76592_))) + (__tmp78378 + (let ((__tmp78379 + (let ((__tmp78380 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp78118)))) + (cons 'quote __tmp78380)))) (declare (not safe)) - (cons __tmp78117 '())))) + (cons __tmp78379 '())))) (declare (not safe)) - (cons __tmp78119 __tmp78116)))) + (cons __tmp78381 __tmp78378)))) (declare (not safe)) - (cons __tmp78115 _r76331_)) - _r76331_)))) + (cons __tmp78377 _r76593_)) + _r76593_)))) (declare (not safe)) - (foldl1 __tmp78114 _bind76292_ _hd76321_))) + (foldl1 __tmp78376 _bind76554_ _hd76583_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp78104 - (let ((__tmp78105 - (let ((__tmp78106 + (__tmp78366 + (let ((__tmp78367 + (let ((__tmp78368 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78112 (car _exprs76291_)) - (__tmp78107 - (let ((__tmp78108 - (let ((__tmp78110 - (lambda (_id76333_ _k76334_) + (let ((__tmp78374 (car _exprs76553_)) + (__tmp78369 + (let ((__tmp78370 + (let ((__tmp78372 + (lambda (_id76595_ _k76596_) (if (let () (declare (not safe)) - (__AST-e _id76333_)) - (let ((__tmp78111 + (__AST-e _id76595_)) + (let ((__tmp78373 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id76333_)))) + (__SRC__0 _id76595_)))) (declare (not safe)) - (cons __tmp78111 _k76334_)) + (cons __tmp78373 _k76596_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp78109 + (__tmp78371 (let () (declare (not safe)) - (iota__0 _len76325_)))) + (iota__0 _len76587_)))) (declare (not safe)) (filter-map2 - __tmp78110 - _hd76321_ - __tmp78109)))) + __tmp78372 + _hd76583_ + __tmp78371)))) (declare (not safe)) - (cons _len76325_ __tmp78108)))) + (cons _len76587_ __tmp78370)))) (declare (not safe)) - (cons __tmp78112 __tmp78107)))) + (cons __tmp78374 __tmp78369)))) (declare (not safe)) - (cons _tmp76327_ __tmp78106)))) + (cons _tmp76589_ __tmp78368)))) (declare (not safe)) - (cons __tmp78105 _post76293_)))) + (cons __tmp78367 _post76555_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp76288_ - _rest76320_ - __tmp78120 - __tmp78113 - __tmp78104))) + (_lp76550_ + _rest76582_ + __tmp78382 + __tmp78375 + __tmp78366))) (let () (declare (not safe)) (__compile-error__% - _stx76132_ - _hd76321_)))))))) + _stx76394_ + _hd76583_)))))))) (if (let () (declare (not safe)) - (##pair? _rest7629476308_)) - (let ((_tl7630476361_ + (##pair? _rest7655676570_)) + (let ((_tl7656676623_ (let () (declare (not safe)) - (##cdr _rest7629476308_))) - (_hd7630376359_ + (##cdr _rest7655676570_))) + (_hd7656576621_ (let () (declare (not safe)) - (##car _rest7629476308_)))) + (##car _rest7655676570_)))) (if (let () (declare (not safe)) - (##pair? _hd7630376359_)) - (let ((_tl7630676366_ + (##pair? _hd7656576621_)) + (let ((_tl7656876628_ (let () (declare (not safe)) - (##cdr _hd7630376359_))) - (_hd7630576364_ + (##cdr _hd7656576621_))) + (_hd7656776626_ (let () (declare (not safe)) - (##car _hd7630376359_)))) + (##car _hd7656576621_)))) (if (let () (declare (not safe)) - (##null? _tl7630676366_)) - (let ((_hd76369_ _hd7630576364_) - (_rest76371_ _tl7630476361_)) + (##null? _tl7656876628_)) + (let ((_hd76631_ _hd7656776626_) + (_rest76633_ _tl7656676623_)) (let () (declare (not safe)) - (_K7630276356_ - _rest76371_ - _hd76369_))) - (let ((_hd76344_ _hd7630376359_) - (_rest76346_ _tl7630476361_)) + (_K7656476618_ + _rest76633_ + _hd76631_))) + (let ((_hd76606_ _hd7656576621_) + (_rest76608_ _tl7656676623_)) (let () (declare (not safe)) - (_K7629976336_ - _rest76346_ - _hd76344_))))) - (let ((_hd76344_ _hd7630376359_) - (_rest76346_ _tl7630476361_)) + (_K7656176598_ + _rest76608_ + _hd76606_))))) + (let ((_hd76606_ _hd7656576621_) + (_rest76608_ _tl7656676623_)) (let () (declare (not safe)) - (_K7629976336_ - _rest76346_ - _hd76344_))))) + (_K7656176598_ + _rest76608_ + _hd76606_))))) (let () (declare (not safe)) - (_else7629776316_)))))))) - (_compile-bind76136_ - (lambda (_bind76280_ _post76281_ _body76282_) - (let ((__tmp78139 - (let ((__tmp78140 - (let ((__tmp78143 (reverse _bind76280_)) - (__tmp78141 - (let ((__tmp78142 + (_else7655976578_)))))))) + (_compile-bind76398_ + (lambda (_bind76542_ _post76543_ _body76544_) + (let ((__tmp78401 + (let ((__tmp78402 + (let ((__tmp78405 (reverse _bind76542_)) + (__tmp78403 + (let ((__tmp78404 (let () (declare (not safe)) - (_compile-post76137_ - _post76281_ - _body76282_)))) + (_compile-post76399_ + _post76543_ + _body76544_)))) (declare (not safe)) - (cons __tmp78142 '())))) + (cons __tmp78404 '())))) (declare (not safe)) - (cons __tmp78143 __tmp78141)))) + (cons __tmp78405 __tmp78403)))) (declare (not safe)) - (cons 'let __tmp78140)))) + (cons 'let __tmp78402)))) (declare (not safe)) - (__SRC__% __tmp78139 _stx76132_)))) - (_compile-post76137_ - (lambda (_post76139_ _body76140_) - (let ((__tmp78144 - (let ((__tmp78145 - (let ((__tmp78146 - (let ((__tmp78148 - (lambda (_hd76142_ _r76143_) - (let* ((_hd7614476167_ - _hd76142_) - (_E7614876171_ + (__SRC__% __tmp78401 _stx76394_)))) + (_compile-post76399_ + (lambda (_post76401_ _body76402_) + (let ((__tmp78406 + (let ((__tmp78407 + (let ((__tmp78408 + (let ((__tmp78410 + (lambda (_hd76404_ _r76405_) + (let* ((_hd7640676429_ + _hd76404_) + (_E7641076433_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7614476167_))))) + _hd7640676429_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K7616176265_ - (lambda (_expr76263_) + (let ((_K7642376527_ + (lambda (_expr76525_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr76263_ _r76143_)))) - (_K7615676243_ - (lambda (_expr76240_ _id76241_) - (let ((__tmp78149 - (let ((__tmp78150 - (let ((__tmp78151 - (let ((__tmp78152 + (cons _expr76525_ _r76405_)))) + (_K7641876505_ + (lambda (_expr76502_ _id76503_) + (let ((__tmp78411 + (let ((__tmp78412 + (let ((__tmp78413 + (let ((__tmp78414 (let () (declare (not safe)) - (cons _expr76240_ '())))) + (cons _expr76502_ '())))) (declare (not safe)) - (cons _id76241_ __tmp78152)))) + (cons _id76503_ __tmp78414)))) (declare (not safe)) - (cons 'set! __tmp78151)))) + (cons 'set! __tmp78413)))) (declare (not safe)) - (__SRC__% __tmp78150 _stx76132_)))) + (__SRC__% __tmp78412 _stx76394_)))) (declare (not safe)) - (cons __tmp78149 _r76143_)))) - (_K7614976210_ - (lambda (_init76175_ _len76176_ _expr76177_ _tmp76178_) - (let ((__tmp78153 - (let ((__tmp78154 - (let ((__tmp78155 - (let ((__tmp78169 - (let ((__tmp78170 - (let ((__tmp78171 + (cons __tmp78411 _r76405_)))) + (_K7641176472_ + (lambda (_init76437_ _len76438_ _expr76439_ _tmp76440_) + (let ((__tmp78415 + (let ((__tmp78416 + (let ((__tmp78417 + (let ((__tmp78431 + (let ((__tmp78432 + (let ((__tmp78433 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr76177_ '())))) + (cons _expr76439_ '())))) (declare (not safe)) - (cons _tmp76178_ __tmp78171)))) + (cons _tmp76440_ __tmp78433)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78170 '()))) - (__tmp78156 - (let ((__tmp78165 - (let ((__tmp78166 - (let ((__tmp78167 + (cons __tmp78432 '()))) + (__tmp78418 + (let ((__tmp78427 + (let ((__tmp78428 + (let ((__tmp78429 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78168 + (let ((__tmp78430 (let () (declare (not safe)) - (cons _len76176_ '())))) + (cons _len76438_ '())))) (declare (not safe)) - (cons _tmp76178_ __tmp78168)))) + (cons _tmp76440_ __tmp78430)))) (declare (not safe)) - (cons '__check-values __tmp78167)))) + (cons '__check-values __tmp78429)))) (declare (not safe)) - (__SRC__% __tmp78166 _stx76132_))) - (__tmp78157 - (let ((__tmp78158 - (map (lambda (_hd76180_) - (let* ((_hd7618176188_ _hd76180_) - (_E7618376192_ + (__SRC__% __tmp78428 _stx76394_))) + (__tmp78419 + (let ((__tmp78420 + (map (lambda (_hd76442_) + (let* ((_hd7644376450_ _hd76442_) + (_E7644576454_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _hd7618176188_)))) - (_K7618476198_ - (lambda (_k76195_ _id76196_) - (let ((__tmp78159 - (let ((__tmp78160 - (let ((__tmp78161 - (let ((__tmp78162 + _hd7644376450_)))) + (_K7644676460_ + (lambda (_k76457_ _id76458_) + (let ((__tmp78421 + (let ((__tmp78422 + (let ((__tmp78423 + (let ((__tmp78424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp78163 - (let ((__tmp78164 + (let ((__tmp78425 + (let ((__tmp78426 (let () (declare (not safe)) - (cons _k76195_ '())))) + (cons _k76457_ '())))) (declare (not safe)) - (cons _tmp76178_ __tmp78164)))) + (cons _tmp76440_ __tmp78426)))) (declare (not safe)) - (cons '##vector-ref __tmp78163)))) + (cons '##vector-ref __tmp78425)))) (declare (not safe)) - (cons __tmp78162 '())))) + (cons __tmp78424 '())))) (declare (not safe)) - (cons _id76196_ __tmp78161)))) + (cons _id76458_ __tmp78423)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp78160)))) + (cons 'set! __tmp78422)))) (declare (not safe)) - (__SRC__% __tmp78159 _stx76132_))))) + (__SRC__% __tmp78421 _stx76394_))))) (if (let () (declare (not safe)) - (##pair? _hd7618176188_)) - (let ((_hd7618576201_ + (##pair? _hd7644376450_)) + (let ((_hd7644776463_ (let () (declare (not safe)) - (##car _hd7618176188_))) - (_tl7618676203_ + (##car _hd7644376450_))) + (_tl7644876465_ (let () (declare (not safe)) - (##cdr _hd7618176188_)))) - (let* ((_id76206_ _hd7618576201_) - (_k76208_ _tl7618676203_)) + (##cdr _hd7644376450_)))) + (let* ((_id76468_ _hd7644776463_) + (_k76470_ _tl7644876465_)) (declare (not safe)) - (_K7618476198_ _k76208_ _id76206_))) + (_K7644676460_ _k76470_ _id76468_))) (let () (declare (not safe)) - (_E7618376192_))))) - _init76175_))) + (_E7644576454_))))) + _init76437_))) (declare (not safe)) - (foldr1 cons '() __tmp78158)))) + (foldr1 cons '() __tmp78420)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78165 - __tmp78157)))) + (cons __tmp78427 + __tmp78419)))) (declare (not safe)) - (cons __tmp78169 __tmp78156)))) + (cons __tmp78431 __tmp78418)))) (declare (not safe)) - (cons 'let __tmp78155)))) + (cons 'let __tmp78417)))) (declare (not safe)) - (__SRC__% __tmp78154 _stx76132_)))) + (__SRC__% __tmp78416 _stx76394_)))) (declare (not safe)) - (cons __tmp78153 _r76143_))))) - (if (let () (declare (not safe)) (##pair? _hd7614476167_)) - (let ((_tl7616376270_ - (let () (declare (not safe)) (##cdr _hd7614476167_))) - (_hd7616276268_ - (let () (declare (not safe)) (##car _hd7614476167_)))) + (cons __tmp78415 _r76405_))))) + (if (let () (declare (not safe)) (##pair? _hd7640676429_)) + (let ((_tl7642576532_ + (let () (declare (not safe)) (##cdr _hd7640676429_))) + (_hd7642476530_ + (let () (declare (not safe)) (##car _hd7640676429_)))) (if (let () (declare (not safe)) - (##eq? _hd7616276268_ '#f)) + (##eq? _hd7642476530_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl7616376270_)) - (let ((_tl7616576275_ + (##pair? _tl7642576532_)) + (let ((_tl7642776537_ (let () (declare (not safe)) - (##cdr _tl7616376270_))) - (_hd7616476273_ + (##cdr _tl7642576532_))) + (_hd7642676535_ (let () (declare (not safe)) - (##car _tl7616376270_)))) + (##car _tl7642576532_)))) (if (let () (declare (not safe)) - (##null? _tl7616576275_)) - (let ((_expr76278_ _hd7616476273_)) + (##null? _tl7642776537_)) + (let ((_expr76540_ _hd7642676535_)) (declare (not safe)) - (_K7616176265_ _expr76278_)) + (_K7642376527_ _expr76540_)) (if (let () (declare (not safe)) - (##pair? _tl7616576275_)) - (let ((_tl7615576229_ + (##pair? _tl7642776537_)) + (let ((_tl7641776491_ (let () (declare (not safe)) - (##cdr _tl7616576275_))) - (_hd7615476227_ + (##cdr _tl7642776537_))) + (_hd7641676489_ (let () (declare (not safe)) - (##car _tl7616576275_)))) - (let ((_tmp76218_ _hd7616276268_) - (_expr76225_ _hd7616476273_) - (_len76232_ _hd7615476227_) - (_init76234_ _tl7615576229_)) + (##car _tl7642776537_)))) + (let ((_tmp76480_ _hd7642476530_) + (_expr76487_ _hd7642676535_) + (_len76494_ _hd7641676489_) + (_init76496_ _tl7641776491_)) (let () (declare (not safe)) - (_K7614976210_ - _init76234_ - _len76232_ - _expr76225_ - _tmp76218_)))) + (_K7641176472_ + _init76496_ + _len76494_ + _expr76487_ + _tmp76480_)))) (let () (declare (not safe)) - (_E7614876171_))))) - (let () (declare (not safe)) (_E7614876171_))) + (_E7641076433_))))) + (let () (declare (not safe)) (_E7641076433_))) (if (let () (declare (not safe)) - (##pair? _tl7616376270_)) - (let ((_tl7616076255_ + (##pair? _tl7642576532_)) + (let ((_tl7642276517_ (let () (declare (not safe)) - (##cdr _tl7616376270_))) - (_hd7615976253_ + (##cdr _tl7642576532_))) + (_hd7642176515_ (let () (declare (not safe)) - (##car _tl7616376270_)))) + (##car _tl7642576532_)))) (if (let () (declare (not safe)) - (##null? _tl7616076255_)) - (let ((_id76251_ _hd7616276268_) - (_expr76258_ _hd7615976253_)) + (##null? _tl7642276517_)) + (let ((_id76513_ _hd7642476530_) + (_expr76520_ _hd7642176515_)) (let () (declare (not safe)) - (_K7615676243_ _expr76258_ _id76251_))) + (_K7641876505_ _expr76520_ _id76513_))) (if (let () (declare (not safe)) - (##pair? _tl7616076255_)) - (let ((_tl7615576229_ + (##pair? _tl7642276517_)) + (let ((_tl7641776491_ (let () (declare (not safe)) - (##cdr _tl7616076255_))) - (_hd7615476227_ + (##cdr _tl7642276517_))) + (_hd7641676489_ (let () (declare (not safe)) - (##car _tl7616076255_)))) - (let ((_tmp76218_ _hd7616276268_) - (_expr76225_ _hd7615976253_) - (_len76232_ _hd7615476227_) - (_init76234_ _tl7615576229_)) + (##car _tl7642276517_)))) + (let ((_tmp76480_ _hd7642476530_) + (_expr76487_ _hd7642176515_) + (_len76494_ _hd7641676489_) + (_init76496_ _tl7641776491_)) (let () (declare (not safe)) - (_K7614976210_ - _init76234_ - _len76232_ - _expr76225_ - _tmp76218_)))) + (_K7641176472_ + _init76496_ + _len76494_ + _expr76487_ + _tmp76480_)))) (let () (declare (not safe)) - (_E7614876171_))))) - (let () (declare (not safe)) (_E7614876171_))))) - (let () (declare (not safe)) (_E7614876171_))))))) + (_E7641076433_))))) + (let () (declare (not safe)) (_E7641076433_))))) + (let () (declare (not safe)) (_E7641076433_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp78147 (list _body76140_))) + (__tmp78409 (list _body76402_))) (declare (not safe)) - (foldl1 __tmp78148 - __tmp78147 - _post76139_)))) + (foldl1 __tmp78410 + __tmp78409 + _post76401_)))) (declare (not safe)) - (foldr1 cons '() __tmp78146)))) + (foldr1 cons '() __tmp78408)))) (declare (not safe)) - (cons 'begin __tmp78145)))) + (cons 'begin __tmp78407)))) (declare (not safe)) - (__SRC__% __tmp78144 _stx76132_))))) + (__SRC__% __tmp78406 _stx76394_))))) (let () (declare (not safe)) (__compile-let-form - _stx76132_ - _compile-simple76134_ - _compile-values76135_))))) + _stx76394_ + _compile-simple76396_ + _compile-values76397_))))) (define __compile-call% - (lambda (_stx76092_) - (let* ((_$e76094_ _stx76092_) - (_$E7609676105_ + (lambda (_stx76354_) + (let* ((_$e76356_ _stx76354_) + (_$E7635876367_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76094_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76094_)) - (let* ((_$tgt7609776108_ - (let () (declare (not safe)) (__AST-e _$e76094_))) - (_$hd7609876111_ - (let () (declare (not safe)) (##car _$tgt7609776108_))) - (_$tl7609976114_ - (let () (declare (not safe)) (##cdr _$tgt7609776108_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7609976114_)) - (let* ((_$tgt7610076118_ + _$e76356_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76356_)) + (let* ((_$tgt7635976370_ + (let () (declare (not safe)) (__AST-e _$e76356_))) + (_$hd7636076373_ + (let () (declare (not safe)) (##car _$tgt7635976370_))) + (_$tl7636176376_ + (let () (declare (not safe)) (##cdr _$tgt7635976370_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7636176376_)) + (let* ((_$tgt7636276380_ (let () (declare (not safe)) - (__AST-e _$tl7609976114_))) - (_$hd7610176121_ + (__AST-e _$tl7636176376_))) + (_$hd7636376383_ (let () (declare (not safe)) - (##car _$tgt7610076118_))) - (_$tl7610276124_ + (##car _$tgt7636276380_))) + (_$tl7636476386_ (let () (declare (not safe)) - (##cdr _$tgt7610076118_)))) - (let* ((_rator76128_ _$hd7610176121_) - (_rands76130_ _$tl7610276124_) - (__tmp78172 - (let ((__tmp78174 + (##cdr _$tgt7636276380_)))) + (let* ((_rator76390_ _$hd7636376383_) + (_rands76392_ _$tl7636476386_) + (__tmp78434 + (let ((__tmp78436 (let () (declare (not safe)) - (__compile _rator76128_))) - (__tmp78173 (map __compile _rands76130_))) + (__compile _rator76390_))) + (__tmp78435 (map __compile _rands76392_))) (declare (not safe)) - (cons __tmp78174 __tmp78173)))) + (cons __tmp78436 __tmp78435)))) (declare (not safe)) - (__SRC__% __tmp78172 _stx76092_))) - (let () (declare (not safe)) (_$E7609676105_)))) - (let () (declare (not safe)) (_$E7609676105_)))))) + (__SRC__% __tmp78434 _stx76354_))) + (let () (declare (not safe)) (_$E7635876367_)))) + (let () (declare (not safe)) (_$E7635876367_)))))) (define __compile-ref% - (lambda (_stx76054_) - (let* ((_$e76056_ _stx76054_) - (_$E7605876067_ + (lambda (_stx76316_) + (let* ((_$e76318_ _stx76316_) + (_$E7632076329_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76056_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76056_)) - (let* ((_$tgt7605976070_ - (let () (declare (not safe)) (__AST-e _$e76056_))) - (_$hd7606076073_ - (let () (declare (not safe)) (##car _$tgt7605976070_))) - (_$tl7606176076_ - (let () (declare (not safe)) (##cdr _$tgt7605976070_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7606176076_)) - (let* ((_$tgt7606276080_ + _$e76318_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76318_)) + (let* ((_$tgt7632176332_ + (let () (declare (not safe)) (__AST-e _$e76318_))) + (_$hd7632276335_ + (let () (declare (not safe)) (##car _$tgt7632176332_))) + (_$tl7632376338_ + (let () (declare (not safe)) (##cdr _$tgt7632176332_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7632376338_)) + (let* ((_$tgt7632476342_ (let () (declare (not safe)) - (__AST-e _$tl7606176076_))) - (_$hd7606376083_ + (__AST-e _$tl7632376338_))) + (_$hd7632576345_ (let () (declare (not safe)) - (##car _$tgt7606276080_))) - (_$tl7606476086_ + (##car _$tgt7632476342_))) + (_$tl7632676348_ (let () (declare (not safe)) - (##cdr _$tgt7606276080_)))) - (let ((_id76090_ _$hd7606376083_)) - (if (let ((__tmp78175 + (##cdr _$tgt7632476342_)))) + (let ((_id76352_ _$hd7632576345_)) + (if (let ((__tmp78437 (let () (declare (not safe)) - (__AST-e _$tl7606476086_)))) + (__AST-e _$tl7632676348_)))) (declare (not safe)) - (equal? __tmp78175 '())) + (equal? __tmp78437 '())) (let () (declare (not safe)) - (__SRC__% _id76090_ _stx76054_)) - (let () (declare (not safe)) (_$E7605876067_))))) - (let () (declare (not safe)) (_$E7605876067_)))) - (let () (declare (not safe)) (_$E7605876067_)))))) + (__SRC__% _id76352_ _stx76316_)) + (let () (declare (not safe)) (_$E7632076329_))))) + (let () (declare (not safe)) (_$E7632076329_)))) + (let () (declare (not safe)) (_$E7632076329_)))))) (define __compile-setq% - (lambda (_stx76001_) - (let* ((_$e76003_ _stx76001_) - (_$E7600576017_ + (lambda (_stx76263_) + (let* ((_$e76265_ _stx76263_) + (_$E7626776279_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e76003_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e76003_)) - (let* ((_$tgt7600676020_ - (let () (declare (not safe)) (__AST-e _$e76003_))) - (_$hd7600776023_ - (let () (declare (not safe)) (##car _$tgt7600676020_))) - (_$tl7600876026_ - (let () (declare (not safe)) (##cdr _$tgt7600676020_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7600876026_)) - (let* ((_$tgt7600976030_ + _$e76265_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76265_)) + (let* ((_$tgt7626876282_ + (let () (declare (not safe)) (__AST-e _$e76265_))) + (_$hd7626976285_ + (let () (declare (not safe)) (##car _$tgt7626876282_))) + (_$tl7627076288_ + (let () (declare (not safe)) (##cdr _$tgt7626876282_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7627076288_)) + (let* ((_$tgt7627176292_ (let () (declare (not safe)) - (__AST-e _$tl7600876026_))) - (_$hd7601076033_ + (__AST-e _$tl7627076288_))) + (_$hd7627276295_ (let () (declare (not safe)) - (##car _$tgt7600976030_))) - (_$tl7601176036_ + (##car _$tgt7627176292_))) + (_$tl7627376298_ (let () (declare (not safe)) - (##cdr _$tgt7600976030_)))) - (let ((_id76040_ _$hd7601076033_)) + (##cdr _$tgt7627176292_)))) + (let ((_id76302_ _$hd7627276295_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7601176036_)) - (let* ((_$tgt7601276042_ + (__AST-pair? _$tl7627376298_)) + (let* ((_$tgt7627476304_ (let () (declare (not safe)) - (__AST-e _$tl7601176036_))) - (_$hd7601376045_ + (__AST-e _$tl7627376298_))) + (_$hd7627576307_ (let () (declare (not safe)) - (##car _$tgt7601276042_))) - (_$tl7601476048_ + (##car _$tgt7627476304_))) + (_$tl7627676310_ (let () (declare (not safe)) - (##cdr _$tgt7601276042_)))) - (let ((_expr76052_ _$hd7601376045_)) - (if (let ((__tmp78181 + (##cdr _$tgt7627476304_)))) + (let ((_expr76314_ _$hd7627576307_)) + (if (let ((__tmp78443 (let () (declare (not safe)) - (__AST-e _$tl7601476048_)))) + (__AST-e _$tl7627676310_)))) (declare (not safe)) - (equal? __tmp78181 '())) - (let ((__tmp78176 - (let ((__tmp78177 - (let ((__tmp78180 + (equal? __tmp78443 '())) + (let ((__tmp78438 + (let ((__tmp78439 + (let ((__tmp78442 (let () (declare (not safe)) (__SRC__% - _id76040_ - _stx76001_))) - (__tmp78178 - (let ((__tmp78179 + _id76302_ + _stx76263_))) + (__tmp78440 + (let ((__tmp78441 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr76052_)))) + (__compile _expr76314_)))) (declare (not safe)) - (cons __tmp78179 '())))) + (cons __tmp78441 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp78180 - __tmp78178)))) + (cons __tmp78442 + __tmp78440)))) (declare (not safe)) - (cons 'set! __tmp78177)))) + (cons 'set! __tmp78439)))) (declare (not safe)) - (__SRC__% __tmp78176 _stx76001_)) + (__SRC__% __tmp78438 _stx76263_)) (let () (declare (not safe)) - (_$E7600576017_))))) - (let () (declare (not safe)) (_$E7600576017_))))) - (let () (declare (not safe)) (_$E7600576017_)))) - (let () (declare (not safe)) (_$E7600576017_)))))) + (_$E7626776279_))))) + (let () (declare (not safe)) (_$E7626776279_))))) + (let () (declare (not safe)) (_$E7626776279_)))) + (let () (declare (not safe)) (_$E7626776279_)))))) (define __compile-if% - (lambda (_stx75933_) - (let* ((_$e75935_ _stx75933_) - (_$E7593775952_ + (lambda (_stx76195_) + (let* ((_$e76197_ _stx76195_) + (_$E7619976214_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e75935_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e75935_)) - (let* ((_$tgt7593875955_ - (let () (declare (not safe)) (__AST-e _$e75935_))) - (_$hd7593975958_ - (let () (declare (not safe)) (##car _$tgt7593875955_))) - (_$tl7594075961_ - (let () (declare (not safe)) (##cdr _$tgt7593875955_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7594075961_)) - (let* ((_$tgt7594175965_ + _$e76197_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76197_)) + (let* ((_$tgt7620076217_ + (let () (declare (not safe)) (__AST-e _$e76197_))) + (_$hd7620176220_ + (let () (declare (not safe)) (##car _$tgt7620076217_))) + (_$tl7620276223_ + (let () (declare (not safe)) (##cdr _$tgt7620076217_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7620276223_)) + (let* ((_$tgt7620376227_ (let () (declare (not safe)) - (__AST-e _$tl7594075961_))) - (_$hd7594275968_ + (__AST-e _$tl7620276223_))) + (_$hd7620476230_ (let () (declare (not safe)) - (##car _$tgt7594175965_))) - (_$tl7594375971_ + (##car _$tgt7620376227_))) + (_$tl7620576233_ (let () (declare (not safe)) - (##cdr _$tgt7594175965_)))) - (let ((_p75975_ _$hd7594275968_)) + (##cdr _$tgt7620376227_)))) + (let ((_p76237_ _$hd7620476230_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7594375971_)) - (let* ((_$tgt7594475977_ + (__AST-pair? _$tl7620576233_)) + (let* ((_$tgt7620676239_ (let () (declare (not safe)) - (__AST-e _$tl7594375971_))) - (_$hd7594575980_ + (__AST-e _$tl7620576233_))) + (_$hd7620776242_ (let () (declare (not safe)) - (##car _$tgt7594475977_))) - (_$tl7594675983_ + (##car _$tgt7620676239_))) + (_$tl7620876245_ (let () (declare (not safe)) - (##cdr _$tgt7594475977_)))) - (let ((_t75987_ _$hd7594575980_)) + (##cdr _$tgt7620676239_)))) + (let ((_t76249_ _$hd7620776242_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7594675983_)) - (let* ((_$tgt7594775989_ + (__AST-pair? _$tl7620876245_)) + (let* ((_$tgt7620976251_ (let () (declare (not safe)) - (__AST-e _$tl7594675983_))) - (_$hd7594875992_ + (__AST-e _$tl7620876245_))) + (_$hd7621076254_ (let () (declare (not safe)) - (##car _$tgt7594775989_))) - (_$tl7594975995_ + (##car _$tgt7620976251_))) + (_$tl7621176257_ (let () (declare (not safe)) - (##cdr _$tgt7594775989_)))) - (let ((_f75999_ _$hd7594875992_)) - (if (let ((__tmp78189 + (##cdr _$tgt7620976251_)))) + (let ((_f76261_ _$hd7621076254_)) + (if (let ((__tmp78451 (let () (declare (not safe)) - (__AST-e _$tl7594975995_)))) + (__AST-e _$tl7621176257_)))) (declare (not safe)) - (equal? __tmp78189 '())) - (let ((__tmp78182 - (let ((__tmp78183 - (let ((__tmp78188 + (equal? __tmp78451 '())) + (let ((__tmp78444 + (let ((__tmp78445 + (let ((__tmp78450 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p75975_))) - (__tmp78184 - (let ((__tmp78187 + (let () (declare (not safe)) (__compile _p76237_))) + (__tmp78446 + (let ((__tmp78449 (let () (declare (not safe)) - (__compile _t75987_))) - (__tmp78185 - (let ((__tmp78186 + (__compile _t76249_))) + (__tmp78447 + (let ((__tmp78448 (let () (declare (not safe)) - (__compile _f75999_)))) + (__compile _f76261_)))) (declare (not safe)) - (cons __tmp78186 '())))) + (cons __tmp78448 '())))) (declare (not safe)) - (cons __tmp78187 __tmp78185)))) + (cons __tmp78449 __tmp78447)))) (declare (not safe)) - (cons __tmp78188 __tmp78184)))) + (cons __tmp78450 __tmp78446)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp78183)))) + (cons 'if __tmp78445)))) (declare (not safe)) - (__SRC__% __tmp78182 _stx75933_)) + (__SRC__% __tmp78444 _stx76195_)) (let () (declare (not safe)) - (_$E7593775952_))))) + (_$E7619976214_))))) (let () (declare (not safe)) - (_$E7593775952_))))) - (let () (declare (not safe)) (_$E7593775952_))))) - (let () (declare (not safe)) (_$E7593775952_)))) - (let () (declare (not safe)) (_$E7593775952_)))))) + (_$E7619976214_))))) + (let () (declare (not safe)) (_$E7619976214_))))) + (let () (declare (not safe)) (_$E7619976214_)))) + (let () (declare (not safe)) (_$E7619976214_)))))) (define __compile-quote% - (lambda (_stx75895_) - (let* ((_$e75897_ _stx75895_) - (_$E7589975908_ + (lambda (_stx76157_) + (let* ((_$e76159_ _stx76157_) + (_$E7616176170_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e75897_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e75897_)) - (let* ((_$tgt7590075911_ - (let () (declare (not safe)) (__AST-e _$e75897_))) - (_$hd7590175914_ - (let () (declare (not safe)) (##car _$tgt7590075911_))) - (_$tl7590275917_ - (let () (declare (not safe)) (##cdr _$tgt7590075911_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7590275917_)) - (let* ((_$tgt7590375921_ + _$e76159_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76159_)) + (let* ((_$tgt7616276173_ + (let () (declare (not safe)) (__AST-e _$e76159_))) + (_$hd7616376176_ + (let () (declare (not safe)) (##car _$tgt7616276173_))) + (_$tl7616476179_ + (let () (declare (not safe)) (##cdr _$tgt7616276173_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7616476179_)) + (let* ((_$tgt7616576183_ (let () (declare (not safe)) - (__AST-e _$tl7590275917_))) - (_$hd7590475924_ + (__AST-e _$tl7616476179_))) + (_$hd7616676186_ (let () (declare (not safe)) - (##car _$tgt7590375921_))) - (_$tl7590575927_ + (##car _$tgt7616576183_))) + (_$tl7616776189_ (let () (declare (not safe)) - (##cdr _$tgt7590375921_)))) - (let ((_e75931_ _$hd7590475924_)) - (if (let ((__tmp78193 + (##cdr _$tgt7616576183_)))) + (let ((_e76193_ _$hd7616676186_)) + (if (let ((__tmp78455 (let () (declare (not safe)) - (__AST-e _$tl7590575927_)))) + (__AST-e _$tl7616776189_)))) (declare (not safe)) - (equal? __tmp78193 '())) - (let ((__tmp78190 - (let ((__tmp78191 - (let ((__tmp78192 + (equal? __tmp78455 '())) + (let ((__tmp78452 + (let ((__tmp78453 + (let ((__tmp78454 (let () (declare (not safe)) - (__AST->datum _e75931_)))) + (__AST->datum _e76193_)))) (declare (not safe)) - (cons __tmp78192 '())))) + (cons __tmp78454 '())))) (declare (not safe)) - (cons 'quote __tmp78191)))) + (cons 'quote __tmp78453)))) (declare (not safe)) - (__SRC__% __tmp78190 _stx75895_)) - (let () (declare (not safe)) (_$E7589975908_))))) - (let () (declare (not safe)) (_$E7589975908_)))) - (let () (declare (not safe)) (_$E7589975908_)))))) + (__SRC__% __tmp78452 _stx76157_)) + (let () (declare (not safe)) (_$E7616176170_))))) + (let () (declare (not safe)) (_$E7616176170_)))) + (let () (declare (not safe)) (_$E7616176170_)))))) (define __compile-quote-syntax% - (lambda (_stx75857_) - (let* ((_$e75859_ _stx75857_) - (_$E7586175870_ + (lambda (_stx76119_) + (let* ((_$e76121_ _stx76119_) + (_$E7612376132_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e75859_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e75859_)) - (let* ((_$tgt7586275873_ - (let () (declare (not safe)) (__AST-e _$e75859_))) - (_$hd7586375876_ - (let () (declare (not safe)) (##car _$tgt7586275873_))) - (_$tl7586475879_ - (let () (declare (not safe)) (##cdr _$tgt7586275873_)))) - (if (let () (declare (not safe)) (__AST-pair? _$tl7586475879_)) - (let* ((_$tgt7586575883_ + _$e76121_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76121_)) + (let* ((_$tgt7612476135_ + (let () (declare (not safe)) (__AST-e _$e76121_))) + (_$hd7612576138_ + (let () (declare (not safe)) (##car _$tgt7612476135_))) + (_$tl7612676141_ + (let () (declare (not safe)) (##cdr _$tgt7612476135_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7612676141_)) + (let* ((_$tgt7612776145_ (let () (declare (not safe)) - (__AST-e _$tl7586475879_))) - (_$hd7586675886_ + (__AST-e _$tl7612676141_))) + (_$hd7612876148_ (let () (declare (not safe)) - (##car _$tgt7586575883_))) - (_$tl7586775889_ + (##car _$tgt7612776145_))) + (_$tl7612976151_ (let () (declare (not safe)) - (##cdr _$tgt7586575883_)))) - (let ((_e75893_ _$hd7586675886_)) - (if (let ((__tmp78196 + (##cdr _$tgt7612776145_)))) + (let ((_e76155_ _$hd7612876148_)) + (if (let ((__tmp78458 (let () (declare (not safe)) - (__AST-e _$tl7586775889_)))) + (__AST-e _$tl7612976151_)))) (declare (not safe)) - (equal? __tmp78196 '())) - (let ((__tmp78194 - (let ((__tmp78195 + (equal? __tmp78458 '())) + (let ((__tmp78456 + (let ((__tmp78457 (let () (declare (not safe)) - (cons _e75893_ '())))) + (cons _e76155_ '())))) (declare (not safe)) - (cons 'quote __tmp78195)))) + (cons 'quote __tmp78457)))) (declare (not safe)) - (__SRC__% __tmp78194 _stx75857_)) - (let () (declare (not safe)) (_$E7586175870_))))) - (let () (declare (not safe)) (_$E7586175870_)))) - (let () (declare (not safe)) (_$E7586175870_)))))) + (__SRC__% __tmp78456 _stx76119_)) + (let () (declare (not safe)) (_$E7612376132_))))) + (let () (declare (not safe)) (_$E7612376132_)))) + (let () (declare (not safe)) (_$E7612376132_)))))) (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 5c10f577..e56c04d2 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]#_g78198_| + (define |[1]#_g78460_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g78200_| + (define |[1]#_g78462_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g78202_| + (define |[1]#_g78464_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g78207_| + (define |[1]#_g78469_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g78210_| + (define |[1]#_g78472_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g78215_| + (define |[1]#_g78477_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78218_| + (define |[1]#_g78480_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78223_| + (define |[1]#_g78485_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g78226_| + (define |[1]#_g78488_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g78231_| + (define |[1]#_g78493_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78234_| + (define |[1]#_g78496_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78237_| + (define |[1]#_g78499_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g78239_| + (define |[1]#_g78501_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g78241_| + (define |[1]#_g78503_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g78243_| + (define |[1]#_g78505_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g78248_| + (define |[1]#_g78510_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g78251_| + (define |[1]#_g78513_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g78256_| + (define |[1]#_g78518_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78259_| + (define |[1]#_g78521_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78264_| + (define |[1]#_g78526_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g78267_| + (define |[1]#_g78529_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g78272_| + (define |[1]#_g78534_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78275_| + (define |[1]#_g78537_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78278_| + (define |[1]#_g78540_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g78280_| + (define |[1]#_g78542_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g78282_| + (define |[1]#_g78544_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g78284_| + (define |[1]#_g78546_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g78289_| + (define |[1]#_g78551_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g78292_| + (define |[1]#_g78554_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g78297_| + (define |[1]#_g78559_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78300_| + (define |[1]#_g78562_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78305_| + (define |[1]#_g78567_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g78308_| + (define |[1]#_g78570_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g78313_| + (define |[1]#_g78575_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78316_| + (define |[1]#_g78578_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78320_| + (define |[1]#_g78582_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g78322_| + (define |[1]#_g78584_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g78324_| + (define |[1]#_g78586_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g78329_| + (define |[1]#_g78591_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g78332_| + (define |[1]#_g78594_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g78337_| + (define |[1]#_g78599_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78340_| + (define |[1]#_g78602_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78345_| + (define |[1]#_g78607_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g78348_| + (define |[1]#_g78610_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g78353_| + (define |[1]#_g78615_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g78356_| + (define |[1]#_g78618_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj77836 + (let ((__obj78098 (let () (declare (not safe)) (##structure @@ -347,7 +347,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77836 + __obj78098 'gerbil/runtime/eval#__syntax::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -355,7 +355,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77836 + __obj78098 '__syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77836 + __obj78098 '(e id) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -371,7 +371,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77836 + __obj78098 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -379,7 +379,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77836 + __obj78098 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -387,7 +387,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77836 + __obj78098 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -395,7 +395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77836 + __obj78098 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -403,122 +403,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77836 + __obj78098 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78197 |[1]#_g78198_|)) + (let ((__tmp78459 |[1]#_g78460_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77836 - __tmp78197 + __obj78098 + __tmp78459 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78199 |[1]#_g78200_|)) + (let ((__tmp78461 |[1]#_g78462_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77836 - __tmp78199 + __obj78098 + __tmp78461 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78201 |[1]#_g78202_|)) + (let ((__tmp78463 |[1]#_g78464_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77836 - __tmp78201 + __obj78098 + __tmp78463 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78203 - (let ((__tmp78208 - (let ((__tmp78209 |[1]#_g78210_|)) + (let ((__tmp78465 + (let ((__tmp78470 + (let ((__tmp78471 |[1]#_g78472_|)) (declare (not safe)) - (cons 'e __tmp78209))) - (__tmp78204 - (let ((__tmp78205 - (let ((__tmp78206 |[1]#_g78207_|)) + (cons 'e __tmp78471))) + (__tmp78466 + (let ((__tmp78467 + (let ((__tmp78468 |[1]#_g78469_|)) (declare (not safe)) - (cons 'id __tmp78206)))) + (cons 'id __tmp78468)))) (declare (not safe)) - (cons __tmp78205 '())))) + (cons __tmp78467 '())))) (declare (not safe)) - (cons __tmp78208 __tmp78204)))) + (cons __tmp78470 __tmp78466)))) (declare (not safe)) (##unchecked-structure-set! - __obj77836 - __tmp78203 + __obj78098 + __tmp78465 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78211 - (let ((__tmp78216 - (let ((__tmp78217 |[1]#_g78218_|)) + (let ((__tmp78473 + (let ((__tmp78478 + (let ((__tmp78479 |[1]#_g78480_|)) (declare (not safe)) - (cons 'e __tmp78217))) - (__tmp78212 - (let ((__tmp78213 - (let ((__tmp78214 |[1]#_g78215_|)) + (cons 'e __tmp78479))) + (__tmp78474 + (let ((__tmp78475 + (let ((__tmp78476 |[1]#_g78477_|)) (declare (not safe)) - (cons 'id __tmp78214)))) + (cons 'id __tmp78476)))) (declare (not safe)) - (cons __tmp78213 '())))) + (cons __tmp78475 '())))) (declare (not safe)) - (cons __tmp78216 __tmp78212)))) + (cons __tmp78478 __tmp78474)))) (declare (not safe)) (##unchecked-structure-set! - __obj77836 - __tmp78211 + __obj78098 + __tmp78473 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78219 - (let ((__tmp78224 - (let ((__tmp78225 |[1]#_g78226_|)) + (let ((__tmp78481 + (let ((__tmp78486 + (let ((__tmp78487 |[1]#_g78488_|)) (declare (not safe)) - (cons 'e __tmp78225))) - (__tmp78220 - (let ((__tmp78221 - (let ((__tmp78222 |[1]#_g78223_|)) + (cons 'e __tmp78487))) + (__tmp78482 + (let ((__tmp78483 + (let ((__tmp78484 |[1]#_g78485_|)) (declare (not safe)) - (cons 'id __tmp78222)))) + (cons 'id __tmp78484)))) (declare (not safe)) - (cons __tmp78221 '())))) + (cons __tmp78483 '())))) (declare (not safe)) - (cons __tmp78224 __tmp78220)))) + (cons __tmp78486 __tmp78482)))) (declare (not safe)) (##unchecked-structure-set! - __obj77836 - __tmp78219 + __obj78098 + __tmp78481 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78227 - (let ((__tmp78232 - (let ((__tmp78233 |[1]#_g78234_|)) + (let ((__tmp78489 + (let ((__tmp78494 + (let ((__tmp78495 |[1]#_g78496_|)) (declare (not safe)) - (cons 'e __tmp78233))) - (__tmp78228 - (let ((__tmp78229 - (let ((__tmp78230 |[1]#_g78231_|)) + (cons 'e __tmp78495))) + (__tmp78490 + (let ((__tmp78491 + (let ((__tmp78492 |[1]#_g78493_|)) (declare (not safe)) - (cons 'id __tmp78230)))) + (cons 'id __tmp78492)))) (declare (not safe)) - (cons __tmp78229 '())))) + (cons __tmp78491 '())))) (declare (not safe)) - (cons __tmp78232 __tmp78228)))) + (cons __tmp78494 __tmp78490)))) (declare (not safe)) (##unchecked-structure-set! - __obj77836 - __tmp78227 + __obj78098 + __tmp78489 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj77836)) + __obj78098)) (define |[:0:]#__core-form| - (let ((__obj77837 + (let ((__obj78099 (let () (declare (not safe)) (##structure @@ -541,7 +541,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77837 + __obj78099 'gerbil/runtime/eval#__core-form::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77837 + __obj78099 '__core-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -557,26 +557,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77837 + __obj78099 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78235 - (let ((__tmp78236 |[1]#_g78237_|)) + (let ((__tmp78497 + (let ((__tmp78498 |[1]#_g78499_|)) (declare (not safe)) - (cons __tmp78236 '())))) + (cons __tmp78498 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj77837 - __tmp78235 + __obj78099 + __tmp78497 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj77837 + __obj78099 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -584,7 +584,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77837 + __obj78099 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -592,7 +592,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77837 + __obj78099 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -600,122 +600,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77837 + __obj78099 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78238 |[1]#_g78239_|)) + (let ((__tmp78500 |[1]#_g78501_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77837 - __tmp78238 + __obj78099 + __tmp78500 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78240 |[1]#_g78241_|)) + (let ((__tmp78502 |[1]#_g78503_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77837 - __tmp78240 + __obj78099 + __tmp78502 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78242 |[1]#_g78243_|)) + (let ((__tmp78504 |[1]#_g78505_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77837 - __tmp78242 + __obj78099 + __tmp78504 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78244 - (let ((__tmp78249 - (let ((__tmp78250 |[1]#_g78251_|)) + (let ((__tmp78506 + (let ((__tmp78511 + (let ((__tmp78512 |[1]#_g78513_|)) (declare (not safe)) - (cons 'e __tmp78250))) - (__tmp78245 - (let ((__tmp78246 - (let ((__tmp78247 |[1]#_g78248_|)) + (cons 'e __tmp78512))) + (__tmp78507 + (let ((__tmp78508 + (let ((__tmp78509 |[1]#_g78510_|)) (declare (not safe)) - (cons 'id __tmp78247)))) + (cons 'id __tmp78509)))) (declare (not safe)) - (cons __tmp78246 '())))) + (cons __tmp78508 '())))) (declare (not safe)) - (cons __tmp78249 __tmp78245)))) + (cons __tmp78511 __tmp78507)))) (declare (not safe)) (##unchecked-structure-set! - __obj77837 - __tmp78244 + __obj78099 + __tmp78506 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78252 - (let ((__tmp78257 - (let ((__tmp78258 |[1]#_g78259_|)) + (let ((__tmp78514 + (let ((__tmp78519 + (let ((__tmp78520 |[1]#_g78521_|)) (declare (not safe)) - (cons 'e __tmp78258))) - (__tmp78253 - (let ((__tmp78254 - (let ((__tmp78255 |[1]#_g78256_|)) + (cons 'e __tmp78520))) + (__tmp78515 + (let ((__tmp78516 + (let ((__tmp78517 |[1]#_g78518_|)) (declare (not safe)) - (cons 'id __tmp78255)))) + (cons 'id __tmp78517)))) (declare (not safe)) - (cons __tmp78254 '())))) + (cons __tmp78516 '())))) (declare (not safe)) - (cons __tmp78257 __tmp78253)))) + (cons __tmp78519 __tmp78515)))) (declare (not safe)) (##unchecked-structure-set! - __obj77837 - __tmp78252 + __obj78099 + __tmp78514 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78260 - (let ((__tmp78265 - (let ((__tmp78266 |[1]#_g78267_|)) + (let ((__tmp78522 + (let ((__tmp78527 + (let ((__tmp78528 |[1]#_g78529_|)) (declare (not safe)) - (cons 'e __tmp78266))) - (__tmp78261 - (let ((__tmp78262 - (let ((__tmp78263 |[1]#_g78264_|)) + (cons 'e __tmp78528))) + (__tmp78523 + (let ((__tmp78524 + (let ((__tmp78525 |[1]#_g78526_|)) (declare (not safe)) - (cons 'id __tmp78263)))) + (cons 'id __tmp78525)))) (declare (not safe)) - (cons __tmp78262 '())))) + (cons __tmp78524 '())))) (declare (not safe)) - (cons __tmp78265 __tmp78261)))) + (cons __tmp78527 __tmp78523)))) (declare (not safe)) (##unchecked-structure-set! - __obj77837 - __tmp78260 + __obj78099 + __tmp78522 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78268 - (let ((__tmp78273 - (let ((__tmp78274 |[1]#_g78275_|)) + (let ((__tmp78530 + (let ((__tmp78535 + (let ((__tmp78536 |[1]#_g78537_|)) (declare (not safe)) - (cons 'e __tmp78274))) - (__tmp78269 - (let ((__tmp78270 - (let ((__tmp78271 |[1]#_g78272_|)) + (cons 'e __tmp78536))) + (__tmp78531 + (let ((__tmp78532 + (let ((__tmp78533 |[1]#_g78534_|)) (declare (not safe)) - (cons 'id __tmp78271)))) + (cons 'id __tmp78533)))) (declare (not safe)) - (cons __tmp78270 '())))) + (cons __tmp78532 '())))) (declare (not safe)) - (cons __tmp78273 __tmp78269)))) + (cons __tmp78535 __tmp78531)))) (declare (not safe)) (##unchecked-structure-set! - __obj77837 - __tmp78268 + __obj78099 + __tmp78530 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj77837)) + __obj78099)) (define |[:0:]#__core-expression| - (let ((__obj77838 + (let ((__obj78100 (let () (declare (not safe)) (##structure @@ -738,7 +738,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77838 + __obj78100 'gerbil/runtime/eval#__core-expression::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -746,7 +746,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77838 + __obj78100 '__core-expression '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -754,26 +754,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77838 + __obj78100 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78276 - (let ((__tmp78277 |[1]#_g78278_|)) + (let ((__tmp78538 + (let ((__tmp78539 |[1]#_g78540_|)) (declare (not safe)) - (cons __tmp78277 '())))) + (cons __tmp78539 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj77838 - __tmp78276 + __obj78100 + __tmp78538 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj77838 + __obj78100 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -781,7 +781,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77838 + __obj78100 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -789,7 +789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77838 + __obj78100 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -797,122 +797,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77838 + __obj78100 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78279 |[1]#_g78280_|)) + (let ((__tmp78541 |[1]#_g78542_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77838 - __tmp78279 + __obj78100 + __tmp78541 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78281 |[1]#_g78282_|)) + (let ((__tmp78543 |[1]#_g78544_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77838 - __tmp78281 + __obj78100 + __tmp78543 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78283 |[1]#_g78284_|)) + (let ((__tmp78545 |[1]#_g78546_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77838 - __tmp78283 + __obj78100 + __tmp78545 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78285 - (let ((__tmp78290 - (let ((__tmp78291 |[1]#_g78292_|)) + (let ((__tmp78547 + (let ((__tmp78552 + (let ((__tmp78553 |[1]#_g78554_|)) (declare (not safe)) - (cons 'e __tmp78291))) - (__tmp78286 - (let ((__tmp78287 - (let ((__tmp78288 |[1]#_g78289_|)) + (cons 'e __tmp78553))) + (__tmp78548 + (let ((__tmp78549 + (let ((__tmp78550 |[1]#_g78551_|)) (declare (not safe)) - (cons 'id __tmp78288)))) + (cons 'id __tmp78550)))) (declare (not safe)) - (cons __tmp78287 '())))) + (cons __tmp78549 '())))) (declare (not safe)) - (cons __tmp78290 __tmp78286)))) + (cons __tmp78552 __tmp78548)))) (declare (not safe)) (##unchecked-structure-set! - __obj77838 - __tmp78285 + __obj78100 + __tmp78547 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78293 - (let ((__tmp78298 - (let ((__tmp78299 |[1]#_g78300_|)) + (let ((__tmp78555 + (let ((__tmp78560 + (let ((__tmp78561 |[1]#_g78562_|)) (declare (not safe)) - (cons 'e __tmp78299))) - (__tmp78294 - (let ((__tmp78295 - (let ((__tmp78296 |[1]#_g78297_|)) + (cons 'e __tmp78561))) + (__tmp78556 + (let ((__tmp78557 + (let ((__tmp78558 |[1]#_g78559_|)) (declare (not safe)) - (cons 'id __tmp78296)))) + (cons 'id __tmp78558)))) (declare (not safe)) - (cons __tmp78295 '())))) + (cons __tmp78557 '())))) (declare (not safe)) - (cons __tmp78298 __tmp78294)))) + (cons __tmp78560 __tmp78556)))) (declare (not safe)) (##unchecked-structure-set! - __obj77838 - __tmp78293 + __obj78100 + __tmp78555 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78301 - (let ((__tmp78306 - (let ((__tmp78307 |[1]#_g78308_|)) + (let ((__tmp78563 + (let ((__tmp78568 + (let ((__tmp78569 |[1]#_g78570_|)) (declare (not safe)) - (cons 'e __tmp78307))) - (__tmp78302 - (let ((__tmp78303 - (let ((__tmp78304 |[1]#_g78305_|)) + (cons 'e __tmp78569))) + (__tmp78564 + (let ((__tmp78565 + (let ((__tmp78566 |[1]#_g78567_|)) (declare (not safe)) - (cons 'id __tmp78304)))) + (cons 'id __tmp78566)))) (declare (not safe)) - (cons __tmp78303 '())))) + (cons __tmp78565 '())))) (declare (not safe)) - (cons __tmp78306 __tmp78302)))) + (cons __tmp78568 __tmp78564)))) (declare (not safe)) (##unchecked-structure-set! - __obj77838 - __tmp78301 + __obj78100 + __tmp78563 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78309 - (let ((__tmp78314 - (let ((__tmp78315 |[1]#_g78316_|)) + (let ((__tmp78571 + (let ((__tmp78576 + (let ((__tmp78577 |[1]#_g78578_|)) (declare (not safe)) - (cons 'e __tmp78315))) - (__tmp78310 - (let ((__tmp78311 - (let ((__tmp78312 |[1]#_g78313_|)) + (cons 'e __tmp78577))) + (__tmp78572 + (let ((__tmp78573 + (let ((__tmp78574 |[1]#_g78575_|)) (declare (not safe)) - (cons 'id __tmp78312)))) + (cons 'id __tmp78574)))) (declare (not safe)) - (cons __tmp78311 '())))) + (cons __tmp78573 '())))) (declare (not safe)) - (cons __tmp78314 __tmp78310)))) + (cons __tmp78576 __tmp78572)))) (declare (not safe)) (##unchecked-structure-set! - __obj77838 - __tmp78309 + __obj78100 + __tmp78571 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj77838)) + __obj78100)) (define |[:0:]#__core-special-form| - (let ((__obj77839 + (let ((__obj78101 (let () (declare (not safe)) (##structure @@ -935,7 +935,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj78101 'gerbil/runtime/eval#__core-special-form::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -943,7 +943,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj78101 '__core-special-form '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -951,26 +951,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj78101 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78317 - (let ((__tmp78318 |[1]#_g78278_|)) + (let ((__tmp78579 + (let ((__tmp78580 |[1]#_g78540_|)) (declare (not safe)) - (cons __tmp78318 '())))) + (cons __tmp78580 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78317 + __obj78101 + __tmp78579 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj78101 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -978,7 +978,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj78101 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -986,7 +986,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj78101 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -994,327 +994,327 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj77839 + __obj78101 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78319 |[1]#_g78320_|)) + (let ((__tmp78581 |[1]#_g78582_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78319 + __obj78101 + __tmp78581 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78321 |[1]#_g78322_|)) + (let ((__tmp78583 |[1]#_g78584_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78321 + __obj78101 + __tmp78583 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78323 |[1]#_g78324_|)) + (let ((__tmp78585 |[1]#_g78586_|)) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78323 + __obj78101 + __tmp78585 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78325 - (let ((__tmp78330 - (let ((__tmp78331 |[1]#_g78332_|)) + (let ((__tmp78587 + (let ((__tmp78592 + (let ((__tmp78593 |[1]#_g78594_|)) (declare (not safe)) - (cons 'e __tmp78331))) - (__tmp78326 - (let ((__tmp78327 - (let ((__tmp78328 |[1]#_g78329_|)) + (cons 'e __tmp78593))) + (__tmp78588 + (let ((__tmp78589 + (let ((__tmp78590 |[1]#_g78591_|)) (declare (not safe)) - (cons 'id __tmp78328)))) + (cons 'id __tmp78590)))) (declare (not safe)) - (cons __tmp78327 '())))) + (cons __tmp78589 '())))) (declare (not safe)) - (cons __tmp78330 __tmp78326)))) + (cons __tmp78592 __tmp78588)))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78325 + __obj78101 + __tmp78587 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78333 - (let ((__tmp78338 - (let ((__tmp78339 |[1]#_g78340_|)) + (let ((__tmp78595 + (let ((__tmp78600 + (let ((__tmp78601 |[1]#_g78602_|)) (declare (not safe)) - (cons 'e __tmp78339))) - (__tmp78334 - (let ((__tmp78335 - (let ((__tmp78336 |[1]#_g78337_|)) + (cons 'e __tmp78601))) + (__tmp78596 + (let ((__tmp78597 + (let ((__tmp78598 |[1]#_g78599_|)) (declare (not safe)) - (cons 'id __tmp78336)))) + (cons 'id __tmp78598)))) (declare (not safe)) - (cons __tmp78335 '())))) + (cons __tmp78597 '())))) (declare (not safe)) - (cons __tmp78338 __tmp78334)))) + (cons __tmp78600 __tmp78596)))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78333 + __obj78101 + __tmp78595 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78341 - (let ((__tmp78346 - (let ((__tmp78347 |[1]#_g78348_|)) + (let ((__tmp78603 + (let ((__tmp78608 + (let ((__tmp78609 |[1]#_g78610_|)) (declare (not safe)) - (cons 'e __tmp78347))) - (__tmp78342 - (let ((__tmp78343 - (let ((__tmp78344 |[1]#_g78345_|)) + (cons 'e __tmp78609))) + (__tmp78604 + (let ((__tmp78605 + (let ((__tmp78606 |[1]#_g78607_|)) (declare (not safe)) - (cons 'id __tmp78344)))) + (cons 'id __tmp78606)))) (declare (not safe)) - (cons __tmp78343 '())))) + (cons __tmp78605 '())))) (declare (not safe)) - (cons __tmp78346 __tmp78342)))) + (cons __tmp78608 __tmp78604)))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78341 + __obj78101 + __tmp78603 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp78349 - (let ((__tmp78354 - (let ((__tmp78355 |[1]#_g78356_|)) + (let ((__tmp78611 + (let ((__tmp78616 + (let ((__tmp78617 |[1]#_g78618_|)) (declare (not safe)) - (cons 'e __tmp78355))) - (__tmp78350 - (let ((__tmp78351 - (let ((__tmp78352 |[1]#_g78353_|)) + (cons 'e __tmp78617))) + (__tmp78612 + (let ((__tmp78613 + (let ((__tmp78614 |[1]#_g78615_|)) (declare (not safe)) - (cons 'id __tmp78352)))) + (cons 'id __tmp78614)))) (declare (not safe)) - (cons __tmp78351 '())))) + (cons __tmp78613 '())))) (declare (not safe)) - (cons __tmp78354 __tmp78350)))) + (cons __tmp78616 __tmp78612)))) (declare (not safe)) (##unchecked-structure-set! - __obj77839 - __tmp78349 + __obj78101 + __tmp78611 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj77839)) + __obj78101)) (define |[:0:]#defcore-forms| - (lambda (_stx75402_) - (letrec ((_generate75405_ - (lambda (_id75769_ _compile75771_ _make75772_) - (let* ((_g7577475793_ - (lambda (_g7577575789_) + (lambda (_stx75664_) + (letrec ((_generate75667_ + (lambda (_id76031_ _compile76033_ _make76034_) + (let* ((_g7603676055_ + (lambda (_g7603776051_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7577575789_))) - (_g7577375852_ - (lambda (_g7577575797_) - (if (gx#stx-pair? _g7577575797_) - (let ((_e7578175800_ - (gx#syntax-e _g7577575797_))) - (let ((_hd7578075804_ + _g7603776051_))) + (_g7603576114_ + (lambda (_g7603776059_) + (if (gx#stx-pair? _g7603776059_) + (let ((_e7604376062_ + (gx#syntax-e _g7603776059_))) + (let ((_hd7604276066_ (let () (declare (not safe)) - (##car _e7578175800_))) - (_tl7577975807_ + (##car _e7604376062_))) + (_tl7604176069_ (let () (declare (not safe)) - (##cdr _e7578175800_)))) - (if (gx#stx-pair? _tl7577975807_) - (let ((_e7578475810_ - (gx#syntax-e _tl7577975807_))) - (let ((_hd7578375814_ + (##cdr _e7604376062_)))) + (if (gx#stx-pair? _tl7604176069_) + (let ((_e7604676072_ + (gx#syntax-e _tl7604176069_))) + (let ((_hd7604576076_ (let () (declare (not safe)) - (##car _e7578475810_))) - (_tl7578275817_ + (##car _e7604676072_))) + (_tl7604476079_ (let () (declare (not safe)) - (##cdr _e7578475810_)))) - (if (gx#stx-pair? _tl7578275817_) - (let ((_e7578775820_ + (##cdr _e7604676072_)))) + (if (gx#stx-pair? _tl7604476079_) + (let ((_e7604976082_ (gx#syntax-e - _tl7578275817_))) - (let ((_hd7578675824_ + _tl7604476079_))) + (let ((_hd7604876086_ (let () (declare (not safe)) - (##car _e7578775820_))) - (_tl7578575827_ + (##car _e7604976082_))) + (_tl7604776089_ (let () (declare (not safe)) - (##cdr _e7578775820_)))) + (##cdr _e7604976082_)))) (if (gx#stx-null? - _tl7578575827_) - ((lambda (_L75830_ + _tl7604776089_) + ((lambda (_L76092_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L75832_ - _L75833_) + _L76094_ + _L76095_) (let () - (let ((__tmp78363 + (let ((__tmp78625 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp78357 - (let ((__tmp78360 - (let ((__tmp78362 + (__tmp78619 + (let ((__tmp78622 + (let ((__tmp78624 (gx#datum->syntax '#f 'quote)) - (__tmp78361 + (__tmp78623 (let () (declare (not safe)) - (cons _L75833_ '())))) + (cons _L76095_ '())))) (declare (not safe)) - (cons __tmp78362 __tmp78361))) - (__tmp78358 - (let ((__tmp78359 + (cons __tmp78624 __tmp78623))) + (__tmp78620 + (let ((__tmp78621 (let () (declare (not safe)) - (cons _L75830_ '())))) + (cons _L76092_ '())))) (declare (not safe)) - (cons _L75832_ __tmp78359)))) + (cons _L76094_ __tmp78621)))) (declare (not safe)) - (cons __tmp78360 __tmp78358)))) + (cons __tmp78622 __tmp78620)))) (declare (not safe)) - (cons __tmp78363 __tmp78357)))) - _hd7578675824_ - _hd7578375814_ - _hd7578075804_) - (_g7577475793_ _g7577575797_)))) + (cons __tmp78625 __tmp78619)))) + _hd7604876086_ + _hd7604576076_ + _hd7604276066_) + (_g7603676055_ _g7603776059_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7577475793_ - _g7577575797_)))) - (_g7577475793_ _g7577575797_)))) - (_g7577475793_ _g7577575797_))))) - (_g7577375852_ - (list _id75769_ - (gx#stx-identifier _id75769_ '"__" _compile75771_) - _make75772_)))))) - (let* ((_g7540875428_ - (lambda (_g7540975424_) + (_g7603676055_ + _g7603776059_)))) + (_g7603676055_ _g7603776059_)))) + (_g7603676055_ _g7603776059_))))) + (_g7603576114_ + (list _id76031_ + (gx#stx-identifier _id76031_ '"__" _compile76033_) + _make76034_)))))) + (let* ((_g7567075690_ + (lambda (_g7567175686_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7540975424_))) - (_g7540775765_ - (lambda (_g7540975432_) - (if (gx#stx-pair? _g7540975432_) - (let ((_e7541375435_ (gx#syntax-e _g7540975432_))) - (let ((_hd7541275439_ + _g7567175686_))) + (_g7566976027_ + (lambda (_g7567175694_) + (if (gx#stx-pair? _g7567175694_) + (let ((_e7567575697_ (gx#syntax-e _g7567175694_))) + (let ((_hd7567475701_ (let () (declare (not safe)) - (##car _e7541375435_))) - (_tl7541175442_ + (##car _e7567575697_))) + (_tl7567375704_ (let () (declare (not safe)) - (##cdr _e7541375435_)))) - (if (gx#stx-pair/null? _tl7541175442_) - (let ((_g78364_ + (##cdr _e7567575697_)))) + (if (gx#stx-pair/null? _tl7567375704_) + (let ((_g78626_ (gx#syntax-split-splice - _tl7541175442_ + _tl7567375704_ '0))) (begin - (let ((_g78365_ + (let ((_g78627_ (let () (declare (not safe)) - (if (##values? _g78364_) - (##vector-length _g78364_) + (if (##values? _g78626_) + (##vector-length _g78626_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g78365_ 2))) + (##fx= _g78627_ 2))) (error "Context expects 2 values" - _g78365_))) - (let ((_target7541475445_ + _g78627_))) + (let ((_target7567675707_ (let () (declare (not safe)) - (##vector-ref _g78364_ 0))) - (_tl7541675448_ + (##vector-ref _g78626_ 0))) + (_tl7567875710_ (let () (declare (not safe)) - (##vector-ref _g78364_ 1)))) - (if (gx#stx-null? _tl7541675448_) - (letrec ((_loop7541775451_ - (lambda (_hd7541575455_ - _form7542175458_) + (##vector-ref _g78626_ 1)))) + (if (gx#stx-null? _tl7567875710_) + (letrec ((_loop7567975713_ + (lambda (_hd7567775717_ + _form7568375720_) (if (gx#stx-pair? - _hd7541575455_) - (let ((_e7541875461_ + _hd7567775717_) + (let ((_e7568075723_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd7541575455_))) - (let ((_lp-hd7541975465_ - (let () (declare (not safe)) (##car _e7541875461_))) - (_lp-tl7542075468_ + (gx#syntax-e _hd7567775717_))) + (let ((_lp-hd7568175727_ + (let () (declare (not safe)) (##car _e7568075723_))) + (_lp-tl7568275730_ (let () (declare (not safe)) - (##cdr _e7541875461_)))) - (_loop7541775451_ - _lp-tl7542075468_ + (##cdr _e7568075723_)))) + (_loop7567975713_ + _lp-tl7568275730_ (let () (declare (not safe)) - (cons _lp-hd7541975465_ _form7542175458_))))) - (let ((_form7542275471_ (reverse _form7542175458_))) - ((lambda (_L75475_) - (let _lp75493_ ((_rest75496_ - (let ((__tmp78370 - (lambda (_g7575675759_ - _g7575775762_) + (cons _lp-hd7568175727_ _form7568375720_))))) + (let ((_form7568475733_ (reverse _form7568375720_))) + ((lambda (_L75737_) + (let _lp75755_ ((_rest75758_ + (let ((__tmp78632 + (lambda (_g7601876021_ + _g7601976024_) (let () (declare (not safe)) - (cons _g7575675759_ - _g7575775762_))))) + (cons _g7601876021_ + _g7601976024_))))) (declare (not safe)) - (foldr1 __tmp78370 '() _L75475_))) - (_body75498_ '())) - (let* ((___stx7774377744_ _rest75496_) - (_g7550375550_ + (foldr1 __tmp78632 '() _L75737_))) + (_body75760_ '())) + (let* ((___stx7800578006_ _rest75758_) + (_g7576575812_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7774377744_)))) - (let ((___kont7774677747_ - (lambda (_L75731_ _L75733_ _L75734_) - (_lp75493_ - _L75731_ - (let ((__tmp78366 - (_generate75405_ - _L75734_ - _L75733_ + ___stx7800578006_)))) + (let ((___kont7800878009_ + (lambda (_L75993_ _L75995_ _L75996_) + (_lp75755_ + _L75993_ + (let ((__tmp78628 + (_generate75667_ + _L75996_ + _L75995_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp78366 _body75498_))))) - (___kont7774877749_ - (lambda (_L75658_ _L75660_ _L75661_) - (_lp75493_ - _L75658_ - (let ((__tmp78367 - (_generate75405_ - _L75661_ - _L75660_ + (cons __tmp78628 _body75760_))))) + (___kont7801078011_ + (lambda (_L75920_ _L75922_ _L75923_) + (_lp75755_ + _L75920_ + (let ((__tmp78629 + (_generate75667_ + _L75923_ + _L75922_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp78367 _body75498_))))) - (___kont7775077751_ - (lambda (_L75588_ _L75590_) - (_lp75493_ - _L75588_ - (let ((__tmp78368 - (_generate75405_ - _L75590_ + (cons __tmp78629 _body75760_))))) + (___kont7801278013_ + (lambda (_L75850_ _L75852_) + (_lp75755_ + _L75850_ + (let ((__tmp78630 + (_generate75667_ + _L75852_ (gx#datum->syntax '#f 'compile-error) @@ -1322,131 +1322,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp78368 _body75498_))))) - (___kont7775277753_ + (cons __tmp78630 _body75760_))))) + (___kont7801478015_ (lambda () - (let ((__tmp78369 (reverse _body75498_))) + (let ((__tmp78631 (reverse _body75760_))) (declare (not safe)) - (cons 'begin __tmp78369))))) - (let ((_g7550275561_ + (cons 'begin __tmp78631))))) + (let ((_g7576475823_ (lambda () - (if (gx#stx-null? ___stx7774377744_) - (___kont7775277753_) + (if (gx#stx-null? ___stx7800578006_) + (___kont7801478015_) (let () (declare (not safe)) - (_g7550375550_)))))) - (if (gx#stx-pair? ___stx7774377744_) - (let ((_e7551075687_ - (gx#syntax-e ___stx7774377744_))) - (let ((_tl7550875694_ + (_g7576575812_)))))) + (if (gx#stx-pair? ___stx7800578006_) + (let ((_e7577275949_ + (gx#syntax-e ___stx7800578006_))) + (let ((_tl7577075956_ (let () (declare (not safe)) - (##cdr _e7551075687_))) - (_hd7550975691_ + (##cdr _e7577275949_))) + (_hd7577175953_ (let () (declare (not safe)) - (##car _e7551075687_)))) - (if (gx#stx-pair? _hd7550975691_) - (let ((_e7551375697_ + (##car _e7577275949_)))) + (if (gx#stx-pair? _hd7577175953_) + (let ((_e7577575959_ (gx#syntax-e - _hd7550975691_))) - (let ((_tl7551175704_ + _hd7577175953_))) + (let ((_tl7577375966_ (let () (declare (not safe)) - (##cdr _e7551375697_))) - (_hd7551275701_ + (##cdr _e7577575959_))) + (_hd7577475963_ (let () (declare (not safe)) - (##car _e7551375697_)))) + (##car _e7577575959_)))) (if (gx#stx-pair? - _tl7551175704_) - (let ((_e7551675707_ + _tl7577375966_) + (let ((_e7577875969_ (gx#syntax-e - _tl7551175704_))) - (let ((_tl7551475714_ + _tl7577375966_))) + (let ((_tl7577675976_ (let () (declare (not safe)) - (##cdr _e7551675707_))) - (_hd7551575711_ + (##cdr _e7577875969_))) + (_hd7577775973_ (let () (declare (not safe)) - (##car _e7551675707_)))) + (##car _e7577875969_)))) (if (gx#stx-datum? - _hd7551575711_) - (let ((_e7551775717_ + _hd7577775973_) + (let ((_e7577975979_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd7551575711_))) + (gx#stx-e _hd7577775973_))) (if (let () (declare (not safe)) - (equal? _e7551775717_ 'expr:)) - (if (gx#stx-pair? _tl7551475714_) - (let ((_e7552075721_ - (gx#syntax-e _tl7551475714_))) - (let ((_tl7551875728_ + (equal? _e7577975979_ 'expr:)) + (if (gx#stx-pair? _tl7577675976_) + (let ((_e7578275983_ + (gx#syntax-e _tl7577675976_))) + (let ((_tl7578075990_ (let () (declare (not safe)) - (##cdr _e7552075721_))) - (_hd7551975725_ + (##cdr _e7578275983_))) + (_hd7578175987_ (let () (declare (not safe)) - (##car _e7552075721_)))) - (if (gx#stx-null? _tl7551875728_) - (___kont7774677747_ - _tl7550875694_ - _hd7551975725_ - _hd7551275701_) + (##car _e7578275983_)))) + (if (gx#stx-null? _tl7578075990_) + (___kont7800878009_ + _tl7577075956_ + _hd7578175987_ + _hd7577475963_) (let () (declare (not safe)) - (_g7550375550_))))) - (let () (declare (not safe)) (_g7550375550_))) + (_g7576575812_))))) + (let () (declare (not safe)) (_g7576575812_))) (if (let () (declare (not safe)) - (equal? _e7551775717_ 'special:)) - (if (gx#stx-pair? _tl7551475714_) - (let ((_e7553675648_ - (gx#syntax-e _tl7551475714_))) - (let ((_tl7553475655_ + (equal? _e7577975979_ 'special:)) + (if (gx#stx-pair? _tl7577675976_) + (let ((_e7579875910_ + (gx#syntax-e _tl7577675976_))) + (let ((_tl7579675917_ (let () (declare (not safe)) - (##cdr _e7553675648_))) - (_hd7553575652_ + (##cdr _e7579875910_))) + (_hd7579775914_ (let () (declare (not safe)) - (##car _e7553675648_)))) - (if (gx#stx-null? _tl7553475655_) - (___kont7774877749_ - _tl7550875694_ - _hd7553575652_ - _hd7551275701_) + (##car _e7579875910_)))) + (if (gx#stx-null? _tl7579675917_) + (___kont7801078011_ + _tl7577075956_ + _hd7579775914_ + _hd7577475963_) (let () (declare (not safe)) - (_g7550375550_))))) - (let () (declare (not safe)) (_g7550375550_))) - (let () (declare (not safe)) (_g7550375550_))))) - (let () (declare (not safe)) (_g7550375550_))))) + (_g7576575812_))))) + (let () (declare (not safe)) (_g7576575812_))) + (let () (declare (not safe)) (_g7576575812_))))) + (let () (declare (not safe)) (_g7576575812_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl7551175704_) - (___kont7775077751_ - _tl7550875694_ - _hd7551275701_) + _tl7577375966_) + (___kont7801278013_ + _tl7577075956_ + _hd7577475963_) (let () (declare (not safe)) - (_g7550375550_)))))) + (_g7576575812_)))))) (let () (declare (not safe)) - (_g7550375550_))))) + (_g7576575812_))))) (let () (declare (not safe)) - (_g7550275561_)))))))) - _form7542275471_)))))) + (_g7576475823_)))))))) + _form7568475733_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7541775451_ - _target7541475445_ + (_loop7567975713_ + _target7567675707_ '())) - (_g7540875428_ _g7540975432_))))) - (_g7540875428_ _g7540975432_)))) - (_g7540875428_ _g7540975432_))))) - (_g7540775765_ _stx75402_))))))) + (_g7567075690_ _g7567175694_))))) + (_g7567075690_ _g7567175694_)))) + (_g7567075690_ _g7567175694_))))) + (_g7566976027_ _stx75664_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 76381af5..e72b15fc 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 1709375797) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1709457368) '#!void) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index 00e2ff74..b0821ed5 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::ref69554_ - _locked-hash-table::ref69553_) + _locked-hash-table::ref69816_ + _locked-hash-table::ref69815_) (%#define-runtime - _locked-hash-table::set!69556_ - _locked-hash-table::set!69555_) + _locked-hash-table::set!69818_ + _locked-hash-table::set!69817_) (%#define-runtime - _locked-hash-table::update!69558_ - _locked-hash-table::update!69557_) + _locked-hash-table::update!69820_ + _locked-hash-table::update!69819_) (%#define-runtime - _locked-hash-table::delete!69560_ - _locked-hash-table::delete!69559_) + _locked-hash-table::delete!69822_ + _locked-hash-table::delete!69821_) (%#define-runtime - _locked-hash-table::for-each69562_ - _locked-hash-table::for-each69561_) + _locked-hash-table::for-each69824_ + _locked-hash-table::for-each69823_) (%#define-runtime - _locked-hash-table::length69564_ - _locked-hash-table::length69563_) + _locked-hash-table::length69826_ + _locked-hash-table::length69825_) (%#define-runtime - _locked-hash-table::copy69566_ - _locked-hash-table::copy69565_) + _locked-hash-table::copy69828_ + _locked-hash-table::copy69827_) (%#define-runtime - _locked-hash-table::clear!69568_ - _locked-hash-table::clear!69567_) + _locked-hash-table::clear!69830_ + _locked-hash-table::clear!69829_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-syntax check-hash-arg |[:0:]#check-hash-arg|) (%#define-runtime - _checked-hash-table::ref69846_ - _checked-hash-table::ref69845_) + _checked-hash-table::ref70108_ + _checked-hash-table::ref70107_) (%#define-runtime - _checked-hash-table::set!69848_ - _checked-hash-table::set!69847_) + _checked-hash-table::set!70110_ + _checked-hash-table::set!70109_) (%#define-runtime - _checked-hash-table::update!69850_ - _checked-hash-table::update!69849_) + _checked-hash-table::update!70112_ + _checked-hash-table::update!70111_) (%#define-runtime - _checked-hash-table::delete!69852_ - _checked-hash-table::delete!69851_) + _checked-hash-table::delete!70114_ + _checked-hash-table::delete!70113_) (%#define-runtime - _checked-hash-table::for-each69854_ - _checked-hash-table::for-each69853_) + _checked-hash-table::for-each70116_ + _checked-hash-table::for-each70115_) (%#define-runtime - _checked-hash-table::length69856_ - _checked-hash-table::length69855_) + _checked-hash-table::length70118_ + _checked-hash-table::length70117_) (%#define-runtime - _checked-hash-table::copy69858_ - _checked-hash-table::copy69857_) + _checked-hash-table::copy70120_ + _checked-hash-table::copy70119_) (%#define-runtime - _checked-hash-table::clear!69860_ - _checked-hash-table::clear!69859_) + _checked-hash-table::clear!70122_ + _checked-hash-table::clear!70121_) (%#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 c0111e35..feda9757 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -207,14 +207,14 @@ package: gerbil/runtime #t #t #f - ((for-each . _locked-hash-table::for-each69561_) - (copy . _locked-hash-table::copy69565_) - (length . _locked-hash-table::length69563_) - (clear! . _locked-hash-table::clear!69567_) - (delete! . _locked-hash-table::delete!69559_) - (set! . _locked-hash-table::set!69555_) - (ref . _locked-hash-table::ref69553_) - (update! . _locked-hash-table::update!69557_)))) + ((clear! . _locked-hash-table::clear!69829_) + (set! . _locked-hash-table::set!69817_) + (for-each . _locked-hash-table::for-each69823_) + (ref . _locked-hash-table::ref69815_) + (update! . _locked-hash-table::update!69819_) + (copy . _locked-hash-table::copy69827_) + (length . _locked-hash-table::length69825_) + (delete! . _locked-hash-table::delete!69821_)))) (declare-type locked-hash-table? (@predicate locked-hash-table::t)) (declare-type make-locked-hash-table (@constructor locked-hash-table::t)) (declare-type @@ -252,14 +252,14 @@ package: gerbil/runtime #t #t #f - ((for-each . _checked-hash-table::for-each69853_) - (copy . _checked-hash-table::copy69857_) - (length . _checked-hash-table::length69855_) - (clear! . _checked-hash-table::clear!69859_) - (delete! . _checked-hash-table::delete!69851_) - (set! . _checked-hash-table::set!69847_) - (ref . _checked-hash-table::ref69845_) - (update! . _checked-hash-table::update!69849_)))) + ((clear! . _checked-hash-table::clear!70121_) + (set! . _checked-hash-table::set!70109_) + (for-each . _checked-hash-table::for-each70115_) + (ref . _checked-hash-table::ref70107_) + (update! . _checked-hash-table::update!70111_) + (copy . _checked-hash-table::copy70119_) + (length . _checked-hash-table::length70117_) + (delete! . _checked-hash-table::delete!70113_)))) (declare-type checked-hash-table? (@predicate checked-hash-table::t)) (declare-type make-checked-hash-table (@constructor checked-hash-table::t)) (declare-type @@ -380,22 +380,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::ref69553_ (@lambda 3 #f)) - (declare-type _locked-hash-table::set!69555_ (@lambda 3 #f)) - (declare-type _locked-hash-table::update!69557_ (@lambda 4 #f)) - (declare-type _locked-hash-table::delete!69559_ (@lambda 2 #f)) - (declare-type _locked-hash-table::for-each69561_ (@lambda 2 #f)) - (declare-type _locked-hash-table::length69563_ (@lambda 1 #f)) - (declare-type _locked-hash-table::copy69565_ (@lambda 1 #f)) - (declare-type _locked-hash-table::clear!69567_ (@lambda 1 #f)) - (declare-type _checked-hash-table::ref69845_ (@lambda 3 #f)) - (declare-type _checked-hash-table::set!69847_ (@lambda 3 #f)) - (declare-type _checked-hash-table::update!69849_ (@lambda 4 #f)) - (declare-type _checked-hash-table::delete!69851_ (@lambda 2 #f)) - (declare-type _checked-hash-table::for-each69853_ (@lambda 2 #f)) - (declare-type _checked-hash-table::length69855_ (@lambda 1 #f)) - (declare-type _checked-hash-table::copy69857_ (@lambda 1 #f)) - (declare-type _checked-hash-table::clear!69859_ (@lambda 1 #f)) + (declare-type _locked-hash-table::ref69815_ (@lambda 3 #f)) + (declare-type _locked-hash-table::set!69817_ (@lambda 3 #f)) + (declare-type _locked-hash-table::update!69819_ (@lambda 4 #f)) + (declare-type _locked-hash-table::delete!69821_ (@lambda 2 #f)) + (declare-type _locked-hash-table::for-each69823_ (@lambda 2 #f)) + (declare-type _locked-hash-table::length69825_ (@lambda 1 #f)) + (declare-type _locked-hash-table::copy69827_ (@lambda 1 #f)) + (declare-type _locked-hash-table::clear!69829_ (@lambda 1 #f)) + (declare-type _checked-hash-table::ref70107_ (@lambda 3 #f)) + (declare-type _checked-hash-table::set!70109_ (@lambda 3 #f)) + (declare-type _checked-hash-table::update!70111_ (@lambda 4 #f)) + (declare-type _checked-hash-table::delete!70113_ (@lambda 2 #f)) + (declare-type _checked-hash-table::for-each70115_ (@lambda 2 #f)) + (declare-type _checked-hash-table::length70117_ (@lambda 1 #f)) + (declare-type _checked-hash-table::copy70119_ (@lambda 1 #f)) + (declare-type _checked-hash-table::clear!70121_ (@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 dfd3a370..8b996937 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 1709375797) + (define gerbil/runtime/hash::timestamp 1709457369) (begin (define UnboundKeyError::t - (let ((__tmp72839 (list Error::t))) + (let ((__tmp73101 (list Error::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp72839 + __tmp73101 '() '() ':init!))) (define UnboundKeyError? (let () (declare (not safe)) (make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _$args72822_ - (apply make-instance UnboundKeyError::t _$args72822_))) + (lambda _$args73084_ + (apply make-instance UnboundKeyError::t _$args73084_))) (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 (_where72696_ _message72697_ . _irritants72698_) - (raise (let ((__obj72836 + (lambda (_where72958_ _message72959_ . _irritants72960_) + (raise (let ((__obj73098 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (UnboundKeyError:::init! - __obj72836 - _message72697_ + __obj73098 + _message72959_ 'where: - _where72696_ + _where72958_ 'irritants: - _irritants72698_) - __obj72836)))) + _irritants72960_) + __obj73098)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp72844 (list interface-instance::t)) - (__tmp72840 - (let ((__tmp72843 + (let ((__tmp73106 (list interface-instance::t)) + (__tmp73102 + (let ((__tmp73105 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp72841 - (let ((__tmp72842 + (__tmp73103 + (let ((__tmp73104 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp72842 '())))) + (cons __tmp73104 '())))) (declare (not safe)) - (cons __tmp72843 __tmp72841)))) + (cons __tmp73105 __tmp73103)))) (declare (not safe)) (make-class-type 'gerbil#HashTable::t 'HashTable - __tmp72844 + __tmp73106 '(ref set! update! delete! for-each length copy clear) - __tmp72840 + __tmp73102 '#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 ((__tmp72849 (list interface-instance::t)) - (__tmp72845 - (let ((__tmp72848 + (let ((__tmp73111 (list interface-instance::t)) + (__tmp73107 + (let ((__tmp73110 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp72846 - (let ((__tmp72847 + (__tmp73108 + (let ((__tmp73109 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp72847 '())))) + (cons __tmp73109 '())))) (declare (not safe)) - (cons __tmp72848 __tmp72846)))) + (cons __tmp73110 __tmp73108)))) (declare (not safe)) (make-class-type 'gerbil#HashTableLock::t 'HashTableLock - __tmp72849 + __tmp73111 '(begin-read! end-read! begin-write! end-write!) - __tmp72845 + __tmp73107 '#f))) (define HashTableLock? (let () (declare (not safe)) (make-class-predicate HashTableLock::t))) @@ -399,206 +399,206 @@ (declare (not safe)) (bind-method!__0 __gc-table::t 'clear! gc-table-clear!)) (define gambit-table-update! - (lambda (_table72689_ _key72690_ _update72691_ _default72692_) - (let ((_result72694_ - (table-ref _table72689_ _key72690_ _default72692_))) + (lambda (_table72951_ _key72952_ _update72953_ _default72954_) + (let ((_result72956_ + (table-ref _table72951_ _key72952_ _default72954_))) (table-set! - _table72689_ - _key72690_ - (_update72691_ _default72692_))))) + _table72951_ + _key72952_ + (_update72953_ _default72954_))))) (define gambit-table-for-each - (lambda (_table72686_ _proc72687_) - (table-for-each _proc72687_ _table72686_))) + (lambda (_table72948_ _proc72949_) + (table-for-each _proc72949_ _table72948_))) (define gambit-table-clear! - (lambda (_table72684_) + (lambda (_table72946_) (let () (declare (not safe)) - (##unchecked-structure-set! _table72684_ '0 '5 '#f '#f)))) - (let ((__tmp72850 (macro-type-table))) + (##unchecked-structure-set! _table72946_ '0 '5 '#f '#f)))) + (let ((__tmp73112 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72850 'ref table-ref)) - (let ((__tmp72851 (macro-type-table))) + (bind-method!__0 __tmp73112 'ref table-ref)) + (let ((__tmp73113 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72851 'set! table-set!)) - (let ((__tmp72852 (macro-type-table))) + (bind-method!__0 __tmp73113 'set! table-set!)) + (let ((__tmp73114 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72852 'update! gambit-table-update!)) - (let ((__tmp72853 (macro-type-table))) + (bind-method!__0 __tmp73114 'update! gambit-table-update!)) + (let ((__tmp73115 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72853 'delete! table-set!)) - (let ((__tmp72854 (macro-type-table))) + (bind-method!__0 __tmp73115 'delete! table-set!)) + (let ((__tmp73116 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72854 'for-each gambit-table-for-each)) - (let ((__tmp72855 (macro-type-table))) + (bind-method!__0 __tmp73116 'for-each gambit-table-for-each)) + (let ((__tmp73117 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72855 'length table-length)) - (let ((__tmp72856 (macro-type-table))) + (bind-method!__0 __tmp73117 'length table-length)) + (let ((__tmp73118 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72856 'copy table-copy)) - (let ((__tmp72857 (macro-type-table))) + (bind-method!__0 __tmp73118 'copy table-copy)) + (let ((__tmp73119 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp72857 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp73119 'clear! gambit-table-clear!)) (define hash-table::t - (let* ((_slots72666_ '(table count free hash test seed)) - (_slot-vector72668_ + (let* ((_slots72928_ '(table count free hash test seed)) + (_slot-vector72930_ (list->vector - (let () (declare (not safe)) (cons '#f _slots72666_)))) - (_slot-table72675_ - (let ((_slot-table72670_ + (let () (declare (not safe)) (cons '#f _slots72928_)))) + (_slot-table72937_ + (let ((_slot-table72932_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot72672_ _field72673_) + (lambda (_slot72934_ _field72935_) (let () (declare (not safe)) (symbolic-table-set! - _slot-table72670_ - _slot72672_ - _field72673_)) - (let ((__tmp72858 (symbol->keyword _slot72672_))) + _slot-table72932_ + _slot72934_ + _field72935_)) + (let ((__tmp73120 (symbol->keyword _slot72934_))) (declare (not safe)) (symbolic-table-set! - _slot-table72670_ - __tmp72858 - _field72673_))) - _slots72666_ - (let ((__tmp72859 (length _slots72666_))) + _slot-table72932_ + __tmp73120 + _field72935_))) + _slots72928_ + (let ((__tmp73121 (length _slots72928_))) (declare (not safe)) - (iota__1 __tmp72859 '1))) - _slot-table72670_)) - (_flags72677_ + (iota__1 __tmp73121 '1))) + _slot-table72932_)) + (_flags72939_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields72679_ '#()) - (_properties72681_ - (let ((__tmp72862 - (let ((__tmp72863 + (_fields72941_ '#()) + (_properties72943_ + (let ((__tmp73124 + (let ((__tmp73125 (let () (declare (not safe)) - (foldr1 cons '() _slots72666_)))) + (foldr1 cons '() _slots72928_)))) (declare (not safe)) - (cons 'direct-slots: __tmp72863))) - (__tmp72860 - (let ((__tmp72861 + (cons 'direct-slots: __tmp73125))) + (__tmp73122 + (let ((__tmp73123 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72861 '())))) + (cons __tmp73123 '())))) (declare (not safe)) - (cons __tmp72862 __tmp72860)))) + (cons __tmp73124 __tmp73122)))) (let () (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _flags72677_ + _flags72939_ __table::t - _fields72679_ + _fields72941_ '() - _slot-vector72668_ - _slot-table72675_ - _properties72681_ + _slot-vector72930_ + _slot-table72937_ + _properties72943_ '#f '#f)))) (define gc-hash-table::t - (let* ((_slots72648_ '(gcht immediate)) - (_slot-vector72650_ + (let* ((_slots72910_ '(gcht immediate)) + (_slot-vector72912_ (list->vector - (let () (declare (not safe)) (cons '#f _slots72648_)))) - (_slot-table72657_ - (let ((_slot-table72652_ + (let () (declare (not safe)) (cons '#f _slots72910_)))) + (_slot-table72919_ + (let ((_slot-table72914_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot72654_ _field72655_) + (lambda (_slot72916_ _field72917_) (let () (declare (not safe)) (symbolic-table-set! - _slot-table72652_ - _slot72654_ - _field72655_)) - (let ((__tmp72864 (symbol->keyword _slot72654_))) + _slot-table72914_ + _slot72916_ + _field72917_)) + (let ((__tmp73126 (symbol->keyword _slot72916_))) (declare (not safe)) (symbolic-table-set! - _slot-table72652_ - __tmp72864 - _field72655_))) - _slots72648_ - (let ((__tmp72865 (length _slots72648_))) + _slot-table72914_ + __tmp73126 + _field72917_))) + _slots72910_ + (let ((__tmp73127 (length _slots72910_))) (declare (not safe)) - (iota__1 __tmp72865 '1))) - _slot-table72652_)) - (_flags72659_ + (iota__1 __tmp73127 '1))) + _slot-table72914_)) + (_flags72921_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields72661_ '#()) - (_properties72663_ - (let ((__tmp72868 - (let ((__tmp72869 + (_fields72923_ '#()) + (_properties72925_ + (let ((__tmp73130 + (let ((__tmp73131 (let () (declare (not safe)) - (foldr1 cons '() _slots72648_)))) + (foldr1 cons '() _slots72910_)))) (declare (not safe)) - (cons 'direct-slots: __tmp72869))) - (__tmp72866 - (let ((__tmp72867 + (cons 'direct-slots: __tmp73131))) + (__tmp73128 + (let ((__tmp73129 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72867 '())))) + (cons __tmp73129 '())))) (declare (not safe)) - (cons __tmp72868 __tmp72866)))) + (cons __tmp73130 __tmp73128)))) (let () (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'gc-hash-table - _flags72659_ + _flags72921_ __gc-table::t - _fields72661_ + _fields72923_ '() - _slot-vector72650_ - _slot-table72657_ - _properties72663_ + _slot-vector72912_ + _slot-table72919_ + _properties72925_ '#f '#f)))) (define locked-hash-table::t - (let ((__tmp72874 (list)) - (__tmp72870 - (let ((__tmp72873 + (let ((__tmp73136 (list)) + (__tmp73132 + (let ((__tmp73135 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp72871 - (let ((__tmp72872 + (__tmp73133 + (let ((__tmp73134 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp72872 '())))) + (cons __tmp73134 '())))) (declare (not safe)) - (cons __tmp72873 __tmp72871)))) + (cons __tmp73135 __tmp73133)))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp72874 + __tmp73136 '(table lock) - __tmp72870 + __tmp73132 '#f))) (define locked-hash-table? (let () (declare (not safe)) (make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _$args72645_ - (apply make-instance locked-hash-table::t _$args72645_))) + (lambda _$args72907_ + (apply make-instance locked-hash-table::t _$args72907_))) (define locked-hash-table-table (let () (declare (not safe)) @@ -632,32 +632,32 @@ (declare (not safe)) (make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) (define checked-hash-table::t - (let ((__tmp72879 (list)) - (__tmp72875 - (let ((__tmp72878 + (let ((__tmp73141 (list)) + (__tmp73137 + (let ((__tmp73140 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp72876 - (let ((__tmp72877 + (__tmp73138 + (let ((__tmp73139 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp72877 '())))) + (cons __tmp73139 '())))) (declare (not safe)) - (cons __tmp72878 __tmp72876)))) + (cons __tmp73140 __tmp73138)))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp72879 + __tmp73141 '(table key-check) - __tmp72875 + __tmp73137 '#f))) (define checked-hash-table? (let () (declare (not safe)) (make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _$args72642_ - (apply make-instance checked-hash-table::t _$args72642_))) + (lambda _$args72904_ + (apply make-instance checked-hash-table::t _$args72904_))) (define checked-hash-table-table (let () (declare (not safe)) @@ -691,111 +691,111 @@ (declare (not safe)) (make-class-slot-unchecked-mutator checked-hash-table::t 'key-check))) (define eq-hash-table::t - (let ((__tmp72882 (list hash-table::t)) - (__tmp72880 - (let ((__tmp72881 + (let ((__tmp73144 (list hash-table::t)) + (__tmp73142 + (let ((__tmp73143 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72881 '())))) + (cons __tmp73143 '())))) (declare (not safe)) (make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp72882 + __tmp73144 '() - __tmp72880 + __tmp73142 '#f))) (define eq-hash-table? (let () (declare (not safe)) (make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _$args72639_ - (apply make-instance eq-hash-table::t _$args72639_))) + (lambda _$args72901_ + (apply make-instance eq-hash-table::t _$args72901_))) (define eqv-hash-table::t - (let ((__tmp72885 (list hash-table::t)) - (__tmp72883 - (let ((__tmp72884 + (let ((__tmp73147 (list hash-table::t)) + (__tmp73145 + (let ((__tmp73146 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72884 '())))) + (cons __tmp73146 '())))) (declare (not safe)) (make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp72885 + __tmp73147 '() - __tmp72883 + __tmp73145 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _$args72636_ - (apply make-instance eqv-hash-table::t _$args72636_))) + (lambda _$args72898_ + (apply make-instance eqv-hash-table::t _$args72898_))) (define symbol-hash-table::t - (let ((__tmp72888 (list hash-table::t)) - (__tmp72886 - (let ((__tmp72887 + (let ((__tmp73150 (list hash-table::t)) + (__tmp73148 + (let ((__tmp73149 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72887 '())))) + (cons __tmp73149 '())))) (declare (not safe)) (make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp72888 + __tmp73150 '() - __tmp72886 + __tmp73148 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _$args72633_ - (apply make-instance symbol-hash-table::t _$args72633_))) + (lambda _$args72895_ + (apply make-instance symbol-hash-table::t _$args72895_))) (define string-hash-table::t - (let ((__tmp72891 (list hash-table::t)) - (__tmp72889 - (let ((__tmp72890 + (let ((__tmp73153 (list hash-table::t)) + (__tmp73151 + (let ((__tmp73152 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72890 '())))) + (cons __tmp73152 '())))) (declare (not safe)) (make-class-type 'gerbil#string-hash-table 'hash-table - __tmp72891 + __tmp73153 '() - __tmp72889 + __tmp73151 '#f))) (define string-hash-table? (let () (declare (not safe)) (make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _$args72630_ - (apply make-instance string-hash-table::t _$args72630_))) + (lambda _$args72892_ + (apply make-instance string-hash-table::t _$args72892_))) (define immediate-hash-table::t - (let ((__tmp72894 (list hash-table::t)) - (__tmp72892 - (let ((__tmp72893 + (let ((__tmp73156 (list hash-table::t)) + (__tmp73154 + (let ((__tmp73155 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp72893 '())))) + (cons __tmp73155 '())))) (declare (not safe)) (make-class-type 'gerbil#immediate-hash-table 'hash-table - __tmp72894 + __tmp73156 '() - __tmp72892 + __tmp73154 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _$args72627_ - (apply make-instance immediate-hash-table::t _$args72627_))) + (lambda _$args72889_ + (apply make-instance immediate-hash-table::t _$args72889_))) (let () (declare (not safe)) (bind-method!__0 hash-table::t 'ref raw-table-ref)) @@ -911,262 +911,262 @@ (declare (not safe)) (bind-method!__0 gc-hash-table::t 'clear! gc-table-clear!)) (define hash-table? - (lambda (_obj72625_) - (if (let () (declare (not safe)) (##structure? _obj72625_)) - (let ((__tmp72895 + (lambda (_obj72887_) + (if (let () (declare (not safe)) (##structure? _obj72887_)) + (let ((__tmp73157 (let () (declare (not safe)) - (##structure-type _obj72625_)))) + (##structure-type _obj72887_)))) (declare (not safe)) - (eq? __tmp72895 HashTable::t)) + (eq? __tmp73157 HashTable::t)) '#f))) (define is-hash-table? - (lambda (_obj72620_) - (let ((_$e72622_ - (if (let () (declare (not safe)) (##structure? _obj72620_)) - (let ((__tmp72896 + (lambda (_obj72882_) + (let ((_$e72884_ + (if (let () (declare (not safe)) (##structure? _obj72882_)) + (let ((__tmp73158 (let () (declare (not safe)) - (##structure-type _obj72620_)))) + (##structure-type _obj72882_)))) (declare (not safe)) - (eq? __tmp72896 HashTable::t)) + (eq? __tmp73158 HashTable::t)) '#f))) - (if _$e72622_ - _$e72622_ + (if _$e72884_ + _$e72884_ (let () (declare (not safe)) - (satisfies? HashTable::interface _obj72620_)))))) + (satisfies? HashTable::interface _obj72882_)))))) (define HashTable-ref - (lambda (_h72614_ _key72615_ _default72616_) - (let ((_h72618_ - (if (and (let () (declare (not safe)) (##structure? _h72614_)) - (let ((__tmp72897 + (lambda (_h72876_ _key72877_ _default72878_) + (let ((_h72880_ + (if (and (let () (declare (not safe)) (##structure? _h72876_)) + (let ((__tmp73159 (let () (declare (not safe)) - (##structure-type _h72614_)))) + (##structure-type _h72876_)))) (declare (not safe)) - (eq? __tmp72897 HashTable::t))) - _h72614_ + (eq? __tmp73159 HashTable::t))) + _h72876_ (let () (declare (not safe)) - (cast HashTable::interface _h72614_))))) + (cast HashTable::interface _h72876_))))) (declare (not safe)) - (&HashTable-ref _h72618_ _key72615_ _default72616_)))) + (&HashTable-ref _h72880_ _key72877_ _default72878_)))) (define &HashTable-ref - (lambda (_h72609_ _key72610_ _default72611_) + (lambda (_h72871_ _key72872_ _default72873_) (declare (not safe)) - ((##unchecked-structure-ref _h72609_ '2 HashTable::t '#f) - (##unchecked-structure-ref _h72609_ '1 interface-instance::t '#f) - _key72610_ - _default72611_))) + ((##unchecked-structure-ref _h72871_ '2 HashTable::t '#f) + (##unchecked-structure-ref _h72871_ '1 interface-instance::t '#f) + _key72872_ + _default72873_))) (define HashTable-set! - (lambda (_h72603_ _key72604_ _value72605_) - (let ((_h72607_ - (if (and (let () (declare (not safe)) (##structure? _h72603_)) - (let ((__tmp72898 + (lambda (_h72865_ _key72866_ _value72867_) + (let ((_h72869_ + (if (and (let () (declare (not safe)) (##structure? _h72865_)) + (let ((__tmp73160 (let () (declare (not safe)) - (##structure-type _h72603_)))) + (##structure-type _h72865_)))) (declare (not safe)) - (eq? __tmp72898 HashTable::t))) - _h72603_ + (eq? __tmp73160 HashTable::t))) + _h72865_ (let () (declare (not safe)) - (cast HashTable::interface _h72603_))))) + (cast HashTable::interface _h72865_))))) (declare (not safe)) - (&HashTable-set! _h72607_ _key72604_ _value72605_)))) + (&HashTable-set! _h72869_ _key72866_ _value72867_)))) (define &HashTable-set! - (lambda (_h72598_ _key72599_ _value72600_) + (lambda (_h72860_ _key72861_ _value72862_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72598_ '3 HashTable::t '#f) - (##unchecked-structure-ref _h72598_ '1 interface-instance::t '#f) - _key72599_ - _value72600_) + ((##unchecked-structure-ref _h72860_ '3 HashTable::t '#f) + (##unchecked-structure-ref _h72860_ '1 interface-instance::t '#f) + _key72861_ + _value72862_) '#!void))) (define HashTable-update! - (lambda (_h72591_ _key72592_ _update72593_ _default72594_) - (let ((_h72596_ - (if (and (let () (declare (not safe)) (##structure? _h72591_)) - (let ((__tmp72899 + (lambda (_h72853_ _key72854_ _update72855_ _default72856_) + (let ((_h72858_ + (if (and (let () (declare (not safe)) (##structure? _h72853_)) + (let ((__tmp73161 (let () (declare (not safe)) - (##structure-type _h72591_)))) + (##structure-type _h72853_)))) (declare (not safe)) - (eq? __tmp72899 HashTable::t))) - _h72591_ + (eq? __tmp73161 HashTable::t))) + _h72853_ (let () (declare (not safe)) - (cast HashTable::interface _h72591_))))) + (cast HashTable::interface _h72853_))))) (declare (not safe)) (&HashTable-update! - _h72596_ - _key72592_ - _update72593_ - _default72594_)))) + _h72858_ + _key72854_ + _update72855_ + _default72856_)))) (define &HashTable-update! - (lambda (_h72585_ _key72586_ _update72587_ _default72588_) + (lambda (_h72847_ _key72848_ _update72849_ _default72850_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72585_ '4 HashTable::t '#f) - (##unchecked-structure-ref _h72585_ '1 interface-instance::t '#f) - _key72586_ - _update72587_ - _default72588_) + ((##unchecked-structure-ref _h72847_ '4 HashTable::t '#f) + (##unchecked-structure-ref _h72847_ '1 interface-instance::t '#f) + _key72848_ + _update72849_ + _default72850_) '#!void))) (define HashTable-delete! - (lambda (_h72580_ _key72581_) - (let ((_h72583_ - (if (and (let () (declare (not safe)) (##structure? _h72580_)) - (let ((__tmp72900 + (lambda (_h72842_ _key72843_) + (let ((_h72845_ + (if (and (let () (declare (not safe)) (##structure? _h72842_)) + (let ((__tmp73162 (let () (declare (not safe)) - (##structure-type _h72580_)))) + (##structure-type _h72842_)))) (declare (not safe)) - (eq? __tmp72900 HashTable::t))) - _h72580_ + (eq? __tmp73162 HashTable::t))) + _h72842_ (let () (declare (not safe)) - (cast HashTable::interface _h72580_))))) + (cast HashTable::interface _h72842_))))) (declare (not safe)) - (&HashTable-delete! _h72583_ _key72581_)))) + (&HashTable-delete! _h72845_ _key72843_)))) (define &HashTable-delete! - (lambda (_h72576_ _key72577_) + (lambda (_h72838_ _key72839_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72576_ '5 HashTable::t '#f) - (##unchecked-structure-ref _h72576_ '1 interface-instance::t '#f) - _key72577_) + ((##unchecked-structure-ref _h72838_ '5 HashTable::t '#f) + (##unchecked-structure-ref _h72838_ '1 interface-instance::t '#f) + _key72839_) '#!void))) (define HashTable-for-each - (lambda (_h72571_ _proc72572_) - (let ((_h72574_ - (if (and (let () (declare (not safe)) (##structure? _h72571_)) - (let ((__tmp72901 + (lambda (_h72833_ _proc72834_) + (let ((_h72836_ + (if (and (let () (declare (not safe)) (##structure? _h72833_)) + (let ((__tmp73163 (let () (declare (not safe)) - (##structure-type _h72571_)))) + (##structure-type _h72833_)))) (declare (not safe)) - (eq? __tmp72901 HashTable::t))) - _h72571_ + (eq? __tmp73163 HashTable::t))) + _h72833_ (let () (declare (not safe)) - (cast HashTable::interface _h72571_))))) + (cast HashTable::interface _h72833_))))) (declare (not safe)) - (&HashTable-for-each _h72574_ _proc72572_)))) + (&HashTable-for-each _h72836_ _proc72834_)))) (define &HashTable-for-each - (lambda (_h72567_ _proc72568_) + (lambda (_h72829_ _proc72830_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72567_ '6 HashTable::t '#f) - (##unchecked-structure-ref _h72567_ '1 interface-instance::t '#f) - _proc72568_) + ((##unchecked-structure-ref _h72829_ '6 HashTable::t '#f) + (##unchecked-structure-ref _h72829_ '1 interface-instance::t '#f) + _proc72830_) '#!void))) (define HashTable-length - (lambda (_h72563_) - (let ((_h72565_ - (if (and (let () (declare (not safe)) (##structure? _h72563_)) - (let ((__tmp72902 + (lambda (_h72825_) + (let ((_h72827_ + (if (and (let () (declare (not safe)) (##structure? _h72825_)) + (let ((__tmp73164 (let () (declare (not safe)) - (##structure-type _h72563_)))) + (##structure-type _h72825_)))) (declare (not safe)) - (eq? __tmp72902 HashTable::t))) - _h72563_ + (eq? __tmp73164 HashTable::t))) + _h72825_ (let () (declare (not safe)) - (cast HashTable::interface _h72563_))))) + (cast HashTable::interface _h72825_))))) (declare (not safe)) - (&HashTable-length _h72565_)))) + (&HashTable-length _h72827_)))) (define &HashTable-length - (lambda (_h72560_) + (lambda (_h72822_) (declare (not safe)) - ((##unchecked-structure-ref _h72560_ '7 HashTable::t '#f) - (##unchecked-structure-ref _h72560_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _h72822_ '7 HashTable::t '#f) + (##unchecked-structure-ref _h72822_ '1 interface-instance::t '#f)))) (define HashTable-copy - (lambda (_h72556_) - (let ((_h72558_ - (if (and (let () (declare (not safe)) (##structure? _h72556_)) - (let ((__tmp72903 + (lambda (_h72818_) + (let ((_h72820_ + (if (and (let () (declare (not safe)) (##structure? _h72818_)) + (let ((__tmp73165 (let () (declare (not safe)) - (##structure-type _h72556_)))) + (##structure-type _h72818_)))) (declare (not safe)) - (eq? __tmp72903 HashTable::t))) - _h72556_ + (eq? __tmp73165 HashTable::t))) + _h72818_ (let () (declare (not safe)) - (cast HashTable::interface _h72556_))))) + (cast HashTable::interface _h72818_))))) (declare (not safe)) - (&HashTable-copy _h72558_)))) + (&HashTable-copy _h72820_)))) (define &HashTable-copy - (lambda (_h72553_) + (lambda (_h72815_) (declare (not safe)) (cast HashTable::interface - ((##unchecked-structure-ref _h72553_ '8 HashTable::t '#f) + ((##unchecked-structure-ref _h72815_ '8 HashTable::t '#f) (##unchecked-structure-ref - _h72553_ + _h72815_ '1 interface-instance::t '#f))))) (define HashTable-clear! - (lambda (_h72549_) - (let ((_h72551_ - (if (and (let () (declare (not safe)) (##structure? _h72549_)) - (let ((__tmp72904 + (lambda (_h72811_) + (let ((_h72813_ + (if (and (let () (declare (not safe)) (##structure? _h72811_)) + (let ((__tmp73166 (let () (declare (not safe)) - (##structure-type _h72549_)))) + (##structure-type _h72811_)))) (declare (not safe)) - (eq? __tmp72904 HashTable::t))) - _h72549_ + (eq? __tmp73166 HashTable::t))) + _h72811_ (let () (declare (not safe)) - (cast HashTable::interface _h72549_))))) + (cast HashTable::interface _h72811_))))) (declare (not safe)) - (&HashTable-clear! _h72551_)))) + (&HashTable-clear! _h72813_)))) (define &HashTable-clear! - (lambda (_h72546_) + (lambda (_h72808_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h72546_ '9 HashTable::t '#f) - (##unchecked-structure-ref _h72546_ '1 interface-instance::t '#f)) + ((##unchecked-structure-ref _h72808_ '9 HashTable::t '#f) + (##unchecked-structure-ref _h72808_ '1 interface-instance::t '#f)) '#!void))) (define &HashTableLock-begin-read! - (lambda (_hl72543_) + (lambda (_hl72805_) (declare (not safe)) - ((##unchecked-structure-ref _hl72543_ '2 HashTableLock::t '#f) - (##unchecked-structure-ref _hl72543_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _hl72805_ '2 HashTableLock::t '#f) + (##unchecked-structure-ref _hl72805_ '1 interface-instance::t '#f)))) (define &HashTableLock-end-read! - (lambda (_hl72540_) + (lambda (_hl72802_) (declare (not safe)) - ((##unchecked-structure-ref _hl72540_ '3 HashTableLock::t '#f) - (##unchecked-structure-ref _hl72540_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _hl72802_ '3 HashTableLock::t '#f) + (##unchecked-structure-ref _hl72802_ '1 interface-instance::t '#f)))) (define &HashTableLock-begin-write! - (lambda (_hl72537_) + (lambda (_hl72799_) (declare (not safe)) - ((##unchecked-structure-ref _hl72537_ '4 HashTableLock::t '#f) - (##unchecked-structure-ref _hl72537_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _hl72799_ '4 HashTableLock::t '#f) + (##unchecked-structure-ref _hl72799_ '1 interface-instance::t '#f)))) (define &HashTableLock-end-write! - (lambda (_hl72534_) + (lambda (_hl72796_) (declare (not safe)) - ((##unchecked-structure-ref _hl72534_ '5 HashTableLock::t '#f) - (##unchecked-structure-ref _hl72534_ '1 interface-instance::t '#f)))) - (define _locked-hash-table::ref69553_ - (lambda (_self72521_ _key72523_ _default72524_) - (let ((_h72526_ + ((##unchecked-structure-ref _hl72796_ '5 HashTableLock::t '#f) + (##unchecked-structure-ref _hl72796_ '1 interface-instance::t '#f)))) + (define _locked-hash-table::ref69815_ + (lambda (_self72783_ _key72785_ _default72786_) + (let ((_h72788_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72521_ + _self72783_ '1 locked-hash-table::t '#f))) - (_l72528_ + (_l72790_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72521_ + _self72783_ '2 locked-hash-table::t '#f)))) @@ -1174,37 +1174,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l72528_))) + (&HashTableLock-begin-read! _l72790_))) (lambda () (let () (declare (not safe)) - (&HashTable-ref _h72526_ _key72523_ _default72524_))) + (&HashTable-ref _h72788_ _key72785_ _default72786_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l72528_))))))) + (&HashTableLock-end-read! _l72790_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'ref - _locked-hash-table::ref69553_ + _locked-hash-table::ref69815_ '#f)) - (define _locked-hash-table::set!69555_ - (lambda (_self72385_ _key72387_ _value72388_) - (let ((_h72390_ + (define _locked-hash-table::set!69817_ + (lambda (_self72647_ _key72649_ _value72650_) + (let ((_h72652_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72385_ + _self72647_ '1 locked-hash-table::t '#f))) - (_l72392_ + (_l72654_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72385_ + _self72647_ '2 locked-hash-table::t '#f)))) @@ -1212,37 +1212,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l72392_))) + (&HashTableLock-begin-write! _l72654_))) (lambda () (let () (declare (not safe)) - (&HashTable-set! _h72390_ _key72387_ _value72388_))) + (&HashTable-set! _h72652_ _key72649_ _value72650_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l72392_))))))) + (&HashTableLock-end-write! _l72654_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'set! - _locked-hash-table::set!69555_ + _locked-hash-table::set!69817_ '#f)) - (define _locked-hash-table::update!69557_ - (lambda (_self72248_ _key72250_ _update72251_ _default72252_) - (let ((_h72254_ + (define _locked-hash-table::update!69819_ + (lambda (_self72510_ _key72512_ _update72513_ _default72514_) + (let ((_h72516_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72248_ + _self72510_ '1 locked-hash-table::t '#f))) - (_l72256_ + (_l72518_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72248_ + _self72510_ '2 locked-hash-table::t '#f)))) @@ -1250,41 +1250,41 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l72256_))) + (&HashTableLock-begin-write! _l72518_))) (lambda () (let () (declare (not safe)) (&HashTable-update! - _h72254_ - _key72250_ - _update72251_ - _default72252_))) + _h72516_ + _key72512_ + _update72513_ + _default72514_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l72256_))))))) + (&HashTableLock-end-write! _l72518_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'update! - _locked-hash-table::update!69557_ + _locked-hash-table::update!69819_ '#f)) - (define _locked-hash-table::delete!69559_ - (lambda (_self72113_ _key72115_) - (let ((_h72117_ + (define _locked-hash-table::delete!69821_ + (lambda (_self72375_ _key72377_) + (let ((_h72379_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72113_ + _self72375_ '1 locked-hash-table::t '#f))) - (_l72119_ + (_l72381_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72113_ + _self72375_ '2 locked-hash-table::t '#f)))) @@ -1292,37 +1292,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l72119_))) + (&HashTableLock-begin-write! _l72381_))) (lambda () (let () (declare (not safe)) - (&HashTable-delete! _h72117_ _key72115_))) + (&HashTable-delete! _h72379_ _key72377_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l72119_))))))) + (&HashTableLock-end-write! _l72381_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'delete! - _locked-hash-table::delete!69559_ + _locked-hash-table::delete!69821_ '#f)) - (define _locked-hash-table::for-each69561_ - (lambda (_self71978_ _proc71980_) - (let ((_h71982_ + (define _locked-hash-table::for-each69823_ + (lambda (_self72240_ _proc72242_) + (let ((_h72244_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71978_ + _self72240_ '1 locked-hash-table::t '#f))) - (_l71984_ + (_l72246_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71978_ + _self72240_ '2 locked-hash-table::t '#f)))) @@ -1330,37 +1330,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l71984_))) + (&HashTableLock-begin-read! _l72246_))) (lambda () (let () (declare (not safe)) - (&HashTable-for-each _h71982_ _proc71980_))) + (&HashTable-for-each _h72244_ _proc72242_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l71984_))))))) + (&HashTableLock-end-read! _l72246_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'for-each - _locked-hash-table::for-each69561_ + _locked-hash-table::for-each69823_ '#f)) - (define _locked-hash-table::length69563_ - (lambda (_self71844_) - (let ((_h71847_ + (define _locked-hash-table::length69825_ + (lambda (_self72106_) + (let ((_h72109_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71844_ + _self72106_ '1 locked-hash-table::t '#f))) - (_l71849_ + (_l72111_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71844_ + _self72106_ '2 locked-hash-table::t '#f)))) @@ -1368,35 +1368,35 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l71849_))) + (&HashTableLock-begin-read! _l72111_))) (lambda () - (let () (declare (not safe)) (&HashTable-length _h71847_))) + (let () (declare (not safe)) (&HashTable-length _h72109_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l71849_))))))) + (&HashTableLock-end-read! _l72111_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'length - _locked-hash-table::length69563_ + _locked-hash-table::length69825_ '#f)) - (define _locked-hash-table::copy69565_ - (lambda (_self71710_) - (let ((_h71713_ + (define _locked-hash-table::copy69827_ + (lambda (_self71972_) + (let ((_h71975_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71710_ + _self71972_ '1 locked-hash-table::t '#f))) - (_l71715_ + (_l71977_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71710_ + _self71972_ '2 locked-hash-table::t '#f)))) @@ -1404,34 +1404,34 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l71715_))) - (lambda () (let () (declare (not safe)) (&HashTable-copy _h71713_))) + (&HashTableLock-begin-read! _l71977_))) + (lambda () (let () (declare (not safe)) (&HashTable-copy _h71975_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l71715_))))))) + (&HashTableLock-end-read! _l71977_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'copy - _locked-hash-table::copy69565_ + _locked-hash-table::copy69827_ '#f)) - (define _locked-hash-table::clear!69567_ - (lambda (_self71576_) - (let ((_h71579_ + (define _locked-hash-table::clear!69829_ + (lambda (_self71838_) + (let ((_h71841_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71576_ + _self71838_ '1 locked-hash-table::t '#f))) - (_l71581_ + (_l71843_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71576_ + _self71838_ '2 locked-hash-table::t '#f)))) @@ -1439,695 +1439,695 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l71581_))) + (&HashTableLock-begin-write! _l71843_))) (lambda () - (let () (declare (not safe)) (&HashTable-clear! _h71579_))) + (let () (declare (not safe)) (&HashTable-clear! _h71841_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l71581_))))))) + (&HashTableLock-end-write! _l71843_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'clear! - _locked-hash-table::clear!69567_ + _locked-hash-table::clear!69829_ '#f)) - (let ((__tmp72905 (macro-type-mutex))) + (let ((__tmp73167 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp72905 'begin-read! mutex-lock!)) - (let ((__tmp72906 (macro-type-mutex))) + (bind-method!__0 __tmp73167 'begin-read! mutex-lock!)) + (let ((__tmp73168 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp72906 'end-read! mutex-unlock!)) - (let ((__tmp72907 (macro-type-mutex))) + (bind-method!__0 __tmp73168 'end-read! mutex-unlock!)) + (let ((__tmp73169 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp72907 'begin-write! mutex-lock!)) - (let ((__tmp72908 (macro-type-mutex))) + (bind-method!__0 __tmp73169 'begin-write! mutex-lock!)) + (let ((__tmp73170 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp72908 'end-write! mutex-unlock!)) - (define _checked-hash-table::ref69845_ - (lambda (_self71440_ _key71441_ _default71442_) - (let ((_h71444_ + (bind-method!__0 __tmp73170 'end-write! mutex-unlock!)) + (define _checked-hash-table::ref70107_ + (lambda (_self71702_ _key71703_ _default71704_) + (let ((_h71706_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71440_ + _self71702_ '1 checked-hash-table::t '#f))) - (_key?71446_ + (_key?71708_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71440_ + _self71702_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7144871450_) - (if (_g7144871450_ _key71441_) + ((lambda (_g7171071712_) + (if (_g7171071712_ _key71703_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key71441_)))) - _key?71446_) + (error '"invalid argument" _key71703_)))) + _key?71708_) (let () (declare (not safe)) - (&HashTable-ref _h71444_ _key71441_ _default71442_))))) + (&HashTable-ref _h71706_ _key71703_ _default71704_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'ref - _checked-hash-table::ref69845_ + _checked-hash-table::ref70107_ '#f)) - (define _checked-hash-table::set!69847_ - (lambda (_self71304_ _key71305_ _value71306_) - (let ((_h71308_ + (define _checked-hash-table::set!70109_ + (lambda (_self71566_ _key71567_ _value71568_) + (let ((_h71570_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71304_ + _self71566_ '1 checked-hash-table::t '#f))) - (_key?71310_ + (_key?71572_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71304_ + _self71566_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7131271314_) - (if (_g7131271314_ _key71305_) + ((lambda (_g7157471576_) + (if (_g7157471576_ _key71567_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key71305_)))) - _key?71310_) + (error '"invalid argument" _key71567_)))) + _key?71572_) (let () (declare (not safe)) - (&HashTable-set! _h71308_ _key71305_ _value71306_))))) + (&HashTable-set! _h71570_ _key71567_ _value71568_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'set! - _checked-hash-table::set!69847_ + _checked-hash-table::set!70109_ '#f)) - (define _checked-hash-table::update!69849_ - (lambda (_self71169_ _key71170_ _update71171_ _default71172_) - (let ((_h71174_ + (define _checked-hash-table::update!70111_ + (lambda (_self71431_ _key71432_ _update71433_ _default71434_) + (let ((_h71436_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71169_ + _self71431_ '1 checked-hash-table::t '#f))) - (_key?71176_ + (_key?71438_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71169_ + _self71431_ '2 checked-hash-table::t '#f)))) - ((lambda (_key?71179_) - (if (_key?71179_ _key71170_) + ((lambda (_key?71441_) + (if (_key?71441_ _key71432_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key71170_))) - (if (let () (declare (not safe)) (procedure? _update71171_)) + (error '"invalid argument" _key71432_))) + (if (let () (declare (not safe)) (procedure? _update71433_)) '#!void (let () (declare (not safe)) - (error '"invalid argument" _update71171_)))) - _key?71176_) + (error '"invalid argument" _update71433_)))) + _key?71438_) (let () (declare (not safe)) (&HashTable-update! - _h71174_ - _key71170_ - _update71171_ - _default71172_))))) + _h71436_ + _key71432_ + _update71433_ + _default71434_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'update! - _checked-hash-table::update!69849_ + _checked-hash-table::update!70111_ '#f)) - (define _checked-hash-table::delete!69851_ - (lambda (_self71034_ _key71035_) - (let ((_h71037_ + (define _checked-hash-table::delete!70113_ + (lambda (_self71296_ _key71297_) + (let ((_h71299_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71034_ + _self71296_ '1 checked-hash-table::t '#f))) - (_key?71039_ + (_key?71301_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71034_ + _self71296_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7104171043_) - (if (_g7104171043_ _key71035_) + ((lambda (_g7130371305_) + (if (_g7130371305_ _key71297_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key71035_)))) - _key?71039_) + (error '"invalid argument" _key71297_)))) + _key?71301_) (let () (declare (not safe)) - (&HashTable-delete! _h71037_ _key71035_))))) + (&HashTable-delete! _h71299_ _key71297_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'delete! - _checked-hash-table::delete!69851_ + _checked-hash-table::delete!70113_ '#f)) - (define _checked-hash-table::for-each69853_ - (lambda (_self70902_ _proc70903_) - (let ((_h70905_ + (define _checked-hash-table::for-each70115_ + (lambda (_self71164_ _proc71165_) + (let ((_h71167_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70902_ + _self71164_ '1 checked-hash-table::t '#f))) - (_key?70907_ + (_key?71169_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70902_ + _self71164_ '2 checked-hash-table::t '#f)))) - ((lambda (_g72909_) - (if (let () (declare (not safe)) (procedure? _proc70903_)) + ((lambda (_g73171_) + (if (let () (declare (not safe)) (procedure? _proc71165_)) '#!void (let () (declare (not safe)) - (error '"invalid argument" _proc70903_)))) - _key?70907_) + (error '"invalid argument" _proc71165_)))) + _key?71169_) (let () (declare (not safe)) - (&HashTable-for-each _h70905_ _proc70903_))))) + (&HashTable-for-each _h71167_ _proc71165_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'for-each - _checked-hash-table::for-each69853_ + _checked-hash-table::for-each70115_ '#f)) - (define _checked-hash-table::length69855_ - (lambda (_self70772_) - (let ((_h70774_ + (define _checked-hash-table::length70117_ + (lambda (_self71034_) + (let ((_h71036_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70772_ + _self71034_ '1 checked-hash-table::t '#f))) - (_key?70776_ + (_key?71038_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70772_ + _self71034_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-length _h70774_))))) + (let () (declare (not safe)) (&HashTable-length _h71036_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'length - _checked-hash-table::length69855_ + _checked-hash-table::length70117_ '#f)) - (define _checked-hash-table::copy69857_ - (lambda (_self70642_) - (let ((_h70644_ + (define _checked-hash-table::copy70119_ + (lambda (_self70904_) + (let ((_h70906_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70642_ + _self70904_ '1 checked-hash-table::t '#f))) - (_key?70646_ + (_key?70908_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70642_ + _self70904_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-copy _h70644_))))) + (let () (declare (not safe)) (&HashTable-copy _h70906_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'copy - _checked-hash-table::copy69857_ + _checked-hash-table::copy70119_ '#f)) - (define _checked-hash-table::clear!69859_ - (lambda (_self70512_) - (let ((_h70514_ + (define _checked-hash-table::clear!70121_ + (lambda (_self70774_) + (let ((_h70776_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70512_ + _self70774_ '1 checked-hash-table::t '#f))) - (_key?70516_ + (_key?70778_ (let () (declare (not safe)) (##unchecked-structure-ref - _self70512_ + _self70774_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-clear! _h70514_))))) + (let () (declare (not safe)) (&HashTable-clear! _h70776_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'clear! - _checked-hash-table::clear!69859_ + _checked-hash-table::clear!70121_ '#f)) (define make-generic-hash-table - (lambda (_table70382_ - _count70383_ - _free70384_ - _hash70385_ - _test70386_ - _seed70387_) + (lambda (_table70644_ + _count70645_ + _free70646_ + _hash70647_ + _test70648_ + _seed70649_) (let () (declare (not safe)) (##structure hash-table::t - _table70382_ - _count70383_ - _free70384_ - _hash70385_ - _test70386_ - _seed70387_)))) + _table70644_ + _count70645_ + _free70646_ + _hash70647_ + _test70648_ + _seed70649_)))) (define make-hash-table__% - (lambda (_g72910_ - _size-hint7022770237_ - _seed7022870239_ - _test7022970241_ - _hash7023070243_ - _lock7023170245_ - _check7023270247_ - _weak-keys7023370249_ - _weak-values7023470251_) - (let* ((_size-hint70254_ + (lambda (_g73172_ + _size-hint7048970499_ + _seed7049070501_ + _test7049170503_ + _hash7049270505_ + _lock7049370507_ + _check7049470509_ + _weak-keys7049570511_ + _weak-values7049670513_) + (let* ((_size-hint70516_ (if (let () (declare (not safe)) - (eq? _size-hint7022770237_ absent-value)) + (eq? _size-hint7048970499_ absent-value)) '#f - _size-hint7022770237_)) - (_seed70256_ + _size-hint7048970499_)) + (_seed70518_ (if (let () (declare (not safe)) - (eq? _seed7022870239_ absent-value)) + (eq? _seed7049070501_ absent-value)) '#f - _seed7022870239_)) - (_test70258_ + _seed7049070501_)) + (_test70520_ (if (let () (declare (not safe)) - (eq? _test7022970241_ absent-value)) + (eq? _test7049170503_ absent-value)) equal? - _test7022970241_)) - (_hash70260_ + _test7049170503_)) + (_hash70522_ (if (let () (declare (not safe)) - (eq? _hash7023070243_ absent-value)) + (eq? _hash7049270505_ absent-value)) '#f - _hash7023070243_)) - (_lock70262_ + _hash7049270505_)) + (_lock70524_ (if (let () (declare (not safe)) - (eq? _lock7023170245_ absent-value)) + (eq? _lock7049370507_ absent-value)) '#f - _lock7023170245_)) - (_check70264_ + _lock7049370507_)) + (_check70526_ (if (let () (declare (not safe)) - (eq? _check7023270247_ absent-value)) + (eq? _check7049470509_ absent-value)) '#f - _check7023270247_)) - (_weak-keys70266_ + _check7049470509_)) + (_weak-keys70528_ (if (let () (declare (not safe)) - (eq? _weak-keys7023370249_ absent-value)) + (eq? _weak-keys7049570511_ absent-value)) '#f - _weak-keys7023370249_)) - (_weak-values70268_ + _weak-keys7049570511_)) + (_weak-values70530_ (if (let () (declare (not safe)) - (eq? _weak-values7023470251_ absent-value)) + (eq? _weak-values7049670513_ absent-value)) '#f - _weak-values7023470251_))) - (letrec ((_table-seed70270_ + _weak-values7049670513_))) + (letrec ((_table-seed70532_ (lambda () - (if (let () (declare (not safe)) (fixnum? _seed70256_)) - _seed70256_ + (if (let () (declare (not safe)) (fixnum? _seed70518_)) + _seed70518_ (random-integer (macro-max-fixnum32))))) - (_wrap-lock70271_ - (lambda (_ht70365_) - (if _lock70262_ - (let ((__tmp72911 - (let ((__tmp72912 + (_wrap-lock70533_ + (lambda (_ht70627_) + (if _lock70524_ + (let ((__tmp73173 + (let ((__tmp73174 (let () (declare (not safe)) (cast HashTableLock::interface - _lock70262_)))) + _lock70524_)))) (declare (not safe)) (##structure locked-hash-table::t - _ht70365_ - __tmp72912)))) + _ht70627_ + __tmp73174)))) (declare (not safe)) - (cast HashTable::interface __tmp72911)) - _ht70365_))) - (_wrap-checked70272_ - (lambda (_ht70362_ _implicit70363_) - (if _check70264_ - (let ((__tmp72913 - (let ((__tmp72914 + (cast HashTable::interface __tmp73173)) + _ht70627_))) + (_wrap-checked70534_ + (lambda (_ht70624_ _implicit70625_) + (if _check70526_ + (let ((__tmp73175 + (let ((__tmp73176 (if (let () (declare (not safe)) - (procedure? _check70264_)) - _check70264_ - _implicit70363_))) + (procedure? _check70526_)) + _check70526_ + _implicit70625_))) (declare (not safe)) (##structure checked-hash-table::t - _ht70362_ - __tmp72914)))) + _ht70624_ + __tmp73176)))) (declare (not safe)) - (cast HashTable::interface __tmp72913)) - _ht70362_))) - (_make70273_ - (lambda (_kons70350_ _key?70351_ _hash70352_ _test70353_) - (let* ((_size70355_ + (cast HashTable::interface __tmp73175)) + _ht70624_))) + (_make70535_ + (lambda (_kons70612_ _key?70613_ _hash70614_ _test70615_) + (let* ((_size70617_ (let () (declare (not safe)) - (raw-table-size-hint->size _size-hint70254_))) - (_table70357_ - (make-vector _size70355_ (macro-unused-obj))) - (_ht70359_ - (let ((__tmp72915 - (_kons70350_ - _table70357_ + (raw-table-size-hint->size _size-hint70516_))) + (_table70619_ + (make-vector _size70617_ (macro-unused-obj))) + (_ht70621_ + (let ((__tmp73177 + (_kons70612_ + _table70619_ '0 - (fxquotient _size70355_ '2) - _hash70352_ - _test70353_ + (fxquotient _size70617_ '2) + _hash70614_ + _test70615_ (let () (declare (not safe)) - (_table-seed70270_))))) + (_table-seed70532_))))) (declare (not safe)) - (cast HashTable::interface __tmp72915)))) - (let ((__tmp72916 + (cast HashTable::interface __tmp73177)))) + (let ((__tmp73178 (let () (declare (not safe)) - (_wrap-lock70271_ _ht70359_)))) + (_wrap-lock70533_ _ht70621_)))) (declare (not safe)) - (_wrap-checked70272_ __tmp72916 _key?70351_))))) - (_make-gc-hash-table70274_ + (_wrap-checked70534_ __tmp73178 _key?70613_))))) + (_make-gc-hash-table70536_ (lambda () - (let* ((_ht70348_ - (let ((__tmp72917 + (let* ((_ht70610_ + (let ((__tmp73179 (let () (declare (not safe)) (make-gc-table__1 - _size-hint70254_ + _size-hint70516_ gc-hash-table::t)))) (declare (not safe)) - (cast HashTable::interface __tmp72917))) - (__tmp72918 + (cast HashTable::interface __tmp73179))) + (__tmp73180 (let () (declare (not safe)) - (_wrap-lock70271_ _ht70348_)))) + (_wrap-lock70533_ _ht70610_)))) (declare (not safe)) - (_wrap-checked70272_ __tmp72918 true)))) - (_make-gambit-table70275_ + (_wrap-checked70534_ __tmp73180 true)))) + (_make-gambit-table70537_ (lambda () - (let* ((_size70332_ - (let ((_$e70329_ _size-hint70254_)) - (if _$e70329_ _$e70329_ (macro-absent-obj)))) - (_test70337_ - (let ((_$e70334_ _test70258_)) - (if _$e70334_ _$e70334_ equal?))) - (_hash70342_ - (let ((_$e70339_ _hash70260_)) - (if _$e70339_ - _$e70339_ + (let* ((_size70594_ + (let ((_$e70591_ _size-hint70516_)) + (if _$e70591_ _$e70591_ (macro-absent-obj)))) + (_test70599_ + (let ((_$e70596_ _test70520_)) + (if _$e70596_ _$e70596_ equal?))) + (_hash70604_ + (let ((_$e70601_ _hash70522_)) + (if _$e70601_ + _$e70601_ (if (let () (declare (not safe)) - (eq? _test70337_ eq?)) + (eq? _test70599_ eq?)) eq?-hash (if (let () (declare (not safe)) - (eq? _test70337_ eqv?)) + (eq? _test70599_ eqv?)) eqv?-hash equal?-hash))))) - (_ht70344_ - (let ((__tmp72919 + (_ht70606_ + (let ((__tmp73181 (make-table 'size: - _size70332_ + _size70594_ 'test: - _test70337_ + _test70599_ 'hash: - _hash70342_ + _hash70604_ 'weak-keys: - _weak-keys70266_ + _weak-keys70528_ 'weak-values: - _weak-values70268_))) + _weak-values70530_))) (declare (not safe)) - (cast HashTable::interface __tmp72919)))) - (let ((__tmp72920 + (cast HashTable::interface __tmp73181)))) + (let ((__tmp73182 (let () (declare (not safe)) - (_wrap-lock70271_ _ht70344_)))) + (_wrap-lock70533_ _ht70606_)))) (declare (not safe)) - (_wrap-checked70272_ __tmp72920 true)))))) - (if (or _weak-keys70266_ _weak-values70268_) - (let () (declare (not safe)) (_make-gambit-table70275_)) + (_wrap-checked70534_ __tmp73182 true)))))) + (if (or _weak-keys70528_ _weak-values70530_) + (let () (declare (not safe)) (_make-gambit-table70537_)) (if (and (or (let () (declare (not safe)) - (eq? _test70258_ eq?)) + (eq? _test70520_ eq?)) (let () (declare (not safe)) - (eq? _test70258_ ##eq?))) - (or (let () (declare (not safe)) (not _hash70260_)) + (eq? _test70520_ ##eq?))) + (or (let () (declare (not safe)) (not _hash70522_)) (let () (declare (not safe)) - (eq? _hash70260_ eq?-hash)) + (eq? _hash70522_ eq?-hash)) (let () (declare (not safe)) - (eq? _hash70260_ eq-hash))) - (let () (declare (not safe)) (not _seed70256_))) - (let () (declare (not safe)) (_make-gc-hash-table70274_)) + (eq? _hash70522_ eq-hash))) + (let () (declare (not safe)) (not _seed70518_))) + (let () (declare (not safe)) (_make-gc-hash-table70536_)) (if (and (or (let () (declare (not safe)) - (eq? _test70258_ eq?)) + (eq? _test70520_ eq?)) (let () (declare (not safe)) - (eq? _test70258_ ##eq?))) + (eq? _test70520_ ##eq?))) (or (let () (declare (not safe)) - (not _hash70260_)) + (not _hash70522_)) (let () (declare (not safe)) - (eq? _hash70260_ eq?-hash)) + (eq? _hash70522_ eq?-hash)) (let () (declare (not safe)) - (eq? _hash70260_ eq-hash)))) + (eq? _hash70522_ eq-hash)))) (let () (declare (not safe)) - (_make70273_ make-eq-hash-table true eq-hash eq?)) + (_make70535_ make-eq-hash-table true eq-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test70258_ eqv?)) + (eq? _test70520_ eqv?)) (let () (declare (not safe)) - (eq? _test70258_ ##eqv?))) + (eq? _test70520_ ##eqv?))) (or (let () (declare (not safe)) - (not _hash70260_)) + (not _hash70522_)) (let () (declare (not safe)) - (eq? _hash70260_ eqv?-hash)) + (eq? _hash70522_ eqv?-hash)) (let () (declare (not safe)) - (eq? _hash70260_ eqv-hash)))) + (eq? _hash70522_ eqv-hash)))) (let () (declare (not safe)) - (_make70273_ + (_make70535_ make-eqv-hash-table true eqv-hash eqv?)) (if (and (or (let () (declare (not safe)) - (eq? _test70258_ eq?)) + (eq? _test70520_ eq?)) (let () (declare (not safe)) - (eq? _test70258_ ##eq?))) + (eq? _test70520_ ##eq?))) (or (let () (declare (not safe)) - (eq? _hash70260_ symbolic-hash)) + (eq? _hash70522_ symbolic-hash)) (let () (declare (not safe)) - (eq? _hash70260_ ##symbol-hash)))) + (eq? _hash70522_ ##symbol-hash)))) (let () (declare (not safe)) - (_make70273_ + (_make70535_ make-symbol-hash-table symbolic? symbolic-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test70258_ eq?)) + (eq? _test70520_ eq?)) (let () (declare (not safe)) - (eq? _test70258_ ##eq?))) + (eq? _test70520_ ##eq?))) (let () (declare (not safe)) - (eq? _hash70260_ immediate-hash))) + (eq? _hash70522_ immediate-hash))) (let () (declare (not safe)) - (_make70273_ + (_make70535_ make-immediate-hash-table immediate? immediate-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test70258_ equal?)) + (eq? _test70520_ equal?)) (let () (declare (not safe)) - (eq? _test70258_ ##equal?)) + (eq? _test70520_ ##equal?)) (let () (declare (not safe)) - (eq? _test70258_ string=?)) + (eq? _test70520_ string=?)) (let () (declare (not safe)) - (eq? _test70258_ + (eq? _test70520_ ##string=?))) (or (let () (declare (not safe)) - (eq? _hash70260_ + (eq? _hash70522_ string-hash)) (let () (declare (not safe)) - (eq? _hash70260_ + (eq? _hash70522_ ##string=?-hash)))) (let () (declare (not safe)) - (_make70273_ + (_make70535_ make-string-hash-table string? string-hash ##string=?)) (if (and (let () (declare (not safe)) - (eq? _test70258_ equal?)) + (eq? _test70520_ equal?)) (let () (declare (not safe)) - (not _hash70260_))) + (not _hash70522_))) (let () (declare (not safe)) - (_make70273_ + (_make70535_ make-generic-hash-table true equal?-hash equal?)) - (if (let ((__tmp72922 + (if (let ((__tmp73184 (let () (declare (not safe)) (procedure? - _test70258_)))) + _test70520_)))) (declare (not safe)) - (not __tmp72922)) + (not __tmp73184)) (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _test70258_)) - (if (let ((__tmp72921 + _test70520_)) + (if (let ((__tmp73183 (let () (declare (not safe)) (procedure? - _hash70260_)))) + _hash70522_)))) (declare (not safe)) - (not __tmp72921)) + (not __tmp73183)) (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _hash70260_)) + _hash70522_)) (let () (declare (not safe)) - (_make70273_ + (_make70535_ make-generic-hash-table true - _hash70260_ - _test70258_)))))))))))))))) + _hash70522_ + _test70520_)))))))))))))))) (define make-hash-table__@ - (lambda (_keys7022670371_ . _args70373_) + (lambda (_keys7048870633_ . _args70635_) (apply make-hash-table__% - _keys7022670371_ + _keys7048870633_ (let () (declare (not safe)) - (symbolic-table-ref _keys7022670371_ 'size: absent-value)) + (symbolic-table-ref _keys7048870633_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022670371_ 'seed: absent-value)) + (symbolic-table-ref _keys7048870633_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022670371_ 'test: absent-value)) + (symbolic-table-ref _keys7048870633_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022670371_ 'hash: absent-value)) + (symbolic-table-ref _keys7048870633_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022670371_ 'lock: absent-value)) + (symbolic-table-ref _keys7048870633_ 'lock: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7022670371_ 'check: absent-value)) + (symbolic-table-ref _keys7048870633_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys7022670371_ + _keys7048870633_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys7022670371_ + _keys7048870633_ 'weak-values: absent-value)) - _args70373_))) + _args70635_))) (define make-hash-table - (lambda _args7023570379_ + (lambda _args7049770641_ (apply keyword-dispatch '#(#f #f @@ -2170,710 +2170,710 @@ #f #f) make-hash-table__@ - _args7023570379_))) + _args7049770641_))) (define make-hash-table-eq - (lambda _args70223_ (apply make-hash-table 'test: eq? _args70223_))) + (lambda _args70485_ (apply make-hash-table 'test: eq? _args70485_))) (define make-hash-table-eqv - (lambda _args70221_ (apply make-hash-table 'test: eqv? _args70221_))) + (lambda _args70483_ (apply make-hash-table 'test: eqv? _args70483_))) (define make-hash-table-symbolic - (lambda _args70219_ - (apply make-hash-table 'test: eq? 'hash: symbolic-hash _args70219_))) + (lambda _args70481_ + (apply make-hash-table 'test: eq? 'hash: symbolic-hash _args70481_))) (define make-hash-table-string - (lambda _args70217_ + (lambda _args70479_ (apply make-hash-table 'test: string=? 'hash: string-hash - _args70217_))) + _args70479_))) (define make-hash-table-immediate - (lambda _args70215_ - (apply make-hash-table 'test: eq? 'hash: immediate-hash _args70215_))) + (lambda _args70477_ + (apply make-hash-table 'test: eq? 'hash: immediate-hash _args70477_))) (define list->hash-table - (lambda (_lst70212_ . _args70213_) - (let ((__tmp72923 - (apply make-hash-table 'size: (length _lst70212_) _args70213_))) + (lambda (_lst70474_ . _args70475_) + (let ((__tmp73185 + (apply make-hash-table 'size: (length _lst70474_) _args70475_))) (declare (not safe)) - (list->hash-table! _lst70212_ __tmp72923)))) + (list->hash-table! _lst70474_ __tmp73185)))) (define list->hash-table-eq - (lambda (_lst70209_ . _args70210_) - (let ((__tmp72924 + (lambda (_lst70471_ . _args70472_) + (let ((__tmp73186 (apply make-hash-table-eq 'size: - (length _lst70209_) - _args70210_))) + (length _lst70471_) + _args70472_))) (declare (not safe)) - (list->hash-table! _lst70209_ __tmp72924)))) + (list->hash-table! _lst70471_ __tmp73186)))) (define list->hash-table-eqv - (lambda (_lst70206_ . _args70207_) - (let ((__tmp72925 + (lambda (_lst70468_ . _args70469_) + (let ((__tmp73187 (apply make-hash-table-eqv 'size: - (length _lst70206_) - _args70207_))) + (length _lst70468_) + _args70469_))) (declare (not safe)) - (list->hash-table! _lst70206_ __tmp72925)))) + (list->hash-table! _lst70468_ __tmp73187)))) (define list->hash-table-symbolic - (lambda (_lst70203_ . _args70204_) - (let ((__tmp72926 + (lambda (_lst70465_ . _args70466_) + (let ((__tmp73188 (apply make-hash-table-symbolic 'size: - (length _lst70203_) - _args70204_))) + (length _lst70465_) + _args70466_))) (declare (not safe)) - (list->hash-table! _lst70203_ __tmp72926)))) + (list->hash-table! _lst70465_ __tmp73188)))) (define list->hash-table-string - (lambda (_lst70200_ . _args70201_) - (let ((__tmp72927 + (lambda (_lst70462_ . _args70463_) + (let ((__tmp73189 (apply make-hash-table-string 'size: - (length _lst70200_) - _args70201_))) + (length _lst70462_) + _args70463_))) (declare (not safe)) - (list->hash-table! _lst70200_ __tmp72927)))) + (list->hash-table! _lst70462_ __tmp73189)))) (define list->hash-table! - (lambda (_lst70167_ _h70168_) + (lambda (_lst70429_ _h70430_) (for-each - (lambda (_el70170_) - (let* ((_el7017170178_ _el70170_) - (_E7017370182_ + (lambda (_el70432_) + (let* ((_el7043370440_ _el70432_) + (_E7043570444_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _el7017170178_)))) - (_K7017470188_ - (lambda (_v70185_ _k70186_) + (error '"No clause matching" _el7043370440_)))) + (_K7043670450_ + (lambda (_v70447_ _k70448_) (let () (declare (not safe)) - (&HashTable-set! _h70168_ _k70186_ _v70185_))))) - (if (let () (declare (not safe)) (##pair? _el7017170178_)) - (let ((_hd7017570191_ - (let () (declare (not safe)) (##car _el7017170178_))) - (_tl7017670193_ - (let () (declare (not safe)) (##cdr _el7017170178_)))) - (let* ((_k70196_ _hd7017570191_) (_v70198_ _tl7017670193_)) + (&HashTable-set! _h70430_ _k70448_ _v70447_))))) + (if (let () (declare (not safe)) (##pair? _el7043370440_)) + (let ((_hd7043770453_ + (let () (declare (not safe)) (##car _el7043370440_))) + (_tl7043870455_ + (let () (declare (not safe)) (##cdr _el7043370440_)))) + (let* ((_k70458_ _hd7043770453_) (_v70460_ _tl7043870455_)) (declare (not safe)) - (_K7017470188_ _v70198_ _k70196_))) - (let () (declare (not safe)) (_E7017370182_))))) - _lst70167_) - _h70168_)) + (_K7043670450_ _v70460_ _k70458_))) + (let () (declare (not safe)) (_E7043570444_))))) + _lst70429_) + _h70430_)) (define plist->hash-table - (lambda (_lst70164_ . _args70165_) - (let ((__tmp72928 - (apply make-hash-table 'size: (length _lst70164_) _args70165_))) + (lambda (_lst70426_ . _args70427_) + (let ((__tmp73190 + (apply make-hash-table 'size: (length _lst70426_) _args70427_))) (declare (not safe)) - (plist->hash-table! _lst70164_ __tmp72928)))) + (plist->hash-table! _lst70426_ __tmp73190)))) (define plist->hash-table-eq - (lambda (_lst70161_ . _args70162_) - (let ((__tmp72929 + (lambda (_lst70423_ . _args70424_) + (let ((__tmp73191 (apply make-hash-table-eq 'size: - (length _lst70161_) - _args70162_))) + (length _lst70423_) + _args70424_))) (declare (not safe)) - (plist->hash-table! _lst70161_ __tmp72929)))) + (plist->hash-table! _lst70423_ __tmp73191)))) (define plist->hash-table-eqv - (lambda (_lst70158_ . _args70159_) - (let ((__tmp72930 + (lambda (_lst70420_ . _args70421_) + (let ((__tmp73192 (apply make-hash-table-eqv 'size: - (length _lst70158_) - _args70159_))) + (length _lst70420_) + _args70421_))) (declare (not safe)) - (plist->hash-table! _lst70158_ __tmp72930)))) + (plist->hash-table! _lst70420_ __tmp73192)))) (define plist->hash-table-symbolic - (lambda (_lst70155_ . _args70156_) - (let ((__tmp72931 + (lambda (_lst70417_ . _args70418_) + (let ((__tmp73193 (apply make-hash-table-symbolic 'size: - (length _lst70155_) - _args70156_))) + (length _lst70417_) + _args70418_))) (declare (not safe)) - (plist->hash-table! _lst70155_ __tmp72931)))) + (plist->hash-table! _lst70417_ __tmp73193)))) (define plist->hash-table-string - (lambda (_lst70152_ . _args70153_) - (let ((__tmp72932 + (lambda (_lst70414_ . _args70415_) + (let ((__tmp73194 (apply make-hash-table-string 'size: - (length _lst70152_) - _args70153_))) + (length _lst70414_) + _args70415_))) (declare (not safe)) - (plist->hash-table! _lst70152_ __tmp72932)))) + (plist->hash-table! _lst70414_ __tmp73194)))) (define plist->hash-table! - (lambda (_lst70092_ _h70093_) - (let _loop70095_ ((_rest70097_ _lst70092_)) - (let* ((_rest7009870110_ _rest70097_) - (_else7010170118_ + (lambda (_lst70354_ _h70355_) + (let _loop70357_ ((_rest70359_ _lst70354_)) + (let* ((_rest7036070372_ _rest70359_) + (_else7036370380_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _lst70092_))))) - (let ((_K7010470133_ - (lambda (_rest70129_ _val70130_ _key70131_) + _lst70354_))))) + (let ((_K7036670395_ + (lambda (_rest70391_ _val70392_ _key70393_) (let () (declare (not safe)) - (&HashTable-set! _h70093_ _key70131_ _val70130_)) - (let () (declare (not safe)) (_loop70095_ _rest70129_)))) - (_K7010370123_ (lambda () _h70093_))) - (let ((_try-match7010070126_ + (&HashTable-set! _h70355_ _key70393_ _val70392_)) + (let () (declare (not safe)) (_loop70357_ _rest70391_)))) + (_K7036570385_ (lambda () _h70355_))) + (let ((_try-match7036270388_ (lambda () (if (let () (declare (not safe)) - (##null? _rest7009870110_)) - (let () (declare (not safe)) (_K7010370123_)) - (let () (declare (not safe)) (_else7010170118_)))))) - (if (let () (declare (not safe)) (##pair? _rest7009870110_)) - (let ((_tl7010670138_ + (##null? _rest7036070372_)) + (let () (declare (not safe)) (_K7036570385_)) + (let () (declare (not safe)) (_else7036370380_)))))) + (if (let () (declare (not safe)) (##pair? _rest7036070372_)) + (let ((_tl7036870400_ (let () (declare (not safe)) - (##cdr _rest7009870110_))) - (_hd7010570136_ + (##cdr _rest7036070372_))) + (_hd7036770398_ (let () (declare (not safe)) - (##car _rest7009870110_)))) + (##car _rest7036070372_)))) (if (let () (declare (not safe)) - (##pair? _tl7010670138_)) - (let ((_tl7010870145_ + (##pair? _tl7036870400_)) + (let ((_tl7037070407_ (let () (declare (not safe)) - (##cdr _tl7010670138_))) - (_hd7010770143_ + (##cdr _tl7036870400_))) + (_hd7036970405_ (let () (declare (not safe)) - (##car _tl7010670138_)))) - (let ((_key70141_ _hd7010570136_) - (_val70148_ _hd7010770143_) - (_rest70150_ _tl7010870145_)) + (##car _tl7036870400_)))) + (let ((_key70403_ _hd7036770398_) + (_val70410_ _hd7036970405_) + (_rest70412_ _tl7037070407_)) (let () (declare (not safe)) - (_K7010470133_ - _rest70150_ - _val70148_ - _key70141_)))) - (let () (declare (not safe)) (_else7010170118_)))) + (_K7036670395_ + _rest70412_ + _val70410_ + _key70403_)))) + (let () (declare (not safe)) (_else7036370380_)))) (let () (declare (not safe)) - (_try-match7010070126_))))))))) + (_try-match7036270388_))))))))) (define hash-length - (lambda (_h70088_) - (let ((_h70090_ - (if (and (let () (declare (not safe)) (##structure? _h70088_)) - (let ((__tmp72933 + (lambda (_h70350_) + (let ((_h70352_ + (if (and (let () (declare (not safe)) (##structure? _h70350_)) + (let ((__tmp73195 (let () (declare (not safe)) - (##structure-type _h70088_)))) + (##structure-type _h70350_)))) (declare (not safe)) - (eq? __tmp72933 HashTable::t))) - _h70088_ + (eq? __tmp73195 HashTable::t))) + _h70350_ (let () (declare (not safe)) - (cast HashTable::interface _h70088_))))) + (cast HashTable::interface _h70350_))))) (declare (not safe)) - (&HashTable-length _h70090_)))) + (&HashTable-length _h70352_)))) (define &hash-length - (lambda (_h70086_) - (let () (declare (not safe)) (&HashTable-length _h70086_)))) + (lambda (_h70348_) + (let () (declare (not safe)) (&HashTable-length _h70348_)))) (define hash-ref__% - (lambda (_h70068_ _key70069_ _default70070_) - (let ((_h70072_ - (if (and (let () (declare (not safe)) (##structure? _h70068_)) - (let ((__tmp72934 + (lambda (_h70330_ _key70331_ _default70332_) + (let ((_h70334_ + (if (and (let () (declare (not safe)) (##structure? _h70330_)) + (let ((__tmp73196 (let () (declare (not safe)) - (##structure-type _h70068_)))) + (##structure-type _h70330_)))) (declare (not safe)) - (eq? __tmp72934 HashTable::t))) - _h70068_ + (eq? __tmp73196 HashTable::t))) + _h70330_ (let () (declare (not safe)) - (cast HashTable::interface _h70068_))))) + (cast HashTable::interface _h70330_))))) (declare (not safe)) - (&hash-ref__% _h70072_ _key70069_ _default70070_)))) + (&hash-ref__% _h70334_ _key70331_ _default70332_)))) (define hash-ref__0 - (lambda (_h70077_ _key70078_) - (let ((_default70080_ (macro-absent-obj))) + (lambda (_h70339_ _key70340_) + (let ((_default70342_ (macro-absent-obj))) (declare (not safe)) - (hash-ref__% _h70077_ _key70078_ _default70080_)))) + (hash-ref__% _h70339_ _key70340_ _default70342_)))) (define hash-ref - (lambda _g72936_ - (let ((_g72935_ (let () (declare (not safe)) (##length _g72936_)))) - (cond ((let () (declare (not safe)) (##fx= _g72935_ 2)) - (apply (lambda (_h70077_ _key70078_) + (lambda _g73198_ + (let ((_g73197_ (let () (declare (not safe)) (##length _g73198_)))) + (cond ((let () (declare (not safe)) (##fx= _g73197_ 2)) + (apply (lambda (_h70339_ _key70340_) (let () (declare (not safe)) - (hash-ref__0 _h70077_ _key70078_))) - _g72936_)) - ((let () (declare (not safe)) (##fx= _g72935_ 3)) - (apply (lambda (_h70082_ _key70083_ _default70084_) + (hash-ref__0 _h70339_ _key70340_))) + _g73198_)) + ((let () (declare (not safe)) (##fx= _g73197_ 3)) + (apply (lambda (_h70344_ _key70345_ _default70346_) (let () (declare (not safe)) - (hash-ref__% _h70082_ _key70083_ _default70084_))) - _g72936_)) + (hash-ref__% _h70344_ _key70345_ _default70346_))) + _g73198_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g72936_)))))) + _g73198_)))))) (define &hash-ref__% - (lambda (_h70049_ _key70050_ _default70051_) - (let ((_result70053_ + (lambda (_h70311_ _key70312_ _default70313_) + (let ((_result70315_ (let () (declare (not safe)) - (&HashTable-ref _h70049_ _key70050_ _default70051_)))) - (if (let ((__tmp72937 (macro-absent-obj))) + (&HashTable-ref _h70311_ _key70312_ _default70313_)))) + (if (let ((__tmp73199 (macro-absent-obj))) (declare (not safe)) - (eq? _result70053_ __tmp72937)) + (eq? _result70315_ __tmp73199)) (let () (declare (not safe)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _h70049_ + _h70311_ 'key: - _key70050_)) - _result70053_)))) + _key70312_)) + _result70315_)))) (define &hash-ref__0 - (lambda (_h70058_ _key70059_) - (let ((_default70061_ (macro-absent-obj))) + (lambda (_h70320_ _key70321_) + (let ((_default70323_ (macro-absent-obj))) (declare (not safe)) - (&hash-ref__% _h70058_ _key70059_ _default70061_)))) + (&hash-ref__% _h70320_ _key70321_ _default70323_)))) (define &hash-ref - (lambda _g72939_ - (let ((_g72938_ (let () (declare (not safe)) (##length _g72939_)))) - (cond ((let () (declare (not safe)) (##fx= _g72938_ 2)) - (apply (lambda (_h70058_ _key70059_) + (lambda _g73201_ + (let ((_g73200_ (let () (declare (not safe)) (##length _g73201_)))) + (cond ((let () (declare (not safe)) (##fx= _g73200_ 2)) + (apply (lambda (_h70320_ _key70321_) (let () (declare (not safe)) - (&hash-ref__0 _h70058_ _key70059_))) - _g72939_)) - ((let () (declare (not safe)) (##fx= _g72938_ 3)) - (apply (lambda (_h70063_ _key70064_ _default70065_) + (&hash-ref__0 _h70320_ _key70321_))) + _g73201_)) + ((let () (declare (not safe)) (##fx= _g73200_ 3)) + (apply (lambda (_h70325_ _key70326_ _default70327_) (let () (declare (not safe)) - (&hash-ref__% _h70063_ _key70064_ _default70065_))) - _g72939_)) + (&hash-ref__% _h70325_ _key70326_ _default70327_))) + _g73201_)) (else (##raise-wrong-number-of-arguments-exception &hash-ref - _g72939_)))))) + _g73201_)))))) (define hash-get - (lambda (_h70043_ _key70044_) - (let ((_h70046_ - (if (and (let () (declare (not safe)) (##structure? _h70043_)) - (let ((__tmp72940 + (lambda (_h70305_ _key70306_) + (let ((_h70308_ + (if (and (let () (declare (not safe)) (##structure? _h70305_)) + (let ((__tmp73202 (let () (declare (not safe)) - (##structure-type _h70043_)))) + (##structure-type _h70305_)))) (declare (not safe)) - (eq? __tmp72940 HashTable::t))) - _h70043_ + (eq? __tmp73202 HashTable::t))) + _h70305_ (let () (declare (not safe)) - (cast HashTable::interface _h70043_))))) + (cast HashTable::interface _h70305_))))) (declare (not safe)) - (&hash-get _h70046_ _key70044_)))) + (&hash-get _h70308_ _key70306_)))) (define &hash-get - (lambda (_h70040_ _key70041_) + (lambda (_h70302_ _key70303_) (let () (declare (not safe)) - (&HashTable-ref _h70040_ _key70041_ '#f)))) + (&HashTable-ref _h70302_ _key70303_ '#f)))) (define hash-put! - (lambda (_h70034_ _key70035_ _value70036_) - (let ((_h70038_ - (if (and (let () (declare (not safe)) (##structure? _h70034_)) - (let ((__tmp72941 + (lambda (_h70296_ _key70297_ _value70298_) + (let ((_h70300_ + (if (and (let () (declare (not safe)) (##structure? _h70296_)) + (let ((__tmp73203 (let () (declare (not safe)) - (##structure-type _h70034_)))) + (##structure-type _h70296_)))) (declare (not safe)) - (eq? __tmp72941 HashTable::t))) - _h70034_ + (eq? __tmp73203 HashTable::t))) + _h70296_ (let () (declare (not safe)) - (cast HashTable::interface _h70034_))))) + (cast HashTable::interface _h70296_))))) (declare (not safe)) - (&HashTable-set! _h70038_ _key70035_ _value70036_)))) + (&HashTable-set! _h70300_ _key70297_ _value70298_)))) (define &hash-put! - (lambda (_h70030_ _key70031_ _value70032_) + (lambda (_h70292_ _key70293_ _value70294_) (let () (declare (not safe)) - (&HashTable-set! _h70030_ _key70031_ _value70032_)))) + (&HashTable-set! _h70292_ _key70293_ _value70294_)))) (define hash-update!__% - (lambda (_h70009_ _key70010_ _update70011_ _default70012_) - (let ((_h70014_ - (if (and (let () (declare (not safe)) (##structure? _h70009_)) - (let ((__tmp72942 + (lambda (_h70271_ _key70272_ _update70273_ _default70274_) + (let ((_h70276_ + (if (and (let () (declare (not safe)) (##structure? _h70271_)) + (let ((__tmp73204 (let () (declare (not safe)) - (##structure-type _h70009_)))) + (##structure-type _h70271_)))) (declare (not safe)) - (eq? __tmp72942 HashTable::t))) - _h70009_ + (eq? __tmp73204 HashTable::t))) + _h70271_ (let () (declare (not safe)) - (cast HashTable::interface _h70009_))))) + (cast HashTable::interface _h70271_))))) (declare (not safe)) (&HashTable-update! - _h70014_ - _key70010_ - _update70011_ - _default70012_)))) + _h70276_ + _key70272_ + _update70273_ + _default70274_)))) (define hash-update!__0 - (lambda (_h70019_ _key70020_ _update70021_) - (let ((_default70023_ '#!void)) + (lambda (_h70281_ _key70282_ _update70283_) + (let ((_default70285_ '#!void)) (declare (not safe)) - (hash-update!__% _h70019_ _key70020_ _update70021_ _default70023_)))) + (hash-update!__% _h70281_ _key70282_ _update70283_ _default70285_)))) (define hash-update! - (lambda _g72944_ - (let ((_g72943_ (let () (declare (not safe)) (##length _g72944_)))) - (cond ((let () (declare (not safe)) (##fx= _g72943_ 3)) - (apply (lambda (_h70019_ _key70020_ _update70021_) + (lambda _g73206_ + (let ((_g73205_ (let () (declare (not safe)) (##length _g73206_)))) + (cond ((let () (declare (not safe)) (##fx= _g73205_ 3)) + (apply (lambda (_h70281_ _key70282_ _update70283_) (let () (declare (not safe)) (hash-update!__0 - _h70019_ - _key70020_ - _update70021_))) - _g72944_)) - ((let () (declare (not safe)) (##fx= _g72943_ 4)) - (apply (lambda (_h70025_ - _key70026_ - _update70027_ - _default70028_) + _h70281_ + _key70282_ + _update70283_))) + _g73206_)) + ((let () (declare (not safe)) (##fx= _g73205_ 4)) + (apply (lambda (_h70287_ + _key70288_ + _update70289_ + _default70290_) (let () (declare (not safe)) (hash-update!__% - _h70025_ - _key70026_ - _update70027_ - _default70028_))) - _g72944_)) + _h70287_ + _key70288_ + _update70289_ + _default70290_))) + _g73206_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g72944_)))))) + _g73206_)))))) (define &hash-update!__% - (lambda (_h69989_ _key69990_ _update69991_ _default69992_) + (lambda (_h70251_ _key70252_ _update70253_ _default70254_) (let () (declare (not safe)) (&HashTable-update! - _h69989_ - _key69990_ - _update69991_ - _default69992_)))) + _h70251_ + _key70252_ + _update70253_ + _default70254_)))) (define &hash-update!__0 - (lambda (_h69997_ _key69998_ _update69999_) - (let ((_default70001_ '#!void)) + (lambda (_h70259_ _key70260_ _update70261_) + (let ((_default70263_ '#!void)) (declare (not safe)) (&HashTable-update! - _h69997_ - _key69998_ - _update69999_ - _default70001_)))) + _h70259_ + _key70260_ + _update70261_ + _default70263_)))) (define &hash-update! - (lambda _g72946_ - (let ((_g72945_ (let () (declare (not safe)) (##length _g72946_)))) - (cond ((let () (declare (not safe)) (##fx= _g72945_ 3)) - (apply (lambda (_h69997_ _key69998_ _update69999_) + (lambda _g73208_ + (let ((_g73207_ (let () (declare (not safe)) (##length _g73208_)))) + (cond ((let () (declare (not safe)) (##fx= _g73207_ 3)) + (apply (lambda (_h70259_ _key70260_ _update70261_) (let () (declare (not safe)) (&hash-update!__0 - _h69997_ - _key69998_ - _update69999_))) - _g72946_)) - ((let () (declare (not safe)) (##fx= _g72945_ 4)) - (apply (lambda (_h70003_ - _key70004_ - _update70005_ - _default70006_) + _h70259_ + _key70260_ + _update70261_))) + _g73208_)) + ((let () (declare (not safe)) (##fx= _g73207_ 4)) + (apply (lambda (_h70265_ + _key70266_ + _update70267_ + _default70268_) (let () (declare (not safe)) (&HashTable-update! - _h70003_ - _key70004_ - _update70005_ - _default70006_))) - _g72946_)) + _h70265_ + _key70266_ + _update70267_ + _default70268_))) + _g73208_)) (else (##raise-wrong-number-of-arguments-exception &hash-update! - _g72946_)))))) + _g73208_)))))) (define hash-remove! - (lambda (_h69983_ _key69984_) - (let ((_h69986_ - (if (and (let () (declare (not safe)) (##structure? _h69983_)) - (let ((__tmp72947 + (lambda (_h70245_ _key70246_) + (let ((_h70248_ + (if (and (let () (declare (not safe)) (##structure? _h70245_)) + (let ((__tmp73209 (let () (declare (not safe)) - (##structure-type _h69983_)))) + (##structure-type _h70245_)))) (declare (not safe)) - (eq? __tmp72947 HashTable::t))) - _h69983_ + (eq? __tmp73209 HashTable::t))) + _h70245_ (let () (declare (not safe)) - (cast HashTable::interface _h69983_))))) + (cast HashTable::interface _h70245_))))) (declare (not safe)) - (&HashTable-delete! _h69986_ _key69984_)))) + (&HashTable-delete! _h70248_ _key70246_)))) (define &hash-remove! - (lambda (_h69980_ _key69981_) + (lambda (_h70242_ _key70243_) (let () (declare (not safe)) - (&HashTable-delete! _h69980_ _key69981_)))) + (&HashTable-delete! _h70242_ _key70243_)))) (define hash-key? - (lambda (_h69975_ _k69976_) - (let ((_h69978_ - (if (and (let () (declare (not safe)) (##structure? _h69975_)) - (let ((__tmp72948 + (lambda (_h70237_ _k70238_) + (let ((_h70240_ + (if (and (let () (declare (not safe)) (##structure? _h70237_)) + (let ((__tmp73210 (let () (declare (not safe)) - (##structure-type _h69975_)))) + (##structure-type _h70237_)))) (declare (not safe)) - (eq? __tmp72948 HashTable::t))) - _h69975_ + (eq? __tmp73210 HashTable::t))) + _h70237_ (let () (declare (not safe)) - (cast HashTable::interface _h69975_))))) + (cast HashTable::interface _h70237_))))) (declare (not safe)) - (&hash-key? _h69978_ _k69976_)))) + (&hash-key? _h70240_ _k70238_)))) (define &hash-key? - (lambda (_h69972_ _k69973_) - (let ((__tmp72949 - (let ((__tmp72950 + (lambda (_h70234_ _k70235_) + (let ((__tmp73211 + (let ((__tmp73212 (let () (declare (not safe)) - (&HashTable-ref _h69972_ _k69973_ absent-value)))) + (&HashTable-ref _h70234_ _k70235_ absent-value)))) (declare (not safe)) - (eq? __tmp72950 absent-value)))) + (eq? __tmp73212 absent-value)))) (declare (not safe)) - (not __tmp72949)))) + (not __tmp73211)))) (define hash->list - (lambda (_h69968_) - (let ((_h69970_ - (if (and (let () (declare (not safe)) (##structure? _h69968_)) - (let ((__tmp72951 + (lambda (_h70230_) + (let ((_h70232_ + (if (and (let () (declare (not safe)) (##structure? _h70230_)) + (let ((__tmp73213 (let () (declare (not safe)) - (##structure-type _h69968_)))) + (##structure-type _h70230_)))) (declare (not safe)) - (eq? __tmp72951 HashTable::t))) - _h69968_ + (eq? __tmp73213 HashTable::t))) + _h70230_ (let () (declare (not safe)) - (cast HashTable::interface _h69968_))))) + (cast HashTable::interface _h70230_))))) (declare (not safe)) - (&hash->list _h69970_)))) + (&hash->list _h70232_)))) (define &hash->list - (lambda (_h69961_) - (let ((_lst69963_ '())) - (let ((__tmp72952 - (lambda (_k69965_ _v69966_) - (set! _lst69963_ - (let ((__tmp72953 + (lambda (_h70223_) + (let ((_lst70225_ '())) + (let ((__tmp73214 + (lambda (_k70227_ _v70228_) + (set! _lst70225_ + (let ((__tmp73215 (let () (declare (not safe)) - (cons _k69965_ _v69966_)))) + (cons _k70227_ _v70228_)))) (declare (not safe)) - (cons __tmp72953 _lst69963_)))))) + (cons __tmp73215 _lst70225_)))))) (declare (not safe)) - (&HashTable-for-each _h69961_ __tmp72952)) - _lst69963_))) + (&HashTable-for-each _h70223_ __tmp73214)) + _lst70225_))) (define hash->plist - (lambda (_h69957_) - (let ((_h69959_ - (if (and (let () (declare (not safe)) (##structure? _h69957_)) - (let ((__tmp72954 + (lambda (_h70219_) + (let ((_h70221_ + (if (and (let () (declare (not safe)) (##structure? _h70219_)) + (let ((__tmp73216 (let () (declare (not safe)) - (##structure-type _h69957_)))) + (##structure-type _h70219_)))) (declare (not safe)) - (eq? __tmp72954 HashTable::t))) - _h69957_ + (eq? __tmp73216 HashTable::t))) + _h70219_ (let () (declare (not safe)) - (cast HashTable::interface _h69957_))))) + (cast HashTable::interface _h70219_))))) (declare (not safe)) - (&hash->plist _h69959_)))) + (&hash->plist _h70221_)))) (define &hash->plist - (lambda (_h69950_) - (let ((_lst69952_ '())) - (let ((__tmp72955 - (lambda (_k69954_ _v69955_) - (set! _lst69952_ - (let ((__tmp72956 + (lambda (_h70212_) + (let ((_lst70214_ '())) + (let ((__tmp73217 + (lambda (_k70216_ _v70217_) + (set! _lst70214_ + (let ((__tmp73218 (let () (declare (not safe)) - (cons _v69955_ _lst69952_)))) + (cons _v70217_ _lst70214_)))) (declare (not safe)) - (cons _k69954_ __tmp72956)))))) + (cons _k70216_ __tmp73218)))))) (declare (not safe)) - (&HashTable-for-each _h69950_ __tmp72955)) - _lst69952_))) + (&HashTable-for-each _h70212_ __tmp73217)) + _lst70214_))) (define hash-for-each - (lambda (_proc69947_ _h69948_) + (lambda (_proc70209_ _h70210_) (let () (declare (not safe)) - (HashTable-for-each _h69948_ _proc69947_)))) + (HashTable-for-each _h70210_ _proc70209_)))) (define hash-map - (lambda (_proc69939_ _h69940_) - (let ((_result69942_ '())) - (let ((__tmp72957 - (lambda (_k69944_ _v69945_) - (set! _result69942_ - (let ((__tmp72958 (_proc69939_ _k69944_ _v69945_))) + (lambda (_proc70201_ _h70202_) + (let ((_result70204_ '())) + (let ((__tmp73219 + (lambda (_k70206_ _v70207_) + (set! _result70204_ + (let ((__tmp73220 (_proc70201_ _k70206_ _v70207_))) (declare (not safe)) - (cons __tmp72958 _result69942_)))))) + (cons __tmp73220 _result70204_)))))) (declare (not safe)) - (HashTable-for-each _h69940_ __tmp72957)) - _result69942_))) + (HashTable-for-each _h70202_ __tmp73219)) + _result70204_))) (define hash-fold - (lambda (_proc69930_ _iv69931_ _h69932_) - (let ((_result69934_ _iv69931_)) - (let ((__tmp72959 - (lambda (_k69936_ _v69937_) - (set! _result69934_ - (_proc69930_ _k69936_ _v69937_ _result69934_))))) + (lambda (_proc70192_ _iv70193_ _h70194_) + (let ((_result70196_ _iv70193_)) + (let ((__tmp73221 + (lambda (_k70198_ _v70199_) + (set! _result70196_ + (_proc70192_ _k70198_ _v70199_ _result70196_))))) (declare (not safe)) - (HashTable-for-each _h69932_ __tmp72959)) - _result69934_))) + (HashTable-for-each _h70194_ __tmp73221)) + _result70196_))) (define hash-find__% - (lambda (_proc69906_ _h69907_ _default-value69908_) + (lambda (_proc70168_ _h70169_ _default-value70170_) (call-with-current-continuation - (lambda (_return69910_) - (let ((__tmp72960 - (lambda (_k69912_ _v69913_) - (let ((_$e69915_ (_proc69906_ _k69912_ _v69913_))) - (if _$e69915_ (_return69910_ _$e69915_) '#!void))))) + (lambda (_return70172_) + (let ((__tmp73222 + (lambda (_k70174_ _v70175_) + (let ((_$e70177_ (_proc70168_ _k70174_ _v70175_))) + (if _$e70177_ (_return70172_ _$e70177_) '#!void))))) (declare (not safe)) - (HashTable-for-each _h69907_ __tmp72960)) - _default-value69908_)))) + (HashTable-for-each _h70169_ __tmp73222)) + _default-value70170_)))) (define hash-find__0 - (lambda (_proc69921_ _h69922_) - (let ((_default-value69924_ '#f)) + (lambda (_proc70183_ _h70184_) + (let ((_default-value70186_ '#f)) (declare (not safe)) - (hash-find__% _proc69921_ _h69922_ _default-value69924_)))) + (hash-find__% _proc70183_ _h70184_ _default-value70186_)))) (define hash-find - (lambda _g72962_ - (let ((_g72961_ (let () (declare (not safe)) (##length _g72962_)))) - (cond ((let () (declare (not safe)) (##fx= _g72961_ 2)) - (apply (lambda (_proc69921_ _h69922_) + (lambda _g73224_ + (let ((_g73223_ (let () (declare (not safe)) (##length _g73224_)))) + (cond ((let () (declare (not safe)) (##fx= _g73223_ 2)) + (apply (lambda (_proc70183_ _h70184_) (let () (declare (not safe)) - (hash-find__0 _proc69921_ _h69922_))) - _g72962_)) - ((let () (declare (not safe)) (##fx= _g72961_ 3)) - (apply (lambda (_proc69926_ _h69927_ _default-value69928_) + (hash-find__0 _proc70183_ _h70184_))) + _g73224_)) + ((let () (declare (not safe)) (##fx= _g73223_ 3)) + (apply (lambda (_proc70188_ _h70189_ _default-value70190_) (let () (declare (not safe)) (hash-find__% - _proc69926_ - _h69927_ - _default-value69928_))) - _g72962_)) + _proc70188_ + _h70189_ + _default-value70190_))) + _g73224_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g72962_)))))) + _g73224_)))))) (define hash-keys - (lambda (_h69901_) - (let ((_h69903_ - (if (and (let () (declare (not safe)) (##structure? _h69901_)) - (let ((__tmp72963 + (lambda (_h70163_) + (let ((_h70165_ + (if (and (let () (declare (not safe)) (##structure? _h70163_)) + (let ((__tmp73225 (let () (declare (not safe)) - (##structure-type _h69901_)))) + (##structure-type _h70163_)))) (declare (not safe)) - (eq? __tmp72963 HashTable::t))) - _h69901_ + (eq? __tmp73225 HashTable::t))) + _h70163_ (let () (declare (not safe)) - (cast HashTable::interface _h69901_))))) + (cast HashTable::interface _h70163_))))) (declare (not safe)) - (&hash-keys _h69903_)))) + (&hash-keys _h70165_)))) (define &hash-keys - (lambda (_h69894_) - (let ((_result69896_ '())) - (let ((__tmp72964 - (lambda (_k69898_ _v69899_) - (set! _result69896_ + (lambda (_h70156_) + (let ((_result70158_ '())) + (let ((__tmp73226 + (lambda (_k70160_ _v70161_) + (set! _result70158_ (let () (declare (not safe)) - (cons _k69898_ _result69896_)))))) + (cons _k70160_ _result70158_)))))) (declare (not safe)) - (&HashTable-for-each _h69894_ __tmp72964)) - _result69896_))) + (&HashTable-for-each _h70156_ __tmp73226)) + _result70158_))) (define hash-values - (lambda (_h69890_) - (let ((_h69892_ - (if (and (let () (declare (not safe)) (##structure? _h69890_)) - (let ((__tmp72965 + (lambda (_h70152_) + (let ((_h70154_ + (if (and (let () (declare (not safe)) (##structure? _h70152_)) + (let ((__tmp73227 (let () (declare (not safe)) - (##structure-type _h69890_)))) + (##structure-type _h70152_)))) (declare (not safe)) - (eq? __tmp72965 HashTable::t))) - _h69890_ + (eq? __tmp73227 HashTable::t))) + _h70152_ (let () (declare (not safe)) - (cast HashTable::interface _h69890_))))) + (cast HashTable::interface _h70152_))))) (declare (not safe)) - (&hash-values _h69892_)))) + (&hash-values _h70154_)))) (define &hash-values - (lambda (_h69883_) - (let ((_result69885_ '())) - (let ((__tmp72966 - (lambda (_k69887_ _v69888_) - (set! _result69885_ + (lambda (_h70145_) + (let ((_result70147_ '())) + (let ((__tmp73228 + (lambda (_k70149_ _v70150_) + (set! _result70147_ (let () (declare (not safe)) - (cons _v69888_ _result69885_)))))) + (cons _v70150_ _result70147_)))))) (declare (not safe)) - (&HashTable-for-each _h69883_ __tmp72966)) - _result69885_))) + (&HashTable-for-each _h70145_ __tmp73228)) + _result70147_))) (define hash-copy - (lambda (_h69879_) - (let ((_h69881_ - (if (and (let () (declare (not safe)) (##structure? _h69879_)) - (let ((__tmp72967 + (lambda (_h70141_) + (let ((_h70143_ + (if (and (let () (declare (not safe)) (##structure? _h70141_)) + (let ((__tmp73229 (let () (declare (not safe)) - (##structure-type _h69879_)))) + (##structure-type _h70141_)))) (declare (not safe)) - (eq? __tmp72967 HashTable::t))) - _h69879_ + (eq? __tmp73229 HashTable::t))) + _h70141_ (let () (declare (not safe)) - (cast HashTable::interface _h69879_))))) + (cast HashTable::interface _h70141_))))) (declare (not safe)) - (&HashTable-copy _h69881_)))) + (&HashTable-copy _h70143_)))) (define &hash-copy - (lambda (_h69877_) - (let () (declare (not safe)) (&HashTable-copy _h69877_)))) + (lambda (_h70139_) + (let () (declare (not safe)) (&HashTable-copy _h70139_)))) (define hash-merge - (lambda (_h69872_ . _rest69873_) - (let ((_copy69875_ (let () (declare (not safe)) (hash-copy _h69872_)))) - (apply hash-merge! _copy69875_ _rest69873_) - _copy69875_))) + (lambda (_h70134_ . _rest70135_) + (let ((_copy70137_ (let () (declare (not safe)) (hash-copy _h70134_)))) + (apply hash-merge! _copy70137_ _rest70135_) + _copy70137_))) (define hash-merge! - (lambda (_h69862_ . _rest69863_) - (let ((_h69865_ + (lambda (_h70124_ . _rest70125_) + (let ((_h70127_ (let () (declare (not safe)) - (cast HashTable::interface _h69862_)))) + (cast HashTable::interface _h70124_)))) (for-each - (lambda (_hr69867_) - (let ((__tmp72968 - (lambda (_k69869_ _v69870_) + (lambda (_hr70129_) + (let ((__tmp73230 + (lambda (_k70131_ _v70132_) (if (let () (declare (not safe)) - (&hash-key? _h69865_ _k69869_)) + (&hash-key? _h70127_ _k70131_)) '#!void (let () (declare (not safe)) - (&HashTable-set! _h69865_ _k69869_ _v69870_)))))) + (&HashTable-set! _h70127_ _k70131_ _v70132_)))))) (declare (not safe)) - (hash-for-each __tmp72968 _hr69867_))) - _rest69863_) - _h69865_))))) + (hash-for-each __tmp73230 _hr70129_))) + _rest70125_) + _h70127_))))) diff --git a/src/bootstrap/gerbil/runtime/hash__1.scm b/src/bootstrap/gerbil/runtime/hash__1.scm index c62b075c..663ff869 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]#_g72971_| + (define |[1]#_g73233_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g72973_| + (define |[1]#_g73235_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g72975_| + (define |[1]#_g73237_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g72977_| + (define |[1]#_g73239_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g72984_| + (define |[1]#_g73246_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g72987_| + (define |[1]#_g73249_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g72990_| + (define |[1]#_g73252_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g72993_| + (define |[1]#_g73255_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g73000_| + (define |[1]#_g73262_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73003_| + (define |[1]#_g73265_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73006_| + (define |[1]#_g73268_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73009_| + (define |[1]#_g73271_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73016_| + (define |[1]#_g73278_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g73019_| + (define |[1]#_g73281_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g73022_| + (define |[1]#_g73284_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g73025_| + (define |[1]#_g73287_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g73032_| + (define |[1]#_g73294_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73035_| + (define |[1]#_g73297_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73038_| + (define |[1]#_g73300_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73041_| + (define |[1]#_g73303_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73043_| + (define |[1]#_g73305_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g73045_| + (define |[1]#_g73307_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g73047_| + (define |[1]#_g73309_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g73052_| + (define |[1]#_g73314_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g73055_| + (define |[1]#_g73317_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g73060_| + (define |[1]#_g73322_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73063_| + (define |[1]#_g73325_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73068_| + (define |[1]#_g73330_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g73071_| + (define |[1]#_g73333_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g73076_| + (define |[1]#_g73338_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73079_| + (define |[1]#_g73341_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73081_| + (define |[1]#_g73343_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g73083_| + (define |[1]#_g73345_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g73085_| + (define |[1]#_g73347_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g73090_| + (define |[1]#_g73352_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g73093_| + (define |[1]#_g73355_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g73098_| + (define |[1]#_g73360_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73101_| + (define |[1]#_g73363_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73106_| + (define |[1]#_g73368_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g73109_| + (define |[1]#_g73371_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g73114_| + (define |[1]#_g73376_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g73117_| + (define |[1]#_g73379_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj72835 + (let ((__obj73097 (let () (declare (not safe)) (##structure @@ -319,7 +319,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72835 + __obj73097 'gerbil/runtime/hash#UnboundKeyError::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -327,7 +327,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72835 + __obj73097 'UnboundKeyError '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -335,26 +335,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72835 + __obj73097 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72969 - (let ((__tmp72970 |[1]#_g72971_|)) + (let ((__tmp73231 + (let ((__tmp73232 |[1]#_g73233_|)) (declare (not safe)) - (cons __tmp72970 '())))) + (cons __tmp73232 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj72835 - __tmp72969 + __obj73097 + __tmp73231 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj72835 + __obj73097 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -362,7 +362,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72835 + __obj73097 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -370,7 +370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72835 + __obj73097 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -378,178 +378,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72835 + __obj73097 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72972 |[1]#_g72973_|)) + (let ((__tmp73234 |[1]#_g73235_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72835 - __tmp72972 + __obj73097 + __tmp73234 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72974 |[1]#_g72975_|)) + (let ((__tmp73236 |[1]#_g73237_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72835 - __tmp72974 + __obj73097 + __tmp73236 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72976 |[1]#_g72977_|)) + (let ((__tmp73238 |[1]#_g73239_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72835 - __tmp72976 + __obj73097 + __tmp73238 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72978 - (let ((__tmp72991 - (let ((__tmp72992 |[1]#_g72993_|)) + (let ((__tmp73240 + (let ((__tmp73253 + (let ((__tmp73254 |[1]#_g73255_|)) (declare (not safe)) - (cons 'message __tmp72992))) - (__tmp72979 - (let ((__tmp72988 - (let ((__tmp72989 |[1]#_g72990_|)) + (cons 'message __tmp73254))) + (__tmp73241 + (let ((__tmp73250 + (let ((__tmp73251 |[1]#_g73252_|)) (declare (not safe)) - (cons 'irritants __tmp72989))) - (__tmp72980 - (let ((__tmp72985 - (let ((__tmp72986 |[1]#_g72987_|)) + (cons 'irritants __tmp73251))) + (__tmp73242 + (let ((__tmp73247 + (let ((__tmp73248 |[1]#_g73249_|)) (declare (not safe)) - (cons 'where __tmp72986))) - (__tmp72981 - (let ((__tmp72982 - (let ((__tmp72983 |[1]#_g72984_|)) + (cons 'where __tmp73248))) + (__tmp73243 + (let ((__tmp73244 + (let ((__tmp73245 |[1]#_g73246_|)) (declare (not safe)) - (cons 'continuation __tmp72983)))) + (cons 'continuation __tmp73245)))) (declare (not safe)) - (cons __tmp72982 '())))) + (cons __tmp73244 '())))) (declare (not safe)) - (cons __tmp72985 __tmp72981)))) + (cons __tmp73247 __tmp73243)))) (declare (not safe)) - (cons __tmp72988 __tmp72980)))) + (cons __tmp73250 __tmp73242)))) (declare (not safe)) - (cons __tmp72991 __tmp72979)))) + (cons __tmp73253 __tmp73241)))) (declare (not safe)) (##unchecked-structure-set! - __obj72835 - __tmp72978 + __obj73097 + __tmp73240 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp72994 - (let ((__tmp73007 - (let ((__tmp73008 |[1]#_g73009_|)) + (let ((__tmp73256 + (let ((__tmp73269 + (let ((__tmp73270 |[1]#_g73271_|)) (declare (not safe)) - (cons 'message __tmp73008))) - (__tmp72995 - (let ((__tmp73004 - (let ((__tmp73005 |[1]#_g73006_|)) + (cons 'message __tmp73270))) + (__tmp73257 + (let ((__tmp73266 + (let ((__tmp73267 |[1]#_g73268_|)) (declare (not safe)) - (cons 'irritants __tmp73005))) - (__tmp72996 - (let ((__tmp73001 - (let ((__tmp73002 |[1]#_g73003_|)) + (cons 'irritants __tmp73267))) + (__tmp73258 + (let ((__tmp73263 + (let ((__tmp73264 |[1]#_g73265_|)) (declare (not safe)) - (cons 'where __tmp73002))) - (__tmp72997 - (let ((__tmp72998 - (let ((__tmp72999 |[1]#_g73000_|)) + (cons 'where __tmp73264))) + (__tmp73259 + (let ((__tmp73260 + (let ((__tmp73261 |[1]#_g73262_|)) (declare (not safe)) - (cons 'continuation __tmp72999)))) + (cons 'continuation __tmp73261)))) (declare (not safe)) - (cons __tmp72998 '())))) + (cons __tmp73260 '())))) (declare (not safe)) - (cons __tmp73001 __tmp72997)))) + (cons __tmp73263 __tmp73259)))) (declare (not safe)) - (cons __tmp73004 __tmp72996)))) + (cons __tmp73266 __tmp73258)))) (declare (not safe)) - (cons __tmp73007 __tmp72995)))) + (cons __tmp73269 __tmp73257)))) (declare (not safe)) (##unchecked-structure-set! - __obj72835 - __tmp72994 + __obj73097 + __tmp73256 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73010 - (let ((__tmp73023 - (let ((__tmp73024 |[1]#_g73025_|)) + (let ((__tmp73272 + (let ((__tmp73285 + (let ((__tmp73286 |[1]#_g73287_|)) (declare (not safe)) - (cons 'message __tmp73024))) - (__tmp73011 - (let ((__tmp73020 - (let ((__tmp73021 |[1]#_g73022_|)) + (cons 'message __tmp73286))) + (__tmp73273 + (let ((__tmp73282 + (let ((__tmp73283 |[1]#_g73284_|)) (declare (not safe)) - (cons 'irritants __tmp73021))) - (__tmp73012 - (let ((__tmp73017 - (let ((__tmp73018 |[1]#_g73019_|)) + (cons 'irritants __tmp73283))) + (__tmp73274 + (let ((__tmp73279 + (let ((__tmp73280 |[1]#_g73281_|)) (declare (not safe)) - (cons 'where __tmp73018))) - (__tmp73013 - (let ((__tmp73014 - (let ((__tmp73015 |[1]#_g73016_|)) + (cons 'where __tmp73280))) + (__tmp73275 + (let ((__tmp73276 + (let ((__tmp73277 |[1]#_g73278_|)) (declare (not safe)) - (cons 'continuation __tmp73015)))) + (cons 'continuation __tmp73277)))) (declare (not safe)) - (cons __tmp73014 '())))) + (cons __tmp73276 '())))) (declare (not safe)) - (cons __tmp73017 __tmp73013)))) + (cons __tmp73279 __tmp73275)))) (declare (not safe)) - (cons __tmp73020 __tmp73012)))) + (cons __tmp73282 __tmp73274)))) (declare (not safe)) - (cons __tmp73023 __tmp73011)))) + (cons __tmp73285 __tmp73273)))) (declare (not safe)) (##unchecked-structure-set! - __obj72835 - __tmp73010 + __obj73097 + __tmp73272 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73026 - (let ((__tmp73039 - (let ((__tmp73040 |[1]#_g73041_|)) + (let ((__tmp73288 + (let ((__tmp73301 + (let ((__tmp73302 |[1]#_g73303_|)) (declare (not safe)) - (cons 'message __tmp73040))) - (__tmp73027 - (let ((__tmp73036 - (let ((__tmp73037 |[1]#_g73038_|)) + (cons 'message __tmp73302))) + (__tmp73289 + (let ((__tmp73298 + (let ((__tmp73299 |[1]#_g73300_|)) (declare (not safe)) - (cons 'irritants __tmp73037))) - (__tmp73028 - (let ((__tmp73033 - (let ((__tmp73034 |[1]#_g73035_|)) + (cons 'irritants __tmp73299))) + (__tmp73290 + (let ((__tmp73295 + (let ((__tmp73296 |[1]#_g73297_|)) (declare (not safe)) - (cons 'where __tmp73034))) - (__tmp73029 - (let ((__tmp73030 - (let ((__tmp73031 |[1]#_g73032_|)) + (cons 'where __tmp73296))) + (__tmp73291 + (let ((__tmp73292 + (let ((__tmp73293 |[1]#_g73294_|)) (declare (not safe)) - (cons 'continuation __tmp73031)))) + (cons 'continuation __tmp73293)))) (declare (not safe)) - (cons __tmp73030 '())))) + (cons __tmp73292 '())))) (declare (not safe)) - (cons __tmp73033 __tmp73029)))) + (cons __tmp73295 __tmp73291)))) (declare (not safe)) - (cons __tmp73036 __tmp73028)))) + (cons __tmp73298 __tmp73290)))) (declare (not safe)) - (cons __tmp73039 __tmp73027)))) + (cons __tmp73301 __tmp73289)))) (declare (not safe)) (##unchecked-structure-set! - __obj72835 - __tmp73026 + __obj73097 + __tmp73288 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj72835)) + __obj73097)) (define |[:0:]#locked-hash-table| - (let ((__obj72837 + (let ((__obj73099 (let () (declare (not safe)) (##structure @@ -572,7 +572,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72837 + __obj73099 'gerbil/runtime/hash#locked-hash-table::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -580,7 +580,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72837 + __obj73099 'locked-hash-table '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -588,7 +588,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72837 + __obj73099 '(table lock) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -596,7 +596,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72837 + __obj73099 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -604,7 +604,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72837 + __obj73099 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -612,7 +612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72837 + __obj73099 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -620,7 +620,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72837 + __obj73099 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -628,122 +628,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72837 + __obj73099 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73042 |[1]#_g73043_|)) + (let ((__tmp73304 |[1]#_g73305_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72837 - __tmp73042 + __obj73099 + __tmp73304 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73044 |[1]#_g73045_|)) + (let ((__tmp73306 |[1]#_g73307_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72837 - __tmp73044 + __obj73099 + __tmp73306 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73046 |[1]#_g73047_|)) + (let ((__tmp73308 |[1]#_g73309_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72837 - __tmp73046 + __obj73099 + __tmp73308 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73048 - (let ((__tmp73053 - (let ((__tmp73054 |[1]#_g73055_|)) + (let ((__tmp73310 + (let ((__tmp73315 + (let ((__tmp73316 |[1]#_g73317_|)) (declare (not safe)) - (cons 'table __tmp73054))) - (__tmp73049 - (let ((__tmp73050 - (let ((__tmp73051 |[1]#_g73052_|)) + (cons 'table __tmp73316))) + (__tmp73311 + (let ((__tmp73312 + (let ((__tmp73313 |[1]#_g73314_|)) (declare (not safe)) - (cons 'lock __tmp73051)))) + (cons 'lock __tmp73313)))) (declare (not safe)) - (cons __tmp73050 '())))) + (cons __tmp73312 '())))) (declare (not safe)) - (cons __tmp73053 __tmp73049)))) + (cons __tmp73315 __tmp73311)))) (declare (not safe)) (##unchecked-structure-set! - __obj72837 - __tmp73048 + __obj73099 + __tmp73310 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73056 - (let ((__tmp73061 - (let ((__tmp73062 |[1]#_g73063_|)) + (let ((__tmp73318 + (let ((__tmp73323 + (let ((__tmp73324 |[1]#_g73325_|)) (declare (not safe)) - (cons 'table __tmp73062))) - (__tmp73057 - (let ((__tmp73058 - (let ((__tmp73059 |[1]#_g73060_|)) + (cons 'table __tmp73324))) + (__tmp73319 + (let ((__tmp73320 + (let ((__tmp73321 |[1]#_g73322_|)) (declare (not safe)) - (cons 'lock __tmp73059)))) + (cons 'lock __tmp73321)))) (declare (not safe)) - (cons __tmp73058 '())))) + (cons __tmp73320 '())))) (declare (not safe)) - (cons __tmp73061 __tmp73057)))) + (cons __tmp73323 __tmp73319)))) (declare (not safe)) (##unchecked-structure-set! - __obj72837 - __tmp73056 + __obj73099 + __tmp73318 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73064 - (let ((__tmp73069 - (let ((__tmp73070 |[1]#_g73071_|)) + (let ((__tmp73326 + (let ((__tmp73331 + (let ((__tmp73332 |[1]#_g73333_|)) (declare (not safe)) - (cons 'table __tmp73070))) - (__tmp73065 - (let ((__tmp73066 - (let ((__tmp73067 |[1]#_g73068_|)) + (cons 'table __tmp73332))) + (__tmp73327 + (let ((__tmp73328 + (let ((__tmp73329 |[1]#_g73330_|)) (declare (not safe)) - (cons 'lock __tmp73067)))) + (cons 'lock __tmp73329)))) (declare (not safe)) - (cons __tmp73066 '())))) + (cons __tmp73328 '())))) (declare (not safe)) - (cons __tmp73069 __tmp73065)))) + (cons __tmp73331 __tmp73327)))) (declare (not safe)) (##unchecked-structure-set! - __obj72837 - __tmp73064 + __obj73099 + __tmp73326 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73072 - (let ((__tmp73077 - (let ((__tmp73078 |[1]#_g73079_|)) + (let ((__tmp73334 + (let ((__tmp73339 + (let ((__tmp73340 |[1]#_g73341_|)) (declare (not safe)) - (cons 'table __tmp73078))) - (__tmp73073 - (let ((__tmp73074 - (let ((__tmp73075 |[1]#_g73076_|)) + (cons 'table __tmp73340))) + (__tmp73335 + (let ((__tmp73336 + (let ((__tmp73337 |[1]#_g73338_|)) (declare (not safe)) - (cons 'lock __tmp73075)))) + (cons 'lock __tmp73337)))) (declare (not safe)) - (cons __tmp73074 '())))) + (cons __tmp73336 '())))) (declare (not safe)) - (cons __tmp73077 __tmp73073)))) + (cons __tmp73339 __tmp73335)))) (declare (not safe)) (##unchecked-structure-set! - __obj72837 - __tmp73072 + __obj73099 + __tmp73334 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj72837)) + __obj73099)) (define |[:0:]#checked-hash-table| - (let ((__obj72838 + (let ((__obj73100 (let () (declare (not safe)) (##structure @@ -766,7 +766,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj73100 'gerbil/runtime/hash#checked-hash-table::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -774,7 +774,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj73100 'checked-hash-table '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -782,7 +782,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj73100 '(table key-check) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -790,7 +790,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj73100 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -798,7 +798,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj73100 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -806,7 +806,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj73100 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -814,7 +814,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj73100 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -822,1290 +822,1290 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj72838 + __obj73100 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73080 |[1]#_g73081_|)) + (let ((__tmp73342 |[1]#_g73343_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73080 + __obj73100 + __tmp73342 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73082 |[1]#_g73083_|)) + (let ((__tmp73344 |[1]#_g73345_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73082 + __obj73100 + __tmp73344 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73084 |[1]#_g73085_|)) + (let ((__tmp73346 |[1]#_g73347_|)) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73084 + __obj73100 + __tmp73346 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73086 - (let ((__tmp73091 - (let ((__tmp73092 |[1]#_g73093_|)) + (let ((__tmp73348 + (let ((__tmp73353 + (let ((__tmp73354 |[1]#_g73355_|)) (declare (not safe)) - (cons 'table __tmp73092))) - (__tmp73087 - (let ((__tmp73088 - (let ((__tmp73089 |[1]#_g73090_|)) + (cons 'table __tmp73354))) + (__tmp73349 + (let ((__tmp73350 + (let ((__tmp73351 |[1]#_g73352_|)) (declare (not safe)) - (cons 'key-check __tmp73089)))) + (cons 'key-check __tmp73351)))) (declare (not safe)) - (cons __tmp73088 '())))) + (cons __tmp73350 '())))) (declare (not safe)) - (cons __tmp73091 __tmp73087)))) + (cons __tmp73353 __tmp73349)))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73086 + __obj73100 + __tmp73348 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73094 - (let ((__tmp73099 - (let ((__tmp73100 |[1]#_g73101_|)) + (let ((__tmp73356 + (let ((__tmp73361 + (let ((__tmp73362 |[1]#_g73363_|)) (declare (not safe)) - (cons 'table __tmp73100))) - (__tmp73095 - (let ((__tmp73096 - (let ((__tmp73097 |[1]#_g73098_|)) + (cons 'table __tmp73362))) + (__tmp73357 + (let ((__tmp73358 + (let ((__tmp73359 |[1]#_g73360_|)) (declare (not safe)) - (cons 'key-check __tmp73097)))) + (cons 'key-check __tmp73359)))) (declare (not safe)) - (cons __tmp73096 '())))) + (cons __tmp73358 '())))) (declare (not safe)) - (cons __tmp73099 __tmp73095)))) + (cons __tmp73361 __tmp73357)))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73094 + __obj73100 + __tmp73356 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73102 - (let ((__tmp73107 - (let ((__tmp73108 |[1]#_g73109_|)) + (let ((__tmp73364 + (let ((__tmp73369 + (let ((__tmp73370 |[1]#_g73371_|)) (declare (not safe)) - (cons 'table __tmp73108))) - (__tmp73103 - (let ((__tmp73104 - (let ((__tmp73105 |[1]#_g73106_|)) + (cons 'table __tmp73370))) + (__tmp73365 + (let ((__tmp73366 + (let ((__tmp73367 |[1]#_g73368_|)) (declare (not safe)) - (cons 'key-check __tmp73105)))) + (cons 'key-check __tmp73367)))) (declare (not safe)) - (cons __tmp73104 '())))) + (cons __tmp73366 '())))) (declare (not safe)) - (cons __tmp73107 __tmp73103)))) + (cons __tmp73369 __tmp73365)))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73102 + __obj73100 + __tmp73364 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp73110 - (let ((__tmp73115 - (let ((__tmp73116 |[1]#_g73117_|)) + (let ((__tmp73372 + (let ((__tmp73377 + (let ((__tmp73378 |[1]#_g73379_|)) (declare (not safe)) - (cons 'table __tmp73116))) - (__tmp73111 - (let ((__tmp73112 - (let ((__tmp73113 |[1]#_g73114_|)) + (cons 'table __tmp73378))) + (__tmp73373 + (let ((__tmp73374 + (let ((__tmp73375 |[1]#_g73376_|)) (declare (not safe)) - (cons 'key-check __tmp73113)))) + (cons 'key-check __tmp73375)))) (declare (not safe)) - (cons __tmp73112 '())))) + (cons __tmp73374 '())))) (declare (not safe)) - (cons __tmp73115 __tmp73111)))) + (cons __tmp73377 __tmp73373)))) (declare (not safe)) (##unchecked-structure-set! - __obj72838 - __tmp73110 + __obj73100 + __tmp73372 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj72838)) + __obj73100)) (define |[:0:]#defhash-method| - (lambda (_stx69018_) - (let* ((_g6902169062_ - (lambda (_g6902269058_) + (lambda (_stx69280_) + (let* ((_g6928369324_ + (lambda (_g6928469320_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6902269058_))) - (_g6902069352_ - (lambda (_g6902269066_) - (if (gx#stx-pair? _g6902269066_) - (let ((_e6902969069_ (gx#syntax-e _g6902269066_))) - (let ((_hd6902869073_ + _g6928469320_))) + (_g6928269614_ + (lambda (_g6928469328_) + (if (gx#stx-pair? _g6928469328_) + (let ((_e6929169331_ (gx#syntax-e _g6928469328_))) + (let ((_hd6929069335_ (let () (declare (not safe)) - (##car _e6902969069_))) - (_tl6902769076_ + (##car _e6929169331_))) + (_tl6928969338_ (let () (declare (not safe)) - (##cdr _e6902969069_)))) - (if (gx#stx-pair? _tl6902769076_) - (let ((_e6903269079_ - (gx#syntax-e _tl6902769076_))) - (let ((_hd6903169083_ + (##cdr _e6929169331_)))) + (if (gx#stx-pair? _tl6928969338_) + (let ((_e6929469341_ + (gx#syntax-e _tl6928969338_))) + (let ((_hd6929369345_ (let () (declare (not safe)) - (##car _e6903269079_))) - (_tl6903069086_ + (##car _e6929469341_))) + (_tl6929269348_ (let () (declare (not safe)) - (##cdr _e6903269079_)))) - (if (gx#stx-pair? _hd6903169083_) - (let ((_e6903569089_ - (gx#syntax-e _hd6903169083_))) - (let ((_hd6903469093_ + (##cdr _e6929469341_)))) + (if (gx#stx-pair? _hd6929369345_) + (let ((_e6929769351_ + (gx#syntax-e _hd6929369345_))) + (let ((_hd6929669355_ (let () (declare (not safe)) - (##car _e6903569089_))) - (_tl6903369096_ + (##car _e6929769351_))) + (_tl6929569358_ (let () (declare (not safe)) - (##cdr _e6903569089_)))) - (if (gx#stx-pair? _tl6903369096_) - (let ((_e6903869099_ + (##cdr _e6929769351_)))) + (if (gx#stx-pair? _tl6929569358_) + (let ((_e6930069361_ (gx#syntax-e - _tl6903369096_))) - (let ((_hd6903769103_ + _tl6929569358_))) + (let ((_hd6929969365_ (let () (declare (not safe)) - (##car _e6903869099_))) - (_tl6903669106_ + (##car _e6930069361_))) + (_tl6929869368_ (let () (declare (not safe)) - (##cdr _e6903869099_)))) + (##cdr _e6930069361_)))) (if (gx#stx-pair/null? - _tl6903669106_) - (let ((_g73118_ + _tl6929869368_) + (let ((_g73380_ (gx#syntax-split-splice - _tl6903669106_ + _tl6929869368_ '0))) (begin - (let ((_g73119_ + (let ((_g73381_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g73118_) - (##vector-length _g73118_) + (if (##values? _g73380_) + (##vector-length _g73380_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g73119_ 2))) - (error "Context expects 2 values" _g73119_))) - (let ((_target6903969109_ + (if (not (let () (declare (not safe)) (##fx= _g73381_ 2))) + (error "Context expects 2 values" _g73381_))) + (let ((_target6930169371_ (let () (declare (not safe)) - (##vector-ref _g73118_ 0))) - (_tl6904169112_ + (##vector-ref _g73380_ 0))) + (_tl6930369374_ (let () (declare (not safe)) - (##vector-ref _g73118_ 1)))) - (if (gx#stx-null? _tl6904169112_) - (letrec ((_loop6904269115_ - (lambda (_hd6904069119_ _arg6904669122_) - (if (gx#stx-pair? _hd6904069119_) - (let ((_e6904369125_ - (gx#syntax-e _hd6904069119_))) - (let ((_lp-hd6904469129_ + (##vector-ref _g73380_ 1)))) + (if (gx#stx-null? _tl6930369374_) + (letrec ((_loop6930469377_ + (lambda (_hd6930269381_ _arg6930869384_) + (if (gx#stx-pair? _hd6930269381_) + (let ((_e6930569387_ + (gx#syntax-e _hd6930269381_))) + (let ((_lp-hd6930669391_ (let () (declare (not safe)) - (##car _e6904369125_))) - (_lp-tl6904569132_ + (##car _e6930569387_))) + (_lp-tl6930769394_ (let () (declare (not safe)) - (##cdr _e6904369125_)))) - (_loop6904269115_ - _lp-tl6904569132_ + (##cdr _e6930569387_)))) + (_loop6930469377_ + _lp-tl6930769394_ (let () (declare (not safe)) - (cons _lp-hd6904469129_ - _arg6904669122_))))) - (let ((_arg6904769135_ - (reverse _arg6904669122_))) + (cons _lp-hd6930669391_ + _arg6930869384_))))) + (let ((_arg6930969397_ + (reverse _arg6930869384_))) (if (gx#stx-pair/null? - _tl6903069086_) - (let ((_g73120_ + _tl6929269348_) + (let ((_g73382_ (gx#syntax-split-splice - _tl6903069086_ + _tl6929269348_ '0))) (begin - (let ((_g73121_ + (let ((_g73383_ (let () (declare (not safe)) (if (##values? - _g73120_) + _g73382_) (##vector-length - _g73120_) + _g73382_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g73121_ 2))) - (error "Context expects 2 values" _g73121_))) + (##fx= _g73383_ 2))) + (error "Context expects 2 values" _g73383_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target6904869139_ + (let ((_target6931069401_ (let () (declare (not safe)) (##vector-ref - _g73120_ + _g73382_ 0))) - (_tl6905069142_ + (_tl6931269404_ (let () (declare (not safe)) (##vector-ref - _g73120_ + _g73382_ 1)))) (if (gx#stx-null? - _tl6905069142_) - (letrec ((_loop6905169145_ + _tl6931269404_) + (letrec ((_loop6931369407_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd6904969149_ _body6905569152_) - (if (gx#stx-pair? _hd6904969149_) - (let ((_e6905269155_ - (gx#syntax-e _hd6904969149_))) - (let ((_lp-hd6905369159_ + (lambda (_hd6931169411_ _body6931769414_) + (if (gx#stx-pair? _hd6931169411_) + (let ((_e6931469417_ + (gx#syntax-e _hd6931169411_))) + (let ((_lp-hd6931569421_ (let () (declare (not safe)) - (##car _e6905269155_))) - (_lp-tl6905469162_ + (##car _e6931469417_))) + (_lp-tl6931669424_ (let () (declare (not safe)) - (##cdr _e6905269155_)))) - (_loop6905169145_ - _lp-tl6905469162_ + (##cdr _e6931469417_)))) + (_loop6931369407_ + _lp-tl6931669424_ (let () (declare (not safe)) - (cons _lp-hd6905369159_ - _body6905569152_))))) - (let ((_body6905669165_ - (reverse _body6905569152_))) - ((lambda (_L69169_ - _L69171_ - _L69172_ - _L69173_) - (let* ((_g6920269226_ - (lambda (_g6920369222_) + (cons _lp-hd6931569421_ + _body6931769414_))))) + (let ((_body6931869427_ + (reverse _body6931769414_))) + ((lambda (_L69431_ + _L69433_ + _L69434_ + _L69435_) + (let* ((_g6946469488_ + (lambda (_g6946569484_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6920369222_))) - (_g6920169337_ - (lambda (_g6920369230_) - (if (gx#stx-pair? _g6920369230_) - (let ((_e6920869233_ + _g6946569484_))) + (_g6946369599_ + (lambda (_g6946569492_) + (if (gx#stx-pair? _g6946569492_) + (let ((_e6947069495_ (gx#syntax-e - _g6920369230_))) - (let ((_hd6920769237_ + _g6946569492_))) + (let ((_hd6946969499_ (let () (declare (not safe)) - (##car _e6920869233_))) - (_tl6920669240_ + (##car _e6947069495_))) + (_tl6946869502_ (let () (declare (not safe)) - (##cdr _e6920869233_)))) + (##cdr _e6947069495_)))) (if (gx#stx-pair? - _tl6920669240_) - (let ((_e6921169243_ + _tl6946869502_) + (let ((_e6947369505_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl6920669240_))) - (let ((_hd6921069247_ + (gx#syntax-e _tl6946869502_))) + (let ((_hd6947269509_ (let () (declare (not safe)) - (##car _e6921169243_))) - (_tl6920969250_ + (##car _e6947369505_))) + (_tl6947169512_ (let () (declare (not safe)) - (##cdr _e6921169243_)))) - (if (gx#stx-pair/null? _hd6921069247_) - (let ((_g73122_ - (gx#syntax-split-splice _hd6921069247_ '0))) + (##cdr _e6947369505_)))) + (if (gx#stx-pair/null? _hd6947269509_) + (let ((_g73384_ + (gx#syntax-split-splice _hd6947269509_ '0))) (begin - (let ((_g73123_ + (let ((_g73385_ (let () (declare (not safe)) - (if (##values? _g73122_) - (##vector-length _g73122_) + (if (##values? _g73384_) + (##vector-length _g73384_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g73123_ 2))) + (##fx= _g73385_ 2))) (error "Context expects 2 values" - _g73123_))) - (let ((_target6921269253_ + _g73385_))) + (let ((_target6947469515_ (let () (declare (not safe)) - (##vector-ref _g73122_ 0))) - (_tl6921469256_ + (##vector-ref _g73384_ 0))) + (_tl6947669518_ (let () (declare (not safe)) - (##vector-ref _g73122_ 1)))) - (if (gx#stx-null? _tl6921469256_) - (letrec ((_loop6921569259_ - (lambda (_hd6921369263_ - _arg-val6921969266_) + (##vector-ref _g73384_ 1)))) + (if (gx#stx-null? _tl6947669518_) + (letrec ((_loop6947769521_ + (lambda (_hd6947569525_ + _arg-val6948169528_) (if (gx#stx-pair? - _hd6921369263_) - (let ((_e6921669269_ + _hd6947569525_) + (let ((_e6947869531_ (gx#syntax-e - _hd6921369263_))) - (let ((_lp-hd6921769273_ + _hd6947569525_))) + (let ((_lp-hd6947969535_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e6921669269_))) - (_lp-tl6921869276_ - (let () (declare (not safe)) (##cdr _e6921669269_)))) - (_loop6921569259_ - _lp-tl6921869276_ + (##car _e6947869531_))) + (_lp-tl6948069538_ + (let () (declare (not safe)) (##cdr _e6947869531_)))) + (_loop6947769521_ + _lp-tl6948069538_ (let () (declare (not safe)) - (cons _lp-hd6921769273_ _arg-val6921969266_))))) + (cons _lp-hd6947969535_ _arg-val6948169528_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg-val6922069279_ - (reverse _arg-val6921969266_))) + (let ((_arg-val6948269541_ + (reverse _arg-val6948169528_))) (if (gx#stx-null? - _tl6920969250_) - ((lambda (_L69283_ + _tl6947169512_) + ((lambda (_L69545_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L69285_) + _L69547_) (let () - (let ((__tmp73168 (gx#datum->syntax '#f 'begin)) - (__tmp73124 - (let ((__tmp73135 - (let ((__tmp73167 + (let ((__tmp73430 (gx#datum->syntax '#f 'begin)) + (__tmp73386 + (let ((__tmp73397 + (let ((__tmp73429 (gx#datum->syntax '#f 'def)) - (__tmp73136 - (let ((__tmp73163 - (let ((__tmp73164 - (let ((__tmp73165 + (__tmp73398 + (let ((__tmp73425 + (let ((__tmp73426 + (let ((__tmp73427 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73166 - (lambda (_g6931069313_ _g6931169316_) + (let ((__tmp73428 + (lambda (_g6957269575_ _g6957369578_) (let () (declare (not safe)) - (cons _g6931069313_ _g6931169316_))))) + (cons _g6957269575_ _g6957369578_))))) (declare (not safe)) - (foldr1 __tmp73166 '() _L69171_)))) + (foldr1 __tmp73428 '() _L69433_)))) (declare (not safe)) - (cons _L69172_ __tmp73165)))) + (cons _L69434_ __tmp73427)))) (declare (not safe)) - (cons _L69173_ __tmp73164))) + (cons _L69435_ __tmp73426))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp73137 - (let ((__tmp73138 - (let ((__tmp73162 + (__tmp73399 + (let ((__tmp73400 + (let ((__tmp73424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp73139 - (let ((__tmp73145 - (let ((__tmp73146 - (let ((__tmp73147 - (let ((__tmp73161 + (__tmp73401 + (let ((__tmp73407 + (let ((__tmp73408 + (let ((__tmp73409 + (let ((__tmp73423 (gx#datum->syntax '#f 'if)) - (__tmp73148 - (let ((__tmp73156 - (let ((__tmp73160 + (__tmp73410 + (let ((__tmp73418 + (let ((__tmp73422 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'immediate-instance-of?)) - (__tmp73157 - (let ((__tmp73159 + (__tmp73419 + (let ((__tmp73421 (gx#datum->syntax '#f 'HashTable::t)) - (__tmp73158 + (__tmp73420 (let () (declare (not safe)) - (cons _L69172_ '())))) + (cons _L69434_ '())))) (declare (not safe)) - (cons __tmp73159 __tmp73158)))) + (cons __tmp73421 __tmp73420)))) (declare (not safe)) - (cons __tmp73160 __tmp73157))) - (__tmp73149 - (let ((__tmp73150 - (let ((__tmp73151 - (let ((__tmp73155 + (cons __tmp73422 __tmp73419))) + (__tmp73411 + (let ((__tmp73412 + (let ((__tmp73413 + (let ((__tmp73417 (gx#datum->syntax '#f 'cast)) - (__tmp73152 - (let ((__tmp73154 + (__tmp73414 + (let ((__tmp73416 (gx#datum->syntax '#f 'HashTable::interface)) - (__tmp73153 + (__tmp73415 (let () (declare (not safe)) - (cons _L69172_ '())))) + (cons _L69434_ '())))) (declare (not safe)) - (cons __tmp73154 __tmp73153)))) + (cons __tmp73416 __tmp73415)))) (declare (not safe)) - (cons __tmp73155 __tmp73152)))) + (cons __tmp73417 __tmp73414)))) (declare (not safe)) - (cons __tmp73151 '())))) + (cons __tmp73413 '())))) (declare (not safe)) - (cons _L69172_ __tmp73150)))) + (cons _L69434_ __tmp73412)))) (declare (not safe)) - (cons __tmp73156 __tmp73149)))) + (cons __tmp73418 __tmp73411)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73161 - __tmp73148)))) + (cons __tmp73423 + __tmp73410)))) (declare (not safe)) - (cons __tmp73147 '())))) + (cons __tmp73409 '())))) (declare (not safe)) - (cons _L69172_ __tmp73146))) - (__tmp73140 - (let ((__tmp73141 - (let ((__tmp73142 - (let ((__tmp73143 - (let ((__tmp73144 - (lambda (_g6930869319_ + (cons _L69434_ __tmp73408))) + (__tmp73402 + (let ((__tmp73403 + (let ((__tmp73404 + (let ((__tmp73405 + (let ((__tmp73406 + (lambda (_g6957069581_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6930969322_) + _g6957169584_) (let () (declare (not safe)) - (cons _g6930869319_ _g6930969322_))))) + (cons _g6957069581_ _g6957169584_))))) (declare (not safe)) - (foldr1 __tmp73144 '() _L69283_)))) + (foldr1 __tmp73406 '() _L69545_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L69172_ __tmp73143)))) + (cons _L69434_ __tmp73405)))) (declare (not safe)) - (cons _L69285_ __tmp73142)))) + (cons _L69547_ __tmp73404)))) (declare (not safe)) - (cons __tmp73141 '())))) + (cons __tmp73403 '())))) (declare (not safe)) - (cons __tmp73145 __tmp73140)))) + (cons __tmp73407 __tmp73402)))) (declare (not safe)) - (cons __tmp73162 __tmp73139)))) + (cons __tmp73424 __tmp73401)))) (declare (not safe)) - (cons __tmp73138 '())))) + (cons __tmp73400 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73163 __tmp73137)))) + (cons __tmp73425 __tmp73399)))) (declare (not safe)) - (cons __tmp73167 __tmp73136))) - (__tmp73125 - (let ((__tmp73126 - (let ((__tmp73134 + (cons __tmp73429 __tmp73398))) + (__tmp73387 + (let ((__tmp73388 + (let ((__tmp73396 (gx#datum->syntax '#f 'def)) - (__tmp73127 - (let ((__tmp73130 - (let ((__tmp73131 + (__tmp73389 + (let ((__tmp73392 + (let ((__tmp73393 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73132 - (let ((__tmp73133 - (lambda (_g6930669325_ _g6930769328_) + (let ((__tmp73394 + (let ((__tmp73395 + (lambda (_g6956869587_ _g6956969590_) (let () (declare (not safe)) - (cons _g6930669325_ - _g6930769328_))))) + (cons _g6956869587_ + _g6956969590_))))) (declare (not safe)) - (foldr1 __tmp73133 '() _L69171_)))) + (foldr1 __tmp73395 '() _L69433_)))) (declare (not safe)) - (cons _L69172_ __tmp73132)))) + (cons _L69434_ __tmp73394)))) (declare (not safe)) - (cons _L69285_ __tmp73131))) - (__tmp73128 - (let ((__tmp73129 - (lambda (_g6930469331_ _g6930569334_) + (cons _L69547_ __tmp73393))) + (__tmp73390 + (let ((__tmp73391 + (lambda (_g6956669593_ _g6956769596_) (let () (declare (not safe)) - (cons _g6930469331_ _g6930569334_))))) + (cons _g6956669593_ _g6956769596_))))) (declare (not safe)) - (foldr1 __tmp73129 '() _L69169_)))) + (foldr1 __tmp73391 '() _L69431_)))) (declare (not safe)) - (cons __tmp73130 __tmp73128)))) + (cons __tmp73392 __tmp73390)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73134 __tmp73127)))) + (cons __tmp73396 __tmp73389)))) (declare (not safe)) - (cons __tmp73126 '())))) + (cons __tmp73388 '())))) (declare (not safe)) - (cons __tmp73135 __tmp73125)))) + (cons __tmp73397 __tmp73387)))) (declare (not safe)) - (cons __tmp73168 __tmp73124)))) - _arg-val6922069279_ - _hd6920769237_) - (_g6920269226_ _g6920369230_))))))) + (cons __tmp73430 __tmp73386)))) + _arg-val6948269541_ + _hd6946969499_) + (_g6946469488_ _g6946569492_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6921569259_ - _target6921269253_ + (_loop6947769521_ + _target6947469515_ '())) - (_g6920269226_ _g6920369230_))))) - (_g6920269226_ _g6920369230_)))) - (_g6920269226_ _g6920369230_)))) + (_g6946469488_ _g6946569492_))))) + (_g6946469488_ _g6946569492_)))) + (_g6946469488_ _g6946569492_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6920269226_ - _g6920369230_))))) - (_g6920169337_ + (_g6946469488_ + _g6946569492_))))) + (_g6946369599_ (list (gx#stx-identifier - _L69173_ + _L69435_ '"&" - _L69173_) + _L69435_) (gx#stx-map - (lambda (_arg69341_) + (lambda (_arg69603_) (if (gx#identifier? - _arg69341_) - _arg69341_ - (gx#stx-car _arg69341_))) - (let ((__tmp73169 - (lambda (_g6934369346_ - _g6934469349_) + _arg69603_) + _arg69603_ + (gx#stx-car _arg69603_))) + (let ((__tmp73431 + (lambda (_g6960569608_ + _g6960669611_) (let () (declare (not safe)) - (cons _g6934369346_ - _g6934469349_))))) + (cons _g6960569608_ + _g6960669611_))))) (declare (not safe)) - (foldr1 __tmp73169 + (foldr1 __tmp73431 '() - _L69171_))))))) - _body6905669165_ - _arg6904769135_ - _hd6903769103_ - _hd6903469093_)))))) - (_loop6905169145_ _target6904869139_ '())) - (_g6902169062_ _g6902269066_))))) + _L69433_))))))) + _body6931869427_ + _arg6930969397_ + _hd6929969365_ + _hd6929669355_)))))) + (_loop6931369407_ _target6931069401_ '())) + (_g6928369324_ _g6928469328_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6902169062_ - _g6902269066_))))))) - (_loop6904269115_ _target6903969109_ '())) - (_g6902169062_ _g6902269066_))))) - (_g6902169062_ _g6902269066_)))) + (_g6928369324_ + _g6928469328_))))))) + (_loop6930469377_ _target6930169371_ '())) + (_g6928369324_ _g6928469328_))))) + (_g6928369324_ _g6928469328_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6902169062_ _g6902269066_)))) - (_g6902169062_ _g6902269066_)))) - (_g6902169062_ _g6902269066_)))) - (_g6902169062_ _g6902269066_))))) - (_g6902069352_ _stx69018_)))) + (_g6928369324_ _g6928469328_)))) + (_g6928369324_ _g6928469328_)))) + (_g6928369324_ _g6928469328_)))) + (_g6928369324_ _g6928469328_))))) + (_g6928269614_ _stx69280_)))) (define |[:0:]#deflocked-hash-method| - (lambda (_$stx69359_) - (let* ((_g6936369402_ - (lambda (_g6936469398_) + (lambda (_$stx69621_) + (let* ((_g6962569664_ + (lambda (_g6962669660_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6936469398_))) - (_g6936269549_ - (lambda (_g6936469406_) - (if (gx#stx-pair? _g6936469406_) - (let ((_e6937269409_ (gx#syntax-e _g6936469406_))) - (let ((_hd6937169413_ + _g6962669660_))) + (_g6962469811_ + (lambda (_g6962669668_) + (if (gx#stx-pair? _g6962669668_) + (let ((_e6963469671_ (gx#syntax-e _g6962669668_))) + (let ((_hd6963369675_ (let () (declare (not safe)) - (##car _e6937269409_))) - (_tl6937069416_ + (##car _e6963469671_))) + (_tl6963269678_ (let () (declare (not safe)) - (##cdr _e6937269409_)))) - (if (gx#stx-pair? _tl6937069416_) - (let ((_e6937569419_ - (gx#syntax-e _tl6937069416_))) - (let ((_hd6937469423_ + (##cdr _e6963469671_)))) + (if (gx#stx-pair? _tl6963269678_) + (let ((_e6963769681_ + (gx#syntax-e _tl6963269678_))) + (let ((_hd6963669685_ (let () (declare (not safe)) - (##car _e6937569419_))) - (_tl6937369426_ + (##car _e6963769681_))) + (_tl6963569688_ (let () (declare (not safe)) - (##cdr _e6937569419_)))) - (if (gx#stx-pair? _hd6937469423_) - (let ((_e6937869429_ - (gx#syntax-e _hd6937469423_))) - (let ((_hd6937769433_ + (##cdr _e6963769681_)))) + (if (gx#stx-pair? _hd6963669685_) + (let ((_e6964069691_ + (gx#syntax-e _hd6963669685_))) + (let ((_hd6963969695_ (let () (declare (not safe)) - (##car _e6937869429_))) - (_tl6937669436_ + (##car _e6964069691_))) + (_tl6963869698_ (let () (declare (not safe)) - (##cdr _e6937869429_)))) + (##cdr _e6964069691_)))) (if (gx#stx-pair/null? - _tl6937669436_) - (let ((_g73170_ + _tl6963869698_) + (let ((_g73432_ (gx#syntax-split-splice - _tl6937669436_ + _tl6963869698_ '0))) (begin - (let ((_g73171_ + (let ((_g73433_ (let () (declare (not safe)) (if (##values? - _g73170_) + _g73432_) (##vector-length - _g73170_) + _g73432_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g73171_ 2))) - (error "Context expects 2 values" _g73171_))) + (##fx= _g73433_ 2))) + (error "Context expects 2 values" _g73433_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target6937969439_ + (let ((_target6964169701_ (let () (declare (not safe)) (##vector-ref - _g73170_ + _g73432_ 0))) - (_tl6938169442_ + (_tl6964369704_ (let () (declare (not safe)) (##vector-ref - _g73170_ + _g73432_ 1)))) (if (gx#stx-null? - _tl6938169442_) - (letrec ((_loop6938269445_ + _tl6964369704_) + (letrec ((_loop6964469707_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd6938069449_ _arg6938669452_) - (if (gx#stx-pair? _hd6938069449_) - (let ((_e6938369455_ - (gx#syntax-e _hd6938069449_))) - (let ((_lp-hd6938469459_ + (lambda (_hd6964269711_ _arg6964869714_) + (if (gx#stx-pair? _hd6964269711_) + (let ((_e6964569717_ + (gx#syntax-e _hd6964269711_))) + (let ((_lp-hd6964669721_ (let () (declare (not safe)) - (##car _e6938369455_))) - (_lp-tl6938569462_ + (##car _e6964569717_))) + (_lp-tl6964769724_ (let () (declare (not safe)) - (##cdr _e6938369455_)))) - (_loop6938269445_ - _lp-tl6938569462_ + (##cdr _e6964569717_)))) + (_loop6964469707_ + _lp-tl6964769724_ (let () (declare (not safe)) - (cons _lp-hd6938469459_ - _arg6938669452_))))) - (let ((_arg6938769465_ - (reverse _arg6938669452_))) - (if (gx#stx-pair? _tl6937369426_) - (let ((_e6939069469_ - (gx#syntax-e _tl6937369426_))) - (let ((_hd6938969473_ + (cons _lp-hd6964669721_ + _arg6964869714_))))) + (let ((_arg6964969727_ + (reverse _arg6964869714_))) + (if (gx#stx-pair? _tl6963569688_) + (let ((_e6965269731_ + (gx#syntax-e _tl6963569688_))) + (let ((_hd6965169735_ (let () (declare (not safe)) - (##car _e6939069469_))) - (_tl6938869476_ + (##car _e6965269731_))) + (_tl6965069738_ (let () (declare (not safe)) - (##cdr _e6939069469_)))) - (if (gx#stx-pair? _tl6938869476_) - (let ((_e6939369479_ + (##cdr _e6965269731_)))) + (if (gx#stx-pair? _tl6965069738_) + (let ((_e6965569741_ (gx#syntax-e - _tl6938869476_))) - (let ((_hd6939269483_ + _tl6965069738_))) + (let ((_hd6965469745_ (let () (declare (not safe)) - (##car _e6939369479_))) - (_tl6939169486_ + (##car _e6965569741_))) + (_tl6965369748_ (let () (declare (not safe)) - (##cdr _e6939369479_)))) + (##cdr _e6965569741_)))) (if (gx#stx-pair? - _tl6939169486_) - (let ((_e6939669489_ + _tl6965369748_) + (let ((_e6965869751_ (gx#syntax-e - _tl6939169486_))) - (let ((_hd6939569493_ + _tl6965369748_))) + (let ((_hd6965769755_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6939669489_))) - (_tl6939469496_ - (let () (declare (not safe)) (##cdr _e6939669489_)))) - (if (gx#stx-null? _tl6939469496_) - ((lambda (_L69499_ _L69501_ _L69502_ _L69503_ _L69504_) - (let ((__tmp73229 (gx#datum->syntax '#f 'defmethod)) - (__tmp73172 - (let ((__tmp73224 - (let ((__tmp73228 + (##car _e6965869751_))) + (_tl6965669758_ + (let () (declare (not safe)) (##cdr _e6965869751_)))) + (if (gx#stx-null? _tl6965669758_) + ((lambda (_L69761_ _L69763_ _L69764_ _L69765_ _L69766_) + (let ((__tmp73491 (gx#datum->syntax '#f 'defmethod)) + (__tmp73434 + (let ((__tmp73486 + (let ((__tmp73490 (gx#datum->syntax '#f '@method)) - (__tmp73225 - (let ((__tmp73226 - (let ((__tmp73227 + (__tmp73487 + (let ((__tmp73488 + (let ((__tmp73489 (gx#datum->syntax '#f 'locked-hash-table))) (declare (not safe)) - (cons __tmp73227 '())))) + (cons __tmp73489 '())))) (declare (not safe)) - (cons _L69504_ __tmp73226)))) + (cons _L69766_ __tmp73488)))) (declare (not safe)) - (cons __tmp73228 __tmp73225))) - (__tmp73173 - (let ((__tmp73174 - (let ((__tmp73223 + (cons __tmp73490 __tmp73487))) + (__tmp73435 + (let ((__tmp73436 + (let ((__tmp73485 (gx#datum->syntax '#f 'lambda)) - (__tmp73175 - (let ((__tmp73219 - (let ((__tmp73222 + (__tmp73437 + (let ((__tmp73481 + (let ((__tmp73484 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'self)) - (__tmp73220 - (let ((__tmp73221 - (lambda (_g6953469537_ _g6953569540_) + (__tmp73482 + (let ((__tmp73483 + (lambda (_g6979669799_ _g6979769802_) (let () (declare (not safe)) - (cons _g6953469537_ _g6953569540_))))) + (cons _g6979669799_ _g6979769802_))))) (declare (not safe)) - (foldr1 __tmp73221 '() _L69503_)))) + (foldr1 __tmp73483 '() _L69765_)))) (declare (not safe)) - (cons __tmp73222 __tmp73220))) - (__tmp73176 - (let ((__tmp73177 - (let ((__tmp73218 (gx#datum->syntax '#f 'let)) - (__tmp73178 - (let ((__tmp73202 - (let ((__tmp73211 - (let ((__tmp73217 + (cons __tmp73484 __tmp73482))) + (__tmp73438 + (let ((__tmp73439 + (let ((__tmp73480 (gx#datum->syntax '#f 'let)) + (__tmp73440 + (let ((__tmp73464 + (let ((__tmp73473 + (let ((__tmp73479 (gx#datum->syntax '#f 'h)) - (__tmp73212 - (let ((__tmp73213 - (let ((__tmp73216 + (__tmp73474 + (let ((__tmp73475 + (let ((__tmp73478 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&locked-hash-table-table)) - (__tmp73214 - (let ((__tmp73215 (gx#datum->syntax '#f 'self))) + (__tmp73476 + (let ((__tmp73477 (gx#datum->syntax '#f 'self))) (declare (not safe)) - (cons __tmp73215 '())))) + (cons __tmp73477 '())))) (declare (not safe)) - (cons __tmp73216 __tmp73214)))) + (cons __tmp73478 __tmp73476)))) (declare (not safe)) - (cons __tmp73213 '())))) + (cons __tmp73475 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73217 - __tmp73212))) - (__tmp73203 - (let ((__tmp73204 - (let ((__tmp73210 + (cons __tmp73479 + __tmp73474))) + (__tmp73465 + (let ((__tmp73466 + (let ((__tmp73472 (gx#datum->syntax '#f 'l)) - (__tmp73205 - (let ((__tmp73206 + (__tmp73467 + (let ((__tmp73468 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73209 + (let ((__tmp73471 (gx#datum->syntax '#f '&locked-hash-table-lock)) - (__tmp73207 - (let ((__tmp73208 + (__tmp73469 + (let ((__tmp73470 (gx#datum->syntax '#f 'self))) (declare (not safe)) - (cons __tmp73208 '())))) + (cons __tmp73470 '())))) (declare (not safe)) - (cons __tmp73209 __tmp73207)))) + (cons __tmp73471 __tmp73469)))) (declare (not safe)) - (cons __tmp73206 '())))) + (cons __tmp73468 '())))) (declare (not safe)) - (cons __tmp73210 __tmp73205)))) + (cons __tmp73472 __tmp73467)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73204 '())))) + (cons __tmp73466 '())))) (declare (not safe)) - (cons __tmp73211 __tmp73203))) - (__tmp73179 - (let ((__tmp73180 - (let ((__tmp73201 + (cons __tmp73473 __tmp73465))) + (__tmp73441 + (let ((__tmp73442 + (let ((__tmp73463 (gx#datum->syntax '#f 'dynamic-wind)) - (__tmp73181 - (let ((__tmp73196 - (let ((__tmp73200 + (__tmp73443 + (let ((__tmp73458 + (let ((__tmp73462 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cut)) - (__tmp73197 - (let ((__tmp73198 - (let ((__tmp73199 + (__tmp73459 + (let ((__tmp73460 + (let ((__tmp73461 (gx#datum->syntax '#f 'l))) (declare (not safe)) - (cons __tmp73199 '())))) + (cons __tmp73461 '())))) (declare (not safe)) - (cons _L69502_ __tmp73198)))) + (cons _L69764_ __tmp73460)))) (declare (not safe)) - (cons __tmp73200 __tmp73197))) - (__tmp73182 - (let ((__tmp73189 - (let ((__tmp73195 (gx#datum->syntax '#f 'cut)) - (__tmp73190 - (let ((__tmp73191 - (let ((__tmp73194 + (cons __tmp73462 __tmp73459))) + (__tmp73444 + (let ((__tmp73451 + (let ((__tmp73457 (gx#datum->syntax '#f 'cut)) + (__tmp73452 + (let ((__tmp73453 + (let ((__tmp73456 (gx#datum->syntax '#f 'h)) - (__tmp73192 - (let ((__tmp73193 - (lambda (_g6953269543_ + (__tmp73454 + (let ((__tmp73455 + (lambda (_g6979469805_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6953369546_) + _g6979569808_) (let () (declare (not safe)) - (cons _g6953269543_ _g6953369546_))))) + (cons _g6979469805_ _g6979569808_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp73193 + (foldr1 __tmp73455 '() - _L69503_)))) + _L69765_)))) (declare (not safe)) - (cons __tmp73194 __tmp73192)))) + (cons __tmp73456 __tmp73454)))) (declare (not safe)) - (cons _L69501_ __tmp73191)))) + (cons _L69763_ __tmp73453)))) (declare (not safe)) - (cons __tmp73195 __tmp73190))) - (__tmp73183 - (let ((__tmp73184 - (let ((__tmp73188 + (cons __tmp73457 __tmp73452))) + (__tmp73445 + (let ((__tmp73446 + (let ((__tmp73450 (gx#datum->syntax '#f 'cut)) - (__tmp73185 - (let ((__tmp73186 - (let ((__tmp73187 + (__tmp73447 + (let ((__tmp73448 + (let ((__tmp73449 (gx#datum->syntax '#f 'l))) (declare (not safe)) - (cons __tmp73187 '())))) + (cons __tmp73449 '())))) (declare (not safe)) - (cons _L69499_ __tmp73186)))) + (cons _L69761_ __tmp73448)))) (declare (not safe)) - (cons __tmp73188 __tmp73185)))) + (cons __tmp73450 __tmp73447)))) (declare (not safe)) - (cons __tmp73184 '())))) + (cons __tmp73446 '())))) (declare (not safe)) - (cons __tmp73189 __tmp73183)))) + (cons __tmp73451 __tmp73445)))) (declare (not safe)) - (cons __tmp73196 __tmp73182)))) + (cons __tmp73458 __tmp73444)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73201 - __tmp73181)))) + (cons __tmp73463 + __tmp73443)))) (declare (not safe)) - (cons __tmp73180 '())))) + (cons __tmp73442 '())))) (declare (not safe)) - (cons __tmp73202 __tmp73179)))) + (cons __tmp73464 __tmp73441)))) (declare (not safe)) - (cons __tmp73218 __tmp73178)))) + (cons __tmp73480 __tmp73440)))) (declare (not safe)) - (cons __tmp73177 '())))) + (cons __tmp73439 '())))) (declare (not safe)) - (cons __tmp73219 __tmp73176)))) + (cons __tmp73481 __tmp73438)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73223 __tmp73175)))) + (cons __tmp73485 __tmp73437)))) (declare (not safe)) - (cons __tmp73174 '())))) + (cons __tmp73436 '())))) (declare (not safe)) - (cons __tmp73224 __tmp73173)))) + (cons __tmp73486 __tmp73435)))) (declare (not safe)) - (cons __tmp73229 __tmp73172))) - _hd6939569493_ - _hd6939269483_ - _hd6938969473_ - _arg6938769465_ - _hd6937769433_) - (_g6936369402_ _g6936469406_)))) - (_g6936369402_ _g6936469406_)))) + (cons __tmp73491 __tmp73434))) + _hd6965769755_ + _hd6965469745_ + _hd6965169735_ + _arg6964969727_ + _hd6963969695_) + (_g6962569664_ _g6962669668_)))) + (_g6962569664_ _g6962669668_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6936369402_ _g6936469406_)))) - (_g6936369402_ _g6936469406_))))))) - (_loop6938269445_ _target6937969439_ '())) - (_g6936369402_ _g6936469406_))))) + (_g6962569664_ _g6962669668_)))) + (_g6962569664_ _g6962669668_))))))) + (_loop6964469707_ _target6964169701_ '())) + (_g6962569664_ _g6962669668_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6936369402_ _g6936469406_)))) - (_g6936369402_ _g6936469406_)))) - (_g6936369402_ _g6936469406_)))) - (_g6936369402_ _g6936469406_))))) - (_g6936269549_ _$stx69359_)))) + (_g6962569664_ _g6962669668_)))) + (_g6962569664_ _g6962669668_)))) + (_g6962569664_ _g6962669668_)))) + (_g6962569664_ _g6962669668_))))) + (_g6962469811_ _$stx69621_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_$stx69570_) - (let* ((_g6957469613_ - (lambda (_g6957569609_) + (lambda (_$stx69832_) + (let* ((_g6983669875_ + (lambda (_g6983769871_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6957569609_))) - (_g6957369760_ - (lambda (_g6957569617_) - (if (gx#stx-pair? _g6957569617_) - (let ((_e6958369620_ (gx#syntax-e _g6957569617_))) - (let ((_hd6958269624_ + _g6983769871_))) + (_g6983570022_ + (lambda (_g6983769879_) + (if (gx#stx-pair? _g6983769879_) + (let ((_e6984569882_ (gx#syntax-e _g6983769879_))) + (let ((_hd6984469886_ (let () (declare (not safe)) - (##car _e6958369620_))) - (_tl6958169627_ + (##car _e6984569882_))) + (_tl6984369889_ (let () (declare (not safe)) - (##cdr _e6958369620_)))) - (if (gx#stx-pair? _tl6958169627_) - (let ((_e6958669630_ - (gx#syntax-e _tl6958169627_))) - (let ((_hd6958569634_ + (##cdr _e6984569882_)))) + (if (gx#stx-pair? _tl6984369889_) + (let ((_e6984869892_ + (gx#syntax-e _tl6984369889_))) + (let ((_hd6984769896_ (let () (declare (not safe)) - (##car _e6958669630_))) - (_tl6958469637_ + (##car _e6984869892_))) + (_tl6984669899_ (let () (declare (not safe)) - (##cdr _e6958669630_)))) - (if (gx#stx-pair? _hd6958569634_) - (let ((_e6958969640_ - (gx#syntax-e _hd6958569634_))) - (let ((_hd6958869644_ + (##cdr _e6984869892_)))) + (if (gx#stx-pair? _hd6984769896_) + (let ((_e6985169902_ + (gx#syntax-e _hd6984769896_))) + (let ((_hd6985069906_ (let () (declare (not safe)) - (##car _e6958969640_))) - (_tl6958769647_ + (##car _e6985169902_))) + (_tl6984969909_ (let () (declare (not safe)) - (##cdr _e6958969640_)))) - (if (gx#stx-pair? _tl6958769647_) - (let ((_e6959269650_ + (##cdr _e6985169902_)))) + (if (gx#stx-pair? _tl6984969909_) + (let ((_e6985469912_ (gx#syntax-e - _tl6958769647_))) - (let ((_hd6959169654_ + _tl6984969909_))) + (let ((_hd6985369916_ (let () (declare (not safe)) - (##car _e6959269650_))) - (_tl6959069657_ + (##car _e6985469912_))) + (_tl6985269919_ (let () (declare (not safe)) - (##cdr _e6959269650_)))) + (##cdr _e6985469912_)))) (if (gx#stx-pair/null? - _tl6959069657_) - (let ((_g73230_ + _tl6985269919_) + (let ((_g73492_ (gx#syntax-split-splice - _tl6959069657_ + _tl6985269919_ '0))) (begin - (let ((_g73231_ + (let ((_g73493_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g73230_) - (##vector-length _g73230_) + (if (##values? _g73492_) + (##vector-length _g73492_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g73231_ 2))) - (error "Context expects 2 values" _g73231_))) - (let ((_target6959369660_ + (if (not (let () (declare (not safe)) (##fx= _g73493_ 2))) + (error "Context expects 2 values" _g73493_))) + (let ((_target6985569922_ (let () (declare (not safe)) - (##vector-ref _g73230_ 0))) - (_tl6959569663_ + (##vector-ref _g73492_ 0))) + (_tl6985769925_ (let () (declare (not safe)) - (##vector-ref _g73230_ 1)))) - (if (gx#stx-null? _tl6959569663_) - (letrec ((_loop6959669666_ - (lambda (_hd6959469670_ _arg6960069673_) - (if (gx#stx-pair? _hd6959469670_) - (let ((_e6959769676_ - (gx#syntax-e _hd6959469670_))) - (let ((_lp-hd6959869680_ + (##vector-ref _g73492_ 1)))) + (if (gx#stx-null? _tl6985769925_) + (letrec ((_loop6985869928_ + (lambda (_hd6985669932_ _arg6986269935_) + (if (gx#stx-pair? _hd6985669932_) + (let ((_e6985969938_ + (gx#syntax-e _hd6985669932_))) + (let ((_lp-hd6986069942_ (let () (declare (not safe)) - (##car _e6959769676_))) - (_lp-tl6959969683_ + (##car _e6985969938_))) + (_lp-tl6986169945_ (let () (declare (not safe)) - (##cdr _e6959769676_)))) - (_loop6959669666_ - _lp-tl6959969683_ + (##cdr _e6985969938_)))) + (_loop6985869928_ + _lp-tl6986169945_ (let () (declare (not safe)) - (cons _lp-hd6959869680_ - _arg6960069673_))))) - (let ((_arg6960169686_ - (reverse _arg6960069673_))) - (if (gx#stx-pair? _tl6958469637_) - (let ((_e6960469690_ + (cons _lp-hd6986069942_ + _arg6986269935_))))) + (let ((_arg6986369948_ + (reverse _arg6986269935_))) + (if (gx#stx-pair? _tl6984669899_) + (let ((_e6986669952_ (gx#syntax-e - _tl6958469637_))) - (let ((_hd6960369694_ + _tl6984669899_))) + (let ((_hd6986569956_ (let () (declare (not safe)) - (##car _e6960469690_))) - (_tl6960269697_ + (##car _e6986669952_))) + (_tl6986469959_ (let () (declare (not safe)) - (##cdr _e6960469690_)))) + (##cdr _e6986669952_)))) (if (gx#stx-pair? - _tl6960269697_) - (let ((_e6960769700_ + _tl6986469959_) + (let ((_e6986969962_ (gx#syntax-e - _tl6960269697_))) - (let ((_hd6960669704_ + _tl6986469959_))) + (let ((_hd6986869966_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6960769700_))) - (_tl6960569707_ - (let () (declare (not safe)) (##cdr _e6960769700_)))) - (if (gx#stx-null? _tl6960569707_) - ((lambda (_L69710_ _L69712_ _L69713_ _L69714_ _L69715_) - (let ((__tmp73273 (gx#datum->syntax '#f 'defmethod)) - (__tmp73232 - (let ((__tmp73268 - (let ((__tmp73272 + (##car _e6986969962_))) + (_tl6986769969_ + (let () (declare (not safe)) (##cdr _e6986969962_)))) + (if (gx#stx-null? _tl6986769969_) + ((lambda (_L69972_ _L69974_ _L69975_ _L69976_ _L69977_) + (let ((__tmp73535 (gx#datum->syntax '#f 'defmethod)) + (__tmp73494 + (let ((__tmp73530 + (let ((__tmp73534 (gx#datum->syntax '#f '@method)) - (__tmp73269 - (let ((__tmp73270 - (let ((__tmp73271 + (__tmp73531 + (let ((__tmp73532 + (let ((__tmp73533 (gx#datum->syntax '#f 'checked-hash-table))) (declare (not safe)) - (cons __tmp73271 '())))) + (cons __tmp73533 '())))) (declare (not safe)) - (cons _L69715_ __tmp73270)))) + (cons _L69977_ __tmp73532)))) (declare (not safe)) - (cons __tmp73272 __tmp73269))) - (__tmp73233 - (let ((__tmp73234 - (let ((__tmp73267 + (cons __tmp73534 __tmp73531))) + (__tmp73495 + (let ((__tmp73496 + (let ((__tmp73529 (gx#datum->syntax '#f 'lambda)) - (__tmp73235 - (let ((__tmp73264 - (let ((__tmp73265 + (__tmp73497 + (let ((__tmp73526 + (let ((__tmp73527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73266 - (lambda (_g6974569748_ _g6974669751_) + (let ((__tmp73528 + (lambda (_g7000770010_ _g7000870013_) (let () (declare (not safe)) - (cons _g6974569748_ _g6974669751_))))) + (cons _g7000770010_ _g7000870013_))))) (declare (not safe)) - (foldr1 __tmp73266 '() _L69713_)))) + (foldr1 __tmp73528 '() _L69975_)))) (declare (not safe)) - (cons _L69714_ __tmp73265))) - (__tmp73236 - (let ((__tmp73237 - (let ((__tmp73263 (gx#datum->syntax '#f 'let)) - (__tmp73238 - (let ((__tmp73249 - (let ((__tmp73257 - (let ((__tmp73262 + (cons _L69976_ __tmp73527))) + (__tmp73498 + (let ((__tmp73499 + (let ((__tmp73525 (gx#datum->syntax '#f 'let)) + (__tmp73500 + (let ((__tmp73511 + (let ((__tmp73519 + (let ((__tmp73524 (gx#datum->syntax '#f 'h)) - (__tmp73258 - (let ((__tmp73259 - (let ((__tmp73261 + (__tmp73520 + (let ((__tmp73521 + (let ((__tmp73523 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&checked-hash-table-table)) - (__tmp73260 + (__tmp73522 (let () (declare (not safe)) - (cons _L69714_ '())))) + (cons _L69976_ '())))) (declare (not safe)) - (cons __tmp73261 __tmp73260)))) + (cons __tmp73523 __tmp73522)))) (declare (not safe)) - (cons __tmp73259 '())))) + (cons __tmp73521 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73262 - __tmp73258))) - (__tmp73250 - (let ((__tmp73251 - (let ((__tmp73256 + (cons __tmp73524 + __tmp73520))) + (__tmp73512 + (let ((__tmp73513 + (let ((__tmp73518 (gx#datum->syntax '#f 'key?)) - (__tmp73252 - (let ((__tmp73253 + (__tmp73514 + (let ((__tmp73515 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp73255 + (let ((__tmp73517 (gx#datum->syntax '#f '&checked-hash-table-key-check)) - (__tmp73254 + (__tmp73516 (let () (declare (not safe)) - (cons _L69714_ '())))) + (cons _L69976_ '())))) (declare (not safe)) - (cons __tmp73255 __tmp73254)))) + (cons __tmp73517 __tmp73516)))) (declare (not safe)) - (cons __tmp73253 '())))) + (cons __tmp73515 '())))) (declare (not safe)) - (cons __tmp73256 __tmp73252)))) + (cons __tmp73518 __tmp73514)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73251 '())))) + (cons __tmp73513 '())))) (declare (not safe)) - (cons __tmp73257 __tmp73250))) - (__tmp73239 - (let ((__tmp73246 - (let ((__tmp73247 - (let ((__tmp73248 + (cons __tmp73519 __tmp73512))) + (__tmp73501 + (let ((__tmp73508 + (let ((__tmp73509 + (let ((__tmp73510 (gx#datum->syntax '#f 'key?))) (declare (not safe)) - (cons __tmp73248 + (cons __tmp73510 '())))) (declare (not safe)) - (cons _L69712_ __tmp73247))) - (__tmp73240 - (let ((__tmp73241 - (let ((__tmp73242 - (let ((__tmp73245 + (cons _L69974_ __tmp73509))) + (__tmp73502 + (let ((__tmp73503 + (let ((__tmp73504 + (let ((__tmp73507 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp73243 - (let ((__tmp73244 - (lambda (_g6974369754_ _g6974469757_) + (__tmp73505 + (let ((__tmp73506 + (lambda (_g7000570016_ _g7000670019_) (let () (declare (not safe)) - (cons _g6974369754_ _g6974469757_))))) + (cons _g7000570016_ _g7000670019_))))) (declare (not safe)) - (foldr1 __tmp73244 '() _L69713_)))) + (foldr1 __tmp73506 '() _L69975_)))) (declare (not safe)) - (cons __tmp73245 __tmp73243)))) + (cons __tmp73507 __tmp73505)))) (declare (not safe)) - (cons _L69710_ __tmp73242)))) + (cons _L69972_ __tmp73504)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73241 '())))) + (cons __tmp73503 '())))) (declare (not safe)) - (cons __tmp73246 __tmp73240)))) + (cons __tmp73508 __tmp73502)))) (declare (not safe)) - (cons __tmp73249 __tmp73239)))) + (cons __tmp73511 __tmp73501)))) (declare (not safe)) - (cons __tmp73263 __tmp73238)))) + (cons __tmp73525 __tmp73500)))) (declare (not safe)) - (cons __tmp73237 '())))) + (cons __tmp73499 '())))) (declare (not safe)) - (cons __tmp73264 __tmp73236)))) + (cons __tmp73526 __tmp73498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73267 __tmp73235)))) + (cons __tmp73529 __tmp73497)))) (declare (not safe)) - (cons __tmp73234 '())))) + (cons __tmp73496 '())))) (declare (not safe)) - (cons __tmp73268 __tmp73233)))) + (cons __tmp73530 __tmp73495)))) (declare (not safe)) - (cons __tmp73273 __tmp73232))) - _hd6960669704_ - _hd6960369694_ - _arg6960169686_ - _hd6959169654_ - _hd6958869644_) - (_g6957469613_ _g6957569617_)))) - (_g6957469613_ _g6957569617_)))) + (cons __tmp73535 __tmp73494))) + _hd6986869966_ + _hd6986569956_ + _arg6986369948_ + _hd6985369916_ + _hd6985069906_) + (_g6983669875_ _g6983769879_)))) + (_g6983669875_ _g6983769879_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6957469613_ - _g6957569617_))))))) - (_loop6959669666_ _target6959369660_ '())) - (_g6957469613_ _g6957569617_))))) - (_g6957469613_ _g6957569617_)))) + (_g6983669875_ + _g6983769879_))))))) + (_loop6985869928_ _target6985569922_ '())) + (_g6983669875_ _g6983769879_))))) + (_g6983669875_ _g6983769879_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6957469613_ _g6957569617_)))) - (_g6957469613_ _g6957569617_)))) - (_g6957469613_ _g6957569617_)))) - (_g6957469613_ _g6957569617_))))) - (_g6957369760_ _$stx69570_)))) + (_g6983669875_ _g6983769879_)))) + (_g6983669875_ _g6983769879_)))) + (_g6983669875_ _g6983769879_)))) + (_g6983669875_ _g6983769879_))))) + (_g6983570022_ _$stx69832_)))) (define |[:0:]#check-hash-arg| - (lambda (_$stx69765_) - (let* ((_g6976969787_ - (lambda (_g6977069783_) + (lambda (_$stx70027_) + (let* ((_g7003170049_ + (lambda (_g7003270045_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6977069783_))) - (_g6976869842_ - (lambda (_g6977069791_) - (if (gx#stx-pair? _g6977069791_) - (let ((_e6977569794_ (gx#syntax-e _g6977069791_))) - (let ((_hd6977469798_ + _g7003270045_))) + (_g7003070104_ + (lambda (_g7003270053_) + (if (gx#stx-pair? _g7003270053_) + (let ((_e7003770056_ (gx#syntax-e _g7003270053_))) + (let ((_hd7003670060_ (let () (declare (not safe)) - (##car _e6977569794_))) - (_tl6977369801_ + (##car _e7003770056_))) + (_tl7003570063_ (let () (declare (not safe)) - (##cdr _e6977569794_)))) - (if (gx#stx-pair? _tl6977369801_) - (let ((_e6977869804_ - (gx#syntax-e _tl6977369801_))) - (let ((_hd6977769808_ + (##cdr _e7003770056_)))) + (if (gx#stx-pair? _tl7003570063_) + (let ((_e7004070066_ + (gx#syntax-e _tl7003570063_))) + (let ((_hd7003970070_ (let () (declare (not safe)) - (##car _e6977869804_))) - (_tl6977669811_ + (##car _e7004070066_))) + (_tl7003870073_ (let () (declare (not safe)) - (##cdr _e6977869804_)))) - (if (gx#stx-pair? _tl6977669811_) - (let ((_e6978169814_ - (gx#syntax-e _tl6977669811_))) - (let ((_hd6978069818_ + (##cdr _e7004070066_)))) + (if (gx#stx-pair? _tl7003870073_) + (let ((_e7004370076_ + (gx#syntax-e _tl7003870073_))) + (let ((_hd7004270080_ (let () (declare (not safe)) - (##car _e6978169814_))) - (_tl6977969821_ + (##car _e7004370076_))) + (_tl7004170083_ (let () (declare (not safe)) - (##cdr _e6978169814_)))) - (if (gx#stx-null? _tl6977969821_) - ((lambda (_L69824_ _L69826_) - (let ((__tmp73282 + (##cdr _e7004370076_)))) + (if (gx#stx-null? _tl7004170083_) + ((lambda (_L70086_ _L70088_) + (let ((__tmp73544 (gx#datum->syntax '#f 'unless)) - (__tmp73274 - (let ((__tmp73280 - (let ((__tmp73281 + (__tmp73536 + (let ((__tmp73542 + (let ((__tmp73543 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L69824_ '())))) + (cons _L70086_ '())))) (declare (not safe)) - (cons _L69826_ __tmp73281))) - (__tmp73275 - (let ((__tmp73276 - (let ((__tmp73279 (gx#datum->syntax '#f 'error)) - (__tmp73277 - (let ((__tmp73278 + (cons _L70088_ __tmp73543))) + (__tmp73537 + (let ((__tmp73538 + (let ((__tmp73541 (gx#datum->syntax '#f 'error)) + (__tmp73539 + (let ((__tmp73540 (let () (declare (not safe)) - (cons _L69824_ '())))) + (cons _L70086_ '())))) (declare (not safe)) - (cons '"invalid argument" __tmp73278)))) + (cons '"invalid argument" __tmp73540)))) (declare (not safe)) - (cons __tmp73279 __tmp73277)))) + (cons __tmp73541 __tmp73539)))) (declare (not safe)) - (cons __tmp73276 '())))) + (cons __tmp73538 '())))) (declare (not safe)) - (cons __tmp73280 __tmp73275)))) + (cons __tmp73542 __tmp73537)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp73282 - __tmp73274))) - _hd6978069818_ - _hd6977769808_) - (_g6976969787_ _g6977069791_)))) - (_g6976969787_ _g6977069791_)))) - (_g6976969787_ _g6977069791_)))) - (_g6976969787_ _g6977069791_))))) - (_g6976869842_ _$stx69765_)))))) + (cons __tmp73544 + __tmp73536))) + _hd7004270080_ + _hd7003970070_) + (_g7003170049_ _g7003270053_)))) + (_g7003170049_ _g7003270053_)))) + (_g7003170049_ _g7003270053_)))) + (_g7003170049_ _g7003270053_))))) + (_g7003070104_ _$stx70027_)))))) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index cf389061..64c9c48a 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 1709375797) + (define gerbil/runtime/init::timestamp 1709457369) (begin (define __loading-scheme-source (make-parameter '#f)) (define __init-gx! @@ -21,42 +21,42 @@ (set! __eval-module gx#core-eval-module))) (define __load-gxi (lambda () - (letrec* ((_+readtable+78671_ __*readtable*)) + (letrec* ((_+readtable+78933_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core78673_ (gx#import-module ':gerbil/core)) - (_pre78675_ (gx#make-prelude-context _core78673_))) - (gx#current-expander-module-prelude _pre78675_) - (gx#core-bind-root-syntax! ':<core> _pre78675_ '#t) + (let* ((_core78935_ (gx#import-module ':gerbil/core)) + (_pre78937_ (gx#make-prelude-context _core78935_))) + (gx#current-expander-module-prelude _pre78937_) + (gx#core-bind-root-syntax! ':<core> _pre78937_ '#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 (_port78678_) - (input-port-readtable-set! _port78678_ _+readtable+78671_)) + (lambda (_port78940_) + (input-port-readtable-set! _port78940_ _+readtable+78933_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port78680_) + (lambda (_port78942_) (output-port-readtable-set! - _port78680_ + _port78942_ (readtable-sharing-allowed?-set - (output-port-readtable _port78680_) + (output-port-readtable _port78942_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline78668_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline78930_) '#!void)) (define load-scheme - (lambda (_path78663_) - (let ((__tmp78682 + (lambda (_path78925_) + (let ((__tmp78944 (lambda () - (let ((__tmp78683 (lambda _args78666_ '#f))) + (let ((__tmp78945 (lambda _args78928_ '#f))) (declare (not safe)) - (##load _path78663_ __tmp78683 '#t '#t '#f))))) + (##load _path78925_ __tmp78945 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp78682 + __tmp78944 __loading-scheme-source - _path78663_)))) + _path78925_)))) (define load-path (lambda () (values (let () (declare (not safe)) (current-module-library-path)) @@ -67,424 +67,424 @@ (define expander-load-path (lambda () (gx#current-expander-module-library-path))) (define add-load-path - (lambda _paths78658_ - (apply add-library-load-path _paths78658_) - (apply add-expander-load-path _paths78658_))) + (lambda _paths78920_ + (apply add-library-load-path _paths78920_) + (apply add-expander-load-path _paths78920_))) (define add-library-load-path - (lambda _paths78647_ - (let* ((_current78649_ (current-module-library-path)) - (_paths78651_ (map path-expand _paths78647_)) - (_paths78655_ - (let ((__tmp78684 - (lambda (_x78653_) - (let ((__tmp78685 (member _x78653_ _current78649_))) + (lambda _paths78909_ + (let* ((_current78911_ (current-module-library-path)) + (_paths78913_ (map path-expand _paths78909_)) + (_paths78917_ + (let ((__tmp78946 + (lambda (_x78915_) + (let ((__tmp78947 (member _x78915_ _current78911_))) (declare (not safe)) - (not __tmp78685))))) + (not __tmp78947))))) (declare (not safe)) - (filter __tmp78684 _paths78651_)))) - (current-module-library-path (append _current78649_ _paths78655_))))) + (filter __tmp78946 _paths78913_)))) + (current-module-library-path (append _current78911_ _paths78917_))))) (define add-expander-load-path - (lambda _paths78636_ - (let* ((_current78638_ (gx#current-expander-module-library-path)) - (_paths78640_ (map path-expand _paths78636_)) - (_paths78644_ - (let ((__tmp78686 - (lambda (_x78642_) - (let ((__tmp78687 (member _x78642_ _current78638_))) + (lambda _paths78898_ + (let* ((_current78900_ (gx#current-expander-module-library-path)) + (_paths78902_ (map path-expand _paths78898_)) + (_paths78906_ + (let ((__tmp78948 + (lambda (_x78904_) + (let ((__tmp78949 (member _x78904_ _current78900_))) (declare (not safe)) - (not __tmp78687))))) + (not __tmp78949))))) (declare (not safe)) - (filter __tmp78686 _paths78640_)))) + (filter __tmp78948 _paths78902_)))) (gx#current-expander-module-library-path - (append _current78638_ _paths78644_))))) + (append _current78900_ _paths78906_))))) (define cons-load-path - (lambda _paths78634_ - (apply cons-library-load-path _paths78634_) - (apply cons-expander-load-path _paths78634_))) + (lambda _paths78896_ + (apply cons-library-load-path _paths78896_) + (apply cons-expander-load-path _paths78896_))) (define cons-library-load-path - (lambda _paths78629_ - (let ((_current78631_ (current-module-library-path)) - (_paths78632_ (map path-expand _paths78629_))) - (current-module-library-path (append _paths78632_ _current78631_))))) + (lambda _paths78891_ + (let ((_current78893_ (current-module-library-path)) + (_paths78894_ (map path-expand _paths78891_))) + (current-module-library-path (append _paths78894_ _current78893_))))) (define cons-expander-load-path - (lambda _paths78624_ - (let ((_current78626_ (gx#current-expander-module-library-path)) - (_paths78627_ (map path-expand _paths78624_))) + (lambda _paths78886_ + (let ((_current78888_ (gx#current-expander-module-library-path)) + (_paths78889_ (map path-expand _paths78886_))) (gx#current-expander-module-library-path - (append _paths78627_ _current78626_))))) + (append _paths78889_ _current78888_))))) (define with-cons-load-path - (lambda (_thunk78620_ . _paths78621_) + (lambda (_thunk78882_ . _paths78883_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk78620_ - _paths78621_)) - _paths78621_))) + _thunk78882_ + _paths78883_)) + _paths78883_))) (define with-cons-library-load-path - (lambda (_thunk78613_ . _paths78614_) - (let ((_current78616_ (current-module-library-path)) - (_paths78617_ (map path-expand _paths78614_))) - (let ((__tmp78689 (lambda () (_thunk78613_))) - (__tmp78688 (append _paths78617_ _current78616_))) + (lambda (_thunk78875_ . _paths78876_) + (let ((_current78878_ (current-module-library-path)) + (_paths78879_ (map path-expand _paths78876_))) + (let ((__tmp78951 (lambda () (_thunk78875_))) + (__tmp78950 (append _paths78879_ _current78878_))) (declare (not safe)) (call-with-parameters - __tmp78689 + __tmp78951 current-module-library-path - __tmp78688))))) + __tmp78950))))) (define with-cons-expander-load-path - (lambda (_thunk78606_ . _paths78607_) - (let ((_current78609_ (gx#current-expander-module-library-path)) - (_paths78610_ (map path-expand _paths78607_))) - (let ((__tmp78691 (lambda () (_thunk78606_))) - (__tmp78690 (append _paths78610_ _current78609_))) + (lambda (_thunk78868_ . _paths78869_) + (let ((_current78871_ (gx#current-expander-module-library-path)) + (_paths78872_ (map path-expand _paths78869_))) + (let ((__tmp78953 (lambda () (_thunk78868_))) + (__tmp78952 (append _paths78872_ _current78871_))) (declare (not safe)) (call-with-parameters - __tmp78691 + __tmp78953 gx#current-expander-module-library-path - __tmp78690))))) + __tmp78952))))) (define __expand-source - (lambda (_src78592_) - (letrec ((_expand78594_ - (lambda (_src78604_) - (let ((__tmp78692 + (lambda (_src78854_) + (letrec ((_expand78856_ + (lambda (_src78866_) + (let ((__tmp78954 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src78604_))))) + (__source->syntax _src78866_))))) (declare (not safe)) - (__compile-top __tmp78692)))) - (_no-expand78595_ - (lambda (_src78600_) + (__compile-top __tmp78954)))) + (_no-expand78857_ + (lambda (_src78862_) (if (__loading-scheme-source) - _src78600_ + _src78862_ (if (let () (declare (not safe)) - (##source? _src78600_)) - (let ((_code78602_ + (##source? _src78862_)) + (let ((_code78864_ (let () (declare (not safe)) - (##source-code _src78600_)))) + (##source-code _src78862_)))) (if (let () (declare (not safe)) - (pair? _code78602_)) - (if (let ((__tmp78693 + (pair? _code78864_)) + (if (let ((__tmp78955 (let () (declare (not safe)) - (##car _code78602_)))) + (##car _code78864_)))) (declare (not safe)) - (eq? '__noexpand: __tmp78693)) + (eq? '__noexpand: __tmp78955)) (let () (declare (not safe)) - (##cdr _code78602_)) + (##cdr _code78864_)) '#f) '#f)) '#f))))) - (let ((_$e78597_ - (let () (declare (not safe)) (_no-expand78595_ _src78592_)))) - (if _$e78597_ - _$e78597_ - (let () (declare (not safe)) (_expand78594_ _src78592_))))))) + (let ((_$e78859_ + (let () (declare (not safe)) (_no-expand78857_ _src78854_)))) + (if _$e78859_ + _$e78859_ + (let () (declare (not safe)) (_expand78856_ _src78854_))))))) (define __macro-descr - (lambda (_src78578_ _def-syntax?78579_) - (letrec ((_fail!78581_ + (lambda (_src78840_ _def-syntax?78841_) + (letrec ((_fail!78843_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src78578_)))) - (_make-descr78582_ - (lambda (_size78586_) - (let ((_expander78589_ - (let ((__tmp78694 + _src78840_)))) + (_make-descr78844_ + (lambda (_size78848_) + (let ((_expander78851_ + (let ((__tmp78956 (lambda () (let () (declare (not safe)) (##eval-top - _src78578_ + _src78840_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp78694 + __tmp78956 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander78589_)) + (procedure? _expander78851_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?78579_ - _size78586_ - _expander78589_ - _src78578_)) - (let () (declare (not safe)) (_fail!78581_))))))) - (if _def-syntax?78579_ - (let () (declare (not safe)) (_make-descr78582_ '-1)) - (let ((_code78584_ - (let () (declare (not safe)) (##source-code _src78578_)))) - (if (and (let () (declare (not safe)) (##pair? _code78584_)) - (let ((__tmp78698 - (let ((__tmp78699 - (let ((__tmp78700 + _def-syntax?78841_ + _size78848_ + _expander78851_ + _src78840_)) + (let () (declare (not safe)) (_fail!78843_))))))) + (if _def-syntax?78841_ + (let () (declare (not safe)) (_make-descr78844_ '-1)) + (let ((_code78846_ + (let () (declare (not safe)) (##source-code _src78840_)))) + (if (and (let () (declare (not safe)) (##pair? _code78846_)) + (let ((__tmp78960 + (let ((__tmp78961 + (let ((__tmp78962 (let () (declare (not safe)) - (##car _code78584_)))) + (##car _code78846_)))) (declare (not safe)) - (##sourcify __tmp78700 _src78578_)))) + (##sourcify __tmp78962 _src78840_)))) (declare (not safe)) - (##source-code __tmp78699)))) + (##source-code __tmp78961)))) (declare (not safe)) - (##memq __tmp78698 '(##lambda lambda)))) + (##memq __tmp78960 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src78578_ _src78578_ '-3)) - (let ((__tmp78695 - (let ((__tmp78696 - (let ((__tmp78697 + (##shape _src78840_ _src78840_ '-3)) + (let ((__tmp78957 + (let ((__tmp78958 + (let ((__tmp78959 (let () (declare (not safe)) - (##cadr _code78584_)))) + (##cadr _code78846_)))) (declare (not safe)) - (##sourcify __tmp78697 _src78578_)))) + (##sourcify __tmp78959 _src78840_)))) (declare (not safe)) - (##form-size __tmp78696)))) + (##form-size __tmp78958)))) (declare (not safe)) - (_make-descr78582_ __tmp78695))) - (let () (declare (not safe)) (_fail!78581_)))))))) + (_make-descr78844_ __tmp78957))) + (let () (declare (not safe)) (_fail!78843_)))))))) (define __source->syntax - (lambda (_src78572_) - (let _recur78574_ ((_e78576_ _src78572_)) - (if (let () (declare (not safe)) (##source? _e78576_)) - (let ((__tmp78708 - (let ((__tmp78709 + (lambda (_src78834_) + (let _recur78836_ ((_e78838_ _src78834_)) + (if (let () (declare (not safe)) (##source? _e78838_)) + (let ((__tmp78970 + (let ((__tmp78971 (let () (declare (not safe)) - (##source-code _e78576_)))) + (##source-code _e78838_)))) (declare (not safe)) - (_recur78574_ __tmp78709))) - (__tmp78707 - (let () (declare (not safe)) (##source-locat _e78576_)))) + (_recur78836_ __tmp78971))) + (__tmp78969 + (let () (declare (not safe)) (##source-locat _e78838_)))) (declare (not safe)) - (##structure AST::t __tmp78708 __tmp78707)) - (if (let () (declare (not safe)) (pair? _e78576_)) - (let ((__tmp78705 - (let ((__tmp78706 + (##structure AST::t __tmp78970 __tmp78969)) + (if (let () (declare (not safe)) (pair? _e78838_)) + (let ((__tmp78967 + (let ((__tmp78968 (let () (declare (not safe)) - (##car _e78576_)))) + (##car _e78838_)))) (declare (not safe)) - (_recur78574_ __tmp78706))) - (__tmp78703 - (let ((__tmp78704 + (_recur78836_ __tmp78968))) + (__tmp78965 + (let ((__tmp78966 (let () (declare (not safe)) - (##cdr _e78576_)))) + (##cdr _e78838_)))) (declare (not safe)) - (_recur78574_ __tmp78704)))) + (_recur78836_ __tmp78966)))) (declare (not safe)) - (cons __tmp78705 __tmp78703)) - (if (let () (declare (not safe)) (vector? _e78576_)) - (vector-map _recur78574_ _e78576_) - (if (let () (declare (not safe)) (box? _e78576_)) - (let ((__tmp78701 - (let ((__tmp78702 (unbox _e78576_))) + (cons __tmp78967 __tmp78965)) + (if (let () (declare (not safe)) (vector? _e78838_)) + (vector-map _recur78836_ _e78838_) + (if (let () (declare (not safe)) (box? _e78838_)) + (let ((__tmp78963 + (let ((__tmp78964 (unbox _e78838_))) (declare (not safe)) - (_recur78574_ __tmp78702)))) + (_recur78836_ __tmp78964)))) (declare (not safe)) - (box __tmp78701)) - _e78576_))))))) + (box __tmp78963)) + _e78838_))))))) (define __compile-top-source - (lambda (_stx78570_) - (let ((__tmp78710 - (let () (declare (not safe)) (__compile-top _stx78570_)))) + (lambda (_stx78832_) + (let ((__tmp78972 + (let () (declare (not safe)) (__compile-top _stx78832_)))) (declare (not safe)) - (cons '__noexpand: __tmp78710)))) + (cons '__noexpand: __tmp78972)))) (define __compile-top - (lambda (_stx78568_) - (let ((__tmp78711 (gx#core-compile-top-syntax _stx78568_))) + (lambda (_stx78830_) + (let ((__tmp78973 (gx#core-compile-top-syntax _stx78830_))) (declare (not safe)) - (__compile __tmp78711)))) + (__compile __tmp78973)))) (define __eval-import - (lambda (_in78549_) - (letrec* ((_mods78551_ + (lambda (_in78811_) + (letrec* ((_mods78813_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import178552_ - (lambda (_in78559_ _phi78560_) - (if (gx#module-import? _in78559_) - (let ((_iphi78562_ - (fx+ _phi78560_ - (gx#module-import-phi _in78559_)))) + (_import178814_ + (lambda (_in78821_ _phi78822_) + (if (gx#module-import? _in78821_) + (let ((_iphi78824_ + (fx+ _phi78822_ + (gx#module-import-phi _in78821_)))) (if (let () (declare (not safe)) - (fxzero? _iphi78562_)) - (let ((__tmp78713 + (fxzero? _iphi78824_)) + (let ((__tmp78975 (gx#module-export-context - (gx#module-import-source _in78559_)))) + (gx#module-import-source _in78821_)))) (declare (not safe)) - (_eval178553_ __tmp78713)) + (_eval178815_ __tmp78975)) '#!void)) - (if (gx#module-context? _in78559_) + (if (gx#module-context? _in78821_) (if (let () (declare (not safe)) - (fxzero? _phi78560_)) + (fxzero? _phi78822_)) (let () (declare (not safe)) - (_eval178553_ _in78559_)) + (_eval178815_ _in78821_)) '#!void) - (if (gx#import-set? _in78559_) - (let ((_iphi78564_ - (fx+ _phi78560_ - (gx#import-set-phi _in78559_)))) + (if (gx#import-set? _in78821_) + (let ((_iphi78826_ + (fx+ _phi78822_ + (gx#import-set-phi _in78821_)))) (if (let () (declare (not safe)) - (fxzero? _iphi78564_)) - (let ((__tmp78712 + (fxzero? _iphi78826_)) + (let ((__tmp78974 (gx#import-set-source - _in78559_))) + _in78821_))) (declare (not safe)) - (_eval178553_ __tmp78712)) - (if (fxpositive? _iphi78564_) + (_eval178815_ __tmp78974)) + (if (fxpositive? _iphi78826_) (for-each - (lambda (_in78566_) + (lambda (_in78828_) (let () (declare (not safe)) - (_import178552_ - _in78566_ - _iphi78564_))) + (_import178814_ + _in78828_ + _iphi78826_))) (gx#module-context-import - (gx#import-set-source _in78559_))) + (gx#import-set-source _in78821_))) '#!void))) (let () (declare (not safe)) - (error '"Unexpected import" _in78559_))))))) - (_eval178553_ - (lambda (_ctx78557_) + (error '"Unexpected import" _in78821_))))))) + (_eval178815_ + (lambda (_ctx78819_) (if (let () (declare (not safe)) - (hash-get _mods78551_ _ctx78557_)) + (hash-get _mods78813_ _ctx78819_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _mods78551_ _ctx78557_ '#t)) - (__eval-module _ctx78557_)))))) - (if (let () (declare (not safe)) (pair? _in78549_)) + (hash-put! _mods78813_ _ctx78819_ '#t)) + (__eval-module _ctx78819_)))))) + (if (let () (declare (not safe)) (pair? _in78811_)) (for-each - (lambda (_in78555_) - (let () (declare (not safe)) (_import178552_ _in78555_ '0))) - _in78549_) - (let () (declare (not safe)) (_import178552_ _in78549_ '0)))))) + (lambda (_in78817_) + (let () (declare (not safe)) (_import178814_ _in78817_ '0))) + _in78811_) + (let () (declare (not safe)) (_import178814_ _in78811_ '0)))))) (define __eval-module - (lambda (_obj78547_) (gx#core-eval-module _obj78547_))) + (lambda (_obj78809_) (gx#core-eval-module _obj78809_))) (define gerbil-runtime-init! - (lambda (_builtin-modules78482_) + (lambda (_builtin-modules78744_) (if __runtime-initialized '#!void (begin - (let* ((_home78484_ (let () (declare (not safe)) (gerbil-home))) - (_libdir78486_ (path-expand '"lib" _home78484_)) - (_userpath78488_ + (let* ((_home78746_ (let () (declare (not safe)) (gerbil-home))) + (_libdir78748_ (path-expand '"lib" _home78746_)) + (_userpath78750_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath78490_ + (_loadpath78752_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir78486_ '())) - (let ((__tmp78714 + (cons _libdir78748_ '())) + (let ((__tmp78976 (let () (declare (not safe)) - (cons _libdir78486_ '())))) + (cons _libdir78748_ '())))) (declare (not safe)) - (cons _userpath78488_ __tmp78714)))) - (_loadpath78499_ - (let ((_$e78492_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e78492_ - ((lambda (_envvar78495_) - (append (let ((__tmp78716 - (lambda (_x78497_) - (let ((__tmp78717 + (cons _userpath78750_ __tmp78976)))) + (_loadpath78761_ + (let ((_$e78754_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e78754_ + ((lambda (_envvar78757_) + (append (let ((__tmp78978 + (lambda (_x78759_) + (let ((__tmp78979 (let () (declare (not safe)) (string-empty? - _x78497_)))) + _x78759_)))) (declare (not safe)) - (not __tmp78717)))) - (__tmp78715 + (not __tmp78979)))) + (__tmp78977 (let () (declare (not safe)) (string-split - _envvar78495_ + _envvar78757_ '#\:)))) (declare (not safe)) - (filter __tmp78716 __tmp78715)) - _loadpath78490_)) - _$e78492_) - _loadpath78490_)))) - (current-module-library-path _loadpath78499_)) - (let* ((_registry-entry78504_ - (lambda (_m78502_) + (filter __tmp78978 __tmp78977)) + _loadpath78752_)) + _$e78754_) + _loadpath78752_)))) + (current-module-library-path _loadpath78761_)) + (let* ((_registry-entry78766_ + (lambda (_m78764_) (let () (declare (not safe)) - (cons _m78502_ 'builtin)))) - (_module-registry78544_ - (let _lp78506_ ((_rest78508_ _builtin-modules78482_) - (_registry78509_ '())) - (let* ((_rest7851078518_ _rest78508_) - (_else7851278526_ + (cons _m78764_ 'builtin)))) + (_module-registry78806_ + (let _lp78768_ ((_rest78770_ _builtin-modules78744_) + (_registry78771_ '())) + (let* ((_rest7877278780_ _rest78770_) + (_else7877478788_ (lambda () (let () (declare (not safe)) - (list->hash-table _registry78509_)))) - (_K7851478532_ - (lambda (_rest78529_ _mod78530_) - (let ((__tmp78718 - (let ((__tmp78722 - (let ((__tmp78723 + (list->hash-table _registry78771_)))) + (_K7877678794_ + (lambda (_rest78791_ _mod78792_) + (let ((__tmp78980 + (let ((__tmp78984 + (let ((__tmp78985 (string-append - _mod78530_ + _mod78792_ '"__0"))) (declare (not safe)) - (_registry-entry78504_ - __tmp78723))) - (__tmp78719 - (let ((__tmp78720 - (let ((__tmp78721 + (_registry-entry78766_ + __tmp78985))) + (__tmp78981 + (let ((__tmp78982 + (let ((__tmp78983 (string-append - _mod78530_ + _mod78792_ '"__rt"))) (declare (not safe)) - (_registry-entry78504_ - __tmp78721)))) + (_registry-entry78766_ + __tmp78983)))) (declare (not safe)) - (cons __tmp78720 - _registry78509_)))) + (cons __tmp78982 + _registry78771_)))) (declare (not safe)) - (cons __tmp78722 __tmp78719)))) + (cons __tmp78984 __tmp78981)))) (declare (not safe)) - (_lp78506_ _rest78529_ __tmp78718))))) + (_lp78768_ _rest78791_ __tmp78980))))) (if (let () (declare (not safe)) - (##pair? _rest7851078518_)) - (let ((_hd7851578535_ + (##pair? _rest7877278780_)) + (let ((_hd7877778797_ (let () (declare (not safe)) - (##car _rest7851078518_))) - (_tl7851678537_ + (##car _rest7877278780_))) + (_tl7877878799_ (let () (declare (not safe)) - (##cdr _rest7851078518_)))) - (let* ((_mod78540_ _hd7851578535_) - (_rest78542_ _tl7851678537_)) + (##cdr _rest7877278780_)))) + (let* ((_mod78802_ _hd7877778797_) + (_rest78804_ _tl7877878799_)) (declare (not safe)) - (_K7851478532_ _rest78542_ _mod78540_))) + (_K7877678794_ _rest78804_ _mod78802_))) (let () (declare (not safe)) - (_else7851278526_))))))) - (current-module-registry _module-registry78544_)) + (_else7877478788_))))))) + (current-module-registry _module-registry78806_)) (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 1ac97194..38454243 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 1709375797) + (define gerbil/runtime/interface::timestamp 1709457369) (begin (define CastError::t - (let ((__tmp68442 (list Error::t))) + (let ((__tmp68704 (list Error::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp68442 + __tmp68704 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (make-class-predicate CastError::t))) (define make-CastError - (lambda _$args68435_ (apply make-instance CastError::t _$args68435_))) + (lambda _$args68697_ (apply make-instance CastError::t _$args68697_))) (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 (_where68309_ _message68310_ . _irritants68311_) - (raise (let ((__obj68438 + (lambda (_where68571_ _message68572_ . _irritants68573_) + (raise (let ((__obj68700 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (CastError:::init! - __obj68438 - _message68310_ + __obj68700 + _message68572_ 'where: - _where68309_ + _where68571_ 'irritants: - _irritants68311_) - __obj68438)))) + _irritants68573_) + __obj68700)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp68445 (list)) - (__tmp68443 - (let ((__tmp68444 + (let ((__tmp68707 (list)) + (__tmp68705 + (let ((__tmp68706 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp68444 '())))) + (cons __tmp68706 '())))) (declare (not safe)) (make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp68445 + __tmp68707 '(__object) - __tmp68443 + __tmp68705 '#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 ((__tmp68450 (list)) - (__tmp68446 - (let ((__tmp68449 + (let ((__tmp68712 (list)) + (__tmp68708 + (let ((__tmp68711 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp68447 - (let ((__tmp68448 + (__tmp68709 + (let ((__tmp68710 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp68448 '())))) + (cons __tmp68710 '())))) (declare (not safe)) - (cons __tmp68449 __tmp68447)))) + (cons __tmp68711 __tmp68709)))) (declare (not safe)) (make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp68450 + __tmp68712 '(type methods) - __tmp68446 + __tmp68708 '#f))) (define interface-descriptor? (let () (declare (not safe)) (make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _$args68306_ - (apply make-instance interface-descriptor::t _$args68306_))) + (lambda _$args68568_ + (apply make-instance interface-descriptor::t _$args68568_))) (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 (_key68304_) - (let ((__tmp68452 + (lambda (_key68566_) + (let ((__tmp68714 (macro-slot '1 - (let () (declare (not safe)) (##car _key68304_)))) - (__tmp68451 + (let () (declare (not safe)) (##car _key68566_)))) + (__tmp68713 (macro-slot '1 - (let () (declare (not safe)) (##cdr _key68304_))))) + (let () (declare (not safe)) (##cdr _key68566_))))) (declare (not safe)) - (##fxxor __tmp68452 __tmp68451)))) + (##fxxor __tmp68714 __tmp68713)))) (define __interface-test-key - (lambda (_a68301_ _b68302_) - (if (let ((__tmp68456 (let () (declare (not safe)) (##car _a68301_))) - (__tmp68455 (let () (declare (not safe)) (##car _b68302_)))) + (lambda (_a68563_ _b68564_) + (if (let ((__tmp68718 (let () (declare (not safe)) (##car _a68563_))) + (__tmp68717 (let () (declare (not safe)) (##car _b68564_)))) (declare (not safe)) - (##eq? __tmp68456 __tmp68455)) - (let ((__tmp68454 (let () (declare (not safe)) (##cdr _a68301_))) - (__tmp68453 (let () (declare (not safe)) (##cdr _b68302_)))) + (##eq? __tmp68718 __tmp68717)) + (let ((__tmp68716 (let () (declare (not safe)) (##cdr _a68563_))) + (__tmp68715 (let () (declare (not safe)) (##cdr _b68564_)))) (declare (not safe)) - (##eq? __tmp68454 __tmp68453)) + (##eq? __tmp68716 __tmp68715)) '#f))) (define make-prototype-table__% - (lambda (_size-hint68282_ _seed68284_) + (lambda (_size-hint68544_ _seed68546_) (let () (declare (not safe)) (make-raw-table__% - _size-hint68282_ + _size-hint68544_ __interface-hash-key __interface-test-key - _seed68284_)))) + _seed68546_)))) (define make-prototype-table__0 (lambda () - (let* ((_size-hint68290_ '#f) (_seed68292_ '0)) + (let* ((_size-hint68552_ '#f) (_seed68554_ '0)) (declare (not safe)) - (make-prototype-table__% _size-hint68290_ _seed68292_)))) + (make-prototype-table__% _size-hint68552_ _seed68554_)))) (define make-prototype-table__1 - (lambda (_size-hint68294_) - (let ((_seed68296_ '0)) + (lambda (_size-hint68556_) + (let ((_seed68558_ '0)) (declare (not safe)) - (make-prototype-table__% _size-hint68294_ _seed68296_)))) + (make-prototype-table__% _size-hint68556_ _seed68558_)))) (define make-prototype-table - (lambda _g68458_ - (let ((_g68457_ (let () (declare (not safe)) (##length _g68458_)))) - (cond ((let () (declare (not safe)) (##fx= _g68457_ 0)) + (lambda _g68720_ + (let ((_g68719_ (let () (declare (not safe)) (##length _g68720_)))) + (cond ((let () (declare (not safe)) (##fx= _g68719_ 0)) (apply (lambda () (let () (declare (not safe)) (make-prototype-table__0))) - _g68458_)) - ((let () (declare (not safe)) (##fx= _g68457_ 1)) - (apply (lambda (_size-hint68294_) + _g68720_)) + ((let () (declare (not safe)) (##fx= _g68719_ 1)) + (apply (lambda (_size-hint68556_) (let () (declare (not safe)) - (make-prototype-table__1 _size-hint68294_))) - _g68458_)) - ((let () (declare (not safe)) (##fx= _g68457_ 2)) - (apply (lambda (_size-hint68298_ _seed68299_) + (make-prototype-table__1 _size-hint68556_))) + _g68720_)) + ((let () (declare (not safe)) (##fx= _g68719_ 2)) + (apply (lambda (_size-hint68560_ _seed68561_) (let () (declare (not safe)) (make-prototype-table__% - _size-hint68298_ - _seed68299_))) - _g68458_)) + _size-hint68560_ + _seed68561_))) + _g68720_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g68458_)))))) + _g68720_)))))) (define prototype-table-ref - (lambda (_tab68239_ _key68240_ _default68241_) - (let ((_table68243_ - (let () (declare (not safe)) (&raw-table-table _tab68239_))) - (_seed68244_ - (let () (declare (not safe)) (&raw-table-seed _tab68239_)))) - (let* ((_h68246_ + (lambda (_tab68501_ _key68502_ _default68503_) + (let ((_table68505_ + (let () (declare (not safe)) (&raw-table-table _tab68501_))) + (_seed68506_ + (let () (declare (not safe)) (&raw-table-seed _tab68501_)))) + (let* ((_h68508_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key68240_)) - _seed68244_)) - (_size68249_ (vector-length _table68243_)) - (_entries68252_ (fxquotient _size68249_ '2)) - (_start68255_ + (__interface-hash-key _key68502_)) + _seed68506_)) + (_size68511_ (vector-length _table68505_)) + (_entries68514_ (fxquotient _size68511_ '2)) + (_start68517_ (fxarithmetic-shift-left - (fxmodulo _h68246_ _entries68252_) + (fxmodulo _h68508_ _entries68514_) '1))) - (let _loop68259_ ((_probe68262_ _start68255_) - (_i68264_ '1) - (_deleted68266_ '#f)) - (let ((_k68269_ (vector-ref _table68243_ _probe68262_))) - (if (let ((__tmp68465 (macro-unused-obj))) + (let _loop68521_ ((_probe68524_ _start68517_) + (_i68526_ '1) + (_deleted68528_ '#f)) + (let ((_k68531_ (vector-ref _table68505_ _probe68524_))) + (if (let ((__tmp68727 (macro-unused-obj))) (declare (not safe)) - (eq? _k68269_ __tmp68465)) - _default68241_ - (if (let ((__tmp68464 (macro-deleted-obj))) + (eq? _k68531_ __tmp68727)) + _default68503_ + (if (let ((__tmp68726 (macro-deleted-obj))) (declare (not safe)) - (eq? _k68269_ __tmp68464)) - (let ((__tmp68463 - (let ((_next-probe68272_ - (fx+ _start68255_ - _i68264_ - (fx* _i68264_ _i68264_)))) - (fxmodulo _next-probe68272_ _size68249_))) - (__tmp68462 (fx+ _i68264_ '1)) - (__tmp68461 - (let ((_$e68275_ _deleted68266_)) - (if _$e68275_ _$e68275_ _probe68262_)))) + (eq? _k68531_ __tmp68726)) + (let ((__tmp68725 + (let ((_next-probe68534_ + (fx+ _start68517_ + _i68526_ + (fx* _i68526_ _i68526_)))) + (fxmodulo _next-probe68534_ _size68511_))) + (__tmp68724 (fx+ _i68526_ '1)) + (__tmp68723 + (let ((_$e68537_ _deleted68528_)) + (if _$e68537_ _$e68537_ _probe68524_)))) (declare (not safe)) - (_loop68259_ __tmp68463 __tmp68462 __tmp68461)) + (_loop68521_ __tmp68725 __tmp68724 __tmp68723)) (if (let () (declare (not safe)) - (__interface-test-key _key68240_ _k68269_)) - (vector-ref _table68243_ (fx+ _probe68262_ '1)) - (let ((__tmp68460 - (let ((_next-probe68278_ - (fx+ _start68255_ - _i68264_ - (fx* _i68264_ _i68264_)))) - (fxmodulo _next-probe68278_ _size68249_))) - (__tmp68459 (fx+ _i68264_ '1))) + (__interface-test-key _key68502_ _k68531_)) + (vector-ref _table68505_ (fx+ _probe68524_ '1)) + (let ((__tmp68722 + (let ((_next-probe68540_ + (fx+ _start68517_ + _i68526_ + (fx* _i68526_ _i68526_)))) + (fxmodulo _next-probe68540_ _size68511_))) + (__tmp68721 (fx+ _i68526_ '1))) (declare (not safe)) - (_loop68259_ - __tmp68460 - __tmp68459 - _deleted68266_))))))))))) + (_loop68521_ + __tmp68722 + __tmp68721 + _deleted68528_))))))))))) (define prototype-table-set! - (lambda (_tab68235_ _key68236_ _value68237_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab68235_)) + (lambda (_tab68497_ _key68498_ _value68499_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab68497_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab68235_))) + (let () (declare (not safe)) (&raw-table-table _tab68497_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab68235_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab68497_)) '#!void) (let () (declare (not safe)) - (__prototype-table-set! _tab68235_ _key68236_ _value68237_)))) + (__prototype-table-set! _tab68497_ _key68498_ _value68499_)))) (define __prototype-table-set! - (lambda (_tab68190_ _key68191_ _value68192_) - (let ((_table68195_ - (let () (declare (not safe)) (&raw-table-table _tab68190_))) - (_seed68196_ - (let () (declare (not safe)) (&raw-table-seed _tab68190_)))) - (let* ((_h68198_ + (lambda (_tab68452_ _key68453_ _value68454_) + (let ((_table68457_ + (let () (declare (not safe)) (&raw-table-table _tab68452_))) + (_seed68458_ + (let () (declare (not safe)) (&raw-table-seed _tab68452_)))) + (let* ((_h68460_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key68191_)) - _seed68196_)) - (_size68201_ (vector-length _table68195_)) - (_entries68204_ (fxquotient _size68201_ '2)) - (_start68207_ + (__interface-hash-key _key68453_)) + _seed68458_)) + (_size68463_ (vector-length _table68457_)) + (_entries68466_ (fxquotient _size68463_ '2)) + (_start68469_ (fxarithmetic-shift-left - (fxmodulo _h68198_ _entries68204_) + (fxmodulo _h68460_ _entries68466_) '1))) - (let _loop68211_ ((_probe68214_ _start68207_) - (_i68216_ '1) - (_deleted68218_ '#f)) - (let ((_k68221_ (vector-ref _table68195_ _probe68214_))) - (if (let ((__tmp68475 (macro-unused-obj))) + (let _loop68473_ ((_probe68476_ _start68469_) + (_i68478_ '1) + (_deleted68480_ '#f)) + (let ((_k68483_ (vector-ref _table68457_ _probe68476_))) + (if (let ((__tmp68737 (macro-unused-obj))) (declare (not safe)) - (eq? _k68221_ __tmp68475)) - (if _deleted68218_ + (eq? _k68483_ __tmp68737)) + (if _deleted68480_ (begin - (vector-set! _table68195_ _deleted68218_ _key68191_) + (vector-set! _table68457_ _deleted68480_ _key68453_) (vector-set! - _table68195_ - (fx+ _deleted68218_ '1) - _value68192_) + _table68457_ + (fx+ _deleted68480_ '1) + _value68454_) ((lambda () - (let ((__tmp68474 + (let ((__tmp68736 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab68190_)) + (&raw-table-count _tab68452_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68190_ - __tmp68474))))) + _tab68452_ + __tmp68736))))) (begin - (vector-set! _table68195_ _probe68214_ _key68191_) + (vector-set! _table68457_ _probe68476_ _key68453_) (vector-set! - _table68195_ - (fx+ _probe68214_ '1) - _value68192_) + _table68457_ + (fx+ _probe68476_ '1) + _value68454_) ((lambda () - (let ((__tmp68472 + (let ((__tmp68734 (fx- (let () (declare (not safe)) - (&raw-table-free _tab68190_)) + (&raw-table-free _tab68452_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab68190_ __tmp68472)) - (let ((__tmp68473 + (&raw-table-free-set! _tab68452_ __tmp68734)) + (let ((__tmp68735 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab68190_)) + (&raw-table-count _tab68452_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68190_ - __tmp68473)))))) - (if (let ((__tmp68471 (macro-deleted-obj))) + _tab68452_ + __tmp68735)))))) + (if (let ((__tmp68733 (macro-deleted-obj))) (declare (not safe)) - (eq? _k68221_ __tmp68471)) - (let ((__tmp68470 - (let ((_next-probe68226_ - (fx+ _start68207_ - _i68216_ - (fx* _i68216_ _i68216_)))) - (fxmodulo _next-probe68226_ _size68201_))) - (__tmp68469 (fx+ _i68216_ '1)) - (__tmp68468 - (let ((_$e68229_ _deleted68218_)) - (if _$e68229_ _$e68229_ _probe68214_)))) + (eq? _k68483_ __tmp68733)) + (let ((__tmp68732 + (let ((_next-probe68488_ + (fx+ _start68469_ + _i68478_ + (fx* _i68478_ _i68478_)))) + (fxmodulo _next-probe68488_ _size68463_))) + (__tmp68731 (fx+ _i68478_ '1)) + (__tmp68730 + (let ((_$e68491_ _deleted68480_)) + (if _$e68491_ _$e68491_ _probe68476_)))) (declare (not safe)) - (_loop68211_ __tmp68470 __tmp68469 __tmp68468)) + (_loop68473_ __tmp68732 __tmp68731 __tmp68730)) (if (let () (declare (not safe)) - (__interface-test-key _key68191_ _k68221_)) + (__interface-test-key _key68453_ _k68483_)) (begin (vector-set! - _table68195_ - _probe68214_ - _key68191_) + _table68457_ + _probe68476_ + _key68453_) (vector-set! - _table68195_ - (fx+ _probe68214_ '1) - _value68192_)) - (let ((__tmp68467 - (let ((_next-probe68232_ - (fx+ _start68207_ - _i68216_ - (fx* _i68216_ _i68216_)))) - (fxmodulo _next-probe68232_ _size68201_))) - (__tmp68466 (fx+ _i68216_ '1))) + _table68457_ + (fx+ _probe68476_ '1) + _value68454_)) + (let ((__tmp68729 + (let ((_next-probe68494_ + (fx+ _start68469_ + _i68478_ + (fx* _i68478_ _i68478_)))) + (fxmodulo _next-probe68494_ _size68463_))) + (__tmp68728 (fx+ _i68478_ '1))) (declare (not safe)) - (_loop68211_ - __tmp68467 - __tmp68466 - _deleted68218_))))))))))) + (_loop68473_ + __tmp68729 + __tmp68728 + _deleted68480_))))))))))) (define prototype-table-update! - (lambda (_tab68185_ - _key68186_ - _prototype-table-update!68187_ - _default68188_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab68185_)) + (lambda (_tab68447_ + _key68448_ + _prototype-table-update!68449_ + _default68450_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab68447_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab68185_))) + (let () (declare (not safe)) (&raw-table-table _tab68447_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab68185_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab68447_)) '#!void) (let () (declare (not safe)) (__prototype-table-update! - _tab68185_ - _key68186_ - _prototype-table-update!68187_ - _default68188_)))) + _tab68447_ + _key68448_ + _prototype-table-update!68449_ + _default68450_)))) (define __prototype-table-update! - (lambda (_tab68139_ - _key68140_ - _prototype-table-update!68141_ - _default68142_) - (let ((_table68145_ - (let () (declare (not safe)) (&raw-table-table _tab68139_))) - (_seed68146_ - (let () (declare (not safe)) (&raw-table-seed _tab68139_)))) - (let* ((_h68148_ + (lambda (_tab68401_ + _key68402_ + _prototype-table-update!68403_ + _default68404_) + (let ((_table68407_ + (let () (declare (not safe)) (&raw-table-table _tab68401_))) + (_seed68408_ + (let () (declare (not safe)) (&raw-table-seed _tab68401_)))) + (let* ((_h68410_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key68140_)) - _seed68146_)) - (_size68151_ (vector-length _table68145_)) - (_entries68154_ (fxquotient _size68151_ '2)) - (_start68157_ + (__interface-hash-key _key68402_)) + _seed68408_)) + (_size68413_ (vector-length _table68407_)) + (_entries68416_ (fxquotient _size68413_ '2)) + (_start68419_ (fxarithmetic-shift-left - (fxmodulo _h68148_ _entries68154_) + (fxmodulo _h68410_ _entries68416_) '1))) - (let _loop68161_ ((_probe68164_ _start68157_) - (_i68166_ '1) - (_deleted68168_ '#f)) - (let ((_k68171_ (vector-ref _table68145_ _probe68164_))) - (if (let ((__tmp68485 (macro-unused-obj))) + (let _loop68423_ ((_probe68426_ _start68419_) + (_i68428_ '1) + (_deleted68430_ '#f)) + (let ((_k68433_ (vector-ref _table68407_ _probe68426_))) + (if (let ((__tmp68747 (macro-unused-obj))) (declare (not safe)) - (eq? _k68171_ __tmp68485)) - (if _deleted68168_ + (eq? _k68433_ __tmp68747)) + (if _deleted68430_ (begin - (vector-set! _table68145_ _deleted68168_ _key68140_) + (vector-set! _table68407_ _deleted68430_ _key68402_) (vector-set! - _table68145_ - (fx+ _deleted68168_ '1) - (_prototype-table-update!68141_ _default68142_)) + _table68407_ + (fx+ _deleted68430_ '1) + (_prototype-table-update!68403_ _default68404_)) ((lambda () - (let ((__tmp68484 + (let ((__tmp68746 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab68139_)) + (&raw-table-count _tab68401_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68139_ - __tmp68484))))) + _tab68401_ + __tmp68746))))) (begin - (vector-set! _table68145_ _probe68164_ _key68140_) + (vector-set! _table68407_ _probe68426_ _key68402_) (vector-set! - _table68145_ - (fx+ _probe68164_ '1) - (_prototype-table-update!68141_ _default68142_)) + _table68407_ + (fx+ _probe68426_ '1) + (_prototype-table-update!68403_ _default68404_)) ((lambda () - (let ((__tmp68482 + (let ((__tmp68744 (fx- (let () (declare (not safe)) - (&raw-table-free _tab68139_)) + (&raw-table-free _tab68401_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab68139_ __tmp68482)) - (let ((__tmp68483 + (&raw-table-free-set! _tab68401_ __tmp68744)) + (let ((__tmp68745 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab68139_)) + (&raw-table-count _tab68401_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68139_ - __tmp68483)))))) - (if (let ((__tmp68481 (macro-deleted-obj))) + _tab68401_ + __tmp68745)))))) + (if (let ((__tmp68743 (macro-deleted-obj))) (declare (not safe)) - (eq? _k68171_ __tmp68481)) - (let ((__tmp68480 - (let ((_next-probe68176_ - (fx+ _start68157_ - _i68166_ - (fx* _i68166_ _i68166_)))) - (fxmodulo _next-probe68176_ _size68151_))) - (__tmp68479 (fx+ _i68166_ '1)) - (__tmp68478 - (let ((_$e68179_ _deleted68168_)) - (if _$e68179_ _$e68179_ _probe68164_)))) + (eq? _k68433_ __tmp68743)) + (let ((__tmp68742 + (let ((_next-probe68438_ + (fx+ _start68419_ + _i68428_ + (fx* _i68428_ _i68428_)))) + (fxmodulo _next-probe68438_ _size68413_))) + (__tmp68741 (fx+ _i68428_ '1)) + (__tmp68740 + (let ((_$e68441_ _deleted68430_)) + (if _$e68441_ _$e68441_ _probe68426_)))) (declare (not safe)) - (_loop68161_ __tmp68480 __tmp68479 __tmp68478)) + (_loop68423_ __tmp68742 __tmp68741 __tmp68740)) (if (let () (declare (not safe)) - (__interface-test-key _key68140_ _k68171_)) + (__interface-test-key _key68402_ _k68433_)) (begin (vector-set! - _table68145_ - _probe68164_ - _key68140_) + _table68407_ + _probe68426_ + _key68402_) (vector-set! - _table68145_ - (fx+ _probe68164_ '1) - (_prototype-table-update!68141_ + _table68407_ + (fx+ _probe68426_ '1) + (_prototype-table-update!68403_ (vector-ref - _table68145_ - (fx+ _probe68164_ '1))))) - (let ((__tmp68477 - (let ((_next-probe68182_ - (fx+ _start68157_ - _i68166_ - (fx* _i68166_ _i68166_)))) - (fxmodulo _next-probe68182_ _size68151_))) - (__tmp68476 (fx+ _i68166_ '1))) + _table68407_ + (fx+ _probe68426_ '1))))) + (let ((__tmp68739 + (let ((_next-probe68444_ + (fx+ _start68419_ + _i68428_ + (fx* _i68428_ _i68428_)))) + (fxmodulo _next-probe68444_ _size68413_))) + (__tmp68738 (fx+ _i68428_ '1))) (declare (not safe)) - (_loop68161_ - __tmp68477 - __tmp68476 - _deleted68168_))))))))))) + (_loop68423_ + __tmp68739 + __tmp68738 + _deleted68430_))))))))))) (define prototype-trable-delete! - (lambda (_tab68098_ _key68100_) - (let ((_table68103_ - (let () (declare (not safe)) (&raw-table-table _tab68098_))) - (_seed68105_ - (let () (declare (not safe)) (&raw-table-seed _tab68098_)))) - (let* ((_h68108_ + (lambda (_tab68360_ _key68362_) + (let ((_table68365_ + (let () (declare (not safe)) (&raw-table-table _tab68360_))) + (_seed68367_ + (let () (declare (not safe)) (&raw-table-seed _tab68360_)))) + (let* ((_h68370_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key68100_)) - _seed68105_)) - (_size68111_ (vector-length _table68103_)) - (_entries68114_ (fxquotient _size68111_ '2)) - (_start68117_ + (__interface-hash-key _key68362_)) + _seed68367_)) + (_size68373_ (vector-length _table68365_)) + (_entries68376_ (fxquotient _size68373_ '2)) + (_start68379_ (fxarithmetic-shift-left - (fxmodulo _h68108_ _entries68114_) + (fxmodulo _h68370_ _entries68376_) '1))) - (let _loop68121_ ((_probe68124_ _start68117_) (_i68126_ '1)) - (let ((_k68129_ (vector-ref _table68103_ _probe68124_))) - (if (let ((__tmp68492 (macro-unused-obj))) + (let _loop68383_ ((_probe68386_ _start68379_) (_i68388_ '1)) + (let ((_k68391_ (vector-ref _table68365_ _probe68386_))) + (if (let ((__tmp68754 (macro-unused-obj))) (declare (not safe)) - (eq? _k68129_ __tmp68492)) + (eq? _k68391_ __tmp68754)) '#!void - (if (let ((__tmp68491 (macro-deleted-obj))) + (if (let ((__tmp68753 (macro-deleted-obj))) (declare (not safe)) - (eq? _k68129_ __tmp68491)) - (let ((__tmp68490 - (let ((_next-probe68132_ - (fx+ _start68117_ - _i68126_ - (fx* _i68126_ _i68126_)))) - (fxmodulo _next-probe68132_ _size68111_))) - (__tmp68489 (fx+ _i68126_ '1))) + (eq? _k68391_ __tmp68753)) + (let ((__tmp68752 + (let ((_next-probe68394_ + (fx+ _start68379_ + _i68388_ + (fx* _i68388_ _i68388_)))) + (fxmodulo _next-probe68394_ _size68373_))) + (__tmp68751 (fx+ _i68388_ '1))) (declare (not safe)) - (_loop68121_ __tmp68490 __tmp68489)) + (_loop68383_ __tmp68752 __tmp68751)) (if (let () (declare (not safe)) - (__interface-test-key _key68100_ _k68129_)) + (__interface-test-key _key68362_ _k68391_)) (begin (vector-set! - _table68103_ - _probe68124_ + _table68365_ + _probe68386_ (macro-deleted-obj)) (vector-set! - _table68103_ - (fx+ _probe68124_ '1) + _table68365_ + (fx+ _probe68386_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp68488 + (let ((__tmp68750 (fx- (let () (declare (not safe)) - (&raw-table-count _tab68098_)) + (&raw-table-count _tab68360_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab68098_ - __tmp68488))))) - (let ((__tmp68487 - (let ((_next-probe68136_ - (fx+ _start68117_ - _i68126_ - (fx* _i68126_ _i68126_)))) - (fxmodulo _next-probe68136_ _size68111_))) - (__tmp68486 (fx+ _i68126_ '1))) + _tab68360_ + __tmp68750))))) + (let ((__tmp68749 + (let ((_next-probe68398_ + (fx+ _start68379_ + _i68388_ + (fx* _i68388_ _i68388_)))) + (fxmodulo _next-probe68398_ _size68373_))) + (__tmp68748 (fx+ _i68388_ '1))) (declare (not safe)) - (_loop68121_ __tmp68487 __tmp68486))))))))))) + (_loop68383_ __tmp68749 __tmp68748))))))))))) (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 (_klass68090_) - (let ((_super6809168093_ - (let () (declare (not safe)) (##type-super _klass68090_)))) - (if _super6809168093_ - (let ((_super68096_ _super6809168093_)) - (let ((__tmp68494 - (let () (declare (not safe)) (##type-id _super68096_))) - (__tmp68493 + (lambda (_klass68352_) + (let ((_super6835368355_ + (let () (declare (not safe)) (##type-super _klass68352_)))) + (if _super6835368355_ + (let ((_super68358_ _super6835368355_)) + (let ((__tmp68756 + (let () (declare (not safe)) (##type-id _super68358_))) + (__tmp68755 (let () (declare (not safe)) (##type-id interface-instance::t)))) (declare (not safe)) - (eq? __tmp68494 __tmp68493))) + (eq? __tmp68756 __tmp68755))) '#f)))) (define create-prototype - (lambda (_descriptor67977_ _klass67978_ _obj-klass67979_) - (let ((_method-table67981_ + (lambda (_descriptor68239_ _klass68240_ _obj-klass68241_) + (let ((_method-table68243_ (let () (declare (not safe)) - (specialize-class _obj-klass67979_)))) - (let _loop67984_ ((_rest67987_ + (specialize-class _obj-klass68241_)))) + (let _loop68246_ ((_rest68249_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67977_ + _descriptor68239_ '2 interface-descriptor::t '#f))) - (_count67989_ '0) - (_methods67991_ '())) - (let* ((_rest6799368001_ _rest67987_) - (_else6799568063_ + (_count68251_ '0) + (_methods68253_ '())) + (let* ((_rest6825568263_ _rest68249_) + (_else6825768325_ (lambda () - (let ((_prototype68009_ - (let ((__obj68440 - (let ((__tmp68495 + (let ((_prototype68271_ + (let ((__obj68702 + (let ((__tmp68757 (let () (declare (not safe)) - (##fx+ _count67989_ '2)))) + (##fx+ _count68251_ '2)))) (declare (not safe)) (##make-structure - _klass67978_ - __tmp68495)))) + _klass68240_ + __tmp68757)))) (let () (declare (not safe)) - (object-fill! __obj68440 '#f)) - __obj68440))) - (let _loop68012_ ((_rest68014_ _methods67991_) - (_off68015_ + (object-fill! __obj68702 '#f)) + __obj68702))) + (let _loop68274_ ((_rest68276_ _methods68253_) + (_off68277_ (let () (declare (not safe)) - (##fx+ _count67989_ '1)))) - (let* ((_rest6801768025_ _rest68014_) - (_else6801968044_ + (##fx+ _count68251_ '1)))) + (let* ((_rest6827968287_ _rest68276_) + (_else6828168306_ (lambda () - (let ((_prototype-key68033_ - (let ((__tmp68497 + (let ((_prototype-key68295_ + (let ((__tmp68759 (let () (declare (not safe)) - (##type-id _klass67978_))) - (__tmp68496 + (##type-id _klass68240_))) + (__tmp68758 (let () (declare (not safe)) (##type-id - _obj-klass67979_)))) + _obj-klass68241_)))) (declare (not safe)) - (cons __tmp68497 __tmp68496)))) + (cons __tmp68759 __tmp68758)))) (let () (declare (not interrupts-enabled)) - (let _again68038_ () - (if (let ((__tmp68498 + (let _again68300_ () + (if (let ((__tmp68760 (let () (declare (not safe)) (##vector-cas! @@ -712,7 +712,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68498 '0)) + (##fx= __tmp68760 '0)) '#!void (begin (let () @@ -720,13 +720,13 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again68038_)))))) + (_again68300_)))))) (let () (declare (not safe)) (prototype-table-set! __interface-prototypes - _prototype-key68033_ - _prototype68009_)) + _prototype-key68295_ + _prototype68271_)) (let () (declare (not safe)) (##vector-cas! @@ -734,151 +734,151 @@ '0 '0 '1)) - ((lambda (_prototype68042_) - _prototype68042_) - _prototype68009_)))) - (_K6802168051_ - (lambda (_rest68047_ _method68048_) + ((lambda (_prototype68304_) + _prototype68304_) + _prototype68271_)))) + (_K6828368313_ + (lambda (_rest68309_ _method68310_) (let () (declare (not safe)) (##unchecked-structure-set! - _prototype68009_ - _method68048_ - _off68015_ - _klass67978_ + _prototype68271_ + _method68310_ + _off68277_ + _klass68240_ '#f)) - (let ((__tmp68499 + (let ((__tmp68761 (let () (declare (not safe)) - (##fx- _off68015_ '1)))) + (##fx- _off68277_ '1)))) (declare (not safe)) - (_loop68012_ _rest68047_ __tmp68499))))) + (_loop68274_ _rest68309_ __tmp68761))))) (if (let () (declare (not safe)) - (##pair? _rest6801768025_)) - (let ((_hd6802268054_ + (##pair? _rest6827968287_)) + (let ((_hd6828468316_ (let () (declare (not safe)) - (##car _rest6801768025_))) - (_tl6802368056_ + (##car _rest6827968287_))) + (_tl6828568318_ (let () (declare (not safe)) - (##cdr _rest6801768025_)))) - (let* ((_method68059_ _hd6802268054_) - (_rest68061_ _tl6802368056_)) + (##cdr _rest6827968287_)))) + (let* ((_method68321_ _hd6828468316_) + (_rest68323_ _tl6828568318_)) (declare (not safe)) - (_K6802168051_ _rest68061_ _method68059_))) + (_K6828368313_ _rest68323_ _method68321_))) (let () (declare (not safe)) - (_else6801968044_)))))))) - (_K6799768078_ - (lambda (_rest68066_ _method-name68067_) - (let ((_$e68070_ + (_else6828168306_)))))))) + (_K6825968340_ + (lambda (_rest68328_ _method-name68329_) + (let ((_$e68332_ (let () (declare (not safe)) (symbolic-table-ref - _method-table67981_ - _method-name68067_ + _method-table68243_ + _method-name68329_ '#f)))) - (if _$e68070_ - ((lambda (_method68073_) - (let ((__tmp68501 + (if _$e68332_ + ((lambda (_method68335_) + (let ((__tmp68763 (let () (declare (not safe)) - (##fx+ _count67989_ '1))) - (__tmp68500 + (##fx+ _count68251_ '1))) + (__tmp68762 (let () (declare (not safe)) - (cons _method68073_ _methods67991_)))) + (cons _method68335_ _methods68253_)))) (declare (not safe)) - (_loop67984_ - _rest68066_ - __tmp68501 - __tmp68500))) - _$e68070_) - ((lambda (_klass68075_ _method-name68076_) + (_loop68246_ + _rest68328_ + __tmp68763 + __tmp68762))) + _$e68332_) + ((lambda (_klass68337_ _method-name68338_) (let () (declare (not safe)) (raise-cast-error 'create-prototype '"cannot create interface instance; missing method" 'class: - _klass68075_ + _klass68337_ 'method: - _method-name68076_))) - _klass67978_ - _method-name68067_)))))) - (if (let () (declare (not safe)) (##pair? _rest6799368001_)) - (let ((_hd6799868081_ + _method-name68338_))) + _klass68240_ + _method-name68329_)))))) + (if (let () (declare (not safe)) (##pair? _rest6825568263_)) + (let ((_hd6826068343_ (let () (declare (not safe)) - (##car _rest6799368001_))) - (_tl6799968083_ + (##car _rest6825568263_))) + (_tl6826168345_ (let () (declare (not safe)) - (##cdr _rest6799368001_)))) - (let* ((_method-name68086_ _hd6799868081_) - (_rest68088_ _tl6799968083_)) + (##cdr _rest6825568263_)))) + (let* ((_method-name68348_ _hd6826068343_) + (_rest68350_ _tl6826168345_)) (declare (not safe)) - (_K6799768078_ _rest68088_ _method-name68086_))) - (let () (declare (not safe)) (_else6799568063_)))))))) + (_K6825968340_ _rest68350_ _method-name68348_))) + (let () (declare (not safe)) (_else6825768325_)))))))) (define try-create-prototype - (lambda (_descriptor67864_ _klass67865_ _obj-klass67866_) - (let ((_method-table67868_ + (lambda (_descriptor68126_ _klass68127_ _obj-klass68128_) + (let ((_method-table68130_ (let () (declare (not safe)) - (specialize-class _obj-klass67866_)))) - (let _loop67871_ ((_rest67874_ + (specialize-class _obj-klass68128_)))) + (let _loop68133_ ((_rest68136_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67864_ + _descriptor68126_ '2 interface-descriptor::t '#f))) - (_count67876_ '0) - (_methods67878_ '())) - (let* ((_rest6788067888_ _rest67874_) - (_else6788267950_ + (_count68138_ '0) + (_methods68140_ '())) + (let* ((_rest6814268150_ _rest68136_) + (_else6814468212_ (lambda () - (let ((_prototype67896_ - (let ((__obj68441 - (let ((__tmp68502 + (let ((_prototype68158_ + (let ((__obj68703 + (let ((__tmp68764 (let () (declare (not safe)) - (##fx+ _count67876_ '2)))) + (##fx+ _count68138_ '2)))) (declare (not safe)) (##make-structure - _klass67865_ - __tmp68502)))) + _klass68127_ + __tmp68764)))) (let () (declare (not safe)) - (object-fill! __obj68441 '#f)) - __obj68441))) - (let _loop67899_ ((_rest67901_ _methods67878_) - (_off67902_ + (object-fill! __obj68703 '#f)) + __obj68703))) + (let _loop68161_ ((_rest68163_ _methods68140_) + (_off68164_ (let () (declare (not safe)) - (##fx+ _count67876_ '1)))) - (let* ((_rest6790467912_ _rest67901_) - (_else6790667931_ + (##fx+ _count68138_ '1)))) + (let* ((_rest6816668174_ _rest68163_) + (_else6816868193_ (lambda () - (let ((_prototype-key67920_ - (let ((__tmp68504 + (let ((_prototype-key68182_ + (let ((__tmp68766 (let () (declare (not safe)) - (##type-id _klass67865_))) - (__tmp68503 + (##type-id _klass68127_))) + (__tmp68765 (let () (declare (not safe)) (##type-id - _obj-klass67866_)))) + _obj-klass68128_)))) (declare (not safe)) - (cons __tmp68504 __tmp68503)))) + (cons __tmp68766 __tmp68765)))) (let () (declare (not interrupts-enabled)) - (let _again67925_ () - (if (let ((__tmp68505 + (let _again68187_ () + (if (let ((__tmp68767 (let () (declare (not safe)) (##vector-cas! @@ -887,7 +887,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68505 '0)) + (##fx= __tmp68767 '0)) '#!void (begin (let () @@ -895,13 +895,13 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again67925_)))))) + (_again68187_)))))) (let () (declare (not safe)) (prototype-table-set! __interface-prototypes - _prototype-key67920_ - _prototype67896_)) + _prototype-key68182_ + _prototype68158_)) (let () (declare (not safe)) (##vector-cas! @@ -909,130 +909,130 @@ '0 '0 '1)) - ((lambda (_prototype67929_) - _prototype67929_) - _prototype67896_)))) - (_K6790867938_ - (lambda (_rest67934_ _method67935_) + ((lambda (_prototype68191_) + _prototype68191_) + _prototype68158_)))) + (_K6817068200_ + (lambda (_rest68196_ _method68197_) (let () (declare (not safe)) (##unchecked-structure-set! - _prototype67896_ - _method67935_ - _off67902_ - _klass67865_ + _prototype68158_ + _method68197_ + _off68164_ + _klass68127_ '#f)) - (let ((__tmp68506 + (let ((__tmp68768 (let () (declare (not safe)) - (##fx- _off67902_ '1)))) + (##fx- _off68164_ '1)))) (declare (not safe)) - (_loop67899_ _rest67934_ __tmp68506))))) + (_loop68161_ _rest68196_ __tmp68768))))) (if (let () (declare (not safe)) - (##pair? _rest6790467912_)) - (let ((_hd6790967941_ + (##pair? _rest6816668174_)) + (let ((_hd6817168203_ (let () (declare (not safe)) - (##car _rest6790467912_))) - (_tl6791067943_ + (##car _rest6816668174_))) + (_tl6817268205_ (let () (declare (not safe)) - (##cdr _rest6790467912_)))) - (let* ((_method67946_ _hd6790967941_) - (_rest67948_ _tl6791067943_)) + (##cdr _rest6816668174_)))) + (let* ((_method68208_ _hd6817168203_) + (_rest68210_ _tl6817268205_)) (declare (not safe)) - (_K6790867938_ _rest67948_ _method67946_))) + (_K6817068200_ _rest68210_ _method68208_))) (let () (declare (not safe)) - (_else6790667931_)))))))) - (_K6788467965_ - (lambda (_rest67953_ _method-name67954_) - (let ((_$e67957_ + (_else6816868193_)))))))) + (_K6814668227_ + (lambda (_rest68215_ _method-name68216_) + (let ((_$e68219_ (let () (declare (not safe)) (symbolic-table-ref - _method-table67868_ - _method-name67954_ + _method-table68130_ + _method-name68216_ '#f)))) - (if _$e67957_ - ((lambda (_method67960_) - (let ((__tmp68508 + (if _$e68219_ + ((lambda (_method68222_) + (let ((__tmp68770 (let () (declare (not safe)) - (##fx+ _count67876_ '1))) - (__tmp68507 + (##fx+ _count68138_ '1))) + (__tmp68769 (let () (declare (not safe)) - (cons _method67960_ _methods67878_)))) + (cons _method68222_ _methods68140_)))) (declare (not safe)) - (_loop67871_ - _rest67953_ - __tmp68508 - __tmp68507))) - _$e67957_) - ((lambda (_klass67962_ _method-name67963_) '#f) - _klass67865_ - _method-name67954_)))))) - (if (let () (declare (not safe)) (##pair? _rest6788067888_)) - (let ((_hd6788567968_ + (_loop68133_ + _rest68215_ + __tmp68770 + __tmp68769))) + _$e68219_) + ((lambda (_klass68224_ _method-name68225_) '#f) + _klass68127_ + _method-name68216_)))))) + (if (let () (declare (not safe)) (##pair? _rest6814268150_)) + (let ((_hd6814768230_ (let () (declare (not safe)) - (##car _rest6788067888_))) - (_tl6788667970_ + (##car _rest6814268150_))) + (_tl6814868232_ (let () (declare (not safe)) - (##cdr _rest6788067888_)))) - (let* ((_method-name67973_ _hd6788567968_) - (_rest67975_ _tl6788667970_)) + (##cdr _rest6814268150_)))) + (let* ((_method-name68235_ _hd6814768230_) + (_rest68237_ _tl6814868232_)) (declare (not safe)) - (_K6788467965_ _rest67975_ _method-name67973_))) - (let () (declare (not safe)) (_else6788267950_)))))))) + (_K6814668227_ _rest68237_ _method-name68235_))) + (let () (declare (not safe)) (_else6814468212_)))))))) (define cast - (lambda (_descriptor67823_ _obj67825_) - (if (let () (declare (not safe)) (##structure? _obj67825_)) + (lambda (_descriptor68085_ _obj68087_) + (if (let () (declare (not safe)) (##structure? _obj68087_)) (let () (declare (not interrupts-enabled)) - (let* ((_klass67830_ + (let* ((_klass68092_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67823_ + _descriptor68085_ '1 interface-descriptor::t '#f))) - (_klass-id67833_ - (let () (declare (not safe)) (##type-id _klass67830_))) - (_obj-klass67836_ + (_klass-id68095_ + (let () (declare (not safe)) (##type-id _klass68092_))) + (_obj-klass68098_ (let () (declare (not safe)) - (##structure-type _obj67825_))) - (_obj-klass-id67839_ + (##structure-type _obj68087_))) + (_obj-klass-id68101_ (let () (declare (not safe)) - (##type-id _obj-klass67836_)))) + (##type-id _obj-klass68098_)))) (if (let () (declare (not safe)) - (##eq? _klass-id67833_ _obj-klass-id67839_)) - _obj67825_ + (##eq? _klass-id68095_ _obj-klass-id68101_)) + _obj68087_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass67836_)) - (let ((__tmp68510 + (interface-subclass? _obj-klass68098_)) + (let ((__tmp68772 (let () (declare (not safe)) (##unchecked-structure-ref - _obj67825_ + _obj68087_ '1 interface-instance::t '#f)))) (declare (not safe)) - (cast _descriptor67823_ __tmp68510)) + (cast _descriptor68085_ __tmp68772)) (begin (let () (declare (not interrupts-enabled)) - (let _again67845_ () - (if (let ((__tmp68509 + (let _again68107_ () + (if (let ((__tmp68771 (let () (declare (not safe)) (##vector-cas! @@ -1041,7 +1041,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68509 '0)) + (##fx= __tmp68771 '0)) '#!void (begin (let () @@ -1049,27 +1049,27 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again67845_)))))) + (_again68107_)))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _klass-id67833_)) + _klass-id68095_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id67839_)) - (let ((_prototype67855_ - (let ((_$e67849_ + _obj-klass-id68101_)) + (let ((_prototype68117_ + (let ((_$e68111_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e67849_ - ((lambda (_prototype67852_) + (if _$e68111_ + ((lambda (_prototype68114_) (let () (declare (not safe)) (##vector-cas! @@ -1077,8 +1077,8 @@ '0 '0 '1)) - _prototype67852_) - _$e67849_) + _prototype68114_) + _$e68111_) (begin (let () (declare (not safe)) @@ -1090,78 +1090,78 @@ (let () (declare (not safe)) (create-prototype - _descriptor67823_ - _klass67830_ - _obj-klass67836_))))))) - ((lambda (_prototype67857_ _obj67858_) - (let ((_instance67860_ + _descriptor68085_ + _klass68092_ + _obj-klass68098_))))))) + ((lambda (_prototype68119_ _obj68120_) + (let ((_instance68122_ (let () (declare (not safe)) - (##structure-copy _prototype67857_)))) + (##structure-copy _prototype68119_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _instance67860_ - _obj67858_ + _instance68122_ + _obj68120_ '1 '#f 'cast)) - _instance67860_)) - _prototype67855_ - _obj67825_))))))) - ((lambda (_obj67862_) + _instance68122_)) + _prototype68117_ + _obj68087_))))))) + ((lambda (_obj68124_) (let () (declare (not safe)) (raise-cast-error 'cast '"cannot cast non-object to interface instance" - _obj67862_))) - _obj67825_)))) + _obj68124_))) + _obj68087_)))) (define try-cast - (lambda (_descriptor67782_ _obj67784_) - (if (let () (declare (not safe)) (##structure? _obj67784_)) + (lambda (_descriptor68044_ _obj68046_) + (if (let () (declare (not safe)) (##structure? _obj68046_)) (let () (declare (not interrupts-enabled)) - (let* ((_klass67789_ + (let* ((_klass68051_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67782_ + _descriptor68044_ '1 interface-descriptor::t '#f))) - (_klass-id67792_ - (let () (declare (not safe)) (##type-id _klass67789_))) - (_obj-klass67795_ + (_klass-id68054_ + (let () (declare (not safe)) (##type-id _klass68051_))) + (_obj-klass68057_ (let () (declare (not safe)) - (##structure-type _obj67784_))) - (_obj-klass-id67798_ + (##structure-type _obj68046_))) + (_obj-klass-id68060_ (let () (declare (not safe)) - (##type-id _obj-klass67795_)))) + (##type-id _obj-klass68057_)))) (if (let () (declare (not safe)) - (##eq? _klass-id67792_ _obj-klass-id67798_)) - _obj67784_ + (##eq? _klass-id68054_ _obj-klass-id68060_)) + _obj68046_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass67795_)) - (let ((__tmp68512 + (interface-subclass? _obj-klass68057_)) + (let ((__tmp68774 (let () (declare (not safe)) (##unchecked-structure-ref - _obj67784_ + _obj68046_ '1 interface-instance::t '#f)))) (declare (not safe)) - (try-cast _descriptor67782_ __tmp68512)) + (try-cast _descriptor68044_ __tmp68774)) (begin (let () (declare (not interrupts-enabled)) - (let _again67804_ () - (if (let ((__tmp68511 + (let _again68066_ () + (if (let ((__tmp68773 (let () (declare (not safe)) (##vector-cas! @@ -1170,7 +1170,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68511 '0)) + (##fx= __tmp68773 '0)) '#!void (begin (let () @@ -1178,27 +1178,27 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again67804_)))))) + (_again68066_)))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _klass-id67792_)) + _klass-id68054_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id67798_)) - (let ((_prototype67814_ - (let ((_$e67808_ + _obj-klass-id68060_)) + (let ((_prototype68076_ + (let ((_$e68070_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e67808_ - ((lambda (_prototype67811_) + (if _$e68070_ + ((lambda (_prototype68073_) (let () (declare (not safe)) (##vector-cas! @@ -1206,8 +1206,8 @@ '0 '0 '1)) - _prototype67811_) - _$e67808_) + _prototype68073_) + _$e68070_) (begin (let () (declare (not safe)) @@ -1219,74 +1219,74 @@ (let () (declare (not safe)) (try-create-prototype - _descriptor67782_ - _klass67789_ - _obj-klass67795_))))))) - ((lambda (_prototype67816_ _obj67817_) - (if _prototype67816_ - (let ((_instance67819_ + _descriptor68044_ + _klass68051_ + _obj-klass68057_))))))) + ((lambda (_prototype68078_ _obj68079_) + (if _prototype68078_ + (let ((_instance68081_ (let () (declare (not safe)) (##structure-copy - _prototype67816_)))) + _prototype68078_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _instance67819_ - _obj67817_ + _instance68081_ + _obj68079_ '1 '#f 'cast)) - _instance67819_) + _instance68081_) '#f)) - _prototype67814_ - _obj67784_))))))) - ((lambda (_obj67821_) '#f) _obj67784_)))) + _prototype68076_ + _obj68046_))))))) + ((lambda (_obj68083_) '#f) _obj68046_)))) (define satisfies? - (lambda (_descriptor67743_ _obj67745_) - (if (let () (declare (not safe)) (##structure? _obj67745_)) + (lambda (_descriptor68005_ _obj68007_) + (if (let () (declare (not safe)) (##structure? _obj68007_)) (let () (declare (not interrupts-enabled)) - (let* ((_klass67750_ + (let* ((_klass68012_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor67743_ + _descriptor68005_ '1 interface-descriptor::t '#f))) - (_klass-id67753_ - (let () (declare (not safe)) (##type-id _klass67750_))) - (_obj-klass67756_ + (_klass-id68015_ + (let () (declare (not safe)) (##type-id _klass68012_))) + (_obj-klass68018_ (let () (declare (not safe)) - (##structure-type _obj67745_))) - (_obj-klass-id67759_ + (##structure-type _obj68007_))) + (_obj-klass-id68021_ (let () (declare (not safe)) - (##type-id _obj-klass67756_)))) + (##type-id _obj-klass68018_)))) (if (let () (declare (not safe)) - (##eq? _klass-id67753_ _obj-klass-id67759_)) - _obj67745_ + (##eq? _klass-id68015_ _obj-klass-id68021_)) + _obj68007_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass67756_)) - (let ((__tmp68514 + (interface-subclass? _obj-klass68018_)) + (let ((__tmp68776 (let () (declare (not safe)) (##unchecked-structure-ref - _obj67745_ + _obj68007_ '1 interface-instance::t '#f)))) (declare (not safe)) - (satisfies? _descriptor67743_ __tmp68514)) + (satisfies? _descriptor68005_ __tmp68776)) (begin (let () (declare (not interrupts-enabled)) - (let _again67765_ () - (if (let ((__tmp68513 + (let _again68027_ () + (if (let ((__tmp68775 (let () (declare (not safe)) (##vector-cas! @@ -1295,7 +1295,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp68513 '0)) + (##fx= __tmp68775 '0)) '#!void (begin (let () @@ -1303,27 +1303,27 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again67765_)))))) + (_again68027_)))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _klass-id67753_)) + _klass-id68015_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id67759_)) - (let ((_prototype67775_ - (let ((_$e67769_ + _obj-klass-id68021_)) + (let ((_prototype68037_ + (let ((_$e68031_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e67769_ - ((lambda (_prototype67772_) + (if _$e68031_ + ((lambda (_prototype68034_) (let () (declare (not safe)) (##vector-cas! @@ -1331,8 +1331,8 @@ '0 '0 '1)) - _prototype67772_) - _$e67769_) + _prototype68034_) + _$e68031_) (begin (let () (declare (not safe)) @@ -1344,11 +1344,11 @@ (let () (declare (not safe)) (try-create-prototype - _descriptor67743_ - _klass67750_ - _obj-klass67756_))))))) - ((lambda (_prototype67777_ _obj67778_) - (if _prototype67777_ '#t '#f)) - _prototype67775_ - _obj67745_))))))) - ((lambda (_obj67780_) '#f) _obj67745_)))))) + _descriptor68005_ + _klass68012_ + _obj-klass68018_))))))) + ((lambda (_prototype68039_ _obj68040_) + (if _prototype68039_ '#t '#f)) + _prototype68037_ + _obj68007_))))))) + ((lambda (_obj68042_) '#f) _obj68007_)))))) diff --git a/src/bootstrap/gerbil/runtime/interface__1.scm b/src/bootstrap/gerbil/runtime/interface__1.scm index f6c7fbf0..8b831d3f 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]#_g68517_| + (define |[1]#_g68779_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g68519_| + (define |[1]#_g68781_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g68521_| + (define |[1]#_g68783_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g68523_| + (define |[1]#_g68785_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g68530_| + (define |[1]#_g68792_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68533_| + (define |[1]#_g68795_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g68536_| + (define |[1]#_g68798_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g68539_| + (define |[1]#_g68801_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g68546_| + (define |[1]#_g68808_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68549_| + (define |[1]#_g68811_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68552_| + (define |[1]#_g68814_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68555_| + (define |[1]#_g68817_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68562_| + (define |[1]#_g68824_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68565_| + (define |[1]#_g68827_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g68568_| + (define |[1]#_g68830_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g68571_| + (define |[1]#_g68833_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g68578_| + (define |[1]#_g68840_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68581_| + (define |[1]#_g68843_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68584_| + (define |[1]#_g68846_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68587_| + (define |[1]#_g68849_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68589_| + (define |[1]#_g68851_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g68591_| + (define |[1]#_g68853_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g68593_| + (define |[1]#_g68855_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g68598_| + (define |[1]#_g68860_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g68601_| + (define |[1]#_g68863_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g68606_| + (define |[1]#_g68868_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68609_| + (define |[1]#_g68871_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68614_| + (define |[1]#_g68876_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g68617_| + (define |[1]#_g68879_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g68622_| + (define |[1]#_g68884_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68625_| + (define |[1]#_g68887_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj68437 + (let ((__obj68699 (let () (declare (not safe)) (##structure @@ -242,7 +242,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68437 + __obj68699 'gerbil/runtime/interface#CastError::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -250,7 +250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68437 + __obj68699 'CastError '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -258,26 +258,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68437 + __obj68699 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68515 - (let ((__tmp68516 |[1]#_g68517_|)) + (let ((__tmp68777 + (let ((__tmp68778 |[1]#_g68779_|)) (declare (not safe)) - (cons __tmp68516 '())))) + (cons __tmp68778 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj68437 - __tmp68515 + __obj68699 + __tmp68777 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj68437 + __obj68699 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -285,7 +285,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68437 + __obj68699 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -293,7 +293,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68437 + __obj68699 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -301,178 +301,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68437 + __obj68699 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68518 |[1]#_g68519_|)) + (let ((__tmp68780 |[1]#_g68781_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68437 - __tmp68518 + __obj68699 + __tmp68780 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68520 |[1]#_g68521_|)) + (let ((__tmp68782 |[1]#_g68783_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68437 - __tmp68520 + __obj68699 + __tmp68782 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68522 |[1]#_g68523_|)) + (let ((__tmp68784 |[1]#_g68785_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68437 - __tmp68522 + __obj68699 + __tmp68784 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68524 - (let ((__tmp68537 - (let ((__tmp68538 |[1]#_g68539_|)) + (let ((__tmp68786 + (let ((__tmp68799 + (let ((__tmp68800 |[1]#_g68801_|)) (declare (not safe)) - (cons 'message __tmp68538))) - (__tmp68525 - (let ((__tmp68534 - (let ((__tmp68535 |[1]#_g68536_|)) + (cons 'message __tmp68800))) + (__tmp68787 + (let ((__tmp68796 + (let ((__tmp68797 |[1]#_g68798_|)) (declare (not safe)) - (cons 'irritants __tmp68535))) - (__tmp68526 - (let ((__tmp68531 - (let ((__tmp68532 |[1]#_g68533_|)) + (cons 'irritants __tmp68797))) + (__tmp68788 + (let ((__tmp68793 + (let ((__tmp68794 |[1]#_g68795_|)) (declare (not safe)) - (cons 'where __tmp68532))) - (__tmp68527 - (let ((__tmp68528 - (let ((__tmp68529 |[1]#_g68530_|)) + (cons 'where __tmp68794))) + (__tmp68789 + (let ((__tmp68790 + (let ((__tmp68791 |[1]#_g68792_|)) (declare (not safe)) - (cons 'continuation __tmp68529)))) + (cons 'continuation __tmp68791)))) (declare (not safe)) - (cons __tmp68528 '())))) + (cons __tmp68790 '())))) (declare (not safe)) - (cons __tmp68531 __tmp68527)))) + (cons __tmp68793 __tmp68789)))) (declare (not safe)) - (cons __tmp68534 __tmp68526)))) + (cons __tmp68796 __tmp68788)))) (declare (not safe)) - (cons __tmp68537 __tmp68525)))) + (cons __tmp68799 __tmp68787)))) (declare (not safe)) (##unchecked-structure-set! - __obj68437 - __tmp68524 + __obj68699 + __tmp68786 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68540 - (let ((__tmp68553 - (let ((__tmp68554 |[1]#_g68555_|)) + (let ((__tmp68802 + (let ((__tmp68815 + (let ((__tmp68816 |[1]#_g68817_|)) (declare (not safe)) - (cons 'message __tmp68554))) - (__tmp68541 - (let ((__tmp68550 - (let ((__tmp68551 |[1]#_g68552_|)) + (cons 'message __tmp68816))) + (__tmp68803 + (let ((__tmp68812 + (let ((__tmp68813 |[1]#_g68814_|)) (declare (not safe)) - (cons 'irritants __tmp68551))) - (__tmp68542 - (let ((__tmp68547 - (let ((__tmp68548 |[1]#_g68549_|)) + (cons 'irritants __tmp68813))) + (__tmp68804 + (let ((__tmp68809 + (let ((__tmp68810 |[1]#_g68811_|)) (declare (not safe)) - (cons 'where __tmp68548))) - (__tmp68543 - (let ((__tmp68544 - (let ((__tmp68545 |[1]#_g68546_|)) + (cons 'where __tmp68810))) + (__tmp68805 + (let ((__tmp68806 + (let ((__tmp68807 |[1]#_g68808_|)) (declare (not safe)) - (cons 'continuation __tmp68545)))) + (cons 'continuation __tmp68807)))) (declare (not safe)) - (cons __tmp68544 '())))) + (cons __tmp68806 '())))) (declare (not safe)) - (cons __tmp68547 __tmp68543)))) + (cons __tmp68809 __tmp68805)))) (declare (not safe)) - (cons __tmp68550 __tmp68542)))) + (cons __tmp68812 __tmp68804)))) (declare (not safe)) - (cons __tmp68553 __tmp68541)))) + (cons __tmp68815 __tmp68803)))) (declare (not safe)) (##unchecked-structure-set! - __obj68437 - __tmp68540 + __obj68699 + __tmp68802 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68556 - (let ((__tmp68569 - (let ((__tmp68570 |[1]#_g68571_|)) + (let ((__tmp68818 + (let ((__tmp68831 + (let ((__tmp68832 |[1]#_g68833_|)) (declare (not safe)) - (cons 'message __tmp68570))) - (__tmp68557 - (let ((__tmp68566 - (let ((__tmp68567 |[1]#_g68568_|)) + (cons 'message __tmp68832))) + (__tmp68819 + (let ((__tmp68828 + (let ((__tmp68829 |[1]#_g68830_|)) (declare (not safe)) - (cons 'irritants __tmp68567))) - (__tmp68558 - (let ((__tmp68563 - (let ((__tmp68564 |[1]#_g68565_|)) + (cons 'irritants __tmp68829))) + (__tmp68820 + (let ((__tmp68825 + (let ((__tmp68826 |[1]#_g68827_|)) (declare (not safe)) - (cons 'where __tmp68564))) - (__tmp68559 - (let ((__tmp68560 - (let ((__tmp68561 |[1]#_g68562_|)) + (cons 'where __tmp68826))) + (__tmp68821 + (let ((__tmp68822 + (let ((__tmp68823 |[1]#_g68824_|)) (declare (not safe)) - (cons 'continuation __tmp68561)))) + (cons 'continuation __tmp68823)))) (declare (not safe)) - (cons __tmp68560 '())))) + (cons __tmp68822 '())))) (declare (not safe)) - (cons __tmp68563 __tmp68559)))) + (cons __tmp68825 __tmp68821)))) (declare (not safe)) - (cons __tmp68566 __tmp68558)))) + (cons __tmp68828 __tmp68820)))) (declare (not safe)) - (cons __tmp68569 __tmp68557)))) + (cons __tmp68831 __tmp68819)))) (declare (not safe)) (##unchecked-structure-set! - __obj68437 - __tmp68556 + __obj68699 + __tmp68818 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68572 - (let ((__tmp68585 - (let ((__tmp68586 |[1]#_g68587_|)) + (let ((__tmp68834 + (let ((__tmp68847 + (let ((__tmp68848 |[1]#_g68849_|)) (declare (not safe)) - (cons 'message __tmp68586))) - (__tmp68573 - (let ((__tmp68582 - (let ((__tmp68583 |[1]#_g68584_|)) + (cons 'message __tmp68848))) + (__tmp68835 + (let ((__tmp68844 + (let ((__tmp68845 |[1]#_g68846_|)) (declare (not safe)) - (cons 'irritants __tmp68583))) - (__tmp68574 - (let ((__tmp68579 - (let ((__tmp68580 |[1]#_g68581_|)) + (cons 'irritants __tmp68845))) + (__tmp68836 + (let ((__tmp68841 + (let ((__tmp68842 |[1]#_g68843_|)) (declare (not safe)) - (cons 'where __tmp68580))) - (__tmp68575 - (let ((__tmp68576 - (let ((__tmp68577 |[1]#_g68578_|)) + (cons 'where __tmp68842))) + (__tmp68837 + (let ((__tmp68838 + (let ((__tmp68839 |[1]#_g68840_|)) (declare (not safe)) - (cons 'continuation __tmp68577)))) + (cons 'continuation __tmp68839)))) (declare (not safe)) - (cons __tmp68576 '())))) + (cons __tmp68838 '())))) (declare (not safe)) - (cons __tmp68579 __tmp68575)))) + (cons __tmp68841 __tmp68837)))) (declare (not safe)) - (cons __tmp68582 __tmp68574)))) + (cons __tmp68844 __tmp68836)))) (declare (not safe)) - (cons __tmp68585 __tmp68573)))) + (cons __tmp68847 __tmp68835)))) (declare (not safe)) (##unchecked-structure-set! - __obj68437 - __tmp68572 + __obj68699 + __tmp68834 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj68437)) + __obj68699)) (define |[:0:]#interface-descriptor| - (let ((__obj68439 + (let ((__obj68701 (let () (declare (not safe)) (##structure @@ -495,7 +495,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68439 + __obj68701 'gerbil/runtime/interface#interface-descriptor::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -503,7 +503,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68439 + __obj68701 'interface-descriptor '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -511,7 +511,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68439 + __obj68701 '(type methods) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -519,7 +519,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68439 + __obj68701 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -527,7 +527,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68439 + __obj68701 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -535,7 +535,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68439 + __obj68701 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -543,7 +543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68439 + __obj68701 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -551,1591 +551,1591 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68439 + __obj68701 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68588 |[1]#_g68589_|)) + (let ((__tmp68850 |[1]#_g68851_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68439 - __tmp68588 + __obj68701 + __tmp68850 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68590 |[1]#_g68591_|)) + (let ((__tmp68852 |[1]#_g68853_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68439 - __tmp68590 + __obj68701 + __tmp68852 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68592 |[1]#_g68593_|)) + (let ((__tmp68854 |[1]#_g68855_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68439 - __tmp68592 + __obj68701 + __tmp68854 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68594 - (let ((__tmp68599 - (let ((__tmp68600 |[1]#_g68601_|)) + (let ((__tmp68856 + (let ((__tmp68861 + (let ((__tmp68862 |[1]#_g68863_|)) (declare (not safe)) - (cons 'type __tmp68600))) - (__tmp68595 - (let ((__tmp68596 - (let ((__tmp68597 |[1]#_g68598_|)) + (cons 'type __tmp68862))) + (__tmp68857 + (let ((__tmp68858 + (let ((__tmp68859 |[1]#_g68860_|)) (declare (not safe)) - (cons 'methods __tmp68597)))) + (cons 'methods __tmp68859)))) (declare (not safe)) - (cons __tmp68596 '())))) + (cons __tmp68858 '())))) (declare (not safe)) - (cons __tmp68599 __tmp68595)))) + (cons __tmp68861 __tmp68857)))) (declare (not safe)) (##unchecked-structure-set! - __obj68439 - __tmp68594 + __obj68701 + __tmp68856 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68602 - (let ((__tmp68607 - (let ((__tmp68608 |[1]#_g68609_|)) + (let ((__tmp68864 + (let ((__tmp68869 + (let ((__tmp68870 |[1]#_g68871_|)) (declare (not safe)) - (cons 'type __tmp68608))) - (__tmp68603 - (let ((__tmp68604 - (let ((__tmp68605 |[1]#_g68606_|)) + (cons 'type __tmp68870))) + (__tmp68865 + (let ((__tmp68866 + (let ((__tmp68867 |[1]#_g68868_|)) (declare (not safe)) - (cons 'methods __tmp68605)))) + (cons 'methods __tmp68867)))) (declare (not safe)) - (cons __tmp68604 '())))) + (cons __tmp68866 '())))) (declare (not safe)) - (cons __tmp68607 __tmp68603)))) + (cons __tmp68869 __tmp68865)))) (declare (not safe)) (##unchecked-structure-set! - __obj68439 - __tmp68602 + __obj68701 + __tmp68864 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68610 - (let ((__tmp68615 - (let ((__tmp68616 |[1]#_g68617_|)) + (let ((__tmp68872 + (let ((__tmp68877 + (let ((__tmp68878 |[1]#_g68879_|)) (declare (not safe)) - (cons 'type __tmp68616))) - (__tmp68611 - (let ((__tmp68612 - (let ((__tmp68613 |[1]#_g68614_|)) + (cons 'type __tmp68878))) + (__tmp68873 + (let ((__tmp68874 + (let ((__tmp68875 |[1]#_g68876_|)) (declare (not safe)) - (cons 'methods __tmp68613)))) + (cons 'methods __tmp68875)))) (declare (not safe)) - (cons __tmp68612 '())))) + (cons __tmp68874 '())))) (declare (not safe)) - (cons __tmp68615 __tmp68611)))) + (cons __tmp68877 __tmp68873)))) (declare (not safe)) (##unchecked-structure-set! - __obj68439 - __tmp68610 + __obj68701 + __tmp68872 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp68618 - (let ((__tmp68623 - (let ((__tmp68624 |[1]#_g68625_|)) + (let ((__tmp68880 + (let ((__tmp68885 + (let ((__tmp68886 |[1]#_g68887_|)) (declare (not safe)) - (cons 'type __tmp68624))) - (__tmp68619 - (let ((__tmp68620 - (let ((__tmp68621 |[1]#_g68622_|)) + (cons 'type __tmp68886))) + (__tmp68881 + (let ((__tmp68882 + (let ((__tmp68883 |[1]#_g68884_|)) (declare (not safe)) - (cons 'methods __tmp68621)))) + (cons 'methods __tmp68883)))) (declare (not safe)) - (cons __tmp68620 '())))) + (cons __tmp68882 '())))) (declare (not safe)) - (cons __tmp68623 __tmp68619)))) + (cons __tmp68885 __tmp68881)))) (declare (not safe)) (##unchecked-structure-set! - __obj68439 - __tmp68618 + __obj68701 + __tmp68880 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj68439)) + __obj68701)) (define |[:0:]#immediate-instance-of?| - (lambda (_$stx67409_) - (let* ((_g6741367431_ - (lambda (_g6741467427_) + (lambda (_$stx67671_) + (let* ((_g6767567693_ + (lambda (_g6767667689_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6741467427_))) - (_g6741267487_ - (lambda (_g6741467435_) - (if (gx#stx-pair? _g6741467435_) - (let ((_e6741967438_ (gx#syntax-e _g6741467435_))) - (let ((_hd6741867442_ + _g6767667689_))) + (_g6767467749_ + (lambda (_g6767667697_) + (if (gx#stx-pair? _g6767667697_) + (let ((_e6768167700_ (gx#syntax-e _g6767667697_))) + (let ((_hd6768067704_ (let () (declare (not safe)) - (##car _e6741967438_))) - (_tl6741767445_ + (##car _e6768167700_))) + (_tl6767967707_ (let () (declare (not safe)) - (##cdr _e6741967438_)))) - (if (gx#stx-pair? _tl6741767445_) - (let ((_e6742267448_ - (gx#syntax-e _tl6741767445_))) - (let ((_hd6742167452_ + (##cdr _e6768167700_)))) + (if (gx#stx-pair? _tl6767967707_) + (let ((_e6768467710_ + (gx#syntax-e _tl6767967707_))) + (let ((_hd6768367714_ (let () (declare (not safe)) - (##car _e6742267448_))) - (_tl6742067455_ + (##car _e6768467710_))) + (_tl6768267717_ (let () (declare (not safe)) - (##cdr _e6742267448_)))) - (if (gx#stx-pair? _tl6742067455_) - (let ((_e6742567458_ - (gx#syntax-e _tl6742067455_))) - (let ((_hd6742467462_ + (##cdr _e6768467710_)))) + (if (gx#stx-pair? _tl6768267717_) + (let ((_e6768767720_ + (gx#syntax-e _tl6768267717_))) + (let ((_hd6768667724_ (let () (declare (not safe)) - (##car _e6742567458_))) - (_tl6742367465_ + (##car _e6768767720_))) + (_tl6768567727_ (let () (declare (not safe)) - (##cdr _e6742567458_)))) - (if (gx#stx-null? _tl6742367465_) - ((lambda (_L67468_ _L67470_) - (let ((__tmp68638 + (##cdr _e6768767720_)))) + (if (gx#stx-null? _tl6768567727_) + ((lambda (_L67730_ _L67732_) + (let ((__tmp68900 (gx#datum->syntax '#f 'and)) - (__tmp68626 - (let ((__tmp68635 - (let ((__tmp68637 + (__tmp68888 + (let ((__tmp68897 + (let ((__tmp68899 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##structure?)) - (__tmp68636 + (__tmp68898 (let () (declare (not safe)) - (cons _L67468_ '())))) + (cons _L67730_ '())))) (declare (not safe)) - (cons __tmp68637 __tmp68636))) - (__tmp68627 - (let ((__tmp68628 - (let ((__tmp68634 (gx#datum->syntax '#f 'eq?)) - (__tmp68629 - (let ((__tmp68631 - (let ((__tmp68633 + (cons __tmp68899 __tmp68898))) + (__tmp68889 + (let ((__tmp68890 + (let ((__tmp68896 (gx#datum->syntax '#f 'eq?)) + (__tmp68891 + (let ((__tmp68893 + (let ((__tmp68895 (gx#datum->syntax '#f '##structure-type)) - (__tmp68632 + (__tmp68894 (let () (declare (not safe)) - (cons _L67468_ '())))) + (cons _L67730_ '())))) (declare (not safe)) - (cons __tmp68633 __tmp68632))) - (__tmp68630 + (cons __tmp68895 __tmp68894))) + (__tmp68892 (let () (declare (not safe)) - (cons _L67470_ '())))) + (cons _L67732_ '())))) (declare (not safe)) - (cons __tmp68631 __tmp68630)))) + (cons __tmp68893 __tmp68892)))) (declare (not safe)) - (cons __tmp68634 __tmp68629)))) + (cons __tmp68896 __tmp68891)))) (declare (not safe)) - (cons __tmp68628 '())))) + (cons __tmp68890 '())))) (declare (not safe)) - (cons __tmp68635 __tmp68627)))) + (cons __tmp68897 __tmp68889)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68638 - __tmp68626))) - _hd6742467462_ - _hd6742167452_) - (_g6741367431_ _g6741467435_)))) - (_g6741367431_ _g6741467435_)))) - (_g6741367431_ _g6741467435_)))) - (_g6741367431_ _g6741467435_))))) - (_g6741267487_ _$stx67409_)))) + (cons __tmp68900 + __tmp68888))) + _hd6768667724_ + _hd6768367714_) + (_g6767567693_ _g6767667697_)))) + (_g6767567693_ _g6767667697_)))) + (_g6767567693_ _g6767667697_)))) + (_g6767567693_ _g6767667697_))))) + (_g6767467749_ _$stx67671_)))) (define |[:0:]#do-create-prototype| - (lambda (_$stx67491_) - (let* ((_g6749567525_ - (lambda (_g6749667521_) + (lambda (_$stx67753_) + (let* ((_g6775767787_ + (lambda (_g6775867783_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6749667521_))) - (_g6749467622_ - (lambda (_g6749667529_) - (if (gx#stx-pair? _g6749667529_) - (let ((_e6750467532_ (gx#syntax-e _g6749667529_))) - (let ((_hd6750367536_ + _g6775867783_))) + (_g6775667884_ + (lambda (_g6775867791_) + (if (gx#stx-pair? _g6775867791_) + (let ((_e6776667794_ (gx#syntax-e _g6775867791_))) + (let ((_hd6776567798_ (let () (declare (not safe)) - (##car _e6750467532_))) - (_tl6750267539_ + (##car _e6776667794_))) + (_tl6776467801_ (let () (declare (not safe)) - (##cdr _e6750467532_)))) - (if (gx#stx-pair? _tl6750267539_) - (let ((_e6750767542_ - (gx#syntax-e _tl6750267539_))) - (let ((_hd6750667546_ + (##cdr _e6776667794_)))) + (if (gx#stx-pair? _tl6776467801_) + (let ((_e6776967804_ + (gx#syntax-e _tl6776467801_))) + (let ((_hd6776867808_ (let () (declare (not safe)) - (##car _e6750767542_))) - (_tl6750567549_ + (##car _e6776967804_))) + (_tl6776767811_ (let () (declare (not safe)) - (##cdr _e6750767542_)))) - (if (gx#stx-pair? _tl6750567549_) - (let ((_e6751067552_ - (gx#syntax-e _tl6750567549_))) - (let ((_hd6750967556_ + (##cdr _e6776967804_)))) + (if (gx#stx-pair? _tl6776767811_) + (let ((_e6777267814_ + (gx#syntax-e _tl6776767811_))) + (let ((_hd6777167818_ (let () (declare (not safe)) - (##car _e6751067552_))) - (_tl6750867559_ + (##car _e6777267814_))) + (_tl6777067821_ (let () (declare (not safe)) - (##cdr _e6751067552_)))) - (if (gx#stx-pair? _tl6750867559_) - (let ((_e6751367562_ + (##cdr _e6777267814_)))) + (if (gx#stx-pair? _tl6777067821_) + (let ((_e6777567824_ (gx#syntax-e - _tl6750867559_))) - (let ((_hd6751267566_ + _tl6777067821_))) + (let ((_hd6777467828_ (let () (declare (not safe)) - (##car _e6751367562_))) - (_tl6751167569_ + (##car _e6777567824_))) + (_tl6777367831_ (let () (declare (not safe)) - (##cdr _e6751367562_)))) + (##cdr _e6777567824_)))) (if (gx#stx-pair? - _tl6751167569_) - (let ((_e6751667572_ + _tl6777367831_) + (let ((_e6777867834_ (gx#syntax-e - _tl6751167569_))) - (let ((_hd6751567576_ + _tl6777367831_))) + (let ((_hd6777767838_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6751667572_))) - (_tl6751467579_ - (let () (declare (not safe)) (##cdr _e6751667572_)))) - (if (gx#stx-pair? _tl6751467579_) - (let ((_e6751967582_ (gx#syntax-e _tl6751467579_))) - (let ((_hd6751867586_ + (##car _e6777867834_))) + (_tl6777667841_ + (let () (declare (not safe)) (##cdr _e6777867834_)))) + (if (gx#stx-pair? _tl6777667841_) + (let ((_e6778167844_ (gx#syntax-e _tl6777667841_))) + (let ((_hd6778067848_ (let () (declare (not safe)) - (##car _e6751967582_))) - (_tl6751767589_ + (##car _e6778167844_))) + (_tl6777967851_ (let () (declare (not safe)) - (##cdr _e6751967582_)))) - (if (gx#stx-null? _tl6751767589_) - ((lambda (_L67592_ - _L67594_ - _L67595_ - _L67596_ - _L67597_) - (let ((__tmp68843 (gx#datum->syntax '#f 'let)) - (__tmp68639 - (let ((__tmp68837 - (let ((__tmp68842 + (##cdr _e6778167844_)))) + (if (gx#stx-null? _tl6777967851_) + ((lambda (_L67854_ + _L67856_ + _L67857_ + _L67858_ + _L67859_) + (let ((__tmp69105 (gx#datum->syntax '#f 'let)) + (__tmp68901 + (let ((__tmp69099 + (let ((__tmp69104 (gx#datum->syntax '#f 'method-table)) - (__tmp68838 - (let ((__tmp68839 - (let ((__tmp68841 + (__tmp69100 + (let ((__tmp69101 + (let ((__tmp69103 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'specialize-class)) - (__tmp68840 - (let () (declare (not safe)) (cons _L67595_ '())))) + (__tmp69102 + (let () (declare (not safe)) (cons _L67857_ '())))) (declare (not safe)) - (cons __tmp68841 __tmp68840)))) + (cons __tmp69103 __tmp69102)))) (declare (not safe)) - (cons __tmp68839 '())))) + (cons __tmp69101 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68842 __tmp68838))) - (__tmp68640 - (let ((__tmp68641 - (let ((__tmp68836 + (cons __tmp69104 __tmp69100))) + (__tmp68902 + (let ((__tmp68903 + (let ((__tmp69098 (gx#datum->syntax '#f 'let)) - (__tmp68642 - (let ((__tmp68835 + (__tmp68904 + (let ((__tmp69097 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'loop)) - (__tmp68643 - (let ((__tmp68818 - (let ((__tmp68829 - (let ((__tmp68834 + (__tmp68905 + (let ((__tmp69080 + (let ((__tmp69091 + (let ((__tmp69096 (gx#datum->syntax '#f 'rest)) - (__tmp68830 - (let ((__tmp68831 - (let ((__tmp68833 + (__tmp69092 + (let ((__tmp69093 + (let ((__tmp69095 (gx#datum->syntax '#f '&interface-descriptor-methods)) - (__tmp68832 + (__tmp69094 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L67597_ '())))) + (cons _L67859_ '())))) (declare (not safe)) - (cons __tmp68833 __tmp68832)))) + (cons __tmp69095 __tmp69094)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68831 '())))) + (cons __tmp69093 '())))) (declare (not safe)) - (cons __tmp68834 __tmp68830))) - (__tmp68819 - (let ((__tmp68826 - (let ((__tmp68828 + (cons __tmp69096 __tmp69092))) + (__tmp69081 + (let ((__tmp69088 + (let ((__tmp69090 (gx#datum->syntax '#f 'count)) - (__tmp68827 + (__tmp69089 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp68828 - __tmp68827))) - (__tmp68820 - (let ((__tmp68821 - (let ((__tmp68825 + (cons __tmp69090 + __tmp69089))) + (__tmp69082 + (let ((__tmp69083 + (let ((__tmp69087 (gx#datum->syntax '#f 'methods)) - (__tmp68822 - (let ((__tmp68823 + (__tmp69084 + (let ((__tmp69085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68824 (gx#datum->syntax '#f '@list))) + (let ((__tmp69086 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp68824 '())))) + (cons __tmp69086 '())))) (declare (not safe)) - (cons __tmp68823 '())))) + (cons __tmp69085 '())))) (declare (not safe)) - (cons __tmp68825 __tmp68822)))) + (cons __tmp69087 __tmp69084)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68821 '())))) + (cons __tmp69083 '())))) (declare (not safe)) - (cons __tmp68826 __tmp68820)))) + (cons __tmp69088 __tmp69082)))) (declare (not safe)) - (cons __tmp68829 __tmp68819))) - (__tmp68644 - (let ((__tmp68645 - (let ((__tmp68817 + (cons __tmp69091 __tmp69081))) + (__tmp68906 + (let ((__tmp68907 + (let ((__tmp69079 (gx#datum->syntax '#f 'match)) - (__tmp68646 - (let ((__tmp68816 + (__tmp68908 + (let ((__tmp69078 (gx#datum->syntax '#f 'rest)) - (__tmp68647 - (let ((__tmp68764 - (let ((__tmp68811 + (__tmp68909 + (let ((__tmp69026 + (let ((__tmp69073 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68815 (gx#datum->syntax '#f '@list)) - (__tmp68812 - (let ((__tmp68814 + (let ((__tmp69077 (gx#datum->syntax '#f '@list)) + (__tmp69074 + (let ((__tmp69076 (gx#datum->syntax '#f 'method-name)) - (__tmp68813 + (__tmp69075 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp68814 __tmp68813)))) + (cons __tmp69076 __tmp69075)))) (declare (not safe)) - (cons __tmp68815 __tmp68812))) - (__tmp68765 - (let ((__tmp68766 - (let ((__tmp68810 + (cons __tmp69077 __tmp69074))) + (__tmp69027 + (let ((__tmp69028 + (let ((__tmp69072 (gx#datum->syntax '#f 'cond)) - (__tmp68767 - (let ((__tmp68776 - (let ((__tmp68803 - (let ((__tmp68809 + (__tmp69029 + (let ((__tmp69038 + (let ((__tmp69065 + (let ((__tmp69071 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'symbolic-table-ref)) - (__tmp68804 - (let ((__tmp68808 + (__tmp69066 + (let ((__tmp69070 (gx#datum->syntax '#f 'method-table)) - (__tmp68805 - (let ((__tmp68807 + (__tmp69067 + (let ((__tmp69069 (gx#datum->syntax '#f 'method-name)) - (__tmp68806 + (__tmp69068 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp68807 __tmp68806)))) + (cons __tmp69069 __tmp69068)))) (declare (not safe)) - (cons __tmp68808 __tmp68805)))) + (cons __tmp69070 __tmp69067)))) (declare (not safe)) - (cons __tmp68809 __tmp68804))) - (__tmp68777 - (let ((__tmp68802 (gx#datum->syntax '#f '=>)) - (__tmp68778 - (let ((__tmp68779 - (let ((__tmp68801 + (cons __tmp69071 __tmp69066))) + (__tmp69039 + (let ((__tmp69064 (gx#datum->syntax '#f '=>)) + (__tmp69040 + (let ((__tmp69041 + (let ((__tmp69063 (gx#datum->syntax '#f 'lambda)) - (__tmp68780 - (let ((__tmp68799 - (let ((__tmp68800 + (__tmp69042 + (let ((__tmp69061 + (let ((__tmp69062 (gx#datum->syntax '#f 'method))) (declare (not safe)) - (cons __tmp68800 '()))) - (__tmp68781 - (let ((__tmp68782 - (let ((__tmp68798 + (cons __tmp69062 '()))) + (__tmp69043 + (let ((__tmp69044 + (let ((__tmp69060 (gx#datum->syntax '#f 'loop)) - (__tmp68783 - (let ((__tmp68797 + (__tmp69045 + (let ((__tmp69059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp68784 - (let ((__tmp68792 - (let ((__tmp68796 + (__tmp69046 + (let ((__tmp69054 + (let ((__tmp69058 (gx#datum->syntax '#f '##fx+)) - (__tmp68793 - (let ((__tmp68795 + (__tmp69055 + (let ((__tmp69057 (gx#datum->syntax '#f 'count)) - (__tmp68794 + (__tmp69056 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp68795 __tmp68794)))) + (cons __tmp69057 __tmp69056)))) (declare (not safe)) - (cons __tmp68796 __tmp68793))) - (__tmp68785 - (let ((__tmp68786 - (let ((__tmp68791 + (cons __tmp69058 __tmp69055))) + (__tmp69047 + (let ((__tmp69048 + (let ((__tmp69053 (gx#datum->syntax '#f 'cons)) - (__tmp68787 - (let ((__tmp68790 + (__tmp69049 + (let ((__tmp69052 (gx#datum->syntax '#f 'method)) - (__tmp68788 - (let ((__tmp68789 + (__tmp69050 + (let ((__tmp69051 (gx#datum->syntax '#f 'methods))) (declare (not safe)) - (cons __tmp68789 + (cons __tmp69051 '())))) (declare (not safe)) - (cons __tmp68790 - __tmp68788)))) + (cons __tmp69052 + __tmp69050)))) (declare (not safe)) - (cons __tmp68791 __tmp68787)))) + (cons __tmp69053 __tmp69049)))) (declare (not safe)) - (cons __tmp68786 '())))) + (cons __tmp69048 '())))) (declare (not safe)) - (cons __tmp68792 __tmp68785)))) + (cons __tmp69054 __tmp69047)))) (declare (not safe)) - (cons __tmp68797 __tmp68784)))) + (cons __tmp69059 __tmp69046)))) (declare (not safe)) - (cons __tmp68798 __tmp68783)))) + (cons __tmp69060 __tmp69045)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68782 '())))) + (cons __tmp69044 '())))) (declare (not safe)) - (cons __tmp68799 __tmp68781)))) + (cons __tmp69061 __tmp69043)))) (declare (not safe)) - (cons __tmp68801 __tmp68780)))) + (cons __tmp69063 __tmp69042)))) (declare (not safe)) - (cons __tmp68779 '())))) + (cons __tmp69041 '())))) (declare (not safe)) - (cons __tmp68802 __tmp68778)))) + (cons __tmp69064 __tmp69040)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68803 - __tmp68777))) - (__tmp68768 - (let ((__tmp68769 - (let ((__tmp68775 + (cons __tmp69065 + __tmp69039))) + (__tmp69030 + (let ((__tmp69031 + (let ((__tmp69037 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp68770 - (let ((__tmp68771 - (let ((__tmp68772 - (let ((__tmp68773 - (let ((__tmp68774 + (__tmp69032 + (let ((__tmp69033 + (let ((__tmp69034 + (let ((__tmp69035 + (let ((__tmp69036 (gx#datum->syntax '#f 'method-name))) (declare (not safe)) - (cons __tmp68774 '())))) + (cons __tmp69036 '())))) (declare (not safe)) - (cons _L67596_ __tmp68773)))) + (cons _L67858_ __tmp69035)))) (declare (not safe)) - (cons _L67592_ __tmp68772)))) + (cons _L67854_ __tmp69034)))) (declare (not safe)) - (cons __tmp68771 '())))) + (cons __tmp69033 '())))) (declare (not safe)) - (cons __tmp68775 __tmp68770)))) + (cons __tmp69037 __tmp69032)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68769 '())))) + (cons __tmp69031 '())))) (declare (not safe)) - (cons __tmp68776 __tmp68768)))) + (cons __tmp69038 __tmp69030)))) (declare (not safe)) - (cons __tmp68810 __tmp68767)))) + (cons __tmp69072 __tmp69029)))) (declare (not safe)) - (cons __tmp68766 '())))) + (cons __tmp69028 '())))) (declare (not safe)) - (cons __tmp68811 __tmp68765))) - (__tmp68648 - (let ((__tmp68649 - (let ((__tmp68763 (gx#datum->syntax '#f 'else)) - (__tmp68650 - (let ((__tmp68651 - (let ((__tmp68762 + (cons __tmp69073 __tmp69027))) + (__tmp68910 + (let ((__tmp68911 + (let ((__tmp69025 (gx#datum->syntax '#f 'else)) + (__tmp68912 + (let ((__tmp68913 + (let ((__tmp69024 (gx#datum->syntax '#f 'let)) - (__tmp68652 - (let ((__tmp68750 - (let ((__tmp68761 + (__tmp68914 + (let ((__tmp69012 + (let ((__tmp69023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'prototype)) - (__tmp68751 - (let ((__tmp68752 - (let ((__tmp68760 + (__tmp69013 + (let ((__tmp69014 + (let ((__tmp69022 (gx#datum->syntax '#f 'make-object)) - (__tmp68753 - (let ((__tmp68754 - (let ((__tmp68755 - (let ((__tmp68759 + (__tmp69015 + (let ((__tmp69016 + (let ((__tmp69017 + (let ((__tmp69021 (gx#datum->syntax '#f '##fx+)) - (__tmp68756 - (let ((__tmp68758 + (__tmp69018 + (let ((__tmp69020 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'count)) - (__tmp68757 + (__tmp69019 (let () (declare (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp68758 __tmp68757)))) + (cons __tmp69020 __tmp69019)))) (declare (not safe)) - (cons __tmp68759 __tmp68756)))) + (cons __tmp69021 __tmp69018)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68755 '())))) + (cons __tmp69017 '())))) (declare (not safe)) - (cons _L67596_ __tmp68754)))) + (cons _L67858_ __tmp69016)))) (declare (not safe)) - (cons __tmp68760 __tmp68753)))) + (cons __tmp69022 __tmp69015)))) (declare (not safe)) - (cons __tmp68752 '())))) + (cons __tmp69014 '())))) (declare (not safe)) - (cons __tmp68761 __tmp68751))) - (__tmp68653 - (let ((__tmp68654 - (let ((__tmp68749 (gx#datum->syntax '#f 'let)) - (__tmp68655 - (let ((__tmp68748 (gx#datum->syntax '#f 'loop)) - (__tmp68656 - (let ((__tmp68734 - (let ((__tmp68744 - (let ((__tmp68747 + (cons __tmp69023 __tmp69013))) + (__tmp68915 + (let ((__tmp68916 + (let ((__tmp69011 (gx#datum->syntax '#f 'let)) + (__tmp68917 + (let ((__tmp69010 (gx#datum->syntax '#f 'loop)) + (__tmp68918 + (let ((__tmp68996 + (let ((__tmp69006 + (let ((__tmp69009 (gx#datum->syntax '#f 'rest)) - (__tmp68745 - (let ((__tmp68746 + (__tmp69007 + (let ((__tmp69008 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'methods))) (declare (not safe)) - (cons __tmp68746 '())))) + (cons __tmp69008 '())))) (declare (not safe)) - (cons __tmp68747 __tmp68745))) + (cons __tmp69009 __tmp69007))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp68735 - (let ((__tmp68736 - (let ((__tmp68743 + (__tmp68997 + (let ((__tmp68998 + (let ((__tmp69005 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'off)) - (__tmp68737 - (let ((__tmp68738 - (let ((__tmp68742 + (__tmp68999 + (let ((__tmp69000 + (let ((__tmp69004 (gx#datum->syntax '#f '##fx+)) - (__tmp68739 - (let ((__tmp68741 + (__tmp69001 + (let ((__tmp69003 (gx#datum->syntax '#f 'count)) - (__tmp68740 + (__tmp69002 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp68741 __tmp68740)))) + (cons __tmp69003 __tmp69002)))) (declare (not safe)) - (cons __tmp68742 __tmp68739)))) + (cons __tmp69004 __tmp69001)))) (declare (not safe)) - (cons __tmp68738 '())))) + (cons __tmp69000 '())))) (declare (not safe)) - (cons __tmp68743 __tmp68737)))) + (cons __tmp69005 __tmp68999)))) (declare (not safe)) - (cons __tmp68736 '())))) + (cons __tmp68998 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68744 __tmp68735))) - (__tmp68657 - (let ((__tmp68658 - (let ((__tmp68733 + (cons __tmp69006 __tmp68997))) + (__tmp68919 + (let ((__tmp68920 + (let ((__tmp68995 (gx#datum->syntax '#f 'match)) - (__tmp68659 - (let ((__tmp68732 + (__tmp68921 + (let ((__tmp68994 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp68660 - (let ((__tmp68704 - (let ((__tmp68727 - (let ((__tmp68731 + (__tmp68922 + (let ((__tmp68966 + (let ((__tmp68989 + (let ((__tmp68993 (gx#datum->syntax '#f '@list)) - (__tmp68728 - (let ((__tmp68730 + (__tmp68990 + (let ((__tmp68992 (gx#datum->syntax '#f 'method)) - (__tmp68729 + (__tmp68991 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp68730 - __tmp68729)))) + (cons __tmp68992 + __tmp68991)))) (declare (not safe)) - (cons __tmp68731 __tmp68728))) - (__tmp68705 - (let ((__tmp68717 - (let ((__tmp68726 + (cons __tmp68993 __tmp68990))) + (__tmp68967 + (let ((__tmp68979 + (let ((__tmp68988 (gx#datum->syntax '#f '##unchecked-structure-set!)) - (__tmp68718 - (let ((__tmp68725 + (__tmp68980 + (let ((__tmp68987 (gx#datum->syntax '#f 'prototype)) - (__tmp68719 - (let ((__tmp68724 + (__tmp68981 + (let ((__tmp68986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'method)) - (__tmp68720 - (let ((__tmp68723 (gx#datum->syntax '#f 'off)) - (__tmp68721 - (let ((__tmp68722 + (__tmp68982 + (let ((__tmp68985 (gx#datum->syntax '#f 'off)) + (__tmp68983 + (let ((__tmp68984 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L67596_ __tmp68722)))) + (cons _L67858_ __tmp68984)))) (declare (not safe)) - (cons __tmp68723 __tmp68721)))) + (cons __tmp68985 __tmp68983)))) (declare (not safe)) - (cons __tmp68724 __tmp68720)))) + (cons __tmp68986 __tmp68982)))) (declare (not safe)) - (cons __tmp68725 __tmp68719)))) + (cons __tmp68987 __tmp68981)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68726 - __tmp68718))) - (__tmp68706 - (let ((__tmp68707 - (let ((__tmp68716 + (cons __tmp68988 + __tmp68980))) + (__tmp68968 + (let ((__tmp68969 + (let ((__tmp68978 (gx#datum->syntax '#f 'loop)) - (__tmp68708 - (let ((__tmp68715 + (__tmp68970 + (let ((__tmp68977 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp68709 - (let ((__tmp68710 - (let ((__tmp68714 + (__tmp68971 + (let ((__tmp68972 + (let ((__tmp68976 (gx#datum->syntax '#f '##fx-)) - (__tmp68711 - (let ((__tmp68713 + (__tmp68973 + (let ((__tmp68975 (gx#datum->syntax '#f 'off)) - (__tmp68712 + (__tmp68974 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp68713 __tmp68712)))) + (cons __tmp68975 __tmp68974)))) (declare (not safe)) - (cons __tmp68714 __tmp68711)))) + (cons __tmp68976 __tmp68973)))) (declare (not safe)) - (cons __tmp68710 '())))) + (cons __tmp68972 '())))) (declare (not safe)) - (cons __tmp68715 __tmp68709)))) + (cons __tmp68977 __tmp68971)))) (declare (not safe)) - (cons __tmp68716 __tmp68708)))) + (cons __tmp68978 __tmp68970)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68707 '())))) + (cons __tmp68969 '())))) (declare (not safe)) - (cons __tmp68717 __tmp68706)))) + (cons __tmp68979 __tmp68968)))) (declare (not safe)) - (cons __tmp68727 __tmp68705))) - (__tmp68661 - (let ((__tmp68662 - (let ((__tmp68703 + (cons __tmp68989 __tmp68967))) + (__tmp68923 + (let ((__tmp68924 + (let ((__tmp68965 (gx#datum->syntax '#f 'else)) - (__tmp68663 - (let ((__tmp68664 - (let ((__tmp68702 + (__tmp68925 + (let ((__tmp68926 + (let ((__tmp68964 (gx#datum->syntax '#f 'let)) - (__tmp68665 - (let ((__tmp68689 + (__tmp68927 + (let ((__tmp68951 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68701 + (let ((__tmp68963 (gx#datum->syntax '#f 'prototype-key)) - (__tmp68690 - (let ((__tmp68691 - (let ((__tmp68700 + (__tmp68952 + (let ((__tmp68953 + (let ((__tmp68962 (gx#datum->syntax '#f 'cons)) - (__tmp68692 - (let ((__tmp68697 - (let ((__tmp68699 + (__tmp68954 + (let ((__tmp68959 + (let ((__tmp68961 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id)) - (__tmp68698 - (let () (declare (not safe)) (cons _L67596_ '())))) + (__tmp68960 + (let () (declare (not safe)) (cons _L67858_ '())))) (declare (not safe)) - (cons __tmp68699 __tmp68698))) - (__tmp68693 - (let ((__tmp68694 - (let ((__tmp68696 (gx#datum->syntax '#f '##type-id)) - (__tmp68695 + (cons __tmp68961 __tmp68960))) + (__tmp68955 + (let ((__tmp68956 + (let ((__tmp68958 (gx#datum->syntax '#f '##type-id)) + (__tmp68957 (let () (declare (not safe)) - (cons _L67595_ '())))) + (cons _L67857_ '())))) (declare (not safe)) - (cons __tmp68696 __tmp68695)))) + (cons __tmp68958 __tmp68957)))) (declare (not safe)) - (cons __tmp68694 '())))) + (cons __tmp68956 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68697 - __tmp68693)))) + (cons __tmp68959 + __tmp68955)))) (declare (not safe)) - (cons __tmp68700 __tmp68692)))) + (cons __tmp68962 __tmp68954)))) (declare (not safe)) - (cons __tmp68691 '())))) + (cons __tmp68953 '())))) (declare (not safe)) - (cons __tmp68701 __tmp68690))) - (__tmp68666 - (let ((__tmp68685 - (let ((__tmp68688 + (cons __tmp68963 __tmp68952))) + (__tmp68928 + (let ((__tmp68947 + (let ((__tmp68950 (gx#datum->syntax '#f '__lock-inline!)) - (__tmp68686 - (let ((__tmp68687 + (__tmp68948 + (let ((__tmp68949 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68687 '())))) + (cons __tmp68949 '())))) (declare (not safe)) - (cons __tmp68688 __tmp68686))) - (__tmp68667 - (let ((__tmp68677 - (let ((__tmp68684 + (cons __tmp68950 __tmp68948))) + (__tmp68929 + (let ((__tmp68939 + (let ((__tmp68946 (gx#datum->syntax '#f 'prototype-table-set!)) - (__tmp68678 - (let ((__tmp68683 + (__tmp68940 + (let ((__tmp68945 (gx#datum->syntax '#f '__interface-prototypes)) - (__tmp68679 - (let ((__tmp68682 + (__tmp68941 + (let ((__tmp68944 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'prototype-key)) - (__tmp68680 - (let ((__tmp68681 (gx#datum->syntax '#f 'prototype))) + (__tmp68942 + (let ((__tmp68943 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp68681 '())))) + (cons __tmp68943 '())))) (declare (not safe)) - (cons __tmp68682 __tmp68680)))) + (cons __tmp68944 __tmp68942)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68683 - __tmp68679)))) + (cons __tmp68945 + __tmp68941)))) (declare (not safe)) - (cons __tmp68684 __tmp68678))) - (__tmp68668 - (let ((__tmp68673 - (let ((__tmp68676 + (cons __tmp68946 __tmp68940))) + (__tmp68930 + (let ((__tmp68935 + (let ((__tmp68938 (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp68674 - (let ((__tmp68675 + (__tmp68936 + (let ((__tmp68937 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68675 '())))) + (cons __tmp68937 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68676 - __tmp68674))) - (__tmp68669 - (let ((__tmp68670 - (let ((__tmp68671 - (let ((__tmp68672 + (cons __tmp68938 + __tmp68936))) + (__tmp68931 + (let ((__tmp68932 + (let ((__tmp68933 + (let ((__tmp68934 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp68672 '())))) + (cons __tmp68934 '())))) (declare (not safe)) - (cons _L67594_ __tmp68671)))) + (cons _L67856_ __tmp68933)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68670 '())))) + (cons __tmp68932 '())))) (declare (not safe)) - (cons __tmp68673 __tmp68669)))) + (cons __tmp68935 __tmp68931)))) (declare (not safe)) - (cons __tmp68677 __tmp68668)))) + (cons __tmp68939 __tmp68930)))) (declare (not safe)) - (cons __tmp68685 __tmp68667)))) + (cons __tmp68947 __tmp68929)))) (declare (not safe)) - (cons __tmp68689 __tmp68666)))) + (cons __tmp68951 __tmp68928)))) (declare (not safe)) - (cons __tmp68702 __tmp68665)))) + (cons __tmp68964 __tmp68927)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68664 '())))) + (cons __tmp68926 '())))) (declare (not safe)) - (cons __tmp68703 __tmp68663)))) + (cons __tmp68965 __tmp68925)))) (declare (not safe)) - (cons __tmp68662 '())))) + (cons __tmp68924 '())))) (declare (not safe)) - (cons __tmp68704 __tmp68661)))) + (cons __tmp68966 __tmp68923)))) (declare (not safe)) - (cons __tmp68732 __tmp68660)))) + (cons __tmp68994 __tmp68922)))) (declare (not safe)) - (cons __tmp68733 __tmp68659)))) + (cons __tmp68995 __tmp68921)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68658 '())))) + (cons __tmp68920 '())))) (declare (not safe)) - (cons __tmp68734 __tmp68657)))) + (cons __tmp68996 __tmp68919)))) (declare (not safe)) - (cons __tmp68748 __tmp68656)))) + (cons __tmp69010 __tmp68918)))) (declare (not safe)) - (cons __tmp68749 __tmp68655)))) + (cons __tmp69011 __tmp68917)))) (declare (not safe)) - (cons __tmp68654 '())))) + (cons __tmp68916 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68750 - __tmp68653)))) + (cons __tmp69012 + __tmp68915)))) (declare (not safe)) - (cons __tmp68762 __tmp68652)))) + (cons __tmp69024 __tmp68914)))) (declare (not safe)) - (cons __tmp68651 '())))) + (cons __tmp68913 '())))) (declare (not safe)) - (cons __tmp68763 __tmp68650)))) + (cons __tmp69025 __tmp68912)))) (declare (not safe)) - (cons __tmp68649 '())))) + (cons __tmp68911 '())))) (declare (not safe)) - (cons __tmp68764 __tmp68648)))) + (cons __tmp69026 __tmp68910)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68816 - __tmp68647)))) + (cons __tmp69078 + __tmp68909)))) (declare (not safe)) - (cons __tmp68817 __tmp68646)))) + (cons __tmp69079 __tmp68908)))) (declare (not safe)) - (cons __tmp68645 '())))) + (cons __tmp68907 '())))) (declare (not safe)) - (cons __tmp68818 __tmp68644)))) + (cons __tmp69080 __tmp68906)))) (declare (not safe)) - (cons __tmp68835 __tmp68643)))) + (cons __tmp69097 __tmp68905)))) (declare (not safe)) - (cons __tmp68836 __tmp68642)))) + (cons __tmp69098 __tmp68904)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68641 '())))) + (cons __tmp68903 '())))) (declare (not safe)) - (cons __tmp68837 __tmp68640)))) + (cons __tmp69099 __tmp68902)))) (declare (not safe)) - (cons __tmp68843 __tmp68639))) - _hd6751867586_ - _hd6751567576_ - _hd6751267566_ - _hd6750967556_ - _hd6750667546_) - (_g6749567525_ _g6749667529_)))) - (_g6749567525_ _g6749667529_)))) - (_g6749567525_ _g6749667529_)))) + (cons __tmp69105 __tmp68901))) + _hd6778067848_ + _hd6777767838_ + _hd6777467828_ + _hd6777167818_ + _hd6776867808_) + (_g6775767787_ _g6775867791_)))) + (_g6775767787_ _g6775867791_)))) + (_g6775767787_ _g6775867791_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6749567525_ _g6749667529_)))) - (_g6749567525_ _g6749667529_)))) - (_g6749567525_ _g6749667529_)))) - (_g6749567525_ _g6749667529_))))) - (_g6749467622_ _$stx67491_)))) + (_g6775767787_ _g6775867791_)))) + (_g6775767787_ _g6775867791_)))) + (_g6775767787_ _g6775867791_)))) + (_g6775767787_ _g6775867791_))))) + (_g6775667884_ _$stx67753_)))) (define |[:0:]#defcast| - (lambda (_$stx67626_) - (let* ((_g6763067656_ - (lambda (_g6763167652_) + (lambda (_$stx67888_) + (let* ((_g6789267918_ + (lambda (_g6789367914_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6763167652_))) - (_g6762967739_ - (lambda (_g6763167660_) - (if (gx#stx-pair? _g6763167660_) - (let ((_e6763867663_ (gx#syntax-e _g6763167660_))) - (let ((_hd6763767667_ + _g6789367914_))) + (_g6789168001_ + (lambda (_g6789367922_) + (if (gx#stx-pair? _g6789367922_) + (let ((_e6790067925_ (gx#syntax-e _g6789367922_))) + (let ((_hd6789967929_ (let () (declare (not safe)) - (##car _e6763867663_))) - (_tl6763667670_ + (##car _e6790067925_))) + (_tl6789867932_ (let () (declare (not safe)) - (##cdr _e6763867663_)))) - (if (gx#stx-pair? _tl6763667670_) - (let ((_e6764167673_ - (gx#syntax-e _tl6763667670_))) - (let ((_hd6764067677_ + (##cdr _e6790067925_)))) + (if (gx#stx-pair? _tl6789867932_) + (let ((_e6790367935_ + (gx#syntax-e _tl6789867932_))) + (let ((_hd6790267939_ (let () (declare (not safe)) - (##car _e6764167673_))) - (_tl6763967680_ + (##car _e6790367935_))) + (_tl6790167942_ (let () (declare (not safe)) - (##cdr _e6764167673_)))) - (if (gx#stx-pair? _tl6763967680_) - (let ((_e6764467683_ - (gx#syntax-e _tl6763967680_))) - (let ((_hd6764367687_ + (##cdr _e6790367935_)))) + (if (gx#stx-pair? _tl6790167942_) + (let ((_e6790667945_ + (gx#syntax-e _tl6790167942_))) + (let ((_hd6790567949_ (let () (declare (not safe)) - (##car _e6764467683_))) - (_tl6764267690_ + (##car _e6790667945_))) + (_tl6790467952_ (let () (declare (not safe)) - (##cdr _e6764467683_)))) - (if (gx#stx-pair? _tl6764267690_) - (let ((_e6764767693_ + (##cdr _e6790667945_)))) + (if (gx#stx-pair? _tl6790467952_) + (let ((_e6790967955_ (gx#syntax-e - _tl6764267690_))) - (let ((_hd6764667697_ + _tl6790467952_))) + (let ((_hd6790867959_ (let () (declare (not safe)) - (##car _e6764767693_))) - (_tl6764567700_ + (##car _e6790967955_))) + (_tl6790767962_ (let () (declare (not safe)) - (##cdr _e6764767693_)))) + (##cdr _e6790967955_)))) (if (gx#stx-pair? - _tl6764567700_) - (let ((_e6765067703_ + _tl6790767962_) + (let ((_e6791267965_ (gx#syntax-e - _tl6764567700_))) - (let ((_hd6764967707_ + _tl6790767962_))) + (let ((_hd6791167969_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6765067703_))) - (_tl6764867710_ - (let () (declare (not safe)) (##cdr _e6765067703_)))) - (if (gx#stx-null? _tl6764867710_) - ((lambda (_L67713_ _L67715_ _L67716_ _L67717_) - (let ((__tmp69015 (gx#datum->syntax '#f 'def)) - (__tmp68844 - (let ((__tmp69010 - (let ((__tmp69011 - (let ((__tmp69014 + (##car _e6791267965_))) + (_tl6791067972_ + (let () (declare (not safe)) (##cdr _e6791267965_)))) + (if (gx#stx-null? _tl6791067972_) + ((lambda (_L67975_ _L67977_ _L67978_ _L67979_) + (let ((__tmp69277 (gx#datum->syntax '#f 'def)) + (__tmp69106 + (let ((__tmp69272 + (let ((__tmp69273 + (let ((__tmp69276 (gx#datum->syntax '#f 'descriptor)) - (__tmp69012 - (let ((__tmp69013 + (__tmp69274 + (let ((__tmp69275 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp69013 '())))) + (cons __tmp69275 '())))) (declare (not safe)) - (cons __tmp69014 __tmp69012)))) + (cons __tmp69276 __tmp69274)))) (declare (not safe)) - (cons _L67717_ __tmp69011))) - (__tmp68845 - (let ((__tmp68846 - (let ((__tmp69009 + (cons _L67979_ __tmp69273))) + (__tmp69107 + (let ((__tmp69108 + (let ((__tmp69271 (gx#datum->syntax '#f 'if)) - (__tmp68847 - (let ((__tmp69005 - (let ((__tmp69008 + (__tmp69109 + (let ((__tmp69267 + (let ((__tmp69270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##structure?)) - (__tmp69006 - (let ((__tmp69007 (gx#datum->syntax '#f 'obj))) + (__tmp69268 + (let ((__tmp69269 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp69007 '())))) + (cons __tmp69269 '())))) (declare (not safe)) - (cons __tmp69008 __tmp69006))) - (__tmp68848 - (let ((__tmp68853 - (let ((__tmp69004 (gx#datum->syntax '#f 'let)) - (__tmp68854 - (let ((__tmp68855 - (let ((__tmp68997 - (let ((__tmp69003 + (cons __tmp69270 __tmp69268))) + (__tmp69110 + (let ((__tmp69115 + (let ((__tmp69266 (gx#datum->syntax '#f 'let)) + (__tmp69116 + (let ((__tmp69117 + (let ((__tmp69259 + (let ((__tmp69265 (gx#datum->syntax '#f 'declare)) - (__tmp68998 - (let ((__tmp68999 - (let ((__tmp69002 + (__tmp69260 + (let ((__tmp69261 + (let ((__tmp69264 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'not)) - (__tmp69000 - (let ((__tmp69001 + (__tmp69262 + (let ((__tmp69263 (gx#datum->syntax '#f 'interrupts-enabled))) (declare (not safe)) - (cons __tmp69001 '())))) + (cons __tmp69263 '())))) (declare (not safe)) - (cons __tmp69002 __tmp69000)))) + (cons __tmp69264 __tmp69262)))) (declare (not safe)) - (cons __tmp68999 '())))) + (cons __tmp69261 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp69003 - __tmp68998))) - (__tmp68856 - (let ((__tmp68857 - (let ((__tmp68996 + (cons __tmp69265 + __tmp69260))) + (__tmp69118 + (let ((__tmp69119 + (let ((__tmp69258 (gx#datum->syntax '#f 'let*)) - (__tmp68858 - (let ((__tmp68964 + (__tmp69120 + (let ((__tmp69226 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68989 - (let ((__tmp68995 + (let ((__tmp69251 + (let ((__tmp69257 (gx#datum->syntax '#f 'klass)) - (__tmp68990 - (let ((__tmp68991 - (let ((__tmp68994 + (__tmp69252 + (let ((__tmp69253 + (let ((__tmp69256 (gx#datum->syntax '#f '&interface-descriptor-type)) - (__tmp68992 - (let ((__tmp68993 + (__tmp69254 + (let ((__tmp69255 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'descriptor))) (declare (not safe)) - (cons __tmp68993 '())))) + (cons __tmp69255 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68994 - __tmp68992)))) + (cons __tmp69256 + __tmp69254)))) (declare (not safe)) - (cons __tmp68991 '())))) + (cons __tmp69253 '())))) (declare (not safe)) - (cons __tmp68995 __tmp68990))) - (__tmp68965 - (let ((__tmp68982 - (let ((__tmp68988 + (cons __tmp69257 __tmp69252))) + (__tmp69227 + (let ((__tmp69244 + (let ((__tmp69250 (gx#datum->syntax '#f 'klass-id)) - (__tmp68983 - (let ((__tmp68984 - (let ((__tmp68987 + (__tmp69245 + (let ((__tmp69246 + (let ((__tmp69249 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id)) - (__tmp68985 - (let ((__tmp68986 (gx#datum->syntax '#f 'klass))) + (__tmp69247 + (let ((__tmp69248 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp68986 '())))) + (cons __tmp69248 '())))) (declare (not safe)) - (cons __tmp68987 __tmp68985)))) + (cons __tmp69249 __tmp69247)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68984 '())))) + (cons __tmp69246 '())))) (declare (not safe)) - (cons __tmp68988 __tmp68983))) - (__tmp68966 - (let ((__tmp68975 - (let ((__tmp68981 + (cons __tmp69250 __tmp69245))) + (__tmp69228 + (let ((__tmp69237 + (let ((__tmp69243 (gx#datum->syntax '#f 'obj-klass)) - (__tmp68976 - (let ((__tmp68977 - (let ((__tmp68980 + (__tmp69238 + (let ((__tmp69239 + (let ((__tmp69242 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##structure-type)) - (__tmp68978 - (let ((__tmp68979 (gx#datum->syntax '#f 'obj))) + (__tmp69240 + (let ((__tmp69241 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68979 '())))) + (cons __tmp69241 '())))) (declare (not safe)) - (cons __tmp68980 __tmp68978)))) + (cons __tmp69242 __tmp69240)))) (declare (not safe)) - (cons __tmp68977 '())))) + (cons __tmp69239 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68981 - __tmp68976))) - (__tmp68967 - (let ((__tmp68968 - (let ((__tmp68974 + (cons __tmp69243 + __tmp69238))) + (__tmp69229 + (let ((__tmp69230 + (let ((__tmp69236 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj-klass-id)) - (__tmp68969 - (let ((__tmp68970 - (let ((__tmp68973 + (__tmp69231 + (let ((__tmp69232 + (let ((__tmp69235 (gx#datum->syntax '#f '##type-id)) - (__tmp68971 - (let ((__tmp68972 + (__tmp69233 + (let ((__tmp69234 (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp68972 '())))) + (cons __tmp69234 '())))) (declare (not safe)) - (cons __tmp68973 __tmp68971)))) + (cons __tmp69235 __tmp69233)))) (declare (not safe)) - (cons __tmp68970 '())))) + (cons __tmp69232 '())))) (declare (not safe)) - (cons __tmp68974 __tmp68969)))) + (cons __tmp69236 __tmp69231)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68968 '())))) + (cons __tmp69230 '())))) (declare (not safe)) - (cons __tmp68975 __tmp68967)))) + (cons __tmp69237 __tmp69229)))) (declare (not safe)) - (cons __tmp68982 __tmp68966)))) + (cons __tmp69244 __tmp69228)))) (declare (not safe)) - (cons __tmp68989 __tmp68965))) - (__tmp68859 - (let ((__tmp68860 - (let ((__tmp68963 + (cons __tmp69251 __tmp69227))) + (__tmp69121 + (let ((__tmp69122 + (let ((__tmp69225 (gx#datum->syntax '#f 'cond)) - (__tmp68861 - (let ((__tmp68954 - (let ((__tmp68957 - (let ((__tmp68962 + (__tmp69123 + (let ((__tmp69216 + (let ((__tmp69219 + (let ((__tmp69224 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##eq?)) - (__tmp68958 - (let ((__tmp68961 (gx#datum->syntax '#f 'klass-id)) - (__tmp68959 - (let ((__tmp68960 + (__tmp69220 + (let ((__tmp69223 (gx#datum->syntax '#f 'klass-id)) + (__tmp69221 + (let ((__tmp69222 (gx#datum->syntax '#f 'obj-klass-id))) (declare (not safe)) - (cons __tmp68960 '())))) + (cons __tmp69222 '())))) (declare (not safe)) - (cons __tmp68961 __tmp68959)))) + (cons __tmp69223 __tmp69221)))) (declare (not safe)) - (cons __tmp68962 __tmp68958))) - (__tmp68955 - (let ((__tmp68956 (gx#datum->syntax '#f 'obj))) + (cons __tmp69224 __tmp69220))) + (__tmp69217 + (let ((__tmp69218 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68956 '())))) + (cons __tmp69218 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68957 - __tmp68955))) - (__tmp68862 - (let ((__tmp68940 - (let ((__tmp68950 - (let ((__tmp68953 + (cons __tmp69219 + __tmp69217))) + (__tmp69124 + (let ((__tmp69202 + (let ((__tmp69212 + (let ((__tmp69215 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'interface-subclass?)) - (__tmp68951 - (let ((__tmp68952 + (__tmp69213 + (let ((__tmp69214 (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp68952 '())))) + (cons __tmp69214 '())))) (declare (not safe)) - (cons __tmp68953 __tmp68951))) - (__tmp68941 - (let ((__tmp68942 - (let ((__tmp68943 - (let ((__tmp68949 + (cons __tmp69215 __tmp69213))) + (__tmp69203 + (let ((__tmp69204 + (let ((__tmp69205 + (let ((__tmp69211 (gx#datum->syntax '#f 'descriptor)) - (__tmp68944 - (let ((__tmp68945 - (let ((__tmp68948 + (__tmp69206 + (let ((__tmp69207 + (let ((__tmp69210 (gx#datum->syntax '#f '&interface-instance-object)) - (__tmp68946 - (let ((__tmp68947 + (__tmp69208 + (let ((__tmp69209 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68947 '())))) + (cons __tmp69209 '())))) (declare (not safe)) - (cons __tmp68948 __tmp68946)))) + (cons __tmp69210 __tmp69208)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68945 '())))) + (cons __tmp69207 '())))) (declare (not safe)) - (cons __tmp68949 __tmp68944)))) + (cons __tmp69211 __tmp69206)))) (declare (not safe)) - (cons _L67717_ __tmp68943)))) + (cons _L67979_ __tmp69205)))) (declare (not safe)) - (cons __tmp68942 '())))) + (cons __tmp69204 '())))) (declare (not safe)) - (cons __tmp68950 __tmp68941))) - (__tmp68863 - (let ((__tmp68864 - (let ((__tmp68939 (gx#datum->syntax '#f 'else)) - (__tmp68865 - (let ((__tmp68935 - (let ((__tmp68938 + (cons __tmp69212 __tmp69203))) + (__tmp69125 + (let ((__tmp69126 + (let ((__tmp69201 (gx#datum->syntax '#f 'else)) + (__tmp69127 + (let ((__tmp69197 + (let ((__tmp69200 (gx#datum->syntax '#f '__lock-inline!)) - (__tmp68936 - (let ((__tmp68937 + (__tmp69198 + (let ((__tmp69199 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68937 '())))) + (cons __tmp69199 '())))) (declare (not safe)) - (cons __tmp68938 __tmp68936))) - (__tmp68866 - (let ((__tmp68929 - (let ((__tmp68934 + (cons __tmp69200 __tmp69198))) + (__tmp69128 + (let ((__tmp69191 + (let ((__tmp69196 (gx#datum->syntax '#f '##set-car!)) - (__tmp68930 - (let ((__tmp68933 + (__tmp69192 + (let ((__tmp69195 (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp68931 - (let ((__tmp68932 + (__tmp69193 + (let ((__tmp69194 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass-id))) (declare (not safe)) - (cons __tmp68932 '())))) + (cons __tmp69194 '())))) (declare (not safe)) - (cons __tmp68933 __tmp68931)))) + (cons __tmp69195 __tmp69193)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68934 __tmp68930))) - (__tmp68867 - (let ((__tmp68923 - (let ((__tmp68928 + (cons __tmp69196 __tmp69192))) + (__tmp69129 + (let ((__tmp69185 + (let ((__tmp69190 (gx#datum->syntax '#f '##set-cdr!)) - (__tmp68924 - (let ((__tmp68927 + (__tmp69186 + (let ((__tmp69189 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp68925 - (let ((__tmp68926 + (__tmp69187 + (let ((__tmp69188 (gx#datum->syntax '#f 'obj-klass-id))) (declare (not safe)) - (cons __tmp68926 '())))) + (cons __tmp69188 '())))) (declare (not safe)) - (cons __tmp68927 __tmp68925)))) + (cons __tmp69189 __tmp69187)))) (declare (not safe)) - (cons __tmp68928 __tmp68924))) + (cons __tmp69190 __tmp69186))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp68868 - (let ((__tmp68869 - (let ((__tmp68922 + (__tmp69130 + (let ((__tmp69131 + (let ((__tmp69184 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp68870 - (let ((__tmp68877 - (let ((__tmp68921 + (__tmp69132 + (let ((__tmp69139 + (let ((__tmp69183 (gx#datum->syntax '#f 'prototype)) - (__tmp68878 - (let ((__tmp68879 - (let ((__tmp68920 + (__tmp69140 + (let ((__tmp69141 + (let ((__tmp69182 (gx#datum->syntax '#f 'cond)) - (__tmp68880 - (let ((__tmp68897 - (let ((__tmp68913 + (__tmp69142 + (let ((__tmp69159 + (let ((__tmp69175 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68919 + (let ((__tmp69181 (gx#datum->syntax '#f 'prototype-table-ref)) - (__tmp68914 - (let ((__tmp68918 + (__tmp69176 + (let ((__tmp69180 (gx#datum->syntax '#f '__interface-prototypes)) - (__tmp68915 - (let ((__tmp68917 + (__tmp69177 + (let ((__tmp69179 (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp68916 + (__tmp69178 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp68917 __tmp68916)))) + (cons __tmp69179 __tmp69178)))) (declare (not safe)) - (cons __tmp68918 __tmp68915)))) + (cons __tmp69180 __tmp69177)))) (declare (not safe)) - (cons __tmp68919 __tmp68914))) - (__tmp68898 - (let ((__tmp68912 (gx#datum->syntax '#f '=>)) - (__tmp68899 - (let ((__tmp68900 - (let ((__tmp68911 + (cons __tmp69181 __tmp69176))) + (__tmp69160 + (let ((__tmp69174 (gx#datum->syntax '#f '=>)) + (__tmp69161 + (let ((__tmp69162 + (let ((__tmp69173 (gx#datum->syntax '#f 'lambda)) - (__tmp68901 - (let ((__tmp68909 - (let ((__tmp68910 + (__tmp69163 + (let ((__tmp69171 + (let ((__tmp69172 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp68910 + (cons __tmp69172 '()))) - (__tmp68902 - (let ((__tmp68905 - (let ((__tmp68908 + (__tmp69164 + (let ((__tmp69167 + (let ((__tmp69170 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp68906 - (let ((__tmp68907 + (__tmp69168 + (let ((__tmp69169 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68907 '())))) + (cons __tmp69169 '())))) (declare (not safe)) - (cons __tmp68908 __tmp68906))) - (__tmp68903 - (let ((__tmp68904 (gx#datum->syntax '#f 'prototype))) + (cons __tmp69170 __tmp69168))) + (__tmp69165 + (let ((__tmp69166 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp68904 '())))) + (cons __tmp69166 '())))) (declare (not safe)) - (cons __tmp68905 __tmp68903)))) + (cons __tmp69167 __tmp69165)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68909 - __tmp68902)))) + (cons __tmp69171 + __tmp69164)))) (declare (not safe)) - (cons __tmp68911 __tmp68901)))) + (cons __tmp69173 __tmp69163)))) (declare (not safe)) - (cons __tmp68900 '())))) + (cons __tmp69162 '())))) (declare (not safe)) - (cons __tmp68912 __tmp68899)))) + (cons __tmp69174 __tmp69161)))) (declare (not safe)) - (cons __tmp68913 __tmp68898))) - (__tmp68881 - (let ((__tmp68882 - (let ((__tmp68896 (gx#datum->syntax '#f 'else)) - (__tmp68883 - (let ((__tmp68892 - (let ((__tmp68895 + (cons __tmp69175 __tmp69160))) + (__tmp69143 + (let ((__tmp69144 + (let ((__tmp69158 (gx#datum->syntax '#f 'else)) + (__tmp69145 + (let ((__tmp69154 + (let ((__tmp69157 (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp68893 - (let ((__tmp68894 + (__tmp69155 + (let ((__tmp69156 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp68894 '())))) + (cons __tmp69156 '())))) (declare (not safe)) - (cons __tmp68895 __tmp68893))) - (__tmp68884 - (let ((__tmp68885 - (let ((__tmp68886 - (let ((__tmp68891 + (cons __tmp69157 __tmp69155))) + (__tmp69146 + (let ((__tmp69147 + (let ((__tmp69148 + (let ((__tmp69153 (gx#datum->syntax '#f 'descriptor)) - (__tmp68887 - (let ((__tmp68890 + (__tmp69149 + (let ((__tmp69152 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp68888 - (let ((__tmp68889 + (__tmp69150 + (let ((__tmp69151 (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp68889 '())))) + (cons __tmp69151 '())))) (declare (not safe)) - (cons __tmp68890 __tmp68888)))) + (cons __tmp69152 __tmp69150)))) (declare (not safe)) - (cons __tmp68891 __tmp68887)))) + (cons __tmp69153 __tmp69149)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L67716_ - __tmp68886)))) + (cons _L67978_ + __tmp69148)))) (declare (not safe)) - (cons __tmp68885 '())))) + (cons __tmp69147 '())))) (declare (not safe)) - (cons __tmp68892 __tmp68884)))) + (cons __tmp69154 __tmp69146)))) (declare (not safe)) - (cons __tmp68896 __tmp68883)))) + (cons __tmp69158 __tmp69145)))) (declare (not safe)) - (cons __tmp68882 '())))) + (cons __tmp69144 '())))) (declare (not safe)) - (cons __tmp68897 __tmp68881)))) + (cons __tmp69159 __tmp69143)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68920 - __tmp68880)))) + (cons __tmp69182 + __tmp69142)))) (declare (not safe)) - (cons __tmp68879 '())))) + (cons __tmp69141 '())))) (declare (not safe)) - (cons __tmp68921 __tmp68878))) - (__tmp68871 - (let ((__tmp68872 - (let ((__tmp68873 - (let ((__tmp68876 + (cons __tmp69183 __tmp69140))) + (__tmp69133 + (let ((__tmp69134 + (let ((__tmp69135 + (let ((__tmp69138 (gx#datum->syntax '#f 'prototype)) - (__tmp68874 - (let ((__tmp68875 + (__tmp69136 + (let ((__tmp69137 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68875 + (cons __tmp69137 '())))) (declare (not safe)) - (cons __tmp68876 - __tmp68874)))) + (cons __tmp69138 + __tmp69136)))) (declare (not safe)) - (cons _L67715_ __tmp68873)))) + (cons _L67977_ __tmp69135)))) (declare (not safe)) - (cons __tmp68872 '())))) + (cons __tmp69134 '())))) (declare (not safe)) - (cons __tmp68877 __tmp68871)))) + (cons __tmp69139 __tmp69133)))) (declare (not safe)) - (cons __tmp68922 __tmp68870)))) + (cons __tmp69184 __tmp69132)))) (declare (not safe)) - (cons __tmp68869 '())))) + (cons __tmp69131 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68923 __tmp68868)))) + (cons __tmp69185 __tmp69130)))) (declare (not safe)) - (cons __tmp68929 __tmp68867)))) + (cons __tmp69191 __tmp69129)))) (declare (not safe)) - (cons __tmp68935 __tmp68866)))) + (cons __tmp69197 __tmp69128)))) (declare (not safe)) - (cons __tmp68939 __tmp68865)))) + (cons __tmp69201 __tmp69127)))) (declare (not safe)) - (cons __tmp68864 '())))) + (cons __tmp69126 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68940 - __tmp68863)))) + (cons __tmp69202 + __tmp69125)))) (declare (not safe)) - (cons __tmp68954 __tmp68862)))) + (cons __tmp69216 __tmp69124)))) (declare (not safe)) - (cons __tmp68963 __tmp68861)))) + (cons __tmp69225 __tmp69123)))) (declare (not safe)) - (cons __tmp68860 '())))) + (cons __tmp69122 '())))) (declare (not safe)) - (cons __tmp68964 __tmp68859)))) + (cons __tmp69226 __tmp69121)))) (declare (not safe)) - (cons __tmp68996 __tmp68858)))) + (cons __tmp69258 __tmp69120)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68857 '())))) + (cons __tmp69119 '())))) (declare (not safe)) - (cons __tmp68997 __tmp68856)))) + (cons __tmp69259 __tmp69118)))) (declare (not safe)) - (cons '() __tmp68855)))) + (cons '() __tmp69117)))) (declare (not safe)) - (cons __tmp69004 __tmp68854))) - (__tmp68849 - (let ((__tmp68850 - (let ((__tmp68851 - (let ((__tmp68852 + (cons __tmp69266 __tmp69116))) + (__tmp69111 + (let ((__tmp69112 + (let ((__tmp69113 + (let ((__tmp69114 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp68852 '())))) + (cons __tmp69114 '())))) (declare (not safe)) - (cons _L67713_ __tmp68851)))) + (cons _L67975_ __tmp69113)))) (declare (not safe)) - (cons __tmp68850 '())))) + (cons __tmp69112 '())))) (declare (not safe)) - (cons __tmp68853 __tmp68849)))) + (cons __tmp69115 __tmp69111)))) (declare (not safe)) - (cons __tmp69005 __tmp68848)))) + (cons __tmp69267 __tmp69110)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp69009 __tmp68847)))) + (cons __tmp69271 __tmp69109)))) (declare (not safe)) - (cons __tmp68846 '())))) + (cons __tmp69108 '())))) (declare (not safe)) - (cons __tmp69010 __tmp68845)))) + (cons __tmp69272 __tmp69107)))) (declare (not safe)) - (cons __tmp69015 __tmp68844))) - _hd6764967707_ - _hd6764667697_ - _hd6764367687_ - _hd6764067677_) - (_g6763067656_ _g6763167660_)))) - (_g6763067656_ _g6763167660_)))) + (cons __tmp69277 __tmp69106))) + _hd6791167969_ + _hd6790867959_ + _hd6790567949_ + _hd6790267939_) + (_g6789267918_ _g6789367922_)))) + (_g6789267918_ _g6789367922_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6763067656_ _g6763167660_)))) - (_g6763067656_ _g6763167660_)))) - (_g6763067656_ _g6763167660_)))) - (_g6763067656_ _g6763167660_))))) - (_g6762967739_ _$stx67626_)))))) + (_g6789267918_ _g6789367922_)))) + (_g6789267918_ _g6789367922_)))) + (_g6789267918_ _g6789367922_)))) + (_g6789267918_ _g6789367922_))))) + (_g6789168001_ _$stx67888_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader__0.scm b/src/bootstrap/gerbil/runtime/loader__0.scm index 4b507bd7..9de80407 100644 --- a/src/bootstrap/gerbil/runtime/loader__0.scm +++ b/src/bootstrap/gerbil/runtime/loader__0.scm @@ -1,127 +1,127 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1709375797) + (define gerbil/runtime/loader::timestamp 1709457369) (begin (define current-module-library-path (make-parameter '#f)) (define current-module-registry (make-parameter '#f)) (define __reload-module (make-parameter '#f)) (define load-module__% - (lambda (_modpath78452_ _reload?78453_) - (let ((_$e78455_ - (if (let () (declare (not safe)) (not _reload?78453_)) - (let ((__tmp78474 (current-module-registry))) + (lambda (_modpath78714_ _reload?78715_) + (let ((_$e78717_ + (if (let () (declare (not safe)) (not _reload?78715_)) + (let ((__tmp78736 (current-module-registry))) (declare (not safe)) - (hash-get __tmp78474 _modpath78452_)) + (hash-get __tmp78736 _modpath78714_)) '#f))) - (if _$e78455_ - _$e78455_ - (let ((_$e78458_ + (if _$e78717_ + _$e78717_ + (let ((_$e78720_ (let () (declare (not safe)) - (find-library-module _modpath78452_)))) - (if _$e78458_ - ((lambda (_path78461_) - (let ((_lpath78463_ (load _path78461_))) - (let ((__tmp78475 (current-module-registry))) + (find-library-module _modpath78714_)))) + (if _$e78720_ + ((lambda (_path78723_) + (let ((_lpath78725_ (load _path78723_))) + (let ((__tmp78737 (current-module-registry))) (declare (not safe)) - (hash-put! __tmp78475 _modpath78452_ _lpath78463_)) - _lpath78463_)) - _$e78458_) + (hash-put! __tmp78737 _modpath78714_ _lpath78725_)) + _lpath78725_)) + _$e78720_) (let () (declare (not safe)) - (error '"module not found" _modpath78452_)))))))) + (error '"module not found" _modpath78714_)))))))) (define load-module__0 - (lambda (_modpath78468_) - (let ((_reload?78470_ (__reload-module))) + (lambda (_modpath78730_) + (let ((_reload?78732_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath78468_ _reload?78470_)))) + (load-module__% _modpath78730_ _reload?78732_)))) (define load-module - (lambda _g78477_ - (let ((_g78476_ (let () (declare (not safe)) (##length _g78477_)))) - (cond ((let () (declare (not safe)) (##fx= _g78476_ 1)) - (apply (lambda (_modpath78468_) + (lambda _g78739_ + (let ((_g78738_ (let () (declare (not safe)) (##length _g78739_)))) + (cond ((let () (declare (not safe)) (##fx= _g78738_ 1)) + (apply (lambda (_modpath78730_) (let () (declare (not safe)) - (load-module__0 _modpath78468_))) - _g78477_)) - ((let () (declare (not safe)) (##fx= _g78476_ 2)) - (apply (lambda (_modpath78472_ _reload?78473_) + (load-module__0 _modpath78730_))) + _g78739_)) + ((let () (declare (not safe)) (##fx= _g78738_ 2)) + (apply (lambda (_modpath78734_ _reload?78735_) (let () (declare (not safe)) - (load-module__% _modpath78472_ _reload?78473_))) - _g78477_)) + (load-module__% _modpath78734_ _reload?78735_))) + _g78739_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g78477_)))))) + _g78739_)))))) (define find-library-module - (lambda (_modpath78386_) - (letrec ((_find-compiled-file78388_ - (lambda (_npath78440_) - (let ((_basepath78442_ + (lambda (_modpath78648_) + (letrec ((_find-compiled-file78650_ + (lambda (_npath78702_) + (let ((_basepath78704_ (let () (declare (not safe)) - (##string-append _npath78440_ '".o")))) - (let _lp78444_ ((_current78446_ '#f) (_n78447_ '1)) - (let ((_next78449_ - (let ((__tmp78478 (number->string _n78447_))) + (##string-append _npath78702_ '".o")))) + (let _lp78706_ ((_current78708_ '#f) (_n78709_ '1)) + (let ((_next78711_ + (let ((__tmp78740 (number->string _n78709_))) (declare (not safe)) (##string-append - _basepath78442_ - __tmp78478)))) + _basepath78704_ + __tmp78740)))) (if (let () (declare (not safe)) - (##file-exists? _next78449_)) - (let ((__tmp78479 + (##file-exists? _next78711_)) + (let ((__tmp78741 (let () (declare (not safe)) - (##fx+ _n78447_ '1)))) + (##fx+ _n78709_ '1)))) (declare (not safe)) - (_lp78444_ _next78449_ __tmp78479)) - _current78446_)))))) - (_find-source-file78389_ - (lambda (_npath78436_) - (let ((_spath78438_ (string-append _npath78436_ '".scm"))) + (_lp78706_ _next78711_ __tmp78741)) + _current78708_)))))) + (_find-source-file78651_ + (lambda (_npath78698_) + (let ((_spath78700_ (string-append _npath78698_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath78438_)) - _spath78438_ + (##file-exists? _spath78700_)) + _spath78700_ '#f))))) - (let _lp78391_ ((_rest78393_ (current-module-library-path))) - (let* ((_rest7839478402_ _rest78393_) - (_else7839678410_ (lambda () '#f)) - (_K7839878424_ - (lambda (_rest78413_ _dir78414_) - (let* ((_npath78416_ + (let _lp78653_ ((_rest78655_ (current-module-library-path))) + (let* ((_rest7865678664_ _rest78655_) + (_else7865878672_ (lambda () '#f)) + (_K7866078686_ + (lambda (_rest78675_ _dir78676_) + (let* ((_npath78678_ (path-expand - _modpath78386_ - (path-expand _dir78414_))) - (_$e78418_ + _modpath78648_ + (path-expand _dir78676_))) + (_$e78680_ (let () (declare (not safe)) - (_find-compiled-file78388_ _npath78416_)))) - (if _$e78418_ - (path-normalize _$e78418_) - (let ((_$e78421_ + (_find-compiled-file78650_ _npath78678_)))) + (if _$e78680_ + (path-normalize _$e78680_) + (let ((_$e78683_ (let () (declare (not safe)) - (_find-source-file78389_ _npath78416_)))) - (if _$e78421_ - (path-normalize _$e78421_) + (_find-source-file78651_ _npath78678_)))) + (if _$e78683_ + (path-normalize _$e78683_) (let () (declare (not safe)) - (_lp78391_ _rest78413_))))))))) - (if (let () (declare (not safe)) (##pair? _rest7839478402_)) - (let ((_hd7839978427_ + (_lp78653_ _rest78675_))))))))) + (if (let () (declare (not safe)) (##pair? _rest7865678664_)) + (let ((_hd7866178689_ (let () (declare (not safe)) - (##car _rest7839478402_))) - (_tl7840078429_ + (##car _rest7865678664_))) + (_tl7866278691_ (let () (declare (not safe)) - (##cdr _rest7839478402_)))) - (let* ((_dir78432_ _hd7839978427_) - (_rest78434_ _tl7840078429_)) + (##cdr _rest7865678664_)))) + (let* ((_dir78694_ _hd7866178689_) + (_rest78696_ _tl7866278691_)) (declare (not safe)) - (_K7839878424_ _rest78434_ _dir78432_))) - (let () (declare (not safe)) (_else7839678410_)))))))))) + (_K7866078686_ _rest78696_ _dir78694_))) + (let () (declare (not safe)) (_else7865878672_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index 9648221e..a4456d08 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -152,68 +152,79 @@ package: gerbil/runtime (declare-type subclass? (@lambda 2 #f)) (declare-type direct-instance? - (ast-rules - (%#call) - ((%#call _ klass obj) - (%#call (%#ref ##structure-direct-instance-of?) - obj - (%#call (%#ref ##type-id) klass))))) + (@lambda 2 + inline: + (ast-rules + (%#call) + ((%#call _ klass obj) + (%#call (%#ref ##structure-direct-instance-of?) + obj + (%#call (%#ref ##type-id) klass)))))) (declare-type struct-instance? (@lambda 2 #f)) (declare-type class-instance? (@lambda 2 #f)) (declare-type make-object - (lambda (ast) - (ast-case - ast - (%#call %#quote) - ((%#call make-object klass (%#quote len)) - (with-syntax - (((init ...) (make-list (fx1- (stx-e #'len)) '(%#quote #f)))) - #'(%#call (%#ref ##structure) klass init ...))) - ((%#call make-object klass len) - (with-syntax - (($obj (make-symbol (gensym '__obj)))) - #'(%#let-values - ((($obj) (%#call (%#ref ##make-structure) klass len))) - (%#begin (%#call (%#ref object-fill!) (%#ref $obj) (%#quote #f)) - (%#ref $obj)))))))) + (@lambda (2) + inline: + (lambda (ast) + (ast-case + ast + (%#call %#quote) + ((%#call make-object klass (%#quote len)) + (with-syntax + (((init ...) (make-list (fx1- (stx-e #'len)) '(%#quote #f)))) + #'(%#call (%#ref ##structure) klass init ...))) + ((%#call make-object klass len) + (with-syntax + (($obj (make-symbol (gensym '__obj)))) + #'(%#let-values + ((($obj) (%#call (%#ref ##make-structure) klass len))) + (%#begin (%#call (%#ref object-fill!) + (%#ref $obj) + (%#quote #f)) + (%#ref $obj))))))))) (declare-type object-fill! (@lambda 2 #f)) (declare-type new-instance (@lambda 1 #f)) (declare-type make-instance (@lambda (1) #f)) (declare-type make-class-instance (@lambda (1) #f)) (declare-type struct-instance-init! - (lambda (ast) - (ast-case - ast - (%#call %#ref) - ((%#call _ self) #'(%#quote #!void)) - ((%#call _ (%#ref self) arg ...) - (with-syntax* - (((values arg-count) (length #'(arg ...))) - ((off ...) (iota arg-count 1)) - (count arg-count)) - #'(%#if (%#call (%#ref ##fx<) - (%#quote count) - (%#call (%#ref ##structure-length) (%#ref self))) - (%#begin (%#call (%#ref ##unchecked-structure-set!) + (@lambda (1) + inline: + (lambda (ast) + (ast-case + ast + (%#call %#ref) + ((%#call _ self) #'(%#quote #!void)) + ((%#call _ (%#ref self) arg ...) + (with-syntax* + (((values arg-count) (length #'(arg ...))) + ((off ...) (iota arg-count 1)) + (count arg-count)) + #'(%#if (%#call (%#ref ##fx<) + (%#quote count) + (%#call (%#ref ##structure-length) + (%#ref self))) + (%#begin (%#call (%#ref ##unchecked-structure-set!) + (%#ref self) + arg + (%#quote off) + (%#call (%#ref ##structure-type) + (%#ref self)) + (%#quote #f)) + ...) + (%#call (%#ref error) + (%#quote "struct-instance-init!: too many arguments for struct") (%#ref self) - arg - (%#quote off) - (%#call (%#ref ##structure-type) (%#ref self)) - (%#quote #f)) - ...) - (%#call (%#ref error) - (%#quote "struct-instance-init!: too many arguments for struct") - (%#ref self) - (%#quote count) - (%#call (%#ref ##vector-length) (%#ref self)))))) - ((%#call recur self arg ...) - (with-syntax - (($self (make-symbol (gensym '__self)))) - #'(%#let-values - ((($self) self)) - (%#call recur (%#ref $self) arg ...))))))) + (%#quote count) + (%#call (%#ref ##vector-length) + (%#ref self)))))) + ((%#call recur self arg ...) + (with-syntax + (($self (make-symbol (gensym '__self)))) + #'(%#let-values + ((($self) self)) + (%#call recur (%#ref $self) arg ...)))))))) (declare-type __struct-instance-init! (@lambda 2 #f)) (declare-type class-instance-init! (@lambda (1) #f)) (declare-type __class-instance-init! (@lambda 3 #f)) @@ -225,27 +236,30 @@ package: gerbil/runtime (declare-type class->list (@lambda 1 #f)) (declare-type call-method - (lambda (ast) - (ast-case - ast - (%#call %#ref) - ((%#call _ (%#ref self) method arg ...) - (with-syntax - (($method (make-symbol (gensym '__method)))) - #'(%#let-values - ((($method) (%#call (%#ref method-ref) (%#ref self) method))) - (%#if (%#ref $method) - (%#call (%#ref $method) (%#ref self) arg ...) - (%#call (%#ref error) - (%#quote "Missing method") - (%#ref self) - method))))) - ((%#call recur self method arg ...) - (with-syntax - (($self (make-symbol (gensym '__self)))) - #'(%#let-values - ((($self) self)) - (%#call recur (%#ref $self) method arg ...))))))) + (@lambda (2) + inline: + (lambda (ast) + (ast-case + ast + (%#call %#ref) + ((%#call _ (%#ref self) method arg ...) + (with-syntax + (($method (make-symbol (gensym '__method)))) + #'(%#let-values + ((($method) + (%#call (%#ref method-ref) (%#ref self) method))) + (%#if (%#ref $method) + (%#call (%#ref $method) (%#ref self) arg ...) + (%#call (%#ref error) + (%#quote "Missing method") + (%#ref self) + method))))) + ((%#call recur self method arg ...) + (with-syntax + (($self (make-symbol (gensym '__self)))) + #'(%#let-values + ((($self) self)) + (%#call recur (%#ref $self) method arg ...)))))))) (declare-type method-ref (@lambda 2 #f)) (declare-type checked-method-ref (@lambda 2 #f)) (declare-type bound-method-ref (@lambda 2 #f)) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index 27c547ff..5c417f94 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 1709375797) + (define gerbil/runtime/mop::timestamp 1709457368) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) @@ -12,7 +12,7 @@ (define class-type-flag-metaclass '4096) (define class::t.id 'gerbil#class::t) (define class::t - (let* ((_slots64444_ + (let* ((_slots64706_ '(id name super flags @@ -23,1243 +23,1243 @@ properties constructor methods)) - (_slot-vector64446_ + (_slot-vector64708_ (list->vector - (let () (declare (not safe)) (cons '#f _slots64444_)))) - (_slot-table64453_ - (let ((_slot-table64448_ + (let () (declare (not safe)) (cons '#f _slots64706_)))) + (_slot-table64715_ + (let ((_slot-table64710_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot64450_ _field64451_) + (lambda (_slot64712_ _field64713_) (let () (declare (not safe)) (symbolic-table-set! - _slot-table64448_ - _slot64450_ - _field64451_)) - (let ((__tmp64594 (symbol->keyword _slot64450_))) + _slot-table64710_ + _slot64712_ + _field64713_)) + (let ((__tmp64856 (symbol->keyword _slot64712_))) (declare (not safe)) (symbolic-table-set! - _slot-table64448_ - __tmp64594 - _field64451_))) - _slots64444_ - (let ((__tmp64595 (length _slots64444_))) + _slot-table64710_ + __tmp64856 + _field64713_))) + _slots64706_ + (let ((__tmp64857 (length _slots64706_))) (declare (not safe)) - (iota__1 __tmp64595 '1))) - _slot-table64448_)) - (_flags64455_ + (iota__1 __tmp64857 '1))) + _slot-table64710_)) + (_flags64717_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields64461_ + (_fields64723_ (list->vector (apply append - (map (lambda (_g6445664458_) (list _g6445664458_ '5 '#f)) + (map (lambda (_g6471864720_) (list _g6471864720_ '5 '#f)) (let () (declare (not safe)) - (drop _slots64444_ '5)))))) - (_properties64463_ - (let ((__tmp64598 - (let ((__tmp64599 + (drop _slots64706_ '5)))))) + (_properties64725_ + (let ((__tmp64860 + (let ((__tmp64861 (let () (declare (not safe)) - (foldr1 cons '() _slots64444_)))) + (foldr1 cons '() _slots64706_)))) (declare (not safe)) - (cons 'direct-slots: __tmp64599))) - (__tmp64596 - (let ((__tmp64597 + (cons 'direct-slots: __tmp64861))) + (__tmp64858 + (let ((__tmp64859 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp64597 '())))) + (cons __tmp64859 '())))) (declare (not safe)) - (cons __tmp64598 __tmp64596))) - (_t64465_ + (cons __tmp64860 __tmp64858))) + (_t64727_ (let () (declare (not safe)) (##structure '#f class::t.id 'class - _flags64455_ + _flags64717_ ##type-type - _fields64461_ + _fields64723_ '() - _slot-vector64446_ - _slot-table64453_ - _properties64463_ + _slot-vector64708_ + _slot-table64715_ + _properties64725_ '#f '#f)))) - (let () (declare (not safe)) (##structure-type-set! _t64465_ _t64465_)) - _t64465_)) + (let () (declare (not safe)) (##structure-type-set! _t64727_ _t64727_)) + _t64727_)) (define class-type? - (lambda (_obj64442_) + (lambda (_obj64704_) (let () (declare (not safe)) - (##structure-instance-of? _obj64442_ class::t.id)))) + (##structure-instance-of? _obj64704_ class::t.id)))) (define class-type=? - (lambda (_x64439_ _y64440_) - (let ((__tmp64601 (##structure-ref _x64439_ '1 class::t '#f)) - (__tmp64600 (##structure-ref _y64440_ '1 class::t '#f))) + (lambda (_x64701_ _y64702_) + (let ((__tmp64863 (##structure-ref _x64701_ '1 class::t '#f)) + (__tmp64862 (##structure-ref _y64702_ '1 class::t '#f))) (declare (not safe)) - (eq? __tmp64601 __tmp64600)))) + (eq? __tmp64863 __tmp64862)))) (define type-opaque? - (lambda (_type64437_) - (let ((__tmp64602 - (let ((__tmp64603 + (lambda (_type64699_) + (let ((__tmp64864 + (let ((__tmp64865 (let () (declare (not safe)) - (##type-flags _type64437_)))) + (##type-flags _type64699_)))) (declare (not safe)) - (##fxand __tmp64603 type-flag-opaque)))) + (##fxand __tmp64865 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp64602 type-flag-opaque)))) + (##fx= __tmp64864 type-flag-opaque)))) (define type-extensible? - (lambda (_type64435_) - (let ((__tmp64604 - (let ((__tmp64605 + (lambda (_type64697_) + (let ((__tmp64866 + (let ((__tmp64867 (let () (declare (not safe)) - (##type-flags _type64435_)))) + (##type-flags _type64697_)))) (declare (not safe)) - (##fxand __tmp64605 type-flag-extensible)))) + (##fxand __tmp64867 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp64604 type-flag-extensible)))) + (##fx= __tmp64866 type-flag-extensible)))) (define class-type-final? - (lambda (_type64433_) - (let ((__tmp64606 - (let ((__tmp64607 + (lambda (_type64695_) + (let ((__tmp64868 + (let ((__tmp64869 (let () (declare (not safe)) - (##type-flags _type64433_)))) + (##type-flags _type64695_)))) (declare (not safe)) - (##fxand __tmp64607 type-flag-extensible)))) + (##fxand __tmp64869 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp64606 '0)))) + (##fx= __tmp64868 '0)))) (define class-type-struct? - (lambda (_klass64431_) - (let ((__tmp64608 - (let ((__tmp64609 + (lambda (_klass64693_) + (let ((__tmp64870 + (let ((__tmp64871 (let () (declare (not safe)) - (##type-flags _klass64431_)))) + (##type-flags _klass64693_)))) (declare (not safe)) - (##fxand __tmp64609 class-type-flag-struct)))) + (##fxand __tmp64871 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp64608 class-type-flag-struct)))) + (##fx= __tmp64870 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_klass64429_) - (let ((__tmp64610 - (let ((__tmp64611 + (lambda (_klass64691_) + (let ((__tmp64872 + (let ((__tmp64873 (let () (declare (not safe)) - (##type-flags _klass64429_)))) + (##type-flags _klass64691_)))) (declare (not safe)) - (##fxand __tmp64611 class-type-flag-sealed)))) + (##fxand __tmp64873 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp64610 class-type-flag-sealed)))) + (##fx= __tmp64872 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_klass64427_) - (let ((__tmp64612 - (let ((__tmp64613 + (lambda (_klass64689_) + (let ((__tmp64874 + (let ((__tmp64875 (let () (declare (not safe)) - (##type-flags _klass64427_)))) + (##type-flags _klass64689_)))) (declare (not safe)) - (##fxand __tmp64613 class-type-flag-metaclass)))) + (##fxand __tmp64875 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp64612 class-type-flag-metaclass)))) + (##fx= __tmp64874 class-type-flag-metaclass)))) (define properties-form - (lambda (_properties64393_) - (map (lambda (_e6439464396_) - (let* ((_g6439864405_ _e6439464396_) - (_E6440064409_ + (lambda (_properties64655_) + (map (lambda (_e6465664658_) + (let* ((_g6466064667_ _e6465664658_) + (_E6466264671_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _g6439864405_)))) - (_K6440164415_ - (lambda (_val64412_ _key64413_) + (error '"No clause matching" _g6466064667_)))) + (_K6466364677_ + (lambda (_val64674_ _key64675_) (if (let () (declare (not safe)) - (eq? _key64413_ 'direct-supers:)) - (let ((__tmp64614 (map class-type-id _val64412_))) + (eq? _key64675_ 'direct-supers:)) + (let ((__tmp64876 (map class-type-id _val64674_))) (declare (not safe)) - (cons _key64413_ __tmp64614)) + (cons _key64675_ __tmp64876)) (let () (declare (not safe)) - (cons _key64413_ _val64412_)))))) - (if (let () (declare (not safe)) (##pair? _g6439864405_)) - (let ((_hd6440264418_ + (cons _key64675_ _val64674_)))))) + (if (let () (declare (not safe)) (##pair? _g6466064667_)) + (let ((_hd6466464680_ (let () (declare (not safe)) - (##car _g6439864405_))) - (_tl6440364420_ + (##car _g6466064667_))) + (_tl6466564682_ (let () (declare (not safe)) - (##cdr _g6439864405_)))) - (let* ((_key64423_ _hd6440264418_) - (_val64425_ _tl6440364420_)) + (##cdr _g6466064667_)))) + (let* ((_key64685_ _hd6466464680_) + (_val64687_ _tl6466564682_)) (declare (not safe)) - (_K6440164415_ _val64425_ _key64423_))) - (let () (declare (not safe)) (_E6440064409_))))) - _properties64393_))) + (_K6466364677_ _val64687_ _key64685_))) + (let () (declare (not safe)) (_E6466264671_))))) + _properties64655_))) (define make-class-type-descriptor - (lambda (_type-id64292_ - _type-name64293_ - _type-super64294_ - _precedence-list64295_ - _slot-vector64296_ - _properties64297_ - _constructor64298_ - _slot-table64299_ - _methods64300_) - (letrec ((_make-props!64302_ - (lambda (_key64362_) - (letrec* ((_ht64364_ + (lambda (_type-id64554_ + _type-name64555_ + _type-super64556_ + _precedence-list64557_ + _slot-vector64558_ + _properties64559_ + _constructor64560_ + _slot-table64561_ + _methods64562_) + (letrec ((_make-props!64564_ + (lambda (_key64624_) + (letrec* ((_ht64626_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_put-slots!64365_ - (lambda (_ht64386_ _slots64387_) + (_put-slots!64627_ + (lambda (_ht64648_ _slots64649_) (for-each - (lambda (_g6438864390_) + (lambda (_g6465064652_) (let () (declare (not safe)) (symbolic-table-set! - _ht64386_ - _g6438864390_ + _ht64648_ + _g6465064652_ '#t))) - _slots64387_))) - (_put-alist!64366_ - (lambda (_ht64375_ _key64376_ _alist64377_) - (let ((_$e64379_ + _slots64649_))) + (_put-alist!64628_ + (lambda (_ht64637_ _key64638_ _alist64639_) + (let ((_$e64641_ (let () (declare (not safe)) (assgetq__0 - _key64376_ - _alist64377_)))) - (if _$e64379_ - ((lambda (_g6438164383_) + _key64638_ + _alist64639_)))) + (if _$e64641_ + ((lambda (_g6464364645_) (let () (declare (not safe)) - (_put-slots!64365_ - _ht64375_ - _g6438164383_))) - _$e64379_) + (_put-slots!64627_ + _ht64637_ + _g6464364645_))) + _$e64641_) '#!void))))) (let () (declare (not safe)) - (_put-alist!64366_ - _ht64364_ - _key64362_ - _properties64297_)) + (_put-alist!64628_ + _ht64626_ + _key64624_ + _properties64559_)) (for-each - (lambda (_mixin64368_) - (let ((_alist64370_ + (lambda (_mixin64630_) + (let ((_alist64632_ (##structure-ref - _mixin64368_ + _mixin64630_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (assgetq__0 'transparent: _alist64370_)) - (let ((__tmp64616 + (assgetq__0 'transparent: _alist64632_)) + (let ((__tmp64878 (let () (declare (not safe)) (assgetq__0 - _key64362_ - _alist64370_)))) + _key64624_ + _alist64632_)))) (declare (not safe)) - (eq? '#t __tmp64616))) - (let ((__tmp64615 + (eq? '#t __tmp64878))) + (let ((__tmp64877 (let () (declare (not safe)) - (class-type-slot-list _mixin64368_)))) + (class-type-slot-list _mixin64630_)))) (declare (not safe)) - (_put-slots!64365_ _ht64364_ __tmp64615)) + (_put-slots!64627_ _ht64626_ __tmp64877)) (let () (declare (not safe)) - (_put-alist!64366_ - _ht64364_ - _key64362_ - _alist64370_))))) - _precedence-list64295_) - _ht64364_)))) - (let* ((_transparent?64304_ + (_put-alist!64628_ + _ht64626_ + _key64624_ + _alist64632_))))) + _precedence-list64557_) + _ht64626_)))) + (let* ((_transparent?64566_ (let () (declare (not safe)) - (assgetq__0 'transparent: _properties64297_))) - (_all-slots-printable?64309_ - (let ((_$e64306_ _transparent?64304_)) - (if _$e64306_ - _$e64306_ - (let ((__tmp64617 + (assgetq__0 'transparent: _properties64559_))) + (_all-slots-printable?64571_ + (let ((_$e64568_ _transparent?64566_)) + (if _$e64568_ + _$e64568_ + (let ((__tmp64879 (let () (declare (not safe)) - (assgetq__0 'print: _properties64297_)))) + (assgetq__0 'print: _properties64559_)))) (declare (not safe)) - (eq? '#t __tmp64617))))) - (_printable64311_ + (eq? '#t __tmp64879))))) + (_printable64573_ (if (let () (declare (not safe)) - (not _all-slots-printable?64309_)) + (not _all-slots-printable?64571_)) (let () (declare (not safe)) - (_make-props!64302_ 'print:)) + (_make-props!64564_ 'print:)) '#f)) - (_all-slots-equalable?64316_ - (let ((_$e64313_ _transparent?64304_)) - (if _$e64313_ - _$e64313_ - (let ((__tmp64618 + (_all-slots-equalable?64578_ + (let ((_$e64575_ _transparent?64566_)) + (if _$e64575_ + _$e64575_ + (let ((__tmp64880 (let () (declare (not safe)) - (assgetq__0 'equal: _properties64297_)))) + (assgetq__0 'equal: _properties64559_)))) (declare (not safe)) - (eq? '#t __tmp64618))))) - (_equalable64318_ + (eq? '#t __tmp64880))))) + (_equalable64580_ (if (let () (declare (not safe)) - (not _all-slots-equalable?64316_)) + (not _all-slots-equalable?64578_)) (let () (declare (not safe)) - (_make-props!64302_ 'equal:)) + (_make-props!64564_ 'equal:)) '#f)) - (_first-new-field64320_ + (_first-new-field64582_ (if (let () (declare (not safe)) (##structure-instance-of? - _type-super64294_ + _type-super64556_ 'gerbil#class::t)) - (let ((__tmp64619 + (let ((__tmp64881 (##structure-ref - _type-super64294_ + _type-super64556_ '7 class::t '#f))) (declare (not safe)) - (##vector-length __tmp64619)) + (##vector-length __tmp64881)) '1)) - (_field-info-length64322_ - (let ((__tmp64620 - (let ((__tmp64621 + (_field-info-length64584_ + (let ((__tmp64882 + (let ((__tmp64883 (let () (declare (not safe)) - (##vector-length _slot-vector64296_)))) + (##vector-length _slot-vector64558_)))) (declare (not safe)) - (##fx- __tmp64621 _first-new-field64320_)))) + (##fx- __tmp64883 _first-new-field64582_)))) (declare (not safe)) - (##fx* '3 __tmp64620))) - (_field-info64324_ (make-vector _field-info-length64322_ '#f)) - (_struct?64326_ + (##fx* '3 __tmp64882))) + (_field-info64586_ (make-vector _field-info-length64584_ '#f)) + (_struct?64588_ (let () (declare (not safe)) - (assgetq__0 'struct: _properties64297_))) - (_final?64328_ + (assgetq__0 'struct: _properties64559_))) + (_final?64590_ (let () (declare (not safe)) - (assgetq__0 'final: _properties64297_))) - (_metaclass64336_ - (let ((_metaclass6432964331_ + (assgetq__0 'final: _properties64559_))) + (_metaclass64598_ + (let ((_metaclass6459164593_ (let () (declare (not safe)) - (assgetq__0 'metaclass: _properties64297_)))) - (if _metaclass6432964331_ - (let ((_metaclass64334_ _metaclass6432964331_)) + (assgetq__0 'metaclass: _properties64559_)))) + (if _metaclass6459164593_ + (let ((_metaclass64596_ _metaclass6459164593_)) (if (let () (declare (not safe)) (##structure-instance-of? - _metaclass64334_ + _metaclass64596_ 'gerbil#class::t)) '#!void (let () (declare (not safe)) (error '"metaclass is not a class type" 'class: - _type-id64292_ + _type-id64554_ 'metaclass: - _metaclass64334_))) - _metaclass64334_) + _metaclass64596_))) + _metaclass64596_) '#f))) - (_opaque?64341_ - (let ((_$e64338_ + (_opaque?64603_ + (let ((_$e64600_ (let () (declare (not safe)) - (not _all-slots-equalable?64316_)))) - (if _$e64338_ - _$e64338_ - (if _type-super64294_ + (not _all-slots-equalable?64578_)))) + (if _$e64600_ + _$e64600_ + (if _type-super64556_ (let () (declare (not safe)) - (type-opaque? _type-super64294_)) + (type-opaque? _type-super64556_)) '#f)))) - (_type-flags64343_ - (let ((__tmp64625 (if _final?64328_ '0 type-flag-extensible)) - (__tmp64624 (if _opaque?64341_ type-flag-opaque '0)) - (__tmp64623 - (if _struct?64326_ class-type-flag-struct '0)) - (__tmp64622 - (if _metaclass64336_ class-type-flag-metaclass '0))) + (_type-flags64605_ + (let ((__tmp64887 (if _final?64590_ '0 type-flag-extensible)) + (__tmp64886 (if _opaque?64603_ type-flag-opaque '0)) + (__tmp64885 + (if _struct?64588_ class-type-flag-struct '0)) + (__tmp64884 + (if _metaclass64598_ class-type-flag-metaclass '0))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp64625 - __tmp64624 - __tmp64623 - __tmp64622)))) - (let _loop64346_ ((_i64348_ _first-new-field64320_) (_j64349_ '0)) + __tmp64887 + __tmp64886 + __tmp64885 + __tmp64884)))) + (let _loop64608_ ((_i64610_ _first-new-field64582_) (_j64611_ '0)) (if (let () (declare (not safe)) - (##fx< _j64349_ _field-info-length64322_)) - (let* ((_slot64351_ + (##fx< _j64611_ _field-info-length64584_)) + (let* ((_slot64613_ (let () (declare (not safe)) - (##vector-ref _slot-vector64296_ _i64348_))) - (_flags64359_ - (if _transparent?64304_ + (##vector-ref _slot-vector64558_ _i64610_))) + (_flags64621_ + (if _transparent?64566_ '0 - (let ((__tmp64627 - (if (or _all-slots-printable?64309_ + (let ((__tmp64889 + (if (or _all-slots-printable?64571_ (let () (declare (not safe)) (symbolic-table-ref - _printable64311_ - _slot64351_ + _printable64573_ + _slot64613_ '#f))) '0 '1)) - (__tmp64626 - (if (or _all-slots-equalable?64316_ + (__tmp64888 + (if (or _all-slots-equalable?64578_ (let () (declare (not safe)) (symbolic-table-ref - _equalable64318_ - _slot64351_ + _equalable64580_ + _slot64613_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp64627 __tmp64626))))) - (vector-set! _field-info64324_ _j64349_ _slot64351_) + (##fxior __tmp64889 __tmp64888))))) + (vector-set! _field-info64586_ _j64611_ _slot64613_) (vector-set! - _field-info64324_ - (let () (declare (not safe)) (##fx+ _j64349_ '1)) - _flags64359_) - (let ((__tmp64629 - (let () (declare (not safe)) (##fx+ _i64348_ '1))) - (__tmp64628 - (let () (declare (not safe)) (##fx+ _j64349_ '3)))) + _field-info64586_ + (let () (declare (not safe)) (##fx+ _j64611_ '1)) + _flags64621_) + (let ((__tmp64891 + (let () (declare (not safe)) (##fx+ _i64610_ '1))) + (__tmp64890 + (let () (declare (not safe)) (##fx+ _j64611_ '3)))) (declare (not safe)) - (_loop64346_ __tmp64629 __tmp64628))) + (_loop64608_ __tmp64891 __tmp64890))) '#!void)) - (if _metaclass64336_ + (if _metaclass64598_ (let () (declare (not safe)) (make-instance - _metaclass64336_ - _type-id64292_ - _type-name64293_ - _type-flags64343_ - _type-super64294_ - _field-info64324_ - _precedence-list64295_ - _slot-vector64296_ - _slot-table64299_ - _properties64297_ - _constructor64298_ - _methods64300_)) + _metaclass64598_ + _type-id64554_ + _type-name64555_ + _type-flags64605_ + _type-super64556_ + _field-info64586_ + _precedence-list64557_ + _slot-vector64558_ + _slot-table64561_ + _properties64559_ + _constructor64560_ + _methods64562_)) (let () (declare (not safe)) (##structure class::t - _type-id64292_ - _type-name64293_ - _type-flags64343_ - _type-super64294_ - _field-info64324_ - _precedence-list64295_ - _slot-vector64296_ - _slot-table64299_ - _properties64297_ - _constructor64298_ - _methods64300_))))))) + _type-id64554_ + _type-name64555_ + _type-flags64605_ + _type-super64556_ + _field-info64586_ + _precedence-list64557_ + _slot-vector64558_ + _slot-table64561_ + _properties64559_ + _constructor64560_ + _methods64562_))))))) (define class-type-id - (lambda (_klass64290_) + (lambda (_klass64552_) (let () (declare (not safe)) - (##structure-ref _klass64290_ '1 class::t 'id)))) + (##structure-ref _klass64552_ '1 class::t 'id)))) (define &class-type-id - (lambda (_klass64288_) + (lambda (_klass64550_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64288_ '1 class::t 'id)))) + (##unchecked-structure-ref _klass64550_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_klass64285_ _val64286_) + (lambda (_klass64547_ _val64548_) (let () (declare (not safe)) - (##structure-set! _klass64285_ _val64286_ '1 class::t 'id)))) + (##structure-set! _klass64547_ _val64548_ '1 class::t 'id)))) (define &class-type-id-set! - (lambda (_klass64280_ _val64282_) + (lambda (_klass64542_ _val64544_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64280_ - _val64282_ + _klass64542_ + _val64544_ '1 class::t 'id)))) (define class-type-name - (lambda (_klass64278_) + (lambda (_klass64540_) (let () (declare (not safe)) - (##structure-ref _klass64278_ '2 class::t 'name)))) + (##structure-ref _klass64540_ '2 class::t 'name)))) (define &class-type-name - (lambda (_klass64276_) + (lambda (_klass64538_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64276_ '2 class::t 'name)))) + (##unchecked-structure-ref _klass64538_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_klass64273_ _val64274_) + (lambda (_klass64535_ _val64536_) (let () (declare (not safe)) - (##structure-set! _klass64273_ _val64274_ '2 class::t 'name)))) + (##structure-set! _klass64535_ _val64536_ '2 class::t 'name)))) (define &class-type-name-set! - (lambda (_klass64268_ _val64270_) + (lambda (_klass64530_ _val64532_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64268_ - _val64270_ + _klass64530_ + _val64532_ '2 class::t 'name)))) (define class-type-super - (lambda (_klass64266_) + (lambda (_klass64528_) (let () (declare (not safe)) - (##structure-ref _klass64266_ '3 class::t 'super)))) + (##structure-ref _klass64528_ '3 class::t 'super)))) (define &class-type-super - (lambda (_klass64264_) + (lambda (_klass64526_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64264_ '3 class::t 'super)))) + (##unchecked-structure-ref _klass64526_ '3 class::t 'super)))) (define class-type-super-set! - (lambda (_klass64261_ _val64262_) + (lambda (_klass64523_ _val64524_) (let () (declare (not safe)) - (##structure-set! _klass64261_ _val64262_ '3 class::t 'super)))) + (##structure-set! _klass64523_ _val64524_ '3 class::t 'super)))) (define &class-type-super-set! - (lambda (_klass64256_ _val64258_) + (lambda (_klass64518_ _val64520_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64256_ - _val64258_ + _klass64518_ + _val64520_ '3 class::t 'super)))) (define class-type-flags - (lambda (_klass64254_) + (lambda (_klass64516_) (let () (declare (not safe)) - (##structure-ref _klass64254_ '4 class::t 'flags)))) + (##structure-ref _klass64516_ '4 class::t 'flags)))) (define &class-type-flags - (lambda (_klass64252_) + (lambda (_klass64514_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64252_ '4 class::t 'flags)))) + (##unchecked-structure-ref _klass64514_ '4 class::t 'flags)))) (define class-type-flags-set! - (lambda (_klass64249_ _val64250_) + (lambda (_klass64511_ _val64512_) (let () (declare (not safe)) - (##structure-set! _klass64249_ _val64250_ '4 class::t 'flags)))) + (##structure-set! _klass64511_ _val64512_ '4 class::t 'flags)))) (define &class-type-flags-set! - (lambda (_klass64244_ _val64246_) + (lambda (_klass64506_ _val64508_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64244_ - _val64246_ + _klass64506_ + _val64508_ '4 class::t 'flags)))) (define class-type-fields - (lambda (_klass64242_) + (lambda (_klass64504_) (let () (declare (not safe)) - (##structure-ref _klass64242_ '5 class::t 'fields)))) + (##structure-ref _klass64504_ '5 class::t 'fields)))) (define &class-type-fields - (lambda (_klass64240_) + (lambda (_klass64502_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64240_ '5 class::t 'fields)))) + (##unchecked-structure-ref _klass64502_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_klass64237_ _val64238_) + (lambda (_klass64499_ _val64500_) (let () (declare (not safe)) - (##structure-set! _klass64237_ _val64238_ '5 class::t 'fields)))) + (##structure-set! _klass64499_ _val64500_ '5 class::t 'fields)))) (define &class-type-fields-set! - (lambda (_klass64232_ _val64234_) + (lambda (_klass64494_ _val64496_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64232_ - _val64234_ + _klass64494_ + _val64496_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_klass64230_) + (lambda (_klass64492_) (let () (declare (not safe)) - (##structure-ref _klass64230_ '6 class::t 'precedence-list)))) + (##structure-ref _klass64492_ '6 class::t 'precedence-list)))) (define &class-type-precedence-list - (lambda (_klass64228_) + (lambda (_klass64490_) (let () (declare (not safe)) (##unchecked-structure-ref - _klass64228_ + _klass64490_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_klass64225_ _val64226_) + (lambda (_klass64487_ _val64488_) (let () (declare (not safe)) (##structure-set! - _klass64225_ - _val64226_ + _klass64487_ + _val64488_ '6 class::t 'precedence-list)))) (define &class-type-precedence-list-set! - (lambda (_klass64220_ _val64222_) + (lambda (_klass64482_ _val64484_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64220_ - _val64222_ + _klass64482_ + _val64484_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_klass64218_) + (lambda (_klass64480_) (let () (declare (not safe)) - (##structure-ref _klass64218_ '7 class::t 'slot-vector)))) + (##structure-ref _klass64480_ '7 class::t 'slot-vector)))) (define &class-type-slot-vector - (lambda (_klass64216_) + (lambda (_klass64478_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64216_ '7 class::t 'slot-vector)))) + (##unchecked-structure-ref _klass64478_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_klass64213_ _val64214_) + (lambda (_klass64475_ _val64476_) (let () (declare (not safe)) (##structure-set! - _klass64213_ - _val64214_ + _klass64475_ + _val64476_ '7 class::t 'slot-vector)))) (define &class-type-slot-vector-set! - (lambda (_klass64208_ _val64210_) + (lambda (_klass64470_ _val64472_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64208_ - _val64210_ + _klass64470_ + _val64472_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_klass64206_) + (lambda (_klass64468_) (let () (declare (not safe)) - (##structure-ref _klass64206_ '8 class::t 'slot-table)))) + (##structure-ref _klass64468_ '8 class::t 'slot-table)))) (define &class-type-slot-table - (lambda (_klass64204_) + (lambda (_klass64466_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64204_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref _klass64466_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_klass64201_ _val64202_) + (lambda (_klass64463_ _val64464_) (let () (declare (not safe)) - (##structure-set! _klass64201_ _val64202_ '8 class::t 'slot-table)))) + (##structure-set! _klass64463_ _val64464_ '8 class::t 'slot-table)))) (define &class-type-slot-table-set! - (lambda (_klass64196_ _val64198_) + (lambda (_klass64458_ _val64460_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64196_ - _val64198_ + _klass64458_ + _val64460_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_klass64194_) + (lambda (_klass64456_) (let () (declare (not safe)) - (##structure-ref _klass64194_ '9 class::t 'properties)))) + (##structure-ref _klass64456_ '9 class::t 'properties)))) (define &class-type-properties - (lambda (_klass64192_) + (lambda (_klass64454_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64192_ '9 class::t 'properties)))) + (##unchecked-structure-ref _klass64454_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_klass64189_ _val64190_) + (lambda (_klass64451_ _val64452_) (let () (declare (not safe)) - (##structure-set! _klass64189_ _val64190_ '9 class::t 'properties)))) + (##structure-set! _klass64451_ _val64452_ '9 class::t 'properties)))) (define &class-type-properties-set! - (lambda (_klass64184_ _val64186_) + (lambda (_klass64446_ _val64448_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64184_ - _val64186_ + _klass64446_ + _val64448_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_klass64182_) + (lambda (_klass64444_) (let () (declare (not safe)) - (##structure-ref _klass64182_ '10 class::t 'constructor)))) + (##structure-ref _klass64444_ '10 class::t 'constructor)))) (define &class-type-constructor - (lambda (_klass64180_) + (lambda (_klass64442_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64180_ '10 class::t 'constructor)))) + (##unchecked-structure-ref _klass64442_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_klass64177_ _val64178_) + (lambda (_klass64439_ _val64440_) (let () (declare (not safe)) (##structure-set! - _klass64177_ - _val64178_ + _klass64439_ + _val64440_ '10 class::t 'constructor)))) (define &class-type-constructor-set! - (lambda (_klass64172_ _val64174_) + (lambda (_klass64434_ _val64436_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64172_ - _val64174_ + _klass64434_ + _val64436_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_klass64170_) + (lambda (_klass64432_) (let () (declare (not safe)) - (##structure-ref _klass64170_ '11 class::t 'methods)))) + (##structure-ref _klass64432_ '11 class::t 'methods)))) (define &class-type-methods - (lambda (_klass64168_) + (lambda (_klass64430_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass64168_ '11 class::t 'methods)))) + (##unchecked-structure-ref _klass64430_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_klass64165_ _val64166_) + (lambda (_klass64427_ _val64428_) (let () (declare (not safe)) - (##structure-set! _klass64165_ _val64166_ '11 class::t 'methods)))) + (##structure-set! _klass64427_ _val64428_ '11 class::t 'methods)))) (define &class-type-methods-set! - (lambda (_klass64160_ _val64162_) + (lambda (_klass64422_ _val64424_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass64160_ - _val64162_ + _klass64422_ + _val64424_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_klass64158_) - (cdr (vector->list (##structure-ref _klass64158_ '7 class::t '#f))))) + (lambda (_klass64420_) + (cdr (vector->list (##structure-ref _klass64420_ '7 class::t '#f))))) (define class-type-field-count - (lambda (_klass64156_) - (let ((__tmp64630 - (let ((__tmp64631 - (##structure-ref _klass64156_ '7 class::t '#f))) + (lambda (_klass64418_) + (let ((__tmp64892 + (let ((__tmp64893 + (##structure-ref _klass64418_ '7 class::t '#f))) (declare (not safe)) - (##vector-length __tmp64631)))) + (##vector-length __tmp64893)))) (declare (not safe)) - (##fx- __tmp64630 '1)))) + (##fx- __tmp64892 '1)))) (define class-type-seal! - (lambda (_klass64154_) - (let ((__tmp64632 - (let ((__tmp64633 + (lambda (_klass64416_) + (let ((__tmp64894 + (let ((__tmp64895 (let () (declare (not safe)) - (##type-flags _klass64154_)))) + (##type-flags _klass64416_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp64633)))) + (##fxior class-type-flag-sealed __tmp64895)))) (declare (not safe)) (##structure-set! - _klass64154_ - __tmp64632 + _klass64416_ + __tmp64894 '3 class::t class-type-seal!)))) (define &class-type-seal! - (lambda (_klass64152_) - (let ((__tmp64634 - (let ((__tmp64635 + (lambda (_klass64414_) + (let ((__tmp64896 + (let ((__tmp64897 (let () (declare (not safe)) - (##type-flags _klass64152_)))) + (##type-flags _klass64414_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp64635)))) + (##fxior class-type-flag-sealed __tmp64897)))) (declare (not safe)) (##unchecked-structure-set! - _klass64152_ - __tmp64634 + _klass64414_ + __tmp64896 '3 class::t class-type-seal!)))) (define substruct? - (lambda (_maybe-sub-struct64143_ _maybe-super-struct64144_) - (let ((_maybe-super-struct-id64146_ + (lambda (_maybe-sub-struct64405_ _maybe-super-struct64406_) + (let ((_maybe-super-struct-id64408_ (let () (declare (not safe)) - (##type-id _maybe-super-struct64144_)))) - (let _lp64148_ ((_super-struct64150_ _maybe-sub-struct64143_)) - (if (let () (declare (not safe)) (not _super-struct64150_)) + (##type-id _maybe-super-struct64406_)))) + (let _lp64410_ ((_super-struct64412_ _maybe-sub-struct64405_)) + (if (let () (declare (not safe)) (not _super-struct64412_)) '#f - (if (let ((__tmp64637 + (if (let ((__tmp64899 (let () (declare (not safe)) - (##type-id _super-struct64150_)))) + (##type-id _super-struct64412_)))) (declare (not safe)) - (eq? _maybe-super-struct-id64146_ __tmp64637)) + (eq? _maybe-super-struct-id64408_ __tmp64899)) '#t - (let ((__tmp64636 + (let ((__tmp64898 (let () (declare (not safe)) - (##type-super _super-struct64150_)))) + (##type-super _super-struct64412_)))) (declare (not safe)) - (_lp64148_ __tmp64636)))))))) + (_lp64410_ __tmp64898)))))))) (define base-struct/1 - (lambda (_klass64141_) + (lambda (_klass64403_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass64141_ 'gerbil#class::t)) - (if (let () (declare (not safe)) (class-type-struct? _klass64141_)) - _klass64141_ - (let () (declare (not safe)) (##type-super _klass64141_))) - (if (let () (declare (not safe)) (not _klass64141_)) + (##structure-instance-of? _klass64403_ 'gerbil#class::t)) + (if (let () (declare (not safe)) (class-type-struct? _klass64403_)) + _klass64403_ + (let () (declare (not safe)) (##type-super _klass64403_))) + (if (let () (declare (not safe)) (not _klass64403_)) '#f (let () (declare (not safe)) - (error '"not a class or false" _klass64141_)))))) + (error '"not a class or false" _klass64403_)))))) (define base-struct/2 - (lambda (_klass164129_ _klass264130_) - (let ((_s164132_ - (let () (declare (not safe)) (base-struct/1 _klass164129_))) - (_s264133_ - (let () (declare (not safe)) (base-struct/1 _klass264130_)))) - (if (or (let () (declare (not safe)) (not _s164132_)) - (and _s264133_ + (lambda (_klass164391_ _klass264392_) + (let ((_s164394_ + (let () (declare (not safe)) (base-struct/1 _klass164391_))) + (_s264395_ + (let () (declare (not safe)) (base-struct/1 _klass264392_)))) + (if (or (let () (declare (not safe)) (not _s164394_)) + (and _s264395_ (let () (declare (not safe)) - (substruct? _s164132_ _s264133_)))) - _s264133_ - (if (or (let () (declare (not safe)) (not _s264133_)) - (and _s164132_ + (substruct? _s164394_ _s264395_)))) + _s264395_ + (if (or (let () (declare (not safe)) (not _s264395_)) + (and _s164394_ (let () (declare (not safe)) - (substruct? _s264133_ _s164132_)))) - _s164132_ + (substruct? _s264395_ _s164394_)))) + _s164394_ (let () (declare (not safe)) (error '"bad mixin: incompatible struct bases" - _klass164129_ - _klass264130_ - _s164132_ - _s264133_))))))) + _klass164391_ + _klass264392_ + _s164394_ + _s264395_))))))) (define base-struct/list - (lambda (_all-supers64013_) - (let* ((_all-supers6401464039_ _all-supers64013_) - (_E6401964043_ + (lambda (_all-supers64275_) + (let* ((_all-supers6427664301_ _all-supers64275_) + (_E6428164305_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _all-supers6401464039_))))) - (let ((_K6403764126_ (lambda () '#f)) - (_K6403464112_ - (lambda (_x64110_) - (let () (declare (not safe)) (base-struct/1 _x64110_)))) - (_K6402964089_ - (lambda (_y64086_ _x64087_) + (error '"No clause matching" _all-supers6427664301_))))) + (let ((_K6429964388_ (lambda () '#f)) + (_K6429664374_ + (lambda (_x64372_) + (let () (declare (not safe)) (base-struct/1 _x64372_)))) + (_K6429164351_ + (lambda (_y64348_ _x64349_) (let () (declare (not safe)) - (base-struct/2 _x64087_ _y64086_)))) - (_K6402064050_ - (lambda (_y64047_ _x64048_) + (base-struct/2 _x64349_ _y64348_)))) + (_K6428264312_ + (lambda (_y64309_ _x64310_) (let () (declare (not safe)) - (foldr1 base-struct/2 _x64048_ _y64047_))))) - (let* ((___match6458864589_ - (lambda (_hd6402164053_ _tl6402264055_) - (let ((_x64058_ _hd6402164053_)) - (letrec ((_splice-rest6402464060_ - (lambda (_rest6402864067_ _y64069_) + (foldr1 base-struct/2 _x64310_ _y64309_))))) + (let* ((___match6485064851_ + (lambda (_hd6428364315_ _tl6428464317_) + (let ((_x64320_ _hd6428364315_)) + (letrec ((_splice-rest6428664322_ + (lambda (_rest6429064329_ _y64331_) (if (let () (declare (not safe)) - (##null? _rest6402864067_)) + (##null? _rest6429064329_)) (let () (declare (not safe)) - (_K6402064050_ _y64069_ _x64058_)) + (_K6428264312_ _y64331_ _x64320_)) (let () (declare (not safe)) - (_E6401964043_))))) - (_splice-try6402664062_ - (lambda (_hd6402764071_ - _rest6402864073_ - _y6402364074_) - (let ((_y64077_ _hd6402764071_)) - (let ((__tmp64639 + (_E6428164305_))))) + (_splice-try6428864324_ + (lambda (_hd6428964333_ + _rest6429064335_ + _y6428564336_) + (let ((_y64339_ _hd6428964333_)) + (let ((__tmp64901 (let () (declare (not safe)) - (##cdr _rest6402864073_))) - (__tmp64638 + (##cdr _rest6429064335_))) + (__tmp64900 (let () (declare (not safe)) - (cons _y64077_ _y6402364074_)))) + (cons _y64339_ _y6428564336_)))) (declare (not safe)) - (_splice-loop6402564064_ - __tmp64639 - __tmp64638))))) - (_splice-loop6402564064_ - (lambda (_rest6402864079_ _y6402364080_) + (_splice-loop6428764326_ + __tmp64901 + __tmp64900))))) + (_splice-loop6428764326_ + (lambda (_rest6429064341_ _y6428564342_) (if (let () (declare (not safe)) - (pair? _rest6402864079_)) - (let ((__tmp64641 + (pair? _rest6429064341_)) + (let ((__tmp64903 (let () (declare (not safe)) - (##car _rest6402864079_)))) + (##car _rest6429064341_)))) (declare (not safe)) - (_splice-try6402664062_ - __tmp64641 - _rest6402864079_ - _y6402364080_)) - (let ((__tmp64640 - (reverse _y6402364080_))) + (_splice-try6428864324_ + __tmp64903 + _rest6429064341_ + _y6428564342_)) + (let ((__tmp64902 + (reverse _y6428564342_))) (declare (not safe)) - (_splice-rest6402464060_ - _rest6402864079_ - __tmp64640)))))) + (_splice-rest6428664322_ + _rest6429064341_ + __tmp64902)))))) (let () (declare (not safe)) - (_splice-loop6402564064_ _tl6402264055_ '())))))) - (_try-match6401664122_ + (_splice-loop6428764326_ _tl6428464317_ '())))))) + (_try-match6427864384_ (lambda () (if (let () (declare (not safe)) - (##pair? _all-supers6401464039_)) - (let ((_tl6403664117_ + (##pair? _all-supers6427664301_)) + (let ((_tl6429864379_ (let () (declare (not safe)) - (##cdr _all-supers6401464039_))) - (_hd6403564115_ + (##cdr _all-supers6427664301_))) + (_hd6429764377_ (let () (declare (not safe)) - (##car _all-supers6401464039_)))) + (##car _all-supers6427664301_)))) (if (let () (declare (not safe)) - (##null? _tl6403664117_)) - (let ((_x64120_ _hd6403564115_)) + (##null? _tl6429864379_)) + (let ((_x64382_ _hd6429764377_)) (declare (not safe)) - (base-struct/1 _x64120_)) + (base-struct/1 _x64382_)) (if (let () (declare (not safe)) - (##pair? _tl6403664117_)) - (let ((_tl6403364101_ + (##pair? _tl6429864379_)) + (let ((_tl6429564363_ (let () (declare (not safe)) - (##cdr _tl6403664117_))) - (_hd6403264099_ + (##cdr _tl6429864379_))) + (_hd6429464361_ (let () (declare (not safe)) - (##car _tl6403664117_)))) + (##car _tl6429864379_)))) (if (let () (declare (not safe)) - (##null? _tl6403364101_)) - (let ((_x64097_ _hd6403564115_) - (_y64104_ _hd6403264099_)) + (##null? _tl6429564363_)) + (let ((_x64359_ _hd6429764377_) + (_y64366_ _hd6429464361_)) (let () (declare (not safe)) - (_K6402964089_ - _y64104_ - _x64097_))) - (___match6458864589_ - _hd6403564115_ - _tl6403664117_))) - (___match6458864589_ - _hd6403564115_ - _tl6403664117_)))) - (let () (declare (not safe)) (_E6401964043_)))))) + (_K6429164351_ + _y64366_ + _x64359_))) + (___match6485064851_ + _hd6429764377_ + _tl6429864379_))) + (___match6485064851_ + _hd6429764377_ + _tl6429864379_)))) + (let () (declare (not safe)) (_E6428164305_)))))) (if (let () (declare (not safe)) - (##null? _all-supers6401464039_)) - (let () (declare (not safe)) (_K6403764126_)) - (let () (declare (not safe)) (_try-match6401664122_)))))))) + (##null? _all-supers6427664301_)) + (let () (declare (not safe)) (_K6429964388_)) + (let () (declare (not safe)) (_try-match6427864384_)))))))) (define base-struct - (lambda _all-supers64011_ - (let () (declare (not safe)) (base-struct/list _all-supers64011_)))) + (lambda _all-supers64273_ + (let () (declare (not safe)) (base-struct/list _all-supers64273_)))) (define find-super-constructor - (lambda (_super63963_) - (let _lp63965_ ((_rest63967_ _super63963_) (_constructor63968_ '#f)) - (let* ((_rest6396963977_ _rest63967_) - (_else6397163985_ (lambda () _constructor63968_)) - (_K6397363999_ - (lambda (_rest63988_ _hd63989_) - (let ((_$e63991_ + (lambda (_super64225_) + (let _lp64227_ ((_rest64229_ _super64225_) (_constructor64230_ '#f)) + (let* ((_rest6423164239_ _rest64229_) + (_else6423364247_ (lambda () _constructor64230_)) + (_K6423564261_ + (lambda (_rest64250_ _hd64251_) + (let ((_$e64253_ (let () (declare (not safe)) (##unchecked-structure-ref - _hd63989_ + _hd64251_ '10 class::t '#f)))) - (if _$e63991_ - ((lambda (_xconstructor63994_) + (if _$e64253_ + ((lambda (_xconstructor64256_) (if (or (let () (declare (not safe)) - (not _constructor63968_)) + (not _constructor64230_)) (let () (declare (not safe)) - (eq? _constructor63968_ - _xconstructor63994_))) + (eq? _constructor64230_ + _xconstructor64256_))) (let () (declare (not safe)) - (_lp63965_ _rest63988_ _xconstructor63994_)) + (_lp64227_ _rest64250_ _xconstructor64256_)) (let () (declare (not safe)) (error '"conflicting implicit constructors" - _constructor63968_ - _xconstructor63994_)))) - _$e63991_) + _constructor64230_ + _xconstructor64256_)))) + _$e64253_) (let () (declare (not safe)) - (_lp63965_ _rest63988_ _constructor63968_))))))) - (if (let () (declare (not safe)) (##pair? _rest6396963977_)) - (let ((_hd6397464002_ - (let () (declare (not safe)) (##car _rest6396963977_))) - (_tl6397564004_ - (let () (declare (not safe)) (##cdr _rest6396963977_)))) - (let* ((_hd64007_ _hd6397464002_) - (_rest64009_ _tl6397564004_)) + (_lp64227_ _rest64250_ _constructor64230_))))))) + (if (let () (declare (not safe)) (##pair? _rest6423164239_)) + (let ((_hd6423664264_ + (let () (declare (not safe)) (##car _rest6423164239_))) + (_tl6423764266_ + (let () (declare (not safe)) (##cdr _rest6423164239_)))) + (let* ((_hd64269_ _hd6423664264_) + (_rest64271_ _tl6423764266_)) (declare (not safe)) - (_K6397363999_ _rest64009_ _hd64007_))) - (let () (declare (not safe)) (_else6397163985_))))))) + (_K6423564261_ _rest64271_ _hd64269_))) + (let () (declare (not safe)) (_else6423364247_))))))) (define compute-class-slots - (lambda (_class-precedence-list63939_ _direct-slots63940_) - (let* ((_next-slot63942_ '1) - (_slot-table63944_ + (lambda (_class-precedence-list64201_ _direct-slots64202_) + (let* ((_next-slot64204_ '1) + (_slot-table64206_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_r-slots63946_ '(__class)) - (_process-slot63950_ - (lambda (_slot63948_) - (if (let () (declare (not safe)) (symbol? _slot63948_)) + (_r-slots64208_ '(__class)) + (_process-slot64212_ + (lambda (_slot64210_) + (if (let () (declare (not safe)) (symbol? _slot64210_)) '#!void (let () (declare (not safe)) - (error '"invalid slot name" _slot63948_))) - (if (let ((__tmp64643 + (error '"invalid slot name" _slot64210_))) + (if (let ((__tmp64905 (let () (declare (not safe)) (symbolic-table-ref - _slot-table63944_ - _slot63948_ + _slot-table64206_ + _slot64210_ absent-value)))) (declare (not safe)) - (eq? __tmp64643 absent-value)) + (eq? __tmp64905 absent-value)) (begin (let () (declare (not safe)) (symbolic-table-set! - _slot-table63944_ - _slot63948_ - _next-slot63942_)) - (let ((__tmp64642 (symbol->keyword _slot63948_))) + _slot-table64206_ + _slot64210_ + _next-slot64204_)) + (let ((__tmp64904 (symbol->keyword _slot64210_))) (declare (not safe)) (symbolic-table-set! - _slot-table63944_ - __tmp64642 - _next-slot63942_)) - (set! _r-slots63946_ + _slot-table64206_ + __tmp64904 + _next-slot64204_)) + (set! _r-slots64208_ (let () (declare (not safe)) - (cons _slot63948_ _r-slots63946_))) - (set! _next-slot63942_ + (cons _slot64210_ _r-slots64208_))) + (set! _next-slot64204_ (let () (declare (not safe)) - (##fx+ _next-slot63942_ '1)))) + (##fx+ _next-slot64204_ '1)))) '#!void))) - (_process-slots63956_ - (lambda (_g6395163953_) - (for-each _process-slot63950_ _g6395163953_)))) + (_process-slots64218_ + (lambda (_g6421364215_) + (for-each _process-slot64212_ _g6421364215_)))) (for-each - (lambda (_mixin63959_) - (let ((__tmp64644 - (let ((__tmp64645 + (lambda (_mixin64221_) + (let ((__tmp64906 + (let ((__tmp64907 (let () (declare (not safe)) (##unchecked-structure-ref - _mixin63959_ + _mixin64221_ '9 class::t '#f)))) (declare (not safe)) - (assgetq__% 'direct-slots: __tmp64645 '())))) + (assgetq__% 'direct-slots: __tmp64907 '())))) (declare (not safe)) - (_process-slots63956_ __tmp64644))) - (reverse _class-precedence-list63939_)) + (_process-slots64218_ __tmp64906))) + (reverse _class-precedence-list64201_)) (let () (declare (not safe)) - (_process-slots63956_ _direct-slots63940_)) - (let ((_slot-vector63961_ (list->vector (reverse _r-slots63946_)))) - (values _slot-vector63961_ _slot-table63944_))))) + (_process-slots64218_ _direct-slots64202_)) + (let ((_slot-vector64223_ (list->vector (reverse _r-slots64208_)))) + (values _slot-vector64223_ _slot-table64206_))))) (define make-class-type - (lambda (_id63901_ - _name63902_ - _direct-supers63903_ - _direct-slots63904_ - _properties63905_ - _constructor63906_) - (let ((_$e63911_ - (let ((__tmp64646 - (lambda (_$obj63908_) - (let ((__tmp64647 + (lambda (_id64163_ + _name64164_ + _direct-supers64165_ + _direct-slots64166_ + _properties64167_ + _constructor64168_) + (let ((_$e64173_ + (let ((__tmp64908 + (lambda (_$obj64170_) + (let ((__tmp64909 (let () (declare (not safe)) (##structure-instance-of? - _$obj63908_ + _$obj64170_ 'gerbil#class::t)))) (declare (not safe)) - (not __tmp64647))))) + (not __tmp64909))))) (declare (not safe)) - (find __tmp64646 _direct-supers63903_)))) - (if _$e63911_ - ((lambda (_g6391363915_) + (find __tmp64908 _direct-supers64165_)))) + (if _$e64173_ + ((lambda (_g6417564177_) (let () (declare (not safe)) (error '"Illegal super class; not a class descriptor" - _g6391363915_))) - _$e63911_) - (let ((_$e63918_ + _g6417564177_))) + _$e64173_) + (let ((_$e64180_ (let () (declare (not safe)) - (find class-type-final? _direct-supers63903_)))) - (if _$e63918_ - ((lambda (_g6392063922_) + (find class-type-final? _direct-supers64165_)))) + (if _$e64180_ + ((lambda (_g6418264184_) (let () (declare (not safe)) - (error '"Cannot extend final class" _g6392063922_))) - _$e63918_) + (error '"Cannot extend final class" _g6418264184_))) + _$e64180_) '#!void)))) - (let ((_g64648_ + (let ((_g64910_ (let () (declare (not safe)) - (compute-precedence-list _direct-supers63903_)))) + (compute-precedence-list _direct-supers64165_)))) (begin - (let ((_g64649_ + (let ((_g64911_ (let () (declare (not safe)) - (if (##values? _g64648_) (##vector-length _g64648_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g64649_ 2))) - (error "Context expects 2 values" _g64649_))) - (let ((_precedence-list63925_ - (let () (declare (not safe)) (##vector-ref _g64648_ 0))) - (_struct-super63926_ - (let () (declare (not safe)) (##vector-ref _g64648_ 1)))) - (let ((_g64650_ + (if (##values? _g64910_) (##vector-length _g64910_) 1)))) + (if (not (let () (declare (not safe)) (##fx= _g64911_ 2))) + (error "Context expects 2 values" _g64911_))) + (let ((_precedence-list64187_ + (let () (declare (not safe)) (##vector-ref _g64910_ 0))) + (_struct-super64188_ + (let () (declare (not safe)) (##vector-ref _g64910_ 1)))) + (let ((_g64912_ (let () (declare (not safe)) (compute-class-slots - _precedence-list63925_ - _direct-slots63904_)))) + _precedence-list64187_ + _direct-slots64166_)))) (begin - (let ((_g64651_ + (let ((_g64913_ (let () (declare (not safe)) - (if (##values? _g64650_) - (##vector-length _g64650_) + (if (##values? _g64912_) + (##vector-length _g64912_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g64651_ 2))) - (error "Context expects 2 values" _g64651_))) - (let ((_slot-vector63928_ + (if (not (let () (declare (not safe)) (##fx= _g64913_ 2))) + (error "Context expects 2 values" _g64913_))) + (let ((_slot-vector64190_ (let () (declare (not safe)) - (##vector-ref _g64650_ 0))) - (_slot-table63929_ + (##vector-ref _g64912_ 0))) + (_slot-table64191_ (let () (declare (not safe)) - (##vector-ref _g64650_ 1)))) - (let* ((_properties63931_ - (let ((__tmp64654 + (##vector-ref _g64912_ 1)))) + (let* ((_properties64193_ + (let ((__tmp64916 (let () (declare (not safe)) (cons 'direct-slots: - _direct-slots63904_))) - (__tmp64652 - (let ((__tmp64653 + _direct-slots64166_))) + (__tmp64914 + (let ((__tmp64915 (let () (declare (not safe)) (cons 'direct-supers: - _direct-supers63903_)))) + _direct-supers64165_)))) (declare (not safe)) - (cons __tmp64653 _properties63905_)))) + (cons __tmp64915 _properties64167_)))) (declare (not safe)) - (cons __tmp64654 __tmp64652))) - (_constructor*63936_ - (let ((_$e63933_ _constructor63906_)) - (if _$e63933_ - _$e63933_ + (cons __tmp64916 __tmp64914))) + (_constructor*64198_ + (let ((_$e64195_ _constructor64168_)) + (if _$e64195_ + _$e64195_ (let () (declare (not safe)) (find-super-constructor - _direct-supers63903_)))))) + _direct-supers64165_)))))) (let () (declare (not safe)) (make-class-type-descriptor - _id63901_ - _name63902_ - _struct-super63926_ - _precedence-list63925_ - _slot-vector63928_ - _properties63931_ - _constructor*63936_ - _slot-table63929_ + _id64163_ + _name64164_ + _struct-super64188_ + _precedence-list64187_ + _slot-vector64190_ + _properties64193_ + _constructor*64198_ + _slot-table64191_ '#f))))))))))) (define class-precedence-list - (lambda (_klass63899_) - (let ((__tmp64655 + (lambda (_klass64161_) + (let ((__tmp64917 (let () (declare (not safe)) - (##unchecked-structure-ref _klass63899_ '6 class::t '#f)))) + (##unchecked-structure-ref _klass64161_ '6 class::t '#f)))) (declare (not safe)) - (cons _klass63899_ __tmp64655)))) + (cons _klass64161_ __tmp64917)))) (define compute-precedence-list - (lambda (_direct-supers63897_) + (lambda (_direct-supers64159_) (let () (declare (not safe)) (c4-linearize '() - _direct-supers63897_ + _direct-supers64159_ 'get-precedence-list: class-precedence-list 'struct: @@ -1269,2558 +1269,2558 @@ 'get-name: ##type-name)))) (define make-class-predicate - (lambda (_klass63881_) - (let ((_tid63883_ - (let () (declare (not safe)) (##type-id _klass63881_)))) - (if (let () (declare (not safe)) (class-type-final? _klass63881_)) - (lambda (_g6388463886_) + (lambda (_klass64143_) + (let ((_tid64145_ + (let () (declare (not safe)) (##type-id _klass64143_)))) + (if (let () (declare (not safe)) (class-type-final? _klass64143_)) + (lambda (_g6414664148_) (let () (declare (not safe)) - (##structure-direct-instance-of? _g6388463886_ _tid63883_))) + (##structure-direct-instance-of? _g6414664148_ _tid64145_))) (if (let () (declare (not safe)) - (class-type-struct? _klass63881_)) - (lambda (_g6388863890_) + (class-type-struct? _klass64143_)) + (lambda (_g6415064152_) (let () (declare (not safe)) - (##structure-instance-of? _g6388863890_ _tid63883_))) - (lambda (_g6389263894_) + (##structure-instance-of? _g6415064152_ _tid64145_))) + (lambda (_g6415464156_) (let () (declare (not safe)) - (class-instance? _klass63881_ _g6389263894_)))))))) + (class-instance? _klass64143_ _g6415464156_)))))))) (define if-class-slot-field - (lambda (_klass63870_ - _slot63871_ - _if-final63872_ - _if-struct63873_ - _if-struct-field63874_ - _if-class-slot63875_) - (let ((_field63877_ - (let ((__tmp64656 + (lambda (_klass64132_ + _slot64133_ + _if-final64134_ + _if-struct64135_ + _if-struct-field64136_ + _if-class-slot64137_) + (let ((_field64139_ + (let ((__tmp64918 (let () (declare (not safe)) (##unchecked-structure-ref - _klass63870_ + _klass64132_ '8 class::t '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp64656 _slot63871_ '#f)))) - (if (let () (declare (not safe)) (not _field63877_)) + (symbolic-table-ref __tmp64918 _slot64133_ '#f)))) + (if (let () (declare (not safe)) (not _field64139_)) (let () (declare (not safe)) (error '"unknown slot" 'class: - _klass63870_ + _klass64132_ 'slot: - _slot63871_)) + _slot64133_)) (if (let () (declare (not safe)) - (class-type-final? _klass63870_)) - (_if-final63872_ _klass63870_ _slot63871_ _field63877_) + (class-type-final? _klass64132_)) + (_if-final64134_ _klass64132_ _slot64133_ _field64139_) (if (let () (declare (not safe)) - (class-type-struct? _klass63870_)) - (_if-struct63873_ _klass63870_ _slot63871_ _field63877_) - (if (let ((_strukt63879_ + (class-type-struct? _klass64132_)) + (_if-struct64135_ _klass64132_ _slot64133_ _field64139_) + (if (let ((_strukt64141_ (let () (declare (not safe)) - (base-struct/1 _klass63870_)))) + (base-struct/1 _klass64132_)))) (and (let () (declare (not safe)) (##structure-instance-of? - _strukt63879_ + _strukt64141_ 'gerbil#class::t)) - (let ((__tmp64657 - (let ((__tmp64658 + (let ((__tmp64919 + (let ((__tmp64920 (let () (declare (not safe)) (##unchecked-structure-ref - _strukt63879_ + _strukt64141_ '7 class::t '#f)))) (declare (not safe)) - (##vector-length __tmp64658)))) + (##vector-length __tmp64920)))) (declare (not safe)) - (##fx< _field63877_ __tmp64657)))) - (_if-struct-field63874_ - _klass63870_ - _slot63871_ - _field63877_) - (_if-class-slot63875_ - _klass63870_ - _slot63871_ - _field63877_)))))))) + (##fx< _field64139_ __tmp64919)))) + (_if-struct-field64136_ + _klass64132_ + _slot64133_ + _field64139_) + (_if-class-slot64137_ + _klass64132_ + _slot64133_ + _field64139_)))))))) (define make-class-slot-accessor - (lambda (_klass63867_ _slot63868_) + (lambda (_klass64129_ _slot64130_) (let () (declare (not safe)) (if-class-slot-field - _klass63867_ - _slot63868_ + _klass64129_ + _slot64130_ make-final-slot-accessor make-struct-slot-accessor make-struct-subclass-slot-accessor make-class-cached-slot-accessor)))) (define make-class-slot-mutator - (lambda (_klass63864_ _slot63865_) + (lambda (_klass64126_ _slot64127_) (let () (declare (not safe)) (if-class-slot-field - _klass63864_ - _slot63865_ + _klass64126_ + _slot64127_ make-final-slot-mutator make-struct-slot-mutator make-struct-subclass-slot-mutator make-class-cached-slot-mutator)))) (define make-class-slot-unchecked-accessor - (lambda (_klass63861_ _slot63862_) + (lambda (_klass64123_ _slot64124_) (let () (declare (not safe)) (if-class-slot-field - _klass63861_ - _slot63862_ + _klass64123_ + _slot64124_ make-struct-slot-unchecked-accessor make-struct-slot-unchecked-accessor make-struct-slot-unchecked-accessor make-class-cached-slot-unchecked-accessor)))) (define make-class-slot-unchecked-mutator - (lambda (_klass63858_ _slot63859_) + (lambda (_klass64120_ _slot64121_) (let () (declare (not safe)) (if-class-slot-field - _klass63858_ - _slot63859_ + _klass64120_ + _slot64121_ make-struct-slot-unchecked-mutator make-struct-slot-unchecked-mutator make-struct-slot-unchecked-mutator make-class-cached-slot-unchecked-mutator)))) (define not-an-instance__% - (lambda (_object63842_ _class63843_ _slot63844_) + (lambda (_object64104_ _class64105_ _slot64106_) (apply error '"not an instance" 'object: - _object63842_ + _object64104_ 'class: - _class63843_ - (if _slot63844_ - (let ((__tmp64659 + _class64105_ + (if _slot64106_ + (let ((__tmp64921 (let () (declare (not safe)) - (cons _slot63844_ '())))) + (cons _slot64106_ '())))) (declare (not safe)) - (cons 'slot: __tmp64659)) + (cons 'slot: __tmp64921)) '())))) (define not-an-instance__0 - (lambda (_object63849_ _class63850_) - (let ((_slot63852_ '#f)) + (lambda (_object64111_ _class64112_) + (let ((_slot64114_ '#f)) (declare (not safe)) - (not-an-instance__% _object63849_ _class63850_ _slot63852_)))) + (not-an-instance__% _object64111_ _class64112_ _slot64114_)))) (define not-an-instance - (lambda _g64661_ - (let ((_g64660_ (let () (declare (not safe)) (##length _g64661_)))) - (cond ((let () (declare (not safe)) (##fx= _g64660_ 2)) - (apply (lambda (_object63849_ _class63850_) + (lambda _g64923_ + (let ((_g64922_ (let () (declare (not safe)) (##length _g64923_)))) + (cond ((let () (declare (not safe)) (##fx= _g64922_ 2)) + (apply (lambda (_object64111_ _class64112_) (let () (declare (not safe)) - (not-an-instance__0 _object63849_ _class63850_))) - _g64661_)) - ((let () (declare (not safe)) (##fx= _g64660_ 3)) - (apply (lambda (_object63854_ _class63855_ _slot63856_) + (not-an-instance__0 _object64111_ _class64112_))) + _g64923_)) + ((let () (declare (not safe)) (##fx= _g64922_ 3)) + (apply (lambda (_object64116_ _class64117_ _slot64118_) (let () (declare (not safe)) (not-an-instance__% - _object63854_ - _class63855_ - _slot63856_))) - _g64661_)) + _object64116_ + _class64117_ + _slot64118_))) + _g64923_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g64661_)))))) + _g64923_)))))) (define make-final-slot-accessor - (lambda (_klass63835_ _slot63836_ _field63837_) - (lambda (_obj63839_) + (lambda (_klass64097_ _slot64098_ _field64099_) + (lambda (_obj64101_) (let () (declare (not safe)) (##direct-structure-ref - _obj63839_ - _field63837_ - _klass63835_ - _slot63836_))))) + _obj64101_ + _field64099_ + _klass64097_ + _slot64098_))))) (define make-final-slot-mutator - (lambda (_klass63828_ _slot63829_ _field63830_) - (lambda (_obj63832_ _val63833_) + (lambda (_klass64090_ _slot64091_ _field64092_) + (lambda (_obj64094_ _val64095_) (let () (declare (not safe)) (##direct-structure-set! - _obj63832_ - _val63833_ - _field63830_ - _klass63828_ - _slot63829_))))) + _obj64094_ + _val64095_ + _field64092_ + _klass64090_ + _slot64091_))))) (define make-struct-slot-accessor - (lambda (_klass63822_ _slot63823_ _field63824_) - (lambda (_obj63826_) + (lambda (_klass64084_ _slot64085_ _field64086_) + (lambda (_obj64088_) (let () (declare (not safe)) (##structure-ref - _obj63826_ - _field63824_ - _klass63822_ - _slot63823_))))) + _obj64088_ + _field64086_ + _klass64084_ + _slot64085_))))) (define make-struct-slot-mutator - (lambda (_klass63815_ _slot63816_ _field63817_) - (lambda (_obj63819_ _val63820_) + (lambda (_klass64077_ _slot64078_ _field64079_) + (lambda (_obj64081_ _val64082_) (let () (declare (not safe)) (##structure-set! - _obj63819_ - _val63820_ - _field63817_ - _klass63815_ - _slot63816_))))) + _obj64081_ + _val64082_ + _field64079_ + _klass64077_ + _slot64078_))))) (define make-struct-slot-unchecked-accessor - (lambda (_klass63809_ _slot63810_ _field63811_) - (lambda (_obj63813_) + (lambda (_klass64071_ _slot64072_ _field64073_) + (lambda (_obj64075_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj63813_ - _field63811_ - _klass63809_ - _slot63810_))))) + _obj64075_ + _field64073_ + _klass64071_ + _slot64072_))))) (define make-struct-slot-unchecked-mutator - (lambda (_klass63802_ _slot63803_ _field63804_) - (lambda (_obj63806_ _val63807_) + (lambda (_klass64064_ _slot64065_ _field64066_) + (lambda (_obj64068_ _val64069_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj63806_ - _val63807_ - _field63804_ - _klass63802_ - _slot63803_))))) + _obj64068_ + _val64069_ + _field64066_ + _klass64064_ + _slot64065_))))) (define make-struct-subclass-slot-accessor - (lambda (_klass63796_ _slot63797_ _field63798_) - (lambda (_obj63800_) + (lambda (_klass64058_ _slot64059_ _field64060_) + (lambda (_obj64062_) (if (let () (declare (not safe)) - (class-instance? _klass63796_ _obj63800_)) + (class-instance? _klass64058_ _obj64062_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj63800_ _field63798_)) + (unchecked-slot-ref _obj64062_ _field64060_)) (let () (declare (not safe)) - (not-an-instance__% _obj63800_ _klass63796_ _slot63797_)))))) + (not-an-instance__% _obj64062_ _klass64058_ _slot64059_)))))) (define make-struct-subclass-slot-mutator - (lambda (_klass63789_ _slot63790_ _field63791_) - (lambda (_obj63793_ _val63794_) + (lambda (_klass64051_ _slot64052_ _field64053_) + (lambda (_obj64055_ _val64056_) (if (let () (declare (not safe)) - (class-instance? _klass63789_ _obj63793_)) + (class-instance? _klass64051_ _obj64055_)) (let () (declare (not safe)) - (unchecked-field-set! _obj63793_ _field63791_ _val63794_)) + (unchecked-field-set! _obj64055_ _field64053_ _val64056_)) (let () (declare (not safe)) - (not-an-instance__% _obj63793_ _klass63789_ _slot63790_)))))) + (not-an-instance__% _obj64055_ _klass64051_ _slot64052_)))))) (define make-class-cached-slot-accessor - (lambda (_klass63783_ _slot63784_ _field63785_) - (lambda (_obj63787_) - (if (let ((__tmp64662 - (let () (declare (not safe)) (##type-id _klass63783_)))) + (lambda (_klass64045_ _slot64046_ _field64047_) + (lambda (_obj64049_) + (if (let ((__tmp64924 + (let () (declare (not safe)) (##type-id _klass64045_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63787_ __tmp64662)) + (##structure-direct-instance-of? _obj64049_ __tmp64924)) (let () (declare (not safe)) - (unchecked-field-ref _obj63787_ _field63785_)) + (unchecked-field-ref _obj64049_ _field64047_)) (if (let () (declare (not safe)) - (class-instance? _klass63783_ _obj63787_)) + (class-instance? _klass64045_ _obj64049_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj63787_ _slot63784_)) + (unchecked-slot-ref _obj64049_ _slot64046_)) (let () (declare (not safe)) (not-an-instance__% - _obj63787_ - _klass63783_ - _slot63784_))))))) + _obj64049_ + _klass64045_ + _slot64046_))))))) (define make-class-cached-slot-mutator - (lambda (_klass63776_ _slot63777_ _field63778_) - (lambda (_obj63780_ _val63781_) - (if (let ((__tmp64663 - (let () (declare (not safe)) (##type-id _klass63776_)))) + (lambda (_klass64038_ _slot64039_ _field64040_) + (lambda (_obj64042_ _val64043_) + (if (let ((__tmp64925 + (let () (declare (not safe)) (##type-id _klass64038_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63780_ __tmp64663)) + (##structure-direct-instance-of? _obj64042_ __tmp64925)) (let () (declare (not safe)) - (unchecked-field-set! _obj63780_ _field63778_ _val63781_)) + (unchecked-field-set! _obj64042_ _field64040_ _val64043_)) (if (let () (declare (not safe)) - (class-instance? _klass63776_ _obj63780_)) + (class-instance? _klass64038_ _obj64042_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj63780_ _slot63777_ _val63781_)) + (unchecked-slot-set! _obj64042_ _slot64039_ _val64043_)) (let () (declare (not safe)) (not-an-instance__% - _obj63780_ - _klass63776_ - _slot63777_))))))) + _obj64042_ + _klass64038_ + _slot64039_))))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_klass63770_ _slot63771_ _field63772_) - (lambda (_obj63774_) - (if (let ((__tmp64664 - (let () (declare (not safe)) (##type-id _klass63770_)))) + (lambda (_klass64032_ _slot64033_ _field64034_) + (lambda (_obj64036_) + (if (let ((__tmp64926 + (let () (declare (not safe)) (##type-id _klass64032_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63774_ __tmp64664)) + (##structure-direct-instance-of? _obj64036_ __tmp64926)) (let () (declare (not safe)) - (unchecked-field-ref _obj63774_ _field63772_)) + (unchecked-field-ref _obj64036_ _field64034_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj63774_ _slot63771_)))))) + (unchecked-slot-ref _obj64036_ _slot64033_)))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_klass63763_ _slot63764_ _field63765_) - (lambda (_obj63767_ _val63768_) - (if (let ((__tmp64665 - (let () (declare (not safe)) (##type-id _klass63763_)))) + (lambda (_klass64025_ _slot64026_ _field64027_) + (lambda (_obj64029_ _val64030_) + (if (let ((__tmp64927 + (let () (declare (not safe)) (##type-id _klass64025_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63767_ __tmp64665)) + (##structure-direct-instance-of? _obj64029_ __tmp64927)) (let () (declare (not safe)) - (unchecked-field-set! _obj63767_ _field63765_ _val63768_)) + (unchecked-field-set! _obj64029_ _field64027_ _val64030_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj63767_ _slot63764_ _val63768_)))))) + (unchecked-slot-set! _obj64029_ _slot64026_ _val64030_)))))) (define class-slot-offset - (lambda (_klass63760_ _slot63761_) - (let ((__tmp64666 + (lambda (_klass64022_ _slot64023_) + (let ((__tmp64928 (let () (declare (not safe)) - (##unchecked-structure-ref _klass63760_ '8 class::t '#f)))) + (##unchecked-structure-ref _klass64022_ '8 class::t '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp64666 _slot63761_ '#f)))) + (symbolic-table-ref __tmp64928 _slot64023_ '#f)))) (define class-slot-ref - (lambda (_klass63754_ _obj63755_ _slot63756_) + (lambda (_klass64016_ _obj64017_ _slot64018_) (if (let () (declare (not safe)) - (class-instance? _klass63754_ _obj63755_)) - (let ((_off63758_ - (let ((__tmp64667 (object-type _obj63755_))) + (class-instance? _klass64016_ _obj64017_)) + (let ((_off64020_ + (let ((__tmp64929 (object-type _obj64017_))) (declare (not safe)) - (class-slot-offset __tmp64667 _slot63756_)))) + (class-slot-offset __tmp64929 _slot64018_)))) (declare (not safe)) (##unchecked-structure-ref - _obj63755_ - _off63758_ - _klass63754_ - _slot63756_)) + _obj64017_ + _off64020_ + _klass64016_ + _slot64018_)) (let () (declare (not safe)) - (not-an-instance__0 _obj63755_ _klass63754_))))) + (not-an-instance__0 _obj64017_ _klass64016_))))) (define class-slot-set! - (lambda (_klass63747_ _obj63748_ _slot63749_ _val63750_) + (lambda (_klass64009_ _obj64010_ _slot64011_ _val64012_) (if (let () (declare (not safe)) - (class-instance? _klass63747_ _obj63748_)) - (let ((_off63752_ - (let ((__tmp64668 (object-type _obj63748_))) + (class-instance? _klass64009_ _obj64010_)) + (let ((_off64014_ + (let ((__tmp64930 (object-type _obj64010_))) (declare (not safe)) - (class-slot-offset __tmp64668 _slot63749_)))) + (class-slot-offset __tmp64930 _slot64011_)))) (declare (not safe)) (##unchecked-structure-set! - _obj63748_ - _val63750_ - _off63752_ - _klass63747_ - _slot63749_)) + _obj64010_ + _val64012_ + _off64014_ + _klass64009_ + _slot64011_)) (let () (declare (not safe)) - (not-an-instance__0 _obj63748_ _klass63747_))))) + (not-an-instance__0 _obj64010_ _klass64009_))))) (define unchecked-field-ref - (lambda (_obj63744_ _off63745_) - (let ((__tmp64669 - (let () (declare (not safe)) (##structure-type _obj63744_)))) + (lambda (_obj64006_ _off64007_) + (let ((__tmp64931 + (let () (declare (not safe)) (##structure-type _obj64006_)))) (declare (not safe)) - (##unchecked-structure-ref _obj63744_ _off63745_ __tmp64669 '#f)))) + (##unchecked-structure-ref _obj64006_ _off64007_ __tmp64931 '#f)))) (define unchecked-field-set! - (lambda (_obj63740_ _off63741_ _val63742_) - (let ((__tmp64670 - (let () (declare (not safe)) (##structure-type _obj63740_)))) + (lambda (_obj64002_ _off64003_ _val64004_) + (let ((__tmp64932 + (let () (declare (not safe)) (##structure-type _obj64002_)))) (declare (not safe)) (##unchecked-structure-set! - _obj63740_ - _val63742_ - _off63741_ - __tmp64670 + _obj64002_ + _val64004_ + _off64003_ + __tmp64932 '#f)))) (define unchecked-slot-ref - (lambda (_obj63737_ _slot63738_) - (let ((__tmp64671 - (let ((__tmp64672 + (lambda (_obj63999_ _slot64000_) + (let ((__tmp64933 + (let ((__tmp64934 (let () (declare (not safe)) - (##structure-type _obj63737_)))) + (##structure-type _obj63999_)))) (declare (not safe)) - (class-slot-offset __tmp64672 _slot63738_)))) + (class-slot-offset __tmp64934 _slot64000_)))) (declare (not safe)) - (unchecked-field-ref _obj63737_ __tmp64671)))) + (unchecked-field-ref _obj63999_ __tmp64933)))) (define unchecked-slot-set! - (lambda (_obj63733_ _slot63734_ _val63735_) - (let ((__tmp64673 - (let ((__tmp64674 + (lambda (_obj63995_ _slot63996_ _val63997_) + (let ((__tmp64935 + (let ((__tmp64936 (let () (declare (not safe)) - (##structure-type _obj63733_)))) + (##structure-type _obj63995_)))) (declare (not safe)) - (class-slot-offset __tmp64674 _slot63734_)))) + (class-slot-offset __tmp64936 _slot63996_)))) (declare (not safe)) - (unchecked-field-set! _obj63733_ __tmp64673 _val63735_)))) + (unchecked-field-set! _obj63995_ __tmp64935 _val63997_)))) (define slot-ref__% - (lambda (_obj63709_ _slot63710_ _E63711_) - (if (object? _obj63709_) - (let* ((_klass63713_ (object-type _obj63709_)) - (_$e63716_ + (lambda (_obj63971_ _slot63972_ _E63973_) + (if (object? _obj63971_) + (let* ((_klass63975_ (object-type _obj63971_)) + (_$e63978_ (if (let () (declare (not safe)) (##structure-instance-of? - _klass63713_ + _klass63975_ 'gerbil#class::t)) (let () (declare (not safe)) - (class-slot-offset _klass63713_ _slot63710_)) + (class-slot-offset _klass63975_ _slot63972_)) '#f))) - (if _$e63716_ - ((lambda (_off63719_) + (if _$e63978_ + ((lambda (_off63981_) (let () (declare (not safe)) - (unchecked-field-ref _obj63709_ _off63719_))) - _$e63716_) - (_E63711_ _obj63709_ _slot63710_))) - (_E63711_ _obj63709_ _slot63710_)))) + (unchecked-field-ref _obj63971_ _off63981_))) + _$e63978_) + (_E63973_ _obj63971_ _slot63972_))) + (_E63973_ _obj63971_ _slot63972_)))) (define slot-ref__0 - (lambda (_obj63724_ _slot63725_) - (let ((_E63727_ __slot-error)) + (lambda (_obj63986_ _slot63987_) + (let ((_E63989_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj63724_ _slot63725_ _E63727_)))) + (slot-ref__% _obj63986_ _slot63987_ _E63989_)))) (define slot-ref - (lambda _g64676_ - (let ((_g64675_ (let () (declare (not safe)) (##length _g64676_)))) - (cond ((let () (declare (not safe)) (##fx= _g64675_ 2)) - (apply (lambda (_obj63724_ _slot63725_) + (lambda _g64938_ + (let ((_g64937_ (let () (declare (not safe)) (##length _g64938_)))) + (cond ((let () (declare (not safe)) (##fx= _g64937_ 2)) + (apply (lambda (_obj63986_ _slot63987_) (let () (declare (not safe)) - (slot-ref__0 _obj63724_ _slot63725_))) - _g64676_)) - ((let () (declare (not safe)) (##fx= _g64675_ 3)) - (apply (lambda (_obj63729_ _slot63730_ _E63731_) + (slot-ref__0 _obj63986_ _slot63987_))) + _g64938_)) + ((let () (declare (not safe)) (##fx= _g64937_ 3)) + (apply (lambda (_obj63991_ _slot63992_ _E63993_) (let () (declare (not safe)) - (slot-ref__% _obj63729_ _slot63730_ _E63731_))) - _g64676_)) + (slot-ref__% _obj63991_ _slot63992_ _E63993_))) + _g64938_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g64676_)))))) + _g64938_)))))) (define slot-set!__% - (lambda (_obj63681_ _slot63682_ _val63683_ _E63684_) - (if (object? _obj63681_) - (let* ((_klass63686_ (object-type _obj63681_)) - (_$e63689_ + (lambda (_obj63943_ _slot63944_ _val63945_ _E63946_) + (if (object? _obj63943_) + (let* ((_klass63948_ (object-type _obj63943_)) + (_$e63951_ (if (let () (declare (not safe)) (##structure-instance-of? - _klass63686_ + _klass63948_ 'gerbil#class::t)) (let () (declare (not safe)) - (class-slot-offset _klass63686_ _slot63682_)) + (class-slot-offset _klass63948_ _slot63944_)) '#f))) - (if _$e63689_ - ((lambda (_off63692_) + (if _$e63951_ + ((lambda (_off63954_) (let () (declare (not safe)) (unchecked-field-set! - _obj63681_ - _off63692_ - _val63683_))) - _$e63689_) - (_E63684_ _obj63681_ _slot63682_))) - (_E63684_ _obj63681_ _slot63682_)))) + _obj63943_ + _off63954_ + _val63945_))) + _$e63951_) + (_E63946_ _obj63943_ _slot63944_))) + (_E63946_ _obj63943_ _slot63944_)))) (define slot-set!__0 - (lambda (_obj63697_ _slot63698_ _val63699_) - (let ((_E63701_ __slot-error)) + (lambda (_obj63959_ _slot63960_ _val63961_) + (let ((_E63963_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj63697_ _slot63698_ _val63699_ _E63701_)))) + (slot-set!__% _obj63959_ _slot63960_ _val63961_ _E63963_)))) (define slot-set! - (lambda _g64678_ - (let ((_g64677_ (let () (declare (not safe)) (##length _g64678_)))) - (cond ((let () (declare (not safe)) (##fx= _g64677_ 3)) - (apply (lambda (_obj63697_ _slot63698_ _val63699_) + (lambda _g64940_ + (let ((_g64939_ (let () (declare (not safe)) (##length _g64940_)))) + (cond ((let () (declare (not safe)) (##fx= _g64939_ 3)) + (apply (lambda (_obj63959_ _slot63960_ _val63961_) (let () (declare (not safe)) - (slot-set!__0 _obj63697_ _slot63698_ _val63699_))) - _g64678_)) - ((let () (declare (not safe)) (##fx= _g64677_ 4)) - (apply (lambda (_obj63703_ _slot63704_ _val63705_ _E63706_) + (slot-set!__0 _obj63959_ _slot63960_ _val63961_))) + _g64940_)) + ((let () (declare (not safe)) (##fx= _g64939_ 4)) + (apply (lambda (_obj63965_ _slot63966_ _val63967_ _E63968_) (let () (declare (not safe)) (slot-set!__% - _obj63703_ - _slot63704_ - _val63705_ - _E63706_))) - _g64678_)) + _obj63965_ + _slot63966_ + _val63967_ + _E63968_))) + _g64940_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g64678_)))))) + _g64940_)))))) (define __slot-error - (lambda (_obj63677_ _slot63678_) + (lambda (_obj63939_ _slot63940_) (let () (declare (not safe)) - (error '"Cannot find slot" 'object: _obj63677_ 'slot: _slot63678_)))) + (error '"Cannot find slot" 'object: _obj63939_ 'slot: _slot63940_)))) (define subclass? - (lambda (_maybe-sub-class63667_ _maybe-super-class63668_) - (let* ((_maybe-super-class-id63670_ + (lambda (_maybe-sub-class63929_ _maybe-super-class63930_) + (let* ((_maybe-super-class-id63932_ (let () (declare (not safe)) - (##type-id _maybe-super-class63668_))) - (_$e63672_ - (let ((__tmp64679 + (##type-id _maybe-super-class63930_))) + (_$e63934_ + (let ((__tmp64941 (let () (declare (not safe)) - (##type-id _maybe-sub-class63667_)))) + (##type-id _maybe-sub-class63929_)))) (declare (not safe)) - (eq? _maybe-super-class-id63670_ __tmp64679)))) - (if _$e63672_ - _$e63672_ - (let ((__tmp64681 - (lambda (_super-class63675_) - (let ((__tmp64682 + (eq? _maybe-super-class-id63932_ __tmp64941)))) + (if _$e63934_ + _$e63934_ + (let ((__tmp64943 + (lambda (_super-class63937_) + (let ((__tmp64944 (let () (declare (not safe)) - (##type-id _super-class63675_)))) + (##type-id _super-class63937_)))) (declare (not safe)) - (eq? __tmp64682 _maybe-super-class-id63670_)))) - (__tmp64680 + (eq? __tmp64944 _maybe-super-class-id63932_)))) + (__tmp64942 (let () (declare (not safe)) (##unchecked-structure-ref - _maybe-sub-class63667_ + _maybe-sub-class63929_ '6 class::t '#f)))) (declare (not safe)) - (ormap1 __tmp64681 __tmp64680)))))) + (ormap1 __tmp64943 __tmp64942)))))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass63664_ _obj63665_) - (let ((__tmp64683 - (let () (declare (not safe)) (##type-id _klass63664_)))) + (lambda (_klass63926_ _obj63927_) + (let ((__tmp64945 + (let () (declare (not safe)) (##type-id _klass63926_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj63665_ __tmp64683)))) + (##structure-direct-instance-of? _obj63927_ __tmp64945)))) (define struct-instance? - (lambda (_klass63661_ _obj63662_) - (let ((__tmp64684 - (let () (declare (not safe)) (##type-id _klass63661_)))) + (lambda (_klass63923_ _obj63924_) + (let ((__tmp64946 + (let () (declare (not safe)) (##type-id _klass63923_)))) (declare (not safe)) - (##structure-instance-of? _obj63662_ __tmp64684)))) + (##structure-instance-of? _obj63924_ __tmp64946)))) (define class-instance? - (lambda (_klass63656_ _obj63657_) - (if (object? _obj63657_) - (let ((_type63659_ (object-type _obj63657_))) + (lambda (_klass63918_ _obj63919_) + (if (object? _obj63919_) + (let ((_type63921_ (object-type _obj63919_))) (if (let () (declare (not safe)) - (##structure-instance-of? _type63659_ 'gerbil#class::t)) + (##structure-instance-of? _type63921_ 'gerbil#class::t)) (let () (declare (not safe)) - (subclass? _type63659_ _klass63656_)) + (subclass? _type63921_ _klass63918_)) '#f)) '#f))) (define make-object - (lambda (_klass63651_ _k63652_) - (let ((_obj63654_ + (lambda (_klass63913_ _k63914_) + (let ((_obj63916_ (let () (declare (not safe)) - (##make-structure _klass63651_ _k63652_)))) - (let () (declare (not safe)) (object-fill! _obj63654_ '#f)) - _obj63654_))) + (##make-structure _klass63913_ _k63914_)))) + (let () (declare (not safe)) (object-fill! _obj63916_ '#f)) + _obj63916_))) (define object-fill! - (lambda (_obj63644_ _fill63645_) - (let _loop63647_ ((_i63649_ - (let ((__tmp64686 + (lambda (_obj63906_ _fill63907_) + (let _loop63909_ ((_i63911_ + (let ((__tmp64948 (let () (declare (not safe)) - (##structure-length _obj63644_)))) + (##structure-length _obj63906_)))) (declare (not safe)) - (##fx- __tmp64686 '1)))) - (if (let () (declare (not safe)) (##fx> _i63649_ '0)) + (##fx- __tmp64948 '1)))) + (if (let () (declare (not safe)) (##fx> _i63911_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _obj63644_ - _fill63645_ - _i63649_ + _obj63906_ + _fill63907_ + _i63911_ '#f '#f)) - (let ((__tmp64685 - (let () (declare (not safe)) (##fx- _i63649_ '1)))) + (let ((__tmp64947 + (let () (declare (not safe)) (##fx- _i63911_ '1)))) (declare (not safe)) - (_loop63647_ __tmp64685))) - _obj63644_)))) + (_loop63909_ __tmp64947))) + _obj63906_)))) (define new-instance - (lambda (_klass63642_) - (let ((__obj64590 - (let ((__tmp64687 - (let ((__tmp64688 + (lambda (_klass63904_) + (let ((__obj64852 + (let ((__tmp64949 + (let ((__tmp64950 (let () (declare (not safe)) (##unchecked-structure-ref - _klass63642_ + _klass63904_ '7 class::t '#f)))) (declare (not safe)) - (##vector-length __tmp64688)))) + (##vector-length __tmp64950)))) (declare (not safe)) - (##make-structure _klass63642_ __tmp64687)))) - (let () (declare (not safe)) (object-fill! __obj64590 '#f)) - __obj64590))) + (##make-structure _klass63904_ __tmp64949)))) + (let () (declare (not safe)) (object-fill! __obj64852 '#f)) + __obj64852))) (define make-instance - (lambda (_klass63632_ . _args63633_) - (let* ((_obj63635_ - (let () (declare (not safe)) (new-instance _klass63632_))) - (_$e63637_ + (lambda (_klass63894_ . _args63895_) + (let* ((_obj63897_ + (let () (declare (not safe)) (new-instance _klass63894_))) + (_$e63899_ (let () (declare (not safe)) - (##unchecked-structure-ref _klass63632_ '10 class::t '#f)))) - (if _$e63637_ - ((lambda (_kons-id63640_) + (##unchecked-structure-ref _klass63894_ '10 class::t '#f)))) + (if _$e63899_ + ((lambda (_kons-id63902_) (let () (declare (not safe)) (__constructor-init! - _klass63632_ - _kons-id63640_ - _obj63635_ - _args63633_))) - _$e63637_) + _klass63894_ + _kons-id63902_ + _obj63897_ + _args63895_))) + _$e63899_) (if (let () (declare (not safe)) - (class-type-metaclass? _klass63632_)) + (class-type-metaclass? _klass63894_)) (let () (declare (not safe)) (__metaclass-instance-init! - _klass63632_ - _obj63635_ - _args63633_)) - (if (let ((__tmp64693 + _klass63894_ + _obj63897_ + _args63895_)) + (if (let ((__tmp64955 (let () (declare (not safe)) - (class-type-struct? _klass63632_)))) + (class-type-struct? _klass63894_)))) (declare (not safe)) - (not __tmp64693)) + (not __tmp64955)) (let () (declare (not safe)) (__class-instance-init! - _klass63632_ - _obj63635_ - _args63633_)) - (if (let ((__tmp64691 - (let ((__tmp64692 + _klass63894_ + _obj63897_ + _args63895_)) + (if (let ((__tmp64953 + (let ((__tmp64954 (let () (declare (not safe)) - (##structure-length _obj63635_)))) + (##structure-length _obj63897_)))) (declare (not safe)) - (##fx- __tmp64692 '1))) - (__tmp64690 (length _args63633_))) + (##fx- __tmp64954 '1))) + (__tmp64952 (length _args63895_))) (declare (not safe)) - (##fx= __tmp64691 __tmp64690)) - (apply ##structure _klass63632_ _args63633_) - (let ((__tmp64689 + (##fx= __tmp64953 __tmp64952)) + (apply ##structure _klass63894_ _args63895_) + (let ((__tmp64951 (let () (declare (not safe)) - (class-type-slot-list _klass63632_)))) + (class-type-slot-list _klass63894_)))) (declare (not safe)) (error '"arguments don't match object size" 'class: - _klass63632_ + _klass63894_ 'slots: - __tmp64689 + __tmp64951 'args: - _args63633_))))))))) + _args63895_))))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_obj63629_ . _args63630_) - (if (let ((__tmp64695 (length _args63630_)) - (__tmp64694 + (lambda (_obj63891_ . _args63892_) + (if (let ((__tmp64957 (length _args63892_)) + (__tmp64956 (let () (declare (not safe)) - (##structure-length _obj63629_)))) + (##structure-length _obj63891_)))) (declare (not safe)) - (##fx< __tmp64695 __tmp64694)) + (##fx< __tmp64957 __tmp64956)) (let () (declare (not safe)) - (__struct-instance-init! _obj63629_ _args63630_)) + (__struct-instance-init! _obj63891_ _args63892_)) (let () (declare (not safe)) (error '"too many arguments for struct" 'object: - _obj63629_ + _obj63891_ 'args: - _args63630_))))) + _args63892_))))) (define __struct-instance-init! - (lambda (_obj63588_ _args63589_) - (let _lp63591_ ((_k63593_ '1) (_rest63594_ _args63589_)) - (let* ((_rest6359563603_ _rest63594_) - (_else6359763611_ (lambda () _obj63588_)) - (_K6359963617_ - (lambda (_rest63614_ _hd63615_) + (lambda (_obj63850_ _args63851_) + (let _lp63853_ ((_k63855_ '1) (_rest63856_ _args63851_)) + (let* ((_rest6385763865_ _rest63856_) + (_else6385963873_ (lambda () _obj63850_)) + (_K6386163879_ + (lambda (_rest63876_ _hd63877_) (let () (declare (not safe)) - (unchecked-field-set! _obj63588_ _k63593_ _hd63615_)) - (let ((__tmp64696 - (let () (declare (not safe)) (##fx+ _k63593_ '1)))) + (unchecked-field-set! _obj63850_ _k63855_ _hd63877_)) + (let ((__tmp64958 + (let () (declare (not safe)) (##fx+ _k63855_ '1)))) (declare (not safe)) - (_lp63591_ __tmp64696 _rest63614_))))) - (if (let () (declare (not safe)) (##pair? _rest6359563603_)) - (let ((_hd6360063620_ - (let () (declare (not safe)) (##car _rest6359563603_))) - (_tl6360163622_ - (let () (declare (not safe)) (##cdr _rest6359563603_)))) - (let* ((_hd63625_ _hd6360063620_) - (_rest63627_ _tl6360163622_)) + (_lp63853_ __tmp64958 _rest63876_))))) + (if (let () (declare (not safe)) (##pair? _rest6385763865_)) + (let ((_hd6386263882_ + (let () (declare (not safe)) (##car _rest6385763865_))) + (_tl6386363884_ + (let () (declare (not safe)) (##cdr _rest6385763865_)))) + (let* ((_hd63887_ _hd6386263882_) + (_rest63889_ _tl6386363884_)) (declare (not safe)) - (_K6359963617_ _rest63627_ _hd63625_))) - (let () (declare (not safe)) (_else6359763611_))))))) + (_K6386163879_ _rest63889_ _hd63887_))) + (let () (declare (not safe)) (_else6385963873_))))))) (define class-instance-init! - (lambda (_obj63585_ . _args63586_) - (let ((__tmp64697 (object-type _obj63585_))) + (lambda (_obj63847_ . _args63848_) + (let ((__tmp64959 (object-type _obj63847_))) (declare (not safe)) - (__class-instance-init! __tmp64697 _obj63585_ _args63586_)))) + (__class-instance-init! __tmp64959 _obj63847_ _args63848_)))) (define __class-instance-init! - (lambda (_klass63529_ _obj63530_ _args63531_) - (let _lp63533_ ((_rest63535_ _args63531_)) - (let* ((_rest6353663546_ _rest63535_) - (_else6353863554_ + (lambda (_klass63791_ _obj63792_ _args63793_) + (let _lp63795_ ((_rest63797_ _args63793_)) + (let* ((_rest6379863808_ _rest63797_) + (_else6380063816_ (lambda () - (if (let () (declare (not safe)) (null? _rest63535_)) - _obj63530_ + (if (let () (declare (not safe)) (null? _rest63797_)) + _obj63792_ (let () (declare (not safe)) (error '"unexpected class initializer arguments" 'class: - _klass63529_ + _klass63791_ 'rest: - _rest63535_))))) - (_K6354063566_ - (lambda (_rest63557_ _val63558_ _key63559_) - (let ((_$e63561_ + _rest63797_))))) + (_K6380263828_ + (lambda (_rest63819_ _val63820_ _key63821_) + (let ((_$e63823_ (let () (declare (not safe)) - (class-slot-offset _klass63529_ _key63559_)))) - (if _$e63561_ - ((lambda (_off63564_) + (class-slot-offset _klass63791_ _key63821_)))) + (if _$e63823_ + ((lambda (_off63826_) (let () (declare (not safe)) (unchecked-field-set! - _obj63530_ - _off63564_ - _val63558_)) + _obj63792_ + _off63826_ + _val63820_)) (let () (declare (not safe)) - (_lp63533_ _rest63557_))) - _$e63561_) + (_lp63795_ _rest63819_))) + _$e63823_) (let () (declare (not safe)) (error '"unknown slot" 'class: - _klass63529_ + _klass63791_ 'slot: - _key63559_))))))) - (if (let () (declare (not safe)) (##pair? _rest6353663546_)) - (let ((_hd6354163569_ - (let () (declare (not safe)) (##car _rest6353663546_))) - (_tl6354263571_ - (let () (declare (not safe)) (##cdr _rest6353663546_)))) - (let ((_key63574_ _hd6354163569_)) - (if (let () (declare (not safe)) (##pair? _tl6354263571_)) - (let ((_hd6354363576_ + _key63821_))))))) + (if (let () (declare (not safe)) (##pair? _rest6379863808_)) + (let ((_hd6380363831_ + (let () (declare (not safe)) (##car _rest6379863808_))) + (_tl6380463833_ + (let () (declare (not safe)) (##cdr _rest6379863808_)))) + (let ((_key63836_ _hd6380363831_)) + (if (let () (declare (not safe)) (##pair? _tl6380463833_)) + (let ((_hd6380563838_ (let () (declare (not safe)) - (##car _tl6354263571_))) - (_tl6354463578_ + (##car _tl6380463833_))) + (_tl6380663840_ (let () (declare (not safe)) - (##cdr _tl6354263571_)))) - (let* ((_val63581_ _hd6354363576_) - (_rest63583_ _tl6354463578_)) + (##cdr _tl6380463833_)))) + (let* ((_val63843_ _hd6380563838_) + (_rest63845_ _tl6380663840_)) (declare (not safe)) - (_K6354063566_ _rest63583_ _val63581_ _key63574_))) - (let () (declare (not safe)) (_else6353863554_))))) - (let () (declare (not safe)) (_else6353863554_))))))) + (_K6380263828_ _rest63845_ _val63843_ _key63836_))) + (let () (declare (not safe)) (_else6380063816_))))) + (let () (declare (not safe)) (_else6380063816_))))))) (define __metaclass-instance-init! - (lambda (_klass63525_ _obj63526_ _args63527_) + (lambda (_klass63787_ _obj63788_ _args63789_) (apply call-method - _klass63525_ + _klass63787_ 'instance-init! - _obj63526_ - _args63527_))) + _obj63788_ + _args63789_))) (define constructor-init! - (lambda (_klass63520_ _kons-id63521_ _obj63522_ . _args63523_) + (lambda (_klass63782_ _kons-id63783_ _obj63784_ . _args63785_) (let () (declare (not safe)) (__constructor-init! - _klass63520_ - _kons-id63521_ - _obj63522_ - _args63523_)))) + _klass63782_ + _kons-id63783_ + _obj63784_ + _args63785_)))) (define __constructor-init! - (lambda (_klass63510_ _kons-id63511_ _obj63512_ _args63513_) - (let ((_$e63515_ + (lambda (_klass63772_ _kons-id63773_ _obj63774_ _args63775_) + (let ((_$e63777_ (let () (declare (not safe)) - (__find-method _klass63510_ _obj63512_ _kons-id63511_)))) - (if _$e63515_ - ((lambda (_kons63518_) - (apply _kons63518_ _obj63512_ _args63513_) - _obj63512_) - _$e63515_) + (__find-method _klass63772_ _obj63774_ _kons-id63773_)))) + (if _$e63777_ + ((lambda (_kons63780_) + (apply _kons63780_ _obj63774_ _args63775_) + _obj63774_) + _$e63777_) (let () (declare (not safe)) (error '"missing constructor" 'class: - _klass63510_ + _klass63772_ 'method: - _kons-id63511_)))))) + _kons-id63773_)))))) (define struct-copy - (lambda (_struct63508_) - (if (let () (declare (not safe)) (##structure? _struct63508_)) + (lambda (_struct63770_) + (if (let () (declare (not safe)) (##structure? _struct63770_)) '#!void (let () (declare (not safe)) - (error '"not a structure" _struct63508_))) - (let () (declare (not safe)) (##structure-copy _struct63508_)))) + (error '"not a structure" _struct63770_))) + (let () (declare (not safe)) (##structure-copy _struct63770_)))) (define struct->list - (lambda (_obj63506_) - (if (object? _obj63506_) - (let () (declare (not safe)) (##vector->list _obj63506_)) + (lambda (_obj63768_) + (if (object? _obj63768_) + (let () (declare (not safe)) (##vector->list _obj63768_)) (let () (declare (not safe)) - (error '"not an object" _obj63506_))))) + (error '"not an object" _obj63768_))))) (define class->list - (lambda (_obj63493_) - (if (object? _obj63493_) - (let ((_klass63495_ (object-type _obj63493_))) + (lambda (_obj63755_) + (if (object? _obj63755_) + (let ((_klass63757_ (object-type _obj63755_))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass63495_ 'gerbil#class::t)) - (let ((_slot-vector63497_ + (##structure-instance-of? _klass63757_ 'gerbil#class::t)) + (let ((_slot-vector63759_ (let () (declare (not safe)) (##unchecked-structure-ref - _klass63495_ + _klass63757_ '7 class::t '#f)))) - (let _loop63499_ ((_index63501_ - (let ((__tmp64703 + (let _loop63761_ ((_index63763_ + (let ((__tmp64965 (let () (declare (not safe)) (##vector-length - _slot-vector63497_)))) + _slot-vector63759_)))) (declare (not safe)) - (##fx- __tmp64703 '1))) - (_plist63502_ '())) - (if (let () (declare (not safe)) (##fx< _index63501_ '1)) + (##fx- __tmp64965 '1))) + (_plist63764_ '())) + (if (let () (declare (not safe)) (##fx< _index63763_ '1)) (let () (declare (not safe)) - (cons _klass63495_ _plist63502_)) - (let ((_slot63504_ + (cons _klass63757_ _plist63764_)) + (let ((_slot63766_ (let () (declare (not safe)) (##vector-ref - _slot-vector63497_ - _index63501_)))) - (let ((__tmp64702 + _slot-vector63759_ + _index63763_)))) + (let ((__tmp64964 (let () (declare (not safe)) - (##fx- _index63501_ '1))) - (__tmp64698 - (let ((__tmp64701 - (symbol->keyword _slot63504_)) - (__tmp64699 - (let ((__tmp64700 + (##fx- _index63763_ '1))) + (__tmp64960 + (let ((__tmp64963 + (symbol->keyword _slot63766_)) + (__tmp64961 + (let ((__tmp64962 (let () (declare (not safe)) (unchecked-field-ref - _obj63493_ - _index63501_)))) + _obj63755_ + _index63763_)))) (declare (not safe)) - (cons __tmp64700 _plist63502_)))) + (cons __tmp64962 _plist63764_)))) (declare (not safe)) - (cons __tmp64701 __tmp64699)))) + (cons __tmp64963 __tmp64961)))) (declare (not safe)) - (_loop63499_ __tmp64702 __tmp64698)))))) + (_loop63761_ __tmp64964 __tmp64960)))))) (let () (declare (not safe)) (error '"not a class type" 'object: - _obj63493_ + _obj63755_ 'class: - _klass63495_)))) + _klass63757_)))) (let () (declare (not safe)) - (error '"not an object" _obj63493_))))) + (error '"not an object" _obj63755_))))) (define call-method - (lambda (_obj63484_ _id63485_ . _args63486_) - (let ((_$e63488_ + (lambda (_obj63746_ _id63747_ . _args63748_) + (let ((_$e63750_ (let () (declare (not safe)) - (method-ref _obj63484_ _id63485_)))) - (if _$e63488_ - ((lambda (_method63491_) - (apply _method63491_ _obj63484_ _args63486_)) - _$e63488_) + (method-ref _obj63746_ _id63747_)))) + (if _$e63750_ + ((lambda (_method63753_) + (apply _method63753_ _obj63746_ _args63748_)) + _$e63750_) (let () (declare (not safe)) (error '"cannot find method" 'object: - _obj63484_ + _obj63746_ 'method: - _id63485_)))))) + _id63747_)))))) (define __builtin-type-methods (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define method-ref - (lambda (_obj63481_ _id63482_) - (if (object? _obj63481_) - (let ((__tmp64704 (object-type _obj63481_))) + (lambda (_obj63743_ _id63744_) + (if (object? _obj63743_) + (let ((__tmp64966 (object-type _obj63743_))) (declare (not safe)) - (find-method __tmp64704 _obj63481_ _id63482_)) + (find-method __tmp64966 _obj63743_ _id63744_)) '#f))) (define checked-method-ref - (lambda (_obj63475_ _id63476_) - (let ((_$e63478_ + (lambda (_obj63737_ _id63738_) + (let ((_$e63740_ (let () (declare (not safe)) - (method-ref _obj63475_ _id63476_)))) - (if _$e63478_ - _$e63478_ + (method-ref _obj63737_ _id63738_)))) + (if _$e63740_ + _$e63740_ (let () (declare (not safe)) (error '"missing method" 'object: - _obj63475_ + _obj63737_ 'method: - _id63476_)))))) + _id63738_)))))) (define bound-method-ref - (lambda (_obj63465_ _id63466_) - (let ((_$e63468_ + (lambda (_obj63727_ _id63728_) + (let ((_$e63730_ (let () (declare (not safe)) - (method-ref _obj63465_ _id63466_)))) - (if _$e63468_ - ((lambda (_method63471_) - (lambda _args63473_ - (apply _method63471_ _obj63465_ _args63473_))) - _$e63468_) + (method-ref _obj63727_ _id63728_)))) + (if _$e63730_ + ((lambda (_method63733_) + (lambda _args63735_ + (apply _method63733_ _obj63727_ _args63735_))) + _$e63730_) '#f)))) (define checked-bound-method-ref - (lambda (_obj63458_ _id63459_) - (let ((_method63461_ + (lambda (_obj63720_ _id63721_) + (let ((_method63723_ (let () (declare (not safe)) - (checked-method-ref _obj63458_ _id63459_)))) - (lambda _args63463_ (apply _method63461_ _obj63458_ _args63463_))))) + (checked-method-ref _obj63720_ _id63721_)))) + (lambda _args63725_ (apply _method63723_ _obj63720_ _args63725_))))) (define find-method - (lambda (_klass63454_ _obj63455_ _id63456_) + (lambda (_klass63716_ _obj63717_ _id63718_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass63454_ 'gerbil#class::t)) + (##structure-instance-of? _klass63716_ 'gerbil#class::t)) (let () (declare (not safe)) - (__find-method _klass63454_ _obj63455_ _id63456_)) + (__find-method _klass63716_ _obj63717_ _id63718_)) (let () (declare (not safe)) - (builtin-find-method _klass63454_ _obj63455_ _id63456_))))) + (builtin-find-method _klass63716_ _obj63717_ _id63718_))))) (define __find-method - (lambda (_klass63447_ _obj63448_ _id63449_) - (let ((_$e63451_ + (lambda (_klass63709_ _obj63710_ _id63711_) + (let ((_$e63713_ (let () (declare (not safe)) - (direct-method-ref _klass63447_ _obj63448_ _id63449_)))) - (if _$e63451_ - _$e63451_ + (direct-method-ref _klass63709_ _obj63710_ _id63711_)))) + (if _$e63713_ + _$e63713_ (if (let () (declare (not safe)) - (class-type-sealed? _klass63447_)) + (class-type-sealed? _klass63709_)) '#f (let () (declare (not safe)) - (mixin-method-ref _klass63447_ _obj63448_ _id63449_))))))) + (mixin-method-ref _klass63709_ _obj63710_ _id63711_))))))) (define class-find-method - (lambda (_klass63443_ _obj63444_ _id63445_) + (lambda (_klass63705_ _obj63706_ _id63707_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass63443_ 'gerbil#class::t)) + (##structure-instance-of? _klass63705_ 'gerbil#class::t)) (let () (declare (not safe)) - (__find-method _klass63443_ _obj63444_ _id63445_)) + (__find-method _klass63705_ _obj63706_ _id63707_)) '#f))) (define mixin-find-method - (lambda (_mixins63435_ _obj63436_ _id63437_) - (let ((__tmp64705 - (lambda (_g6343863440_) + (lambda (_mixins63697_ _obj63698_ _id63699_) + (let ((__tmp64967 + (lambda (_g6370063702_) (let () (declare (not safe)) - (direct-method-ref _g6343863440_ _obj63436_ _id63437_))))) + (direct-method-ref _g6370063702_ _obj63698_ _id63699_))))) (declare (not safe)) - (ormap1 __tmp64705 _mixins63435_)))) + (ormap1 __tmp64967 _mixins63697_)))) (define builtin-find-method - (lambda (_klass63428_ _obj63429_ _id63430_) - (if (let () (declare (not safe)) (##type? _klass63428_)) - (let ((_$e63432_ + (lambda (_klass63690_ _obj63691_ _id63692_) + (if (let () (declare (not safe)) (##type? _klass63690_)) + (let ((_$e63694_ (let () (declare (not safe)) - (builtin-method-ref _klass63428_ _obj63429_ _id63430_)))) - (if _$e63432_ - _$e63432_ - (let ((__tmp64706 + (builtin-method-ref _klass63690_ _obj63691_ _id63692_)))) + (if _$e63694_ + _$e63694_ + (let ((__tmp64968 (let () (declare (not safe)) - (##type-super _klass63428_)))) + (##type-super _klass63690_)))) (declare (not safe)) - (builtin-find-method __tmp64706 _obj63429_ _id63430_)))) + (builtin-find-method __tmp64968 _obj63691_ _id63692_)))) '#f))) (define direct-method-ref - (lambda (_klass63405_ _obj63406_ _id63407_) - (letrec ((_metaclass-resolve-method63409_ + (lambda (_klass63667_ _obj63668_ _id63669_) + (letrec ((_metaclass-resolve-method63671_ (lambda () - (let ((__method64591 + (let ((__method64853 (let () (declare (not safe)) - (method-ref _klass63405_ 'direct-method-ref)))) - (if __method64591 - (__method64591 _klass63405_ _obj63406_ _id63407_) + (method-ref _klass63667_ 'direct-method-ref)))) + (if __method64853 + (__method64853 _klass63667_ _obj63668_ _id63669_) (let () (declare (not safe)) (error '"Missing method" - _klass63405_ + _klass63667_ 'direct-method-ref)))))) - (_metaclass-resolve-method!63410_ + (_metaclass-resolve-method!63672_ (lambda () - (let ((_method63425_ + (let ((_method63687_ (let () (declare (not safe)) - (_metaclass-resolve-method63409_)))) - (let ((__tmp64708 + (_metaclass-resolve-method63671_)))) + (let ((__tmp64970 (let () (declare (not safe)) (##unchecked-structure-ref - _klass63405_ + _klass63667_ '11 class::t '#f))) - (__tmp64707 (if _method63425_ 'resolved 'unknown))) + (__tmp64969 (if _method63687_ 'resolved 'unknown))) (declare (not safe)) - (symbolic-table-set! __tmp64708 _id63407_ __tmp64707)) - _method63425_)))) - (let ((_$e63412_ + (symbolic-table-set! __tmp64970 _id63669_ __tmp64969)) + _method63687_)))) + (let ((_$e63674_ (let () (declare (not safe)) - (##unchecked-structure-ref _klass63405_ '11 class::t '#f)))) - (if _$e63412_ - ((lambda (_ht63415_) - (let ((_method63417_ + (##unchecked-structure-ref _klass63667_ '11 class::t '#f)))) + (if _$e63674_ + ((lambda (_ht63677_) + (let ((_method63679_ (let () (declare (not safe)) - (symbolic-table-ref _ht63415_ _id63407_ '#f)))) + (symbolic-table-ref _ht63677_ _id63669_ '#f)))) (if (let () (declare (not safe)) - (procedure? _method63417_)) - _method63417_ + (procedure? _method63679_)) + _method63679_ (if (let () (declare (not safe)) - (class-type-metaclass? _klass63405_)) - (let ((_$e63419_ _method63417_)) + (class-type-metaclass? _klass63667_)) + (let ((_$e63681_ _method63679_)) (if (let () (declare (not safe)) - (eq? 'resolved _$e63419_)) + (eq? 'resolved _$e63681_)) (let () (declare (not safe)) - (_metaclass-resolve-method63409_)) + (_metaclass-resolve-method63671_)) (if (let () (declare (not safe)) - (eq? 'unknown _$e63419_)) + (eq? 'unknown _$e63681_)) '#f (let () (declare (not safe)) - (_metaclass-resolve-method!63410_))))) + (_metaclass-resolve-method!63672_))))) '#f)))) - _$e63412_) + _$e63674_) (if (let () (declare (not safe)) - (class-type-metaclass? _klass63405_)) - (let ((_tab63422_ + (class-type-metaclass? _klass63667_)) + (let ((_tab63684_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _klass63405_ - _tab63422_ + _klass63667_ + _tab63684_ '11 class::t '#f)) (let () (declare (not safe)) - (_metaclass-resolve-method!63410_))) + (_metaclass-resolve-method!63672_))) '#f)))))) (define mixin-method-ref - (lambda (_klass63401_ _obj63402_ _id63403_) - (let ((__tmp64709 (##structure-ref _klass63401_ '6 class::t '#f))) + (lambda (_klass63663_ _obj63664_ _id63665_) + (let ((__tmp64971 (##structure-ref _klass63663_ '6 class::t '#f))) (declare (not safe)) - (mixin-find-method __tmp64709 _obj63402_ _id63403_)))) + (mixin-find-method __tmp64971 _obj63664_ _id63665_)))) (define builtin-method-ref - (lambda (_klass63392_ _obj63393_ _id63394_) - (let ((_$e63396_ - (let ((__tmp64710 - (let () (declare (not safe)) (##type-id _klass63392_)))) + (lambda (_klass63654_ _obj63655_ _id63656_) + (let ((_$e63658_ + (let ((__tmp64972 + (let () (declare (not safe)) (##type-id _klass63654_)))) (declare (not safe)) - (symbolic-table-ref __builtin-type-methods __tmp64710 '#f)))) - (if _$e63396_ - ((lambda (_mtab63399_) + (symbolic-table-ref __builtin-type-methods __tmp64972 '#f)))) + (if _$e63658_ + ((lambda (_mtab63661_) (let () (declare (not safe)) - (symbolic-table-ref _mtab63399_ _id63394_ '#f))) - _$e63396_) + (symbolic-table-ref _mtab63661_ _id63656_ '#f))) + _$e63658_) '#f)))) (define bind-method!__% - (lambda (_klass63358_ _id63359_ _proc63360_ _rebind?63361_) - (letrec ((_bind!63363_ - (lambda (_ht63376_) - (if (and (let () (declare (not safe)) (not _rebind?63361_)) + (lambda (_klass63620_ _id63621_ _proc63622_ _rebind?63623_) + (letrec ((_bind!63625_ + (lambda (_ht63638_) + (if (and (let () (declare (not safe)) (not _rebind?63623_)) (let () (declare (not safe)) - (symbolic-table-ref _ht63376_ _id63359_ '#f))) + (symbolic-table-ref _ht63638_ _id63621_ '#f))) (let () (declare (not safe)) (error '"method already bound" 'class: - _klass63358_ + _klass63620_ 'method: - _id63359_)) + _id63621_)) (let () (declare (not safe)) (symbolic-table-set! - _ht63376_ - _id63359_ - _proc63360_)))))) - (if (let () (declare (not safe)) (procedure? _proc63360_)) + _ht63638_ + _id63621_ + _proc63622_)))))) + (if (let () (declare (not safe)) (procedure? _proc63622_)) '#!void (let () (declare (not safe)) - (error '"bad method; expected procedure" _proc63360_))) + (error '"bad method; expected procedure" _proc63622_))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass63358_ 'gerbil#class::t)) - (let ((_ht63365_ + (##structure-instance-of? _klass63620_ 'gerbil#class::t)) + (let ((_ht63627_ (let () (declare (not safe)) (##unchecked-structure-ref - _klass63358_ + _klass63620_ '11 class::t '#f)))) - (if _ht63365_ - (let () (declare (not safe)) (_bind!63363_ _ht63365_)) - (let ((_ht63367_ + (if _ht63627_ + (let () (declare (not safe)) (_bind!63625_ _ht63627_)) + (let ((_ht63629_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _klass63358_ - _ht63367_ + _klass63620_ + _ht63629_ '11 class::t '#f)) - (let () (declare (not safe)) (_bind!63363_ _ht63367_))))) - (if (let () (declare (not safe)) (##type? _klass63358_)) - (let ((_ht63374_ - (let ((_$e63369_ - (let ((__tmp64711 + (let () (declare (not safe)) (_bind!63625_ _ht63629_))))) + (if (let () (declare (not safe)) (##type? _klass63620_)) + (let ((_ht63636_ + (let ((_$e63631_ + (let ((__tmp64973 (let () (declare (not safe)) - (##type-id _klass63358_)))) + (##type-id _klass63620_)))) (declare (not safe)) (symbolic-table-ref __builtin-type-methods - __tmp64711 + __tmp64973 '#f)))) - (if _$e63369_ - _$e63369_ - (let ((_ht63372_ + (if _$e63631_ + _$e63631_ + (let ((_ht63634_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp64712 + (let ((__tmp64974 (let () (declare (not safe)) - (##type-id _klass63358_)))) + (##type-id _klass63620_)))) (declare (not safe)) (symbolic-table-set! __builtin-type-methods - __tmp64712 - _ht63372_)) - _ht63372_))))) + __tmp64974 + _ht63634_)) + _ht63634_))))) (declare (not safe)) - (_bind!63363_ _ht63374_)) + (_bind!63625_ _ht63636_)) (let () (declare (not safe)) (error '"bad class; expected class or builtin type" - _klass63358_))))))) + _klass63620_))))))) (define bind-method!__0 - (lambda (_klass63381_ _id63382_ _proc63383_) - (let ((_rebind?63385_ '#t)) + (lambda (_klass63643_ _id63644_ _proc63645_) + (let ((_rebind?63647_ '#t)) (declare (not safe)) (bind-method!__% - _klass63381_ - _id63382_ - _proc63383_ - _rebind?63385_)))) + _klass63643_ + _id63644_ + _proc63645_ + _rebind?63647_)))) (define bind-method! - (lambda _g64714_ - (let ((_g64713_ (let () (declare (not safe)) (##length _g64714_)))) - (cond ((let () (declare (not safe)) (##fx= _g64713_ 3)) - (apply (lambda (_klass63381_ _id63382_ _proc63383_) + (lambda _g64976_ + (let ((_g64975_ (let () (declare (not safe)) (##length _g64976_)))) + (cond ((let () (declare (not safe)) (##fx= _g64975_ 3)) + (apply (lambda (_klass63643_ _id63644_ _proc63645_) (let () (declare (not safe)) (bind-method!__0 - _klass63381_ - _id63382_ - _proc63383_))) - _g64714_)) - ((let () (declare (not safe)) (##fx= _g64713_ 4)) - (apply (lambda (_klass63387_ - _id63388_ - _proc63389_ - _rebind?63390_) + _klass63643_ + _id63644_ + _proc63645_))) + _g64976_)) + ((let () (declare (not safe)) (##fx= _g64975_ 4)) + (apply (lambda (_klass63649_ + _id63650_ + _proc63651_ + _rebind?63652_) (let () (declare (not safe)) (bind-method!__% - _klass63387_ - _id63388_ - _proc63389_ - _rebind?63390_))) - _g64714_)) + _klass63649_ + _id63650_ + _proc63651_ + _rebind?63652_))) + _g64976_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g64714_)))))) + _g64976_)))))) (define make-method-specializer-table__% - (lambda (_size-hint63338_ _seed63340_) + (lambda (_size-hint63600_ _seed63602_) (let () (declare (not safe)) (make-raw-table__% - _size-hint63338_ + _size-hint63600_ procedure-hash eq? - _seed63340_)))) + _seed63602_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_size-hint63346_ '#f) (_seed63348_ '0)) + (let* ((_size-hint63608_ '#f) (_seed63610_ '0)) (declare (not safe)) - (make-method-specializer-table__% _size-hint63346_ _seed63348_)))) + (make-method-specializer-table__% _size-hint63608_ _seed63610_)))) (define make-method-specializer-table__1 - (lambda (_size-hint63350_) - (let ((_seed63352_ '0)) + (lambda (_size-hint63612_) + (let ((_seed63614_ '0)) (declare (not safe)) - (make-method-specializer-table__% _size-hint63350_ _seed63352_)))) + (make-method-specializer-table__% _size-hint63612_ _seed63614_)))) (define make-method-specializer-table - (lambda _g64716_ - (let ((_g64715_ (let () (declare (not safe)) (##length _g64716_)))) - (cond ((let () (declare (not safe)) (##fx= _g64715_ 0)) + (lambda _g64978_ + (let ((_g64977_ (let () (declare (not safe)) (##length _g64978_)))) + (cond ((let () (declare (not safe)) (##fx= _g64977_ 0)) (apply (lambda () (let () (declare (not safe)) (make-method-specializer-table__0))) - _g64716_)) - ((let () (declare (not safe)) (##fx= _g64715_ 1)) - (apply (lambda (_size-hint63350_) + _g64978_)) + ((let () (declare (not safe)) (##fx= _g64977_ 1)) + (apply (lambda (_size-hint63612_) (let () (declare (not safe)) (make-method-specializer-table__1 - _size-hint63350_))) - _g64716_)) - ((let () (declare (not safe)) (##fx= _g64715_ 2)) - (apply (lambda (_size-hint63354_ _seed63355_) + _size-hint63612_))) + _g64978_)) + ((let () (declare (not safe)) (##fx= _g64977_ 2)) + (apply (lambda (_size-hint63616_ _seed63617_) (let () (declare (not safe)) (make-method-specializer-table__% - _size-hint63354_ - _seed63355_))) - _g64716_)) + _size-hint63616_ + _seed63617_))) + _g64978_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g64716_)))))) + _g64978_)))))) (define method-specializer-table-ref - (lambda (_tab63295_ _key63296_ _default63297_) - (let ((_table63299_ - (let () (declare (not safe)) (&raw-table-table _tab63295_))) - (_seed63300_ - (let () (declare (not safe)) (&raw-table-seed _tab63295_)))) - (let* ((_h63302_ + (lambda (_tab63557_ _key63558_ _default63559_) + (let ((_table63561_ + (let () (declare (not safe)) (&raw-table-table _tab63557_))) + (_seed63562_ + (let () (declare (not safe)) (&raw-table-seed _tab63557_)))) + (let* ((_h63564_ (fxxor (let () (declare (not safe)) - (procedure-hash _key63296_)) - _seed63300_)) - (_size63305_ (vector-length _table63299_)) - (_entries63308_ (fxquotient _size63305_ '2)) - (_start63311_ + (procedure-hash _key63558_)) + _seed63562_)) + (_size63567_ (vector-length _table63561_)) + (_entries63570_ (fxquotient _size63567_ '2)) + (_start63573_ (fxarithmetic-shift-left - (fxmodulo _h63302_ _entries63308_) + (fxmodulo _h63564_ _entries63570_) '1))) - (let _loop63315_ ((_probe63318_ _start63311_) - (_i63320_ '1) - (_deleted63322_ '#f)) - (let ((_k63325_ (vector-ref _table63299_ _probe63318_))) - (if (let ((__tmp64723 (macro-unused-obj))) + (let _loop63577_ ((_probe63580_ _start63573_) + (_i63582_ '1) + (_deleted63584_ '#f)) + (let ((_k63587_ (vector-ref _table63561_ _probe63580_))) + (if (let ((__tmp64985 (macro-unused-obj))) (declare (not safe)) - (eq? _k63325_ __tmp64723)) - _default63297_ - (if (let ((__tmp64722 (macro-deleted-obj))) + (eq? _k63587_ __tmp64985)) + _default63559_ + (if (let ((__tmp64984 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63325_ __tmp64722)) - (let ((__tmp64721 - (let ((_next-probe63328_ - (fx+ _start63311_ - _i63320_ - (fx* _i63320_ _i63320_)))) - (fxmodulo _next-probe63328_ _size63305_))) - (__tmp64720 (fx+ _i63320_ '1)) - (__tmp64719 - (let ((_$e63331_ _deleted63322_)) - (if _$e63331_ _$e63331_ _probe63318_)))) + (eq? _k63587_ __tmp64984)) + (let ((__tmp64983 + (let ((_next-probe63590_ + (fx+ _start63573_ + _i63582_ + (fx* _i63582_ _i63582_)))) + (fxmodulo _next-probe63590_ _size63567_))) + (__tmp64982 (fx+ _i63582_ '1)) + (__tmp64981 + (let ((_$e63593_ _deleted63584_)) + (if _$e63593_ _$e63593_ _probe63580_)))) (declare (not safe)) - (_loop63315_ __tmp64721 __tmp64720 __tmp64719)) + (_loop63577_ __tmp64983 __tmp64982 __tmp64981)) (if (let () (declare (not safe)) - (eq? _key63296_ _k63325_)) - (vector-ref _table63299_ (fx+ _probe63318_ '1)) - (let ((__tmp64718 - (let ((_next-probe63334_ - (fx+ _start63311_ - _i63320_ - (fx* _i63320_ _i63320_)))) - (fxmodulo _next-probe63334_ _size63305_))) - (__tmp64717 (fx+ _i63320_ '1))) + (eq? _key63558_ _k63587_)) + (vector-ref _table63561_ (fx+ _probe63580_ '1)) + (let ((__tmp64980 + (let ((_next-probe63596_ + (fx+ _start63573_ + _i63582_ + (fx* _i63582_ _i63582_)))) + (fxmodulo _next-probe63596_ _size63567_))) + (__tmp64979 (fx+ _i63582_ '1))) (declare (not safe)) - (_loop63315_ - __tmp64718 - __tmp64717 - _deleted63322_))))))))))) + (_loop63577_ + __tmp64980 + __tmp64979 + _deleted63584_))))))))))) (define method-specializer-table-set! - (lambda (_tab63291_ _key63292_ _value63293_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63291_)) + (lambda (_tab63553_ _key63554_ _value63555_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63553_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab63291_))) + (let () (declare (not safe)) (&raw-table-table _tab63553_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab63291_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab63553_)) '#!void) (let () (declare (not safe)) (__method-specializer-table-set! - _tab63291_ - _key63292_ - _value63293_)))) + _tab63553_ + _key63554_ + _value63555_)))) (define __method-specializer-table-set! - (lambda (_tab63246_ _key63247_ _value63248_) - (let ((_table63251_ - (let () (declare (not safe)) (&raw-table-table _tab63246_))) - (_seed63252_ - (let () (declare (not safe)) (&raw-table-seed _tab63246_)))) - (let* ((_h63254_ + (lambda (_tab63508_ _key63509_ _value63510_) + (let ((_table63513_ + (let () (declare (not safe)) (&raw-table-table _tab63508_))) + (_seed63514_ + (let () (declare (not safe)) (&raw-table-seed _tab63508_)))) + (let* ((_h63516_ (fxxor (let () (declare (not safe)) - (procedure-hash _key63247_)) - _seed63252_)) - (_size63257_ (vector-length _table63251_)) - (_entries63260_ (fxquotient _size63257_ '2)) - (_start63263_ + (procedure-hash _key63509_)) + _seed63514_)) + (_size63519_ (vector-length _table63513_)) + (_entries63522_ (fxquotient _size63519_ '2)) + (_start63525_ (fxarithmetic-shift-left - (fxmodulo _h63254_ _entries63260_) + (fxmodulo _h63516_ _entries63522_) '1))) - (let _loop63267_ ((_probe63270_ _start63263_) - (_i63272_ '1) - (_deleted63274_ '#f)) - (let ((_k63277_ (vector-ref _table63251_ _probe63270_))) - (if (let ((__tmp64733 (macro-unused-obj))) + (let _loop63529_ ((_probe63532_ _start63525_) + (_i63534_ '1) + (_deleted63536_ '#f)) + (let ((_k63539_ (vector-ref _table63513_ _probe63532_))) + (if (let ((__tmp64995 (macro-unused-obj))) (declare (not safe)) - (eq? _k63277_ __tmp64733)) - (if _deleted63274_ + (eq? _k63539_ __tmp64995)) + (if _deleted63536_ (begin - (vector-set! _table63251_ _deleted63274_ _key63247_) + (vector-set! _table63513_ _deleted63536_ _key63509_) (vector-set! - _table63251_ - (fx+ _deleted63274_ '1) - _value63248_) + _table63513_ + (fx+ _deleted63536_ '1) + _value63510_) ((lambda () - (let ((__tmp64732 + (let ((__tmp64994 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63246_)) + (&raw-table-count _tab63508_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63246_ - __tmp64732))))) + _tab63508_ + __tmp64994))))) (begin - (vector-set! _table63251_ _probe63270_ _key63247_) + (vector-set! _table63513_ _probe63532_ _key63509_) (vector-set! - _table63251_ - (fx+ _probe63270_ '1) - _value63248_) + _table63513_ + (fx+ _probe63532_ '1) + _value63510_) ((lambda () - (let ((__tmp64730 + (let ((__tmp64992 (fx- (let () (declare (not safe)) - (&raw-table-free _tab63246_)) + (&raw-table-free _tab63508_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab63246_ __tmp64730)) - (let ((__tmp64731 + (&raw-table-free-set! _tab63508_ __tmp64992)) + (let ((__tmp64993 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63246_)) + (&raw-table-count _tab63508_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63246_ - __tmp64731)))))) - (if (let ((__tmp64729 (macro-deleted-obj))) + _tab63508_ + __tmp64993)))))) + (if (let ((__tmp64991 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63277_ __tmp64729)) - (let ((__tmp64728 - (let ((_next-probe63282_ - (fx+ _start63263_ - _i63272_ - (fx* _i63272_ _i63272_)))) - (fxmodulo _next-probe63282_ _size63257_))) - (__tmp64727 (fx+ _i63272_ '1)) - (__tmp64726 - (let ((_$e63285_ _deleted63274_)) - (if _$e63285_ _$e63285_ _probe63270_)))) + (eq? _k63539_ __tmp64991)) + (let ((__tmp64990 + (let ((_next-probe63544_ + (fx+ _start63525_ + _i63534_ + (fx* _i63534_ _i63534_)))) + (fxmodulo _next-probe63544_ _size63519_))) + (__tmp64989 (fx+ _i63534_ '1)) + (__tmp64988 + (let ((_$e63547_ _deleted63536_)) + (if _$e63547_ _$e63547_ _probe63532_)))) (declare (not safe)) - (_loop63267_ __tmp64728 __tmp64727 __tmp64726)) + (_loop63529_ __tmp64990 __tmp64989 __tmp64988)) (if (let () (declare (not safe)) - (eq? _key63247_ _k63277_)) + (eq? _key63509_ _k63539_)) (begin (vector-set! - _table63251_ - _probe63270_ - _key63247_) + _table63513_ + _probe63532_ + _key63509_) (vector-set! - _table63251_ - (fx+ _probe63270_ '1) - _value63248_)) - (let ((__tmp64725 - (let ((_next-probe63288_ - (fx+ _start63263_ - _i63272_ - (fx* _i63272_ _i63272_)))) - (fxmodulo _next-probe63288_ _size63257_))) - (__tmp64724 (fx+ _i63272_ '1))) + _table63513_ + (fx+ _probe63532_ '1) + _value63510_)) + (let ((__tmp64987 + (let ((_next-probe63550_ + (fx+ _start63525_ + _i63534_ + (fx* _i63534_ _i63534_)))) + (fxmodulo _next-probe63550_ _size63519_))) + (__tmp64986 (fx+ _i63534_ '1))) (declare (not safe)) - (_loop63267_ - __tmp64725 - __tmp64724 - _deleted63274_))))))))))) + (_loop63529_ + __tmp64987 + __tmp64986 + _deleted63536_))))))))))) (define method-specializer-table-update! - (lambda (_tab63241_ - _key63242_ - _method-specializer-table-update!63243_ - _default63244_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63241_)) + (lambda (_tab63503_ + _key63504_ + _method-specializer-table-update!63505_ + _default63506_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63503_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab63241_))) + (let () (declare (not safe)) (&raw-table-table _tab63503_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab63241_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab63503_)) '#!void) (let () (declare (not safe)) (__method-specializer-table-update! - _tab63241_ - _key63242_ - _method-specializer-table-update!63243_ - _default63244_)))) + _tab63503_ + _key63504_ + _method-specializer-table-update!63505_ + _default63506_)))) (define __method-specializer-table-update! - (lambda (_tab63195_ - _key63196_ - _method-specializer-table-update!63197_ - _default63198_) - (let ((_table63201_ - (let () (declare (not safe)) (&raw-table-table _tab63195_))) - (_seed63202_ - (let () (declare (not safe)) (&raw-table-seed _tab63195_)))) - (let* ((_h63204_ + (lambda (_tab63457_ + _key63458_ + _method-specializer-table-update!63459_ + _default63460_) + (let ((_table63463_ + (let () (declare (not safe)) (&raw-table-table _tab63457_))) + (_seed63464_ + (let () (declare (not safe)) (&raw-table-seed _tab63457_)))) + (let* ((_h63466_ (fxxor (let () (declare (not safe)) - (procedure-hash _key63196_)) - _seed63202_)) - (_size63207_ (vector-length _table63201_)) - (_entries63210_ (fxquotient _size63207_ '2)) - (_start63213_ + (procedure-hash _key63458_)) + _seed63464_)) + (_size63469_ (vector-length _table63463_)) + (_entries63472_ (fxquotient _size63469_ '2)) + (_start63475_ (fxarithmetic-shift-left - (fxmodulo _h63204_ _entries63210_) + (fxmodulo _h63466_ _entries63472_) '1))) - (let _loop63217_ ((_probe63220_ _start63213_) - (_i63222_ '1) - (_deleted63224_ '#f)) - (let ((_k63227_ (vector-ref _table63201_ _probe63220_))) - (if (let ((__tmp64743 (macro-unused-obj))) + (let _loop63479_ ((_probe63482_ _start63475_) + (_i63484_ '1) + (_deleted63486_ '#f)) + (let ((_k63489_ (vector-ref _table63463_ _probe63482_))) + (if (let ((__tmp65005 (macro-unused-obj))) (declare (not safe)) - (eq? _k63227_ __tmp64743)) - (if _deleted63224_ + (eq? _k63489_ __tmp65005)) + (if _deleted63486_ (begin - (vector-set! _table63201_ _deleted63224_ _key63196_) + (vector-set! _table63463_ _deleted63486_ _key63458_) (vector-set! - _table63201_ - (fx+ _deleted63224_ '1) - (_method-specializer-table-update!63197_ - _default63198_)) + _table63463_ + (fx+ _deleted63486_ '1) + (_method-specializer-table-update!63459_ + _default63460_)) ((lambda () - (let ((__tmp64742 + (let ((__tmp65004 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63195_)) + (&raw-table-count _tab63457_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63195_ - __tmp64742))))) + _tab63457_ + __tmp65004))))) (begin - (vector-set! _table63201_ _probe63220_ _key63196_) + (vector-set! _table63463_ _probe63482_ _key63458_) (vector-set! - _table63201_ - (fx+ _probe63220_ '1) - (_method-specializer-table-update!63197_ - _default63198_)) + _table63463_ + (fx+ _probe63482_ '1) + (_method-specializer-table-update!63459_ + _default63460_)) ((lambda () - (let ((__tmp64740 + (let ((__tmp65002 (fx- (let () (declare (not safe)) - (&raw-table-free _tab63195_)) + (&raw-table-free _tab63457_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab63195_ __tmp64740)) - (let ((__tmp64741 + (&raw-table-free-set! _tab63457_ __tmp65002)) + (let ((__tmp65003 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63195_)) + (&raw-table-count _tab63457_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63195_ - __tmp64741)))))) - (if (let ((__tmp64739 (macro-deleted-obj))) + _tab63457_ + __tmp65003)))))) + (if (let ((__tmp65001 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63227_ __tmp64739)) - (let ((__tmp64738 - (let ((_next-probe63232_ - (fx+ _start63213_ - _i63222_ - (fx* _i63222_ _i63222_)))) - (fxmodulo _next-probe63232_ _size63207_))) - (__tmp64737 (fx+ _i63222_ '1)) - (__tmp64736 - (let ((_$e63235_ _deleted63224_)) - (if _$e63235_ _$e63235_ _probe63220_)))) + (eq? _k63489_ __tmp65001)) + (let ((__tmp65000 + (let ((_next-probe63494_ + (fx+ _start63475_ + _i63484_ + (fx* _i63484_ _i63484_)))) + (fxmodulo _next-probe63494_ _size63469_))) + (__tmp64999 (fx+ _i63484_ '1)) + (__tmp64998 + (let ((_$e63497_ _deleted63486_)) + (if _$e63497_ _$e63497_ _probe63482_)))) (declare (not safe)) - (_loop63217_ __tmp64738 __tmp64737 __tmp64736)) + (_loop63479_ __tmp65000 __tmp64999 __tmp64998)) (if (let () (declare (not safe)) - (eq? _key63196_ _k63227_)) + (eq? _key63458_ _k63489_)) (begin (vector-set! - _table63201_ - _probe63220_ - _key63196_) + _table63463_ + _probe63482_ + _key63458_) (vector-set! - _table63201_ - (fx+ _probe63220_ '1) - (_method-specializer-table-update!63197_ + _table63463_ + (fx+ _probe63482_ '1) + (_method-specializer-table-update!63459_ (vector-ref - _table63201_ - (fx+ _probe63220_ '1))))) - (let ((__tmp64735 - (let ((_next-probe63238_ - (fx+ _start63213_ - _i63222_ - (fx* _i63222_ _i63222_)))) - (fxmodulo _next-probe63238_ _size63207_))) - (__tmp64734 (fx+ _i63222_ '1))) + _table63463_ + (fx+ _probe63482_ '1))))) + (let ((__tmp64997 + (let ((_next-probe63500_ + (fx+ _start63475_ + _i63484_ + (fx* _i63484_ _i63484_)))) + (fxmodulo _next-probe63500_ _size63469_))) + (__tmp64996 (fx+ _i63484_ '1))) (declare (not safe)) - (_loop63217_ - __tmp64735 - __tmp64734 - _deleted63224_))))))))))) + (_loop63479_ + __tmp64997 + __tmp64996 + _deleted63486_))))))))))) (define method-specializer-table-delete! - (lambda (_tab63154_ _key63156_) - (let ((_table63159_ - (let () (declare (not safe)) (&raw-table-table _tab63154_))) - (_seed63161_ - (let () (declare (not safe)) (&raw-table-seed _tab63154_)))) - (let* ((_h63164_ + (lambda (_tab63416_ _key63418_) + (let ((_table63421_ + (let () (declare (not safe)) (&raw-table-table _tab63416_))) + (_seed63423_ + (let () (declare (not safe)) (&raw-table-seed _tab63416_)))) + (let* ((_h63426_ (fxxor (let () (declare (not safe)) - (procedure-hash _key63156_)) - _seed63161_)) - (_size63167_ (vector-length _table63159_)) - (_entries63170_ (fxquotient _size63167_ '2)) - (_start63173_ + (procedure-hash _key63418_)) + _seed63423_)) + (_size63429_ (vector-length _table63421_)) + (_entries63432_ (fxquotient _size63429_ '2)) + (_start63435_ (fxarithmetic-shift-left - (fxmodulo _h63164_ _entries63170_) + (fxmodulo _h63426_ _entries63432_) '1))) - (let _loop63177_ ((_probe63180_ _start63173_) (_i63182_ '1)) - (let ((_k63185_ (vector-ref _table63159_ _probe63180_))) - (if (let ((__tmp64750 (macro-unused-obj))) + (let _loop63439_ ((_probe63442_ _start63435_) (_i63444_ '1)) + (let ((_k63447_ (vector-ref _table63421_ _probe63442_))) + (if (let ((__tmp65012 (macro-unused-obj))) (declare (not safe)) - (eq? _k63185_ __tmp64750)) + (eq? _k63447_ __tmp65012)) '#!void - (if (let ((__tmp64749 (macro-deleted-obj))) + (if (let ((__tmp65011 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63185_ __tmp64749)) - (let ((__tmp64748 - (let ((_next-probe63188_ - (fx+ _start63173_ - _i63182_ - (fx* _i63182_ _i63182_)))) - (fxmodulo _next-probe63188_ _size63167_))) - (__tmp64747 (fx+ _i63182_ '1))) + (eq? _k63447_ __tmp65011)) + (let ((__tmp65010 + (let ((_next-probe63450_ + (fx+ _start63435_ + _i63444_ + (fx* _i63444_ _i63444_)))) + (fxmodulo _next-probe63450_ _size63429_))) + (__tmp65009 (fx+ _i63444_ '1))) (declare (not safe)) - (_loop63177_ __tmp64748 __tmp64747)) + (_loop63439_ __tmp65010 __tmp65009)) (if (let () (declare (not safe)) - (eq? _key63156_ _k63185_)) + (eq? _key63418_ _k63447_)) (begin (vector-set! - _table63159_ - _probe63180_ + _table63421_ + _probe63442_ (macro-deleted-obj)) (vector-set! - _table63159_ - (fx+ _probe63180_ '1) + _table63421_ + (fx+ _probe63442_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp64746 + (let ((__tmp65008 (fx- (let () (declare (not safe)) - (&raw-table-count _tab63154_)) + (&raw-table-count _tab63416_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63154_ - __tmp64746))))) - (let ((__tmp64745 - (let ((_next-probe63192_ - (fx+ _start63173_ - _i63182_ - (fx* _i63182_ _i63182_)))) - (fxmodulo _next-probe63192_ _size63167_))) - (__tmp64744 (fx+ _i63182_ '1))) + _tab63416_ + __tmp65008))))) + (let ((__tmp65007 + (let ((_next-probe63454_ + (fx+ _start63435_ + _i63444_ + (fx* _i63444_ _i63444_)))) + (fxmodulo _next-probe63454_ _size63429_))) + (__tmp65006 (fx+ _i63444_ '1))) (declare (not safe)) - (_loop63177_ __tmp64745 __tmp64744))))))))))) + (_loop63439_ __tmp65007 __tmp65006))))))))))) (define __method-specializers (let () (declare (not safe)) (make-method-specializer-table__% '#f '0))) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_method-proc63145_ _specializer63146_) + (lambda (_method-proc63407_ _specializer63408_) (let () (declare (not interrupts-enabled)) - (let _again63150_ () - (if (let ((__tmp64751 + (let _again63412_ () + (if (let ((__tmp65013 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp64751 '0)) + (##fx= __tmp65013 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again63150_)))))) + (let () (declare (not safe)) (_again63412_)))))) (let () (declare (not safe)) (method-specializer-table-set! __method-specializers - _method-proc63145_ - _specializer63146_)) + _method-proc63407_ + _specializer63408_)) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_proc63135_) + (lambda (_proc63397_) (let () (declare (not interrupts-enabled)) - (let _again63139_ () - (if (let ((__tmp64752 + (let _again63401_ () + (if (let ((__tmp65014 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp64752 '0)) + (##fx= __tmp65014 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again63139_)))))) - (let ((_specializer63143_ + (let () (declare (not safe)) (_again63401_)))))) + (let ((_specializer63405_ (let () (declare (not safe)) (method-specializer-table-ref __method-specializers - _proc63135_ + _proc63397_ '#f)))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _specializer63143_))) + _specializer63405_))) (define __class-specializer-hash-key - (lambda (_klass63133_) - (let ((__tmp64753 - (let () (declare (not safe)) (##type-id _klass63133_)))) + (lambda (_klass63395_) + (let ((__tmp65015 + (let () (declare (not safe)) (##type-id _klass63395_)))) (declare (not safe)) - (symbolic-hash __tmp64753)))) + (symbolic-hash __tmp65015)))) (define make-class-specializer-table__% - (lambda (_size-hint63114_ _seed63116_) + (lambda (_size-hint63376_ _seed63378_) (let () (declare (not safe)) (make-raw-table__% - _size-hint63114_ + _size-hint63376_ __class-specializer-hash-key eq? - _seed63116_)))) + _seed63378_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_size-hint63122_ '#f) (_seed63124_ '0)) + (let* ((_size-hint63384_ '#f) (_seed63386_ '0)) (declare (not safe)) - (make-class-specializer-table__% _size-hint63122_ _seed63124_)))) + (make-class-specializer-table__% _size-hint63384_ _seed63386_)))) (define make-class-specializer-table__1 - (lambda (_size-hint63126_) - (let ((_seed63128_ '0)) + (lambda (_size-hint63388_) + (let ((_seed63390_ '0)) (declare (not safe)) - (make-class-specializer-table__% _size-hint63126_ _seed63128_)))) + (make-class-specializer-table__% _size-hint63388_ _seed63390_)))) (define make-class-specializer-table - (lambda _g64755_ - (let ((_g64754_ (let () (declare (not safe)) (##length _g64755_)))) - (cond ((let () (declare (not safe)) (##fx= _g64754_ 0)) + (lambda _g65017_ + (let ((_g65016_ (let () (declare (not safe)) (##length _g65017_)))) + (cond ((let () (declare (not safe)) (##fx= _g65016_ 0)) (apply (lambda () (let () (declare (not safe)) (make-class-specializer-table__0))) - _g64755_)) - ((let () (declare (not safe)) (##fx= _g64754_ 1)) - (apply (lambda (_size-hint63126_) + _g65017_)) + ((let () (declare (not safe)) (##fx= _g65016_ 1)) + (apply (lambda (_size-hint63388_) (let () (declare (not safe)) (make-class-specializer-table__1 - _size-hint63126_))) - _g64755_)) - ((let () (declare (not safe)) (##fx= _g64754_ 2)) - (apply (lambda (_size-hint63130_ _seed63131_) + _size-hint63388_))) + _g65017_)) + ((let () (declare (not safe)) (##fx= _g65016_ 2)) + (apply (lambda (_size-hint63392_ _seed63393_) (let () (declare (not safe)) (make-class-specializer-table__% - _size-hint63130_ - _seed63131_))) - _g64755_)) + _size-hint63392_ + _seed63393_))) + _g65017_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g64755_)))))) + _g65017_)))))) (define class-specializer-table-ref - (lambda (_tab63071_ _key63072_ _default63073_) - (let ((_table63075_ - (let () (declare (not safe)) (&raw-table-table _tab63071_))) - (_seed63076_ - (let () (declare (not safe)) (&raw-table-seed _tab63071_)))) - (let* ((_h63078_ + (lambda (_tab63333_ _key63334_ _default63335_) + (let ((_table63337_ + (let () (declare (not safe)) (&raw-table-table _tab63333_))) + (_seed63338_ + (let () (declare (not safe)) (&raw-table-seed _tab63333_)))) + (let* ((_h63340_ (fxxor (let () (declare (not safe)) - (__class-specializer-hash-key _key63072_)) - _seed63076_)) - (_size63081_ (vector-length _table63075_)) - (_entries63084_ (fxquotient _size63081_ '2)) - (_start63087_ + (__class-specializer-hash-key _key63334_)) + _seed63338_)) + (_size63343_ (vector-length _table63337_)) + (_entries63346_ (fxquotient _size63343_ '2)) + (_start63349_ (fxarithmetic-shift-left - (fxmodulo _h63078_ _entries63084_) + (fxmodulo _h63340_ _entries63346_) '1))) - (let _loop63091_ ((_probe63094_ _start63087_) - (_i63096_ '1) - (_deleted63098_ '#f)) - (let ((_k63101_ (vector-ref _table63075_ _probe63094_))) - (if (let ((__tmp64762 (macro-unused-obj))) + (let _loop63353_ ((_probe63356_ _start63349_) + (_i63358_ '1) + (_deleted63360_ '#f)) + (let ((_k63363_ (vector-ref _table63337_ _probe63356_))) + (if (let ((__tmp65024 (macro-unused-obj))) (declare (not safe)) - (eq? _k63101_ __tmp64762)) - _default63073_ - (if (let ((__tmp64761 (macro-deleted-obj))) + (eq? _k63363_ __tmp65024)) + _default63335_ + (if (let ((__tmp65023 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63101_ __tmp64761)) - (let ((__tmp64760 - (let ((_next-probe63104_ - (fx+ _start63087_ - _i63096_ - (fx* _i63096_ _i63096_)))) - (fxmodulo _next-probe63104_ _size63081_))) - (__tmp64759 (fx+ _i63096_ '1)) - (__tmp64758 - (let ((_$e63107_ _deleted63098_)) - (if _$e63107_ _$e63107_ _probe63094_)))) + (eq? _k63363_ __tmp65023)) + (let ((__tmp65022 + (let ((_next-probe63366_ + (fx+ _start63349_ + _i63358_ + (fx* _i63358_ _i63358_)))) + (fxmodulo _next-probe63366_ _size63343_))) + (__tmp65021 (fx+ _i63358_ '1)) + (__tmp65020 + (let ((_$e63369_ _deleted63360_)) + (if _$e63369_ _$e63369_ _probe63356_)))) (declare (not safe)) - (_loop63091_ __tmp64760 __tmp64759 __tmp64758)) + (_loop63353_ __tmp65022 __tmp65021 __tmp65020)) (if (let () (declare (not safe)) - (eq? _key63072_ _k63101_)) - (vector-ref _table63075_ (fx+ _probe63094_ '1)) - (let ((__tmp64757 - (let ((_next-probe63110_ - (fx+ _start63087_ - _i63096_ - (fx* _i63096_ _i63096_)))) - (fxmodulo _next-probe63110_ _size63081_))) - (__tmp64756 (fx+ _i63096_ '1))) + (eq? _key63334_ _k63363_)) + (vector-ref _table63337_ (fx+ _probe63356_ '1)) + (let ((__tmp65019 + (let ((_next-probe63372_ + (fx+ _start63349_ + _i63358_ + (fx* _i63358_ _i63358_)))) + (fxmodulo _next-probe63372_ _size63343_))) + (__tmp65018 (fx+ _i63358_ '1))) (declare (not safe)) - (_loop63091_ - __tmp64757 - __tmp64756 - _deleted63098_))))))))))) + (_loop63353_ + __tmp65019 + __tmp65018 + _deleted63360_))))))))))) (define class-specializer-table-set! - (lambda (_tab63067_ _key63068_ _value63069_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63067_)) + (lambda (_tab63329_ _key63330_ _value63331_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63329_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab63067_))) + (let () (declare (not safe)) (&raw-table-table _tab63329_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab63067_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab63329_)) '#!void) (let () (declare (not safe)) (__class-specializer-table-set! - _tab63067_ - _key63068_ - _value63069_)))) + _tab63329_ + _key63330_ + _value63331_)))) (define __class-specializer-table-set! - (lambda (_tab63022_ _key63023_ _value63024_) - (let ((_table63027_ - (let () (declare (not safe)) (&raw-table-table _tab63022_))) - (_seed63028_ - (let () (declare (not safe)) (&raw-table-seed _tab63022_)))) - (let* ((_h63030_ + (lambda (_tab63284_ _key63285_ _value63286_) + (let ((_table63289_ + (let () (declare (not safe)) (&raw-table-table _tab63284_))) + (_seed63290_ + (let () (declare (not safe)) (&raw-table-seed _tab63284_)))) + (let* ((_h63292_ (fxxor (let () (declare (not safe)) - (__class-specializer-hash-key _key63023_)) - _seed63028_)) - (_size63033_ (vector-length _table63027_)) - (_entries63036_ (fxquotient _size63033_ '2)) - (_start63039_ + (__class-specializer-hash-key _key63285_)) + _seed63290_)) + (_size63295_ (vector-length _table63289_)) + (_entries63298_ (fxquotient _size63295_ '2)) + (_start63301_ (fxarithmetic-shift-left - (fxmodulo _h63030_ _entries63036_) + (fxmodulo _h63292_ _entries63298_) '1))) - (let _loop63043_ ((_probe63046_ _start63039_) - (_i63048_ '1) - (_deleted63050_ '#f)) - (let ((_k63053_ (vector-ref _table63027_ _probe63046_))) - (if (let ((__tmp64772 (macro-unused-obj))) + (let _loop63305_ ((_probe63308_ _start63301_) + (_i63310_ '1) + (_deleted63312_ '#f)) + (let ((_k63315_ (vector-ref _table63289_ _probe63308_))) + (if (let ((__tmp65034 (macro-unused-obj))) (declare (not safe)) - (eq? _k63053_ __tmp64772)) - (if _deleted63050_ + (eq? _k63315_ __tmp65034)) + (if _deleted63312_ (begin - (vector-set! _table63027_ _deleted63050_ _key63023_) + (vector-set! _table63289_ _deleted63312_ _key63285_) (vector-set! - _table63027_ - (fx+ _deleted63050_ '1) - _value63024_) + _table63289_ + (fx+ _deleted63312_ '1) + _value63286_) ((lambda () - (let ((__tmp64771 + (let ((__tmp65033 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63022_)) + (&raw-table-count _tab63284_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63022_ - __tmp64771))))) + _tab63284_ + __tmp65033))))) (begin - (vector-set! _table63027_ _probe63046_ _key63023_) + (vector-set! _table63289_ _probe63308_ _key63285_) (vector-set! - _table63027_ - (fx+ _probe63046_ '1) - _value63024_) + _table63289_ + (fx+ _probe63308_ '1) + _value63286_) ((lambda () - (let ((__tmp64769 + (let ((__tmp65031 (fx- (let () (declare (not safe)) - (&raw-table-free _tab63022_)) + (&raw-table-free _tab63284_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab63022_ __tmp64769)) - (let ((__tmp64770 + (&raw-table-free-set! _tab63284_ __tmp65031)) + (let ((__tmp65032 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab63022_)) + (&raw-table-count _tab63284_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab63022_ - __tmp64770)))))) - (if (let ((__tmp64768 (macro-deleted-obj))) + _tab63284_ + __tmp65032)))))) + (if (let ((__tmp65030 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63053_ __tmp64768)) - (let ((__tmp64767 - (let ((_next-probe63058_ - (fx+ _start63039_ - _i63048_ - (fx* _i63048_ _i63048_)))) - (fxmodulo _next-probe63058_ _size63033_))) - (__tmp64766 (fx+ _i63048_ '1)) - (__tmp64765 - (let ((_$e63061_ _deleted63050_)) - (if _$e63061_ _$e63061_ _probe63046_)))) + (eq? _k63315_ __tmp65030)) + (let ((__tmp65029 + (let ((_next-probe63320_ + (fx+ _start63301_ + _i63310_ + (fx* _i63310_ _i63310_)))) + (fxmodulo _next-probe63320_ _size63295_))) + (__tmp65028 (fx+ _i63310_ '1)) + (__tmp65027 + (let ((_$e63323_ _deleted63312_)) + (if _$e63323_ _$e63323_ _probe63308_)))) (declare (not safe)) - (_loop63043_ __tmp64767 __tmp64766 __tmp64765)) + (_loop63305_ __tmp65029 __tmp65028 __tmp65027)) (if (let () (declare (not safe)) - (eq? _key63023_ _k63053_)) + (eq? _key63285_ _k63315_)) (begin (vector-set! - _table63027_ - _probe63046_ - _key63023_) + _table63289_ + _probe63308_ + _key63285_) (vector-set! - _table63027_ - (fx+ _probe63046_ '1) - _value63024_)) - (let ((__tmp64764 - (let ((_next-probe63064_ - (fx+ _start63039_ - _i63048_ - (fx* _i63048_ _i63048_)))) - (fxmodulo _next-probe63064_ _size63033_))) - (__tmp64763 (fx+ _i63048_ '1))) + _table63289_ + (fx+ _probe63308_ '1) + _value63286_)) + (let ((__tmp65026 + (let ((_next-probe63326_ + (fx+ _start63301_ + _i63310_ + (fx* _i63310_ _i63310_)))) + (fxmodulo _next-probe63326_ _size63295_))) + (__tmp65025 (fx+ _i63310_ '1))) (declare (not safe)) - (_loop63043_ - __tmp64764 - __tmp64763 - _deleted63050_))))))))))) + (_loop63305_ + __tmp65026 + __tmp65025 + _deleted63312_))))))))))) (define class-specializer-table-update! - (lambda (_tab63017_ - _key63018_ - _class-specializer-table-update!63019_ - _default63020_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63017_)) + (lambda (_tab63279_ + _key63280_ + _class-specializer-table-update!63281_ + _default63282_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab63279_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab63017_))) + (let () (declare (not safe)) (&raw-table-table _tab63279_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab63017_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab63279_)) '#!void) (let () (declare (not safe)) (__class-specializer-table-update! - _tab63017_ - _key63018_ - _class-specializer-table-update!63019_ - _default63020_)))) + _tab63279_ + _key63280_ + _class-specializer-table-update!63281_ + _default63282_)))) (define __class-specializer-table-update! - (lambda (_tab62971_ - _key62972_ - _class-specializer-table-update!62973_ - _default62974_) - (let ((_table62977_ - (let () (declare (not safe)) (&raw-table-table _tab62971_))) - (_seed62978_ - (let () (declare (not safe)) (&raw-table-seed _tab62971_)))) - (let* ((_h62980_ + (lambda (_tab63233_ + _key63234_ + _class-specializer-table-update!63235_ + _default63236_) + (let ((_table63239_ + (let () (declare (not safe)) (&raw-table-table _tab63233_))) + (_seed63240_ + (let () (declare (not safe)) (&raw-table-seed _tab63233_)))) + (let* ((_h63242_ (fxxor (let () (declare (not safe)) - (__class-specializer-hash-key _key62972_)) - _seed62978_)) - (_size62983_ (vector-length _table62977_)) - (_entries62986_ (fxquotient _size62983_ '2)) - (_start62989_ + (__class-specializer-hash-key _key63234_)) + _seed63240_)) + (_size63245_ (vector-length _table63239_)) + (_entries63248_ (fxquotient _size63245_ '2)) + (_start63251_ (fxarithmetic-shift-left - (fxmodulo _h62980_ _entries62986_) + (fxmodulo _h63242_ _entries63248_) '1))) - (let _loop62993_ ((_probe62996_ _start62989_) - (_i62998_ '1) - (_deleted63000_ '#f)) - (let ((_k63003_ (vector-ref _table62977_ _probe62996_))) - (if (let ((__tmp64782 (macro-unused-obj))) + (let _loop63255_ ((_probe63258_ _start63251_) + (_i63260_ '1) + (_deleted63262_ '#f)) + (let ((_k63265_ (vector-ref _table63239_ _probe63258_))) + (if (let ((__tmp65044 (macro-unused-obj))) (declare (not safe)) - (eq? _k63003_ __tmp64782)) - (if _deleted63000_ + (eq? _k63265_ __tmp65044)) + (if _deleted63262_ (begin - (vector-set! _table62977_ _deleted63000_ _key62972_) + (vector-set! _table63239_ _deleted63262_ _key63234_) (vector-set! - _table62977_ - (fx+ _deleted63000_ '1) - (_class-specializer-table-update!62973_ - _default62974_)) + _table63239_ + (fx+ _deleted63262_ '1) + (_class-specializer-table-update!63235_ + _default63236_)) ((lambda () - (let ((__tmp64781 + (let ((__tmp65043 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab62971_)) + (&raw-table-count _tab63233_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab62971_ - __tmp64781))))) + _tab63233_ + __tmp65043))))) (begin - (vector-set! _table62977_ _probe62996_ _key62972_) + (vector-set! _table63239_ _probe63258_ _key63234_) (vector-set! - _table62977_ - (fx+ _probe62996_ '1) - (_class-specializer-table-update!62973_ - _default62974_)) + _table63239_ + (fx+ _probe63258_ '1) + (_class-specializer-table-update!63235_ + _default63236_)) ((lambda () - (let ((__tmp64779 + (let ((__tmp65041 (fx- (let () (declare (not safe)) - (&raw-table-free _tab62971_)) + (&raw-table-free _tab63233_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab62971_ __tmp64779)) - (let ((__tmp64780 + (&raw-table-free-set! _tab63233_ __tmp65041)) + (let ((__tmp65042 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab62971_)) + (&raw-table-count _tab63233_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab62971_ - __tmp64780)))))) - (if (let ((__tmp64778 (macro-deleted-obj))) + _tab63233_ + __tmp65042)))))) + (if (let ((__tmp65040 (macro-deleted-obj))) (declare (not safe)) - (eq? _k63003_ __tmp64778)) - (let ((__tmp64777 - (let ((_next-probe63008_ - (fx+ _start62989_ - _i62998_ - (fx* _i62998_ _i62998_)))) - (fxmodulo _next-probe63008_ _size62983_))) - (__tmp64776 (fx+ _i62998_ '1)) - (__tmp64775 - (let ((_$e63011_ _deleted63000_)) - (if _$e63011_ _$e63011_ _probe62996_)))) + (eq? _k63265_ __tmp65040)) + (let ((__tmp65039 + (let ((_next-probe63270_ + (fx+ _start63251_ + _i63260_ + (fx* _i63260_ _i63260_)))) + (fxmodulo _next-probe63270_ _size63245_))) + (__tmp65038 (fx+ _i63260_ '1)) + (__tmp65037 + (let ((_$e63273_ _deleted63262_)) + (if _$e63273_ _$e63273_ _probe63258_)))) (declare (not safe)) - (_loop62993_ __tmp64777 __tmp64776 __tmp64775)) + (_loop63255_ __tmp65039 __tmp65038 __tmp65037)) (if (let () (declare (not safe)) - (eq? _key62972_ _k63003_)) + (eq? _key63234_ _k63265_)) (begin (vector-set! - _table62977_ - _probe62996_ - _key62972_) + _table63239_ + _probe63258_ + _key63234_) (vector-set! - _table62977_ - (fx+ _probe62996_ '1) - (_class-specializer-table-update!62973_ + _table63239_ + (fx+ _probe63258_ '1) + (_class-specializer-table-update!63235_ (vector-ref - _table62977_ - (fx+ _probe62996_ '1))))) - (let ((__tmp64774 - (let ((_next-probe63014_ - (fx+ _start62989_ - _i62998_ - (fx* _i62998_ _i62998_)))) - (fxmodulo _next-probe63014_ _size62983_))) - (__tmp64773 (fx+ _i62998_ '1))) + _table63239_ + (fx+ _probe63258_ '1))))) + (let ((__tmp65036 + (let ((_next-probe63276_ + (fx+ _start63251_ + _i63260_ + (fx* _i63260_ _i63260_)))) + (fxmodulo _next-probe63276_ _size63245_))) + (__tmp65035 (fx+ _i63260_ '1))) (declare (not safe)) - (_loop62993_ - __tmp64774 - __tmp64773 - _deleted63000_))))))))))) + (_loop63255_ + __tmp65036 + __tmp65035 + _deleted63262_))))))))))) (define class-specializer-table-delete! - (lambda (_tab62930_ _key62932_) - (let ((_table62935_ - (let () (declare (not safe)) (&raw-table-table _tab62930_))) - (_seed62937_ - (let () (declare (not safe)) (&raw-table-seed _tab62930_)))) - (let* ((_h62940_ + (lambda (_tab63192_ _key63194_) + (let ((_table63197_ + (let () (declare (not safe)) (&raw-table-table _tab63192_))) + (_seed63199_ + (let () (declare (not safe)) (&raw-table-seed _tab63192_)))) + (let* ((_h63202_ (fxxor (let () (declare (not safe)) - (__class-specializer-hash-key _key62932_)) - _seed62937_)) - (_size62943_ (vector-length _table62935_)) - (_entries62946_ (fxquotient _size62943_ '2)) - (_start62949_ + (__class-specializer-hash-key _key63194_)) + _seed63199_)) + (_size63205_ (vector-length _table63197_)) + (_entries63208_ (fxquotient _size63205_ '2)) + (_start63211_ (fxarithmetic-shift-left - (fxmodulo _h62940_ _entries62946_) + (fxmodulo _h63202_ _entries63208_) '1))) - (let _loop62953_ ((_probe62956_ _start62949_) (_i62958_ '1)) - (let ((_k62961_ (vector-ref _table62935_ _probe62956_))) - (if (let ((__tmp64789 (macro-unused-obj))) + (let _loop63215_ ((_probe63218_ _start63211_) (_i63220_ '1)) + (let ((_k63223_ (vector-ref _table63197_ _probe63218_))) + (if (let ((__tmp65051 (macro-unused-obj))) (declare (not safe)) - (eq? _k62961_ __tmp64789)) + (eq? _k63223_ __tmp65051)) '#!void - (if (let ((__tmp64788 (macro-deleted-obj))) + (if (let ((__tmp65050 (macro-deleted-obj))) (declare (not safe)) - (eq? _k62961_ __tmp64788)) - (let ((__tmp64787 - (let ((_next-probe62964_ - (fx+ _start62949_ - _i62958_ - (fx* _i62958_ _i62958_)))) - (fxmodulo _next-probe62964_ _size62943_))) - (__tmp64786 (fx+ _i62958_ '1))) + (eq? _k63223_ __tmp65050)) + (let ((__tmp65049 + (let ((_next-probe63226_ + (fx+ _start63211_ + _i63220_ + (fx* _i63220_ _i63220_)))) + (fxmodulo _next-probe63226_ _size63205_))) + (__tmp65048 (fx+ _i63220_ '1))) (declare (not safe)) - (_loop62953_ __tmp64787 __tmp64786)) + (_loop63215_ __tmp65049 __tmp65048)) (if (let () (declare (not safe)) - (eq? _key62932_ _k62961_)) + (eq? _key63194_ _k63223_)) (begin (vector-set! - _table62935_ - _probe62956_ + _table63197_ + _probe63218_ (macro-deleted-obj)) (vector-set! - _table62935_ - (fx+ _probe62956_ '1) + _table63197_ + (fx+ _probe63218_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp64785 + (let ((__tmp65047 (fx- (let () (declare (not safe)) - (&raw-table-count _tab62930_)) + (&raw-table-count _tab63192_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab62930_ - __tmp64785))))) - (let ((__tmp64784 - (let ((_next-probe62968_ - (fx+ _start62949_ - _i62958_ - (fx* _i62958_ _i62958_)))) - (fxmodulo _next-probe62968_ _size62943_))) - (__tmp64783 (fx+ _i62958_ '1))) + _tab63192_ + __tmp65047))))) + (let ((__tmp65046 + (let ((_next-probe63230_ + (fx+ _start63211_ + _i63220_ + (fx* _i63220_ _i63220_)))) + (fxmodulo _next-probe63230_ _size63205_))) + (__tmp65045 (fx+ _i63220_ '1))) (declare (not safe)) - (_loop62953_ __tmp64784 __tmp64783))))))))))) + (_loop63215_ __tmp65046 __tmp65045))))))))))) (define __class-specializers-mx (vector '0)) (define __class-specializers (let () (declare (not safe)) (make-class-specializer-table__% '#f '0))) (define __class-specializers-key (let () (declare (not safe)) (cons '#f '#f))) (define specialize-class - (lambda (_klass62923_) - (let ((_$e62925_ + (lambda (_klass63185_) + (let ((_$e63187_ (let () (declare (not safe)) - (__lookup-class-specializer _klass62923_)))) - (if _$e62925_ - _$e62925_ - (let ((_method-table62928_ + (__lookup-class-specializer _klass63185_)))) + (if _$e63187_ + _$e63187_ + (let ((_method-table63190_ (let () (declare (not safe)) - (__specialize-class _klass62923_)))) + (__specialize-class _klass63185_)))) (let () (declare (not safe)) - (__bind-class-specializer! _klass62923_ _method-table62928_)) - _method-table62928_))))) + (__bind-class-specializer! _klass63185_ _method-table63190_)) + _method-table63190_))))) (define __lookup-class-specializer - (lambda (_klass62913_) + (lambda (_klass63175_) (let () (declare (not interrupts-enabled)) - (let _again62917_ () - (if (let ((__tmp64790 + (let _again63179_ () + (if (let ((__tmp65052 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp64790 '0)) + (##fx= __tmp65052 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again62917_)))))) - (let ((_method-table62921_ + (let () (declare (not safe)) (_again63179_)))))) + (let ((_method-table63183_ (let () (declare (not safe)) (class-specializer-table-ref __class-specializers - _klass62913_ + _klass63175_ '#f)))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _method-table62921_))) + _method-table63183_))) (define __bind-class-specializer! - (lambda (_klass62904_ _method-table62905_) + (lambda (_klass63166_ _method-table63167_) (let () (declare (not interrupts-enabled)) - (let _again62909_ () - (if (let ((__tmp64791 + (let _again63171_ () + (if (let ((__tmp65053 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp64791 '0)) + (##fx= __tmp65053 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again62909_)))))) + (let () (declare (not safe)) (_again63171_)))))) (let () (declare (not safe)) (class-specializer-table-set! __class-specializers - _klass62904_ - _method-table62905_)) + _klass63166_ + _method-table63167_)) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_klass62889_ _method-table62890_ _method62891_ _proc62892_) - (let ((_$e62894_ + (lambda (_klass63151_ _method-table63152_ _method63153_ _proc63154_) + (let ((_$e63156_ (let () (declare (not safe)) - (symbolic-table-ref _method-table62890_ _method62891_ '#f)))) - (if _$e62894_ - _$e62894_ - (let ((_$e62897_ + (symbolic-table-ref _method-table63152_ _method63153_ '#f)))) + (if _$e63156_ + _$e63156_ + (let ((_$e63159_ (let () (declare (not safe)) - (__lookup-method-specializer _proc62892_)))) - (if _$e62897_ - ((lambda (_specialize62900_) - (let ((_specialized-proc62902_ - (_specialize62900_ - _klass62889_ - _method-table62890_))) + (__lookup-method-specializer _proc63154_)))) + (if _$e63159_ + ((lambda (_specialize63162_) + (let ((_specialized-proc63164_ + (_specialize63162_ + _klass63151_ + _method-table63152_))) (declare (not safe)) (symbolic-table-set! - _method-table62890_ - _method62891_ - _specialized-proc62902_))) - _$e62897_) + _method-table63152_ + _method63153_ + _specialized-proc63164_))) + _$e63159_) (let () (declare (not safe)) (symbolic-table-set! - _method-table62890_ - _method62891_ - _proc62892_)))))))) + _method-table63152_ + _method63153_ + _proc63154_)))))))) (define __specialize-class - (lambda (_klass62816_) - (if (let ((__tmp64797 + (lambda (_klass63078_) + (if (let ((__tmp65059 (let () (declare (not safe)) (##structure-instance-of? - _klass62816_ + _klass63078_ 'gerbil#class::t)))) (declare (not safe)) - (not __tmp64797)) - (if (let () (declare (not safe)) (##type? _klass62816_)) - (let ((_method-table62818_ + (not __tmp65059)) + (if (let () (declare (not safe)) (##type? _klass63078_)) + (let ((_method-table63080_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _loop62820_ ((_xklass62822_ _klass62816_)) - (if _xklass62822_ + (let _loop63082_ ((_xklass63084_ _klass63078_)) + (if _xklass63084_ (begin - (let ((_xmethod-table6282362825_ - (let ((__tmp64794 + (let ((_xmethod-table6308563087_ + (let ((__tmp65056 (let () (declare (not safe)) - (##type-id _xklass62822_)))) + (##type-id _xklass63084_)))) (declare (not safe)) (symbolic-table-ref __builtin-type-methods - __tmp64794 + __tmp65056 '#f)))) - (if _xmethod-table6282362825_ - (let* ((_xmethod-table62828_ - _xmethod-table6282362825_) - (__tmp64795 - (lambda (_g6282962832_ _g6283062834_) + (if _xmethod-table6308563087_ + (let* ((_xmethod-table63090_ + _xmethod-table6308563087_) + (__tmp65057 + (lambda (_g6309163094_ _g6309263096_) (let () (declare (not safe)) (__specialize-method - _klass62816_ - _method-table62818_ - _g6282962832_ - _g6283062834_))))) + _klass63078_ + _method-table63080_ + _g6309163094_ + _g6309263096_))))) (declare (not safe)) (raw-table-for-each - _xmethod-table62828_ - __tmp64795)) + _xmethod-table63090_ + __tmp65057)) '#f)) - (let ((__tmp64796 + (let ((__tmp65058 (let () (declare (not safe)) - (##type-super _xklass62822_)))) + (##type-super _xklass63084_)))) (declare (not safe)) - (_loop62820_ __tmp64796))) + (_loop63082_ __tmp65058))) '#!void)) - _method-table62818_) + _method-table63080_) (let () (declare (not safe)) - (error '"bad class; cannot specialize" _klass62816_))) + (error '"bad class; cannot specialize" _klass63078_))) (if (let () (declare (not safe)) - (class-type-metaclass? _klass62816_)) - (let ((__method64592 + (class-type-metaclass? _klass63078_)) + (let ((__method64854 (let () (declare (not safe)) - (method-ref _klass62816_ 'specialize-class)))) - (if __method64592 - (__method64592 _klass62816_) + (method-ref _klass63078_ 'specialize-class)))) + (if __method64854 + (__method64854 _klass63078_) (let () (declare (not safe)) (error '"Missing method" - _klass62816_ + _klass63078_ 'specialize-class)))) - (if (let ((__tmp64793 + (if (let ((__tmp65055 (let () (declare (not safe)) (##unchecked-structure-ref - _klass62816_ + _klass63078_ '6 class::t '#f)))) (declare (not safe)) - (find class-type-metaclass? __tmp64793)) + (find class-type-metaclass? __tmp65055)) (let () (declare (not safe)) (error '"cannot specialize class that extends metaclass without a metaclass" - _klass62816_)) - (let ((_method-table62837_ + _klass63078_)) + (let ((_method-table63099_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _loop62839_ ((_rest62841_ + (let _loop63101_ ((_rest63103_ (let () (declare (not safe)) (class-precedence-list - _klass62816_)))) - (let* ((_rest6284262850_ _rest62841_) - (_else6284462858_ - (lambda () _method-table62837_)) - (_K6284662877_ - (lambda (_rest62861_ _xklass62862_) - (let ((_xmethod-table6286362865_ + _klass63078_)))) + (let* ((_rest6310463112_ _rest63103_) + (_else6310663120_ + (lambda () _method-table63099_)) + (_K6310863139_ + (lambda (_rest63123_ _xklass63124_) + (let ((_xmethod-table6312563127_ (let () (declare (not safe)) (##unchecked-structure-ref - _xklass62862_ + _xklass63124_ '11 class::t '#f)))) - (if _xmethod-table6286362865_ - (let* ((_xmethod-table62868_ - _xmethod-table6286362865_) - (__tmp64792 - (lambda (_g6286962872_ - _g6287062874_) + (if _xmethod-table6312563127_ + (let* ((_xmethod-table63130_ + _xmethod-table6312563127_) + (__tmp65054 + (lambda (_g6313163134_ + _g6313263136_) (let () (declare (not safe)) (__specialize-method - _klass62816_ - _method-table62837_ - _g6286962872_ - _g6287062874_))))) + _klass63078_ + _method-table63099_ + _g6313163134_ + _g6313263136_))))) (declare (not safe)) (raw-table-for-each - _xmethod-table62868_ - __tmp64792)) + _xmethod-table63130_ + __tmp65054)) '#f)) (let () (declare (not safe)) - (_loop62839_ _rest62861_))))) + (_loop63101_ _rest63123_))))) (if (let () (declare (not safe)) - (##pair? _rest6284262850_)) - (let ((_hd6284762880_ + (##pair? _rest6310463112_)) + (let ((_hd6310963142_ (let () (declare (not safe)) - (##car _rest6284262850_))) - (_tl6284862882_ + (##car _rest6310463112_))) + (_tl6311063144_ (let () (declare (not safe)) - (##cdr _rest6284262850_)))) - (let* ((_xklass62885_ _hd6284762880_) - (_rest62887_ _tl6284862882_)) + (##cdr _rest6310463112_)))) + (let* ((_xklass63147_ _hd6310963142_) + (_rest63149_ _tl6311063144_)) (declare (not safe)) - (_K6284662877_ _rest62887_ _xklass62885_))) + (_K6310863139_ _rest63149_ _xklass63147_))) (let () (declare (not safe)) - (_else6284462858_))))))))))) + (_else6310663120_))))))))))) (define seal-class! - (lambda (_klass62812_) + (lambda (_klass63074_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass62812_ 'gerbil#class::t)) - (if (let () (declare (not safe)) (class-type-sealed? _klass62812_)) + (##structure-instance-of? _klass63074_ 'gerbil#class::t)) + (if (let () (declare (not safe)) (class-type-sealed? _klass63074_)) '#!void (begin (if (let () (declare (not safe)) - (class-type-final? _klass62812_)) + (class-type-final? _klass63074_)) '#!void (let () (declare (not safe)) - (error '"cannot seal non-final class" _klass62812_))) + (error '"cannot seal non-final class" _klass63074_))) (if (let () (declare (not safe)) - (class-type-metaclass? _klass62812_)) - (let ((__method64593 + (class-type-metaclass? _klass63074_)) + (let ((__method64855 (let () (declare (not safe)) - (method-ref _klass62812_ 'seal-class!)))) - (if __method64593 - (__method64593 _klass62812_) + (method-ref _klass63074_ 'seal-class!)))) + (if __method64855 + (__method64855 _klass63074_) (let () (declare (not safe)) (error '"Missing method" - _klass62812_ + _klass63074_ 'seal-class!)))) - (if (let ((__tmp64798 + (if (let ((__tmp65060 (let () (declare (not safe)) (##unchecked-structure-ref - _klass62812_ + _klass63074_ '6 class::t '#f)))) (declare (not safe)) - (find class-type-metaclass? __tmp64798)) + (find class-type-metaclass? __tmp65060)) (let () (declare (not safe)) (error '"cannot seal class that extends metaclass without a metaclass" - _klass62812_)) - (let ((_method-table62814_ + _klass63074_)) + (let ((_method-table63076_ (let () (declare (not safe)) - (specialize-class _klass62812_)))) + (specialize-class _klass63074_)))) (declare (not safe)) (##unchecked-structure-set! - _klass62812_ - _method-table62814_ + _klass63074_ + _method-table63076_ '11 class::t '#f)))) (let () (declare (not safe)) - (&class-type-seal! _klass62812_)))) + (&class-type-seal! _klass63074_)))) '#!void))) (define next-method - (lambda (_subklass62761_ _obj62762_ _id62763_) - (let ((_klass62765_ (object-type _obj62762_)) - (_type-id62766_ - (let () (declare (not safe)) (##type-id _subklass62761_)))) + (lambda (_subklass63023_ _obj63024_ _id63025_) + (let ((_klass63027_ (object-type _obj63024_)) + (_type-id63028_ + (let () (declare (not safe)) (##type-id _subklass63023_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass62765_ 'gerbil#class::t)) - (let _lp62768_ ((_rest62770_ + (##structure-instance-of? _klass63027_ 'gerbil#class::t)) + (let _lp63030_ ((_rest63032_ (let () (declare (not safe)) - (class-precedence-list _klass62765_)))) - (let* ((_rest6277162779_ _rest62770_) - (_else6277362787_ (lambda () '#f)) - (_K6277562793_ - (lambda (_rest62790_ _klass62791_) - (if (let ((__tmp64801 + (class-precedence-list _klass63027_)))) + (let* ((_rest6303363041_ _rest63032_) + (_else6303563049_ (lambda () '#f)) + (_K6303763055_ + (lambda (_rest63052_ _klass63053_) + (if (let ((__tmp65063 (let () (declare (not safe)) - (##type-id _klass62791_)))) + (##type-id _klass63053_)))) (declare (not safe)) - (eq? _type-id62766_ __tmp64801)) + (eq? _type-id63028_ __tmp65063)) (let () (declare (not safe)) (mixin-find-method - _rest62790_ - _obj62762_ - _id62763_)) + _rest63052_ + _obj63024_ + _id63025_)) (let () (declare (not safe)) - (_lp62768_ _rest62790_)))))) - (if (let () (declare (not safe)) (##pair? _rest6277162779_)) - (let ((_hd6277662796_ + (_lp63030_ _rest63052_)))))) + (if (let () (declare (not safe)) (##pair? _rest6303363041_)) + (let ((_hd6303863058_ (let () (declare (not safe)) - (##car _rest6277162779_))) - (_tl6277762798_ + (##car _rest6303363041_))) + (_tl6303963060_ (let () (declare (not safe)) - (##cdr _rest6277162779_)))) - (let* ((_klass62801_ _hd6277662796_) - (_rest62803_ _tl6277762798_)) + (##cdr _rest6303363041_)))) + (let* ((_klass63063_ _hd6303863058_) + (_rest63065_ _tl6303963060_)) (declare (not safe)) - (_K6277562793_ _rest62803_ _klass62801_))) - (let () (declare (not safe)) (_else6277362787_))))) - (if (let () (declare (not safe)) (##type? _klass62765_)) - (let _lp62805_ ((_klass62807_ _klass62765_)) - (if (let ((__tmp64800 + (_K6303763055_ _rest63065_ _klass63063_))) + (let () (declare (not safe)) (_else6303563049_))))) + (if (let () (declare (not safe)) (##type? _klass63027_)) + (let _lp63067_ ((_klass63069_ _klass63027_)) + (if (let ((__tmp65062 (let () (declare (not safe)) - (##type-id _klass62807_)))) + (##type-id _klass63069_)))) (declare (not safe)) - (eq? _type-id62766_ __tmp64800)) - (let ((__tmp64799 + (eq? _type-id63028_ __tmp65062)) + (let ((__tmp65061 (let () (declare (not safe)) - (##type-super _klass62807_)))) + (##type-super _klass63069_)))) (declare (not safe)) (builtin-find-method - __tmp64799 - _obj62762_ - _id62763_)) - (let ((_$e62809_ + __tmp65061 + _obj63024_ + _id63025_)) + (let ((_$e63071_ (let () (declare (not safe)) - (##type-super _klass62807_)))) - (if _$e62809_ + (##type-super _klass63069_)))) + (if _$e63071_ (let () (declare (not safe)) - (_lp62805_ _$e62809_)) + (_lp63067_ _$e63071_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass62751_ _obj62752_ _id62753_ . _args62754_) - (let ((_$e62756_ + (lambda (_subklass63013_ _obj63014_ _id63015_ . _args63016_) + (let ((_$e63018_ (let () (declare (not safe)) - (next-method _subklass62751_ _obj62752_ _id62753_)))) - (if _$e62756_ - ((lambda (_methodf62759_) - (apply _methodf62759_ _obj62752_ _args62754_)) - _$e62756_) + (next-method _subklass63013_ _obj63014_ _id63015_)))) + (if _$e63018_ + ((lambda (_methodf63021_) + (apply _methodf63021_ _obj63014_ _args63016_)) + _$e63018_) (let () (declare (not safe)) (error '"cannot find next method" 'object: - _obj62752_ + _obj63014_ 'method: - _id62753_)))))) - (define write-style (lambda (_we62749_) (macro-writeenv-style _we62749_))) + _id63015_)))))) + (define write-style (lambda (_we63011_) (macro-writeenv-style _we63011_))) (define write-object - (lambda (_we62741_ _obj62742_) - (let ((_$e62744_ - (let () (declare (not safe)) (method-ref _obj62742_ ':wr)))) - (if _$e62744_ - ((lambda (_method62747_) (_method62747_ _obj62742_ _we62741_)) - _$e62744_) + (lambda (_we63003_ _obj63004_) + (let ((_$e63006_ + (let () (declare (not safe)) (method-ref _obj63004_ ':wr)))) + (if _$e63006_ + ((lambda (_method63009_) (_method63009_ _obj63004_ _we63003_)) + _$e63006_) (let () (declare (not safe)) - (##default-wr _we62741_ _obj62742_)))))) + (##default-wr _we63003_ _obj63004_)))))) (let () (declare (not safe)) (##wr-set! write-object)))) diff --git a/src/bootstrap/gerbil/runtime/mop__1.scm b/src/bootstrap/gerbil/runtime/mop__1.scm index 7a324c7d..c4f2816d 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,1226 +1,1226 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#fxflag-set?| - (lambda (_$stx61927_) - (let* ((___stx6446864469_ _$stx61927_) - (_g6193261961_ + (lambda (_$stx62189_) + (let* ((___stx6473064731_ _$stx62189_) + (_g6219462223_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx6446864469_)))) - (let ((___kont6447164472_ - (lambda (_L62054_ _L62056_) - (let ((__tmp64808 (gx#datum->syntax '#f '##fx=)) - (__tmp64802 - (let ((__tmp64804 - (let ((__tmp64807 + ___stx6473064731_)))) + (let ((___kont6473364734_ + (lambda (_L62316_ _L62318_) + (let ((__tmp65070 (gx#datum->syntax '#f '##fx=)) + (__tmp65064 + (let ((__tmp65066 + (let ((__tmp65069 (gx#datum->syntax '#f '##fxand)) - (__tmp64805 - (let ((__tmp64806 + (__tmp65067 + (let ((__tmp65068 (let () (declare (not safe)) - (cons _L62054_ '())))) + (cons _L62316_ '())))) (declare (not safe)) - (cons _L62056_ __tmp64806)))) + (cons _L62318_ __tmp65068)))) (declare (not safe)) - (cons __tmp64807 __tmp64805))) - (__tmp64803 + (cons __tmp65069 __tmp65067))) + (__tmp65065 (let () (declare (not safe)) - (cons _L62054_ '())))) + (cons _L62316_ '())))) (declare (not safe)) - (cons __tmp64804 __tmp64803)))) + (cons __tmp65066 __tmp65065)))) (declare (not safe)) - (cons __tmp64808 __tmp64802)))) - (___kont6447364474_ - (lambda (_L61998_ _L62000_) - (let ((__tmp64821 (gx#datum->syntax '#f 'let)) - (__tmp64809 - (let ((__tmp64819 - (let ((__tmp64820 + (cons __tmp65070 __tmp65064)))) + (___kont6473564736_ + (lambda (_L62260_ _L62262_) + (let ((__tmp65083 (gx#datum->syntax '#f 'let)) + (__tmp65071 + (let ((__tmp65081 + (let ((__tmp65082 (let () (declare (not safe)) - (cons _L61998_ '())))) + (cons _L62260_ '())))) (declare (not safe)) - (cons _L61998_ __tmp64820))) - (__tmp64810 - (let ((__tmp64811 - (let ((__tmp64818 + (cons _L62260_ __tmp65082))) + (__tmp65072 + (let ((__tmp65073 + (let ((__tmp65080 (gx#datum->syntax '#f '##fx=)) - (__tmp64812 - (let ((__tmp64814 - (let ((__tmp64817 + (__tmp65074 + (let ((__tmp65076 + (let ((__tmp65079 (gx#datum->syntax '#f '##fxand)) - (__tmp64815 - (let ((__tmp64816 + (__tmp65077 + (let ((__tmp65078 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L61998_ '())))) + (let () (declare (not safe)) (cons _L62260_ '())))) (declare (not safe)) - (cons _L62000_ __tmp64816)))) + (cons _L62262_ __tmp65078)))) (declare (not safe)) - (cons __tmp64817 __tmp64815))) + (cons __tmp65079 __tmp65077))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp64813 + (__tmp65075 (let () (declare (not safe)) - (cons _L61998_ '())))) + (cons _L62260_ '())))) (declare (not safe)) - (cons __tmp64814 __tmp64813)))) + (cons __tmp65076 __tmp65075)))) (declare (not safe)) - (cons __tmp64818 __tmp64812)))) + (cons __tmp65080 __tmp65074)))) (declare (not safe)) - (cons __tmp64811 '())))) + (cons __tmp65073 '())))) (declare (not safe)) - (cons __tmp64819 __tmp64810)))) + (cons __tmp65081 __tmp65072)))) (declare (not safe)) - (cons __tmp64821 __tmp64809))))) - (let ((___match6449564496_ - (lambda (_e6193862024_ - _hd6193762028_ - _tl6193662031_ - _e6194162034_ - _hd6194062038_ - _tl6193962041_ - _e6194462044_ - _hd6194362048_ - _tl6194262051_) - (let ((_L62054_ _hd6194362048_) (_L62056_ _hd6194062038_)) - (if (or (gx#identifier? _L62054_) - (gx#stx-fixnum? _L62054_)) - (___kont6447164472_ _L62054_ _L62056_) - (___kont6447364474_ - _hd6194362048_ - _hd6194062038_)))))) - (if (gx#stx-pair? ___stx6446864469_) - (let ((_e6193862024_ (gx#syntax-e ___stx6446864469_))) - (let ((_tl6193662031_ - (let () (declare (not safe)) (##cdr _e6193862024_))) - (_hd6193762028_ - (let () (declare (not safe)) (##car _e6193862024_)))) - (if (gx#stx-pair? _tl6193662031_) - (let ((_e6194162034_ (gx#syntax-e _tl6193662031_))) - (let ((_tl6193962041_ + (cons __tmp65083 __tmp65071))))) + (let ((___match6475764758_ + (lambda (_e6220062286_ + _hd6219962290_ + _tl6219862293_ + _e6220362296_ + _hd6220262300_ + _tl6220162303_ + _e6220662306_ + _hd6220562310_ + _tl6220462313_) + (let ((_L62316_ _hd6220562310_) (_L62318_ _hd6220262300_)) + (if (or (gx#identifier? _L62316_) + (gx#stx-fixnum? _L62316_)) + (___kont6473364734_ _L62316_ _L62318_) + (___kont6473564736_ + _hd6220562310_ + _hd6220262300_)))))) + (if (gx#stx-pair? ___stx6473064731_) + (let ((_e6220062286_ (gx#syntax-e ___stx6473064731_))) + (let ((_tl6219862293_ + (let () (declare (not safe)) (##cdr _e6220062286_))) + (_hd6219962290_ + (let () (declare (not safe)) (##car _e6220062286_)))) + (if (gx#stx-pair? _tl6219862293_) + (let ((_e6220362296_ (gx#syntax-e _tl6219862293_))) + (let ((_tl6220162303_ (let () (declare (not safe)) - (##cdr _e6194162034_))) - (_hd6194062038_ + (##cdr _e6220362296_))) + (_hd6220262300_ (let () (declare (not safe)) - (##car _e6194162034_)))) - (if (gx#stx-pair? _tl6193962041_) - (let ((_e6194462044_ - (gx#syntax-e _tl6193962041_))) - (let ((_tl6194262051_ + (##car _e6220362296_)))) + (if (gx#stx-pair? _tl6220162303_) + (let ((_e6220662306_ + (gx#syntax-e _tl6220162303_))) + (let ((_tl6220462313_ (let () (declare (not safe)) - (##cdr _e6194462044_))) - (_hd6194362048_ + (##cdr _e6220662306_))) + (_hd6220562310_ (let () (declare (not safe)) - (##car _e6194462044_)))) - (if (gx#stx-null? _tl6194262051_) - (___match6449564496_ - _e6193862024_ - _hd6193762028_ - _tl6193662031_ - _e6194162034_ - _hd6194062038_ - _tl6193962041_ - _e6194462044_ - _hd6194362048_ - _tl6194262051_) + (##car _e6220662306_)))) + (if (gx#stx-null? _tl6220462313_) + (___match6475764758_ + _e6220062286_ + _hd6219962290_ + _tl6219862293_ + _e6220362296_ + _hd6220262300_ + _tl6220162303_ + _e6220662306_ + _hd6220562310_ + _tl6220462313_) (let () (declare (not safe)) - (_g6193261961_))))) + (_g6219462223_))))) (let () (declare (not safe)) - (_g6193261961_))))) - (let () (declare (not safe)) (_g6193261961_))))) - (let () (declare (not safe)) (_g6193261961_)))))))) + (_g6219462223_))))) + (let () (declare (not safe)) (_g6219462223_))))) + (let () (declare (not safe)) (_g6219462223_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_$stx62079_) - (let* ((___stx6451864519_ _$stx62079_) - (_g6208462113_ + (lambda (_$stx62341_) + (let* ((___stx6478064781_ _$stx62341_) + (_g6234662375_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx6451864519_)))) - (let ((___kont6452164522_ - (lambda (_L62205_ _L62207_) - (let ((__tmp64828 (gx#datum->syntax '#f '##fx=)) - (__tmp64822 - (let ((__tmp64824 - (let ((__tmp64827 + ___stx6478064781_)))) + (let ((___kont6478364784_ + (lambda (_L62467_ _L62469_) + (let ((__tmp65090 (gx#datum->syntax '#f '##fx=)) + (__tmp65084 + (let ((__tmp65086 + (let ((__tmp65089 (gx#datum->syntax '#f '##fxand)) - (__tmp64825 - (let ((__tmp64826 + (__tmp65087 + (let ((__tmp65088 (let () (declare (not safe)) - (cons _L62205_ '())))) + (cons _L62467_ '())))) (declare (not safe)) - (cons _L62207_ __tmp64826)))) + (cons _L62469_ __tmp65088)))) (declare (not safe)) - (cons __tmp64827 __tmp64825))) - (__tmp64823 + (cons __tmp65089 __tmp65087))) + (__tmp65085 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp64824 __tmp64823)))) + (cons __tmp65086 __tmp65085)))) (declare (not safe)) - (cons __tmp64828 __tmp64822)))) - (___kont6452364524_ - (lambda (_L62150_ _L62152_) - (let ((__tmp64841 (gx#datum->syntax '#f 'let)) - (__tmp64829 - (let ((__tmp64839 - (let ((__tmp64840 + (cons __tmp65090 __tmp65084)))) + (___kont6478564786_ + (lambda (_L62412_ _L62414_) + (let ((__tmp65103 (gx#datum->syntax '#f 'let)) + (__tmp65091 + (let ((__tmp65101 + (let ((__tmp65102 (let () (declare (not safe)) - (cons _L62150_ '())))) + (cons _L62412_ '())))) (declare (not safe)) - (cons _L62150_ __tmp64840))) - (__tmp64830 - (let ((__tmp64831 - (let ((__tmp64838 + (cons _L62412_ __tmp65102))) + (__tmp65092 + (let ((__tmp65093 + (let ((__tmp65100 (gx#datum->syntax '#f '##fx=)) - (__tmp64832 - (let ((__tmp64834 - (let ((__tmp64837 + (__tmp65094 + (let ((__tmp65096 + (let ((__tmp65099 (gx#datum->syntax '#f '##fxand)) - (__tmp64835 - (let ((__tmp64836 + (__tmp65097 + (let ((__tmp65098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L62150_ '())))) + (let () (declare (not safe)) (cons _L62412_ '())))) (declare (not safe)) - (cons _L62152_ __tmp64836)))) + (cons _L62414_ __tmp65098)))) (declare (not safe)) - (cons __tmp64837 __tmp64835))) + (cons __tmp65099 __tmp65097))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp64833 + (__tmp65095 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp64834 __tmp64833)))) + (cons __tmp65096 __tmp65095)))) (declare (not safe)) - (cons __tmp64838 __tmp64832)))) + (cons __tmp65100 __tmp65094)))) (declare (not safe)) - (cons __tmp64831 '())))) + (cons __tmp65093 '())))) (declare (not safe)) - (cons __tmp64839 __tmp64830)))) + (cons __tmp65101 __tmp65092)))) (declare (not safe)) - (cons __tmp64841 __tmp64829))))) - (let ((___match6454564546_ - (lambda (_e6209062175_ - _hd6208962179_ - _tl6208862182_ - _e6209362185_ - _hd6209262189_ - _tl6209162192_ - _e6209662195_ - _hd6209562199_ - _tl6209462202_) - (let ((_L62205_ _hd6209562199_) (_L62207_ _hd6209262189_)) - (if (or (gx#identifier? _L62205_) - (gx#stx-fixnum? _L62205_)) - (___kont6452164522_ _L62205_ _L62207_) - (___kont6452364524_ - _hd6209562199_ - _hd6209262189_)))))) - (if (gx#stx-pair? ___stx6451864519_) - (let ((_e6209062175_ (gx#syntax-e ___stx6451864519_))) - (let ((_tl6208862182_ - (let () (declare (not safe)) (##cdr _e6209062175_))) - (_hd6208962179_ - (let () (declare (not safe)) (##car _e6209062175_)))) - (if (gx#stx-pair? _tl6208862182_) - (let ((_e6209362185_ (gx#syntax-e _tl6208862182_))) - (let ((_tl6209162192_ + (cons __tmp65103 __tmp65091))))) + (let ((___match6480764808_ + (lambda (_e6235262437_ + _hd6235162441_ + _tl6235062444_ + _e6235562447_ + _hd6235462451_ + _tl6235362454_ + _e6235862457_ + _hd6235762461_ + _tl6235662464_) + (let ((_L62467_ _hd6235762461_) (_L62469_ _hd6235462451_)) + (if (or (gx#identifier? _L62467_) + (gx#stx-fixnum? _L62467_)) + (___kont6478364784_ _L62467_ _L62469_) + (___kont6478564786_ + _hd6235762461_ + _hd6235462451_)))))) + (if (gx#stx-pair? ___stx6478064781_) + (let ((_e6235262437_ (gx#syntax-e ___stx6478064781_))) + (let ((_tl6235062444_ + (let () (declare (not safe)) (##cdr _e6235262437_))) + (_hd6235162441_ + (let () (declare (not safe)) (##car _e6235262437_)))) + (if (gx#stx-pair? _tl6235062444_) + (let ((_e6235562447_ (gx#syntax-e _tl6235062444_))) + (let ((_tl6235362454_ (let () (declare (not safe)) - (##cdr _e6209362185_))) - (_hd6209262189_ + (##cdr _e6235562447_))) + (_hd6235462451_ (let () (declare (not safe)) - (##car _e6209362185_)))) - (if (gx#stx-pair? _tl6209162192_) - (let ((_e6209662195_ - (gx#syntax-e _tl6209162192_))) - (let ((_tl6209462202_ + (##car _e6235562447_)))) + (if (gx#stx-pair? _tl6235362454_) + (let ((_e6235862457_ + (gx#syntax-e _tl6235362454_))) + (let ((_tl6235662464_ (let () (declare (not safe)) - (##cdr _e6209662195_))) - (_hd6209562199_ + (##cdr _e6235862457_))) + (_hd6235762461_ (let () (declare (not safe)) - (##car _e6209662195_)))) - (if (gx#stx-null? _tl6209462202_) - (___match6454564546_ - _e6209062175_ - _hd6208962179_ - _tl6208862182_ - _e6209362185_ - _hd6209262189_ - _tl6209162192_ - _e6209662195_ - _hd6209562199_ - _tl6209462202_) + (##car _e6235862457_)))) + (if (gx#stx-null? _tl6235662464_) + (___match6480764808_ + _e6235262437_ + _hd6235162441_ + _tl6235062444_ + _e6235562447_ + _hd6235462451_ + _tl6235362454_ + _e6235862457_ + _hd6235762461_ + _tl6235662464_) (let () (declare (not safe)) - (_g6208462113_))))) + (_g6234662375_))))) (let () (declare (not safe)) - (_g6208462113_))))) - (let () (declare (not safe)) (_g6208462113_))))) - (let () (declare (not safe)) (_g6208462113_)))))))) + (_g6234662375_))))) + (let () (declare (not safe)) (_g6234662375_))))) + (let () (declare (not safe)) (_g6234662375_)))))))) (define |[:0:]#defrefset| - (lambda (_stx62230_) - (let* ((_g6223362254_ - (lambda (_g6223462250_) + (lambda (_stx62492_) + (let* ((_g6249562516_ + (lambda (_g6249662512_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6223462250_))) - (_g6223262482_ - (lambda (_g6223462258_) - (if (gx#stx-pair? _g6223462258_) - (let ((_e6223962261_ (gx#syntax-e _g6223462258_))) - (let ((_hd6223862265_ + _g6249662512_))) + (_g6249462744_ + (lambda (_g6249662520_) + (if (gx#stx-pair? _g6249662520_) + (let ((_e6250162523_ (gx#syntax-e _g6249662520_))) + (let ((_hd6250062527_ (let () (declare (not safe)) - (##car _e6223962261_))) - (_tl6223762268_ + (##car _e6250162523_))) + (_tl6249962530_ (let () (declare (not safe)) - (##cdr _e6223962261_)))) - (if (gx#stx-pair? _tl6223762268_) - (let ((_e6224262271_ (gx#syntax-e _tl6223762268_))) - (let ((_hd6224162275_ + (##cdr _e6250162523_)))) + (if (gx#stx-pair? _tl6249962530_) + (let ((_e6250462533_ (gx#syntax-e _tl6249962530_))) + (let ((_hd6250362537_ (let () (declare (not safe)) - (##car _e6224262271_))) - (_tl6224062278_ + (##car _e6250462533_))) + (_tl6250262540_ (let () (declare (not safe)) - (##cdr _e6224262271_)))) - (if (gx#stx-pair? _hd6224162275_) - (let ((_e6224562281_ - (gx#syntax-e _hd6224162275_))) - (let ((_hd6224462285_ + (##cdr _e6250462533_)))) + (if (gx#stx-pair? _hd6250362537_) + (let ((_e6250762543_ + (gx#syntax-e _hd6250362537_))) + (let ((_hd6250662547_ (let () (declare (not safe)) - (##car _e6224562281_))) - (_tl6224362288_ + (##car _e6250762543_))) + (_tl6250562550_ (let () (declare (not safe)) - (##cdr _e6224562281_)))) - (if (gx#stx-pair? _tl6224362288_) - (let ((_e6224862291_ + (##cdr _e6250762543_)))) + (if (gx#stx-pair? _tl6250562550_) + (let ((_e6251062553_ (gx#syntax-e - _tl6224362288_))) - (let ((_hd6224762295_ + _tl6250562550_))) + (let ((_hd6250962557_ (let () (declare (not safe)) - (##car _e6224862291_))) - (_tl6224662298_ + (##car _e6251062553_))) + (_tl6250862560_ (let () (declare (not safe)) - (##cdr _e6224862291_)))) + (##cdr _e6251062553_)))) (if (gx#stx-null? - _tl6224662298_) + _tl6250862560_) (if (gx#stx-null? - _tl6224062278_) - ((lambda (_L62301_ + _tl6250262540_) + ((lambda (_L62563_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L62303_) - (let* ((_g6232162329_ - (lambda (_g6232262325_) + _L62565_) + (let* ((_g6258362591_ + (lambda (_g6258462587_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6232262325_))) - (_g6232062478_ - (lambda (_g6232262333_) - ((lambda (_L62336_) + _g6258462587_))) + (_g6258262740_ + (lambda (_g6258462595_) + ((lambda (_L62598_) (let () - (let* ((_g6234862356_ - (lambda (_g6234962352_) + (let* ((_g6261062618_ + (lambda (_g6261162614_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6234962352_))) - (_g6234762474_ - (lambda (_g6234962360_) - ((lambda (_L62363_) + _g6261162614_))) + (_g6260962736_ + (lambda (_g6261162622_) + ((lambda (_L62625_) (let () - (let* ((_g6237662384_ - (lambda (_g6237762380_) + (let* ((_g6263862646_ + (lambda (_g6263962642_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6237762380_))) - (_g6237562470_ - (lambda (_g6237762388_) - ((lambda (_L62391_) + _g6263962642_))) + (_g6263762732_ + (lambda (_g6263962650_) + ((lambda (_L62653_) (let () - (let* ((_g6240462412_ + (let* ((_g6266662674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g6240562408_) + (lambda (_g6266762670_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6240562408_))) - (_g6240362466_ - (lambda (_g6240562416_) - ((lambda (_L62419_) + _g6266762670_))) + (_g6266562728_ + (lambda (_g6266762678_) + ((lambda (_L62681_) (let () - (let* ((_g6243262440_ - (lambda (_g6243362436_) + (let* ((_g6269462702_ + (lambda (_g6269562698_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6243362436_))) - (_g6243162462_ - (lambda (_g6243362444_) - ((lambda (_L62447_) + _g6269562698_))) + (_g6269362724_ + (lambda (_g6269562706_) + ((lambda (_L62709_) (let () (let () - (let ((__tmp64974 + (let ((__tmp65236 (gx#datum->syntax '#f 'begin)) - (__tmp64842 - (let ((__tmp64944 + (__tmp65104 + (let ((__tmp65206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64973 (gx#datum->syntax '#f 'def)) - (__tmp64945 - (let ((__tmp64946 - (let ((__tmp64947 - (let ((__tmp64972 + (let ((__tmp65235 (gx#datum->syntax '#f 'def)) + (__tmp65207 + (let ((__tmp65208 + (let ((__tmp65209 + (let ((__tmp65234 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp64948 - (let ((__tmp64967 + (__tmp65210 + (let ((__tmp65229 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64971 + (let ((__tmp65233 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp64968 - (let ((__tmp64969 - (let ((__tmp64970 + (__tmp65230 + (let ((__tmp65231 + (let ((__tmp65232 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L62303_ __tmp64970)))) + (cons _L62565_ __tmp65232)))) (declare (not safe)) - (cons _L62336_ __tmp64969)))) + (cons _L62598_ __tmp65231)))) (declare (not safe)) - (cons __tmp64971 __tmp64968))) - (__tmp64949 - (let ((__tmp64950 - (let ((__tmp64966 + (cons __tmp65233 __tmp65230))) + (__tmp65211 + (let ((__tmp65212 + (let ((__tmp65228 (gx#datum->syntax '#f 'lambda)) - (__tmp64951 - (let ((__tmp64964 - (let ((__tmp64965 + (__tmp65213 + (let ((__tmp65226 + (let ((__tmp65227 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp64965 '()))) - (__tmp64952 - (let ((__tmp64953 - (let ((__tmp64963 + (cons __tmp65227 '()))) + (__tmp65214 + (let ((__tmp65215 + (let ((__tmp65225 (gx#datum->syntax '#f '##structure-ref)) - (__tmp64954 - (let ((__tmp64962 + (__tmp65216 + (let ((__tmp65224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp64955 - (let ((__tmp64956 - (let ((__tmp64961 + (__tmp65217 + (let ((__tmp65218 + (let ((__tmp65223 (gx#datum->syntax '#f 'class::t)) - (__tmp64957 - (let ((__tmp64958 - (let ((__tmp64960 + (__tmp65219 + (let ((__tmp65220 + (let ((__tmp65222 (gx#datum->syntax '#f 'quote)) - (__tmp64959 + (__tmp65221 (let () (declare (not safe)) - (cons _L62303_ '())))) + (cons _L62565_ '())))) (declare (not safe)) - (cons __tmp64960 - __tmp64959)))) + (cons __tmp65222 + __tmp65221)))) (declare (not safe)) - (cons __tmp64958 '())))) + (cons __tmp65220 '())))) (declare (not safe)) - (cons __tmp64961 __tmp64957)))) + (cons __tmp65223 __tmp65219)))) (declare (not safe)) - (cons _L62301_ __tmp64956)))) + (cons _L62563_ __tmp65218)))) (declare (not safe)) - (cons __tmp64962 __tmp64955)))) + (cons __tmp65224 __tmp65217)))) (declare (not safe)) - (cons __tmp64963 __tmp64954)))) + (cons __tmp65225 __tmp65216)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64953 '())))) + (cons __tmp65215 '())))) (declare (not safe)) - (cons __tmp64964 __tmp64952)))) + (cons __tmp65226 __tmp65214)))) (declare (not safe)) - (cons __tmp64966 __tmp64951)))) + (cons __tmp65228 __tmp65213)))) (declare (not safe)) - (cons __tmp64950 '())))) + (cons __tmp65212 '())))) (declare (not safe)) - (cons __tmp64967 __tmp64949)))) + (cons __tmp65229 __tmp65211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64972 - __tmp64948)))) + (cons __tmp65234 + __tmp65210)))) (declare (not safe)) - (cons __tmp64947 '())))) + (cons __tmp65209 '())))) (declare (not safe)) - (cons _L62363_ __tmp64946)))) + (cons _L62625_ __tmp65208)))) (declare (not safe)) - (cons __tmp64973 __tmp64945))) - (__tmp64843 - (let ((__tmp64914 - (let ((__tmp64943 + (cons __tmp65235 __tmp65207))) + (__tmp65105 + (let ((__tmp65176 + (let ((__tmp65205 (gx#datum->syntax '#f 'def)) - (__tmp64915 - (let ((__tmp64916 - (let ((__tmp64917 - (let ((__tmp64942 + (__tmp65177 + (let ((__tmp65178 + (let ((__tmp65179 + (let ((__tmp65204 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp64918 - (let ((__tmp64937 - (let ((__tmp64941 + (__tmp65180 + (let ((__tmp65199 + (let ((__tmp65203 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp64938 - (let ((__tmp64939 - (let ((__tmp64940 + (__tmp65200 + (let ((__tmp65201 + (let ((__tmp65202 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L62303_ __tmp64940)))) + (cons _L62565_ __tmp65202)))) (declare (not safe)) - (cons _L62336_ __tmp64939)))) + (cons _L62598_ __tmp65201)))) (declare (not safe)) - (cons __tmp64941 __tmp64938))) - (__tmp64919 - (let ((__tmp64920 - (let ((__tmp64936 + (cons __tmp65203 __tmp65200))) + (__tmp65181 + (let ((__tmp65182 + (let ((__tmp65198 (gx#datum->syntax '#f 'lambda)) - (__tmp64921 - (let ((__tmp64934 - (let ((__tmp64935 + (__tmp65183 + (let ((__tmp65196 + (let ((__tmp65197 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp64935 '()))) - (__tmp64922 - (let ((__tmp64923 - (let ((__tmp64933 + (cons __tmp65197 '()))) + (__tmp65184 + (let ((__tmp65185 + (let ((__tmp65195 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##unchecked-structure-ref)) - (__tmp64924 - (let ((__tmp64932 (gx#datum->syntax '#f 'klass)) - (__tmp64925 - (let ((__tmp64926 - (let ((__tmp64931 + (__tmp65186 + (let ((__tmp65194 (gx#datum->syntax '#f 'klass)) + (__tmp65187 + (let ((__tmp65188 + (let ((__tmp65193 (gx#datum->syntax '#f 'class::t)) - (__tmp64927 - (let ((__tmp64928 - (let ((__tmp64930 + (__tmp65189 + (let ((__tmp65190 + (let ((__tmp65192 (gx#datum->syntax '#f 'quote)) - (__tmp64929 + (__tmp65191 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L62303_ '())))) + (cons _L62565_ '())))) (declare (not safe)) - (cons __tmp64930 __tmp64929)))) + (cons __tmp65192 __tmp65191)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64928 '())))) + (cons __tmp65190 '())))) (declare (not safe)) - (cons __tmp64931 __tmp64927)))) + (cons __tmp65193 __tmp65189)))) (declare (not safe)) - (cons _L62301_ __tmp64926)))) + (cons _L62563_ __tmp65188)))) (declare (not safe)) - (cons __tmp64932 __tmp64925)))) + (cons __tmp65194 __tmp65187)))) (declare (not safe)) - (cons __tmp64933 __tmp64924)))) + (cons __tmp65195 __tmp65186)))) (declare (not safe)) - (cons __tmp64923 '())))) + (cons __tmp65185 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64934 __tmp64922)))) + (cons __tmp65196 __tmp65184)))) (declare (not safe)) - (cons __tmp64936 __tmp64921)))) + (cons __tmp65198 __tmp65183)))) (declare (not safe)) - (cons __tmp64920 '())))) + (cons __tmp65182 '())))) (declare (not safe)) - (cons __tmp64937 __tmp64919)))) + (cons __tmp65199 __tmp65181)))) (declare (not safe)) - (cons __tmp64942 __tmp64918)))) + (cons __tmp65204 __tmp65180)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64917 '())))) + (cons __tmp65179 '())))) (declare (not safe)) - (cons _L62391_ __tmp64916)))) + (cons _L62653_ __tmp65178)))) (declare (not safe)) - (cons __tmp64943 __tmp64915))) - (__tmp64844 - (let ((__tmp64880 - (let ((__tmp64913 + (cons __tmp65205 __tmp65177))) + (__tmp65106 + (let ((__tmp65142 + (let ((__tmp65175 (gx#datum->syntax '#f 'def)) - (__tmp64881 - (let ((__tmp64882 - (let ((__tmp64883 + (__tmp65143 + (let ((__tmp65144 + (let ((__tmp65145 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64912 + (let ((__tmp65174 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp64884 - (let ((__tmp64907 - (let ((__tmp64911 + (__tmp65146 + (let ((__tmp65169 + (let ((__tmp65173 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp64908 - (let ((__tmp64909 - (let ((__tmp64910 + (__tmp65170 + (let ((__tmp65171 + (let ((__tmp65172 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L62303_ - __tmp64910)))) + (cons _L62565_ + __tmp65172)))) (declare (not safe)) - (cons _L62336_ __tmp64909)))) + (cons _L62598_ __tmp65171)))) (declare (not safe)) - (cons __tmp64911 __tmp64908))) - (__tmp64885 - (let ((__tmp64886 - (let ((__tmp64906 + (cons __tmp65173 __tmp65170))) + (__tmp65147 + (let ((__tmp65148 + (let ((__tmp65168 (gx#datum->syntax '#f 'lambda)) - (__tmp64887 - (let ((__tmp64902 - (let ((__tmp64905 + (__tmp65149 + (let ((__tmp65164 + (let ((__tmp65167 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp64903 - (let ((__tmp64904 (gx#datum->syntax '#f 'val))) + (__tmp65165 + (let ((__tmp65166 (gx#datum->syntax '#f 'val))) (declare (not safe)) - (cons __tmp64904 '())))) + (cons __tmp65166 '())))) (declare (not safe)) - (cons __tmp64905 __tmp64903))) - (__tmp64888 - (let ((__tmp64889 - (let ((__tmp64901 + (cons __tmp65167 __tmp65165))) + (__tmp65150 + (let ((__tmp65151 + (let ((__tmp65163 (gx#datum->syntax '#f '##structure-set!)) - (__tmp64890 - (let ((__tmp64900 + (__tmp65152 + (let ((__tmp65162 (gx#datum->syntax '#f 'klass)) - (__tmp64891 - (let ((__tmp64899 + (__tmp65153 + (let ((__tmp65161 (gx#datum->syntax '#f 'val)) - (__tmp64892 - (let ((__tmp64893 - (let ((__tmp64898 + (__tmp65154 + (let ((__tmp65155 + (let ((__tmp65160 (gx#datum->syntax '#f 'class::t)) - (__tmp64894 - (let ((__tmp64895 + (__tmp65156 + (let ((__tmp65157 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64897 (gx#datum->syntax '#f 'quote)) - (__tmp64896 + (let ((__tmp65159 (gx#datum->syntax '#f 'quote)) + (__tmp65158 (let () (declare (not safe)) - (cons _L62303_ '())))) + (cons _L62565_ '())))) (declare (not safe)) - (cons __tmp64897 __tmp64896)))) + (cons __tmp65159 __tmp65158)))) (declare (not safe)) - (cons __tmp64895 '())))) + (cons __tmp65157 '())))) (declare (not safe)) - (cons __tmp64898 __tmp64894)))) + (cons __tmp65160 __tmp65156)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L62301_ __tmp64893)))) + (cons _L62563_ __tmp65155)))) (declare (not safe)) - (cons __tmp64899 __tmp64892)))) + (cons __tmp65161 __tmp65154)))) (declare (not safe)) - (cons __tmp64900 __tmp64891)))) + (cons __tmp65162 __tmp65153)))) (declare (not safe)) - (cons __tmp64901 __tmp64890)))) + (cons __tmp65163 __tmp65152)))) (declare (not safe)) - (cons __tmp64889 '())))) + (cons __tmp65151 '())))) (declare (not safe)) - (cons __tmp64902 __tmp64888)))) + (cons __tmp65164 __tmp65150)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64906 __tmp64887)))) + (cons __tmp65168 __tmp65149)))) (declare (not safe)) - (cons __tmp64886 '())))) + (cons __tmp65148 '())))) (declare (not safe)) - (cons __tmp64907 __tmp64885)))) + (cons __tmp65169 __tmp65147)))) (declare (not safe)) - (cons __tmp64912 __tmp64884)))) + (cons __tmp65174 __tmp65146)))) (declare (not safe)) - (cons __tmp64883 '())))) + (cons __tmp65145 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L62419_ - __tmp64882)))) + (cons _L62681_ + __tmp65144)))) (declare (not safe)) - (cons __tmp64913 __tmp64881))) - (__tmp64845 - (let ((__tmp64846 - (let ((__tmp64879 + (cons __tmp65175 __tmp65143))) + (__tmp65107 + (let ((__tmp65108 + (let ((__tmp65141 (gx#datum->syntax '#f 'def)) - (__tmp64847 - (let ((__tmp64848 + (__tmp65109 + (let ((__tmp65110 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64849 - (let ((__tmp64878 + (let ((__tmp65111 + (let ((__tmp65140 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp64850 - (let ((__tmp64873 - (let ((__tmp64877 + (__tmp65112 + (let ((__tmp65135 + (let ((__tmp65139 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp64874 - (let ((__tmp64875 - (let ((__tmp64876 + (__tmp65136 + (let ((__tmp65137 + (let ((__tmp65138 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L62303_ __tmp64876)))) + (cons _L62565_ __tmp65138)))) (declare (not safe)) - (cons _L62336_ __tmp64875)))) + (cons _L62598_ __tmp65137)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64877 __tmp64874))) - (__tmp64851 - (let ((__tmp64852 - (let ((__tmp64872 + (cons __tmp65139 __tmp65136))) + (__tmp65113 + (let ((__tmp65114 + (let ((__tmp65134 (gx#datum->syntax '#f 'lambda)) - (__tmp64853 - (let ((__tmp64868 + (__tmp65115 + (let ((__tmp65130 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64871 (gx#datum->syntax '#f 'klass)) - (__tmp64869 - (let ((__tmp64870 + (let ((__tmp65133 (gx#datum->syntax '#f 'klass)) + (__tmp65131 + (let ((__tmp65132 (gx#datum->syntax '#f 'val))) (declare (not safe)) - (cons __tmp64870 '())))) + (cons __tmp65132 '())))) (declare (not safe)) - (cons __tmp64871 __tmp64869))) - (__tmp64854 - (let ((__tmp64855 - (let ((__tmp64867 + (cons __tmp65133 __tmp65131))) + (__tmp65116 + (let ((__tmp65117 + (let ((__tmp65129 (gx#datum->syntax '#f '##unchecked-structure-set!)) - (__tmp64856 - (let ((__tmp64866 + (__tmp65118 + (let ((__tmp65128 (gx#datum->syntax '#f 'klass)) - (__tmp64857 - (let ((__tmp64865 + (__tmp65119 + (let ((__tmp65127 (gx#datum->syntax '#f 'val)) - (__tmp64858 - (let ((__tmp64859 - (let ((__tmp64864 + (__tmp65120 + (let ((__tmp65121 + (let ((__tmp65126 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'class::t)) - (__tmp64860 - (let ((__tmp64861 - (let ((__tmp64863 + (__tmp65122 + (let ((__tmp65123 + (let ((__tmp65125 (gx#datum->syntax '#f 'quote)) - (__tmp64862 + (__tmp65124 (let () (declare (not safe)) - (cons _L62303_ '())))) + (cons _L62565_ '())))) (declare (not safe)) - (cons __tmp64863 __tmp64862)))) + (cons __tmp65125 __tmp65124)))) (declare (not safe)) - (cons __tmp64861 '())))) + (cons __tmp65123 '())))) (declare (not safe)) - (cons __tmp64864 __tmp64860)))) + (cons __tmp65126 __tmp65122)))) (declare (not safe)) - (cons _L62301_ __tmp64859)))) + (cons _L62563_ __tmp65121)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64865 - __tmp64858)))) + (cons __tmp65127 + __tmp65120)))) (declare (not safe)) - (cons __tmp64866 __tmp64857)))) + (cons __tmp65128 __tmp65119)))) (declare (not safe)) - (cons __tmp64867 __tmp64856)))) + (cons __tmp65129 __tmp65118)))) (declare (not safe)) - (cons __tmp64855 '())))) + (cons __tmp65117 '())))) (declare (not safe)) - (cons __tmp64868 __tmp64854)))) + (cons __tmp65130 __tmp65116)))) (declare (not safe)) - (cons __tmp64872 __tmp64853)))) + (cons __tmp65134 __tmp65115)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64852 '())))) + (cons __tmp65114 '())))) (declare (not safe)) - (cons __tmp64873 __tmp64851)))) + (cons __tmp65135 __tmp65113)))) (declare (not safe)) - (cons __tmp64878 __tmp64850)))) + (cons __tmp65140 __tmp65112)))) (declare (not safe)) - (cons __tmp64849 '())))) + (cons __tmp65111 '())))) (declare (not safe)) - (cons _L62447_ __tmp64848)))) + (cons _L62709_ __tmp65110)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64879 - __tmp64847)))) + (cons __tmp65141 + __tmp65109)))) (declare (not safe)) - (cons __tmp64846 '())))) + (cons __tmp65108 '())))) (declare (not safe)) - (cons __tmp64880 __tmp64845)))) + (cons __tmp65142 __tmp65107)))) (declare (not safe)) - (cons __tmp64914 __tmp64844)))) + (cons __tmp65176 __tmp65106)))) (declare (not safe)) - (cons __tmp64944 __tmp64843)))) + (cons __tmp65206 __tmp65105)))) (declare (not safe)) - (cons __tmp64974 __tmp64842))))) + (cons __tmp65236 __tmp65104))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g6243362444_)))) - (_g6243162462_ + _g6269562706_)))) + (_g6269362724_ (gx#stx-identifier - _L62303_ + _L62565_ '"&" - _L62419_))))) - _g6240562416_)))) - (_g6240362466_ - (gx#stx-identifier _L62303_ _L62363_ '"-set!"))))) - _g6237762388_)))) + _L62681_))))) + _g6266762678_)))) + (_g6266562728_ + (gx#stx-identifier _L62565_ _L62625_ '"-set!"))))) + _g6263962650_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6237562470_ + (_g6263762732_ (gx#stx-identifier - _L62303_ + _L62565_ '"&" - _L62363_))))) - _g6234962360_)))) - (_g6234762474_ + _L62625_))))) + _g6261162622_)))) + (_g6260962736_ (gx#stx-identifier - _L62303_ + _L62565_ '"class-type-" - _L62303_))))) - _g6232262333_)))) - (_g6232062478_ (gx#core-quote-syntax 'class::t)))) - _hd6224762295_ - _hd6224462285_) - (_g6223362254_ _g6223462258_)) + _L62565_))))) + _g6258462595_)))) + (_g6258262740_ (gx#core-quote-syntax 'class::t)))) + _hd6250962557_ + _hd6250662547_) + (_g6249562516_ _g6249662520_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6223362254_ - _g6223462258_)))) - (_g6223362254_ _g6223462258_)))) - (_g6223362254_ _g6223462258_)))) - (_g6223362254_ _g6223462258_)))) - (_g6223362254_ _g6223462258_))))) - (_g6223262482_ _stx62230_)))) + (_g6249562516_ + _g6249662520_)))) + (_g6249562516_ _g6249662520_)))) + (_g6249562516_ _g6249662520_)))) + (_g6249562516_ _g6249662520_)))) + (_g6249562516_ _g6249662520_))))) + (_g6249462744_ _stx62492_)))) (define |[:0:]#defrefset*| - (lambda (_$stx62486_) - (let* ((_g6249062519_ - (lambda (_g6249162515_) + (lambda (_$stx62748_) + (let* ((_g6275262781_ + (lambda (_g6275362777_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6249162515_))) - (_g6248962619_ - (lambda (_g6249162523_) - (if (gx#stx-pair? _g6249162523_) - (let ((_e6249662526_ (gx#syntax-e _g6249162523_))) - (let ((_hd6249562530_ + _g6275362777_))) + (_g6275162881_ + (lambda (_g6275362785_) + (if (gx#stx-pair? _g6275362785_) + (let ((_e6275862788_ (gx#syntax-e _g6275362785_))) + (let ((_hd6275762792_ (let () (declare (not safe)) - (##car _e6249662526_))) - (_tl6249462533_ + (##car _e6275862788_))) + (_tl6275662795_ (let () (declare (not safe)) - (##cdr _e6249662526_)))) - (if (gx#stx-pair/null? _tl6249462533_) - (let ((_g64975_ - (gx#syntax-split-splice _tl6249462533_ '0))) + (##cdr _e6275862788_)))) + (if (gx#stx-pair/null? _tl6275662795_) + (let ((_g65237_ + (gx#syntax-split-splice _tl6275662795_ '0))) (begin - (let ((_g64976_ + (let ((_g65238_ (let () (declare (not safe)) - (if (##values? _g64975_) - (##vector-length _g64975_) + (if (##values? _g65237_) + (##vector-length _g65237_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g64976_ 2))) + (##fx= _g65238_ 2))) (error "Context expects 2 values" - _g64976_))) - (let ((_target6249762536_ + _g65238_))) + (let ((_target6275962798_ (let () (declare (not safe)) - (##vector-ref _g64975_ 0))) - (_tl6249962539_ + (##vector-ref _g65237_ 0))) + (_tl6276162801_ (let () (declare (not safe)) - (##vector-ref _g64975_ 1)))) - (if (gx#stx-null? _tl6249962539_) - (letrec ((_loop6250062542_ - (lambda (_hd6249862546_ - _field6250462549_ - _slot6250562551_) + (##vector-ref _g65237_ 1)))) + (if (gx#stx-null? _tl6276162801_) + (letrec ((_loop6276262804_ + (lambda (_hd6276062808_ + _field6276662811_ + _slot6276762813_) (if (gx#stx-pair? - _hd6249862546_) - (let ((_e6250162554_ + _hd6276062808_) + (let ((_e6276362816_ (gx#syntax-e - _hd6249862546_))) - (let ((_lp-hd6250262558_ + _hd6276062808_))) + (let ((_lp-hd6276462820_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6250162554_))) - (_lp-tl6250362561_ - (let () (declare (not safe)) (##cdr _e6250162554_)))) - (if (gx#stx-pair? _lp-hd6250262558_) - (let ((_e6251062564_ (gx#syntax-e _lp-hd6250262558_))) - (let ((_hd6250962568_ + (##car _e6276362816_))) + (_lp-tl6276562823_ + (let () (declare (not safe)) (##cdr _e6276362816_)))) + (if (gx#stx-pair? _lp-hd6276462820_) + (let ((_e6277262826_ (gx#syntax-e _lp-hd6276462820_))) + (let ((_hd6277162830_ (let () (declare (not safe)) - (##car _e6251062564_))) - (_tl6250862571_ + (##car _e6277262826_))) + (_tl6277062833_ (let () (declare (not safe)) - (##cdr _e6251062564_)))) - (if (gx#stx-pair? _tl6250862571_) - (let ((_e6251362574_ - (gx#syntax-e _tl6250862571_))) - (let ((_hd6251262578_ + (##cdr _e6277262826_)))) + (if (gx#stx-pair? _tl6277062833_) + (let ((_e6277562836_ + (gx#syntax-e _tl6277062833_))) + (let ((_hd6277462840_ (let () (declare (not safe)) - (##car _e6251362574_))) - (_tl6251162581_ + (##car _e6277562836_))) + (_tl6277362843_ (let () (declare (not safe)) - (##cdr _e6251362574_)))) - (if (gx#stx-null? _tl6251162581_) - (_loop6250062542_ - _lp-tl6250362561_ + (##cdr _e6277562836_)))) + (if (gx#stx-null? _tl6277362843_) + (_loop6276262804_ + _lp-tl6276562823_ (let () (declare (not safe)) - (cons _hd6251262578_ - _field6250462549_)) + (cons _hd6277462840_ + _field6276662811_)) (let () (declare (not safe)) - (cons _hd6250962568_ - _slot6250562551_))) - (_g6249062519_ _g6249162523_)))) - (_g6249062519_ _g6249162523_)))) - (_g6249062519_ _g6249162523_)))) - (let ((_field6250662584_ (reverse _field6250462549_)) - (_slot6250762587_ (reverse _slot6250562551_))) - ((lambda (_L62590_ _L62592_) - (let ((__tmp64984 (gx#datum->syntax '#f 'begin)) - (__tmp64977 + (cons _hd6277162830_ + _slot6276762813_))) + (_g6275262781_ _g6275362785_)))) + (_g6275262781_ _g6275362785_)))) + (_g6275262781_ _g6275362785_)))) + (let ((_field6276862846_ (reverse _field6276662811_)) + (_slot6276962849_ (reverse _slot6276762813_))) + ((lambda (_L62852_ _L62854_) + (let ((__tmp65246 (gx#datum->syntax '#f 'begin)) + (__tmp65239 (begin - (gx#syntax-check-splice-targets _L62590_ _L62592_) - (let ((__tmp64978 - (lambda (_g6260762611_ - _g6260862614_ - _g6260962616_) - (let ((__tmp64979 - (let ((__tmp64983 + (gx#syntax-check-splice-targets _L62852_ _L62854_) + (let ((__tmp65240 + (lambda (_g6286962873_ + _g6287062876_ + _g6287162878_) + (let ((__tmp65241 + (let ((__tmp65245 (gx#datum->syntax '#f 'defrefset)) - (__tmp64980 - (let ((__tmp64981 - (let ((__tmp64982 + (__tmp65242 + (let ((__tmp65243 + (let ((__tmp65244 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g6260762611_ '())))) + (cons _g6286962873_ '())))) (declare (not safe)) - (cons _g6260862614_ __tmp64982)))) + (cons _g6287062876_ __tmp65244)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64981 '())))) + (cons __tmp65243 '())))) (declare (not safe)) - (cons __tmp64983 __tmp64980)))) + (cons __tmp65245 __tmp65242)))) (declare (not safe)) - (cons __tmp64979 _g6260962616_))))) + (cons __tmp65241 _g6287162878_))))) (declare (not safe)) - (foldr2 __tmp64978 '() _L62590_ _L62592_))))) + (foldr2 __tmp65240 '() _L62852_ _L62854_))))) (declare (not safe)) - (cons __tmp64984 __tmp64977))) - _field6250662584_ - _slot6250762587_)))))) + (cons __tmp65246 __tmp65239))) + _field6276862846_ + _slot6276962849_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6250062542_ - _target6249762536_ + (_loop6276262804_ + _target6275962798_ '() '())) - (_g6249062519_ _g6249162523_))))) - (_g6249062519_ _g6249162523_)))) - (_g6249062519_ _g6249162523_))))) - (_g6248962619_ _$stx62486_)))) + (_g6275262781_ _g6275362785_))))) + (_g6275262781_ _g6275362785_)))) + (_g6275262781_ _g6275362785_))))) + (_g6275162881_ _$stx62748_)))) (define |[:0:]#__slot-e| - (lambda (_$stx62624_) - (let* ((_g6262862654_ - (lambda (_g6262962650_) + (lambda (_$stx62886_) + (let* ((_g6289062916_ + (lambda (_g6289162912_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6262962650_))) - (_g6262762737_ - (lambda (_g6262962658_) - (if (gx#stx-pair? _g6262962658_) - (let ((_e6263662661_ (gx#syntax-e _g6262962658_))) - (let ((_hd6263562665_ + _g6289162912_))) + (_g6288962999_ + (lambda (_g6289162920_) + (if (gx#stx-pair? _g6289162920_) + (let ((_e6289862923_ (gx#syntax-e _g6289162920_))) + (let ((_hd6289762927_ (let () (declare (not safe)) - (##car _e6263662661_))) - (_tl6263462668_ + (##car _e6289862923_))) + (_tl6289662930_ (let () (declare (not safe)) - (##cdr _e6263662661_)))) - (if (gx#stx-pair? _tl6263462668_) - (let ((_e6263962671_ (gx#syntax-e _tl6263462668_))) - (let ((_hd6263862675_ + (##cdr _e6289862923_)))) + (if (gx#stx-pair? _tl6289662930_) + (let ((_e6290162933_ (gx#syntax-e _tl6289662930_))) + (let ((_hd6290062937_ (let () (declare (not safe)) - (##car _e6263962671_))) - (_tl6263762678_ + (##car _e6290162933_))) + (_tl6289962940_ (let () (declare (not safe)) - (##cdr _e6263962671_)))) - (if (gx#stx-pair? _tl6263762678_) - (let ((_e6264262681_ - (gx#syntax-e _tl6263762678_))) - (let ((_hd6264162685_ + (##cdr _e6290162933_)))) + (if (gx#stx-pair? _tl6289962940_) + (let ((_e6290462943_ + (gx#syntax-e _tl6289962940_))) + (let ((_hd6290362947_ (let () (declare (not safe)) - (##car _e6264262681_))) - (_tl6264062688_ + (##car _e6290462943_))) + (_tl6290262950_ (let () (declare (not safe)) - (##cdr _e6264262681_)))) - (if (gx#stx-pair? _tl6264062688_) - (let ((_e6264562691_ + (##cdr _e6290462943_)))) + (if (gx#stx-pair? _tl6290262950_) + (let ((_e6290762953_ (gx#syntax-e - _tl6264062688_))) - (let ((_hd6264462695_ + _tl6290262950_))) + (let ((_hd6290662957_ (let () (declare (not safe)) - (##car _e6264562691_))) - (_tl6264362698_ + (##car _e6290762953_))) + (_tl6290562960_ (let () (declare (not safe)) - (##cdr _e6264562691_)))) + (##cdr _e6290762953_)))) (if (gx#stx-pair? - _tl6264362698_) - (let ((_e6264862701_ + _tl6290562960_) + (let ((_e6291062963_ (gx#syntax-e - _tl6264362698_))) - (let ((_hd6264762705_ + _tl6290562960_))) + (let ((_hd6290962967_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e6264862701_))) - (_tl6264662708_ - (let () (declare (not safe)) (##cdr _e6264862701_)))) - (if (gx#stx-null? _tl6264662708_) - ((lambda (_L62711_ _L62713_ _L62714_ _L62715_) - (let ((__tmp65031 (gx#datum->syntax '#f 'if)) - (__tmp64985 - (let ((__tmp65028 - (let ((__tmp65030 + (##car _e6291062963_))) + (_tl6290862970_ + (let () (declare (not safe)) (##cdr _e6291062963_)))) + (if (gx#stx-null? _tl6290862970_) + ((lambda (_L62973_ _L62975_ _L62976_ _L62977_) + (let ((__tmp65293 (gx#datum->syntax '#f 'if)) + (__tmp65247 + (let ((__tmp65290 + (let ((__tmp65292 (gx#datum->syntax '#f 'object?)) - (__tmp65029 + (__tmp65291 (let () (declare (not safe)) - (cons _L62715_ '())))) + (cons _L62977_ '())))) (declare (not safe)) - (cons __tmp65030 __tmp65029))) - (__tmp64986 - (let ((__tmp64991 - (let ((__tmp65027 + (cons __tmp65292 __tmp65291))) + (__tmp65248 + (let ((__tmp65253 + (let ((__tmp65289 (gx#datum->syntax '#f 'let)) - (__tmp64992 - (let ((__tmp65021 - (let ((__tmp65026 + (__tmp65254 + (let ((__tmp65283 + (let ((__tmp65288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp65022 - (let ((__tmp65023 - (let ((__tmp65025 + (__tmp65284 + (let ((__tmp65285 + (let ((__tmp65287 (gx#datum->syntax '#f 'object-type)) - (__tmp65024 + (__tmp65286 (let () (declare (not safe)) - (cons _L62715_ '())))) + (cons _L62977_ '())))) (declare (not safe)) - (cons __tmp65025 __tmp65024)))) + (cons __tmp65287 __tmp65286)))) (declare (not safe)) - (cons __tmp65023 '())))) + (cons __tmp65285 '())))) (declare (not safe)) - (cons __tmp65026 __tmp65022))) - (__tmp64993 - (let ((__tmp64994 - (let ((__tmp65020 (gx#datum->syntax '#f 'cond)) - (__tmp64995 - (let ((__tmp65003 - (let ((__tmp65007 - (let ((__tmp65019 + (cons __tmp65288 __tmp65284))) + (__tmp65255 + (let ((__tmp65256 + (let ((__tmp65282 (gx#datum->syntax '#f 'cond)) + (__tmp65257 + (let ((__tmp65265 + (let ((__tmp65269 + (let ((__tmp65281 (gx#datum->syntax '#f 'and)) - (__tmp65008 - (let ((__tmp65015 - (let ((__tmp65018 + (__tmp65270 + (let ((__tmp65277 + (let ((__tmp65280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'class-type?)) - (__tmp65016 - (let ((__tmp65017 (gx#datum->syntax '#f 'klass))) + (__tmp65278 + (let ((__tmp65279 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp65017 '())))) + (cons __tmp65279 '())))) (declare (not safe)) - (cons __tmp65018 __tmp65016))) - (__tmp65009 - (let ((__tmp65010 - (let ((__tmp65014 + (cons __tmp65280 __tmp65278))) + (__tmp65271 + (let ((__tmp65272 + (let ((__tmp65276 (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp65011 - (let ((__tmp65013 + (__tmp65273 + (let ((__tmp65275 (gx#datum->syntax '#f 'klass)) - (__tmp65012 + (__tmp65274 (let () (declare (not safe)) - (cons _L62714_ '())))) + (cons _L62976_ '())))) (declare (not safe)) - (cons __tmp65013 __tmp65012)))) + (cons __tmp65275 __tmp65274)))) (declare (not safe)) - (cons __tmp65014 __tmp65011)))) + (cons __tmp65276 __tmp65273)))) (declare (not safe)) - (cons __tmp65010 '())))) + (cons __tmp65272 '())))) (declare (not safe)) - (cons __tmp65015 __tmp65009)))) + (cons __tmp65277 __tmp65271)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp65019 __tmp65008))) - (__tmp65004 - (let ((__tmp65006 + (cons __tmp65281 __tmp65270))) + (__tmp65266 + (let ((__tmp65268 (gx#datum->syntax '#f '=>)) - (__tmp65005 + (__tmp65267 (let () (declare (not safe)) - (cons _L62713_ '())))) + (cons _L62975_ '())))) (declare (not safe)) - (cons __tmp65006 __tmp65005)))) + (cons __tmp65268 __tmp65267)))) (declare (not safe)) - (cons __tmp65007 __tmp65004))) - (__tmp64996 - (let ((__tmp64997 - (let ((__tmp65002 + (cons __tmp65269 __tmp65266))) + (__tmp65258 + (let ((__tmp65259 + (let ((__tmp65264 (gx#datum->syntax '#f 'else)) - (__tmp64998 - (let ((__tmp64999 - (let ((__tmp65000 + (__tmp65260 + (let ((__tmp65261 + (let ((__tmp65262 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp65001 + (let ((__tmp65263 (let () (declare (not safe)) - (cons _L62714_ '())))) + (cons _L62976_ '())))) (declare (not safe)) - (cons _L62715_ __tmp65001)))) + (cons _L62977_ __tmp65263)))) (declare (not safe)) - (cons _L62711_ __tmp65000)))) + (cons _L62973_ __tmp65262)))) (declare (not safe)) - (cons __tmp64999 '())))) + (cons __tmp65261 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp65002 __tmp64998)))) + (cons __tmp65264 __tmp65260)))) (declare (not safe)) - (cons __tmp64997 '())))) + (cons __tmp65259 '())))) (declare (not safe)) - (cons __tmp65003 __tmp64996)))) + (cons __tmp65265 __tmp65258)))) (declare (not safe)) - (cons __tmp65020 __tmp64995)))) + (cons __tmp65282 __tmp65257)))) (declare (not safe)) - (cons __tmp64994 '())))) + (cons __tmp65256 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp65021 - __tmp64993)))) + (cons __tmp65283 + __tmp65255)))) (declare (not safe)) - (cons __tmp65027 __tmp64992))) - (__tmp64987 - (let ((__tmp64988 - (let ((__tmp64989 - (let ((__tmp64990 + (cons __tmp65289 __tmp65254))) + (__tmp65249 + (let ((__tmp65250 + (let ((__tmp65251 + (let ((__tmp65252 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L62714_ '())))) + (let () (declare (not safe)) (cons _L62976_ '())))) (declare (not safe)) - (cons _L62715_ __tmp64990)))) + (cons _L62977_ __tmp65252)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L62711_ - __tmp64989)))) + (cons _L62973_ + __tmp65251)))) (declare (not safe)) - (cons __tmp64988 '())))) + (cons __tmp65250 '())))) (declare (not safe)) - (cons __tmp64991 __tmp64987)))) + (cons __tmp65253 __tmp65249)))) (declare (not safe)) - (cons __tmp65028 __tmp64986)))) + (cons __tmp65290 __tmp65248)))) (declare (not safe)) - (cons __tmp65031 __tmp64985))) - _hd6264762705_ - _hd6264462695_ - _hd6264162685_ - _hd6263862675_) - (_g6262862654_ _g6262962658_)))) + (cons __tmp65293 __tmp65247))) + _hd6290962967_ + _hd6290662957_ + _hd6290362947_ + _hd6290062937_) + (_g6289062916_ _g6289162920_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6262862654_ - _g6262962658_)))) - (_g6262862654_ _g6262962658_)))) - (_g6262862654_ _g6262962658_)))) - (_g6262862654_ _g6262962658_)))) - (_g6262862654_ _g6262962658_))))) - (_g6262762737_ _$stx62624_))))) + (_g6289062916_ + _g6289162920_)))) + (_g6289062916_ _g6289162920_)))) + (_g6289062916_ _g6289162920_)))) + (_g6289062916_ _g6289162920_)))) + (_g6289062916_ _g6289162920_))))) + (_g6288962999_ _$stx62886_))))) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index 8c2037b6..d9e77c9b 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 1709375797) + (define gerbil/runtime/repl::timestamp 1709457369) (define replx (lambda () - (letrec ((_write-reason78373_ - (lambda (_exn78379_) - (lambda (_cont78381_ _port78382_) + (letrec ((_write-reason78635_ + (lambda (_exn78641_) + (lambda (_cont78643_ _port78644_) (let () (declare (not safe)) (##display-exception-in-context - _exn78379_ - _cont78381_ - _port78382_)) + _exn78641_ + _cont78643_ + _port78644_)) '#f)))) (with-exception-handler - (lambda (_exn78375_) - (let ((__tmp78383 - (lambda (_cont78377_) - (let ((__tmp78384 + (lambda (_exn78637_) + (let ((__tmp78645 + (lambda (_cont78639_) + (let ((__tmp78646 (let () (declare (not safe)) - (_write-reason78373_ _exn78375_)))) + (_write-reason78635_ _exn78637_)))) (declare (not safe)) - (##repl-within _cont78377_ __tmp78384 _exn78375_))))) + (##repl-within _cont78639_ __tmp78646 _exn78637_))))) (declare (not safe)) - (##continuation-capture __tmp78383))) + (##continuation-capture __tmp78645))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index d64ed4b0..f19fac46 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 1709375797) + (define gerbil/runtime/syntax::timestamp 1709457369) (begin (declare (not safe)) (define SyntaxError::t @@ -13,7 +13,7 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args75044_ (apply make-instance SyntaxError::t _$args75044_))) + (lambda _$args75306_ (apply make-instance SyntaxError::t _$args75306_))) (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 (_self74947_ _port74948_) - (letrec ((_location74950_ + (lambda (_self75209_ _port75210_) + (letrec ((_location75212_ (lambda () - (let _lp75004_ ((_rest75006_ + (let _lp75266_ ((_rest75268_ (##unchecked-structure-ref - _self74947_ + _self75209_ '2 SyntaxError::t '#f))) - (let* ((_rest7500775015_ _rest75006_) - (_else7500975023_ (lambda () '#f)) - (_K7501175032_ - (lambda (_rest75026_ _hd75027_) - (let ((_$e75029_ (__AST-source _hd75027_))) - (if _$e75029_ - _$e75029_ - (_lp75004_ _rest75026_)))))) - (if (##pair? _rest7500775015_) - (let ((_hd7501275035_ (##car _rest7500775015_)) - (_tl7501375037_ (##cdr _rest7500775015_))) - (let* ((_hd75040_ _hd7501275035_) - (_rest75042_ _tl7501375037_)) - (_K7501175032_ _rest75042_ _hd75040_))) - (_else7500975023_))))))) + (let* ((_rest7526975277_ _rest75268_) + (_else7527175285_ (lambda () '#f)) + (_K7527375294_ + (lambda (_rest75288_ _hd75289_) + (let ((_$e75291_ (__AST-source _hd75289_))) + (if _$e75291_ + _$e75291_ + (_lp75266_ _rest75288_)))))) + (if (##pair? _rest7526975277_) + (let ((_hd7527475297_ (##car _rest7526975277_)) + (_tl7527575299_ (##cdr _rest7526975277_))) + (let* ((_hd75302_ _hd7527475297_) + (_rest75304_ _tl7527575299_)) + (_K7527375294_ _rest75304_ _hd75302_))) + (_else7527175285_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e74953_ (_location74950_))) - (if _$e74953_ - ((lambda (_where74956_) - (##display-locat _where74956_ '#t (current-output-port))) - _$e74953_) + (let ((_$e75215_ (_location75212_))) + (if _$e75215_ + ((lambda (_where75218_) + (##display-locat _where75218_ '#t (current-output-port))) + _$e75215_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e74958_ + (let ((_$e75220_ (##unchecked-structure-ref - _self74947_ + _self75209_ '3 SyntaxError::t '#f))) - (if _$e74958_ - ((lambda (_where74961_) + (if _$e75220_ + ((lambda (_where75223_) (displayln '" at " - _where74961_ + _where75223_ '": " (##unchecked-structure-ref - _self74947_ + _self75209_ '1 SyntaxError::t '#f))) - _$e74958_) + _$e75220_) (displayln '": " (##unchecked-structure-ref - _self74947_ + _self75209_ '1 SyntaxError::t '#f)))) - (let* ((_g7496274970_ + (let* ((_g7522475232_ (##unchecked-structure-ref - _self74947_ + _self75209_ '2 SyntaxError::t '#f)) - (_else7496474978_ (lambda () '#!void)) - (_K7496674991_ - (lambda (_rest74981_ _stx74982_) + (_else7522675240_ (lambda () '#!void)) + (_K7522875253_ + (lambda (_rest75243_ _stx75244_) (display '"... form: ") - (__pp-syntax _stx74982_) + (__pp-syntax _stx75244_) (for-each - (lambda (_detail74984_) + (lambda (_detail75246_) (display '"... detail: ") - (write (__AST->datum _detail74984_)) - (let ((_$e74986_ (__AST-source _detail74984_))) - (if _$e74986_ - ((lambda (_loc74989_) + (write (__AST->datum _detail75246_)) + (let ((_$e75248_ (__AST-source _detail75246_))) + (if _$e75248_ + ((lambda (_loc75251_) (display '" at ") (##display-locat - _loc74989_ + _loc75251_ '#t (current-output-port))) - _$e74986_) + _$e75248_) '#!void)) (newline)) - _rest74981_)))) - (if (##pair? _g7496274970_) - (let ((_hd7496774994_ (##car _g7496274970_)) - (_tl7496874996_ (##cdr _g7496274970_))) - (let* ((_stx74999_ _hd7496774994_) - (_rest75001_ _tl7496874996_)) - (_K7496674991_ _rest75001_ _stx74999_))) + _rest75243_)))) + (if (##pair? _g7522475232_) + (let ((_hd7522975256_ (##car _g7522475232_)) + (_tl7523075258_ (##cdr _g7522475232_))) + (let* ((_stx75261_ _hd7522975256_) + (_rest75263_ _tl7523075258_)) + (_K7522875253_ _rest75263_ _stx75261_))) '#!void))) current-output-port - _port74948_)))) + _port75210_)))) (bind-method!__% SyntaxError::t 'display-exception @@ -163,58 +163,58 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message74818_ - _irritants74819_ - _where74820_ - _context74821_ - _marks74822_ - _phi74823_) - (let ((__obj75139 + (lambda (_message75080_ + _irritants75081_ + _where75082_ + _context75083_ + _marks75084_ + _phi75085_) + (let ((__obj75401 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f))) (##unchecked-structure-set! - __obj75139 - _message74818_ + __obj75401 + _message75080_ '1 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75139 - _irritants74819_ + __obj75401 + _irritants75081_ '2 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75139 - _where74820_ + __obj75401 + _where75082_ '3 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75139 - _context74821_ + __obj75401 + _context75083_ '4 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75139 - _marks74822_ + __obj75401 + _marks75084_ '6 SyntaxError::t '#f) (##unchecked-structure-set! - __obj75139 - _phi74823_ + __obj75401 + _phi75085_ '5 SyntaxError::t '#f) - __obj75139))) + __obj75401))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where74813_ _message74814_ _stx74815_ . _details74816_) + (lambda (_where75075_ _message75076_ _stx75077_ . _details75078_) (raise (make-syntax-error - _message74814_ - (cons _stx74815_ _details74816_) - _where74813_ + _message75076_ + (cons _stx75077_ _details75078_) + _where75075_ '#f '#f '#f)))) @@ -228,7 +228,7 @@ '#f)) (define AST? (make-class-predicate AST::t)) (define make-AST - (lambda _$args74810_ (apply make-instance AST::t _$args74810_))) + (lambda _$args75072_ (apply make-instance AST::t _$args75072_))) (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 (_stx74808_) - (if (##structure-instance-of? _stx74808_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx74808_ '1 AST::t '#f) - _stx74808_))) + (lambda (_stx75070_) + (if (##structure-instance-of? _stx75070_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx75070_ '1 AST::t '#f) + _stx75070_))) (define __AST-source - (lambda (_stx74802_) - (let _lp74804_ ((_src74806_ _stx74802_)) - (if (##structure-instance-of? _src74806_ 'gerbil#AST::t) - (_lp74804_ (##unchecked-structure-ref _src74806_ '2 AST::t '#f)) - (if (##locat? _src74806_) _src74806_ '#f))))) + (lambda (_stx75064_) + (let _lp75066_ ((_src75068_ _stx75064_)) + (if (##structure-instance-of? _src75068_ 'gerbil#AST::t) + (_lp75066_ (##unchecked-structure-ref _src75068_ '2 AST::t '#f)) + (if (##locat? _src75068_) _src75068_ '#f))))) (define __AST - (lambda (_e74794_ _src-stx74795_) - (let ((_src74797_ (__AST-source _src-stx74795_))) - (if (or (##structure-instance-of? _e74794_ 'gerbil#AST::t) - (not _src74797_)) - _e74794_ - (##structure AST::t _e74794_ _src74797_))))) + (lambda (_e75056_ _src-stx75057_) + (let ((_src75059_ (__AST-source _src-stx75057_))) + (if (or (##structure-instance-of? _e75056_ 'gerbil#AST::t) + (not _src75059_)) + _e75056_ + (##structure AST::t _e75056_ _src75059_))))) (define __AST-eq? - (lambda (_stx74791_ _obj74792_) (eq? (__AST-e _stx74791_) _obj74792_))) - (define __AST-pair? (lambda (_stx74789_) (pair? (__AST-e _stx74789_)))) - (define __AST-null? (lambda (_stx74787_) (null? (__AST-e _stx74787_)))) + (lambda (_stx75053_ _obj75054_) (eq? (__AST-e _stx75053_) _obj75054_))) + (define __AST-pair? (lambda (_stx75051_) (pair? (__AST-e _stx75051_)))) + (define __AST-null? (lambda (_stx75049_) (null? (__AST-e _stx75049_)))) (define __AST-datum? - (lambda (_stx74768_) - (let* ((_e74770_ (__AST-e _stx74768_)) (_$e74772_ (number? _e74770_))) - (if _$e74772_ - _$e74772_ - (let ((_$e74775_ (string? _e74770_))) - (if _$e74775_ - _$e74775_ - (let ((_$e74778_ (char? _e74770_))) - (if _$e74778_ - _$e74778_ - (let ((_$e74781_ (keyword? _e74770_))) - (if _$e74781_ - _$e74781_ - (let ((_$e74784_ (boolean? _e74770_))) - (if _$e74784_ - _$e74784_ - (eq? _e74770_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx74766_) (symbol? (__AST-e _stx74766_)))) + (lambda (_stx75030_) + (let* ((_e75032_ (__AST-e _stx75030_)) (_$e75034_ (number? _e75032_))) + (if _$e75034_ + _$e75034_ + (let ((_$e75037_ (string? _e75032_))) + (if _$e75037_ + _$e75037_ + (let ((_$e75040_ (char? _e75032_))) + (if _$e75040_ + _$e75040_ + (let ((_$e75043_ (keyword? _e75032_))) + (if _$e75043_ + _$e75043_ + (let ((_$e75046_ (boolean? _e75032_))) + (if _$e75046_ + _$e75046_ + (eq? _e75032_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx75028_) (symbol? (__AST-e _stx75028_)))) (define __AST-id-list?__% - (lambda (_stx74717_ _tail?74718_) - (let _lp74720_ ((_rest74722_ _stx74717_)) - (let* ((_$e74724_ _rest74722_) - (_$E7472674739_ + (lambda (_stx74979_ _tail?74980_) + (let _lp74982_ ((_rest74984_ _stx74979_)) + (let* ((_$e74986_ _rest74984_) + (_$E7498875001_ (lambda () - (let* ((_$E7472774734_ + (let* ((_$E7498974996_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e74724_))) - (_rest74737_ _$e74724_)) - (_tail?74718_ _rest74737_))))) - (if (__AST-pair? _$e74724_) - (let* ((_$tgt7472874742_ (__AST-e _$e74724_)) - (_$hd7472974745_ (##car _$tgt7472874742_)) - (_$tl7473074748_ (##cdr _$tgt7472874742_))) - (let* ((_hd74752_ _$hd7472974745_) - (_rest74754_ _$tl7473074748_)) - (if (__AST-id? _hd74752_) (_lp74720_ _rest74754_) '#f))) - (_$E7472674739_)))))) + _$e74986_))) + (_rest74999_ _$e74986_)) + (_tail?74980_ _rest74999_))))) + (if (__AST-pair? _$e74986_) + (let* ((_$tgt7499075004_ (__AST-e _$e74986_)) + (_$hd7499175007_ (##car _$tgt7499075004_)) + (_$tl7499275010_ (##cdr _$tgt7499075004_))) + (let* ((_hd75014_ _$hd7499175007_) + (_rest75016_ _$tl7499275010_)) + (if (__AST-id? _hd75014_) (_lp74982_ _rest75016_) '#f))) + (_$E7498875001_)))))) (define __AST-id-list?__0 - (lambda (_stx74759_) - (let ((_tail?74761_ __AST-null?)) - (__AST-id-list?__% _stx74759_ _tail?74761_)))) + (lambda (_stx75021_) + (let ((_tail?75023_ __AST-null?)) + (__AST-id-list?__% _stx75021_ _tail?75023_)))) (define __AST-id-list? - (lambda _g75142_ - (let ((_g75141_ (##length _g75142_))) - (cond ((##fx= _g75141_ 1) - (apply (lambda (_stx74759_) (__AST-id-list?__0 _stx74759_)) - _g75142_)) - ((##fx= _g75141_ 2) - (apply (lambda (_stx74763_ _tail?74764_) - (__AST-id-list?__% _stx74763_ _tail?74764_)) - _g75142_)) + (lambda _g75404_ + (let ((_g75403_ (##length _g75404_))) + (cond ((##fx= _g75403_ 1) + (apply (lambda (_stx75021_) (__AST-id-list?__0 _stx75021_)) + _g75404_)) + ((##fx= _g75403_ 2) + (apply (lambda (_stx75025_ _tail?75026_) + (__AST-id-list?__% _stx75025_ _tail?75026_)) + _g75404_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g75142_)))))) + _g75404_)))))) (define __AST-bind-list? - (lambda (_stx74709_) + (lambda (_stx74971_) (__AST-id-list?__% - _stx74709_ - (lambda (_e74711_) - (let ((_$e74713_ (__AST-null? _e74711_))) - (if _$e74713_ _$e74713_ (__AST-id? _e74711_))))))) + _stx74971_ + (lambda (_e74973_) + (let ((_$e74975_ (__AST-null? _e74973_))) + (if _$e74975_ _$e74975_ (__AST-id? _e74973_))))))) (define __AST-list?__% - (lambda (_stx74662_ _tail?74663_) - (let _lp74665_ ((_rest74667_ _stx74662_)) - (let* ((_$e74669_ _rest74667_) - (_$E7467174684_ + (lambda (_stx74924_ _tail?74925_) + (let _lp74927_ ((_rest74929_ _stx74924_)) + (let* ((_$e74931_ _rest74929_) + (_$E7493374946_ (lambda () - (let* ((_$E7467274679_ + (let* ((_$E7493474941_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e74669_))) - (_rest74682_ _$e74669_)) - (_tail?74663_ _rest74682_))))) - (if (__AST-pair? _$e74669_) - (let* ((_$tgt7467374687_ (__AST-e _$e74669_)) - (_$hd7467474690_ (##car _$tgt7467374687_)) - (_$tl7467574693_ (##cdr _$tgt7467374687_))) - (let ((_rest74697_ _$tl7467574693_)) - (_lp74665_ _rest74697_))) - (_$E7467174684_)))))) + _$e74931_))) + (_rest74944_ _$e74931_)) + (_tail?74925_ _rest74944_))))) + (if (__AST-pair? _$e74931_) + (let* ((_$tgt7493574949_ (__AST-e _$e74931_)) + (_$hd7493674952_ (##car _$tgt7493574949_)) + (_$tl7493774955_ (##cdr _$tgt7493574949_))) + (let ((_rest74959_ _$tl7493774955_)) + (_lp74927_ _rest74959_))) + (_$E7493374946_)))))) (define __AST-list?__0 - (lambda (_stx74702_) - (let ((_tail?74704_ __AST-null?)) - (__AST-list?__% _stx74702_ _tail?74704_)))) + (lambda (_stx74964_) + (let ((_tail?74966_ __AST-null?)) + (__AST-list?__% _stx74964_ _tail?74966_)))) (define __AST-list? - (lambda _g75144_ - (let ((_g75143_ (##length _g75144_))) - (cond ((##fx= _g75143_ 1) - (apply (lambda (_stx74702_) (__AST-list?__0 _stx74702_)) - _g75144_)) - ((##fx= _g75143_ 2) - (apply (lambda (_stx74706_ _tail?74707_) - (__AST-list?__% _stx74706_ _tail?74707_)) - _g75144_)) + (lambda _g75406_ + (let ((_g75405_ (##length _g75406_))) + (cond ((##fx= _g75405_ 1) + (apply (lambda (_stx74964_) (__AST-list?__0 _stx74964_)) + _g75406_)) + ((##fx= _g75405_ 2) + (apply (lambda (_stx74968_ _tail?74969_) + (__AST-list?__% _stx74968_ _tail?74969_)) + _g75406_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g75144_)))))) + _g75406_)))))) (define __AST->list - (lambda (_stx74627_) - (let* ((_$e74629_ _stx74627_) - (_$E7463174644_ + (lambda (_stx74889_) + (let* ((_$e74891_ _stx74889_) + (_$E7489374906_ (lambda () - (let* ((_$E7463274639_ + (let* ((_$E7489474901_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e74629_))) - (_rest74642_ _$e74629_)) - (__AST-e _rest74642_))))) - (if (__AST-pair? _$e74629_) - (let* ((_$tgt7463374647_ (__AST-e _$e74629_)) - (_$hd7463474650_ (##car _$tgt7463374647_)) - (_$tl7463574653_ (##cdr _$tgt7463374647_))) - (let* ((_hd74657_ _$hd7463474650_) - (_rest74659_ _$tl7463574653_)) - (cons _hd74657_ (__AST->list _rest74659_)))) - (_$E7463174644_))))) + _$e74891_))) + (_rest74904_ _$e74891_)) + (__AST-e _rest74904_))))) + (if (__AST-pair? _$e74891_) + (let* ((_$tgt7489574909_ (__AST-e _$e74891_)) + (_$hd7489674912_ (##car _$tgt7489574909_)) + (_$tl7489774915_ (##cdr _$tgt7489574909_))) + (let* ((_hd74919_ _$hd7489674912_) + (_rest74921_ _$tl7489774915_)) + (cons _hd74919_ (__AST->list _rest74921_)))) + (_$E7489374906_))))) (define __AST->datum - (lambda (_stx74625_) - (if (##structure-instance-of? _stx74625_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx74625_)) - (if (pair? _stx74625_) - (cons (__AST->datum (car _stx74625_)) - (__AST->datum (cdr _stx74625_))) - (if (vector? _stx74625_) - (vector-map __AST->datum _stx74625_) - (if (box? _stx74625_) - (box (__AST->datum (unbox _stx74625_))) - _stx74625_)))))) + (lambda (_stx74887_) + (if (##structure-instance-of? _stx74887_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx74887_)) + (if (pair? _stx74887_) + (cons (__AST->datum (car _stx74887_)) + (__AST->datum (cdr _stx74887_))) + (if (vector? _stx74887_) + (vector-map __AST->datum _stx74887_) + (if (box? _stx74887_) + (box (__AST->datum (unbox _stx74887_))) + _stx74887_)))))) (define get-readenv - (lambda (_port74623_) + (lambda (_port74885_) (##make-readenv - _port74623_ + _port74885_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -409,83 +409,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in74611_) - (let ((_e74613_ (##read-datum-or-eof (get-readenv _in74611_)))) - (if (eof-object? (__AST-e _e74613_)) (__AST-e _e74613_) _e74613_)))) + (lambda (_in74873_) + (let ((_e74875_ (##read-datum-or-eof (get-readenv _in74873_)))) + (if (eof-object? (__AST-e _e74875_)) (__AST-e _e74875_) _e74875_)))) (define read-syntax__0 (lambda () - (let ((_in74619_ (current-input-port))) (read-syntax__% _in74619_)))) + (let ((_in74881_ (current-input-port))) (read-syntax__% _in74881_)))) (define read-syntax - (lambda _g75146_ - (let ((_g75145_ (##length _g75146_))) - (cond ((##fx= _g75145_ 0) - (apply (lambda () (read-syntax__0)) _g75146_)) - ((##fx= _g75145_ 1) - (apply (lambda (_in74621_) (read-syntax__% _in74621_)) - _g75146_)) + (lambda _g75408_ + (let ((_g75407_ (##length _g75408_))) + (cond ((##fx= _g75407_ 0) + (apply (lambda () (read-syntax__0)) _g75408_)) + ((##fx= _g75407_ 1) + (apply (lambda (_in74883_) (read-syntax__% _in74883_)) + _g75408_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g75146_)))))) + _g75408_)))))) (define read-syntax-from-file - (lambda (_path74606_) - (let ((_r74608_ + (lambda (_path74868_) + (let ((_r74870_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path74606_) + (path-normalize _path74868_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r74608_) - (cdr (__AST-e (vector-ref _r74608_ '1))) - (error (err-code->string _r74608_) _path74606_))))) + (if (vector? _r74870_) + (cdr (__AST-e (vector-ref _r74870_ '1))) + (error (err-code->string _r74870_) _path74868_))))) (define __wrap-syntax - (lambda (_re74603_ _e74604_) - (if (eof-object? _e74604_) - _e74604_ - (##structure AST::t _e74604_ (##readenv->locat _re74603_))))) - (define __unwrap-syntax (lambda (_re74600_ _e74601_) (__AST-e _e74601_))) - (define __pp-syntax (lambda (_stx74598_) (pp (__AST->datum _stx74598_)))) + (lambda (_re74865_ _e74866_) + (if (eof-object? _e74866_) + _e74866_ + (##structure AST::t _e74866_ (##readenv->locat _re74865_))))) + (define __unwrap-syntax (lambda (_re74862_ _e74863_) (__AST-e _e74863_))) + (define __pp-syntax (lambda (_stx74860_) (pp (__AST->datum _stx74860_)))) (define __make-readtable (lambda () - (let ((_rt74596_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt74596_ '#t) - (macro-readtable-bracket-handler-set! _rt74596_ '@list) - (macro-readtable-brace-handler-set! _rt74596_ '@method) + (let ((_rt74858_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt74858_ '#t) + (macro-readtable-bracket-handler-set! _rt74858_ '@list) + (macro-readtable-brace-handler-set! _rt74858_ '@method) (##readtable-char-sharp-handler-set! - _rt74596_ + _rt74858_ '#\! __read-sharp-bang) - _rt74596_))) + _rt74858_))) (define __readtable-bracket-keyword-set! - (lambda (_rt74592_ _kw74593_) - (macro-readtable-bracket-handler-set! _rt74592_ _kw74593_))) + (lambda (_rt74854_ _kw74855_) + (macro-readtable-bracket-handler-set! _rt74854_ _kw74855_))) (define __readtable-brace-keyword-set! - (lambda (_rt74589_ _kw74590_) - (macro-readtable-brace-handler-set! _rt74589_ _kw74590_))) + (lambda (_rt74851_ _kw74852_) + (macro-readtable-brace-handler-set! _rt74851_ _kw74852_))) (define __read-sharp-bang - (lambda (_re74580_ _next74581_ _start-pos74582_) - (if (eq? _start-pos74582_ '0) - (let* ((_line74584_ + (lambda (_re74842_ _next74843_ _start-pos74844_) + (if (eq? _start-pos74844_ '0) + (let* ((_line74846_ (##read-line - (macro-readenv-port _re74580_) + (macro-readenv-port _re74842_) '#\newline '#f ##max-fixnum)) - (_script-line74586_ - (substring _line74584_ '1 (string-length _line74584_)))) - (macro-readenv-script-line-set! _re74580_ _script-line74586_) + (_script-line74848_ + (substring _line74846_ '1 (string-length _line74846_)))) + (macro-readenv-script-line-set! _re74842_ _script-line74848_) (##script-marker)) - (##read-sharp-bang _re74580_ _next74581_ _start-pos74582_)))) + (##read-sharp-bang _re74842_ _next74843_ _start-pos74844_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj74578_) - (if (source-location? _obj74578_) - (string? (##locat-container _obj74578_)) + (lambda (_obj74840_) + (if (source-location? _obj74840_) + (string? (##locat-container _obj74840_)) '#f))) (define source-location-path - (lambda (_obj74576_) - (if (##locat? _obj74576_) - (##container->path (##locat-container _obj74576_)) + (lambda (_obj74838_) + (if (##locat? _obj74838_) + (##container->path (##locat-container _obj74838_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 5aa86c89..86155249 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]#_g75251_| + (define |[1]#_g75513_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g75259_| + (define |[1]#_g75521_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g75261_| + (define |[1]#_g75523_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g75263_| + (define |[1]#_g75525_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g75265_| + (define |[1]#_g75527_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g75274_| + (define |[1]#_g75536_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g75277_| + (define |[1]#_g75539_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g75280_| + (define |[1]#_g75542_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g75283_| + (define |[1]#_g75545_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g75286_| + (define |[1]#_g75548_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g75289_| + (define |[1]#_g75551_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g75298_| + (define |[1]#_g75560_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75301_| + (define |[1]#_g75563_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75304_| + (define |[1]#_g75566_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75307_| + (define |[1]#_g75569_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75310_| + (define |[1]#_g75572_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75313_| + (define |[1]#_g75575_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75322_| + (define |[1]#_g75584_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g75325_| + (define |[1]#_g75587_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g75328_| + (define |[1]#_g75590_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g75331_| + (define |[1]#_g75593_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g75334_| + (define |[1]#_g75596_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g75337_| + (define |[1]#_g75599_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g75346_| + (define |[1]#_g75608_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75349_| + (define |[1]#_g75611_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75352_| + (define |[1]#_g75614_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75355_| + (define |[1]#_g75617_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75358_| + (define |[1]#_g75620_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75361_| + (define |[1]#_g75623_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75363_| + (define |[1]#_g75625_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g75365_| + (define |[1]#_g75627_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g75367_| + (define |[1]#_g75629_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g75372_| + (define |[1]#_g75634_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g75375_| + (define |[1]#_g75637_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g75380_| + (define |[1]#_g75642_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75383_| + (define |[1]#_g75645_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75388_| + (define |[1]#_g75650_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g75391_| + (define |[1]#_g75653_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g75396_| + (define |[1]#_g75658_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g75399_| + (define |[1]#_g75661_| (##structure gx#syntax-quote::t '&AST-e-set! @@ -282,1165 +282,1165 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx73465_) - (let* ((_g7346973493_ - (lambda (_g7347073489_) + (lambda (_$stx73727_) + (let* ((_g7373173755_ + (lambda (_g7373273751_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7347073489_))) - (_g7346873579_ - (lambda (_g7347073497_) - (if (gx#stx-pair? _g7347073497_) - (let ((_e7347573500_ (gx#syntax-e _g7347073497_))) - (let ((_hd7347473504_ + _g7373273751_))) + (_g7373073841_ + (lambda (_g7373273759_) + (if (gx#stx-pair? _g7373273759_) + (let ((_e7373773762_ (gx#syntax-e _g7373273759_))) + (let ((_hd7373673766_ (let () (declare (not safe)) - (##car _e7347573500_))) - (_tl7347373507_ + (##car _e7373773762_))) + (_tl7373573769_ (let () (declare (not safe)) - (##cdr _e7347573500_)))) - (if (gx#stx-pair? _tl7347373507_) - (let ((_e7347873510_ - (gx#syntax-e _tl7347373507_))) - (let ((_hd7347773514_ + (##cdr _e7373773762_)))) + (if (gx#stx-pair? _tl7373573769_) + (let ((_e7374073772_ + (gx#syntax-e _tl7373573769_))) + (let ((_hd7373973776_ (let () (declare (not safe)) - (##car _e7347873510_))) - (_tl7347673517_ + (##car _e7374073772_))) + (_tl7373873779_ (let () (declare (not safe)) - (##cdr _e7347873510_)))) - (if (gx#stx-pair/null? _tl7347673517_) - (let ((_g75147_ + (##cdr _e7374073772_)))) + (if (gx#stx-pair/null? _tl7373873779_) + (let ((_g75409_ (gx#syntax-split-splice - _tl7347673517_ + _tl7373873779_ '0))) (begin - (let ((_g75148_ + (let ((_g75410_ (let () (declare (not safe)) - (if (##values? _g75147_) + (if (##values? _g75409_) (##vector-length - _g75147_) + _g75409_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g75148_ 2))) + (##fx= _g75410_ 2))) (error "Context expects 2 values" - _g75148_))) - (let ((_target7347973520_ + _g75410_))) + (let ((_target7374173782_ (let () (declare (not safe)) - (##vector-ref _g75147_ 0))) - (_tl7348173523_ + (##vector-ref _g75409_ 0))) + (_tl7374373785_ (let () (declare (not safe)) - (##vector-ref _g75147_ 1)))) - (if (gx#stx-null? _tl7348173523_) - (letrec ((_loop7348273526_ - (lambda (_hd7348073530_ + (##vector-ref _g75409_ 1)))) + (if (gx#stx-null? _tl7374373785_) + (letrec ((_loop7374473788_ + (lambda (_hd7374273792_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body7348673533_) - (if (gx#stx-pair? _hd7348073530_) - (let ((_e7348373536_ (gx#syntax-e _hd7348073530_))) - (let ((_lp-hd7348473540_ + _body7374873795_) + (if (gx#stx-pair? _hd7374273792_) + (let ((_e7374573798_ (gx#syntax-e _hd7374273792_))) + (let ((_lp-hd7374673802_ (let () (declare (not safe)) - (##car _e7348373536_))) - (_lp-tl7348573543_ + (##car _e7374573798_))) + (_lp-tl7374773805_ (let () (declare (not safe)) - (##cdr _e7348373536_)))) - (_loop7348273526_ - _lp-tl7348573543_ + (##cdr _e7374573798_)))) + (_loop7374473788_ + _lp-tl7374773805_ (let () (declare (not safe)) - (cons _lp-hd7348473540_ _body7348673533_))))) - (let ((_body7348773546_ (reverse _body7348673533_))) - ((lambda (_L73550_ _L73552_) - (let ((__tmp75160 (gx#datum->syntax '#f 'let)) - (__tmp75149 - (let ((__tmp75157 - (let ((__tmp75159 + (cons _lp-hd7374673802_ _body7374873795_))))) + (let ((_body7374973808_ (reverse _body7374873795_))) + ((lambda (_L73812_ _L73814_) + (let ((__tmp75422 (gx#datum->syntax '#f 'let)) + (__tmp75411 + (let ((__tmp75419 + (let ((__tmp75421 (gx#datum->syntax '#f '$e)) - (__tmp75158 + (__tmp75420 (let () (declare (not safe)) - (cons _L73552_ '())))) + (cons _L73814_ '())))) (declare (not safe)) - (cons __tmp75159 __tmp75158))) - (__tmp75150 - (let ((__tmp75151 - (let ((__tmp75156 + (cons __tmp75421 __tmp75420))) + (__tmp75412 + (let ((__tmp75413 + (let ((__tmp75418 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp75152 - (let ((__tmp75155 + (__tmp75414 + (let ((__tmp75417 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp75153 - (let ((__tmp75154 - (lambda (_g7357073573_ _g7357173576_) + (__tmp75415 + (let ((__tmp75416 + (lambda (_g7383273835_ _g7383373838_) (let () (declare (not safe)) - (cons _g7357073573_ _g7357173576_))))) + (cons _g7383273835_ _g7383373838_))))) (declare (not safe)) - (foldr1 __tmp75154 '() _L73550_)))) + (foldr1 __tmp75416 '() _L73812_)))) (declare (not safe)) - (cons __tmp75155 __tmp75153)))) + (cons __tmp75417 __tmp75415)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75156 - __tmp75152)))) + (cons __tmp75418 + __tmp75414)))) (declare (not safe)) - (cons __tmp75151 '())))) + (cons __tmp75413 '())))) (declare (not safe)) - (cons __tmp75157 __tmp75150)))) + (cons __tmp75419 __tmp75412)))) (declare (not safe)) - (cons __tmp75160 __tmp75149))) - _body7348773546_ - _hd7347773514_)))))) + (cons __tmp75422 __tmp75411))) + _body7374973808_ + _hd7373973776_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7348273526_ - _target7347973520_ + (_loop7374473788_ + _target7374173782_ '())) - (_g7346973493_ - _g7347073497_))))) - (_g7346973493_ _g7347073497_)))) - (_g7346973493_ _g7347073497_)))) - (_g7346973493_ _g7347073497_))))) - (_g7346873579_ _$stx73465_)))) + (_g7373173755_ + _g7373273759_))))) + (_g7373173755_ _g7373273759_)))) + (_g7373173755_ _g7373273759_)))) + (_g7373173755_ _g7373273759_))))) + (_g7373073841_ _$stx73727_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx73584_) - (letrec ((_generate173587_ - (lambda (_hd74128_ _tgt74130_ _K74131_ _E74132_ _kws74133_) - (let* ((_g7413574143_ - (lambda (_g7413674139_) + (lambda (_stx73846_) + (letrec ((_generate173849_ + (lambda (_hd74390_ _tgt74392_ _K74393_ _E74394_ _kws74395_) + (let* ((_g7439774405_ + (lambda (_g7439874401_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7413674139_))) - (_g7413474570_ - (lambda (_g7413674147_) - ((lambda (_L74150_) + _g7439874401_))) + (_g7439674832_ + (lambda (_g7439874409_) + ((lambda (_L74412_) (let () - (let* ((___stx7504775048_ _hd74128_) - (_g7416474178_ + (let* ((___stx7530975310_ _hd74390_) + (_g7442674440_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7504775048_)))) - (let ((___kont7505075051_ - (lambda (_L74392_ _L74394_) - (let* ((_g7440574413_ - (lambda (_g7440674409_) + ___stx7530975310_)))) + (let ((___kont7531275313_ + (lambda (_L74654_ _L74656_) + (let* ((_g7466774675_ + (lambda (_g7466874671_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7440674409_))) - (_g7440474562_ - (lambda (_g7440674417_) - ((lambda (_L74420_) + _g7466874671_))) + (_g7466674824_ + (lambda (_g7466874679_) + ((lambda (_L74682_) (let () - (let* ((_g7443274440_ + (let* ((_g7469474702_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7443374436_) + (lambda (_g7469574698_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7443374436_))) - (_g7443174558_ - (lambda (_g7443374444_) - ((lambda (_L74447_) + _g7469574698_))) + (_g7469374820_ + (lambda (_g7469574706_) + ((lambda (_L74709_) (let () - (let* ((_g7446074468_ - (lambda (_g7446174464_) + (let* ((_g7472274730_ + (lambda (_g7472374726_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7446174464_))) - (_g7445974554_ - (lambda (_g7446174472_) - ((lambda (_L74475_) + _g7472374726_))) + (_g7472174816_ + (lambda (_g7472374734_) + ((lambda (_L74737_) (let () - (let* ((_g7448874496_ - (lambda (_g7448974492_) + (let* ((_g7475074758_ + (lambda (_g7475174754_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7448974492_))) - (_g7448774550_ - (lambda (_g7448974500_) - ((lambda (_L74503_) + _g7475174754_))) + (_g7474974812_ + (lambda (_g7475174762_) + ((lambda (_L74765_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g7451674524_ - (lambda (_g7451774520_) + (let* ((_g7477874786_ + (lambda (_g7477974782_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7451774520_))) - (_g7451574546_ - (lambda (_g7451774528_) - ((lambda (_L74531_) + _g7477974782_))) + (_g7477774808_ + (lambda (_g7477974790_) + ((lambda (_L74793_) (let () (let () - (let ((__tmp75189 + (let ((__tmp75451 (gx#datum->syntax '#f 'if)) - (__tmp75161 - (let ((__tmp75186 - (let ((__tmp75188 + (__tmp75423 + (let ((__tmp75448 + (let ((__tmp75450 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp75187 - (let () (declare (not safe)) (cons _L74150_ '())))) + (__tmp75449 + (let () (declare (not safe)) (cons _L74412_ '())))) (declare (not safe)) - (cons __tmp75188 __tmp75187))) - (__tmp75162 - (let ((__tmp75164 - (let ((__tmp75185 (gx#datum->syntax '#f 'let*)) - (__tmp75165 - (let ((__tmp75167 - (let ((__tmp75180 - (let ((__tmp75181 - (let ((__tmp75182 - (let ((__tmp75184 + (cons __tmp75450 __tmp75449))) + (__tmp75424 + (let ((__tmp75426 + (let ((__tmp75447 (gx#datum->syntax '#f 'let*)) + (__tmp75427 + (let ((__tmp75429 + (let ((__tmp75442 + (let ((__tmp75443 + (let ((__tmp75444 + (let ((__tmp75446 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp75183 - (let () (declare (not safe)) (cons _L74150_ '())))) + (__tmp75445 + (let () (declare (not safe)) (cons _L74412_ '())))) (declare (not safe)) - (cons __tmp75184 __tmp75183)))) + (cons __tmp75446 __tmp75445)))) (declare (not safe)) - (cons __tmp75182 '())))) + (cons __tmp75444 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L74420_ __tmp75181))) - (__tmp75168 - (let ((__tmp75175 - (let ((__tmp75176 - (let ((__tmp75177 + (cons _L74682_ __tmp75443))) + (__tmp75430 + (let ((__tmp75437 + (let ((__tmp75438 + (let ((__tmp75439 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp75179 (gx#datum->syntax '#f '##car)) - (__tmp75178 + (let ((__tmp75441 (gx#datum->syntax '#f '##car)) + (__tmp75440 (let () (declare (not safe)) - (cons _L74420_ '())))) + (cons _L74682_ '())))) (declare (not safe)) - (cons __tmp75179 __tmp75178)))) + (cons __tmp75441 __tmp75440)))) (declare (not safe)) - (cons __tmp75177 '())))) + (cons __tmp75439 '())))) (declare (not safe)) - (cons _L74447_ __tmp75176))) + (cons _L74709_ __tmp75438))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp75169 - (let ((__tmp75170 - (let ((__tmp75171 + (__tmp75431 + (let ((__tmp75432 + (let ((__tmp75433 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp75172 - (let ((__tmp75174 + (let ((__tmp75434 + (let ((__tmp75436 (gx#datum->syntax '#f '##cdr)) - (__tmp75173 + (__tmp75435 (let () (declare (not safe)) - (cons _L74420_ '())))) + (cons _L74682_ '())))) (declare (not safe)) - (cons __tmp75174 __tmp75173)))) + (cons __tmp75436 __tmp75435)))) (declare (not safe)) - (cons __tmp75172 '())))) + (cons __tmp75434 '())))) (declare (not safe)) - (cons _L74475_ __tmp75171)))) + (cons _L74737_ __tmp75433)))) (declare (not safe)) - (cons __tmp75170 '())))) + (cons __tmp75432 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75175 __tmp75169)))) + (cons __tmp75437 __tmp75431)))) (declare (not safe)) - (cons __tmp75180 __tmp75168))) - (__tmp75166 + (cons __tmp75442 __tmp75430))) + (__tmp75428 (let () (declare (not safe)) - (cons _L74503_ '())))) + (cons _L74765_ '())))) (declare (not safe)) - (cons __tmp75167 __tmp75166)))) + (cons __tmp75429 __tmp75428)))) (declare (not safe)) - (cons __tmp75185 __tmp75165))) - (__tmp75163 - (let () (declare (not safe)) (cons _L74531_ '())))) + (cons __tmp75447 __tmp75427))) + (__tmp75425 + (let () (declare (not safe)) (cons _L74793_ '())))) (declare (not safe)) - (cons __tmp75164 __tmp75163)))) + (cons __tmp75426 __tmp75425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75186 - __tmp75162)))) + (cons __tmp75448 + __tmp75424)))) (declare (not safe)) - (cons __tmp75189 __tmp75161))))) - _g7451774528_)))) - (_g7451574546_ _E74132_)))) - _g7448974500_)))) + (cons __tmp75451 __tmp75423))))) + _g7477974790_)))) + (_g7477774808_ _E74394_)))) + _g7475174762_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7448774550_ - (_generate173587_ - _L74394_ - _L74447_ - (_generate173587_ - _L74392_ - _L74475_ - _K74131_ - _E74132_ - _kws74133_) - _E74132_ - _kws74133_))))) - _g7446174472_)))) - (_g7445974554_ (gx#genident '$tl))))) - _g7443374444_)))) - (_g7443174558_ (gx#genident '$hd))))) - _g7440674417_)))) + (_g7474974812_ + (_generate173849_ + _L74656_ + _L74709_ + (_generate173849_ + _L74654_ + _L74737_ + _K74393_ + _E74394_ + _kws74395_) + _E74394_ + _kws74395_))))) + _g7472374734_)))) + (_g7472174816_ (gx#genident '$tl))))) + _g7469574706_)))) + (_g7469374820_ (gx#genident '$hd))))) + _g7466874679_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7440474562_ + (_g7466674824_ (gx#genident '$tgt))))) - (___kont7505275053_ - (lambda (_L74267_) - (if (gx#underscore? _L74267_) - _K74131_ - (if (let ((__tmp75218 - (lambda (_g7427574277_) + (___kont7531475315_ + (lambda (_L74529_) + (if (gx#underscore? _L74529_) + _K74393_ + (if (let ((__tmp75480 + (lambda (_g7453774539_) (gx#bound-identifier=? - _g7427574277_ - _L74267_))) - (__tmp75217 + _g7453774539_ + _L74529_))) + (__tmp75479 (gx#syntax->list - _kws74133_))) + _kws74395_))) (declare (not safe)) - (find __tmp75218 - __tmp75217)) - (let* ((_g7428174296_ - (lambda (_g7428274292_) + (find __tmp75480 + __tmp75479)) + (let* ((_g7454374558_ + (lambda (_g7454474554_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g7428274292_))) - (_g7428074341_ - (lambda (_g7428274300_) - (if (gx#stx-pair? _g7428274300_) - (let ((_e7428774303_ (gx#syntax-e _g7428274300_))) - (let ((_hd7428674307_ + _g7454474554_))) + (_g7454274603_ + (lambda (_g7454474562_) + (if (gx#stx-pair? _g7454474562_) + (let ((_e7454974565_ (gx#syntax-e _g7454474562_))) + (let ((_hd7454874569_ (let () (declare (not safe)) - (##car _e7428774303_))) - (_tl7428574310_ + (##car _e7454974565_))) + (_tl7454774572_ (let () (declare (not safe)) - (##cdr _e7428774303_)))) - (if (gx#stx-pair? _tl7428574310_) - (let ((_e7429074313_ - (gx#syntax-e _tl7428574310_))) - (let ((_hd7428974317_ + (##cdr _e7454974565_)))) + (if (gx#stx-pair? _tl7454774572_) + (let ((_e7455274575_ + (gx#syntax-e _tl7454774572_))) + (let ((_hd7455174579_ (let () (declare (not safe)) - (##car _e7429074313_))) - (_tl7428874320_ + (##car _e7455274575_))) + (_tl7455074582_ (let () (declare (not safe)) - (##cdr _e7429074313_)))) - (if (gx#stx-null? _tl7428874320_) - ((lambda (_L74323_ _L74325_) + (##cdr _e7455274575_)))) + (if (gx#stx-null? _tl7455074582_) + ((lambda (_L74585_ _L74587_) (let () - (let ((__tmp75216 + (let ((__tmp75478 (gx#datum->syntax '#f 'if)) - (__tmp75196 - (let ((__tmp75199 - (let ((__tmp75215 + (__tmp75458 + (let ((__tmp75461 + (let ((__tmp75477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp75200 - (let ((__tmp75212 - (let ((__tmp75214 + (__tmp75462 + (let ((__tmp75474 + (let ((__tmp75476 (gx#datum->syntax '#f '__AST-id?)) - (__tmp75213 + (__tmp75475 (let () (declare (not safe)) - (cons _L74150_ '())))) + (cons _L74412_ '())))) (declare (not safe)) - (cons __tmp75214 __tmp75213))) - (__tmp75201 - (let ((__tmp75202 - (let ((__tmp75211 + (cons __tmp75476 __tmp75475))) + (__tmp75463 + (let ((__tmp75464 + (let ((__tmp75473 (gx#datum->syntax '#f 'eq?)) - (__tmp75203 - (let ((__tmp75208 - (let ((__tmp75210 + (__tmp75465 + (let ((__tmp75470 + (let ((__tmp75472 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp75209 - (let () (declare (not safe)) (cons _L74150_ '())))) + (__tmp75471 + (let () (declare (not safe)) (cons _L74412_ '())))) (declare (not safe)) - (cons __tmp75210 __tmp75209))) - (__tmp75204 - (let ((__tmp75205 - (let ((__tmp75207 (gx#datum->syntax '#f 'quote)) - (__tmp75206 + (cons __tmp75472 __tmp75471))) + (__tmp75466 + (let ((__tmp75467 + (let ((__tmp75469 (gx#datum->syntax '#f 'quote)) + (__tmp75468 (let () (declare (not safe)) - (cons _L74267_ '())))) + (cons _L74529_ '())))) (declare (not safe)) - (cons __tmp75207 __tmp75206)))) + (cons __tmp75469 __tmp75468)))) (declare (not safe)) - (cons __tmp75205 '())))) + (cons __tmp75467 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75208 - __tmp75204)))) + (cons __tmp75470 + __tmp75466)))) (declare (not safe)) - (cons __tmp75211 __tmp75203)))) + (cons __tmp75473 __tmp75465)))) (declare (not safe)) - (cons __tmp75202 '())))) + (cons __tmp75464 '())))) (declare (not safe)) - (cons __tmp75212 __tmp75201)))) + (cons __tmp75474 __tmp75463)))) (declare (not safe)) - (cons __tmp75215 __tmp75200))) - (__tmp75197 - (let ((__tmp75198 + (cons __tmp75477 __tmp75462))) + (__tmp75459 + (let ((__tmp75460 (let () (declare (not safe)) - (cons _L74323_ '())))) + (cons _L74585_ '())))) (declare (not safe)) - (cons _L74325_ __tmp75198)))) + (cons _L74587_ __tmp75460)))) (declare (not safe)) - (cons __tmp75199 __tmp75197)))) + (cons __tmp75461 __tmp75459)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75216 - __tmp75196)))) - _hd7428974317_ - _hd7428674307_) - (_g7428174296_ _g7428274300_)))) - (_g7428174296_ _g7428274300_)))) - (_g7428174296_ _g7428274300_))))) - (_g7428074341_ (list _K74131_ _E74132_))) - (let* ((_g7434574353_ - (lambda (_g7434674349_) + (cons __tmp75478 + __tmp75458)))) + _hd7455174579_ + _hd7454874569_) + (_g7454374558_ _g7454474562_)))) + (_g7454374558_ _g7454474562_)))) + (_g7454374558_ _g7454474562_))))) + (_g7454274603_ (list _K74393_ _E74394_))) + (let* ((_g7460774615_ + (lambda (_g7460874611_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7434674349_))) - (_g7434474371_ - (lambda (_g7434674357_) - ((lambda (_L74360_) + _g7460874611_))) + (_g7460674633_ + (lambda (_g7460874619_) + ((lambda (_L74622_) (let () - (let ((__tmp75195 (gx#datum->syntax '#f 'let)) - (__tmp75190 - (let ((__tmp75192 - (let ((__tmp75193 - (let ((__tmp75194 + (let ((__tmp75457 (gx#datum->syntax '#f 'let)) + (__tmp75452 + (let ((__tmp75454 + (let ((__tmp75455 + (let ((__tmp75456 (let () (declare (not safe)) - (cons _L74150_ + (cons _L74412_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L74267_ - __tmp75194)))) + (cons _L74529_ + __tmp75456)))) (declare (not safe)) - (cons __tmp75193 '()))) - (__tmp75191 + (cons __tmp75455 '()))) + (__tmp75453 (let () (declare (not safe)) - (cons _L74360_ '())))) + (cons _L74622_ '())))) (declare (not safe)) - (cons __tmp75192 __tmp75191)))) + (cons __tmp75454 __tmp75453)))) (declare (not safe)) - (cons __tmp75195 __tmp75190)))) - _g7434674357_)))) - (_g7434474371_ _K74131_)))))) + (cons __tmp75457 __tmp75452)))) + _g7460874619_)))) + (_g7460674633_ _K74393_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont7505475055_ - (lambda (_L74185_) - (let* ((_g7419674211_ - (lambda (_g7419774207_) + (___kont7531675317_ + (lambda (_L74447_) + (let* ((_g7445874473_ + (lambda (_g7445974469_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7419774207_))) - (_g7419574256_ - (lambda (_g7419774215_) + _g7445974469_))) + (_g7445774518_ + (lambda (_g7445974477_) (if (gx#stx-pair? - _g7419774215_) - (let ((_e7420274218_ + _g7445974477_) + (let ((_e7446474480_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g7419774215_))) - (let ((_hd7420174222_ + (gx#syntax-e _g7445974477_))) + (let ((_hd7446374484_ (let () (declare (not safe)) - (##car _e7420274218_))) - (_tl7420074225_ + (##car _e7446474480_))) + (_tl7446274487_ (let () (declare (not safe)) - (##cdr _e7420274218_)))) - (if (gx#stx-pair? _tl7420074225_) - (let ((_e7420574228_ (gx#syntax-e _tl7420074225_))) - (let ((_hd7420474232_ + (##cdr _e7446474480_)))) + (if (gx#stx-pair? _tl7446274487_) + (let ((_e7446774490_ (gx#syntax-e _tl7446274487_))) + (let ((_hd7446674494_ (let () (declare (not safe)) - (##car _e7420574228_))) - (_tl7420374235_ + (##car _e7446774490_))) + (_tl7446574497_ (let () (declare (not safe)) - (##cdr _e7420574228_)))) - (if (gx#stx-null? _tl7420374235_) - ((lambda (_L74238_ _L74240_) + (##cdr _e7446774490_)))) + (if (gx#stx-null? _tl7446574497_) + ((lambda (_L74500_ _L74502_) (let () - (let ((__tmp75232 + (let ((__tmp75494 (gx#datum->syntax '#f 'if)) - (__tmp75219 - (let ((__tmp75222 - (let ((__tmp75231 + (__tmp75481 + (let ((__tmp75484 + (let ((__tmp75493 (gx#datum->syntax '#f 'equal?)) - (__tmp75223 - (let ((__tmp75228 + (__tmp75485 + (let ((__tmp75490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp75230 (gx#datum->syntax '#f '__AST-e)) - (__tmp75229 + (let ((__tmp75492 (gx#datum->syntax '#f '__AST-e)) + (__tmp75491 (let () (declare (not safe)) - (cons _L74150_ '())))) + (cons _L74412_ '())))) (declare (not safe)) - (cons __tmp75230 __tmp75229))) - (__tmp75224 - (let ((__tmp75225 - (let ((__tmp75227 + (cons __tmp75492 __tmp75491))) + (__tmp75486 + (let ((__tmp75487 + (let ((__tmp75489 (gx#datum->syntax '#f 'quote)) - (__tmp75226 + (__tmp75488 (let () (declare (not safe)) - (cons _L74185_ '())))) + (cons _L74447_ '())))) (declare (not safe)) - (cons __tmp75227 __tmp75226)))) + (cons __tmp75489 __tmp75488)))) (declare (not safe)) - (cons __tmp75225 '())))) + (cons __tmp75487 '())))) (declare (not safe)) - (cons __tmp75228 __tmp75224)))) + (cons __tmp75490 __tmp75486)))) (declare (not safe)) - (cons __tmp75231 __tmp75223))) - (__tmp75220 - (let ((__tmp75221 - (let () (declare (not safe)) (cons _L74238_ '())))) + (cons __tmp75493 __tmp75485))) + (__tmp75482 + (let ((__tmp75483 + (let () (declare (not safe)) (cons _L74500_ '())))) (declare (not safe)) - (cons _L74240_ __tmp75221)))) + (cons _L74502_ __tmp75483)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75222 - __tmp75220)))) + (cons __tmp75484 + __tmp75482)))) (declare (not safe)) - (cons __tmp75232 __tmp75219)))) - _hd7420474232_ - _hd7420174222_) - (_g7419674211_ _g7419774215_)))) - (_g7419674211_ _g7419774215_)))) - (_g7419674211_ _g7419774215_))))) + (cons __tmp75494 __tmp75481)))) + _hd7446674494_ + _hd7446374484_) + (_g7445874473_ _g7445974477_)))) + (_g7445874473_ _g7445974477_)))) + (_g7445874473_ _g7445974477_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7419574256_ - (list _K74131_ _E74132_)))))) - (let ((_g7416274375_ + (_g7445774518_ + (list _K74393_ _E74394_)))))) + (let ((_g7442474637_ (lambda () - (let ((_L74267_ - ___stx7504775048_)) - (if (gx#identifier? _L74267_) - (___kont7505275053_ - _L74267_) - (___kont7505475055_ - ___stx7504775048_)))))) - (if (gx#stx-pair? ___stx7504775048_) - (let ((_e7417074382_ + (let ((_L74529_ + ___stx7530975310_)) + (if (gx#identifier? _L74529_) + (___kont7531475315_ + _L74529_) + (___kont7531675317_ + ___stx7530975310_)))))) + (if (gx#stx-pair? ___stx7530975310_) + (let ((_e7443274644_ (gx#syntax-e - ___stx7504775048_))) - (let ((_tl7416874389_ + ___stx7530975310_))) + (let ((_tl7443074651_ (let () (declare (not safe)) - (##cdr _e7417074382_))) - (_hd7416974386_ + (##cdr _e7443274644_))) + (_hd7443174648_ (let () (declare (not safe)) - (##car _e7417074382_)))) - (___kont7505075051_ - _tl7416874389_ - _hd7416974386_))) + (##car _e7443274644_)))) + (___kont7531275313_ + _tl7443074651_ + _hd7443174648_))) (let () (declare (not safe)) - (_g7416274375_)))))))) - _g7413674147_)))) - (_g7413474570_ _tgt74130_))))) - (let* ((_g7359073618_ - (lambda (_g7359173614_) + (_g7442474637_)))))))) + _g7439874409_)))) + (_g7439674832_ _tgt74392_))))) + (let* ((_g7385273880_ + (lambda (_g7385373876_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7359173614_))) - (_g7358974124_ - (lambda (_g7359173622_) - (if (gx#stx-pair? _g7359173622_) - (let ((_e7359773625_ (gx#syntax-e _g7359173622_))) - (let ((_hd7359673629_ + _g7385373876_))) + (_g7385174386_ + (lambda (_g7385373884_) + (if (gx#stx-pair? _g7385373884_) + (let ((_e7385973887_ (gx#syntax-e _g7385373884_))) + (let ((_hd7385873891_ (let () (declare (not safe)) - (##car _e7359773625_))) - (_tl7359573632_ + (##car _e7385973887_))) + (_tl7385773894_ (let () (declare (not safe)) - (##cdr _e7359773625_)))) - (if (gx#stx-pair? _tl7359573632_) - (let ((_e7360073635_ - (gx#syntax-e _tl7359573632_))) - (let ((_hd7359973639_ + (##cdr _e7385973887_)))) + (if (gx#stx-pair? _tl7385773894_) + (let ((_e7386273897_ + (gx#syntax-e _tl7385773894_))) + (let ((_hd7386173901_ (let () (declare (not safe)) - (##car _e7360073635_))) - (_tl7359873642_ + (##car _e7386273897_))) + (_tl7386073904_ (let () (declare (not safe)) - (##cdr _e7360073635_)))) - (if (gx#stx-pair? _tl7359873642_) - (let ((_e7360373645_ - (gx#syntax-e _tl7359873642_))) - (let ((_hd7360273649_ + (##cdr _e7386273897_)))) + (if (gx#stx-pair? _tl7386073904_) + (let ((_e7386573907_ + (gx#syntax-e _tl7386073904_))) + (let ((_hd7386473911_ (let () (declare (not safe)) - (##car _e7360373645_))) - (_tl7360173652_ + (##car _e7386573907_))) + (_tl7386373914_ (let () (declare (not safe)) - (##cdr _e7360373645_)))) + (##cdr _e7386573907_)))) (if (gx#stx-pair/null? - _tl7360173652_) - (let ((_g75233_ + _tl7386373914_) + (let ((_g75495_ (gx#syntax-split-splice - _tl7360173652_ + _tl7386373914_ '0))) (begin - (let ((_g75234_ + (let ((_g75496_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g75233_) - (##vector-length _g75233_) + _g75495_) + (##vector-length _g75495_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g75234_ 2))) - (error "Context expects 2 values" _g75234_))) + (if (not (let () (declare (not safe)) (##fx= _g75496_ 2))) + (error "Context expects 2 values" _g75496_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target7360473655_ + (let ((_target7386673917_ (let () (declare (not safe)) (##vector-ref - _g75233_ + _g75495_ 0))) - (_tl7360673658_ + (_tl7386873920_ (let () (declare (not safe)) (##vector-ref - _g75233_ + _g75495_ 1)))) (if (gx#stx-null? - _tl7360673658_) - (letrec ((_loop7360773661_ + _tl7386873920_) + (letrec ((_loop7386973923_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd7360573665_ _clause7361173668_) - (if (gx#stx-pair? _hd7360573665_) - (let ((_e7360873671_ - (gx#syntax-e _hd7360573665_))) - (let ((_lp-hd7360973675_ + (lambda (_hd7386773927_ _clause7387373930_) + (if (gx#stx-pair? _hd7386773927_) + (let ((_e7387073933_ + (gx#syntax-e _hd7386773927_))) + (let ((_lp-hd7387173937_ (let () (declare (not safe)) - (##car _e7360873671_))) - (_lp-tl7361073678_ + (##car _e7387073933_))) + (_lp-tl7387273940_ (let () (declare (not safe)) - (##cdr _e7360873671_)))) - (_loop7360773661_ - _lp-tl7361073678_ + (##cdr _e7387073933_)))) + (_loop7386973923_ + _lp-tl7387273940_ (let () (declare (not safe)) - (cons _lp-hd7360973675_ - _clause7361173668_))))) - (let ((_clause7361273681_ - (reverse _clause7361173668_))) - ((lambda (_L73685_ _L73687_ _L73688_) - (let _recur73710_ ((_rest73713_ - (let ((__tmp75256 + (cons _lp-hd7387173937_ + _clause7387373930_))))) + (let ((_clause7387473943_ + (reverse _clause7387373930_))) + ((lambda (_L73947_ _L73949_ _L73950_) + (let _recur73972_ ((_rest73975_ + (let ((__tmp75518 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7411574118_ _g7411674121_) + (lambda (_g7437774380_ _g7437874383_) (let () (declare (not safe)) - (cons _g7411574118_ _g7411674121_))))) + (cons _g7437774380_ _g7437874383_))))) (declare (not safe)) - (foldr1 __tmp75256 '() _L73685_)))) + (foldr1 __tmp75518 '() _L73947_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest7371573724_ _rest73713_) - (_E7371873730_ + (let* ((_rest7397773986_ _rest73975_) + (_E7398073992_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest7371573724_))))) - (let ((_K7372074100_ - (lambda (_rest73746_ - _hd73748_) - (let* ((_g7375073758_ - (lambda (_g7375173754_) + _rest7397773986_))))) + (let ((_K7398274362_ + (lambda (_rest74008_ + _hd74010_) + (let* ((_g7401274020_ + (lambda (_g7401374016_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7375173754_))) - (_g7374974096_ - (lambda (_g7375173762_) - ((lambda (_L73765_) + _g7401374016_))) + (_g7401174358_ + (lambda (_g7401374024_) + ((lambda (_L74027_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g7378373791_ - (lambda (_g7378473787_) + (let* ((_g7404574053_ + (lambda (_g7404674049_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7378473787_))) - (_g7378274092_ - (lambda (_g7378473795_) - ((lambda (_L73798_) + _g7404674049_))) + (_g7404474354_ + (lambda (_g7404674057_) + ((lambda (_L74060_) (let () - (let* ((_g7381173819_ - (lambda (_g7381273815_) + (let* ((_g7407374081_ + (lambda (_g7407474077_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7381273815_))) - (_g7381074088_ - (lambda (_g7381273823_) - ((lambda (_L73826_) + _g7407474077_))) + (_g7407274350_ + (lambda (_g7407474085_) + ((lambda (_L74088_) (let () - (let* ((_g7383973847_ + (let* ((_g7410174109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7384073843_) + (lambda (_g7410274105_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7384073843_))) - (_g7383873869_ - (lambda (_g7384073851_) - ((lambda (_L73854_) + _g7410274105_))) + (_g7410074131_ + (lambda (_g7410274113_) + ((lambda (_L74116_) (let () (let () - (let ((__tmp75243 + (let ((__tmp75505 (gx#datum->syntax '#f 'let)) - (__tmp75235 - (let ((__tmp75237 - (let ((__tmp75238 - (let ((__tmp75239 - (let ((__tmp75242 + (__tmp75497 + (let ((__tmp75499 + (let ((__tmp75500 + (let ((__tmp75501 + (let ((__tmp75504 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp75240 - (let ((__tmp75241 + (__tmp75502 + (let ((__tmp75503 (let () (declare (not safe)) - (cons _L73826_ '())))) + (cons _L74088_ '())))) (declare (not safe)) - (cons '() __tmp75241)))) + (cons '() __tmp75503)))) (declare (not safe)) - (cons __tmp75242 __tmp75240)))) + (cons __tmp75504 __tmp75502)))) (declare (not safe)) - (cons __tmp75239 '())))) + (cons __tmp75501 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L73765_ __tmp75238))) - (__tmp75236 + (cons _L74027_ __tmp75500))) + (__tmp75498 (let () (declare (not safe)) - (cons _L73854_ '())))) + (cons _L74116_ '())))) (declare (not safe)) - (cons __tmp75237 __tmp75236)))) + (cons __tmp75499 __tmp75498)))) (declare (not safe)) - (cons __tmp75243 __tmp75235))))) - _g7384073851_)))) - (_g7383873869_ - (let* ((___stx7506575066_ _hd73748_) - (_g7387573915_ + (cons __tmp75505 __tmp75497))))) + _g7410274113_)))) + (_g7410074131_ + (let* ((___stx7532775328_ _hd74010_) + (_g7413774177_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7506575066_)))) - (let ((___kont7506875069_ - (lambda (_L74061_) - (let ((__tmp75246 (gx#datum->syntax '#f 'begin)) - (__tmp75244 - (let ((__tmp75245 - (lambda (_g7407574078_ - _g7407674081_) + ___stx7532775328_)))) + (let ((___kont7533075331_ + (lambda (_L74323_) + (let ((__tmp75508 (gx#datum->syntax '#f 'begin)) + (__tmp75506 + (let ((__tmp75507 + (lambda (_g7433774340_ + _g7433874343_) (let () (declare (not safe)) - (cons _g7407574078_ - _g7407674081_))))) + (cons _g7433774340_ + _g7433874343_))))) (declare (not safe)) - (foldr1 __tmp75245 '() _L74061_)))) + (foldr1 __tmp75507 '() _L74323_)))) (declare (not safe)) - (cons __tmp75246 __tmp75244)))) - (___kont7507275073_ - (lambda (_L73999_ _L74001_) - (_generate173587_ - _L74001_ - _L73688_ - _L73999_ - _L73798_ - _L73687_))) - (___kont7507475075_ - (lambda (_L73952_ _L73954_ _L73955_) - (_generate173587_ - _L73955_ - _L73688_ - (let ((__tmp75250 (gx#datum->syntax '#f 'if)) - (__tmp75247 - (let ((__tmp75248 - (let ((__tmp75249 + (cons __tmp75508 __tmp75506)))) + (___kont7533475335_ + (lambda (_L74261_ _L74263_) + (_generate173849_ + _L74263_ + _L73950_ + _L74261_ + _L74060_ + _L73949_))) + (___kont7533675337_ + (lambda (_L74214_ _L74216_ _L74217_) + (_generate173849_ + _L74217_ + _L73950_ + (let ((__tmp75512 (gx#datum->syntax '#f 'if)) + (__tmp75509 + (let ((__tmp75510 + (let ((__tmp75511 (let () (declare (not safe)) - (cons _L73798_ '())))) + (cons _L74060_ '())))) (declare (not safe)) - (cons _L73952_ __tmp75249)))) + (cons _L74214_ __tmp75511)))) (declare (not safe)) - (cons _L73954_ __tmp75248)))) + (cons _L74216_ __tmp75510)))) (declare (not safe)) - (cons __tmp75250 __tmp75247)) - _L73798_ - _L73687_)))) - (let ((___match7509475095_ - (lambda (_e7388074021_ - _hd7387974025_ - _tl7387874028_ - ___splice7507075071_ - _target7388174031_ - _tl7388374034_) - (letrec ((_loop7388474037_ - (lambda (_hd7388274041_ - _expr7388874044_) - (if (gx#stx-pair? _hd7388274041_) - (let ((_e7388574047_ + (cons __tmp75512 __tmp75509)) + _L74060_ + _L73949_)))) + (let ((___match7535675357_ + (lambda (_e7414274283_ + _hd7414174287_ + _tl7414074290_ + ___splice7533275333_ + _target7414374293_ + _tl7414574296_) + (letrec ((_loop7414674299_ + (lambda (_hd7414474303_ + _expr7415074306_) + (if (gx#stx-pair? _hd7414474303_) + (let ((_e7414774309_ (gx#syntax-e - _hd7388274041_))) - (let ((_lp-tl7388774054_ + _hd7414474303_))) + (let ((_lp-tl7414974316_ (let () (declare (not safe)) - (##cdr _e7388574047_))) - (_lp-hd7388674051_ + (##cdr _e7414774309_))) + (_lp-hd7414874313_ (let () (declare (not safe)) - (##car _e7388574047_)))) - (_loop7388474037_ - _lp-tl7388774054_ + (##car _e7414774309_)))) + (_loop7414674299_ + _lp-tl7414974316_ (let () (declare (not safe)) - (cons _lp-hd7388674051_ - _expr7388874044_))))) - (let ((_expr7388974057_ - (reverse _expr7388874044_))) - (___kont7506875069_ - _expr7388974057_)))))) - (_loop7388474037_ - _target7388174031_ + (cons _lp-hd7414874313_ + _expr7415074306_))))) + (let ((_expr7415174319_ + (reverse _expr7415074306_))) + (___kont7533075331_ + _expr7415174319_)))))) + (_loop7414674299_ + _target7414374293_ '()))))) - (if (gx#stx-pair? ___stx7506575066_) - (let ((_e7388074021_ - (gx#syntax-e ___stx7506575066_))) - (let ((_tl7387874028_ + (if (gx#stx-pair? ___stx7532775328_) + (let ((_e7414274283_ + (gx#syntax-e ___stx7532775328_))) + (let ((_tl7414074290_ (let () (declare (not safe)) - (##cdr _e7388074021_))) - (_hd7387974025_ + (##cdr _e7414274283_))) + (_hd7414174287_ (let () (declare (not safe)) - (##car _e7388074021_)))) - (if (gx#identifier? _hd7387974025_) + (##car _e7414274283_)))) + (if (gx#identifier? _hd7414174287_) (if (gx#free-identifier=? - |[1]#_g75251_| - _hd7387974025_) + |[1]#_g75513_| + _hd7414174287_) (if (gx#stx-pair/null? - _tl7387874028_) - (let ((___splice7507075071_ + _tl7414074290_) + (let ((___splice7533275333_ (gx#syntax-split-splice - _tl7387874028_ + _tl7414074290_ '0))) - (let ((_tl7388374034_ + (let ((_tl7414574296_ (let () (declare (not safe)) (##vector-ref - ___splice7507075071_ + ___splice7533275333_ '1))) - (_target7388174031_ + (_target7414374293_ (let () (declare (not safe)) (##vector-ref - ___splice7507075071_ + ___splice7533275333_ '0)))) (if (gx#stx-null? - _tl7388374034_) - (___match7509475095_ - _e7388074021_ - _hd7387974025_ - _tl7387874028_ - ___splice7507075071_ - _target7388174031_ - _tl7388374034_) + _tl7414574296_) + (___match7535675357_ + _e7414274283_ + _hd7414174287_ + _tl7414074290_ + ___splice7533275333_ + _target7414374293_ + _tl7414574296_) (if (gx#stx-pair? - _tl7387874028_) - (let ((_e7389773989_ + _tl7414074290_) + (let ((_e7415974251_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7387874028_))) - (let ((_tl7389573996_ - (let () (declare (not safe)) (##cdr _e7389773989_))) - (_hd7389673993_ + (gx#syntax-e _tl7414074290_))) + (let ((_tl7415774258_ + (let () (declare (not safe)) (##cdr _e7415974251_))) + (_hd7415874255_ (let () (declare (not safe)) - (##car _e7389773989_)))) - (if (gx#stx-null? _tl7389573996_) - (___kont7507275073_ _hd7389673993_ _hd7387974025_) - (if (gx#stx-pair? _tl7389573996_) - (let ((_e7390973942_ - (gx#syntax-e _tl7389573996_))) - (let ((_tl7390773949_ + (##car _e7415974251_)))) + (if (gx#stx-null? _tl7415774258_) + (___kont7533475335_ _hd7415874255_ _hd7414174287_) + (if (gx#stx-pair? _tl7415774258_) + (let ((_e7417174204_ + (gx#syntax-e _tl7415774258_))) + (let ((_tl7416974211_ (let () (declare (not safe)) - (##cdr _e7390973942_))) - (_hd7390873946_ + (##cdr _e7417174204_))) + (_hd7417074208_ (let () (declare (not safe)) - (##car _e7390973942_)))) - (if (gx#stx-null? _tl7390773949_) - (___kont7507475075_ - _hd7390873946_ - _hd7389673993_ - _hd7387974025_) + (##car _e7417174204_)))) + (if (gx#stx-null? _tl7416974211_) + (___kont7533675337_ + _hd7417074208_ + _hd7415874255_ + _hd7414174287_) (let () (declare (not safe)) - (_g7387573915_))))) - (let () (declare (not safe)) (_g7387573915_)))))) - (let () (declare (not safe)) (_g7387573915_)))))) + (_g7413774177_))))) + (let () (declare (not safe)) (_g7413774177_)))))) + (let () (declare (not safe)) (_g7413774177_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl7387874028_) - (let ((_e7389773989_ + (if (gx#stx-pair? _tl7414074290_) + (let ((_e7415974251_ (gx#syntax-e - _tl7387874028_))) - (let ((_tl7389573996_ + _tl7414074290_))) + (let ((_tl7415774258_ (let () (declare (not safe)) - (##cdr _e7389773989_))) - (_hd7389673993_ + (##cdr _e7415974251_))) + (_hd7415874255_ (let () (declare (not safe)) - (##car _e7389773989_)))) + (##car _e7415974251_)))) (if (gx#stx-null? - _tl7389573996_) - (___kont7507275073_ - _hd7389673993_ - _hd7387974025_) + _tl7415774258_) + (___kont7533475335_ + _hd7415874255_ + _hd7414174287_) (if (gx#stx-pair? - _tl7389573996_) - (let ((_e7390973942_ + _tl7415774258_) + (let ((_e7417174204_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7389573996_))) - (let ((_tl7390773949_ + (gx#syntax-e _tl7415774258_))) + (let ((_tl7416974211_ (let () (declare (not safe)) - (##cdr _e7390973942_))) - (_hd7390873946_ + (##cdr _e7417174204_))) + (_hd7417074208_ (let () (declare (not safe)) - (##car _e7390973942_)))) - (if (gx#stx-null? _tl7390773949_) - (___kont7507475075_ - _hd7390873946_ - _hd7389673993_ - _hd7387974025_) - (let () (declare (not safe)) (_g7387573915_))))) - (let () (declare (not safe)) (_g7387573915_)))))) + (##car _e7417174204_)))) + (if (gx#stx-null? _tl7416974211_) + (___kont7533675337_ + _hd7417074208_ + _hd7415874255_ + _hd7414174287_) + (let () (declare (not safe)) (_g7413774177_))))) + (let () (declare (not safe)) (_g7413774177_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7387573915_)))) - (if (gx#stx-pair? _tl7387874028_) - (let ((_e7389773989_ + (_g7413774177_)))) + (if (gx#stx-pair? _tl7414074290_) + (let ((_e7415974251_ (gx#syntax-e - _tl7387874028_))) - (let ((_tl7389573996_ + _tl7414074290_))) + (let ((_tl7415774258_ (let () (declare (not safe)) - (##cdr _e7389773989_))) - (_hd7389673993_ + (##cdr _e7415974251_))) + (_hd7415874255_ (let () (declare (not safe)) - (##car _e7389773989_)))) + (##car _e7415974251_)))) (if (gx#stx-null? - _tl7389573996_) - (___kont7507275073_ - _hd7389673993_ - _hd7387974025_) + _tl7415774258_) + (___kont7533475335_ + _hd7415874255_ + _hd7414174287_) (if (gx#stx-pair? - _tl7389573996_) - (let ((_e7390973942_ + _tl7415774258_) + (let ((_e7417174204_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7389573996_))) - (let ((_tl7390773949_ - (let () (declare (not safe)) (##cdr _e7390973942_))) - (_hd7390873946_ + (gx#syntax-e _tl7415774258_))) + (let ((_tl7416974211_ + (let () (declare (not safe)) (##cdr _e7417174204_))) + (_hd7417074208_ (let () (declare (not safe)) - (##car _e7390973942_)))) - (if (gx#stx-null? _tl7390773949_) - (___kont7507475075_ - _hd7390873946_ - _hd7389673993_ - _hd7387974025_) - (let () (declare (not safe)) (_g7387573915_))))) - (let () (declare (not safe)) (_g7387573915_)))))) + (##car _e7417174204_)))) + (if (gx#stx-null? _tl7416974211_) + (___kont7533675337_ + _hd7417074208_ + _hd7415874255_ + _hd7414174287_) + (let () (declare (not safe)) (_g7413774177_))))) + (let () (declare (not safe)) (_g7413774177_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7387573915_)))) - (if (gx#stx-pair? _tl7387874028_) - (let ((_e7389773989_ - (gx#syntax-e _tl7387874028_))) - (let ((_tl7389573996_ + (_g7413774177_)))) + (if (gx#stx-pair? _tl7414074290_) + (let ((_e7415974251_ + (gx#syntax-e _tl7414074290_))) + (let ((_tl7415774258_ (let () (declare (not safe)) - (##cdr _e7389773989_))) - (_hd7389673993_ + (##cdr _e7415974251_))) + (_hd7415874255_ (let () (declare (not safe)) - (##car _e7389773989_)))) - (if (gx#stx-null? _tl7389573996_) - (___kont7507275073_ - _hd7389673993_ - _hd7387974025_) + (##car _e7415974251_)))) + (if (gx#stx-null? _tl7415774258_) + (___kont7533475335_ + _hd7415874255_ + _hd7414174287_) (if (gx#stx-pair? - _tl7389573996_) - (let ((_e7390973942_ + _tl7415774258_) + (let ((_e7417174204_ (gx#syntax-e - _tl7389573996_))) - (let ((_tl7390773949_ + _tl7415774258_))) + (let ((_tl7416974211_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e7390973942_))) - (_hd7390873946_ - (let () (declare (not safe)) (##car _e7390973942_)))) - (if (gx#stx-null? _tl7390773949_) - (___kont7507475075_ - _hd7390873946_ - _hd7389673993_ - _hd7387974025_) - (let () (declare (not safe)) (_g7387573915_))))) - (let () (declare (not safe)) (_g7387573915_)))))) + (##cdr _e7417174204_))) + (_hd7417074208_ + (let () (declare (not safe)) (##car _e7417174204_)))) + (if (gx#stx-null? _tl7416974211_) + (___kont7533675337_ + _hd7417074208_ + _hd7415874255_ + _hd7414174287_) + (let () (declare (not safe)) (_g7413774177_))))) + (let () (declare (not safe)) (_g7413774177_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7387573915_)))))) + (_g7413774177_)))))) (let () (declare (not safe)) - (_g7387573915_)))))))))) + (_g7413774177_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g7381273823_)))) - (_g7381074088_ - (_recur73710_ _rest73746_))))) - _g7378473795_)))) - (_g7378274092_ + _g7407474085_)))) + (_g7407274350_ + (_recur73972_ _rest74008_))))) + _g7404674057_)))) + (_g7404474354_ (let () (declare (not safe)) - (cons _L73765_ '())))))) - _g7375173762_)))) - (_g7374974096_ (gx#genident '$E))))) + (cons _L74027_ '())))))) + _g7401374024_)))) + (_g7401174358_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K7371973738_ + (_K7398174000_ (lambda () - (let ((__tmp75255 + (let ((__tmp75517 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp75252 - (let ((__tmp75253 + (__tmp75514 + (let ((__tmp75515 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp75254 + (let ((__tmp75516 (let () (declare (not safe)) - (cons _L73688_ '())))) + (cons _L73950_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp75254)))) + __tmp75516)))) (declare (not safe)) - (cons '#f __tmp75253)))) + (cons '#f __tmp75515)))) (declare (not safe)) - (cons __tmp75255 __tmp75252))))) + (cons __tmp75517 __tmp75514))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match7371773742_ + (let ((_try-match7397974004_ (lambda () (if (let () (declare (not safe)) - (##null? _rest7371573724_)) - (_K7371973738_) - (_E7371873730_))))) + (##null? _rest7397773986_)) + (_K7398174000_) + (_E7398073992_))))) (if (let () (declare (not safe)) - (##pair? _rest7371573724_)) - (let ((_tl7372274107_ + (##pair? _rest7397773986_)) + (let ((_tl7398474369_ (let () (declare (not safe)) - (##cdr _rest7371573724_))) - (_hd7372174104_ + (##cdr _rest7397773986_))) + (_hd7398374366_ (let () (declare (not safe)) - (##car _rest7371573724_)))) - (let ((_hd74110_ - _hd7372174104_) - (_rest74113_ - _tl7372274107_)) - (_K7372074100_ - _rest74113_ - _hd74110_))) - (_try-match7371773742_))))))) - _clause7361273681_ - _hd7360273649_ - _hd7359973639_)))))) - (_loop7360773661_ _target7360473655_ '())) - (_g7359073618_ _g7359173622_))))) + (##car _rest7397773986_)))) + (let ((_hd74372_ + _hd7398374366_) + (_rest74375_ + _tl7398474369_)) + (_K7398274362_ + _rest74375_ + _hd74372_))) + (_try-match7397974004_))))))) + _clause7387473943_ + _hd7386473911_ + _hd7386173901_)))))) + (_loop7386973923_ _target7386673917_ '())) + (_g7385273880_ _g7385373884_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7359073618_ - _g7359173622_)))) - (_g7359073618_ _g7359173622_)))) - (_g7359073618_ _g7359173622_)))) - (_g7359073618_ _g7359173622_))))) - (_g7358974124_ _stx73584_))))) + (_g7385273880_ + _g7385373884_)))) + (_g7385273880_ _g7385373884_)))) + (_g7385273880_ _g7385373884_)))) + (_g7385273880_ _g7385373884_))))) + (_g7385174386_ _stx73846_))))) (define |[:0:]#SyntaxError| - (let ((__obj75138 + (let ((__obj75400 (let () (declare (not safe)) (##structure @@ -1463,7 +1463,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75138 + __obj75400 'gerbil/runtime/syntax#SyntaxError::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1471,7 +1471,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75138 + __obj75400 'SyntaxError '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1479,26 +1479,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75138 + __obj75400 '(message irritants where context phi marks) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75257 - (let ((__tmp75258 |[1]#_g75259_|)) + (let ((__tmp75519 + (let ((__tmp75520 |[1]#_g75521_|)) (declare (not safe)) - (cons __tmp75258 '())))) + (cons __tmp75520 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj75138 - __tmp75257 + __obj75400 + __tmp75519 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj75138 + __obj75400 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1506,7 +1506,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75138 + __obj75400 '#t '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1514,7 +1514,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75138 + __obj75400 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1522,254 +1522,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75138 + __obj75400 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75260 |[1]#_g75261_|)) + (let ((__tmp75522 |[1]#_g75523_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75138 - __tmp75260 + __obj75400 + __tmp75522 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75262 |[1]#_g75263_|)) + (let ((__tmp75524 |[1]#_g75525_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75138 - __tmp75262 + __obj75400 + __tmp75524 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75264 |[1]#_g75265_|)) + (let ((__tmp75526 |[1]#_g75527_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75138 - __tmp75264 + __obj75400 + __tmp75526 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75266 - (let ((__tmp75287 - (let ((__tmp75288 |[1]#_g75289_|)) + (let ((__tmp75528 + (let ((__tmp75549 + (let ((__tmp75550 |[1]#_g75551_|)) (declare (not safe)) - (cons 'message __tmp75288))) - (__tmp75267 - (let ((__tmp75284 - (let ((__tmp75285 |[1]#_g75286_|)) + (cons 'message __tmp75550))) + (__tmp75529 + (let ((__tmp75546 + (let ((__tmp75547 |[1]#_g75548_|)) (declare (not safe)) - (cons 'irritants __tmp75285))) - (__tmp75268 - (let ((__tmp75281 - (let ((__tmp75282 |[1]#_g75283_|)) + (cons 'irritants __tmp75547))) + (__tmp75530 + (let ((__tmp75543 + (let ((__tmp75544 |[1]#_g75545_|)) (declare (not safe)) - (cons 'where __tmp75282))) - (__tmp75269 - (let ((__tmp75278 - (let ((__tmp75279 |[1]#_g75280_|)) + (cons 'where __tmp75544))) + (__tmp75531 + (let ((__tmp75540 + (let ((__tmp75541 |[1]#_g75542_|)) (declare (not safe)) - (cons 'context __tmp75279))) - (__tmp75270 - (let ((__tmp75275 - (let ((__tmp75276 - |[1]#_g75277_|)) + (cons 'context __tmp75541))) + (__tmp75532 + (let ((__tmp75537 + (let ((__tmp75538 + |[1]#_g75539_|)) (declare (not safe)) - (cons 'phi __tmp75276))) - (__tmp75271 - (let ((__tmp75272 - (let ((__tmp75273 - |[1]#_g75274_|)) + (cons 'phi __tmp75538))) + (__tmp75533 + (let ((__tmp75534 + (let ((__tmp75535 + |[1]#_g75536_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp75273)))) + __tmp75535)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75272 '())))) + (cons __tmp75534 '())))) (declare (not safe)) - (cons __tmp75275 __tmp75271)))) + (cons __tmp75537 __tmp75533)))) (declare (not safe)) - (cons __tmp75278 __tmp75270)))) + (cons __tmp75540 __tmp75532)))) (declare (not safe)) - (cons __tmp75281 __tmp75269)))) + (cons __tmp75543 __tmp75531)))) (declare (not safe)) - (cons __tmp75284 __tmp75268)))) + (cons __tmp75546 __tmp75530)))) (declare (not safe)) - (cons __tmp75287 __tmp75267)))) + (cons __tmp75549 __tmp75529)))) (declare (not safe)) (##unchecked-structure-set! - __obj75138 - __tmp75266 + __obj75400 + __tmp75528 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75290 - (let ((__tmp75311 - (let ((__tmp75312 |[1]#_g75313_|)) + (let ((__tmp75552 + (let ((__tmp75573 + (let ((__tmp75574 |[1]#_g75575_|)) (declare (not safe)) - (cons 'message __tmp75312))) - (__tmp75291 - (let ((__tmp75308 - (let ((__tmp75309 |[1]#_g75310_|)) + (cons 'message __tmp75574))) + (__tmp75553 + (let ((__tmp75570 + (let ((__tmp75571 |[1]#_g75572_|)) (declare (not safe)) - (cons 'irritants __tmp75309))) - (__tmp75292 - (let ((__tmp75305 - (let ((__tmp75306 |[1]#_g75307_|)) + (cons 'irritants __tmp75571))) + (__tmp75554 + (let ((__tmp75567 + (let ((__tmp75568 |[1]#_g75569_|)) (declare (not safe)) - (cons 'where __tmp75306))) - (__tmp75293 - (let ((__tmp75302 - (let ((__tmp75303 |[1]#_g75304_|)) + (cons 'where __tmp75568))) + (__tmp75555 + (let ((__tmp75564 + (let ((__tmp75565 |[1]#_g75566_|)) (declare (not safe)) - (cons 'context __tmp75303))) - (__tmp75294 - (let ((__tmp75299 - (let ((__tmp75300 - |[1]#_g75301_|)) + (cons 'context __tmp75565))) + (__tmp75556 + (let ((__tmp75561 + (let ((__tmp75562 + |[1]#_g75563_|)) (declare (not safe)) - (cons 'phi __tmp75300))) - (__tmp75295 - (let ((__tmp75296 - (let ((__tmp75297 - |[1]#_g75298_|)) + (cons 'phi __tmp75562))) + (__tmp75557 + (let ((__tmp75558 + (let ((__tmp75559 + |[1]#_g75560_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp75297)))) + __tmp75559)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75296 '())))) + (cons __tmp75558 '())))) (declare (not safe)) - (cons __tmp75299 __tmp75295)))) + (cons __tmp75561 __tmp75557)))) (declare (not safe)) - (cons __tmp75302 __tmp75294)))) + (cons __tmp75564 __tmp75556)))) (declare (not safe)) - (cons __tmp75305 __tmp75293)))) + (cons __tmp75567 __tmp75555)))) (declare (not safe)) - (cons __tmp75308 __tmp75292)))) + (cons __tmp75570 __tmp75554)))) (declare (not safe)) - (cons __tmp75311 __tmp75291)))) + (cons __tmp75573 __tmp75553)))) (declare (not safe)) (##unchecked-structure-set! - __obj75138 - __tmp75290 + __obj75400 + __tmp75552 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75314 - (let ((__tmp75335 - (let ((__tmp75336 |[1]#_g75337_|)) + (let ((__tmp75576 + (let ((__tmp75597 + (let ((__tmp75598 |[1]#_g75599_|)) (declare (not safe)) - (cons 'message __tmp75336))) - (__tmp75315 - (let ((__tmp75332 - (let ((__tmp75333 |[1]#_g75334_|)) + (cons 'message __tmp75598))) + (__tmp75577 + (let ((__tmp75594 + (let ((__tmp75595 |[1]#_g75596_|)) (declare (not safe)) - (cons 'irritants __tmp75333))) - (__tmp75316 - (let ((__tmp75329 - (let ((__tmp75330 |[1]#_g75331_|)) + (cons 'irritants __tmp75595))) + (__tmp75578 + (let ((__tmp75591 + (let ((__tmp75592 |[1]#_g75593_|)) (declare (not safe)) - (cons 'where __tmp75330))) - (__tmp75317 - (let ((__tmp75326 - (let ((__tmp75327 |[1]#_g75328_|)) + (cons 'where __tmp75592))) + (__tmp75579 + (let ((__tmp75588 + (let ((__tmp75589 |[1]#_g75590_|)) (declare (not safe)) - (cons 'context __tmp75327))) - (__tmp75318 - (let ((__tmp75323 - (let ((__tmp75324 - |[1]#_g75325_|)) + (cons 'context __tmp75589))) + (__tmp75580 + (let ((__tmp75585 + (let ((__tmp75586 + |[1]#_g75587_|)) (declare (not safe)) - (cons 'phi __tmp75324))) - (__tmp75319 - (let ((__tmp75320 - (let ((__tmp75321 - |[1]#_g75322_|)) + (cons 'phi __tmp75586))) + (__tmp75581 + (let ((__tmp75582 + (let ((__tmp75583 + |[1]#_g75584_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp75321)))) + __tmp75583)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75320 '())))) + (cons __tmp75582 '())))) (declare (not safe)) - (cons __tmp75323 __tmp75319)))) + (cons __tmp75585 __tmp75581)))) (declare (not safe)) - (cons __tmp75326 __tmp75318)))) + (cons __tmp75588 __tmp75580)))) (declare (not safe)) - (cons __tmp75329 __tmp75317)))) + (cons __tmp75591 __tmp75579)))) (declare (not safe)) - (cons __tmp75332 __tmp75316)))) + (cons __tmp75594 __tmp75578)))) (declare (not safe)) - (cons __tmp75335 __tmp75315)))) + (cons __tmp75597 __tmp75577)))) (declare (not safe)) (##unchecked-structure-set! - __obj75138 - __tmp75314 + __obj75400 + __tmp75576 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75338 - (let ((__tmp75359 - (let ((__tmp75360 |[1]#_g75361_|)) + (let ((__tmp75600 + (let ((__tmp75621 + (let ((__tmp75622 |[1]#_g75623_|)) (declare (not safe)) - (cons 'message __tmp75360))) - (__tmp75339 - (let ((__tmp75356 - (let ((__tmp75357 |[1]#_g75358_|)) + (cons 'message __tmp75622))) + (__tmp75601 + (let ((__tmp75618 + (let ((__tmp75619 |[1]#_g75620_|)) (declare (not safe)) - (cons 'irritants __tmp75357))) - (__tmp75340 - (let ((__tmp75353 - (let ((__tmp75354 |[1]#_g75355_|)) + (cons 'irritants __tmp75619))) + (__tmp75602 + (let ((__tmp75615 + (let ((__tmp75616 |[1]#_g75617_|)) (declare (not safe)) - (cons 'where __tmp75354))) - (__tmp75341 - (let ((__tmp75350 - (let ((__tmp75351 |[1]#_g75352_|)) + (cons 'where __tmp75616))) + (__tmp75603 + (let ((__tmp75612 + (let ((__tmp75613 |[1]#_g75614_|)) (declare (not safe)) - (cons 'context __tmp75351))) - (__tmp75342 - (let ((__tmp75347 - (let ((__tmp75348 - |[1]#_g75349_|)) + (cons 'context __tmp75613))) + (__tmp75604 + (let ((__tmp75609 + (let ((__tmp75610 + |[1]#_g75611_|)) (declare (not safe)) - (cons 'phi __tmp75348))) - (__tmp75343 - (let ((__tmp75344 - (let ((__tmp75345 - |[1]#_g75346_|)) + (cons 'phi __tmp75610))) + (__tmp75605 + (let ((__tmp75606 + (let ((__tmp75607 + |[1]#_g75608_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp75345)))) + __tmp75607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp75344 '())))) + (cons __tmp75606 '())))) (declare (not safe)) - (cons __tmp75347 __tmp75343)))) + (cons __tmp75609 __tmp75605)))) (declare (not safe)) - (cons __tmp75350 __tmp75342)))) + (cons __tmp75612 __tmp75604)))) (declare (not safe)) - (cons __tmp75353 __tmp75341)))) + (cons __tmp75615 __tmp75603)))) (declare (not safe)) - (cons __tmp75356 __tmp75340)))) + (cons __tmp75618 __tmp75602)))) (declare (not safe)) - (cons __tmp75359 __tmp75339)))) + (cons __tmp75621 __tmp75601)))) (declare (not safe)) (##unchecked-structure-set! - __obj75138 - __tmp75338 + __obj75400 + __tmp75600 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj75138)) + __obj75400)) (define |[:0:]#AST| - (let ((__obj75140 + (let ((__obj75402 (let () (declare (not safe)) (##structure @@ -1792,7 +1792,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75140 + __obj75402 'gerbil#AST::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1800,7 +1800,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75140 + __obj75402 'syntax '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1808,7 +1808,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75140 + __obj75402 '(e source) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1816,7 +1816,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75140 + __obj75402 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1824,7 +1824,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75140 + __obj75402 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1832,7 +1832,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75140 + __obj75402 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1840,7 +1840,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75140 + __obj75402 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1848,117 +1848,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj75140 + __obj75402 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75362 |[1]#_g75363_|)) + (let ((__tmp75624 |[1]#_g75625_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75140 - __tmp75362 + __obj75402 + __tmp75624 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75364 |[1]#_g75365_|)) + (let ((__tmp75626 |[1]#_g75627_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75140 - __tmp75364 + __obj75402 + __tmp75626 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75366 |[1]#_g75367_|)) + (let ((__tmp75628 |[1]#_g75629_|)) (declare (not safe)) (##unchecked-structure-set! - __obj75140 - __tmp75366 + __obj75402 + __tmp75628 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75368 - (let ((__tmp75373 - (let ((__tmp75374 |[1]#_g75375_|)) + (let ((__tmp75630 + (let ((__tmp75635 + (let ((__tmp75636 |[1]#_g75637_|)) (declare (not safe)) - (cons 'e __tmp75374))) - (__tmp75369 - (let ((__tmp75370 - (let ((__tmp75371 |[1]#_g75372_|)) + (cons 'e __tmp75636))) + (__tmp75631 + (let ((__tmp75632 + (let ((__tmp75633 |[1]#_g75634_|)) (declare (not safe)) - (cons 'source __tmp75371)))) + (cons 'source __tmp75633)))) (declare (not safe)) - (cons __tmp75370 '())))) + (cons __tmp75632 '())))) (declare (not safe)) - (cons __tmp75373 __tmp75369)))) + (cons __tmp75635 __tmp75631)))) (declare (not safe)) (##unchecked-structure-set! - __obj75140 - __tmp75368 + __obj75402 + __tmp75630 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75376 - (let ((__tmp75381 - (let ((__tmp75382 |[1]#_g75383_|)) + (let ((__tmp75638 + (let ((__tmp75643 + (let ((__tmp75644 |[1]#_g75645_|)) (declare (not safe)) - (cons 'e __tmp75382))) - (__tmp75377 - (let ((__tmp75378 - (let ((__tmp75379 |[1]#_g75380_|)) + (cons 'e __tmp75644))) + (__tmp75639 + (let ((__tmp75640 + (let ((__tmp75641 |[1]#_g75642_|)) (declare (not safe)) - (cons 'source __tmp75379)))) + (cons 'source __tmp75641)))) (declare (not safe)) - (cons __tmp75378 '())))) + (cons __tmp75640 '())))) (declare (not safe)) - (cons __tmp75381 __tmp75377)))) + (cons __tmp75643 __tmp75639)))) (declare (not safe)) (##unchecked-structure-set! - __obj75140 - __tmp75376 + __obj75402 + __tmp75638 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75384 - (let ((__tmp75389 - (let ((__tmp75390 |[1]#_g75391_|)) + (let ((__tmp75646 + (let ((__tmp75651 + (let ((__tmp75652 |[1]#_g75653_|)) (declare (not safe)) - (cons 'e __tmp75390))) - (__tmp75385 - (let ((__tmp75386 - (let ((__tmp75387 |[1]#_g75388_|)) + (cons 'e __tmp75652))) + (__tmp75647 + (let ((__tmp75648 + (let ((__tmp75649 |[1]#_g75650_|)) (declare (not safe)) - (cons 'source __tmp75387)))) + (cons 'source __tmp75649)))) (declare (not safe)) - (cons __tmp75386 '())))) + (cons __tmp75648 '())))) (declare (not safe)) - (cons __tmp75389 __tmp75385)))) + (cons __tmp75651 __tmp75647)))) (declare (not safe)) (##unchecked-structure-set! - __obj75140 - __tmp75384 + __obj75402 + __tmp75646 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp75392 - (let ((__tmp75397 - (let ((__tmp75398 |[1]#_g75399_|)) + (let ((__tmp75654 + (let ((__tmp75659 + (let ((__tmp75660 |[1]#_g75661_|)) (declare (not safe)) - (cons 'e __tmp75398))) - (__tmp75393 - (let ((__tmp75394 - (let ((__tmp75395 |[1]#_g75396_|)) + (cons 'e __tmp75660))) + (__tmp75655 + (let ((__tmp75656 + (let ((__tmp75657 |[1]#_g75658_|)) (declare (not safe)) - (cons 'source __tmp75395)))) + (cons 'source __tmp75657)))) (declare (not safe)) - (cons __tmp75394 '())))) + (cons __tmp75656 '())))) (declare (not safe)) - (cons __tmp75397 __tmp75393)))) + (cons __tmp75659 __tmp75655)))) (declare (not safe)) (##unchecked-structure-set! - __obj75140 - __tmp75392 + __obj75402 + __tmp75654 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj75140)))) + __obj75402)))) diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index 4112e5ea..93a4429f 100644 --- a/src/bootstrap/gerbil/runtime/system__0.scm +++ b/src/bootstrap/gerbil/runtime/system__0.scm @@ -1,148 +1,148 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1709375797) + (define gerbil/runtime/system::timestamp 1709457368) (begin - (define gerbil-version-string (lambda () '"v0.18.1-47-gb409070e")) + (define gerbil-version-string (lambda () '"v0.18.1-50-g350301fc")) (define gerbil-system-manifest - (let ((__tmp61547 - (let ((__tmp61548 + (let ((__tmp61809 + (let ((__tmp61810 (let () (declare (not safe)) (gerbil-version-string)))) (declare (not safe)) - (cons '"Gerbil" __tmp61548))) - (__tmp61544 - (let ((__tmp61545 - (let ((__tmp61546 (system-version-string))) + (cons '"Gerbil" __tmp61810))) + (__tmp61806 + (let ((__tmp61807 + (let ((__tmp61808 (system-version-string))) (declare (not safe)) - (cons '"Gambit" __tmp61546)))) + (cons '"Gambit" __tmp61808)))) (declare (not safe)) - (cons __tmp61545 '())))) + (cons __tmp61807 '())))) (declare (not safe)) - (cons __tmp61547 __tmp61544))) + (cons __tmp61809 __tmp61806))) (define build-manifest gerbil-system-manifest) (set! build-manifest build-manifest) (define display-build-manifest__% - (lambda (_manifest61488_ _port61489_) - (let ((_p61495_ - (lambda (_g6149061492_) (display _g6149061492_ _port61489_))) - (_l61496_ (length _manifest61488_)) - (_i61497_ '0)) + (lambda (_manifest61750_ _port61751_) + (let ((_p61757_ + (lambda (_g6175261754_) (display _g6175261754_ _port61751_))) + (_l61758_ (length _manifest61750_)) + (_i61759_ '0)) (for-each - (lambda (_layer61499_) - (if (let () (declare (not safe)) (zero? _i61497_)) + (lambda (_layer61761_) + (if (let () (declare (not safe)) (zero? _i61759_)) '#!void - (if (= _i61497_ '1) - (let () (declare (not safe)) (_p61495_ '" on ")) - (let () (declare (not safe)) (_p61495_ '", ")))) - (let* ((_layer6150061507_ _layer61499_) - (_E6150261511_ + (if (= _i61759_ '1) + (let () (declare (not safe)) (_p61757_ '" on ")) + (let () (declare (not safe)) (_p61757_ '", ")))) + (let* ((_layer6176261769_ _layer61761_) + (_E6176461773_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _layer6150061507_)))) - (_K6150361517_ - (lambda (_version61514_ _name61515_) - (let () (declare (not safe)) (_p61495_ _name61515_)) - (let () (declare (not safe)) (_p61495_ '" ")) + (error '"No clause matching" _layer6176261769_)))) + (_K6176561779_ + (lambda (_version61776_ _name61777_) + (let () (declare (not safe)) (_p61757_ _name61777_)) + (let () (declare (not safe)) (_p61757_ '" ")) (let () (declare (not safe)) - (_p61495_ _version61514_))))) - (if (let () (declare (not safe)) (##pair? _layer6150061507_)) - (let ((_hd6150461520_ + (_p61757_ _version61776_))))) + (if (let () (declare (not safe)) (##pair? _layer6176261769_)) + (let ((_hd6176661782_ (let () (declare (not safe)) - (##car _layer6150061507_))) - (_tl6150561522_ + (##car _layer6176261769_))) + (_tl6176761784_ (let () (declare (not safe)) - (##cdr _layer6150061507_)))) - (let* ((_name61525_ _hd6150461520_) - (_version61527_ _tl6150561522_)) + (##cdr _layer6176261769_)))) + (let* ((_name61787_ _hd6176661782_) + (_version61789_ _tl6176761784_)) (declare (not safe)) - (_K6150361517_ _version61527_ _name61525_))) - (let () (declare (not safe)) (_E6150261511_)))) - (set! _i61497_ (+ _i61497_ '1))) - _manifest61488_)))) + (_K6176561779_ _version61789_ _name61787_))) + (let () (declare (not safe)) (_E6176461773_)))) + (set! _i61759_ (+ _i61759_ '1))) + _manifest61750_)))) (define display-build-manifest__0 (lambda () - (let* ((_manifest61533_ build-manifest) - (_port61535_ (current-output-port))) + (let* ((_manifest61795_ build-manifest) + (_port61797_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest61533_ _port61535_)))) + (display-build-manifest__% _manifest61795_ _port61797_)))) (define display-build-manifest__1 - (lambda (_manifest61537_) - (let ((_port61539_ (current-output-port))) + (lambda (_manifest61799_) + (let ((_port61801_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest61537_ _port61539_)))) + (display-build-manifest__% _manifest61799_ _port61801_)))) (define display-build-manifest - (lambda _g61550_ - (let ((_g61549_ (let () (declare (not safe)) (##length _g61550_)))) - (cond ((let () (declare (not safe)) (##fx= _g61549_ 0)) + (lambda _g61812_ + (let ((_g61811_ (let () (declare (not safe)) (##length _g61812_)))) + (cond ((let () (declare (not safe)) (##fx= _g61811_ 0)) (apply (lambda () (let () (declare (not safe)) (display-build-manifest__0))) - _g61550_)) - ((let () (declare (not safe)) (##fx= _g61549_ 1)) - (apply (lambda (_manifest61537_) + _g61812_)) + ((let () (declare (not safe)) (##fx= _g61811_ 1)) + (apply (lambda (_manifest61799_) (let () (declare (not safe)) - (display-build-manifest__1 _manifest61537_))) - _g61550_)) - ((let () (declare (not safe)) (##fx= _g61549_ 2)) - (apply (lambda (_manifest61541_ _port61542_) + (display-build-manifest__1 _manifest61799_))) + _g61812_)) + ((let () (declare (not safe)) (##fx= _g61811_ 2)) + (apply (lambda (_manifest61803_ _port61804_) (let () (declare (not safe)) (display-build-manifest__% - _manifest61541_ - _port61542_))) - _g61550_)) + _manifest61803_ + _port61804_))) + _g61812_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g61550_)))))) + _g61812_)))))) (define build-manifest/layer - (lambda (_layer61483_) - (let ((_l61485_ (assoc _layer61483_ build-manifest))) - (if _l61485_ - (let () (declare (not safe)) (cons _l61485_ '())) + (lambda (_layer61745_) + (let ((_l61747_ (assoc _layer61745_ build-manifest))) + (if _l61747_ + (let () (declare (not safe)) (cons _l61747_ '())) '())))) (define build-manifest/head (lambda () - (let ((__tmp61551 (car build-manifest))) + (let ((__tmp61813 (car build-manifest))) (declare (not safe)) - (cons __tmp61551 '())))) + (cons __tmp61813 '())))) (define build-manifest-string__% - (lambda (_manifest61470_) + (lambda (_manifest61732_) (call-with-output-string '() - (lambda (_p61472_) + (lambda (_p61734_) (let () (declare (not safe)) - (display-build-manifest__% _manifest61470_ _p61472_)))))) + (display-build-manifest__% _manifest61732_ _p61734_)))))) (define build-manifest-string__0 (lambda () - (let ((_manifest61478_ build-manifest)) + (let ((_manifest61740_ build-manifest)) (declare (not safe)) - (build-manifest-string__% _manifest61478_)))) + (build-manifest-string__% _manifest61740_)))) (define build-manifest-string - (lambda _g61553_ - (let ((_g61552_ (let () (declare (not safe)) (##length _g61553_)))) - (cond ((let () (declare (not safe)) (##fx= _g61552_ 0)) + (lambda _g61815_ + (let ((_g61814_ (let () (declare (not safe)) (##length _g61815_)))) + (cond ((let () (declare (not safe)) (##fx= _g61814_ 0)) (apply (lambda () (let () (declare (not safe)) (build-manifest-string__0))) - _g61553_)) - ((let () (declare (not safe)) (##fx= _g61552_ 1)) - (apply (lambda (_manifest61480_) + _g61815_)) + ((let () (declare (not safe)) (##fx= _g61814_ 1)) + (apply (lambda (_manifest61742_) (let () (declare (not safe)) - (build-manifest-string__% _manifest61480_))) - _g61553_)) + (build-manifest-string__% _manifest61742_))) + _g61815_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g61553_)))))) + _g61815_)))))) (define gerbil-system-version-string (lambda () (let () @@ -154,15 +154,15 @@ (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_$e61464_ (getenv '"GERBIL_HOME" '#f))) - (if _$e61464_ _$e61464_ (path-expand '"~~"))))) + (let ((_$e61726_ (getenv '"GERBIL_HOME" '#f))) + (if _$e61726_ _$e61726_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e61460_ (getenv '"GERBIL_PATH" '#f))) - (if _$e61460_ _$e61460_ (path-expand '"~/.gerbil"))))) + (let ((_$e61722_ (getenv '"GERBIL_PATH" '#f))) + (if _$e61722_ _$e61722_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp61554 (configure-command-string))) + (let ((__tmp61816 (configure-command-string))) (declare (not safe)) - (string-split __tmp61554 '#\'))))))) + (string-split __tmp61816 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/table__0.scm b/src/bootstrap/gerbil/runtime/table__0.scm index e46a7a34..fcee22ec 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 1709375797) + (define gerbil/runtime/table::timestamp 1709457368) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) @@ -13,1843 +13,1843 @@ '#f '#(table 5 #f count 5 #f free 5 #f hash 5 #f test 5 #f seed 5 #f))) (define &raw-table-table - (lambda (_tab60024_) - (##unchecked-structure-ref _tab60024_ '1 __table::t 'raw-table-table))) + (lambda (_tab60286_) + (##unchecked-structure-ref _tab60286_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_tab60022_) - (##unchecked-structure-ref _tab60022_ '2 __table::t 'raw-table-count))) + (lambda (_tab60284_) + (##unchecked-structure-ref _tab60284_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_tab60020_) - (##unchecked-structure-ref _tab60020_ '3 __table::t 'raw-table-free))) + (lambda (_tab60282_) + (##unchecked-structure-ref _tab60282_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_tab60018_) - (##unchecked-structure-ref _tab60018_ '4 __table::t 'raw-table-hash))) + (lambda (_tab60280_) + (##unchecked-structure-ref _tab60280_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_tab60016_) - (##unchecked-structure-ref _tab60016_ '5 __table::t 'raw-table-test))) + (lambda (_tab60278_) + (##unchecked-structure-ref _tab60278_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_tab60014_) - (##unchecked-structure-ref _tab60014_ '6 __table::t 'raw-table-seed))) + (lambda (_tab60276_) + (##unchecked-structure-ref _tab60276_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_tab60011_ _val60012_) + (lambda (_tab60273_ _val60274_) (##unchecked-structure-set! - _tab60011_ - _val60012_ + _tab60273_ + _val60274_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_tab60008_ _val60009_) + (lambda (_tab60270_ _val60271_) (##unchecked-structure-set! - _tab60008_ - _val60009_ + _tab60270_ + _val60271_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_tab60005_ _val60006_) + (lambda (_tab60267_ _val60268_) (##unchecked-structure-set! - _tab60005_ - _val60006_ + _tab60267_ + _val60268_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_tab60002_ _val60003_) + (lambda (_tab60264_ _val60265_) (##unchecked-structure-set! - _tab60002_ - _val60003_ + _tab60264_ + _val60265_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_tab59999_ _val60000_) + (lambda (_tab60261_ _val60262_) (##unchecked-structure-set! - _tab59999_ - _val60000_ + _tab60261_ + _val60262_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_tab59996_ _val59997_) + (lambda (_tab60258_ _val60259_) (##unchecked-structure-set! - _tab59996_ - _val59997_ + _tab60258_ + _val60259_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_size-hint59994_) - (if (and (fixnum? _size-hint59994_) (fx> _size-hint59994_ '0)) - (fx* (fxmax '2 (expt '2 (integer-length _size-hint59994_))) '4) + (lambda (_size-hint60256_) + (if (and (fixnum? _size-hint60256_) (fx> _size-hint60256_ '0)) + (fx* (fxmax '2 (expt '2 (integer-length _size-hint60256_))) '4) '16))) (define make-raw-table__% - (lambda (_size-hint59970_ _hash59971_ _test59972_ _seed59973_) - (let* ((_size59975_ (raw-table-size-hint->size _size-hint59970_)) - (_table59977_ (make-vector _size59975_ (macro-unused-obj)))) + (lambda (_size-hint60232_ _hash60233_ _test60234_ _seed60235_) + (let* ((_size60237_ (raw-table-size-hint->size _size-hint60232_)) + (_table60239_ (make-vector _size60237_ (macro-unused-obj)))) (##structure __table::t - _table59977_ + _table60239_ '0 - (fxquotient _size59975_ '2) - _hash59971_ - _test59972_ - _seed59973_)))) + (fxquotient _size60237_ '2) + _hash60233_ + _test60234_ + _seed60235_)))) (define make-raw-table__0 - (lambda (_size-hint59983_ _hash59984_ _test59985_) - (let ((_seed59987_ '0)) + (lambda (_size-hint60245_ _hash60246_ _test60247_) + (let ((_seed60249_ '0)) (make-raw-table__% - _size-hint59983_ - _hash59984_ - _test59985_ - _seed59987_)))) + _size-hint60245_ + _hash60246_ + _test60247_ + _seed60249_)))) (define make-raw-table - (lambda _g60026_ - (let ((_g60025_ (##length _g60026_))) - (cond ((##fx= _g60025_ 3) - (apply (lambda (_size-hint59983_ _hash59984_ _test59985_) + (lambda _g60288_ + (let ((_g60287_ (##length _g60288_))) + (cond ((##fx= _g60287_ 3) + (apply (lambda (_size-hint60245_ _hash60246_ _test60247_) (make-raw-table__0 - _size-hint59983_ - _hash59984_ - _test59985_)) - _g60026_)) - ((##fx= _g60025_ 4) - (apply (lambda (_size-hint59989_ - _hash59990_ - _test59991_ - _seed59992_) + _size-hint60245_ + _hash60246_ + _test60247_)) + _g60288_)) + ((##fx= _g60287_ 4) + (apply (lambda (_size-hint60251_ + _hash60252_ + _test60253_ + _seed60254_) (make-raw-table__% - _size-hint59989_ - _hash59990_ - _test59991_ - _seed59992_)) - _g60026_)) + _size-hint60251_ + _hash60252_ + _test60253_ + _seed60254_)) + _g60288_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g60026_)))))) + _g60288_)))))) (define raw-table-ref - (lambda (_tab59925_ _key59926_ _default59927_) - (let ((_table59929_ (&raw-table-table _tab59925_)) - (_seed59930_ (&raw-table-seed _tab59925_)) - (_hash59931_ (&raw-table-hash _tab59925_)) - (_test59932_ (&raw-table-test _tab59925_))) - (let* ((_h59934_ (fxxor (_hash59931_ _key59926_) _seed59930_)) - (_size59937_ (vector-length _table59929_)) - (_entries59940_ (fxquotient _size59937_ '2)) - (_start59943_ + (lambda (_tab60187_ _key60188_ _default60189_) + (let ((_table60191_ (&raw-table-table _tab60187_)) + (_seed60192_ (&raw-table-seed _tab60187_)) + (_hash60193_ (&raw-table-hash _tab60187_)) + (_test60194_ (&raw-table-test _tab60187_))) + (let* ((_h60196_ (fxxor (_hash60193_ _key60188_) _seed60192_)) + (_size60199_ (vector-length _table60191_)) + (_entries60202_ (fxquotient _size60199_ '2)) + (_start60205_ (fxarithmetic-shift-left - (fxmodulo _h59934_ _entries59940_) + (fxmodulo _h60196_ _entries60202_) '1))) - (let _loop59947_ ((_probe59950_ _start59943_) - (_i59952_ '1) - (_deleted59954_ '#f)) - (let ((_k59957_ (vector-ref _table59929_ _probe59950_))) - (if (eq? _k59957_ (macro-unused-obj)) - _default59927_ - (if (eq? _k59957_ (macro-deleted-obj)) - (_loop59947_ - (let ((_next-probe59960_ - (fx+ _start59943_ - _i59952_ - (fx* _i59952_ _i59952_)))) - (fxmodulo _next-probe59960_ _size59937_)) - (fx+ _i59952_ '1) - (let ((_$e59963_ _deleted59954_)) - (if _$e59963_ _$e59963_ _probe59950_))) - (if (_test59932_ _key59926_ _k59957_) - (vector-ref _table59929_ (fx+ _probe59950_ '1)) - (_loop59947_ - (let ((_next-probe59966_ - (fx+ _start59943_ - _i59952_ - (fx* _i59952_ _i59952_)))) - (fxmodulo _next-probe59966_ _size59937_)) - (fx+ _i59952_ '1) - _deleted59954_)))))))))) + (let _loop60209_ ((_probe60212_ _start60205_) + (_i60214_ '1) + (_deleted60216_ '#f)) + (let ((_k60219_ (vector-ref _table60191_ _probe60212_))) + (if (eq? _k60219_ (macro-unused-obj)) + _default60189_ + (if (eq? _k60219_ (macro-deleted-obj)) + (_loop60209_ + (let ((_next-probe60222_ + (fx+ _start60205_ + _i60214_ + (fx* _i60214_ _i60214_)))) + (fxmodulo _next-probe60222_ _size60199_)) + (fx+ _i60214_ '1) + (let ((_$e60225_ _deleted60216_)) + (if _$e60225_ _$e60225_ _probe60212_))) + (if (_test60194_ _key60188_ _k60219_) + (vector-ref _table60191_ (fx+ _probe60212_ '1)) + (_loop60209_ + (let ((_next-probe60228_ + (fx+ _start60205_ + _i60214_ + (fx* _i60214_ _i60214_)))) + (fxmodulo _next-probe60228_ _size60199_)) + (fx+ _i60214_ '1) + _deleted60216_)))))))))) (define raw-table-set! - (lambda (_tab59921_ _key59922_ _value59923_) - (if (fx< (&raw-table-free _tab59921_) - (fxquotient (vector-length (&raw-table-table _tab59921_)) '4)) - (__raw-table-rehash! _tab59921_) + (lambda (_tab60183_ _key60184_ _value60185_) + (if (fx< (&raw-table-free _tab60183_) + (fxquotient (vector-length (&raw-table-table _tab60183_)) '4)) + (__raw-table-rehash! _tab60183_) '#!void) - (__raw-table-set! _tab59921_ _key59922_ _value59923_))) + (__raw-table-set! _tab60183_ _key60184_ _value60185_))) (define raw-table-update! - (lambda (_tab59916_ _key59917_ _update59918_ _default59919_) - (if (fx< (&raw-table-free _tab59916_) - (fxquotient (vector-length (&raw-table-table _tab59916_)) '4)) - (__raw-table-rehash! _tab59916_) + (lambda (_tab60178_ _key60179_ _update60180_ _default60181_) + (if (fx< (&raw-table-free _tab60178_) + (fxquotient (vector-length (&raw-table-table _tab60178_)) '4)) + (__raw-table-rehash! _tab60178_) '#!void) (__raw-table-update! - _tab59916_ - _key59917_ - _update59918_ - _default59919_))) + _tab60178_ + _key60179_ + _update60180_ + _default60181_))) (define raw-table-delete! - (lambda (_tab59877_ _key59878_) - (let ((_table59880_ (&raw-table-table _tab59877_)) - (_seed59881_ (&raw-table-seed _tab59877_)) - (_hash59882_ (&raw-table-hash _tab59877_)) - (_test59883_ (&raw-table-test _tab59877_))) - (let* ((_h59885_ (fxxor (_hash59882_ _key59878_) _seed59881_)) - (_size59888_ (vector-length _table59880_)) - (_entries59891_ (fxquotient _size59888_ '2)) - (_start59894_ + (lambda (_tab60139_ _key60140_) + (let ((_table60142_ (&raw-table-table _tab60139_)) + (_seed60143_ (&raw-table-seed _tab60139_)) + (_hash60144_ (&raw-table-hash _tab60139_)) + (_test60145_ (&raw-table-test _tab60139_))) + (let* ((_h60147_ (fxxor (_hash60144_ _key60140_) _seed60143_)) + (_size60150_ (vector-length _table60142_)) + (_entries60153_ (fxquotient _size60150_ '2)) + (_start60156_ (fxarithmetic-shift-left - (fxmodulo _h59885_ _entries59891_) + (fxmodulo _h60147_ _entries60153_) '1))) - (let _loop59898_ ((_probe59901_ _start59894_) (_i59903_ '1)) - (let ((_k59906_ (vector-ref _table59880_ _probe59901_))) - (if (eq? _k59906_ (macro-unused-obj)) + (let _loop60160_ ((_probe60163_ _start60156_) (_i60165_ '1)) + (let ((_k60168_ (vector-ref _table60142_ _probe60163_))) + (if (eq? _k60168_ (macro-unused-obj)) '#!void - (if (eq? _k59906_ (macro-deleted-obj)) - (_loop59898_ - (let ((_next-probe59909_ - (fx+ _start59894_ - _i59903_ - (fx* _i59903_ _i59903_)))) - (fxmodulo _next-probe59909_ _size59888_)) - (fx+ _i59903_ '1)) - (if (_test59883_ _key59878_ _k59906_) + (if (eq? _k60168_ (macro-deleted-obj)) + (_loop60160_ + (let ((_next-probe60171_ + (fx+ _start60156_ + _i60165_ + (fx* _i60165_ _i60165_)))) + (fxmodulo _next-probe60171_ _size60150_)) + (fx+ _i60165_ '1)) + (if (_test60145_ _key60140_ _k60168_) (begin (vector-set! - _table59880_ - _probe59901_ + _table60142_ + _probe60163_ (macro-deleted-obj)) (vector-set! - _table59880_ - (fx+ _probe59901_ '1) + _table60142_ + (fx+ _probe60163_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab59877_ - (fx- (&raw-table-count _tab59877_) '1))))) - (_loop59898_ - (let ((_next-probe59913_ - (fx+ _start59894_ - _i59903_ - (fx* _i59903_ _i59903_)))) - (fxmodulo _next-probe59913_ _size59888_)) - (fx+ _i59903_ '1))))))))))) + _tab60139_ + (fx- (&raw-table-count _tab60139_) '1))))) + (_loop60160_ + (let ((_next-probe60175_ + (fx+ _start60156_ + _i60165_ + (fx* _i60165_ _i60165_)))) + (fxmodulo _next-probe60175_ _size60150_)) + (fx+ _i60165_ '1))))))))))) (define raw-table-for-each - (lambda (_tab59861_ _proc59862_) - (let* ((_table59864_ (&raw-table-table _tab59861_)) - (_size59866_ (vector-length _table59864_))) - (let _loop59869_ ((_i59871_ '0)) - (if (fx< _i59871_ _size59866_) + (lambda (_tab60123_ _proc60124_) + (let* ((_table60126_ (&raw-table-table _tab60123_)) + (_size60128_ (vector-length _table60126_))) + (let _loop60131_ ((_i60133_ '0)) + (if (fx< _i60133_ _size60128_) (begin - (let ((_key59873_ (vector-ref _table59864_ _i59871_))) - (if (and (not (eq? _key59873_ (macro-unused-obj))) - (not (eq? _key59873_ (macro-deleted-obj)))) - (let ((_value59875_ - (vector-ref _table59864_ (fx+ _i59871_ '1)))) - (_proc59862_ _key59873_ _value59875_)) + (let ((_key60135_ (vector-ref _table60126_ _i60133_))) + (if (and (not (eq? _key60135_ (macro-unused-obj))) + (not (eq? _key60135_ (macro-deleted-obj)))) + (let ((_value60137_ + (vector-ref _table60126_ (fx+ _i60133_ '1)))) + (_proc60124_ _key60135_ _value60137_)) '#!void)) - (_loop59869_ (fx+ _i59871_ '2))) + (_loop60131_ (fx+ _i60133_ '2))) '#!void))))) (define raw-table-copy - (lambda (_tab59857_) - (let ((_new-tab59859_ (##structure-copy _tab59857_))) + (lambda (_tab60119_) + (let ((_new-tab60121_ (##structure-copy _tab60119_))) (&raw-table-table-set! - _new-tab59859_ - (vector-copy (&raw-table-table _tab59857_))) - _new-tab59859_))) + _new-tab60121_ + (vector-copy (&raw-table-table _tab60119_))) + _new-tab60121_))) (define raw-table-clear! - (lambda (_tab59855_) - (vector-fill! (&raw-table-table _tab59855_) (macro-unused-obj)) - (&raw-table-count-set! _tab59855_ '0) + (lambda (_tab60117_) + (vector-fill! (&raw-table-table _tab60117_) (macro-unused-obj)) + (&raw-table-count-set! _tab60117_ '0) (&raw-table-free-set! - _tab59855_ - (fxquotient (vector-length (&raw-table-table _tab59855_)) '2)))) + _tab60117_ + (fxquotient (vector-length (&raw-table-table _tab60117_)) '2)))) (define __raw-table-set! - (lambda (_tab59809_ _key59810_ _value59811_) - (let ((_table59813_ (&raw-table-table _tab59809_)) - (_seed59814_ (&raw-table-seed _tab59809_)) - (_hash59815_ (&raw-table-hash _tab59809_)) - (_test59816_ (&raw-table-test _tab59809_))) - (let* ((_h59818_ (fxxor (_hash59815_ _key59810_) _seed59814_)) - (_size59821_ (vector-length _table59813_)) - (_entries59824_ (fxquotient _size59821_ '2)) - (_start59827_ + (lambda (_tab60071_ _key60072_ _value60073_) + (let ((_table60075_ (&raw-table-table _tab60071_)) + (_seed60076_ (&raw-table-seed _tab60071_)) + (_hash60077_ (&raw-table-hash _tab60071_)) + (_test60078_ (&raw-table-test _tab60071_))) + (let* ((_h60080_ (fxxor (_hash60077_ _key60072_) _seed60076_)) + (_size60083_ (vector-length _table60075_)) + (_entries60086_ (fxquotient _size60083_ '2)) + (_start60089_ (fxarithmetic-shift-left - (fxmodulo _h59818_ _entries59824_) + (fxmodulo _h60080_ _entries60086_) '1))) - (let _loop59831_ ((_probe59834_ _start59827_) - (_i59836_ '1) - (_deleted59838_ '#f)) - (let ((_k59841_ (vector-ref _table59813_ _probe59834_))) - (if (eq? _k59841_ (macro-unused-obj)) - (if _deleted59838_ + (let _loop60093_ ((_probe60096_ _start60089_) + (_i60098_ '1) + (_deleted60100_ '#f)) + (let ((_k60103_ (vector-ref _table60075_ _probe60096_))) + (if (eq? _k60103_ (macro-unused-obj)) + (if _deleted60100_ (begin - (vector-set! _table59813_ _deleted59838_ _key59810_) + (vector-set! _table60075_ _deleted60100_ _key60072_) (vector-set! - _table59813_ - (fx+ _deleted59838_ '1) - _value59811_) + _table60075_ + (fx+ _deleted60100_ '1) + _value60073_) ((lambda () (&raw-table-count-set! - _tab59809_ - (fx+ (&raw-table-count _tab59809_) '1))))) + _tab60071_ + (fx+ (&raw-table-count _tab60071_) '1))))) (begin - (vector-set! _table59813_ _probe59834_ _key59810_) + (vector-set! _table60075_ _probe60096_ _key60072_) (vector-set! - _table59813_ - (fx+ _probe59834_ '1) - _value59811_) + _table60075_ + (fx+ _probe60096_ '1) + _value60073_) ((lambda () (&raw-table-free-set! - _tab59809_ - (fx- (&raw-table-free _tab59809_) '1)) + _tab60071_ + (fx- (&raw-table-free _tab60071_) '1)) (&raw-table-count-set! - _tab59809_ - (fx+ (&raw-table-count _tab59809_) '1)))))) - (if (eq? _k59841_ (macro-deleted-obj)) - (_loop59831_ - (let ((_next-probe59846_ - (fx+ _start59827_ - _i59836_ - (fx* _i59836_ _i59836_)))) - (fxmodulo _next-probe59846_ _size59821_)) - (fx+ _i59836_ '1) - (let ((_$e59849_ _deleted59838_)) - (if _$e59849_ _$e59849_ _probe59834_))) - (if (_test59816_ _key59810_ _k59841_) + _tab60071_ + (fx+ (&raw-table-count _tab60071_) '1)))))) + (if (eq? _k60103_ (macro-deleted-obj)) + (_loop60093_ + (let ((_next-probe60108_ + (fx+ _start60089_ + _i60098_ + (fx* _i60098_ _i60098_)))) + (fxmodulo _next-probe60108_ _size60083_)) + (fx+ _i60098_ '1) + (let ((_$e60111_ _deleted60100_)) + (if _$e60111_ _$e60111_ _probe60096_))) + (if (_test60078_ _key60072_ _k60103_) (begin (vector-set! - _table59813_ - _probe59834_ - _key59810_) + _table60075_ + _probe60096_ + _key60072_) (vector-set! - _table59813_ - (fx+ _probe59834_ '1) - _value59811_)) - (_loop59831_ - (let ((_next-probe59852_ - (fx+ _start59827_ - _i59836_ - (fx* _i59836_ _i59836_)))) - (fxmodulo _next-probe59852_ _size59821_)) - (fx+ _i59836_ '1) - _deleted59838_)))))))))) + _table60075_ + (fx+ _probe60096_ '1) + _value60073_)) + (_loop60093_ + (let ((_next-probe60114_ + (fx+ _start60089_ + _i60098_ + (fx* _i60098_ _i60098_)))) + (fxmodulo _next-probe60114_ _size60083_)) + (fx+ _i60098_ '1) + _deleted60100_)))))))))) (define __raw-table-update! - (lambda (_tab59762_ _key59763_ _update59764_ _default59765_) - (let ((_table59767_ (&raw-table-table _tab59762_)) - (_seed59768_ (&raw-table-seed _tab59762_)) - (_hash59769_ (&raw-table-hash _tab59762_)) - (_test59770_ (&raw-table-test _tab59762_))) - (let* ((_h59772_ (fxxor (_hash59769_ _key59763_) _seed59768_)) - (_size59775_ (vector-length _table59767_)) - (_entries59778_ (fxquotient _size59775_ '2)) - (_start59781_ + (lambda (_tab60024_ _key60025_ _update60026_ _default60027_) + (let ((_table60029_ (&raw-table-table _tab60024_)) + (_seed60030_ (&raw-table-seed _tab60024_)) + (_hash60031_ (&raw-table-hash _tab60024_)) + (_test60032_ (&raw-table-test _tab60024_))) + (let* ((_h60034_ (fxxor (_hash60031_ _key60025_) _seed60030_)) + (_size60037_ (vector-length _table60029_)) + (_entries60040_ (fxquotient _size60037_ '2)) + (_start60043_ (fxarithmetic-shift-left - (fxmodulo _h59772_ _entries59778_) + (fxmodulo _h60034_ _entries60040_) '1))) - (let _loop59785_ ((_probe59788_ _start59781_) - (_i59790_ '1) - (_deleted59792_ '#f)) - (let ((_k59795_ (vector-ref _table59767_ _probe59788_))) - (if (eq? _k59795_ (macro-unused-obj)) - (if _deleted59792_ + (let _loop60047_ ((_probe60050_ _start60043_) + (_i60052_ '1) + (_deleted60054_ '#f)) + (let ((_k60057_ (vector-ref _table60029_ _probe60050_))) + (if (eq? _k60057_ (macro-unused-obj)) + (if _deleted60054_ (begin - (vector-set! _table59767_ _deleted59792_ _key59763_) + (vector-set! _table60029_ _deleted60054_ _key60025_) (vector-set! - _table59767_ - (fx+ _deleted59792_ '1) - (_update59764_ _default59765_)) + _table60029_ + (fx+ _deleted60054_ '1) + (_update60026_ _default60027_)) ((lambda () (&raw-table-count-set! - _tab59762_ - (fx+ (&raw-table-count _tab59762_) '1))))) + _tab60024_ + (fx+ (&raw-table-count _tab60024_) '1))))) (begin - (vector-set! _table59767_ _probe59788_ _key59763_) + (vector-set! _table60029_ _probe60050_ _key60025_) (vector-set! - _table59767_ - (fx+ _probe59788_ '1) - (_update59764_ _default59765_)) + _table60029_ + (fx+ _probe60050_ '1) + (_update60026_ _default60027_)) ((lambda () (&raw-table-free-set! - _tab59762_ - (fx- (&raw-table-free _tab59762_) '1)) + _tab60024_ + (fx- (&raw-table-free _tab60024_) '1)) (&raw-table-count-set! - _tab59762_ - (fx+ (&raw-table-count _tab59762_) '1)))))) - (if (eq? _k59795_ (macro-deleted-obj)) - (_loop59785_ - (let ((_next-probe59800_ - (fx+ _start59781_ - _i59790_ - (fx* _i59790_ _i59790_)))) - (fxmodulo _next-probe59800_ _size59775_)) - (fx+ _i59790_ '1) - (let ((_$e59803_ _deleted59792_)) - (if _$e59803_ _$e59803_ _probe59788_))) - (if (_test59770_ _key59763_ _k59795_) + _tab60024_ + (fx+ (&raw-table-count _tab60024_) '1)))))) + (if (eq? _k60057_ (macro-deleted-obj)) + (_loop60047_ + (let ((_next-probe60062_ + (fx+ _start60043_ + _i60052_ + (fx* _i60052_ _i60052_)))) + (fxmodulo _next-probe60062_ _size60037_)) + (fx+ _i60052_ '1) + (let ((_$e60065_ _deleted60054_)) + (if _$e60065_ _$e60065_ _probe60050_))) + (if (_test60032_ _key60025_ _k60057_) (begin (vector-set! - _table59767_ - _probe59788_ - _key59763_) + _table60029_ + _probe60050_ + _key60025_) (vector-set! - _table59767_ - (fx+ _probe59788_ '1) - (_update59764_ + _table60029_ + (fx+ _probe60050_ '1) + (_update60026_ (vector-ref - _table59767_ - (fx+ _probe59788_ '1))))) - (_loop59785_ - (let ((_next-probe59806_ - (fx+ _start59781_ - _i59790_ - (fx* _i59790_ _i59790_)))) - (fxmodulo _next-probe59806_ _size59775_)) - (fx+ _i59790_ '1) - _deleted59792_)))))))))) + _table60029_ + (fx+ _probe60050_ '1))))) + (_loop60047_ + (let ((_next-probe60068_ + (fx+ _start60043_ + _i60052_ + (fx* _i60052_ _i60052_)))) + (fxmodulo _next-probe60068_ _size60037_)) + (fx+ _i60052_ '1) + _deleted60054_)))))))))) (define __raw-table-rehash! - (lambda (_tab59743_) - (let* ((_old-table59745_ (&raw-table-table _tab59743_)) - (_old-size59747_ (vector-length _old-table59745_)) - (_new-size59749_ - (if (fx< (&raw-table-count _tab59743_) - (fxquotient _old-size59747_ '4)) - (vector-length _old-table59745_) - (fx* '2 (vector-length _old-table59745_)))) - (_new-table59751_ - (make-vector _new-size59749_ (macro-unused-obj)))) - (&raw-table-table-set! _tab59743_ _new-table59751_) - (&raw-table-count-set! _tab59743_ '0) - (&raw-table-free-set! _tab59743_ (fxquotient _new-size59749_ '2)) - (let _lp59754_ ((_i59756_ '0)) - (if (fx< _i59756_ _old-size59747_) + (lambda (_tab60005_) + (let* ((_old-table60007_ (&raw-table-table _tab60005_)) + (_old-size60009_ (vector-length _old-table60007_)) + (_new-size60011_ + (if (fx< (&raw-table-count _tab60005_) + (fxquotient _old-size60009_ '4)) + (vector-length _old-table60007_) + (fx* '2 (vector-length _old-table60007_)))) + (_new-table60013_ + (make-vector _new-size60011_ (macro-unused-obj)))) + (&raw-table-table-set! _tab60005_ _new-table60013_) + (&raw-table-count-set! _tab60005_ '0) + (&raw-table-free-set! _tab60005_ (fxquotient _new-size60011_ '2)) + (let _lp60016_ ((_i60018_ '0)) + (if (fx< _i60018_ _old-size60009_) (begin - (let ((_key59758_ (vector-ref _old-table59745_ _i59756_))) - (if (and (not (eq? _key59758_ (macro-unused-obj))) - (not (eq? _key59758_ (macro-deleted-obj)))) - (let ((_value59760_ + (let ((_key60020_ (vector-ref _old-table60007_ _i60018_))) + (if (and (not (eq? _key60020_ (macro-unused-obj))) + (not (eq? _key60020_ (macro-deleted-obj)))) + (let ((_value60022_ (vector-ref - _old-table59745_ - (fx+ _i59756_ '1)))) + _old-table60007_ + (fx+ _i60018_ '1)))) (__raw-table-set! - _tab59743_ - _key59758_ - _value59760_)) + _tab60005_ + _key60020_ + _value60022_)) '#!void)) - (_lp59754_ (fx+ _i59756_ '2))) + (_lp60016_ (fx+ _i60018_ '2))) '#!void))))) (define eq-hash - (lambda (_obj59739_) - (let ((_t59741_ (##type _obj59739_))) - (if (fx= (fxand _t59741_ '1) '0) - (fxand (##type-cast _obj59739_ (macro-type-fixnum)) + (lambda (_obj60001_) + (let ((_t60003_ (##type _obj60001_))) + (if (fx= (fxand _t60003_ '1) '0) + (fxand (##type-cast _obj60001_ (macro-type-fixnum)) (macro-max-fixnum32)) - (if (symbolic? _obj59739_) - (symbolic-hash _obj59739_) - (if (procedure? _obj59739_) - (procedure-hash _obj59739_) - (fxand (__eq-hash _obj59739_) (macro-max-fixnum32)))))))) + (if (symbolic? _obj60001_) + (symbolic-hash _obj60001_) + (if (procedure? _obj60001_) + (procedure-hash _obj60001_) + (fxand (__eq-hash _obj60001_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_obj59735_) - (let ((_h59737_ - (if (##closure? _obj59735_) - (__eq-hash _obj59735_) - (##type-cast _obj59735_ '0)))) - (fxand _h59737_ (macro-max-fixnum32))))) + (lambda (_obj59997_) + (let ((_h59999_ + (if (##closure? _obj59997_) + (__eq-hash _obj59997_) + (##type-cast _obj59997_ '0)))) + (fxand _h59999_ (macro-max-fixnum32))))) (define __eq-hash - (lambda (_obj59732_) + (lambda (_obj59994_) (declare (not interrupts-enabled)) - (__object->eq-hash _obj59732_))) + (__object->eq-hash _obj59994_))) (define eqv-hash - (lambda (_obj59722_) - (letrec ((_combine59724_ - (lambda (_a59729_ _b59730_) - (fxand (fx* (fx+ _a59729_ - (fxarithmetic-shift-left _b59730_ '1)) + (lambda (_obj59984_) + (letrec ((_combine59986_ + (lambda (_a59991_ _b59992_) + (fxand (fx* (fx+ _a59991_ + (fxarithmetic-shift-left _b59992_ '1)) '331804471) (macro-max-fixnum32)))) - (_hash59725_ - (lambda (_obj59727_) + (_hash59987_ + (lambda (_obj59989_) (macro-number-dispatch - _obj59727_ - (eq-hash _obj59727_) - (fxand _obj59727_ (macro-max-fixnum32)) - (modulo _obj59727_ '331804481) - (_combine59724_ - (_hash59725_ (macro-ratnum-numerator _obj59727_)) - (_hash59725_ (macro-ratnum-denominator _obj59727_))) - (_combine59724_ - (##u16vector-ref _obj59727_ '0) - (_combine59724_ - (##u16vector-ref _obj59727_ '1) - (_combine59724_ - (##u16vector-ref _obj59727_ '2) - (##u16vector-ref _obj59727_ '3)))) - (_combine59724_ - (_hash59725_ (macro-cpxnum-real _obj59727_)) - (_hash59725_ (macro-cpxnum-imag _obj59727_))))))) - (_hash59725_ _obj59722_)))) + _obj59989_ + (eq-hash _obj59989_) + (fxand _obj59989_ (macro-max-fixnum32)) + (modulo _obj59989_ '331804481) + (_combine59986_ + (_hash59987_ (macro-ratnum-numerator _obj59989_)) + (_hash59987_ (macro-ratnum-denominator _obj59989_))) + (_combine59986_ + (##u16vector-ref _obj59989_ '0) + (_combine59986_ + (##u16vector-ref _obj59989_ '1) + (_combine59986_ + (##u16vector-ref _obj59989_ '2) + (##u16vector-ref _obj59989_ '3)))) + (_combine59986_ + (_hash59987_ (macro-cpxnum-real _obj59989_)) + (_hash59987_ (macro-cpxnum-imag _obj59989_))))))) + (_hash59987_ _obj59984_)))) (define symbolic? - (lambda (_obj59717_) - (let ((_$e59719_ (symbol? _obj59717_))) - (if _$e59719_ _$e59719_ (keyword? _obj59717_))))) - (define symbolic-hash (lambda (_obj59715_) (macro-slot '1 _obj59715_))) - (define string-hash (lambda (_obj59713_) (##string=?-hash _obj59713_))) + (lambda (_obj59979_) + (let ((_$e59981_ (symbol? _obj59979_))) + (if _$e59981_ _$e59981_ (keyword? _obj59979_))))) + (define symbolic-hash (lambda (_obj59977_) (macro-slot '1 _obj59977_))) + (define string-hash (lambda (_obj59975_) (##string=?-hash _obj59975_))) (define immediate-hash - (lambda (_obj59711_) (##type-cast _obj59711_ (macro-type-fixnum)))) + (lambda (_obj59973_) (##type-cast _obj59973_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_size-hint59692_ _seed59694_) - (make-raw-table__% _size-hint59692_ eq-hash eq? _seed59694_))) + (lambda (_size-hint59954_ _seed59956_) + (make-raw-table__% _size-hint59954_ eq-hash eq? _seed59956_))) (define make-eq-table__0 (lambda () - (let* ((_size-hint59700_ '#f) (_seed59702_ '0)) - (make-eq-table__% _size-hint59700_ _seed59702_)))) + (let* ((_size-hint59962_ '#f) (_seed59964_ '0)) + (make-eq-table__% _size-hint59962_ _seed59964_)))) (define make-eq-table__1 - (lambda (_size-hint59704_) - (let ((_seed59706_ '0)) - (make-eq-table__% _size-hint59704_ _seed59706_)))) + (lambda (_size-hint59966_) + (let ((_seed59968_ '0)) + (make-eq-table__% _size-hint59966_ _seed59968_)))) (define make-eq-table - (lambda _g60028_ - (let ((_g60027_ (##length _g60028_))) - (cond ((##fx= _g60027_ 0) - (apply (lambda () (make-eq-table__0)) _g60028_)) - ((##fx= _g60027_ 1) - (apply (lambda (_size-hint59704_) - (make-eq-table__1 _size-hint59704_)) - _g60028_)) - ((##fx= _g60027_ 2) - (apply (lambda (_size-hint59708_ _seed59709_) - (make-eq-table__% _size-hint59708_ _seed59709_)) - _g60028_)) + (lambda _g60290_ + (let ((_g60289_ (##length _g60290_))) + (cond ((##fx= _g60289_ 0) + (apply (lambda () (make-eq-table__0)) _g60290_)) + ((##fx= _g60289_ 1) + (apply (lambda (_size-hint59966_) + (make-eq-table__1 _size-hint59966_)) + _g60290_)) + ((##fx= _g60289_ 2) + (apply (lambda (_size-hint59970_ _seed59971_) + (make-eq-table__% _size-hint59970_ _seed59971_)) + _g60290_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g60028_)))))) + _g60290_)))))) (define eq-table-ref - (lambda (_tab59649_ _key59650_ _default59651_) - (let ((_table59653_ (&raw-table-table _tab59649_)) - (_seed59654_ (&raw-table-seed _tab59649_))) - (let* ((_h59656_ (fxxor (eq-hash _key59650_) _seed59654_)) - (_size59659_ (vector-length _table59653_)) - (_entries59662_ (fxquotient _size59659_ '2)) - (_start59665_ + (lambda (_tab59911_ _key59912_ _default59913_) + (let ((_table59915_ (&raw-table-table _tab59911_)) + (_seed59916_ (&raw-table-seed _tab59911_))) + (let* ((_h59918_ (fxxor (eq-hash _key59912_) _seed59916_)) + (_size59921_ (vector-length _table59915_)) + (_entries59924_ (fxquotient _size59921_ '2)) + (_start59927_ (fxarithmetic-shift-left - (fxmodulo _h59656_ _entries59662_) + (fxmodulo _h59918_ _entries59924_) '1))) - (let _loop59669_ ((_probe59672_ _start59665_) - (_i59674_ '1) - (_deleted59676_ '#f)) - (let ((_k59679_ (vector-ref _table59653_ _probe59672_))) - (if (eq? _k59679_ (macro-unused-obj)) - _default59651_ - (if (eq? _k59679_ (macro-deleted-obj)) - (_loop59669_ - (let ((_next-probe59682_ - (fx+ _start59665_ - _i59674_ - (fx* _i59674_ _i59674_)))) - (fxmodulo _next-probe59682_ _size59659_)) - (fx+ _i59674_ '1) - (let ((_$e59685_ _deleted59676_)) - (if _$e59685_ _$e59685_ _probe59672_))) - (if (eq? _key59650_ _k59679_) - (vector-ref _table59653_ (fx+ _probe59672_ '1)) - (_loop59669_ - (let ((_next-probe59688_ - (fx+ _start59665_ - _i59674_ - (fx* _i59674_ _i59674_)))) - (fxmodulo _next-probe59688_ _size59659_)) - (fx+ _i59674_ '1) - _deleted59676_)))))))))) + (let _loop59931_ ((_probe59934_ _start59927_) + (_i59936_ '1) + (_deleted59938_ '#f)) + (let ((_k59941_ (vector-ref _table59915_ _probe59934_))) + (if (eq? _k59941_ (macro-unused-obj)) + _default59913_ + (if (eq? _k59941_ (macro-deleted-obj)) + (_loop59931_ + (let ((_next-probe59944_ + (fx+ _start59927_ + _i59936_ + (fx* _i59936_ _i59936_)))) + (fxmodulo _next-probe59944_ _size59921_)) + (fx+ _i59936_ '1) + (let ((_$e59947_ _deleted59938_)) + (if _$e59947_ _$e59947_ _probe59934_))) + (if (eq? _key59912_ _k59941_) + (vector-ref _table59915_ (fx+ _probe59934_ '1)) + (_loop59931_ + (let ((_next-probe59950_ + (fx+ _start59927_ + _i59936_ + (fx* _i59936_ _i59936_)))) + (fxmodulo _next-probe59950_ _size59921_)) + (fx+ _i59936_ '1) + _deleted59938_)))))))))) (define eq-table-set! - (lambda (_tab59645_ _key59646_ _value59647_) - (if (fx< (&raw-table-free _tab59645_) - (fxquotient (vector-length (&raw-table-table _tab59645_)) '4)) - (__raw-table-rehash! _tab59645_) + (lambda (_tab59907_ _key59908_ _value59909_) + (if (fx< (&raw-table-free _tab59907_) + (fxquotient (vector-length (&raw-table-table _tab59907_)) '4)) + (__raw-table-rehash! _tab59907_) '#!void) - (__eq-table-set! _tab59645_ _key59646_ _value59647_))) + (__eq-table-set! _tab59907_ _key59908_ _value59909_))) (define __eq-table-set! - (lambda (_tab59600_ _key59601_ _value59602_) - (let ((_table59605_ (&raw-table-table _tab59600_)) - (_seed59606_ (&raw-table-seed _tab59600_))) - (let* ((_h59608_ (fxxor (eq-hash _key59601_) _seed59606_)) - (_size59611_ (vector-length _table59605_)) - (_entries59614_ (fxquotient _size59611_ '2)) - (_start59617_ + (lambda (_tab59862_ _key59863_ _value59864_) + (let ((_table59867_ (&raw-table-table _tab59862_)) + (_seed59868_ (&raw-table-seed _tab59862_))) + (let* ((_h59870_ (fxxor (eq-hash _key59863_) _seed59868_)) + (_size59873_ (vector-length _table59867_)) + (_entries59876_ (fxquotient _size59873_ '2)) + (_start59879_ (fxarithmetic-shift-left - (fxmodulo _h59608_ _entries59614_) + (fxmodulo _h59870_ _entries59876_) '1))) - (let _loop59621_ ((_probe59624_ _start59617_) - (_i59626_ '1) - (_deleted59628_ '#f)) - (let ((_k59631_ (vector-ref _table59605_ _probe59624_))) - (if (eq? _k59631_ (macro-unused-obj)) - (if _deleted59628_ + (let _loop59883_ ((_probe59886_ _start59879_) + (_i59888_ '1) + (_deleted59890_ '#f)) + (let ((_k59893_ (vector-ref _table59867_ _probe59886_))) + (if (eq? _k59893_ (macro-unused-obj)) + (if _deleted59890_ (begin - (vector-set! _table59605_ _deleted59628_ _key59601_) + (vector-set! _table59867_ _deleted59890_ _key59863_) (vector-set! - _table59605_ - (fx+ _deleted59628_ '1) - _value59602_) + _table59867_ + (fx+ _deleted59890_ '1) + _value59864_) ((lambda () (&raw-table-count-set! - _tab59600_ - (fx+ (&raw-table-count _tab59600_) '1))))) + _tab59862_ + (fx+ (&raw-table-count _tab59862_) '1))))) (begin - (vector-set! _table59605_ _probe59624_ _key59601_) + (vector-set! _table59867_ _probe59886_ _key59863_) (vector-set! - _table59605_ - (fx+ _probe59624_ '1) - _value59602_) + _table59867_ + (fx+ _probe59886_ '1) + _value59864_) ((lambda () (&raw-table-free-set! - _tab59600_ - (fx- (&raw-table-free _tab59600_) '1)) + _tab59862_ + (fx- (&raw-table-free _tab59862_) '1)) (&raw-table-count-set! - _tab59600_ - (fx+ (&raw-table-count _tab59600_) '1)))))) - (if (eq? _k59631_ (macro-deleted-obj)) - (_loop59621_ - (let ((_next-probe59636_ - (fx+ _start59617_ - _i59626_ - (fx* _i59626_ _i59626_)))) - (fxmodulo _next-probe59636_ _size59611_)) - (fx+ _i59626_ '1) - (let ((_$e59639_ _deleted59628_)) - (if _$e59639_ _$e59639_ _probe59624_))) - (if (eq? _key59601_ _k59631_) + _tab59862_ + (fx+ (&raw-table-count _tab59862_) '1)))))) + (if (eq? _k59893_ (macro-deleted-obj)) + (_loop59883_ + (let ((_next-probe59898_ + (fx+ _start59879_ + _i59888_ + (fx* _i59888_ _i59888_)))) + (fxmodulo _next-probe59898_ _size59873_)) + (fx+ _i59888_ '1) + (let ((_$e59901_ _deleted59890_)) + (if _$e59901_ _$e59901_ _probe59886_))) + (if (eq? _key59863_ _k59893_) (begin (vector-set! - _table59605_ - _probe59624_ - _key59601_) + _table59867_ + _probe59886_ + _key59863_) (vector-set! - _table59605_ - (fx+ _probe59624_ '1) - _value59602_)) - (_loop59621_ - (let ((_next-probe59642_ - (fx+ _start59617_ - _i59626_ - (fx* _i59626_ _i59626_)))) - (fxmodulo _next-probe59642_ _size59611_)) - (fx+ _i59626_ '1) - _deleted59628_)))))))))) + _table59867_ + (fx+ _probe59886_ '1) + _value59864_)) + (_loop59883_ + (let ((_next-probe59904_ + (fx+ _start59879_ + _i59888_ + (fx* _i59888_ _i59888_)))) + (fxmodulo _next-probe59904_ _size59873_)) + (fx+ _i59888_ '1) + _deleted59890_)))))))))) (define eq-table-update! - (lambda (_tab59595_ _key59596_ _eq-table-update!59597_ _default59598_) - (if (fx< (&raw-table-free _tab59595_) - (fxquotient (vector-length (&raw-table-table _tab59595_)) '4)) - (__raw-table-rehash! _tab59595_) + (lambda (_tab59857_ _key59858_ _eq-table-update!59859_ _default59860_) + (if (fx< (&raw-table-free _tab59857_) + (fxquotient (vector-length (&raw-table-table _tab59857_)) '4)) + (__raw-table-rehash! _tab59857_) '#!void) (__eq-table-update! - _tab59595_ - _key59596_ - _eq-table-update!59597_ - _default59598_))) + _tab59857_ + _key59858_ + _eq-table-update!59859_ + _default59860_))) (define __eq-table-update! - (lambda (_tab59549_ _key59550_ _eq-table-update!59551_ _default59552_) - (let ((_table59555_ (&raw-table-table _tab59549_)) - (_seed59556_ (&raw-table-seed _tab59549_))) - (let* ((_h59558_ (fxxor (eq-hash _key59550_) _seed59556_)) - (_size59561_ (vector-length _table59555_)) - (_entries59564_ (fxquotient _size59561_ '2)) - (_start59567_ + (lambda (_tab59811_ _key59812_ _eq-table-update!59813_ _default59814_) + (let ((_table59817_ (&raw-table-table _tab59811_)) + (_seed59818_ (&raw-table-seed _tab59811_))) + (let* ((_h59820_ (fxxor (eq-hash _key59812_) _seed59818_)) + (_size59823_ (vector-length _table59817_)) + (_entries59826_ (fxquotient _size59823_ '2)) + (_start59829_ (fxarithmetic-shift-left - (fxmodulo _h59558_ _entries59564_) + (fxmodulo _h59820_ _entries59826_) '1))) - (let _loop59571_ ((_probe59574_ _start59567_) - (_i59576_ '1) - (_deleted59578_ '#f)) - (let ((_k59581_ (vector-ref _table59555_ _probe59574_))) - (if (eq? _k59581_ (macro-unused-obj)) - (if _deleted59578_ + (let _loop59833_ ((_probe59836_ _start59829_) + (_i59838_ '1) + (_deleted59840_ '#f)) + (let ((_k59843_ (vector-ref _table59817_ _probe59836_))) + (if (eq? _k59843_ (macro-unused-obj)) + (if _deleted59840_ (begin - (vector-set! _table59555_ _deleted59578_ _key59550_) + (vector-set! _table59817_ _deleted59840_ _key59812_) (vector-set! - _table59555_ - (fx+ _deleted59578_ '1) - (_eq-table-update!59551_ _default59552_)) + _table59817_ + (fx+ _deleted59840_ '1) + (_eq-table-update!59813_ _default59814_)) ((lambda () (&raw-table-count-set! - _tab59549_ - (fx+ (&raw-table-count _tab59549_) '1))))) + _tab59811_ + (fx+ (&raw-table-count _tab59811_) '1))))) (begin - (vector-set! _table59555_ _probe59574_ _key59550_) + (vector-set! _table59817_ _probe59836_ _key59812_) (vector-set! - _table59555_ - (fx+ _probe59574_ '1) - (_eq-table-update!59551_ _default59552_)) + _table59817_ + (fx+ _probe59836_ '1) + (_eq-table-update!59813_ _default59814_)) ((lambda () (&raw-table-free-set! - _tab59549_ - (fx- (&raw-table-free _tab59549_) '1)) + _tab59811_ + (fx- (&raw-table-free _tab59811_) '1)) (&raw-table-count-set! - _tab59549_ - (fx+ (&raw-table-count _tab59549_) '1)))))) - (if (eq? _k59581_ (macro-deleted-obj)) - (_loop59571_ - (let ((_next-probe59586_ - (fx+ _start59567_ - _i59576_ - (fx* _i59576_ _i59576_)))) - (fxmodulo _next-probe59586_ _size59561_)) - (fx+ _i59576_ '1) - (let ((_$e59589_ _deleted59578_)) - (if _$e59589_ _$e59589_ _probe59574_))) - (if (eq? _key59550_ _k59581_) + _tab59811_ + (fx+ (&raw-table-count _tab59811_) '1)))))) + (if (eq? _k59843_ (macro-deleted-obj)) + (_loop59833_ + (let ((_next-probe59848_ + (fx+ _start59829_ + _i59838_ + (fx* _i59838_ _i59838_)))) + (fxmodulo _next-probe59848_ _size59823_)) + (fx+ _i59838_ '1) + (let ((_$e59851_ _deleted59840_)) + (if _$e59851_ _$e59851_ _probe59836_))) + (if (eq? _key59812_ _k59843_) (begin (vector-set! - _table59555_ - _probe59574_ - _key59550_) + _table59817_ + _probe59836_ + _key59812_) (vector-set! - _table59555_ - (fx+ _probe59574_ '1) - (_eq-table-update!59551_ + _table59817_ + (fx+ _probe59836_ '1) + (_eq-table-update!59813_ (vector-ref - _table59555_ - (fx+ _probe59574_ '1))))) - (_loop59571_ - (let ((_next-probe59592_ - (fx+ _start59567_ - _i59576_ - (fx* _i59576_ _i59576_)))) - (fxmodulo _next-probe59592_ _size59561_)) - (fx+ _i59576_ '1) - _deleted59578_)))))))))) + _table59817_ + (fx+ _probe59836_ '1))))) + (_loop59833_ + (let ((_next-probe59854_ + (fx+ _start59829_ + _i59838_ + (fx* _i59838_ _i59838_)))) + (fxmodulo _next-probe59854_ _size59823_)) + (fx+ _i59838_ '1) + _deleted59840_)))))))))) (define eq-table-delete! - (lambda (_tab59508_ _key59510_) - (let ((_table59513_ (&raw-table-table _tab59508_)) - (_seed59515_ (&raw-table-seed _tab59508_))) - (let* ((_h59518_ (fxxor (eq-hash _key59510_) _seed59515_)) - (_size59521_ (vector-length _table59513_)) - (_entries59524_ (fxquotient _size59521_ '2)) - (_start59527_ + (lambda (_tab59770_ _key59772_) + (let ((_table59775_ (&raw-table-table _tab59770_)) + (_seed59777_ (&raw-table-seed _tab59770_))) + (let* ((_h59780_ (fxxor (eq-hash _key59772_) _seed59777_)) + (_size59783_ (vector-length _table59775_)) + (_entries59786_ (fxquotient _size59783_ '2)) + (_start59789_ (fxarithmetic-shift-left - (fxmodulo _h59518_ _entries59524_) + (fxmodulo _h59780_ _entries59786_) '1))) - (let _loop59531_ ((_probe59534_ _start59527_) (_i59536_ '1)) - (let ((_k59539_ (vector-ref _table59513_ _probe59534_))) - (if (eq? _k59539_ (macro-unused-obj)) + (let _loop59793_ ((_probe59796_ _start59789_) (_i59798_ '1)) + (let ((_k59801_ (vector-ref _table59775_ _probe59796_))) + (if (eq? _k59801_ (macro-unused-obj)) '#!void - (if (eq? _k59539_ (macro-deleted-obj)) - (_loop59531_ - (let ((_next-probe59542_ - (fx+ _start59527_ - _i59536_ - (fx* _i59536_ _i59536_)))) - (fxmodulo _next-probe59542_ _size59521_)) - (fx+ _i59536_ '1)) - (if (eq? _key59510_ _k59539_) + (if (eq? _k59801_ (macro-deleted-obj)) + (_loop59793_ + (let ((_next-probe59804_ + (fx+ _start59789_ + _i59798_ + (fx* _i59798_ _i59798_)))) + (fxmodulo _next-probe59804_ _size59783_)) + (fx+ _i59798_ '1)) + (if (eq? _key59772_ _k59801_) (begin (vector-set! - _table59513_ - _probe59534_ + _table59775_ + _probe59796_ (macro-deleted-obj)) (vector-set! - _table59513_ - (fx+ _probe59534_ '1) + _table59775_ + (fx+ _probe59796_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab59508_ - (fx- (&raw-table-count _tab59508_) '1))))) - (_loop59531_ - (let ((_next-probe59546_ - (fx+ _start59527_ - _i59536_ - (fx* _i59536_ _i59536_)))) - (fxmodulo _next-probe59546_ _size59521_)) - (fx+ _i59536_ '1))))))))))) + _tab59770_ + (fx- (&raw-table-count _tab59770_) '1))))) + (_loop59793_ + (let ((_next-probe59808_ + (fx+ _start59789_ + _i59798_ + (fx* _i59798_ _i59798_)))) + (fxmodulo _next-probe59808_ _size59783_)) + (fx+ _i59798_ '1))))))))))) (define make-eqv-table__% - (lambda (_size-hint59489_ _seed59491_) - (make-raw-table__% _size-hint59489_ eqv-hash eqv? _seed59491_))) + (lambda (_size-hint59751_ _seed59753_) + (make-raw-table__% _size-hint59751_ eqv-hash eqv? _seed59753_))) (define make-eqv-table__0 (lambda () - (let* ((_size-hint59497_ '#f) (_seed59499_ '0)) - (make-eqv-table__% _size-hint59497_ _seed59499_)))) + (let* ((_size-hint59759_ '#f) (_seed59761_ '0)) + (make-eqv-table__% _size-hint59759_ _seed59761_)))) (define make-eqv-table__1 - (lambda (_size-hint59501_) - (let ((_seed59503_ '0)) - (make-eqv-table__% _size-hint59501_ _seed59503_)))) + (lambda (_size-hint59763_) + (let ((_seed59765_ '0)) + (make-eqv-table__% _size-hint59763_ _seed59765_)))) (define make-eqv-table - (lambda _g60030_ - (let ((_g60029_ (##length _g60030_))) - (cond ((##fx= _g60029_ 0) - (apply (lambda () (make-eqv-table__0)) _g60030_)) - ((##fx= _g60029_ 1) - (apply (lambda (_size-hint59501_) - (make-eqv-table__1 _size-hint59501_)) - _g60030_)) - ((##fx= _g60029_ 2) - (apply (lambda (_size-hint59505_ _seed59506_) - (make-eqv-table__% _size-hint59505_ _seed59506_)) - _g60030_)) + (lambda _g60292_ + (let ((_g60291_ (##length _g60292_))) + (cond ((##fx= _g60291_ 0) + (apply (lambda () (make-eqv-table__0)) _g60292_)) + ((##fx= _g60291_ 1) + (apply (lambda (_size-hint59763_) + (make-eqv-table__1 _size-hint59763_)) + _g60292_)) + ((##fx= _g60291_ 2) + (apply (lambda (_size-hint59767_ _seed59768_) + (make-eqv-table__% _size-hint59767_ _seed59768_)) + _g60292_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g60030_)))))) + _g60292_)))))) (define eqv-table-ref - (lambda (_tab59446_ _key59447_ _default59448_) - (let ((_table59450_ (&raw-table-table _tab59446_)) - (_seed59451_ (&raw-table-seed _tab59446_))) - (let* ((_h59453_ (fxxor (eqv-hash _key59447_) _seed59451_)) - (_size59456_ (vector-length _table59450_)) - (_entries59459_ (fxquotient _size59456_ '2)) - (_start59462_ + (lambda (_tab59708_ _key59709_ _default59710_) + (let ((_table59712_ (&raw-table-table _tab59708_)) + (_seed59713_ (&raw-table-seed _tab59708_))) + (let* ((_h59715_ (fxxor (eqv-hash _key59709_) _seed59713_)) + (_size59718_ (vector-length _table59712_)) + (_entries59721_ (fxquotient _size59718_ '2)) + (_start59724_ (fxarithmetic-shift-left - (fxmodulo _h59453_ _entries59459_) + (fxmodulo _h59715_ _entries59721_) '1))) - (let _loop59466_ ((_probe59469_ _start59462_) - (_i59471_ '1) - (_deleted59473_ '#f)) - (let ((_k59476_ (vector-ref _table59450_ _probe59469_))) - (if (eq? _k59476_ (macro-unused-obj)) - _default59448_ - (if (eq? _k59476_ (macro-deleted-obj)) - (_loop59466_ - (let ((_next-probe59479_ - (fx+ _start59462_ - _i59471_ - (fx* _i59471_ _i59471_)))) - (fxmodulo _next-probe59479_ _size59456_)) - (fx+ _i59471_ '1) - (let ((_$e59482_ _deleted59473_)) - (if _$e59482_ _$e59482_ _probe59469_))) - (if (eqv? _key59447_ _k59476_) - (vector-ref _table59450_ (fx+ _probe59469_ '1)) - (_loop59466_ - (let ((_next-probe59485_ - (fx+ _start59462_ - _i59471_ - (fx* _i59471_ _i59471_)))) - (fxmodulo _next-probe59485_ _size59456_)) - (fx+ _i59471_ '1) - _deleted59473_)))))))))) + (let _loop59728_ ((_probe59731_ _start59724_) + (_i59733_ '1) + (_deleted59735_ '#f)) + (let ((_k59738_ (vector-ref _table59712_ _probe59731_))) + (if (eq? _k59738_ (macro-unused-obj)) + _default59710_ + (if (eq? _k59738_ (macro-deleted-obj)) + (_loop59728_ + (let ((_next-probe59741_ + (fx+ _start59724_ + _i59733_ + (fx* _i59733_ _i59733_)))) + (fxmodulo _next-probe59741_ _size59718_)) + (fx+ _i59733_ '1) + (let ((_$e59744_ _deleted59735_)) + (if _$e59744_ _$e59744_ _probe59731_))) + (if (eqv? _key59709_ _k59738_) + (vector-ref _table59712_ (fx+ _probe59731_ '1)) + (_loop59728_ + (let ((_next-probe59747_ + (fx+ _start59724_ + _i59733_ + (fx* _i59733_ _i59733_)))) + (fxmodulo _next-probe59747_ _size59718_)) + (fx+ _i59733_ '1) + _deleted59735_)))))))))) (define eqv-table-set! - (lambda (_tab59442_ _key59443_ _value59444_) - (if (fx< (&raw-table-free _tab59442_) - (fxquotient (vector-length (&raw-table-table _tab59442_)) '4)) - (__raw-table-rehash! _tab59442_) + (lambda (_tab59704_ _key59705_ _value59706_) + (if (fx< (&raw-table-free _tab59704_) + (fxquotient (vector-length (&raw-table-table _tab59704_)) '4)) + (__raw-table-rehash! _tab59704_) '#!void) - (__eqv-table-set! _tab59442_ _key59443_ _value59444_))) + (__eqv-table-set! _tab59704_ _key59705_ _value59706_))) (define __eqv-table-set! - (lambda (_tab59397_ _key59398_ _value59399_) - (let ((_table59402_ (&raw-table-table _tab59397_)) - (_seed59403_ (&raw-table-seed _tab59397_))) - (let* ((_h59405_ (fxxor (eqv-hash _key59398_) _seed59403_)) - (_size59408_ (vector-length _table59402_)) - (_entries59411_ (fxquotient _size59408_ '2)) - (_start59414_ + (lambda (_tab59659_ _key59660_ _value59661_) + (let ((_table59664_ (&raw-table-table _tab59659_)) + (_seed59665_ (&raw-table-seed _tab59659_))) + (let* ((_h59667_ (fxxor (eqv-hash _key59660_) _seed59665_)) + (_size59670_ (vector-length _table59664_)) + (_entries59673_ (fxquotient _size59670_ '2)) + (_start59676_ (fxarithmetic-shift-left - (fxmodulo _h59405_ _entries59411_) + (fxmodulo _h59667_ _entries59673_) '1))) - (let _loop59418_ ((_probe59421_ _start59414_) - (_i59423_ '1) - (_deleted59425_ '#f)) - (let ((_k59428_ (vector-ref _table59402_ _probe59421_))) - (if (eq? _k59428_ (macro-unused-obj)) - (if _deleted59425_ + (let _loop59680_ ((_probe59683_ _start59676_) + (_i59685_ '1) + (_deleted59687_ '#f)) + (let ((_k59690_ (vector-ref _table59664_ _probe59683_))) + (if (eq? _k59690_ (macro-unused-obj)) + (if _deleted59687_ (begin - (vector-set! _table59402_ _deleted59425_ _key59398_) + (vector-set! _table59664_ _deleted59687_ _key59660_) (vector-set! - _table59402_ - (fx+ _deleted59425_ '1) - _value59399_) + _table59664_ + (fx+ _deleted59687_ '1) + _value59661_) ((lambda () (&raw-table-count-set! - _tab59397_ - (fx+ (&raw-table-count _tab59397_) '1))))) + _tab59659_ + (fx+ (&raw-table-count _tab59659_) '1))))) (begin - (vector-set! _table59402_ _probe59421_ _key59398_) + (vector-set! _table59664_ _probe59683_ _key59660_) (vector-set! - _table59402_ - (fx+ _probe59421_ '1) - _value59399_) + _table59664_ + (fx+ _probe59683_ '1) + _value59661_) ((lambda () (&raw-table-free-set! - _tab59397_ - (fx- (&raw-table-free _tab59397_) '1)) + _tab59659_ + (fx- (&raw-table-free _tab59659_) '1)) (&raw-table-count-set! - _tab59397_ - (fx+ (&raw-table-count _tab59397_) '1)))))) - (if (eq? _k59428_ (macro-deleted-obj)) - (_loop59418_ - (let ((_next-probe59433_ - (fx+ _start59414_ - _i59423_ - (fx* _i59423_ _i59423_)))) - (fxmodulo _next-probe59433_ _size59408_)) - (fx+ _i59423_ '1) - (let ((_$e59436_ _deleted59425_)) - (if _$e59436_ _$e59436_ _probe59421_))) - (if (eqv? _key59398_ _k59428_) + _tab59659_ + (fx+ (&raw-table-count _tab59659_) '1)))))) + (if (eq? _k59690_ (macro-deleted-obj)) + (_loop59680_ + (let ((_next-probe59695_ + (fx+ _start59676_ + _i59685_ + (fx* _i59685_ _i59685_)))) + (fxmodulo _next-probe59695_ _size59670_)) + (fx+ _i59685_ '1) + (let ((_$e59698_ _deleted59687_)) + (if _$e59698_ _$e59698_ _probe59683_))) + (if (eqv? _key59660_ _k59690_) (begin (vector-set! - _table59402_ - _probe59421_ - _key59398_) + _table59664_ + _probe59683_ + _key59660_) (vector-set! - _table59402_ - (fx+ _probe59421_ '1) - _value59399_)) - (_loop59418_ - (let ((_next-probe59439_ - (fx+ _start59414_ - _i59423_ - (fx* _i59423_ _i59423_)))) - (fxmodulo _next-probe59439_ _size59408_)) - (fx+ _i59423_ '1) - _deleted59425_)))))))))) + _table59664_ + (fx+ _probe59683_ '1) + _value59661_)) + (_loop59680_ + (let ((_next-probe59701_ + (fx+ _start59676_ + _i59685_ + (fx* _i59685_ _i59685_)))) + (fxmodulo _next-probe59701_ _size59670_)) + (fx+ _i59685_ '1) + _deleted59687_)))))))))) (define eqv-table-update! - (lambda (_tab59392_ _key59393_ _eqv-table-update!59394_ _default59395_) - (if (fx< (&raw-table-free _tab59392_) - (fxquotient (vector-length (&raw-table-table _tab59392_)) '4)) - (__raw-table-rehash! _tab59392_) + (lambda (_tab59654_ _key59655_ _eqv-table-update!59656_ _default59657_) + (if (fx< (&raw-table-free _tab59654_) + (fxquotient (vector-length (&raw-table-table _tab59654_)) '4)) + (__raw-table-rehash! _tab59654_) '#!void) (__eqv-table-update! - _tab59392_ - _key59393_ - _eqv-table-update!59394_ - _default59395_))) + _tab59654_ + _key59655_ + _eqv-table-update!59656_ + _default59657_))) (define __eqv-table-update! - (lambda (_tab59346_ _key59347_ _eqv-table-update!59348_ _default59349_) - (let ((_table59352_ (&raw-table-table _tab59346_)) - (_seed59353_ (&raw-table-seed _tab59346_))) - (let* ((_h59355_ (fxxor (eqv-hash _key59347_) _seed59353_)) - (_size59358_ (vector-length _table59352_)) - (_entries59361_ (fxquotient _size59358_ '2)) - (_start59364_ + (lambda (_tab59608_ _key59609_ _eqv-table-update!59610_ _default59611_) + (let ((_table59614_ (&raw-table-table _tab59608_)) + (_seed59615_ (&raw-table-seed _tab59608_))) + (let* ((_h59617_ (fxxor (eqv-hash _key59609_) _seed59615_)) + (_size59620_ (vector-length _table59614_)) + (_entries59623_ (fxquotient _size59620_ '2)) + (_start59626_ (fxarithmetic-shift-left - (fxmodulo _h59355_ _entries59361_) + (fxmodulo _h59617_ _entries59623_) '1))) - (let _loop59368_ ((_probe59371_ _start59364_) - (_i59373_ '1) - (_deleted59375_ '#f)) - (let ((_k59378_ (vector-ref _table59352_ _probe59371_))) - (if (eq? _k59378_ (macro-unused-obj)) - (if _deleted59375_ + (let _loop59630_ ((_probe59633_ _start59626_) + (_i59635_ '1) + (_deleted59637_ '#f)) + (let ((_k59640_ (vector-ref _table59614_ _probe59633_))) + (if (eq? _k59640_ (macro-unused-obj)) + (if _deleted59637_ (begin - (vector-set! _table59352_ _deleted59375_ _key59347_) + (vector-set! _table59614_ _deleted59637_ _key59609_) (vector-set! - _table59352_ - (fx+ _deleted59375_ '1) - (_eqv-table-update!59348_ _default59349_)) + _table59614_ + (fx+ _deleted59637_ '1) + (_eqv-table-update!59610_ _default59611_)) ((lambda () (&raw-table-count-set! - _tab59346_ - (fx+ (&raw-table-count _tab59346_) '1))))) + _tab59608_ + (fx+ (&raw-table-count _tab59608_) '1))))) (begin - (vector-set! _table59352_ _probe59371_ _key59347_) + (vector-set! _table59614_ _probe59633_ _key59609_) (vector-set! - _table59352_ - (fx+ _probe59371_ '1) - (_eqv-table-update!59348_ _default59349_)) + _table59614_ + (fx+ _probe59633_ '1) + (_eqv-table-update!59610_ _default59611_)) ((lambda () (&raw-table-free-set! - _tab59346_ - (fx- (&raw-table-free _tab59346_) '1)) + _tab59608_ + (fx- (&raw-table-free _tab59608_) '1)) (&raw-table-count-set! - _tab59346_ - (fx+ (&raw-table-count _tab59346_) '1)))))) - (if (eq? _k59378_ (macro-deleted-obj)) - (_loop59368_ - (let ((_next-probe59383_ - (fx+ _start59364_ - _i59373_ - (fx* _i59373_ _i59373_)))) - (fxmodulo _next-probe59383_ _size59358_)) - (fx+ _i59373_ '1) - (let ((_$e59386_ _deleted59375_)) - (if _$e59386_ _$e59386_ _probe59371_))) - (if (eqv? _key59347_ _k59378_) + _tab59608_ + (fx+ (&raw-table-count _tab59608_) '1)))))) + (if (eq? _k59640_ (macro-deleted-obj)) + (_loop59630_ + (let ((_next-probe59645_ + (fx+ _start59626_ + _i59635_ + (fx* _i59635_ _i59635_)))) + (fxmodulo _next-probe59645_ _size59620_)) + (fx+ _i59635_ '1) + (let ((_$e59648_ _deleted59637_)) + (if _$e59648_ _$e59648_ _probe59633_))) + (if (eqv? _key59609_ _k59640_) (begin (vector-set! - _table59352_ - _probe59371_ - _key59347_) + _table59614_ + _probe59633_ + _key59609_) (vector-set! - _table59352_ - (fx+ _probe59371_ '1) - (_eqv-table-update!59348_ + _table59614_ + (fx+ _probe59633_ '1) + (_eqv-table-update!59610_ (vector-ref - _table59352_ - (fx+ _probe59371_ '1))))) - (_loop59368_ - (let ((_next-probe59389_ - (fx+ _start59364_ - _i59373_ - (fx* _i59373_ _i59373_)))) - (fxmodulo _next-probe59389_ _size59358_)) - (fx+ _i59373_ '1) - _deleted59375_)))))))))) + _table59614_ + (fx+ _probe59633_ '1))))) + (_loop59630_ + (let ((_next-probe59651_ + (fx+ _start59626_ + _i59635_ + (fx* _i59635_ _i59635_)))) + (fxmodulo _next-probe59651_ _size59620_)) + (fx+ _i59635_ '1) + _deleted59637_)))))))))) (define eqv-table-delete! - (lambda (_tab59305_ _key59307_) - (let ((_table59310_ (&raw-table-table _tab59305_)) - (_seed59312_ (&raw-table-seed _tab59305_))) - (let* ((_h59315_ (fxxor (eqv-hash _key59307_) _seed59312_)) - (_size59318_ (vector-length _table59310_)) - (_entries59321_ (fxquotient _size59318_ '2)) - (_start59324_ + (lambda (_tab59567_ _key59569_) + (let ((_table59572_ (&raw-table-table _tab59567_)) + (_seed59574_ (&raw-table-seed _tab59567_))) + (let* ((_h59577_ (fxxor (eqv-hash _key59569_) _seed59574_)) + (_size59580_ (vector-length _table59572_)) + (_entries59583_ (fxquotient _size59580_ '2)) + (_start59586_ (fxarithmetic-shift-left - (fxmodulo _h59315_ _entries59321_) + (fxmodulo _h59577_ _entries59583_) '1))) - (let _loop59328_ ((_probe59331_ _start59324_) (_i59333_ '1)) - (let ((_k59336_ (vector-ref _table59310_ _probe59331_))) - (if (eq? _k59336_ (macro-unused-obj)) + (let _loop59590_ ((_probe59593_ _start59586_) (_i59595_ '1)) + (let ((_k59598_ (vector-ref _table59572_ _probe59593_))) + (if (eq? _k59598_ (macro-unused-obj)) '#!void - (if (eq? _k59336_ (macro-deleted-obj)) - (_loop59328_ - (let ((_next-probe59339_ - (fx+ _start59324_ - _i59333_ - (fx* _i59333_ _i59333_)))) - (fxmodulo _next-probe59339_ _size59318_)) - (fx+ _i59333_ '1)) - (if (eqv? _key59307_ _k59336_) + (if (eq? _k59598_ (macro-deleted-obj)) + (_loop59590_ + (let ((_next-probe59601_ + (fx+ _start59586_ + _i59595_ + (fx* _i59595_ _i59595_)))) + (fxmodulo _next-probe59601_ _size59580_)) + (fx+ _i59595_ '1)) + (if (eqv? _key59569_ _k59598_) (begin (vector-set! - _table59310_ - _probe59331_ + _table59572_ + _probe59593_ (macro-deleted-obj)) (vector-set! - _table59310_ - (fx+ _probe59331_ '1) + _table59572_ + (fx+ _probe59593_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab59305_ - (fx- (&raw-table-count _tab59305_) '1))))) - (_loop59328_ - (let ((_next-probe59343_ - (fx+ _start59324_ - _i59333_ - (fx* _i59333_ _i59333_)))) - (fxmodulo _next-probe59343_ _size59318_)) - (fx+ _i59333_ '1))))))))))) + _tab59567_ + (fx- (&raw-table-count _tab59567_) '1))))) + (_loop59590_ + (let ((_next-probe59605_ + (fx+ _start59586_ + _i59595_ + (fx* _i59595_ _i59595_)))) + (fxmodulo _next-probe59605_ _size59580_)) + (fx+ _i59595_ '1))))))))))) (define make-symbolic-table__% - (lambda (_size-hint59286_ _seed59288_) - (make-raw-table__% _size-hint59286_ symbolic-hash eq? _seed59288_))) + (lambda (_size-hint59548_ _seed59550_) + (make-raw-table__% _size-hint59548_ symbolic-hash eq? _seed59550_))) (define make-symbolic-table__0 (lambda () - (let* ((_size-hint59294_ '#f) (_seed59296_ '0)) - (make-symbolic-table__% _size-hint59294_ _seed59296_)))) + (let* ((_size-hint59556_ '#f) (_seed59558_ '0)) + (make-symbolic-table__% _size-hint59556_ _seed59558_)))) (define make-symbolic-table__1 - (lambda (_size-hint59298_) - (let ((_seed59300_ '0)) - (make-symbolic-table__% _size-hint59298_ _seed59300_)))) + (lambda (_size-hint59560_) + (let ((_seed59562_ '0)) + (make-symbolic-table__% _size-hint59560_ _seed59562_)))) (define make-symbolic-table - (lambda _g60032_ - (let ((_g60031_ (##length _g60032_))) - (cond ((##fx= _g60031_ 0) - (apply (lambda () (make-symbolic-table__0)) _g60032_)) - ((##fx= _g60031_ 1) - (apply (lambda (_size-hint59298_) - (make-symbolic-table__1 _size-hint59298_)) - _g60032_)) - ((##fx= _g60031_ 2) - (apply (lambda (_size-hint59302_ _seed59303_) + (lambda _g60294_ + (let ((_g60293_ (##length _g60294_))) + (cond ((##fx= _g60293_ 0) + (apply (lambda () (make-symbolic-table__0)) _g60294_)) + ((##fx= _g60293_ 1) + (apply (lambda (_size-hint59560_) + (make-symbolic-table__1 _size-hint59560_)) + _g60294_)) + ((##fx= _g60293_ 2) + (apply (lambda (_size-hint59564_ _seed59565_) (make-symbolic-table__% - _size-hint59302_ - _seed59303_)) - _g60032_)) + _size-hint59564_ + _seed59565_)) + _g60294_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g60032_)))))) + _g60294_)))))) (define symbolic-table-ref - (lambda (_tab59243_ _key59244_ _default59245_) - (let ((_table59247_ (&raw-table-table _tab59243_)) - (_seed59248_ (&raw-table-seed _tab59243_))) - (let* ((_h59250_ (fxxor (symbolic-hash _key59244_) _seed59248_)) - (_size59253_ (vector-length _table59247_)) - (_entries59256_ (fxquotient _size59253_ '2)) - (_start59259_ + (lambda (_tab59505_ _key59506_ _default59507_) + (let ((_table59509_ (&raw-table-table _tab59505_)) + (_seed59510_ (&raw-table-seed _tab59505_))) + (let* ((_h59512_ (fxxor (symbolic-hash _key59506_) _seed59510_)) + (_size59515_ (vector-length _table59509_)) + (_entries59518_ (fxquotient _size59515_ '2)) + (_start59521_ (fxarithmetic-shift-left - (fxmodulo _h59250_ _entries59256_) + (fxmodulo _h59512_ _entries59518_) '1))) - (let _loop59263_ ((_probe59266_ _start59259_) - (_i59268_ '1) - (_deleted59270_ '#f)) - (let ((_k59273_ (vector-ref _table59247_ _probe59266_))) - (if (eq? _k59273_ (macro-unused-obj)) - _default59245_ - (if (eq? _k59273_ (macro-deleted-obj)) - (_loop59263_ - (let ((_next-probe59276_ - (fx+ _start59259_ - _i59268_ - (fx* _i59268_ _i59268_)))) - (fxmodulo _next-probe59276_ _size59253_)) - (fx+ _i59268_ '1) - (let ((_$e59279_ _deleted59270_)) - (if _$e59279_ _$e59279_ _probe59266_))) - (if (eq? _key59244_ _k59273_) - (vector-ref _table59247_ (fx+ _probe59266_ '1)) - (_loop59263_ - (let ((_next-probe59282_ - (fx+ _start59259_ - _i59268_ - (fx* _i59268_ _i59268_)))) - (fxmodulo _next-probe59282_ _size59253_)) - (fx+ _i59268_ '1) - _deleted59270_)))))))))) + (let _loop59525_ ((_probe59528_ _start59521_) + (_i59530_ '1) + (_deleted59532_ '#f)) + (let ((_k59535_ (vector-ref _table59509_ _probe59528_))) + (if (eq? _k59535_ (macro-unused-obj)) + _default59507_ + (if (eq? _k59535_ (macro-deleted-obj)) + (_loop59525_ + (let ((_next-probe59538_ + (fx+ _start59521_ + _i59530_ + (fx* _i59530_ _i59530_)))) + (fxmodulo _next-probe59538_ _size59515_)) + (fx+ _i59530_ '1) + (let ((_$e59541_ _deleted59532_)) + (if _$e59541_ _$e59541_ _probe59528_))) + (if (eq? _key59506_ _k59535_) + (vector-ref _table59509_ (fx+ _probe59528_ '1)) + (_loop59525_ + (let ((_next-probe59544_ + (fx+ _start59521_ + _i59530_ + (fx* _i59530_ _i59530_)))) + (fxmodulo _next-probe59544_ _size59515_)) + (fx+ _i59530_ '1) + _deleted59532_)))))))))) (define symbolic-table-set! - (lambda (_tab59239_ _key59240_ _value59241_) - (if (fx< (&raw-table-free _tab59239_) - (fxquotient (vector-length (&raw-table-table _tab59239_)) '4)) - (__raw-table-rehash! _tab59239_) + (lambda (_tab59501_ _key59502_ _value59503_) + (if (fx< (&raw-table-free _tab59501_) + (fxquotient (vector-length (&raw-table-table _tab59501_)) '4)) + (__raw-table-rehash! _tab59501_) '#!void) - (__symbolic-table-set! _tab59239_ _key59240_ _value59241_))) + (__symbolic-table-set! _tab59501_ _key59502_ _value59503_))) (define __symbolic-table-set! - (lambda (_tab59194_ _key59195_ _value59196_) - (let ((_table59199_ (&raw-table-table _tab59194_)) - (_seed59200_ (&raw-table-seed _tab59194_))) - (let* ((_h59202_ (fxxor (symbolic-hash _key59195_) _seed59200_)) - (_size59205_ (vector-length _table59199_)) - (_entries59208_ (fxquotient _size59205_ '2)) - (_start59211_ + (lambda (_tab59456_ _key59457_ _value59458_) + (let ((_table59461_ (&raw-table-table _tab59456_)) + (_seed59462_ (&raw-table-seed _tab59456_))) + (let* ((_h59464_ (fxxor (symbolic-hash _key59457_) _seed59462_)) + (_size59467_ (vector-length _table59461_)) + (_entries59470_ (fxquotient _size59467_ '2)) + (_start59473_ (fxarithmetic-shift-left - (fxmodulo _h59202_ _entries59208_) + (fxmodulo _h59464_ _entries59470_) '1))) - (let _loop59215_ ((_probe59218_ _start59211_) - (_i59220_ '1) - (_deleted59222_ '#f)) - (let ((_k59225_ (vector-ref _table59199_ _probe59218_))) - (if (eq? _k59225_ (macro-unused-obj)) - (if _deleted59222_ + (let _loop59477_ ((_probe59480_ _start59473_) + (_i59482_ '1) + (_deleted59484_ '#f)) + (let ((_k59487_ (vector-ref _table59461_ _probe59480_))) + (if (eq? _k59487_ (macro-unused-obj)) + (if _deleted59484_ (begin - (vector-set! _table59199_ _deleted59222_ _key59195_) + (vector-set! _table59461_ _deleted59484_ _key59457_) (vector-set! - _table59199_ - (fx+ _deleted59222_ '1) - _value59196_) + _table59461_ + (fx+ _deleted59484_ '1) + _value59458_) ((lambda () (&raw-table-count-set! - _tab59194_ - (fx+ (&raw-table-count _tab59194_) '1))))) + _tab59456_ + (fx+ (&raw-table-count _tab59456_) '1))))) (begin - (vector-set! _table59199_ _probe59218_ _key59195_) + (vector-set! _table59461_ _probe59480_ _key59457_) (vector-set! - _table59199_ - (fx+ _probe59218_ '1) - _value59196_) + _table59461_ + (fx+ _probe59480_ '1) + _value59458_) ((lambda () (&raw-table-free-set! - _tab59194_ - (fx- (&raw-table-free _tab59194_) '1)) + _tab59456_ + (fx- (&raw-table-free _tab59456_) '1)) (&raw-table-count-set! - _tab59194_ - (fx+ (&raw-table-count _tab59194_) '1)))))) - (if (eq? _k59225_ (macro-deleted-obj)) - (_loop59215_ - (let ((_next-probe59230_ - (fx+ _start59211_ - _i59220_ - (fx* _i59220_ _i59220_)))) - (fxmodulo _next-probe59230_ _size59205_)) - (fx+ _i59220_ '1) - (let ((_$e59233_ _deleted59222_)) - (if _$e59233_ _$e59233_ _probe59218_))) - (if (eq? _key59195_ _k59225_) + _tab59456_ + (fx+ (&raw-table-count _tab59456_) '1)))))) + (if (eq? _k59487_ (macro-deleted-obj)) + (_loop59477_ + (let ((_next-probe59492_ + (fx+ _start59473_ + _i59482_ + (fx* _i59482_ _i59482_)))) + (fxmodulo _next-probe59492_ _size59467_)) + (fx+ _i59482_ '1) + (let ((_$e59495_ _deleted59484_)) + (if _$e59495_ _$e59495_ _probe59480_))) + (if (eq? _key59457_ _k59487_) (begin (vector-set! - _table59199_ - _probe59218_ - _key59195_) + _table59461_ + _probe59480_ + _key59457_) (vector-set! - _table59199_ - (fx+ _probe59218_ '1) - _value59196_)) - (_loop59215_ - (let ((_next-probe59236_ - (fx+ _start59211_ - _i59220_ - (fx* _i59220_ _i59220_)))) - (fxmodulo _next-probe59236_ _size59205_)) - (fx+ _i59220_ '1) - _deleted59222_)))))))))) + _table59461_ + (fx+ _probe59480_ '1) + _value59458_)) + (_loop59477_ + (let ((_next-probe59498_ + (fx+ _start59473_ + _i59482_ + (fx* _i59482_ _i59482_)))) + (fxmodulo _next-probe59498_ _size59467_)) + (fx+ _i59482_ '1) + _deleted59484_)))))))))) (define symbolic-table-update! - (lambda (_tab59189_ - _key59190_ - _symbolic-table-update!59191_ - _default59192_) - (if (fx< (&raw-table-free _tab59189_) - (fxquotient (vector-length (&raw-table-table _tab59189_)) '4)) - (__raw-table-rehash! _tab59189_) + (lambda (_tab59451_ + _key59452_ + _symbolic-table-update!59453_ + _default59454_) + (if (fx< (&raw-table-free _tab59451_) + (fxquotient (vector-length (&raw-table-table _tab59451_)) '4)) + (__raw-table-rehash! _tab59451_) '#!void) (__symbolic-table-update! - _tab59189_ - _key59190_ - _symbolic-table-update!59191_ - _default59192_))) + _tab59451_ + _key59452_ + _symbolic-table-update!59453_ + _default59454_))) (define __symbolic-table-update! - (lambda (_tab59143_ - _key59144_ - _symbolic-table-update!59145_ - _default59146_) - (let ((_table59149_ (&raw-table-table _tab59143_)) - (_seed59150_ (&raw-table-seed _tab59143_))) - (let* ((_h59152_ (fxxor (symbolic-hash _key59144_) _seed59150_)) - (_size59155_ (vector-length _table59149_)) - (_entries59158_ (fxquotient _size59155_ '2)) - (_start59161_ + (lambda (_tab59405_ + _key59406_ + _symbolic-table-update!59407_ + _default59408_) + (let ((_table59411_ (&raw-table-table _tab59405_)) + (_seed59412_ (&raw-table-seed _tab59405_))) + (let* ((_h59414_ (fxxor (symbolic-hash _key59406_) _seed59412_)) + (_size59417_ (vector-length _table59411_)) + (_entries59420_ (fxquotient _size59417_ '2)) + (_start59423_ (fxarithmetic-shift-left - (fxmodulo _h59152_ _entries59158_) + (fxmodulo _h59414_ _entries59420_) '1))) - (let _loop59165_ ((_probe59168_ _start59161_) - (_i59170_ '1) - (_deleted59172_ '#f)) - (let ((_k59175_ (vector-ref _table59149_ _probe59168_))) - (if (eq? _k59175_ (macro-unused-obj)) - (if _deleted59172_ + (let _loop59427_ ((_probe59430_ _start59423_) + (_i59432_ '1) + (_deleted59434_ '#f)) + (let ((_k59437_ (vector-ref _table59411_ _probe59430_))) + (if (eq? _k59437_ (macro-unused-obj)) + (if _deleted59434_ (begin - (vector-set! _table59149_ _deleted59172_ _key59144_) + (vector-set! _table59411_ _deleted59434_ _key59406_) (vector-set! - _table59149_ - (fx+ _deleted59172_ '1) - (_symbolic-table-update!59145_ _default59146_)) + _table59411_ + (fx+ _deleted59434_ '1) + (_symbolic-table-update!59407_ _default59408_)) ((lambda () (&raw-table-count-set! - _tab59143_ - (fx+ (&raw-table-count _tab59143_) '1))))) + _tab59405_ + (fx+ (&raw-table-count _tab59405_) '1))))) (begin - (vector-set! _table59149_ _probe59168_ _key59144_) + (vector-set! _table59411_ _probe59430_ _key59406_) (vector-set! - _table59149_ - (fx+ _probe59168_ '1) - (_symbolic-table-update!59145_ _default59146_)) + _table59411_ + (fx+ _probe59430_ '1) + (_symbolic-table-update!59407_ _default59408_)) ((lambda () (&raw-table-free-set! - _tab59143_ - (fx- (&raw-table-free _tab59143_) '1)) + _tab59405_ + (fx- (&raw-table-free _tab59405_) '1)) (&raw-table-count-set! - _tab59143_ - (fx+ (&raw-table-count _tab59143_) '1)))))) - (if (eq? _k59175_ (macro-deleted-obj)) - (_loop59165_ - (let ((_next-probe59180_ - (fx+ _start59161_ - _i59170_ - (fx* _i59170_ _i59170_)))) - (fxmodulo _next-probe59180_ _size59155_)) - (fx+ _i59170_ '1) - (let ((_$e59183_ _deleted59172_)) - (if _$e59183_ _$e59183_ _probe59168_))) - (if (eq? _key59144_ _k59175_) + _tab59405_ + (fx+ (&raw-table-count _tab59405_) '1)))))) + (if (eq? _k59437_ (macro-deleted-obj)) + (_loop59427_ + (let ((_next-probe59442_ + (fx+ _start59423_ + _i59432_ + (fx* _i59432_ _i59432_)))) + (fxmodulo _next-probe59442_ _size59417_)) + (fx+ _i59432_ '1) + (let ((_$e59445_ _deleted59434_)) + (if _$e59445_ _$e59445_ _probe59430_))) + (if (eq? _key59406_ _k59437_) (begin (vector-set! - _table59149_ - _probe59168_ - _key59144_) + _table59411_ + _probe59430_ + _key59406_) (vector-set! - _table59149_ - (fx+ _probe59168_ '1) - (_symbolic-table-update!59145_ + _table59411_ + (fx+ _probe59430_ '1) + (_symbolic-table-update!59407_ (vector-ref - _table59149_ - (fx+ _probe59168_ '1))))) - (_loop59165_ - (let ((_next-probe59186_ - (fx+ _start59161_ - _i59170_ - (fx* _i59170_ _i59170_)))) - (fxmodulo _next-probe59186_ _size59155_)) - (fx+ _i59170_ '1) - _deleted59172_)))))))))) + _table59411_ + (fx+ _probe59430_ '1))))) + (_loop59427_ + (let ((_next-probe59448_ + (fx+ _start59423_ + _i59432_ + (fx* _i59432_ _i59432_)))) + (fxmodulo _next-probe59448_ _size59417_)) + (fx+ _i59432_ '1) + _deleted59434_)))))))))) (define symbolic-table-delete! - (lambda (_tab59102_ _key59104_) - (let ((_table59107_ (&raw-table-table _tab59102_)) - (_seed59109_ (&raw-table-seed _tab59102_))) - (let* ((_h59112_ (fxxor (symbolic-hash _key59104_) _seed59109_)) - (_size59115_ (vector-length _table59107_)) - (_entries59118_ (fxquotient _size59115_ '2)) - (_start59121_ + (lambda (_tab59364_ _key59366_) + (let ((_table59369_ (&raw-table-table _tab59364_)) + (_seed59371_ (&raw-table-seed _tab59364_))) + (let* ((_h59374_ (fxxor (symbolic-hash _key59366_) _seed59371_)) + (_size59377_ (vector-length _table59369_)) + (_entries59380_ (fxquotient _size59377_ '2)) + (_start59383_ (fxarithmetic-shift-left - (fxmodulo _h59112_ _entries59118_) + (fxmodulo _h59374_ _entries59380_) '1))) - (let _loop59125_ ((_probe59128_ _start59121_) (_i59130_ '1)) - (let ((_k59133_ (vector-ref _table59107_ _probe59128_))) - (if (eq? _k59133_ (macro-unused-obj)) + (let _loop59387_ ((_probe59390_ _start59383_) (_i59392_ '1)) + (let ((_k59395_ (vector-ref _table59369_ _probe59390_))) + (if (eq? _k59395_ (macro-unused-obj)) '#!void - (if (eq? _k59133_ (macro-deleted-obj)) - (_loop59125_ - (let ((_next-probe59136_ - (fx+ _start59121_ - _i59130_ - (fx* _i59130_ _i59130_)))) - (fxmodulo _next-probe59136_ _size59115_)) - (fx+ _i59130_ '1)) - (if (eq? _key59104_ _k59133_) + (if (eq? _k59395_ (macro-deleted-obj)) + (_loop59387_ + (let ((_next-probe59398_ + (fx+ _start59383_ + _i59392_ + (fx* _i59392_ _i59392_)))) + (fxmodulo _next-probe59398_ _size59377_)) + (fx+ _i59392_ '1)) + (if (eq? _key59366_ _k59395_) (begin (vector-set! - _table59107_ - _probe59128_ + _table59369_ + _probe59390_ (macro-deleted-obj)) (vector-set! - _table59107_ - (fx+ _probe59128_ '1) + _table59369_ + (fx+ _probe59390_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab59102_ - (fx- (&raw-table-count _tab59102_) '1))))) - (_loop59125_ - (let ((_next-probe59140_ - (fx+ _start59121_ - _i59130_ - (fx* _i59130_ _i59130_)))) - (fxmodulo _next-probe59140_ _size59115_)) - (fx+ _i59130_ '1))))))))))) + _tab59364_ + (fx- (&raw-table-count _tab59364_) '1))))) + (_loop59387_ + (let ((_next-probe59402_ + (fx+ _start59383_ + _i59392_ + (fx* _i59392_ _i59392_)))) + (fxmodulo _next-probe59402_ _size59377_)) + (fx+ _i59392_ '1))))))))))) (define make-string-table__% - (lambda (_size-hint59083_ _seed59085_) + (lambda (_size-hint59345_ _seed59347_) (make-raw-table__% - _size-hint59083_ + _size-hint59345_ string-hash ##string=? - _seed59085_))) + _seed59347_))) (define make-string-table__0 (lambda () - (let* ((_size-hint59091_ '#f) (_seed59093_ '0)) - (make-string-table__% _size-hint59091_ _seed59093_)))) + (let* ((_size-hint59353_ '#f) (_seed59355_ '0)) + (make-string-table__% _size-hint59353_ _seed59355_)))) (define make-string-table__1 - (lambda (_size-hint59095_) - (let ((_seed59097_ '0)) - (make-string-table__% _size-hint59095_ _seed59097_)))) + (lambda (_size-hint59357_) + (let ((_seed59359_ '0)) + (make-string-table__% _size-hint59357_ _seed59359_)))) (define make-string-table - (lambda _g60034_ - (let ((_g60033_ (##length _g60034_))) - (cond ((##fx= _g60033_ 0) - (apply (lambda () (make-string-table__0)) _g60034_)) - ((##fx= _g60033_ 1) - (apply (lambda (_size-hint59095_) - (make-string-table__1 _size-hint59095_)) - _g60034_)) - ((##fx= _g60033_ 2) - (apply (lambda (_size-hint59099_ _seed59100_) - (make-string-table__% _size-hint59099_ _seed59100_)) - _g60034_)) + (lambda _g60296_ + (let ((_g60295_ (##length _g60296_))) + (cond ((##fx= _g60295_ 0) + (apply (lambda () (make-string-table__0)) _g60296_)) + ((##fx= _g60295_ 1) + (apply (lambda (_size-hint59357_) + (make-string-table__1 _size-hint59357_)) + _g60296_)) + ((##fx= _g60295_ 2) + (apply (lambda (_size-hint59361_ _seed59362_) + (make-string-table__% _size-hint59361_ _seed59362_)) + _g60296_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g60034_)))))) + _g60296_)))))) (define string-table-ref - (lambda (_tab59040_ _key59041_ _default59042_) - (let ((_table59044_ (&raw-table-table _tab59040_)) - (_seed59045_ (&raw-table-seed _tab59040_))) - (let* ((_h59047_ (fxxor (##string=?-hash _key59041_) _seed59045_)) - (_size59050_ (vector-length _table59044_)) - (_entries59053_ (fxquotient _size59050_ '2)) - (_start59056_ + (lambda (_tab59302_ _key59303_ _default59304_) + (let ((_table59306_ (&raw-table-table _tab59302_)) + (_seed59307_ (&raw-table-seed _tab59302_))) + (let* ((_h59309_ (fxxor (##string=?-hash _key59303_) _seed59307_)) + (_size59312_ (vector-length _table59306_)) + (_entries59315_ (fxquotient _size59312_ '2)) + (_start59318_ (fxarithmetic-shift-left - (fxmodulo _h59047_ _entries59053_) + (fxmodulo _h59309_ _entries59315_) '1))) - (let _loop59060_ ((_probe59063_ _start59056_) - (_i59065_ '1) - (_deleted59067_ '#f)) - (let ((_k59070_ (vector-ref _table59044_ _probe59063_))) - (if (eq? _k59070_ (macro-unused-obj)) - _default59042_ - (if (eq? _k59070_ (macro-deleted-obj)) - (_loop59060_ - (let ((_next-probe59073_ - (fx+ _start59056_ - _i59065_ - (fx* _i59065_ _i59065_)))) - (fxmodulo _next-probe59073_ _size59050_)) - (fx+ _i59065_ '1) - (let ((_$e59076_ _deleted59067_)) - (if _$e59076_ _$e59076_ _probe59063_))) - (if (##string=? _key59041_ _k59070_) - (vector-ref _table59044_ (fx+ _probe59063_ '1)) - (_loop59060_ - (let ((_next-probe59079_ - (fx+ _start59056_ - _i59065_ - (fx* _i59065_ _i59065_)))) - (fxmodulo _next-probe59079_ _size59050_)) - (fx+ _i59065_ '1) - _deleted59067_)))))))))) + (let _loop59322_ ((_probe59325_ _start59318_) + (_i59327_ '1) + (_deleted59329_ '#f)) + (let ((_k59332_ (vector-ref _table59306_ _probe59325_))) + (if (eq? _k59332_ (macro-unused-obj)) + _default59304_ + (if (eq? _k59332_ (macro-deleted-obj)) + (_loop59322_ + (let ((_next-probe59335_ + (fx+ _start59318_ + _i59327_ + (fx* _i59327_ _i59327_)))) + (fxmodulo _next-probe59335_ _size59312_)) + (fx+ _i59327_ '1) + (let ((_$e59338_ _deleted59329_)) + (if _$e59338_ _$e59338_ _probe59325_))) + (if (##string=? _key59303_ _k59332_) + (vector-ref _table59306_ (fx+ _probe59325_ '1)) + (_loop59322_ + (let ((_next-probe59341_ + (fx+ _start59318_ + _i59327_ + (fx* _i59327_ _i59327_)))) + (fxmodulo _next-probe59341_ _size59312_)) + (fx+ _i59327_ '1) + _deleted59329_)))))))))) (define string-table-set! - (lambda (_tab59036_ _key59037_ _value59038_) - (if (fx< (&raw-table-free _tab59036_) - (fxquotient (vector-length (&raw-table-table _tab59036_)) '4)) - (__raw-table-rehash! _tab59036_) + (lambda (_tab59298_ _key59299_ _value59300_) + (if (fx< (&raw-table-free _tab59298_) + (fxquotient (vector-length (&raw-table-table _tab59298_)) '4)) + (__raw-table-rehash! _tab59298_) '#!void) - (__string-table-set! _tab59036_ _key59037_ _value59038_))) + (__string-table-set! _tab59298_ _key59299_ _value59300_))) (define __string-table-set! - (lambda (_tab58991_ _key58992_ _value58993_) - (let ((_table58996_ (&raw-table-table _tab58991_)) - (_seed58997_ (&raw-table-seed _tab58991_))) - (let* ((_h58999_ (fxxor (##string=?-hash _key58992_) _seed58997_)) - (_size59002_ (vector-length _table58996_)) - (_entries59005_ (fxquotient _size59002_ '2)) - (_start59008_ + (lambda (_tab59253_ _key59254_ _value59255_) + (let ((_table59258_ (&raw-table-table _tab59253_)) + (_seed59259_ (&raw-table-seed _tab59253_))) + (let* ((_h59261_ (fxxor (##string=?-hash _key59254_) _seed59259_)) + (_size59264_ (vector-length _table59258_)) + (_entries59267_ (fxquotient _size59264_ '2)) + (_start59270_ (fxarithmetic-shift-left - (fxmodulo _h58999_ _entries59005_) + (fxmodulo _h59261_ _entries59267_) '1))) - (let _loop59012_ ((_probe59015_ _start59008_) - (_i59017_ '1) - (_deleted59019_ '#f)) - (let ((_k59022_ (vector-ref _table58996_ _probe59015_))) - (if (eq? _k59022_ (macro-unused-obj)) - (if _deleted59019_ + (let _loop59274_ ((_probe59277_ _start59270_) + (_i59279_ '1) + (_deleted59281_ '#f)) + (let ((_k59284_ (vector-ref _table59258_ _probe59277_))) + (if (eq? _k59284_ (macro-unused-obj)) + (if _deleted59281_ (begin - (vector-set! _table58996_ _deleted59019_ _key58992_) + (vector-set! _table59258_ _deleted59281_ _key59254_) (vector-set! - _table58996_ - (fx+ _deleted59019_ '1) - _value58993_) + _table59258_ + (fx+ _deleted59281_ '1) + _value59255_) ((lambda () (&raw-table-count-set! - _tab58991_ - (fx+ (&raw-table-count _tab58991_) '1))))) + _tab59253_ + (fx+ (&raw-table-count _tab59253_) '1))))) (begin - (vector-set! _table58996_ _probe59015_ _key58992_) + (vector-set! _table59258_ _probe59277_ _key59254_) (vector-set! - _table58996_ - (fx+ _probe59015_ '1) - _value58993_) + _table59258_ + (fx+ _probe59277_ '1) + _value59255_) ((lambda () (&raw-table-free-set! - _tab58991_ - (fx- (&raw-table-free _tab58991_) '1)) + _tab59253_ + (fx- (&raw-table-free _tab59253_) '1)) (&raw-table-count-set! - _tab58991_ - (fx+ (&raw-table-count _tab58991_) '1)))))) - (if (eq? _k59022_ (macro-deleted-obj)) - (_loop59012_ - (let ((_next-probe59027_ - (fx+ _start59008_ - _i59017_ - (fx* _i59017_ _i59017_)))) - (fxmodulo _next-probe59027_ _size59002_)) - (fx+ _i59017_ '1) - (let ((_$e59030_ _deleted59019_)) - (if _$e59030_ _$e59030_ _probe59015_))) - (if (##string=? _key58992_ _k59022_) + _tab59253_ + (fx+ (&raw-table-count _tab59253_) '1)))))) + (if (eq? _k59284_ (macro-deleted-obj)) + (_loop59274_ + (let ((_next-probe59289_ + (fx+ _start59270_ + _i59279_ + (fx* _i59279_ _i59279_)))) + (fxmodulo _next-probe59289_ _size59264_)) + (fx+ _i59279_ '1) + (let ((_$e59292_ _deleted59281_)) + (if _$e59292_ _$e59292_ _probe59277_))) + (if (##string=? _key59254_ _k59284_) (begin (vector-set! - _table58996_ - _probe59015_ - _key58992_) + _table59258_ + _probe59277_ + _key59254_) (vector-set! - _table58996_ - (fx+ _probe59015_ '1) - _value58993_)) - (_loop59012_ - (let ((_next-probe59033_ - (fx+ _start59008_ - _i59017_ - (fx* _i59017_ _i59017_)))) - (fxmodulo _next-probe59033_ _size59002_)) - (fx+ _i59017_ '1) - _deleted59019_)))))))))) + _table59258_ + (fx+ _probe59277_ '1) + _value59255_)) + (_loop59274_ + (let ((_next-probe59295_ + (fx+ _start59270_ + _i59279_ + (fx* _i59279_ _i59279_)))) + (fxmodulo _next-probe59295_ _size59264_)) + (fx+ _i59279_ '1) + _deleted59281_)))))))))) (define string-table-update! - (lambda (_tab58986_ - _key58987_ - _string-table-update!58988_ - _default58989_) - (if (fx< (&raw-table-free _tab58986_) - (fxquotient (vector-length (&raw-table-table _tab58986_)) '4)) - (__raw-table-rehash! _tab58986_) + (lambda (_tab59248_ + _key59249_ + _string-table-update!59250_ + _default59251_) + (if (fx< (&raw-table-free _tab59248_) + (fxquotient (vector-length (&raw-table-table _tab59248_)) '4)) + (__raw-table-rehash! _tab59248_) '#!void) (__string-table-update! - _tab58986_ - _key58987_ - _string-table-update!58988_ - _default58989_))) + _tab59248_ + _key59249_ + _string-table-update!59250_ + _default59251_))) (define __string-table-update! - (lambda (_tab58940_ - _key58941_ - _string-table-update!58942_ - _default58943_) - (let ((_table58946_ (&raw-table-table _tab58940_)) - (_seed58947_ (&raw-table-seed _tab58940_))) - (let* ((_h58949_ (fxxor (##string=?-hash _key58941_) _seed58947_)) - (_size58952_ (vector-length _table58946_)) - (_entries58955_ (fxquotient _size58952_ '2)) - (_start58958_ + (lambda (_tab59202_ + _key59203_ + _string-table-update!59204_ + _default59205_) + (let ((_table59208_ (&raw-table-table _tab59202_)) + (_seed59209_ (&raw-table-seed _tab59202_))) + (let* ((_h59211_ (fxxor (##string=?-hash _key59203_) _seed59209_)) + (_size59214_ (vector-length _table59208_)) + (_entries59217_ (fxquotient _size59214_ '2)) + (_start59220_ (fxarithmetic-shift-left - (fxmodulo _h58949_ _entries58955_) + (fxmodulo _h59211_ _entries59217_) '1))) - (let _loop58962_ ((_probe58965_ _start58958_) - (_i58967_ '1) - (_deleted58969_ '#f)) - (let ((_k58972_ (vector-ref _table58946_ _probe58965_))) - (if (eq? _k58972_ (macro-unused-obj)) - (if _deleted58969_ + (let _loop59224_ ((_probe59227_ _start59220_) + (_i59229_ '1) + (_deleted59231_ '#f)) + (let ((_k59234_ (vector-ref _table59208_ _probe59227_))) + (if (eq? _k59234_ (macro-unused-obj)) + (if _deleted59231_ (begin - (vector-set! _table58946_ _deleted58969_ _key58941_) + (vector-set! _table59208_ _deleted59231_ _key59203_) (vector-set! - _table58946_ - (fx+ _deleted58969_ '1) - (_string-table-update!58942_ _default58943_)) + _table59208_ + (fx+ _deleted59231_ '1) + (_string-table-update!59204_ _default59205_)) ((lambda () (&raw-table-count-set! - _tab58940_ - (fx+ (&raw-table-count _tab58940_) '1))))) + _tab59202_ + (fx+ (&raw-table-count _tab59202_) '1))))) (begin - (vector-set! _table58946_ _probe58965_ _key58941_) + (vector-set! _table59208_ _probe59227_ _key59203_) (vector-set! - _table58946_ - (fx+ _probe58965_ '1) - (_string-table-update!58942_ _default58943_)) + _table59208_ + (fx+ _probe59227_ '1) + (_string-table-update!59204_ _default59205_)) ((lambda () (&raw-table-free-set! - _tab58940_ - (fx- (&raw-table-free _tab58940_) '1)) + _tab59202_ + (fx- (&raw-table-free _tab59202_) '1)) (&raw-table-count-set! - _tab58940_ - (fx+ (&raw-table-count _tab58940_) '1)))))) - (if (eq? _k58972_ (macro-deleted-obj)) - (_loop58962_ - (let ((_next-probe58977_ - (fx+ _start58958_ - _i58967_ - (fx* _i58967_ _i58967_)))) - (fxmodulo _next-probe58977_ _size58952_)) - (fx+ _i58967_ '1) - (let ((_$e58980_ _deleted58969_)) - (if _$e58980_ _$e58980_ _probe58965_))) - (if (##string=? _key58941_ _k58972_) + _tab59202_ + (fx+ (&raw-table-count _tab59202_) '1)))))) + (if (eq? _k59234_ (macro-deleted-obj)) + (_loop59224_ + (let ((_next-probe59239_ + (fx+ _start59220_ + _i59229_ + (fx* _i59229_ _i59229_)))) + (fxmodulo _next-probe59239_ _size59214_)) + (fx+ _i59229_ '1) + (let ((_$e59242_ _deleted59231_)) + (if _$e59242_ _$e59242_ _probe59227_))) + (if (##string=? _key59203_ _k59234_) (begin (vector-set! - _table58946_ - _probe58965_ - _key58941_) + _table59208_ + _probe59227_ + _key59203_) (vector-set! - _table58946_ - (fx+ _probe58965_ '1) - (_string-table-update!58942_ + _table59208_ + (fx+ _probe59227_ '1) + (_string-table-update!59204_ (vector-ref - _table58946_ - (fx+ _probe58965_ '1))))) - (_loop58962_ - (let ((_next-probe58983_ - (fx+ _start58958_ - _i58967_ - (fx* _i58967_ _i58967_)))) - (fxmodulo _next-probe58983_ _size58952_)) - (fx+ _i58967_ '1) - _deleted58969_)))))))))) + _table59208_ + (fx+ _probe59227_ '1))))) + (_loop59224_ + (let ((_next-probe59245_ + (fx+ _start59220_ + _i59229_ + (fx* _i59229_ _i59229_)))) + (fxmodulo _next-probe59245_ _size59214_)) + (fx+ _i59229_ '1) + _deleted59231_)))))))))) (define string-table-delete! - (lambda (_tab58899_ _key58901_) - (let ((_table58904_ (&raw-table-table _tab58899_)) - (_seed58906_ (&raw-table-seed _tab58899_))) - (let* ((_h58909_ (fxxor (##string=?-hash _key58901_) _seed58906_)) - (_size58912_ (vector-length _table58904_)) - (_entries58915_ (fxquotient _size58912_ '2)) - (_start58918_ + (lambda (_tab59161_ _key59163_) + (let ((_table59166_ (&raw-table-table _tab59161_)) + (_seed59168_ (&raw-table-seed _tab59161_))) + (let* ((_h59171_ (fxxor (##string=?-hash _key59163_) _seed59168_)) + (_size59174_ (vector-length _table59166_)) + (_entries59177_ (fxquotient _size59174_ '2)) + (_start59180_ (fxarithmetic-shift-left - (fxmodulo _h58909_ _entries58915_) + (fxmodulo _h59171_ _entries59177_) '1))) - (let _loop58922_ ((_probe58925_ _start58918_) (_i58927_ '1)) - (let ((_k58930_ (vector-ref _table58904_ _probe58925_))) - (if (eq? _k58930_ (macro-unused-obj)) + (let _loop59184_ ((_probe59187_ _start59180_) (_i59189_ '1)) + (let ((_k59192_ (vector-ref _table59166_ _probe59187_))) + (if (eq? _k59192_ (macro-unused-obj)) '#!void - (if (eq? _k58930_ (macro-deleted-obj)) - (_loop58922_ - (let ((_next-probe58933_ - (fx+ _start58918_ - _i58927_ - (fx* _i58927_ _i58927_)))) - (fxmodulo _next-probe58933_ _size58912_)) - (fx+ _i58927_ '1)) - (if (##string=? _key58901_ _k58930_) + (if (eq? _k59192_ (macro-deleted-obj)) + (_loop59184_ + (let ((_next-probe59195_ + (fx+ _start59180_ + _i59189_ + (fx* _i59189_ _i59189_)))) + (fxmodulo _next-probe59195_ _size59174_)) + (fx+ _i59189_ '1)) + (if (##string=? _key59163_ _k59192_) (begin (vector-set! - _table58904_ - _probe58925_ + _table59166_ + _probe59187_ (macro-deleted-obj)) (vector-set! - _table58904_ - (fx+ _probe58925_ '1) + _table59166_ + (fx+ _probe59187_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab58899_ - (fx- (&raw-table-count _tab58899_) '1))))) - (_loop58922_ - (let ((_next-probe58937_ - (fx+ _start58918_ - _i58927_ - (fx* _i58927_ _i58927_)))) - (fxmodulo _next-probe58937_ _size58912_)) - (fx+ _i58927_ '1))))))))))) + _tab59161_ + (fx- (&raw-table-count _tab59161_) '1))))) + (_loop59184_ + (let ((_next-probe59199_ + (fx+ _start59180_ + _i59189_ + (fx* _i59189_ _i59189_)))) + (fxmodulo _next-probe59199_ _size59174_)) + (fx+ _i59189_ '1))))))))))) (define make-immediate-table__% - (lambda (_size-hint58880_ _seed58882_) - (make-raw-table__% _size-hint58880_ immediate-hash eq? _seed58882_))) + (lambda (_size-hint59142_ _seed59144_) + (make-raw-table__% _size-hint59142_ immediate-hash eq? _seed59144_))) (define make-immediate-table__0 (lambda () - (let* ((_size-hint58888_ '#f) (_seed58890_ '0)) - (make-immediate-table__% _size-hint58888_ _seed58890_)))) + (let* ((_size-hint59150_ '#f) (_seed59152_ '0)) + (make-immediate-table__% _size-hint59150_ _seed59152_)))) (define make-immediate-table__1 - (lambda (_size-hint58892_) - (let ((_seed58894_ '0)) - (make-immediate-table__% _size-hint58892_ _seed58894_)))) + (lambda (_size-hint59154_) + (let ((_seed59156_ '0)) + (make-immediate-table__% _size-hint59154_ _seed59156_)))) (define make-immediate-table - (lambda _g60036_ - (let ((_g60035_ (##length _g60036_))) - (cond ((##fx= _g60035_ 0) - (apply (lambda () (make-immediate-table__0)) _g60036_)) - ((##fx= _g60035_ 1) - (apply (lambda (_size-hint58892_) - (make-immediate-table__1 _size-hint58892_)) - _g60036_)) - ((##fx= _g60035_ 2) - (apply (lambda (_size-hint58896_ _seed58897_) + (lambda _g60298_ + (let ((_g60297_ (##length _g60298_))) + (cond ((##fx= _g60297_ 0) + (apply (lambda () (make-immediate-table__0)) _g60298_)) + ((##fx= _g60297_ 1) + (apply (lambda (_size-hint59154_) + (make-immediate-table__1 _size-hint59154_)) + _g60298_)) + ((##fx= _g60297_ 2) + (apply (lambda (_size-hint59158_ _seed59159_) (make-immediate-table__% - _size-hint58896_ - _seed58897_)) - _g60036_)) + _size-hint59158_ + _seed59159_)) + _g60298_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g60036_)))))) + _g60298_)))))) (define immediate-table-ref - (lambda (_tab58837_ _key58838_ _default58839_) - (let ((_table58841_ (&raw-table-table _tab58837_)) - (_seed58842_ (&raw-table-seed _tab58837_))) - (let* ((_h58844_ (fxxor (immediate-hash _key58838_) _seed58842_)) - (_size58847_ (vector-length _table58841_)) - (_entries58850_ (fxquotient _size58847_ '2)) - (_start58853_ + (lambda (_tab59099_ _key59100_ _default59101_) + (let ((_table59103_ (&raw-table-table _tab59099_)) + (_seed59104_ (&raw-table-seed _tab59099_))) + (let* ((_h59106_ (fxxor (immediate-hash _key59100_) _seed59104_)) + (_size59109_ (vector-length _table59103_)) + (_entries59112_ (fxquotient _size59109_ '2)) + (_start59115_ (fxarithmetic-shift-left - (fxmodulo _h58844_ _entries58850_) + (fxmodulo _h59106_ _entries59112_) '1))) - (let _loop58857_ ((_probe58860_ _start58853_) - (_i58862_ '1) - (_deleted58864_ '#f)) - (let ((_k58867_ (vector-ref _table58841_ _probe58860_))) - (if (eq? _k58867_ (macro-unused-obj)) - _default58839_ - (if (eq? _k58867_ (macro-deleted-obj)) - (_loop58857_ - (let ((_next-probe58870_ - (fx+ _start58853_ - _i58862_ - (fx* _i58862_ _i58862_)))) - (fxmodulo _next-probe58870_ _size58847_)) - (fx+ _i58862_ '1) - (let ((_$e58873_ _deleted58864_)) - (if _$e58873_ _$e58873_ _probe58860_))) - (if (eq? _key58838_ _k58867_) - (vector-ref _table58841_ (fx+ _probe58860_ '1)) - (_loop58857_ - (let ((_next-probe58876_ - (fx+ _start58853_ - _i58862_ - (fx* _i58862_ _i58862_)))) - (fxmodulo _next-probe58876_ _size58847_)) - (fx+ _i58862_ '1) - _deleted58864_)))))))))) + (let _loop59119_ ((_probe59122_ _start59115_) + (_i59124_ '1) + (_deleted59126_ '#f)) + (let ((_k59129_ (vector-ref _table59103_ _probe59122_))) + (if (eq? _k59129_ (macro-unused-obj)) + _default59101_ + (if (eq? _k59129_ (macro-deleted-obj)) + (_loop59119_ + (let ((_next-probe59132_ + (fx+ _start59115_ + _i59124_ + (fx* _i59124_ _i59124_)))) + (fxmodulo _next-probe59132_ _size59109_)) + (fx+ _i59124_ '1) + (let ((_$e59135_ _deleted59126_)) + (if _$e59135_ _$e59135_ _probe59122_))) + (if (eq? _key59100_ _k59129_) + (vector-ref _table59103_ (fx+ _probe59122_ '1)) + (_loop59119_ + (let ((_next-probe59138_ + (fx+ _start59115_ + _i59124_ + (fx* _i59124_ _i59124_)))) + (fxmodulo _next-probe59138_ _size59109_)) + (fx+ _i59124_ '1) + _deleted59126_)))))))))) (define immediate-table-set! - (lambda (_tab58833_ _key58834_ _value58835_) - (if (fx< (&raw-table-free _tab58833_) - (fxquotient (vector-length (&raw-table-table _tab58833_)) '4)) - (__raw-table-rehash! _tab58833_) + (lambda (_tab59095_ _key59096_ _value59097_) + (if (fx< (&raw-table-free _tab59095_) + (fxquotient (vector-length (&raw-table-table _tab59095_)) '4)) + (__raw-table-rehash! _tab59095_) '#!void) - (__immediate-table-set! _tab58833_ _key58834_ _value58835_))) + (__immediate-table-set! _tab59095_ _key59096_ _value59097_))) (define __immediate-table-set! - (lambda (_tab58788_ _key58789_ _value58790_) - (let ((_table58793_ (&raw-table-table _tab58788_)) - (_seed58794_ (&raw-table-seed _tab58788_))) - (let* ((_h58796_ (fxxor (immediate-hash _key58789_) _seed58794_)) - (_size58799_ (vector-length _table58793_)) - (_entries58802_ (fxquotient _size58799_ '2)) - (_start58805_ + (lambda (_tab59050_ _key59051_ _value59052_) + (let ((_table59055_ (&raw-table-table _tab59050_)) + (_seed59056_ (&raw-table-seed _tab59050_))) + (let* ((_h59058_ (fxxor (immediate-hash _key59051_) _seed59056_)) + (_size59061_ (vector-length _table59055_)) + (_entries59064_ (fxquotient _size59061_ '2)) + (_start59067_ (fxarithmetic-shift-left - (fxmodulo _h58796_ _entries58802_) + (fxmodulo _h59058_ _entries59064_) '1))) - (let _loop58809_ ((_probe58812_ _start58805_) - (_i58814_ '1) - (_deleted58816_ '#f)) - (let ((_k58819_ (vector-ref _table58793_ _probe58812_))) - (if (eq? _k58819_ (macro-unused-obj)) - (if _deleted58816_ + (let _loop59071_ ((_probe59074_ _start59067_) + (_i59076_ '1) + (_deleted59078_ '#f)) + (let ((_k59081_ (vector-ref _table59055_ _probe59074_))) + (if (eq? _k59081_ (macro-unused-obj)) + (if _deleted59078_ (begin - (vector-set! _table58793_ _deleted58816_ _key58789_) + (vector-set! _table59055_ _deleted59078_ _key59051_) (vector-set! - _table58793_ - (fx+ _deleted58816_ '1) - _value58790_) + _table59055_ + (fx+ _deleted59078_ '1) + _value59052_) ((lambda () (&raw-table-count-set! - _tab58788_ - (fx+ (&raw-table-count _tab58788_) '1))))) + _tab59050_ + (fx+ (&raw-table-count _tab59050_) '1))))) (begin - (vector-set! _table58793_ _probe58812_ _key58789_) + (vector-set! _table59055_ _probe59074_ _key59051_) (vector-set! - _table58793_ - (fx+ _probe58812_ '1) - _value58790_) + _table59055_ + (fx+ _probe59074_ '1) + _value59052_) ((lambda () (&raw-table-free-set! - _tab58788_ - (fx- (&raw-table-free _tab58788_) '1)) + _tab59050_ + (fx- (&raw-table-free _tab59050_) '1)) (&raw-table-count-set! - _tab58788_ - (fx+ (&raw-table-count _tab58788_) '1)))))) - (if (eq? _k58819_ (macro-deleted-obj)) - (_loop58809_ - (let ((_next-probe58824_ - (fx+ _start58805_ - _i58814_ - (fx* _i58814_ _i58814_)))) - (fxmodulo _next-probe58824_ _size58799_)) - (fx+ _i58814_ '1) - (let ((_$e58827_ _deleted58816_)) - (if _$e58827_ _$e58827_ _probe58812_))) - (if (eq? _key58789_ _k58819_) + _tab59050_ + (fx+ (&raw-table-count _tab59050_) '1)))))) + (if (eq? _k59081_ (macro-deleted-obj)) + (_loop59071_ + (let ((_next-probe59086_ + (fx+ _start59067_ + _i59076_ + (fx* _i59076_ _i59076_)))) + (fxmodulo _next-probe59086_ _size59061_)) + (fx+ _i59076_ '1) + (let ((_$e59089_ _deleted59078_)) + (if _$e59089_ _$e59089_ _probe59074_))) + (if (eq? _key59051_ _k59081_) (begin (vector-set! - _table58793_ - _probe58812_ - _key58789_) + _table59055_ + _probe59074_ + _key59051_) (vector-set! - _table58793_ - (fx+ _probe58812_ '1) - _value58790_)) - (_loop58809_ - (let ((_next-probe58830_ - (fx+ _start58805_ - _i58814_ - (fx* _i58814_ _i58814_)))) - (fxmodulo _next-probe58830_ _size58799_)) - (fx+ _i58814_ '1) - _deleted58816_)))))))))) + _table59055_ + (fx+ _probe59074_ '1) + _value59052_)) + (_loop59071_ + (let ((_next-probe59092_ + (fx+ _start59067_ + _i59076_ + (fx* _i59076_ _i59076_)))) + (fxmodulo _next-probe59092_ _size59061_)) + (fx+ _i59076_ '1) + _deleted59078_)))))))))) (define immediate-table-update! - (lambda (_tab58783_ - _key58784_ - _immediate-table-update!58785_ - _default58786_) - (if (fx< (&raw-table-free _tab58783_) - (fxquotient (vector-length (&raw-table-table _tab58783_)) '4)) - (__raw-table-rehash! _tab58783_) + (lambda (_tab59045_ + _key59046_ + _immediate-table-update!59047_ + _default59048_) + (if (fx< (&raw-table-free _tab59045_) + (fxquotient (vector-length (&raw-table-table _tab59045_)) '4)) + (__raw-table-rehash! _tab59045_) '#!void) (__immediate-table-update! - _tab58783_ - _key58784_ - _immediate-table-update!58785_ - _default58786_))) + _tab59045_ + _key59046_ + _immediate-table-update!59047_ + _default59048_))) (define __immediate-table-update! - (lambda (_tab58737_ - _key58738_ - _immediate-table-update!58739_ - _default58740_) - (let ((_table58743_ (&raw-table-table _tab58737_)) - (_seed58744_ (&raw-table-seed _tab58737_))) - (let* ((_h58746_ (fxxor (immediate-hash _key58738_) _seed58744_)) - (_size58749_ (vector-length _table58743_)) - (_entries58752_ (fxquotient _size58749_ '2)) - (_start58755_ + (lambda (_tab58999_ + _key59000_ + _immediate-table-update!59001_ + _default59002_) + (let ((_table59005_ (&raw-table-table _tab58999_)) + (_seed59006_ (&raw-table-seed _tab58999_))) + (let* ((_h59008_ (fxxor (immediate-hash _key59000_) _seed59006_)) + (_size59011_ (vector-length _table59005_)) + (_entries59014_ (fxquotient _size59011_ '2)) + (_start59017_ (fxarithmetic-shift-left - (fxmodulo _h58746_ _entries58752_) + (fxmodulo _h59008_ _entries59014_) '1))) - (let _loop58759_ ((_probe58762_ _start58755_) - (_i58764_ '1) - (_deleted58766_ '#f)) - (let ((_k58769_ (vector-ref _table58743_ _probe58762_))) - (if (eq? _k58769_ (macro-unused-obj)) - (if _deleted58766_ + (let _loop59021_ ((_probe59024_ _start59017_) + (_i59026_ '1) + (_deleted59028_ '#f)) + (let ((_k59031_ (vector-ref _table59005_ _probe59024_))) + (if (eq? _k59031_ (macro-unused-obj)) + (if _deleted59028_ (begin - (vector-set! _table58743_ _deleted58766_ _key58738_) + (vector-set! _table59005_ _deleted59028_ _key59000_) (vector-set! - _table58743_ - (fx+ _deleted58766_ '1) - (_immediate-table-update!58739_ _default58740_)) + _table59005_ + (fx+ _deleted59028_ '1) + (_immediate-table-update!59001_ _default59002_)) ((lambda () (&raw-table-count-set! - _tab58737_ - (fx+ (&raw-table-count _tab58737_) '1))))) + _tab58999_ + (fx+ (&raw-table-count _tab58999_) '1))))) (begin - (vector-set! _table58743_ _probe58762_ _key58738_) + (vector-set! _table59005_ _probe59024_ _key59000_) (vector-set! - _table58743_ - (fx+ _probe58762_ '1) - (_immediate-table-update!58739_ _default58740_)) + _table59005_ + (fx+ _probe59024_ '1) + (_immediate-table-update!59001_ _default59002_)) ((lambda () (&raw-table-free-set! - _tab58737_ - (fx- (&raw-table-free _tab58737_) '1)) + _tab58999_ + (fx- (&raw-table-free _tab58999_) '1)) (&raw-table-count-set! - _tab58737_ - (fx+ (&raw-table-count _tab58737_) '1)))))) - (if (eq? _k58769_ (macro-deleted-obj)) - (_loop58759_ - (let ((_next-probe58774_ - (fx+ _start58755_ - _i58764_ - (fx* _i58764_ _i58764_)))) - (fxmodulo _next-probe58774_ _size58749_)) - (fx+ _i58764_ '1) - (let ((_$e58777_ _deleted58766_)) - (if _$e58777_ _$e58777_ _probe58762_))) - (if (eq? _key58738_ _k58769_) + _tab58999_ + (fx+ (&raw-table-count _tab58999_) '1)))))) + (if (eq? _k59031_ (macro-deleted-obj)) + (_loop59021_ + (let ((_next-probe59036_ + (fx+ _start59017_ + _i59026_ + (fx* _i59026_ _i59026_)))) + (fxmodulo _next-probe59036_ _size59011_)) + (fx+ _i59026_ '1) + (let ((_$e59039_ _deleted59028_)) + (if _$e59039_ _$e59039_ _probe59024_))) + (if (eq? _key59000_ _k59031_) (begin (vector-set! - _table58743_ - _probe58762_ - _key58738_) + _table59005_ + _probe59024_ + _key59000_) (vector-set! - _table58743_ - (fx+ _probe58762_ '1) - (_immediate-table-update!58739_ + _table59005_ + (fx+ _probe59024_ '1) + (_immediate-table-update!59001_ (vector-ref - _table58743_ - (fx+ _probe58762_ '1))))) - (_loop58759_ - (let ((_next-probe58780_ - (fx+ _start58755_ - _i58764_ - (fx* _i58764_ _i58764_)))) - (fxmodulo _next-probe58780_ _size58749_)) - (fx+ _i58764_ '1) - _deleted58766_)))))))))) + _table59005_ + (fx+ _probe59024_ '1))))) + (_loop59021_ + (let ((_next-probe59042_ + (fx+ _start59017_ + _i59026_ + (fx* _i59026_ _i59026_)))) + (fxmodulo _next-probe59042_ _size59011_)) + (fx+ _i59026_ '1) + _deleted59028_)))))))))) (define immediate-table-delete! - (lambda (_tab58696_ _key58698_) - (let ((_table58701_ (&raw-table-table _tab58696_)) - (_seed58703_ (&raw-table-seed _tab58696_))) - (let* ((_h58706_ (fxxor (immediate-hash _key58698_) _seed58703_)) - (_size58709_ (vector-length _table58701_)) - (_entries58712_ (fxquotient _size58709_ '2)) - (_start58715_ + (lambda (_tab58958_ _key58960_) + (let ((_table58963_ (&raw-table-table _tab58958_)) + (_seed58965_ (&raw-table-seed _tab58958_))) + (let* ((_h58968_ (fxxor (immediate-hash _key58960_) _seed58965_)) + (_size58971_ (vector-length _table58963_)) + (_entries58974_ (fxquotient _size58971_ '2)) + (_start58977_ (fxarithmetic-shift-left - (fxmodulo _h58706_ _entries58712_) + (fxmodulo _h58968_ _entries58974_) '1))) - (let _loop58719_ ((_probe58722_ _start58715_) (_i58724_ '1)) - (let ((_k58727_ (vector-ref _table58701_ _probe58722_))) - (if (eq? _k58727_ (macro-unused-obj)) + (let _loop58981_ ((_probe58984_ _start58977_) (_i58986_ '1)) + (let ((_k58989_ (vector-ref _table58963_ _probe58984_))) + (if (eq? _k58989_ (macro-unused-obj)) '#!void - (if (eq? _k58727_ (macro-deleted-obj)) - (_loop58719_ - (let ((_next-probe58730_ - (fx+ _start58715_ - _i58724_ - (fx* _i58724_ _i58724_)))) - (fxmodulo _next-probe58730_ _size58709_)) - (fx+ _i58724_ '1)) - (if (eq? _key58698_ _k58727_) + (if (eq? _k58989_ (macro-deleted-obj)) + (_loop58981_ + (let ((_next-probe58992_ + (fx+ _start58977_ + _i58986_ + (fx* _i58986_ _i58986_)))) + (fxmodulo _next-probe58992_ _size58971_)) + (fx+ _i58986_ '1)) + (if (eq? _key58960_ _k58989_) (begin (vector-set! - _table58701_ - _probe58722_ + _table58963_ + _probe58984_ (macro-deleted-obj)) (vector-set! - _table58701_ - (fx+ _probe58722_ '1) + _table58963_ + (fx+ _probe58984_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _tab58696_ - (fx- (&raw-table-count _tab58696_) '1))))) - (_loop58719_ - (let ((_next-probe58734_ - (fx+ _start58715_ - _i58724_ - (fx* _i58724_ _i58724_)))) - (fxmodulo _next-probe58734_ _size58709_)) - (fx+ _i58724_ '1))))))))))) + _tab58958_ + (fx- (&raw-table-count _tab58958_) '1))))) + (_loop58981_ + (let ((_next-probe58996_ + (fx+ _start58977_ + _i58986_ + (fx* _i58986_ _i58986_)))) + (fxmodulo _next-probe58996_ _size58971_)) + (fx+ _i58986_ '1))))))))))) (define __gc-table::t.id 'gerbil#__gc-table::t) (define __gc-table::t (##structure @@ -1861,231 +1861,231 @@ '#(gcht 5 #f immediate 5 #f))) (define __gc-table-loads '#f64(.45 .6363961030678927 .9)) (define &gc-table-gcht - (lambda (_tab58694_) + (lambda (_tab58956_) (##unchecked-structure-ref - _tab58694_ + _tab58956_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_tab58692_) + (lambda (_tab58954_) (##unchecked-structure-ref - _tab58692_ + _tab58954_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_tab58689_ _val58690_) + (lambda (_tab58951_ _val58952_) (##unchecked-structure-set! - _tab58689_ - _val58690_ + _tab58951_ + _val58952_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_tab58686_ _val58687_) + (lambda (_tab58948_ _val58949_) (##unchecked-structure-set! - _tab58686_ - _val58687_ + _tab58948_ + _val58949_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_size-hint58662_ _klass58663_ _flags58664_) - (let ((_gcht58666_ + (lambda (_size-hint58924_ _klass58925_ _flags58926_) + (let ((_gcht58928_ (__gc-table-new - (if (fixnum? _size-hint58662_) _size-hint58662_ '16) - _flags58664_))) - (##structure _klass58663_ _gcht58666_ '#f)))) + (if (fixnum? _size-hint58924_) _size-hint58924_ '16) + _flags58926_))) + (##structure _klass58925_ _gcht58928_ '#f)))) (define make-gc-table__0 - (lambda (_size-hint58671_) - (let* ((_klass58673_ __gc-table::t) (_flags58675_ '0)) - (make-gc-table__% _size-hint58671_ _klass58673_ _flags58675_)))) + (lambda (_size-hint58933_) + (let* ((_klass58935_ __gc-table::t) (_flags58937_ '0)) + (make-gc-table__% _size-hint58933_ _klass58935_ _flags58937_)))) (define make-gc-table__1 - (lambda (_size-hint58677_ _klass58678_) - (let ((_flags58680_ '0)) - (make-gc-table__% _size-hint58677_ _klass58678_ _flags58680_)))) + (lambda (_size-hint58939_ _klass58940_) + (let ((_flags58942_ '0)) + (make-gc-table__% _size-hint58939_ _klass58940_ _flags58942_)))) (define make-gc-table - (lambda _g60038_ - (let ((_g60037_ (##length _g60038_))) - (cond ((##fx= _g60037_ 1) - (apply (lambda (_size-hint58671_) - (make-gc-table__0 _size-hint58671_)) - _g60038_)) - ((##fx= _g60037_ 2) - (apply (lambda (_size-hint58677_ _klass58678_) - (make-gc-table__1 _size-hint58677_ _klass58678_)) - _g60038_)) - ((##fx= _g60037_ 3) - (apply (lambda (_size-hint58682_ _klass58683_ _flags58684_) + (lambda _g60300_ + (let ((_g60299_ (##length _g60300_))) + (cond ((##fx= _g60299_ 1) + (apply (lambda (_size-hint58933_) + (make-gc-table__0 _size-hint58933_)) + _g60300_)) + ((##fx= _g60299_ 2) + (apply (lambda (_size-hint58939_ _klass58940_) + (make-gc-table__1 _size-hint58939_ _klass58940_)) + _g60300_)) + ((##fx= _g60299_ 3) + (apply (lambda (_size-hint58944_ _klass58945_ _flags58946_) (make-gc-table__% - _size-hint58682_ - _klass58683_ - _flags58684_)) - _g60038_)) + _size-hint58944_ + _klass58945_ + _flags58946_)) + _g60300_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g60038_)))))) + _g60300_)))))) (define __gc-table-immediate - (lambda (_tab58654_) - (let ((_$e58656_ (&gc-table-immediate _tab58654_))) - (if _$e58656_ - _$e58656_ - (let ((_immediate58659_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _tab58654_ _immediate58659_) - _immediate58659_))))) + (lambda (_tab58916_) + (let ((_$e58918_ (&gc-table-immediate _tab58916_))) + (if _$e58918_ + _$e58918_ + (let ((_immediate58921_ (make-immediate-table__% '#f '0))) + (&gc-table-immediate-set! _tab58916_ _immediate58921_) + _immediate58921_))))) (define __gc-table-new - (lambda (_size58644_ _flags58645_) - (let* ((_flags58647_ - (fxand _flags58645_ + (lambda (_size58906_ _flags58907_) + (let* ((_flags58909_ + (fxand _flags58907_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_flags58649_ - (fxior _flags58647_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_gcht58651_ + (_flags58911_ + (fxior _flags58909_ (macro-gc-hash-table-flag-mem-alloc-keys))) + (_gcht58913_ (##gc-hash-table-allocate - _size58644_ - _flags58649_ + _size58906_ + _flags58911_ __gc-table-loads))) - _gcht58651_))) + _gcht58913_))) (define __gc-table-e - (lambda (_tab58639_) + (lambda (_tab58901_) (declare (not interrupts-enabled)) - (let ((_gcht58642_ (&gc-table-gcht _tab58639_))) + (let ((_gcht58904_ (&gc-table-gcht _tab58901_))) (if (fx= '0 - (fxand (macro-gc-hash-table-flags _gcht58642_) + (fxand (macro-gc-hash-table-flags _gcht58904_) (macro-gc-hash-table-flag-need-rehash))) - _gcht58642_ + _gcht58904_ (begin - (__gc-table-rehash! _tab58639_) - (&gc-table-gcht _tab58639_)))))) + (__gc-table-rehash! _tab58901_) + (&gc-table-gcht _tab58901_)))))) (define __gc-table-rehash! - (lambda (_tab58630_) - (let* ((_old-table58632_ (&gc-table-gcht _tab58630_)) - (_new-table58634_ - (##gc-hash-table-resize! _old-table58632_ __gc-table-loads)) - (_gcht58636_ - (##gc-hash-table-rehash! _old-table58632_ _new-table58634_))) - (&gc-table-gcht-set! _tab58630_ _gcht58636_)))) + (lambda (_tab58892_) + (let* ((_old-table58894_ (&gc-table-gcht _tab58892_)) + (_new-table58896_ + (##gc-hash-table-resize! _old-table58894_ __gc-table-loads)) + (_gcht58898_ + (##gc-hash-table-rehash! _old-table58894_ _new-table58896_))) + (&gc-table-gcht-set! _tab58892_ _gcht58898_)))) (define gc-table-ref - (lambda (_tab58616_ _key58617_ _default58618_) + (lambda (_tab58878_ _key58879_ _default58880_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _key58617_) - (let* ((_gcht58621_ (__gc-table-e _tab58616_)) - (_value58623_ (##gc-hash-table-ref _gcht58621_ _key58617_))) - (if (eq? _value58623_ (macro-unused-obj)) - _default58618_ - _value58623_)) - (let ((_$e58625_ (&gc-table-immediate _tab58616_))) - (if _$e58625_ - ((lambda (_immediate58628_) + (if (##mem-allocated? _key58879_) + (let* ((_gcht58883_ (__gc-table-e _tab58878_)) + (_value58885_ (##gc-hash-table-ref _gcht58883_ _key58879_))) + (if (eq? _value58885_ (macro-unused-obj)) + _default58880_ + _value58885_)) + (let ((_$e58887_ (&gc-table-immediate _tab58878_))) + (if _$e58887_ + ((lambda (_immediate58890_) (immediate-table-ref - _immediate58628_ - _key58617_ - _default58618_)) - _$e58625_) - _default58618_))))) + _immediate58890_ + _key58879_ + _default58880_)) + _$e58887_) + _default58880_))))) (define gc-table-set! - (lambda (_tab58609_ _key58610_ _value58611_) + (lambda (_tab58871_ _key58872_ _value58873_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _key58610_) - (let ((_gcht58614_ (__gc-table-e _tab58609_))) - (if (##gc-hash-table-set! _gcht58614_ _key58610_ _value58611_) + (if (##mem-allocated? _key58872_) + (let ((_gcht58876_ (__gc-table-e _tab58871_))) + (if (##gc-hash-table-set! _gcht58876_ _key58872_ _value58873_) (begin - (__gc-table-rehash! _tab58609_) - (gc-table-set! _tab58609_ _key58610_ _value58611_)) + (__gc-table-rehash! _tab58871_) + (gc-table-set! _tab58871_ _key58872_ _value58873_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _tab58609_) - _key58610_ - _value58611_)))) + (__gc-table-immediate _tab58871_) + _key58872_ + _value58873_)))) (define gc-table-update! - (lambda (_tab58602_ _key58603_ _update58604_ _default58605_) - (if (##mem-allocated? _key58603_) - (let ((_value58607_ - (gc-table-ref _tab58602_ _key58603_ _default58605_))) + (lambda (_tab58864_ _key58865_ _update58866_ _default58867_) + (if (##mem-allocated? _key58865_) + (let ((_value58869_ + (gc-table-ref _tab58864_ _key58865_ _default58867_))) (gc-table-set! - _tab58602_ - _key58603_ - (_update58604_ _value58607_))) + _tab58864_ + _key58865_ + (_update58866_ _value58869_))) (immediate-table-update! - (__gc-table-immediate _tab58602_) - _key58603_ - _update58604_ - _default58605_)))) + (__gc-table-immediate _tab58864_) + _key58865_ + _update58866_ + _default58867_)))) (define gc-table-delete! - (lambda (_tab58591_ _key58592_) + (lambda (_tab58853_ _key58854_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _key58592_) - (let ((_gcht58595_ (__gc-table-e _tab58591_))) + (if (##mem-allocated? _key58854_) + (let ((_gcht58857_ (__gc-table-e _tab58853_))) (if (##gc-hash-table-set! - _gcht58595_ - _key58592_ + _gcht58857_ + _key58854_ (macro-absent-obj)) (begin - (__gc-table-rehash! _tab58591_) - (gc-table-delete! _tab58591_ _key58592_)) + (__gc-table-rehash! _tab58853_) + (gc-table-delete! _tab58853_ _key58854_)) '#!void)) - (let ((_$e58597_ (&gc-table-immediate _tab58591_))) - (if _$e58597_ - ((lambda (_immediate58600_) - (immediate-table-delete! _immediate58600_ _key58592_)) - _$e58597_) + (let ((_$e58859_ (&gc-table-immediate _tab58853_))) + (if _$e58859_ + ((lambda (_immediate58862_) + (immediate-table-delete! _immediate58862_ _key58854_)) + _$e58859_) '#!void))))) (define gc-table-for-each - (lambda (_tab58572_ _proc58573_) + (lambda (_tab58834_ _proc58835_) (declare (not interrupts-enabled)) (begin - (let ((_gcht58576_ (__gc-table-e _tab58572_))) - (let _loop58578_ ((_i58580_ (macro-gc-hash-table-key0))) - (if (fx< _i58580_ (##vector-length _gcht58576_)) - (let ((_key58582_ (##vector-ref _gcht58576_ _i58580_))) - (if (and (not (eq? _key58582_ (macro-unused-obj))) - (not (eq? _key58582_ (macro-deleted-obj)))) - (_proc58573_ - _key58582_ - (##vector-ref _gcht58576_ (fx+ _i58580_ '1))) + (let ((_gcht58838_ (__gc-table-e _tab58834_))) + (let _loop58840_ ((_i58842_ (macro-gc-hash-table-key0))) + (if (fx< _i58842_ (##vector-length _gcht58838_)) + (let ((_key58844_ (##vector-ref _gcht58838_ _i58842_))) + (if (and (not (eq? _key58844_ (macro-unused-obj))) + (not (eq? _key58844_ (macro-deleted-obj)))) + (_proc58835_ + _key58844_ + (##vector-ref _gcht58838_ (fx+ _i58842_ '1))) '#!void) (let () (declare (interrupts-enabled)) - (_loop58578_ (fx+ _i58580_ '2)))) + (_loop58840_ (fx+ _i58842_ '2)))) '#!void))) - (let ((_$e58586_ (&gc-table-immediate _tab58572_))) - (if _$e58586_ - ((lambda (_immediate58589_) - (raw-table-for-each _immediate58589_ _proc58573_)) - _$e58586_) + (let ((_$e58848_ (&gc-table-immediate _tab58834_))) + (if _$e58848_ + ((lambda (_immediate58851_) + (raw-table-for-each _immediate58851_ _proc58835_)) + _$e58848_) '#!void))))) (define gc-table-copy - (lambda (_tab58560_) - (let* ((_gcht58562_ (__gc-table-e _tab58560_)) - (_new-table58564_ + (lambda (_tab58822_) + (let* ((_gcht58824_ (__gc-table-e _tab58822_)) + (_new-table58826_ (__gc-table-new - (macro-gc-hash-table-count _gcht58562_) - (macro-gc-hash-table-flags _gcht58562_))) - (_result58566_ + (macro-gc-hash-table-count _gcht58824_) + (macro-gc-hash-table-flags _gcht58824_))) + (_result58828_ (##structure - (##structure-type _tab58560_) - _new-table58564_ + (##structure-type _tab58822_) + _new-table58826_ '#f))) (gc-table-for-each - _tab58560_ - (lambda (_k58569_ _v58570_) - (gc-table-set! _result58566_ _k58569_ _v58570_))) - _result58566_))) + _tab58822_ + (lambda (_k58831_ _v58832_) + (gc-table-set! _result58828_ _k58831_ _v58832_))) + _result58828_))) (define gc-table-clear! - (lambda (_tab58553_) - (let* ((_gcht58555_ (__gc-table-e _tab58553_)) - (_new-table58557_ - (__gc-table-new '16 (macro-gc-hash-table-flags _gcht58555_)))) - (&gc-table-gcht-set! _tab58553_ _new-table58557_) - (&gc-table-immediate-set! _tab58553_ '#f)))) + (lambda (_tab58815_) + (let* ((_gcht58817_ (__gc-table-e _tab58815_)) + (_new-table58819_ + (__gc-table-new '16 (macro-gc-hash-table-flags _gcht58817_)))) + (&gc-table-gcht-set! _tab58815_ _new-table58819_) + (&gc-table-immediate-set! _tab58815_ '#f)))) (define gc-table-length - (lambda (_tab58546_) - (let ((_gcht58548_ (__gc-table-e _tab58546_))) - (fx+ (macro-gc-hash-table-count _gcht58548_) - (let ((_$e58550_ (&gc-table-immediate _tab58546_))) - (if _$e58550_ (&raw-table-count _$e58550_) '0)))))) + (lambda (_tab58808_) + (let ((_gcht58810_ (__gc-table-e _tab58808_))) + (fx+ (macro-gc-hash-table-count _gcht58810_) + (let ((_$e58812_ (&gc-table-immediate _tab58808_))) + (if _$e58812_ (&raw-table-count _$e58812_) '0)))))) (define __object-eq-hash-next '0) (define __object-eq-hash (make-gc-table__% @@ -2093,18 +2093,18 @@ __gc-table::t (macro-gc-hash-table-flag-weak-keys))) (define __object->eq-hash - (lambda (_obj58531_) + (lambda (_obj58793_) (declare (not interrupts-enabled)) - (let ((_val58534_ (gc-table-ref __object-eq-hash _obj58531_ '#f))) - (if _val58534_ - _val58534_ - (let* ((_mix58536_ __object-eq-hash-next) - (_ptr58538_ (##type-cast _obj58531_ '0)) - (_h58540_ - (fxand (fxxor _mix58536_ _ptr58538_) + (let ((_val58796_ (gc-table-ref __object-eq-hash _obj58793_ '#f))) + (if _val58796_ + _val58796_ + (let* ((_mix58798_ __object-eq-hash-next) + (_ptr58800_ (##type-cast _obj58793_ '0)) + (_h58802_ + (fxand (fxxor _mix58798_ _ptr58800_) (macro-max-fixnum32)))) (set! __object-eq-hash-next - (let ((_$e58543_ (##fx+? __object-eq-hash-next '1))) - (if _$e58543_ _$e58543_ '0))) - (gc-table-set! __object-eq-hash _obj58531_ _h58540_) - _h58540_))))))) + (let ((_$e58805_ (##fx+? __object-eq-hash-next '1))) + (if _$e58805_ _$e58805_ '0))) + (gc-table-set! __object-eq-hash _obj58793_ _h58802_) + _h58802_))))))) diff --git a/src/bootstrap/gerbil/runtime/table__1.scm b/src/bootstrap/gerbil/runtime/table__1.scm index 1b20a84c..e132dd13 100644 --- a/src/bootstrap/gerbil/runtime/table__1.scm +++ b/src/bootstrap/gerbil/runtime/table__1.scm @@ -1,4641 +1,4641 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#__symbolic-hash| - (lambda (_$stx57459_) - (let* ((_g5746357477_ - (lambda (_g5746457473_) + (lambda (_$stx57721_) + (let* ((_g5772557739_ + (lambda (_g5772657735_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5746457473_))) - (_g5746257519_ - (lambda (_g5746457481_) - (if (gx#stx-pair? _g5746457481_) - (let ((_e5746857484_ (gx#syntax-e _g5746457481_))) - (let ((_hd5746757488_ + _g5772657735_))) + (_g5772457781_ + (lambda (_g5772657743_) + (if (gx#stx-pair? _g5772657743_) + (let ((_e5773057746_ (gx#syntax-e _g5772657743_))) + (let ((_hd5772957750_ (let () (declare (not safe)) - (##car _e5746857484_))) - (_tl5746657491_ + (##car _e5773057746_))) + (_tl5772857753_ (let () (declare (not safe)) - (##cdr _e5746857484_)))) - (if (gx#stx-pair? _tl5746657491_) - (let ((_e5747157494_ (gx#syntax-e _tl5746657491_))) - (let ((_hd5747057498_ + (##cdr _e5773057746_)))) + (if (gx#stx-pair? _tl5772857753_) + (let ((_e5773357756_ (gx#syntax-e _tl5772857753_))) + (let ((_hd5773257760_ (let () (declare (not safe)) - (##car _e5747157494_))) - (_tl5746957501_ + (##car _e5773357756_))) + (_tl5773157763_ (let () (declare (not safe)) - (##cdr _e5747157494_)))) - (if (gx#stx-null? _tl5746957501_) - ((lambda (_L57504_) - (let ((__tmp60041 + (##cdr _e5773357756_)))) + (if (gx#stx-null? _tl5773157763_) + ((lambda (_L57766_) + (let ((__tmp60303 (gx#datum->syntax '#f 'macro-slot)) - (__tmp60039 - (let ((__tmp60040 + (__tmp60301 + (let ((__tmp60302 (let () (declare (not safe)) - (cons _L57504_ '())))) + (cons _L57766_ '())))) (declare (not safe)) - (cons '1 __tmp60040)))) + (cons '1 __tmp60302)))) (declare (not safe)) - (cons __tmp60041 __tmp60039))) - _hd5747057498_) - (_g5746357477_ _g5746457481_)))) - (_g5746357477_ _g5746457481_)))) - (_g5746357477_ _g5746457481_))))) - (_g5746257519_ _$stx57459_)))) + (cons __tmp60303 __tmp60301))) + _hd5773257760_) + (_g5772557739_ _g5772657743_)))) + (_g5772557739_ _g5772657743_)))) + (_g5772557739_ _g5772657743_))))) + (_g5772457781_ _$stx57721_)))) (define |[:0:]#defspecialized-table| - (lambda (_$stx57523_) - (let* ((_g5752757573_ - (lambda (_g5752857569_) + (lambda (_$stx57785_) + (let* ((_g5778957835_ + (lambda (_g5779057831_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5752857569_))) - (_g5752657726_ - (lambda (_g5752857577_) - (if (gx#stx-pair? _g5752857577_) - (let ((_e5754057580_ (gx#syntax-e _g5752857577_))) - (let ((_hd5753957584_ + _g5779057831_))) + (_g5778857988_ + (lambda (_g5779057839_) + (if (gx#stx-pair? _g5779057839_) + (let ((_e5780257842_ (gx#syntax-e _g5779057839_))) + (let ((_hd5780157846_ (let () (declare (not safe)) - (##car _e5754057580_))) - (_tl5753857587_ + (##car _e5780257842_))) + (_tl5780057849_ (let () (declare (not safe)) - (##cdr _e5754057580_)))) - (if (gx#stx-pair? _tl5753857587_) - (let ((_e5754357590_ (gx#syntax-e _tl5753857587_))) - (let ((_hd5754257594_ + (##cdr _e5780257842_)))) + (if (gx#stx-pair? _tl5780057849_) + (let ((_e5780557852_ (gx#syntax-e _tl5780057849_))) + (let ((_hd5780457856_ (let () (declare (not safe)) - (##car _e5754357590_))) - (_tl5754157597_ + (##car _e5780557852_))) + (_tl5780357859_ (let () (declare (not safe)) - (##cdr _e5754357590_)))) - (if (gx#stx-pair? _tl5754157597_) - (let ((_e5754657600_ - (gx#syntax-e _tl5754157597_))) - (let ((_hd5754557604_ + (##cdr _e5780557852_)))) + (if (gx#stx-pair? _tl5780357859_) + (let ((_e5780857862_ + (gx#syntax-e _tl5780357859_))) + (let ((_hd5780757866_ (let () (declare (not safe)) - (##car _e5754657600_))) - (_tl5754457607_ + (##car _e5780857862_))) + (_tl5780657869_ (let () (declare (not safe)) - (##cdr _e5754657600_)))) - (if (gx#stx-pair? _tl5754457607_) - (let ((_e5754957610_ + (##cdr _e5780857862_)))) + (if (gx#stx-pair? _tl5780657869_) + (let ((_e5781157872_ (gx#syntax-e - _tl5754457607_))) - (let ((_hd5754857614_ + _tl5780657869_))) + (let ((_hd5781057876_ (let () (declare (not safe)) - (##car _e5754957610_))) - (_tl5754757617_ + (##car _e5781157872_))) + (_tl5780957879_ (let () (declare (not safe)) - (##cdr _e5754957610_)))) + (##cdr _e5781157872_)))) (if (gx#stx-pair? - _tl5754757617_) - (let ((_e5755257620_ + _tl5780957879_) + (let ((_e5781457882_ (gx#syntax-e - _tl5754757617_))) - (let ((_hd5755157624_ + _tl5780957879_))) + (let ((_hd5781357886_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e5755257620_))) - (_tl5755057627_ - (let () (declare (not safe)) (##cdr _e5755257620_)))) - (if (gx#stx-pair? _tl5755057627_) - (let ((_e5755557630_ (gx#syntax-e _tl5755057627_))) - (let ((_hd5755457634_ + (##car _e5781457882_))) + (_tl5781257889_ + (let () (declare (not safe)) (##cdr _e5781457882_)))) + (if (gx#stx-pair? _tl5781257889_) + (let ((_e5781757892_ (gx#syntax-e _tl5781257889_))) + (let ((_hd5781657896_ (let () (declare (not safe)) - (##car _e5755557630_))) - (_tl5755357637_ + (##car _e5781757892_))) + (_tl5781557899_ (let () (declare (not safe)) - (##cdr _e5755557630_)))) - (if (gx#stx-pair? _tl5755357637_) - (let ((_e5755857640_ (gx#syntax-e _tl5755357637_))) - (let ((_hd5755757644_ + (##cdr _e5781757892_)))) + (if (gx#stx-pair? _tl5781557899_) + (let ((_e5782057902_ (gx#syntax-e _tl5781557899_))) + (let ((_hd5781957906_ (let () (declare (not safe)) - (##car _e5755857640_))) - (_tl5755657647_ + (##car _e5782057902_))) + (_tl5781857909_ (let () (declare (not safe)) - (##cdr _e5755857640_)))) - (if (gx#stx-pair? _tl5755657647_) - (let ((_e5756157650_ - (gx#syntax-e _tl5755657647_))) - (let ((_hd5756057654_ + (##cdr _e5782057902_)))) + (if (gx#stx-pair? _tl5781857909_) + (let ((_e5782357912_ + (gx#syntax-e _tl5781857909_))) + (let ((_hd5782257916_ (let () (declare (not safe)) - (##car _e5756157650_))) - (_tl5755957657_ + (##car _e5782357912_))) + (_tl5782157919_ (let () (declare (not safe)) - (##cdr _e5756157650_)))) - (if (gx#stx-pair? _tl5755957657_) - (let ((_e5756457660_ + (##cdr _e5782357912_)))) + (if (gx#stx-pair? _tl5782157919_) + (let ((_e5782657922_ (gx#syntax-e - _tl5755957657_))) - (let ((_hd5756357664_ + _tl5782157919_))) + (let ((_hd5782557926_ (let () (declare (not safe)) - (##car _e5756457660_))) - (_tl5756257667_ + (##car _e5782657922_))) + (_tl5782457929_ (let () (declare (not safe)) - (##cdr _e5756457660_)))) + (##cdr _e5782657922_)))) (if (gx#stx-pair? - _tl5756257667_) - (let ((_e5756757670_ + _tl5782457929_) + (let ((_e5782957932_ (gx#syntax-e - _tl5756257667_))) - (let ((_hd5756657674_ + _tl5782457929_))) + (let ((_hd5782857936_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e5756757670_))) - (_tl5756557677_ - (let () (declare (not safe)) (##cdr _e5756757670_)))) - (if (gx#stx-null? _tl5756557677_) - ((lambda (_L57680_ - _L57682_ - _L57683_ - _L57684_ - _L57685_ - _L57686_ - _L57687_ - _L57688_ - _L57689_) - (let ((__tmp60473 (gx#datum->syntax '#f 'begin)) - (__tmp60042 - (let ((__tmp60452 - (let ((__tmp60472 + (##car _e5782957932_))) + (_tl5782757939_ + (let () (declare (not safe)) (##cdr _e5782957932_)))) + (if (gx#stx-null? _tl5782757939_) + ((lambda (_L57942_ + _L57944_ + _L57945_ + _L57946_ + _L57947_ + _L57948_ + _L57949_ + _L57950_ + _L57951_) + (let ((__tmp60735 (gx#datum->syntax '#f 'begin)) + (__tmp60304 + (let ((__tmp60714 + (let ((__tmp60734 (gx#datum->syntax '#f 'def)) - (__tmp60453 - (let ((__tmp60463 - (let ((__tmp60464 - (let ((__tmp60469 + (__tmp60715 + (let ((__tmp60725 + (let ((__tmp60726 + (let ((__tmp60731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60471 (gx#datum->syntax '#f 'size-hint)) - (__tmp60470 + (let ((__tmp60733 (gx#datum->syntax '#f 'size-hint)) + (__tmp60732 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp60471 __tmp60470))) - (__tmp60465 - (let ((__tmp60466 - (let ((__tmp60468 (gx#datum->syntax '#f 'seed)) - (__tmp60467 + (cons __tmp60733 __tmp60732))) + (__tmp60727 + (let ((__tmp60728 + (let ((__tmp60730 (gx#datum->syntax '#f 'seed)) + (__tmp60729 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp60468 __tmp60467)))) + (cons __tmp60730 __tmp60729)))) (declare (not safe)) - (cons __tmp60466 '())))) + (cons __tmp60728 '())))) (declare (not safe)) - (cons __tmp60469 __tmp60465)))) + (cons __tmp60731 __tmp60727)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L57689_ - __tmp60464))) - (__tmp60454 - (let ((__tmp60455 - (let ((__tmp60462 + (cons _L57951_ + __tmp60726))) + (__tmp60716 + (let ((__tmp60717 + (let ((__tmp60724 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'make-raw-table)) - (__tmp60456 - (let ((__tmp60461 (gx#datum->syntax '#f 'size-hint)) - (__tmp60457 - (let ((__tmp60458 - (let ((__tmp60459 - (let ((__tmp60460 + (__tmp60718 + (let ((__tmp60723 (gx#datum->syntax '#f 'size-hint)) + (__tmp60719 + (let ((__tmp60720 + (let ((__tmp60721 + (let ((__tmp60722 (gx#datum->syntax '#f 'seed))) (declare (not safe)) - (cons __tmp60460 '())))) + (cons __tmp60722 '())))) (declare (not safe)) - (cons _L57680_ __tmp60459)))) + (cons _L57942_ __tmp60721)))) (declare (not safe)) - (cons _L57682_ __tmp60458)))) + (cons _L57944_ __tmp60720)))) (declare (not safe)) - (cons __tmp60461 __tmp60457)))) + (cons __tmp60723 __tmp60719)))) (declare (not safe)) - (cons __tmp60462 __tmp60456)))) + (cons __tmp60724 __tmp60718)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60455 '())))) + (cons __tmp60717 '())))) (declare (not safe)) - (cons __tmp60463 __tmp60454)))) + (cons __tmp60725 __tmp60716)))) (declare (not safe)) - (cons __tmp60472 __tmp60453))) - (__tmp60043 - (let ((__tmp60409 - (let ((__tmp60451 + (cons __tmp60734 __tmp60715))) + (__tmp60305 + (let ((__tmp60671 + (let ((__tmp60713 (gx#datum->syntax '#f 'def)) - (__tmp60410 - (let ((__tmp60444 - (let ((__tmp60445 + (__tmp60672 + (let ((__tmp60706 + (let ((__tmp60707 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60450 (gx#datum->syntax '#f 'tab)) - (__tmp60446 - (let ((__tmp60449 (gx#datum->syntax '#f 'key)) - (__tmp60447 - (let ((__tmp60448 + (let ((__tmp60712 (gx#datum->syntax '#f 'tab)) + (__tmp60708 + (let ((__tmp60711 (gx#datum->syntax '#f 'key)) + (__tmp60709 + (let ((__tmp60710 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60448 '())))) + (cons __tmp60710 '())))) (declare (not safe)) - (cons __tmp60449 __tmp60447)))) + (cons __tmp60711 __tmp60709)))) (declare (not safe)) - (cons __tmp60450 __tmp60446)))) + (cons __tmp60712 __tmp60708)))) (declare (not safe)) - (cons _L57688_ __tmp60445))) - (__tmp60411 - (let ((__tmp60412 - (let ((__tmp60443 (gx#datum->syntax '#f 'let)) - (__tmp60413 - (let ((__tmp60427 - (let ((__tmp60436 - (let ((__tmp60442 + (cons _L57950_ __tmp60707))) + (__tmp60673 + (let ((__tmp60674 + (let ((__tmp60705 (gx#datum->syntax '#f 'let)) + (__tmp60675 + (let ((__tmp60689 + (let ((__tmp60698 + (let ((__tmp60704 (gx#datum->syntax '#f 'table)) - (__tmp60437 - (let ((__tmp60438 - (let ((__tmp60441 + (__tmp60699 + (let ((__tmp60700 + (let ((__tmp60703 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60439 - (let ((__tmp60440 (gx#datum->syntax '#f 'tab))) + (__tmp60701 + (let ((__tmp60702 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60440 '())))) + (cons __tmp60702 '())))) (declare (not safe)) - (cons __tmp60441 __tmp60439)))) + (cons __tmp60703 __tmp60701)))) (declare (not safe)) - (cons __tmp60438 '())))) + (cons __tmp60700 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60442 __tmp60437))) - (__tmp60428 - (let ((__tmp60429 - (let ((__tmp60435 + (cons __tmp60704 __tmp60699))) + (__tmp60690 + (let ((__tmp60691 + (let ((__tmp60697 (gx#datum->syntax '#f 'seed)) - (__tmp60430 - (let ((__tmp60431 + (__tmp60692 + (let ((__tmp60693 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60434 + (let ((__tmp60696 (gx#datum->syntax '#f '&raw-table-seed)) - (__tmp60432 - (let ((__tmp60433 + (__tmp60694 + (let ((__tmp60695 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60433 '())))) + (cons __tmp60695 '())))) (declare (not safe)) - (cons __tmp60434 __tmp60432)))) + (cons __tmp60696 __tmp60694)))) (declare (not safe)) - (cons __tmp60431 '())))) + (cons __tmp60693 '())))) (declare (not safe)) - (cons __tmp60435 __tmp60430)))) + (cons __tmp60697 __tmp60692)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60429 '())))) + (cons __tmp60691 '())))) (declare (not safe)) - (cons __tmp60436 __tmp60428))) - (__tmp60414 - (let ((__tmp60415 - (let ((__tmp60426 + (cons __tmp60698 __tmp60690))) + (__tmp60676 + (let ((__tmp60677 + (let ((__tmp60688 (gx#datum->syntax '#f '__table-ref)) - (__tmp60416 - (let ((__tmp60425 + (__tmp60678 + (let ((__tmp60687 (gx#datum->syntax '#f 'table)) - (__tmp60417 - (let ((__tmp60424 + (__tmp60679 + (let ((__tmp60686 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'seed)) - (__tmp60418 - (let ((__tmp60419 - (let ((__tmp60420 - (let ((__tmp60423 + (__tmp60680 + (let ((__tmp60681 + (let ((__tmp60682 + (let ((__tmp60685 (gx#datum->syntax '#f 'key)) - (__tmp60421 - (let ((__tmp60422 + (__tmp60683 + (let ((__tmp60684 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60422 '())))) + (cons __tmp60684 '())))) (declare (not safe)) - (cons __tmp60423 __tmp60421)))) + (cons __tmp60685 __tmp60683)))) (declare (not safe)) - (cons _L57680_ __tmp60420)))) + (cons _L57942_ __tmp60682)))) (declare (not safe)) - (cons _L57682_ __tmp60419)))) + (cons _L57944_ __tmp60681)))) (declare (not safe)) - (cons __tmp60424 __tmp60418)))) + (cons __tmp60686 __tmp60680)))) (declare (not safe)) - (cons __tmp60425 __tmp60417)))) + (cons __tmp60687 __tmp60679)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60426 __tmp60416)))) + (cons __tmp60688 __tmp60678)))) (declare (not safe)) - (cons __tmp60415 '())))) + (cons __tmp60677 '())))) (declare (not safe)) - (cons __tmp60427 __tmp60414)))) + (cons __tmp60689 __tmp60676)))) (declare (not safe)) - (cons __tmp60443 __tmp60413)))) + (cons __tmp60705 __tmp60675)))) (declare (not safe)) - (cons __tmp60412 '())))) + (cons __tmp60674 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60444 - __tmp60411)))) + (cons __tmp60706 + __tmp60673)))) (declare (not safe)) - (cons __tmp60451 __tmp60410))) - (__tmp60044 - (let ((__tmp60363 - (let ((__tmp60408 + (cons __tmp60713 __tmp60672))) + (__tmp60306 + (let ((__tmp60625 + (let ((__tmp60670 (gx#datum->syntax '#f 'def)) - (__tmp60364 - (let ((__tmp60401 + (__tmp60626 + (let ((__tmp60663 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60402 - (let ((__tmp60407 (gx#datum->syntax '#f 'tab)) - (__tmp60403 - (let ((__tmp60406 + (let ((__tmp60664 + (let ((__tmp60669 (gx#datum->syntax '#f 'tab)) + (__tmp60665 + (let ((__tmp60668 (gx#datum->syntax '#f 'key)) - (__tmp60404 - (let ((__tmp60405 + (__tmp60666 + (let ((__tmp60667 (gx#datum->syntax '#f 'value))) (declare (not safe)) - (cons __tmp60405 '())))) + (cons __tmp60667 '())))) (declare (not safe)) - (cons __tmp60406 __tmp60404)))) + (cons __tmp60668 __tmp60666)))) (declare (not safe)) - (cons __tmp60407 __tmp60403)))) + (cons __tmp60669 __tmp60665)))) (declare (not safe)) - (cons _L57687_ __tmp60402))) - (__tmp60365 - (let ((__tmp60374 - (let ((__tmp60400 (gx#datum->syntax '#f 'when)) - (__tmp60375 - (let ((__tmp60381 - (let ((__tmp60399 + (cons _L57949_ __tmp60664))) + (__tmp60627 + (let ((__tmp60636 + (let ((__tmp60662 (gx#datum->syntax '#f 'when)) + (__tmp60637 + (let ((__tmp60643 + (let ((__tmp60661 (gx#datum->syntax '#f 'fx<)) - (__tmp60382 - (let ((__tmp60395 - (let ((__tmp60398 + (__tmp60644 + (let ((__tmp60657 + (let ((__tmp60660 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60396 - (let ((__tmp60397 (gx#datum->syntax '#f 'tab))) + (__tmp60658 + (let ((__tmp60659 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60397 '())))) + (cons __tmp60659 '())))) (declare (not safe)) - (cons __tmp60398 __tmp60396))) - (__tmp60383 - (let ((__tmp60384 - (let ((__tmp60394 + (cons __tmp60660 __tmp60658))) + (__tmp60645 + (let ((__tmp60646 + (let ((__tmp60656 (gx#datum->syntax '#f 'fxquotient)) - (__tmp60385 - (let ((__tmp60387 - (let ((__tmp60393 + (__tmp60647 + (let ((__tmp60649 + (let ((__tmp60655 (gx#datum->syntax '#f 'vector-length)) - (__tmp60388 - (let ((__tmp60389 - (let ((__tmp60392 + (__tmp60650 + (let ((__tmp60651 + (let ((__tmp60654 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60390 - (let ((__tmp60391 + (__tmp60652 + (let ((__tmp60653 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60391 '())))) + (cons __tmp60653 '())))) (declare (not safe)) - (cons __tmp60392 __tmp60390)))) + (cons __tmp60654 __tmp60652)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60389 '())))) + (cons __tmp60651 '())))) (declare (not safe)) - (cons __tmp60393 __tmp60388))) - (__tmp60386 + (cons __tmp60655 __tmp60650))) + (__tmp60648 (let () (declare (not safe)) (cons '4 '())))) (declare (not safe)) - (cons __tmp60387 __tmp60386)))) + (cons __tmp60649 __tmp60648)))) (declare (not safe)) - (cons __tmp60394 __tmp60385)))) + (cons __tmp60656 __tmp60647)))) (declare (not safe)) - (cons __tmp60384 '())))) + (cons __tmp60646 '())))) (declare (not safe)) - (cons __tmp60395 __tmp60383)))) + (cons __tmp60657 __tmp60645)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60399 __tmp60382))) - (__tmp60376 - (let ((__tmp60377 - (let ((__tmp60380 + (cons __tmp60661 __tmp60644))) + (__tmp60638 + (let ((__tmp60639 + (let ((__tmp60642 (gx#datum->syntax '#f '__raw-table-rehash!)) - (__tmp60378 - (let ((__tmp60379 + (__tmp60640 + (let ((__tmp60641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60379 '())))) + (cons __tmp60641 '())))) (declare (not safe)) - (cons __tmp60380 __tmp60378)))) + (cons __tmp60642 __tmp60640)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60377 '())))) + (cons __tmp60639 '())))) (declare (not safe)) - (cons __tmp60381 __tmp60376)))) + (cons __tmp60643 __tmp60638)))) (declare (not safe)) - (cons __tmp60400 __tmp60375))) - (__tmp60366 - (let ((__tmp60367 - (let ((__tmp60368 - (let ((__tmp60373 + (cons __tmp60662 __tmp60637))) + (__tmp60628 + (let ((__tmp60629 + (let ((__tmp60630 + (let ((__tmp60635 (gx#datum->syntax '#f 'tab)) - (__tmp60369 - (let ((__tmp60372 + (__tmp60631 + (let ((__tmp60634 (gx#datum->syntax '#f 'key)) - (__tmp60370 - (let ((__tmp60371 + (__tmp60632 + (let ((__tmp60633 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'value))) (declare (not safe)) - (cons __tmp60371 '())))) + (cons __tmp60633 '())))) (declare (not safe)) - (cons __tmp60372 __tmp60370)))) + (cons __tmp60634 __tmp60632)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60373 __tmp60369)))) + (cons __tmp60635 __tmp60631)))) (declare (not safe)) - (cons _L57686_ __tmp60368)))) + (cons _L57948_ __tmp60630)))) (declare (not safe)) - (cons __tmp60367 '())))) + (cons __tmp60629 '())))) (declare (not safe)) - (cons __tmp60374 __tmp60366)))) + (cons __tmp60636 __tmp60628)))) (declare (not safe)) - (cons __tmp60401 __tmp60365)))) + (cons __tmp60663 __tmp60627)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60408 - __tmp60364))) - (__tmp60045 - (let ((__tmp60261 - (let ((__tmp60362 + (cons __tmp60670 + __tmp60626))) + (__tmp60307 + (let ((__tmp60523 + (let ((__tmp60624 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp60262 - (let ((__tmp60355 - (let ((__tmp60356 - (let ((__tmp60361 + (__tmp60524 + (let ((__tmp60617 + (let ((__tmp60618 + (let ((__tmp60623 (gx#datum->syntax '#f 'tab)) - (__tmp60357 - (let ((__tmp60360 + (__tmp60619 + (let ((__tmp60622 (gx#datum->syntax '#f 'key)) - (__tmp60358 - (let ((__tmp60359 + (__tmp60620 + (let ((__tmp60621 (gx#datum->syntax '#f 'value))) (declare (not safe)) - (cons __tmp60359 '())))) + (cons __tmp60621 '())))) (declare (not safe)) - (cons __tmp60360 __tmp60358)))) + (cons __tmp60622 __tmp60620)))) (declare (not safe)) - (cons __tmp60361 __tmp60357)))) + (cons __tmp60623 __tmp60619)))) (declare (not safe)) - (cons _L57686_ __tmp60356))) - (__tmp60263 - (let ((__tmp60264 - (let ((__tmp60354 + (cons _L57948_ __tmp60618))) + (__tmp60525 + (let ((__tmp60526 + (let ((__tmp60616 (gx#datum->syntax '#f 'let)) - (__tmp60265 - (let ((__tmp60338 - (let ((__tmp60347 - (let ((__tmp60353 + (__tmp60527 + (let ((__tmp60600 + (let ((__tmp60609 + (let ((__tmp60615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'table)) - (__tmp60348 - (let ((__tmp60349 - (let ((__tmp60352 + (__tmp60610 + (let ((__tmp60611 + (let ((__tmp60614 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60350 - (let ((__tmp60351 + (__tmp60612 + (let ((__tmp60613 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60351 '())))) + (cons __tmp60613 '())))) (declare (not safe)) - (cons __tmp60352 __tmp60350)))) + (cons __tmp60614 __tmp60612)))) (declare (not safe)) - (cons __tmp60349 '())))) + (cons __tmp60611 '())))) (declare (not safe)) - (cons __tmp60353 __tmp60348))) - (__tmp60339 - (let ((__tmp60340 - (let ((__tmp60346 (gx#datum->syntax '#f 'seed)) - (__tmp60341 - (let ((__tmp60342 - (let ((__tmp60345 + (cons __tmp60615 __tmp60610))) + (__tmp60601 + (let ((__tmp60602 + (let ((__tmp60608 (gx#datum->syntax '#f 'seed)) + (__tmp60603 + (let ((__tmp60604 + (let ((__tmp60607 (gx#datum->syntax '#f '&raw-table-seed)) - (__tmp60343 - (let ((__tmp60344 + (__tmp60605 + (let ((__tmp60606 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60344 '())))) + (cons __tmp60606 '())))) (declare (not safe)) - (cons __tmp60345 __tmp60343)))) + (cons __tmp60607 __tmp60605)))) (declare (not safe)) - (cons __tmp60342 '())))) + (cons __tmp60604 '())))) (declare (not safe)) - (cons __tmp60346 __tmp60341)))) + (cons __tmp60608 __tmp60603)))) (declare (not safe)) - (cons __tmp60340 '())))) + (cons __tmp60602 '())))) (declare (not safe)) - (cons __tmp60347 __tmp60339))) + (cons __tmp60609 __tmp60601))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60266 - (let ((__tmp60267 - (let ((__tmp60337 + (__tmp60528 + (let ((__tmp60529 + (let ((__tmp60599 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__table-set!)) - (__tmp60268 - (let ((__tmp60336 (gx#datum->syntax '#f 'table)) - (__tmp60269 - (let ((__tmp60335 + (__tmp60530 + (let ((__tmp60598 (gx#datum->syntax '#f 'table)) + (__tmp60531 + (let ((__tmp60597 (gx#datum->syntax '#f 'seed)) - (__tmp60270 - (let ((__tmp60271 - (let ((__tmp60272 - (let ((__tmp60334 + (__tmp60532 + (let ((__tmp60533 + (let ((__tmp60534 + (let ((__tmp60596 (gx#datum->syntax '#f 'key)) - (__tmp60273 - (let ((__tmp60333 + (__tmp60535 + (let ((__tmp60595 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'value)) - (__tmp60274 - (let ((__tmp60296 - (let ((__tmp60332 + (__tmp60536 + (let ((__tmp60558 + (let ((__tmp60594 (gx#datum->syntax '#f 'lambda)) - (__tmp60297 - (let ((__tmp60298 - (let ((__tmp60316 - (let ((__tmp60331 + (__tmp60559 + (let ((__tmp60560 + (let ((__tmp60578 + (let ((__tmp60593 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'set!)) - (__tmp60317 - (let ((__tmp60327 - (let ((__tmp60330 + (__tmp60579 + (let ((__tmp60589 + (let ((__tmp60592 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60328 - (let ((__tmp60329 + (__tmp60590 + (let ((__tmp60591 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60329 '())))) + (cons __tmp60591 '())))) (declare (not safe)) - (cons __tmp60330 __tmp60328))) - (__tmp60318 - (let ((__tmp60319 - (let ((__tmp60326 + (cons __tmp60592 __tmp60590))) + (__tmp60580 + (let ((__tmp60581 + (let ((__tmp60588 (gx#datum->syntax '#f 'fx-)) - (__tmp60320 - (let ((__tmp60322 - (let ((__tmp60325 + (__tmp60582 + (let ((__tmp60584 + (let ((__tmp60587 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60323 - (let ((__tmp60324 + (__tmp60585 + (let ((__tmp60586 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60324 '())))) + (cons __tmp60586 '())))) (declare (not safe)) - (cons __tmp60325 __tmp60323))) + (cons __tmp60587 __tmp60585))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60321 + (__tmp60583 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60322 __tmp60321)))) + (cons __tmp60584 __tmp60583)))) (declare (not safe)) - (cons __tmp60326 __tmp60320)))) + (cons __tmp60588 __tmp60582)))) (declare (not safe)) - (cons __tmp60319 '())))) + (cons __tmp60581 '())))) (declare (not safe)) - (cons __tmp60327 __tmp60318)))) + (cons __tmp60589 __tmp60580)))) (declare (not safe)) - (cons __tmp60331 __tmp60317))) - (__tmp60299 - (let ((__tmp60300 - (let ((__tmp60315 (gx#datum->syntax '#f 'set!)) - (__tmp60301 - (let ((__tmp60311 - (let ((__tmp60314 + (cons __tmp60593 __tmp60579))) + (__tmp60561 + (let ((__tmp60562 + (let ((__tmp60577 (gx#datum->syntax '#f 'set!)) + (__tmp60563 + (let ((__tmp60573 + (let ((__tmp60576 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60312 - (let ((__tmp60313 + (__tmp60574 + (let ((__tmp60575 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60313 '())))) + (cons __tmp60575 '())))) (declare (not safe)) - (cons __tmp60314 __tmp60312))) - (__tmp60302 - (let ((__tmp60303 - (let ((__tmp60310 + (cons __tmp60576 __tmp60574))) + (__tmp60564 + (let ((__tmp60565 + (let ((__tmp60572 (gx#datum->syntax '#f 'fx+)) - (__tmp60304 - (let ((__tmp60306 - (let ((__tmp60309 + (__tmp60566 + (let ((__tmp60568 + (let ((__tmp60571 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60307 - (let ((__tmp60308 (gx#datum->syntax '#f 'tab))) + (__tmp60569 + (let ((__tmp60570 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60308 '())))) + (cons __tmp60570 '())))) (declare (not safe)) - (cons __tmp60309 __tmp60307))) - (__tmp60305 (let () (declare (not safe)) (cons '1 '())))) + (cons __tmp60571 __tmp60569))) + (__tmp60567 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60306 __tmp60305)))) + (cons __tmp60568 __tmp60567)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60310 __tmp60304)))) + (cons __tmp60572 __tmp60566)))) (declare (not safe)) - (cons __tmp60303 '())))) + (cons __tmp60565 '())))) (declare (not safe)) - (cons __tmp60311 __tmp60302)))) + (cons __tmp60573 __tmp60564)))) (declare (not safe)) - (cons __tmp60315 __tmp60301)))) + (cons __tmp60577 __tmp60563)))) (declare (not safe)) - (cons __tmp60300 '())))) + (cons __tmp60562 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60316 - __tmp60299)))) + (cons __tmp60578 + __tmp60561)))) (declare (not safe)) - (cons '() __tmp60298)))) + (cons '() __tmp60560)))) (declare (not safe)) - (cons __tmp60332 __tmp60297))) - (__tmp60275 - (let ((__tmp60276 - (let ((__tmp60295 + (cons __tmp60594 __tmp60559))) + (__tmp60537 + (let ((__tmp60538 + (let ((__tmp60557 (gx#datum->syntax '#f 'lambda)) - (__tmp60277 - (let ((__tmp60278 - (let ((__tmp60279 - (let ((__tmp60294 + (__tmp60539 + (let ((__tmp60540 + (let ((__tmp60541 + (let ((__tmp60556 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'set!)) - (__tmp60280 - (let ((__tmp60290 - (let ((__tmp60293 + (__tmp60542 + (let ((__tmp60552 + (let ((__tmp60555 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60291 - (let ((__tmp60292 + (__tmp60553 + (let ((__tmp60554 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60292 '())))) + (cons __tmp60554 '())))) (declare (not safe)) - (cons __tmp60293 __tmp60291))) - (__tmp60281 - (let ((__tmp60282 - (let ((__tmp60289 + (cons __tmp60555 __tmp60553))) + (__tmp60543 + (let ((__tmp60544 + (let ((__tmp60551 (gx#datum->syntax '#f 'fx+)) - (__tmp60283 - (let ((__tmp60285 - (let ((__tmp60288 + (__tmp60545 + (let ((__tmp60547 + (let ((__tmp60550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60286 - (let ((__tmp60287 (gx#datum->syntax '#f 'tab))) + (__tmp60548 + (let ((__tmp60549 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60287 '())))) + (cons __tmp60549 '())))) (declare (not safe)) - (cons __tmp60288 __tmp60286))) - (__tmp60284 (let () (declare (not safe)) (cons '1 '())))) + (cons __tmp60550 __tmp60548))) + (__tmp60546 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60285 __tmp60284)))) + (cons __tmp60547 __tmp60546)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60289 __tmp60283)))) + (cons __tmp60551 __tmp60545)))) (declare (not safe)) - (cons __tmp60282 '())))) + (cons __tmp60544 '())))) (declare (not safe)) - (cons __tmp60290 __tmp60281)))) + (cons __tmp60552 __tmp60543)))) (declare (not safe)) - (cons __tmp60294 __tmp60280)))) + (cons __tmp60556 __tmp60542)))) (declare (not safe)) - (cons __tmp60279 '())))) + (cons __tmp60541 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp60278)))) + (cons '() __tmp60540)))) (declare (not safe)) - (cons __tmp60295 __tmp60277)))) + (cons __tmp60557 __tmp60539)))) (declare (not safe)) - (cons __tmp60276 '())))) + (cons __tmp60538 '())))) (declare (not safe)) - (cons __tmp60296 __tmp60275)))) + (cons __tmp60558 __tmp60537)))) (declare (not safe)) - (cons __tmp60333 __tmp60274)))) + (cons __tmp60595 __tmp60536)))) (declare (not safe)) - (cons __tmp60334 __tmp60273)))) + (cons __tmp60596 __tmp60535)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L57680_ __tmp60272)))) + (cons _L57942_ __tmp60534)))) (declare (not safe)) - (cons _L57682_ __tmp60271)))) + (cons _L57944_ __tmp60533)))) (declare (not safe)) - (cons __tmp60335 __tmp60270)))) + (cons __tmp60597 __tmp60532)))) (declare (not safe)) - (cons __tmp60336 __tmp60269)))) + (cons __tmp60598 __tmp60531)))) (declare (not safe)) - (cons __tmp60337 __tmp60268)))) + (cons __tmp60599 __tmp60530)))) (declare (not safe)) - (cons __tmp60267 '())))) + (cons __tmp60529 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60338 __tmp60266)))) + (cons __tmp60600 __tmp60528)))) (declare (not safe)) - (cons __tmp60354 __tmp60265)))) + (cons __tmp60616 __tmp60527)))) (declare (not safe)) - (cons __tmp60264 '())))) + (cons __tmp60526 '())))) (declare (not safe)) - (cons __tmp60355 __tmp60263)))) + (cons __tmp60617 __tmp60525)))) (declare (not safe)) - (cons __tmp60362 __tmp60262))) - (__tmp60046 - (let ((__tmp60213 - (let ((__tmp60260 (gx#datum->syntax '#f 'def)) - (__tmp60214 - (let ((__tmp60252 - (let ((__tmp60253 - (let ((__tmp60259 + (cons __tmp60624 __tmp60524))) + (__tmp60308 + (let ((__tmp60475 + (let ((__tmp60522 (gx#datum->syntax '#f 'def)) + (__tmp60476 + (let ((__tmp60514 + (let ((__tmp60515 + (let ((__tmp60521 (gx#datum->syntax '#f 'tab)) - (__tmp60254 - (let ((__tmp60258 + (__tmp60516 + (let ((__tmp60520 (gx#datum->syntax '#f 'key)) - (__tmp60255 - (let ((__tmp60256 + (__tmp60517 + (let ((__tmp60518 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60257 (gx#datum->syntax '#f 'default))) + (let ((__tmp60519 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60257 '())))) + (cons __tmp60519 '())))) (declare (not safe)) - (cons _L57685_ __tmp60256)))) + (cons _L57947_ __tmp60518)))) (declare (not safe)) - (cons __tmp60258 __tmp60255)))) + (cons __tmp60520 __tmp60517)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60259 __tmp60254)))) + (cons __tmp60521 __tmp60516)))) (declare (not safe)) - (cons _L57685_ __tmp60253))) - (__tmp60215 - (let ((__tmp60225 - (let ((__tmp60251 + (cons _L57947_ __tmp60515))) + (__tmp60477 + (let ((__tmp60487 + (let ((__tmp60513 (gx#datum->syntax '#f 'when)) - (__tmp60226 - (let ((__tmp60232 - (let ((__tmp60250 + (__tmp60488 + (let ((__tmp60494 + (let ((__tmp60512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx<)) - (__tmp60233 - (let ((__tmp60246 - (let ((__tmp60249 + (__tmp60495 + (let ((__tmp60508 + (let ((__tmp60511 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60247 - (let ((__tmp60248 + (__tmp60509 + (let ((__tmp60510 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60248 '())))) + (cons __tmp60510 '())))) (declare (not safe)) - (cons __tmp60249 __tmp60247))) - (__tmp60234 - (let ((__tmp60235 - (let ((__tmp60245 + (cons __tmp60511 __tmp60509))) + (__tmp60496 + (let ((__tmp60497 + (let ((__tmp60507 (gx#datum->syntax '#f 'fxquotient)) - (__tmp60236 - (let ((__tmp60238 - (let ((__tmp60244 + (__tmp60498 + (let ((__tmp60500 + (let ((__tmp60506 (gx#datum->syntax '#f 'vector-length)) - (__tmp60239 - (let ((__tmp60240 + (__tmp60501 + (let ((__tmp60502 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60243 + (let ((__tmp60505 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60241 - (let ((__tmp60242 + (__tmp60503 + (let ((__tmp60504 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60242 '())))) + (cons __tmp60504 '())))) (declare (not safe)) - (cons __tmp60243 __tmp60241)))) + (cons __tmp60505 __tmp60503)))) (declare (not safe)) - (cons __tmp60240 '())))) + (cons __tmp60502 '())))) (declare (not safe)) - (cons __tmp60244 __tmp60239))) - (__tmp60237 (let () (declare (not safe)) (cons '4 '())))) + (cons __tmp60506 __tmp60501))) + (__tmp60499 (let () (declare (not safe)) (cons '4 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60238 - __tmp60237)))) + (cons __tmp60500 + __tmp60499)))) (declare (not safe)) - (cons __tmp60245 __tmp60236)))) + (cons __tmp60507 __tmp60498)))) (declare (not safe)) - (cons __tmp60235 '())))) + (cons __tmp60497 '())))) (declare (not safe)) - (cons __tmp60246 __tmp60234)))) + (cons __tmp60508 __tmp60496)))) (declare (not safe)) - (cons __tmp60250 __tmp60233))) - (__tmp60227 - (let ((__tmp60228 - (let ((__tmp60231 + (cons __tmp60512 __tmp60495))) + (__tmp60489 + (let ((__tmp60490 + (let ((__tmp60493 (gx#datum->syntax '#f '__raw-table-rehash!)) - (__tmp60229 - (let ((__tmp60230 + (__tmp60491 + (let ((__tmp60492 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60230 '())))) + (cons __tmp60492 '())))) (declare (not safe)) - (cons __tmp60231 __tmp60229)))) + (cons __tmp60493 __tmp60491)))) (declare (not safe)) - (cons __tmp60228 '())))) + (cons __tmp60490 '())))) (declare (not safe)) - (cons __tmp60232 __tmp60227)))) + (cons __tmp60494 __tmp60489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60251 __tmp60226))) - (__tmp60216 - (let ((__tmp60217 - (let ((__tmp60218 - (let ((__tmp60224 + (cons __tmp60513 __tmp60488))) + (__tmp60478 + (let ((__tmp60479 + (let ((__tmp60480 + (let ((__tmp60486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab)) - (__tmp60219 - (let ((__tmp60223 (gx#datum->syntax '#f 'key)) - (__tmp60220 - (let ((__tmp60221 - (let ((__tmp60222 + (__tmp60481 + (let ((__tmp60485 (gx#datum->syntax '#f 'key)) + (__tmp60482 + (let ((__tmp60483 + (let ((__tmp60484 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60222 '())))) + (cons __tmp60484 '())))) (declare (not safe)) - (cons _L57685_ __tmp60221)))) + (cons _L57947_ __tmp60483)))) (declare (not safe)) - (cons __tmp60223 __tmp60220)))) + (cons __tmp60485 __tmp60482)))) (declare (not safe)) - (cons __tmp60224 __tmp60219)))) + (cons __tmp60486 __tmp60481)))) (declare (not safe)) - (cons _L57684_ __tmp60218)))) + (cons _L57946_ __tmp60480)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60217 '())))) + (cons __tmp60479 '())))) (declare (not safe)) - (cons __tmp60225 __tmp60216)))) + (cons __tmp60487 __tmp60478)))) (declare (not safe)) - (cons __tmp60252 __tmp60215)))) + (cons __tmp60514 __tmp60477)))) (declare (not safe)) - (cons __tmp60260 __tmp60214))) - (__tmp60047 - (let ((__tmp60109 - (let ((__tmp60212 (gx#datum->syntax '#f 'def)) - (__tmp60110 - (let ((__tmp60204 - (let ((__tmp60205 - (let ((__tmp60211 + (cons __tmp60522 __tmp60476))) + (__tmp60309 + (let ((__tmp60371 + (let ((__tmp60474 (gx#datum->syntax '#f 'def)) + (__tmp60372 + (let ((__tmp60466 + (let ((__tmp60467 + (let ((__tmp60473 (gx#datum->syntax '#f 'tab)) - (__tmp60206 - (let ((__tmp60210 + (__tmp60468 + (let ((__tmp60472 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'key)) - (__tmp60207 - (let ((__tmp60208 - (let ((__tmp60209 + (__tmp60469 + (let ((__tmp60470 + (let ((__tmp60471 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp60209 '())))) + (cons __tmp60471 '())))) (declare (not safe)) - (cons _L57685_ __tmp60208)))) + (cons _L57947_ __tmp60470)))) (declare (not safe)) - (cons __tmp60210 __tmp60207)))) + (cons __tmp60472 __tmp60469)))) (declare (not safe)) - (cons __tmp60211 __tmp60206)))) + (cons __tmp60473 __tmp60468)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L57684_ __tmp60205))) - (__tmp60111 - (let ((__tmp60112 - (let ((__tmp60203 + (cons _L57946_ __tmp60467))) + (__tmp60373 + (let ((__tmp60374 + (let ((__tmp60465 (gx#datum->syntax '#f 'let)) - (__tmp60113 - (let ((__tmp60187 + (__tmp60375 + (let ((__tmp60449 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60196 - (let ((__tmp60202 + (let ((__tmp60458 + (let ((__tmp60464 (gx#datum->syntax '#f 'table)) - (__tmp60197 - (let ((__tmp60198 - (let ((__tmp60201 + (__tmp60459 + (let ((__tmp60460 + (let ((__tmp60463 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60199 - (let ((__tmp60200 + (__tmp60461 + (let ((__tmp60462 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60200 + (cons __tmp60462 '())))) (declare (not safe)) - (cons __tmp60201 - __tmp60199)))) + (cons __tmp60463 + __tmp60461)))) (declare (not safe)) - (cons __tmp60198 '())))) + (cons __tmp60460 '())))) (declare (not safe)) - (cons __tmp60202 __tmp60197))) - (__tmp60188 - (let ((__tmp60189 - (let ((__tmp60195 + (cons __tmp60464 __tmp60459))) + (__tmp60450 + (let ((__tmp60451 + (let ((__tmp60457 (gx#datum->syntax '#f 'seed)) - (__tmp60190 - (let ((__tmp60191 - (let ((__tmp60194 + (__tmp60452 + (let ((__tmp60453 + (let ((__tmp60456 (gx#datum->syntax '#f '&raw-table-seed)) - (__tmp60192 - (let ((__tmp60193 + (__tmp60454 + (let ((__tmp60455 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60193 '())))) + (cons __tmp60455 '())))) (declare (not safe)) - (cons __tmp60194 __tmp60192)))) + (cons __tmp60456 __tmp60454)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60191 '())))) + (cons __tmp60453 '())))) (declare (not safe)) - (cons __tmp60195 __tmp60190)))) + (cons __tmp60457 __tmp60452)))) (declare (not safe)) - (cons __tmp60189 '())))) + (cons __tmp60451 '())))) (declare (not safe)) - (cons __tmp60196 __tmp60188))) - (__tmp60114 - (let ((__tmp60115 - (let ((__tmp60186 + (cons __tmp60458 __tmp60450))) + (__tmp60376 + (let ((__tmp60377 + (let ((__tmp60448 (gx#datum->syntax '#f '__table-update!)) - (__tmp60116 - (let ((__tmp60185 + (__tmp60378 + (let ((__tmp60447 (gx#datum->syntax '#f 'table)) - (__tmp60117 - (let ((__tmp60184 + (__tmp60379 + (let ((__tmp60446 (gx#datum->syntax '#f 'seed)) - (__tmp60118 - (let ((__tmp60119 - (let ((__tmp60120 + (__tmp60380 + (let ((__tmp60381 + (let ((__tmp60382 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60183 (gx#datum->syntax '#f 'key)) - (__tmp60121 - (let ((__tmp60122 - (let ((__tmp60182 + (let ((__tmp60445 (gx#datum->syntax '#f 'key)) + (__tmp60383 + (let ((__tmp60384 + (let ((__tmp60444 (gx#datum->syntax '#f 'default)) - (__tmp60123 - (let ((__tmp60145 - (let ((__tmp60181 + (__tmp60385 + (let ((__tmp60407 + (let ((__tmp60443 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda)) - (__tmp60146 - (let ((__tmp60147 - (let ((__tmp60165 - (let ((__tmp60180 + (__tmp60408 + (let ((__tmp60409 + (let ((__tmp60427 + (let ((__tmp60442 (gx#datum->syntax '#f 'set!)) - (__tmp60166 - (let ((__tmp60176 - (let ((__tmp60179 + (__tmp60428 + (let ((__tmp60438 + (let ((__tmp60441 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60177 - (let ((__tmp60178 + (__tmp60439 + (let ((__tmp60440 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60178 '())))) + (cons __tmp60440 '())))) (declare (not safe)) - (cons __tmp60179 __tmp60177))) + (cons __tmp60441 __tmp60439))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60167 - (let ((__tmp60168 - (let ((__tmp60175 + (__tmp60429 + (let ((__tmp60430 + (let ((__tmp60437 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx-)) - (__tmp60169 - (let ((__tmp60171 - (let ((__tmp60174 + (__tmp60431 + (let ((__tmp60433 + (let ((__tmp60436 (gx#datum->syntax '#f '&raw-table-free)) - (__tmp60172 - (let ((__tmp60173 + (__tmp60434 + (let ((__tmp60435 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60173 '())))) + (cons __tmp60435 '())))) (declare (not safe)) - (cons __tmp60174 __tmp60172))) - (__tmp60170 + (cons __tmp60436 __tmp60434))) + (__tmp60432 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60171 __tmp60170)))) + (cons __tmp60433 __tmp60432)))) (declare (not safe)) - (cons __tmp60175 __tmp60169)))) + (cons __tmp60437 __tmp60431)))) (declare (not safe)) - (cons __tmp60168 '())))) + (cons __tmp60430 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60176 __tmp60167)))) + (cons __tmp60438 __tmp60429)))) (declare (not safe)) - (cons __tmp60180 __tmp60166))) - (__tmp60148 - (let ((__tmp60149 - (let ((__tmp60164 + (cons __tmp60442 __tmp60428))) + (__tmp60410 + (let ((__tmp60411 + (let ((__tmp60426 (gx#datum->syntax '#f 'set!)) - (__tmp60150 - (let ((__tmp60160 - (let ((__tmp60163 + (__tmp60412 + (let ((__tmp60422 + (let ((__tmp60425 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60161 - (let ((__tmp60162 (gx#datum->syntax '#f 'tab))) + (__tmp60423 + (let ((__tmp60424 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60162 '())))) + (cons __tmp60424 '())))) (declare (not safe)) - (cons __tmp60163 __tmp60161))) - (__tmp60151 - (let ((__tmp60152 - (let ((__tmp60159 (gx#datum->syntax '#f 'fx+)) - (__tmp60153 - (let ((__tmp60155 - (let ((__tmp60158 + (cons __tmp60425 __tmp60423))) + (__tmp60413 + (let ((__tmp60414 + (let ((__tmp60421 (gx#datum->syntax '#f 'fx+)) + (__tmp60415 + (let ((__tmp60417 + (let ((__tmp60420 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60156 - (let ((__tmp60157 + (__tmp60418 + (let ((__tmp60419 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60157 '())))) + (cons __tmp60419 '())))) (declare (not safe)) - (cons __tmp60158 __tmp60156))) - (__tmp60154 + (cons __tmp60420 __tmp60418))) + (__tmp60416 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60155 __tmp60154)))) + (cons __tmp60417 __tmp60416)))) (declare (not safe)) - (cons __tmp60159 __tmp60153)))) + (cons __tmp60421 __tmp60415)))) (declare (not safe)) - (cons __tmp60152 '())))) + (cons __tmp60414 '())))) (declare (not safe)) - (cons __tmp60160 __tmp60151)))) + (cons __tmp60422 __tmp60413)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60164 __tmp60150)))) + (cons __tmp60426 __tmp60412)))) (declare (not safe)) - (cons __tmp60149 '())))) + (cons __tmp60411 '())))) (declare (not safe)) - (cons __tmp60165 __tmp60148)))) + (cons __tmp60427 __tmp60410)))) (declare (not safe)) - (cons '() __tmp60147)))) + (cons '() __tmp60409)))) (declare (not safe)) - (cons __tmp60181 __tmp60146))) - (__tmp60124 - (let ((__tmp60125 - (let ((__tmp60144 (gx#datum->syntax '#f 'lambda)) - (__tmp60126 - (let ((__tmp60127 - (let ((__tmp60128 - (let ((__tmp60143 + (cons __tmp60443 __tmp60408))) + (__tmp60386 + (let ((__tmp60387 + (let ((__tmp60406 (gx#datum->syntax '#f 'lambda)) + (__tmp60388 + (let ((__tmp60389 + (let ((__tmp60390 + (let ((__tmp60405 (gx#datum->syntax '#f 'set!)) - (__tmp60129 - (let ((__tmp60139 - (let ((__tmp60142 + (__tmp60391 + (let ((__tmp60401 + (let ((__tmp60404 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60140 - (let ((__tmp60141 (gx#datum->syntax '#f 'tab))) + (__tmp60402 + (let ((__tmp60403 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60141 '())))) + (cons __tmp60403 '())))) (declare (not safe)) - (cons __tmp60142 __tmp60140))) - (__tmp60130 - (let ((__tmp60131 - (let ((__tmp60138 (gx#datum->syntax '#f 'fx+)) - (__tmp60132 - (let ((__tmp60134 - (let ((__tmp60137 + (cons __tmp60404 __tmp60402))) + (__tmp60392 + (let ((__tmp60393 + (let ((__tmp60400 (gx#datum->syntax '#f 'fx+)) + (__tmp60394 + (let ((__tmp60396 + (let ((__tmp60399 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60135 - (let ((__tmp60136 + (__tmp60397 + (let ((__tmp60398 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60136 '())))) + (cons __tmp60398 '())))) (declare (not safe)) - (cons __tmp60137 __tmp60135))) - (__tmp60133 + (cons __tmp60399 __tmp60397))) + (__tmp60395 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60134 __tmp60133)))) + (cons __tmp60396 __tmp60395)))) (declare (not safe)) - (cons __tmp60138 __tmp60132)))) + (cons __tmp60400 __tmp60394)))) (declare (not safe)) - (cons __tmp60131 '())))) + (cons __tmp60393 '())))) (declare (not safe)) - (cons __tmp60139 __tmp60130)))) + (cons __tmp60401 __tmp60392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60143 __tmp60129)))) + (cons __tmp60405 __tmp60391)))) (declare (not safe)) - (cons __tmp60128 '())))) + (cons __tmp60390 '())))) (declare (not safe)) - (cons '() __tmp60127)))) + (cons '() __tmp60389)))) (declare (not safe)) - (cons __tmp60144 __tmp60126)))) + (cons __tmp60406 __tmp60388)))) (declare (not safe)) - (cons __tmp60125 '())))) + (cons __tmp60387 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60145 - __tmp60124)))) + (cons __tmp60407 + __tmp60386)))) (declare (not safe)) - (cons __tmp60182 __tmp60123)))) + (cons __tmp60444 __tmp60385)))) (declare (not safe)) - (cons _L57685_ __tmp60122)))) + (cons _L57947_ __tmp60384)))) (declare (not safe)) - (cons __tmp60183 __tmp60121)))) + (cons __tmp60445 __tmp60383)))) (declare (not safe)) - (cons _L57680_ __tmp60120)))) + (cons _L57942_ __tmp60382)))) (declare (not safe)) - (cons _L57682_ __tmp60119)))) + (cons _L57944_ __tmp60381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60184 - __tmp60118)))) + (cons __tmp60446 + __tmp60380)))) (declare (not safe)) - (cons __tmp60185 __tmp60117)))) + (cons __tmp60447 __tmp60379)))) (declare (not safe)) - (cons __tmp60186 __tmp60116)))) + (cons __tmp60448 __tmp60378)))) (declare (not safe)) - (cons __tmp60115 '())))) + (cons __tmp60377 '())))) (declare (not safe)) - (cons __tmp60187 __tmp60114)))) + (cons __tmp60449 __tmp60376)))) (declare (not safe)) - (cons __tmp60203 __tmp60113)))) + (cons __tmp60465 __tmp60375)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60112 '())))) + (cons __tmp60374 '())))) (declare (not safe)) - (cons __tmp60204 __tmp60111)))) + (cons __tmp60466 __tmp60373)))) (declare (not safe)) - (cons __tmp60212 __tmp60110))) - (__tmp60048 - (let ((__tmp60049 - (let ((__tmp60108 + (cons __tmp60474 __tmp60372))) + (__tmp60310 + (let ((__tmp60311 + (let ((__tmp60370 (gx#datum->syntax '#f 'def)) - (__tmp60050 - (let ((__tmp60103 - (let ((__tmp60104 - (let ((__tmp60107 + (__tmp60312 + (let ((__tmp60365 + (let ((__tmp60366 + (let ((__tmp60369 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab)) - (__tmp60105 - (let ((__tmp60106 (gx#datum->syntax '#f 'key))) + (__tmp60367 + (let ((__tmp60368 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp60106 '())))) + (cons __tmp60368 '())))) (declare (not safe)) - (cons __tmp60107 __tmp60105)))) + (cons __tmp60369 __tmp60367)))) (declare (not safe)) - (cons _L57683_ __tmp60104))) + (cons _L57945_ __tmp60366))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60051 - (let ((__tmp60052 - (let ((__tmp60102 + (__tmp60313 + (let ((__tmp60314 + (let ((__tmp60364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp60053 - (let ((__tmp60086 - (let ((__tmp60095 - (let ((__tmp60101 + (__tmp60315 + (let ((__tmp60348 + (let ((__tmp60357 + (let ((__tmp60363 (gx#datum->syntax '#f 'table)) - (__tmp60096 - (let ((__tmp60097 - (let ((__tmp60100 + (__tmp60358 + (let ((__tmp60359 + (let ((__tmp60362 (gx#datum->syntax '#f '&raw-table-table)) - (__tmp60098 - (let ((__tmp60099 + (__tmp60360 + (let ((__tmp60361 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60099 '())))) + (cons __tmp60361 '())))) (declare (not safe)) - (cons __tmp60100 __tmp60098)))) + (cons __tmp60362 __tmp60360)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60097 '())))) + (cons __tmp60359 '())))) (declare (not safe)) - (cons __tmp60101 __tmp60096))) - (__tmp60087 - (let ((__tmp60088 - (let ((__tmp60094 + (cons __tmp60363 __tmp60358))) + (__tmp60349 + (let ((__tmp60350 + (let ((__tmp60356 (gx#datum->syntax '#f 'seed)) - (__tmp60089 - (let ((__tmp60090 - (let ((__tmp60093 + (__tmp60351 + (let ((__tmp60352 + (let ((__tmp60355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&raw-table-seed)) - (__tmp60091 - (let ((__tmp60092 (gx#datum->syntax '#f 'tab))) + (__tmp60353 + (let ((__tmp60354 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60092 '())))) + (cons __tmp60354 '())))) (declare (not safe)) - (cons __tmp60093 __tmp60091)))) + (cons __tmp60355 __tmp60353)))) (declare (not safe)) - (cons __tmp60090 '())))) + (cons __tmp60352 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60094 - __tmp60089)))) + (cons __tmp60356 + __tmp60351)))) (declare (not safe)) - (cons __tmp60088 '())))) + (cons __tmp60350 '())))) (declare (not safe)) - (cons __tmp60095 __tmp60087))) - (__tmp60054 - (let ((__tmp60055 - (let ((__tmp60085 + (cons __tmp60357 __tmp60349))) + (__tmp60316 + (let ((__tmp60317 + (let ((__tmp60347 (gx#datum->syntax '#f '__table-del!)) - (__tmp60056 - (let ((__tmp60084 + (__tmp60318 + (let ((__tmp60346 (gx#datum->syntax '#f 'table)) - (__tmp60057 - (let ((__tmp60083 + (__tmp60319 + (let ((__tmp60345 (gx#datum->syntax '#f 'seed)) - (__tmp60058 - (let ((__tmp60059 + (__tmp60320 + (let ((__tmp60321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60060 - (let ((__tmp60082 + (let ((__tmp60322 + (let ((__tmp60344 (gx#datum->syntax '#f 'key)) - (__tmp60061 - (let ((__tmp60062 - (let ((__tmp60081 + (__tmp60323 + (let ((__tmp60324 + (let ((__tmp60343 (gx#datum->syntax '#f 'lambda)) - (__tmp60063 - (let ((__tmp60064 - (let ((__tmp60065 + (__tmp60325 + (let ((__tmp60326 + (let ((__tmp60327 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60080 (gx#datum->syntax '#f 'set!)) - (__tmp60066 - (let ((__tmp60076 - (let ((__tmp60079 + (let ((__tmp60342 (gx#datum->syntax '#f 'set!)) + (__tmp60328 + (let ((__tmp60338 + (let ((__tmp60341 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60077 - (let ((__tmp60078 + (__tmp60339 + (let ((__tmp60340 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60078 '())))) + (cons __tmp60340 '())))) (declare (not safe)) - (cons __tmp60079 __tmp60077))) - (__tmp60067 - (let ((__tmp60068 - (let ((__tmp60075 + (cons __tmp60341 __tmp60339))) + (__tmp60329 + (let ((__tmp60330 + (let ((__tmp60337 (gx#datum->syntax '#f 'fx-)) - (__tmp60069 - (let ((__tmp60071 + (__tmp60331 + (let ((__tmp60333 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60074 + (let ((__tmp60336 (gx#datum->syntax '#f '&raw-table-count)) - (__tmp60072 - (let ((__tmp60073 + (__tmp60334 + (let ((__tmp60335 (gx#datum->syntax '#f 'tab))) (declare (not safe)) - (cons __tmp60073 '())))) + (cons __tmp60335 '())))) (declare (not safe)) - (cons __tmp60074 __tmp60072))) - (__tmp60070 + (cons __tmp60336 __tmp60334))) + (__tmp60332 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60071 __tmp60070)))) + (cons __tmp60333 __tmp60332)))) (declare (not safe)) - (cons __tmp60075 __tmp60069)))) + (cons __tmp60337 __tmp60331)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60068 '())))) + (cons __tmp60330 '())))) (declare (not safe)) - (cons __tmp60076 __tmp60067)))) + (cons __tmp60338 __tmp60329)))) (declare (not safe)) - (cons __tmp60080 __tmp60066)))) + (cons __tmp60342 __tmp60328)))) (declare (not safe)) - (cons __tmp60065 '())))) + (cons __tmp60327 '())))) (declare (not safe)) - (cons '() __tmp60064)))) + (cons '() __tmp60326)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60081 - __tmp60063)))) + (cons __tmp60343 + __tmp60325)))) (declare (not safe)) - (cons __tmp60062 '())))) + (cons __tmp60324 '())))) (declare (not safe)) - (cons __tmp60082 __tmp60061)))) + (cons __tmp60344 __tmp60323)))) (declare (not safe)) - (cons _L57680_ __tmp60060)))) + (cons _L57942_ __tmp60322)))) (declare (not safe)) - (cons _L57682_ __tmp60059)))) + (cons _L57944_ __tmp60321)))) (declare (not safe)) - (cons __tmp60083 __tmp60058)))) + (cons __tmp60345 __tmp60320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60084 - __tmp60057)))) + (cons __tmp60346 + __tmp60319)))) (declare (not safe)) - (cons __tmp60085 __tmp60056)))) + (cons __tmp60347 __tmp60318)))) (declare (not safe)) - (cons __tmp60055 '())))) + (cons __tmp60317 '())))) (declare (not safe)) - (cons __tmp60086 __tmp60054)))) + (cons __tmp60348 __tmp60316)))) (declare (not safe)) - (cons __tmp60102 __tmp60053)))) + (cons __tmp60364 __tmp60315)))) (declare (not safe)) - (cons __tmp60052 '())))) + (cons __tmp60314 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60103 __tmp60051)))) + (cons __tmp60365 __tmp60313)))) (declare (not safe)) - (cons __tmp60108 __tmp60050)))) + (cons __tmp60370 __tmp60312)))) (declare (not safe)) - (cons __tmp60049 '())))) + (cons __tmp60311 '())))) (declare (not safe)) - (cons __tmp60109 __tmp60048)))) + (cons __tmp60371 __tmp60310)))) (declare (not safe)) - (cons __tmp60213 __tmp60047)))) + (cons __tmp60475 __tmp60309)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60261 - __tmp60046)))) + (cons __tmp60523 + __tmp60308)))) (declare (not safe)) - (cons __tmp60363 __tmp60045)))) + (cons __tmp60625 __tmp60307)))) (declare (not safe)) - (cons __tmp60409 __tmp60044)))) + (cons __tmp60671 __tmp60306)))) (declare (not safe)) - (cons __tmp60452 __tmp60043)))) + (cons __tmp60714 __tmp60305)))) (declare (not safe)) - (cons __tmp60473 __tmp60042))) - _hd5756657674_ - _hd5756357664_ - _hd5756057654_ - _hd5755757644_ - _hd5755457634_ - _hd5755157624_ - _hd5754857614_ - _hd5754557604_ - _hd5754257594_) - (_g5752757573_ _g5752857577_)))) + (cons __tmp60735 __tmp60304))) + _hd5782857936_ + _hd5782557926_ + _hd5782257916_ + _hd5781957906_ + _hd5781657896_ + _hd5781357886_ + _hd5781057876_ + _hd5780757866_ + _hd5780457856_) + (_g5778957835_ _g5779057839_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5752757573_ - _g5752857577_)))) - (_g5752757573_ _g5752857577_)))) - (_g5752757573_ _g5752857577_)))) - (_g5752757573_ _g5752857577_)))) - (_g5752757573_ _g5752857577_)))) + (_g5778957835_ + _g5779057839_)))) + (_g5778957835_ _g5779057839_)))) + (_g5778957835_ _g5779057839_)))) + (_g5778957835_ _g5779057839_)))) + (_g5778957835_ _g5779057839_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5752757573_ - _g5752857577_)))) - (_g5752757573_ _g5752857577_)))) - (_g5752757573_ _g5752857577_)))) - (_g5752757573_ _g5752857577_)))) - (_g5752757573_ _g5752857577_))))) - (_g5752657726_ _$stx57523_)))) + (_g5778957835_ + _g5779057839_)))) + (_g5778957835_ _g5779057839_)))) + (_g5778957835_ _g5779057839_)))) + (_g5778957835_ _g5779057839_)))) + (_g5778957835_ _g5779057839_))))) + (_g5778857988_ _$stx57785_)))) (define |[:0:]#probe-step| - (lambda (_$stx57730_) - (let* ((_g5773457756_ - (lambda (_g5773557752_) + (lambda (_$stx57992_) + (let* ((_g5799658018_ + (lambda (_g5799758014_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5773557752_))) - (_g5773357825_ - (lambda (_g5773557760_) - (if (gx#stx-pair? _g5773557760_) - (let ((_e5774157763_ (gx#syntax-e _g5773557760_))) - (let ((_hd5774057767_ + _g5799758014_))) + (_g5799558087_ + (lambda (_g5799758022_) + (if (gx#stx-pair? _g5799758022_) + (let ((_e5800358025_ (gx#syntax-e _g5799758022_))) + (let ((_hd5800258029_ (let () (declare (not safe)) - (##car _e5774157763_))) - (_tl5773957770_ + (##car _e5800358025_))) + (_tl5800158032_ (let () (declare (not safe)) - (##cdr _e5774157763_)))) - (if (gx#stx-pair? _tl5773957770_) - (let ((_e5774457773_ (gx#syntax-e _tl5773957770_))) - (let ((_hd5774357777_ + (##cdr _e5800358025_)))) + (if (gx#stx-pair? _tl5800158032_) + (let ((_e5800658035_ (gx#syntax-e _tl5800158032_))) + (let ((_hd5800558039_ (let () (declare (not safe)) - (##car _e5774457773_))) - (_tl5774257780_ + (##car _e5800658035_))) + (_tl5800458042_ (let () (declare (not safe)) - (##cdr _e5774457773_)))) - (if (gx#stx-pair? _tl5774257780_) - (let ((_e5774757783_ - (gx#syntax-e _tl5774257780_))) - (let ((_hd5774657787_ + (##cdr _e5800658035_)))) + (if (gx#stx-pair? _tl5800458042_) + (let ((_e5800958045_ + (gx#syntax-e _tl5800458042_))) + (let ((_hd5800858049_ (let () (declare (not safe)) - (##car _e5774757783_))) - (_tl5774557790_ + (##car _e5800958045_))) + (_tl5800758052_ (let () (declare (not safe)) - (##cdr _e5774757783_)))) - (if (gx#stx-pair? _tl5774557790_) - (let ((_e5775057793_ + (##cdr _e5800958045_)))) + (if (gx#stx-pair? _tl5800758052_) + (let ((_e5801258055_ (gx#syntax-e - _tl5774557790_))) - (let ((_hd5774957797_ + _tl5800758052_))) + (let ((_hd5801158059_ (let () (declare (not safe)) - (##car _e5775057793_))) - (_tl5774857800_ + (##car _e5801258055_))) + (_tl5801058062_ (let () (declare (not safe)) - (##cdr _e5775057793_)))) + (##cdr _e5801258055_)))) (if (gx#stx-null? - _tl5774857800_) - ((lambda (_L57803_ - _L57805_ - _L57806_) - (let ((__tmp60493 + _tl5801058062_) + ((lambda (_L58065_ + _L58067_ + _L58068_) + (let ((__tmp60755 (gx#datum->syntax '#f 'let)) - (__tmp60474 - (let ((__tmp60481 + (__tmp60736 + (let ((__tmp60743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60492 + (let ((__tmp60754 (gx#datum->syntax '#f 'next-probe)) - (__tmp60482 - (let ((__tmp60483 - (let ((__tmp60491 + (__tmp60744 + (let ((__tmp60745 + (let ((__tmp60753 (gx#datum->syntax '#f 'fx+)) - (__tmp60484 - (let ((__tmp60485 - (let ((__tmp60486 - (let ((__tmp60487 + (__tmp60746 + (let ((__tmp60747 + (let ((__tmp60748 + (let ((__tmp60749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60490 (gx#datum->syntax '#f 'fx*)) - (__tmp60488 - (let ((__tmp60489 + (let ((__tmp60752 (gx#datum->syntax '#f 'fx*)) + (__tmp60750 + (let ((__tmp60751 (let () (declare (not safe)) - (cons _L57805_ '())))) + (cons _L58067_ '())))) (declare (not safe)) - (cons _L57805_ __tmp60489)))) + (cons _L58067_ __tmp60751)))) (declare (not safe)) - (cons __tmp60490 __tmp60488)))) + (cons __tmp60752 __tmp60750)))) (declare (not safe)) - (cons __tmp60487 '())))) + (cons __tmp60749 '())))) (declare (not safe)) - (cons _L57805_ __tmp60486)))) + (cons _L58067_ __tmp60748)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L57806_ - __tmp60485)))) + (cons _L58068_ + __tmp60747)))) (declare (not safe)) - (cons __tmp60491 __tmp60484)))) + (cons __tmp60753 __tmp60746)))) (declare (not safe)) - (cons __tmp60483 '())))) + (cons __tmp60745 '())))) (declare (not safe)) - (cons __tmp60492 __tmp60482))) - (__tmp60475 - (let ((__tmp60476 - (let ((__tmp60480 + (cons __tmp60754 __tmp60744))) + (__tmp60737 + (let ((__tmp60738 + (let ((__tmp60742 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp60477 - (let ((__tmp60479 + (__tmp60739 + (let ((__tmp60741 (gx#datum->syntax '#f 'next-probe)) - (__tmp60478 + (__tmp60740 (let () (declare (not safe)) - (cons _L57803_ '())))) + (cons _L58065_ '())))) (declare (not safe)) - (cons __tmp60479 __tmp60478)))) + (cons __tmp60741 __tmp60740)))) (declare (not safe)) - (cons __tmp60480 __tmp60477)))) + (cons __tmp60742 __tmp60739)))) (declare (not safe)) - (cons __tmp60476 '())))) + (cons __tmp60738 '())))) (declare (not safe)) - (cons __tmp60481 __tmp60475)))) + (cons __tmp60743 __tmp60737)))) (declare (not safe)) - (cons __tmp60493 __tmp60474))) + (cons __tmp60755 __tmp60736))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd5774957797_ - _hd5774657787_ - _hd5774357777_) - (_g5773457756_ - _g5773557760_)))) - (_g5773457756_ _g5773557760_)))) - (_g5773457756_ _g5773557760_)))) - (_g5773457756_ _g5773557760_)))) - (_g5773457756_ _g5773557760_))))) - (_g5773357825_ _$stx57730_)))) + _hd5801158059_ + _hd5800858049_ + _hd5800558039_) + (_g5799658018_ + _g5799758022_)))) + (_g5799658018_ _g5799758022_)))) + (_g5799658018_ _g5799758022_)))) + (_g5799658018_ _g5799758022_)))) + (_g5799658018_ _g5799758022_))))) + (_g5799558087_ _$stx57992_)))) (define |[:0:]#__table-ref| - (lambda (_$stx57829_) - (let* ((_g5783357867_ - (lambda (_g5783457863_) + (lambda (_$stx58091_) + (let* ((_g5809558129_ + (lambda (_g5809658125_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5783457863_))) - (_g5783257978_ - (lambda (_g5783457871_) - (if (gx#stx-pair? _g5783457871_) - (let ((_e5784357874_ (gx#syntax-e _g5783457871_))) - (let ((_hd5784257878_ + _g5809658125_))) + (_g5809458240_ + (lambda (_g5809658133_) + (if (gx#stx-pair? _g5809658133_) + (let ((_e5810558136_ (gx#syntax-e _g5809658133_))) + (let ((_hd5810458140_ (let () (declare (not safe)) - (##car _e5784357874_))) - (_tl5784157881_ + (##car _e5810558136_))) + (_tl5810358143_ (let () (declare (not safe)) - (##cdr _e5784357874_)))) - (if (gx#stx-pair? _tl5784157881_) - (let ((_e5784657884_ (gx#syntax-e _tl5784157881_))) - (let ((_hd5784557888_ + (##cdr _e5810558136_)))) + (if (gx#stx-pair? _tl5810358143_) + (let ((_e5810858146_ (gx#syntax-e _tl5810358143_))) + (let ((_hd5810758150_ (let () (declare (not safe)) - (##car _e5784657884_))) - (_tl5784457891_ + (##car _e5810858146_))) + (_tl5810658153_ (let () (declare (not safe)) - (##cdr _e5784657884_)))) - (if (gx#stx-pair? _tl5784457891_) - (let ((_e5784957894_ - (gx#syntax-e _tl5784457891_))) - (let ((_hd5784857898_ + (##cdr _e5810858146_)))) + (if (gx#stx-pair? _tl5810658153_) + (let ((_e5811158156_ + (gx#syntax-e _tl5810658153_))) + (let ((_hd5811058160_ (let () (declare (not safe)) - (##car _e5784957894_))) - (_tl5784757901_ + (##car _e5811158156_))) + (_tl5810958163_ (let () (declare (not safe)) - (##cdr _e5784957894_)))) - (if (gx#stx-pair? _tl5784757901_) - (let ((_e5785257904_ + (##cdr _e5811158156_)))) + (if (gx#stx-pair? _tl5810958163_) + (let ((_e5811458166_ (gx#syntax-e - _tl5784757901_))) - (let ((_hd5785157908_ + _tl5810958163_))) + (let ((_hd5811358170_ (let () (declare (not safe)) - (##car _e5785257904_))) - (_tl5785057911_ + (##car _e5811458166_))) + (_tl5811258173_ (let () (declare (not safe)) - (##cdr _e5785257904_)))) + (##cdr _e5811458166_)))) (if (gx#stx-pair? - _tl5785057911_) - (let ((_e5785557914_ + _tl5811258173_) + (let ((_e5811758176_ (gx#syntax-e - _tl5785057911_))) - (let ((_hd5785457918_ + _tl5811258173_))) + (let ((_hd5811658180_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e5785557914_))) - (_tl5785357921_ - (let () (declare (not safe)) (##cdr _e5785557914_)))) - (if (gx#stx-pair? _tl5785357921_) - (let ((_e5785857924_ (gx#syntax-e _tl5785357921_))) - (let ((_hd5785757928_ + (##car _e5811758176_))) + (_tl5811558183_ + (let () (declare (not safe)) (##cdr _e5811758176_)))) + (if (gx#stx-pair? _tl5811558183_) + (let ((_e5812058186_ (gx#syntax-e _tl5811558183_))) + (let ((_hd5811958190_ (let () (declare (not safe)) - (##car _e5785857924_))) - (_tl5785657931_ + (##car _e5812058186_))) + (_tl5811858193_ (let () (declare (not safe)) - (##cdr _e5785857924_)))) - (if (gx#stx-pair? _tl5785657931_) - (let ((_e5786157934_ (gx#syntax-e _tl5785657931_))) - (let ((_hd5786057938_ + (##cdr _e5812058186_)))) + (if (gx#stx-pair? _tl5811858193_) + (let ((_e5812358196_ (gx#syntax-e _tl5811858193_))) + (let ((_hd5812258200_ (let () (declare (not safe)) - (##car _e5786157934_))) - (_tl5785957941_ + (##car _e5812358196_))) + (_tl5812158203_ (let () (declare (not safe)) - (##cdr _e5786157934_)))) - (if (gx#stx-null? _tl5785957941_) - ((lambda (_L57944_ - _L57946_ - _L57947_ - _L57948_ - _L57949_ - _L57950_) - (let ((__tmp60652 + (##cdr _e5812358196_)))) + (if (gx#stx-null? _tl5812158203_) + ((lambda (_L58206_ + _L58208_ + _L58209_ + _L58210_ + _L58211_ + _L58212_) + (let ((__tmp60914 (gx#datum->syntax '#f 'let*)) - (__tmp60494 - (let ((__tmp60612 - (let ((__tmp60643 - (let ((__tmp60651 + (__tmp60756 + (let ((__tmp60874 + (let ((__tmp60905 + (let ((__tmp60913 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp60644 - (let ((__tmp60645 - (let ((__tmp60650 + (__tmp60906 + (let ((__tmp60907 + (let ((__tmp60912 (gx#datum->syntax '#f 'fxxor)) - (__tmp60646 - (let ((__tmp60648 - (let ((__tmp60649 + (__tmp60908 + (let ((__tmp60910 + (let ((__tmp60911 (let () (declare (not safe)) - (cons _L57946_ '())))) + (cons _L58208_ '())))) (declare (not safe)) - (cons _L57948_ __tmp60649))) - (__tmp60647 + (cons _L58210_ __tmp60911))) + (__tmp60909 (let () (declare (not safe)) - (cons _L57949_ '())))) + (cons _L58211_ '())))) (declare (not safe)) - (cons __tmp60648 __tmp60647)))) + (cons __tmp60910 __tmp60909)))) (declare (not safe)) - (cons __tmp60650 __tmp60646)))) + (cons __tmp60912 __tmp60908)))) (declare (not safe)) - (cons __tmp60645 '())))) + (cons __tmp60907 '())))) (declare (not safe)) - (cons __tmp60651 __tmp60644))) - (__tmp60613 - (let ((__tmp60637 - (let ((__tmp60642 (gx#datum->syntax '#f 'size)) - (__tmp60638 - (let ((__tmp60639 - (let ((__tmp60641 + (cons __tmp60913 __tmp60906))) + (__tmp60875 + (let ((__tmp60899 + (let ((__tmp60904 (gx#datum->syntax '#f 'size)) + (__tmp60900 + (let ((__tmp60901 + (let ((__tmp60903 (gx#datum->syntax '#f 'vector-length)) - (__tmp60640 + (__tmp60902 (let () (declare (not safe)) - (cons _L57950_ '())))) + (cons _L58212_ '())))) (declare (not safe)) - (cons __tmp60641 __tmp60640)))) + (cons __tmp60903 __tmp60902)))) (declare (not safe)) - (cons __tmp60639 '())))) + (cons __tmp60901 '())))) (declare (not safe)) - (cons __tmp60642 __tmp60638))) - (__tmp60614 - (let ((__tmp60629 - (let ((__tmp60636 + (cons __tmp60904 __tmp60900))) + (__tmp60876 + (let ((__tmp60891 + (let ((__tmp60898 (gx#datum->syntax '#f 'entries)) - (__tmp60630 - (let ((__tmp60631 - (let ((__tmp60635 + (__tmp60892 + (let ((__tmp60893 + (let ((__tmp60897 (gx#datum->syntax '#f 'fxquotient)) - (__tmp60632 - (let ((__tmp60634 + (__tmp60894 + (let ((__tmp60896 (gx#datum->syntax '#f 'size)) - (__tmp60633 + (__tmp60895 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp60634 __tmp60633)))) + (cons __tmp60896 __tmp60895)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60635 - __tmp60632)))) + (cons __tmp60897 + __tmp60894)))) (declare (not safe)) - (cons __tmp60631 '())))) + (cons __tmp60893 '())))) (declare (not safe)) - (cons __tmp60636 __tmp60630))) - (__tmp60615 - (let ((__tmp60616 - (let ((__tmp60628 + (cons __tmp60898 __tmp60892))) + (__tmp60877 + (let ((__tmp60878 + (let ((__tmp60890 (gx#datum->syntax '#f 'start)) - (__tmp60617 - (let ((__tmp60618 - (let ((__tmp60627 + (__tmp60879 + (let ((__tmp60880 + (let ((__tmp60889 (gx#datum->syntax '#f 'fxarithmetic-shift-left)) - (__tmp60619 - (let ((__tmp60621 + (__tmp60881 + (let ((__tmp60883 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60626 + (let ((__tmp60888 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp60622 - (let ((__tmp60625 + (__tmp60884 + (let ((__tmp60887 (gx#datum->syntax '#f 'h)) - (__tmp60623 - (let ((__tmp60624 + (__tmp60885 + (let ((__tmp60886 (gx#datum->syntax '#f 'entries))) (declare (not safe)) - (cons __tmp60624 '())))) + (cons __tmp60886 '())))) (declare (not safe)) - (cons __tmp60625 __tmp60623)))) + (cons __tmp60887 __tmp60885)))) (declare (not safe)) - (cons __tmp60626 __tmp60622))) - (__tmp60620 + (cons __tmp60888 __tmp60884))) + (__tmp60882 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60621 __tmp60620)))) + (cons __tmp60883 __tmp60882)))) (declare (not safe)) - (cons __tmp60627 __tmp60619)))) + (cons __tmp60889 __tmp60881)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60618 '())))) + (cons __tmp60880 '())))) (declare (not safe)) - (cons __tmp60628 __tmp60617)))) + (cons __tmp60890 __tmp60879)))) (declare (not safe)) - (cons __tmp60616 '())))) + (cons __tmp60878 '())))) (declare (not safe)) - (cons __tmp60629 __tmp60615)))) + (cons __tmp60891 __tmp60877)))) (declare (not safe)) - (cons __tmp60637 __tmp60614)))) + (cons __tmp60899 __tmp60876)))) (declare (not safe)) - (cons __tmp60643 __tmp60613))) + (cons __tmp60905 __tmp60875))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60495 - (let ((__tmp60496 - (let ((__tmp60611 + (__tmp60757 + (let ((__tmp60758 + (let ((__tmp60873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp60497 - (let ((__tmp60610 (gx#datum->syntax '#f 'loop)) - (__tmp60498 - (let ((__tmp60597 - (let ((__tmp60606 - (let ((__tmp60609 + (__tmp60759 + (let ((__tmp60872 (gx#datum->syntax '#f 'loop)) + (__tmp60760 + (let ((__tmp60859 + (let ((__tmp60868 + (let ((__tmp60871 (gx#datum->syntax '#f 'probe)) - (__tmp60607 - (let ((__tmp60608 + (__tmp60869 + (let ((__tmp60870 (gx#datum->syntax '#f 'start))) (declare (not safe)) - (cons __tmp60608 + (cons __tmp60870 '())))) (declare (not safe)) - (cons __tmp60609 - __tmp60607))) - (__tmp60598 - (let ((__tmp60603 - (let ((__tmp60605 + (cons __tmp60871 + __tmp60869))) + (__tmp60860 + (let ((__tmp60865 + (let ((__tmp60867 (gx#datum->syntax '#f 'i)) - (__tmp60604 + (__tmp60866 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60605 __tmp60604))) - (__tmp60599 - (let ((__tmp60600 - (let ((__tmp60602 (gx#datum->syntax '#f 'deleted)) - (__tmp60601 + (cons __tmp60867 __tmp60866))) + (__tmp60861 + (let ((__tmp60862 + (let ((__tmp60864 (gx#datum->syntax '#f 'deleted)) + (__tmp60863 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp60602 __tmp60601)))) + (cons __tmp60864 __tmp60863)))) (declare (not safe)) - (cons __tmp60600 '())))) + (cons __tmp60862 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60603 - __tmp60599)))) + (cons __tmp60865 + __tmp60861)))) (declare (not safe)) - (cons __tmp60606 __tmp60598))) - (__tmp60499 - (let ((__tmp60500 - (let ((__tmp60596 + (cons __tmp60868 __tmp60860))) + (__tmp60761 + (let ((__tmp60762 + (let ((__tmp60858 (gx#datum->syntax '#f 'let)) - (__tmp60501 - (let ((__tmp60588 - (let ((__tmp60595 + (__tmp60763 + (let ((__tmp60850 + (let ((__tmp60857 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'k)) - (__tmp60589 - (let ((__tmp60590 - (let ((__tmp60594 + (__tmp60851 + (let ((__tmp60852 + (let ((__tmp60856 (gx#datum->syntax '#f 'vector-ref)) - (__tmp60591 - (let ((__tmp60592 - (let ((__tmp60593 + (__tmp60853 + (let ((__tmp60854 + (let ((__tmp60855 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60593 '())))) + (cons __tmp60855 '())))) (declare (not safe)) - (cons _L57950_ __tmp60592)))) + (cons _L58212_ __tmp60854)))) (declare (not safe)) - (cons __tmp60594 __tmp60591)))) + (cons __tmp60856 __tmp60853)))) (declare (not safe)) - (cons __tmp60590 '())))) + (cons __tmp60852 '())))) (declare (not safe)) - (cons __tmp60595 __tmp60589))) - (__tmp60502 - (let ((__tmp60503 - (let ((__tmp60587 (gx#datum->syntax '#f 'cond)) - (__tmp60504 - (let ((__tmp60578 - (let ((__tmp60580 - (let ((__tmp60586 + (cons __tmp60857 __tmp60851))) + (__tmp60764 + (let ((__tmp60765 + (let ((__tmp60849 (gx#datum->syntax '#f 'cond)) + (__tmp60766 + (let ((__tmp60840 + (let ((__tmp60842 + (let ((__tmp60848 (gx#datum->syntax '#f 'eq?)) - (__tmp60581 - (let ((__tmp60585 + (__tmp60843 + (let ((__tmp60847 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'k)) - (__tmp60582 - (let ((__tmp60583 - (let ((__tmp60584 + (__tmp60844 + (let ((__tmp60845 + (let ((__tmp60846 (gx#datum->syntax '#f 'macro-unused-obj))) (declare (not safe)) - (cons __tmp60584 '())))) + (cons __tmp60846 '())))) (declare (not safe)) - (cons __tmp60583 '())))) + (cons __tmp60845 '())))) (declare (not safe)) - (cons __tmp60585 __tmp60582)))) + (cons __tmp60847 __tmp60844)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60586 - __tmp60581))) - (__tmp60579 + (cons __tmp60848 + __tmp60843))) + (__tmp60841 (let () (declare (not safe)) - (cons _L57944_ '())))) + (cons _L58206_ '())))) (declare (not safe)) - (cons __tmp60580 __tmp60579))) - (__tmp60505 - (let ((__tmp60545 - (let ((__tmp60571 - (let ((__tmp60577 + (cons __tmp60842 __tmp60841))) + (__tmp60767 + (let ((__tmp60807 + (let ((__tmp60833 + (let ((__tmp60839 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'eq?)) - (__tmp60572 - (let ((__tmp60576 (gx#datum->syntax '#f 'k)) - (__tmp60573 - (let ((__tmp60574 - (let ((__tmp60575 + (__tmp60834 + (let ((__tmp60838 (gx#datum->syntax '#f 'k)) + (__tmp60835 + (let ((__tmp60836 + (let ((__tmp60837 (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp60575 '())))) + (cons __tmp60837 '())))) (declare (not safe)) - (cons __tmp60574 '())))) + (cons __tmp60836 '())))) (declare (not safe)) - (cons __tmp60576 __tmp60573)))) + (cons __tmp60838 __tmp60835)))) (declare (not safe)) - (cons __tmp60577 __tmp60572))) - (__tmp60546 - (let ((__tmp60547 - (let ((__tmp60570 (gx#datum->syntax '#f 'loop)) - (__tmp60548 - (let ((__tmp60562 - (let ((__tmp60569 + (cons __tmp60839 __tmp60834))) + (__tmp60808 + (let ((__tmp60809 + (let ((__tmp60832 (gx#datum->syntax '#f 'loop)) + (__tmp60810 + (let ((__tmp60824 + (let ((__tmp60831 (gx#datum->syntax '#f 'probe-step)) - (__tmp60563 - (let ((__tmp60568 + (__tmp60825 + (let ((__tmp60830 (gx#datum->syntax '#f 'start)) - (__tmp60564 - (let ((__tmp60567 + (__tmp60826 + (let ((__tmp60829 (gx#datum->syntax '#f 'i)) - (__tmp60565 - (let ((__tmp60566 + (__tmp60827 + (let ((__tmp60828 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60566 '())))) + (cons __tmp60828 '())))) (declare (not safe)) - (cons __tmp60567 __tmp60565)))) + (cons __tmp60829 __tmp60827)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60568 __tmp60564)))) + (cons __tmp60830 __tmp60826)))) (declare (not safe)) - (cons __tmp60569 __tmp60563))) - (__tmp60549 - (let ((__tmp60557 - (let ((__tmp60561 + (cons __tmp60831 __tmp60825))) + (__tmp60811 + (let ((__tmp60819 + (let ((__tmp60823 (gx#datum->syntax '#f 'fx+)) - (__tmp60558 - (let ((__tmp60560 + (__tmp60820 + (let ((__tmp60822 (gx#datum->syntax '#f 'i)) - (__tmp60559 + (__tmp60821 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60560 - __tmp60559)))) + (cons __tmp60822 + __tmp60821)))) (declare (not safe)) - (cons __tmp60561 __tmp60558))) - (__tmp60550 - (let ((__tmp60551 - (let ((__tmp60556 + (cons __tmp60823 __tmp60820))) + (__tmp60812 + (let ((__tmp60813 + (let ((__tmp60818 (gx#datum->syntax '#f 'or)) - (__tmp60552 - (let ((__tmp60555 + (__tmp60814 + (let ((__tmp60817 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'deleted)) - (__tmp60553 - (let ((__tmp60554 (gx#datum->syntax '#f 'probe))) + (__tmp60815 + (let ((__tmp60816 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60554 '())))) + (cons __tmp60816 '())))) (declare (not safe)) - (cons __tmp60555 __tmp60553)))) + (cons __tmp60817 __tmp60815)))) (declare (not safe)) - (cons __tmp60556 __tmp60552)))) + (cons __tmp60818 __tmp60814)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60551 '())))) + (cons __tmp60813 '())))) (declare (not safe)) - (cons __tmp60557 __tmp60550)))) + (cons __tmp60819 __tmp60812)))) (declare (not safe)) - (cons __tmp60562 __tmp60549)))) + (cons __tmp60824 __tmp60811)))) (declare (not safe)) - (cons __tmp60570 __tmp60548)))) + (cons __tmp60832 __tmp60810)))) (declare (not safe)) - (cons __tmp60547 '())))) + (cons __tmp60809 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60571 - __tmp60546))) - (__tmp60506 - (let ((__tmp60530 - (let ((__tmp60541 - (let ((__tmp60542 + (cons __tmp60833 + __tmp60808))) + (__tmp60768 + (let ((__tmp60792 + (let ((__tmp60803 + (let ((__tmp60804 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60543 - (let ((__tmp60544 + (let ((__tmp60805 + (let ((__tmp60806 (gx#datum->syntax '#f 'k))) (declare (not safe)) - (cons __tmp60544 '())))) + (cons __tmp60806 '())))) (declare (not safe)) - (cons _L57946_ __tmp60543)))) + (cons _L58208_ __tmp60805)))) (declare (not safe)) - (cons _L57947_ __tmp60542))) - (__tmp60531 - (let ((__tmp60532 - (let ((__tmp60540 + (cons _L58209_ __tmp60804))) + (__tmp60793 + (let ((__tmp60794 + (let ((__tmp60802 (gx#datum->syntax '#f 'vector-ref)) - (__tmp60533 - (let ((__tmp60534 - (let ((__tmp60535 - (let ((__tmp60539 + (__tmp60795 + (let ((__tmp60796 + (let ((__tmp60797 + (let ((__tmp60801 (gx#datum->syntax '#f 'fx+)) - (__tmp60536 - (let ((__tmp60538 + (__tmp60798 + (let ((__tmp60800 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'probe)) - (__tmp60537 + (__tmp60799 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60538 __tmp60537)))) + (cons __tmp60800 __tmp60799)))) (declare (not safe)) - (cons __tmp60539 __tmp60536)))) + (cons __tmp60801 __tmp60798)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60535 '())))) + (cons __tmp60797 '())))) (declare (not safe)) - (cons _L57950_ __tmp60534)))) + (cons _L58212_ __tmp60796)))) (declare (not safe)) - (cons __tmp60540 __tmp60533)))) + (cons __tmp60802 __tmp60795)))) (declare (not safe)) - (cons __tmp60532 '())))) + (cons __tmp60794 '())))) (declare (not safe)) - (cons __tmp60541 __tmp60531))) - (__tmp60507 - (let ((__tmp60508 - (let ((__tmp60529 (gx#datum->syntax '#f 'else)) - (__tmp60509 - (let ((__tmp60510 - (let ((__tmp60528 + (cons __tmp60803 __tmp60793))) + (__tmp60769 + (let ((__tmp60770 + (let ((__tmp60791 (gx#datum->syntax '#f 'else)) + (__tmp60771 + (let ((__tmp60772 + (let ((__tmp60790 (gx#datum->syntax '#f 'loop)) - (__tmp60511 - (let ((__tmp60520 - (let ((__tmp60527 + (__tmp60773 + (let ((__tmp60782 + (let ((__tmp60789 (gx#datum->syntax '#f 'probe-step)) - (__tmp60521 - (let ((__tmp60526 + (__tmp60783 + (let ((__tmp60788 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'start)) - (__tmp60522 - (let ((__tmp60525 (gx#datum->syntax '#f 'i)) - (__tmp60523 - (let ((__tmp60524 + (__tmp60784 + (let ((__tmp60787 (gx#datum->syntax '#f 'i)) + (__tmp60785 + (let ((__tmp60786 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60524 '())))) + (cons __tmp60786 '())))) (declare (not safe)) - (cons __tmp60525 __tmp60523)))) + (cons __tmp60787 __tmp60785)))) (declare (not safe)) - (cons __tmp60526 __tmp60522)))) + (cons __tmp60788 __tmp60784)))) (declare (not safe)) - (cons __tmp60527 __tmp60521))) + (cons __tmp60789 __tmp60783))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60512 - (let ((__tmp60515 - (let ((__tmp60519 + (__tmp60774 + (let ((__tmp60777 + (let ((__tmp60781 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp60516 - (let ((__tmp60518 (gx#datum->syntax '#f 'i)) - (__tmp60517 + (__tmp60778 + (let ((__tmp60780 (gx#datum->syntax '#f 'i)) + (__tmp60779 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60518 __tmp60517)))) + (cons __tmp60780 __tmp60779)))) (declare (not safe)) - (cons __tmp60519 __tmp60516))) - (__tmp60513 - (let ((__tmp60514 (gx#datum->syntax '#f 'deleted))) + (cons __tmp60781 __tmp60778))) + (__tmp60775 + (let ((__tmp60776 (gx#datum->syntax '#f 'deleted))) (declare (not safe)) - (cons __tmp60514 '())))) + (cons __tmp60776 '())))) (declare (not safe)) - (cons __tmp60515 __tmp60513)))) + (cons __tmp60777 __tmp60775)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60520 __tmp60512)))) + (cons __tmp60782 __tmp60774)))) (declare (not safe)) - (cons __tmp60528 __tmp60511)))) + (cons __tmp60790 __tmp60773)))) (declare (not safe)) - (cons __tmp60510 '())))) + (cons __tmp60772 '())))) (declare (not safe)) - (cons __tmp60529 __tmp60509)))) + (cons __tmp60791 __tmp60771)))) (declare (not safe)) - (cons __tmp60508 '())))) + (cons __tmp60770 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60530 - __tmp60507)))) + (cons __tmp60792 + __tmp60769)))) (declare (not safe)) - (cons __tmp60545 __tmp60506)))) + (cons __tmp60807 __tmp60768)))) (declare (not safe)) - (cons __tmp60578 __tmp60505)))) + (cons __tmp60840 __tmp60767)))) (declare (not safe)) - (cons __tmp60587 __tmp60504)))) + (cons __tmp60849 __tmp60766)))) (declare (not safe)) - (cons __tmp60503 '())))) + (cons __tmp60765 '())))) (declare (not safe)) - (cons __tmp60588 __tmp60502)))) + (cons __tmp60850 __tmp60764)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60596 - __tmp60501)))) + (cons __tmp60858 + __tmp60763)))) (declare (not safe)) - (cons __tmp60500 '())))) + (cons __tmp60762 '())))) (declare (not safe)) - (cons __tmp60597 __tmp60499)))) + (cons __tmp60859 __tmp60761)))) (declare (not safe)) - (cons __tmp60610 __tmp60498)))) + (cons __tmp60872 __tmp60760)))) (declare (not safe)) - (cons __tmp60611 __tmp60497)))) + (cons __tmp60873 __tmp60759)))) (declare (not safe)) - (cons __tmp60496 '())))) + (cons __tmp60758 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60612 __tmp60495)))) + (cons __tmp60874 __tmp60757)))) (declare (not safe)) - (cons __tmp60652 __tmp60494))) - _hd5786057938_ - _hd5785757928_ - _hd5785457918_ - _hd5785157908_ - _hd5784857898_ - _hd5784557888_) - (_g5783357867_ _g5783457871_)))) - (_g5783357867_ _g5783457871_)))) - (_g5783357867_ _g5783457871_)))) + (cons __tmp60914 __tmp60756))) + _hd5812258200_ + _hd5811958190_ + _hd5811658180_ + _hd5811358170_ + _hd5811058160_ + _hd5810758150_) + (_g5809558129_ _g5809658133_)))) + (_g5809558129_ _g5809658133_)))) + (_g5809558129_ _g5809658133_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5783357867_ - _g5783457871_)))) - (_g5783357867_ _g5783457871_)))) - (_g5783357867_ _g5783457871_)))) - (_g5783357867_ _g5783457871_)))) - (_g5783357867_ _g5783457871_))))) - (_g5783257978_ _$stx57829_)))) + (_g5809558129_ + _g5809658133_)))) + (_g5809558129_ _g5809658133_)))) + (_g5809558129_ _g5809658133_)))) + (_g5809558129_ _g5809658133_)))) + (_g5809558129_ _g5809658133_))))) + (_g5809458240_ _$stx58091_)))) (define |[:0:]#__table-set!| - (lambda (_$stx57982_) - (let* ((_g5798658028_ - (lambda (_g5798758024_) + (lambda (_$stx58244_) + (let* ((_g5824858290_ + (lambda (_g5824958286_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5798758024_))) - (_g5798558167_ - (lambda (_g5798758032_) - (if (gx#stx-pair? _g5798758032_) - (let ((_e5799858035_ (gx#syntax-e _g5798758032_))) - (let ((_hd5799758039_ + _g5824958286_))) + (_g5824758429_ + (lambda (_g5824958294_) + (if (gx#stx-pair? _g5824958294_) + (let ((_e5826058297_ (gx#syntax-e _g5824958294_))) + (let ((_hd5825958301_ (let () (declare (not safe)) - (##car _e5799858035_))) - (_tl5799658042_ + (##car _e5826058297_))) + (_tl5825858304_ (let () (declare (not safe)) - (##cdr _e5799858035_)))) - (if (gx#stx-pair? _tl5799658042_) - (let ((_e5800158045_ (gx#syntax-e _tl5799658042_))) - (let ((_hd5800058049_ + (##cdr _e5826058297_)))) + (if (gx#stx-pair? _tl5825858304_) + (let ((_e5826358307_ (gx#syntax-e _tl5825858304_))) + (let ((_hd5826258311_ (let () (declare (not safe)) - (##car _e5800158045_))) - (_tl5799958052_ + (##car _e5826358307_))) + (_tl5826158314_ (let () (declare (not safe)) - (##cdr _e5800158045_)))) - (if (gx#stx-pair? _tl5799958052_) - (let ((_e5800458055_ - (gx#syntax-e _tl5799958052_))) - (let ((_hd5800358059_ + (##cdr _e5826358307_)))) + (if (gx#stx-pair? _tl5826158314_) + (let ((_e5826658317_ + (gx#syntax-e _tl5826158314_))) + (let ((_hd5826558321_ (let () (declare (not safe)) - (##car _e5800458055_))) - (_tl5800258062_ + (##car _e5826658317_))) + (_tl5826458324_ (let () (declare (not safe)) - (##cdr _e5800458055_)))) - (if (gx#stx-pair? _tl5800258062_) - (let ((_e5800758065_ + (##cdr _e5826658317_)))) + (if (gx#stx-pair? _tl5826458324_) + (let ((_e5826958327_ (gx#syntax-e - _tl5800258062_))) - (let ((_hd5800658069_ + _tl5826458324_))) + (let ((_hd5826858331_ (let () (declare (not safe)) - (##car _e5800758065_))) - (_tl5800558072_ + (##car _e5826958327_))) + (_tl5826758334_ (let () (declare (not safe)) - (##cdr _e5800758065_)))) + (##cdr _e5826958327_)))) (if (gx#stx-pair? - _tl5800558072_) - (let ((_e5801058075_ + _tl5826758334_) + (let ((_e5827258337_ (gx#syntax-e - _tl5800558072_))) - (let ((_hd5800958079_ + _tl5826758334_))) + (let ((_hd5827158341_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e5801058075_))) - (_tl5800858082_ - (let () (declare (not safe)) (##cdr _e5801058075_)))) - (if (gx#stx-pair? _tl5800858082_) - (let ((_e5801358085_ (gx#syntax-e _tl5800858082_))) - (let ((_hd5801258089_ + (##car _e5827258337_))) + (_tl5827058344_ + (let () (declare (not safe)) (##cdr _e5827258337_)))) + (if (gx#stx-pair? _tl5827058344_) + (let ((_e5827558347_ (gx#syntax-e _tl5827058344_))) + (let ((_hd5827458351_ (let () (declare (not safe)) - (##car _e5801358085_))) - (_tl5801158092_ + (##car _e5827558347_))) + (_tl5827358354_ (let () (declare (not safe)) - (##cdr _e5801358085_)))) - (if (gx#stx-pair? _tl5801158092_) - (let ((_e5801658095_ (gx#syntax-e _tl5801158092_))) - (let ((_hd5801558099_ + (##cdr _e5827558347_)))) + (if (gx#stx-pair? _tl5827358354_) + (let ((_e5827858357_ (gx#syntax-e _tl5827358354_))) + (let ((_hd5827758361_ (let () (declare (not safe)) - (##car _e5801658095_))) - (_tl5801458102_ + (##car _e5827858357_))) + (_tl5827658364_ (let () (declare (not safe)) - (##cdr _e5801658095_)))) - (if (gx#stx-pair? _tl5801458102_) - (let ((_e5801958105_ - (gx#syntax-e _tl5801458102_))) - (let ((_hd5801858109_ + (##cdr _e5827858357_)))) + (if (gx#stx-pair? _tl5827658364_) + (let ((_e5828158367_ + (gx#syntax-e _tl5827658364_))) + (let ((_hd5828058371_ (let () (declare (not safe)) - (##car _e5801958105_))) - (_tl5801758112_ + (##car _e5828158367_))) + (_tl5827958374_ (let () (declare (not safe)) - (##cdr _e5801958105_)))) - (if (gx#stx-pair? _tl5801758112_) - (let ((_e5802258115_ + (##cdr _e5828158367_)))) + (if (gx#stx-pair? _tl5827958374_) + (let ((_e5828458377_ (gx#syntax-e - _tl5801758112_))) - (let ((_hd5802158119_ + _tl5827958374_))) + (let ((_hd5828358381_ (let () (declare (not safe)) - (##car _e5802258115_))) - (_tl5802058122_ + (##car _e5828458377_))) + (_tl5828258384_ (let () (declare (not safe)) - (##cdr _e5802258115_)))) + (##cdr _e5828458377_)))) (if (gx#stx-null? - _tl5802058122_) - ((lambda (_L58125_ - _L58127_ - _L58128_ - _L58129_ - _L58130_ - _L58131_ - _L58132_ - _L58133_) - (let ((__tmp60869 + _tl5828258384_) + ((lambda (_L58387_ + _L58389_ + _L58390_ + _L58391_ + _L58392_ + _L58393_ + _L58394_ + _L58395_) + (let ((__tmp61131 (gx#datum->syntax '#f 'let*)) - (__tmp60653 - (let ((__tmp60829 + (__tmp60915 + (let ((__tmp61091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60860 - (let ((__tmp60868 + (let ((__tmp61122 + (let ((__tmp61130 (gx#datum->syntax '#f 'h)) - (__tmp60861 - (let ((__tmp60862 - (let ((__tmp60867 + (__tmp61123 + (let ((__tmp61124 + (let ((__tmp61129 (gx#datum->syntax '#f 'fxxor)) - (__tmp60863 - (let ((__tmp60865 - (let ((__tmp60866 + (__tmp61125 + (let ((__tmp61127 + (let ((__tmp61128 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L58129_ '())))) + (cons _L58391_ '())))) (declare (not safe)) - (cons _L58131_ __tmp60866))) - (__tmp60864 - (let () (declare (not safe)) (cons _L58132_ '())))) + (cons _L58393_ __tmp61128))) + (__tmp61126 + (let () (declare (not safe)) (cons _L58394_ '())))) (declare (not safe)) - (cons __tmp60865 __tmp60864)))) + (cons __tmp61127 __tmp61126)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60867 - __tmp60863)))) + (cons __tmp61129 + __tmp61125)))) (declare (not safe)) - (cons __tmp60862 '())))) + (cons __tmp61124 '())))) (declare (not safe)) - (cons __tmp60868 __tmp60861))) - (__tmp60830 - (let ((__tmp60854 - (let ((__tmp60859 + (cons __tmp61130 __tmp61123))) + (__tmp61092 + (let ((__tmp61116 + (let ((__tmp61121 (gx#datum->syntax '#f 'size)) - (__tmp60855 - (let ((__tmp60856 - (let ((__tmp60858 + (__tmp61117 + (let ((__tmp61118 + (let ((__tmp61120 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length)) - (__tmp60857 - (let () (declare (not safe)) (cons _L58133_ '())))) + (__tmp61119 + (let () (declare (not safe)) (cons _L58395_ '())))) (declare (not safe)) - (cons __tmp60858 __tmp60857)))) + (cons __tmp61120 __tmp61119)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60856 '())))) + (cons __tmp61118 '())))) (declare (not safe)) - (cons __tmp60859 __tmp60855))) - (__tmp60831 - (let ((__tmp60846 - (let ((__tmp60853 + (cons __tmp61121 __tmp61117))) + (__tmp61093 + (let ((__tmp61108 + (let ((__tmp61115 (gx#datum->syntax '#f 'entries)) - (__tmp60847 - (let ((__tmp60848 - (let ((__tmp60852 + (__tmp61109 + (let ((__tmp61110 + (let ((__tmp61114 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fxquotient)) - (__tmp60849 - (let ((__tmp60851 (gx#datum->syntax '#f 'size)) - (__tmp60850 + (__tmp61111 + (let ((__tmp61113 (gx#datum->syntax '#f 'size)) + (__tmp61112 (let () (declare (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp60851 __tmp60850)))) + (cons __tmp61113 __tmp61112)))) (declare (not safe)) - (cons __tmp60852 __tmp60849)))) + (cons __tmp61114 __tmp61111)))) (declare (not safe)) - (cons __tmp60848 '())))) + (cons __tmp61110 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60853 - __tmp60847))) - (__tmp60832 - (let ((__tmp60833 - (let ((__tmp60845 + (cons __tmp61115 + __tmp61109))) + (__tmp61094 + (let ((__tmp61095 + (let ((__tmp61107 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'start)) - (__tmp60834 - (let ((__tmp60835 - (let ((__tmp60844 + (__tmp61096 + (let ((__tmp61097 + (let ((__tmp61106 (gx#datum->syntax '#f 'fxarithmetic-shift-left)) - (__tmp60836 - (let ((__tmp60838 - (let ((__tmp60843 + (__tmp61098 + (let ((__tmp61100 + (let ((__tmp61105 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp60839 - (let ((__tmp60842 + (__tmp61101 + (let ((__tmp61104 (gx#datum->syntax '#f 'h)) - (__tmp60840 - (let ((__tmp60841 + (__tmp61102 + (let ((__tmp61103 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'entries))) (declare (not safe)) - (cons __tmp60841 '())))) + (cons __tmp61103 '())))) (declare (not safe)) - (cons __tmp60842 __tmp60840)))) + (cons __tmp61104 __tmp61102)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60843 __tmp60839))) - (__tmp60837 + (cons __tmp61105 __tmp61101))) + (__tmp61099 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60838 __tmp60837)))) + (cons __tmp61100 __tmp61099)))) (declare (not safe)) - (cons __tmp60844 __tmp60836)))) + (cons __tmp61106 __tmp61098)))) (declare (not safe)) - (cons __tmp60835 '())))) + (cons __tmp61097 '())))) (declare (not safe)) - (cons __tmp60845 __tmp60834)))) + (cons __tmp61107 __tmp61096)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60833 '())))) + (cons __tmp61095 '())))) (declare (not safe)) - (cons __tmp60846 __tmp60832)))) + (cons __tmp61108 __tmp61094)))) (declare (not safe)) - (cons __tmp60854 __tmp60831)))) + (cons __tmp61116 __tmp61093)))) (declare (not safe)) - (cons __tmp60860 __tmp60830))) - (__tmp60654 - (let ((__tmp60655 - (let ((__tmp60828 + (cons __tmp61122 __tmp61092))) + (__tmp60916 + (let ((__tmp60917 + (let ((__tmp61090 (gx#datum->syntax '#f 'let)) - (__tmp60656 - (let ((__tmp60827 + (__tmp60918 + (let ((__tmp61089 (gx#datum->syntax '#f 'loop)) - (__tmp60657 - (let ((__tmp60814 - (let ((__tmp60823 - (let ((__tmp60826 + (__tmp60919 + (let ((__tmp61076 + (let ((__tmp61085 + (let ((__tmp61088 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'probe)) - (__tmp60824 - (let ((__tmp60825 + (__tmp61086 + (let ((__tmp61087 (gx#datum->syntax '#f 'start))) (declare (not safe)) - (cons __tmp60825 '())))) + (cons __tmp61087 '())))) (declare (not safe)) - (cons __tmp60826 __tmp60824))) - (__tmp60815 - (let ((__tmp60820 - (let ((__tmp60822 (gx#datum->syntax '#f 'i)) - (__tmp60821 + (cons __tmp61088 __tmp61086))) + (__tmp61077 + (let ((__tmp61082 + (let ((__tmp61084 (gx#datum->syntax '#f 'i)) + (__tmp61083 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60822 __tmp60821))) - (__tmp60816 - (let ((__tmp60817 - (let ((__tmp60819 + (cons __tmp61084 __tmp61083))) + (__tmp61078 + (let ((__tmp61079 + (let ((__tmp61081 (gx#datum->syntax '#f 'deleted)) - (__tmp60818 + (__tmp61080 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp60819 __tmp60818)))) + (cons __tmp61081 __tmp61080)))) (declare (not safe)) - (cons __tmp60817 '())))) + (cons __tmp61079 '())))) (declare (not safe)) - (cons __tmp60820 __tmp60816)))) + (cons __tmp61082 __tmp61078)))) (declare (not safe)) - (cons __tmp60823 __tmp60815))) - (__tmp60658 - (let ((__tmp60659 - (let ((__tmp60813 (gx#datum->syntax '#f 'let)) - (__tmp60660 - (let ((__tmp60805 - (let ((__tmp60812 + (cons __tmp61085 __tmp61077))) + (__tmp60920 + (let ((__tmp60921 + (let ((__tmp61075 (gx#datum->syntax '#f 'let)) + (__tmp60922 + (let ((__tmp61067 + (let ((__tmp61074 (gx#datum->syntax '#f 'k)) - (__tmp60806 - (let ((__tmp60807 - (let ((__tmp60811 + (__tmp61068 + (let ((__tmp61069 + (let ((__tmp61073 (gx#datum->syntax '#f 'vector-ref)) - (__tmp60808 - (let ((__tmp60809 + (__tmp61070 + (let ((__tmp61071 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60810 (gx#datum->syntax '#f 'probe))) + (let ((__tmp61072 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60810 '())))) + (cons __tmp61072 '())))) (declare (not safe)) - (cons _L58133_ __tmp60809)))) + (cons _L58395_ __tmp61071)))) (declare (not safe)) - (cons __tmp60811 __tmp60808)))) + (cons __tmp61073 __tmp61070)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60807 '())))) + (cons __tmp61069 '())))) (declare (not safe)) - (cons __tmp60812 __tmp60806))) - (__tmp60661 - (let ((__tmp60662 - (let ((__tmp60804 + (cons __tmp61074 __tmp61068))) + (__tmp60923 + (let ((__tmp60924 + (let ((__tmp61066 (gx#datum->syntax '#f 'cond)) - (__tmp60663 - (let ((__tmp60745 - (let ((__tmp60797 + (__tmp60925 + (let ((__tmp61007 + (let ((__tmp61059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60803 (gx#datum->syntax '#f 'eq?)) - (__tmp60798 - (let ((__tmp60802 (gx#datum->syntax '#f 'k)) - (__tmp60799 - (let ((__tmp60800 - (let ((__tmp60801 + (let ((__tmp61065 (gx#datum->syntax '#f 'eq?)) + (__tmp61060 + (let ((__tmp61064 (gx#datum->syntax '#f 'k)) + (__tmp61061 + (let ((__tmp61062 + (let ((__tmp61063 (gx#datum->syntax '#f 'macro-unused-obj))) (declare (not safe)) - (cons __tmp60801 '())))) + (cons __tmp61063 '())))) (declare (not safe)) - (cons __tmp60800 '())))) + (cons __tmp61062 '())))) (declare (not safe)) - (cons __tmp60802 __tmp60799)))) + (cons __tmp61064 __tmp61061)))) (declare (not safe)) - (cons __tmp60803 __tmp60798))) - (__tmp60746 - (let ((__tmp60747 - (let ((__tmp60796 (gx#datum->syntax '#f 'if)) - (__tmp60748 - (let ((__tmp60795 + (cons __tmp61065 __tmp61060))) + (__tmp61008 + (let ((__tmp61009 + (let ((__tmp61058 (gx#datum->syntax '#f 'if)) + (__tmp61010 + (let ((__tmp61057 (gx#datum->syntax '#f 'deleted)) - (__tmp60749 - (let ((__tmp60773 - (let ((__tmp60794 + (__tmp61011 + (let ((__tmp61035 + (let ((__tmp61056 (gx#datum->syntax '#f 'begin)) - (__tmp60774 - (let ((__tmp60788 + (__tmp61036 + (let ((__tmp61050 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60793 + (let ((__tmp61055 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60789 - (let ((__tmp60790 - (let ((__tmp60792 + (__tmp61051 + (let ((__tmp61052 + (let ((__tmp61054 (gx#datum->syntax '#f 'deleted)) - (__tmp60791 + (__tmp61053 (let () (declare (not safe)) - (cons _L58129_ '())))) + (cons _L58391_ '())))) (declare (not safe)) - (cons __tmp60792 __tmp60791)))) + (cons __tmp61054 __tmp61053)))) (declare (not safe)) - (cons _L58133_ __tmp60790)))) + (cons _L58395_ __tmp61052)))) (declare (not safe)) - (cons __tmp60793 __tmp60789))) - (__tmp60775 - (let ((__tmp60778 - (let ((__tmp60787 + (cons __tmp61055 __tmp61051))) + (__tmp61037 + (let ((__tmp61040 + (let ((__tmp61049 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60779 - (let ((__tmp60780 - (let ((__tmp60782 - (let ((__tmp60786 + (__tmp61041 + (let ((__tmp61042 + (let ((__tmp61044 + (let ((__tmp61048 (gx#datum->syntax '#f 'fx+)) - (__tmp60783 - (let ((__tmp60785 + (__tmp61045 + (let ((__tmp61047 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'deleted)) - (__tmp60784 + (__tmp61046 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60785 __tmp60784)))) + (cons __tmp61047 __tmp61046)))) (declare (not safe)) - (cons __tmp60786 __tmp60783))) - (__tmp60781 (let () (declare (not safe)) (cons _L58128_ '())))) + (cons __tmp61048 __tmp61045))) + (__tmp61043 (let () (declare (not safe)) (cons _L58390_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60782 - __tmp60781)))) + (cons __tmp61044 + __tmp61043)))) (declare (not safe)) - (cons _L58133_ __tmp60780)))) + (cons _L58395_ __tmp61042)))) (declare (not safe)) - (cons __tmp60787 __tmp60779))) - (__tmp60776 - (let ((__tmp60777 + (cons __tmp61049 __tmp61041))) + (__tmp61038 + (let ((__tmp61039 (let () (declare (not safe)) - (cons _L58125_ '())))) + (cons _L58387_ '())))) (declare (not safe)) - (cons __tmp60777 '())))) + (cons __tmp61039 '())))) (declare (not safe)) - (cons __tmp60778 __tmp60776)))) + (cons __tmp61040 __tmp61038)))) (declare (not safe)) - (cons __tmp60788 __tmp60775)))) + (cons __tmp61050 __tmp61037)))) (declare (not safe)) - (cons __tmp60794 __tmp60774))) + (cons __tmp61056 __tmp61036))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60750 - (let ((__tmp60751 - (let ((__tmp60772 + (__tmp61012 + (let ((__tmp61013 + (let ((__tmp61034 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp60752 - (let ((__tmp60766 - (let ((__tmp60771 + (__tmp61014 + (let ((__tmp61028 + (let ((__tmp61033 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60767 - (let ((__tmp60768 - (let ((__tmp60770 + (__tmp61029 + (let ((__tmp61030 + (let ((__tmp61032 (gx#datum->syntax '#f 'probe)) - (__tmp60769 + (__tmp61031 (let () (declare (not safe)) - (cons _L58129_ + (cons _L58391_ '())))) (declare (not safe)) - (cons __tmp60770 - __tmp60769)))) + (cons __tmp61032 + __tmp61031)))) (declare (not safe)) - (cons _L58133_ __tmp60768)))) + (cons _L58395_ __tmp61030)))) (declare (not safe)) - (cons __tmp60771 __tmp60767))) - (__tmp60753 - (let ((__tmp60756 - (let ((__tmp60765 + (cons __tmp61033 __tmp61029))) + (__tmp61015 + (let ((__tmp61018 + (let ((__tmp61027 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60757 - (let ((__tmp60758 - (let ((__tmp60760 - (let ((__tmp60764 + (__tmp61019 + (let ((__tmp61020 + (let ((__tmp61022 + (let ((__tmp61026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp60761 - (let ((__tmp60763 (gx#datum->syntax '#f 'probe)) - (__tmp60762 + (__tmp61023 + (let ((__tmp61025 (gx#datum->syntax '#f 'probe)) + (__tmp61024 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60763 __tmp60762)))) + (cons __tmp61025 __tmp61024)))) (declare (not safe)) - (cons __tmp60764 __tmp60761))) - (__tmp60759 - (let () (declare (not safe)) (cons _L58128_ '())))) + (cons __tmp61026 __tmp61023))) + (__tmp61021 + (let () (declare (not safe)) (cons _L58390_ '())))) (declare (not safe)) - (cons __tmp60760 __tmp60759)))) + (cons __tmp61022 __tmp61021)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L58133_ - __tmp60758)))) + (cons _L58395_ + __tmp61020)))) (declare (not safe)) - (cons __tmp60765 __tmp60757))) - (__tmp60754 - (let ((__tmp60755 + (cons __tmp61027 __tmp61019))) + (__tmp61016 + (let ((__tmp61017 (let () (declare (not safe)) - (cons _L58127_ '())))) + (cons _L58389_ '())))) (declare (not safe)) - (cons __tmp60755 '())))) + (cons __tmp61017 '())))) (declare (not safe)) - (cons __tmp60756 __tmp60754)))) + (cons __tmp61018 __tmp61016)))) (declare (not safe)) - (cons __tmp60766 __tmp60753)))) + (cons __tmp61028 __tmp61015)))) (declare (not safe)) - (cons __tmp60772 __tmp60752)))) + (cons __tmp61034 __tmp61014)))) (declare (not safe)) - (cons __tmp60751 '())))) + (cons __tmp61013 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60773 - __tmp60750)))) + (cons __tmp61035 + __tmp61012)))) (declare (not safe)) - (cons __tmp60795 __tmp60749)))) + (cons __tmp61057 __tmp61011)))) (declare (not safe)) - (cons __tmp60796 __tmp60748)))) + (cons __tmp61058 __tmp61010)))) (declare (not safe)) - (cons __tmp60747 '())))) + (cons __tmp61009 '())))) (declare (not safe)) - (cons __tmp60797 __tmp60746))) - (__tmp60664 - (let ((__tmp60712 - (let ((__tmp60738 - (let ((__tmp60744 (gx#datum->syntax '#f 'eq?)) - (__tmp60739 - (let ((__tmp60743 + (cons __tmp61059 __tmp61008))) + (__tmp60926 + (let ((__tmp60974 + (let ((__tmp61000 + (let ((__tmp61006 (gx#datum->syntax '#f 'eq?)) + (__tmp61001 + (let ((__tmp61005 (gx#datum->syntax '#f 'k)) - (__tmp60740 - (let ((__tmp60741 - (let ((__tmp60742 + (__tmp61002 + (let ((__tmp61003 + (let ((__tmp61004 (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp60742 + (cons __tmp61004 '())))) (declare (not safe)) - (cons __tmp60741 '())))) + (cons __tmp61003 '())))) (declare (not safe)) - (cons __tmp60743 __tmp60740)))) + (cons __tmp61005 __tmp61002)))) (declare (not safe)) - (cons __tmp60744 __tmp60739))) - (__tmp60713 - (let ((__tmp60714 - (let ((__tmp60737 + (cons __tmp61006 __tmp61001))) + (__tmp60975 + (let ((__tmp60976 + (let ((__tmp60999 (gx#datum->syntax '#f 'loop)) - (__tmp60715 - (let ((__tmp60729 - (let ((__tmp60736 + (__tmp60977 + (let ((__tmp60991 + (let ((__tmp60998 (gx#datum->syntax '#f 'probe-step)) - (__tmp60730 - (let ((__tmp60735 + (__tmp60992 + (let ((__tmp60997 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'start)) - (__tmp60731 - (let ((__tmp60734 (gx#datum->syntax '#f 'i)) - (__tmp60732 - (let ((__tmp60733 + (__tmp60993 + (let ((__tmp60996 (gx#datum->syntax '#f 'i)) + (__tmp60994 + (let ((__tmp60995 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60733 '())))) + (cons __tmp60995 '())))) (declare (not safe)) - (cons __tmp60734 __tmp60732)))) + (cons __tmp60996 __tmp60994)))) (declare (not safe)) - (cons __tmp60735 __tmp60731)))) + (cons __tmp60997 __tmp60993)))) (declare (not safe)) - (cons __tmp60736 __tmp60730))) + (cons __tmp60998 __tmp60992))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp60716 - (let ((__tmp60724 - (let ((__tmp60728 + (__tmp60978 + (let ((__tmp60986 + (let ((__tmp60990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp60725 - (let ((__tmp60727 (gx#datum->syntax '#f 'i)) - (__tmp60726 + (__tmp60987 + (let ((__tmp60989 (gx#datum->syntax '#f 'i)) + (__tmp60988 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60727 __tmp60726)))) + (cons __tmp60989 __tmp60988)))) (declare (not safe)) - (cons __tmp60728 __tmp60725))) - (__tmp60717 - (let ((__tmp60718 - (let ((__tmp60723 (gx#datum->syntax '#f 'or)) - (__tmp60719 - (let ((__tmp60722 + (cons __tmp60990 __tmp60987))) + (__tmp60979 + (let ((__tmp60980 + (let ((__tmp60985 (gx#datum->syntax '#f 'or)) + (__tmp60981 + (let ((__tmp60984 (gx#datum->syntax '#f 'deleted)) - (__tmp60720 - (let ((__tmp60721 + (__tmp60982 + (let ((__tmp60983 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60721 '())))) + (cons __tmp60983 '())))) (declare (not safe)) - (cons __tmp60722 __tmp60720)))) + (cons __tmp60984 __tmp60982)))) (declare (not safe)) - (cons __tmp60723 __tmp60719)))) + (cons __tmp60985 __tmp60981)))) (declare (not safe)) - (cons __tmp60718 '())))) + (cons __tmp60980 '())))) (declare (not safe)) - (cons __tmp60724 __tmp60717)))) + (cons __tmp60986 __tmp60979)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60729 - __tmp60716)))) + (cons __tmp60991 + __tmp60978)))) (declare (not safe)) - (cons __tmp60737 __tmp60715)))) + (cons __tmp60999 __tmp60977)))) (declare (not safe)) - (cons __tmp60714 '())))) + (cons __tmp60976 '())))) (declare (not safe)) - (cons __tmp60738 __tmp60713))) - (__tmp60665 - (let ((__tmp60689 - (let ((__tmp60708 - (let ((__tmp60709 - (let ((__tmp60710 - (let ((__tmp60711 + (cons __tmp61000 __tmp60975))) + (__tmp60927 + (let ((__tmp60951 + (let ((__tmp60970 + (let ((__tmp60971 + (let ((__tmp60972 + (let ((__tmp60973 (gx#datum->syntax '#f 'k))) (declare (not safe)) - (cons __tmp60711 + (cons __tmp60973 '())))) (declare (not safe)) - (cons _L58129_ __tmp60710)))) + (cons _L58391_ __tmp60972)))) (declare (not safe)) - (cons _L58130_ __tmp60709))) - (__tmp60690 - (let ((__tmp60702 - (let ((__tmp60707 + (cons _L58392_ __tmp60971))) + (__tmp60952 + (let ((__tmp60964 + (let ((__tmp60969 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60703 - (let ((__tmp60704 - (let ((__tmp60706 + (__tmp60965 + (let ((__tmp60966 + (let ((__tmp60968 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'probe)) - (__tmp60705 - (let () (declare (not safe)) (cons _L58129_ '())))) + (__tmp60967 + (let () (declare (not safe)) (cons _L58391_ '())))) (declare (not safe)) - (cons __tmp60706 __tmp60705)))) + (cons __tmp60968 __tmp60967)))) (declare (not safe)) - (cons _L58133_ __tmp60704)))) + (cons _L58395_ __tmp60966)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60707 __tmp60703))) - (__tmp60691 - (let ((__tmp60692 - (let ((__tmp60701 + (cons __tmp60969 __tmp60965))) + (__tmp60953 + (let ((__tmp60954 + (let ((__tmp60963 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60693 - (let ((__tmp60694 + (__tmp60955 + (let ((__tmp60956 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60696 - (let ((__tmp60700 + (let ((__tmp60958 + (let ((__tmp60962 (gx#datum->syntax '#f 'fx+)) - (__tmp60697 - (let ((__tmp60699 + (__tmp60959 + (let ((__tmp60961 (gx#datum->syntax '#f 'probe)) - (__tmp60698 + (__tmp60960 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60699 __tmp60698)))) + (cons __tmp60961 __tmp60960)))) (declare (not safe)) - (cons __tmp60700 __tmp60697))) - (__tmp60695 + (cons __tmp60962 __tmp60959))) + (__tmp60957 (let () (declare (not safe)) - (cons _L58128_ '())))) + (cons _L58390_ '())))) (declare (not safe)) - (cons __tmp60696 __tmp60695)))) + (cons __tmp60958 __tmp60957)))) (declare (not safe)) - (cons _L58133_ __tmp60694)))) + (cons _L58395_ __tmp60956)))) (declare (not safe)) - (cons __tmp60701 __tmp60693)))) + (cons __tmp60963 __tmp60955)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60692 '())))) + (cons __tmp60954 '())))) (declare (not safe)) - (cons __tmp60702 __tmp60691)))) + (cons __tmp60964 __tmp60953)))) (declare (not safe)) - (cons __tmp60708 __tmp60690))) - (__tmp60666 - (let ((__tmp60667 - (let ((__tmp60688 + (cons __tmp60970 __tmp60952))) + (__tmp60928 + (let ((__tmp60929 + (let ((__tmp60950 (gx#datum->syntax '#f 'else)) - (__tmp60668 - (let ((__tmp60669 - (let ((__tmp60687 + (__tmp60930 + (let ((__tmp60931 + (let ((__tmp60949 (gx#datum->syntax '#f 'loop)) - (__tmp60670 - (let ((__tmp60679 + (__tmp60932 + (let ((__tmp60941 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60686 + (let ((__tmp60948 (gx#datum->syntax '#f 'probe-step)) - (__tmp60680 - (let ((__tmp60685 + (__tmp60942 + (let ((__tmp60947 (gx#datum->syntax '#f 'start)) - (__tmp60681 - (let ((__tmp60684 + (__tmp60943 + (let ((__tmp60946 (gx#datum->syntax '#f 'i)) - (__tmp60682 - (let ((__tmp60683 + (__tmp60944 + (let ((__tmp60945 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60683 '())))) + (cons __tmp60945 '())))) (declare (not safe)) - (cons __tmp60684 __tmp60682)))) + (cons __tmp60946 __tmp60944)))) (declare (not safe)) - (cons __tmp60685 __tmp60681)))) + (cons __tmp60947 __tmp60943)))) (declare (not safe)) - (cons __tmp60686 __tmp60680))) - (__tmp60671 - (let ((__tmp60674 - (let ((__tmp60678 + (cons __tmp60948 __tmp60942))) + (__tmp60933 + (let ((__tmp60936 + (let ((__tmp60940 (gx#datum->syntax '#f 'fx+)) - (__tmp60675 - (let ((__tmp60677 + (__tmp60937 + (let ((__tmp60939 (gx#datum->syntax '#f 'i)) - (__tmp60676 + (__tmp60938 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60677 __tmp60676)))) + (cons __tmp60939 __tmp60938)))) (declare (not safe)) - (cons __tmp60678 __tmp60675))) - (__tmp60672 - (let ((__tmp60673 + (cons __tmp60940 __tmp60937))) + (__tmp60934 + (let ((__tmp60935 (gx#datum->syntax '#f 'deleted))) (declare (not safe)) - (cons __tmp60673 '())))) + (cons __tmp60935 '())))) (declare (not safe)) - (cons __tmp60674 __tmp60672)))) + (cons __tmp60936 __tmp60934)))) (declare (not safe)) - (cons __tmp60679 __tmp60671)))) + (cons __tmp60941 __tmp60933)))) (declare (not safe)) - (cons __tmp60687 __tmp60670)))) + (cons __tmp60949 __tmp60932)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60669 '())))) + (cons __tmp60931 '())))) (declare (not safe)) - (cons __tmp60688 __tmp60668)))) + (cons __tmp60950 __tmp60930)))) (declare (not safe)) - (cons __tmp60667 '())))) + (cons __tmp60929 '())))) (declare (not safe)) - (cons __tmp60689 __tmp60666)))) + (cons __tmp60951 __tmp60928)))) (declare (not safe)) - (cons __tmp60712 __tmp60665)))) + (cons __tmp60974 __tmp60927)))) (declare (not safe)) - (cons __tmp60745 __tmp60664)))) + (cons __tmp61007 __tmp60926)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60804 __tmp60663)))) + (cons __tmp61066 __tmp60925)))) (declare (not safe)) - (cons __tmp60662 '())))) + (cons __tmp60924 '())))) (declare (not safe)) - (cons __tmp60805 __tmp60661)))) + (cons __tmp61067 __tmp60923)))) (declare (not safe)) - (cons __tmp60813 __tmp60660)))) + (cons __tmp61075 __tmp60922)))) (declare (not safe)) - (cons __tmp60659 '())))) + (cons __tmp60921 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60814 - __tmp60658)))) + (cons __tmp61076 + __tmp60920)))) (declare (not safe)) - (cons __tmp60827 __tmp60657)))) + (cons __tmp61089 __tmp60919)))) (declare (not safe)) - (cons __tmp60828 __tmp60656)))) + (cons __tmp61090 __tmp60918)))) (declare (not safe)) - (cons __tmp60655 '())))) + (cons __tmp60917 '())))) (declare (not safe)) - (cons __tmp60829 __tmp60654)))) + (cons __tmp61091 __tmp60916)))) (declare (not safe)) - (cons __tmp60869 __tmp60653))) + (cons __tmp61131 __tmp60915))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd5802158119_ - _hd5801858109_ - _hd5801558099_ - _hd5801258089_ - _hd5800958079_ - _hd5800658069_ - _hd5800358059_ - _hd5800058049_) - (_g5798658028_ - _g5798758032_)))) - (_g5798658028_ _g5798758032_)))) - (_g5798658028_ _g5798758032_)))) - (_g5798658028_ _g5798758032_)))) - (_g5798658028_ _g5798758032_)))) + _hd5828358381_ + _hd5828058371_ + _hd5827758361_ + _hd5827458351_ + _hd5827158341_ + _hd5826858331_ + _hd5826558321_ + _hd5826258311_) + (_g5824858290_ + _g5824958294_)))) + (_g5824858290_ _g5824958294_)))) + (_g5824858290_ _g5824958294_)))) + (_g5824858290_ _g5824958294_)))) + (_g5824858290_ _g5824958294_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5798658028_ - _g5798758032_)))) - (_g5798658028_ _g5798758032_)))) - (_g5798658028_ _g5798758032_)))) - (_g5798658028_ _g5798758032_)))) - (_g5798658028_ _g5798758032_))))) - (_g5798558167_ _$stx57982_)))) + (_g5824858290_ + _g5824958294_)))) + (_g5824858290_ _g5824958294_)))) + (_g5824858290_ _g5824958294_)))) + (_g5824858290_ _g5824958294_)))) + (_g5824858290_ _g5824958294_))))) + (_g5824758429_ _$stx58244_)))) (define |[:0:]#__table-update!| - (lambda (_$stx58171_) - (let* ((_g5817558221_ - (lambda (_g5817658217_) + (lambda (_$stx58433_) + (let* ((_g5843758483_ + (lambda (_g5843858479_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5817658217_))) - (_g5817458374_ - (lambda (_g5817658225_) - (if (gx#stx-pair? _g5817658225_) - (let ((_e5818858228_ (gx#syntax-e _g5817658225_))) - (let ((_hd5818758232_ + _g5843858479_))) + (_g5843658636_ + (lambda (_g5843858487_) + (if (gx#stx-pair? _g5843858487_) + (let ((_e5845058490_ (gx#syntax-e _g5843858487_))) + (let ((_hd5844958494_ (let () (declare (not safe)) - (##car _e5818858228_))) - (_tl5818658235_ + (##car _e5845058490_))) + (_tl5844858497_ (let () (declare (not safe)) - (##cdr _e5818858228_)))) - (if (gx#stx-pair? _tl5818658235_) - (let ((_e5819158238_ (gx#syntax-e _tl5818658235_))) - (let ((_hd5819058242_ + (##cdr _e5845058490_)))) + (if (gx#stx-pair? _tl5844858497_) + (let ((_e5845358500_ (gx#syntax-e _tl5844858497_))) + (let ((_hd5845258504_ (let () (declare (not safe)) - (##car _e5819158238_))) - (_tl5818958245_ + (##car _e5845358500_))) + (_tl5845158507_ (let () (declare (not safe)) - (##cdr _e5819158238_)))) - (if (gx#stx-pair? _tl5818958245_) - (let ((_e5819458248_ - (gx#syntax-e _tl5818958245_))) - (let ((_hd5819358252_ + (##cdr _e5845358500_)))) + (if (gx#stx-pair? _tl5845158507_) + (let ((_e5845658510_ + (gx#syntax-e _tl5845158507_))) + (let ((_hd5845558514_ (let () (declare (not safe)) - (##car _e5819458248_))) - (_tl5819258255_ + (##car _e5845658510_))) + (_tl5845458517_ (let () (declare (not safe)) - (##cdr _e5819458248_)))) - (if (gx#stx-pair? _tl5819258255_) - (let ((_e5819758258_ + (##cdr _e5845658510_)))) + (if (gx#stx-pair? _tl5845458517_) + (let ((_e5845958520_ (gx#syntax-e - _tl5819258255_))) - (let ((_hd5819658262_ + _tl5845458517_))) + (let ((_hd5845858524_ (let () (declare (not safe)) - (##car _e5819758258_))) - (_tl5819558265_ + (##car _e5845958520_))) + (_tl5845758527_ (let () (declare (not safe)) - (##cdr _e5819758258_)))) + (##cdr _e5845958520_)))) (if (gx#stx-pair? - _tl5819558265_) - (let ((_e5820058268_ + _tl5845758527_) + (let ((_e5846258530_ (gx#syntax-e - _tl5819558265_))) - (let ((_hd5819958272_ + _tl5845758527_))) + (let ((_hd5846158534_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e5820058268_))) - (_tl5819858275_ - (let () (declare (not safe)) (##cdr _e5820058268_)))) - (if (gx#stx-pair? _tl5819858275_) - (let ((_e5820358278_ (gx#syntax-e _tl5819858275_))) - (let ((_hd5820258282_ + (##car _e5846258530_))) + (_tl5846058537_ + (let () (declare (not safe)) (##cdr _e5846258530_)))) + (if (gx#stx-pair? _tl5846058537_) + (let ((_e5846558540_ (gx#syntax-e _tl5846058537_))) + (let ((_hd5846458544_ (let () (declare (not safe)) - (##car _e5820358278_))) - (_tl5820158285_ + (##car _e5846558540_))) + (_tl5846358547_ (let () (declare (not safe)) - (##cdr _e5820358278_)))) - (if (gx#stx-pair? _tl5820158285_) - (let ((_e5820658288_ (gx#syntax-e _tl5820158285_))) - (let ((_hd5820558292_ + (##cdr _e5846558540_)))) + (if (gx#stx-pair? _tl5846358547_) + (let ((_e5846858550_ (gx#syntax-e _tl5846358547_))) + (let ((_hd5846758554_ (let () (declare (not safe)) - (##car _e5820658288_))) - (_tl5820458295_ + (##car _e5846858550_))) + (_tl5846658557_ (let () (declare (not safe)) - (##cdr _e5820658288_)))) - (if (gx#stx-pair? _tl5820458295_) - (let ((_e5820958298_ - (gx#syntax-e _tl5820458295_))) - (let ((_hd5820858302_ + (##cdr _e5846858550_)))) + (if (gx#stx-pair? _tl5846658557_) + (let ((_e5847158560_ + (gx#syntax-e _tl5846658557_))) + (let ((_hd5847058564_ (let () (declare (not safe)) - (##car _e5820958298_))) - (_tl5820758305_ + (##car _e5847158560_))) + (_tl5846958567_ (let () (declare (not safe)) - (##cdr _e5820958298_)))) - (if (gx#stx-pair? _tl5820758305_) - (let ((_e5821258308_ + (##cdr _e5847158560_)))) + (if (gx#stx-pair? _tl5846958567_) + (let ((_e5847458570_ (gx#syntax-e - _tl5820758305_))) - (let ((_hd5821158312_ + _tl5846958567_))) + (let ((_hd5847358574_ (let () (declare (not safe)) - (##car _e5821258308_))) - (_tl5821058315_ + (##car _e5847458570_))) + (_tl5847258577_ (let () (declare (not safe)) - (##cdr _e5821258308_)))) + (##cdr _e5847458570_)))) (if (gx#stx-pair? - _tl5821058315_) - (let ((_e5821558318_ + _tl5847258577_) + (let ((_e5847758580_ (gx#syntax-e - _tl5821058315_))) - (let ((_hd5821458322_ + _tl5847258577_))) + (let ((_hd5847658584_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e5821558318_))) - (_tl5821358325_ - (let () (declare (not safe)) (##cdr _e5821558318_)))) - (if (gx#stx-null? _tl5821358325_) - ((lambda (_L58328_ - _L58330_ - _L58331_ - _L58332_ - _L58333_ - _L58334_ - _L58335_ - _L58336_ - _L58337_) - (let ((__tmp61101 (gx#datum->syntax '#f 'let*)) - (__tmp60870 - (let ((__tmp61061 - (let ((__tmp61092 - (let ((__tmp61100 + (##car _e5847758580_))) + (_tl5847558587_ + (let () (declare (not safe)) (##cdr _e5847758580_)))) + (if (gx#stx-null? _tl5847558587_) + ((lambda (_L58590_ + _L58592_ + _L58593_ + _L58594_ + _L58595_ + _L58596_ + _L58597_ + _L58598_ + _L58599_) + (let ((__tmp61363 (gx#datum->syntax '#f 'let*)) + (__tmp61132 + (let ((__tmp61323 + (let ((__tmp61354 + (let ((__tmp61362 (gx#datum->syntax '#f 'h)) - (__tmp61093 - (let ((__tmp61094 - (let ((__tmp61099 + (__tmp61355 + (let ((__tmp61356 + (let ((__tmp61361 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fxxor)) - (__tmp61095 - (let ((__tmp61097 - (let ((__tmp61098 + (__tmp61357 + (let ((__tmp61359 + (let ((__tmp61360 (let () (declare (not safe)) - (cons _L58333_ '())))) + (cons _L58595_ '())))) (declare (not safe)) - (cons _L58335_ __tmp61098))) - (__tmp61096 + (cons _L58597_ __tmp61360))) + (__tmp61358 (let () (declare (not safe)) - (cons _L58336_ '())))) + (cons _L58598_ '())))) (declare (not safe)) - (cons __tmp61097 __tmp61096)))) + (cons __tmp61359 __tmp61358)))) (declare (not safe)) - (cons __tmp61099 __tmp61095)))) + (cons __tmp61361 __tmp61357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61094 '())))) + (cons __tmp61356 '())))) (declare (not safe)) - (cons __tmp61100 __tmp61093))) - (__tmp61062 - (let ((__tmp61086 - (let ((__tmp61091 + (cons __tmp61362 __tmp61355))) + (__tmp61324 + (let ((__tmp61348 + (let ((__tmp61353 (gx#datum->syntax '#f 'size)) - (__tmp61087 - (let ((__tmp61088 + (__tmp61349 + (let ((__tmp61350 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61090 + (let ((__tmp61352 (gx#datum->syntax '#f 'vector-length)) - (__tmp61089 + (__tmp61351 (let () (declare (not safe)) - (cons _L58337_ '())))) + (cons _L58599_ '())))) (declare (not safe)) - (cons __tmp61090 __tmp61089)))) + (cons __tmp61352 __tmp61351)))) (declare (not safe)) - (cons __tmp61088 '())))) + (cons __tmp61350 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61091 - __tmp61087))) - (__tmp61063 - (let ((__tmp61078 - (let ((__tmp61085 + (cons __tmp61353 + __tmp61349))) + (__tmp61325 + (let ((__tmp61340 + (let ((__tmp61347 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'entries)) - (__tmp61079 - (let ((__tmp61080 - (let ((__tmp61084 + (__tmp61341 + (let ((__tmp61342 + (let ((__tmp61346 (gx#datum->syntax '#f 'fxquotient)) - (__tmp61081 - (let ((__tmp61083 + (__tmp61343 + (let ((__tmp61345 (gx#datum->syntax '#f 'size)) - (__tmp61082 + (__tmp61344 (let () (declare (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp61083 __tmp61082)))) + (cons __tmp61345 __tmp61344)))) (declare (not safe)) - (cons __tmp61084 __tmp61081)))) + (cons __tmp61346 __tmp61343)))) (declare (not safe)) - (cons __tmp61080 '())))) + (cons __tmp61342 '())))) (declare (not safe)) - (cons __tmp61085 __tmp61079))) - (__tmp61064 - (let ((__tmp61065 - (let ((__tmp61077 (gx#datum->syntax '#f 'start)) - (__tmp61066 - (let ((__tmp61067 - (let ((__tmp61076 + (cons __tmp61347 __tmp61341))) + (__tmp61326 + (let ((__tmp61327 + (let ((__tmp61339 (gx#datum->syntax '#f 'start)) + (__tmp61328 + (let ((__tmp61329 + (let ((__tmp61338 (gx#datum->syntax '#f 'fxarithmetic-shift-left)) - (__tmp61068 - (let ((__tmp61070 - (let ((__tmp61075 + (__tmp61330 + (let ((__tmp61332 + (let ((__tmp61337 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp61071 - (let ((__tmp61074 + (__tmp61333 + (let ((__tmp61336 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp61072 - (let ((__tmp61073 (gx#datum->syntax '#f 'entries))) + (__tmp61334 + (let ((__tmp61335 (gx#datum->syntax '#f 'entries))) (declare (not safe)) - (cons __tmp61073 '())))) + (cons __tmp61335 '())))) (declare (not safe)) - (cons __tmp61074 __tmp61072)))) + (cons __tmp61336 __tmp61334)))) (declare (not safe)) - (cons __tmp61075 __tmp61071))) + (cons __tmp61337 __tmp61333))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp61069 + (__tmp61331 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61070 __tmp61069)))) + (cons __tmp61332 __tmp61331)))) (declare (not safe)) - (cons __tmp61076 __tmp61068)))) + (cons __tmp61338 __tmp61330)))) (declare (not safe)) - (cons __tmp61067 '())))) + (cons __tmp61329 '())))) (declare (not safe)) - (cons __tmp61077 __tmp61066)))) + (cons __tmp61339 __tmp61328)))) (declare (not safe)) - (cons __tmp61065 '())))) + (cons __tmp61327 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61078 - __tmp61064)))) + (cons __tmp61340 + __tmp61326)))) (declare (not safe)) - (cons __tmp61086 __tmp61063)))) + (cons __tmp61348 __tmp61325)))) (declare (not safe)) - (cons __tmp61092 __tmp61062))) - (__tmp60871 - (let ((__tmp60872 - (let ((__tmp61060 + (cons __tmp61354 __tmp61324))) + (__tmp61133 + (let ((__tmp61134 + (let ((__tmp61322 (gx#datum->syntax '#f 'let)) - (__tmp60873 - (let ((__tmp61059 + (__tmp61135 + (let ((__tmp61321 (gx#datum->syntax '#f 'loop)) - (__tmp60874 - (let ((__tmp61046 + (__tmp61136 + (let ((__tmp61308 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61055 - (let ((__tmp61058 + (let ((__tmp61317 + (let ((__tmp61320 (gx#datum->syntax '#f 'probe)) - (__tmp61056 - (let ((__tmp61057 + (__tmp61318 + (let ((__tmp61319 (gx#datum->syntax '#f 'start))) (declare (not safe)) - (cons __tmp61057 '())))) + (cons __tmp61319 '())))) (declare (not safe)) - (cons __tmp61058 __tmp61056))) - (__tmp61047 - (let ((__tmp61052 - (let ((__tmp61054 + (cons __tmp61320 __tmp61318))) + (__tmp61309 + (let ((__tmp61314 + (let ((__tmp61316 (gx#datum->syntax '#f 'i)) - (__tmp61053 + (__tmp61315 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61054 __tmp61053))) - (__tmp61048 - (let ((__tmp61049 - (let ((__tmp61051 + (cons __tmp61316 __tmp61315))) + (__tmp61310 + (let ((__tmp61311 + (let ((__tmp61313 (gx#datum->syntax '#f 'deleted)) - (__tmp61050 + (__tmp61312 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp61051 __tmp61050)))) + (cons __tmp61313 __tmp61312)))) (declare (not safe)) - (cons __tmp61049 '())))) + (cons __tmp61311 '())))) (declare (not safe)) - (cons __tmp61052 __tmp61048)))) + (cons __tmp61314 __tmp61310)))) (declare (not safe)) - (cons __tmp61055 __tmp61047))) - (__tmp60875 - (let ((__tmp60876 - (let ((__tmp61045 (gx#datum->syntax '#f 'let)) - (__tmp60877 - (let ((__tmp61037 - (let ((__tmp61044 + (cons __tmp61317 __tmp61309))) + (__tmp61137 + (let ((__tmp61138 + (let ((__tmp61307 (gx#datum->syntax '#f 'let)) + (__tmp61139 + (let ((__tmp61299 + (let ((__tmp61306 (gx#datum->syntax '#f 'k)) - (__tmp61038 - (let ((__tmp61039 - (let ((__tmp61043 + (__tmp61300 + (let ((__tmp61301 + (let ((__tmp61305 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'vector-ref)) - (__tmp61040 - (let ((__tmp61041 - (let ((__tmp61042 + (__tmp61302 + (let ((__tmp61303 + (let ((__tmp61304 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp61042 '())))) + (cons __tmp61304 '())))) (declare (not safe)) - (cons _L58337_ __tmp61041)))) + (cons _L58599_ __tmp61303)))) (declare (not safe)) - (cons __tmp61043 __tmp61040)))) + (cons __tmp61305 __tmp61302)))) (declare (not safe)) - (cons __tmp61039 '())))) + (cons __tmp61301 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61044 __tmp61038))) - (__tmp60878 - (let ((__tmp60879 - (let ((__tmp61036 + (cons __tmp61306 __tmp61300))) + (__tmp61140 + (let ((__tmp61141 + (let ((__tmp61298 (gx#datum->syntax '#f 'cond)) - (__tmp60880 - (let ((__tmp60973 + (__tmp61142 + (let ((__tmp61235 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61029 - (let ((__tmp61035 + (let ((__tmp61291 + (let ((__tmp61297 (gx#datum->syntax '#f 'eq?)) - (__tmp61030 - (let ((__tmp61034 + (__tmp61292 + (let ((__tmp61296 (gx#datum->syntax '#f 'k)) - (__tmp61031 - (let ((__tmp61032 - (let ((__tmp61033 + (__tmp61293 + (let ((__tmp61294 + (let ((__tmp61295 (gx#datum->syntax '#f 'macro-unused-obj))) (declare (not safe)) - (cons __tmp61033 + (cons __tmp61295 '())))) (declare (not safe)) - (cons __tmp61032 '())))) + (cons __tmp61294 '())))) (declare (not safe)) - (cons __tmp61034 __tmp61031)))) + (cons __tmp61296 __tmp61293)))) (declare (not safe)) - (cons __tmp61035 __tmp61030))) - (__tmp60974 - (let ((__tmp60975 - (let ((__tmp61028 + (cons __tmp61297 __tmp61292))) + (__tmp61236 + (let ((__tmp61237 + (let ((__tmp61290 (gx#datum->syntax '#f 'if)) - (__tmp60976 - (let ((__tmp61027 + (__tmp61238 + (let ((__tmp61289 (gx#datum->syntax '#f 'deleted)) - (__tmp60977 - (let ((__tmp61003 - (let ((__tmp61026 + (__tmp61239 + (let ((__tmp61265 + (let ((__tmp61288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp61004 - (let ((__tmp61020 - (let ((__tmp61025 + (__tmp61266 + (let ((__tmp61282 + (let ((__tmp61287 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61021 - (let ((__tmp61022 - (let ((__tmp61024 + (__tmp61283 + (let ((__tmp61284 + (let ((__tmp61286 (gx#datum->syntax '#f 'deleted)) - (__tmp61023 + (__tmp61285 (let () (declare (not safe)) - (cons _L58333_ + (cons _L58595_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61024 - __tmp61023)))) + (cons __tmp61286 + __tmp61285)))) (declare (not safe)) - (cons _L58337_ __tmp61022)))) + (cons _L58599_ __tmp61284)))) (declare (not safe)) - (cons __tmp61025 __tmp61021))) - (__tmp61005 - (let ((__tmp61008 - (let ((__tmp61019 + (cons __tmp61287 __tmp61283))) + (__tmp61267 + (let ((__tmp61270 + (let ((__tmp61281 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61009 - (let ((__tmp61010 - (let ((__tmp61014 - (let ((__tmp61018 + (__tmp61271 + (let ((__tmp61272 + (let ((__tmp61276 + (let ((__tmp61280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp61015 - (let ((__tmp61017 + (__tmp61277 + (let ((__tmp61279 (gx#datum->syntax '#f 'deleted)) - (__tmp61016 + (__tmp61278 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61017 __tmp61016)))) + (cons __tmp61279 __tmp61278)))) (declare (not safe)) - (cons __tmp61018 __tmp61015))) - (__tmp61011 - (let ((__tmp61012 - (let ((__tmp61013 + (cons __tmp61280 __tmp61277))) + (__tmp61273 + (let ((__tmp61274 + (let ((__tmp61275 (let () (declare (not safe)) - (cons _L58331_ '())))) + (cons _L58593_ '())))) (declare (not safe)) - (cons _L58332_ __tmp61013)))) + (cons _L58594_ __tmp61275)))) (declare (not safe)) - (cons __tmp61012 '())))) + (cons __tmp61274 '())))) (declare (not safe)) - (cons __tmp61014 __tmp61011)))) + (cons __tmp61276 __tmp61273)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L58337_ - __tmp61010)))) + (cons _L58599_ + __tmp61272)))) (declare (not safe)) - (cons __tmp61019 __tmp61009))) - (__tmp61006 - (let ((__tmp61007 + (cons __tmp61281 __tmp61271))) + (__tmp61268 + (let ((__tmp61269 (let () (declare (not safe)) - (cons _L58328_ '())))) + (cons _L58590_ '())))) (declare (not safe)) - (cons __tmp61007 '())))) + (cons __tmp61269 '())))) (declare (not safe)) - (cons __tmp61008 __tmp61006)))) + (cons __tmp61270 __tmp61268)))) (declare (not safe)) - (cons __tmp61020 __tmp61005)))) + (cons __tmp61282 __tmp61267)))) (declare (not safe)) - (cons __tmp61026 __tmp61004))) - (__tmp60978 - (let ((__tmp60979 - (let ((__tmp61002 (gx#datum->syntax '#f 'begin)) - (__tmp60980 - (let ((__tmp60996 - (let ((__tmp61001 + (cons __tmp61288 __tmp61266))) + (__tmp61240 + (let ((__tmp61241 + (let ((__tmp61264 (gx#datum->syntax '#f 'begin)) + (__tmp61242 + (let ((__tmp61258 + (let ((__tmp61263 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60997 - (let ((__tmp60998 - (let ((__tmp61000 + (__tmp61259 + (let ((__tmp61260 + (let ((__tmp61262 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'probe)) - (__tmp60999 - (let () (declare (not safe)) (cons _L58333_ '())))) + (__tmp61261 + (let () (declare (not safe)) (cons _L58595_ '())))) (declare (not safe)) - (cons __tmp61000 __tmp60999)))) + (cons __tmp61262 __tmp61261)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L58337_ - __tmp60998)))) + (cons _L58599_ + __tmp61260)))) (declare (not safe)) - (cons __tmp61001 __tmp60997))) - (__tmp60981 - (let ((__tmp60984 - (let ((__tmp60995 + (cons __tmp61263 __tmp61259))) + (__tmp61243 + (let ((__tmp61246 + (let ((__tmp61257 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60985 - (let ((__tmp60986 - (let ((__tmp60990 + (__tmp61247 + (let ((__tmp61248 + (let ((__tmp61252 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60994 (gx#datum->syntax '#f 'fx+)) - (__tmp60991 - (let ((__tmp60993 + (let ((__tmp61256 (gx#datum->syntax '#f 'fx+)) + (__tmp61253 + (let ((__tmp61255 (gx#datum->syntax '#f 'probe)) - (__tmp60992 + (__tmp61254 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60993 __tmp60992)))) + (cons __tmp61255 __tmp61254)))) (declare (not safe)) - (cons __tmp60994 __tmp60991))) - (__tmp60987 - (let ((__tmp60988 - (let ((__tmp60989 + (cons __tmp61256 __tmp61253))) + (__tmp61249 + (let ((__tmp61250 + (let ((__tmp61251 (let () (declare (not safe)) - (cons _L58331_ '())))) + (cons _L58593_ '())))) (declare (not safe)) - (cons _L58332_ __tmp60989)))) + (cons _L58594_ __tmp61251)))) (declare (not safe)) - (cons __tmp60988 '())))) + (cons __tmp61250 '())))) (declare (not safe)) - (cons __tmp60990 __tmp60987)))) + (cons __tmp61252 __tmp61249)))) (declare (not safe)) - (cons _L58337_ __tmp60986)))) + (cons _L58599_ __tmp61248)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60995 - __tmp60985))) - (__tmp60982 - (let ((__tmp60983 + (cons __tmp61257 + __tmp61247))) + (__tmp61244 + (let ((__tmp61245 (let () (declare (not safe)) - (cons _L58330_ + (cons _L58592_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60983 '())))) + (cons __tmp61245 '())))) (declare (not safe)) - (cons __tmp60984 __tmp60982)))) + (cons __tmp61246 __tmp61244)))) (declare (not safe)) - (cons __tmp60996 __tmp60981)))) + (cons __tmp61258 __tmp61243)))) (declare (not safe)) - (cons __tmp61002 __tmp60980)))) + (cons __tmp61264 __tmp61242)))) (declare (not safe)) - (cons __tmp60979 '())))) + (cons __tmp61241 '())))) (declare (not safe)) - (cons __tmp61003 __tmp60978)))) + (cons __tmp61265 __tmp61240)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61027 - __tmp60977)))) + (cons __tmp61289 + __tmp61239)))) (declare (not safe)) - (cons __tmp61028 __tmp60976)))) + (cons __tmp61290 __tmp61238)))) (declare (not safe)) - (cons __tmp60975 '())))) + (cons __tmp61237 '())))) (declare (not safe)) - (cons __tmp61029 __tmp60974))) - (__tmp60881 - (let ((__tmp60940 - (let ((__tmp60966 - (let ((__tmp60972 + (cons __tmp61291 __tmp61236))) + (__tmp61143 + (let ((__tmp61202 + (let ((__tmp61228 + (let ((__tmp61234 (gx#datum->syntax '#f 'eq?)) - (__tmp60967 - (let ((__tmp60971 + (__tmp61229 + (let ((__tmp61233 (gx#datum->syntax '#f 'k)) - (__tmp60968 - (let ((__tmp60969 - (let ((__tmp60970 + (__tmp61230 + (let ((__tmp61231 + (let ((__tmp61232 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp60970 '())))) + (cons __tmp61232 '())))) (declare (not safe)) - (cons __tmp60969 '())))) + (cons __tmp61231 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60971 - __tmp60968)))) + (cons __tmp61233 + __tmp61230)))) (declare (not safe)) - (cons __tmp60972 __tmp60967))) - (__tmp60941 - (let ((__tmp60942 - (let ((__tmp60965 + (cons __tmp61234 __tmp61229))) + (__tmp61203 + (let ((__tmp61204 + (let ((__tmp61227 (gx#datum->syntax '#f 'loop)) - (__tmp60943 - (let ((__tmp60957 - (let ((__tmp60964 + (__tmp61205 + (let ((__tmp61219 + (let ((__tmp61226 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'probe-step)) - (__tmp60958 - (let ((__tmp60963 (gx#datum->syntax '#f 'start)) - (__tmp60959 - (let ((__tmp60962 + (__tmp61220 + (let ((__tmp61225 (gx#datum->syntax '#f 'start)) + (__tmp61221 + (let ((__tmp61224 (gx#datum->syntax '#f 'i)) - (__tmp60960 - (let ((__tmp60961 + (__tmp61222 + (let ((__tmp61223 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp60961 '())))) + (cons __tmp61223 '())))) (declare (not safe)) - (cons __tmp60962 __tmp60960)))) + (cons __tmp61224 __tmp61222)))) (declare (not safe)) - (cons __tmp60963 __tmp60959)))) + (cons __tmp61225 __tmp61221)))) (declare (not safe)) - (cons __tmp60964 __tmp60958))) - (__tmp60944 - (let ((__tmp60952 - (let ((__tmp60956 (gx#datum->syntax '#f 'fx+)) - (__tmp60953 - (let ((__tmp60955 + (cons __tmp61226 __tmp61220))) + (__tmp61206 + (let ((__tmp61214 + (let ((__tmp61218 (gx#datum->syntax '#f 'fx+)) + (__tmp61215 + (let ((__tmp61217 (gx#datum->syntax '#f 'i)) - (__tmp60954 + (__tmp61216 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60955 __tmp60954)))) + (cons __tmp61217 __tmp61216)))) (declare (not safe)) - (cons __tmp60956 __tmp60953))) - (__tmp60945 - (let ((__tmp60946 - (let ((__tmp60951 + (cons __tmp61218 __tmp61215))) + (__tmp61207 + (let ((__tmp61208 + (let ((__tmp61213 (gx#datum->syntax '#f 'or)) - (__tmp60947 - (let ((__tmp60950 + (__tmp61209 + (let ((__tmp61212 (gx#datum->syntax '#f 'deleted)) - (__tmp60948 - (let ((__tmp60949 + (__tmp61210 + (let ((__tmp61211 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp60949 '())))) + (cons __tmp61211 '())))) (declare (not safe)) - (cons __tmp60950 __tmp60948)))) + (cons __tmp61212 __tmp61210)))) (declare (not safe)) - (cons __tmp60951 __tmp60947)))) + (cons __tmp61213 __tmp61209)))) (declare (not safe)) - (cons __tmp60946 '())))) + (cons __tmp61208 '())))) (declare (not safe)) - (cons __tmp60952 __tmp60945)))) + (cons __tmp61214 __tmp61207)))) (declare (not safe)) - (cons __tmp60957 __tmp60944)))) + (cons __tmp61219 __tmp61206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60965 - __tmp60943)))) + (cons __tmp61227 + __tmp61205)))) (declare (not safe)) - (cons __tmp60942 '())))) + (cons __tmp61204 '())))) (declare (not safe)) - (cons __tmp60966 __tmp60941))) - (__tmp60882 - (let ((__tmp60906 - (let ((__tmp60936 - (let ((__tmp60937 - (let ((__tmp60938 - (let ((__tmp60939 + (cons __tmp61228 __tmp61203))) + (__tmp61144 + (let ((__tmp61168 + (let ((__tmp61198 + (let ((__tmp61199 + (let ((__tmp61200 + (let ((__tmp61201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'k))) (declare (not safe)) - (cons __tmp60939 '())))) + (cons __tmp61201 '())))) (declare (not safe)) - (cons _L58333_ __tmp60938)))) + (cons _L58595_ __tmp61200)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L58334_ __tmp60937))) - (__tmp60907 - (let ((__tmp60930 - (let ((__tmp60935 + (cons _L58596_ __tmp61199))) + (__tmp61169 + (let ((__tmp61192 + (let ((__tmp61197 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60931 - (let ((__tmp60932 + (__tmp61193 + (let ((__tmp61194 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp60934 (gx#datum->syntax '#f 'probe)) - (__tmp60933 + (let ((__tmp61196 (gx#datum->syntax '#f 'probe)) + (__tmp61195 (let () (declare (not safe)) - (cons _L58333_ '())))) + (cons _L58595_ '())))) (declare (not safe)) - (cons __tmp60934 __tmp60933)))) + (cons __tmp61196 __tmp61195)))) (declare (not safe)) - (cons _L58337_ __tmp60932)))) + (cons _L58599_ __tmp61194)))) (declare (not safe)) - (cons __tmp60935 __tmp60931))) - (__tmp60908 - (let ((__tmp60909 - (let ((__tmp60929 (gx#datum->syntax '#f 'vector-set!)) - (__tmp60910 - (let ((__tmp60911 - (let ((__tmp60924 - (let ((__tmp60928 + (cons __tmp61197 __tmp61193))) + (__tmp61170 + (let ((__tmp61171 + (let ((__tmp61191 (gx#datum->syntax '#f 'vector-set!)) + (__tmp61172 + (let ((__tmp61173 + (let ((__tmp61186 + (let ((__tmp61190 (gx#datum->syntax '#f 'fx+)) - (__tmp60925 - (let ((__tmp60927 + (__tmp61187 + (let ((__tmp61189 (gx#datum->syntax '#f 'probe)) - (__tmp60926 + (__tmp61188 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60927 - __tmp60926)))) + (cons __tmp61189 + __tmp61188)))) (declare (not safe)) - (cons __tmp60928 __tmp60925))) - (__tmp60912 - (let ((__tmp60913 - (let ((__tmp60914 - (let ((__tmp60915 - (let ((__tmp60923 + (cons __tmp61190 __tmp61187))) + (__tmp61174 + (let ((__tmp61175 + (let ((__tmp61176 + (let ((__tmp61177 + (let ((__tmp61185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'vector-ref)) - (__tmp60916 - (let ((__tmp60917 - (let ((__tmp60918 - (let ((__tmp60922 + (__tmp61178 + (let ((__tmp61179 + (let ((__tmp61180 + (let ((__tmp61184 (gx#datum->syntax '#f 'fx+)) - (__tmp60919 - (let ((__tmp60921 + (__tmp61181 + (let ((__tmp61183 (gx#datum->syntax '#f 'probe)) - (__tmp60920 + (__tmp61182 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60921 - __tmp60920)))) + (cons __tmp61183 + __tmp61182)))) (declare (not safe)) - (cons __tmp60922 __tmp60919)))) + (cons __tmp61184 __tmp61181)))) (declare (not safe)) - (cons __tmp60918 '())))) + (cons __tmp61180 '())))) (declare (not safe)) - (cons _L58337_ __tmp60917)))) + (cons _L58599_ __tmp61179)))) (declare (not safe)) - (cons __tmp60923 __tmp60916)))) + (cons __tmp61185 __tmp61178)))) (declare (not safe)) - (cons __tmp60915 '())))) + (cons __tmp61177 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L58332_ - __tmp60914)))) + (cons _L58594_ + __tmp61176)))) (declare (not safe)) - (cons __tmp60913 '())))) + (cons __tmp61175 '())))) (declare (not safe)) - (cons __tmp60924 __tmp60912)))) + (cons __tmp61186 __tmp61174)))) (declare (not safe)) - (cons _L58337_ __tmp60911)))) + (cons _L58599_ __tmp61173)))) (declare (not safe)) - (cons __tmp60929 __tmp60910)))) + (cons __tmp61191 __tmp61172)))) (declare (not safe)) - (cons __tmp60909 '())))) + (cons __tmp61171 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60930 - __tmp60908)))) + (cons __tmp61192 + __tmp61170)))) (declare (not safe)) - (cons __tmp60936 __tmp60907))) - (__tmp60883 - (let ((__tmp60884 - (let ((__tmp60905 + (cons __tmp61198 __tmp61169))) + (__tmp61145 + (let ((__tmp61146 + (let ((__tmp61167 (gx#datum->syntax '#f 'else)) - (__tmp60885 - (let ((__tmp60886 - (let ((__tmp60904 + (__tmp61147 + (let ((__tmp61148 + (let ((__tmp61166 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'loop)) - (__tmp60887 - (let ((__tmp60896 - (let ((__tmp60903 + (__tmp61149 + (let ((__tmp61158 + (let ((__tmp61165 (gx#datum->syntax '#f 'probe-step)) - (__tmp60897 - (let ((__tmp60902 + (__tmp61159 + (let ((__tmp61164 (gx#datum->syntax '#f 'start)) - (__tmp60898 - (let ((__tmp60901 + (__tmp61160 + (let ((__tmp61163 (gx#datum->syntax '#f 'i)) - (__tmp60899 - (let ((__tmp60900 + (__tmp61161 + (let ((__tmp61162 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size))) (declare (not safe)) - (cons __tmp60900 '())))) + (cons __tmp61162 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60901 - __tmp60899)))) + (cons __tmp61163 + __tmp61161)))) (declare (not safe)) - (cons __tmp60902 __tmp60898)))) + (cons __tmp61164 __tmp61160)))) (declare (not safe)) - (cons __tmp60903 __tmp60897))) - (__tmp60888 - (let ((__tmp60891 - (let ((__tmp60895 + (cons __tmp61165 __tmp61159))) + (__tmp61150 + (let ((__tmp61153 + (let ((__tmp61157 (gx#datum->syntax '#f 'fx+)) - (__tmp60892 - (let ((__tmp60894 + (__tmp61154 + (let ((__tmp61156 (gx#datum->syntax '#f 'i)) - (__tmp60893 + (__tmp61155 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp60894 - __tmp60893)))) + (cons __tmp61156 + __tmp61155)))) (declare (not safe)) - (cons __tmp60895 __tmp60892))) - (__tmp60889 - (let ((__tmp60890 + (cons __tmp61157 __tmp61154))) + (__tmp61151 + (let ((__tmp61152 (gx#datum->syntax '#f 'deleted))) (declare (not safe)) - (cons __tmp60890 '())))) + (cons __tmp61152 '())))) (declare (not safe)) - (cons __tmp60891 __tmp60889)))) + (cons __tmp61153 __tmp61151)))) (declare (not safe)) - (cons __tmp60896 __tmp60888)))) + (cons __tmp61158 __tmp61150)))) (declare (not safe)) - (cons __tmp60904 __tmp60887)))) + (cons __tmp61166 __tmp61149)))) (declare (not safe)) - (cons __tmp60886 '())))) + (cons __tmp61148 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60905 - __tmp60885)))) + (cons __tmp61167 + __tmp61147)))) (declare (not safe)) - (cons __tmp60884 '())))) + (cons __tmp61146 '())))) (declare (not safe)) - (cons __tmp60906 __tmp60883)))) + (cons __tmp61168 __tmp61145)))) (declare (not safe)) - (cons __tmp60940 __tmp60882)))) + (cons __tmp61202 __tmp61144)))) (declare (not safe)) - (cons __tmp60973 __tmp60881)))) + (cons __tmp61235 __tmp61143)))) (declare (not safe)) - (cons __tmp61036 __tmp60880)))) + (cons __tmp61298 __tmp61142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp60879 '())))) + (cons __tmp61141 '())))) (declare (not safe)) - (cons __tmp61037 __tmp60878)))) + (cons __tmp61299 __tmp61140)))) (declare (not safe)) - (cons __tmp61045 __tmp60877)))) + (cons __tmp61307 __tmp61139)))) (declare (not safe)) - (cons __tmp60876 '())))) + (cons __tmp61138 '())))) (declare (not safe)) - (cons __tmp61046 __tmp60875)))) + (cons __tmp61308 __tmp61137)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61059 - __tmp60874)))) + (cons __tmp61321 + __tmp61136)))) (declare (not safe)) - (cons __tmp61060 __tmp60873)))) + (cons __tmp61322 __tmp61135)))) (declare (not safe)) - (cons __tmp60872 '())))) + (cons __tmp61134 '())))) (declare (not safe)) - (cons __tmp61061 __tmp60871)))) + (cons __tmp61323 __tmp61133)))) (declare (not safe)) - (cons __tmp61101 __tmp60870))) - _hd5821458322_ - _hd5821158312_ - _hd5820858302_ - _hd5820558292_ - _hd5820258282_ - _hd5819958272_ - _hd5819658262_ - _hd5819358252_ - _hd5819058242_) - (_g5817558221_ _g5817658225_)))) + (cons __tmp61363 __tmp61132))) + _hd5847658584_ + _hd5847358574_ + _hd5847058564_ + _hd5846758554_ + _hd5846458544_ + _hd5846158534_ + _hd5845858524_ + _hd5845558514_ + _hd5845258504_) + (_g5843758483_ _g5843858487_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5817558221_ - _g5817658225_)))) - (_g5817558221_ _g5817658225_)))) - (_g5817558221_ _g5817658225_)))) - (_g5817558221_ _g5817658225_)))) - (_g5817558221_ _g5817658225_)))) + (_g5843758483_ + _g5843858487_)))) + (_g5843758483_ _g5843858487_)))) + (_g5843758483_ _g5843858487_)))) + (_g5843758483_ _g5843858487_)))) + (_g5843758483_ _g5843858487_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5817558221_ - _g5817658225_)))) - (_g5817558221_ _g5817658225_)))) - (_g5817558221_ _g5817658225_)))) - (_g5817558221_ _g5817658225_)))) - (_g5817558221_ _g5817658225_))))) - (_g5817458374_ _$stx58171_)))) + (_g5843758483_ + _g5843858487_)))) + (_g5843758483_ _g5843858487_)))) + (_g5843758483_ _g5843858487_)))) + (_g5843758483_ _g5843858487_)))) + (_g5843758483_ _g5843858487_))))) + (_g5843658636_ _$stx58433_)))) (define |[:0:]#__table-del!| - (lambda (_$stx58378_) - (let* ((_g5838258416_ - (lambda (_g5838358412_) + (lambda (_$stx58640_) + (let* ((_g5864458678_ + (lambda (_g5864558674_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5838358412_))) - (_g5838158527_ - (lambda (_g5838358420_) - (if (gx#stx-pair? _g5838358420_) - (let ((_e5839258423_ (gx#syntax-e _g5838358420_))) - (let ((_hd5839158427_ + _g5864558674_))) + (_g5864358789_ + (lambda (_g5864558682_) + (if (gx#stx-pair? _g5864558682_) + (let ((_e5865458685_ (gx#syntax-e _g5864558682_))) + (let ((_hd5865358689_ (let () (declare (not safe)) - (##car _e5839258423_))) - (_tl5839058430_ + (##car _e5865458685_))) + (_tl5865258692_ (let () (declare (not safe)) - (##cdr _e5839258423_)))) - (if (gx#stx-pair? _tl5839058430_) - (let ((_e5839558433_ (gx#syntax-e _tl5839058430_))) - (let ((_hd5839458437_ + (##cdr _e5865458685_)))) + (if (gx#stx-pair? _tl5865258692_) + (let ((_e5865758695_ (gx#syntax-e _tl5865258692_))) + (let ((_hd5865658699_ (let () (declare (not safe)) - (##car _e5839558433_))) - (_tl5839358440_ + (##car _e5865758695_))) + (_tl5865558702_ (let () (declare (not safe)) - (##cdr _e5839558433_)))) - (if (gx#stx-pair? _tl5839358440_) - (let ((_e5839858443_ - (gx#syntax-e _tl5839358440_))) - (let ((_hd5839758447_ + (##cdr _e5865758695_)))) + (if (gx#stx-pair? _tl5865558702_) + (let ((_e5866058705_ + (gx#syntax-e _tl5865558702_))) + (let ((_hd5865958709_ (let () (declare (not safe)) - (##car _e5839858443_))) - (_tl5839658450_ + (##car _e5866058705_))) + (_tl5865858712_ (let () (declare (not safe)) - (##cdr _e5839858443_)))) - (if (gx#stx-pair? _tl5839658450_) - (let ((_e5840158453_ + (##cdr _e5866058705_)))) + (if (gx#stx-pair? _tl5865858712_) + (let ((_e5866358715_ (gx#syntax-e - _tl5839658450_))) - (let ((_hd5840058457_ + _tl5865858712_))) + (let ((_hd5866258719_ (let () (declare (not safe)) - (##car _e5840158453_))) - (_tl5839958460_ + (##car _e5866358715_))) + (_tl5866158722_ (let () (declare (not safe)) - (##cdr _e5840158453_)))) + (##cdr _e5866358715_)))) (if (gx#stx-pair? - _tl5839958460_) - (let ((_e5840458463_ + _tl5866158722_) + (let ((_e5866658725_ (gx#syntax-e - _tl5839958460_))) - (let ((_hd5840358467_ + _tl5866158722_))) + (let ((_hd5866558729_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e5840458463_))) - (_tl5840258470_ - (let () (declare (not safe)) (##cdr _e5840458463_)))) - (if (gx#stx-pair? _tl5840258470_) - (let ((_e5840758473_ (gx#syntax-e _tl5840258470_))) - (let ((_hd5840658477_ + (##car _e5866658725_))) + (_tl5866458732_ + (let () (declare (not safe)) (##cdr _e5866658725_)))) + (if (gx#stx-pair? _tl5866458732_) + (let ((_e5866958735_ (gx#syntax-e _tl5866458732_))) + (let ((_hd5866858739_ (let () (declare (not safe)) - (##car _e5840758473_))) - (_tl5840558480_ + (##car _e5866958735_))) + (_tl5866758742_ (let () (declare (not safe)) - (##cdr _e5840758473_)))) - (if (gx#stx-pair? _tl5840558480_) - (let ((_e5841058483_ (gx#syntax-e _tl5840558480_))) - (let ((_hd5840958487_ + (##cdr _e5866958735_)))) + (if (gx#stx-pair? _tl5866758742_) + (let ((_e5867258745_ (gx#syntax-e _tl5866758742_))) + (let ((_hd5867158749_ (let () (declare (not safe)) - (##car _e5841058483_))) - (_tl5840858490_ + (##car _e5867258745_))) + (_tl5867058752_ (let () (declare (not safe)) - (##cdr _e5841058483_)))) - (if (gx#stx-null? _tl5840858490_) - ((lambda (_L58493_ - _L58495_ - _L58496_ - _L58497_ - _L58498_ - _L58499_) - (let ((__tmp61263 + (##cdr _e5867258745_)))) + (if (gx#stx-null? _tl5867058752_) + ((lambda (_L58755_ + _L58757_ + _L58758_ + _L58759_ + _L58760_ + _L58761_) + (let ((__tmp61525 (gx#datum->syntax '#f 'let*)) - (__tmp61102 - (let ((__tmp61223 - (let ((__tmp61254 - (let ((__tmp61262 + (__tmp61364 + (let ((__tmp61485 + (let ((__tmp61516 + (let ((__tmp61524 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp61255 - (let ((__tmp61256 - (let ((__tmp61261 + (__tmp61517 + (let ((__tmp61518 + (let ((__tmp61523 (gx#datum->syntax '#f 'fxxor)) - (__tmp61257 - (let ((__tmp61259 - (let ((__tmp61260 + (__tmp61519 + (let ((__tmp61521 + (let ((__tmp61522 (let () (declare (not safe)) - (cons _L58495_ '())))) + (cons _L58757_ '())))) (declare (not safe)) - (cons _L58497_ __tmp61260))) - (__tmp61258 + (cons _L58759_ __tmp61522))) + (__tmp61520 (let () (declare (not safe)) - (cons _L58498_ '())))) + (cons _L58760_ '())))) (declare (not safe)) - (cons __tmp61259 __tmp61258)))) + (cons __tmp61521 __tmp61520)))) (declare (not safe)) - (cons __tmp61261 __tmp61257)))) + (cons __tmp61523 __tmp61519)))) (declare (not safe)) - (cons __tmp61256 '())))) + (cons __tmp61518 '())))) (declare (not safe)) - (cons __tmp61262 __tmp61255))) - (__tmp61224 - (let ((__tmp61248 - (let ((__tmp61253 (gx#datum->syntax '#f 'size)) - (__tmp61249 - (let ((__tmp61250 - (let ((__tmp61252 + (cons __tmp61524 __tmp61517))) + (__tmp61486 + (let ((__tmp61510 + (let ((__tmp61515 (gx#datum->syntax '#f 'size)) + (__tmp61511 + (let ((__tmp61512 + (let ((__tmp61514 (gx#datum->syntax '#f 'vector-length)) - (__tmp61251 + (__tmp61513 (let () (declare (not safe)) - (cons _L58499_ '())))) + (cons _L58761_ '())))) (declare (not safe)) - (cons __tmp61252 __tmp61251)))) + (cons __tmp61514 __tmp61513)))) (declare (not safe)) - (cons __tmp61250 '())))) + (cons __tmp61512 '())))) (declare (not safe)) - (cons __tmp61253 __tmp61249))) - (__tmp61225 - (let ((__tmp61240 - (let ((__tmp61247 + (cons __tmp61515 __tmp61511))) + (__tmp61487 + (let ((__tmp61502 + (let ((__tmp61509 (gx#datum->syntax '#f 'entries)) - (__tmp61241 - (let ((__tmp61242 - (let ((__tmp61246 + (__tmp61503 + (let ((__tmp61504 + (let ((__tmp61508 (gx#datum->syntax '#f 'fxquotient)) - (__tmp61243 - (let ((__tmp61245 + (__tmp61505 + (let ((__tmp61507 (gx#datum->syntax '#f 'size)) - (__tmp61244 + (__tmp61506 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp61245 __tmp61244)))) + (cons __tmp61507 __tmp61506)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61246 - __tmp61243)))) + (cons __tmp61508 + __tmp61505)))) (declare (not safe)) - (cons __tmp61242 '())))) + (cons __tmp61504 '())))) (declare (not safe)) - (cons __tmp61247 __tmp61241))) - (__tmp61226 - (let ((__tmp61227 - (let ((__tmp61239 + (cons __tmp61509 __tmp61503))) + (__tmp61488 + (let ((__tmp61489 + (let ((__tmp61501 (gx#datum->syntax '#f 'start)) - (__tmp61228 - (let ((__tmp61229 - (let ((__tmp61238 + (__tmp61490 + (let ((__tmp61491 + (let ((__tmp61500 (gx#datum->syntax '#f 'fxarithmetic-shift-left)) - (__tmp61230 - (let ((__tmp61232 + (__tmp61492 + (let ((__tmp61494 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61237 + (let ((__tmp61499 (gx#datum->syntax '#f 'fxmodulo)) - (__tmp61233 - (let ((__tmp61236 + (__tmp61495 + (let ((__tmp61498 (gx#datum->syntax '#f 'h)) - (__tmp61234 - (let ((__tmp61235 + (__tmp61496 + (let ((__tmp61497 (gx#datum->syntax '#f 'entries))) (declare (not safe)) - (cons __tmp61235 '())))) + (cons __tmp61497 '())))) (declare (not safe)) - (cons __tmp61236 __tmp61234)))) + (cons __tmp61498 __tmp61496)))) (declare (not safe)) - (cons __tmp61237 __tmp61233))) - (__tmp61231 + (cons __tmp61499 __tmp61495))) + (__tmp61493 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61232 __tmp61231)))) + (cons __tmp61494 __tmp61493)))) (declare (not safe)) - (cons __tmp61238 __tmp61230)))) + (cons __tmp61500 __tmp61492)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61229 '())))) + (cons __tmp61491 '())))) (declare (not safe)) - (cons __tmp61239 __tmp61228)))) + (cons __tmp61501 __tmp61490)))) (declare (not safe)) - (cons __tmp61227 '())))) + (cons __tmp61489 '())))) (declare (not safe)) - (cons __tmp61240 __tmp61226)))) + (cons __tmp61502 __tmp61488)))) (declare (not safe)) - (cons __tmp61248 __tmp61225)))) + (cons __tmp61510 __tmp61487)))) (declare (not safe)) - (cons __tmp61254 __tmp61224))) + (cons __tmp61516 __tmp61486))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp61103 - (let ((__tmp61104 - (let ((__tmp61222 + (__tmp61365 + (let ((__tmp61366 + (let ((__tmp61484 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp61105 - (let ((__tmp61221 (gx#datum->syntax '#f 'loop)) - (__tmp61106 - (let ((__tmp61212 - (let ((__tmp61217 - (let ((__tmp61220 + (__tmp61367 + (let ((__tmp61483 (gx#datum->syntax '#f 'loop)) + (__tmp61368 + (let ((__tmp61474 + (let ((__tmp61479 + (let ((__tmp61482 (gx#datum->syntax '#f 'probe)) - (__tmp61218 - (let ((__tmp61219 + (__tmp61480 + (let ((__tmp61481 (gx#datum->syntax '#f 'start))) (declare (not safe)) - (cons __tmp61219 + (cons __tmp61481 '())))) (declare (not safe)) - (cons __tmp61220 - __tmp61218))) - (__tmp61213 - (let ((__tmp61214 - (let ((__tmp61216 + (cons __tmp61482 + __tmp61480))) + (__tmp61475 + (let ((__tmp61476 + (let ((__tmp61478 (gx#datum->syntax '#f 'i)) - (__tmp61215 + (__tmp61477 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61216 __tmp61215)))) + (cons __tmp61478 __tmp61477)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61214 '())))) + (cons __tmp61476 '())))) (declare (not safe)) - (cons __tmp61217 __tmp61213))) - (__tmp61107 - (let ((__tmp61108 - (let ((__tmp61211 + (cons __tmp61479 __tmp61475))) + (__tmp61369 + (let ((__tmp61370 + (let ((__tmp61473 (gx#datum->syntax '#f 'let)) - (__tmp61109 - (let ((__tmp61203 - (let ((__tmp61210 + (__tmp61371 + (let ((__tmp61465 + (let ((__tmp61472 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'k)) - (__tmp61204 - (let ((__tmp61205 - (let ((__tmp61209 + (__tmp61466 + (let ((__tmp61467 + (let ((__tmp61471 (gx#datum->syntax '#f 'vector-ref)) - (__tmp61206 - (let ((__tmp61207 - (let ((__tmp61208 + (__tmp61468 + (let ((__tmp61469 + (let ((__tmp61470 (gx#datum->syntax '#f 'probe))) (declare (not safe)) - (cons __tmp61208 '())))) + (cons __tmp61470 '())))) (declare (not safe)) - (cons _L58499_ __tmp61207)))) + (cons _L58761_ __tmp61469)))) (declare (not safe)) - (cons __tmp61209 __tmp61206)))) + (cons __tmp61471 __tmp61468)))) (declare (not safe)) - (cons __tmp61205 '())))) + (cons __tmp61467 '())))) (declare (not safe)) - (cons __tmp61210 __tmp61204))) - (__tmp61110 - (let ((__tmp61111 - (let ((__tmp61202 (gx#datum->syntax '#f 'cond)) - (__tmp61112 - (let ((__tmp61191 - (let ((__tmp61195 - (let ((__tmp61201 + (cons __tmp61472 __tmp61466))) + (__tmp61372 + (let ((__tmp61373 + (let ((__tmp61464 (gx#datum->syntax '#f 'cond)) + (__tmp61374 + (let ((__tmp61453 + (let ((__tmp61457 + (let ((__tmp61463 (gx#datum->syntax '#f 'eq?)) - (__tmp61196 - (let ((__tmp61200 + (__tmp61458 + (let ((__tmp61462 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'k)) - (__tmp61197 - (let ((__tmp61198 - (let ((__tmp61199 + (__tmp61459 + (let ((__tmp61460 + (let ((__tmp61461 (gx#datum->syntax '#f 'macro-unused-obj))) (declare (not safe)) - (cons __tmp61199 '())))) + (cons __tmp61461 '())))) (declare (not safe)) - (cons __tmp61198 '())))) + (cons __tmp61460 '())))) (declare (not safe)) - (cons __tmp61200 __tmp61197)))) + (cons __tmp61462 __tmp61459)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61201 - __tmp61196))) - (__tmp61192 - (let ((__tmp61193 - (let ((__tmp61194 + (cons __tmp61463 + __tmp61458))) + (__tmp61454 + (let ((__tmp61455 + (let ((__tmp61456 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'void))) (declare (not safe)) - (cons __tmp61194 '())))) + (cons __tmp61456 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61193 '())))) + (cons __tmp61455 '())))) (declare (not safe)) - (cons __tmp61195 __tmp61192))) - (__tmp61113 - (let ((__tmp61165 - (let ((__tmp61184 - (let ((__tmp61190 + (cons __tmp61457 __tmp61454))) + (__tmp61375 + (let ((__tmp61427 + (let ((__tmp61446 + (let ((__tmp61452 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'eq?)) - (__tmp61185 - (let ((__tmp61189 (gx#datum->syntax '#f 'k)) - (__tmp61186 - (let ((__tmp61187 - (let ((__tmp61188 + (__tmp61447 + (let ((__tmp61451 (gx#datum->syntax '#f 'k)) + (__tmp61448 + (let ((__tmp61449 + (let ((__tmp61450 (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp61188 '())))) + (cons __tmp61450 '())))) (declare (not safe)) - (cons __tmp61187 '())))) + (cons __tmp61449 '())))) (declare (not safe)) - (cons __tmp61189 __tmp61186)))) + (cons __tmp61451 __tmp61448)))) (declare (not safe)) - (cons __tmp61190 __tmp61185))) - (__tmp61166 - (let ((__tmp61167 - (let ((__tmp61183 (gx#datum->syntax '#f 'loop)) - (__tmp61168 - (let ((__tmp61175 - (let ((__tmp61182 + (cons __tmp61452 __tmp61447))) + (__tmp61428 + (let ((__tmp61429 + (let ((__tmp61445 (gx#datum->syntax '#f 'loop)) + (__tmp61430 + (let ((__tmp61437 + (let ((__tmp61444 (gx#datum->syntax '#f 'probe-step)) - (__tmp61176 - (let ((__tmp61181 + (__tmp61438 + (let ((__tmp61443 (gx#datum->syntax '#f 'start)) - (__tmp61177 - (let ((__tmp61180 + (__tmp61439 + (let ((__tmp61442 (gx#datum->syntax '#f 'i)) - (__tmp61178 - (let ((__tmp61179 + (__tmp61440 + (let ((__tmp61441 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp61179 '())))) + (cons __tmp61441 '())))) (declare (not safe)) - (cons __tmp61180 __tmp61178)))) + (cons __tmp61442 __tmp61440)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61181 __tmp61177)))) + (cons __tmp61443 __tmp61439)))) (declare (not safe)) - (cons __tmp61182 __tmp61176))) - (__tmp61169 - (let ((__tmp61170 - (let ((__tmp61174 + (cons __tmp61444 __tmp61438))) + (__tmp61431 + (let ((__tmp61432 + (let ((__tmp61436 (gx#datum->syntax '#f 'fx+)) - (__tmp61171 - (let ((__tmp61173 + (__tmp61433 + (let ((__tmp61435 (gx#datum->syntax '#f 'i)) - (__tmp61172 + (__tmp61434 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61173 - __tmp61172)))) + (cons __tmp61435 + __tmp61434)))) (declare (not safe)) - (cons __tmp61174 __tmp61171)))) + (cons __tmp61436 __tmp61433)))) (declare (not safe)) - (cons __tmp61170 '())))) + (cons __tmp61432 '())))) (declare (not safe)) - (cons __tmp61175 __tmp61169)))) + (cons __tmp61437 __tmp61431)))) (declare (not safe)) - (cons __tmp61183 __tmp61168)))) + (cons __tmp61445 __tmp61430)))) (declare (not safe)) - (cons __tmp61167 '())))) + (cons __tmp61429 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61184 - __tmp61166))) - (__tmp61114 - (let ((__tmp61136 - (let ((__tmp61161 - (let ((__tmp61162 + (cons __tmp61446 + __tmp61428))) + (__tmp61376 + (let ((__tmp61398 + (let ((__tmp61423 + (let ((__tmp61424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp61163 - (let ((__tmp61164 + (let ((__tmp61425 + (let ((__tmp61426 (gx#datum->syntax '#f 'k))) (declare (not safe)) - (cons __tmp61164 '())))) + (cons __tmp61426 '())))) (declare (not safe)) - (cons _L58495_ __tmp61163)))) + (cons _L58757_ __tmp61425)))) (declare (not safe)) - (cons _L58496_ __tmp61162))) - (__tmp61137 - (let ((__tmp61153 - (let ((__tmp61160 + (cons _L58758_ __tmp61424))) + (__tmp61399 + (let ((__tmp61415 + (let ((__tmp61422 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61154 - (let ((__tmp61155 - (let ((__tmp61159 + (__tmp61416 + (let ((__tmp61417 + (let ((__tmp61421 (gx#datum->syntax '#f 'probe)) - (__tmp61156 - (let ((__tmp61157 - (let ((__tmp61158 + (__tmp61418 + (let ((__tmp61419 + (let ((__tmp61420 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'macro-deleted-obj))) (declare (not safe)) - (cons __tmp61158 '())))) + (cons __tmp61420 '())))) (declare (not safe)) - (cons __tmp61157 '())))) + (cons __tmp61419 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61159 __tmp61156)))) + (cons __tmp61421 __tmp61418)))) (declare (not safe)) - (cons _L58499_ __tmp61155)))) + (cons _L58761_ __tmp61417)))) (declare (not safe)) - (cons __tmp61160 __tmp61154))) - (__tmp61138 - (let ((__tmp61141 - (let ((__tmp61152 + (cons __tmp61422 __tmp61416))) + (__tmp61400 + (let ((__tmp61403 + (let ((__tmp61414 (gx#datum->syntax '#f 'vector-set!)) - (__tmp61142 - (let ((__tmp61143 - (let ((__tmp61147 - (let ((__tmp61151 + (__tmp61404 + (let ((__tmp61405 + (let ((__tmp61409 + (let ((__tmp61413 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp61148 - (let ((__tmp61150 (gx#datum->syntax '#f 'probe)) - (__tmp61149 + (__tmp61410 + (let ((__tmp61412 (gx#datum->syntax '#f 'probe)) + (__tmp61411 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61150 __tmp61149)))) + (cons __tmp61412 __tmp61411)))) (declare (not safe)) - (cons __tmp61151 __tmp61148))) - (__tmp61144 - (let ((__tmp61145 - (let ((__tmp61146 + (cons __tmp61413 __tmp61410))) + (__tmp61406 + (let ((__tmp61407 + (let ((__tmp61408 (gx#datum->syntax '#f 'macro-absent-obj))) (declare (not safe)) - (cons __tmp61146 '())))) + (cons __tmp61408 '())))) (declare (not safe)) - (cons __tmp61145 '())))) + (cons __tmp61407 '())))) (declare (not safe)) - (cons __tmp61147 __tmp61144)))) + (cons __tmp61409 __tmp61406)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L58499_ __tmp61143)))) + (cons _L58761_ __tmp61405)))) (declare (not safe)) - (cons __tmp61152 __tmp61142))) - (__tmp61139 - (let ((__tmp61140 + (cons __tmp61414 __tmp61404))) + (__tmp61401 + (let ((__tmp61402 (let () (declare (not safe)) - (cons _L58493_ '())))) + (cons _L58755_ '())))) (declare (not safe)) - (cons __tmp61140 '())))) + (cons __tmp61402 '())))) (declare (not safe)) - (cons __tmp61141 __tmp61139)))) + (cons __tmp61403 __tmp61401)))) (declare (not safe)) - (cons __tmp61153 __tmp61138)))) + (cons __tmp61415 __tmp61400)))) (declare (not safe)) - (cons __tmp61161 __tmp61137))) - (__tmp61115 - (let ((__tmp61116 - (let ((__tmp61135 (gx#datum->syntax '#f 'else)) - (__tmp61117 - (let ((__tmp61118 - (let ((__tmp61134 + (cons __tmp61423 __tmp61399))) + (__tmp61377 + (let ((__tmp61378 + (let ((__tmp61397 (gx#datum->syntax '#f 'else)) + (__tmp61379 + (let ((__tmp61380 + (let ((__tmp61396 (gx#datum->syntax '#f 'loop)) - (__tmp61119 - (let ((__tmp61126 - (let ((__tmp61133 + (__tmp61381 + (let ((__tmp61388 + (let ((__tmp61395 (gx#datum->syntax '#f 'probe-step)) - (__tmp61127 - (let ((__tmp61132 + (__tmp61389 + (let ((__tmp61394 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'start)) - (__tmp61128 - (let ((__tmp61131 (gx#datum->syntax '#f 'i)) - (__tmp61129 - (let ((__tmp61130 + (__tmp61390 + (let ((__tmp61393 (gx#datum->syntax '#f 'i)) + (__tmp61391 + (let ((__tmp61392 (gx#datum->syntax '#f 'size))) (declare (not safe)) - (cons __tmp61130 '())))) + (cons __tmp61392 '())))) (declare (not safe)) - (cons __tmp61131 __tmp61129)))) + (cons __tmp61393 __tmp61391)))) (declare (not safe)) - (cons __tmp61132 __tmp61128)))) + (cons __tmp61394 __tmp61390)))) (declare (not safe)) - (cons __tmp61133 __tmp61127))) + (cons __tmp61395 __tmp61389))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp61120 - (let ((__tmp61121 - (let ((__tmp61125 + (__tmp61382 + (let ((__tmp61383 + (let ((__tmp61387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fx+)) - (__tmp61122 - (let ((__tmp61124 (gx#datum->syntax '#f 'i)) - (__tmp61123 + (__tmp61384 + (let ((__tmp61386 (gx#datum->syntax '#f 'i)) + (__tmp61385 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp61124 __tmp61123)))) + (cons __tmp61386 __tmp61385)))) (declare (not safe)) - (cons __tmp61125 __tmp61122)))) + (cons __tmp61387 __tmp61384)))) (declare (not safe)) - (cons __tmp61121 '())))) + (cons __tmp61383 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61126 __tmp61120)))) + (cons __tmp61388 __tmp61382)))) (declare (not safe)) - (cons __tmp61134 __tmp61119)))) + (cons __tmp61396 __tmp61381)))) (declare (not safe)) - (cons __tmp61118 '())))) + (cons __tmp61380 '())))) (declare (not safe)) - (cons __tmp61135 __tmp61117)))) + (cons __tmp61397 __tmp61379)))) (declare (not safe)) - (cons __tmp61116 '())))) + (cons __tmp61378 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61136 - __tmp61115)))) + (cons __tmp61398 + __tmp61377)))) (declare (not safe)) - (cons __tmp61165 __tmp61114)))) + (cons __tmp61427 __tmp61376)))) (declare (not safe)) - (cons __tmp61191 __tmp61113)))) + (cons __tmp61453 __tmp61375)))) (declare (not safe)) - (cons __tmp61202 __tmp61112)))) + (cons __tmp61464 __tmp61374)))) (declare (not safe)) - (cons __tmp61111 '())))) + (cons __tmp61373 '())))) (declare (not safe)) - (cons __tmp61203 __tmp61110)))) + (cons __tmp61465 __tmp61372)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61211 - __tmp61109)))) + (cons __tmp61473 + __tmp61371)))) (declare (not safe)) - (cons __tmp61108 '())))) + (cons __tmp61370 '())))) (declare (not safe)) - (cons __tmp61212 __tmp61107)))) + (cons __tmp61474 __tmp61369)))) (declare (not safe)) - (cons __tmp61221 __tmp61106)))) + (cons __tmp61483 __tmp61368)))) (declare (not safe)) - (cons __tmp61222 __tmp61105)))) + (cons __tmp61484 __tmp61367)))) (declare (not safe)) - (cons __tmp61104 '())))) + (cons __tmp61366 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp61223 __tmp61103)))) + (cons __tmp61485 __tmp61365)))) (declare (not safe)) - (cons __tmp61263 __tmp61102))) - _hd5840958487_ - _hd5840658477_ - _hd5840358467_ - _hd5840058457_ - _hd5839758447_ - _hd5839458437_) - (_g5838258416_ _g5838358420_)))) - (_g5838258416_ _g5838358420_)))) - (_g5838258416_ _g5838358420_)))) + (cons __tmp61525 __tmp61364))) + _hd5867158749_ + _hd5866858739_ + _hd5866558729_ + _hd5866258719_ + _hd5865958709_ + _hd5865658699_) + (_g5864458678_ _g5864558682_)))) + (_g5864458678_ _g5864558682_)))) + (_g5864458678_ _g5864558682_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g5838258416_ - _g5838358420_)))) - (_g5838258416_ _g5838358420_)))) - (_g5838258416_ _g5838358420_)))) - (_g5838258416_ _g5838358420_)))) - (_g5838258416_ _g5838358420_))))) - (_g5838158527_ _$stx58378_))))) + (_g5864458678_ + _g5864558682_)))) + (_g5864458678_ _g5864558682_)))) + (_g5864458678_ _g5864558682_)))) + (_g5864458678_ _g5864558682_)))) + (_g5864458678_ _g5864558682_))))) + (_g5864358789_ _$stx58640_))))) diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index 35c5b95f..a03e11bb 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 1709375797) + (define gerbil/runtime/thread::timestamp 1709457369) (begin (define spawn - (lambda (_f73444_ . _args73445_) - (if (let () (declare (not safe)) (procedure? _f73444_)) + (lambda (_f73706_ . _args73707_) + (if (let () (declare (not safe)) (procedure? _f73706_)) '#!void - (raise (let ((__obj73446 + (raise (let ((__obj73708 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj73446 + __obj73708 '"expected procedure" 'where: 'spawn 'irritants: - (let () (declare (not safe)) (cons _f73444_ '()))) - __obj73446))) + (let () (declare (not safe)) (cons _f73706_ '()))) + __obj73708))) (let () (declare (not safe)) - (spawn-actor _f73444_ _args73445_ '#!void '#f)))) + (spawn-actor _f73706_ _args73707_ '#!void '#f)))) (define spawn/name - (lambda (_name73440_ _f73441_ . _args73442_) - (if (let () (declare (not safe)) (procedure? _f73441_)) + (lambda (_name73702_ _f73703_ . _args73704_) + (if (let () (declare (not safe)) (procedure? _f73703_)) '#!void - (raise (let ((__obj73447 + (raise (let ((__obj73709 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj73447 + __obj73709 '"expected procedure" 'where: 'spawn/name 'irritants: - (let () (declare (not safe)) (cons _f73441_ '()))) - __obj73447))) + (let () (declare (not safe)) (cons _f73703_ '()))) + __obj73709))) (let () (declare (not safe)) - (spawn-actor _f73441_ _args73442_ _name73440_ '#f)))) + (spawn-actor _f73703_ _args73704_ _name73702_ '#f)))) (define spawn/group - (lambda (_name73434_ _f73435_ . _args73436_) - (if (let () (declare (not safe)) (procedure? _f73435_)) + (lambda (_name73696_ _f73697_ . _args73698_) + (if (let () (declare (not safe)) (procedure? _f73697_)) '#!void - (raise (let ((__obj73448 + (raise (let ((__obj73710 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj73448 + __obj73710 '"expected procedure" 'where: 'spawn/group 'irritants: - (let () (declare (not safe)) (cons _f73435_ '()))) - __obj73448))) - (let ((_tgroup73438_ (make-thread-group _name73434_))) + (let () (declare (not safe)) (cons _f73697_ '()))) + __obj73710))) + (let ((_tgroup73700_ (make-thread-group _name73696_))) (declare (not safe)) - (spawn-actor _f73435_ _args73436_ _name73434_ _tgroup73438_)))) + (spawn-actor _f73697_ _args73698_ _name73696_ _tgroup73700_)))) (define spawn-actor - (lambda (_f73407_ _args73408_ _name73409_ _tgroup73410_) - (letrec ((_thread-main73412_ - (lambda (_thunk73426_) + (lambda (_f73669_ _args73670_ _name73671_ _tgroup73672_) + (letrec ((_thread-main73674_ + (lambda (_thunk73688_) (lambda () (with-exception-handler - (lambda (_exn73429_) - (let ((__tmp73450 - (lambda (_cont73431_) + (lambda (_exn73691_) + (let ((__tmp73712 + (lambda (_cont73693_) (if __unhandled-actor-exception-hook - (let ((__tmp73451 + (let ((__tmp73713 (lambda () (__unhandled-actor-exception-hook - _cont73431_ - _exn73429_)))) + _cont73693_ + _exn73691_)))) (declare (not safe)) - (with-catch void __tmp73451)) + (with-catch void __tmp73713)) '#!void) - (let ((__tmp73452 + (let ((__tmp73714 (let () (declare (not safe)) - (##continuation-last _cont73431_)))) + (##continuation-last _cont73693_)))) (declare (not safe)) (##continuation-graft - __tmp73452 + __tmp73714 ##primordial-exception-handler - _exn73429_))))) + _exn73691_))))) (declare (not safe)) - (##continuation-capture __tmp73450))) - _thunk73426_))))) - (let* ((_thunk73415_ - (if (let () (declare (not safe)) (null? _args73408_)) - _f73407_ - (lambda () (apply _f73407_ _args73408_)))) - (_thunk73418_ + (##continuation-capture __tmp73712))) + _thunk73688_))))) + (let* ((_thunk73677_ + (if (let () (declare (not safe)) (null? _args73670_)) + _f73669_ + (lambda () (apply _f73669_ _args73670_)))) + (_thunk73680_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk73415_)))) - (_tgroup73423_ - (let ((_$e73420_ _tgroup73410_)) - (if _$e73420_ - _$e73420_ + (with-exception-stack-trace__0 _thunk73677_)))) + (_tgroup73685_ + (let ((_$e73682_ _tgroup73672_)) + (if _$e73682_ + _$e73682_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main73412_ _thunk73418_)) - _name73409_ - _tgroup73423_)))))) + (let () (declare (not safe)) (_thread-main73674_ _thunk73680_)) + _name73671_ + _tgroup73685_)))))) (define spawn-thread__% - (lambda (_thunk73385_ _name73386_ _tgroup73387_) - (thread-start! (make-thread _thunk73385_ _name73386_ _tgroup73387_)))) + (lambda (_thunk73647_ _name73648_ _tgroup73649_) + (thread-start! (make-thread _thunk73647_ _name73648_ _tgroup73649_)))) (define spawn-thread__0 - (lambda (_thunk73392_) - (let* ((_name73394_ absent-obj) (_tgroup73396_ absent-obj)) + (lambda (_thunk73654_) + (let* ((_name73656_ absent-obj) (_tgroup73658_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk73392_ _name73394_ _tgroup73396_)))) + (spawn-thread__% _thunk73654_ _name73656_ _tgroup73658_)))) (define spawn-thread__1 - (lambda (_thunk73398_ _name73399_) - (let ((_tgroup73401_ absent-obj)) + (lambda (_thunk73660_ _name73661_) + (let ((_tgroup73663_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk73398_ _name73399_ _tgroup73401_)))) + (spawn-thread__% _thunk73660_ _name73661_ _tgroup73663_)))) (define spawn-thread - (lambda _g73454_ - (let ((_g73453_ (let () (declare (not safe)) (##length _g73454_)))) - (cond ((let () (declare (not safe)) (##fx= _g73453_ 1)) - (apply (lambda (_thunk73392_) + (lambda _g73716_ + (let ((_g73715_ (let () (declare (not safe)) (##length _g73716_)))) + (cond ((let () (declare (not safe)) (##fx= _g73715_ 1)) + (apply (lambda (_thunk73654_) (let () (declare (not safe)) - (spawn-thread__0 _thunk73392_))) - _g73454_)) - ((let () (declare (not safe)) (##fx= _g73453_ 2)) - (apply (lambda (_thunk73398_ _name73399_) + (spawn-thread__0 _thunk73654_))) + _g73716_)) + ((let () (declare (not safe)) (##fx= _g73715_ 2)) + (apply (lambda (_thunk73660_ _name73661_) (let () (declare (not safe)) - (spawn-thread__1 _thunk73398_ _name73399_))) - _g73454_)) - ((let () (declare (not safe)) (##fx= _g73453_ 3)) - (apply (lambda (_thunk73403_ _name73404_ _tgroup73405_) + (spawn-thread__1 _thunk73660_ _name73661_))) + _g73716_)) + ((let () (declare (not safe)) (##fx= _g73715_ 3)) + (apply (lambda (_thunk73665_ _name73666_ _tgroup73667_) (let () (declare (not safe)) (spawn-thread__% - _thunk73403_ - _name73404_ - _tgroup73405_))) - _g73454_)) + _thunk73665_ + _name73666_ + _tgroup73667_))) + _g73716_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g73454_)))))) + _g73716_)))))) (define thread-local-ref__% - (lambda (_key73369_ _default73370_) - (let ((_tab73372_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key73631_ _default73632_) + (let ((_tab73634_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-ref__% _tab73372_ _key73369_ _default73370_)))) + (hash-ref__% _tab73634_ _key73631_ _default73632_)))) (define thread-local-ref__0 - (lambda (_key73377_) - (let ((_default73379_ absent-obj)) + (lambda (_key73639_) + (let ((_default73641_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key73377_ _default73379_)))) + (thread-local-ref__% _key73639_ _default73641_)))) (define thread-local-ref - (lambda _g73456_ - (let ((_g73455_ (let () (declare (not safe)) (##length _g73456_)))) - (cond ((let () (declare (not safe)) (##fx= _g73455_ 1)) - (apply (lambda (_key73377_) + (lambda _g73718_ + (let ((_g73717_ (let () (declare (not safe)) (##length _g73718_)))) + (cond ((let () (declare (not safe)) (##fx= _g73717_ 1)) + (apply (lambda (_key73639_) (let () (declare (not safe)) - (thread-local-ref__0 _key73377_))) - _g73456_)) - ((let () (declare (not safe)) (##fx= _g73455_ 2)) - (apply (lambda (_key73381_ _default73382_) + (thread-local-ref__0 _key73639_))) + _g73718_)) + ((let () (declare (not safe)) (##fx= _g73717_ 2)) + (apply (lambda (_key73643_ _default73644_) (let () (declare (not safe)) - (thread-local-ref__% _key73381_ _default73382_))) - _g73456_)) + (thread-local-ref__% _key73643_ _default73644_))) + _g73718_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g73456_)))))) + _g73718_)))))) (define thread-local-get - (lambda (_key73366_) - (let () (declare (not safe)) (thread-local-ref__% _key73366_ '#f)))) + (lambda (_key73628_) + (let () (declare (not safe)) (thread-local-ref__% _key73628_ '#f)))) (define thread-local-set! - (lambda (_key73361_ _value73362_) - (let ((_tab73364_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key73623_ _value73624_) + (let ((_tab73626_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-put! _tab73364_ _key73361_ _value73362_)))) + (hash-put! _tab73626_ _key73623_ _value73624_)))) (define thread-local-clear! - (lambda (_key73357_) - (let ((_tab73359_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key73619_) + (let ((_tab73621_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-remove! _tab73359_ _key73357_)))) + (hash-remove! _tab73621_ _key73619_)))) (define thread-local-table (lambda () - (let ((_thr73343_ (current-thread))) - (if (actor-thread? _thr73343_) - (let ((_$e73345_ (actor-thread-locals _thr73343_))) - (if _$e73345_ - (values _$e73345_) - (let ((_tab73348_ + (let ((_thr73605_ (current-thread))) + (if (actor-thread? _thr73605_) + (let ((_$e73607_ (actor-thread-locals _thr73605_))) + (if _$e73607_ + (values _$e73607_) + (let ((_tab73610_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _thr73343_ _tab73348_) - _tab73348_))) + (actor-thread-locals-set! _thr73605_ _tab73610_) + _tab73610_))) (if (let () (declare (not safe)) - (eq? _thr73343_ ##primordial-thread)) + (eq? _thr73605_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e73350_ + (let ((_$e73612_ (let () (declare (not safe)) - (hash-get __thread-locals _thr73343_)))) - (if _$e73350_ - ((lambda (_tab73353_) + (hash-get __thread-locals _thr73605_)))) + (if _$e73612_ + ((lambda (_tab73615_) (mutex-unlock! __thread-locals-mutex) - _tab73353_) - _$e73350_) - (let ((_tab73355_ + _tab73615_) + _$e73612_) + (let ((_tab73617_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -228,10 +228,10 @@ (declare (not safe)) (hash-put! __thread-locals - _thr73343_ - _tab73355_)) + _thr73605_ + _tab73617_)) (mutex-unlock! __thread-locals-mutex) - _tab73355_))))))))) + _tab73617_))))))))) (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 (_proc73340_) - (if (let () (declare (not safe)) (procedure? _proc73340_)) + (lambda (_proc73602_) + (if (let () (declare (not safe)) (procedure? _proc73602_)) '#!void - (raise (let ((__obj73449 + (raise (let ((__obj73711 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj73449 + __obj73711 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (let () (declare (not safe)) (cons _proc73340_ '()))) - __obj73449))) - (set! __unhandled-actor-exception-hook _proc73340_))) + (let () (declare (not safe)) (cons _proc73602_ '()))) + __obj73711))) + (set! __unhandled-actor-exception-hook _proc73602_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx73328_ _proc73329_) - (let ((_handler73331_ (current-exception-handler))) + (lambda (_mx73590_ _proc73591_) + (let ((_handler73593_ (current-exception-handler))) (with-exception-handler - (lambda (_e73333_) - (let ((__tmp73457 + (lambda (_e73595_) + (let ((__tmp73719 (lambda () - (mutex-unlock! _mx73328_) - (_handler73331_ _e73333_)))) + (mutex-unlock! _mx73590_) + (_handler73593_ _e73595_)))) (declare (not safe)) - (with-catch void __tmp73457)) + (with-catch void __tmp73719)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e73333_))) + (##thread-end-with-uncaught-exception! _e73595_))) (lambda () - (mutex-lock! _mx73328_) - (let ((_result73337_ (_proc73329_))) - (mutex-unlock! _mx73328_) - _result73337_)))))) + (mutex-lock! _mx73590_) + (let ((_result73599_ (_proc73591_))) + (mutex-unlock! _mx73590_) + _result73599_)))))) (define with-dynamic-lock - (lambda (_mx73323_ _proc73324_) + (lambda (_mx73585_ _proc73586_) (dynamic-wind - (lambda () (mutex-lock! _mx73323_)) - _proc73324_ - (lambda () (mutex-unlock! _mx73323_))))) + (lambda () (mutex-lock! _mx73585_)) + _proc73586_ + (lambda () (mutex-unlock! _mx73585_))))) (define with-exception-stack-trace__% - (lambda (_thunk73304_ _error-port73305_) + (lambda (_thunk73566_ _error-port73567_) (with-exception-handler - (let ((_E73307_ (current-exception-handler))) - (lambda (_exn73309_) + (let ((_E73569_ (current-exception-handler))) + (lambda (_exn73571_) (continuation-capture - (lambda (_cont73311_) + (lambda (_cont73573_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont73311_ - _exn73309_ - _error-port73305_)) + _cont73573_ + _exn73571_ + _error-port73567_)) '#!void) - (_E73307_ _exn73309_))))) - _thunk73304_))) + (_E73569_ _exn73571_))))) + _thunk73566_))) (define with-exception-stack-trace__0 - (lambda (_thunk73316_) - (let ((_error-port73318_ (current-error-port))) + (lambda (_thunk73578_) + (let ((_error-port73580_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk73316_ _error-port73318_)))) + (with-exception-stack-trace__% _thunk73578_ _error-port73580_)))) (define with-exception-stack-trace - (lambda _g73459_ - (let ((_g73458_ (let () (declare (not safe)) (##length _g73459_)))) - (cond ((let () (declare (not safe)) (##fx= _g73458_ 1)) - (apply (lambda (_thunk73316_) + (lambda _g73721_ + (let ((_g73720_ (let () (declare (not safe)) (##length _g73721_)))) + (cond ((let () (declare (not safe)) (##fx= _g73720_ 1)) + (apply (lambda (_thunk73578_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk73316_))) - _g73459_)) - ((let () (declare (not safe)) (##fx= _g73458_ 2)) - (apply (lambda (_thunk73320_ _error-port73321_) + (with-exception-stack-trace__0 _thunk73578_))) + _g73721_)) + ((let () (declare (not safe)) (##fx= _g73720_ 2)) + (apply (lambda (_thunk73582_ _error-port73583_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk73320_ - _error-port73321_))) - _g73459_)) + _thunk73582_ + _error-port73583_))) + _g73721_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g73459_)))))) + _g73721_)))))) (define dump-stack-trace!__% - (lambda (_cont73285_ _exn73286_ _error-port73287_) - (let ((_out73289_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out73289_)) - (display '"*** Unhandled exception in " _out73289_) - (display (current-thread) _out73289_) - (newline _out73289_) - (display-exception _exn73286_ _out73289_) + (lambda (_cont73547_ _exn73548_ _error-port73549_) + (let ((_out73551_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out73551_)) + (display '"*** Unhandled exception in " _out73551_) + (display (current-thread) _out73551_) + (newline _out73551_) + (display-exception _exn73548_ _out73551_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn73286_)) + (class-instance? StackTrace::t _exn73548_)) '#!void (begin - (display '"Continuation backtrace: " _out73289_) - (newline _out73289_) - (display-continuation-backtrace _cont73285_ _out73289_))) - (let ((__tmp73460 (get-output-string _out73289_))) + (display '"Continuation backtrace: " _out73551_) + (newline _out73551_) + (display-continuation-backtrace _cont73547_ _out73551_))) + (let ((__tmp73722 (get-output-string _out73551_))) (declare (not safe)) - (##write-string __tmp73460 _error-port73287_))))) + (##write-string __tmp73722 _error-port73549_))))) (define dump-stack-trace!__0 - (lambda (_cont73294_ _exn73295_) - (let ((_error-port73297_ (current-error-port))) + (lambda (_cont73556_ _exn73557_) + (let ((_error-port73559_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont73294_ _exn73295_ _error-port73297_)))) + (dump-stack-trace!__% _cont73556_ _exn73557_ _error-port73559_)))) (define dump-stack-trace! - (lambda _g73462_ - (let ((_g73461_ (let () (declare (not safe)) (##length _g73462_)))) - (cond ((let () (declare (not safe)) (##fx= _g73461_ 2)) - (apply (lambda (_cont73294_ _exn73295_) + (lambda _g73724_ + (let ((_g73723_ (let () (declare (not safe)) (##length _g73724_)))) + (cond ((let () (declare (not safe)) (##fx= _g73723_ 2)) + (apply (lambda (_cont73556_ _exn73557_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont73294_ _exn73295_))) - _g73462_)) - ((let () (declare (not safe)) (##fx= _g73461_ 3)) - (apply (lambda (_cont73299_ _exn73300_ _error-port73301_) + (dump-stack-trace!__0 _cont73556_ _exn73557_))) + _g73724_)) + ((let () (declare (not safe)) (##fx= _g73723_ 3)) + (apply (lambda (_cont73561_ _exn73562_ _error-port73563_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont73299_ - _exn73300_ - _error-port73301_))) - _g73462_)) + _cont73561_ + _exn73562_ + _error-port73563_))) + _g73724_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g73462_)))))) + _g73724_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util.ssxi.ss b/src/bootstrap/gerbil/runtime/util.ssxi.ss index 720442a6..d87367fd 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -12,32 +12,46 @@ package: gerbil/runtime (@case-lambda (1 create-directory*__0) (2 create-directory*__%))) (declare-type true - (ast-rules - (%#call %#ref) - ((%#call _ (%#ref arg) ...) (%#quote #t)) - ((%#call _ arg ...) (%#begin arg ... (%#quote #t))))) + (@lambda (0) + inline: + (ast-rules + (%#call %#ref) + ((%#call _ (%#ref arg) ...) (%#quote #t)) + ((%#call _ arg ...) (%#begin arg ... (%#quote #t)))))) (declare-type true? - (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref eq?) arg (%#quote #t))))) + (@lambda 1 + inline: + (ast-rules + (%#call) + ((%#call _ arg) (%#call (%#ref eq?) arg (%#quote #t)))))) (declare-type false - (ast-rules - (%#call %#ref) - ((%#call _ (%#ref arg) ...) (%#quote #f)) - ((%#call _ arg ...) (%#begin arg ... (%#quote #f))))) + (@lambda (0) + inline: + (ast-rules + (%#call %#ref) + ((%#call _ (%#ref arg) ...) (%#quote #f)) + ((%#call _ arg ...) (%#begin arg ... (%#quote #f)))))) (declare-type void - (ast-rules - (%#call %#ref) - ((%#call _ (%#ref arg) ...) (%#quote #!void)) - ((%#call _ arg ...) (%#begin arg ... (%#quote #!void))))) + (@lambda (0) + inline: + (ast-rules + (%#call %#ref) + ((%#call _ (%#ref arg) ...) (%#quote #!void)) + ((%#call _ arg ...) (%#begin arg ... (%#quote #!void)))))) (declare-type void? - (ast-rules - (%#call) - ((%#call _ arg) (%#call (%#ref eq?) arg (%#quote #!void))))) + (@lambda 1 + inline: + (ast-rules + (%#call) + ((%#call _ arg) (%#call (%#ref eq?) arg (%#quote #!void)))))) (declare-type eof-object (@lambda (0) #f)) - (declare-type identity (ast-rules (%#call) ((%#call _ arg) arg))) + (declare-type + identity + (@lambda 1 inline: (ast-rules (%#call) ((%#call _ arg) arg)))) (declare-type dssl-object? (@lambda 1 #f)) (declare-type dssl-key-object? (@lambda 1 #f)) (declare-type dssl-rest-object? (@lambda 1 #f)) @@ -46,33 +60,41 @@ package: gerbil/runtime (declare-type nonnegative-fixnum? (@lambda 1 #f)) (declare-type values-count - (lambda (ast) - (ast-case - ast - (%#call %#ref) - ((%#call _ (%#ref var)) - #'(%#if (%#call (%#ref ##values?) (%#ref var)) - (%#call (%#ref ##vector-length) (%#ref var)) - (%#quote 1))) - ((%#call recur expr) - (with-syntax - (($values (make-symbol (gensym '__values)))) - #'(%#let-values ((($values) expr)) (%#call recur (%#ref $values)))))))) + (@lambda 1 + inline: + (lambda (ast) + (ast-case + ast + (%#call %#ref) + ((%#call _ (%#ref var)) + #'(%#if (%#call (%#ref ##values?) (%#ref var)) + (%#call (%#ref ##vector-length) (%#ref var)) + (%#quote 1))) + ((%#call recur expr) + (with-syntax + (($values (make-symbol (gensym '__values)))) + #'(%#let-values + ((($values) expr)) + (%#call recur (%#ref $values))))))))) (declare-type values-ref (@lambda 2 #f)) (declare-type values->list - (lambda (ast) - (ast-case - ast - (%#call %#ref) - ((%#call _ (%#ref var)) - #'(%#if (%#call (%#ref ##values?) (%#ref var)) - (%#call (%#ref ##vector->list) (%#ref var)) - (%#call (%#ref list) (%#ref var)))) - ((%#call recur expr) - (with-syntax - (($values (make-symbol (gensym '__values)))) - #'(%#let-values ((($values) expr)) (%#call recur (%#ref $values)))))))) + (@lambda 1 + inline: + (lambda (ast) + (ast-case + ast + (%#call %#ref) + ((%#call _ (%#ref var)) + #'(%#if (%#call (%#ref ##values?) (%#ref var)) + (%#call (%#ref ##vector->list) (%#ref var)) + (%#call (%#ref list) (%#ref var)))) + ((%#call recur expr) + (with-syntax + (($values (make-symbol (gensym '__values)))) + #'(%#let-values + ((($values) expr)) + (%#call recur (%#ref $values))))))))) (declare-type subvector->list__% (@lambda 2 #f)) (declare-type subvector->list__0 (@lambda 1 #f)) (declare-type subvector->list (@case-lambda (1 #f) (2 #f))) @@ -81,11 +103,13 @@ package: gerbil/runtime (declare-type make-list (@case-lambda (1 make-list__0) (2 make-list__%))) (declare-type cons* - (ast-rules - (%#call) - ((%#call _ x y) (%#call (%#ref cons) x y)) - ((%#call recur x y rest ...) - (%#call (%#ref cons) x (%#call recur y rest ...))))) + (@lambda (2) + inline: + (ast-rules + (%#call) + ((%#call _ x y) (%#call (%#ref cons) x y)) + ((%#call recur x y rest ...) + (%#call (%#ref cons) x (%#call recur y rest ...)))))) (declare-type foldl1 (@lambda 3 #f)) (declare-type foldl2 (@lambda 4 #f)) (declare-type foldl (@case-lambda (3 foldl1) (4 foldl2) ((4) foldl*))) @@ -146,16 +170,32 @@ package: gerbil/runtime (declare-type remf (@lambda 2 #f)) (declare-type 1+ - (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref +) arg (%#quote 1))))) + (@lambda 1 + inline: + (ast-rules + (%#call) + ((%#call _ arg) (%#call (%#ref +) arg (%#quote 1)))))) (declare-type 1- - (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref -) arg (%#quote 1))))) + (@lambda 1 + inline: + (ast-rules + (%#call) + ((%#call _ arg) (%#call (%#ref -) arg (%#quote 1)))))) (declare-type fx1+ - (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref fx+) arg (%#quote 1))))) + (@lambda 1 + inline: + (ast-rules + (%#call) + ((%#call _ arg) (%#call (%#ref fx+) arg (%#quote 1)))))) (declare-type fx1- - (ast-rules (%#call) ((%#call _ arg) (%#call (%#ref fx-) arg (%#quote 1))))) + (@lambda 1 + inline: + (ast-rules + (%#call) + ((%#call _ arg) (%#call (%#ref fx-) arg (%#quote 1)))))) (declare-type fxshift (@lambda 2 fxarithmetic-shift)) (declare-type fx/ (@lambda 2 fxquotient)) (declare-type fx>=0? (@lambda 1 #f)) diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index 97ab714b..b64aa6a6 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,2165 +1,2165 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1709375797) + (define gerbil/runtime/util::timestamp 1709457368) (begin (define displayln - (lambda _args56588_ - (let _lp56590_ ((_rest56592_ _args56588_)) - (let* ((_rest5659356601_ _rest56592_) - (_else5659556609_ (lambda () (newline))) - (_K5659756615_ - (lambda (_rest56612_ _hd56613_) - (display _hd56613_) - (let () (declare (not safe)) (_lp56590_ _rest56612_))))) - (if (let () (declare (not safe)) (##pair? _rest5659356601_)) - (let ((_hd5659856618_ - (let () (declare (not safe)) (##car _rest5659356601_))) - (_tl5659956620_ - (let () (declare (not safe)) (##cdr _rest5659356601_)))) - (let* ((_hd56623_ _hd5659856618_) - (_rest56625_ _tl5659956620_)) + (lambda _args56850_ + (let _lp56852_ ((_rest56854_ _args56850_)) + (let* ((_rest5685556863_ _rest56854_) + (_else5685756871_ (lambda () (newline))) + (_K5685956877_ + (lambda (_rest56874_ _hd56875_) + (display _hd56875_) + (let () (declare (not safe)) (_lp56852_ _rest56874_))))) + (if (let () (declare (not safe)) (##pair? _rest5685556863_)) + (let ((_hd5686056880_ + (let () (declare (not safe)) (##car _rest5685556863_))) + (_tl5686156882_ + (let () (declare (not safe)) (##cdr _rest5685556863_)))) + (let* ((_hd56885_ _hd5686056880_) + (_rest56887_ _tl5686156882_)) (declare (not safe)) - (_K5659756615_ _rest56625_ _hd56623_))) + (_K5685956877_ _rest56887_ _hd56885_))) (let () (declare (not safe)) (newline))))))) - (define display* (lambda _args56586_ (for-each display _args56586_))) + (define display* (lambda _args56848_ (for-each display _args56848_))) (define file-newer? - (lambda (_file156579_ _file256580_) - (letrec ((_modification-time56582_ - (lambda (_file56584_) - (let ((__tmp57009 + (lambda (_file156841_ _file256842_) + (letrec ((_modification-time56844_ + (lambda (_file56846_) + (let ((__tmp57271 (file-info-last-modification-time - (file-info _file56584_ '#t)))) + (file-info _file56846_ '#t)))) (declare (not safe)) - (##time->seconds __tmp57009))))) - (let ((__tmp57011 + (##time->seconds __tmp57271))))) + (let ((__tmp57273 (let () (declare (not safe)) - (_modification-time56582_ _file156579_))) - (__tmp57010 + (_modification-time56844_ _file156841_))) + (__tmp57272 (let () (declare (not safe)) - (_modification-time56582_ _file256580_)))) + (_modification-time56844_ _file256842_)))) (declare (not safe)) - (##fl> __tmp57011 __tmp57010))))) + (##fl> __tmp57273 __tmp57272))))) (define create-directory*__% - (lambda (_dir56553_ _perms56554_) - (letrec ((_create156556_ - (lambda (_path56567_) - (if (file-exists? _path56567_) - (if (let ((__tmp57012 (file-type _path56567_))) + (lambda (_dir56815_ _perms56816_) + (letrec ((_create156818_ + (lambda (_path56829_) + (if (file-exists? _path56829_) + (if (let ((__tmp57274 (file-type _path56829_))) (declare (not safe)) - (eq? __tmp57012 'directory)) + (eq? __tmp57274 'directory)) '#!void (let () (declare (not safe)) (error '"Path component is not a directory" - _path56567_))) - (if _perms56554_ + _path56829_))) + (if _perms56816_ (create-directory (list 'path: - _path56567_ + _path56829_ 'permissions: - _perms56554_)) - (create-directory _path56567_)))))) - (if (file-exists? _dir56553_) + _perms56816_)) + (create-directory _path56829_)))))) + (if (file-exists? _dir56815_) '#!void - (let _lp56558_ ((_start56560_ '0)) - (let ((_$e56562_ + (let _lp56820_ ((_start56822_ '0)) + (let ((_$e56824_ (let () (declare (not safe)) - (string-index__% _dir56553_ '#\/ _start56560_)))) - (if _$e56562_ - ((lambda (_x56565_) - (if (let () (declare (not safe)) (##fx> _x56565_ '0)) - (let ((__tmp57013 - (substring _dir56553_ '0 _x56565_))) + (string-index__% _dir56815_ '#\/ _start56822_)))) + (if _$e56824_ + ((lambda (_x56827_) + (if (let () (declare (not safe)) (##fx> _x56827_ '0)) + (let ((__tmp57275 + (substring _dir56815_ '0 _x56827_))) (declare (not safe)) - (_create156556_ __tmp57013)) + (_create156818_ __tmp57275)) '#!void) - (let ((__tmp57014 + (let ((__tmp57276 (let () (declare (not safe)) - (##fx+ _x56565_ '1)))) + (##fx+ _x56827_ '1)))) (declare (not safe)) - (_lp56558_ __tmp57014))) - _$e56562_) + (_lp56820_ __tmp57276))) + _$e56824_) (let () (declare (not safe)) - (_create156556_ _dir56553_))))))))) + (_create156818_ _dir56815_))))))))) (define create-directory*__0 - (lambda (_dir56572_) - (let ((_perms56574_ '493)) + (lambda (_dir56834_) + (let ((_perms56836_ '493)) (declare (not safe)) - (create-directory*__% _dir56572_ _perms56574_)))) + (create-directory*__% _dir56834_ _perms56836_)))) (define create-directory* - (lambda _g57016_ - (let ((_g57015_ (let () (declare (not safe)) (##length _g57016_)))) - (cond ((let () (declare (not safe)) (##fx= _g57015_ 1)) - (apply (lambda (_dir56572_) + (lambda _g57278_ + (let ((_g57277_ (let () (declare (not safe)) (##length _g57278_)))) + (cond ((let () (declare (not safe)) (##fx= _g57277_ 1)) + (apply (lambda (_dir56834_) (let () (declare (not safe)) - (create-directory*__0 _dir56572_))) - _g57016_)) - ((let () (declare (not safe)) (##fx= _g57015_ 2)) - (apply (lambda (_dir56576_ _perms56577_) + (create-directory*__0 _dir56834_))) + _g57278_)) + ((let () (declare (not safe)) (##fx= _g57277_ 2)) + (apply (lambda (_dir56838_ _perms56839_) (let () (declare (not safe)) - (create-directory*__% _dir56576_ _perms56577_))) - _g57016_)) + (create-directory*__% _dir56838_ _perms56839_))) + _g57278_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g57016_)))))) + _g57278_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g57017_ '#t)) + (define true (lambda _g57279_ '#t)) (define true? - (lambda (_obj56549_) (let () (declare (not safe)) (eq? _obj56549_ '#t)))) - (define false (lambda _g57018_ '#f)) - (define void (lambda _g57019_ '#!void)) + (lambda (_obj56811_) (let () (declare (not safe)) (eq? _obj56811_ '#t)))) + (define false (lambda _g57280_ '#f)) + (define void (lambda _g57281_ '#!void)) (define void? - (lambda (_obj56545_) - (let () (declare (not safe)) (eq? _obj56545_ '#!void)))) - (define eof-object (lambda _g57020_ '#!eof)) - (define identity (lambda (_obj56542_) _obj56542_)) + (lambda (_obj56807_) + (let () (declare (not safe)) (eq? _obj56807_ '#!void)))) + (define eof-object (lambda _g57282_ '#!eof)) + (define identity (lambda (_obj56804_) _obj56804_)) (define dssl-object? - (lambda (_obj56540_) - (if (memq _obj56540_ '(#!key #!rest #!optional)) '#t '#f))) + (lambda (_obj56802_) + (if (memq _obj56802_ '(#!key #!rest #!optional)) '#t '#f))) (define dssl-key-object? - (lambda (_obj56538_) - (let () (declare (not safe)) (eq? _obj56538_ '#!key)))) + (lambda (_obj56800_) + (let () (declare (not safe)) (eq? _obj56800_ '#!key)))) (define dssl-rest-object? - (lambda (_obj56536_) - (let () (declare (not safe)) (eq? _obj56536_ '#!rest)))) + (lambda (_obj56798_) + (let () (declare (not safe)) (eq? _obj56798_ '#!rest)))) (define dssl-optional-object? - (lambda (_obj56534_) - (let () (declare (not safe)) (eq? _obj56534_ '#!optional)))) + (lambda (_obj56796_) + (let () (declare (not safe)) (eq? _obj56796_ '#!optional)))) (define immediate? - (lambda (_obj56530_) - (let* ((_t56532_ (let () (declare (not safe)) (##type _obj56530_))) - (__tmp57021 - (let () (declare (not safe)) (##fxand _t56532_ '1)))) + (lambda (_obj56792_) + (let* ((_t56794_ (let () (declare (not safe)) (##type _obj56792_))) + (__tmp57283 + (let () (declare (not safe)) (##fxand _t56794_ '1)))) (declare (not safe)) - (##fxzero? __tmp57021)))) + (##fxzero? __tmp57283)))) (define nonnegative-fixnum? - (lambda (_obj56528_) - (if (let () (declare (not safe)) (fixnum? _obj56528_)) - (let ((__tmp57022 (fxnegative? _obj56528_))) + (lambda (_obj56790_) + (if (let () (declare (not safe)) (fixnum? _obj56790_)) + (let ((__tmp57284 (fxnegative? _obj56790_))) (declare (not safe)) - (not __tmp57022)) + (not __tmp57284)) '#f))) (define values-count - (lambda (_obj56526_) - (if (let () (declare (not safe)) (##values? _obj56526_)) - (let () (declare (not safe)) (##vector-length _obj56526_)) + (lambda (_obj56788_) + (if (let () (declare (not safe)) (##values? _obj56788_)) + (let () (declare (not safe)) (##vector-length _obj56788_)) '1))) (define values-ref - (lambda (_obj56523_ _k56524_) - (if (let () (declare (not safe)) (##values? _obj56523_)) - (let () (declare (not safe)) (##vector-ref _obj56523_ _k56524_)) - _obj56523_))) + (lambda (_obj56785_ _k56786_) + (if (let () (declare (not safe)) (##values? _obj56785_)) + (let () (declare (not safe)) (##vector-ref _obj56785_ _k56786_)) + _obj56785_))) (define values->list - (lambda (_obj56521_) - (if (let () (declare (not safe)) (##values? _obj56521_)) - (let () (declare (not safe)) (##vector->list _obj56521_)) - (list _obj56521_)))) + (lambda (_obj56783_) + (if (let () (declare (not safe)) (##values? _obj56783_)) + (let () (declare (not safe)) (##vector->list _obj56783_)) + (list _obj56783_)))) (define subvector->list__% - (lambda (_obj56506_ _start56507_) - (let ((_lst56509_ - (let () (declare (not safe)) (##vector->list _obj56506_)))) - (list-tail _lst56509_ _start56507_)))) + (lambda (_obj56768_ _start56769_) + (let ((_lst56771_ + (let () (declare (not safe)) (##vector->list _obj56768_)))) + (list-tail _lst56771_ _start56769_)))) (define subvector->list__0 - (lambda (_obj56514_) - (let ((_start56516_ '0)) + (lambda (_obj56776_) + (let ((_start56778_ '0)) (declare (not safe)) - (subvector->list__% _obj56514_ _start56516_)))) + (subvector->list__% _obj56776_ _start56778_)))) (define subvector->list - (lambda _g57024_ - (let ((_g57023_ (let () (declare (not safe)) (##length _g57024_)))) - (cond ((let () (declare (not safe)) (##fx= _g57023_ 1)) - (apply (lambda (_obj56514_) + (lambda _g57286_ + (let ((_g57285_ (let () (declare (not safe)) (##length _g57286_)))) + (cond ((let () (declare (not safe)) (##fx= _g57285_ 1)) + (apply (lambda (_obj56776_) (let () (declare (not safe)) - (subvector->list__0 _obj56514_))) - _g57024_)) - ((let () (declare (not safe)) (##fx= _g57023_ 2)) - (apply (lambda (_obj56518_ _start56519_) + (subvector->list__0 _obj56776_))) + _g57286_)) + ((let () (declare (not safe)) (##fx= _g57285_ 2)) + (apply (lambda (_obj56780_ _start56781_) (let () (declare (not safe)) - (subvector->list__% _obj56518_ _start56519_))) - _g57024_)) + (subvector->list__% _obj56780_ _start56781_))) + _g57286_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g57024_)))))) + _g57286_)))))) (define make-list__% - (lambda (_k56487_ _val56488_) - (if (let () (declare (not safe)) (fixnum? _k56487_)) + (lambda (_k56749_ _val56750_) + (if (let () (declare (not safe)) (fixnum? _k56749_)) '#!void (let () (declare (not safe)) - (error '"expected argument 1 to be fixnum" _k56487_))) - (let _lp56490_ ((_n56492_ '0) (_r56493_ '())) - (if (let () (declare (not safe)) (##fx< _n56492_ _k56487_)) - (let ((__tmp57026 - (let () (declare (not safe)) (##fx+ _n56492_ '1))) - (__tmp57025 - (let () (declare (not safe)) (cons _val56488_ _r56493_)))) + (error '"expected argument 1 to be fixnum" _k56749_))) + (let _lp56752_ ((_n56754_ '0) (_r56755_ '())) + (if (let () (declare (not safe)) (##fx< _n56754_ _k56749_)) + (let ((__tmp57288 + (let () (declare (not safe)) (##fx+ _n56754_ '1))) + (__tmp57287 + (let () (declare (not safe)) (cons _val56750_ _r56755_)))) (declare (not safe)) - (_lp56490_ __tmp57026 __tmp57025)) - _r56493_)))) + (_lp56752_ __tmp57288 __tmp57287)) + _r56755_)))) (define make-list__0 - (lambda (_k56498_) - (let ((_val56500_ '#f)) + (lambda (_k56760_) + (let ((_val56762_ '#f)) (declare (not safe)) - (make-list__% _k56498_ _val56500_)))) + (make-list__% _k56760_ _val56762_)))) (define make-list - (lambda _g57028_ - (let ((_g57027_ (let () (declare (not safe)) (##length _g57028_)))) - (cond ((let () (declare (not safe)) (##fx= _g57027_ 1)) - (apply (lambda (_k56498_) + (lambda _g57290_ + (let ((_g57289_ (let () (declare (not safe)) (##length _g57290_)))) + (cond ((let () (declare (not safe)) (##fx= _g57289_ 1)) + (apply (lambda (_k56760_) (let () (declare (not safe)) - (make-list__0 _k56498_))) - _g57028_)) - ((let () (declare (not safe)) (##fx= _g57027_ 2)) - (apply (lambda (_k56502_ _val56503_) + (make-list__0 _k56760_))) + _g57290_)) + ((let () (declare (not safe)) (##fx= _g57289_ 2)) + (apply (lambda (_k56764_ _val56765_) (let () (declare (not safe)) - (make-list__% _k56502_ _val56503_))) - _g57028_)) + (make-list__% _k56764_ _val56765_))) + _g57290_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g57028_)))))) + _g57290_)))))) (define cons* - (lambda (_x56477_ _y56478_ . _rest56479_) - (letrec ((_recur56481_ - (lambda (_x56483_ _rest56484_) - (if (let () (declare (not safe)) (pair? _rest56484_)) - (let ((__tmp57029 - (let ((__tmp57031 + (lambda (_x56739_ _y56740_ . _rest56741_) + (letrec ((_recur56743_ + (lambda (_x56745_ _rest56746_) + (if (let () (declare (not safe)) (pair? _rest56746_)) + (let ((__tmp57291 + (let ((__tmp57293 (let () (declare (not safe)) - (##car _rest56484_))) - (__tmp57030 + (##car _rest56746_))) + (__tmp57292 (let () (declare (not safe)) - (##cdr _rest56484_)))) + (##cdr _rest56746_)))) (declare (not safe)) - (_recur56481_ __tmp57031 __tmp57030)))) + (_recur56743_ __tmp57293 __tmp57292)))) (declare (not safe)) - (cons _x56483_ __tmp57029)) - _x56483_)))) - (let ((__tmp57032 + (cons _x56745_ __tmp57291)) + _x56745_)))) + (let ((__tmp57294 (let () (declare (not safe)) - (_recur56481_ _y56478_ _rest56479_)))) + (_recur56743_ _y56740_ _rest56741_)))) (declare (not safe)) - (cons _x56477_ __tmp57032))))) + (cons _x56739_ __tmp57294))))) (define foldl1 - (lambda (_f56435_ _iv56436_ _lst56437_) - (let _lp56439_ ((_rest56441_ _lst56437_) (_r56442_ _iv56436_)) - (let* ((_rest5644356451_ _rest56441_) - (_else5644556459_ (lambda () _r56442_)) - (_K5644756465_ - (lambda (_rest56462_ _x56463_) - (let ((__tmp57033 (_f56435_ _x56463_ _r56442_))) + (lambda (_f56697_ _iv56698_ _lst56699_) + (let _lp56701_ ((_rest56703_ _lst56699_) (_r56704_ _iv56698_)) + (let* ((_rest5670556713_ _rest56703_) + (_else5670756721_ (lambda () _r56704_)) + (_K5670956727_ + (lambda (_rest56724_ _x56725_) + (let ((__tmp57295 (_f56697_ _x56725_ _r56704_))) (declare (not safe)) - (_lp56439_ _rest56462_ __tmp57033))))) - (if (let () (declare (not safe)) (##pair? _rest5644356451_)) - (let ((_hd5644856468_ - (let () (declare (not safe)) (##car _rest5644356451_))) - (_tl5644956470_ - (let () (declare (not safe)) (##cdr _rest5644356451_)))) - (let* ((_x56473_ _hd5644856468_) - (_rest56475_ _tl5644956470_)) + (_lp56701_ _rest56724_ __tmp57295))))) + (if (let () (declare (not safe)) (##pair? _rest5670556713_)) + (let ((_hd5671056730_ + (let () (declare (not safe)) (##car _rest5670556713_))) + (_tl5671156732_ + (let () (declare (not safe)) (##cdr _rest5670556713_)))) + (let* ((_x56735_ _hd5671056730_) + (_rest56737_ _tl5671156732_)) (declare (not safe)) - (_K5644756465_ _rest56475_ _x56473_))) - (let () (declare (not safe)) (_else5644556459_))))))) + (_K5670956727_ _rest56737_ _x56735_))) + (let () (declare (not safe)) (_else5670756721_))))))) (define foldl2 - (lambda (_f56358_ _iv56359_ _lst156360_ _lst256361_) - (let _lp56363_ ((_rest156365_ _lst156360_) - (_rest256366_ _lst256361_) - (_r56367_ _iv56359_)) - (let* ((_rest15636856376_ _rest156365_) - (_else5637056384_ (lambda () _r56367_)) - (_K5637256423_ - (lambda (_rest156387_ _x156388_) - (let* ((_rest25638956397_ _rest256366_) - (_else5639156405_ (lambda () _r56367_)) - (_K5639356411_ - (lambda (_rest256408_ _x256409_) - (let ((__tmp57034 - (_f56358_ _x156388_ _x256409_ _r56367_))) + (lambda (_f56620_ _iv56621_ _lst156622_ _lst256623_) + (let _lp56625_ ((_rest156627_ _lst156622_) + (_rest256628_ _lst256623_) + (_r56629_ _iv56621_)) + (let* ((_rest15663056638_ _rest156627_) + (_else5663256646_ (lambda () _r56629_)) + (_K5663456685_ + (lambda (_rest156649_ _x156650_) + (let* ((_rest25665156659_ _rest256628_) + (_else5665356667_ (lambda () _r56629_)) + (_K5665556673_ + (lambda (_rest256670_ _x256671_) + (let ((__tmp57296 + (_f56620_ _x156650_ _x256671_ _r56629_))) (declare (not safe)) - (_lp56363_ - _rest156387_ - _rest256408_ - __tmp57034))))) + (_lp56625_ + _rest156649_ + _rest256670_ + __tmp57296))))) (if (let () (declare (not safe)) - (##pair? _rest25638956397_)) - (let ((_hd5639456414_ + (##pair? _rest25665156659_)) + (let ((_hd5665656676_ (let () (declare (not safe)) - (##car _rest25638956397_))) - (_tl5639556416_ + (##car _rest25665156659_))) + (_tl5665756678_ (let () (declare (not safe)) - (##cdr _rest25638956397_)))) - (let* ((_x256419_ _hd5639456414_) - (_rest256421_ _tl5639556416_)) + (##cdr _rest25665156659_)))) + (let* ((_x256681_ _hd5665656676_) + (_rest256683_ _tl5665756678_)) (declare (not safe)) - (_K5639356411_ _rest256421_ _x256419_))) - (let () (declare (not safe)) (_else5639156405_))))))) - (if (let () (declare (not safe)) (##pair? _rest15636856376_)) - (let ((_hd5637356426_ - (let () (declare (not safe)) (##car _rest15636856376_))) - (_tl5637456428_ + (_K5665556673_ _rest256683_ _x256681_))) + (let () (declare (not safe)) (_else5665356667_))))))) + (if (let () (declare (not safe)) (##pair? _rest15663056638_)) + (let ((_hd5663556688_ + (let () (declare (not safe)) (##car _rest15663056638_))) + (_tl5663656690_ (let () (declare (not safe)) - (##cdr _rest15636856376_)))) - (let* ((_x156431_ _hd5637356426_) - (_rest156433_ _tl5637456428_)) + (##cdr _rest15663056638_)))) + (let* ((_x156693_ _hd5663556688_) + (_rest156695_ _tl5663656690_)) (declare (not safe)) - (_K5637256423_ _rest156433_ _x156431_))) - (let () (declare (not safe)) (_else5637056384_))))))) + (_K5663456685_ _rest156695_ _x156693_))) + (let () (declare (not safe)) (_else5663256646_))))))) (define foldl - (lambda _g57036_ - (let ((_g57035_ (let () (declare (not safe)) (##length _g57036_)))) - (cond ((let () (declare (not safe)) (##fx= _g57035_ 3)) - (apply (lambda (_f56343_ _iv56344_ _lst56345_) + (lambda _g57298_ + (let ((_g57297_ (let () (declare (not safe)) (##length _g57298_)))) + (cond ((let () (declare (not safe)) (##fx= _g57297_ 3)) + (apply (lambda (_f56605_ _iv56606_ _lst56607_) (let () (declare (not safe)) - (foldl1 _f56343_ _iv56344_ _lst56345_))) - _g57036_)) - ((let () (declare (not safe)) (##fx= _g57035_ 4)) - (apply (lambda (_f56347_ _iv56348_ _lst156349_ _lst256350_) + (foldl1 _f56605_ _iv56606_ _lst56607_))) + _g57298_)) + ((let () (declare (not safe)) (##fx= _g57297_ 4)) + (apply (lambda (_f56609_ _iv56610_ _lst156611_ _lst256612_) (let () (declare (not safe)) - (foldl2 _f56347_ - _iv56348_ - _lst156349_ - _lst256350_))) - _g57036_)) - ((let () (declare (not safe)) (##fx>= _g57035_ 4)) - (apply foldl* _g57036_)) + (foldl2 _f56609_ + _iv56610_ + _lst156611_ + _lst256612_))) + _g57298_)) + ((let () (declare (not safe)) (##fx>= _g57297_ 4)) + (apply foldl* _g57298_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g57036_)))))) + _g57298_)))))) (define foldl* - (lambda (_f56331_ _iv56332_ . _rest56333_) - (let _recur56335_ ((_iv56337_ _iv56332_) (_rest56338_ _rest56333_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest56338_)) - (let ((__tmp57038 - (apply _f56331_ - (let ((__tmp57040 - (lambda (_xs56340_ _r56341_) - (let ((__tmp57041 (car _xs56340_))) + (lambda (_f56593_ _iv56594_ . _rest56595_) + (let _recur56597_ ((_iv56599_ _iv56594_) (_rest56600_ _rest56595_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest56600_)) + (let ((__tmp57300 + (apply _f56593_ + (let ((__tmp57302 + (lambda (_xs56602_ _r56603_) + (let ((__tmp57303 (car _xs56602_))) (declare (not safe)) - (cons __tmp57041 _r56341_)))) - (__tmp57039 (list _iv56337_))) + (cons __tmp57303 _r56603_)))) + (__tmp57301 (list _iv56599_))) (declare (not safe)) - (foldr1 __tmp57040 __tmp57039 _rest56338_)))) - (__tmp57037 (map cdr _rest56338_))) + (foldr1 __tmp57302 __tmp57301 _rest56600_)))) + (__tmp57299 (map cdr _rest56600_))) (declare (not safe)) - (_recur56335_ __tmp57038 __tmp57037)) - _iv56337_)))) + (_recur56597_ __tmp57300 __tmp57299)) + _iv56599_)))) (define foldr1 - (lambda (_f56290_ _iv56291_ _lst56292_) - (let _recur56294_ ((_rest56296_ _lst56292_)) - (let* ((_rest5629756305_ _rest56296_) - (_else5629956313_ (lambda () _iv56291_)) - (_K5630156319_ - (lambda (_rest56316_ _x56317_) - (_f56290_ - _x56317_ + (lambda (_f56552_ _iv56553_ _lst56554_) + (let _recur56556_ ((_rest56558_ _lst56554_)) + (let* ((_rest5655956567_ _rest56558_) + (_else5656156575_ (lambda () _iv56553_)) + (_K5656356581_ + (lambda (_rest56578_ _x56579_) + (_f56552_ + _x56579_ (let () (declare (not safe)) - (_recur56294_ _rest56316_)))))) - (if (let () (declare (not safe)) (##pair? _rest5629756305_)) - (let ((_hd5630256322_ - (let () (declare (not safe)) (##car _rest5629756305_))) - (_tl5630356324_ - (let () (declare (not safe)) (##cdr _rest5629756305_)))) - (let* ((_x56327_ _hd5630256322_) - (_rest56329_ _tl5630356324_)) + (_recur56556_ _rest56578_)))))) + (if (let () (declare (not safe)) (##pair? _rest5655956567_)) + (let ((_hd5656456584_ + (let () (declare (not safe)) (##car _rest5655956567_))) + (_tl5656556586_ + (let () (declare (not safe)) (##cdr _rest5655956567_)))) + (let* ((_x56589_ _hd5656456584_) + (_rest56591_ _tl5656556586_)) (declare (not safe)) - (_K5630156319_ _rest56329_ _x56327_))) - (let () (declare (not safe)) (_else5629956313_))))))) + (_K5656356581_ _rest56591_ _x56589_))) + (let () (declare (not safe)) (_else5656156575_))))))) (define foldr2 - (lambda (_f56214_ _iv56215_ _lst156216_ _lst256217_) - (let _recur56219_ ((_rest156221_ _lst156216_) - (_rest256222_ _lst256217_)) - (let* ((_rest15622356231_ _rest156221_) - (_else5622556239_ (lambda () _iv56215_)) - (_K5622756278_ - (lambda (_rest156242_ _x156243_) - (let* ((_rest25624456252_ _rest256222_) - (_else5624656260_ (lambda () _iv56215_)) - (_K5624856266_ - (lambda (_rest256263_ _x256264_) - (_f56214_ - _x156243_ - _x256264_ + (lambda (_f56476_ _iv56477_ _lst156478_ _lst256479_) + (let _recur56481_ ((_rest156483_ _lst156478_) + (_rest256484_ _lst256479_)) + (let* ((_rest15648556493_ _rest156483_) + (_else5648756501_ (lambda () _iv56477_)) + (_K5648956540_ + (lambda (_rest156504_ _x156505_) + (let* ((_rest25650656514_ _rest256484_) + (_else5650856522_ (lambda () _iv56477_)) + (_K5651056528_ + (lambda (_rest256525_ _x256526_) + (_f56476_ + _x156505_ + _x256526_ (let () (declare (not safe)) - (_recur56219_ _rest156242_ _rest256263_)))))) + (_recur56481_ _rest156504_ _rest256525_)))))) (if (let () (declare (not safe)) - (##pair? _rest25624456252_)) - (let ((_hd5624956269_ + (##pair? _rest25650656514_)) + (let ((_hd5651156531_ (let () (declare (not safe)) - (##car _rest25624456252_))) - (_tl5625056271_ + (##car _rest25650656514_))) + (_tl5651256533_ (let () (declare (not safe)) - (##cdr _rest25624456252_)))) - (let* ((_x256274_ _hd5624956269_) - (_rest256276_ _tl5625056271_)) + (##cdr _rest25650656514_)))) + (let* ((_x256536_ _hd5651156531_) + (_rest256538_ _tl5651256533_)) (declare (not safe)) - (_K5624856266_ _rest256276_ _x256274_))) - (let () (declare (not safe)) (_else5624656260_))))))) - (if (let () (declare (not safe)) (##pair? _rest15622356231_)) - (let ((_hd5622856281_ - (let () (declare (not safe)) (##car _rest15622356231_))) - (_tl5622956283_ + (_K5651056528_ _rest256538_ _x256536_))) + (let () (declare (not safe)) (_else5650856522_))))))) + (if (let () (declare (not safe)) (##pair? _rest15648556493_)) + (let ((_hd5649056543_ + (let () (declare (not safe)) (##car _rest15648556493_))) + (_tl5649156545_ (let () (declare (not safe)) - (##cdr _rest15622356231_)))) - (let* ((_x156286_ _hd5622856281_) - (_rest156288_ _tl5622956283_)) + (##cdr _rest15648556493_)))) + (let* ((_x156548_ _hd5649056543_) + (_rest156550_ _tl5649156545_)) (declare (not safe)) - (_K5622756278_ _rest156288_ _x156286_))) - (let () (declare (not safe)) (_else5622556239_))))))) + (_K5648956540_ _rest156550_ _x156548_))) + (let () (declare (not safe)) (_else5648756501_))))))) (define foldr - (lambda _g57043_ - (let ((_g57042_ (let () (declare (not safe)) (##length _g57043_)))) - (cond ((let () (declare (not safe)) (##fx= _g57042_ 3)) - (apply (lambda (_f56199_ _iv56200_ _lst56201_) + (lambda _g57305_ + (let ((_g57304_ (let () (declare (not safe)) (##length _g57305_)))) + (cond ((let () (declare (not safe)) (##fx= _g57304_ 3)) + (apply (lambda (_f56461_ _iv56462_ _lst56463_) (let () (declare (not safe)) - (foldr1 _f56199_ _iv56200_ _lst56201_))) - _g57043_)) - ((let () (declare (not safe)) (##fx= _g57042_ 4)) - (apply (lambda (_f56203_ _iv56204_ _lst156205_ _lst256206_) + (foldr1 _f56461_ _iv56462_ _lst56463_))) + _g57305_)) + ((let () (declare (not safe)) (##fx= _g57304_ 4)) + (apply (lambda (_f56465_ _iv56466_ _lst156467_ _lst256468_) (let () (declare (not safe)) - (foldr2 _f56203_ - _iv56204_ - _lst156205_ - _lst256206_))) - _g57043_)) - ((let () (declare (not safe)) (##fx>= _g57042_ 4)) - (apply foldr* _g57043_)) + (foldr2 _f56465_ + _iv56466_ + _lst156467_ + _lst256468_))) + _g57305_)) + ((let () (declare (not safe)) (##fx>= _g57304_ 4)) + (apply foldr* _g57305_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g57043_)))))) + _g57305_)))))) (define foldr* - (lambda (_f56188_ _iv56189_ . _rest56190_) - (let _recur56192_ ((_rest56194_ _rest56190_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest56194_)) - (apply _f56188_ - (let ((__tmp57046 - (lambda (_xs56196_ _r56197_) - (let ((__tmp57047 (car _xs56196_))) + (lambda (_f56450_ _iv56451_ . _rest56452_) + (let _recur56454_ ((_rest56456_ _rest56452_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest56456_)) + (apply _f56450_ + (let ((__tmp57308 + (lambda (_xs56458_ _r56459_) + (let ((__tmp57309 (car _xs56458_))) (declare (not safe)) - (cons __tmp57047 _r56197_)))) - (__tmp57044 - (list (let ((__tmp57045 (map cdr _rest56194_))) + (cons __tmp57309 _r56459_)))) + (__tmp57306 + (list (let ((__tmp57307 (map cdr _rest56456_))) (declare (not safe)) - (_recur56192_ __tmp57045))))) + (_recur56454_ __tmp57307))))) (declare (not safe)) - (foldr1 __tmp57046 __tmp57044 _rest56194_))) - _iv56189_)))) + (foldr1 __tmp57308 __tmp57306 _rest56456_))) + _iv56451_)))) (define drop - (lambda (_l56185_ _k56186_) - (if (let () (declare (not safe)) (##fxpositive? _k56186_)) - (let ((__tmp57049 (let () (declare (not safe)) (##cdr _l56185_))) - (__tmp57048 - (let () (declare (not safe)) (##fx- _k56186_ '1)))) + (lambda (_l56447_ _k56448_) + (if (let () (declare (not safe)) (##fxpositive? _k56448_)) + (let ((__tmp57311 (let () (declare (not safe)) (##cdr _l56447_))) + (__tmp57310 + (let () (declare (not safe)) (##fx- _k56448_ '1)))) (declare (not safe)) - (drop __tmp57049 __tmp57048)) - _l56185_))) + (drop __tmp57311 __tmp57310)) + _l56447_))) (define remove-nulls! - (lambda (_l56072_) - (let* ((_l5607356086_ _l56072_) - (_E5607756090_ + (lambda (_l56334_) + (let* ((_l5633556348_ _l56334_) + (_E5633956352_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _l5607356086_))))) - (let ((_K5608256175_ - (lambda (_r56173_) - (let () (declare (not safe)) (remove-nulls! _r56173_)))) - (_K5607956162_ - (lambda (_r56102_) - (let _loop56104_ ((_l56106_ _l56072_) (_r56107_ _r56102_)) - (let* ((_r5610856121_ _r56107_) - (_E5611256125_ + (error '"No clause matching" _l5633556348_))))) + (let ((_K5634456437_ + (lambda (_r56435_) + (let () (declare (not safe)) (remove-nulls! _r56435_)))) + (_K5634156424_ + (lambda (_r56364_) + (let _loop56366_ ((_l56368_ _l56334_) (_r56369_ _r56364_)) + (let* ((_r5637056383_ _r56369_) + (_E5637456387_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _r5610856121_))))) - (let ((_K5611756152_ - (lambda (_rr56150_) + _r5637056383_))))) + (let ((_K5637956414_ + (lambda (_rr56412_) (set-cdr! - _l56106_ + _l56368_ (let () (declare (not safe)) - (remove-nulls! _rr56150_))))) - (_K5611456139_ - (lambda (_rr56137_) + (remove-nulls! _rr56412_))))) + (_K5637656401_ + (lambda (_rr56399_) (let () (declare (not safe)) - (_loop56104_ _r56107_ _rr56137_)))) - (_K5611356130_ (lambda () '#!void))) + (_loop56366_ _r56369_ _rr56399_)))) + (_K5637556392_ (lambda () '#!void))) (if (let () (declare (not safe)) - (##pair? _r5610856121_)) - (let ((_tl5611956157_ + (##pair? _r5637056383_)) + (let ((_tl5638156419_ (let () (declare (not safe)) - (##cdr _r5610856121_))) - (_hd5611856155_ + (##cdr _r5637056383_))) + (_hd5638056417_ (let () (declare (not safe)) - (##car _r5610856121_)))) + (##car _r5637056383_)))) (if (let () (declare (not safe)) - (##null? _hd5611856155_)) - (let ((_rr56160_ _tl5611956157_)) + (##null? _hd5638056417_)) + (let ((_rr56422_ _tl5638156419_)) (declare (not safe)) - (_K5611756152_ _rr56160_)) - (let ((_rr56145_ _tl5611956157_)) + (_K5637956414_ _rr56422_)) + (let ((_rr56407_ _tl5638156419_)) (declare (not safe)) - (_K5611456139_ _rr56145_)))) + (_K5637656401_ _rr56407_)))) '#!void)))) - _l56072_)) - (_K5607856095_ (lambda () _l56072_))) - (if (let () (declare (not safe)) (##pair? _l5607356086_)) - (let ((_tl5608456180_ - (let () (declare (not safe)) (##cdr _l5607356086_))) - (_hd5608356178_ - (let () (declare (not safe)) (##car _l5607356086_)))) - (if (let () (declare (not safe)) (##null? _hd5608356178_)) - (let ((_r56183_ _tl5608456180_)) + _l56334_)) + (_K5634056357_ (lambda () _l56334_))) + (if (let () (declare (not safe)) (##pair? _l5633556348_)) + (let ((_tl5634656442_ + (let () (declare (not safe)) (##cdr _l5633556348_))) + (_hd5634556440_ + (let () (declare (not safe)) (##car _l5633556348_)))) + (if (let () (declare (not safe)) (##null? _hd5634556440_)) + (let ((_r56445_ _tl5634656442_)) (declare (not safe)) - (remove-nulls! _r56183_)) - (let ((_r56168_ _tl5608456180_)) + (remove-nulls! _r56445_)) + (let ((_r56430_ _tl5634656442_)) (declare (not safe)) - (_K5607956162_ _r56168_)))) - (let () (declare (not safe)) (_K5607856095_))))))) + (_K5634156424_ _r56430_)))) + (let () (declare (not safe)) (_K5634056357_))))))) (define append1! - (lambda (_l56067_ _x56068_) - (let ((_l256070_ (let () (declare (not safe)) (cons _x56068_ '())))) - (if (let () (declare (not safe)) (pair? _l56067_)) + (lambda (_l56329_ _x56330_) + (let ((_l256332_ (let () (declare (not safe)) (cons _x56330_ '())))) + (if (let () (declare (not safe)) (pair? _l56329_)) (set-cdr! - (let () (declare (not safe)) (##last-pair _l56067_)) - _l256070_) - _l256070_)))) + (let () (declare (not safe)) (##last-pair _l56329_)) + _l256332_) + _l256332_)))) (define append-reverse - (lambda (_rev-head56064_ _tail56065_) + (lambda (_rev-head56326_ _tail56327_) (let () (declare (not safe)) - (foldl1 cons _tail56065_ _rev-head56064_)))) + (foldl1 cons _tail56327_ _rev-head56326_)))) (define append-reverse-until - (lambda (_pred56017_ _rhead56018_ _tail56019_) - (let _loop56021_ ((_rhead56023_ _rhead56018_) - (_tail56024_ _tail56019_)) - (let* ((_rhead5602556034_ _rhead56023_) - (_E5602856038_ + (lambda (_pred56279_ _rhead56280_ _tail56281_) + (let _loop56283_ ((_rhead56285_ _rhead56280_) + (_tail56286_ _tail56281_)) + (let* ((_rhead5628756296_ _rhead56285_) + (_E5629056300_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _rhead5602556034_))))) - (let ((_K5603256061_ (lambda () (values '() _tail56024_))) - (_K5602956045_ - (lambda (_r56042_ _a56043_) - (if (_pred56017_ _a56043_) - (values _rhead56023_ _tail56024_) - (let ((__tmp57050 + (error '"No clause matching" _rhead5628756296_))))) + (let ((_K5629456323_ (lambda () (values '() _tail56286_))) + (_K5629156307_ + (lambda (_r56304_ _a56305_) + (if (_pred56279_ _a56305_) + (values _rhead56285_ _tail56286_) + (let ((__tmp57312 (let () (declare (not safe)) - (cons _a56043_ _tail56024_)))) + (cons _a56305_ _tail56286_)))) (declare (not safe)) - (_loop56021_ _r56042_ __tmp57050)))))) - (let ((_try-match5602756057_ + (_loop56283_ _r56304_ __tmp57312)))))) + (let ((_try-match5628956319_ (lambda () (if (let () (declare (not safe)) - (##pair? _rhead5602556034_)) - (let ((_tl5603156050_ + (##pair? _rhead5628756296_)) + (let ((_tl5629356312_ (let () (declare (not safe)) - (##cdr _rhead5602556034_))) - (_hd5603056048_ + (##cdr _rhead5628756296_))) + (_hd5629256310_ (let () (declare (not safe)) - (##car _rhead5602556034_)))) - (let ((_a56053_ _hd5603056048_) - (_r56055_ _tl5603156050_)) + (##car _rhead5628756296_)))) + (let ((_a56315_ _hd5629256310_) + (_r56317_ _tl5629356312_)) (let () (declare (not safe)) - (_K5602956045_ _r56055_ _a56053_)))) - (let () (declare (not safe)) (_E5602856038_)))))) - (if (let () (declare (not safe)) (##null? _rhead5602556034_)) - (let () (declare (not safe)) (_K5603256061_)) + (_K5629156307_ _r56317_ _a56315_)))) + (let () (declare (not safe)) (_E5629056300_)))))) + (if (let () (declare (not safe)) (##null? _rhead5628756296_)) + (let () (declare (not safe)) (_K5629456323_)) (let () (declare (not safe)) - (_try-match5602756057_))))))))) + (_try-match5628956319_))))))))) (define andmap1 - (lambda (_f55977_ _lst55978_) - (let _lp55980_ ((_rest55982_ _lst55978_)) - (let* ((_rest5598355991_ _rest55982_) - (_else5598555999_ (lambda () '#t)) - (_K5598756005_ - (lambda (_rest56002_ _x56003_) - (if (_f55977_ _x56003_) - (let () (declare (not safe)) (_lp55980_ _rest56002_)) + (lambda (_f56239_ _lst56240_) + (let _lp56242_ ((_rest56244_ _lst56240_)) + (let* ((_rest5624556253_ _rest56244_) + (_else5624756261_ (lambda () '#t)) + (_K5624956267_ + (lambda (_rest56264_ _x56265_) + (if (_f56239_ _x56265_) + (let () (declare (not safe)) (_lp56242_ _rest56264_)) '#f)))) - (if (let () (declare (not safe)) (##pair? _rest5598355991_)) - (let ((_hd5598856008_ - (let () (declare (not safe)) (##car _rest5598355991_))) - (_tl5598956010_ - (let () (declare (not safe)) (##cdr _rest5598355991_)))) - (let* ((_x56013_ _hd5598856008_) - (_rest56015_ _tl5598956010_)) + (if (let () (declare (not safe)) (##pair? _rest5624556253_)) + (let ((_hd5625056270_ + (let () (declare (not safe)) (##car _rest5624556253_))) + (_tl5625156272_ + (let () (declare (not safe)) (##cdr _rest5624556253_)))) + (let* ((_x56275_ _hd5625056270_) + (_rest56277_ _tl5625156272_)) (declare (not safe)) - (_K5598756005_ _rest56015_ _x56013_))) - (let () (declare (not safe)) (_else5598555999_))))))) + (_K5624956267_ _rest56277_ _x56275_))) + (let () (declare (not safe)) (_else5624756261_))))))) (define andmap2 - (lambda (_f55902_ _lst155903_ _lst255904_) - (let _lp55906_ ((_rest155908_ _lst155903_) (_rest255909_ _lst255904_)) - (let* ((_rest15591055918_ _rest155908_) - (_else5591255926_ (lambda () '#t)) - (_K5591455965_ - (lambda (_rest155929_ _x155930_) - (let* ((_rest25593155939_ _rest255909_) - (_else5593355947_ (lambda () '#t)) - (_K5593555953_ - (lambda (_rest255950_ _x255951_) - (if (_f55902_ _x155930_ _x255951_) + (lambda (_f56164_ _lst156165_ _lst256166_) + (let _lp56168_ ((_rest156170_ _lst156165_) (_rest256171_ _lst256166_)) + (let* ((_rest15617256180_ _rest156170_) + (_else5617456188_ (lambda () '#t)) + (_K5617656227_ + (lambda (_rest156191_ _x156192_) + (let* ((_rest25619356201_ _rest256171_) + (_else5619556209_ (lambda () '#t)) + (_K5619756215_ + (lambda (_rest256212_ _x256213_) + (if (_f56164_ _x156192_ _x256213_) (let () (declare (not safe)) - (_lp55906_ _rest155929_ _rest255950_)) + (_lp56168_ _rest156191_ _rest256212_)) '#f)))) (if (let () (declare (not safe)) - (##pair? _rest25593155939_)) - (let ((_hd5593655956_ + (##pair? _rest25619356201_)) + (let ((_hd5619856218_ (let () (declare (not safe)) - (##car _rest25593155939_))) - (_tl5593755958_ + (##car _rest25619356201_))) + (_tl5619956220_ (let () (declare (not safe)) - (##cdr _rest25593155939_)))) - (let* ((_x255961_ _hd5593655956_) - (_rest255963_ _tl5593755958_)) + (##cdr _rest25619356201_)))) + (let* ((_x256223_ _hd5619856218_) + (_rest256225_ _tl5619956220_)) (declare (not safe)) - (_K5593555953_ _rest255963_ _x255961_))) - (let () (declare (not safe)) (_else5593355947_))))))) - (if (let () (declare (not safe)) (##pair? _rest15591055918_)) - (let ((_hd5591555968_ - (let () (declare (not safe)) (##car _rest15591055918_))) - (_tl5591655970_ + (_K5619756215_ _rest256225_ _x256223_))) + (let () (declare (not safe)) (_else5619556209_))))))) + (if (let () (declare (not safe)) (##pair? _rest15617256180_)) + (let ((_hd5617756230_ + (let () (declare (not safe)) (##car _rest15617256180_))) + (_tl5617856232_ (let () (declare (not safe)) - (##cdr _rest15591055918_)))) - (let* ((_x155973_ _hd5591555968_) - (_rest155975_ _tl5591655970_)) + (##cdr _rest15617256180_)))) + (let* ((_x156235_ _hd5617756230_) + (_rest156237_ _tl5617856232_)) (declare (not safe)) - (_K5591455965_ _rest155975_ _x155973_))) - (let () (declare (not safe)) (_else5591255926_))))))) + (_K5617656227_ _rest156237_ _x156235_))) + (let () (declare (not safe)) (_else5617456188_))))))) (define andmap - (lambda _g57052_ - (let ((_g57051_ (let () (declare (not safe)) (##length _g57052_)))) - (cond ((let () (declare (not safe)) (##fx= _g57051_ 2)) - (apply (lambda (_f55890_ _lst55891_) + (lambda _g57314_ + (let ((_g57313_ (let () (declare (not safe)) (##length _g57314_)))) + (cond ((let () (declare (not safe)) (##fx= _g57313_ 2)) + (apply (lambda (_f56152_ _lst56153_) (let () (declare (not safe)) - (andmap1 _f55890_ _lst55891_))) - _g57052_)) - ((let () (declare (not safe)) (##fx= _g57051_ 3)) - (apply (lambda (_f55893_ _lst155894_ _lst255895_) + (andmap1 _f56152_ _lst56153_))) + _g57314_)) + ((let () (declare (not safe)) (##fx= _g57313_ 3)) + (apply (lambda (_f56155_ _lst156156_ _lst256157_) (let () (declare (not safe)) - (andmap2 _f55893_ _lst155894_ _lst255895_))) - _g57052_)) - ((let () (declare (not safe)) (##fx>= _g57051_ 3)) - (apply andmap* _g57052_)) + (andmap2 _f56155_ _lst156156_ _lst256157_))) + _g57314_)) + ((let () (declare (not safe)) (##fx>= _g57313_ 3)) + (apply andmap* _g57314_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g57052_)))))) + _g57314_)))))) (define andmap* - (lambda (_f55883_ . _rest55884_) - (let _recur55886_ ((_rest55888_ _rest55884_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest55888_)) - (if (apply _f55883_ (map car _rest55888_)) - (let ((__tmp57053 (map cdr _rest55888_))) + (lambda (_f56145_ . _rest56146_) + (let _recur56148_ ((_rest56150_ _rest56146_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest56150_)) + (if (apply _f56145_ (map car _rest56150_)) + (let ((__tmp57315 (map cdr _rest56150_))) (declare (not safe)) - (_recur55886_ __tmp57053)) + (_recur56148_ __tmp57315)) '#f) '#t)))) (define ormap1 - (lambda (_f55840_ _lst55841_) - (let _lp55843_ ((_rest55845_ _lst55841_)) - (let* ((_rest5584655854_ _rest55845_) - (_else5584855862_ (lambda () '#f)) - (_K5585055871_ - (lambda (_rest55865_ _x55866_) - (let ((_$e55868_ (_f55840_ _x55866_))) - (if _$e55868_ - _$e55868_ + (lambda (_f56102_ _lst56103_) + (let _lp56105_ ((_rest56107_ _lst56103_)) + (let* ((_rest5610856116_ _rest56107_) + (_else5611056124_ (lambda () '#f)) + (_K5611256133_ + (lambda (_rest56127_ _x56128_) + (let ((_$e56130_ (_f56102_ _x56128_))) + (if _$e56130_ + _$e56130_ (let () (declare (not safe)) - (_lp55843_ _rest55865_))))))) - (if (let () (declare (not safe)) (##pair? _rest5584655854_)) - (let ((_hd5585155874_ - (let () (declare (not safe)) (##car _rest5584655854_))) - (_tl5585255876_ - (let () (declare (not safe)) (##cdr _rest5584655854_)))) - (let* ((_x55879_ _hd5585155874_) - (_rest55881_ _tl5585255876_)) + (_lp56105_ _rest56127_))))))) + (if (let () (declare (not safe)) (##pair? _rest5610856116_)) + (let ((_hd5611356136_ + (let () (declare (not safe)) (##car _rest5610856116_))) + (_tl5611456138_ + (let () (declare (not safe)) (##cdr _rest5610856116_)))) + (let* ((_x56141_ _hd5611356136_) + (_rest56143_ _tl5611456138_)) (declare (not safe)) - (_K5585055871_ _rest55881_ _x55879_))) - (let () (declare (not safe)) (_else5584855862_))))))) + (_K5611256133_ _rest56143_ _x56141_))) + (let () (declare (not safe)) (_else5611056124_))))))) (define ormap2 - (lambda (_f55762_ _lst155763_ _lst255764_) - (let _lp55766_ ((_rest155768_ _lst155763_) (_rest255769_ _lst255764_)) - (let* ((_rest15577055778_ _rest155768_) - (_else5577255786_ (lambda () '#f)) - (_K5577455828_ - (lambda (_rest155789_ _x155790_) - (let* ((_rest25579155799_ _rest255769_) - (_else5579355807_ (lambda () '#f)) - (_K5579555816_ - (lambda (_rest255810_ _x255811_) - (let ((_$e55813_ (_f55762_ _x155790_ _x255811_))) - (if _$e55813_ - _$e55813_ + (lambda (_f56024_ _lst156025_ _lst256026_) + (let _lp56028_ ((_rest156030_ _lst156025_) (_rest256031_ _lst256026_)) + (let* ((_rest15603256040_ _rest156030_) + (_else5603456048_ (lambda () '#f)) + (_K5603656090_ + (lambda (_rest156051_ _x156052_) + (let* ((_rest25605356061_ _rest256031_) + (_else5605556069_ (lambda () '#f)) + (_K5605756078_ + (lambda (_rest256072_ _x256073_) + (let ((_$e56075_ (_f56024_ _x156052_ _x256073_))) + (if _$e56075_ + _$e56075_ (let () (declare (not safe)) - (_lp55766_ - _rest155789_ - _rest255810_))))))) + (_lp56028_ + _rest156051_ + _rest256072_))))))) (if (let () (declare (not safe)) - (##pair? _rest25579155799_)) - (let ((_hd5579655819_ + (##pair? _rest25605356061_)) + (let ((_hd5605856081_ (let () (declare (not safe)) - (##car _rest25579155799_))) - (_tl5579755821_ + (##car _rest25605356061_))) + (_tl5605956083_ (let () (declare (not safe)) - (##cdr _rest25579155799_)))) - (let* ((_x255824_ _hd5579655819_) - (_rest255826_ _tl5579755821_)) + (##cdr _rest25605356061_)))) + (let* ((_x256086_ _hd5605856081_) + (_rest256088_ _tl5605956083_)) (declare (not safe)) - (_K5579555816_ _rest255826_ _x255824_))) - (let () (declare (not safe)) (_else5579355807_))))))) - (if (let () (declare (not safe)) (##pair? _rest15577055778_)) - (let ((_hd5577555831_ - (let () (declare (not safe)) (##car _rest15577055778_))) - (_tl5577655833_ + (_K5605756078_ _rest256088_ _x256086_))) + (let () (declare (not safe)) (_else5605556069_))))))) + (if (let () (declare (not safe)) (##pair? _rest15603256040_)) + (let ((_hd5603756093_ + (let () (declare (not safe)) (##car _rest15603256040_))) + (_tl5603856095_ (let () (declare (not safe)) - (##cdr _rest15577055778_)))) - (let* ((_x155836_ _hd5577555831_) - (_rest155838_ _tl5577655833_)) + (##cdr _rest15603256040_)))) + (let* ((_x156098_ _hd5603756093_) + (_rest156100_ _tl5603856095_)) (declare (not safe)) - (_K5577455828_ _rest155838_ _x155836_))) - (let () (declare (not safe)) (_else5577255786_))))))) + (_K5603656090_ _rest156100_ _x156098_))) + (let () (declare (not safe)) (_else5603456048_))))))) (define ormap - (lambda _g57055_ - (let ((_g57054_ (let () (declare (not safe)) (##length _g57055_)))) - (cond ((let () (declare (not safe)) (##fx= _g57054_ 2)) - (apply (lambda (_f55750_ _lst55751_) + (lambda _g57317_ + (let ((_g57316_ (let () (declare (not safe)) (##length _g57317_)))) + (cond ((let () (declare (not safe)) (##fx= _g57316_ 2)) + (apply (lambda (_f56012_ _lst56013_) (let () (declare (not safe)) - (ormap1 _f55750_ _lst55751_))) - _g57055_)) - ((let () (declare (not safe)) (##fx= _g57054_ 3)) - (apply (lambda (_f55753_ _lst155754_ _lst255755_) + (ormap1 _f56012_ _lst56013_))) + _g57317_)) + ((let () (declare (not safe)) (##fx= _g57316_ 3)) + (apply (lambda (_f56015_ _lst156016_ _lst256017_) (let () (declare (not safe)) - (ormap2 _f55753_ _lst155754_ _lst255755_))) - _g57055_)) - ((let () (declare (not safe)) (##fx>= _g57054_ 3)) - (apply ormap* _g57055_)) + (ormap2 _f56015_ _lst156016_ _lst256017_))) + _g57317_)) + ((let () (declare (not safe)) (##fx>= _g57316_ 3)) + (apply ormap* _g57317_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g57055_)))))) + _g57317_)))))) (define ormap* - (lambda (_f55740_ . _rest55741_) - (let _recur55743_ ((_rest55745_ _rest55741_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest55745_)) - (let ((_$e55747_ (apply _f55740_ (map car _rest55745_)))) - (if _$e55747_ - _$e55747_ - (let ((__tmp57056 (map cdr _rest55745_))) + (lambda (_f56002_ . _rest56003_) + (let _recur56005_ ((_rest56007_ _rest56003_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest56007_)) + (let ((_$e56009_ (apply _f56002_ (map car _rest56007_)))) + (if _$e56009_ + _$e56009_ + (let ((__tmp57318 (map cdr _rest56007_))) (declare (not safe)) - (_recur55743_ __tmp57056)))) + (_recur56005_ __tmp57318)))) '#f)))) (define filter - (lambda (_f55698_ _lst55699_) - (let _recur55701_ ((_lst55703_ _lst55699_)) - (let* ((_lst5570455712_ _lst55703_) - (_else5570655720_ (lambda () '())) - (_K5570855728_ - (lambda (_rest55723_ _hd55724_) - (if (_f55698_ _hd55724_) - (let ((_tail55726_ + (lambda (_f55960_ _lst55961_) + (let _recur55963_ ((_lst55965_ _lst55961_)) + (let* ((_lst5596655974_ _lst55965_) + (_else5596855982_ (lambda () '())) + (_K5597055990_ + (lambda (_rest55985_ _hd55986_) + (if (_f55960_ _hd55986_) + (let ((_tail55988_ (let () (declare (not safe)) - (_recur55701_ _rest55723_)))) + (_recur55963_ _rest55985_)))) (if (let () (declare (not safe)) - (eq? _tail55726_ _rest55723_)) - _lst55703_ + (eq? _tail55988_ _rest55985_)) + _lst55965_ (let () (declare (not safe)) - (cons _hd55724_ _tail55726_)))) + (cons _hd55986_ _tail55988_)))) (let () (declare (not safe)) - (_recur55701_ _rest55723_)))))) - (if (let () (declare (not safe)) (##pair? _lst5570455712_)) - (let ((_hd5570955731_ - (let () (declare (not safe)) (##car _lst5570455712_))) - (_tl5571055733_ - (let () (declare (not safe)) (##cdr _lst5570455712_)))) - (let* ((_hd55736_ _hd5570955731_) - (_rest55738_ _tl5571055733_)) + (_recur55963_ _rest55985_)))))) + (if (let () (declare (not safe)) (##pair? _lst5596655974_)) + (let ((_hd5597155993_ + (let () (declare (not safe)) (##car _lst5596655974_))) + (_tl5597255995_ + (let () (declare (not safe)) (##cdr _lst5596655974_)))) + (let* ((_hd55998_ _hd5597155993_) + (_rest56000_ _tl5597255995_)) (declare (not safe)) - (_K5570855728_ _rest55738_ _hd55736_))) - (let () (declare (not safe)) (_else5570655720_))))))) + (_K5597055990_ _rest56000_ _hd55998_))) + (let () (declare (not safe)) (_else5596855982_))))))) (define filter-map1 - (lambda (_f55653_ _lst55654_) - (let _recur55656_ ((_rest55658_ _lst55654_)) - (let* ((_rest5565955667_ _rest55658_) - (_else5566155675_ (lambda () '())) - (_K5566355686_ - (lambda (_rest55678_ _x55679_) - (let ((_$e55681_ (_f55653_ _x55679_))) - (if _$e55681_ - ((lambda (_r55684_) - (let ((__tmp57057 + (lambda (_f55915_ _lst55916_) + (let _recur55918_ ((_rest55920_ _lst55916_)) + (let* ((_rest5592155929_ _rest55920_) + (_else5592355937_ (lambda () '())) + (_K5592555948_ + (lambda (_rest55940_ _x55941_) + (let ((_$e55943_ (_f55915_ _x55941_))) + (if _$e55943_ + ((lambda (_r55946_) + (let ((__tmp57319 (let () (declare (not safe)) - (_recur55656_ _rest55678_)))) + (_recur55918_ _rest55940_)))) (declare (not safe)) - (cons _r55684_ __tmp57057))) - _$e55681_) + (cons _r55946_ __tmp57319))) + _$e55943_) (let () (declare (not safe)) - (_recur55656_ _rest55678_))))))) - (if (let () (declare (not safe)) (##pair? _rest5565955667_)) - (let ((_hd5566455689_ - (let () (declare (not safe)) (##car _rest5565955667_))) - (_tl5566555691_ - (let () (declare (not safe)) (##cdr _rest5565955667_)))) - (let* ((_x55694_ _hd5566455689_) - (_rest55696_ _tl5566555691_)) + (_recur55918_ _rest55940_))))))) + (if (let () (declare (not safe)) (##pair? _rest5592155929_)) + (let ((_hd5592655951_ + (let () (declare (not safe)) (##car _rest5592155929_))) + (_tl5592755953_ + (let () (declare (not safe)) (##cdr _rest5592155929_)))) + (let* ((_x55956_ _hd5592655951_) + (_rest55958_ _tl5592755953_)) (declare (not safe)) - (_K5566355686_ _rest55696_ _x55694_))) - (let () (declare (not safe)) (_else5566155675_))))))) + (_K5592555948_ _rest55958_ _x55956_))) + (let () (declare (not safe)) (_else5592355937_))))))) (define filter-map2 - (lambda (_f55573_ _lst155574_ _lst255575_) - (let _recur55577_ ((_rest155579_ _lst155574_) - (_rest255580_ _lst255575_)) - (let* ((_rest15558155589_ _rest155579_) - (_else5558355597_ (lambda () '())) - (_K5558555641_ - (lambda (_rest155600_ _x155601_) - (let* ((_rest25560255610_ _rest255580_) - (_else5560455618_ (lambda () '())) - (_K5560655629_ - (lambda (_rest255621_ _x255622_) - (let ((_$e55624_ (_f55573_ _x155601_ _x255622_))) - (if _$e55624_ - ((lambda (_r55627_) - (let ((__tmp57058 + (lambda (_f55835_ _lst155836_ _lst255837_) + (let _recur55839_ ((_rest155841_ _lst155836_) + (_rest255842_ _lst255837_)) + (let* ((_rest15584355851_ _rest155841_) + (_else5584555859_ (lambda () '())) + (_K5584755903_ + (lambda (_rest155862_ _x155863_) + (let* ((_rest25586455872_ _rest255842_) + (_else5586655880_ (lambda () '())) + (_K5586855891_ + (lambda (_rest255883_ _x255884_) + (let ((_$e55886_ (_f55835_ _x155863_ _x255884_))) + (if _$e55886_ + ((lambda (_r55889_) + (let ((__tmp57320 (let () (declare (not safe)) - (_recur55577_ - _rest155600_ - _rest255621_)))) + (_recur55839_ + _rest155862_ + _rest255883_)))) (declare (not safe)) - (cons _r55627_ __tmp57058))) - _$e55624_) + (cons _r55889_ __tmp57320))) + _$e55886_) (let () (declare (not safe)) - (_recur55577_ - _rest155600_ - _rest255621_))))))) + (_recur55839_ + _rest155862_ + _rest255883_))))))) (if (let () (declare (not safe)) - (##pair? _rest25560255610_)) - (let ((_hd5560755632_ + (##pair? _rest25586455872_)) + (let ((_hd5586955894_ (let () (declare (not safe)) - (##car _rest25560255610_))) - (_tl5560855634_ + (##car _rest25586455872_))) + (_tl5587055896_ (let () (declare (not safe)) - (##cdr _rest25560255610_)))) - (let* ((_x255637_ _hd5560755632_) - (_rest255639_ _tl5560855634_)) + (##cdr _rest25586455872_)))) + (let* ((_x255899_ _hd5586955894_) + (_rest255901_ _tl5587055896_)) (declare (not safe)) - (_K5560655629_ _rest255639_ _x255637_))) - (let () (declare (not safe)) (_else5560455618_))))))) - (if (let () (declare (not safe)) (##pair? _rest15558155589_)) - (let ((_hd5558655644_ - (let () (declare (not safe)) (##car _rest15558155589_))) - (_tl5558755646_ + (_K5586855891_ _rest255901_ _x255899_))) + (let () (declare (not safe)) (_else5586655880_))))))) + (if (let () (declare (not safe)) (##pair? _rest15584355851_)) + (let ((_hd5584855906_ + (let () (declare (not safe)) (##car _rest15584355851_))) + (_tl5584955908_ (let () (declare (not safe)) - (##cdr _rest15558155589_)))) - (let* ((_x155649_ _hd5558655644_) - (_rest155651_ _tl5558755646_)) + (##cdr _rest15584355851_)))) + (let* ((_x155911_ _hd5584855906_) + (_rest155913_ _tl5584955908_)) (declare (not safe)) - (_K5558555641_ _rest155651_ _x155649_))) - (let () (declare (not safe)) (_else5558355597_))))))) + (_K5584755903_ _rest155913_ _x155911_))) + (let () (declare (not safe)) (_else5584555859_))))))) (define filter-map - (lambda _g57060_ - (let ((_g57059_ (let () (declare (not safe)) (##length _g57060_)))) - (cond ((let () (declare (not safe)) (##fx= _g57059_ 2)) - (apply (lambda (_f55561_ _lst55562_) + (lambda _g57322_ + (let ((_g57321_ (let () (declare (not safe)) (##length _g57322_)))) + (cond ((let () (declare (not safe)) (##fx= _g57321_ 2)) + (apply (lambda (_f55823_ _lst55824_) (let () (declare (not safe)) - (filter-map1 _f55561_ _lst55562_))) - _g57060_)) - ((let () (declare (not safe)) (##fx= _g57059_ 3)) - (apply (lambda (_f55564_ _lst155565_ _lst255566_) + (filter-map1 _f55823_ _lst55824_))) + _g57322_)) + ((let () (declare (not safe)) (##fx= _g57321_ 3)) + (apply (lambda (_f55826_ _lst155827_ _lst255828_) (let () (declare (not safe)) - (filter-map2 _f55564_ _lst155565_ _lst255566_))) - _g57060_)) - ((let () (declare (not safe)) (##fx>= _g57059_ 3)) - (apply filter-map* _g57060_)) + (filter-map2 _f55826_ _lst155827_ _lst255828_))) + _g57322_)) + ((let () (declare (not safe)) (##fx>= _g57321_ 3)) + (apply filter-map* _g57322_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g57060_)))))) + _g57322_)))))) (define filter-map* - (lambda (_f55549_ . _rest55550_) - (let _recur55552_ ((_rest55554_ _rest55550_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest55554_)) - (let ((_$e55556_ (apply _f55549_ (map car _rest55554_)))) - (if _$e55556_ - ((lambda (_r55559_) - (let ((__tmp57062 - (let ((__tmp57063 (map cdr _rest55554_))) + (lambda (_f55811_ . _rest55812_) + (let _recur55814_ ((_rest55816_ _rest55812_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest55816_)) + (let ((_$e55818_ (apply _f55811_ (map car _rest55816_)))) + (if _$e55818_ + ((lambda (_r55821_) + (let ((__tmp57324 + (let ((__tmp57325 (map cdr _rest55816_))) (declare (not safe)) - (_recur55552_ __tmp57063)))) + (_recur55814_ __tmp57325)))) (declare (not safe)) - (cons _r55559_ __tmp57062))) - _$e55556_) - (let ((__tmp57061 (map cdr _rest55554_))) + (cons _r55821_ __tmp57324))) + _$e55818_) + (let ((__tmp57323 (map cdr _rest55816_))) (declare (not safe)) - (_recur55552_ __tmp57061)))) + (_recur55814_ __tmp57323)))) '())))) (define iota__% - (lambda (_count55517_ _start55518_ _step55519_) - (if (let () (declare (not safe)) (fixnum? _count55517_)) + (lambda (_count55779_ _start55780_ _step55781_) + (if (let () (declare (not safe)) (fixnum? _count55779_)) '#!void (let () (declare (not safe)) - (error '"expected fixnum" _count55517_))) - (if (let () (declare (not safe)) (number? _start55518_)) + (error '"expected fixnum" _count55779_))) + (if (let () (declare (not safe)) (number? _start55780_)) '#!void (let () (declare (not safe)) - (error '"expected number" _start55518_))) - (if (let () (declare (not safe)) (number? _step55519_)) + (error '"expected number" _start55780_))) + (if (let () (declare (not safe)) (number? _step55781_)) '#!void (let () (declare (not safe)) - (error '"expected number" _step55519_))) - (let ((_root55521_ (let () (declare (not safe)) (cons '#f '())))) - (let _lp55523_ ((_i55525_ '0) - (_x55526_ _start55518_) - (_tl55527_ _root55521_)) - (if (let () (declare (not safe)) (##fx< _i55525_ _count55517_)) - (let ((_tl*55529_ - (let () (declare (not safe)) (cons _x55526_ '())))) + (error '"expected number" _step55781_))) + (let ((_root55783_ (let () (declare (not safe)) (cons '#f '())))) + (let _lp55785_ ((_i55787_ '0) + (_x55788_ _start55780_) + (_tl55789_ _root55783_)) + (if (let () (declare (not safe)) (##fx< _i55787_ _count55779_)) + (let ((_tl*55791_ + (let () (declare (not safe)) (cons _x55788_ '())))) (let () (declare (not safe)) - (##set-cdr! _tl55527_ _tl*55529_)) - (let ((__tmp57065 - (let () (declare (not safe)) (##fx+ _i55525_ '1))) - (__tmp57064 (+ _x55526_ _step55519_))) + (##set-cdr! _tl55789_ _tl*55791_)) + (let ((__tmp57327 + (let () (declare (not safe)) (##fx+ _i55787_ '1))) + (__tmp57326 (+ _x55788_ _step55781_))) (declare (not safe)) - (_lp55523_ __tmp57065 __tmp57064 _tl*55529_))) - (let () (declare (not safe)) (##cdr _root55521_))))))) + (_lp55785_ __tmp57327 __tmp57326 _tl*55791_))) + (let () (declare (not safe)) (##cdr _root55783_))))))) (define iota__0 - (lambda (_count55534_) - (let* ((_start55536_ '0) (_step55538_ '1)) + (lambda (_count55796_) + (let* ((_start55798_ '0) (_step55800_ '1)) (declare (not safe)) - (iota__% _count55534_ _start55536_ _step55538_)))) + (iota__% _count55796_ _start55798_ _step55800_)))) (define iota__1 - (lambda (_count55540_ _start55541_) - (let ((_step55543_ '1)) + (lambda (_count55802_ _start55803_) + (let ((_step55805_ '1)) (declare (not safe)) - (iota__% _count55540_ _start55541_ _step55543_)))) + (iota__% _count55802_ _start55803_ _step55805_)))) (define iota - (lambda _g57067_ - (let ((_g57066_ (let () (declare (not safe)) (##length _g57067_)))) - (cond ((let () (declare (not safe)) (##fx= _g57066_ 1)) - (apply (lambda (_count55534_) - (let () (declare (not safe)) (iota__0 _count55534_))) - _g57067_)) - ((let () (declare (not safe)) (##fx= _g57066_ 2)) - (apply (lambda (_count55540_ _start55541_) + (lambda _g57329_ + (let ((_g57328_ (let () (declare (not safe)) (##length _g57329_)))) + (cond ((let () (declare (not safe)) (##fx= _g57328_ 1)) + (apply (lambda (_count55796_) + (let () (declare (not safe)) (iota__0 _count55796_))) + _g57329_)) + ((let () (declare (not safe)) (##fx= _g57328_ 2)) + (apply (lambda (_count55802_ _start55803_) (let () (declare (not safe)) - (iota__1 _count55540_ _start55541_))) - _g57067_)) - ((let () (declare (not safe)) (##fx= _g57066_ 3)) - (apply (lambda (_count55545_ _start55546_ _step55547_) + (iota__1 _count55802_ _start55803_))) + _g57329_)) + ((let () (declare (not safe)) (##fx= _g57328_ 3)) + (apply (lambda (_count55807_ _start55808_ _step55809_) (let () (declare (not safe)) - (iota__% _count55545_ _start55546_ _step55547_))) - _g57067_)) + (iota__% _count55807_ _start55808_ _step55809_))) + _g57329_)) (else (##raise-wrong-number-of-arguments-exception iota - _g57067_)))))) + _g57329_)))))) (define last-pair - (lambda (_lst55491_) - (let* ((_lst5549255499_ _lst55491_) - (_E5549455503_ + (lambda (_lst55753_) + (let* ((_lst5575455761_ _lst55753_) + (_E5575655765_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _lst5549255499_)))) - (_K5549555508_ - (lambda (_rest55506_) - (if (let () (declare (not safe)) (pair? _rest55506_)) - (let () (declare (not safe)) (last-pair _rest55506_)) - _lst55491_)))) - (if (let () (declare (not safe)) (##pair? _lst5549255499_)) - (let* ((_tl5549755511_ - (let () (declare (not safe)) (##cdr _lst5549255499_))) - (_rest55514_ _tl5549755511_)) + (error '"No clause matching" _lst5575455761_)))) + (_K5575755770_ + (lambda (_rest55768_) + (if (let () (declare (not safe)) (pair? _rest55768_)) + (let () (declare (not safe)) (last-pair _rest55768_)) + _lst55753_)))) + (if (let () (declare (not safe)) (##pair? _lst5575455761_)) + (let* ((_tl5575955773_ + (let () (declare (not safe)) (##cdr _lst5575455761_))) + (_rest55776_ _tl5575955773_)) (declare (not safe)) - (_K5549555508_ _rest55514_)) - (let () (declare (not safe)) (_E5549455503_)))))) + (_K5575755770_ _rest55776_)) + (let () (declare (not safe)) (_E5575655765_)))))) (define last - (lambda (_lst55489_) - (car (let () (declare (not safe)) (last-pair _lst55489_))))) + (lambda (_lst55751_) + (car (let () (declare (not safe)) (last-pair _lst55751_))))) (define assgetq__% - (lambda (_key55467_ _lst55469_ _default55471_) - (let ((_$e55474_ - (if (let () (declare (not safe)) (pair? _lst55469_)) - (assq _key55467_ _lst55469_) + (lambda (_key55729_ _lst55731_ _default55733_) + (let ((_$e55736_ + (if (let () (declare (not safe)) (pair? _lst55731_)) + (assq _key55729_ _lst55731_) '#f))) - (if _$e55474_ - (cdr _$e55474_) - (if (let () (declare (not safe)) (procedure? _default55471_)) - (_default55471_ _key55467_) - _default55471_))))) + (if _$e55736_ + (cdr _$e55736_) + (if (let () (declare (not safe)) (procedure? _default55733_)) + (_default55733_ _key55729_) + _default55733_))))) (define assgetq__0 - (lambda (_key55480_ _lst55481_) - (let ((_default55483_ '#f)) + (lambda (_key55742_ _lst55743_) + (let ((_default55745_ '#f)) (declare (not safe)) - (assgetq__% _key55480_ _lst55481_ _default55483_)))) + (assgetq__% _key55742_ _lst55743_ _default55745_)))) (define assgetq - (lambda _g57069_ - (let ((_g57068_ (let () (declare (not safe)) (##length _g57069_)))) - (cond ((let () (declare (not safe)) (##fx= _g57068_ 2)) - (apply (lambda (_key55480_ _lst55481_) + (lambda _g57331_ + (let ((_g57330_ (let () (declare (not safe)) (##length _g57331_)))) + (cond ((let () (declare (not safe)) (##fx= _g57330_ 2)) + (apply (lambda (_key55742_ _lst55743_) (let () (declare (not safe)) - (assgetq__0 _key55480_ _lst55481_))) - _g57069_)) - ((let () (declare (not safe)) (##fx= _g57068_ 3)) - (apply (lambda (_key55485_ _lst55486_ _default55487_) + (assgetq__0 _key55742_ _lst55743_))) + _g57331_)) + ((let () (declare (not safe)) (##fx= _g57330_ 3)) + (apply (lambda (_key55747_ _lst55748_ _default55749_) (let () (declare (not safe)) - (assgetq__% _key55485_ _lst55486_ _default55487_))) - _g57069_)) + (assgetq__% _key55747_ _lst55748_ _default55749_))) + _g57331_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g57069_)))))) + _g57331_)))))) (define assgetv__% - (lambda (_key55444_ _lst55446_ _default55448_) - (let ((_$e55451_ - (if (let () (declare (not safe)) (pair? _lst55446_)) - (assv _key55444_ _lst55446_) + (lambda (_key55706_ _lst55708_ _default55710_) + (let ((_$e55713_ + (if (let () (declare (not safe)) (pair? _lst55708_)) + (assv _key55706_ _lst55708_) '#f))) - (if _$e55451_ - (cdr _$e55451_) - (if (let () (declare (not safe)) (procedure? _default55448_)) - (_default55448_ _key55444_) - _default55448_))))) + (if _$e55713_ + (cdr _$e55713_) + (if (let () (declare (not safe)) (procedure? _default55710_)) + (_default55710_ _key55706_) + _default55710_))))) (define assgetv__0 - (lambda (_key55457_ _lst55458_) - (let ((_default55460_ '#f)) + (lambda (_key55719_ _lst55720_) + (let ((_default55722_ '#f)) (declare (not safe)) - (assgetv__% _key55457_ _lst55458_ _default55460_)))) + (assgetv__% _key55719_ _lst55720_ _default55722_)))) (define assgetv - (lambda _g57071_ - (let ((_g57070_ (let () (declare (not safe)) (##length _g57071_)))) - (cond ((let () (declare (not safe)) (##fx= _g57070_ 2)) - (apply (lambda (_key55457_ _lst55458_) + (lambda _g57333_ + (let ((_g57332_ (let () (declare (not safe)) (##length _g57333_)))) + (cond ((let () (declare (not safe)) (##fx= _g57332_ 2)) + (apply (lambda (_key55719_ _lst55720_) (let () (declare (not safe)) - (assgetv__0 _key55457_ _lst55458_))) - _g57071_)) - ((let () (declare (not safe)) (##fx= _g57070_ 3)) - (apply (lambda (_key55462_ _lst55463_ _default55464_) + (assgetv__0 _key55719_ _lst55720_))) + _g57333_)) + ((let () (declare (not safe)) (##fx= _g57332_ 3)) + (apply (lambda (_key55724_ _lst55725_ _default55726_) (let () (declare (not safe)) - (assgetv__% _key55462_ _lst55463_ _default55464_))) - _g57071_)) + (assgetv__% _key55724_ _lst55725_ _default55726_))) + _g57333_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g57071_)))))) + _g57333_)))))) (define assget__% - (lambda (_key55421_ _lst55423_ _default55425_) - (let ((_$e55428_ - (if (let () (declare (not safe)) (pair? _lst55423_)) - (assoc _key55421_ _lst55423_) + (lambda (_key55683_ _lst55685_ _default55687_) + (let ((_$e55690_ + (if (let () (declare (not safe)) (pair? _lst55685_)) + (assoc _key55683_ _lst55685_) '#f))) - (if _$e55428_ - (cdr _$e55428_) - (if (let () (declare (not safe)) (procedure? _default55425_)) - (_default55425_ _key55421_) - _default55425_))))) + (if _$e55690_ + (cdr _$e55690_) + (if (let () (declare (not safe)) (procedure? _default55687_)) + (_default55687_ _key55683_) + _default55687_))))) (define assget__0 - (lambda (_key55434_ _lst55435_) - (let ((_default55437_ '#f)) + (lambda (_key55696_ _lst55697_) + (let ((_default55699_ '#f)) (declare (not safe)) - (assget__% _key55434_ _lst55435_ _default55437_)))) + (assget__% _key55696_ _lst55697_ _default55699_)))) (define assget - (lambda _g57073_ - (let ((_g57072_ (let () (declare (not safe)) (##length _g57073_)))) - (cond ((let () (declare (not safe)) (##fx= _g57072_ 2)) - (apply (lambda (_key55434_ _lst55435_) + (lambda _g57335_ + (let ((_g57334_ (let () (declare (not safe)) (##length _g57335_)))) + (cond ((let () (declare (not safe)) (##fx= _g57334_ 2)) + (apply (lambda (_key55696_ _lst55697_) (let () (declare (not safe)) - (assget__0 _key55434_ _lst55435_))) - _g57073_)) - ((let () (declare (not safe)) (##fx= _g57072_ 3)) - (apply (lambda (_key55439_ _lst55440_ _default55441_) + (assget__0 _key55696_ _lst55697_))) + _g57335_)) + ((let () (declare (not safe)) (##fx= _g57334_ 3)) + (apply (lambda (_key55701_ _lst55702_ _default55703_) (let () (declare (not safe)) - (assget__% _key55439_ _lst55440_ _default55441_))) - _g57073_)) + (assget__% _key55701_ _lst55702_ _default55703_))) + _g57335_)) (else (##raise-wrong-number-of-arguments-exception assget - _g57073_)))))) + _g57335_)))))) (define pgetq__% - (lambda (_key55350_ _lst55352_ _default55354_) - (let _lp55357_ ((_rest55360_ _lst55352_)) - (let* ((_rest5536255372_ _rest55360_) - (_else5536455380_ + (lambda (_key55612_ _lst55614_ _default55616_) + (let _lp55619_ ((_rest55622_ _lst55614_)) + (let* ((_rest5562455634_ _rest55622_) + (_else5562655642_ (lambda () (if (let () (declare (not safe)) - (procedure? _default55354_)) - (_default55354_ _key55350_) - _default55354_))) - (_K5536655389_ - (lambda (_rest55383_ _v55384_ _k55386_) - (if (let () (declare (not safe)) (eq? _k55386_ _key55350_)) - _v55384_ + (procedure? _default55616_)) + (_default55616_ _key55612_) + _default55616_))) + (_K5562855651_ + (lambda (_rest55645_ _v55646_ _k55648_) + (if (let () (declare (not safe)) (eq? _k55648_ _key55612_)) + _v55646_ (let () (declare (not safe)) - (_lp55357_ _rest55383_)))))) - (if (let () (declare (not safe)) (##pair? _rest5536255372_)) - (let ((_hd5536755392_ - (let () (declare (not safe)) (##car _rest5536255372_))) - (_tl5536855394_ - (let () (declare (not safe)) (##cdr _rest5536255372_)))) - (let ((_k55397_ _hd5536755392_)) - (if (let () (declare (not safe)) (##pair? _tl5536855394_)) - (let ((_hd5536955399_ + (_lp55619_ _rest55645_)))))) + (if (let () (declare (not safe)) (##pair? _rest5562455634_)) + (let ((_hd5562955654_ + (let () (declare (not safe)) (##car _rest5562455634_))) + (_tl5563055656_ + (let () (declare (not safe)) (##cdr _rest5562455634_)))) + (let ((_k55659_ _hd5562955654_)) + (if (let () (declare (not safe)) (##pair? _tl5563055656_)) + (let ((_hd5563155661_ (let () (declare (not safe)) - (##car _tl5536855394_))) - (_tl5537055401_ + (##car _tl5563055656_))) + (_tl5563255663_ (let () (declare (not safe)) - (##cdr _tl5536855394_)))) - (let* ((_v55404_ _hd5536955399_) - (_rest55406_ _tl5537055401_)) + (##cdr _tl5563055656_)))) + (let* ((_v55666_ _hd5563155661_) + (_rest55668_ _tl5563255663_)) (declare (not safe)) - (_K5536655389_ _rest55406_ _v55404_ _k55397_))) - (let () (declare (not safe)) (_else5536455380_))))) - (let () (declare (not safe)) (_else5536455380_))))))) + (_K5562855651_ _rest55668_ _v55666_ _k55659_))) + (let () (declare (not safe)) (_else5562655642_))))) + (let () (declare (not safe)) (_else5562655642_))))))) (define pgetq__0 - (lambda (_key55411_ _lst55412_) - (let ((_default55414_ '#f)) + (lambda (_key55673_ _lst55674_) + (let ((_default55676_ '#f)) (declare (not safe)) - (pgetq__% _key55411_ _lst55412_ _default55414_)))) + (pgetq__% _key55673_ _lst55674_ _default55676_)))) (define pgetq - (lambda _g57075_ - (let ((_g57074_ (let () (declare (not safe)) (##length _g57075_)))) - (cond ((let () (declare (not safe)) (##fx= _g57074_ 2)) - (apply (lambda (_key55411_ _lst55412_) + (lambda _g57337_ + (let ((_g57336_ (let () (declare (not safe)) (##length _g57337_)))) + (cond ((let () (declare (not safe)) (##fx= _g57336_ 2)) + (apply (lambda (_key55673_ _lst55674_) (let () (declare (not safe)) - (pgetq__0 _key55411_ _lst55412_))) - _g57075_)) - ((let () (declare (not safe)) (##fx= _g57074_ 3)) - (apply (lambda (_key55416_ _lst55417_ _default55418_) + (pgetq__0 _key55673_ _lst55674_))) + _g57337_)) + ((let () (declare (not safe)) (##fx= _g57336_ 3)) + (apply (lambda (_key55678_ _lst55679_ _default55680_) (let () (declare (not safe)) - (pgetq__% _key55416_ _lst55417_ _default55418_))) - _g57075_)) + (pgetq__% _key55678_ _lst55679_ _default55680_))) + _g57337_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g57075_)))))) + _g57337_)))))) (define pgetv__% - (lambda (_key55279_ _lst55281_ _default55283_) - (let _lp55286_ ((_rest55289_ _lst55281_)) - (let* ((_rest5529155301_ _rest55289_) - (_else5529355309_ + (lambda (_key55541_ _lst55543_ _default55545_) + (let _lp55548_ ((_rest55551_ _lst55543_)) + (let* ((_rest5555355563_ _rest55551_) + (_else5555555571_ (lambda () (if (let () (declare (not safe)) - (procedure? _default55283_)) - (_default55283_ _key55279_) - _default55283_))) - (_K5529555318_ - (lambda (_rest55312_ _v55313_ _k55315_) + (procedure? _default55545_)) + (_default55545_ _key55541_) + _default55545_))) + (_K5555755580_ + (lambda (_rest55574_ _v55575_ _k55577_) (if (let () (declare (not safe)) - (eqv? _k55315_ _key55279_)) - _v55313_ + (eqv? _k55577_ _key55541_)) + _v55575_ (let () (declare (not safe)) - (_lp55286_ _rest55312_)))))) - (if (let () (declare (not safe)) (##pair? _rest5529155301_)) - (let ((_hd5529655321_ - (let () (declare (not safe)) (##car _rest5529155301_))) - (_tl5529755323_ - (let () (declare (not safe)) (##cdr _rest5529155301_)))) - (let ((_k55326_ _hd5529655321_)) - (if (let () (declare (not safe)) (##pair? _tl5529755323_)) - (let ((_hd5529855328_ + (_lp55548_ _rest55574_)))))) + (if (let () (declare (not safe)) (##pair? _rest5555355563_)) + (let ((_hd5555855583_ + (let () (declare (not safe)) (##car _rest5555355563_))) + (_tl5555955585_ + (let () (declare (not safe)) (##cdr _rest5555355563_)))) + (let ((_k55588_ _hd5555855583_)) + (if (let () (declare (not safe)) (##pair? _tl5555955585_)) + (let ((_hd5556055590_ (let () (declare (not safe)) - (##car _tl5529755323_))) - (_tl5529955330_ + (##car _tl5555955585_))) + (_tl5556155592_ (let () (declare (not safe)) - (##cdr _tl5529755323_)))) - (let* ((_v55333_ _hd5529855328_) - (_rest55335_ _tl5529955330_)) + (##cdr _tl5555955585_)))) + (let* ((_v55595_ _hd5556055590_) + (_rest55597_ _tl5556155592_)) (declare (not safe)) - (_K5529555318_ _rest55335_ _v55333_ _k55326_))) - (let () (declare (not safe)) (_else5529355309_))))) - (let () (declare (not safe)) (_else5529355309_))))))) + (_K5555755580_ _rest55597_ _v55595_ _k55588_))) + (let () (declare (not safe)) (_else5555555571_))))) + (let () (declare (not safe)) (_else5555555571_))))))) (define pgetv__0 - (lambda (_key55340_ _lst55341_) - (let ((_default55343_ '#f)) + (lambda (_key55602_ _lst55603_) + (let ((_default55605_ '#f)) (declare (not safe)) - (pgetv__% _key55340_ _lst55341_ _default55343_)))) + (pgetv__% _key55602_ _lst55603_ _default55605_)))) (define pgetv - (lambda _g57077_ - (let ((_g57076_ (let () (declare (not safe)) (##length _g57077_)))) - (cond ((let () (declare (not safe)) (##fx= _g57076_ 2)) - (apply (lambda (_key55340_ _lst55341_) + (lambda _g57339_ + (let ((_g57338_ (let () (declare (not safe)) (##length _g57339_)))) + (cond ((let () (declare (not safe)) (##fx= _g57338_ 2)) + (apply (lambda (_key55602_ _lst55603_) (let () (declare (not safe)) - (pgetv__0 _key55340_ _lst55341_))) - _g57077_)) - ((let () (declare (not safe)) (##fx= _g57076_ 3)) - (apply (lambda (_key55345_ _lst55346_ _default55347_) + (pgetv__0 _key55602_ _lst55603_))) + _g57339_)) + ((let () (declare (not safe)) (##fx= _g57338_ 3)) + (apply (lambda (_key55607_ _lst55608_ _default55609_) (let () (declare (not safe)) - (pgetv__% _key55345_ _lst55346_ _default55347_))) - _g57077_)) + (pgetv__% _key55607_ _lst55608_ _default55609_))) + _g57339_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g57077_)))))) + _g57339_)))))) (define pget__% - (lambda (_key55208_ _lst55210_ _default55212_) - (let _lp55215_ ((_rest55218_ _lst55210_)) - (let* ((_rest5522055230_ _rest55218_) - (_else5522255238_ + (lambda (_key55470_ _lst55472_ _default55474_) + (let _lp55477_ ((_rest55480_ _lst55472_)) + (let* ((_rest5548255492_ _rest55480_) + (_else5548455500_ (lambda () (if (let () (declare (not safe)) - (procedure? _default55212_)) - (_default55212_ _key55208_) - _default55212_))) - (_K5522455247_ - (lambda (_rest55241_ _v55242_ _k55244_) + (procedure? _default55474_)) + (_default55474_ _key55470_) + _default55474_))) + (_K5548655509_ + (lambda (_rest55503_ _v55504_ _k55506_) (if (let () (declare (not safe)) - (equal? _k55244_ _key55208_)) - _v55242_ + (equal? _k55506_ _key55470_)) + _v55504_ (let () (declare (not safe)) - (_lp55215_ _rest55241_)))))) - (if (let () (declare (not safe)) (##pair? _rest5522055230_)) - (let ((_hd5522555250_ - (let () (declare (not safe)) (##car _rest5522055230_))) - (_tl5522655252_ - (let () (declare (not safe)) (##cdr _rest5522055230_)))) - (let ((_k55255_ _hd5522555250_)) - (if (let () (declare (not safe)) (##pair? _tl5522655252_)) - (let ((_hd5522755257_ + (_lp55477_ _rest55503_)))))) + (if (let () (declare (not safe)) (##pair? _rest5548255492_)) + (let ((_hd5548755512_ + (let () (declare (not safe)) (##car _rest5548255492_))) + (_tl5548855514_ + (let () (declare (not safe)) (##cdr _rest5548255492_)))) + (let ((_k55517_ _hd5548755512_)) + (if (let () (declare (not safe)) (##pair? _tl5548855514_)) + (let ((_hd5548955519_ (let () (declare (not safe)) - (##car _tl5522655252_))) - (_tl5522855259_ + (##car _tl5548855514_))) + (_tl5549055521_ (let () (declare (not safe)) - (##cdr _tl5522655252_)))) - (let* ((_v55262_ _hd5522755257_) - (_rest55264_ _tl5522855259_)) + (##cdr _tl5548855514_)))) + (let* ((_v55524_ _hd5548955519_) + (_rest55526_ _tl5549055521_)) (declare (not safe)) - (_K5522455247_ _rest55264_ _v55262_ _k55255_))) - (let () (declare (not safe)) (_else5522255238_))))) - (let () (declare (not safe)) (_else5522255238_))))))) + (_K5548655509_ _rest55526_ _v55524_ _k55517_))) + (let () (declare (not safe)) (_else5548455500_))))) + (let () (declare (not safe)) (_else5548455500_))))))) (define pget__0 - (lambda (_key55269_ _lst55270_) - (let ((_default55272_ '#f)) + (lambda (_key55531_ _lst55532_) + (let ((_default55534_ '#f)) (declare (not safe)) - (pget__% _key55269_ _lst55270_ _default55272_)))) + (pget__% _key55531_ _lst55532_ _default55534_)))) (define pget - (lambda _g57079_ - (let ((_g57078_ (let () (declare (not safe)) (##length _g57079_)))) - (cond ((let () (declare (not safe)) (##fx= _g57078_ 2)) - (apply (lambda (_key55269_ _lst55270_) + (lambda _g57341_ + (let ((_g57340_ (let () (declare (not safe)) (##length _g57341_)))) + (cond ((let () (declare (not safe)) (##fx= _g57340_ 2)) + (apply (lambda (_key55531_ _lst55532_) (let () (declare (not safe)) - (pget__0 _key55269_ _lst55270_))) - _g57079_)) - ((let () (declare (not safe)) (##fx= _g57078_ 3)) - (apply (lambda (_key55274_ _lst55275_ _default55276_) + (pget__0 _key55531_ _lst55532_))) + _g57341_)) + ((let () (declare (not safe)) (##fx= _g57340_ 3)) + (apply (lambda (_key55536_ _lst55537_ _default55538_) (let () (declare (not safe)) - (pget__% _key55274_ _lst55275_ _default55276_))) - _g57079_)) + (pget__% _key55536_ _lst55537_ _default55538_))) + _g57341_)) (else (##raise-wrong-number-of-arguments-exception pget - _g57079_)))))) + _g57341_)))))) (define find - (lambda (_pred55201_ _lst55202_) - (let ((_$e55204_ - (let () (declare (not safe)) (memf _pred55201_ _lst55202_)))) - (if _$e55204_ (car _$e55204_) '#f)))) + (lambda (_pred55463_ _lst55464_) + (let ((_$e55466_ + (let () (declare (not safe)) (memf _pred55463_ _lst55464_)))) + (if _$e55466_ (car _$e55466_) '#f)))) (define memf - (lambda (_proc55161_ _lst55162_) - (let _lp55164_ ((_rest55166_ _lst55162_)) - (let* ((_rest5516755175_ _rest55166_) - (_else5516955183_ (lambda () '#f)) - (_K5517155189_ - (lambda (_tl55186_ _hd55187_) - (if (_proc55161_ _hd55187_) - _rest55166_ - (let () (declare (not safe)) (_lp55164_ _tl55186_)))))) - (if (let () (declare (not safe)) (##pair? _rest5516755175_)) - (let ((_hd5517255192_ - (let () (declare (not safe)) (##car _rest5516755175_))) - (_tl5517355194_ - (let () (declare (not safe)) (##cdr _rest5516755175_)))) - (let* ((_hd55197_ _hd5517255192_) (_tl55199_ _tl5517355194_)) + (lambda (_proc55423_ _lst55424_) + (let _lp55426_ ((_rest55428_ _lst55424_)) + (let* ((_rest5542955437_ _rest55428_) + (_else5543155445_ (lambda () '#f)) + (_K5543355451_ + (lambda (_tl55448_ _hd55449_) + (if (_proc55423_ _hd55449_) + _rest55428_ + (let () (declare (not safe)) (_lp55426_ _tl55448_)))))) + (if (let () (declare (not safe)) (##pair? _rest5542955437_)) + (let ((_hd5543455454_ + (let () (declare (not safe)) (##car _rest5542955437_))) + (_tl5543555456_ + (let () (declare (not safe)) (##cdr _rest5542955437_)))) + (let* ((_hd55459_ _hd5543455454_) (_tl55461_ _tl5543555456_)) (declare (not safe)) - (_K5517155189_ _tl55199_ _hd55197_))) - (let () (declare (not safe)) (_else5516955183_))))))) + (_K5543355451_ _tl55461_ _hd55459_))) + (let () (declare (not safe)) (_else5543155445_))))))) (define remove1 - (lambda (_el55114_ _lst55116_) - (let _lp55119_ ((_rest55122_ _lst55116_) (_r55124_ '())) - (let* ((_rest5512655134_ _rest55122_) - (_else5512855142_ (lambda () _lst55116_)) - (_K5513055149_ - (lambda (_rest55145_ _hd55146_) + (lambda (_el55376_ _lst55378_) + (let _lp55381_ ((_rest55384_ _lst55378_) (_r55386_ '())) + (let* ((_rest5538855396_ _rest55384_) + (_else5539055404_ (lambda () _lst55378_)) + (_K5539255411_ + (lambda (_rest55407_ _hd55408_) (if (let () (declare (not safe)) - (equal? _el55114_ _hd55146_)) + (equal? _el55376_ _hd55408_)) (let () (declare (not safe)) - (foldl1 cons _rest55145_ _r55124_)) - (let ((__tmp57080 + (foldl1 cons _rest55407_ _r55386_)) + (let ((__tmp57342 (let () (declare (not safe)) - (cons _hd55146_ _r55124_)))) + (cons _hd55408_ _r55386_)))) (declare (not safe)) - (_lp55119_ _rest55145_ __tmp57080)))))) - (if (let () (declare (not safe)) (##pair? _rest5512655134_)) - (let ((_hd5513155152_ - (let () (declare (not safe)) (##car _rest5512655134_))) - (_tl5513255154_ - (let () (declare (not safe)) (##cdr _rest5512655134_)))) - (let* ((_hd55157_ _hd5513155152_) - (_rest55159_ _tl5513255154_)) + (_lp55381_ _rest55407_ __tmp57342)))))) + (if (let () (declare (not safe)) (##pair? _rest5538855396_)) + (let ((_hd5539355414_ + (let () (declare (not safe)) (##car _rest5538855396_))) + (_tl5539455416_ + (let () (declare (not safe)) (##cdr _rest5538855396_)))) + (let* ((_hd55419_ _hd5539355414_) + (_rest55421_ _tl5539455416_)) (declare (not safe)) - (_K5513055149_ _rest55159_ _hd55157_))) - (let () (declare (not safe)) (_else5512855142_))))))) + (_K5539255411_ _rest55421_ _hd55419_))) + (let () (declare (not safe)) (_else5539055404_))))))) (define remv - (lambda (_el55067_ _lst55069_) - (let _lp55072_ ((_rest55075_ _lst55069_) (_r55077_ '())) - (let* ((_rest5507955087_ _rest55075_) - (_else5508155095_ (lambda () _lst55069_)) - (_K5508355102_ - (lambda (_rest55098_ _hd55099_) + (lambda (_el55329_ _lst55331_) + (let _lp55334_ ((_rest55337_ _lst55331_) (_r55339_ '())) + (let* ((_rest5534155349_ _rest55337_) + (_else5534355357_ (lambda () _lst55331_)) + (_K5534555364_ + (lambda (_rest55360_ _hd55361_) (if (let () (declare (not safe)) - (eqv? _el55067_ _hd55099_)) + (eqv? _el55329_ _hd55361_)) (let () (declare (not safe)) - (foldl1 cons _rest55098_ _r55077_)) - (let ((__tmp57081 + (foldl1 cons _rest55360_ _r55339_)) + (let ((__tmp57343 (let () (declare (not safe)) - (cons _hd55099_ _r55077_)))) + (cons _hd55361_ _r55339_)))) (declare (not safe)) - (_lp55072_ _rest55098_ __tmp57081)))))) - (if (let () (declare (not safe)) (##pair? _rest5507955087_)) - (let ((_hd5508455105_ - (let () (declare (not safe)) (##car _rest5507955087_))) - (_tl5508555107_ - (let () (declare (not safe)) (##cdr _rest5507955087_)))) - (let* ((_hd55110_ _hd5508455105_) - (_rest55112_ _tl5508555107_)) + (_lp55334_ _rest55360_ __tmp57343)))))) + (if (let () (declare (not safe)) (##pair? _rest5534155349_)) + (let ((_hd5534655367_ + (let () (declare (not safe)) (##car _rest5534155349_))) + (_tl5534755369_ + (let () (declare (not safe)) (##cdr _rest5534155349_)))) + (let* ((_hd55372_ _hd5534655367_) + (_rest55374_ _tl5534755369_)) (declare (not safe)) - (_K5508355102_ _rest55112_ _hd55110_))) - (let () (declare (not safe)) (_else5508155095_))))))) + (_K5534555364_ _rest55374_ _hd55372_))) + (let () (declare (not safe)) (_else5534355357_))))))) (define remq - (lambda (_el55020_ _lst55022_) - (let _lp55025_ ((_rest55028_ _lst55022_) (_r55030_ '())) - (let* ((_rest5503255040_ _rest55028_) - (_else5503455048_ (lambda () _lst55022_)) - (_K5503655055_ - (lambda (_rest55051_ _hd55052_) - (if (let () (declare (not safe)) (eq? _el55020_ _hd55052_)) + (lambda (_el55282_ _lst55284_) + (let _lp55287_ ((_rest55290_ _lst55284_) (_r55292_ '())) + (let* ((_rest5529455302_ _rest55290_) + (_else5529655310_ (lambda () _lst55284_)) + (_K5529855317_ + (lambda (_rest55313_ _hd55314_) + (if (let () (declare (not safe)) (eq? _el55282_ _hd55314_)) (let () (declare (not safe)) - (foldl1 cons _rest55051_ _r55030_)) - (let ((__tmp57082 + (foldl1 cons _rest55313_ _r55292_)) + (let ((__tmp57344 (let () (declare (not safe)) - (cons _hd55052_ _r55030_)))) + (cons _hd55314_ _r55292_)))) (declare (not safe)) - (_lp55025_ _rest55051_ __tmp57082)))))) - (if (let () (declare (not safe)) (##pair? _rest5503255040_)) - (let ((_hd5503755058_ - (let () (declare (not safe)) (##car _rest5503255040_))) - (_tl5503855060_ - (let () (declare (not safe)) (##cdr _rest5503255040_)))) - (let* ((_hd55063_ _hd5503755058_) - (_rest55065_ _tl5503855060_)) + (_lp55287_ _rest55313_ __tmp57344)))))) + (if (let () (declare (not safe)) (##pair? _rest5529455302_)) + (let ((_hd5529955320_ + (let () (declare (not safe)) (##car _rest5529455302_))) + (_tl5530055322_ + (let () (declare (not safe)) (##cdr _rest5529455302_)))) + (let* ((_hd55325_ _hd5529955320_) + (_rest55327_ _tl5530055322_)) (declare (not safe)) - (_K5503655055_ _rest55065_ _hd55063_))) - (let () (declare (not safe)) (_else5503455048_))))))) + (_K5529855317_ _rest55327_ _hd55325_))) + (let () (declare (not safe)) (_else5529655310_))))))) (define remf - (lambda (_proc54979_ _lst54980_) - (let _lp54982_ ((_rest54984_ _lst54980_) (_r54985_ '())) - (let* ((_rest5498654994_ _rest54984_) - (_else5498855002_ (lambda () _lst54980_)) - (_K5499055008_ - (lambda (_rest55005_ _hd55006_) - (if (_proc54979_ _hd55006_) + (lambda (_proc55241_ _lst55242_) + (let _lp55244_ ((_rest55246_ _lst55242_) (_r55247_ '())) + (let* ((_rest5524855256_ _rest55246_) + (_else5525055264_ (lambda () _lst55242_)) + (_K5525255270_ + (lambda (_rest55267_ _hd55268_) + (if (_proc55241_ _hd55268_) (let () (declare (not safe)) - (foldl1 cons _rest55005_ _r54985_)) - (let ((__tmp57083 + (foldl1 cons _rest55267_ _r55247_)) + (let ((__tmp57345 (let () (declare (not safe)) - (cons _hd55006_ _r54985_)))) + (cons _hd55268_ _r55247_)))) (declare (not safe)) - (_lp54982_ _rest55005_ __tmp57083)))))) - (if (let () (declare (not safe)) (##pair? _rest5498654994_)) - (let ((_hd5499155011_ - (let () (declare (not safe)) (##car _rest5498654994_))) - (_tl5499255013_ - (let () (declare (not safe)) (##cdr _rest5498654994_)))) - (let* ((_hd55016_ _hd5499155011_) - (_rest55018_ _tl5499255013_)) + (_lp55244_ _rest55267_ __tmp57345)))))) + (if (let () (declare (not safe)) (##pair? _rest5524855256_)) + (let ((_hd5525355273_ + (let () (declare (not safe)) (##car _rest5524855256_))) + (_tl5525455275_ + (let () (declare (not safe)) (##cdr _rest5524855256_)))) + (let* ((_hd55278_ _hd5525355273_) + (_rest55280_ _tl5525455275_)) (declare (not safe)) - (_K5499055008_ _rest55018_ _hd55016_))) - (let () (declare (not safe)) (_else5498855002_))))))) - (define 1+ (lambda (_x54977_) (+ _x54977_ '1))) - (define 1- (lambda (_x54975_) (- _x54975_ '1))) - (define fx1+ (lambda (_x54973_) (fx+ _x54973_ '1))) - (define fx1- (lambda (_x54971_) (fx- _x54971_ '1))) + (_K5525255270_ _rest55280_ _hd55278_))) + (let () (declare (not safe)) (_else5525055264_))))))) + (define 1+ (lambda (_x55239_) (+ _x55239_ '1))) + (define 1- (lambda (_x55237_) (- _x55237_ '1))) + (define fx1+ (lambda (_x55235_) (fx+ _x55235_ '1))) + (define fx1- (lambda (_x55233_) (fx- _x55233_ '1))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_x54969_) - (if (let () (declare (not safe)) (fixnum? _x54969_)) - (let () (declare (not safe)) (##fx>= _x54969_ '0)) + (lambda (_x55231_) + (if (let () (declare (not safe)) (fixnum? _x55231_)) + (let () (declare (not safe)) (##fx>= _x55231_ '0)) '#f))) (define fx>0? - (lambda (_x54967_) - (if (let () (declare (not safe)) (fixnum? _x54967_)) - (let () (declare (not safe)) (##fx> _x54967_ '0)) + (lambda (_x55229_) + (if (let () (declare (not safe)) (fixnum? _x55229_)) + (let () (declare (not safe)) (##fx> _x55229_ '0)) '#f))) (define fx=0? - (lambda (_x54965_) (let () (declare (not safe)) (eq? _x54965_ '0)))) + (lambda (_x55227_) (let () (declare (not safe)) (eq? _x55227_ '0)))) (define fx<0? - (lambda (_x54963_) - (if (let () (declare (not safe)) (fixnum? _x54963_)) - (let () (declare (not safe)) (##fx< _x54963_ '0)) + (lambda (_x55225_) + (if (let () (declare (not safe)) (fixnum? _x55225_)) + (let () (declare (not safe)) (##fx< _x55225_ '0)) '#f))) (define fx<=0? - (lambda (_x54961_) - (if (let () (declare (not safe)) (fixnum? _x54961_)) - (let () (declare (not safe)) (##fx<= _x54961_ '0)) + (lambda (_x55223_) + (if (let () (declare (not safe)) (fixnum? _x55223_)) + (let () (declare (not safe)) (##fx<= _x55223_ '0)) '#f))) (define interned-symbol? - (lambda (_x54959_) - (if (let () (declare (not safe)) (symbol? _x54959_)) - (let ((__tmp57084 (uninterned-symbol? _x54959_))) + (lambda (_x55221_) + (if (let () (declare (not safe)) (symbol? _x55221_)) + (let ((__tmp57346 (uninterned-symbol? _x55221_))) (declare (not safe)) - (not __tmp57084)) + (not __tmp57346)) '#f))) (define display-as-string - (lambda (_x54931_ _port54932_) - (if (or (let () (declare (not safe)) (string? _x54931_)) - (let () (declare (not safe)) (symbol? _x54931_)) - (keyword? _x54931_) - (let () (declare (not safe)) (number? _x54931_)) - (let () (declare (not safe)) (char? _x54931_))) - (display _x54931_ _port54932_) - (if (let () (declare (not safe)) (pair? _x54931_)) + (lambda (_x55193_ _port55194_) + (if (or (let () (declare (not safe)) (string? _x55193_)) + (let () (declare (not safe)) (symbol? _x55193_)) + (keyword? _x55193_) + (let () (declare (not safe)) (number? _x55193_)) + (let () (declare (not safe)) (char? _x55193_))) + (display _x55193_ _port55194_) + (if (let () (declare (not safe)) (pair? _x55193_)) (begin - (let ((__tmp57085 (car _x54931_))) + (let ((__tmp57347 (car _x55193_))) (declare (not safe)) - (display-as-string __tmp57085 _port54932_)) - (let ((__tmp57086 (cdr _x54931_))) + (display-as-string __tmp57347 _port55194_)) + (let ((__tmp57348 (cdr _x55193_))) (declare (not safe)) - (display-as-string __tmp57086 _port54932_))) - (if (let () (declare (not safe)) (vector? _x54931_)) + (display-as-string __tmp57348 _port55194_))) + (if (let () (declare (not safe)) (vector? _x55193_)) (vector-for-each - (lambda (_g5494554947_) + (lambda (_g5520755209_) (let () (declare (not safe)) - (display-as-string _g5494554947_ _port54932_))) - _x54931_) - (if (or (let () (declare (not safe)) (null? _x54931_)) + (display-as-string _g5520755209_ _port55194_))) + _x55193_) + (if (or (let () (declare (not safe)) (null? _x55193_)) (let () (declare (not safe)) - (eq? _x54931_ '#!void)) + (eq? _x55193_ '#!void)) (let () (declare (not safe)) - (eof-object? _x54931_)) - (let () (declare (not safe)) (boolean? _x54931_))) + (eof-object? _x55193_)) + (let () (declare (not safe)) (boolean? _x55193_))) '#!void (let () (declare (not safe)) - (error '"cannot convert as string" _x54931_)))))))) + (error '"cannot convert as string" _x55193_)))))))) (define as-string__0 - (lambda (_x54919_) - (if (let () (declare (not safe)) (string? _x54919_)) - _x54919_ - (if (let () (declare (not safe)) (symbol? _x54919_)) - (symbol->string _x54919_) - (if (keyword? _x54919_) - (keyword->string _x54919_) + (lambda (_x55181_) + (if (let () (declare (not safe)) (string? _x55181_)) + _x55181_ + (if (let () (declare (not safe)) (symbol? _x55181_)) + (symbol->string _x55181_) + (if (keyword? _x55181_) + (keyword->string _x55181_) (call-with-output-string '() - (lambda (_g5492054922_) + (lambda (_g5518255184_) (let () (declare (not safe)) - (display-as-string _x54919_ _g5492054922_))))))))) + (display-as-string _x55181_ _g5518255184_))))))))) (define as-string__1 - (lambda _args54925_ + (lambda _args55187_ (call-with-output-string '() - (lambda (_g5492654928_) + (lambda (_g5518855190_) (let () (declare (not safe)) - (display-as-string _args54925_ _g5492654928_)))))) + (display-as-string _args55187_ _g5518855190_)))))) (define as-string - (lambda _g57088_ - (let ((_g57087_ (let () (declare (not safe)) (##length _g57088_)))) - (cond ((let () (declare (not safe)) (##fx= _g57087_ 1)) - (apply (lambda (_x54919_) + (lambda _g57350_ + (let ((_g57349_ (let () (declare (not safe)) (##length _g57350_)))) + (cond ((let () (declare (not safe)) (##fx= _g57349_ 1)) + (apply (lambda (_x55181_) (let () (declare (not safe)) - (as-string__0 _x54919_))) - _g57088_)) - (#t (apply as-string__1 _g57088_)) + (as-string__0 _x55181_))) + _g57350_)) + (#t (apply as-string__1 _g57350_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g57088_)))))) + _g57350_)))))) (define make-symbol__0 - (lambda (_x54915_) - (if (interned-symbol? _x54915_) - _x54915_ + (lambda (_x55177_) + (if (interned-symbol? _x55177_) + _x55177_ (string->symbol - (let () (declare (not safe)) (as-string__0 _x54915_)))))) + (let () (declare (not safe)) (as-string__0 _x55177_)))))) (define make-symbol__1 - (lambda _args54917_ (string->symbol (apply as-string _args54917_)))) + (lambda _args55179_ (string->symbol (apply as-string _args55179_)))) (define make-symbol - (lambda _g57090_ - (let ((_g57089_ (let () (declare (not safe)) (##length _g57090_)))) - (cond ((let () (declare (not safe)) (##fx= _g57089_ 1)) - (apply (lambda (_x54915_) + (lambda _g57352_ + (let ((_g57351_ (let () (declare (not safe)) (##length _g57352_)))) + (cond ((let () (declare (not safe)) (##fx= _g57351_ 1)) + (apply (lambda (_x55177_) (let () (declare (not safe)) - (make-symbol__0 _x54915_))) - _g57090_)) - (#t (apply make-symbol__1 _g57090_)) + (make-symbol__0 _x55177_))) + _g57352_)) + (#t (apply make-symbol__1 _g57352_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g57090_)))))) + _g57352_)))))) (define make-keyword__0 - (lambda (_x54911_) - (if (interned-keyword? _x54911_) - _x54911_ + (lambda (_x55173_) + (if (interned-keyword? _x55173_) + _x55173_ (string->keyword - (let () (declare (not safe)) (as-string__0 _x54911_)))))) + (let () (declare (not safe)) (as-string__0 _x55173_)))))) (define make-keyword__1 - (lambda _args54913_ (string->keyword (apply as-string _args54913_)))) + (lambda _args55175_ (string->keyword (apply as-string _args55175_)))) (define make-keyword - (lambda _g57092_ - (let ((_g57091_ (let () (declare (not safe)) (##length _g57092_)))) - (cond ((let () (declare (not safe)) (##fx= _g57091_ 1)) - (apply (lambda (_x54911_) + (lambda _g57354_ + (let ((_g57353_ (let () (declare (not safe)) (##length _g57354_)))) + (cond ((let () (declare (not safe)) (##fx= _g57353_ 1)) + (apply (lambda (_x55173_) (let () (declare (not safe)) - (make-keyword__0 _x54911_))) - _g57092_)) - (#t (apply make-keyword__1 _g57092_)) + (make-keyword__0 _x55173_))) + _g57354_)) + (#t (apply make-keyword__1 _g57354_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g57092_)))))) + _g57354_)))))) (define interned-keyword? - (lambda (_x54909_) - (if (keyword? _x54909_) - (let ((__tmp57093 (uninterned-keyword? _x54909_))) + (lambda (_x55171_) + (if (keyword? _x55171_) + (let ((__tmp57355 (uninterned-keyword? _x55171_))) (declare (not safe)) - (not __tmp57093)) + (not __tmp57355)) '#f))) (define symbol->keyword - (lambda (_sym54907_) - ((if (uninterned-symbol? _sym54907_) + (lambda (_sym55169_) + ((if (uninterned-symbol? _sym55169_) string->uninterned-keyword string->keyword) - (symbol->string _sym54907_)))) + (symbol->string _sym55169_)))) (define keyword->symbol - (lambda (_kw54905_) - ((if (uninterned-keyword? _kw54905_) + (lambda (_kw55167_) + ((if (uninterned-keyword? _kw55167_) string->uninterned-symbol string->symbol) - (keyword->string _kw54905_)))) + (keyword->string _kw55167_)))) (define bytes->string__% - (lambda (_bstr54883_ _enc54884_) - (if (let () (declare (not safe)) (eq? _enc54884_ 'UTF-8)) - (utf8->string _bstr54883_) - (let* ((_in54886_ + (lambda (_bstr55145_ _enc55146_) + (if (let () (declare (not safe)) (eq? _enc55146_ 'UTF-8)) + (utf8->string _bstr55145_) + (let* ((_in55148_ (open-input-u8vector - (let ((__tmp57094 - (let ((__tmp57095 - (let ((__tmp57096 + (let ((__tmp57356 + (let ((__tmp57357 + (let ((__tmp57358 (let () (declare (not safe)) - (cons _bstr54883_ '())))) + (cons _bstr55145_ '())))) (declare (not safe)) - (cons 'init: __tmp57096)))) + (cons 'init: __tmp57358)))) (declare (not safe)) - (cons _enc54884_ __tmp57095)))) + (cons _enc55146_ __tmp57357)))) (declare (not safe)) - (cons 'char-encoding: __tmp57094)))) - (_len54888_ (u8vector-length _bstr54883_)) - (_out54890_ (make-string _len54888_)) - (_n54892_ - (read-substring _out54890_ '0 _len54888_ _in54886_))) - (string-shrink! _out54890_ _n54892_) - _out54890_)))) + (cons 'char-encoding: __tmp57356)))) + (_len55150_ (u8vector-length _bstr55145_)) + (_out55152_ (make-string _len55150_)) + (_n55154_ + (read-substring _out55152_ '0 _len55150_ _in55148_))) + (string-shrink! _out55152_ _n55154_) + _out55152_)))) (define bytes->string__0 - (lambda (_bstr54898_) - (let ((_enc54900_ 'UTF-8)) + (lambda (_bstr55160_) + (let ((_enc55162_ 'UTF-8)) (declare (not safe)) - (bytes->string__% _bstr54898_ _enc54900_)))) + (bytes->string__% _bstr55160_ _enc55162_)))) (define bytes->string - (lambda _g57098_ - (let ((_g57097_ (let () (declare (not safe)) (##length _g57098_)))) - (cond ((let () (declare (not safe)) (##fx= _g57097_ 1)) - (apply (lambda (_bstr54898_) + (lambda _g57360_ + (let ((_g57359_ (let () (declare (not safe)) (##length _g57360_)))) + (cond ((let () (declare (not safe)) (##fx= _g57359_ 1)) + (apply (lambda (_bstr55160_) (let () (declare (not safe)) - (bytes->string__0 _bstr54898_))) - _g57098_)) - ((let () (declare (not safe)) (##fx= _g57097_ 2)) - (apply (lambda (_bstr54902_ _enc54903_) + (bytes->string__0 _bstr55160_))) + _g57360_)) + ((let () (declare (not safe)) (##fx= _g57359_ 2)) + (apply (lambda (_bstr55164_ _enc55165_) (let () (declare (not safe)) - (bytes->string__% _bstr54902_ _enc54903_))) - _g57098_)) + (bytes->string__% _bstr55164_ _enc55165_))) + _g57360_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g57098_)))))) + _g57360_)))))) (define string->bytes__% - (lambda (_str54869_ _enc54870_) - (if (let () (declare (not safe)) (eq? _enc54870_ 'UTF-8)) - (string->utf8 _str54869_) + (lambda (_str55131_ _enc55132_) + (if (let () (declare (not safe)) (eq? _enc55132_ 'UTF-8)) + (string->utf8 _str55131_) (substring->bytes - _str54869_ + _str55131_ '0 - (string-length _str54869_) - _enc54870_)))) + (string-length _str55131_) + _enc55132_)))) (define string->bytes__0 - (lambda (_str54875_) - (let ((_enc54877_ 'UTF-8)) + (lambda (_str55137_) + (let ((_enc55139_ 'UTF-8)) (declare (not safe)) - (string->bytes__% _str54875_ _enc54877_)))) + (string->bytes__% _str55137_ _enc55139_)))) (define string->bytes - (lambda _g57100_ - (let ((_g57099_ (let () (declare (not safe)) (##length _g57100_)))) - (cond ((let () (declare (not safe)) (##fx= _g57099_ 1)) - (apply (lambda (_str54875_) + (lambda _g57362_ + (let ((_g57361_ (let () (declare (not safe)) (##length _g57362_)))) + (cond ((let () (declare (not safe)) (##fx= _g57361_ 1)) + (apply (lambda (_str55137_) (let () (declare (not safe)) - (string->bytes__0 _str54875_))) - _g57100_)) - ((let () (declare (not safe)) (##fx= _g57099_ 2)) - (apply (lambda (_str54879_ _enc54880_) + (string->bytes__0 _str55137_))) + _g57362_)) + ((let () (declare (not safe)) (##fx= _g57361_ 2)) + (apply (lambda (_str55141_ _enc55142_) (let () (declare (not safe)) - (string->bytes__% _str54879_ _enc54880_))) - _g57100_)) + (string->bytes__% _str55141_ _enc55142_))) + _g57362_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g57100_)))))) + _g57362_)))))) (define substring->bytes__% - (lambda (_str54847_ _start54848_ _end54849_ _enc54850_) - (if (let () (declare (not safe)) (eq? _enc54850_ 'UTF-8)) - (string->utf8 _str54847_ _start54848_ _end54849_) - (let ((_out54852_ + (lambda (_str55109_ _start55110_ _end55111_ _enc55112_) + (if (let () (declare (not safe)) (eq? _enc55112_ 'UTF-8)) + (string->utf8 _str55109_ _start55110_ _end55111_) + (let ((_out55114_ (open-output-u8vector - (let ((__tmp57101 + (let ((__tmp57363 (let () (declare (not safe)) - (cons _enc54850_ '())))) + (cons _enc55112_ '())))) (declare (not safe)) - (cons 'char-encoding: __tmp57101))))) - (write-substring _str54847_ _start54848_ _end54849_ _out54852_) - (get-output-u8vector _out54852_))))) + (cons 'char-encoding: __tmp57363))))) + (write-substring _str55109_ _start55110_ _end55111_ _out55114_) + (get-output-u8vector _out55114_))))) (define substring->bytes__0 - (lambda (_str54857_ _start54858_ _end54859_) - (let ((_enc54861_ 'UTF-8)) + (lambda (_str55119_ _start55120_ _end55121_) + (let ((_enc55123_ 'UTF-8)) (declare (not safe)) (substring->bytes__% - _str54857_ - _start54858_ - _end54859_ - _enc54861_)))) + _str55119_ + _start55120_ + _end55121_ + _enc55123_)))) (define substring->bytes - (lambda _g57103_ - (let ((_g57102_ (let () (declare (not safe)) (##length _g57103_)))) - (cond ((let () (declare (not safe)) (##fx= _g57102_ 3)) - (apply (lambda (_str54857_ _start54858_ _end54859_) + (lambda _g57365_ + (let ((_g57364_ (let () (declare (not safe)) (##length _g57365_)))) + (cond ((let () (declare (not safe)) (##fx= _g57364_ 3)) + (apply (lambda (_str55119_ _start55120_ _end55121_) (let () (declare (not safe)) (substring->bytes__0 - _str54857_ - _start54858_ - _end54859_))) - _g57103_)) - ((let () (declare (not safe)) (##fx= _g57102_ 4)) - (apply (lambda (_str54863_ _start54864_ _end54865_ _enc54866_) + _str55119_ + _start55120_ + _end55121_))) + _g57365_)) + ((let () (declare (not safe)) (##fx= _g57364_ 4)) + (apply (lambda (_str55125_ _start55126_ _end55127_ _enc55128_) (let () (declare (not safe)) (substring->bytes__% - _str54863_ - _start54864_ - _end54865_ - _enc54866_))) - _g57103_)) + _str55125_ + _start55126_ + _end55127_ + _enc55128_))) + _g57365_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g57103_)))))) + _g57365_)))))) (define string-empty? - (lambda (_str54844_) - (let ((__tmp57104 (string-length _str54844_))) + (lambda (_str55106_) + (let ((__tmp57366 (string-length _str55106_))) (declare (not safe)) - (##fxzero? __tmp57104)))) + (##fxzero? __tmp57366)))) (define string-prefix? - (lambda (_prefix54834_ _str54835_) - (let ((_str-len54837_ (string-length _str54835_)) - (_prefix-len54838_ (string-length _prefix54834_))) + (lambda (_prefix55096_ _str55097_) + (let ((_str-len55099_ (string-length _str55097_)) + (_prefix-len55100_ (string-length _prefix55096_))) (if (let () (declare (not safe)) - (##fx<= _prefix-len54838_ _str-len54837_)) - (let _lp54840_ ((_i54842_ '0)) + (##fx<= _prefix-len55100_ _str-len55099_)) + (let _lp55102_ ((_i55104_ '0)) (if (let () (declare (not safe)) - (##fx< _i54842_ _prefix-len54838_)) - (if (let ((__tmp57107 + (##fx< _i55104_ _prefix-len55100_)) + (if (let ((__tmp57369 (let () (declare (not safe)) - (##string-ref _str54835_ _i54842_))) - (__tmp57106 + (##string-ref _str55097_ _i55104_))) + (__tmp57368 (let () (declare (not safe)) - (##string-ref _prefix54834_ _i54842_)))) + (##string-ref _prefix55096_ _i55104_)))) (declare (not safe)) - (eq? __tmp57107 __tmp57106)) - (let ((__tmp57105 + (eq? __tmp57369 __tmp57368)) + (let ((__tmp57367 (let () (declare (not safe)) - (##fx+ _i54842_ '1)))) + (##fx+ _i55104_ '1)))) (declare (not safe)) - (_lp54840_ __tmp57105)) + (_lp55102_ __tmp57367)) '#f) '#t)) '#f)))) (define string-index__% - (lambda (_str54812_ _char54813_ _start54814_) - (let ((_len54816_ (string-length _str54812_))) - (let _lp54818_ ((_k54820_ _start54814_)) - (if (let () (declare (not safe)) (##fx< _k54820_ _len54816_)) - (if (let ((__tmp57109 + (lambda (_str55074_ _char55075_ _start55076_) + (let ((_len55078_ (string-length _str55074_))) + (let _lp55080_ ((_k55082_ _start55076_)) + (if (let () (declare (not safe)) (##fx< _k55082_ _len55078_)) + (if (let ((__tmp57371 (let () (declare (not safe)) - (##string-ref _str54812_ _k54820_)))) + (##string-ref _str55074_ _k55082_)))) (declare (not safe)) - (eq? _char54813_ __tmp57109)) - _k54820_ - (let ((__tmp57108 - (let () (declare (not safe)) (##fx+ _k54820_ '1)))) + (eq? _char55075_ __tmp57371)) + _k55082_ + (let ((__tmp57370 + (let () (declare (not safe)) (##fx+ _k55082_ '1)))) (declare (not safe)) - (_lp54818_ __tmp57108))) + (_lp55080_ __tmp57370))) '#f))))) (define string-index__0 - (lambda (_str54825_ _char54826_) - (let ((_start54828_ '0)) + (lambda (_str55087_ _char55088_) + (let ((_start55090_ '0)) (declare (not safe)) - (string-index__% _str54825_ _char54826_ _start54828_)))) + (string-index__% _str55087_ _char55088_ _start55090_)))) (define string-index - (lambda _g57111_ - (let ((_g57110_ (let () (declare (not safe)) (##length _g57111_)))) - (cond ((let () (declare (not safe)) (##fx= _g57110_ 2)) - (apply (lambda (_str54825_ _char54826_) + (lambda _g57373_ + (let ((_g57372_ (let () (declare (not safe)) (##length _g57373_)))) + (cond ((let () (declare (not safe)) (##fx= _g57372_ 2)) + (apply (lambda (_str55087_ _char55088_) (let () (declare (not safe)) - (string-index__0 _str54825_ _char54826_))) - _g57111_)) - ((let () (declare (not safe)) (##fx= _g57110_ 3)) - (apply (lambda (_str54830_ _char54831_ _start54832_) + (string-index__0 _str55087_ _char55088_))) + _g57373_)) + ((let () (declare (not safe)) (##fx= _g57372_ 3)) + (apply (lambda (_str55092_ _char55093_ _start55094_) (let () (declare (not safe)) (string-index__% - _str54830_ - _char54831_ - _start54832_))) - _g57111_)) + _str55092_ + _char55093_ + _start55094_))) + _g57373_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g57111_)))))) + _g57373_)))))) (define string-rindex__% - (lambda (_str54783_ _char54784_ _start54785_) - (let* ((_len54787_ (string-length _str54783_)) - (_start54792_ - (let ((_$e54789_ _start54785_)) - (if _$e54789_ - _$e54789_ - (let () (declare (not safe)) (##fx- _len54787_ '1)))))) - (let _lp54795_ ((_k54797_ _start54792_)) - (if (let () (declare (not safe)) (##fx>= _k54797_ '0)) - (if (let ((__tmp57113 + (lambda (_str55045_ _char55046_ _start55047_) + (let* ((_len55049_ (string-length _str55045_)) + (_start55054_ + (let ((_$e55051_ _start55047_)) + (if _$e55051_ + _$e55051_ + (let () (declare (not safe)) (##fx- _len55049_ '1)))))) + (let _lp55057_ ((_k55059_ _start55054_)) + (if (let () (declare (not safe)) (##fx>= _k55059_ '0)) + (if (let ((__tmp57375 (let () (declare (not safe)) - (##string-ref _str54783_ _k54797_)))) + (##string-ref _str55045_ _k55059_)))) (declare (not safe)) - (eq? _char54784_ __tmp57113)) - _k54797_ - (let ((__tmp57112 - (let () (declare (not safe)) (##fx- _k54797_ '1)))) + (eq? _char55046_ __tmp57375)) + _k55059_ + (let ((__tmp57374 + (let () (declare (not safe)) (##fx- _k55059_ '1)))) (declare (not safe)) - (_lp54795_ __tmp57112))) + (_lp55057_ __tmp57374))) '#f))))) (define string-rindex__0 - (lambda (_str54802_ _char54803_) - (let ((_start54805_ '#f)) + (lambda (_str55064_ _char55065_) + (let ((_start55067_ '#f)) (declare (not safe)) - (string-rindex__% _str54802_ _char54803_ _start54805_)))) + (string-rindex__% _str55064_ _char55065_ _start55067_)))) (define string-rindex - (lambda _g57115_ - (let ((_g57114_ (let () (declare (not safe)) (##length _g57115_)))) - (cond ((let () (declare (not safe)) (##fx= _g57114_ 2)) - (apply (lambda (_str54802_ _char54803_) + (lambda _g57377_ + (let ((_g57376_ (let () (declare (not safe)) (##length _g57377_)))) + (cond ((let () (declare (not safe)) (##fx= _g57376_ 2)) + (apply (lambda (_str55064_ _char55065_) (let () (declare (not safe)) - (string-rindex__0 _str54802_ _char54803_))) - _g57115_)) - ((let () (declare (not safe)) (##fx= _g57114_ 3)) - (apply (lambda (_str54807_ _char54808_ _start54809_) + (string-rindex__0 _str55064_ _char55065_))) + _g57377_)) + ((let () (declare (not safe)) (##fx= _g57376_ 3)) + (apply (lambda (_str55069_ _char55070_ _start55071_) (let () (declare (not safe)) (string-rindex__% - _str54807_ - _char54808_ - _start54809_))) - _g57115_)) + _str55069_ + _char55070_ + _start55071_))) + _g57377_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g57115_)))))) + _g57377_)))))) (define string-split - (lambda (_str54767_ _char54768_) - (let ((_len54770_ (string-length _str54767_))) - (let _lp54772_ ((_start54774_ '0) (_r54775_ '())) - (let ((_$e54777_ + (lambda (_str55029_ _char55030_) + (let ((_len55032_ (string-length _str55029_))) + (let _lp55034_ ((_start55036_ '0) (_r55037_ '())) + (let ((_$e55039_ (let () (declare (not safe)) - (string-index__% _str54767_ _char54768_ _start54774_)))) - (if _$e54777_ - ((lambda (_end54780_) - (let ((__tmp57119 + (string-index__% _str55029_ _char55030_ _start55036_)))) + (if _$e55039_ + ((lambda (_end55042_) + (let ((__tmp57381 (let () (declare (not safe)) - (##fx+ _end54780_ '1))) - (__tmp57117 - (let ((__tmp57118 + (##fx+ _end55042_ '1))) + (__tmp57379 + (let ((__tmp57380 (let () (declare (not safe)) (##substring - _str54767_ - _start54774_ - _end54780_)))) + _str55029_ + _start55036_ + _end55042_)))) (declare (not safe)) - (cons __tmp57118 _r54775_)))) + (cons __tmp57380 _r55037_)))) (declare (not safe)) - (_lp54772_ __tmp57119 __tmp57117))) - _$e54777_) + (_lp55034_ __tmp57381 __tmp57379))) + _$e55039_) (if (let () (declare (not safe)) - (##fx< _start54774_ _len54770_)) - (let ((__tmp57116 + (##fx< _start55036_ _len55032_)) + (let ((__tmp57378 (list (let () (declare (not safe)) (##substring - _str54767_ - _start54774_ - _len54770_))))) + _str55029_ + _start55036_ + _len55032_))))) (declare (not safe)) - (foldl1 cons __tmp57116 _r54775_)) - (reverse _r54775_)))))))) + (foldl1 cons __tmp57378 _r55037_)) + (reverse _r55037_)))))))) (define string-join - (lambda (_strs54672_ _join54673_) - (letrec ((_join-length54675_ - (lambda (_strs54726_ _jlen54727_) - (let _lp54729_ ((_rest54731_ _strs54726_) (_len54732_ '0)) - (let* ((_rest5473354741_ _rest54731_) - (_else5473554749_ (lambda () '0)) - (_K5473754755_ - (lambda (_rest54752_ _hd54753_) + (lambda (_strs54934_ _join54935_) + (letrec ((_join-length54937_ + (lambda (_strs54988_ _jlen54989_) + (let _lp54991_ ((_rest54993_ _strs54988_) (_len54994_ '0)) + (let* ((_rest5499555003_ _rest54993_) + (_else5499755011_ (lambda () '0)) + (_K5499955017_ + (lambda (_rest55014_ _hd55015_) (if (let () (declare (not safe)) - (string? _hd54753_)) + (string? _hd55015_)) (if (let () (declare (not safe)) - (pair? _rest54752_)) - (let ((__tmp57121 - (let ((__tmp57122 + (pair? _rest55014_)) + (let ((__tmp57383 + (let ((__tmp57384 (let () (declare (not safe)) (##string-length - _hd54753_)))) + _hd55015_)))) (declare (not safe)) - (##fx+ __tmp57122 - _jlen54727_ - _len54732_)))) + (##fx+ __tmp57384 + _jlen54989_ + _len54994_)))) (declare (not safe)) - (_lp54729_ _rest54752_ __tmp57121)) - (let ((__tmp57120 + (_lp54991_ _rest55014_ __tmp57383)) + (let ((__tmp57382 (let () (declare (not safe)) - (##string-length _hd54753_)))) + (##string-length _hd55015_)))) (declare (not safe)) - (##fx+ __tmp57120 _len54732_))) + (##fx+ __tmp57382 _len54994_))) (let () (declare (not safe)) - (error '"expected string" _hd54753_)))))) + (error '"expected string" _hd55015_)))))) (if (let () (declare (not safe)) - (##pair? _rest5473354741_)) - (let ((_hd5473854758_ + (##pair? _rest5499555003_)) + (let ((_hd5500055020_ (let () (declare (not safe)) - (##car _rest5473354741_))) - (_tl5473954760_ + (##car _rest5499555003_))) + (_tl5500155022_ (let () (declare (not safe)) - (##cdr _rest5473354741_)))) - (let* ((_hd54763_ _hd5473854758_) - (_rest54765_ _tl5473954760_)) + (##cdr _rest5499555003_)))) + (let* ((_hd55025_ _hd5500055020_) + (_rest55027_ _tl5500155022_)) (declare (not safe)) - (_K5473754755_ _rest54765_ _hd54763_))) + (_K5499955017_ _rest55027_ _hd55025_))) (let () (declare (not safe)) - (_else5473554749_)))))))) - (let* ((_join54677_ - (if (let () (declare (not safe)) (char? _join54673_)) - (string _join54673_) - (if (let () (declare (not safe)) (string? _join54673_)) - _join54673_ + (_else5499755011_)))))))) + (let* ((_join54939_ + (if (let () (declare (not safe)) (char? _join54935_)) + (string _join54935_) + (if (let () (declare (not safe)) (string? _join54935_)) + _join54935_ (let () (declare (not safe)) - (error '"expected string or char" _join54673_))))) - (_jlen54679_ - (let () (declare (not safe)) (##string-length _join54677_))) - (_olen54681_ + (error '"expected string or char" _join54935_))))) + (_jlen54941_ + (let () (declare (not safe)) (##string-length _join54939_))) + (_olen54943_ (let () (declare (not safe)) - (_join-length54675_ _strs54672_ _jlen54679_))) - (_ostr54683_ (make-string _olen54681_))) - (let _lp54686_ ((_rest54688_ _strs54672_) (_k54689_ '0)) - (let* ((_rest5469054698_ _rest54688_) - (_else5469254706_ (lambda () '"")) - (_K5469454714_ - (lambda (_rest54709_ _hd54710_) - (let ((_hdlen54712_ + (_join-length54937_ _strs54934_ _jlen54941_))) + (_ostr54945_ (make-string _olen54943_))) + (let _lp54948_ ((_rest54950_ _strs54934_) (_k54951_ '0)) + (let* ((_rest5495254960_ _rest54950_) + (_else5495454968_ (lambda () '"")) + (_K5495654976_ + (lambda (_rest54971_ _hd54972_) + (let ((_hdlen54974_ (let () (declare (not safe)) - (##string-length _hd54710_)))) - (if (let () (declare (not safe)) (pair? _rest54709_)) + (##string-length _hd54972_)))) + (if (let () (declare (not safe)) (pair? _rest54971_)) (begin (let () (declare (not safe)) (##substring-move! - _hd54710_ + _hd54972_ '0 - _hdlen54712_ - _ostr54683_ - _k54689_)) - (let ((__tmp57123 + _hdlen54974_ + _ostr54945_ + _k54951_)) + (let ((__tmp57385 (let () (declare (not safe)) - (##fx+ _k54689_ _hdlen54712_)))) + (##fx+ _k54951_ _hdlen54974_)))) (declare (not safe)) (##substring-move! - _join54677_ + _join54939_ '0 - _jlen54679_ - _ostr54683_ - __tmp57123)) - (let ((__tmp57124 + _jlen54941_ + _ostr54945_ + __tmp57385)) + (let ((__tmp57386 (let () (declare (not safe)) - (##fx+ _k54689_ - _hdlen54712_ - _jlen54679_)))) + (##fx+ _k54951_ + _hdlen54974_ + _jlen54941_)))) (declare (not safe)) - (_lp54686_ _rest54709_ __tmp57124))) + (_lp54948_ _rest54971_ __tmp57386))) (begin (let () (declare (not safe)) (##substring-move! - _hd54710_ + _hd54972_ '0 - _hdlen54712_ - _ostr54683_ - _k54689_)) - _ostr54683_)))))) - (if (let () (declare (not safe)) (##pair? _rest5469054698_)) - (let ((_hd5469554717_ + _hdlen54974_ + _ostr54945_ + _k54951_)) + _ostr54945_)))))) + (if (let () (declare (not safe)) (##pair? _rest5495254960_)) + (let ((_hd5495754979_ (let () (declare (not safe)) - (##car _rest5469054698_))) - (_tl5469654719_ + (##car _rest5495254960_))) + (_tl5495854981_ (let () (declare (not safe)) - (##cdr _rest5469054698_)))) - (let* ((_hd54722_ _hd5469554717_) - (_rest54724_ _tl5469654719_)) + (##cdr _rest5495254960_)))) + (let* ((_hd54984_ _hd5495754979_) + (_rest54986_ _tl5495854981_)) (declare (not safe)) - (_K5469454714_ _rest54724_ _hd54722_))) - (let () (declare (not safe)) (_else5469254706_))))))))) + (_K5495654976_ _rest54986_ _hd54984_))) + (let () (declare (not safe)) (_else5495454968_))))))))) (define read-u8vector - (lambda (_bytes54669_ _port54670_) + (lambda (_bytes54931_ _port54932_) (read-subu8vector - _bytes54669_ + _bytes54931_ '0 - (u8vector-length _bytes54669_) - _port54670_))) + (u8vector-length _bytes54931_) + _port54932_))) (define write-u8vector - (lambda (_bytes54666_ _port54667_) + (lambda (_bytes54928_ _port54929_) (write-subu8vector - _bytes54666_ + _bytes54928_ '0 - (u8vector-length _bytes54666_) - _port54667_))) + (u8vector-length _bytes54928_) + _port54929_))) (define read-string - (lambda (_str54663_ _port54664_) - (read-substring _str54663_ '0 (string-length _str54663_) _port54664_))) + (lambda (_str54925_ _port54926_) + (read-substring _str54925_ '0 (string-length _str54925_) _port54926_))) (define write-string - (lambda (_str54660_ _port54661_) + (lambda (_str54922_ _port54923_) (write-substring - _str54660_ + _str54922_ '0 - (string-length _str54660_) - _port54661_))) + (string-length _str54922_) + _port54923_))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_tag54629_ - _dbg-exprs54630_ - _dbg-thunks54631_ - _expr54632_ - _thunk54633_) - (letrec ((_o54635_ (current-output-port)) - (_e54636_ (current-error-port)) - (_p54637_ (DBG-printer)) - (_f54638_ - (lambda () (force-output _o54635_) (force-output _e54636_))) - (_d54639_ (lambda (_x54646_) (display _x54646_ _e54636_))) - (_w54640_ (lambda (_x54648_) (_p54637_ _x54648_ _e54636_))) - (_n54641_ (lambda () (newline _e54636_))) - (_v54642_ - (lambda (_l54651_) + (lambda (_tag54891_ + _dbg-exprs54892_ + _dbg-thunks54893_ + _expr54894_ + _thunk54895_) + (letrec ((_o54897_ (current-output-port)) + (_e54898_ (current-error-port)) + (_p54899_ (DBG-printer)) + (_f54900_ + (lambda () (force-output _o54897_) (force-output _e54898_))) + (_d54901_ (lambda (_x54908_) (display _x54908_ _e54898_))) + (_w54902_ (lambda (_x54910_) (_p54899_ _x54910_ _e54898_))) + (_n54903_ (lambda () (newline _e54898_))) + (_v54904_ + (lambda (_l54913_) (for-each - (lambda (_x54653_) - (let () (declare (not safe)) (_d54639_ '" ")) - (let () (declare (not safe)) (_w54640_ _x54653_))) - _l54651_) - (let () (declare (not safe)) (_n54641_)))) - (_x54643_ - (lambda (_expr54655_ _thunk54656_) - (let () (declare (not safe)) (_f54638_)) - (let () (declare (not safe)) (_d54639_ '" ")) - (let () (declare (not safe)) (_w54640_ _expr54655_)) - (let () (declare (not safe)) (_d54639_ '" =>")) + (lambda (_x54915_) + (let () (declare (not safe)) (_d54901_ '" ")) + (let () (declare (not safe)) (_w54902_ _x54915_))) + _l54913_) + (let () (declare (not safe)) (_n54903_)))) + (_x54905_ + (lambda (_expr54917_ _thunk54918_) + (let () (declare (not safe)) (_f54900_)) + (let () (declare (not safe)) (_d54901_ '" ")) + (let () (declare (not safe)) (_w54902_ _expr54917_)) + (let () (declare (not safe)) (_d54901_ '" =>")) (call-with-values - _thunk54656_ - (lambda _x54658_ - (let () (declare (not safe)) (_v54642_ _x54658_)) - (let () (declare (not safe)) (_f54638_)) - (apply values _x54658_)))))) - (if _tag54629_ + _thunk54918_ + (lambda _x54920_ + (let () (declare (not safe)) (_v54904_ _x54920_)) + (let () (declare (not safe)) (_f54900_)) + (apply values _x54920_)))))) + (if _tag54891_ (begin - (if (let () (declare (not safe)) (eq? _tag54629_ '#!void)) + (if (let () (declare (not safe)) (eq? _tag54891_ '#!void)) '#!void (begin - (let () (declare (not safe)) (_f54638_)) - (let () (declare (not safe)) (_d54639_ _tag54629_)) - (let () (declare (not safe)) (_n54641_)))) - (for-each _x54643_ _dbg-exprs54630_ _dbg-thunks54631_) - (if _thunk54633_ + (let () (declare (not safe)) (_f54900_)) + (let () (declare (not safe)) (_d54901_ _tag54891_)) + (let () (declare (not safe)) (_n54903_)))) + (for-each _x54905_ _dbg-exprs54892_ _dbg-thunks54893_) + (if _thunk54895_ (let () (declare (not safe)) - (_x54643_ _expr54632_ _thunk54633_)) + (_x54905_ _expr54894_ _thunk54895_)) '#!void)) - (if _thunk54633_ (_thunk54633_) '#!void))))))) + (if _thunk54895_ (_thunk54895_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util__1.scm b/src/bootstrap/gerbil/runtime/util__1.scm index e30d1d05..5e780617 100644 --- a/src/bootstrap/gerbil/runtime/util__1.scm +++ b/src/bootstrap/gerbil/runtime/util__1.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g57455_| + (define |[1]#_g57717_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g57456_| + (define |[1]#_g57718_| (##structure gx#syntax-quote::t 'quote @@ -16,2557 +16,2557 @@ '())) (begin (define |[:0:]#__lock-inline!| - (lambda (_$stx53043_) - (let* ((_g5304753061_ - (lambda (_g5304853057_) + (lambda (_$stx53305_) + (let* ((_g5330953323_ + (lambda (_g5331053319_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5304853057_))) - (_g5304653103_ - (lambda (_g5304853065_) - (if (gx#stx-pair? _g5304853065_) - (let ((_e5305253068_ (gx#syntax-e _g5304853065_))) - (let ((_hd5305153072_ + _g5331053319_))) + (_g5330853365_ + (lambda (_g5331053327_) + (if (gx#stx-pair? _g5331053327_) + (let ((_e5331453330_ (gx#syntax-e _g5331053327_))) + (let ((_hd5331353334_ (let () (declare (not safe)) - (##car _e5305253068_))) - (_tl5305053075_ + (##car _e5331453330_))) + (_tl5331253337_ (let () (declare (not safe)) - (##cdr _e5305253068_)))) - (if (gx#stx-pair? _tl5305053075_) - (let ((_e5305553078_ - (gx#syntax-e _tl5305053075_))) - (let ((_hd5305453082_ + (##cdr _e5331453330_)))) + (if (gx#stx-pair? _tl5331253337_) + (let ((_e5331753340_ + (gx#syntax-e _tl5331253337_))) + (let ((_hd5331653344_ (let () (declare (not safe)) - (##car _e5305553078_))) - (_tl5305353085_ + (##car _e5331753340_))) + (_tl5331553347_ (let () (declare (not safe)) - (##cdr _e5305553078_)))) - (if (gx#stx-null? _tl5305353085_) - ((lambda (_L53088_) - (let ((__tmp57160 + (##cdr _e5331753340_)))) + (if (gx#stx-null? _tl5331553347_) + ((lambda (_L53350_) + (let ((__tmp57422 (gx#datum->syntax '#f 'let)) - (__tmp57125 - (let ((__tmp57126 - (let ((__tmp57153 - (let ((__tmp57159 + (__tmp57387 + (let ((__tmp57388 + (let ((__tmp57415 + (let ((__tmp57421 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'declare)) - (__tmp57154 - (let ((__tmp57155 - (let ((__tmp57158 + (__tmp57416 + (let ((__tmp57417 + (let ((__tmp57420 (gx#datum->syntax '#f 'not)) - (__tmp57156 - (let ((__tmp57157 + (__tmp57418 + (let ((__tmp57419 (gx#datum->syntax '#f 'interrupts-enabled))) (declare (not safe)) - (cons __tmp57157 '())))) + (cons __tmp57419 '())))) (declare (not safe)) - (cons __tmp57158 __tmp57156)))) + (cons __tmp57420 __tmp57418)))) (declare (not safe)) - (cons __tmp57155 '())))) + (cons __tmp57417 '())))) (declare (not safe)) - (cons __tmp57159 __tmp57154))) - (__tmp57127 - (let ((__tmp57128 - (let ((__tmp57152 (gx#datum->syntax '#f 'let)) - (__tmp57129 - (let ((__tmp57151 + (cons __tmp57421 __tmp57416))) + (__tmp57389 + (let ((__tmp57390 + (let ((__tmp57414 (gx#datum->syntax '#f 'let)) + (__tmp57391 + (let ((__tmp57413 (gx#datum->syntax '#f 'again)) - (__tmp57130 - (let ((__tmp57131 - (let ((__tmp57132 - (let ((__tmp57150 + (__tmp57392 + (let ((__tmp57393 + (let ((__tmp57394 + (let ((__tmp57412 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'unless)) - (__tmp57133 - (let ((__tmp57140 - (let ((__tmp57149 (gx#datum->syntax '#f '##fx=)) - (__tmp57141 - (let ((__tmp57143 - (let ((__tmp57148 + (__tmp57395 + (let ((__tmp57402 + (let ((__tmp57411 (gx#datum->syntax '#f '##fx=)) + (__tmp57403 + (let ((__tmp57405 + (let ((__tmp57410 (gx#datum->syntax '#f '##vector-cas!)) - (__tmp57144 - (let ((__tmp57145 - (let ((__tmp57146 + (__tmp57406 + (let ((__tmp57407 + (let ((__tmp57408 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp57147 + (let ((__tmp57409 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons '1 __tmp57147)))) + (cons '1 __tmp57409)))) (declare (not safe)) - (cons '0 __tmp57146)))) + (cons '0 __tmp57408)))) (declare (not safe)) - (cons _L53088_ __tmp57145)))) + (cons _L53350_ __tmp57407)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57148 __tmp57144))) - (__tmp57142 + (cons __tmp57410 __tmp57406))) + (__tmp57404 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp57143 __tmp57142)))) + (cons __tmp57405 __tmp57404)))) (declare (not safe)) - (cons __tmp57149 __tmp57141))) - (__tmp57134 - (let ((__tmp57138 - (let ((__tmp57139 + (cons __tmp57411 __tmp57403))) + (__tmp57396 + (let ((__tmp57400 + (let ((__tmp57401 (gx#datum->syntax '#f '##thread-yield!))) (declare (not safe)) - (cons __tmp57139 '()))) - (__tmp57135 - (let ((__tmp57136 - (let ((__tmp57137 + (cons __tmp57401 '()))) + (__tmp57397 + (let ((__tmp57398 + (let ((__tmp57399 (gx#datum->syntax '#f 'again))) (declare (not safe)) - (cons __tmp57137 '())))) + (cons __tmp57399 '())))) (declare (not safe)) - (cons __tmp57136 '())))) + (cons __tmp57398 '())))) (declare (not safe)) - (cons __tmp57138 __tmp57135)))) + (cons __tmp57400 __tmp57397)))) (declare (not safe)) - (cons __tmp57140 __tmp57134)))) + (cons __tmp57402 __tmp57396)))) (declare (not safe)) - (cons __tmp57150 __tmp57133)))) + (cons __tmp57412 __tmp57395)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57132 '())))) + (cons __tmp57394 '())))) (declare (not safe)) - (cons '() __tmp57131)))) + (cons '() __tmp57393)))) (declare (not safe)) - (cons __tmp57151 __tmp57130)))) + (cons __tmp57413 __tmp57392)))) (declare (not safe)) - (cons __tmp57152 __tmp57129)))) + (cons __tmp57414 __tmp57391)))) (declare (not safe)) - (cons __tmp57128 '())))) + (cons __tmp57390 '())))) (declare (not safe)) - (cons __tmp57153 __tmp57127)))) + (cons __tmp57415 __tmp57389)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp57126)))) + (cons '() __tmp57388)))) (declare (not safe)) - (cons __tmp57160 __tmp57125))) - _hd5305453082_) - (_g5304753061_ _g5304853065_)))) - (_g5304753061_ _g5304853065_)))) - (_g5304753061_ _g5304853065_))))) - (_g5304653103_ _$stx53043_)))) + (cons __tmp57422 __tmp57387))) + _hd5331653344_) + (_g5330953323_ _g5331053327_)))) + (_g5330953323_ _g5331053327_)))) + (_g5330953323_ _g5331053327_))))) + (_g5330853365_ _$stx53305_)))) (define |[:0:]#__unlock-inline!| - (lambda (_$stx53107_) - (let* ((_g5311153125_ - (lambda (_g5311253121_) + (lambda (_$stx53369_) + (let* ((_g5337353387_ + (lambda (_g5337453383_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5311253121_))) - (_g5311053166_ - (lambda (_g5311253129_) - (if (gx#stx-pair? _g5311253129_) - (let ((_e5311653132_ (gx#syntax-e _g5311253129_))) - (let ((_hd5311553136_ + _g5337453383_))) + (_g5337253428_ + (lambda (_g5337453391_) + (if (gx#stx-pair? _g5337453391_) + (let ((_e5337853394_ (gx#syntax-e _g5337453391_))) + (let ((_hd5337753398_ (let () (declare (not safe)) - (##car _e5311653132_))) - (_tl5311453139_ + (##car _e5337853394_))) + (_tl5337653401_ (let () (declare (not safe)) - (##cdr _e5311653132_)))) - (if (gx#stx-pair? _tl5311453139_) - (let ((_e5311953142_ - (gx#syntax-e _tl5311453139_))) - (let ((_hd5311853146_ + (##cdr _e5337853394_)))) + (if (gx#stx-pair? _tl5337653401_) + (let ((_e5338153404_ + (gx#syntax-e _tl5337653401_))) + (let ((_hd5338053408_ (let () (declare (not safe)) - (##car _e5311953142_))) - (_tl5311753149_ + (##car _e5338153404_))) + (_tl5337953411_ (let () (declare (not safe)) - (##cdr _e5311953142_)))) - (if (gx#stx-null? _tl5311753149_) - ((lambda (_L53152_) - (let ((__tmp57165 + (##cdr _e5338153404_)))) + (if (gx#stx-null? _tl5337953411_) + ((lambda (_L53414_) + (let ((__tmp57427 (gx#datum->syntax '#f '##vector-cas!)) - (__tmp57161 - (let ((__tmp57162 - (let ((__tmp57163 - (let ((__tmp57164 + (__tmp57423 + (let ((__tmp57424 + (let ((__tmp57425 + (let ((__tmp57426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons '0 __tmp57164)))) + (cons '0 __tmp57426)))) (declare (not safe)) - (cons '0 __tmp57163)))) + (cons '0 __tmp57425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L53152_ __tmp57162)))) + (cons _L53414_ __tmp57424)))) (declare (not safe)) - (cons __tmp57165 __tmp57161))) - _hd5311853146_) - (_g5311153125_ _g5311253129_)))) - (_g5311153125_ _g5311253129_)))) - (_g5311153125_ _g5311253129_))))) - (_g5311053166_ _$stx53107_)))) + (cons __tmp57427 __tmp57423))) + _hd5338053408_) + (_g5337353387_ _g5337453391_)))) + (_g5337353387_ _g5337453391_)))) + (_g5337353387_ _g5337453391_))))) + (_g5337253428_ _$stx53369_)))) (define |[:0:]#__make-inline-lock| - (lambda (_$stx53170_) - (let* ((_g5317453184_ - (lambda (_g5317553180_) + (lambda (_$stx53432_) + (let* ((_g5343653446_ + (lambda (_g5343753442_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5317553180_))) - (_g5317353205_ - (lambda (_g5317553188_) - (if (gx#stx-pair? _g5317553188_) - (let ((_e5317853191_ (gx#syntax-e _g5317553188_))) - (let ((_hd5317753195_ + _g5343753442_))) + (_g5343553467_ + (lambda (_g5343753450_) + (if (gx#stx-pair? _g5343753450_) + (let ((_e5344053453_ (gx#syntax-e _g5343753450_))) + (let ((_hd5343953457_ (let () (declare (not safe)) - (##car _e5317853191_))) - (_tl5317653198_ + (##car _e5344053453_))) + (_tl5343853460_ (let () (declare (not safe)) - (##cdr _e5317853191_)))) - (if (gx#stx-null? _tl5317653198_) + (##cdr _e5344053453_)))) + (if (gx#stx-null? _tl5343853460_) ((lambda () - (let ((__tmp57167 + (let ((__tmp57429 (gx#datum->syntax '#f 'vector)) - (__tmp57166 + (__tmp57428 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp57167 __tmp57166)))) - (_g5317453184_ _g5317553188_)))) - (_g5317453184_ _g5317553188_))))) - (_g5317353205_ _$stx53170_)))) + (cons __tmp57429 __tmp57428)))) + (_g5343653446_ _g5343753450_)))) + (_g5343653446_ _g5343753450_))))) + (_g5343553467_ _$stx53432_)))) (define |[:0:]#defassget| - (lambda (_$stx53209_) - (let* ((_g5321353231_ - (lambda (_g5321453227_) + (lambda (_$stx53471_) + (let* ((_g5347553493_ + (lambda (_g5347653489_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5321453227_))) - (_g5321253286_ - (lambda (_g5321453235_) - (if (gx#stx-pair? _g5321453235_) - (let ((_e5321953238_ (gx#syntax-e _g5321453235_))) - (let ((_hd5321853242_ + _g5347653489_))) + (_g5347453548_ + (lambda (_g5347653497_) + (if (gx#stx-pair? _g5347653497_) + (let ((_e5348153500_ (gx#syntax-e _g5347653497_))) + (let ((_hd5348053504_ (let () (declare (not safe)) - (##car _e5321953238_))) - (_tl5321753245_ + (##car _e5348153500_))) + (_tl5347953507_ (let () (declare (not safe)) - (##cdr _e5321953238_)))) - (if (gx#stx-pair? _tl5321753245_) - (let ((_e5322253248_ - (gx#syntax-e _tl5321753245_))) - (let ((_hd5322153252_ + (##cdr _e5348153500_)))) + (if (gx#stx-pair? _tl5347953507_) + (let ((_e5348453510_ + (gx#syntax-e _tl5347953507_))) + (let ((_hd5348353514_ (let () (declare (not safe)) - (##car _e5322253248_))) - (_tl5322053255_ + (##car _e5348453510_))) + (_tl5348253517_ (let () (declare (not safe)) - (##cdr _e5322253248_)))) - (if (gx#stx-pair? _tl5322053255_) - (let ((_e5322553258_ - (gx#syntax-e _tl5322053255_))) - (let ((_hd5322453262_ + (##cdr _e5348453510_)))) + (if (gx#stx-pair? _tl5348253517_) + (let ((_e5348753520_ + (gx#syntax-e _tl5348253517_))) + (let ((_hd5348653524_ (let () (declare (not safe)) - (##car _e5322553258_))) - (_tl5322353265_ + (##car _e5348753520_))) + (_tl5348553527_ (let () (declare (not safe)) - (##cdr _e5322553258_)))) - (if (gx#stx-null? _tl5322353265_) - ((lambda (_L53268_ _L53270_) - (let ((__tmp57216 + (##cdr _e5348753520_)))) + (if (gx#stx-null? _tl5348553527_) + ((lambda (_L53530_ _L53532_) + (let ((__tmp57478 (gx#datum->syntax '#f 'def)) - (__tmp57168 - (let ((__tmp57207 - (let ((__tmp57208 + (__tmp57430 + (let ((__tmp57469 + (let ((__tmp57470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp57215 (gx#datum->syntax '#f 'key)) - (__tmp57209 - (let ((__tmp57214 + (let ((__tmp57477 (gx#datum->syntax '#f 'key)) + (__tmp57471 + (let ((__tmp57476 (gx#datum->syntax '#f 'lst)) - (__tmp57210 - (let ((__tmp57211 - (let ((__tmp57213 + (__tmp57472 + (let ((__tmp57473 + (let ((__tmp57475 (gx#datum->syntax '#f 'default)) - (__tmp57212 + (__tmp57474 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp57213 - __tmp57212)))) + (cons __tmp57475 + __tmp57474)))) (declare (not safe)) - (cons __tmp57211 '())))) + (cons __tmp57473 '())))) (declare (not safe)) - (cons __tmp57214 __tmp57210)))) + (cons __tmp57476 __tmp57472)))) (declare (not safe)) - (cons __tmp57215 __tmp57209)))) + (cons __tmp57477 __tmp57471)))) (declare (not safe)) - (cons _L53270_ __tmp57208))) - (__tmp57169 - (let ((__tmp57170 - (let ((__tmp57206 (gx#datum->syntax '#f 'cond)) - (__tmp57171 - (let ((__tmp57188 - (let ((__tmp57193 - (let ((__tmp57205 + (cons _L53532_ __tmp57470))) + (__tmp57431 + (let ((__tmp57432 + (let ((__tmp57468 (gx#datum->syntax '#f 'cond)) + (__tmp57433 + (let ((__tmp57450 + (let ((__tmp57455 + (let ((__tmp57467 (gx#datum->syntax '#f 'and)) - (__tmp57194 - (let ((__tmp57201 + (__tmp57456 + (let ((__tmp57463 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp57204 (gx#datum->syntax '#f 'pair?)) - (__tmp57202 - (let ((__tmp57203 (gx#datum->syntax '#f 'lst))) + (let ((__tmp57466 (gx#datum->syntax '#f 'pair?)) + (__tmp57464 + (let ((__tmp57465 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp57203 '())))) + (cons __tmp57465 '())))) (declare (not safe)) - (cons __tmp57204 __tmp57202))) - (__tmp57195 - (let ((__tmp57196 - (let ((__tmp57197 - (let ((__tmp57200 + (cons __tmp57466 __tmp57464))) + (__tmp57457 + (let ((__tmp57458 + (let ((__tmp57459 + (let ((__tmp57462 (gx#datum->syntax '#f 'key)) - (__tmp57198 - (let ((__tmp57199 + (__tmp57460 + (let ((__tmp57461 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp57199 '())))) + (cons __tmp57461 '())))) (declare (not safe)) - (cons __tmp57200 __tmp57198)))) + (cons __tmp57462 __tmp57460)))) (declare (not safe)) - (cons _L53268_ __tmp57197)))) + (cons _L53530_ __tmp57459)))) (declare (not safe)) - (cons __tmp57196 '())))) + (cons __tmp57458 '())))) (declare (not safe)) - (cons __tmp57201 __tmp57195)))) + (cons __tmp57463 __tmp57457)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57205 - __tmp57194))) - (__tmp57189 - (let ((__tmp57192 + (cons __tmp57467 + __tmp57456))) + (__tmp57451 + (let ((__tmp57454 (gx#datum->syntax '#f '=>)) - (__tmp57190 - (let ((__tmp57191 + (__tmp57452 + (let ((__tmp57453 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cdr))) (declare (not safe)) - (cons __tmp57191 '())))) + (cons __tmp57453 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57192 - __tmp57190)))) + (cons __tmp57454 + __tmp57452)))) (declare (not safe)) - (cons __tmp57193 __tmp57189))) - (__tmp57172 - (let ((__tmp57178 - (let ((__tmp57184 - (let ((__tmp57187 + (cons __tmp57455 __tmp57451))) + (__tmp57434 + (let ((__tmp57440 + (let ((__tmp57446 + (let ((__tmp57449 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp57185 - (let ((__tmp57186 (gx#datum->syntax '#f 'default))) + (__tmp57447 + (let ((__tmp57448 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp57186 '())))) + (cons __tmp57448 '())))) (declare (not safe)) - (cons __tmp57187 __tmp57185))) - (__tmp57179 - (let ((__tmp57180 - (let ((__tmp57183 (gx#datum->syntax '#f 'default)) - (__tmp57181 - (let ((__tmp57182 (gx#datum->syntax '#f 'key))) + (cons __tmp57449 __tmp57447))) + (__tmp57441 + (let ((__tmp57442 + (let ((__tmp57445 (gx#datum->syntax '#f 'default)) + (__tmp57443 + (let ((__tmp57444 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp57182 '())))) + (cons __tmp57444 '())))) (declare (not safe)) - (cons __tmp57183 __tmp57181)))) + (cons __tmp57445 __tmp57443)))) (declare (not safe)) - (cons __tmp57180 '())))) + (cons __tmp57442 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57184 - __tmp57179))) - (__tmp57173 - (let ((__tmp57174 - (let ((__tmp57177 + (cons __tmp57446 + __tmp57441))) + (__tmp57435 + (let ((__tmp57436 + (let ((__tmp57439 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp57175 - (let ((__tmp57176 (gx#datum->syntax '#f 'default))) + (__tmp57437 + (let ((__tmp57438 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp57176 '())))) + (cons __tmp57438 '())))) (declare (not safe)) - (cons __tmp57177 __tmp57175)))) + (cons __tmp57439 __tmp57437)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57174 '())))) + (cons __tmp57436 '())))) (declare (not safe)) - (cons __tmp57178 __tmp57173)))) + (cons __tmp57440 __tmp57435)))) (declare (not safe)) - (cons __tmp57188 __tmp57172)))) + (cons __tmp57450 __tmp57434)))) (declare (not safe)) - (cons __tmp57206 __tmp57171)))) + (cons __tmp57468 __tmp57433)))) (declare (not safe)) - (cons __tmp57170 '())))) + (cons __tmp57432 '())))) (declare (not safe)) - (cons __tmp57207 __tmp57169)))) + (cons __tmp57469 __tmp57431)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57216 - __tmp57168))) - _hd5322453262_ - _hd5322153252_) - (_g5321353231_ _g5321453235_)))) - (_g5321353231_ _g5321453235_)))) - (_g5321353231_ _g5321453235_)))) - (_g5321353231_ _g5321453235_))))) - (_g5321253286_ _$stx53209_)))) + (cons __tmp57478 + __tmp57430))) + _hd5348653524_ + _hd5348353514_) + (_g5347553493_ _g5347653497_)))) + (_g5347553493_ _g5347653497_)))) + (_g5347553493_ _g5347653497_)))) + (_g5347553493_ _g5347653497_))))) + (_g5347453548_ _$stx53471_)))) (define |[:0:]#defpget| - (lambda (_$stx53290_) - (let* ((_g5329453312_ - (lambda (_g5329553308_) + (lambda (_$stx53552_) + (let* ((_g5355653574_ + (lambda (_g5355753570_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5329553308_))) - (_g5329353367_ - (lambda (_g5329553316_) - (if (gx#stx-pair? _g5329553316_) - (let ((_e5330053319_ (gx#syntax-e _g5329553316_))) - (let ((_hd5329953323_ + _g5355753570_))) + (_g5355553629_ + (lambda (_g5355753578_) + (if (gx#stx-pair? _g5355753578_) + (let ((_e5356253581_ (gx#syntax-e _g5355753578_))) + (let ((_hd5356153585_ (let () (declare (not safe)) - (##car _e5330053319_))) - (_tl5329853326_ + (##car _e5356253581_))) + (_tl5356053588_ (let () (declare (not safe)) - (##cdr _e5330053319_)))) - (if (gx#stx-pair? _tl5329853326_) - (let ((_e5330353329_ - (gx#syntax-e _tl5329853326_))) - (let ((_hd5330253333_ + (##cdr _e5356253581_)))) + (if (gx#stx-pair? _tl5356053588_) + (let ((_e5356553591_ + (gx#syntax-e _tl5356053588_))) + (let ((_hd5356453595_ (let () (declare (not safe)) - (##car _e5330353329_))) - (_tl5330153336_ + (##car _e5356553591_))) + (_tl5356353598_ (let () (declare (not safe)) - (##cdr _e5330353329_)))) - (if (gx#stx-pair? _tl5330153336_) - (let ((_e5330653339_ - (gx#syntax-e _tl5330153336_))) - (let ((_hd5330553343_ + (##cdr _e5356553591_)))) + (if (gx#stx-pair? _tl5356353598_) + (let ((_e5356853601_ + (gx#syntax-e _tl5356353598_))) + (let ((_hd5356753605_ (let () (declare (not safe)) - (##car _e5330653339_))) - (_tl5330453346_ + (##car _e5356853601_))) + (_tl5356653608_ (let () (declare (not safe)) - (##cdr _e5330653339_)))) - (if (gx#stx-null? _tl5330453346_) - ((lambda (_L53349_ _L53351_) - (let ((__tmp57286 + (##cdr _e5356853601_)))) + (if (gx#stx-null? _tl5356653608_) + ((lambda (_L53611_ _L53613_) + (let ((__tmp57548 (gx#datum->syntax '#f 'def)) - (__tmp57217 - (let ((__tmp57277 - (let ((__tmp57278 + (__tmp57479 + (let ((__tmp57539 + (let ((__tmp57540 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp57285 (gx#datum->syntax '#f 'key)) - (__tmp57279 - (let ((__tmp57284 + (let ((__tmp57547 (gx#datum->syntax '#f 'key)) + (__tmp57541 + (let ((__tmp57546 (gx#datum->syntax '#f 'lst)) - (__tmp57280 - (let ((__tmp57281 - (let ((__tmp57283 + (__tmp57542 + (let ((__tmp57543 + (let ((__tmp57545 (gx#datum->syntax '#f 'default)) - (__tmp57282 + (__tmp57544 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp57283 - __tmp57282)))) + (cons __tmp57545 + __tmp57544)))) (declare (not safe)) - (cons __tmp57281 '())))) + (cons __tmp57543 '())))) (declare (not safe)) - (cons __tmp57284 __tmp57280)))) + (cons __tmp57546 __tmp57542)))) (declare (not safe)) - (cons __tmp57285 __tmp57279)))) + (cons __tmp57547 __tmp57541)))) (declare (not safe)) - (cons _L53351_ __tmp57278))) - (__tmp57218 - (let ((__tmp57219 - (let ((__tmp57276 (gx#datum->syntax '#f 'let)) - (__tmp57220 - (let ((__tmp57275 + (cons _L53613_ __tmp57540))) + (__tmp57480 + (let ((__tmp57481 + (let ((__tmp57538 (gx#datum->syntax '#f 'let)) + (__tmp57482 + (let ((__tmp57537 (gx#datum->syntax '#f 'lp)) - (__tmp57221 - (let ((__tmp57270 - (let ((__tmp57271 - (let ((__tmp57274 + (__tmp57483 + (let ((__tmp57532 + (let ((__tmp57533 + (let ((__tmp57536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp57272 - (let ((__tmp57273 (gx#datum->syntax '#f 'lst))) + (__tmp57534 + (let ((__tmp57535 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp57273 '())))) + (cons __tmp57535 '())))) (declare (not safe)) - (cons __tmp57274 __tmp57272)))) + (cons __tmp57536 __tmp57534)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57271 '()))) - (__tmp57222 - (let ((__tmp57223 - (let ((__tmp57269 + (cons __tmp57533 '()))) + (__tmp57484 + (let ((__tmp57485 + (let ((__tmp57531 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp57224 - (let ((__tmp57268 (gx#datum->syntax '#f 'rest)) - (__tmp57225 - (let ((__tmp57244 - (let ((__tmp57261 - (let ((__tmp57267 + (__tmp57486 + (let ((__tmp57530 (gx#datum->syntax '#f 'rest)) + (__tmp57487 + (let ((__tmp57506 + (let ((__tmp57523 + (let ((__tmp57529 (gx#datum->syntax '#f '@list)) - (__tmp57262 - (let ((__tmp57266 + (__tmp57524 + (let ((__tmp57528 (gx#datum->syntax '#f 'k)) - (__tmp57263 - (let ((__tmp57265 + (__tmp57525 + (let ((__tmp57527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'v)) - (__tmp57264 (gx#datum->syntax '#f 'rest))) + (__tmp57526 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp57265 __tmp57264)))) + (cons __tmp57527 __tmp57526)))) (declare (not safe)) - (cons __tmp57266 __tmp57263)))) + (cons __tmp57528 __tmp57525)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57267 __tmp57262))) - (__tmp57245 - (let ((__tmp57246 - (let ((__tmp57260 + (cons __tmp57529 __tmp57524))) + (__tmp57507 + (let ((__tmp57508 + (let ((__tmp57522 (gx#datum->syntax '#f 'if)) - (__tmp57247 - (let ((__tmp57255 + (__tmp57509 + (let ((__tmp57517 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp57256 - (let ((__tmp57259 (gx#datum->syntax '#f 'k)) - (__tmp57257 - (let ((__tmp57258 + (let ((__tmp57518 + (let ((__tmp57521 (gx#datum->syntax '#f 'k)) + (__tmp57519 + (let ((__tmp57520 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp57258 '())))) + (cons __tmp57520 '())))) (declare (not safe)) - (cons __tmp57259 __tmp57257)))) + (cons __tmp57521 __tmp57519)))) (declare (not safe)) - (cons _L53349_ __tmp57256))) - (__tmp57248 - (let ((__tmp57254 (gx#datum->syntax '#f 'v)) - (__tmp57249 - (let ((__tmp57250 - (let ((__tmp57253 + (cons _L53611_ __tmp57518))) + (__tmp57510 + (let ((__tmp57516 (gx#datum->syntax '#f 'v)) + (__tmp57511 + (let ((__tmp57512 + (let ((__tmp57515 (gx#datum->syntax '#f 'lp)) - (__tmp57251 - (let ((__tmp57252 + (__tmp57513 + (let ((__tmp57514 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp57252 '())))) + (cons __tmp57514 '())))) (declare (not safe)) - (cons __tmp57253 __tmp57251)))) + (cons __tmp57515 __tmp57513)))) (declare (not safe)) - (cons __tmp57250 '())))) + (cons __tmp57512 '())))) (declare (not safe)) - (cons __tmp57254 __tmp57249)))) + (cons __tmp57516 __tmp57511)))) (declare (not safe)) - (cons __tmp57255 __tmp57248)))) + (cons __tmp57517 __tmp57510)))) (declare (not safe)) - (cons __tmp57260 __tmp57247)))) + (cons __tmp57522 __tmp57509)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57246 '())))) + (cons __tmp57508 '())))) (declare (not safe)) - (cons __tmp57261 __tmp57245))) - (__tmp57226 - (let ((__tmp57227 - (let ((__tmp57243 + (cons __tmp57523 __tmp57507))) + (__tmp57488 + (let ((__tmp57489 + (let ((__tmp57505 (gx#datum->syntax '#f 'else)) - (__tmp57228 - (let ((__tmp57229 - (let ((__tmp57242 + (__tmp57490 + (let ((__tmp57491 + (let ((__tmp57504 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp57230 - (let ((__tmp57238 - (let ((__tmp57241 + (__tmp57492 + (let ((__tmp57500 + (let ((__tmp57503 (gx#datum->syntax '#f 'procedure?)) - (__tmp57239 - (let ((__tmp57240 + (__tmp57501 + (let ((__tmp57502 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp57240 '())))) + (cons __tmp57502 '())))) (declare (not safe)) - (cons __tmp57241 __tmp57239))) - (__tmp57231 - (let ((__tmp57234 - (let ((__tmp57237 + (cons __tmp57503 __tmp57501))) + (__tmp57493 + (let ((__tmp57496 + (let ((__tmp57499 (gx#datum->syntax '#f 'default)) - (__tmp57235 - (let ((__tmp57236 + (__tmp57497 + (let ((__tmp57498 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp57236 '())))) + (cons __tmp57498 '())))) (declare (not safe)) - (cons __tmp57237 __tmp57235))) - (__tmp57232 - (let ((__tmp57233 + (cons __tmp57499 __tmp57497))) + (__tmp57494 + (let ((__tmp57495 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp57233 '())))) + (cons __tmp57495 '())))) (declare (not safe)) - (cons __tmp57234 __tmp57232)))) + (cons __tmp57496 __tmp57494)))) (declare (not safe)) - (cons __tmp57238 __tmp57231)))) + (cons __tmp57500 __tmp57493)))) (declare (not safe)) - (cons __tmp57242 __tmp57230)))) + (cons __tmp57504 __tmp57492)))) (declare (not safe)) - (cons __tmp57229 '())))) + (cons __tmp57491 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57243 __tmp57228)))) + (cons __tmp57505 __tmp57490)))) (declare (not safe)) - (cons __tmp57227 '())))) + (cons __tmp57489 '())))) (declare (not safe)) - (cons __tmp57244 __tmp57226)))) + (cons __tmp57506 __tmp57488)))) (declare (not safe)) - (cons __tmp57268 __tmp57225)))) + (cons __tmp57530 __tmp57487)))) (declare (not safe)) - (cons __tmp57269 __tmp57224)))) + (cons __tmp57531 __tmp57486)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57223 '())))) + (cons __tmp57485 '())))) (declare (not safe)) - (cons __tmp57270 __tmp57222)))) + (cons __tmp57532 __tmp57484)))) (declare (not safe)) - (cons __tmp57275 __tmp57221)))) + (cons __tmp57537 __tmp57483)))) (declare (not safe)) - (cons __tmp57276 __tmp57220)))) + (cons __tmp57538 __tmp57482)))) (declare (not safe)) - (cons __tmp57219 '())))) + (cons __tmp57481 '())))) (declare (not safe)) - (cons __tmp57277 __tmp57218)))) + (cons __tmp57539 __tmp57480)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57286 - __tmp57217))) - _hd5330553343_ - _hd5330253333_) - (_g5329453312_ _g5329553316_)))) - (_g5329453312_ _g5329553316_)))) - (_g5329453312_ _g5329553316_)))) - (_g5329453312_ _g5329553316_))))) - (_g5329353367_ _$stx53290_)))) + (cons __tmp57548 + __tmp57479))) + _hd5356753605_ + _hd5356453595_) + (_g5355653574_ _g5355753578_)))) + (_g5355653574_ _g5355753578_)))) + (_g5355653574_ _g5355753578_)))) + (_g5355653574_ _g5355753578_))))) + (_g5355553629_ _$stx53552_)))) (define |[:0:]#defremove1| - (lambda (_$stx53371_) - (let* ((_g5337553393_ - (lambda (_g5337653389_) + (lambda (_$stx53633_) + (let* ((_g5363753655_ + (lambda (_g5363853651_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5337653389_))) - (_g5337453448_ - (lambda (_g5337653397_) - (if (gx#stx-pair? _g5337653397_) - (let ((_e5338153400_ (gx#syntax-e _g5337653397_))) - (let ((_hd5338053404_ + _g5363853651_))) + (_g5363653710_ + (lambda (_g5363853659_) + (if (gx#stx-pair? _g5363853659_) + (let ((_e5364353662_ (gx#syntax-e _g5363853659_))) + (let ((_hd5364253666_ (let () (declare (not safe)) - (##car _e5338153400_))) - (_tl5337953407_ + (##car _e5364353662_))) + (_tl5364153669_ (let () (declare (not safe)) - (##cdr _e5338153400_)))) - (if (gx#stx-pair? _tl5337953407_) - (let ((_e5338453410_ - (gx#syntax-e _tl5337953407_))) - (let ((_hd5338353414_ + (##cdr _e5364353662_)))) + (if (gx#stx-pair? _tl5364153669_) + (let ((_e5364653672_ + (gx#syntax-e _tl5364153669_))) + (let ((_hd5364553676_ (let () (declare (not safe)) - (##car _e5338453410_))) - (_tl5338253417_ + (##car _e5364653672_))) + (_tl5364453679_ (let () (declare (not safe)) - (##cdr _e5338453410_)))) - (if (gx#stx-pair? _tl5338253417_) - (let ((_e5338753420_ - (gx#syntax-e _tl5338253417_))) - (let ((_hd5338653424_ + (##cdr _e5364653672_)))) + (if (gx#stx-pair? _tl5364453679_) + (let ((_e5364953682_ + (gx#syntax-e _tl5364453679_))) + (let ((_hd5364853686_ (let () (declare (not safe)) - (##car _e5338753420_))) - (_tl5338553427_ + (##car _e5364953682_))) + (_tl5364753689_ (let () (declare (not safe)) - (##cdr _e5338753420_)))) - (if (gx#stx-null? _tl5338553427_) - ((lambda (_L53430_ _L53432_) - (let ((__tmp57357 + (##cdr _e5364953682_)))) + (if (gx#stx-null? _tl5364753689_) + ((lambda (_L53692_ _L53694_) + (let ((__tmp57619 (gx#datum->syntax '#f 'def)) - (__tmp57287 - (let ((__tmp57352 - (let ((__tmp57353 + (__tmp57549 + (let ((__tmp57614 + (let ((__tmp57615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp57356 (gx#datum->syntax '#f 'el)) - (__tmp57354 - (let ((__tmp57355 + (let ((__tmp57618 (gx#datum->syntax '#f 'el)) + (__tmp57616 + (let ((__tmp57617 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp57355 '())))) + (cons __tmp57617 '())))) (declare (not safe)) - (cons __tmp57356 __tmp57354)))) + (cons __tmp57618 __tmp57616)))) (declare (not safe)) - (cons _L53432_ __tmp57353))) - (__tmp57288 - (let ((__tmp57289 - (let ((__tmp57351 (gx#datum->syntax '#f 'let)) - (__tmp57290 - (let ((__tmp57350 + (cons _L53694_ __tmp57615))) + (__tmp57550 + (let ((__tmp57551 + (let ((__tmp57613 (gx#datum->syntax '#f 'let)) + (__tmp57552 + (let ((__tmp57612 (gx#datum->syntax '#f 'lp)) - (__tmp57291 - (let ((__tmp57339 - (let ((__tmp57346 - (let ((__tmp57349 + (__tmp57553 + (let ((__tmp57601 + (let ((__tmp57608 + (let ((__tmp57611 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp57347 - (let ((__tmp57348 (gx#datum->syntax '#f 'lst))) + (__tmp57609 + (let ((__tmp57610 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp57348 '())))) + (cons __tmp57610 '())))) (declare (not safe)) - (cons __tmp57349 __tmp57347))) - (__tmp57340 - (let ((__tmp57341 - (let ((__tmp57345 (gx#datum->syntax '#f 'r)) - (__tmp57342 - (let ((__tmp57343 - (let ((__tmp57344 + (cons __tmp57611 __tmp57609))) + (__tmp57602 + (let ((__tmp57603 + (let ((__tmp57607 (gx#datum->syntax '#f 'r)) + (__tmp57604 + (let ((__tmp57605 + (let ((__tmp57606 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp57344 '())))) + (cons __tmp57606 '())))) (declare (not safe)) - (cons __tmp57343 '())))) + (cons __tmp57605 '())))) (declare (not safe)) - (cons __tmp57345 __tmp57342)))) + (cons __tmp57607 __tmp57604)))) (declare (not safe)) - (cons __tmp57341 '())))) + (cons __tmp57603 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57346 - __tmp57340))) - (__tmp57292 - (let ((__tmp57293 - (let ((__tmp57338 + (cons __tmp57608 + __tmp57602))) + (__tmp57554 + (let ((__tmp57555 + (let ((__tmp57600 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp57294 - (let ((__tmp57337 (gx#datum->syntax '#f 'rest)) - (__tmp57295 - (let ((__tmp57301 - (let ((__tmp57332 - (let ((__tmp57336 + (__tmp57556 + (let ((__tmp57599 (gx#datum->syntax '#f 'rest)) + (__tmp57557 + (let ((__tmp57563 + (let ((__tmp57594 + (let ((__tmp57598 (gx#datum->syntax '#f '@list)) - (__tmp57333 - (let ((__tmp57335 + (__tmp57595 + (let ((__tmp57597 (gx#datum->syntax '#f 'hd)) - (__tmp57334 + (__tmp57596 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp57335 - __tmp57334)))) + (cons __tmp57597 + __tmp57596)))) (declare (not safe)) - (cons __tmp57336 __tmp57333))) - (__tmp57302 - (let ((__tmp57303 - (let ((__tmp57331 + (cons __tmp57598 __tmp57595))) + (__tmp57564 + (let ((__tmp57565 + (let ((__tmp57593 (gx#datum->syntax '#f 'if)) - (__tmp57304 - (let ((__tmp57326 + (__tmp57566 + (let ((__tmp57588 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp57327 - (let ((__tmp57330 (gx#datum->syntax '#f 'el)) - (__tmp57328 - (let ((__tmp57329 + (let ((__tmp57589 + (let ((__tmp57592 (gx#datum->syntax '#f 'el)) + (__tmp57590 + (let ((__tmp57591 (gx#datum->syntax '#f 'hd))) (declare (not safe)) - (cons __tmp57329 '())))) + (cons __tmp57591 '())))) (declare (not safe)) - (cons __tmp57330 __tmp57328)))) + (cons __tmp57592 __tmp57590)))) (declare (not safe)) - (cons _L53430_ __tmp57327))) - (__tmp57305 - (let ((__tmp57318 - (let ((__tmp57325 + (cons _L53692_ __tmp57589))) + (__tmp57567 + (let ((__tmp57580 + (let ((__tmp57587 (gx#datum->syntax '#f 'foldl1)) - (__tmp57319 - (let ((__tmp57324 + (__tmp57581 + (let ((__tmp57586 (gx#datum->syntax '#f 'cons)) - (__tmp57320 - (let ((__tmp57323 + (__tmp57582 + (let ((__tmp57585 (gx#datum->syntax '#f 'rest)) - (__tmp57321 - (let ((__tmp57322 + (__tmp57583 + (let ((__tmp57584 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp57322 + (cons __tmp57584 '())))) (declare (not safe)) - (cons __tmp57323 - __tmp57321)))) + (cons __tmp57585 + __tmp57583)))) (declare (not safe)) - (cons __tmp57324 __tmp57320)))) + (cons __tmp57586 __tmp57582)))) (declare (not safe)) - (cons __tmp57325 __tmp57319))) - (__tmp57306 - (let ((__tmp57307 - (let ((__tmp57317 + (cons __tmp57587 __tmp57581))) + (__tmp57568 + (let ((__tmp57569 + (let ((__tmp57579 (gx#datum->syntax '#f 'lp)) - (__tmp57308 - (let ((__tmp57316 + (__tmp57570 + (let ((__tmp57578 (gx#datum->syntax '#f 'rest)) - (__tmp57309 - (let ((__tmp57310 - (let ((__tmp57315 + (__tmp57571 + (let ((__tmp57572 + (let ((__tmp57577 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons)) - (__tmp57311 - (let ((__tmp57314 (gx#datum->syntax '#f 'hd)) - (__tmp57312 - (let ((__tmp57313 + (__tmp57573 + (let ((__tmp57576 (gx#datum->syntax '#f 'hd)) + (__tmp57574 + (let ((__tmp57575 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp57313 '())))) + (cons __tmp57575 '())))) (declare (not safe)) - (cons __tmp57314 __tmp57312)))) + (cons __tmp57576 __tmp57574)))) (declare (not safe)) - (cons __tmp57315 __tmp57311)))) + (cons __tmp57577 __tmp57573)))) (declare (not safe)) - (cons __tmp57310 '())))) + (cons __tmp57572 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57316 - __tmp57309)))) + (cons __tmp57578 + __tmp57571)))) (declare (not safe)) - (cons __tmp57317 __tmp57308)))) + (cons __tmp57579 __tmp57570)))) (declare (not safe)) - (cons __tmp57307 '())))) + (cons __tmp57569 '())))) (declare (not safe)) - (cons __tmp57318 __tmp57306)))) + (cons __tmp57580 __tmp57568)))) (declare (not safe)) - (cons __tmp57326 __tmp57305)))) + (cons __tmp57588 __tmp57567)))) (declare (not safe)) - (cons __tmp57331 __tmp57304)))) + (cons __tmp57593 __tmp57566)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57303 '())))) + (cons __tmp57565 '())))) (declare (not safe)) - (cons __tmp57332 __tmp57302))) - (__tmp57296 - (let ((__tmp57297 - (let ((__tmp57300 + (cons __tmp57594 __tmp57564))) + (__tmp57558 + (let ((__tmp57559 + (let ((__tmp57562 (gx#datum->syntax '#f 'else)) - (__tmp57298 - (let ((__tmp57299 + (__tmp57560 + (let ((__tmp57561 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp57299 '())))) + (cons __tmp57561 '())))) (declare (not safe)) - (cons __tmp57300 __tmp57298)))) + (cons __tmp57562 __tmp57560)))) (declare (not safe)) - (cons __tmp57297 '())))) + (cons __tmp57559 '())))) (declare (not safe)) - (cons __tmp57301 __tmp57296)))) + (cons __tmp57563 __tmp57558)))) (declare (not safe)) - (cons __tmp57337 __tmp57295)))) + (cons __tmp57599 __tmp57557)))) (declare (not safe)) - (cons __tmp57338 __tmp57294)))) + (cons __tmp57600 __tmp57556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57293 '())))) + (cons __tmp57555 '())))) (declare (not safe)) - (cons __tmp57339 __tmp57292)))) + (cons __tmp57601 __tmp57554)))) (declare (not safe)) - (cons __tmp57350 __tmp57291)))) + (cons __tmp57612 __tmp57553)))) (declare (not safe)) - (cons __tmp57351 __tmp57290)))) + (cons __tmp57613 __tmp57552)))) (declare (not safe)) - (cons __tmp57289 '())))) + (cons __tmp57551 '())))) (declare (not safe)) - (cons __tmp57352 __tmp57288)))) + (cons __tmp57614 __tmp57550)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57357 - __tmp57287))) - _hd5338653424_ - _hd5338353414_) - (_g5337553393_ _g5337653397_)))) - (_g5337553393_ _g5337653397_)))) - (_g5337553393_ _g5337653397_)))) - (_g5337553393_ _g5337653397_))))) - (_g5337453448_ _$stx53371_)))) + (cons __tmp57619 + __tmp57549))) + _hd5364853686_ + _hd5364553676_) + (_g5363753655_ _g5363853659_)))) + (_g5363753655_ _g5363853659_)))) + (_g5363753655_ _g5363853659_)))) + (_g5363753655_ _g5363853659_))))) + (_g5363653710_ _$stx53633_)))) (define |[:0:]#DBG| - (lambda (_$stx53452_) - (let* ((_g5345653467_ - (lambda (_g5345753463_) + (lambda (_$stx53714_) + (let* ((_g5371853729_ + (lambda (_g5371953725_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5345753463_))) - (_g5345553496_ - (lambda (_g5345753471_) - (if (gx#stx-pair? _g5345753471_) - (let ((_e5346153474_ (gx#syntax-e _g5345753471_))) - (let ((_hd5346053478_ + _g5371953725_))) + (_g5371753758_ + (lambda (_g5371953733_) + (if (gx#stx-pair? _g5371953733_) + (let ((_e5372353736_ (gx#syntax-e _g5371953733_))) + (let ((_hd5372253740_ (let () (declare (not safe)) - (##car _e5346153474_))) - (_tl5345953481_ + (##car _e5372353736_))) + (_tl5372153743_ (let () (declare (not safe)) - (##cdr _e5346153474_)))) - ((lambda (_L53484_) - (let ((__tmp57359 (gx#datum->syntax '#f 'DBG/1)) - (__tmp57358 + (##cdr _e5372353736_)))) + ((lambda (_L53746_) + (let ((__tmp57621 (gx#datum->syntax '#f 'DBG/1)) + (__tmp57620 (let () (declare (not safe)) - (cons '1 _L53484_)))) + (cons '1 _L53746_)))) (declare (not safe)) - (cons __tmp57359 __tmp57358))) - _tl5345953481_))) - (_g5345653467_ _g5345753471_))))) - (_g5345553496_ _$stx53452_)))) + (cons __tmp57621 __tmp57620))) + _tl5372153743_))) + (_g5371853729_ _g5371953733_))))) + (_g5371753758_ _$stx53714_)))) (define |[:0:]#DBG/1| - (lambda (_$stx53500_) - (let* ((___stx5665656657_ _$stx53500_) - (_g5351153725_ + (lambda (_$stx53762_) + (let* ((___stx5691856919_ _$stx53762_) + (_g5377353987_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx5665656657_)))) - (let ((___kont5665956660_ - (lambda (_L54578_ _L54580_ _L54581_ _L54582_ _L54583_) - (let ((__tmp57360 - (let ((__tmp57361 - (let ((__tmp57362 - (let ((__tmp57366 - (let ((__tmp57367 - (lambda (_g5461354616_ - _g5461454619_) + ___stx5691856919_)))) + (let ((___kont5692156922_ + (lambda (_L54840_ _L54842_ _L54843_ _L54844_ _L54845_) + (let ((__tmp57622 + (let ((__tmp57623 + (let ((__tmp57624 + (let ((__tmp57628 + (let ((__tmp57629 + (lambda (_g5487554878_ + _g5487654881_) (let () (declare (not safe)) - (cons _g5461354616_ - _g5461454619_))))) + (cons _g5487554878_ + _g5487654881_))))) (declare (not safe)) - (foldr1 __tmp57367 + (foldr1 __tmp57629 '() - _L54581_))) - (__tmp57363 - (let ((__tmp57364 - (let ((__tmp57365 + _L54843_))) + (__tmp57625 + (let ((__tmp57626 + (let ((__tmp57627 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L54578_ '())))) + (cons _L54840_ '())))) (declare (not safe)) - (cons _L54580_ __tmp57365)))) + (cons _L54842_ __tmp57627)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L54582_ __tmp57364)))) + (cons _L54844_ __tmp57626)))) (declare (not safe)) - (cons __tmp57366 __tmp57363)))) + (cons __tmp57628 __tmp57625)))) (declare (not safe)) - (cons '() __tmp57362)))) + (cons '() __tmp57624)))) (declare (not safe)) - (cons '2 __tmp57361)))) + (cons '2 __tmp57623)))) (declare (not safe)) - (cons _L54583_ __tmp57360)))) - (___kont5666356664_ - (lambda (_L54431_ _L54433_ _L54434_ _L54435_) - (let ((__tmp57368 - (let ((__tmp57369 - (let ((__tmp57370 - (let ((__tmp57374 - (let ((__tmp57375 - (lambda (_g5445854461_ - _g5445954464_) + (cons _L54845_ __tmp57622)))) + (___kont5692556926_ + (lambda (_L54693_ _L54695_ _L54696_ _L54697_) + (let ((__tmp57630 + (let ((__tmp57631 + (let ((__tmp57632 + (let ((__tmp57636 + (let ((__tmp57637 + (lambda (_g5472054723_ + _g5472154726_) (let () (declare (not safe)) - (cons _g5445854461_ - _g5445954464_))))) + (cons _g5472054723_ + _g5472154726_))))) (declare (not safe)) - (foldr1 __tmp57375 + (foldr1 __tmp57637 '() - _L54433_))) - (__tmp57371 - (let ((__tmp57372 - (let ((__tmp57373 + _L54695_))) + (__tmp57633 + (let ((__tmp57634 + (let ((__tmp57635 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L54431_ '())))) + (cons _L54693_ '())))) (declare (not safe)) - (cons _L54431_ __tmp57373)))) + (cons _L54693_ __tmp57635)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L54434_ __tmp57372)))) + (cons _L54696_ __tmp57634)))) (declare (not safe)) - (cons __tmp57374 __tmp57371)))) + (cons __tmp57636 __tmp57633)))) (declare (not safe)) - (cons '() __tmp57370)))) + (cons '() __tmp57632)))) (declare (not safe)) - (cons '2 __tmp57369)))) + (cons '2 __tmp57631)))) (declare (not safe)) - (cons _L54435_ __tmp57368)))) - (___kont5666756668_ - (lambda (_L54334_) - (let ((__tmp57387 (gx#datum->syntax '#f 'DBG-helper)) - (__tmp57376 - (let ((__tmp57377 - (let ((__tmp57384 - (let ((__tmp57386 + (cons _L54697_ __tmp57630)))) + (___kont5692956930_ + (lambda (_L54596_) + (let ((__tmp57649 (gx#datum->syntax '#f 'DBG-helper)) + (__tmp57638 + (let ((__tmp57639 + (let ((__tmp57646 + (let ((__tmp57648 (gx#datum->syntax '#f 'quote)) - (__tmp57385 + (__tmp57647 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp57386 __tmp57385))) - (__tmp57378 - (let ((__tmp57381 - (let ((__tmp57383 + (cons __tmp57648 __tmp57647))) + (__tmp57640 + (let ((__tmp57643 + (let ((__tmp57645 (gx#datum->syntax '#f 'quote)) - (__tmp57382 + (__tmp57644 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp57383 __tmp57382))) - (__tmp57379 - (let ((__tmp57380 + (cons __tmp57645 __tmp57644))) + (__tmp57641 + (let ((__tmp57642 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '#f __tmp57380)))) + (cons '#f __tmp57642)))) (declare (not safe)) - (cons __tmp57381 __tmp57379)))) + (cons __tmp57643 __tmp57641)))) (declare (not safe)) - (cons __tmp57384 __tmp57378)))) + (cons __tmp57646 __tmp57640)))) (declare (not safe)) - (cons _L54334_ __tmp57377)))) + (cons _L54596_ __tmp57639)))) (declare (not safe)) - (cons __tmp57387 __tmp57376)))) - (___kont5666956670_ - (lambda (_L54257_ - _L54259_ - _L54260_ - _L54261_ - _L54262_ - _L54263_) - (let ((__tmp57388 - (let ((__tmp57389 - (let ((__tmp57391 - (let ((__tmp57392 - (let ((__tmp57393 + (cons __tmp57649 __tmp57638)))) + (___kont5693156932_ + (lambda (_L54519_ + _L54521_ + _L54522_ + _L54523_ + _L54524_ + _L54525_) + (let ((__tmp57650 + (let ((__tmp57651 + (let ((__tmp57653 + (let ((__tmp57654 + (let ((__tmp57655 (let () (declare (not safe)) - (cons _L54260_ '())))) + (cons _L54522_ '())))) (declare (not safe)) - (cons _L54261_ __tmp57393)))) + (cons _L54523_ __tmp57655)))) (declare (not safe)) - (cons __tmp57392 _L54262_))) - (__tmp57390 + (cons __tmp57654 _L54524_))) + (__tmp57652 (let () (declare (not safe)) - (cons _L54259_ _L54257_)))) + (cons _L54521_ _L54519_)))) (declare (not safe)) - (cons __tmp57391 __tmp57390)))) + (cons __tmp57653 __tmp57652)))) (declare (not safe)) - (cons '2 __tmp57389)))) + (cons '2 __tmp57651)))) (declare (not safe)) - (cons _L54263_ __tmp57388)))) - (___kont5667156672_ - (lambda (_L54138_ _L54140_ _L54141_ _L54142_ _L54143_) - (let ((__tmp57394 - (let ((__tmp57395 - (let ((__tmp57397 - (let ((__tmp57398 - (let ((__tmp57399 + (cons _L54525_ __tmp57650)))) + (___kont5693356934_ + (lambda (_L54400_ _L54402_ _L54403_ _L54404_ _L54405_) + (let ((__tmp57656 + (let ((__tmp57657 + (let ((__tmp57659 + (let ((__tmp57660 + (let ((__tmp57661 (let () (declare (not safe)) - (cons _L54141_ '())))) + (cons _L54403_ '())))) (declare (not safe)) - (cons _L54141_ __tmp57399)))) + (cons _L54403_ __tmp57661)))) (declare (not safe)) - (cons __tmp57398 _L54142_))) - (__tmp57396 + (cons __tmp57660 _L54404_))) + (__tmp57658 (let () (declare (not safe)) - (cons _L54140_ _L54138_)))) + (cons _L54402_ _L54400_)))) (declare (not safe)) - (cons __tmp57397 __tmp57396)))) + (cons __tmp57659 __tmp57658)))) (declare (not safe)) - (cons '2 __tmp57395)))) + (cons '2 __tmp57657)))) (declare (not safe)) - (cons _L54143_ __tmp57394)))) - (___kont5667356674_ - (lambda (_L54055_ _L54057_ _L54058_) - (let ((__tmp57400 - (let ((__tmp57401 - (let ((__tmp57402 + (cons _L54405_ __tmp57656)))) + (___kont5693556936_ + (lambda (_L54317_ _L54319_ _L54320_) + (let ((__tmp57662 + (let ((__tmp57663 + (let ((__tmp57664 (let () (declare (not safe)) - (cons _L54057_ _L54055_)))) + (cons _L54319_ _L54317_)))) (declare (not safe)) - (cons '() __tmp57402)))) + (cons '() __tmp57664)))) (declare (not safe)) - (cons '3 __tmp57401)))) + (cons '3 __tmp57663)))) (declare (not safe)) - (cons _L54058_ __tmp57400)))) - (___kont5667556676_ - (lambda (_L53976_ _L53978_ _L53979_ _L53980_ _L53981_) - (let ((__tmp57403 - (let ((__tmp57404 - (let ((__tmp57406 + (cons _L54320_ __tmp57662)))) + (___kont5693756938_ + (lambda (_L54238_ _L54240_ _L54241_ _L54242_ _L54243_) + (let ((__tmp57665 + (let ((__tmp57666 + (let ((__tmp57668 (let () (declare (not safe)) - (cons _L53979_ _L53980_))) - (__tmp57405 + (cons _L54241_ _L54242_))) + (__tmp57667 (let () (declare (not safe)) - (cons _L53978_ _L53976_)))) + (cons _L54240_ _L54238_)))) (declare (not safe)) - (cons __tmp57406 __tmp57405)))) + (cons __tmp57668 __tmp57667)))) (declare (not safe)) - (cons '3 __tmp57404)))) + (cons '3 __tmp57666)))) (declare (not safe)) - (cons _L53981_ __tmp57403)))) - (___kont5667756678_ - (lambda (_L53860_ - _L53862_ - _L53863_ - _L53864_ - _L53865_ - _L53866_) - (let ((__tmp57454 (gx#datum->syntax '#f 'let)) - (__tmp57407 - (let ((__tmp57442 - (let ((__tmp57451 - (let ((__tmp57453 + (cons _L54243_ __tmp57665)))) + (___kont5693956940_ + (lambda (_L54122_ + _L54124_ + _L54125_ + _L54126_ + _L54127_ + _L54128_) + (let ((__tmp57716 (gx#datum->syntax '#f 'let)) + (__tmp57669 + (let ((__tmp57704 + (let ((__tmp57713 + (let ((__tmp57715 (gx#datum->syntax '#f 'tagval)) - (__tmp57452 + (__tmp57714 (let () (declare (not safe)) - (cons _L53863_ '())))) + (cons _L54125_ '())))) (declare (not safe)) - (cons __tmp57453 __tmp57452))) - (__tmp57443 - (let ((__tmp57444 - (let ((__tmp57450 + (cons __tmp57715 __tmp57714))) + (__tmp57705 + (let ((__tmp57706 + (let ((__tmp57712 (gx#datum->syntax '#f 'thunk)) - (__tmp57445 - (let ((__tmp57446 - (let ((__tmp57449 + (__tmp57707 + (let ((__tmp57708 + (let ((__tmp57711 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp57447 - (let ((__tmp57448 + (__tmp57709 + (let ((__tmp57710 (let () (declare (not safe)) - (cons _L53860_ '())))) + (cons _L54122_ '())))) (declare (not safe)) - (cons '() __tmp57448)))) + (cons '() __tmp57710)))) (declare (not safe)) - (cons __tmp57449 __tmp57447)))) + (cons __tmp57711 __tmp57709)))) (declare (not safe)) - (cons __tmp57446 '())))) + (cons __tmp57708 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57450 - __tmp57445)))) + (cons __tmp57712 + __tmp57707)))) (declare (not safe)) - (cons __tmp57444 '())))) + (cons __tmp57706 '())))) (declare (not safe)) - (cons __tmp57451 __tmp57443))) - (__tmp57408 - (let ((__tmp57409 - (let ((__tmp57441 + (cons __tmp57713 __tmp57705))) + (__tmp57670 + (let ((__tmp57671 + (let ((__tmp57703 (gx#datum->syntax '#f 'if)) - (__tmp57410 - (let ((__tmp57440 + (__tmp57672 + (let ((__tmp57702 (gx#datum->syntax '#f 'tagval)) - (__tmp57411 - (let ((__tmp57415 - (let ((__tmp57439 + (__tmp57673 + (let ((__tmp57677 + (let ((__tmp57701 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'DBG-helper)) - (__tmp57416 - (let ((__tmp57438 (gx#datum->syntax '#f 'tagval)) - (__tmp57417 - (let ((__tmp57433 - (let ((__tmp57437 + (__tmp57678 + (let ((__tmp57700 (gx#datum->syntax '#f 'tagval)) + (__tmp57679 + (let ((__tmp57695 + (let ((__tmp57699 (gx#datum->syntax '#f 'quote)) - (__tmp57434 - (let ((__tmp57435 - (let ((__tmp57436 - (lambda (_g5390053903_ + (__tmp57696 + (let ((__tmp57697 + (let ((__tmp57698 + (lambda (_g5416254165_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5390153906_) + _g5416354168_) (let () (declare (not safe)) - (cons _g5390053903_ _g5390153906_))))) + (cons _g5416254165_ _g5416354168_))))) (declare (not safe)) - (foldr1 __tmp57436 '() _L53865_)))) + (foldr1 __tmp57698 '() _L54127_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57435 '())))) + (cons __tmp57697 '())))) (declare (not safe)) - (cons __tmp57437 __tmp57434))) - (__tmp57418 - (let ((__tmp57425 - (let ((__tmp57432 + (cons __tmp57699 __tmp57696))) + (__tmp57680 + (let ((__tmp57687 + (let ((__tmp57694 (gx#datum->syntax '#f 'list)) - (__tmp57426 - (let ((__tmp57427 - (lambda (_g5389853909_ + (__tmp57688 + (let ((__tmp57689 + (lambda (_g5416054171_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5389953912_) - (let ((__tmp57428 - (let ((__tmp57431 + _g5416154174_) + (let ((__tmp57690 + (let ((__tmp57693 (gx#datum->syntax '#f 'lambda)) - (__tmp57429 - (let ((__tmp57430 + (__tmp57691 + (let ((__tmp57692 (let () (declare (not safe)) - (cons _g5389853909_ '())))) + (cons _g5416054171_ '())))) (declare (not safe)) - (cons '() __tmp57430)))) + (cons '() __tmp57692)))) (declare (not safe)) - (cons __tmp57431 __tmp57429)))) + (cons __tmp57693 __tmp57691)))) (declare (not safe)) - (cons __tmp57428 _g5389953912_))))) + (cons __tmp57690 _g5416154174_))))) (declare (not safe)) - (foldr1 __tmp57427 '() _L53864_)))) + (foldr1 __tmp57689 '() _L54126_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57432 - __tmp57426))) - (__tmp57419 - (let ((__tmp57422 - (let ((__tmp57424 + (cons __tmp57694 + __tmp57688))) + (__tmp57681 + (let ((__tmp57684 + (let ((__tmp57686 (gx#datum->syntax '#f 'quote)) - (__tmp57423 + (__tmp57685 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L53862_ '())))) + (cons _L54124_ '())))) (declare (not safe)) - (cons __tmp57424 __tmp57423))) - (__tmp57420 - (let ((__tmp57421 (gx#datum->syntax '#f 'thunk))) + (cons __tmp57686 __tmp57685))) + (__tmp57682 + (let ((__tmp57683 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp57421 '())))) + (cons __tmp57683 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57422 - __tmp57420)))) + (cons __tmp57684 + __tmp57682)))) (declare (not safe)) - (cons __tmp57425 __tmp57419)))) + (cons __tmp57687 __tmp57681)))) (declare (not safe)) - (cons __tmp57433 __tmp57418)))) + (cons __tmp57695 __tmp57680)))) (declare (not safe)) - (cons __tmp57438 __tmp57417)))) + (cons __tmp57700 __tmp57679)))) (declare (not safe)) - (cons __tmp57439 __tmp57416))) - (__tmp57412 - (let ((__tmp57413 - (let ((__tmp57414 (gx#datum->syntax '#f 'thunk))) + (cons __tmp57701 __tmp57678))) + (__tmp57674 + (let ((__tmp57675 + (let ((__tmp57676 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp57414 '())))) + (cons __tmp57676 '())))) (declare (not safe)) - (cons __tmp57413 '())))) + (cons __tmp57675 '())))) (declare (not safe)) - (cons __tmp57415 __tmp57412)))) + (cons __tmp57677 __tmp57674)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp57440 - __tmp57411)))) + (cons __tmp57702 + __tmp57673)))) (declare (not safe)) - (cons __tmp57441 __tmp57410)))) + (cons __tmp57703 __tmp57672)))) (declare (not safe)) - (cons __tmp57409 '())))) + (cons __tmp57671 '())))) (declare (not safe)) - (cons __tmp57442 __tmp57408)))) + (cons __tmp57704 __tmp57670)))) (declare (not safe)) - (cons __tmp57454 __tmp57407))))) - (let* ((___match5700757008_ - (lambda (_e5368353732_ - _hd5368253736_ - _tl5368153739_ - _e5368653742_ - _hd5368553746_ - _tl5368453749_ - _e5368753752_ - _e5369053756_ - _hd5368953760_ - _tl5368853763_ - ___splice5667956680_ - _target5369153766_ - _tl5369353769_) - (letrec ((_loop5369453772_ - (lambda (_hd5369253776_ - _exprs5369853779_ - _names5369953781_) - (if (gx#stx-pair? _hd5369253776_) - (let ((_e5369553784_ - (gx#syntax-e _hd5369253776_))) - (let ((_lp-tl5369753791_ + (cons __tmp57716 __tmp57669))))) + (let* ((___match5726957270_ + (lambda (_e5394553994_ + _hd5394453998_ + _tl5394354001_ + _e5394854004_ + _hd5394754008_ + _tl5394654011_ + _e5394954014_ + _e5395254018_ + _hd5395154022_ + _tl5395054025_ + ___splice5694156942_ + _target5395354028_ + _tl5395554031_) + (letrec ((_loop5395654034_ + (lambda (_hd5395454038_ + _exprs5396054041_ + _names5396154043_) + (if (gx#stx-pair? _hd5395454038_) + (let ((_e5395754046_ + (gx#syntax-e _hd5395454038_))) + (let ((_lp-tl5395954053_ (let () (declare (not safe)) - (##cdr _e5369553784_))) - (_lp-hd5369653788_ + (##cdr _e5395754046_))) + (_lp-hd5395854050_ (let () (declare (not safe)) - (##car _e5369553784_)))) - (if (gx#stx-pair? _lp-hd5369653788_) - (let ((_e5370453794_ + (##car _e5395754046_)))) + (if (gx#stx-pair? _lp-hd5395854050_) + (let ((_e5396654056_ (gx#syntax-e - _lp-hd5369653788_))) - (let ((_tl5370253801_ + _lp-hd5395854050_))) + (let ((_tl5396454063_ (let () (declare (not safe)) - (##cdr _e5370453794_))) - (_hd5370353798_ + (##cdr _e5396654056_))) + (_hd5396554060_ (let () (declare (not safe)) - (##car _e5370453794_)))) + (##car _e5396654056_)))) (if (gx#stx-pair? - _tl5370253801_) - (let ((_e5370753804_ + _tl5396454063_) + (let ((_e5396954066_ (gx#syntax-e - _tl5370253801_))) - (let ((_tl5370553811_ + _tl5396454063_))) + (let ((_tl5396754073_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e5370753804_))) - (_hd5370653808_ - (let () (declare (not safe)) (##car _e5370753804_)))) - (if (gx#stx-null? _tl5370553811_) - (_loop5369453772_ - _lp-tl5369753791_ + (##cdr _e5396954066_))) + (_hd5396854070_ + (let () (declare (not safe)) (##car _e5396954066_)))) + (if (gx#stx-null? _tl5396754073_) + (_loop5395654034_ + _lp-tl5395954053_ (let () (declare (not safe)) - (cons _hd5370653808_ _exprs5369853779_)) + (cons _hd5396854070_ _exprs5396054041_)) (let () (declare (not safe)) - (cons _hd5370353798_ _names5369953781_))) - (let () (declare (not safe)) (_g5351153725_))))) - (let () (declare (not safe)) (_g5351153725_))))) + (cons _hd5396554060_ _names5396154043_))) + (let () (declare (not safe)) (_g5377353987_))))) + (let () (declare (not safe)) (_g5377353987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5351153725_))))) - (let ((_names5370153817_ - (reverse _names5369953781_)) - (_exprs5370053814_ - (reverse _exprs5369853779_))) - (if (gx#stx-pair? _tl5368853763_) - (let ((_e5371053820_ + (_g5377353987_))))) + (let ((_names5396354079_ + (reverse _names5396154043_)) + (_exprs5396254076_ + (reverse _exprs5396054041_))) + (if (gx#stx-pair? _tl5395054025_) + (let ((_e5397254082_ (gx#syntax-e - _tl5368853763_))) - (let ((_tl5370853827_ + _tl5395054025_))) + (let ((_tl5397054089_ (let () (declare (not safe)) - (##cdr _e5371053820_))) - (_hd5370953824_ + (##cdr _e5397254082_))) + (_hd5397154086_ (let () (declare (not safe)) - (##car _e5371053820_)))) + (##car _e5397254082_)))) (if (gx#stx-null? - _hd5370953824_) + _hd5397154086_) (if (gx#stx-pair? - _tl5370853827_) - (let ((_e5371353830_ + _tl5397054089_) + (let ((_e5397554092_ (gx#syntax-e - _tl5370853827_))) - (let ((_tl5371153837_ + _tl5397054089_))) + (let ((_tl5397354099_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5371353830_))) - (_hd5371253834_ - (let () (declare (not safe)) (##car _e5371353830_)))) - (if (gx#stx-pair? _tl5371153837_) - (let ((_e5371653840_ (gx#syntax-e _tl5371153837_))) - (let ((_tl5371453847_ + (let () (declare (not safe)) (##cdr _e5397554092_))) + (_hd5397454096_ + (let () (declare (not safe)) (##car _e5397554092_)))) + (if (gx#stx-pair? _tl5397354099_) + (let ((_e5397854102_ (gx#syntax-e _tl5397354099_))) + (let ((_tl5397654109_ (let () (declare (not safe)) - (##cdr _e5371653840_))) - (_hd5371553844_ + (##cdr _e5397854102_))) + (_hd5397754106_ (let () (declare (not safe)) - (##car _e5371653840_)))) - (if (gx#stx-pair? _tl5371453847_) - (let ((_e5371953850_ - (gx#syntax-e _tl5371453847_))) - (let ((_tl5371753857_ + (##car _e5397854102_)))) + (if (gx#stx-pair? _tl5397654109_) + (let ((_e5398154112_ + (gx#syntax-e _tl5397654109_))) + (let ((_tl5397954119_ (let () (declare (not safe)) - (##cdr _e5371953850_))) - (_hd5371853854_ + (##cdr _e5398154112_))) + (_hd5398054116_ (let () (declare (not safe)) - (##car _e5371953850_)))) - (if (gx#stx-null? _tl5371753857_) - (___kont5667756678_ - _hd5371853854_ - _hd5371553844_ - _hd5371253834_ - _exprs5370053814_ - _names5370153817_ - _hd5368253736_) + (##car _e5398154112_)))) + (if (gx#stx-null? _tl5397954119_) + (___kont5693956940_ + _hd5398054116_ + _hd5397754106_ + _hd5397454096_ + _exprs5396254076_ + _names5396354079_ + _hd5394453998_) (let () (declare (not safe)) - (_g5351153725_))))) + (_g5377353987_))))) (let () (declare (not safe)) - (_g5351153725_))))) - (let () (declare (not safe)) (_g5351153725_))))) - (let () (declare (not safe)) (_g5351153725_))) + (_g5377353987_))))) + (let () (declare (not safe)) (_g5377353987_))))) + (let () (declare (not safe)) (_g5377353987_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5351153725_))))) + (_g5377353987_))))) (let () (declare (not safe)) - (_g5351153725_)))))))) - (_loop5369453772_ _target5369153766_ '() '())))) - (___match5678556786_ - (lambda (_e5355554357_ - _hd5355454361_ - _tl5355354364_ - _e5355854367_ - _hd5355754371_ - _tl5355654374_ - _e5355954377_ - _e5356254381_ - _hd5356154385_ - _tl5356054388_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) - (letrec ((_loop5356654407_ - (lambda (_hd5356454411_ _exprs5357054414_) - (if (gx#stx-pair? _hd5356454411_) - (let ((_e5356754417_ - (gx#syntax-e _hd5356454411_))) - (let ((_lp-tl5356954424_ + (_g5377353987_)))))))) + (_loop5395654034_ _target5395354028_ '() '())))) + (___match5704757048_ + (lambda (_e5381754619_ + _hd5381654623_ + _tl5381554626_ + _e5382054629_ + _hd5381954633_ + _tl5381854636_ + _e5382154639_ + _e5382454643_ + _hd5382354647_ + _tl5382254650_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) + (letrec ((_loop5382854669_ + (lambda (_hd5382654673_ _exprs5383254676_) + (if (gx#stx-pair? _hd5382654673_) + (let ((_e5382954679_ + (gx#syntax-e _hd5382654673_))) + (let ((_lp-tl5383154686_ (let () (declare (not safe)) - (##cdr _e5356754417_))) - (_lp-hd5356854421_ + (##cdr _e5382954679_))) + (_lp-hd5383054683_ (let () (declare (not safe)) - (##car _e5356754417_)))) - (_loop5356654407_ - _lp-tl5356954424_ + (##car _e5382954679_)))) + (_loop5382854669_ + _lp-tl5383154686_ (let () (declare (not safe)) - (cons _lp-hd5356854421_ - _exprs5357054414_))))) - (let ((_exprs5357154427_ - (reverse _exprs5357054414_))) - (___kont5666356664_ - _hd5357354401_ - _exprs5357154427_ - _hd5356154385_ - _hd5355454361_)))))) - (_loop5356654407_ _target5356354391_ '())))) - (___match5674556746_ - (lambda (_e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666156662_ - _target5352854508_ - _tl5353054511_ - _e5353954514_ - _hd5353854518_ - _tl5353754521_ - _e5354254524_ - _hd5354154528_ - _tl5354054531_ - _e5354554534_ - _hd5354454538_ - _tl5354354541_ - _e5354854544_ - _hd5354754548_ - _tl5354654551_) - (letrec ((_loop5353154554_ - (lambda (_hd5352954558_ _exprs5353554561_) - (if (gx#stx-pair? _hd5352954558_) - (let ((_e5353254564_ - (gx#syntax-e _hd5352954558_))) - (let ((_lp-tl5353454571_ + (cons _lp-hd5383054683_ + _exprs5383254676_))))) + (let ((_exprs5383354689_ + (reverse _exprs5383254676_))) + (___kont5692556926_ + _hd5383554663_ + _exprs5383354689_ + _hd5382354647_ + _hd5381654623_)))))) + (_loop5382854669_ _target5382554653_ '())))) + (___match5700757008_ + (lambda (_e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692356924_ + _target5379054770_ + _tl5379254773_ + _e5380154776_ + _hd5380054780_ + _tl5379954783_ + _e5380454786_ + _hd5380354790_ + _tl5380254793_ + _e5380754796_ + _hd5380654800_ + _tl5380554803_ + _e5381054806_ + _hd5380954810_ + _tl5380854813_) + (letrec ((_loop5379354816_ + (lambda (_hd5379154820_ _exprs5379754823_) + (if (gx#stx-pair? _hd5379154820_) + (let ((_e5379454826_ + (gx#syntax-e _hd5379154820_))) + (let ((_lp-tl5379654833_ (let () (declare (not safe)) - (##cdr _e5353254564_))) - (_lp-hd5353354568_ + (##cdr _e5379454826_))) + (_lp-hd5379554830_ (let () (declare (not safe)) - (##car _e5353254564_)))) - (_loop5353154554_ - _lp-tl5353454571_ + (##car _e5379454826_)))) + (_loop5379354816_ + _lp-tl5379654833_ (let () (declare (not safe)) - (cons _lp-hd5353354568_ - _exprs5353554561_))))) - (let ((_exprs5353654574_ - (reverse _exprs5353554561_))) - (___kont5665956660_ - _hd5354754548_ - _hd5354454538_ - _exprs5353654574_ - _hd5352654502_ - _hd5351954478_)))))) - (_loop5353154554_ _target5352854508_ '()))))) - (if (gx#stx-pair? ___stx5665656657_) - (let ((_e5352054474_ (gx#syntax-e ___stx5665656657_))) - (let ((_tl5351854481_ - (let () (declare (not safe)) (##cdr _e5352054474_))) - (_hd5351954478_ + (cons _lp-hd5379554830_ + _exprs5379754823_))))) + (let ((_exprs5379854836_ + (reverse _exprs5379754823_))) + (___kont5692156922_ + _hd5380954810_ + _hd5380654800_ + _exprs5379854836_ + _hd5378854764_ + _hd5378154740_)))))) + (_loop5379354816_ _target5379054770_ '()))))) + (if (gx#stx-pair? ___stx5691856919_) + (let ((_e5378254736_ (gx#syntax-e ___stx5691856919_))) + (let ((_tl5378054743_ + (let () (declare (not safe)) (##cdr _e5378254736_))) + (_hd5378154740_ (let () (declare (not safe)) - (##car _e5352054474_)))) - (if (gx#stx-pair? _tl5351854481_) - (let ((_e5352354484_ (gx#syntax-e _tl5351854481_))) - (let ((_tl5352154491_ + (##car _e5378254736_)))) + (if (gx#stx-pair? _tl5378054743_) + (let ((_e5378554746_ (gx#syntax-e _tl5378054743_))) + (let ((_tl5378354753_ (let () (declare (not safe)) - (##cdr _e5352354484_))) - (_hd5352254488_ + (##cdr _e5378554746_))) + (_hd5378454750_ (let () (declare (not safe)) - (##car _e5352354484_)))) - (if (gx#stx-datum? _hd5352254488_) - (let ((_e5352454494_ - (gx#stx-e _hd5352254488_))) + (##car _e5378554746_)))) + (if (gx#stx-datum? _hd5378454750_) + (let ((_e5378654756_ + (gx#stx-e _hd5378454750_))) (if (let () (declare (not safe)) - (equal? _e5352454494_ '1)) - (if (gx#stx-pair? _tl5352154491_) - (let ((_e5352754498_ + (equal? _e5378654756_ '1)) + (if (gx#stx-pair? _tl5378354753_) + (let ((_e5378954760_ (gx#syntax-e - _tl5352154491_))) - (let ((_tl5352554505_ + _tl5378354753_))) + (let ((_tl5378754767_ (let () (declare (not safe)) - (##cdr _e5352754498_))) - (_hd5352654502_ + (##cdr _e5378954760_))) + (_hd5378854764_ (let () (declare (not safe)) - (##car _e5352754498_)))) + (##car _e5378954760_)))) (if (gx#stx-pair/null? - _tl5352554505_) + _tl5378754767_) (if (fx>= (gx#stx-length - _tl5352554505_) + _tl5378754767_) '2) - (let ((___splice5666156662_ + (let ((___splice5692356924_ (gx#syntax-split-splice - _tl5352554505_ + _tl5378754767_ '2))) - (let ((_tl5353054511_ + (let ((_tl5379254773_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice5666156662_ '1))) - (_target5352854508_ + (##vector-ref ___splice5692356924_ '1))) + (_target5379054770_ (let () (declare (not safe)) - (##vector-ref ___splice5666156662_ '0)))) - (if (gx#stx-pair? _tl5353054511_) - (let ((_e5353954514_ (gx#syntax-e _tl5353054511_))) - (let ((_tl5353754521_ + (##vector-ref ___splice5692356924_ '0)))) + (if (gx#stx-pair? _tl5379254773_) + (let ((_e5380154776_ (gx#syntax-e _tl5379254773_))) + (let ((_tl5379954783_ (let () (declare (not safe)) - (##cdr _e5353954514_))) - (_hd5353854518_ + (##cdr _e5380154776_))) + (_hd5380054780_ (let () (declare (not safe)) - (##car _e5353954514_)))) - (if (gx#stx-pair? _hd5353854518_) - (let ((_e5354254524_ - (gx#syntax-e _hd5353854518_))) - (let ((_tl5354054531_ + (##car _e5380154776_)))) + (if (gx#stx-pair? _hd5380054780_) + (let ((_e5380454786_ + (gx#syntax-e _hd5380054780_))) + (let ((_tl5380254793_ (let () (declare (not safe)) - (##cdr _e5354254524_))) - (_hd5354154528_ + (##cdr _e5380454786_))) + (_hd5380354790_ (let () (declare (not safe)) - (##car _e5354254524_)))) - (if (gx#identifier? _hd5354154528_) + (##car _e5380454786_)))) + (if (gx#identifier? _hd5380354790_) (if (gx#free-identifier=? - |[1]#_g57456_| - _hd5354154528_) - (if (gx#stx-pair? _tl5354054531_) - (let ((_e5354554534_ + |[1]#_g57718_| + _hd5380354790_) + (if (gx#stx-pair? _tl5380254793_) + (let ((_e5380754796_ (gx#syntax-e - _tl5354054531_))) - (let ((_tl5354354541_ + _tl5380254793_))) + (let ((_tl5380554803_ (let () (declare (not safe)) - (##cdr _e5354554534_))) - (_hd5354454538_ + (##cdr _e5380754796_))) + (_hd5380654800_ (let () (declare (not safe)) - (##car _e5354554534_)))) + (##car _e5380754796_)))) (if (gx#stx-null? - _tl5354354541_) + _tl5380554803_) (if (gx#stx-pair? - _tl5353754521_) - (let ((_e5354854544_ + _tl5379954783_) + (let ((_e5381054806_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5353754521_))) - (let ((_tl5354654551_ + (gx#syntax-e _tl5379954783_))) + (let ((_tl5380854813_ (let () (declare (not safe)) - (##cdr _e5354854544_))) - (_hd5354754548_ + (##cdr _e5381054806_))) + (_hd5380954810_ (let () (declare (not safe)) - (##car _e5354854544_)))) - (if (gx#stx-null? _tl5354654551_) - (___match5674556746_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666156662_ - _target5352854508_ - _tl5353054511_ - _e5353954514_ - _hd5353854518_ - _tl5353754521_ - _e5354254524_ - _hd5354154528_ - _tl5354054531_ - _e5354554534_ - _hd5354454538_ - _tl5354354541_ - _e5354854544_ - _hd5354754548_ - _tl5354654551_) - (if (fx>= (gx#stx-length _tl5352554505_) '1) - (let ((___splice5666556666_ + (##car _e5381054806_)))) + (if (gx#stx-null? _tl5380854813_) + (___match5700757008_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692356924_ + _target5379054770_ + _tl5379254773_ + _e5380154776_ + _hd5380054780_ + _tl5379954783_ + _e5380454786_ + _hd5380354790_ + _tl5380254793_ + _e5380754796_ + _hd5380654800_ + _tl5380554803_ + _e5381054806_ + _hd5380954810_ + _tl5380854813_) + (if (fx>= (gx#stx-length _tl5378754767_) '1) + (let ((___splice5692756928_ (gx#syntax-split-splice - _tl5352554505_ + _tl5378754767_ '1))) - (let ((_tl5356554394_ + (let ((_tl5382754656_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '1))) - (_target5356354391_ + (_target5382554653_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '0)))) - (if (gx#stx-pair? _tl5356554394_) - (let ((_e5357454397_ - (gx#syntax-e _tl5356554394_))) - (let ((_tl5357254404_ + (if (gx#stx-pair? _tl5382754656_) + (let ((_e5383654659_ + (gx#syntax-e _tl5382754656_))) + (let ((_tl5383454666_ (let () (declare (not safe)) - (##cdr _e5357454397_))) - (_hd5357354401_ + (##cdr _e5383654659_))) + (_hd5383554663_ (let () (declare (not safe)) - (##car _e5357454397_)))) - (if (gx#stx-null? _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) + (##car _e5383654659_)))) + (if (gx#stx-null? _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) (if (gx#stx-null? - _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_))))))) - (if (fx>= (gx#stx-length _tl5352554505_) '1) - (let ((___splice5666556666_ - (gx#syntax-split-splice _tl5352554505_ '1))) - (let ((_tl5356554394_ + (_g5377353987_))))))) + (if (fx>= (gx#stx-length _tl5378754767_) '1) + (let ((___splice5692756928_ + (gx#syntax-split-splice _tl5378754767_ '1))) + (let ((_tl5382754656_ (let () (declare (not safe)) - (##vector-ref ___splice5666556666_ '1))) - (_target5356354391_ + (##vector-ref ___splice5692756928_ '1))) + (_target5382554653_ (let () (declare (not safe)) - (##vector-ref ___splice5666556666_ '0)))) - (if (gx#stx-pair? _tl5356554394_) - (let ((_e5357454397_ - (gx#syntax-e _tl5356554394_))) - (let ((_tl5357254404_ + (##vector-ref ___splice5692756928_ '0)))) + (if (gx#stx-pair? _tl5382754656_) + (let ((_e5383654659_ + (gx#syntax-e _tl5382754656_))) + (let ((_tl5383454666_ (let () (declare (not safe)) - (##cdr _e5357454397_))) - (_hd5357354401_ + (##cdr _e5383654659_))) + (_hd5383554663_ (let () (declare (not safe)) - (##car _e5357454397_)))) - (if (gx#stx-null? _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (##car _e5383654659_)))) + (if (gx#stx-null? _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) - (let () (declare (not safe)) (_g5351153725_))))) - (if (fx>= (gx#stx-length _tl5352554505_) '1) - (let ((___splice5666556666_ - (gx#syntax-split-splice _tl5352554505_ '1))) - (let ((_tl5356554394_ + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) + (let () (declare (not safe)) (_g5377353987_))))) + (if (fx>= (gx#stx-length _tl5378754767_) '1) + (let ((___splice5692756928_ + (gx#syntax-split-splice _tl5378754767_ '1))) + (let ((_tl5382754656_ (let () (declare (not safe)) - (##vector-ref ___splice5666556666_ '1))) - (_target5356354391_ + (##vector-ref ___splice5692756928_ '1))) + (_target5382554653_ (let () (declare (not safe)) - (##vector-ref ___splice5666556666_ '0)))) - (if (gx#stx-pair? _tl5356554394_) - (let ((_e5357454397_ (gx#syntax-e _tl5356554394_))) - (let ((_tl5357254404_ + (##vector-ref ___splice5692756928_ '0)))) + (if (gx#stx-pair? _tl5382754656_) + (let ((_e5383654659_ (gx#syntax-e _tl5382754656_))) + (let ((_tl5383454666_ (let () (declare (not safe)) - (##cdr _e5357454397_))) - (_hd5357354401_ + (##cdr _e5383654659_))) + (_hd5383554663_ (let () (declare (not safe)) - (##car _e5357454397_)))) - (if (gx#stx-null? _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (##car _e5383654659_)))) + (if (gx#stx-null? _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) - (let () (declare (not safe)) (_g5351153725_))))))) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) + (let () (declare (not safe)) (_g5377353987_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fx>= (gx#stx-length - _tl5352554505_) + _tl5378754767_) '1) - (let ((___splice5666556666_ + (let ((___splice5692756928_ (gx#syntax-split-splice - _tl5352554505_ + _tl5378754767_ '1))) - (let ((_tl5356554394_ + (let ((_tl5382754656_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice5666556666_ '1))) - (_target5356354391_ + (##vector-ref ___splice5692756928_ '1))) + (_target5382554653_ (let () (declare (not safe)) - (##vector-ref ___splice5666556666_ '0)))) - (if (gx#stx-pair? _tl5356554394_) - (let ((_e5357454397_ (gx#syntax-e _tl5356554394_))) - (let ((_tl5357254404_ + (##vector-ref ___splice5692756928_ '0)))) + (if (gx#stx-pair? _tl5382754656_) + (let ((_e5383654659_ (gx#syntax-e _tl5382754656_))) + (let ((_tl5383454666_ (let () (declare (not safe)) - (##cdr _e5357454397_))) - (_hd5357354401_ + (##cdr _e5383654659_))) + (_hd5383554663_ (let () (declare (not safe)) - (##car _e5357454397_)))) - (if (gx#stx-null? _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (##car _e5383654659_)))) + (if (gx#stx-null? _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) - (let () (declare (not safe)) (_g5351153725_)))))) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) + (let () (declare (not safe)) (_g5377353987_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_))))) + (_g5377353987_))))) (if (fx>= (gx#stx-length - _tl5352554505_) + _tl5378754767_) '1) - (let ((___splice5666556666_ + (let ((___splice5692756928_ (gx#syntax-split-splice - _tl5352554505_ + _tl5378754767_ '1))) - (let ((_tl5356554394_ + (let ((_tl5382754656_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '1))) - (_target5356354391_ + (_target5382554653_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '0)))) (if (gx#stx-pair? - _tl5356554394_) - (let ((_e5357454397_ + _tl5382754656_) + (let ((_e5383654659_ (gx#syntax-e - _tl5356554394_))) - (let ((_tl5357254404_ + _tl5382754656_))) + (let ((_tl5383454666_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5357454397_))) - (_hd5357354401_ - (let () (declare (not safe)) (##car _e5357454397_)))) - (if (gx#stx-null? _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) - (let () (declare (not safe)) (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) - (let () (declare (not safe)) (_g5351153725_)))))) + (let () (declare (not safe)) (##cdr _e5383654659_))) + (_hd5383554663_ + (let () (declare (not safe)) (##car _e5383654659_)))) + (if (gx#stx-null? _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) + (let () (declare (not safe)) (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) + (let () (declare (not safe)) (_g5377353987_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_))))) + (_g5377353987_))))) (if (fx>= (gx#stx-length - _tl5352554505_) + _tl5378754767_) '1) - (let ((___splice5666556666_ + (let ((___splice5692756928_ (gx#syntax-split-splice - _tl5352554505_ + _tl5378754767_ '1))) - (let ((_tl5356554394_ + (let ((_tl5382754656_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '1))) - (_target5356354391_ + (_target5382554653_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '0)))) (if (gx#stx-pair? - _tl5356554394_) - (let ((_e5357454397_ + _tl5382754656_) + (let ((_e5383654659_ (gx#syntax-e - _tl5356554394_))) - (let ((_tl5357254404_ + _tl5382754656_))) + (let ((_tl5383454666_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5357454397_))) - (_hd5357354401_ - (let () (declare (not safe)) (##car _e5357454397_)))) - (if (gx#stx-null? _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) - (let () (declare (not safe)) (_g5351153725_)))))) + (##cdr _e5383654659_))) + (_hd5383554663_ + (let () (declare (not safe)) (##car _e5383654659_)))) + (if (gx#stx-null? _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) + (let () (declare (not safe)) (_g5377353987_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_))))))) - (if (fx>= (gx#stx-length _tl5352554505_) '1) - (let ((___splice5666556666_ + (_g5377353987_))))))) + (if (fx>= (gx#stx-length _tl5378754767_) '1) + (let ((___splice5692756928_ (gx#syntax-split-splice - _tl5352554505_ + _tl5378754767_ '1))) - (let ((_tl5356554394_ + (let ((_tl5382754656_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '1))) - (_target5356354391_ + (_target5382554653_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '0)))) - (if (gx#stx-pair? _tl5356554394_) - (let ((_e5357454397_ + (if (gx#stx-pair? _tl5382754656_) + (let ((_e5383654659_ (gx#syntax-e - _tl5356554394_))) - (let ((_tl5357254404_ + _tl5382754656_))) + (let ((_tl5383454666_ (let () (declare (not safe)) - (##cdr _e5357454397_))) - (_hd5357354401_ + (##cdr _e5383654659_))) + (_hd5383554663_ (let () (declare (not safe)) - (##car _e5357454397_)))) + (##car _e5383654659_)))) (if (gx#stx-null? - _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) + _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) (if (gx#stx-null? - _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_))))))) - (if (fx>= (gx#stx-length _tl5352554505_) '1) - (let ((___splice5666556666_ - (gx#syntax-split-splice _tl5352554505_ '1))) - (let ((_tl5356554394_ + (_g5377353987_))))))) + (if (fx>= (gx#stx-length _tl5378754767_) '1) + (let ((___splice5692756928_ + (gx#syntax-split-splice _tl5378754767_ '1))) + (let ((_tl5382754656_ (let () (declare (not safe)) - (##vector-ref ___splice5666556666_ '1))) - (_target5356354391_ + (##vector-ref ___splice5692756928_ '1))) + (_target5382554653_ (let () (declare (not safe)) (##vector-ref - ___splice5666556666_ + ___splice5692756928_ '0)))) - (if (gx#stx-pair? _tl5356554394_) - (let ((_e5357454397_ - (gx#syntax-e _tl5356554394_))) - (let ((_tl5357254404_ + (if (gx#stx-pair? _tl5382754656_) + (let ((_e5383654659_ + (gx#syntax-e _tl5382754656_))) + (let ((_tl5383454666_ (let () (declare (not safe)) - (##cdr _e5357454397_))) - (_hd5357354401_ + (##cdr _e5383654659_))) + (_hd5383554663_ (let () (declare (not safe)) - (##car _e5357454397_)))) - (if (gx#stx-null? _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + (##car _e5383654659_)))) + (if (gx#stx-null? _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_))))))) - (if (fx>= (gx#stx-length _tl5352554505_) '1) - (let ((___splice5666556666_ - (gx#syntax-split-splice _tl5352554505_ '1))) - (let ((_tl5356554394_ + (_g5377353987_))))))) + (if (fx>= (gx#stx-length _tl5378754767_) '1) + (let ((___splice5692756928_ + (gx#syntax-split-splice _tl5378754767_ '1))) + (let ((_tl5382754656_ (let () (declare (not safe)) - (##vector-ref ___splice5666556666_ '1))) - (_target5356354391_ + (##vector-ref ___splice5692756928_ '1))) + (_target5382554653_ (let () (declare (not safe)) - (##vector-ref ___splice5666556666_ '0)))) - (if (gx#stx-pair? _tl5356554394_) - (let ((_e5357454397_ (gx#syntax-e _tl5356554394_))) - (let ((_tl5357254404_ + (##vector-ref ___splice5692756928_ '0)))) + (if (gx#stx-pair? _tl5382754656_) + (let ((_e5383654659_ (gx#syntax-e _tl5382754656_))) + (let ((_tl5383454666_ (let () (declare (not safe)) - (##cdr _e5357454397_))) - (_hd5357354401_ + (##cdr _e5383654659_))) + (_hd5383554663_ (let () (declare (not safe)) - (##car _e5357454397_)))) - (if (gx#stx-null? _tl5357254404_) - (___match5678556786_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5352754498_ - _hd5352654502_ - _tl5352554505_ - ___splice5666556666_ - _target5356354391_ - _tl5356554394_ - _e5357454397_ - _hd5357354401_ - _tl5357254404_) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (##car _e5383654659_)))) + (if (gx#stx-null? _tl5383454666_) + (___match5704757048_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5378954760_ + _hd5378854764_ + _tl5378754767_ + ___splice5692756928_ + _target5382554653_ + _tl5382754656_ + _e5383654659_ + _hd5383554663_ + _tl5383454666_) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-null? _tl5352554505_) - (___kont5666756668_ _hd5352654502_) - (let () (declare (not safe)) (_g5351153725_))))) + (_g5377353987_)))))) + (if (gx#stx-null? _tl5378754767_) + (___kont5692956930_ _hd5378854764_) + (let () (declare (not safe)) (_g5377353987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5352554505_) - (___kont5666756668_ - _hd5352654502_) + _tl5378754767_) + (___kont5692956930_ + _hd5378854764_) (let () (declare (not safe)) - (_g5351153725_)))))) + (_g5377353987_)))))) (let () (declare (not safe)) - (_g5351153725_))) + (_g5377353987_))) (if (let () (declare (not safe)) - (equal? _e5352454494_ '2)) - (if (gx#stx-pair? _tl5352154491_) - (let ((_e5360154197_ + (equal? _e5378654756_ '2)) + (if (gx#stx-pair? _tl5378354753_) + (let ((_e5386354459_ (gx#syntax-e - _tl5352154491_))) - (let ((_tl5359954204_ + _tl5378354753_))) + (let ((_tl5386154466_ (let () (declare (not safe)) - (##cdr _e5360154197_))) - (_hd5360054201_ + (##cdr _e5386354459_))) + (_hd5386254463_ (let () (declare (not safe)) - (##car _e5360154197_)))) + (##car _e5386354459_)))) (if (gx#stx-pair? - _tl5359954204_) - (let ((_e5360454207_ + _tl5386154466_) + (let ((_e5386654469_ (gx#syntax-e - _tl5359954204_))) - (let ((_tl5360254214_ + _tl5386154466_))) + (let ((_tl5386454476_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5360454207_))) - (_hd5360354211_ - (let () (declare (not safe)) (##car _e5360454207_)))) - (if (gx#stx-pair? _hd5360354211_) - (let ((_e5360754217_ (gx#syntax-e _hd5360354211_))) - (let ((_tl5360554224_ + (let () (declare (not safe)) (##cdr _e5386654469_))) + (_hd5386554473_ + (let () (declare (not safe)) (##car _e5386654469_)))) + (if (gx#stx-pair? _hd5386554473_) + (let ((_e5386954479_ (gx#syntax-e _hd5386554473_))) + (let ((_tl5386754486_ (let () (declare (not safe)) - (##cdr _e5360754217_))) - (_hd5360654221_ + (##cdr _e5386954479_))) + (_hd5386854483_ (let () (declare (not safe)) - (##car _e5360754217_)))) - (if (gx#stx-pair? _hd5360654221_) - (let ((_e5361054227_ - (gx#syntax-e _hd5360654221_))) - (let ((_tl5360854234_ + (##car _e5386954479_)))) + (if (gx#stx-pair? _hd5386854483_) + (let ((_e5387254489_ + (gx#syntax-e _hd5386854483_))) + (let ((_tl5387054496_ (let () (declare (not safe)) - (##cdr _e5361054227_))) - (_hd5360954231_ + (##cdr _e5387254489_))) + (_hd5387154493_ (let () (declare (not safe)) - (##car _e5361054227_)))) - (if (gx#identifier? _hd5360954231_) + (##car _e5387254489_)))) + (if (gx#identifier? _hd5387154493_) (if (gx#free-identifier=? - |[1]#_g57455_| - _hd5360954231_) - (if (gx#stx-pair? _tl5360854234_) - (let ((_e5361354237_ + |[1]#_g57717_| + _hd5387154493_) + (if (gx#stx-pair? _tl5387054496_) + (let ((_e5387554499_ (gx#syntax-e - _tl5360854234_))) - (let ((_tl5361154244_ + _tl5387054496_))) + (let ((_tl5387354506_ (let () (declare (not safe)) - (##cdr _e5361354237_))) - (_hd5361254241_ + (##cdr _e5387554499_))) + (_hd5387454503_ (let () (declare (not safe)) - (##car _e5361354237_)))) + (##car _e5387554499_)))) (if (gx#stx-null? - _tl5361154244_) + _tl5387354506_) (if (gx#stx-pair? - _tl5360554224_) - (let ((_e5361654247_ + _tl5386754486_) + (let ((_e5387854509_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5360554224_))) - (let ((_tl5361454254_ + (gx#syntax-e _tl5386754486_))) + (let ((_tl5387654516_ (let () (declare (not safe)) - (##cdr _e5361654247_))) - (_hd5361554251_ + (##cdr _e5387854509_))) + (_hd5387754513_ (let () (declare (not safe)) - (##car _e5361654247_)))) - (___kont5666956670_ - _tl5360254214_ - _tl5361454254_ - _hd5361554251_ - _hd5361254241_ - _hd5360054201_ - _hd5351954478_))) - (___kont5667156672_ - _tl5360254214_ - _tl5360554224_ - _hd5360654221_ - _hd5360054201_ - _hd5351954478_)) - (___kont5667156672_ - _tl5360254214_ - _tl5360554224_ - _hd5360654221_ - _hd5360054201_ - _hd5351954478_)))) + (##car _e5387854509_)))) + (___kont5693156932_ + _tl5386454476_ + _tl5387654516_ + _hd5387754513_ + _hd5387454503_ + _hd5386254463_ + _hd5378154740_))) + (___kont5693356934_ + _tl5386454476_ + _tl5386754486_ + _hd5386854483_ + _hd5386254463_ + _hd5378154740_)) + (___kont5693356934_ + _tl5386454476_ + _tl5386754486_ + _hd5386854483_ + _hd5386254463_ + _hd5378154740_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont5667156672_ - _tl5360254214_ - _tl5360554224_ - _hd5360654221_ - _hd5360054201_ - _hd5351954478_)) - (___kont5667156672_ - _tl5360254214_ - _tl5360554224_ - _hd5360654221_ - _hd5360054201_ - _hd5351954478_)) - (___kont5667156672_ - _tl5360254214_ - _tl5360554224_ - _hd5360654221_ - _hd5360054201_ - _hd5351954478_)))) - (___kont5667156672_ - _tl5360254214_ - _tl5360554224_ - _hd5360654221_ - _hd5360054201_ - _hd5351954478_)))) - (if (gx#stx-null? _hd5360354211_) - (___kont5667356674_ - _tl5360254214_ - _hd5360054201_ - _hd5351954478_) - (let () (declare (not safe)) (_g5351153725_)))))) - (let () (declare (not safe)) (_g5351153725_))))) + (___kont5693356934_ + _tl5386454476_ + _tl5386754486_ + _hd5386854483_ + _hd5386254463_ + _hd5378154740_)) + (___kont5693356934_ + _tl5386454476_ + _tl5386754486_ + _hd5386854483_ + _hd5386254463_ + _hd5378154740_)) + (___kont5693356934_ + _tl5386454476_ + _tl5386754486_ + _hd5386854483_ + _hd5386254463_ + _hd5378154740_)))) + (___kont5693356934_ + _tl5386454476_ + _tl5386754486_ + _hd5386854483_ + _hd5386254463_ + _hd5378154740_)))) + (if (gx#stx-null? _hd5386554473_) + (___kont5693556936_ + _tl5386454476_ + _hd5386254463_ + _hd5378154740_) + (let () (declare (not safe)) (_g5377353987_)))))) + (let () (declare (not safe)) (_g5377353987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5351153725_))) + (_g5377353987_))) (if (let () (declare (not safe)) - (equal? _e5352454494_ '3)) + (equal? _e5378654756_ '3)) (if (gx#stx-pair? - _tl5352154491_) - (let ((_e5366853946_ + _tl5378354753_) + (let ((_e5393054208_ (gx#syntax-e - _tl5352154491_))) - (let ((_tl5366653953_ + _tl5378354753_))) + (let ((_tl5392854215_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5366853946_))) - (_hd5366753950_ - (let () (declare (not safe)) (##car _e5366853946_)))) - (if (gx#stx-pair? _tl5366653953_) - (let ((_e5367153956_ (gx#syntax-e _tl5366653953_))) - (let ((_tl5366953963_ + (##cdr _e5393054208_))) + (_hd5392954212_ + (let () (declare (not safe)) (##car _e5393054208_)))) + (if (gx#stx-pair? _tl5392854215_) + (let ((_e5393354218_ (gx#syntax-e _tl5392854215_))) + (let ((_tl5393154225_ (let () (declare (not safe)) - (##cdr _e5367153956_))) - (_hd5367053960_ + (##cdr _e5393354218_))) + (_hd5393254222_ (let () (declare (not safe)) - (##car _e5367153956_)))) - (if (gx#stx-pair? _hd5367053960_) - (let ((_e5367453966_ (gx#syntax-e _hd5367053960_))) - (let ((_tl5367253973_ + (##car _e5393354218_)))) + (if (gx#stx-pair? _hd5393254222_) + (let ((_e5393654228_ (gx#syntax-e _hd5393254222_))) + (let ((_tl5393454235_ (let () (declare (not safe)) - (##cdr _e5367453966_))) - (_hd5367353970_ + (##cdr _e5393654228_))) + (_hd5393554232_ (let () (declare (not safe)) - (##car _e5367453966_)))) - (___kont5667556676_ - _tl5366953963_ - _tl5367253973_ - _hd5367353970_ - _hd5366753950_ - _hd5351954478_))) - (if (gx#stx-pair/null? _hd5366753950_) - (let ((___splice5667956680_ + (##car _e5393654228_)))) + (___kont5693756938_ + _tl5393154225_ + _tl5393454235_ + _hd5393554232_ + _hd5392954212_ + _hd5378154740_))) + (if (gx#stx-pair/null? _hd5392954212_) + (let ((___splice5694156942_ (gx#syntax-split-splice - _hd5366753950_ + _hd5392954212_ '0))) - (let ((_tl5369353769_ + (let ((_tl5395554031_ (let () (declare (not safe)) (##vector-ref - ___splice5667956680_ + ___splice5694156942_ '1))) - (_target5369153766_ + (_target5395354028_ (let () (declare (not safe)) (##vector-ref - ___splice5667956680_ + ___splice5694156942_ '0)))) - (if (gx#stx-null? _tl5369353769_) - (___match5700757008_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5366853946_ - _hd5366753950_ - _tl5366653953_ - ___splice5667956680_ - _target5369153766_ - _tl5369353769_) + (if (gx#stx-null? _tl5395554031_) + (___match5726957270_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5393054208_ + _hd5392954212_ + _tl5392854215_ + ___splice5694156942_ + _target5395354028_ + _tl5395554031_) (let () (declare (not safe)) - (_g5351153725_))))) + (_g5377353987_))))) (let () (declare (not safe)) - (_g5351153725_)))))) - (if (gx#stx-pair/null? _hd5366753950_) - (let ((___splice5667956680_ - (gx#syntax-split-splice _hd5366753950_ '0))) - (let ((_tl5369353769_ + (_g5377353987_)))))) + (if (gx#stx-pair/null? _hd5392954212_) + (let ((___splice5694156942_ + (gx#syntax-split-splice _hd5392954212_ '0))) + (let ((_tl5395554031_ (let () (declare (not safe)) - (##vector-ref ___splice5667956680_ '1))) - (_target5369153766_ + (##vector-ref ___splice5694156942_ '1))) + (_target5395354028_ (let () (declare (not safe)) - (##vector-ref ___splice5667956680_ '0)))) - (if (gx#stx-null? _tl5369353769_) - (___match5700757008_ - _e5352054474_ - _hd5351954478_ - _tl5351854481_ - _e5352354484_ - _hd5352254488_ - _tl5352154491_ - _e5352454494_ - _e5366853946_ - _hd5366753950_ - _tl5366653953_ - ___splice5667956680_ - _target5369153766_ - _tl5369353769_) + (##vector-ref ___splice5694156942_ '0)))) + (if (gx#stx-null? _tl5395554031_) + (___match5726957270_ + _e5378254736_ + _hd5378154740_ + _tl5378054743_ + _e5378554746_ + _hd5378454750_ + _tl5378354753_ + _e5378654756_ + _e5393054208_ + _hd5392954212_ + _tl5392854215_ + ___splice5694156942_ + _target5395354028_ + _tl5395554031_) (let () (declare (not safe)) - (_g5351153725_))))) - (let () (declare (not safe)) (_g5351153725_)))))) + (_g5377353987_))))) + (let () (declare (not safe)) (_g5377353987_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5351153725_))) + (_g5377353987_))) (let () (declare (not safe)) - (_g5351153725_)))))) + (_g5377353987_)))))) (let () (declare (not safe)) - (_g5351153725_))))) - (let () (declare (not safe)) (_g5351153725_))))) - (let () (declare (not safe)) (_g5351153725_)))))))))) + (_g5377353987_))))) + (let () (declare (not safe)) (_g5377353987_))))) + (let () (declare (not safe)) (_g5377353987_)))))))))) diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index 145b73c4..714fd208 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 1709375797) '#!void) +(begin (define gerbil/runtime::timestamp 1709457369) '#!void) diff --git a/src/gerbil/compiler/optimize-spec.ss b/src/gerbil/compiler/optimize-spec.ss index 5303b19f..62195868 100644 --- a/src/gerbil/compiler/optimize-spec.ss +++ b/src/gerbil/compiler/optimize-spec.ss @@ -26,7 +26,7 @@ namespace: gxc (%#case-lambda collect-body-case-lambda%) (%#let-values collect-body-let-values%) (%#letrec-values collect-body-let-values%) - (%#letrec-values* collect-body-let-values%) + (%#letrec*-values collect-body-let-values%) (%#call collect-object-refs-call%) (%#if collect-operands) (%#set! collect-body-setq%) diff --git a/src/gerbil/test/compiler-test-support/gerbil.pkg b/src/gerbil/test/compiler-test-support/gerbil.pkg new file mode 100644 index 00000000..a0b8f81a --- /dev/null +++ b/src/gerbil/test/compiler-test-support/gerbil.pkg @@ -0,0 +1 @@ +(package: test) diff --git a/src/gerbil/test/compiler-test-support/issue-1144.ss b/src/gerbil/test/compiler-test-support/issue-1144.ss new file mode 100644 index 00000000..16d15298 --- /dev/null +++ b/src/gerbil/test/compiler-test-support/issue-1144.ss @@ -0,0 +1,6 @@ +(defstruct Foo (a b)) +(defmethod {frob Foo} + (lambda (self) + (Foo-b self) + (def x (Foo-a self)) + 0)) diff --git a/src/gerbil/test/compiler-test-support/specializer-methods.ss b/src/gerbil/test/compiler-test-support/specializer-methods.ss new file mode 100644 index 00000000..a0c5d3bf --- /dev/null +++ b/src/gerbil/test/compiler-test-support/specializer-methods.ss @@ -0,0 +1,22 @@ +(import :std/interface + :std/test) +(defclass Foo (a b c)) +(defclass (Bar Foo) (d last)) + +(defmethod {method-a Foo} + (lambda (self) + {self.method-b (Foo-a self) (Foo-b self)})) + +(defmethod {method-b Bar} + (lambda (self a b) + (let (result (+ (* a (@ self c)) (* b (@ self d)))) + (set! (Bar-last self) result) + result))) + +(interface Baz + (method-a)) + +(let (obj (Bar a: 1 b: 2 c: 3 d: 4)) + (check (Baz-method-a (Baz obj)) + => 11) + (check (Bar-last obj) => 11)) diff --git a/src/gerbil/test/compiler-test.ss b/src/gerbil/test/compiler-test.ss new file mode 100644 index 00000000..c2db99c1 --- /dev/null +++ b/src/gerbil/test/compiler-test.ss @@ -0,0 +1,38 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; compiler regression tests +(import :std/test + :std/source + :std/os/temporaries + :gerbil/compiler + :gerbil/expander + :gerbil/runtime/init) +(export compiler-specializer-test) + +(def (must-compile-and-execute path) + (let (output-dir (make-temporary-file-name "compiler.out")) + (check (compile-module (path-expand path (this-source-directory)) + [output-dir: + output-dir + invoke-gsc: #t + optimize: #t + generate-ssxi: #t]) + ? true) + (with-cons-load-path + (lambda () (check (import-module + (string->symbol + (string-append "test/" + (path-strip-extension + (path-strip-directory + path)))) + #f #t) + ? true)) + output-dir) + (delete-file-or-directory output-dir #t))) + +(def compiler-specializer-test + (test-suite "compiler specializer tests" + (test-case "specializer methods" + (must-compile-and-execute "compiler-test-support/specializer-methods.ss")) + (test-case "issue #1144" + (must-compile-and-execute "compiler-test-support/issue-1144.ss")))) |